commit 8f2f47d8f559119213fd3dbefd428c280d7f9b01 Author: DESKTOP-E401PHE\Administrator Date: Wed Apr 16 09:11:01 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..7f7f94c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.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:\Ŀ\Ŀ\\뵥(PBMDDJ.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)/PBMDDJ.dpr b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr new file mode 100644 index 0000000..b2ac362 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr @@ -0,0 +1,58 @@ +library PBMDDJ; + +uses + SysUtils, + classes, + forms, + WinTypes, + WinProcs, + U_GetDllForm in 'U_GetDllForm.pas', + U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, + U_DataLink in 'U_DataLink.pas' {DataLink_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_JGList in 'U_JGList.pas' {frmJGList}, + U_DJBRK_Edit in 'U_DJBRK_Edit.pas' {frmDJBRK_Edit}, + 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_ZdyAttachment in 'U_ZdyAttachment.pas' {frmZdyAttachment}, + U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas', + U_SelExportField in '..\..\..\ThreeFun\Form\U_SelExportField.pas' {frmSelExportField}, + U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet}, + U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet}, + U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}; + +{$R *.res} + +procedure DllEnterPoint(dwReason: DWORD);far;stdcall; +begin + DLLProc := @DLLEnterPoint; + DllEnterPoint(DLL_PROCESS_ATTACH); +end; + +procedure DLLUnloadProc(Reason: Integer); register; +begin + { if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then + Application:=NewDllApp; } +end; +exports + GetDllForm; +begin + try + NewDllApp:=Application; + DLLProc := @DLLUnloadProc; + except + + end; +end. + 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_CbJdLr.dfm b/坯布码单待检(PBMDDJ.dll)/U_CbJdLr.dfm new file mode 100644 index 0000000..a8e2444 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CbJdLr.dfm @@ -0,0 +1,840 @@ +object frmCbJdLr: TfrmCbJdLr + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #25104#26412#36827#24230#21033#28070#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + KeyPreview = True + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + 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_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 ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #33258#21160#29983#25104 + ImageIndex = 31 + OnClick = ToolButton4Click + end + object TBADD: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 57 + Visible = False + OnClick = TBADDClick + end + object TBDel: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 113 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #23436#25104 + ImageIndex = 75 + OnClick = TchkClick + end + object Tnochk: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + ImageIndex = 52 + OnClick = TnochkClick + end + object ToolButton3: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 134 + Width = 1366 + Height = 582 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 1 + 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 = <> + 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.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_PBMDDJ.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 + Tag = 1 + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v2Note: TcxGridDBColumn + Tag = 1 + Caption = #20379#24212#21830 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2NotePropertiesButtonClick + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column5: TcxGridDBColumn + Tag = 1 + Caption = #30333#22383#32534#21495 + DataBinding.FieldName = 'BpCode' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column2: TcxGridDBColumn + Tag = 1 + Caption = #30333#22383#21305#25968 + DataBinding.FieldName = 'BpPs' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v2Column27: TcxGridDBColumn + Caption = #30333#22383#25968#37327 + DataBinding.FieldName = 'BpQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2Column26: TcxGridDBColumn + Caption = #30333#22383#21333#20301 + DataBinding.FieldName = 'BpUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2C_CodeName: TcxGridDBColumn + Tag = 1 + Caption = #21333#20215 + DataBinding.FieldName = 'BpPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v2Column4: TcxGridDBColumn + Tag = 1 + Caption = #30333#22383#37329#39069 + DataBinding.FieldName = 'BpMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 77 + end + object v2Column28: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'spid' + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 61 + end + object v2Column9: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'RanChang' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column9PropertiesButtonClick + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 86 + end + object v2Column25: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GangHao' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 86 + end + object v2Column7: TcxGridDBColumn + Tag = 1 + Caption = #21697#21517 + DataBinding.FieldName = 'CpName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column3PropertiesButtonClick + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 86 + end + object v2Column15: TcxGridDBColumn + Tag = 1 + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'CpRkPs' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 66 + end + object v2Column14: TcxGridDBColumn + Tag = 1 + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'CpRkQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 76 + end + object v2Column3: TcxGridDBColumn + Tag = 1 + Caption = #39068#33394 + DataBinding.FieldName = 'CpColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column3PropertiesButtonClick + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 53 + end + object v2Column6: TcxGridDBColumn + Tag = 1 + Caption = #20811#37325 + DataBinding.FieldName = 'CpKz' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 66 + end + object v2Column8: TcxGridDBColumn + Tag = 2 + Caption = #26579#36153#21333#20215 + DataBinding.FieldName = 'CpYrPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v2Column10: TcxGridDBColumn + Tag = 2 + Caption = #21253#35013#36153 + DataBinding.FieldName = 'CpBzCost' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v2Column21: TcxGridDBColumn + Tag = 2 + Caption = #20914#36134 + DataBinding.FieldName = 'ChongZhang' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v2Column22: TcxGridDBColumn + Tag = 2 + Caption = #26579#36153#37329#39069 + DataBinding.FieldName = 'CpYrMoney' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column18: TcxGridDBColumn + Caption = #25104#26412#21512#35745 + DataBinding.FieldName = 'CbHjCost' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 74 + end + object v2Column23: TcxGridDBColumn + Tag = 2 + Caption = #38144#21806#23458#25143 + DataBinding.FieldName = 'CustomerName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v2Column20: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'CpCkPs' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v2Column1: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'Filltime' + PropertiesClassName = 'TcxDateEditProperties' + Visible = False + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 79 + end + object v2Column11: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + Visible = False + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v2Column12: TcxGridDBColumn + Caption = #23436#25104#20154 + DataBinding.FieldName = 'Chker' + Visible = False + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v2Column13: TcxGridDBColumn + Caption = #23436#25104#26102#38388 + DataBinding.FieldName = 'Chktime' + PropertiesClassName = 'TcxDateEditProperties' + Visible = False + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v2Column16: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CpCkQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + end + object v2Column17: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'CpCkPrice' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + end + object v2Column19: TcxGridDBColumn + Caption = #27611#21033#28070 + DataBinding.FieldName = 'Lr' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = cxStyle3 + Width = 89 + end + object v2Column24: TcxGridDBColumn + Caption = #27599#21305#27611#21033#28070 + DataBinding.FieldName = 'MpLr' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = cxStyle3 + Width = 97 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 112 + Width = 1366 + Height = 22 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 2 + Tabs.Strings = ( + #26410#23436#25104 + #24050#23436#25104 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1366 + ClientRectTop = 19 + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1366 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 3 + object Label3: TLabel + Left = 187 + Top = 17 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object Label2: TLabel + Left = 22 + Top = 17 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 59 + Top = 44 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 178 + Top = 44 + Width = 36 + Height = 12 + Caption = #20379#24212#21830 + end + object Label1: TLabel + Left = 332 + Top = 44 + Width = 48 + Height = 12 + Caption = #30333#22383#32534#21495 + end + object Label7: TLabel + Left = 356 + Top = 17 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label8: TLabel + Left = 510 + Top = 17 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label9: TLabel + Left = 658 + Top = 17 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label4: TLabel + Left = 511 + Top = 42 + Width = 24 + Height = 12 + Caption = #26579#21378 + end + object Label10: TLabel + Left = 658 + Top = 40 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label11: TLabel + Left = 791 + Top = 17 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object CustomerName: TEdit + Tag = 2 + Left = 214 + Top = 13 + Width = 90 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 0 + end + object begdate: TDateTimePicker + Left = 72 + Top = 13 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 1 + end + object Enddate: TDateTimePicker + Left = 71 + Top = 40 + Width = 97 + Height = 20 + Date = 41256.918237847230000000 + Time = 41256.918237847230000000 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 2 + end + object FactoryName: TEdit + Tag = 2 + Left = 214 + Top = 40 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 3 + end + object BpPs: TEdit + Tag = 2 + Left = 380 + Top = 40 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 4 + end + object CpName: TEdit + Tag = 2 + Left = 381 + Top = 13 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 5 + end + object CpColor: TEdit + Tag = 2 + Left = 540 + Top = 13 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 6 + end + object CpKz: TEdit + Tag = 2 + Left = 688 + Top = 13 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 7 + end + object RanChang: TEdit + Tag = 2 + Left = 541 + Top = 38 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 8 + end + object GangHao: TEdit + Tag = 2 + Left = 688 + Top = 36 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 9 + end + object Edit1: TEdit + Tag = 2 + Left = 844 + Top = 13 + Width = 89 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 10 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 304 + Top = 227 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 265 + Top = 231 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 227 + Top = 228 + 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 = 658 + Top = 257 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 403 + Top = 252 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 491 + Top = 254 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 277 + Top = 285 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 445 + Top = 250 + end + object PopupMenu1: TPopupMenu + Left = 231 + Top = 288 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 696 + Top = 256 + 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 = 724 + Top = 256 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 752 + Top = 256 + end + object cxStyleRepository1: TcxStyleRepository + Left = 722 + Top = 3 + object cxStyle1: TcxStyle + AssignedValues = [svTextColor] + TextColor = clMenuHighlight + end + end + object cxStyleRepository2: TcxStyleRepository + Left = 795 + Top = 4 + object cxStyle2: TcxStyle + end + end + object cxStyleRepository3: TcxStyleRepository + Left = 755 + object cxStyle3: TcxStyle + AssignedValues = [svTextColor] + TextColor = clRed + end + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_CbJdLr.pas b/坯布码单待检(PBMDDJ.dll)/U_CbJdLr.pas new file mode 100644 index 0000000..86a2811 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_CbJdLr.pas @@ -0,0 +1,896 @@ +unit U_CbJdLr; + +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, cxCheckComboBox, cxDropDownEdit, Menus, + RM_e_Xls; + +type + TfrmCbJdLr = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + TBADD: TToolButton; + v2Note: TcxGridDBColumn; + v2C_CodeName: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2ssel: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + Tchk: TToolButton; + Tnochk: TToolButton; + v2Column11: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Panel1: TPanel; + Label3: TLabel; + Label2: TLabel; + Label6: TLabel; + Label5: TLabel; + CustomerName: TEdit; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + FactoryName: TEdit; + CDS_PRT: TClientDataSet; + RMXLSExport2: TRMXLSExport; + RMDBMain: TRMDBDataSet; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + ToolButton3: TToolButton; + v2Column21: TcxGridDBColumn; + v2Column22: TcxGridDBColumn; + v2Column23: TcxGridDBColumn; + v2Column20: TcxGridDBColumn; + ToolButton4: TToolButton; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyleRepository2: TcxStyleRepository; + cxStyle2: TcxStyle; + v2Column16: TcxGridDBColumn; + v2Column17: TcxGridDBColumn; + v2Column18: TcxGridDBColumn; + v2Column19: TcxGridDBColumn; + v2Column24: TcxGridDBColumn; + cxStyleRepository3: TcxStyleRepository; + cxStyle3: TcxStyle; + Label1: TLabel; + BpPs: TEdit; + Label7: TLabel; + CpName: TEdit; + Label8: TLabel; + CpColor: TEdit; + Label9: TLabel; + CpKz: TEdit; + Label4: TLabel; + RanChang: TEdit; + v2Column9: TcxGridDBColumn; + v2Column25: TcxGridDBColumn; + v2Column26: TcxGridDBColumn; + v2Column27: TcxGridDBColumn; + Label10: TLabel; + GangHao: TEdit; + v2Column28: TcxGridDBColumn; + Label11: TLabel; + Edit1: 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 cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject); + procedure TBADDClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure v2Column5PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v2Column2PropertiesEditValueChanged(Sender: TObject); + procedure v2NotePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + + procedure InitGrid(); + function SaveData():Boolean; + procedure SetStatus(); + procedure setGrid(); + public + fFlag:integer; + { Public declarations } + RKFlag,FCYID,fmanage:String; + canshu1:string; + end; + +var + frmCbJdLr: TfrmCbJdLr; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, + U_ZdyAttachGYS, U_ProductOrderListSel, U_ProductOrderNewList, + U_ZdyAttachment,U_DJBRKListSel; + +{$R *.dfm} +procedure TfrmCbJdLr.setGrid(); +var + i:Integer; +begin + try + + case cxTabControl1.TabIndex of + 0:begin + for i:=0 to tv2.ColumnCount-1 do + begin + tv2.Columns[i].Options.Editing:=true; +// if uppercase(tv2.Columns[i].DataBinding.FieldName)<>'SSEL' then +// begin +// if Trim(canshu1)='Ȩ' then +// begin +// tv2.Columns[i].Options.Editing:=true; +// end +// else +// begin +// if tv2.Columns[i].Tag=1 then tv2.Columns[i].Options.Editing:=true; +// if tv2.Columns[i].Tag=2 then tv2.Columns[i].Options.Editing:=false; +// end; +// end; + end; + end; + 1:begin + 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; + end; + 2:begin + 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; + end; + end; + except + + end +end; +procedure TfrmCbJdLr.SetStatus(); +var + i:integer; +begin + Tchk.Visible:=false; + TNochk.Visible:=false; + TBDel.Visible:=false; + IF canshu1='Ȩ' then + begin + case cxTabControl1.TabIndex of + 0:begin + Tchk.Visible:=true; + TBDel.Visible:=true; + end; + 1:begin + TNochk.Visible:=true; + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + TBDel.Visible:=true; + end; + 1:begin + + end; + end; + end; +end; + +procedure TfrmCbJdLr.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + Filtered:=False; + sql.Add(' select * from CbJdLr A '); + 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<2 then + sql.Add(' and ISNULL(A.status,0)='''+inttostr(cxTabControl1.TabIndex)+''' '); + if Trim(canshu1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + //ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +end; + +procedure TfrmCbJdLr.FormDestroy(Sender: TObject); +begin + frmCbJdLr:=nil; +end; + +procedure TfrmCbJdLr.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCbJdLr.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(Trim(Self.Caption),Tv2,'ʱ'); + Close; +end; +procedure TfrmCbJdLr.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 + IF fieldbyname('Filler').AsString<>Trim(DName) then + begin + EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˵ݲɾ!','ʾ',0); + exit; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete CbJdLr where CBID='''+Trim(CDS_HZ.fieldbyname('CBID').AsString)+''''); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmCbJdLr.FormShow(Sender: TObject); +begin + ReadCxGrid(Trim(Self.Caption),Tv2,'ʱ'); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime-30; + SetStatus(); + InitGrid(); +end; + +procedure TfrmCbJdLr.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCbJdLr.ToolButton2Click(Sender: TObject); +var + sql:string; +begin + if ADOQueryMain.Active then + begin + sql:=SGetFilters(Panel1,1,2); + SDofilter(ADOQueryMain,sql); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +function TfrmCbJdLr.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxId,'CB','CbJdLr',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 CbJdLr where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CBID').Value:=Trim(maxId); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('Filltime').Value:=formatdateTIme('yyyy-MM-dd',SGetServerDate(ADOQueryTemp)); + FieldByName('crtime').Value:=formatdateTIme('yyyy-MM-dd',SGetServerDate(ADOQueryTemp)); + FieldByName('status').Value:='0'; + Post; + end; + with Self.CDS_HZ do + begin + Append; + FieldByName('CBID').Value:=Trim(maxId); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('Filltime').Value:=formatdateTIme('yyyy-MM-dd',SGetServerDate(ADOQueryTemp)); + FieldByName('crtime').Value:=SGetServerDate(ADOQueryTemp); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmCbJdLr.cxGridDBColumn1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue,FFieldName:String; +begin +// mvalue:=TcxTextEdit(Sender).EditingText; + mvalue:=Trim(FormatDateTime('yyyy-MM-dd',TcxDateEdit(Sender).Date)); + 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 CbJdLr '); + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where CBID='''+Trim(CDS_HZ.fieldbyname('CBID').AsString)+''''); + ExecSQL; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmCbJdLr.TBADDClick(Sender: TObject); +begin + Self.SaveData(); + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmCbJdLr.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'ֿ⿼'); +end; + +procedure TfrmCbJdLr.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + InitGrid; +end; + +procedure TfrmCbJdLr.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 CbJdLr SET status=''1'' '); + sql.Add(' ,Chker='''+Trim(DName)+''''); + sql.Add(' ,Chktime='''+formatdateTIme('yyyy-MM-dd',SGetServerDate(ADOQueryTemp))+''''); + sql.Add(' where CBID ='+quotedstr(trim(CDS_HZ.fieldbyname('CBID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + CDS_HZ.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmCbJdLr.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 CbJdLr SET status=''0'' ,Chker=null,Chktime=null'); + sql.Add('where CBID ='+quotedstr(trim(CDS_HZ.fieldbyname('CBID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmCbJdLr.N1Click(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:=true; + post; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmCbJdLr.N2Click(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:=false; + post; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmCbJdLr.Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + setGrid(); +end; + +procedure TfrmCbJdLr.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var + mvalue,FFieldName,FCaption:string; + FWZ:Integer; +begin + FFieldName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); + FCaption:=Trim( Tv2.Controller.FocusedColumn.Caption); + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=FFieldName+'1'; + flagname:=FCaption; + if ShowModal=1 then + begin + mvalue:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + with CDS_HZ do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CbJdLr '); + 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 CBID='''+Trim(CDS_HZ.fieldbyname('CBID').AsString)+''''); + ExecSQL; + end; + + end; + end; + finally + tv2.Controller.EditingController.ShowEdit(); + frmZDYHelp.Free; + end; + +end; + +procedure TfrmCbJdLr.ToolButton3Click(Sender: TObject); +var + fPrintFile,FConNoM:string; +begin + if CDS_HZ.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ʒ.rmf' ; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from CbJdLr A '); + sql.Add('where A.CBID='''+Trim(CDS_HZ.fieldbyname('CBID').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('û'+trim(fPrintFile)),'ʾ',0); + end; + +end; + +procedure TfrmCbJdLr.FormCreate(Sender: TObject); +begin + canshu1:=trim(DParameters1); +end; + +procedure TfrmCbJdLr.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 CbJdLr '); + 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 CBID='''+Trim(CDS_HZ.fieldbyname('CBID').AsString)+''''); + ExecSQL; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmCbJdLr.ToolButton4Click(Sender: TObject); +var + maxId:string; +begin + try + frmDJBRKListSel:=TfrmDJBRKListSel.Create(Application); + with frmDJBRKListSel do + begin + if ShowModal=1 then + begin + try + self.ADOQueryCmd.Connection.BeginTrans; + with frmDJBRKListSel.CDS_Main do + begin + while CDS_Main.Locate('SSel',true,[]) do + begin + if GetLSNo(self.ADOQueryCmd,maxId,'Cb','CbJdLr',4,1)=False then + begin + self.ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with self.ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from CbJdLr where 1<>1'); + Open; + end; + with self.ADOQueryCmd do + begin + Append; + FieldByName('CbID').Value:=Trim(maxId); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('Filltime').Value:=formatdateTIme('yyyy-MM-dd',SGetServerDate(ADOQueryTemp)); + FieldByName('CRTime').Value:=formatdateTIme('yyyy-MM-dd',SGetServerDate(ADOQueryTemp)); + FieldByName('status').Value:='0'; + FieldByName('SPID').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPID').AsString; + FieldByName('RanChang').Value:=frmDJBRKListSel.CDS_Main.FieldByName('FactoryName').AsString; + FieldByName('GangHao').Value:=frmDJBRKListSel.CDS_Main.FieldByName('RCGangNo').AsString; + FieldByName('CpName').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPName').AsString; + FieldByName('CpRkPs').Value:=frmDJBRKListSel.CDS_Main.FieldByName('PiQty').asinteger; + FieldByName('CpRkQty').Value:=frmDJBRKListSel.CDS_Main.FieldByName('Qty').asfloat; + FieldByName('CpRkUnit').Value:=frmDJBRKListSel.CDS_Main.FieldByName('QtyUnit').AsString; + FieldByName('CpColor').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPColor').AsString; + FieldByName('CpKz').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPKZ').AsString; + FieldByName('BPPS').Value:=frmDJBRKListSel.CDS_Main.FieldByName('TPPS').AsString; + FieldByName('BPQty').Value:=frmDJBRKListSel.CDS_Main.FieldByName('TPQty').AsString; + FieldByName('BPUnit').Value:=frmDJBRKListSel.CDS_Main.FieldByName('TPUnit').AsString; + Post; + end; + with Self.CDS_HZ do + begin + Append; + FieldByName('CbID').Value:=Trim(maxId); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('SPID').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPID').AsString; + FieldByName('RanChang').Value:=frmDJBRKListSel.CDS_Main.FieldByName('FactoryName').AsString; + FieldByName('GangHao').Value:=frmDJBRKListSel.CDS_Main.FieldByName('RCGangNo').AsString; + FieldByName('Filltime').Value:=formatdateTIme('yyyy-MM-dd',SGetServerDate(ADOQueryTemp)); + FieldByName('CRtime').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('CpName').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPName').AsString; + FieldByName('CpRkPs').Value:=frmDJBRKListSel.CDS_Main.FieldByName('PiQty').asinteger; + FieldByName('CpRkQty').Value:=frmDJBRKListSel.CDS_Main.FieldByName('Qty').asfloat; + FieldByName('CpRkUnit').Value:=frmDJBRKListSel.CDS_Main.FieldByName('QtyUnit').AsString; + FieldByName('CpColor').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPColor').AsString; + FieldByName('CpKz').Value:=frmDJBRKListSel.CDS_Main.FieldByName('SPKZ').AsString; + FieldByName('BPPS').Value:=frmDJBRKListSel.CDS_Main.FieldByName('TPPS').AsString; + FieldByName('BPQty').Value:=frmDJBRKListSel.CDS_Main.FieldByName('TPQty').AsString; + FieldByName('BPUnit').Value:=frmDJBRKListSel.CDS_Main.FieldByName('TPUnit').AsString; + Post; + end; + delete; + end; + end; + self.ADOQueryCmd.Connection.CommitTrans; + except + self.ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; + end; + end; + finally + frmDJBRKListSel.Free; + end; +end; + +procedure TfrmCbJdLr.v2Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalue,FFieldName:String; + FBpQty,FCpCkPs:integer; + FBpPrice,FBpMoney,FCpYrPrice,FCpRkQty,FCpYrMoney,FCbHjCost,FCpCkQty,FCpCkPrice,FCpCkMoney,FLr,FMpLr:double; +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 CDS_HZ do + begin + FBpQty:=FieldByName('BpQty').AsInteger; + FBpPrice:=FieldByName('BpPrice').AsFloat; + FCpRkQty:=FieldByName('CpRkQty').AsFloat; + FCpYrPrice:=FieldByName('CpYrPrice').AsFloat; + FCpCkQty:=FieldByName('CpCkQty').AsFloat; + FCpCkPrice:=FieldByName('CpCkPrice').AsFloat; + FCpCkPs:=FieldByName('CpCkPs').AsInteger; + end; + FBpMoney:=FBpQty*FBpPrice; + FCpYrMoney:=FCpRkQty*FCpYrPrice; + FCbHjCost:=FBpMoney+FCpYrMoney; + FCpCkMoney:=FCpCkQty*FCpCkPrice; + FLr:=FCpCkMoney-FCbHjCost; + if FCpCkPs<>0 then FMpLr:=FLr/FCpCkPs; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CbJdLr '); + if Trim(mvalue)<>'' then + begin + sql.Add(' Set '+FFieldName+'='''+Trim(mvalue)+''''); + end else + begin + sql.Add(' Set '+FFieldName+'=NULL'); + end; + sql.Add(' , BpMoney='+quotedstr(floattostr(FBpMoney))); + sql.Add(' , CpYrMoney='+quotedstr(floattostr(FCpYrMoney))); + sql.Add(' , CbHjCost='+quotedstr(floattostr(FCbHjCost))); + sql.Add(' , Lr='+quotedstr(floattostr(FLr))); + sql.Add(' , MpLr='+quotedstr(floattostr(FMpLr))); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where cbID='''+Trim(CDS_HZ.fieldbyname('cbID').AsString)+''''); + ExecSQL; + end; + with CDS_HZ do + begin + Edit; + FieldByName('BpMoney').Value:=FBpMoney; + FieldByName('CpYrMoney').Value:=FCpYrMoney; + FieldByName('CbHjCost').Value:=FCbHjCost; + FieldByName('Lr').Value:=FLr; + FieldByName('MpLr').Value:=FMpLr; + + Post; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmCbJdLr.v2NotePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_HZ 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 TfrmCbJdLr.v2Column9PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + edit; +// FieldByName('FactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; + FieldByName('RanChang').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +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..7c4060f --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm @@ -0,0 +1,351 @@ +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 = 431 + 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 + item + Kind = skSum + Column = v1Column11 + 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 + #25104#21697#37319#36141) + HeaderAlignmentHorz = taCenter + Width = 92 + 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.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column17: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 60 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Width = 60 + 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' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + 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 = 72 + end + object v1Column19: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Width = 74 + 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 = 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_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 ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 50 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 276 + 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..7aa74af --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas @@ -0,0 +1,847 @@ +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; + v1Column16: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column5: TcxGridDBColumn; + v1Column11: 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); + procedure ToolButton1Click(Sender: TObject); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + function YSData(Order_Main10:TClientDataSet):Boolean; + public + { Public declarations } + FBCId:String; + fckName:String; + end; + +var + frmDJBCKInPut: TfrmDJBCKInPut; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_ZdyAttachGYS,U_ProductOrderListSel, + U_ZdyAttachCP; + +{$R *.dfm} + + +function TfrmDJBCKInPut.YSData(Order_Main10:TClientDataSet):Boolean; +var + CRID,YFID,PriceUnit,OrderUnit,FComTaiTou,FromSubID,khName:String; + fprice,huilv:double; +begin + Result:=False; + fprice:=0; + huilv:=0; + PriceUnit:='RMB'; + khName:=''; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('update JYOrder_Sub SET Huilv=isnull((select Huilv from JYOrderCon_Sub X where X.SubId=JYOrder_Sub.SOrddefstr10),1) where Huilv=0'); + execsql; + end; + with Order_Main10 do + begin + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select A.*,fPrice=dbo.F_Get_Order_Price(A.MainID,A.subID),B.customerNoName'); + sql.Add(' from JYOrder_Sub A '); + sql.Add(' inner join JYOrder_main B on B.mainID=A.mainID '); + sql.Add(' Where subID='''+Trim(Order_Main10.fieldbyname('ORDSubIdRK').AsString)+''''); + Open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + PriceUnit:=Trim(ADOQueryTemp.fieldbyname('PriceUnit').AsString); + OrderUnit:=Trim(ADOQueryTemp.fieldbyname('OrderUnit').AsString); + fPrice:= ADOQueryTemp.fieldbyname('fPrice').AsFloat; + huilv:= ADOQueryTemp.fieldbyname('huilv').AsFloat; + khName:= ADOQueryTemp.fieldbyname('customerNoName').AsString; + end; + IF huilv=0 then huilv:=1; + CRID:='0'; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from YF_Money_CR '); + sql.Add(' where mainID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' and YFName=''ͻ˻'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'CS','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡƷӦʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(Order_Main10.fieldbyname('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(KHName); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CDS_Sub.fieldbyname('CRTime').AsDateTime)); + FieldByName('YFType').Value:='Զ'; + FieldByName('ps').Value:=-1*Order_Main10.fieldbyname('PiQty').AsFloat; + FieldByName('Qty').Value:=-1*Order_Main10.fieldbyname('Qty').AsFloat; + FieldByName('Price').Value:=fprice; + FieldByName('HuiLv').Value:=huilv; + FieldByName('BZType').Value:=Trim(PriceUnit); + // FieldByName('Money').Value:=-1*format('%.2f',[Order_Main10.fieldbyname('Qty').AsFloat*fprice]); + // FieldByName('BBMoney').Value:=-1*format('%.2f',[Order_Main10.fieldbyname('Qty').AsFloat*fprice*huilv]); + FieldByName('QtyUnit').Value:=Trim(Order_Main10.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value:=Trim(KHName); + FieldByName('YFName').Value:='ͻ˻'; + FieldByName('MainId').Value:=Trim(Order_Main10.fieldbyname('SPID').AsString); + FieldByName('subID').Value:=''; + FieldByName('OrderNO').Value:=Trim(Order_Main10.fieldbyname('OrderNO').AsString); + FieldByName('P_CodeName').Value:=Trim(Order_Main10.fieldbyname('SPName').AsString); + FieldByName('P_Spec').Value:=Trim(Order_Main10.fieldbyname('SPSpec').AsString); + FieldByName('P_color').Value:=Trim(Order_Main10.fieldbyname('SPColor').AsString); + FieldByName('status').Value:='0'; + Post; + end; + end + else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + + //Next; + end; + end; + Result:=True; +end; + +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)); + FieldByName('SPType').Value:='Ʒ'; + 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('delete from YF_Money_CR '); + sql.Add(' where mainID='''+Trim(Maxno)+''''); + sql.Add(' and YFName=''ͻ˻'' '); + execsql; + 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:=trim(fckName); + 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; + + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ͻ˻' then + begin + if not YSData(CDS_Sub) then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + exit; + end; + end; + + 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; + v1Column14.Options.Focusing:=False; + v2Column1.Options.Focusing:=False; + v1Column8.Options.Focusing:=False; + v1Column7.Options.Focusing:=False; + v1Column1.Options.Focusing:=False; + v1Column10.Options.Focusing:=False; + Exit; + end else + begin + v1Column4.Options.Focusing:=True; + //v1Column15.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; + 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('SPcolor',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 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 + 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('SPColor').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr3').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; + +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('SPColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').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); + FieldByName('SPHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').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; + +procedure TfrmDJBCKInPut.ToolButton1Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + OneKeyPost(Tv1,CDS_Sub); +end; + +procedure TfrmDJBCKInPut.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + fieldname:string; +begin + fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with CDS_Sub do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=TcxTextEdit(Sender).EditingText; + FieldByName('Money').Value:=strtofloat(format('%.2f',[FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat])); + Post; + end; + Tv1.Controller.EditingController.ShowEdit(); + +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.dfm new file mode 100644 index 0000000..17b6398 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.dfm @@ -0,0 +1,598 @@ +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 = 466 + Top = 136 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label1: TLabel + Left = 630 + Top = 152 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label2: TLabel + Left = 274 + Top = 140 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label9: TLabel + Left = 486 + Top = 12 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label10: TLabel + Left = 638 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label11: TLabel + Left = 766 + Top = 120 + Width = 24 + Height = 12 + Caption = #33394#21495 + end + object Label13: TLabel + Left = 486 + Top = 36 + Width = 48 + Height = 12 + Caption = #33457#22411#33457#21495 + end + object SPName: TEdit + Tag = 2 + Left = 226 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 226 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 80 + 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 = 80 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 515 + Top = 133 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 679 + Top = 149 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object KuWei: TEdit + Tag = 2 + Left = 322 + Top = 136 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 534 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object SPColor: TEdit + Tag = 2 + Left = 663 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object SOrddefstr1: TEdit + Tag = 2 + Left = 791 + Top = 116 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object PRTHX: TEdit + Tag = 2 + Left = 535 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1165 + Height = 380 + 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 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 v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#21495#33457#22411 + DataBinding.FieldName = 'SPHX' + 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 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' + HeaderAlignmentHorz = taCenter + 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..c32b791 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCList.pas @@ -0,0 +1,234 @@ +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; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: 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; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + Label2: TLabel; + KuWei: TEdit; + v1Column19: TcxGridDBColumn; + Label9: TLabel; + RCGangNo: TEdit; + Label10: TLabel; + SPColor: 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 + fckname:string; + { 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(A.CKName,'''')='''+trim(fckName)+''' '); + 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..13dc27b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.dfm @@ -0,0 +1,624 @@ +object frmDJBCKKCSelList: TfrmDJBCKKCSelList + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + 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 = 1366 + 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 = 1366 + Height = 64 + 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 = 458 + Top = 156 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label1: TLabel + Left = 458 + Top = 180 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label2: TLabel + Left = 674 + Top = 168 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label9: TLabel + Left = 490 + Top = 12 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label10: TLabel + Left = 490 + Top = 36 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + object Label11: TLabel + Left = 806 + Top = 176 + Width = 24 + Height = 12 + Caption = #33394#21495 + end + object Label13: TLabel + Left = 655 + Top = 12 + Width = 48 + Height = 12 + Caption = #33457#22411#33457#21495 + end + object SPName: TEdit + Tag = 2 + Left = 226 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 226 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 80 + 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 + #29616#36135#36716#22806#36152 + '' + '') + end + object SPCF: TEdit + Tag = 2 + Left = 378 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 507 + Top = 153 + Width = 108 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 507 + Top = 177 + Width = 108 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object KuWei: TEdit + Tag = 2 + Left = 722 + Top = 164 + Width = 65 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 538 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object SPColor: TEdit + Tag = 2 + Left = 538 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object SOrddefstr1: TEdit + Tag = 2 + Left = 823 + Top = 172 + Width = 65 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object SPHX: TEdit + Tag = 2 + Left = 703 + Top = 8 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1366 + Height = 619 + 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 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 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 = 92 + end + object v1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#21495#33457#22411 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + 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' + HeaderAlignmentHorz = taCenter + 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..98b1d14 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKKCSelList.pas @@ -0,0 +1,234 @@ +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; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: 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; + v1Column5: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + Label2: TLabel; + KuWei: TEdit; + v1Column19: TcxGridDBColumn; + Label9: TLabel; + RCGangNo: TEdit; + Label10: TLabel; + SPColor: TEdit; + Label11: TLabel; + SOrddefstr1: TEdit; + Label13: TLabel; + SPHX: 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 + fckName:string; + { 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,'''')='''+trim(fckName)+''' '); + 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..db8449d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.dfm @@ -0,0 +1,754 @@ +object frmDJBCKOutList: TfrmDJBCKOutList + Left = 81 + Top = 35 + Width = 1210 + Height = 583 + Caption = #24453#26816#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 = 1194 + 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 = 1194 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + 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 Label3: TLabel + Left = 332 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 468 + 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 = 332 + 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 = 736 + Top = 124 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 340 + Top = 108 + Width = 60 + Height = 12 + Caption = #26469#33258#35746#21333#21495 + end + object Label10: TLabel + Left = 340 + Top = 132 + Width = 60 + Height = 12 + Caption = #20986#21040#35746#21333#21495 + end + object Label11: TLabel + Left = 534 + Top = 96 + Width = 60 + Height = 12 + Caption = #26469#33258#21152#24037#21378 + end + object Label13: TLabel + Left = 534 + Top = 120 + Width = 60 + Height = 12 + Caption = #20986#21040#21152#24037#21378 + end + object Label9: TLabel + Left = 618 + Top = 12 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label14: TLabel + Left = 618 + Top = 36 + Width = 48 + Height = 12 + Caption = #26412#21378#32568#21495 + end + object Label15: TLabel + Left = 467 + Top = 36 + Width = 36 + Height = 12 + Caption = #39068' '#33394 + end + object Label16: TLabel + Left = 883 + Top = 96 + Width = 24 + Height = 12 + Caption = #33394#21495 + end + object Label17: TLabel + Left = 659 + Top = 148 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object Label18: TLabel + Left = 777 + Top = 12 + Width = 36 + Height = 12 + Caption = #25805#20316#21592 + end + object BegDate: TDateTimePicker + Left = 69 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 69 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 359 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 506 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object SPID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = TBFindClick + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 359 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + 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 = 774 + Top = 120 + Width = 60 + Height = 20 + TabOrder = 7 + OnChange = TBFindClick + end + object QCorderNo: TEdit + Tag = 2 + Left = 400 + Top = 105 + Width = 60 + Height = 20 + TabOrder = 8 + OnChange = TBFindClick + end + object CKorderNo: TEdit + Tag = 2 + Left = 400 + Top = 129 + Width = 60 + Height = 20 + TabOrder = 9 + OnChange = TBFindClick + end + object FromFactoryName: TEdit + Tag = 2 + Left = 594 + Top = 93 + Width = 60 + Height = 20 + TabOrder = 10 + OnChange = TBFindClick + end + object ToFactoryName: TEdit + Tag = 2 + Left = 594 + Top = 117 + Width = 60 + Height = 20 + TabOrder = 11 + OnChange = TBFindClick + end + object RCGangNo: TEdit + Tag = 2 + Left = 667 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = TBFindClick + end + object GangNo: TEdit + Tag = 2 + Left = 667 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 13 + OnChange = TBFindClick + end + object SPColor: TEdit + Tag = 2 + Left = 506 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 14 + OnChange = TBFindClick + end + object SOrddefstr1: TEdit + Tag = 2 + Left = 908 + Top = 93 + Width = 60 + Height = 20 + TabOrder = 15 + OnChange = TBFindClick + end + object SPHX: TEdit + Tag = 2 + Left = 684 + Top = 145 + Width = 60 + Height = 20 + TabOrder = 16 + OnChange = TBFindClick + end + object Filler: TEdit + Tag = 2 + Left = 814 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 17 + OnChange = TBFindClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1194 + Height = 448 + 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 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 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 v1Column19: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'SPHX' + 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 v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 79 + end + object v1Column22: TcxGridDBColumn + Caption = #25442#31639#31995#25968 + DataBinding.FieldName = 'XS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column23: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 972 + Top = 152 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1028 + Top = 152 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + Top = 152 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 916 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 152 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 944 + 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 = 396 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 508 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 480 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 452 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 344 + 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 = 368 + Top = 232 + ReportData = {} + end + object RMBarCodeObject1: TRMBarCodeObject + Left = 536 + Top = 232 + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas new file mode 100644 index 0000000..d3816a4 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas @@ -0,0 +1,500 @@ +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; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: 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; + SPColor: TEdit; + Label16: TLabel; + SOrddefstr1: TEdit; + Label17: TLabel; + SPHX: TEdit; + RM1: TRMGridReport; + RMBarCodeObject1: TRMBarCodeObject; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + Filler: TEdit; + Label18: 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 SPNameChange(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); + private + canshu1,canshu2:string; + procedure InitGrid(); + { Private declarations } + public + fckName:string; + { 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.* '); + 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 A.CRFlag='''' '); + SQL.Add(' and isnull(A.CKName,'''')='''+trim(fckName)+''' '); + + 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.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:=''; + fckName:=self.fckName; + 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; + fckName:=self.fckName; + 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.* '); + sql.Add(' from CK_SXPB_CR A'); + 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; + Edit; + FieldByName('SSel').Value:=False; + Post; + 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; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.dfm new file mode 100644 index 0000000..44b365c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.dfm @@ -0,0 +1,316 @@ +object frmDJBCKOutPut: TfrmDJBCKOutPut + Left = 78 + Top = 122 + Width = 1215 + Height = 502 + Align = alClient + Caption = #24453#26816#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 = 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_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 ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #19968#38190#26367#25442 + ImageIndex = 50 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 276 + 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 = ( + #26816#39564#20986#24211 + #21152#24037#20986#24211 + #22238#20462#20986#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + 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 v1Column19: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + 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 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 v1Column20: TcxGridDBColumn + Tag = 2 + Caption = #25442#31639#31995#25968 + DataBinding.FieldName = 'Xs' + HeaderAlignmentHorz = taCenter + Width = 60 + 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..33432e5 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutPut.pas @@ -0,0 +1,589 @@ +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; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + v1Column19: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column20: 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 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); + procedure ToolButton1Click(Sender: TObject); + private + { Private declarations } + function SaveCKData():Boolean; + public + { Public declarations } + FBCId:String; + fckName: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 + fckName:=self.fckName; + 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('SPType').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPType').Value; + FieldByName('SPName').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPName').Value; + FieldByName('SPSpec').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPSpec').Value; + FieldByName('SPColor').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPColor').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('SPHX').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPHX').Value; + // FieldByName('SPColor').Value:=frmDJBCKKCSelList.CDS_Main.fieldbyname('SPColor').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('CKName').Value:=fckName; + 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; + FieldByName('Xs').Value:=CDS_Sub.fieldbyname('Xs').AsFloat; + FieldByName('PiQty').Value:=CDS_Sub.fieldbyname('PiQty').AsFloat; + FieldByName('Qty').Value:=CDS_Sub.fieldbyname('Qty').AsFloat; + 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 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)+''''); + {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('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('SPColor').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; + +procedure TfrmDJBCKOutPut.ToolButton1Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then Exit; + OneKeyPost(Tv1,CDS_Sub); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.dfm new file mode 100644 index 0000000..7908490 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.dfm @@ -0,0 +1,671 @@ +object frmDJBRKHZList: TfrmDJBRKHZList + Left = -8 + Top = -8 + Width = 1378 + Height = 754 + 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 = 1362 + 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_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 TBMX: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26597#30475#26126#32454 + ImageIndex = 39 + OnClick = TBMXClick + end + object TBExport: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1362 + 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#26085#26399 + end + object Label2: TLabel + Left = 168 + Top = 12 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 498 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 319 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 258 + Top = 132 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 358 + Top = 120 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label6: TLabel + Left = 475 + Top = 120 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 561 + Top = 140 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 561 + Top = 116 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label10: TLabel + Left = 714 + Top = 140 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label11: TLabel + Left = 831 + Top = 144 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label13: TLabel + Left = 983 + Top = 144 + Width = 36 + Height = 12 + Caption = #39068' '#33394 + end + object Label15: TLabel + Left = 679 + Top = 12 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label16: TLabel + Left = 983 + Top = 168 + Width = 36 + Height = 12 + Caption = #25805#20316#21592 + end + object Label14: TLabel + Left = 1119 + Top = 144 + Width = 48 + Height = 12 + Caption = #30333#22383#32534#21495 + end + object Label17: TLabel + Left = 854 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 177 + Top = 9 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 525 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 356 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 308 + Top = 129 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 385 + Top = 116 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object SPCF: TEdit + Tag = 2 + Left = 512 + Top = 116 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 612 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 612 + Top = 113 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object KuWei: TEdit + Tag = 2 + Left = 766 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 882 + Top = 141 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object SPColor: TEdit + Tag = 2 + Left = 1020 + Top = 141 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object SPKZ1: TEdit + Tag = 2 + Left = 710 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + object Filler: TEdit + Tag = 2 + Left = 1020 + Top = 165 + Width = 80 + Height = 20 + TabOrder = 13 + OnChange = FactoryNameChange + end + object batchNo: TEdit + Tag = 2 + Left = 1172 + Top = 141 + Width = 80 + Height = 20 + TabOrder = 14 + OnChange = FactoryNameChange + end + object begTime: TDateTimePicker + Left = 167 + Top = 109 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 15 + end + object endTime: TDateTimePicker + Left = 167 + Top = 132 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 16 + end + object CRType: TComboBox + Tag = 2 + Left = 904 + Top = 8 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 17 + OnChange = TBFindClick + Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + #25104#21697#37319#36141 + #21360#33457#21152#24037#20837#24211 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 73 + Width = 1362 + Height = 643 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + 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 + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column21 + end + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column2: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 128 + end + object v1Column4: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + 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 = 143 + end + object v1Column13: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'C_CodeNameZW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + 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 v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #30721#21333#24635#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_PBMDDJ.FontBlue + Styles.Footer = DataLink_PBMDDJ.FontBlue + Styles.Header = DataLink_PBMDDJ.FontBlue + 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 = #32440#31649#37325#37327 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column21: TcxGridDBColumn + Caption = #26631#31614#24635#25968#37327 + DataBinding.FieldName = 'MJlen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_PBMDDJ.FoneRed + Styles.Footer = DataLink_PBMDDJ.FoneRed + Styles.Header = DataLink_PBMDDJ.FoneRed + Width = 82 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 856 + Top = 108 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 784 + Top = 116 + 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 = 372 + Top = 184 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + 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 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 = 740 + Top = 8 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 700 + Top = 8 + 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 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 924 + Top = 96 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.pas new file mode 100644 index 0000000..4073f83 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKHZList.pas @@ -0,0 +1,353 @@ +unit U_DJBRKHZList; + +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, BtnEdit; + +type + TfrmDJBRKHZList = 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; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + 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; + v2Column1: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + ToFactoryName: TEdit; + Label10: TLabel; + KuWei: TEdit; + Label11: TLabel; + RCGangNo: TEdit; + Label13: TLabel; + SPColor: TEdit; + Label15: TLabel; + SPKZ1: TEdit; + Filler: TEdit; + Label16: TLabel; + ADOQueryPrint: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + batchNo: TEdit; + Label14: TLabel; + begTime: TDateTimePicker; + endTime: TDateTimePicker; + v1Column21: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + CRType: TComboBox; + Label17: TLabel; + TBMX: 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 SPIDKeyPress(Sender: TObject; var Key: Char); + procedure SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure TBMXClick(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + canshu1,canshu2:string; + procedure InitGrid(); + Procedure PrintData(fMJID:string); + { Private declarations } + public + fckName:string; + { Public declarations } + end; + +var + frmDJBRKHZList: TfrmDJBRKHZList; + +implementation +uses + U_DataLink,U_RTFun,U_DJBCKInPut, U_DJBRKlist; + +{$R *.dfm} +Procedure TfrmDJBRKHZList.PrintData(fMJID:string); +var + fPrintFile:String; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(fMJID); + 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; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.*,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add(' from WFB_MJJY A') ; + SQL.Add(' where A.MJID='''+Trim(fMJID)+''''); + Open; + end; + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.DefaultCopies:=1; + RM2.PrintReport; + end + else + begin + Application.MessageBox(PChar('ûҵ'+trim(fPrintFile)),'ʾ',0); + end; +end; + +procedure TfrmDJBRKHZList.FormDestroy(Sender: TObject); +begin + frmDJBRKHZList:=nil; +end; + +procedure TfrmDJBRKHZList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmDJBRKHZList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmDJBRKHZList.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 + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered:=False; + sql.Clear; + sql.Add(' select factoryName,CRType,SPName,C_CodeNameZW,SPMF,SPKZ,QtyUnit,cast(SPKZ as varchar) as SPKZ1, sum(piQty) as piQty,sum(Qty) as Qty,sum(Qty1) as Qty1,sum(MJlen) as MJlen '); + sql.Add(' from( '); + sql.Add(' SELECT A.factoryName,A.CRType,A.SPName,A.SPMF,A.SPKZ,A.piQty,A.Qty,A.Qty1,A.QtyUnit '); + sql.Add(' ,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.SPName and Type=''CP'') '); + sql.Add(' ,MJLen=(select sum(MJlen) from WFB_MJJY X where X.APID=A.SPID ) '); + sql.Add(' from CK_SXPB_CR A'); + 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 isnull(CKName,'''')='''+trim(fckName)+''''); + SQL.Add(' and CRFlag='''' '); + sql.Add(' )AA group by factoryName,CRType,SPName,C_CodeNameZW,SPMF,SPKZ,QtyUnit '); + Open; + // ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmDJBRKHZList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmDJBRKHZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmDJBRKHZList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBRKHZList.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv1,'첼ֿ'); + InitGrid(); +end; + +procedure TfrmDJBRKHZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid2); +end; + +procedure TfrmDJBRKHZList.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 TfrmDJBRKHZList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmDJBRKHZList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmDJBRKHZList.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 TfrmDJBRKHZList.SPIDChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBRKHZList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBRKHZList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBRKHZList.TBMXClick(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmDJBRKList:=TfrmDJBRKList.Create(self); + with frmDJBRKList do + begin + fckName:=self.fckName; + TBadd.Visible:=false; + TBedit.Visible:=false; + TBdel.Visible:=false; + TBTSedit.Visible:=false; + begdate.DateTime:=self.BegDate.DateTime; + enddate.DateTime:=self.EndDate.DateTime; + factoryName.Text:=self.CDS_Main.fieldbyName('factoryname').AsString; + CRType.ItemIndex:=CRType.Items.IndexOf(self.CDS_Main.fieldbyName('CRType').AsString); + SPName.Text:=self.CDS_Main.fieldbyName('SPName').AsString; + SPKZ1.Text:=self.CDS_Main.fieldbyName('SPKZ1').AsString; + + show; + end; + +end; + +procedure TfrmDJBRKHZList.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + TBMX.Click; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm new file mode 100644 index 0000000..ad3a15d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm @@ -0,0 +1,1058 @@ +object frmDJBRKList: TfrmDJBRKList + Left = -8 + Top = 0 + Width = 1378 + Height = 754 + 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 + WindowState = wsMaximized + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1362 + 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 = #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 TBTSedit: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #29305#27530#20462#25913 + ImageIndex = 11 + OnClick = TBTSeditClick + end + object TBPrint: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25171#21360#26816#39564#25351#31034#21333 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBPrint1: TToolButton + Left = 525 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 4 + OnClick = TBPrint1Click + end + object TBExport: TToolButton + Left = 612 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 675 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1362 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#26085#26399 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 342 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 459 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 202 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 342 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label6: TLabel + Left = 459 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 561 + Top = 140 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 561 + Top = 116 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label12: TLabel + Left = 202 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label10: TLabel + Left = 714 + Top = 140 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label11: TLabel + Left = 603 + Top = 12 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label13: TLabel + Left = 755 + Top = 12 + Width = 36 + Height = 12 + Caption = #39068' '#33394 + end + object Label15: TLabel + Left = 603 + Top = 36 + Width = 48 + Height = 12 + Caption = #33457' '#22411 + end + object Label16: TLabel + Left = 755 + Top = 36 + Width = 36 + Height = 12 + Caption = #25805#20316#21592 + end + object Label14: TLabel + Left = 883 + Top = 12 + Width = 48 + Height = 12 + Caption = #30333#22383#32534#21495 + end + object Label20: TLabel + Left = 883 + Top = 37 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#31867#22411 + end + object Label21: TLabel + Left = 1047 + Top = 12 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label22: TLabel + Left = 1047 + Top = 36 + Width = 48 + Height = 12 + Caption = #20013#25991#21697#21517 + end + object Label23: TLabel + Left = 1199 + Top = 12 + Width = 24 + Height = 12 + Caption = #22791#27880 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 369 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 496 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 252 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 369 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object SPCF: TEdit + Tag = 2 + Left = 496 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 612 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 612 + Top = 113 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object CRType: TComboBox + Tag = 2 + Left = 252 + 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 + #25104#21697#37319#36141 + #21360#33457#21152#24037#20837#24211 + #22797#21512#21378#21152#24037#20837#24211 + #21050#27611#21378#21152#24037#20837#24211 + '') + end + object KuWei: TEdit + Tag = 2 + Left = 766 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 654 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object SPColor: TEdit + Tag = 2 + Left = 792 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + object SPHX: TEdit + Tag = 2 + Left = 654 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 13 + OnChange = FactoryNameChange + end + object Filler: TEdit + Tag = 2 + Left = 792 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 14 + OnChange = FactoryNameChange + end + object batchNo: TEdit + Tag = 2 + Left = 944 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 15 + OnChange = FactoryNameChange + end + object begTime: TDateTimePicker + Left = 167 + Top = 109 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 16 + end + object endTime: TDateTimePicker + Left = 167 + Top = 132 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 17 + end + object GYSType: TComboBox + Tag = 1 + Left = 944 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 18 + OnChange = FactoryNameChange + Items.Strings = ( + '' + #22383#24067#21378 + #21152#24037#21378 + #22806#36141#25104#21697#21378 + #21360#26579#21378 + #21360#33457#21378 + #22797#21512#21378 + #33014#21360#21378 + #21050#27611#21378) + end + object SPKZ1: TEdit + Tag = 2 + Left = 1096 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 19 + OnChange = FactoryNameChange + end + object C_CodeNameZW: TEdit + Tag = 2 + Left = 1096 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 20 + OnChange = FactoryNameChange + end + object note: TEdit + Tag = 2 + Left = 1224 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 21 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1362 + Height = 619 + 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 + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column21 + 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 v1Column24: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSEL' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26085#26399 + 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 = #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 + Options.Editing = False + Width = 83 + 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 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 = 101 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column19: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + 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 = #30721#21333#24635#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_PBMDDJ.FontBlue + Styles.Footer = DataLink_PBMDDJ.FontBlue + Styles.Header = DataLink_PBMDDJ.FontBlue + 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 v1Column20: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'C_CodeNameZW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #30333#22383#32534#21495 + DataBinding.FieldName = 'batchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column21: TcxGridDBColumn + Caption = #26631#31614#24635#25968#37327 + DataBinding.FieldName = 'MJlen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_PBMDDJ.FoneRed + Styles.Footer = DataLink_PBMDDJ.FoneRed + Styles.Header = DataLink_PBMDDJ.FoneRed + Width = 60 + end + object v1Column22: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object v1Column23: TcxGridDBColumn + Caption = #20379#24212#21830#31867#22411 + DataBinding.FieldName = 'GYSType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column12: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel5: TPanel + Left = 376 + Top = 184 + Width = 453 + Height = 209 + Color = clSkyBlue + TabOrder = 3 + Visible = False + object Label28: TLabel + Left = 12 + Top = 24 + Width = 48 + Height = 12 + Caption = #21152' '#24037' '#21378 + end + object Label17: TLabel + Left = 12 + Top = 52 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label18: TLabel + Left = 12 + Top = 80 + Width = 48 + Height = 12 + Caption = #30333#22383#32534#21495 + end + object Label19: TLabel + Left = 12 + Top = 108 + Width = 48 + Height = 12 + Caption = #32568' '#21495 + end + object Label24: TLabel + Left = 12 + Top = 140 + Width = 48 + Height = 12 + Caption = #22791' '#27880 + end + object Button5: TButton + Left = 336 + Top = 8 + Width = 90 + Height = 25 + Caption = #20462#25913#21152#24037#21378 + TabOrder = 0 + OnClick = Button5Click + end + object Button6: TButton + Left = 336 + Top = 180 + Width = 90 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button6Click + end + object factoryName1: TBtnEditA + Left = 64 + Top = 20 + Width = 185 + Height = 20 + TabOrder = 2 + OnBtnClick = factoryName1BtnClick + end + object Com_CRype: TComboBox + Left = 64 + Top = 48 + Width = 185 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + #25104#21697#37319#36141 + #21360#33457#21152#24037#20837#24211 + #22797#21512#21378#21152#24037#20837#24211 + #21050#27611#21378#21152#24037#20837#24211) + end + object Button1: TButton + Left = 336 + Top = 40 + Width = 90 + Height = 25 + Caption = #20462#25913#20837#24211#31867#22411 + TabOrder = 4 + OnClick = Button1Click + end + object edit_batchNo: TEdit + Left = 64 + Top = 76 + Width = 185 + Height = 20 + TabOrder = 5 + end + object edit_gangNo: TEdit + Left = 64 + Top = 104 + Width = 185 + Height = 20 + TabOrder = 6 + end + object Button2: TButton + Left = 336 + Top = 72 + Width = 90 + Height = 25 + Caption = #20462#25913#30333#22383#32534#21495 + TabOrder = 7 + OnClick = Button2Click + end + object Button3: TButton + Left = 336 + Top = 104 + Width = 90 + Height = 25 + Caption = #20462#25913#32568#21495 + TabOrder = 8 + OnClick = Button3Click + end + object edit_note: TEdit + Left = 64 + Top = 136 + Width = 185 + Height = 20 + TabOrder = 9 + end + object Button4: TButton + Left = 336 + Top = 136 + Width = 90 + Height = 25 + Caption = #20462#25913#22791#27880 + TabOrder = 10 + OnClick = Button4Click + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 584 + Top = 36 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 544 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 36 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 600 + Top = 388 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 568 + Top = 388 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 536 + Top = 388 + 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 = 324 + Top = 144 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 300 + Top = 192 + 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 = 288 + Top = 240 + 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 = 740 + Top = 8 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 700 + Top = 8 + 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 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 620 + Top = 36 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas new file mode 100644 index 0000000..dcb76d0 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas @@ -0,0 +1,784 @@ +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, BtnEdit; + +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; + 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; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + ToFactoryName: TEdit; + Label12: TLabel; + CRType: TComboBox; + Label10: TLabel; + KuWei: TEdit; + v1Column19: TcxGridDBColumn; + Label11: TLabel; + RCGangNo: TEdit; + Label13: TLabel; + SPColor: TEdit; + Label15: TLabel; + SPHX: TEdit; + v1Column20: TcxGridDBColumn; + Filler: TEdit; + Label16: TLabel; + v1Column24: TcxGridDBColumn; + TBPrint: TToolButton; + ADOQueryPrint: TADOQuery; + v1Column5: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + TBPrint1: TToolButton; + v1Column13: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + batchNo: TEdit; + Label14: TLabel; + begTime: TDateTimePicker; + endTime: TDateTimePicker; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + Panel5: TPanel; + Label28: TLabel; + Button5: TButton; + Button6: TButton; + factoryName1: TBtnEditA; + TBTSedit: TToolButton; + Label17: TLabel; + Com_CRype: TComboBox; + Button1: TButton; + Label18: TLabel; + edit_batchNo: TEdit; + edit_gangNo: TEdit; + Label19: TLabel; + Button2: TButton; + Button3: TButton; + GYSType: TComboBox; + Label20: TLabel; + v1Column23: TcxGridDBColumn; + SPKZ1: TEdit; + Label21: TLabel; + C_CodeNameZW: TEdit; + Label22: TLabel; + v1Column12: TcxGridDBColumn; + note: TEdit; + Label23: TLabel; + edit_note: TEdit; + Label24: TLabel; + Button4: TButton; + 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 TBPrintClick(Sender: TObject); + procedure TBPrint1Click(Sender: TObject); + procedure factoryName1BtnClick(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure TBTSeditClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + private + canshu1,canshu2:string; + procedure InitGrid(); + Procedure PrintData(fMJID:string); + { Private declarations } + public + fckName:string; + { Public declarations } + end; + +var + frmDJBRKList: TfrmDJBRKList; + +implementation +uses + U_DataLink,U_RTFun,U_DJBCKInPut, U_DJBRK_Edit, U_ZdyAttachGYS; + +{$R *.dfm} +Procedure TfrmDJBRKList.PrintData(fMJID:string); +var + fPrintFile:String; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(fMJID); + 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; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.*,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add(',factoryNameJZ=(select Top 1 zdyNameZ from KH_Zdy_Attachment X where X.ZdyName=A.factoryName and Type=''GYS'') '); + sql.Add(' from WFB_MJJY A') ; + SQL.Add(' where A.MJID='''+Trim(fMJID)+''''); + Open; + end; + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.DefaultCopies:=1; + RM2.PrintReport; + end + else + begin + Application.MessageBox(PChar('ûҵ'+trim(fPrintFile)),'ʾ',0); + end; +end; + +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:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmDJBRKList.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 + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered:=False; + sql.Clear; + sql.Add(' select A.*,cast(spkz as varchar) as spkz1 '); + sql.Add(' ,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.SPName and Type=''CP'') '); + sql.Add(' ,GYSType=(select Top 1 defstr5 from KH_Zdy_Attachment X where X.zdyName=A.FactoryName and Type=''GYS'') '); + sql.Add(' ,MJLen=(select sum(MJlen) from WFB_MJJY X where X.APID=A.SPID ) '); + sql.Add(' from CK_SXPB_CR A'); + 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 isnull(CKName,'''')='''+trim(fckName)+''''); + SQL.Add(' and CRFlag='''' '); + Open; + // ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + tbfind.Click; + 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; + TBtsedit.Visible:=false; + end else + begin + TBAdd.Visible:=True; + TBDel.Visible:=True; + TBEdit.Visible:=True; + TBtsedit.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; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select APID from CK_BanCP_CR where isnull(APID,'''')='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ⲻɾ!','ʾ',0); + Exit; + end; +{ 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('delete from WFB_MJJY where not exists(select SPID from CK_SXPB_CR X where X.SPID=WFB_MJJY.APID)'); + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ͻ˻' then + begin + sql.Add('delete from YF_Money_CR '); + sql.Add(' where mainID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + end; + ExecSQL; + end; + + + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + +end; + +procedure TfrmDJBRKList.TBAddClick(Sender: TObject); +begin + { try + frmDJBCKInPut:=TfrmDJBCKInPut.Create(Application); + with frmDJBCKInPut do + begin + FBCId:=''; + fckName:=self.fckName; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmDJBCKInPut.Free; + end;} + try + frmDJBRK_Edit:=TfrmDJBRK_Edit.Create(Application); + with frmDJBRK_Edit do + begin + fkeyNo:=''; + fckName:=self.fckName; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmDJBRK_Edit.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; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select APID from CK_BanCP_CR where isnull(APID,'''')='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + Open; + end; + if not ADOQueryTemp.IsEmpty 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; + fckName:=self.fckName; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmDJBCKInPut.Free; + end; } + try + frmDJBRK_Edit:=TfrmDJBRK_Edit.Create(Application); + with frmDJBRK_Edit do + begin + fkeyNo:=Trim(self.CDS_Main.fieldbyname('SPID').AsString); + fckName:=self.fckName; + TBDel.Visible:=False; + TBAdd.Visible:=False; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmDJBRK_Edit.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; + +procedure TfrmDJBRKList.TBPrintClick(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.* '); + sql.Add(' from CK_SXPB_CR A'); + sql.Add(' where A.SPId='''+Trim(CDS_Main.fieldbyname('SPId').AsString)+''''); + Open; + end; + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.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; + Edit; + FieldByName('SSel').Value:=False; + Post; + end; + end; + CDS_Main.EnableControls; + + +end; + +procedure TfrmDJBRKList.TBPrint1Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select MJID from WFB_MJJY'); + sql.Add('where APID='''+trim(CDS_Main.fieldbyName('SPID').AsString)+''' '); + open; + end; + IF ADOQueryTemp.IsEmpty then exit; + while not ADOQueryTemp.Eof do + begin + sleep(200); + Printdata(ADOQueryTemp.fieldbyName('MJID').AsString); + ADOQueryTemp.next; + end; +end; + +procedure TfrmDJBRKList.factoryName1BtnClick(Sender: TObject); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + factoryName1.Text:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmDJBRKList.Button6Click(Sender: TObject); +begin + Panel5.Visible:=false; +end; + +procedure TfrmDJBRKList.Button5Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + IF trim(factoryName1.Text)='' 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 CK_SXPB_CR SET factoryName='''+trim(factoryName1.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update WFB_MJJY SET factoryName='''+trim(factoryName1.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Panel5.Visible:=false; + except + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmDJBRKList.TBTSeditClick(Sender: TObject); +begin + factoryName1.Text:=''; + Com_CRype.Text:=''; + edit_batchNo.Text:=''; + edit_gangNo.Text:=''; + edit_note.Text:=''; + Panel5.Left:=(self.Width-Panel5.Width) div 2; + Panel5.Visible:=true; +end; + +procedure TfrmDJBRKList.Button1Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + IF trim(Com_CRype.Text)='' 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 CK_SXPB_CR SET CRType='''+trim(Com_CRype.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Panel5.Visible:=false; + except + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmDJBRKList.Button2Click(Sender: TObject); +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 CK_SXPB_CR SET batchNo='''+trim(edit_batchNo.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update WFB_MJJY SET batchNo='''+trim(edit_batchNo.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update CK_BanCP_CR SET batchNo='''+trim(edit_batchNo.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update CK_BanCP_KC SET batchNo='''+trim(edit_batchNo.Text)+''' '); + sql.Add('from CK_BanCP_KC A '); + sql.Add('inner join CK_BanCP_CR B on B.BCID=A.BCID '); + sql.Add('where B.APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''' '); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Panel5.Visible:=false; + except + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmDJBRKList.Button3Click(Sender: TObject); +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 CK_SXPB_CR SET RCGangNo='''+trim(edit_gangNo.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update WFB_MJJY SET RCGangNo='''+trim(edit_gangNo.Text)+''',BCGangNo='''+trim(edit_gangNo.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update CK_BanCP_CR SET RCGangNo='''+trim(edit_gangNo.Text)+''',BCGangNo='''+trim(edit_gangNo.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update CK_BanCP_KC SET RCGangNo='''+trim(edit_gangNo.Text)+''',BCGangNo='''+trim(edit_gangNo.Text)+''' '); + sql.Add('from CK_BanCP_KC A '); + sql.Add('inner join CK_BanCP_CR B on B.BCID=A.BCID '); + sql.Add('where B.APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''' '); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Panel5.Visible:=false; + except + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmDJBRKList.Button4Click(Sender: TObject); +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 CK_SXPB_CR SET note='''+trim(edit_note.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + ExecSQL; + end; + Application.MessageBox('ɹ!','ʾ',0); + Panel5.Visible:=false; + except + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.dfm new file mode 100644 index 0000000..95ef48b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.dfm @@ -0,0 +1,865 @@ +object frmDJBRKListSel: TfrmDJBRKListSel + Left = 150 + Top = 108 + Width = 1378 + Height = 754 + Caption = #24453#26816#24067#20837#24211#36873#25321#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 = 1362 + 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 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 = 1362 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#26085#26399 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 342 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 459 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 202 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 342 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label6: TLabel + Left = 459 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 561 + Top = 140 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 561 + Top = 116 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label12: TLabel + Left = 202 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label10: TLabel + Left = 714 + Top = 140 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label11: TLabel + Left = 603 + Top = 12 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label13: TLabel + Left = 755 + Top = 12 + Width = 36 + Height = 12 + Caption = #39068' '#33394 + end + object Label15: TLabel + Left = 603 + Top = 36 + Width = 48 + Height = 12 + Caption = #33457' '#22411 + end + object Label16: TLabel + Left = 755 + Top = 36 + Width = 36 + Height = 12 + Caption = #25805#20316#21592 + end + object Label14: TLabel + Left = 883 + Top = 12 + Width = 48 + Height = 12 + Caption = #30333#22383#32534#21495 + end + object Label20: TLabel + Left = 883 + Top = 37 + Width = 60 + Height = 12 + Caption = #20379#24212#21830#31867#22411 + end + object Label21: TLabel + Left = 1047 + Top = 12 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 369 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 496 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 252 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 369 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object SPCF: TEdit + Tag = 2 + Left = 496 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 612 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 612 + Top = 113 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object CRType: TComboBox + Tag = 2 + Left = 252 + 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 + #25104#21697#37319#36141 + #21360#33457#21152#24037#20837#24211 + #22797#21512#21378#21152#24037#20837#24211 + #21050#27611#21378#21152#24037#20837#24211 + '') + end + object KuWei: TEdit + Tag = 2 + Left = 766 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 654 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object SPColor: TEdit + Tag = 2 + Left = 792 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + object SPHX: TEdit + Tag = 2 + Left = 654 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 13 + OnChange = FactoryNameChange + end + object Filler: TEdit + Tag = 2 + Left = 792 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 14 + OnChange = FactoryNameChange + end + object batchNo: TEdit + Tag = 2 + Left = 944 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 15 + OnChange = FactoryNameChange + end + object begTime: TDateTimePicker + Left = 167 + Top = 109 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 16 + end + object endTime: TDateTimePicker + Left = 167 + Top = 132 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 17 + end + object GYSType: TComboBox + Tag = 1 + Left = 944 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 18 + OnChange = FactoryNameChange + Items.Strings = ( + '' + #22383#24067#21378 + #21152#24037#21378 + #22806#36141#25104#21697#21378 + #21360#26579#21378 + #21360#33457#21378 + #22797#21512#21378 + #33014#21360#21378 + #21050#27611#21378) + end + object SPKZ1: TEdit + Tag = 2 + Left = 1072 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 19 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1362 + Height = 619 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + 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 + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column21 + end + item + Kind = skSum + Column = v1Column25 + end + item + Kind = skSum + Column = v1Column26 + 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 v1Column24: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSEL' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26085#26399 + 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 = #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 + Options.Editing = False + Width = 83 + 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 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 = 101 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column19: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + 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 = #30721#21333#24635#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_PBMDDJ.FontBlue + Styles.Footer = DataLink_PBMDDJ.FontBlue + Styles.Header = DataLink_PBMDDJ.FontBlue + 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' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column20: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'C_CodeNameZW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #32440#31649#37325#37327 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #30333#22383#32534#21495 + DataBinding.FieldName = 'batchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column21: TcxGridDBColumn + Caption = #26631#31614#24635#25968#37327 + DataBinding.FieldName = 'MJlen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_PBMDDJ.FoneRed + Styles.Footer = DataLink_PBMDDJ.FoneRed + Styles.Header = DataLink_PBMDDJ.FoneRed + Width = 71 + end + object v1Column22: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object v1Column23: TcxGridDBColumn + Caption = #20379#24212#21830#31867#22411 + DataBinding.FieldName = 'GYSType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column25: TcxGridDBColumn + Caption = #30333#22383#21305#25968 + DataBinding.FieldName = 'TPPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column26: TcxGridDBColumn + Caption = #30333#22383#25968#37327 + DataBinding.FieldName = 'TPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 584 + Top = 36 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 544 + Top = 40 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 656 + Top = 36 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 600 + Top = 388 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 568 + Top = 388 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 536 + Top = 388 + 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 = 372 + Top = 184 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 300 + Top = 192 + 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 = 288 + Top = 240 + 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 = 740 + Top = 8 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 700 + Top = 8 + 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 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 620 + Top = 36 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.pas new file mode 100644 index 0000000..c02026e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKListSel.pas @@ -0,0 +1,354 @@ +unit U_DJBRKListSel; + +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, BtnEdit; + +type + TfrmDJBRKListSel = 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; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + 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; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + ToFactoryName: TEdit; + Label12: TLabel; + CRType: TComboBox; + Label10: TLabel; + KuWei: TEdit; + v1Column19: TcxGridDBColumn; + Label11: TLabel; + RCGangNo: TEdit; + Label13: TLabel; + SPColor: TEdit; + Label15: TLabel; + SPHX: TEdit; + v1Column20: TcxGridDBColumn; + Filler: TEdit; + Label16: TLabel; + v1Column24: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + v1Column5: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + batchNo: TEdit; + Label14: TLabel; + begTime: TDateTimePicker; + endTime: TDateTimePicker; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + GYSType: TComboBox; + Label20: TLabel; + v1Column23: TcxGridDBColumn; + SPKZ1: TEdit; + Label21: TLabel; + v1Column25: TcxGridDBColumn; + v1Column26: 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 SPIDKeyPress(Sender: TObject; var Key: Char); + procedure SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + private + canshu1,canshu2:string; + procedure InitGrid(); + Procedure PrintData(fMJID:string); + { Private declarations } + public + fckName:string; + { Public declarations } + end; + +var + frmDJBRKListSel: TfrmDJBRKListSel; + +implementation +uses + U_DataLink,U_RTFun,U_DJBCKInPut, U_DJBRK_Edit, U_ZdyAttachGYS; + +{$R *.dfm} +Procedure TfrmDJBRKListSel.PrintData(fMJID:string); +var + fPrintFile:String; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(fMJID); + 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; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.*,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add(' from WFB_MJJY A') ; + SQL.Add(' where A.MJID='''+Trim(fMJID)+''''); + Open; + end; + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.DefaultCopies:=1; + RM2.PrintReport; + end + else + begin + Application.MessageBox(PChar('ûҵ'+trim(fPrintFile)),'ʾ',0); + end; +end; + +procedure TfrmDJBRKListSel.FormDestroy(Sender: TObject); +begin + frmDJBRKListSel:=nil; +end; + +procedure TfrmDJBRKListSel.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure TfrmDJBRKListSel.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmDJBRKListSel.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 + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered:=False; + sql.Clear; + sql.Add(' select A.*,cast(spkz as varchar) as spkz1 '); + sql.Add(' ,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.SPName and Type=''CP'') '); + sql.Add(' ,GYSType=(select Top 1 defstr5 from KH_Zdy_Attachment X where X.zdyName=A.FactoryName and Type=''GYS'') '); + sql.Add(' ,MJLen=(select sum(MJlen) from WFB_MJJY X where X.APID=A.SPID ) '); + sql.Add(' ,TpPS=(select sum(TPPS) from [guoyundata].dbo.XH_Cloth_TP X where X.gangNo=A.RcGangNo and X.DQfactoryName=A.factoryName )'); + sql.Add(' ,TPQty=(select sum(TPQty) from [guoyundata].dbo.XH_Cloth_TP X where X.gangNo=A.RcGangNo and X.DQfactoryName=A.factoryName)'); + sql.Add(' ,TpUnit=(select top 1 TPUnit from [guoyundata].dbo.XH_Cloth_TP X where X.gangNo=A.RcGangNo and X.DQfactoryName=A.factoryName)'); + sql.Add(' from CK_SXPB_CR A'); + 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 isnull(CKName,'''')=''Ųֿ'''); + sql.Add(' and not exists (select * from CbJdLr X where X.SPID=A.SPID)'); + SQL.Add(' and CRFlag='''' '); + Open; + // ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + tbfind.Click; + end; +end; + +procedure TfrmDJBRKListSel.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmDJBRKListSel.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmDJBRKListSel.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption),Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBRKListSel.FormShow(Sender: TObject); +begin + + ReadCxGrid(trim(self.Caption),Tv1,'첼ֿ'); + InitGrid(); +end; + +procedure TfrmDJBRKListSel.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('첼б',cxGrid2); +end; + +procedure TfrmDJBRKListSel.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 TfrmDJBRKListSel.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmDJBRKListSel.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmDJBRKListSel.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 TfrmDJBRKListSel.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text))<4 then + begin + if Trim(SPID.Text)<>'' then Exit; + end; + TBFind.Click; +end; + +procedure TfrmDJBRKListSel.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmDJBRKListSel.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + + +procedure TfrmDJBRKListSel.Tv1DblClick(Sender: TObject); +begin + ModalResult:=1; +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.dfm new file mode 100644 index 0000000..66c1588 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.dfm @@ -0,0 +1,725 @@ +object frmDJBRK_Edit: TfrmDJBRK_Edit + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Align = alClient + Caption = #22238#20179#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 + 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_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 TBPrint: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + Enabled = False + ImageIndex = 4 + OnClick = TBPrintClick + 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 = 33 + Width = 1366 + Height = 56 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 36 + Top = 20 + Width = 48 + Height = 12 + Caption = #20837#24211#26085#26399 + end + object Label8: TLabel + Left = 116 + Top = 120 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label2: TLabel + Left = 232 + Top = 20 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label4: TLabel + Left = 452 + Top = 20 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + 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 InoutNo: TEdit + Left = 164 + Top = 116 + Width = 100 + Height = 20 + TabOrder = 1 + end + object CRType: TComboBox + Left = 284 + Top = 16 + Width = 117 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + #25104#21697#37319#36141 + #21360#33457#21152#24037#20837#24211 + #22797#21512#21378#21152#24037#20837#24211 + #21050#27611#21378#21152#24037#20837#24211) + end + object FactoryName: TBtnEditA + Left = 492 + Top = 16 + Width = 213 + Height = 20 + ReadOnly = True + TabOrder = 3 + OnBtnClick = FactoryNameBtnClick + end + object Panel3: TPanel + Left = 1008 + Top = 2 + Width = 356 + Height = 52 + Align = alRight + BevelOuter = bvNone + Color = clSkyBlue + TabOrder = 4 + object Label3: TLabel + Left = 64 + Top = 12 + Width = 44 + Height = 21 + Caption = #25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 200 + Top = 16 + Width = 24 + Height = 12 + Caption = #32440#31649 + end + object QtyMX: TEdit + Left = 115 + Top = 10 + Width = 65 + Height = 22 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = QtyMXKeyPress + end + object QtyFJ: TEdit + Left = 228 + Top = 10 + Width = 65 + Height = 22 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end + end + object Panel2: TPanel + Left = 0 + Top = 118 + Width = 1366 + Height = 475 + Align = alTop + Caption = 'Panel2' + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 1072 + Height = 473 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + DataController.DataSource = DataSource3 + 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 + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + 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 = 80 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #30333#22383#32534#21495 + DataBinding.FieldName = 'batchNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = v2Column1PropertiesButtonClick + Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column15: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column15PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column4: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'C_CodeNameZW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Width = 53 + 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 = #24635#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'KG' + 'M') + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column19: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Width = 59 + 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 GroupBox1: TGroupBox + Left = 1073 + Top = 1 + Width = 292 + Height = 473 + Align = alRight + Caption = #22238#20179#26126#32454#20449#24687'('#21452#20987#21024#38500#26126#32454#20449#24687')' + TabOrder = 1 + object cxGrid1: TcxGrid + Left = 2 + Top = 14 + Width = 288 + Height = 457 + Align = alClient + TabOrder = 0 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DSMX + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v2Column2 + end + item + Format = #20849' 0 '#21367 + Kind = skCount + Column = v2Column3 + end + item + Kind = skSum + Column = v2Column4 + 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.Header = DataLink_PBMDDJ.Default + object v2Column3: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJqty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column2: TcxGridDBColumn + Caption = #26631#31614#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 89 + Width = 1366 + 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 = DataLink_PBMDDJ.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 3 + object TBADD: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 12 + OnClick = TBADDClick + end + object TBdel: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 13 + OnClick = TBDelClick + end + end + object DataSource3: TDataSource + DataSet = CDS_Main + Left = 504 + Top = 136 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 460 + Top = 172 + 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 + object ADOMX: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 892 + Top = 190 + end + object CDS_MX: TClientDataSet + Aggregates = <> + Params = <> + Left = 848 + Top = 246 + end + object DSMX: TDataSource + DataSet = CDS_MX + Left = 868 + Top = 310 + 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 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 616 + Top = 4 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 692 + Top = 4 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 652 + Top = 4 + end + object ThreeColorBase: TcxStyleRepository + Left = 327 + Top = 72 + 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 = -16 + 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_DJBRK_Edit.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.pas new file mode 100644 index 0000000..d2f3a85 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRK_Edit.pas @@ -0,0 +1,940 @@ +unit U_DJBRK_Edit; + +interface + +uses + Windows, Messages, SysUtils,strutils, 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, StdCtrls, ExtCtrls, BtnEdit, RM_Dataset, RM_System, + RM_Common, RM_Class, RM_GridReport; + +type + TfrmDJBRK_Edit = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + DataSource3: TDataSource; + CDS_Main: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + Panel1: TPanel; + Panel2: TPanel; + GroupBox1: TGroupBox; + CRTime: TDateTimePicker; + Label1: TLabel; + Label8: TLabel; + InoutNo: TEdit; + Label2: TLabel; + CRType: TComboBox; + Label4: TLabel; + FactoryName: TBtnEditA; + ToolBar2: TToolBar; + TBADD: TToolButton; + TBdel: TToolButton; + v1Column2: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column3: TcxGridDBColumn; + ADOMX: TADOQuery; + CDS_MX: TClientDataSet; + DSMX: TDataSource; + Panel3: TPanel; + Label3: TLabel; + QtyMX: TEdit; + TBPrint: TToolButton; + RM2: TRMGridReport; + RMDB_Main: TRMDBDataSet; + ADOQueryPrint: TADOQuery; + v1Column4: TcxGridDBColumn; + Label5: TLabel; + QtyFJ: TEdit; + v2Column4: 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; + SHuangSeCu: TcxStyle; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FactoryNameBtnClick(Sender: TObject); + procedure TBADDClick(Sender: TObject); + procedure QtyMXKeyPress(Sender: TObject; var Key: Char); + procedure TBPrintClick(Sender: TObject); + procedure Tv1CellClick(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 TBdelClick(Sender: TObject); + procedure v2Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1Column15PropertiesEditValueChanged(Sender: TObject); + procedure v1Column2PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + function SaveData():Boolean; + function YSData(Order_Main10:TClientDataSet):Boolean; + Procedure InitGrid(); + Procedure initMJID(); + Procedure PrintData(fMJID:string); + public + { Public declarations } + fkeyNo:String; + fckName:String; + end; +var + frmDJBRK_Edit: TfrmDJBRK_Edit; + +implementation +uses + U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_ZdyAttachGYS,U_ProductOrderListSel, + U_ZdyAttachCP; + +{$R *.dfm} +Procedure TfrmDJBRK_Edit.PrintData(fMJID:string); +var + fPrintFile:String; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(fMJID); + 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; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.*,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add(',factoryNameJZ=(select Top 1 zdyNameZ from KH_Zdy_Attachment X where X.ZdyName=A.factoryName and Type=''GYS'') '); + sql.Add(' from WFB_MJJY A') ; + SQL.Add(' where A.MJID='''+Trim(fMJID)+''''); + Open; + end; + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.DefaultCopies:=1; + RM2.PrintReport; + end + else + begin + Application.MessageBox(PChar('ûҵ'+trim(fPrintFile)),'ʾ',0); + end; +end; +Procedure TfrmDJBRK_Edit.initMJID(); +begin + try + with ADOMX do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY A'); + sql.Add('where APID='+quotedstr(trim(CDS_Main.fieldByName('SPID').AsString))); + open; + end; + SCreateCDS20(ADOMX,CDS_MX); + SInitCDSData20(ADOMX,CDS_MX); + except + end; +end; +Procedure TfrmDJBRK_Edit.InitGrid(); +begin + try + with adoqueryMain do + begin + close; + sql.Clear; + sql.Add('select *,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.SPName and Type=''CP'') from CK_SXPB_CR A'); + sql.Add('where SPID='+quotedstr(trim(fkeyNO))); + open; + end; + SCreateCDS20(adoqueryMain,CDS_Main); + SInitCDSData20(adoqueryMain,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; + factoryName.Text:=trim(CDS_Main.fieldbyname('factoryName').AsString); + end; + finally + end; +end; + + +function TfrmDJBRK_Edit.YSData(Order_Main10:TClientDataSet):Boolean; +var + CRID,YFID,PriceUnit,OrderUnit,FComTaiTou,FromSubID,khName:String; + fprice,huilv:double; +begin + Result:=False; + fprice:=0; + huilv:=0; + PriceUnit:='RMB'; + khName:=''; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('update JYOrder_Sub SET Huilv=isnull((select Huilv from JYOrderCon_Sub X where X.SubId=JYOrder_Sub.SOrddefstr10),1) where Huilv=0'); + execsql; + end; + with Order_Main10 do + begin + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select A.*,fPrice=dbo.F_Get_Order_Price(A.MainID,A.subID),B.customerNoName'); + sql.Add(' from JYOrder_Sub A '); + sql.Add(' inner join JYOrder_main B on B.mainID=A.mainID '); + sql.Add(' Where subID='''+Trim(Order_Main10.fieldbyname('ORDSubIdRK').AsString)+''''); + Open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + PriceUnit:=Trim(ADOQueryTemp.fieldbyname('PriceUnit').AsString); + OrderUnit:=Trim(ADOQueryTemp.fieldbyname('OrderUnit').AsString); + fPrice:= ADOQueryTemp.fieldbyname('fPrice').AsFloat; + huilv:= ADOQueryTemp.fieldbyname('huilv').AsFloat; + khName:= ADOQueryTemp.fieldbyname('customerNoName').AsString; + end; + IF huilv=0 then huilv:=1; + CRID:='0'; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from YF_Money_CR '); + sql.Add(' where mainID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' and YFName=''ͻ˻'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'CS','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡƷӦʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(Order_Main10.fieldbyname('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(KHName); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CDS_Main.fieldbyname('CRTime').AsDateTime)); + FieldByName('YFType').Value:='Զ'; + FieldByName('ps').Value:=-1*Order_Main10.fieldbyname('PiQty').AsFloat; + FieldByName('Qty').Value:=-1*Order_Main10.fieldbyname('Qty').AsFloat; + FieldByName('Price').Value:=fprice; + FieldByName('HuiLv').Value:=huilv; + FieldByName('BZType').Value:=Trim(PriceUnit); + // FieldByName('Money').Value:=-1*format('%.2f',[Order_Main10.fieldbyname('Qty').AsFloat*fprice]); + // FieldByName('BBMoney').Value:=-1*format('%.2f',[Order_Main10.fieldbyname('Qty').AsFloat*fprice*huilv]); + FieldByName('QtyUnit').Value:=Trim(Order_Main10.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value:=Trim(KHName); + FieldByName('YFName').Value:='ͻ˻'; + FieldByName('MainId').Value:=Trim(Order_Main10.fieldbyname('SPID').AsString); + FieldByName('subID').Value:=''; + FieldByName('OrderNO').Value:=Trim(Order_Main10.fieldbyname('OrderNO').AsString); + FieldByName('P_CodeName').Value:=Trim(Order_Main10.fieldbyname('SPName').AsString); + FieldByName('P_Spec').Value:=Trim(Order_Main10.fieldbyname('SPSpec').AsString); + FieldByName('P_color').Value:=Trim(Order_Main10.fieldbyname('SPColor').AsString); + FieldByName('status').Value:='0'; + Post; + end; + end + else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + + //Next; + end; + end; + Result:=True; +end; + +procedure TfrmDJBRK_Edit.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +function TfrmDJBRK_Edit.SaveData():Boolean; +var + Maxno:string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not eof do + begin + Maxno:=fieldbyName('SPID').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR '); + sql.Add(' where mainID='''+Trim(Maxno)+''''); + sql.Add(' and YFName=''ͻ˻'' '); + execsql; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + Open; + if IsEmpty then + begin + Append; + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + end; + FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('FZSPID').Value:=Trim(Maxno); + FieldByName('CKName').Value:=trim(fckName); + FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTime.DateTime); + FieldByName('CRType').Value:=trim(CRType.Text); + FieldByName('factoryName').Value:=trim(factoryName.Text); + FieldByName('CRFlag').Value:=''; + FieldByName('CRQtyFlag').Value:=1; + RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Main,'CK_SXPB_CR',2); + FieldByName('PiQty').Value:=CDS_Main.fieldbyname('piQty').AsInteger; + 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('Qty1').Value:=CDS_Main.fieldbyname('Qty1').AsFloat; + FieldByName('RCQty').Value:=CDS_Main.fieldbyname('RCQty').AsFloat; + 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 ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update WFB_MJJY SET CKName=B.CKName,factoryName=B.FactoryName,BatchNo=B.BatchNO,C_CodeName=B.SPName,C_Color=B.SPColor,'); + sql.Add(' MJTypeOther=B.QtyUnit,MJStr1=B.QtyUnit,MJStr2=''δ'',MJFK=cast(isnull(B.SPMF,''0'') as decimal(18,2)),MJSJKZ=cast(isnull(B.SPKZ,''0'') as decimal(18,2)),'); + sql.Add(' RCgangNo=B.RCGangNo,BCgangNo=B.RCGangNo,Filler=B.Filler,Filltime=B.Filltime '); + sql.Add(' FROM WFB_MJJY A '); + sql.Add(' inner join CK_SXPB_CR B on B.SPID=A.APID '); + sql.Add(' where A.APID='''+Trim(Maxno)+''''); + ExecSQL; + end; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select A.SPID '); + sql.Add('from CK_SXPB_CR A'); + sql.Add('inner join CK_SXPB_CR B on B.RCGangNo=A.RCgangNo and B.Qty=A.Qty and B.SPID<>A.SPID'); + sql.Add('where A.SPID='''+Trim(Maxno)+''' and isnull(A.RCGangNo,'''')<>'''' '); + open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͬ׺ܱͬ棡','ʾ',0); + exit; + end; + + if Trim(CDS_Main.fieldbyname('CRType').AsString)='ͻ˻' then + begin + if not YSData(CDS_Main) then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + exit; + end; + end; + + Next; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + TBPrint.Enabled:=true; + Result:=True; + except + Result:=False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; + +end; +procedure TfrmDJBRK_Edit.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmDJBRK_Edit.FormShow(Sender: TObject); +var + fsj:String; +begin + ReadCxGrid(self.Caption,Tv1,'첼ֿ'); + InitGrid(); + initMJID(); +end; + +procedure TfrmDJBRK_Edit.TBSaveClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + + if trim(factoryName.Text)='' then + begin + Application.MessageBox('ӹΪ!','ʾ',0); + Exit; + end; + if trim(CRType.Text)='' then + begin + Application.MessageBox('ͲΪ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('SPName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('SPcolor',null,[])=True then + begin + Application.MessageBox('ɫΪ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('Qty',null,[])=True then + begin + Application.MessageBox('뵥Ϊ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('QtyUnit',null,[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('SPName','',[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('SPcolor','',[])=True then + begin + Application.MessageBox('ɫΪ!','ʾ',0); + Exit; + end; + if CDS_Main.FieldByName('Qty').AsFloat=0 then + begin + Application.MessageBox('뵥Ϊ!','ʾ',0); + Exit; + end; + if CDS_Main.Locate('QtyUnit','',[])=True then + begin + Application.MessageBox('λΪ!','ʾ',0); + Exit; + end; + + + IF not CDS_MX.IsEmpty then + begin + IF tv2.DataController.Summary.FooterSummaryValues[1]<> CDS_Main.fieldByName('PiQty').AsInteger then + begin + Application.MessageBox('ܺϸƥһ!','ʾ',0); + Exit; + end; + end; + if SaveData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmDJBRK_Edit.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + if ShowModal=1 then + begin + with Self.CDS_Main do + begin + Edit; + FieldByName('SPName').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('SPSpec').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr1').AsString); + FieldByName('SPColor').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr3').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); + FieldByName('C_CodeNameZW').Value:=Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('defnote3').AsString); + end; + end; + end; + finally + frmZdyAttachCP.Free; + end; +end; + +procedure TfrmDJBRK_Edit.v2Column6PropertiesEditValueChanged( + 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('%.2f',[FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat])); + Post; + end; + Tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmDJBRK_Edit.FormDestroy(Sender: TObject); +begin + frmDJBRK_Edit:=nil; +end; + +procedure TfrmDJBRK_Edit.FormCreate(Sender: TObject); +begin + Panel2.Align:=alclient; + CRTime.DateTime:=now(); +end; + +procedure TfrmDJBRK_Edit.FactoryNameBtnClick(Sender: TObject); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + factoryName.Text:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmDJBRK_Edit.TBADDClick(Sender: TObject); +var + fSPID:string; +begin + IF not CDS_MX.IsEmpty then + begin + IF tv2.DataController.Summary.FooterSummaryValues[1]<> CDS_Main.fieldByName('PiQty').AsInteger then + begin + Application.MessageBox('ܺϸƥһ!','ʾ',0); + Exit; + end; + end; + CopyAddRowCDS(CDS_Main); + if GetLSNo(ADOQueryCmd,fSPID,'','CK_SXPB_CR',3,1)=False then + begin + Application.MessageBox('ȡ첼ʧ!','ʾ',0); + Exit; + end; + CDS_Main.edit; + CDS_Main.FieldByName('SPID').Value:=fSPID; + CDS_Main.FieldByName('PiQty').Value:=0; + CDS_Main.FieldByName('Qty').Value:=0; + CDS_Main.FieldByName('Qty1').Value:=0; + CDS_Main.FieldByName('RCQty').Value:=0; + CDS_Main.FieldByName('QtyUnit').Value:='M'; + CDS_Main.FieldByName('RCQtyUnit').Value:='M'; + CDS_Main.FieldByName('SPMF').Value:=''; + CDS_Main.FieldByName('SPKZ').Value:=''; + CDS_Main.FieldByName('RCgangNo').Value:=''; + CDS_Main.Post; +end; + +procedure TfrmDJBRK_Edit.QtyMXKeyPress(Sender: TObject; var Key: Char); +var + fMJID:string; +begin + If key=#13 then + begin + If CDS_Main.IsEmpty then + begin + application.MessageBox('ƷϢû룬ϸϢ','ʾϢ',MB_ICONERROR); + exit; + end; + IF strtofloatdef(QtyMX.Text,0)=0 then exit; + if GetLSNo(ADOQueryCmd,fMJID,'','APTM',4,1)=False then + begin + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY A'); + sql.Add('where 1=2'); + open; + append; + Fieldbyname('mainID').Value:=''; + Fieldbyname('subID').Value:=''; + Fieldbyname('MJID').Value:=trim(fMJID); + Fieldbyname('MJXH').Value:=1; + Fieldbyname('MJQty1').Value:=strtofloatdef(QtyMX.Text,0); + Fieldbyname('MJlen').Value:=strtofloatdef(QtyMX.Text,0)+strtofloatdef(QtyFJ.Text,0); + Fieldbyname('APID').Value:=trim(CDS_Main.fieldbyname('SPID').AsString); + Fieldbyname('MJXH').Value:=1; + Fieldbyname('MJType').Value:='Ʒ'; + Fieldbyname('MJStr2').Value:='δ'; + post; + end; + + with CDS_MX do + begin + append; + Fieldbyname('MJID').Value:=trim(fMJID); + Fieldbyname('APID').Value:=trim(CDS_Main.fieldbyname('SPID').AsString); + Fieldbyname('MJQty1').Value:=strtofloatdef(QtyMX.Text,0); + Fieldbyname('MJlen').Value:=strtofloatdef(QtyMX.Text,0)+strtofloatdef(QtyFJ.Text,0); + post; + end; + + with CDS_main do + begin + edit; + IF CDS_MX.IsEmpty then + Fieldbyname('Qty1').Value:=0 + else + Fieldbyname('Qty1').Value:=tv2.DataController.Summary.FooterSummaryValues[0]-tv2.DataController.Summary.FooterSummaryValues[2]; + post; + end; + { IF varisnull(tv2.DataController.Summary.FooterSummaryValues[0]) then + begin + fRollNum:=0; + fQty:=0; + end + else + begin + fRollNum:=CDS_Sub.RecordCount; + fQty:=tv2.DataController.Summary.FooterSummaryValues[0]; + end; + with CDS_Main do + begin + EDIT; + FieldByName('RollNum').Value:=fRollNum; + Fieldbyname('Qty').Value:=fQty; + FieldbyName('Money').Value:=format('%.0f',[FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat]); + post; + end; } + QtyMX.Text:=''; + except + end; + end; +end; + +procedure TfrmDJBRK_Edit.TBPrintClick(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select MJID from WFB_MJJY'); + sql.Add('where APID='''+trim(CDS_Main.fieldbyName('SPID').AsString)+''' '); + open; + end; + IF ADOQueryTemp.IsEmpty then exit; + while not ADOQueryTemp.Eof do + begin + sleep(200); + Printdata(ADOQueryTemp.fieldbyName('MJID').AsString); + ADOQueryTemp.next; + end; +end; + +procedure TfrmDJBRK_Edit.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + initMJID(); +end; + +procedure TfrmDJBRK_Edit.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + IF CDS_MX.IsEmpty then exit; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MJID='''+trim(CDS_MX.fieldbyName('MJID').AsString)+''''); + open; + end; + IF trim(ADOQueryTemp.fieldbyName('MJStr2').AsString)<>'δ' then + begin + application.MessageBox('Ѿ⣬ɾ','ʾϢ',MB_ICONERROR); + exit; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from WFB_MJJY where MJID='''+trim(CDS_MX.fieldbyName('MJID').AsString)+''''); + execsql; + end; + CDS_MX.Delete; + with CDS_main do + begin + edit; + IF CDS_MX.IsEmpty then + Fieldbyname('Qty1').Value:=0 + else + Fieldbyname('Qty1').Value:=tv2.DataController.Summary.FooterSummaryValues[0]-tv2.DataController.Summary.FooterSummaryValues[2]; + post; + end; +end; + +procedure TfrmDJBRK_Edit.TBdelClick(Sender: TObject); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY where isnull(APID,'''')='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('Ѽ鲻ɾ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from WFB_MJJY where APID='''+trim(CDS_Main.fieldbyName('SPID').AsString)+''''); + execsql; + end; + CDS_Main.Delete; +end; + +procedure TfrmDJBRK_Edit.v2Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with CDS_Main do + begin + Edit; + FieldByName('SPName').Value:=Trim(mvalue); + Post; + end; + + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(CDS_Main.fieldbyname('SPName').AsString))); + open; + end; + IF ADOQueryTemp.IsEmpty then + begin + application.MessageBox('Ʒڣ','ʾϢ',0); + with CDS_Main do + begin + Edit; + FieldByName('SPName').Value:=''; + Post; + end; + end + else + begin + with CDS_Main do + begin + Edit; + FieldByName('C_CodeNameZW').Value:=Trim(ADOQueryTemp.fieldbyname('defnote3').AsString); + Post; + end; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmDJBRK_Edit.v1Column15PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with CDS_Main do + begin + Edit; + FieldByName('SPColor').Value:=Trim(mvalue); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmDJBRK_Edit.v1Column2PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + with CDS_Main do + begin + Edit; + FieldByName('batchNo').Value:=Trim(mvalue); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +{ + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select top 1 * from CK_SXPB_CR where batchNo='''+trim(CDS_Main.fieldbyName('batchNo').AsString)+''' '); + open; + IF not IsEmpty then + begin + with CDS_Main do + begin + Edit; + FieldByName('SPName').Value:=Trim(ADOQueryTemp.fieldbyName('SPName').AsString); + Post; + end; + end; + end; } +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DataLink.dfm b/坯布码单待检(PBMDDJ.dll)/U_DataLink.dfm new file mode 100644 index 0000000..23ca694 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_DataLink.dfm @@ -0,0 +1,17985 @@ +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 + NativeStyle = False + Left = 253 + Top = 12 + end + object ThreeColorBase: TcxStyleRepository + Left = 147 + 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, 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..6e08128 --- /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, cxClasses; +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..ca60587 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas @@ -0,0 +1,421 @@ +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; + +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,U_DJBRKHZList + ,U_CbJdLr,U_JGList,U_SXCRKList,U_SXCKOutListDBCK; + ///////////////////////////////////////////////////////////////// + // ˵:ȡ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.100.182.1,7781'; + dtbase:='guihuadata'; + user:='sa'; +// pswd:='rightsoft'; + pswd:='rightsoft@123'; + 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; + + // DName:='ܸ'; + + // DParameters1:='Ȩ'; //Ȩ + //DParameters3:='1'; + // DParameters3:='Ųֿ'; + 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 frmCbJdLr=nil then + begin + frmCbJdLr:= TfrmCbJdLr.Create(application.MainForm); + with frmCbJdLr do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCbJdLr.BringToFront; + // + mNewHandle:=frmCbJdLr.Handle; + end ; + 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 ; + 21: //() + begin + if frmSXCKOutListDBCK=nil then + begin + frmSXCKOutListDBCK:= TfrmSXCKOutListDBCK.Create(application.MainForm); + with frmSXCKOutListDBCK do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmSXCKOutListDBCK.BringToFront; + // + mNewHandle:=frmSXCKOutListDBCK.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 ; + 31: // + begin + if frmSXCRKList=nil then + begin + frmSXCRKList:= TfrmSXCRKList.Create(application.MainForm); + with frmSXCRKList do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmSXCRKList.BringToFront; + // + mNewHandle:=frmSXCRKList.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 + fckName:=trim(DParameters3); + 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 + fckName:=trim(DParameters3); + 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 + fckName:=trim(DParameters3); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmDJBCKKCList.BringToFront; + // + mNewHandle:=frmDJBCKKCList.Handle; + end ; + 11: //첼б + begin + if frmDJBRKHZList=nil then + begin + frmDJBRKHZList:= TfrmDJBRKHZList.Create(application.MainForm); + with frmDJBRKHZList do + begin + fckName:=trim(DParameters3); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmDJBRKHZList.BringToFront; + // + mNewHandle:=frmDJBRKHZList.Handle; + end ; + + 12: //첼б + begin + if frmJGList=nil then + begin + frmJGList:= TfrmJGList.Create(application.MainForm); + with frmJGList do + begin + fckName:=trim(DParameters3); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmJGList.BringToFront; + // + mNewHandle:=frmJGList.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 + CoInitialize(nil); + dxUnitsLoader.Initialize; + +finalization + + DataLink_PBMDDJ.Free; + application:=NewDllApp; + dxUnitsLoader.Finalize; + +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_JGList.dfm b/坯布码单待检(PBMDDJ.dll)/U_JGList.dfm new file mode 100644 index 0000000..4a8ad10 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_JGList.dfm @@ -0,0 +1,618 @@ +object frmJGList: TfrmJGList + Left = -8 + Top = -8 + Width = 1378 + Height = 754 + 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 = 1362 + 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 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 = 1362 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 32 + Top = 80 + Width = 48 + Height = 12 + Caption = #20837#24211#26085#26399 + end + object Label2: TLabel + Left = 172 + Top = 80 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 258 + Top = 12 + Width = 72 + Height = 12 + Caption = #21152#24037#20986#24211#21697#21517 + end + object Label4: TLabel + Left = 27 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 258 + Top = 132 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 358 + Top = 120 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label6: TLabel + Left = 475 + Top = 120 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 561 + Top = 140 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 561 + Top = 116 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label10: TLabel + Left = 714 + Top = 140 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label11: TLabel + Left = 831 + Top = 144 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label13: TLabel + Left = 983 + Top = 144 + Width = 36 + Height = 12 + Caption = #39068' '#33394 + end + object Label16: TLabel + Left = 983 + Top = 168 + Width = 36 + Height = 12 + Caption = #25805#20316#21592 + end + object Label14: TLabel + Left = 1119 + Top = 144 + Width = 48 + Height = 12 + Caption = #30333#22383#32534#21495 + end + object Label12: TLabel + Left = 498 + Top = 12 + Width = 72 + Height = 12 + Caption = #21152#24037#23436#25104#21697#21517 + end + object BegDate: TDateTimePicker + Left = 81 + Top = 77 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 77 + Width = 85 + Height = 20 + Date = 40768.166666666660000000 + Format = 'yyyy-MM-dd' + Time = 40768.166666666660000000 + TabOrder = 1 + end + object C_CodeName: TEdit + Tag = 2 + Left = 333 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 64 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 308 + Top = 129 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + end + object SPSpec: TEdit + Tag = 2 + Left = 385 + Top = 116 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object SPCF: TEdit + Tag = 2 + Left = 512 + Top = 116 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 612 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 612 + Top = 113 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object KuWei: TEdit + Tag = 2 + Left = 766 + Top = 137 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 882 + Top = 141 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object SPColor: TEdit + Tag = 2 + Left = 1020 + Top = 141 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + object Filler: TEdit + Tag = 2 + Left = 1020 + Top = 165 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = FactoryNameChange + end + object batchNo: TEdit + Tag = 2 + Left = 1172 + Top = 141 + Width = 80 + Height = 20 + TabOrder = 13 + OnChange = FactoryNameChange + end + object begTime: TDateTimePicker + Left = 167 + Top = 109 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 14 + end + object endTime: TDateTimePicker + Left = 167 + Top = 132 + Width = 55 + Height = 20 + Date = 41583.166666666660000000 + Format = 'HH:mm' + Time = 41583.166666666660000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Kind = dtkTime + ParentFont = False + TabOrder = 15 + end + object JG_C_CodeName: TEdit + Tag = 2 + Left = 573 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 16 + OnChange = TBFindClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 73 + Width = 1362 + Height = 643 + 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 + 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 = v1Column3 + end + item + Kind = skSum + Column = v1Column4 + 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> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + object v1Column2: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 128 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#20986#24211#21697#21517 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column1: TcxGridDBColumn + Caption = #21152#24037#23436#25104#21697#21517 + DataBinding.FieldName = 'JG_C_CodeName' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column3: TcxGridDBColumn + Caption = #21152#24037#20986#24211#21305#25968 + DataBinding.FieldName = 'JG_R_piQty' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column4: TcxGridDBColumn + Caption = #21152#24037#20986#24211#21305#25968 + DataBinding.FieldName = 'JG_R_Qty' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column5: TcxGridDBColumn + Caption = #21152#24037#23436#25104#21305#25968 + DataBinding.FieldName = 'JG_C_piQty' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column6: TcxGridDBColumn + Caption = #21152#24037#23436#25104#25968#37327 + DataBinding.FieldName = 'JG_C_Qty' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column7: TcxGridDBColumn + Caption = #21097#20313#21305#25968 + DataBinding.FieldName = 'K_PiQty' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column8: TcxGridDBColumn + Caption = #21097#20313#25968#37327 + DataBinding.FieldName = 'K_Qty' + HeaderAlignmentHorz = taCenter + Width = 120 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 856 + Top = 108 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 784 + Top = 116 + 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 = 372 + Top = 184 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + 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 PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + end + object N2: TMenuItem + Caption = #20840#24323 + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 740 + Top = 8 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 700 + Top = 8 + 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 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 924 + Top = 96 + ReportData = {} + end +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_JGList.pas b/坯布码单待检(PBMDDJ.dll)/U_JGList.pas new file mode 100644 index 0000000..653af22 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_JGList.pas @@ -0,0 +1,220 @@ +unit U_JGList; + +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, BtnEdit; + +type + TfrmJGList = 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; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + C_CodeName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v2Column1: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + ToFactoryName: TEdit; + Label10: TLabel; + KuWei: TEdit; + Label11: TLabel; + RCGangNo: TEdit; + Label13: TLabel; + SPColor: TEdit; + Filler: TEdit; + Label16: TLabel; + ADOQueryPrint: TADOQuery; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + batchNo: TEdit; + Label14: TLabel; + begTime: TDateTimePicker; + endTime: TDateTimePicker; + v1Column2: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + JG_C_CodeName: TEdit; + Label12: 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 SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + private + canshu1,canshu2:string; + procedure InitGrid(); + Procedure PrintData(fMJID:string); + { Private declarations } + public + fckName:string; + { Public declarations } + end; + +var + frmJGList: TfrmJGList; + +implementation +uses + U_DataLink,U_RTFun,U_DJBCKInPut, U_DJBRKlist; + +{$R *.dfm} +Procedure TfrmJGList.PrintData(fMJID:string); + +begin + +end; + +procedure TfrmJGList.FormDestroy(Sender: TObject); +begin + frmJGList:=nil; +end; + +procedure TfrmJGList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmJGList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp); +end; + +procedure TfrmJGList.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 + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered:=False; + sql.Clear; + sql.Add(' exec P_Get_JGlist '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmJGList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmJGList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmJGList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'첼ֿ'); + Close; +end; + +procedure TfrmJGList.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv1,'첼ֿ'); + InitGrid(); +end; + +procedure TfrmJGList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid2); +end; + +procedure TfrmJGList.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 TfrmJGList.SPIDChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmJGList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmJGList.FactoryNameChange(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..ad27d77 --- /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 = 628 + ActivePage = cxTabSheet1 + Align = alClient + Style = 8 + TabOrder = 1 + ClientRectBottom = 628 + 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 = 297 + 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 = 605 + 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 = 436 + Align = alRight + TabOrder = 2 + object cxGrid5: TcxGrid + Left = 0 + Top = 33 + Width = 578 + Height = 152 + 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 = 208 + 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 = 185 + 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 = 436 + 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 = 401 + 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 = 605 + 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 = 605 + 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 = 605 + 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 = 605 + 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..69c2973 --- /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..57b054c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm @@ -0,0 +1,614 @@ +object frmPBCKKCList: TfrmPBCKKCList + Left = 353 + Top = 180 + 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 = 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 = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 307 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 524 + 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 = 307 + 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 = 524 + Top = 36 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 420 + Top = 120 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 420 + Top = 144 + Width = 48 + Height = 12 + Caption = #25152#23646#31867#22411 + end + object Label1: TLabel + Left = 650 + Top = 96 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label14: TLabel + Left = 650 + Top = 120 + Width = 48 + Height = 12 + Caption = #32534' '#21495 + end + object SPName: TEdit + Tag = 2 + Left = 334 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 584 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object SPSpec: TEdit + Tag = 2 + Left = 334 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = TBFindClick + end + object CRType: TComboBox + Tag = 2 + Left = 76 + Top = 32 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #37319#36141#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + #35843#25320#20837#24211 + '' + '') + end + object SPCF: TEdit + Tag = 2 + Left = 584 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 525 + Top = 89 + Width = 108 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object SSType: TComboBox + Tag = 2 + Left = 517 + Top = 116 + 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 = 699 + Top = 93 + Width = 108 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SPCode: TEdit + Tag = 2 + Left = 700 + Top = 116 + Width = 108 + Height = 20 + TabOrder = 9 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1165 + Height = 375 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + 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 + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column2 + 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 = #31216#21628 + 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' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object Tv1Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column2: TcxGridDBColumn + Caption = #24211#23384#37329#39069 + DataBinding.FieldName = 'kcMoney' + HeaderAlignmentHorz = taCenter + Width = 60 + 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..b4f7646 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas @@ -0,0 +1,229 @@ +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, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +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; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: 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 + Close; + Filtered:=False; + sql.Clear; + sql.Add(' select A.*,KCmoney=cast(MXKCQty*Price as decimal(18,2)) '); + 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; + 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..20b107c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.dfm @@ -0,0 +1,344 @@ +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 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..a0c061c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ProductOrderListSel.pas @@ -0,0 +1,161 @@ +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; + 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'); + sql.add('from JYOrder_sub A'); + sql.Add('inner join JYOrder_Main B on B.mainID=A.mainID '); + SQL.Add('where B.OrderNo like '''+'%'+Trim(OrderNoM.Text)+'%'+''''); + sQL.Add('and isnull(B.status,''0'')>''0'' and B.OrderType='''' '); + 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..c87619e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm @@ -0,0 +1,371 @@ +object frmSXCKInPut: TfrmSXCKInPut + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + 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 = 1366 + Height = 683 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellClick = Tv1CellClick + 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 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + 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' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column17PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column10PropertiesButtonClick + 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' + Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged + 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 = ( + 'M' + 'Y' + 'KG') + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column5: TcxGridDBColumn + Tag = 2 + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column13: TcxGridDBColumn + Tag = 2 + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Width = 80 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + 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 + object Panel1: TPanel + Left = 252 + Top = 0 + Width = 797 + Height = 30 + BevelOuter = bvNone + Color = clSkyBlue + TabOrder = 0 + object Label1: TLabel + Left = 364 + Top = 8 + Width = 36 + Height = 12 + Caption = #21333#20215#65306 + end + 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..1666430 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas @@ -0,0 +1,990 @@ +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, StdCtrls, ExtCtrls; + +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; + v1Column11: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + 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); + procedure v1Column17PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column10PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesEditValueChanged(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + function SaveCKData():Boolean; + function YFData():Boolean; + procedure DoKc(); + 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.DoKc(); +begin + Label1.Caption:='ۣ0'; + IF CDS_Sub.IsEmpty then exit; + IF trim(CDS_Sub.fieldbyname('SPName').AsString)='' then exit; + IF trim(CDS_Sub.fieldbyname('FactoryName').AsString)='' then exit; + with ADOQueryTemp do + begin + close; + sql.Clear; + SQL.Add(' SELECT Top 1 Price FROM YF_Money_CR A'); + sql.Add(' where P_CodeName='+quotedstr(trim(CDS_Sub.fieldbyname('SPName').AsString))); + sql.Add(' and factoryName='+quotedstr(trim(CDS_Sub.fieldbyname('FactoryName').AsString))); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and price>0 '); + sql.Add(' order by FillTime desc'); + open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + Label1.Caption:='ۣ'+trim(ADOQueryTemp.fieldbyname('price').AsString); + end; +end; +function TfrmSXCKInPut.YFData():Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou,cust:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CDS_Sub.fieldbyname('FactoryName').AsString)+''' '); + Open; + end; + + if not ADOQueryTemp.IsEmpty 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_Sub.fieldbyname('FactoryName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR where mainID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''' '); + // sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''''); + sql.Add(' and YFName=''ɹ'' '); + execsql; + end; + + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where mainID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + // sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''''); + sql.Add(' and YFName=''ɹ'' '); + Open; + end; + + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'CF','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('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_Sub.fieldbyname('FactoryName').AsString); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CDS_Sub.fieldbyname('CRTime').AsDateTime)); + FieldByName('YFType').Value:='Զ'; + FieldByName('ps').Value:=CDS_Sub.fieldbyname('PiQty').AsFloat; + FieldByName('Qty').Value:=CDS_Sub.fieldbyname('Qty').AsFloat; + FieldByName('Price').Value:=CDS_Sub.fieldbyname('price').AsFloat; + FieldByName('Money').Value:=CDS_Sub.fieldbyname('Money').AsFloat; + FieldByName('BBMoney').Value:=CDS_Sub.fieldbyname('Money').AsFloat; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:='RMB'; + FieldByName('QtyUnit').Value:=Trim(CDS_Sub.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value:=Trim(CDS_Sub.fieldbyname('FactoryName').AsString); + FieldByName('YFName').Value:='ɹ'; + FieldByName('MainId').Value:=Trim(CDS_Sub.fieldbyname('SPID').AsString); + FieldByName('subID').Value:=''; + FieldByName('P_CodeName').Value:=Trim(CDS_Sub.fieldbyname('SPName').AsString); + // FieldByName('P_Spec').Value:=Trim(CDS_Sub.fieldbyname('SPSpec').AsString); + // FieldByName('P_Color').Value:=Trim(CDS_Sub.fieldbyname('PRTColor').AsString); + // FieldByName('SYRName').Value:='𻪷֯'; + FieldByName('status').Value:='0'; + Post; + end; + end + else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + + Result:=True; +end; + +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)); + FieldByName('QtyUnit').Value:='M'; + 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; + FieldByName('price').Value:=CDS_Sub.fieldbyName('Price').AsFloat; + FieldByName('money').Value:=CDS_Sub.fieldbyName('money').AsFloat; + 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(',MXKCKGQty=(select sum(isnull(kgQty,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); + Post; + + if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ɹ' then + begin + if not YFData() then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + exit; + end; + end; + + 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; + + 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; + 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)+''''); + sql.Add('delete from YF_Money_CR where mainID='''+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('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; + DoKc(); +end; + +procedure TfrmSXCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + DEFstr5.ItemIndex:=DEFstr5.Items.IndexOf(''); + 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; + DoKc(); +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; + +procedure TfrmSXCKInPut.v1Column17PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBCode'; + flagname:=''; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPcode').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBspec'; + flagname:=''; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPspec').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBKF'; + flagname:='ƺ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPCF').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBMF'; + flagname:='ŷ'; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPMF').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column10PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PBKZ'; + flagname:=''; + if ShowModal=1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPKZ').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKInPut.v1Column5PropertiesEditValueChanged( + Sender: TObject); +var + fieldname:string; +begin + fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with CDS_Sub do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=TcxTextEdit(Sender).EditingText; + FieldByName('Money').Value:=strtofloat(format('%.2f',[FieldByName('Qty').AsFloat * FieldByName('Price').AsFloat])); + Post; + end; + Tv1.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmSXCKInPut.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + DoKc(); +end; + +end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm new file mode 100644 index 0000000..0f2de99 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm @@ -0,0 +1,580 @@ +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 = 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 = 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 = 54 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 492 + Top = 136 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 492 + Top = 160 + Width = 48 + Height = 12 + Caption = #25152#23646#31867#22411 + end + object Label1: TLabel + Left = 534 + Top = 12 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label14: TLabel + Left = 534 + 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 = 100 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 76 + Top = 9 + Width = 100 + 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 = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = TBFindClick + Items.Strings = ( + #37319#36141#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + '') + end + object SPCF: TEdit + Tag = 2 + Left = 400 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 541 + Top = 133 + Width = 108 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object SSType: TComboBox + Tag = 2 + Left = 541 + Top = 156 + 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 = 583 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SPCode: TEdit + Tag = 2 + Left = 584 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 9 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1165 + Height = 380 + 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 + item + Kind = skSum + 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 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 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..b0c863d --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas @@ -0,0 +1,223 @@ +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; + 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; + 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..4a1fa91 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm @@ -0,0 +1,682 @@ +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 = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 515 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 728 + Top = 8 + Width = 60 + Height = 12 + Caption = #22383#24067#20379#24212#21830 + end + object Label5: TLabel + Left = 250 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 515 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 251 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label6: TLabel + Left = 728 + Top = 32 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 760 + Top = 152 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 380 + Top = 152 + Width = 48 + Height = 12 + Caption = #25152#23646#31867#22411 + end + object Label10: TLabel + Left = 592 + Top = 148 + Width = 48 + Height = 12 + Caption = #32534' '#21495 + end + object Label11: TLabel + Left = 592 + Top = 172 + 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 = 542 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 788 + Top = 5 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 300 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPSpec: TEdit + Tag = 2 + Left = 542 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object CRType: TComboBox + Tag = 2 + Left = 300 + Top = 32 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + #37319#36141#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211 + #35843#25320#20837#24211 + '' + '') + end + object SPCF: TEdit + Tag = 2 + Left = 788 + Top = 28 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 809 + Top = 148 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = FactoryNameChange + end + object SSType: TComboBox + Tag = 2 + Left = 429 + Top = 148 + 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 = 641 + Top = 144 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 641 + Top = 168 + Width = 100 + Height = 20 + TabOrder = 11 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1319 + Height = 379 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + 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 + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column1 + end + item + Kind = skSum + Column = Tv1Column2 + end + item + Kind = skSum + Column = Tv1Column3 + end + item + Kind = skSum + Column = Tv1Column4 + 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 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 v1Column17: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + 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 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 = 69 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #20837#25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + 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' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column13: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object Tv1Column1: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'ckpiQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column2: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'ckQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column3: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column4: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + HeaderAlignmentHorz = taCenter + Width = 60 + 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 = 1220 + Top = 52 + 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..5cd2edf --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas @@ -0,0 +1,398 @@ +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, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +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; + 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; + v1Column17: TcxGridDBColumn; + Label10: TLabel; + SPCode: TEdit; + Label11: TLabel; + ToFactoryName: TEdit; + v1Column13: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: 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 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(',ckpiQty=(select sum(piQty) from CK_SXPB_CR X where X.FZSPID=A.SPID and X.CRFlag='''')'); + sql.Add(',ckQty=(select sum(Qty) from CK_SXPB_CR X where X.FZSPID=A.SPID and X.CRFlag='''')'); + 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('delete from YF_Money_CR where mainID='''+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..a29e50b --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm @@ -0,0 +1,668 @@ +object frmSXCKOutList: TfrmSXCKOutList + Left = 542 + Top = 160 + Width = 1314 + Height = 572 + 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 = 1298 + 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 = 1298 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 333 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 457 + 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 = 333 + Top = 36 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object Label6: TLabel + Left = 457 + Top = 36 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 585 + Top = 104 + Width = 60 + Height = 12 + Caption = #26469#33258#35746#21333#21495 + end + object Label10: TLabel + Left = 585 + Top = 128 + Width = 60 + Height = 12 + Caption = #20986#21040#35746#21333#21495 + end + object Label11: TLabel + Left = 613 + Top = 12 + Width = 60 + Height = 12 + Caption = #26469#33258#21152#24037#21378 + end + object Label13: TLabel + Left = 613 + Top = 36 + Width = 90 + Height = 12 + Caption = #20986#21040#21152#24037#21378'/'#23458#25143 + end + object Label15: TLabel + Left = 787 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#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 = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 360 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 517 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = SPColorChange + end + object SPID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPColor: TEdit + Tag = 2 + Left = 360 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPColorChange + 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 + #36864#36135#20986#24211 + #38144#21806#20986#24211 + #35843#25320#20986#24211 + '' + '' + '') + end + object SPCF: TEdit + Tag = 2 + Left = 517 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = SPColorChange + end + object QCorderNo: TEdit + Tag = 2 + Left = 645 + Top = 101 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = SPColorChange + end + object CKorderNo: TEdit + Tag = 2 + Left = 645 + Top = 125 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = SPColorChange + end + object FromFactoryName: TEdit + Tag = 2 + Left = 677 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = SPColorChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 677 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = SPColorChange + end + object FZSPID: TEdit + Tag = 2 + Left = 836 + Top = 8 + Width = 77 + Height = 20 + TabOrder = 12 + OnChange = SPColorChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1298 + Height = 440 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + 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 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 v1Column19: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + 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'/'#23458#25143 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 122 + end + object v1Column18: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column22: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'FZSPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + 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..c1004fc --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas @@ -0,0 +1,428 @@ +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, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + +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; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column11: 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; + SPColor: TEdit; + CRType: TComboBox; + SPCF: TEdit; + QCorderNo: TEdit; + Label10: TLabel; + CKorderNo: TEdit; + Label11: TLabel; + FromFactoryName: TEdit; + Label13: TLabel; + ToFactoryName: TEdit; + v1Column20: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + FZSPID: 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 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 SPColorChange(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(' rkNo=(select SPID from CK_SXPB_CR X where X.)); + 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; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); + sql.Add(' and status>=''1'' '); + Open; + if not IsEmpty then + begin + ADOQueryCmd.Connection.RollbackTrans; + 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(',MXKCKGQty=(select sum(isnull(kgQty,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; + if Trim(CDS_Main.fieldbyname('CRType').AsString) = '۳' then + begin + sql.Add('delete from YF_Money_CR where mainID=''' + Trim(CDS_Main.fieldbyname('SPID').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; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); + sql.Add(' and status>=''1'' '); + Open; + if not IsEmpty then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧտˣ޸!', 'ʾ', 0); + Exit; + end; + 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.SPColorChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. + diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.dfm new file mode 100644 index 0000000..e62ea18 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.dfm @@ -0,0 +1,959 @@ +object frmSXCKOutListDBCK: TfrmSXCKOutListDBCK + Left = 449 + Top = 336 + Width = 1222 + Height = 738 + Caption = #22383#24067#21040#36135#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 = 1206 + 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_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 = #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 tchk: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #30830#35748#23436#25104 + ImageIndex = 75 + OnClick = tchkClick + end + object Tnochk: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + Enabled = False + ImageIndex = 84 + OnClick = TnochkClick + end + object Tth: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #36864#36135 + ImageIndex = 52 + Visible = False + OnClick = TthClick + end + object ToolButton1: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 39 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 741 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1206 + Height = 53 + 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 = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 271 + Top = 22 + Width = 52 + Height = 12 + Caption = #20219#21153#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 = 420 + 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 = 572 + 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 = 704 + Top = 22 + Width = 26 + Height = 12 + Caption = #20379#26041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 836 + Top = 22 + 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 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 = 167 + 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 = 329 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 473 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 600 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 732 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object JHPlace: TEdit + Tag = 2 + Left = 892 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 107 + Width = 1206 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1206 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Price + end + item + Kind = skSum + Column = v1Money + end + item + Kind = skSum + Column = v1Qty1 + end + item + Kind = skSum + Column = v1Column12 + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1T_money + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + Column = v1Column23 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 20 + Styles.Inactive = DataLink_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.Default + OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell + object v1OrderNo: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 65 + end + object v1Column8: TcxGridDBColumn + Caption = #37319#36141#35745#21010#21333#21495 + DataBinding.FieldName = 'fromConNo' + Options.Editing = False + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 58 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #21040#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 70 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 60 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 66 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 61 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 83 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'T_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 47 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 57 + end + object v1Money: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 63 + end + object v1Column6: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 63 + end + object v1Column11: TcxGridDBColumn + Caption = #36864#36135#21305#25968 + DataBinding.FieldName = 'T_Ps' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #36864#36135#25968#37327 + DataBinding.FieldName = 'T_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1T_money: TcxGridDBColumn + Caption = #36864#36135#37329#39069 + DataBinding.FieldName = 'T_money' + Visible = False + Options.Editing = False + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'JHPlace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_PBMDDJ.Default + Width = 101 + end + object v1Column12: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'H_PS' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'H_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'N_Ps' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column17: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'N_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Mrate' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #23454#38469#32553#29575'(%)' + DataBinding.FieldName = 'Srate' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = ',0.##%;-,0.##' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 80 + end + object v1Column22: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'J_PS' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + object v1Column23: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'J_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column20: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column19: TcxGridDBColumn + Caption = #20462#25913#20154 + DataBinding.FieldName = 'editer' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column21: TcxGridDBColumn + Caption = #20462#25913#26102#38388 + DataBinding.FieldName = 'editTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column1: TcxGridDBColumn + Caption = #25104#21697#21697#21517 + DataBinding.FieldName = 'CP_CodeName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column2: TcxGridDBColumn + Caption = #20986#21040#20179#24211 + DataBinding.FieldName = 'ToFactoryName' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + HeaderAlignmentHorz = taCenter + Width = 44 + end + object Tv1Column4: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + HeaderAlignmentHorz = taCenter + Width = 66 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 85 + Width = 1206 + Height = 22 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 1 + Properties.Tabs.Strings = ( + #26410#23436#25104 + #24050#23436#25104 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1206 + ClientRectTop = 19 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.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 = 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 + object cxStyleRepository1: TcxStyleRepository + Left = 305 + Top = 310 + PixelsPerInch = 96 + 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 +end diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.pas new file mode 100644 index 0000000..c9aa585 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutListDBCK.pas @@ -0,0 +1,1046 @@ +unit U_SXCKOutListDBCK; + +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, + cxCurrencyEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxBarBuiltInMenu; + +type + TfrmSXCKOutListDBCK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + 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; + v1PRTOrderQty: 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; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1T_money: TcxGridDBColumn; + v1Column11: 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; + ToolButton1: TToolButton; + Tth: TToolButton; + cxTabControl1: TcxTabControl; + tchk: TToolButton; + Tnochk: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + JHPlace: TEdit; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: 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 ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure conPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure TthClick(Sender: TObject); + procedure tchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure cxTabControl1Change(Sender: TObject); + private + FInt, PFInt: Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + { Private declarations } + public + fDParameters1: string; + { Public declarations } + end; + +var + frmSXCKOutListDBCK: TfrmSXCKOutListDBCK; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmSXCKOutListDBCK.FormDestroy(Sender: TObject); +begin + frmSXCKOutListDBCK := nil; +end; + +procedure TfrmSXCKOutListDBCK.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmSXCKOutListDBCK.FormCreate(Sender: TObject); +begin + ScrollBox1.Align := alClient; +end; + +procedure TfrmSXCKOutListDBCK.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption, Tv1, 'ָʾ'); +end; + +procedure TfrmSXCKOutListDBCK.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('exec P_Get_Contract_copy1'); + sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); + sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' '); + sql.Add(',@conType='''' '); + sql.Add(',@status=''' + inttostr(cxTabControl1.TabIndex) + ''' '); +// ShowMessage(SQL.text); + { sql.Add('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.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='''' '); + IF cxTabControl1.TabIndex<2 then + sql.Add('and isnull(B.C_status,''0'')='''+inttostr(cxTabControl1.TabIndex)+''' '); } + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmSXCKOutListDBCK.InitForm(); +begin + if fDParameters1 = 'ѯ' then + begin + TBADD.Visible := false; + // TBEdit.Visible:=false; + TBDel.Visible := false; + // Tchk.Visible:=false; + // TNochk.Visible:=false; + Tth.Visible := false; + v1Price.Visible := false; + v1Price.Hidden := true; + v1money.Visible := false; + v1money.Hidden := true; + v1T_money.Visible := false; + v1T_money.Hidden := true; + ToolButton1.Visible := false; + end; + + TBEdit.Enabled := false; + TBDel.Enabled := false; + Tchk.Enabled := false; + TNochk.Enabled := false; + Tth.Enabled := false; + if cxTabControl1.TabIndex = 0 then + begin + TBEdit.Enabled := true; + TBDel.Enabled := true; + Tchk.Enabled := true; + Tth.Enabled := true; + end; + if cxTabControl1.TabIndex = 1 then + begin + TNochk.Enabled := true; + end; + InitGrid(); +end; + +procedure TfrmSXCKOutListDBCK.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 TfrmSXCKOutListDBCK.TBEditClick(Sender: TObject); +var + i: integer; +begin + if Order_Main.IsEmpty then + Exit; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select YFID from YF_money_CR '); + sql.Add('where mainID=''' + trim(Order_Main.FieldByName('mainID').AsString) + ''' '); + sql.Add('and status>0 '); + open; + if not IsEmpty then + begin + application.MessageBox('ˣ޸ģ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; +// try +// frmClothContractInPut:=TfrmClothContractInPut.Create(Application); +// with frmClothContractInPut do +// begin +// if trim(fDParameters1)='ѯ' then +// begin +// frmClothContractInPut.Caption:='Ϣѯ'; +// v1Money.Visible:=false; +// v1Price.Visible:=false; +// v1Money.Hidden:=true; +// v1Price.Hidden:=true; +// v1T_money.Visible:=false; +// v1T_money.Hidden:=true; +// v1T_price.Visible:=false; +// v1T_price.Hidden:=true; +// ScrollBox1.Enabled:=false; +// for i:=0 to tv1.ColumnCount -1 do +// begin +// tv1.Columns[i].Options.Editing:=false; +// end; +// v1Mrate.Options.Editing:=true; +// ToolBar2.Enabled:=false; +// end; +// PState:=1; +// FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); +// if ShowModal=1 then +// begin +// // TBRafresh.Click; +// end; +// end; +// finally +// frmClothContractInPut.Free; +// TBRafresh.Click; +// end; +end; + +procedure TfrmSXCKOutListDBCK.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select YFID from YF_money_CR '); + sql.Add('where mainID=''' + trim(Order_Main.FieldByName('mainID').AsString) + ''' '); + sql.Add('and status>0 '); + open; + if not IsEmpty then + begin + application.MessageBox('ˣɾ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if trim(Order_Main.FieldByName('mainID').AsString) = 'CM001' then + exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmSXCKOutListDBCK.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where MainID=''' + Trim(Order_Main.fieldbyname('MainID').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 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 TfrmSXCKOutListDBCK.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel('ͬб', cxGrid1); +end; + +procedure TfrmSXCKOutListDBCK.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('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.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.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + if FileExists(fPrintFile) then + begin + 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 TfrmSXCKOutListDBCK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmSXCKOutListDBCK.TBAddClick(Sender: TObject); +var + i: integer; +begin +// try +// frmClothContractInPut:=TfrmClothContractInPut.Create(Application); +// with frmClothContractInPut do +// begin +// if trim(fDParameters1)='ѯ' then +// begin +// frmClothContractInPut.Caption:='Ϣѯ'; +// v1Money.Visible:=false; +// v1Price.Visible:=false; +// v1Money.Hidden:=true; +// v1Price.Hidden:=true; +// v1T_money.Visible:=false; +// v1T_money.Hidden:=true; +// ScrollBox1.Enabled:=false; +// for i:=0 to tv1.ColumnCount -2 do +// begin +// tv1.Columns[i].Options.Editing:=false; +// end; +// v1Mrate.Options.Editing:=true; +// ToolBar2.Enabled:=false; +// end; +// PState:=0; +// FMainId:=''; +// if ShowModal=1 then +// begin +// +// end; +// end; +// finally +// frmClothContractInPut.Free; +// TBRafresh.Click; +// end; +end; + +procedure TfrmSXCKOutListDBCK.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 TfrmSXCKOutListDBCK.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption, Tv1, 'ָʾ'); + BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7; + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + initForm(); + +end; + +procedure TfrmSXCKOutListDBCK.Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt := 2; +end; + +procedure TfrmSXCKOutListDBCK.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt := 1; +end; + +procedure TfrmSXCKOutListDBCK.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 TfrmSXCKOutListDBCK.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 TfrmSXCKOutListDBCK.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 TfrmSXCKOutListDBCK.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)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; } +end; + +procedure TfrmSXCKOutListDBCK.ToolButton1Click(Sender: TObject); +begin +// if Order_Main.IsEmpty then Exit; +// try +// frmClothContractInPut:=TfrmClothContractInPut.Create(Application); +// with frmClothContractInPut do +// begin +// PState:=3; +// TBSave.Enabled:=false; +// FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); +// if ShowModal=1 then +// begin +// +// end; +// end; +// finally +// frmClothContractInPut.Free; +// end; +end; + +procedure TfrmSXCKOutListDBCK.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton1.Click; +end; + +procedure TfrmSXCKOutListDBCK.TthClick(Sender: TObject); +begin +// if Order_Main.IsEmpty then Exit; +// try +// frmClothContractInPut:=TfrmClothContractInPut.Create(Application); +// with frmClothContractInPut do +// begin +// Caption:='˻'; +// PState:=1; +// v1T_money.Visible:=true; +// v1T_ps.Visible:=true; +// v1T_Qty.Visible:=true; +// v1T_Price.Visible:=true; +// FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); +// if ShowModal=1 then +// begin +// TBRafresh.Click; +// end; +// end; +// finally +// frmClothContractInPut.Free; +// TBRafresh.Click; +// end; +end; + +procedure TfrmSXCKOutListDBCK.tchkClick(Sender: TObject); +var + maxno: string; +begin +// IF Order_Main.IsEmpty then exit; + if Order_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + if Fieldbyname('ssel').AsBoolean then + begin + + if GetLSNo(ADOQueryCmd, maxno, 'DB', 'CK_SXPB_CR', 4, 1) = False then + begin + Application.MessageBox('ȡⵥʧ!', 'ʾ', 0); + Exit; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; +// FieldByName('SPID').Value := CRID; + FieldByName('SPID').Value := Trim(maxno); + FieldByName('FZSPID').Value := Trim(maxno); + FieldByName('CRTime').Value := FormatDateTime('yyyy-MM-dd', SGetServerDateTime(ADOQueryTemp)); + FieldByName('CRType').Value := ''; + FieldByName('FactoryName').Value := Trim(Order_Main.fieldbyname('JHPlace').AsString); + FieldByName('ToFactoryName').Value := Trim(Order_Main.fieldbyname('ToFactoryName').AsString); +// FieldByName('C_Code').Value := Trim(Order_Main.fieldbyname('C_Code').AsString); + + FieldByName('mainid').Value := Order_Main.fieldbyname('mainid').AsString; + FieldByName('subid').Value := Trim(Order_Main.fieldbyname('subid').AsString); + FieldByName('SPCode').Value := Trim(Order_Main.fieldbyname('C_Code').AsString); + FieldByName('SPName').Value := Trim(Order_Main.fieldbyname('C_CodeName').AsString); + FieldByName('SPSpec').Value := Trim(Order_Main.fieldbyname('C_Spec').AsString); +// FieldByName('SPCF').Value := Trim(Order_Main.fieldbyname(' ').AsString); + FieldByName('SPMF').Value := Trim(Order_Main.fieldbyname('MF').AsString); + FieldByName('SPKZ').Value := Trim(Order_Main.fieldbyname('KZ').AsString); + + FieldByName('PiQty').Value := Order_Main.fieldbyname('Qty1').Value; + FieldByName('Qty').Value := Order_Main.fieldbyname('T_Qty').Value; + FieldByName('QtyUnit').Value := Order_Main.fieldbyname('C_Unit').Value; + + FieldByName('MXKCQty').Value := Order_Main.fieldbyname('T_Qty').Value; + FieldByName('MXKCPiQty').Value := Order_Main.fieldbyname('Qty1').Value; + FieldByName('MXKCKGQty').Value := Order_Main.fieldbyname('T_Qty').Value; + + FieldByName('Price').Value := Order_Main.fieldbyname('Price').Value; + FieldByName('Money').Value := Order_Main.fieldbyname('Money').Value; + FieldByName('CKName').Value := ''; + FieldByName('CRFlag').Value := ''; + FieldByName('CRQtyFlag').Value := 1; + FieldByName('Note').Value := Order_Main.fieldbyname('C_Note').Value; +// fieldbyname('kcKw').Value := GetKw(ADOQueryTemp, Order_Main.fieldbyname('C_CodeName').AsString, Order_Main.fieldbyname('PRTColor').AsString); + 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(',MXKCKGQty=(select sum(isnull(kgQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); +// sql.Add(' where SPID=''' + Trim(maxno) + ''''); +// ShowMessage(SQL.text); +// ExecSQL; +// end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_Main SET status=''1'' '); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); +// sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; + + + +// try +// frmClothContractInPut:=TfrmClothContractInPut.Create(Application); +// with frmClothContractInPut do +// begin +// PState:=1; +// FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); +// if ShowModal=1 then +// begin +// with self.ADOQueryCmd do +// begin +// close; +// sql.Clear; +// sql.Add('update Contract_sub SET C_status=''1'' '); +// sql.Add('where mainID ='+quotedstr(trim(self.Order_Main.fieldbyname('mainID').AsString))); +// sql.Add('and subID ='+quotedstr(trim(self.Order_Main.fieldbyname('subID').AsString))); +// execsql; +// end; +// self.InitGrid(); +// end +// else +// begin +// end; +// end; +// finally +// frmClothContractInPut.Free; +// // TBRafresh.Click; +// end; + { if Order_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + + + +{ 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 Contract_sub SET C_status=''1'' '); + sql.Add('where mainID ='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; } +end; + +procedure TfrmSXCKOutListDBCK.TnochkClick(Sender: TObject); +begin +// if Order_Main.IsEmpty then +// exit; + if Order_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; +// try +// ADOQueryCmd.Connection.BeginTrans; +// with ADOQueryCmd do +// begin +// close; +// sql.Clear; +// sql.Add('update Contract_main SET status=''0'' '); +// sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); +//// sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); +// execsql; +// end; + 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 Contract_Main SET status=''0'' '); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); +// sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_SXPB_CR'); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + ExecSQL; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); +// ADOQueryCmd.Connection.CommitTrans; +// except +// ADOQueryCmd.Connection.RollbackTrans; +// application.MessageBox('ʧܣ', 'ʾϢ', 0); +// end; +end; + +procedure TfrmSXCKOutListDBCK.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 TfrmSXCKOutListDBCK.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('H_PS').Index] >= AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Qty1').Index] then + begin + ACanvas.Brush.Color := clSkyBlue; + end; +end; + +procedure TfrmSXCKOutListDBCK.cxTabControl1Change(Sender: TObject); +begin + initForm(); +end; + +end. + diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm new file mode 100644 index 0000000..515ce24 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm @@ -0,0 +1,338 @@ +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 = 430 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + Navigator.Buttons.CustomButtons = <> + 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 + item + Kind = skSum + 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 + #36864#36135#20986#24211 + #38144#21806#20986#24211 + #35843#25320#20986#24211) + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #20986#21040#21152#24037#21378'/'#23458#25143 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 86 + 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> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + 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 v1Column19: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'SPcolor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + 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 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..d017c8e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas @@ -0,0 +1,899 @@ +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, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + +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; + 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; + v1Column17: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column4: 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); + procedure v1Column21PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + private + { Private declarations } + function SaveCKData(): Boolean; + function YSData(): Boolean; + function FYFData(): 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, U_ZdyAttachment, + U_ZdyAttachCP; + +{$R *.dfm} +function TfrmSXCKOutPut.FYFData(): Boolean; +var + CRID, YFID, Price, PriceUnit, OrderUnit, FComTaiTou, cust: string; +begin + Result := False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString) + ''' '); + Open; + end; + + if not ADOQueryTemp.IsEmpty 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_Sub.fieldbyname('ToFactoryName').AsString); + FieldByName('ZdyStr1').Value := 'Ӧ'; + Post; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where mainID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + // sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''''); + sql.Add(' and YFName=''˻'' '); + Open; + end; + + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd, YFID, 'CS', 'YF_Money_CR', 3, 1) = False then + begin + Application.MessageBox('ȡӦʧ!', 'ʾ', 0); + Exit; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; + end; + + with ADOQueryCmd do + begin + Append; + FieldByName('YFID').Value := Trim(YFID); + FieldByName('YFTypeId').Value := Trim(CDS_Sub.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_Sub.fieldbyname('ToFactoryName').AsString); + FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', CDS_Sub.fieldbyname('CRTime').AsDateTime)); + FieldByName('YFType').Value := 'Զ'; + FieldByName('ps').Value :=-1 * CDS_Sub.fieldbyname('PiQty').AsFloat; + FieldByName('Qty').Value :=-1 * CDS_Sub.fieldbyname('Qty').AsFloat; + FieldByName('Price').Value := 0; + FieldByName('Money').Value := 0; + FieldByName('BBMoney').Value := 0; + FieldByName('HuiLv').Value := 1; + FieldByName('BZType').Value := 'RMB'; + FieldByName('QtyUnit').Value := Trim(CDS_Sub.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString); + FieldByName('YFName').Value := '˻'; + FieldByName('MainId').Value := Trim(CDS_Sub.fieldbyname('SPID').AsString); + FieldByName('subID').Value := ''; + FieldByName('P_CodeName').Value := Trim(CDS_Sub.fieldbyname('SPName').AsString); + // FieldByName('P_Spec').Value:=Trim(CDS_Sub.fieldbyname('SPSpec').AsString); + FieldByName('P_Color').Value := Trim(CDS_Sub.fieldbyname('PRTColor').AsString); + FieldByName('SYRName').Value := '𻪷֯'; + FieldByName('status').Value := '0'; + Post; + end; + end + else + begin + YFID := Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + + Result := True; +end; + +function TfrmSXCKOutPut.YSData(): Boolean; +var + CRID, YFID, Price, PriceUnit, OrderUnit, FComTaiTou, cust: string; +begin + Result := False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString) + ''' '); + Open; + end; + + if not ADOQueryTemp.IsEmpty 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_Sub.fieldbyname('ToFactoryName').AsString); + FieldByName('ZdyStr1').Value := 'Ӧ'; + Post; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where mainID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + // sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('CRID').AsString)+''''); + sql.Add(' and YFName='''' '); + Open; + end; + + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd, YFID, 'CS', 'YF_Money_CR', 3, 1) = False then + begin + Application.MessageBox('ȡӦʧ!', 'ʾ', 0); + Exit; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; + end; + + with ADOQueryCmd do + begin + Append; + FieldByName('YFID').Value := Trim(YFID); + FieldByName('YFTypeId').Value := Trim(CDS_Sub.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_Sub.fieldbyname('ToFactoryName').AsString); + FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', CDS_Sub.fieldbyname('CRTime').AsDateTime)); + FieldByName('YFType').Value := 'Զ'; + FieldByName('ps').Value := CDS_Sub.fieldbyname('PiQty').AsFloat; + FieldByName('Qty').Value := CDS_Sub.fieldbyname('Qty').AsFloat; + FieldByName('Price').Value := 0; + FieldByName('Money').Value := 0; + FieldByName('BBMoney').Value := 0; + FieldByName('HuiLv').Value := 1; + FieldByName('BZType').Value := 'RMB'; + FieldByName('QtyUnit').Value := Trim(CDS_Sub.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString); + FieldByName('YFName').Value := ''; + FieldByName('MainId').Value := Trim(CDS_Sub.fieldbyname('SPID').AsString); + FieldByName('subID').Value := ''; + FieldByName('P_CodeName').Value := Trim(CDS_Sub.fieldbyname('SPName').AsString); + // FieldByName('P_Spec').Value:=Trim(CDS_Sub.fieldbyname('SPSpec').AsString); + FieldByName('P_Color').Value := Trim(CDS_Sub.fieldbyname('PRTColor').AsString); + FieldByName('SYRName').Value := '𻪷֯'; + FieldByName('status').Value := '0'; + Post; + end; + end + else + begin + YFID := Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + + Result := True; +end; + +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('ToFactoryName').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('ToFactoryName').Value; + FieldByName('ToFactoryNo').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('delete from YF_Money_CR '); + sql.Add(' where mainID=''' + Trim(Maxno) + ''''); + sql.Add(' and YFName='''' '); + execsql; + 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(',MXKCKGQty=(select sum(isnull(kgQty,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(',MXKCKGQty=(select sum(isnull(kgQty,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; + + if Trim(CDS_Sub.fieldbyname('CRType').AsString) = '۳' then + begin + if not YSData() then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + exit; + end; + end; + + if Trim(CDS_Sub.fieldbyname('CRType').AsString) = '˻' then + begin + if not FYFData() then //ɸӦ + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + exit; + end; + end; + 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 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(',MXKCKGQty=(select sum(isnull(kgQty,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('delete from YF_Money_CR '); + sql.Add(' where mainID=''' + Trim(CDS_Sub.fieldbyname('SPID').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 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 + if CDS_Sub.FieldByName('CRType').AsString = '۳' then + begin + try + frmZdyAttachment := TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType := '𻪷֯'; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('ToFactoryName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachment.Free; + end; + end + else + 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; +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; + +procedure TfrmSXCKOutPut.v1Column21PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'SYRName'; + flagname := '˾̧ͷ'; + if Trim(flag) = 'SYRName' then + begin + flag := 'OrdDefStr2'; + V1Name.Caption := ''; + V1Note.Caption := 'Ӣ'; + fnote := True; + end; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SYRName').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSXCKOutPut.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +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('SPColor').Value := Trim(frmZdyAttachCP.CDS_HZ.fieldbyname('DEFstr3').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. + 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_SXCRKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCRKList.dfm new file mode 100644 index 0000000..be84270 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCRKList.dfm @@ -0,0 +1,604 @@ +object frmSXCRKList: TfrmSXCRKList + 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 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 = 1319 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 515 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 728 + Top = 12 + Width = 60 + Height = 12 + Caption = #22383#24067#20379#24212#21830 + end + object Label5: TLabel + Left = 234 + Top = 12 + Width = 60 + Height = 12 + Caption = #20986#20837#24211#21333#21495 + end + object Label8: TLabel + Left = 515 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label12: TLabel + Left = 235 + Top = 36 + Width = 60 + Height = 12 + Caption = #20986#20837#24211#31867#22411 + end + object Label6: TLabel + Left = 728 + Top = 36 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 760 + Top = 152 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 380 + Top = 152 + Width = 48 + Height = 12 + Caption = #25152#23646#31867#22411 + end + object Label10: TLabel + Left = 592 + Top = 148 + Width = 48 + Height = 12 + Caption = #32534' '#21495 + end + object Label11: TLabel + Left = 592 + Top = 172 + 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 = 542 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 788 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 300 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + end + object SPSpec: TEdit + Tag = 2 + Left = 542 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = SPSpecChange + end + object SPCF: TEdit + Tag = 2 + Left = 788 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 809 + Top = 148 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + object SSType: TComboBox + Tag = 2 + Left = 429 + Top = 148 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #33258#24049 + #23458#25143 + '') + end + object SPCode: TEdit + Tag = 2 + Left = 641 + Top = 144 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 641 + Top = 168 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = FactoryNameChange + end + object CRType: TEdit + Tag = 2 + Left = 300 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 11 + OnChange = SPIDChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1319 + Height = 380 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + 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 + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column3 + end + item + Kind = skSum + Column = Tv1Column4 + 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#20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#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 = #20986#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 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 v1Column17: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + 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 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 = 69 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty10' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty10' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + 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 Tv1Column3: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'MXKCPiQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column4: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'MXKCQty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column1: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 120 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + Parameters = <> + Left = 1184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1228 + Top = 65520 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_PBMDDJ.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1112 + Top = 65520 + 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_SXCRKList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCRKList.pas new file mode 100644 index 0000000..7ac5a8c --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCRKList.pas @@ -0,0 +1,240 @@ +unit U_SXCRKList; + +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, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +type + TfrmSXCRKList = 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; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label12: 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; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + SSType: TComboBox; + v1Column17: TcxGridDBColumn; + Label10: TLabel; + SPCode: TEdit; + Label11: TLabel; + ToFactoryName: TEdit; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + CRType: 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 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 + frmSXCRKList: TfrmSXCRKList; + +implementation +uses + U_DataLink,U_RTFun,U_SXCKInPut; + +{$R *.dfm} + +procedure TfrmSXCRKList.FormDestroy(Sender: TObject); +begin + frmSXCRKList:=nil; +end; + +procedure TfrmSXCRKList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmSXCRKList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; + canshu1:=Trim(DParameters1); + canshu2:=Trim(DParameters2); + canshu3:=Trim(DParameters3); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update CK_SXPB_CR SET MXKCQty=(select SUM(CRQtyFlag*Qty) from CK_SXPB_CR X where X.FZSPID=CK_SXPB_CR.FZSPID and X.Filltime<=CK_SXPB_CR.Filltime ), '); + sql.Add('MXKCPiQty=(select SUM(CRQtyFlag*PiQty) from CK_SXPB_CR X where X.FZSPID=CK_SXPB_CR.FZSPID and X.Filltime<=CK_SXPB_CR.Filltime ) '); + sql.Add('where CKName='''' and CRFlag='''' '); + execsql; + //ShowMessage(SQL.Text); + end; +end; + +procedure TfrmSXCRKList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered:=False; + sql.Clear; + sql.Add(' select A.*,piQty10=CRQtyFlag*PiQty,Qty10=CRQtyFlag*Qty '); + 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,'''')='''''); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmSXCRKList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmSXCRKList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmSXCRKList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'ֿ'); + Close; +end; + +procedure TfrmSXCRKList.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv1,'ֿ'); + + //InitGrid(); +end; + +procedure TfrmSXCRKList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid2); +end; + +procedure TfrmSXCRKList.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 TfrmSXCRKList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmSXCRKList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmSXCRKList.SPIDChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCRKList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmSXCRKList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +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..cd7ea4e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.dfm @@ -0,0 +1,349 @@ +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 = 431 + 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 + #25104#21697#22238#20462) + 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 v1Column18: TcxGridDBColumn + Tag = 2 + Caption = #24037#21378#21333#21495 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Width = 75 + 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..8adc767 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGCKInPut.pas @@ -0,0 +1,660 @@ +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; + v1Column18: 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..302c67e --- /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 = 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 + #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..ce2eda5 --- /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 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)+''''); + {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..1328079 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGMDList.dfm @@ -0,0 +1,617 @@ +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 = 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 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 v1Column18: TcxGridDBColumn + Caption = #24037#21378#21333#21495 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + 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..39aab27 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_WJGMDList.pas @@ -0,0 +1,395 @@ +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; + 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 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..f0e6c69 --- /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 = 1059 + 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 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 = #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 = 1059 + 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 = 1059 + Height = 461 + 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..8ddab4e --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachCP.pas @@ -0,0 +1,401 @@ +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; + 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; + 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 TBFindClick(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; + TBFind.Click; + 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.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 TfrmZdyAttachCP.ZdyNameChange(Sender: TObject); +begin + TBFind.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..2cbd691 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachGYS.dfm @@ -0,0 +1,340 @@ +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#21378 + #21152#24037#21378 + #22806#36141#25104#21697#21378 + #21360#26579#21378 + #21360#33457#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_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..bac7085 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.dfm @@ -0,0 +1,361 @@ +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_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 = 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 = 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_PBMDDJ.SHuangSe + Styles.IncSearch = DataLink_PBMDDJ.SHuangSe + Styles.Selection = DataLink_PBMDDJ.SHuangSe + Styles.Header = DataLink_PBMDDJ.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_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 = 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/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.pas b/坯布码单待检(PBMDDJ.dll)/U_ZdyAttachment.pas new file mode 100644 index 0000000..a050097 --- /dev/null +++ b/坯布码单待检(PBMDDJ.dll)/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_RTFun,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/坯布码单待检(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/基础资料维护(BaseInfo.dll)/BaseInfo.cfg b/基础资料维护(BaseInfo.dll)/BaseInfo.cfg new file mode 100644 index 0000000..7876259 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/BaseInfo.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/基础资料维护(BaseInfo.dll)/BaseInfo.dof b/基础资料维护(BaseInfo.dll)/BaseInfo.dof new file mode 100644 index 0000000..4ecf1e2 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/BaseInfo.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:\Dp7Repo\Ŀ\D7wmhengming\ά(BaseInfo.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/基础资料维护(BaseInfo.dll)/BaseInfo.dpr b/基础资料维护(BaseInfo.dll)/BaseInfo.dpr new file mode 100644 index 0000000..e667f31 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/BaseInfo.dpr @@ -0,0 +1,57 @@ +library BaseInfo; + +uses + SysUtils, + classes, + forms, + WinTypes, + WinProcs, + U_DataLink in 'U_DataLink.pas' {DataLink_BaseInfo: TDataModule}, + U_GetDllForm in 'U_GetDllForm.pas', + U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas', + U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, + U_SelExportField in '..\..\..\ThreeFun\Form\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_ZdyAttInputCP20 in 'U_ZdyAttInputCP20.pas' {frmZdyAttInputCP20}, + U_ZdyAttachCP10 in 'U_ZdyAttachCP10.pas' {frmZdyAttachCP10}, + U_ZdyInput in 'U_ZdyInput.pas' {frmZdyInput}, + U_WeiXinHelp in 'U_WeiXinHelp.pas' {frmWeiXinHelp}, + U_CPKWList in 'U_CPKWList.pas' {frmCPKWList}, + U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas', + U_ZdyAttInputCP10 in 'U_ZdyAttInputCP10.pas' {frmZdyAttInputCP10}, + U_CPKWKCList in 'U_CPKWKCList.pas' {frmCPKWKCList}; + +// 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 + +end; +exports + GetDllForm; +begin + try + NewDllApp:=Application; + DLLProc := @DLLUnloadProc; + except + + end; +end. + diff --git a/基础资料维护(BaseInfo.dll)/BaseInfo.rar b/基础资料维护(BaseInfo.dll)/BaseInfo.rar new file mode 100644 index 0000000..298905f Binary files /dev/null and b/基础资料维护(BaseInfo.dll)/BaseInfo.rar differ diff --git a/基础资料维护(BaseInfo.dll)/BaseInfo.res b/基础资料维护(BaseInfo.dll)/BaseInfo.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/基础资料维护(BaseInfo.dll)/BaseInfo.res differ diff --git a/基础资料维护(BaseInfo.dll)/CPCK.cfg b/基础资料维护(BaseInfo.dll)/CPCK.cfg new file mode 100644 index 0000000..08e3903 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/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"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/基础资料维护(BaseInfo.dll)/CPCK.dof b/基础资料维护(BaseInfo.dll)/CPCK.dof new file mode 100644 index 0000000..9bc7f91 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/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=F:\selfware_83398\selfware\ֿ\Ŀ\self\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/基础资料维护(BaseInfo.dll)/CPCK.res b/基础资料维护(BaseInfo.dll)/CPCK.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/基础资料维护(BaseInfo.dll)/CPCK.res differ diff --git a/基础资料维护(BaseInfo.dll)/FieldExportSet/产品资料列表.INI b/基础资料维护(BaseInfo.dll)/FieldExportSet/产品资料列表.INI new file mode 100644 index 0000000..cb61921 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/FieldExportSet/产品资料列表.INI @@ -0,0 +1,2 @@ +[] +ֶ=Begin/Ʒ/Ʒ///ɷ/ɫ//ɫ/ŷ//ע///ƻ(%) diff --git a/基础资料维护(BaseInfo.dll)/FieldExportSet/客户资料列表.INI b/基础资料维护(BaseInfo.dll)/FieldExportSet/客户资料列表.INI new file mode 100644 index 0000000..cb61921 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/FieldExportSet/客户资料列表.INI @@ -0,0 +1,2 @@ +[] +ֶ=Begin/Ʒ/Ʒ///ɷ/ɫ//ɫ/ŷ//ע///ƻ(%) diff --git a/基础资料维护(BaseInfo.dll)/JCInfoSet.cfg b/基础资料维护(BaseInfo.dll)/JCInfoSet.cfg new file mode 100644 index 0000000..08e3903 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/JCInfoSet.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/基础资料维护(BaseInfo.dll)/JCInfoSet.dof b/基础资料维护(BaseInfo.dll)/JCInfoSet.dof new file mode 100644 index 0000000..9bc7f91 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/JCInfoSet.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\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/基础资料维护(BaseInfo.dll)/JCInfoSet.res b/基础资料维护(BaseInfo.dll)/JCInfoSet.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/基础资料维护(BaseInfo.dll)/JCInfoSet.res differ diff --git a/基础资料维护(BaseInfo.dll)/ProjectGroup1.bpg b/基础资料维护(BaseInfo.dll)/ProjectGroup1.bpg new file mode 100644 index 0000000..e6b2914 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/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/基础资料维护(BaseInfo.dll)/ProjectGroup1.~bpg b/基础资料维护(BaseInfo.dll)/ProjectGroup1.~bpg new file mode 100644 index 0000000..7c050f6 --- /dev/null +++ b/基础资料维护(BaseInfo.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/基础资料维护(BaseInfo.dll)/SYSTEMSET.ini b/基础资料维护(BaseInfo.dll)/SYSTEMSET.ini new file mode 100644 index 0000000..e699a5f --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/SYSTEMSET.ini @@ -0,0 +1,3 @@ +[SERVER] +ַ=192.168.0.100 +=֯ \ No newline at end of file diff --git a/基础资料维护(BaseInfo.dll)/U_CPKWEdit.dfm b/基础资料维护(BaseInfo.dll)/U_CPKWEdit.dfm new file mode 100644 index 0000000..b96569d --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_CPKWEdit.dfm @@ -0,0 +1,202 @@ +object frmCPKWEdit: TfrmCPKWEdit + Left = 215 + Top = 191 + Width = 920 + Height = 370 + Caption = #20179#20301#36755#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 = 904 + 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 = 904 + Height = 301 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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 + 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.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column6: TcxGridDBColumn + Caption = #20179#20301#32534#21495 + DataBinding.FieldName = 'ZdyCode' + HeaderAlignmentHorz = taCenter + Width = 130 + end + object v2Column8: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v2DEFStr6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'DEFStr2' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2DEFStr6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v2DEFStr7: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFStr3' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + #22266#23450#26550 + #22791#29992#26550 + #20020#26102#22791#29992#26550 + #25171#22534) + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v2Column3: TcxGridDBColumn + Caption = #35774#23450#21305#25968 + DataBinding.FieldName = 'mrate' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 135 + 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 = 528 + Top = 200 + 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/基础资料维护(BaseInfo.dll)/U_CPKWEdit.pas b/基础资料维护(BaseInfo.dll)/U_CPKWEdit.pas new file mode 100644 index 0000000..4910bf0 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_CPKWEdit.pas @@ -0,0 +1,316 @@ +unit U_CPKWEdit; + +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,strutils, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +type + TfrmCPKWEdit = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column6: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2DEFStr6: TcxGridDBColumn; + v2DEFStr7: 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); + procedure v2Column8PropertiesEditValueChanged(Sender: TObject); + procedure v2DEFStr6PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + function SaveData():Boolean; + + public + fType:string; + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmCPKWEdit: TfrmCPKWEdit; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmCPKWEdit.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 TfrmCPKWEdit.FormDestroy(Sender: TObject); +begin + frmCPKWEdit:=nil; +end; + +procedure TfrmCPKWEdit.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPKWEdit.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv2,'ͻԶ'); + Close; +end; +procedure TfrmCPKWEdit.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv2,'ͻԶ'); + InitGrid(); + if Trim(FCYID)='' then + begin + CDS_HZ.Append; + CDS_HZ.Post; + end; +end; + +procedure TfrmCPKWEdit.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +function TfrmCPKWEdit.SaveData():Boolean; +var + maxId,CRID,fzdyCode:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FCYID)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'KW','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 ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment X where ATID='''+Trim(FCYID)+''' and defstr3=''̶'' '); + open; + end; + if not ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPDATE CK_BanCP_KC set kckw='''' '); + sql.Add('where kckw='+quotedstr(trim(ADOQueryTemp.fieldbyname('zdyCode').AsString))); + sql.Add('UPDATE CK_BanCP_CR set kckw='''' '); + sql.Add('where kckw='+quotedstr(trim(ADOQueryTemp.fieldbyname('zdyCode').AsString))); + execsql; + end; + 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); + FieldByName('zdyCode').Value:=Trim(fzdyCode); + 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('ZdyCode').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'',0); + // FieldByName('Type').Value:='CPKW'; + FieldByName('Type').Value:=trim(fType); + FieldByName('mrate').Value:=CDS_HZ.fieldbyname('mrate').AsFloat; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('ATID').Value:=Trim(maxId); + Post; + end; + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where ZdyCode='''+Trim(CDS_HZ.fieldbyname('ZdyCode').AsString)+''''); + sql.Add(' and Type=''CPKW'' '); + Open; + end; + if ADOQueryTemp.RecordCount>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('λظ!','ʾ',0); + Exit; + end; + } + { with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment X where ATID='''+Trim(FCYID)+''' and defstr3=''̶'' '); + open; + end; + if not ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('UPDATE CK_BanCP_KC set kckw='+quotedstr(trim(ADOQueryTemp.fieldbyname('zdyCode').AsString))); + sql.Add('where C_CodeName='+quotedstr(trim(ADOQueryTemp.fieldbyname('defstr1').AsString))); + sql.Add('and C_color='+quotedstr(trim(ADOQueryTemp.fieldbyname('defstr2').AsString))); + sql.Add('UPDATE CK_BanCP_CR set kckw='+quotedstr(trim(ADOQueryTemp.fieldbyname('zdyCode').AsString))); + sql.Add('where C_CodeName='+quotedstr(trim(ADOQueryTemp.fieldbyname('defstr1').AsString))); + sql.Add('and C_color='+quotedstr(trim(ADOQueryTemp.fieldbyname('defstr2').AsString))); + execsql; + end; + end;} + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmCPKWEdit.ToolButton3Click(Sender: TObject); +begin + cxGrid2.SetFocus; + if Trim(CDS_HZ.FieldByName('ZdyCode').AsString)='' 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 TfrmCPKWEdit.v2Column8PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with CDS_HZ do + begin + Edit; + FieldByName('DEFstr1').Value:=Trim(mvalue); + Post; + end; + self.tv2.Controller.EditingController.ShowEdit(); + + + +end; + +procedure TfrmCPKWEdit.v2DEFStr6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with CDS_HZ do + begin + Edit; + FieldByName('DEFstr2').Value:=Trim(mvalue); + Post; + end; + self.tv2.Controller.EditingController.ShowEdit(); + + + +end; + +end. diff --git a/基础资料维护(BaseInfo.dll)/U_CPKWKCList.dfm b/基础资料维护(BaseInfo.dll)/U_CPKWKCList.dfm new file mode 100644 index 0000000..a9999f9 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_CPKWKCList.dfm @@ -0,0 +1,189 @@ +object frmCPKWKCList: TfrmCPKWKCList + Left = 192 + Top = 130 + Width = 990 + Height = 529 + 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 + WindowState = wsMaximized + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 974 + 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 ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + 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 = 974 + Height = 334 + Align = alTop + 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 = skCount + Column = v1Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1KCROllNum + 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_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.Default + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 115 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 77 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + 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 = 'BCgangNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column4: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column3: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.Items.Strings = ( + #27491#21697 + #19968#31561#27425#21697 + #20108#31561#27425#21697) + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1KCROllNum: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCROllNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v2Column6: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'kcQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource1: TDataSource + DataSet = ADOQueryMain + Left = 588 + Top = 212 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 408 + Top = 236 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 292 + Top = 260 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_CPKWKCList.pas b/基础资料维护(BaseInfo.dll)/U_CPKWKCList.pas new file mode 100644 index 0000000..121ab78 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_CPKWKCList.pas @@ -0,0 +1,114 @@ +unit U_CPKWKCList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, + cxData, cxDataStorage, cxEdit, DB, cxDBData, cxCheckBox, cxDropDownEdit, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, ADODB; + +type + TfrmCPKWKCList = class(TForm) + ToolBar1: TToolBar; + ToolButton1: TToolButton; + TBClose: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1C_Color: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1KCROllNum: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + DataSource1: TDataSource; + ADOQueryMain: TADOQuery; + ADOQueryTmp: TADOQuery; + procedure FormDestroy(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + fkeyNo:string; + {public declarations } + end; + +var + frmCPKWKCList: TfrmCPKWKCList; + +implementation +uses + U_DataLink,U_Fun; +{$R *.dfm} +procedure TfrmCPKWKCList.InitGrid(); +begin + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A where Type=''CPKW'' and zdyCode='+quotedstr(trim(fkeyNo))); + open; + end; + + IF ADOQueryTmp.FieldByName('defstr3').AsString='̶' then + begin + with ADOQueryMain do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC X where KCKW='+quotedstr(trim(ADOQueryTmp.fieldbyname('zdyCode').AsString))); + sql.Add('and kcQty>0'); + open; + end; + end; + + IF ADOQueryTmp.FieldByName('defstr3').AsString='' then + begin + with ADOQueryMain do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC X where C_CodeName='+quotedstr(trim(ADOQueryTmp.fieldbyname('defstr1').AsString))); + sql.Add('and C_CodeName='+quotedstr(trim(ADOQueryTmp.fieldbyname('defstr2').AsString))); + sql.Add('and kcQty>0'); + open; + end; + end; +end; +procedure TfrmCPKWKCList.FormDestroy(Sender: TObject); +begin + frmCPKWKCList:=nil; +end; + +procedure TfrmCPKWKCList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid2); +end; + +procedure TfrmCPKWKCList.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmCPKWKCList.FormCreate(Sender: TObject); +begin + cxGrid2.Align:=alclient; +end; + +procedure TfrmCPKWKCList.FormShow(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/基础资料维护(BaseInfo.dll)/U_CPKWList.dfm b/基础资料维护(BaseInfo.dll)/U_CPKWList.dfm new file mode 100644 index 0000000..d9b9f74 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_CPKWList.dfm @@ -0,0 +1,423 @@ +object frmCPKWList: TfrmCPKWList + Left = 137 + Top = 109 + 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 = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_BaseInfo.ThreeImgList + Flat = True + Images = DataLink_BaseInfo.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 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton5: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475#26126#32454 + ImageIndex = 57 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 12 + OnClick = ToolButton6Click + end + object ToolButton7: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #23548#20837#24211#20301 + ImageIndex = 57 + OnClick = ToolButton7Click + end + object ToolButton1: TToolButton + Left = 576 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 639 + 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 = 24 + Height = 12 + Caption = #21697#21517 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #20179#20301#32534#21495 + end + object Label2: TLabel + Left = 559 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label4: TLabel + Left = 378 + Top = 13 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object defstr1: TEdit + Tag = 2 + Left = 235 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = defstr1Change + end + object ZdyCode: TEdit + Tag = 2 + Left = 83 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = defstr1Change + end + object DEFstr3: TComboBox + Tag = 1 + Left = 588 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + OnChange = defstr1Change + Items.Strings = ( + '' + #22266#23450#26550 + #22791#29992#26550 + #20020#26102#22791#29992#26550 + #25171#22534) + end + object defstr2: TEdit + Tag = 2 + Left = 408 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = defstr1Change + end + object CheckBox1: TCheckBox + Left = 728 + Top = 12 + 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 = 4 + OnClick = CheckBox1Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1022 + Height = 335 + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column4 + end + item + Kind = skSum + Column = v2Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column6: TcxGridDBColumn + Caption = #20179#20301#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 124 + end + object v2Column8: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'DEFstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v2Column10: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'DEFStr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFStr3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v2Column3: TcxGridDBColumn + Caption = #35774#23450#21305#25968 + DataBinding.FieldName = 'mrate' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 114 + end + object v2Column2: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'CPRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v2Column4: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'cpQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + 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 = 153 + 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 = 749 + Top = 257 + 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 = 780 + Top = 224 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 572 + Top = 152 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 224 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 903 + Top = 159 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 736 + Top = 180 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 376 + Top = 208 + end + object OpenDialog1: TOpenDialog + Left = 936 + Top = 41 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_CPKWList.pas b/基础资料维护(BaseInfo.dll)/U_CPKWList.pas new file mode 100644 index 0000000..384a6e1 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_CPKWList.pas @@ -0,0 +1,409 @@ +unit U_CPKWList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics,ComObj, 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, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator; + +type + FdDy=record + inc: integer; //ͻ׽־ + FDdys:string[32]; //ͻ׽ + FdDysName:string[32]; //ͻ׽ + end; + TfrmCPKWList = 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; + defstr1: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + v2Column8: TcxGridDBColumn; + Label2: TLabel; + DEFstr3: TComboBox; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + defstr2: TEdit; + Label4: TLabel; + v2Column2: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + ToolButton5: TToolButton; + v2Column5: TcxGridDBColumn; + ToolButton6: TToolButton; + ADOQueryPrint: TADOQuery; + CheckBox1: TCheckBox; + ToolButton7: TToolButton; + OpenDialog1: TOpenDialog; + 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 defstr1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + private + + { Private declarations } + procedure InitGrid(); + + public + fType:string; + dFdDy: array[0..20] of FdDy; //ͻ + end; + +var + frmCPKWList: TfrmCPKWList; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_CPKWEdit, U_CPKWKCList; + +{$R *.dfm} + +procedure TfrmCPKWList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.* '); + // sql.Add(' cpRollNum=(select count(MJID) from CK_BanCP_KC X where X.KCKW=A.zdyCode and X.kcQty>0),'); + // sql.Add(' cpQty=(select sum(kcQty) from CK_BanCP_KC X where X.KCKW=A.zdyCode and X.kcQty>0)'); + sql.Add(' from KH_Zdy_Attachment A '); + sql.Add(' where Type='''+trim(fType)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + ToolButton2.Click; +end; + + +procedure TfrmCPKWList.FormDestroy(Sender: TObject); +begin + frmCPKWList:=nil; +end; + +procedure TfrmCPKWList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPKWList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv2,'ͻԶ'); + Close; +end; +procedure TfrmCPKWList.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 TfrmCPKWList.FormShow(Sender: TObject); +begin + cxGrid2.Align:=alclient; + ReadCxGrid(self.Caption,Tv2,'ͻԶ'); + InitGrid(); +end; + +procedure TfrmCPKWList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCPKWList.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 TfrmCPKWList.defstr1Change(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmCPKWList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ӧб'); +end; + +procedure TfrmCPKWList.ToolButton4Click(Sender: TObject); +begin + try + frmCPKWEdit:=TfrmCPKWEdit.Create(Application); + with frmCPKWEdit do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + fType:=self.fType; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmCPKWEdit.Free; + end; +end; + +procedure TfrmCPKWList.ToolButton3Click(Sender: TObject); +begin + try + frmCPKWEdit:=TfrmCPKWEdit.Create(Application); + with frmCPKWEdit do + begin + FCYID:=''; + fType:=self.fType; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmCPKWEdit.Free; + end; +end; + +procedure TfrmCPKWList.ToolButton5Click(Sender: TObject); +begin + frmCPKWKCList:=TfrmCPKWKCList.create(self); + with frmCPKWKCList do + begin + fkeyNO:=CDS_HZ.fieldbyname('zdyCode').AsString; + showmodal; + free; + end; +end; + +procedure TfrmCPKWList.ToolButton6Click(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +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 CDS_HZ.FieldByName('SSel').AsBoolean then + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.* '); + sql.Add(' from KH_Zdy_Attachment A') ; + SQL.Add(' where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + sql.Add(' and Type='''+trim(fType)+''' '); + Open; + end; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('ATID').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); + CDS_HZ.EnableControls; + exit; + end; + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\Ʒλǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + // RM1.ShowReport; + RM1.PrintReport; + sleep(200); + + end else + begin + CDS_HZ.EnableControls; + Application.MessageBox(PChar('û'+trim(fPrintFile)),'ʾ',0); + Exit; + end; + end; + Next; + end; + end; + CDS_HZ.EnableControls; + +end; + +procedure TfrmCPKWList.CheckBox1Click(Sender: TObject); +begin + SelOKNo(CDS_HZ,checkbox1.Checked); +end; + +procedure TfrmCPKWList.ToolButton7Click(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:='DEFStr3'; + 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,'KW','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('ZdyName').Value:=Trim(ADOQueryCmd.FieldByName('ZdyCode').asstring); + ADOQueryCmd.FieldByName('Type').Value:=fType; + ADOQueryCmd.FieldByName('Filler').Value:=Trim(DName); + ADOQueryCmd.Post; + 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; + +end. + + diff --git a/基础资料维护(BaseInfo.dll)/U_ClothContractList_CG_help.dfm b/基础资料维护(BaseInfo.dll)/U_ClothContractList_CG_help.dfm new file mode 100644 index 0000000..4b28380 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ClothContractList_CG_help.dfm @@ -0,0 +1,535 @@ +object frmClothContractList_CG_help: TfrmClothContractList_CG_help + Left = 133 + Top = 0 + Width = 1217 + Height = 738 + Caption = #22383#24067#37319#36141#35745#21010#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 = 1201 + 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 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + 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 + Visible = False + 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 = 1201 + Height = 53 + 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 = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 267 + Top = 22 + Width = 78 + Height = 12 + Caption = #37319#36141#35745#21010#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 440 + 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 = 592 + 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 = 720 + Top = 22 + Width = 26 + Height = 12 + Caption = #20379#26041 + 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 = 167 + 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 = 349 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoMChange + OnKeyPress = conPress + end + object C_CodeNameM: TEdit + Tag = 2 + Left = 493 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoMChange + end + object C_Spec: TEdit + Tag = 2 + Left = 624 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoMChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 756 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoMChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 85 + Width = 1201 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1201 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + 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 + 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 = #37319#36141#35745#21010#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 98 + 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 = 108 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1PRTSpec: 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 v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + 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 = #35745#20215#21333#20301 + 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 + object v1Column3: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column6: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column7: TcxGridDBColumn + Caption = #31614#35746#22320#22336 + DataBinding.FieldName = 'QDPalce' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 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/基础资料维护(BaseInfo.dll)/U_ClothContractList_CG_help.pas b/基础资料维护(BaseInfo.dll)/U_ClothContractList_CG_help.pas new file mode 100644 index 0000000..a25df35 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ClothContractList_CG_help.pas @@ -0,0 +1,576 @@ +unit U_ClothContractList_CG_help; + +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 + TfrmClothContractList_CG_help = 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; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTUnit: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + 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 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 Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure conPress(Sender: TObject; var Key: Char); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractList_CG_help: TfrmClothContractList_CG_help; + +implementation +uses + U_DataLink,U_ClothContractInPut_CG,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_CG_help.FormDestroy(Sender: TObject); +begin + frmClothContractList_CG_help:=nil; +end; + +procedure TfrmClothContractList_CG_help.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractList_CG_help.FormCreate(Sender: TObject); +begin + ScrollBox1.Align:=alClient; +end; + +procedure TfrmClothContractList_CG_help.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption,Tv1,'ָʾ'); +end; + +procedure TfrmClothContractList_CG_help.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.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; + +procedure TfrmClothContractList_CG_help.InitForm(); +begin + ReadCxGrid(self.Caption,Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_CG_help.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_CG_help.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPut_CG:=TfrmClothContractInPut_CG.Create(Application); + with frmClothContractInPut_CG do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPut_CG.Free; + end; +end; + +procedure TfrmClothContractList_CG_help.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 trim(Order_Main.FieldByName('mainID').AsString)='CM001' then exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmClothContractList_CG_help.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where MainID='''+Trim(Order_Main.fieldbyname('MainID').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 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_CG_help.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractList_CG_help.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 TfrmClothContractList_CG_help.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_CG_help.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPut_CG:=TfrmClothContractInPut_CG.Create(Application); + with frmClothContractInPut_CG do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPut_CG.Free; + end; +end; + +procedure TfrmClothContractList_CG_help.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_CG_help.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractList_CG_help.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractList_CG_help.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=1; +end; + +procedure TfrmClothContractList_CG_help.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_CG_help.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_CG_help.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_CG_help.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)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractList_CG_help.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + IF Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +end. diff --git a/基础资料维护(BaseInfo.dll)/U_DataLink.dfm b/基础资料维护(BaseInfo.dll)/U_DataLink.dfm new file mode 100644 index 0000000..65bcaca --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_DataLink.dfm @@ -0,0 +1,17974 @@ +object DataLink_BaseInfo: TDataLink_BaseInfo + OldCreateOrder = False + OnDestroy = DataModuleDestroy + Left = 261 + Top = 201 + 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 + 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 = 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/基础资料维护(BaseInfo.dll)/U_DataLink.pas b/基础资料维护(BaseInfo.dll)/U_DataLink.pas new file mode 100644 index 0000000..882ab4c --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_DataLink.pas @@ -0,0 +1,85 @@ +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; //##// + 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_BaseInfo = 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_BaseInfo: TDataLink_BaseInfo; + +implementation +{$R *.dfm} + + +procedure TDataLink_BaseInfo.DataModuleDestroy(Sender: TObject); +begin + DataLink_BaseInfo:=nil; +end; + +end. + + + + diff --git a/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas b/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas new file mode 100644 index 0000000..181ecba --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas @@ -0,0 +1,294 @@ +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; + +implementation + +uses + U_DataLink, U_KHInfo, U_ZdyAttachment, U_ZdyAttachGYS, U_ZdyAttachCP, + U_CPKWlist, U_ZdyAttachCP10, U_ZdyAttachCP20, U_ZdyAttachPB; + + ///////////////////////////////////////////////////////////////// + // ˵:ȡ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 := '101.132.143.144,7781'; +// server:='.'; + dtbase := 'hengmingdata'; + user := 'rtsa'; + pswd := 'rightsoft@5740'; + 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:='ѯ'; + // DParameters1:='1'; + // DataBase:='ӹ'; + //DataBase:='𻪷֯'; +// DParameters4:='Ȩ'; + 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 frmZdyAttachment = nil then + begin + frmZdyAttachment := TfrmZdyAttachment.Create(application.MainForm); + with frmZdyAttachment do + begin + caption := Trim(Title); + fkhType := trim(DataBase); + canshu1 := trim(DParameters1); + FParameters4 := trim(DParameters4); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmZdyAttachment.BringToFront; + // + mnewHandle := frmZdyAttachment.Handle; + + end; + 2: //Ӧά + begin + if frmZdyAttachGYS = nil then + begin + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(application.MainForm); + with frmZdyAttachGYS do + begin + caption := Trim(Title); + // fDEFstr5:=trim(''); + fDEFstr5 := trim(DataBase); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmZdyAttachGYS.BringToFront; + // + mnewHandle := frmZdyAttachGYS.Handle; + + end; + 3: //Ʒά + begin + if frmZdyAttachCP = nil then + begin + frmZdyAttachCP := TfrmZdyAttachCP.Create(application.MainForm); + with frmZdyAttachCP do + begin + caption := Trim(Title); + // fkhType:=''; + fkhType := trim(DataBase); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmZdyAttachCP.BringToFront; + // + mnewHandle := frmZdyAttachCP.Handle; + + end; + 33: //ά + begin + if frmZdyAttachPB = nil then + begin + frmZdyAttachPB := TfrmZdyAttachPB.Create(application.MainForm); + with frmZdyAttachPB do + begin + caption := Trim(Title); + // fkhType:=''; + fkhType := trim(DataBase); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmZdyAttachPB.BringToFront; + // + mnewHandle := frmZdyAttachPB.Handle; + + end; + 31: //Ʒά + begin + if frmZdyAttachCP10 = nil then + begin + frmZdyAttachCP10 := TfrmZdyAttachCP10.Create(application.MainForm); + with frmZdyAttachCP10 do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmZdyAttachCP10.BringToFront; + // + mnewHandle := frmZdyAttachCP10.Handle; + + end; + 32: //ƷĿ¼ + begin + if frmZdyAttachCP20 = nil then + begin + frmZdyAttachCP20 := TfrmZdyAttachCP20.Create(application.MainForm); + with frmZdyAttachCP20 do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmZdyAttachCP20.BringToFront; + // + mnewHandle := frmZdyAttachCP20.Handle; + + end; + + 6: //ͳƻܲѯ + begin + if frmCPKWList = nil then + begin + frmCPKWList := TfrmCPKWList.Create(application.MainForm); + with frmCPKWList do + begin + caption := Trim(Title); + fType := trim(DataBase); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCPKWList.BringToFront; + // + mnewHandle := frmCPKWList.Handle; + + end; + end; // end case + + Result := mnewHandle; +// NewDllApp:=Application ; +end; +//=========================================================== + //ݿӳ +//=========================================================== + +function ConnData(): Boolean; +begin + if not Assigned(DataLink_BaseInfo) then + DataLink_BaseInfo := TDataLink_BaseInfo.Create(Application); + try + with DataLink_BaseInfo.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_BaseInfo.Free; + application := NewDllApp; + dxUnitsLoader.Finalize; + +end. + diff --git a/基础资料维护(BaseInfo.dll)/U_HTListSel.dfm b/基础资料维护(BaseInfo.dll)/U_HTListSel.dfm new file mode 100644 index 0000000..1ee92b0 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_HTListSel.dfm @@ -0,0 +1,304 @@ +object frmHTListSel: TfrmHTListSel + Left = 177 + Top = 75 + Width = 1094 + Height = 600 + Caption = #21512#21516#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 = #21512#21516#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 v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1KHConNO: TcxGridDBColumn + Caption = 'PO#' + DataBinding.FieldName = 'KHConNO' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'PRTCode' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1Column5: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + 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/基础资料维护(BaseInfo.dll)/U_HTListSel.pas b/基础资料维护(BaseInfo.dll)/U_HTListSel.pas new file mode 100644 index 0000000..722700b --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_HTListSel.pas @@ -0,0 +1,173 @@ +unit U_HTListSel; + +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 + TfrmHTListSel = 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; + 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; + v1Column5: TcxGridDBColumn; + v1KHConNO: 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 + frmHTListSel: TfrmHTListSel; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun; + +{$R *.dfm} + +procedure TfrmHTListSel.FormDestroy(Sender: TObject); +begin + frmHTListSel:=nil; +end; + +procedure TfrmHTListSel.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmHTListSel.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmHTListSel.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption,Tv1,'ָʾ'); +end; + +procedure TfrmHTListSel.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.* '); + sql.add('from JYOrdercon_sub A'); + sql.Add('inner join JYOrdercon_Main B on B.mainID=A.mainID '); + SQL.Add('where B.conNo like '''+'%'+Trim(OrderNoM.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmHTListSel.InitForm(); +begin + ReadCxGrid(self.Caption,Tv1,'ָʾ'); + InitGrid(); +end; + +procedure TfrmHTListSel.FormShow(Sender: TObject); +begin + InitForm(); + if FFInt=1 then + begin + v1Column4.Visible:=False; + v1Column4.Hidden:=True; + end; +end; + +procedure TfrmHTListSel.ToolButton3Click(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmHTListSel.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + InitGrid(); + end; +end; + +procedure TfrmHTListSel.Tv1DblClick(Sender: TObject); +begin + ToolButton3.Click; +end; + +procedure TfrmHTListSel.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmHTListSel.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,false); +end; + +end. diff --git a/基础资料维护(BaseInfo.dll)/U_HZViewList.dfm b/基础资料维护(BaseInfo.dll)/U_HZViewList.dfm new file mode 100644 index 0000000..bd733e1 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_HZViewList.dfm @@ -0,0 +1,804 @@ +object frmHZViewList: TfrmHZViewList + Left = 49 + Top = 51 + Width = 1024 + Height = 706 + Caption = #33021#32791#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 = 1008 + 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 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 + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton5: TToolButton + Left = 378 + Top = 0 + Caption = #25171#21360 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object TBClose: TToolButton + Left = 437 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 31 + Width = 1008 + Height = 636 + Align = alClient + BevelInner = bvSpace + BevelKind = bkFlat + TabOrder = 1 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1000 + Height = 48 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label1: TLabel + Left = 302 + Top = 21 + Width = 24 + Height = 12 + Caption = #36710#38388 + end + object Label4: TLabel + Left = 22 + Top = 21 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label5: TLabel + Left = 171 + Top = 22 + Width = 12 + Height = 12 + Caption = '--' + end + object BegDate: TDateTimePicker + Left = 72 + Top = 16 + Width = 97 + Height = 20 + Date = 41457.671719525460000000 + Time = 41457.671719525460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 184 + Top = 16 + Width = 97 + Height = 20 + Date = 41457.671719525460000000 + Time = 41457.671719525460000000 + TabOrder = 1 + end + object Chejian: TComboBox + Tag = 1 + Left = 328 + Top = 16 + Width = 137 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + OnChange = ChejianChange + end + end + object Panel2: TPanel + Left = 0 + Top = 48 + Width = 1000 + Height = 260 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 2 + Top = 2 + Width = 353 + Height = 256 + Align = alLeft + TabOrder = 0 + object Tv1: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_NH + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_BaseInfo.Default + Styles.BandHeader = DataLink_BaseInfo.FontBlue + Bands = < + item + Caption = #33021#32791#32479#35745 + Width = 338 + end> + object v1Column1: TcxGridDBBandedColumn + Caption = #36710#38388 + DataBinding.FieldName = 'Chejian' + HeaderAlignmentHorz = taCenter + Width = 84 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column2: TcxGridDBBandedColumn + Caption = #33021#32791#31867#21035 + DataBinding.FieldName = 'NHType' + HeaderAlignmentHorz = taCenter + Width = 72 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column3: TcxGridDBBandedColumn + Caption = #29992#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 86 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column4: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'NHMoney' + HeaderAlignmentHorz = taCenter + Width = 96 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid1: TcxGrid + Left = 355 + Top = 2 + Width = 345 + Height = 256 + Align = alLeft + TabOrder = 1 + object Tv2: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_JWL + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBBandedColumn3 + end + item + Kind = skSum + Column = cxGridDBBandedColumn2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_BaseInfo.Default + Styles.BandHeader = DataLink_BaseInfo.FontBlue + Bands = < + item + Caption = #26426#29289#26009#29992#37327#32479#35745 + Width = 334 + end> + object cxGridDBBandedColumn1: TcxGridDBBandedColumn + Caption = #36710#38388 + DataBinding.FieldName = 'chejian' + HeaderAlignmentHorz = taCenter + Width = 81 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn2: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'JWLMoney' + HeaderAlignmentHorz = taCenter + Width = 83 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn3: TcxGridDBBandedColumn + Caption = #29992#37327 + DataBinding.FieldName = 'CRQty' + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v2Column1: TcxGridDBBandedColumn + Caption = #21407#26009#21697#21517 + DataBinding.FieldName = 'YCLName' + HeaderAlignmentHorz = taCenter + Width = 71 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v2Column2: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'CRUnit' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object cxGrid3: TcxGrid + Left = 700 + Top = 2 + Width = 298 + Height = 256 + Align = alClient + TabOrder = 2 + object Tv3: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_RHL + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBBandedColumn6 + end + item + Kind = skSum + Column = cxGridDBBandedColumn5 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_BaseInfo.Default + Styles.BandHeader = DataLink_BaseInfo.FontBlue + Bands = < + item + Caption = #26579#21270#26009#29992#37327#32479#35745 + Width = 323 + end> + object cxGridDBBandedColumn4: TcxGridDBBandedColumn + Caption = #36710#38388 + DataBinding.FieldName = 'chejian' + HeaderAlignmentHorz = taCenter + Width = 74 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn5: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'RHLMoney' + HeaderAlignmentHorz = taCenter + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn6: TcxGridDBBandedColumn + Caption = #29992#37327 + DataBinding.FieldName = 'CRQty' + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v3Column1: TcxGridDBBandedColumn + Caption = #21407#26009#21697#21517 + DataBinding.FieldName = 'YCLName' + Width = 66 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v3Column2: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'CRUnit' + HeaderAlignmentHorz = taCenter + Width = 44 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + end + object Panel3: TPanel + Left = 0 + Top = 308 + Width = 1000 + Height = 320 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid4: TcxGrid + Left = 2 + Top = 2 + Width = 353 + Height = 316 + Align = alLeft + TabOrder = 0 + object Tv4: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_PB + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBBandedColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_BaseInfo.Default + Styles.BandHeader = DataLink_BaseInfo.FontBlue + Bands = < + item + Caption = #22383#24067#29992#37327#32479#35745 + Width = 338 + end> + object cxGridDBBandedColumn8: TcxGridDBBandedColumn + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'YCLName' + HeaderAlignmentHorz = taCenter + Width = 84 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn9: TcxGridDBBandedColumn + Caption = #29992#37327 + DataBinding.FieldName = 'CRQty' + HeaderAlignmentHorz = taCenter + Width = 98 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v4Column1: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'GYSName' + HeaderAlignmentHorz = taCenter + Width = 62 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v4Column2: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'CRUnit' + HeaderAlignmentHorz = taCenter + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v4Column3: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 40 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv4 + end + end + object cxGrid5: TcxGrid + Left = 355 + Top = 2 + Width = 643 + Height = 316 + Align = alClient + TabOrder = 1 + object Tv5: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_CP + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBBandedColumn12 + end + item + Kind = skSum + Column = v5Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Header = DataLink_BaseInfo.Default + Styles.BandHeader = DataLink_BaseInfo.FontBlue + Bands = < + item + Caption = #25104#21697#29983#20135#32479#35745 + Width = 673 + end> + object cxGridDBBandedColumn11: TcxGridDBBandedColumn + Caption = #25104#21697#21517#31216 + DataBinding.FieldName = 'PCode' + HeaderAlignmentHorz = taCenter + Width = 73 + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object cxGridDBBandedColumn12: TcxGridDBBandedColumn + Caption = #29983#20135#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 78 + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object Tv5Column1: TcxGridDBBandedColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PSpec' + HeaderAlignmentHorz = taCenter + Width = 53 + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object Tv5Column2: TcxGridDBBandedColumn + Caption = #25104#20221 + DataBinding.FieldName = 'PCF' + HeaderAlignmentHorz = taCenter + Width = 50 + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object Tv5Column3: TcxGridDBBandedColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Width = 57 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object Tv5Column4: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Width = 78 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object Tv5Column5: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'ColorNo' + HeaderAlignmentHorz = taCenter + Width = 52 + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object Tv5Column6: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'JSL' + HeaderAlignmentHorz = taCenter + Width = 54 + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object Tv5Column7: TcxGridDBBandedColumn + Caption = #31867#21035 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Width = 69 + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v5Column1: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'CPMoney' + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 86 + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object v5Column2: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'LenUnit' + HeaderAlignmentHorz = taCenter + Width = 47 + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + end + object cxGridLevel5: TcxGridLevel + GridView = Tv5 + end + end + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 557 + Top = 217 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 581 + Top = 217 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 157 + 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 = 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 = 480 + Top = 232 + end + object DS_NH: TDataSource + DataSet = CDS_NH + Left = 187 + Top = 227 + end + object CDS_NH: TClientDataSet + Aggregates = <> + Params = <> + Left = 216 + Top = 224 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 248 + Top = 224 + end + object CDS_JWL: TClientDataSet + Aggregates = <> + Params = <> + Left = 448 + Top = 232 + end + object DS_JWL: TDataSource + DataSet = CDS_JWL + Left = 419 + Top = 235 + end + object DS_RHL: TDataSource + DataSet = CDS_RHL + Left = 819 + Top = 267 + end + object CDS_RHL: TClientDataSet + Aggregates = <> + Params = <> + Left = 848 + Top = 264 + end + object cxGridPopupMenu3: TcxGridPopupMenu + PopupMenus = <> + Left = 880 + Top = 264 + end + object DS_PB: TDataSource + DataSet = CDS_PB + Left = 163 + Top = 531 + end + object CDS_PB: TClientDataSet + Aggregates = <> + Params = <> + Left = 192 + Top = 528 + end + object cxGridPopupMenu4: TcxGridPopupMenu + PopupMenus = <> + Left = 224 + Top = 528 + end + object DS_CP: TDataSource + DataSet = CDS_CP + Left = 611 + Top = 547 + end + object CDS_CP: TClientDataSet + Aggregates = <> + Params = <> + Left = 640 + Top = 544 + end + object cxGridPopupMenu5: TcxGridPopupMenu + PopupMenus = <> + Left = 672 + Top = 544 + end + object dxComponentPrinter1: TdxComponentPrinter + CurrentLink = dxComponentPrinter1Link1 + Version = 0 + Left = 472 + Top = 281 + object dxComponentPrinter1Link1: TdxCustomContainerReportLink + Active = True + Component = ScrollBox1 + PrinterPage.DMPaper = 9 + PrinterPage.Footer = 6350 + PrinterPage.GrayShading = True + PrinterPage.Header = 6350 + PrinterPage.Margins.Bottom = 12700 + PrinterPage.Margins.Left = 12700 + PrinterPage.Margins.Right = 12700 + PrinterPage.Margins.Top = 12700 + PrinterPage.Orientation = poLandscape + PrinterPage.PageSize.X = 210000 + PrinterPage.PageSize.Y = 297000 + PrinterPage._dxMeasurementUnits_ = 0 + PrinterPage._dxLastMU_ = 2 + ReportDocument.CreationDate = 41590.612820057870000000 + ReportTitle.Text = #20135#20540#27719#24635#34920 + BuiltInReportLink = True + HiddenComponents = {} + ExcludedComponents = {} + AggregatedReportLinks = {} + end + end + object dxfQuickTyper1: TdxfQuickTyper + WinControl = Owner + QuickTyperControls = <> + MessageBeep = False + Left = 264 + Top = 240 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_HZViewList.pas b/基础资料维护(BaseInfo.dll)/U_HZViewList.pas new file mode 100644 index 0000000..0433641 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_HZViewList.pas @@ -0,0 +1,319 @@ +unit U_HZViewList; + +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, cxGridBandedTableView, cxGridDBBandedTableView, + dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, + dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, + dxfQuickTyp, dxPScxCommon, dxPScxGridLnk, dxPSContainerLnk; + +type + TfrmHZViewList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_NH: TDataSource; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + CDS_NH: TClientDataSet; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_JWL: TClientDataSet; + DS_JWL: TDataSource; + DS_RHL: TDataSource; + CDS_RHL: TClientDataSet; + cxGridPopupMenu3: TcxGridPopupMenu; + DS_PB: TDataSource; + CDS_PB: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + DS_CP: TDataSource; + CDS_CP: TClientDataSet; + cxGridPopupMenu5: TcxGridPopupMenu; + ToolButton5: TToolButton; + dxComponentPrinter1: TdxComponentPrinter; + dxfQuickTyper1: TdxfQuickTyper; + ScrollBox1: TScrollBox; + Panel1: TPanel; + Label1: TLabel; + Label4: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Chejian: TComboBox; + Panel2: TPanel; + cxGrid2: TcxGrid; + Tv1: TcxGridDBBandedTableView; + v1Column1: TcxGridDBBandedColumn; + v1Column2: TcxGridDBBandedColumn; + v1Column3: TcxGridDBBandedColumn; + v1Column4: TcxGridDBBandedColumn; + cxGridLevel1: TcxGridLevel; + cxGrid1: TcxGrid; + Tv2: TcxGridDBBandedTableView; + cxGridDBBandedColumn1: TcxGridDBBandedColumn; + cxGridDBBandedColumn2: TcxGridDBBandedColumn; + cxGridDBBandedColumn3: TcxGridDBBandedColumn; + v2Column1: TcxGridDBBandedColumn; + v2Column2: TcxGridDBBandedColumn; + cxGridLevel2: TcxGridLevel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBBandedTableView; + cxGridDBBandedColumn4: TcxGridDBBandedColumn; + cxGridDBBandedColumn5: TcxGridDBBandedColumn; + cxGridDBBandedColumn6: TcxGridDBBandedColumn; + v3Column1: TcxGridDBBandedColumn; + v3Column2: TcxGridDBBandedColumn; + cxGridLevel3: TcxGridLevel; + Panel3: TPanel; + cxGrid4: TcxGrid; + Tv4: TcxGridDBBandedTableView; + cxGridDBBandedColumn8: TcxGridDBBandedColumn; + cxGridDBBandedColumn9: TcxGridDBBandedColumn; + v4Column1: TcxGridDBBandedColumn; + v4Column2: TcxGridDBBandedColumn; + cxGridLevel4: TcxGridLevel; + cxGrid5: TcxGrid; + Tv5: TcxGridDBBandedTableView; + cxGridDBBandedColumn11: TcxGridDBBandedColumn; + cxGridDBBandedColumn12: TcxGridDBBandedColumn; + Tv5Column1: TcxGridDBBandedColumn; + Tv5Column2: TcxGridDBBandedColumn; + Tv5Column3: TcxGridDBBandedColumn; + Tv5Column4: TcxGridDBBandedColumn; + Tv5Column5: TcxGridDBBandedColumn; + Tv5Column6: TcxGridDBBandedColumn; + Tv5Column7: TcxGridDBBandedColumn; + v5Column1: TcxGridDBBandedColumn; + v5Column2: TcxGridDBBandedColumn; + cxGridLevel5: TcxGridLevel; + dxComponentPrinter1Link1: TdxCustomContainerReportLink; + v4Column3: TcxGridDBBandedColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure NHBiaoNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ChejianChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + public + + end; + +var + frmHZViewList: TfrmHZViewList; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_NengHaoInput; + +{$R *.dfm} + + + +procedure TfrmHZViewList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select Sum(Qty) Qty,sum(Qty*Price) NHMoney,CheJian, NHType from NengHao '); + sql.Add(' where NHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and NHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + sql.Add('Group by CheJian ,NHType'); + Open; + SCreateCDS20(ADOQueryMain,CDS_NH); + SInitCDSData20(ADOQueryMain,CDS_NH); + end; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select Sum(CRQty) CRQty,sum(CRQty*YCLPrice) JWLMoney,ZdyStr1 chejian,YCLName,CRUnit from CK_YCL_CR '); + 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=''ϲֿ'' '); + sql.Add(' and CRType='''' '); + sql.Add('Group by ZdyStr1,YCLName,CRUnit'); + Open; + SCreateCDS20(ADOQueryMain,CDS_JWL); + SInitCDSData20(ADOQueryMain,CDS_JWL); + end; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select Sum(CRQty) CRQty,sum(CRQty*YCLPrice) RHLMoney,ZdyStr1 chejian,YCLName,CRUnit from CK_YCL_CR '); + 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=''Ⱦϲֿ'' '); + sql.Add(' and CRType='''' '); + sql.Add('Group by ZdyStr1,YCLName,CRUnit'); + Open; + SCreateCDS20(ADOQueryMain,CDS_RHL); + SInitCDSData20(ADOQueryMain,CDS_RHL); + end; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select Sum(CRQty) CRQty,sum(PS) PS,YCLName,CRUnit,GYSName from CK_PB_CR '); + 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=''Ⱦϲֿ'' '); + sql.Add(' and CRType='''' '); + sql.Add('Group by GYSName,YCLName,CRUnit'); + Open; + SCreateCDS20(ADOQueryMain,CDS_PB); + SInitCDSData20(ADOQueryMain,CDS_PB); + end; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select sum(AA.Qty) Qty ,sum(AA.KgQty) KgQty,sum(AA.KgQtyP) KgQtyP,Count(*) JSL,LenUnit,PCode,ColorNo,MJDate,KHName,CKNO,OrderNo '); + sql.Add(',PSpec,PCF,PHuaNo,PColorNo ,MJFK,MJSJKZ,MJType,CPMoney=Sum(CPMoney)'); + SQL.Add(' from(select A.Qty ,A.KgQty ,A.KgQtyP,A.CKNO,D.LenUnit,D.PCode,D.ColorNo,D.OrderNo,CPMoney=Qty*A.Price,'); + sql.Add('MJDate=convert(varchar(10),A.CRTime,120),A.KHName'); + sql.Add(',D.PSpec,D.PCF,D.PHuaNo,D.PColorNo,D.MJFK,D.MJSJKZ,D.MJType,D.BatchNo'); + sql.add('from CK_BanCP_CR A '); + Sql.add(' inner join XH_MJJY D on A.MJId=D.MJId'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate'); + SQL.Add(' and CRType='''' ) AA'); + sql.Add(' Group by LenUnit,PCode,ColorNo,MJDate,KHName,CKNO,OrderNo,PSpec,PCF,PHuaNo,PColorNo ,MJFK,MJSJKZ,MJType,BatchNo'); + 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_CP); + SInitCDSData20(ADOQueryMain,CDS_CP); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmHZViewList.FormDestroy(Sender: TObject); +begin + frmHZViewList:=nil; +end; + +procedure TfrmHZViewList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmHZViewList.TBCloseClick(Sender: TObject); +begin + WriteCxBandedGrid('HZѯ1',Tv1,'ͻԶ'); + WriteCxBandedGrid('HZѯ2',Tv2,'ͻԶ'); + WriteCxBandedGrid('HZѯ3',Tv3,'ͻԶ'); + WriteCxBandedGrid('HZѯ4',Tv4,'ͻԶ'); + WriteCxBandedGrid('HZѯ5',Tv5,'ͻԶ'); + Close; +end; +procedure TfrmHZViewList.FormShow(Sender: TObject); +begin + //ReadCxGrid('ܺIJѯ',Tv2,'ͻԶ'); + ReadCxBandedGrid('HZѯ1',Tv1,'ͻԶ'); + ReadCxBandedGrid('HZѯ2',Tv2,'ͻԶ'); + ReadCxBandedGrid('HZѯ3',Tv3,'ͻԶ'); + ReadCxBandedGrid('HZѯ4',Tv4,'ͻԶ'); + ReadCxBandedGrid('HZѯ5',Tv5,'ͻԶ'); + //InitGrid(); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Code=ZdyNo,Name=ZdyName from KH_Zdy where Type=''chejian'' '); + Open; + end; + Chejian.Items.Clear; + with ADOQueryTemp do + begin + First; + while not Eof do + begin + Chejian.Items.Add(Trim(ADOQueryTemp.fieldbyname('Name').AsString)); + Next; + end; + end; + Chejian.Items.Add(''); + BegDate.Date:=SGetServerDate(ADOQueryTemp); + EndDate.Date:=BegDate.Date; +end; + +procedure TfrmHZViewList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmHZViewList.NHBiaoNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmHZViewList.ToolButton1Click(Sender: TObject); +begin + //if ADOQueryMain.IsEmpty then Exit; + // SelExportData(Tv2,ADOQueryMain,'ܺб'); +end; + +procedure TfrmHZViewList.ChejianChange(Sender: TObject); +begin + if CDS_NH.Active=True then + SDofilter10(CDS_NH,SGetFilters(Panel1,1,2)); + if CDS_JWL.Active=True then + SDofilter10(CDS_JWL,SGetFilters(Panel1,1,2)); + if CDS_RHL.Active=True then + SDofilter10(CDS_RHL,SGetFilters(Panel1,1,2)); +end; + +procedure TfrmHZViewList.ToolButton2Click(Sender: TObject); +begin + if CDS_NH.Active=True then + SDofilter10(CDS_NH,SGetFilters(Panel1,1,2)); + if CDS_JWL.Active=True then + SDofilter10(CDS_JWL,SGetFilters(Panel1,1,2)); + if CDS_RHL.Active=True then + SDofilter10(CDS_RHL,SGetFilters(Panel1,1,2)); +end; + +procedure TfrmHZViewList.ToolButton5Click(Sender: TObject); +begin + dxComponentPrinter1.Preview(False,nil); + dxComponentPrinter1.ReportLink[0].Preview; +end; + +end. + + diff --git a/基础资料维护(BaseInfo.dll)/U_KHAdd.dfm b/基础资料维护(BaseInfo.dll)/U_KHAdd.dfm new file mode 100644 index 0000000..a9eb4ae --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_KHAdd.dfm @@ -0,0 +1,262 @@ +object frmKHAdd: TfrmKHAdd + Left = 93 + Top = 232 + Width = 1130 + Height = 388 + Caption = #23458#25143#36164#26009#32534#36753 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1122 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGLWT.ThreeImgList + Flat = True + Images = DataLink_YPGLWT.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object ToolButton6: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 111 + OnClick = ToolButton6Click + 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 = 1122 + Height = 320 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + DataController.DataSource = DS_BJ + 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_YPGLWT.Default + object v2Column2: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v2Column16: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'DEFstr1' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v2Column14: TcxGridDBColumn + Caption = #24402#23646#20154 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v2Column10: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'MainType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + HeaderAlignmentHorz = taCenter + Width = 82 + end + object v2Column9: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2Column3: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'DEFNote1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2Column7: TcxGridDBColumn + Caption = #20844#21496#22320#22336 + DataBinding.FieldName = 'DEFNote2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Caption = #20844#21496#21517#31216 + DataBinding.FieldName = 'ZdyName' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v2Column4: TcxGridDBColumn + Caption = #20844#21496#21517#31216'('#20013#25991')' + DataBinding.FieldName = 'DEFstr9' + Width = 100 + end + object v2Column5: TcxGridDBColumn + Caption = #20844#21496#31867#22411 + DataBinding.FieldName = 'DEFstr4' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column11: TcxGridDBColumn + Caption = #23458#25143#26469#28304 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2Column12: TcxGridDBColumn + Caption = #20027#33829#24066#22330 + DataBinding.FieldName = 'DEFstr6' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column12PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v2Column13: TcxGridDBColumn + Caption = #20027#33829#20135#21697 + DataBinding.FieldName = 'DEFstr7' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column13PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v2Column15: TcxGridDBColumn + Caption = #23458#25143#21306#22495 + DataBinding.FieldName = 'DEFstr8' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column15PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column8: TcxGridDBColumn + Caption = #20844#21496#24773#20917 + DataBinding.FieldName = 'DEFstr10' + Width = 66 + end + object v2Column17: TcxGridDBColumn + Caption = #20854#20182#20449#24687 + DataBinding.FieldName = 'DEFNote3' + Width = 66 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 84 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object DS_BJ: TDataSource + DataSet = CDS_SQ + Left = 435 + Top = 147 + end + object CDS_SQ: TClientDataSet + Aggregates = <> + Params = <> + Left = 392 + Top = 152 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YPGLWT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 117 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGLWT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 261 + Top = 169 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGLWT.ADOLink + Parameters = <> + Left = 317 + Top = 121 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 216 + Top = 117 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_KHAdd.pas b/基础资料维护(BaseInfo.dll)/U_KHAdd.pas new file mode 100644 index 0000000..3f4ce2b --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_KHAdd.pas @@ -0,0 +1,303 @@ +unit U_KHAdd; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, BtnEdit, ComCtrls, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ToolWin, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxCalendar, DBClient, + ADODB, cxButtonEdit, cxDropDownEdit, cxGridCustomPopupMenu, + cxGridPopupMenu, cxTextEdit; + +type + TfrmKHAdd = class(TForm) + ToolBar1: TToolBar; + ToolButton6: TToolButton; + TBClose: TToolButton; + DS_BJ: TDataSource; + CDS_SQ: TClientDataSet; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column2: TcxGridDBColumn; + v2Column16: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column8: TcxGridDBColumn; + v2Column17: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure v2Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column12PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column15PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + public + { Public declarations } + FCYID,FYSID,FPrice:String; + end; + +var + frmKHAdd: TfrmKHAdd; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmKHAdd.FormDestroy(Sender: TObject); +begin + frmKHAdd:=nil; +end; + +procedure TfrmKHAdd.FormShow(Sender: TObject); +var + FBZType,fsj:string; +begin + ReadCxGrid('ͻAdd',Tv2,''); + fsj:='select UserId code,UserName Name from SY_User where UserId not in(''Admin'',''Test'')'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v2Column14,fsj,1,False,''); + fsj:='select UserId code,UserName Name from SY_User where UserId not in(''Admin'',''Test'')'; + SInitCxGridComboBoxBySql(ADOQueryTemp,v2Column10,fsj,1,False,''); + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where ATID='''+Trim(FYSID)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_SQ); + SInitCDSData20(ADOQueryMain,CDS_SQ); + if CDS_SQ.IsEmpty then + begin + with CDS_SQ do + begin + Append; + Post; + end; + end; + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmKHAdd.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͻAdd',Tv2,''); +end; + +procedure TfrmKHAdd.ToolButton6Click(Sender: TObject); +var + maxno:String; +begin + if Trim(CDS_SQ.fieldbyname('ZdyCode').AsString)='' then + begin + Application.MessageBox('ͻŲΪ!','ʾ',0); + Exit; + end; + ToolBar1.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FYSID)='' then + begin + if GetLSNo(ADOQueryCmd,maxno,'AT','KH_Zdy_Attachment',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡͻIDʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FYSID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where ATID='''+Trim(maxno)+''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FYSID)='' 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(maxno); + FieldByName('Type').Value:='KHName'; + FieldByName('ZdyName').Value:=CDS_SQ.fieldbyname('ZdyName').Value; + FieldByName('MainType').Value:=CDS_SQ.fieldbyname('MainType').Value; + FieldByName('ZdyCode').Value:=CDS_SQ.fieldbyname('ZdyCode').Value; + FieldByName('DEFstr1').Value:=CDS_SQ.fieldbyname('DEFstr1').Value; + FieldByName('DEFstr2').Value:=CDS_SQ.fieldbyname('DEFstr2').Value; + FieldByName('DEFstr3').Value:=CDS_SQ.fieldbyname('DEFstr3').Value; + FieldByName('DEFstr4').Value:=CDS_SQ.fieldbyname('DEFstr4').Value; + FieldByName('DEFstr5').Value:=CDS_SQ.fieldbyname('DEFstr5').Value; + FieldByName('DEFstr6').Value:=CDS_SQ.fieldbyname('DEFstr6').Value; + FieldByName('DEFstr7').Value:=CDS_SQ.fieldbyname('DEFstr7').Value; + FieldByName('DEFstr8').Value:=CDS_SQ.fieldbyname('DEFstr8').Value; + FieldByName('DEFstr9').Value:=CDS_SQ.fieldbyname('DEFstr9').Value; + FieldByName('DEFstr10').Value:=CDS_SQ.fieldbyname('DEFstr10').Value; + FieldByName('DEFNote1').Value:=CDS_SQ.fieldbyname('DEFNote1').Value; + FieldByName('DEFNote2').Value:=CDS_SQ.fieldbyname('DEFNote2').Value; + FieldByName('DEFNote3').Value:=CDS_SQ.fieldbyname('DEFNote3').Value; + FieldByName('DEFNote4').Value:=CDS_SQ.fieldbyname('DEFNote4').Value; + FieldByName('DEFNote5').Value:=CDS_SQ.fieldbyname('DEFNote5').Value; + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select Count(*) FFCount from KH_Zdy_Attachment where ZdyCode='''+Trim(CDS_SQ.fieldbyname('ZdyCode').AsString)+''''); + Open; + end; + if ADOQueryCmd.FieldByName('FFCount').AsInteger>1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + //FYSID:=''; + Application.MessageBox('ظ!','ʾ',0); + Exit; + end; + FYSID:=Trim(maxno); + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + ModalResult:=1; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmKHAdd.v2Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DEFstr4GSLX'; + flagname:='˾'; + //MainType:=Trim(DName); + if ShowModal=1 then + begin + with Self.CDS_SQ do + begin + Edit; + FieldByName('DEFstr4').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmKHAdd.v2Column12PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DEFstr6ZYSC'; + flagname:='Ӫг'; + //MainType:=Trim(DName); + if ShowModal=1 then + begin + with Self.CDS_SQ do + begin + Edit; + FieldByName('DEFstr6').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmKHAdd.v2Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DEFstr7ZYCP'; + flagname:='ӪƷ'; + //MainType:=Trim(DName); + if ShowModal=1 then + begin + with Self.CDS_SQ do + begin + Edit; + FieldByName('DEFstr7').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmKHAdd.v2Column15PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='DEFstr8KHQY'; + flagname:='ͻ'; + //MainType:=Trim(DName); + if ShowModal=1 then + begin + with Self.CDS_SQ do + begin + Edit; + FieldByName('DEFstr8').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/基础资料维护(BaseInfo.dll)/U_KHHelp.dfm b/基础资料维护(BaseInfo.dll)/U_KHHelp.dfm new file mode 100644 index 0000000..d4f324a --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_KHHelp.dfm @@ -0,0 +1,17996 @@ +object frmKHHelp: TfrmKHHelp + Left = 437 + Top = 207 + Width = 432 + Height = 528 + Caption = #23458#25143#21517#31216 + 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 cxGrid1: TcxGrid + Left = 16 + Top = 80 + Width = 369 + 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.FocusCellOnTab = True + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + object V1Column1: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'ZdyCode' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object V1Name: TcxGridDBColumn + Tag = 2 + Caption = #23458#25143#21517#31216 + DataBinding.FieldName = 'ZDYName' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 122 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 424 + 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 = ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + Caption = #36873#25321 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 59 + Top = 0 + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 424 + Height = 44 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object Label1: TLabel + Left = 18 + Top = 17 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object ZDYName: TEdit + Tag = 2 + Left = 69 + 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 = 120 + Top = 264 + end + object ThreeImgList: TImageList + Height = 24 + Width = 24 + Left = 120 + Top = 320 + 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 cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 168 + Top = 152 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_KHHelp.pas b/基础资料维护(BaseInfo.dll)/U_KHHelp.pas new file mode 100644 index 0000000..e08b5de --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_KHHelp.pas @@ -0,0 +1,167 @@ +unit U_KHHelp; + +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 + TfrmKHHelp = class(TForm) + TV1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + V1Name: TcxGridDBColumn; + ToolBar1: TToolBar; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + TBClose: TToolButton; + ToolButton1: TToolButton; + ADOConnection1: TADOConnection; + Panel1: TPanel; + Label1: TLabel; + ZDYName: TEdit; + ThreeImgList: TImageList; + cxGridPopupMenu1: TcxGridPopupMenu; + V1Column1: TcxGridDBColumn; + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TV1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ZDYNameChange(Sender: TObject); + procedure FormDestroy(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + flag,flagname,snote,MainType:string; + fnote,forderno,fZdyFlag:Boolean; + PPSTE:integer; + { Public declarations } + end; + +var + frmKHHelp: TfrmKHHelp; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmKHHelp.FormCreate(Sender: TObject); +begin + try + cxGrid1.Align:=alClient; + with ADOConnection1 do + begin + Connected:=false; + ConnectionString:=DConString; + //ConnectionString:=''; + Connected:=true; + end; + except + frmZDYHelp.Free; + end; +end; + +procedure TfrmKHHelp.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + ZDYName.SetFocus; + Action:=caFree; +end; + +procedure TfrmKHHelp.InitGrid(); +var + CYType:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from SY_User where UserId='''+Trim(DCode)+''''); + Open; + end; + CYType:=Trim(ADOQueryTemp.fieldbyname('DPID').AsString); + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('exec P_Select_User_KHName :CYType'); + Parameters.ParamByName('CYType').Value:=Trim(CYType); + Open; + end; + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmKHHelp.TBCloseClick(Sender: TObject); +begin + ModalResult:=2; + ZDYName.SetFocus; + WriteCxGrid('ͻ',TV1,''); + Close; +end; + +procedure TfrmKHHelp.FormShow(Sender: TObject); +begin + InitGrid(); + ReadCxGrid('ͻ',TV1,''); +end; + +procedure TfrmKHHelp.ToolButton1Click(Sender: TObject); +begin + ZDYName.SetFocus; + ModalResult:=1; +end; + +procedure TfrmKHHelp.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 TfrmKHHelp.ZDYNameChange(Sender: TObject); +var + fsj:String; +begin + if Trim(ZDYName.Text)<>'' then + begin + fsj:=' zdyname like '''+'%'+Trim(ZDYName.Text)+'%'+'''' + +' or ZJM like '''+'%'+Trim(ZDYName.Text)+'%'+''''; + end; + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,ClientDataSet1); + SInitCDSData20(ADOQueryMain,ClientDataSet1); + end; +end; + +procedure TfrmKHHelp.FormDestroy(Sender: TObject); +begin + frmKHHelp:=nil; +end; + +end. diff --git a/基础资料维护(BaseInfo.dll)/U_KHInfo.dfm b/基础资料维护(BaseInfo.dll)/U_KHInfo.dfm new file mode 100644 index 0000000..d07f573 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_KHInfo.dfm @@ -0,0 +1,314 @@ +object frmKHInfo: TfrmKHInfo + Left = 41 + Top = 136 + Width = 1154 + Height = 577 + Caption = #23458#25143#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 = 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_CPCK.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 Label3: TLabel + Left = 27 + Top = 15 + Width = 52 + Height = 12 + Caption = #23458#25143#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 = 174 + 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 OrderNo: TEdit + Tag = 2 + Left = 80 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 0 + OnChange = WFBCodeNameChange + end + object WFBCodeName: TEdit + Tag = 2 + Left = 203 + Top = 11 + Width = 83 + Height = 20 + TabOrder = 1 + OnChange = WFBCodeNameChange + end + end + object cxGrid1: TcxGrid + Left = 32 + Top = 112 + Width = 969 + Height = 200 + TabOrder = 2 + object TV1: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + Bands = < + item + Width = 174 + end + item + Width = 145 + end + item + Width = 90 + end + item + Width = 99 + end + item + Width = 71 + end + item + Width = 84 + end + item + Width = 157 + end> + object V1Column1: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1Column2: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1Column3: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object V1Column4: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object V1Column5: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object V1Column6: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object V1Column7: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 6 + Position.RowIndex = 0 + end + object V1Column8: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 7 + Position.RowIndex = 0 + end + object V1Column9: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 8 + Position.RowIndex = 0 + end + object V1Column10: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 9 + Position.RowIndex = 0 + end + object V1Column11: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 10 + Position.RowIndex = 0 + end + object V1Column12: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 11 + Position.RowIndex = 0 + end + object V1Column13: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 12 + Position.RowIndex = 0 + end + object V1Column14: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 13 + Position.RowIndex = 0 + end + object V1Column15: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 14 + Position.RowIndex = 0 + end + object V1Column16: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 15 + Position.RowIndex = 0 + end + object V1Column17: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 16 + Position.RowIndex = 0 + end + object V1Column18: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 17 + Position.RowIndex = 0 + end + object V1Column19: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 18 + Position.RowIndex = 0 + end + object V1Column20: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 19 + Position.RowIndex = 0 + end + object V1Column21: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 20 + Position.RowIndex = 0 + end + object V1Column22: TcxGridDBBandedColumn + Position.BandIndex = 0 + Position.ColIndex = 21 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 760 + Top = 136 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 704 + Top = 136 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 664 + Top = 112 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_CPCK.ADOLink + Parameters = <> + Left = 648 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_CPCK.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 688 + Top = 40 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_KHInfo.pas b/基础资料维护(BaseInfo.dll)/U_KHInfo.pas new file mode 100644 index 0000000..0c8b670 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_KHInfo.pas @@ -0,0 +1,186 @@ +unit U_KHInfo; + +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, cxGridBandedTableView, + cxGridDBBandedTableView; + +type + TfrmKHInfo = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + TBTP: TToolButton; + Panel1: TPanel; + Label3: TLabel; + Label5: TLabel; + OrderNo: TEdit; + WFBCodeName: TEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + cxGrid1Level1: TcxGridLevel; + 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; + V1Column17: TcxGridDBBandedColumn; + V1Column18: TcxGridDBBandedColumn; + V1Column19: TcxGridDBBandedColumn; + V1Column20: TcxGridDBBandedColumn; + V1Column21: TcxGridDBBandedColumn; + V1Column22: TcxGridDBBandedColumn; + 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 + frmKHInfo: TfrmKHInfo; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmKHInfo.FormDestroy(Sender: TObject); +begin + frmKHInfo:=nil; +end; + +procedure TfrmKHInfo.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmKHInfo.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; +procedure TfrmKHInfo.InitGrid(); +begin +end; + +procedure TfrmKHInfo.FormShow(Sender: TObject); +begin + ReadCxBandedGrid('״̬б',Tv1,'޷IJ'); + InitGrid(); +end; + +procedure TfrmKHInfo.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 TfrmKHInfo.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxBandedGrid('״̬б',Tv1,'޷IJ'); +end; + +procedure TfrmKHInfo.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alClient; +end; + +procedure TfrmKHInfo.TBTPClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + except + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +function TfrmKHInfo.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 TfrmKHInfo.TBExportClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + TcxGridToExcel('״̬б',cxGrid1); +end; + +procedure TfrmKHInfo.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/基础资料维护(BaseInfo.dll)/U_NengHaoInput.dfm b/基础资料维护(BaseInfo.dll)/U_NengHaoInput.dfm new file mode 100644 index 0000000..160451d --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_NengHaoInput.dfm @@ -0,0 +1,240 @@ +object frmNengHaoInput: TfrmNengHaoInput + Left = 292 + Top = 254 + Width = 697 + Height = 370 + Caption = #33021#32791#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 = 681 + 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 = 681 + Height = 300 + 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 = < + item + Format = '0' + Position = spFooter + Column = v2Column3 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column6: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'NHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 104 + end + object v2Column4: TcxGridDBColumn + Caption = #36710#38388 + DataBinding.FieldName = 'chejian' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v2Column2: TcxGridDBColumn + Caption = #33021#32791#31867#21035 + DataBinding.FieldName = 'NHType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.Items.Strings = ( + #27827#27700 + #33258#26469#27700 + #27745#27700 + #22825#28982#27668 + #33976#27773 + #30005 + #23792#30005 + #23574#30005 + #35895#30005 + '' + '' + '') + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v2Column8: TcxGridDBColumn + Caption = #34920#21517 + DataBinding.FieldName = 'NHBiaoName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v2Column5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column3: TcxGridDBColumn + Caption = #29992#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 93 + 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 = 528 + Top = 200 + 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/基础资料维护(BaseInfo.dll)/U_NengHaoInput.pas b/基础资料维护(BaseInfo.dll)/U_NengHaoInput.pas new file mode 100644 index 0000000..bf4919c --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_NengHaoInput.pas @@ -0,0 +1,254 @@ +unit U_NengHaoInput; + +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 + TfrmNengHaoInput = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column6: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column1: TcxGridDBColumn; + v2Column5: 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); + procedure v2Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v2Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + { Private declarations } + procedure InitGrid(); + function SaveData():Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmNengHaoInput: TfrmNengHaoInput; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmNengHaoInput.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from NengHao where NHID='''+Trim(FCYID)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmNengHaoInput.FormDestroy(Sender: TObject); +begin + frmNengHaoInput:=nil; +end; + +procedure TfrmNengHaoInput.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmNengHaoInput.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ܺ¼',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmNengHaoInput.FormShow(Sender: TObject); +begin + ReadCxGrid('ܺ¼',Tv2,'ͻԶ'); + InitGrid(); + if Trim(FCYID)='' then + begin + CDS_HZ.Append; + CDS_HZ.Post; + end; +end; + +procedure TfrmNengHaoInput.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +function TfrmNengHaoInput.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FCYID)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'NH','NengHao',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 NengHao where NHID='''+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('NHID').Value:=Trim(maxId); + //FieldByName('ZdyName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'NengHao',0); + if Trim(CDS_HZ.fieldbyname('Price').AsString)<>'' then + begin + FieldByName('Price').Value:=CDS_HZ.fieldbyname('Price').Value; + end else + begin + FieldByName('Price').Value:=0; + end; + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with CDS_HZ do + begin + Edit; + FieldByName('NHID').Value:=Trim(maxId); + Post; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + Result:=True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmNengHaoInput.ToolButton3Click(Sender: TObject); +begin + if Trim(CDS_HZ.FieldByName('NHDate').AsString)='' then + begin + Application.MessageBox('ڲΪ!','ʾ',0); + Exit; + end; + if Trim(CDS_HZ.FieldByName('NHType').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; + + +procedure TfrmNengHaoInput.v2Column4PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='chejian'; + flagname:=''; + if ShowModal=1 then + begin + CDS_HZ.Edit; + CDS_HZ.FieldByName('chejian').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmNengHaoInput.v2Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='NHBiaoName'; + flagname:=''; + MainType:=Trim(CDS_HZ.fieldbyname('chejian').AsString); + if ShowModal=1 then + begin + CDS_HZ.Edit; + CDS_HZ.FieldByName('NHBiaoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. diff --git a/基础资料维护(BaseInfo.dll)/U_NengHaoList.dfm b/基础资料维护(BaseInfo.dll)/U_NengHaoList.dfm new file mode 100644 index 0000000..b96522d --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_NengHaoList.dfm @@ -0,0 +1,359 @@ +object frmNengHaoList: TfrmNengHaoList + Left = 209 + Top = 16 + Width = 1036 + Height = 618 + Caption = #33021#32791#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 = 1020 + 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 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 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = ToolButton4Click + 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 + OnClick = ToolButton1Click + end + object ToolButton5: TToolButton + Left = 378 + Top = 0 + Caption = #25171#21360 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object TBClose: TToolButton + Left = 437 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1020 + Height = 66 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 439 + Top = 21 + Width = 24 + Height = 12 + Caption = #34920#21517 + end + object Label1: TLabel + Left = 302 + Top = 21 + Width = 24 + Height = 12 + Caption = #36710#38388 + end + object Label2: TLabel + Left = 574 + Top = 20 + Width = 48 + Height = 12 + Caption = #33021#32791#31867#21035 + end + object Label4: TLabel + Left = 22 + Top = 21 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label5: TLabel + Left = 142 + Top = 21 + Width = 78 + Height = 12 + Caption = '-------------' + end + object NHBiaoName: TEdit + Tag = 2 + Left = 463 + Top = 17 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = NHBiaoNameChange + end + object Chejian: TEdit + Tag = 2 + Left = 327 + Top = 17 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = NHBiaoNameChange + end + object NHType: TComboBox + Tag = 1 + Left = 627 + Top = 17 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + OnChange = NHBiaoNameChange + Items.Strings = ( + #27827#27700 + #33258#26469#27700 + #27745#27700 + #22825#28982#27668 + #33976#27773 + #30005 + #23792#30005 + #23574#30005 + #35895#30005 + '') + end + object BegDate: TDateTimePicker + Left = 72 + Top = 16 + Width = 97 + Height = 20 + Date = 41457.671719525460000000 + Time = 41457.671719525460000000 + TabOrder = 3 + end + object EndDate: TDateTimePicker + Left = 184 + Top = 16 + Width = 97 + Height = 20 + Date = 41457.671719525460000000 + Time = 41457.671719525460000000 + TabOrder = 4 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1020 + Height = 482 + 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 + item + Kind = skSum + Column = v2Column3 + 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_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column6: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'NHDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 98 + end + object v2Column4: TcxGridDBColumn + Caption = #36710#38388 + DataBinding.FieldName = 'chejian' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v2Column2: TcxGridDBColumn + Caption = #33021#32791#31867#21035 + DataBinding.FieldName = 'NHType' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v2Column8: TcxGridDBColumn + Caption = #34920#21517 + DataBinding.FieldName = 'NHBiaoName' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v2Column5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v2Column3: TcxGridDBColumn + Caption = #29992#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 80 + 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 = 728 + Top = 192 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 688 + Top = 192 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 832 + Top = 192 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 771 + Top = 251 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 768 + Top = 208 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_NengHaoList.pas b/基础资料维护(BaseInfo.dll)/U_NengHaoList.pas new file mode 100644 index 0000000..927c164 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_NengHaoList.pas @@ -0,0 +1,261 @@ +unit U_NengHaoList; + +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 + TfrmNengHaoList = 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; + NHBiaoName: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + Label1: TLabel; + Chejian: TEdit; + ToolButton4: TToolButton; + v2Column8: TcxGridDBColumn; + Label2: TLabel; + NHType: TComboBox; + BegDate: TDateTimePicker; + Label4: TLabel; + EndDate: TDateTimePicker; + Label5: TLabel; + v2Column1: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + ToolButton5: 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 NHBiaoNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + public + + end; + +var + frmNengHaoList: TfrmNengHaoList; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_NengHaoInput; + +{$R *.dfm} + + + +procedure TfrmNengHaoList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from NengHao '); + sql.Add(' where NHDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); + sql.Add(' and NHDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); + sql.Add(' order by Chejian,NHTYpe,NHDate'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmNengHaoList.FormDestroy(Sender: TObject); +begin + frmNengHaoList:=nil; +end; + +procedure TfrmNengHaoList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmNengHaoList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ܺIJѯ',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmNengHaoList.TBDelClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty then Exit; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Trim(CDS_HZ.fieldbyname('NHID').AsString)<>'' then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete NengHao where NHID='''+Trim(CDS_HZ.fieldbyname('NHID').AsString)+''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmNengHaoList.FormShow(Sender: TObject); +begin + ReadCxGrid('ܺIJѯ',Tv2,'ͻԶ'); + EndDate.Date:=SGetServerDate(ADOQueryTemp); + BegDate.Date:=EndDate.Date; + InitGrid(); +end; + +procedure TfrmNengHaoList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmNengHaoList.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 TfrmNengHaoList.NHBiaoNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmNengHaoList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'ܺб'); +end; + +procedure TfrmNengHaoList.ToolButton4Click(Sender: TObject); +begin + try + frmNengHaoInput:=TfrmNengHaoInput.Create(Application); + with frmNengHaoInput do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('NHID').AsString); + if ShowModal=1 then + begin + Self.CDS_HZ.Locate('NHID',FCYID,[]); + with Self.CDS_HZ do + begin + Edit; + FieldByName('NHDate').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('NHDate').Value; + FieldByName('chejian').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('chejian').Value; + FieldByName('NHType').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('NHType').Value; + FieldByName('NHBiaoName').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('NHBiaoName').Value; + FieldByName('Price').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('Price').Value; + FieldByName('Qty').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('Qty').Value; + FieldByName('Note').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('Note').Value; + //FieldByName('NHID').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('NHID').Value; + Post; + end; + end; + end; + finally + frmNengHaoInput.Free; + end; +end; + +procedure TfrmNengHaoList.ToolButton3Click(Sender: TObject); +begin + try + frmNengHaoInput:=TfrmNengHaoInput.Create(Application); + with frmNengHaoInput do + begin + FCYID:=''; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Append; + FieldByName('NHDate').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('NHDate').Value; + FieldByName('chejian').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('chejian').Value; + FieldByName('NHType').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('NHType').Value; + FieldByName('NHBiaoName').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('NHBiaoName').Value; + FieldByName('Price').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('Price').Value; + FieldByName('Qty').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('Qty').Value; + FieldByName('Note').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('Note').Value; + FieldByName('NHID').Value:=frmNengHaoInput.CDS_HZ.fieldbyname('NHID').Value; + Post; + end; + end; + end; + finally + frmNengHaoInput.Free; + end; +end; + +procedure TfrmNengHaoList.ToolButton5Click(Sender: TObject); +var + fPrintFile,FConNoM,RPTName:string; + +begin + if CDS_HZ.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ܺı.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['begdate']:=BegDate.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; + +end. + + diff --git a/基础资料维护(BaseInfo.dll)/U_SYDept.dfm b/基础资料维护(BaseInfo.dll)/U_SYDept.dfm new file mode 100644 index 0000000..13d00c3 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_SYDept.dfm @@ -0,0 +1,277 @@ +object frmSYDept: TfrmSYDept + Left = 209 + Top = 173 + Width = 872 + 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 = 864 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_YPGLWT.ThreeImgList + Flat = True + Images = DataLink_YPGLWT.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 ToolButton2: TToolButton + Left = 276 + Top = 0 + Caption = #32452#32455#20998#37197 + ImageIndex = 132 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 359 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxDBTreeList1: TcxDBTreeList + Left = 0 + Top = 33 + Width = 249 + Height = 439 + Align = alLeft + Bands = < + item + end> + BufferedPaint = False + DataController.DataSource = DataSource1 + DataController.ParentField = 'DPParent' + DataController.KeyField = 'DPID' + OptionsBehavior.ExpandOnDblClick = False + OptionsSelection.CellSelect = False + OptionsView.CellAutoHeight = True + OptionsView.Headers = False + RootValue = -1 + Styles.Inactive = DataLink_YPGLWT.Red + Styles.Selection = DataLink_YPGLWT.Red + Styles.IncSearch = DataLink_YPGLWT.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 = 439 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + 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 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 + end + object cxGrid4: TcxGrid + Left = 564 + Top = 33 + Width = 300 + Height = 439 + 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_YPGLWT.SHuangSe + Styles.IncSearch = DataLink_YPGLWT.SHuangSe + Styles.Selection = DataLink_YPGLWT.SHuangSe + object cxGridDBColumn1: TcxGridDBColumn + Caption = #21592#24037#32534#21495 + DataBinding.FieldName = 'UserId' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGLWT.Default + Width = 84 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #21592#24037#21517#31216 + DataBinding.FieldName = 'UserName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGLWT.Default + Width = 87 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #21592#24037#32452#32455 + DataBinding.FieldName = 'dept' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_YPGLWT.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_YPGLWT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 117 + Top = 145 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGLWT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 357 + Top = 177 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YPGLWT.ADOLink + Parameters = <> + Left = 397 + Top = 177 + 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/基础资料维护(BaseInfo.dll)/U_SYDept.pas b/基础资料维护(BaseInfo.dll)/U_SYDept.pas new file mode 100644 index 0000000..ed400a8 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_SYDept.pas @@ -0,0 +1,314 @@ +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; + +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; + 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); + private + { Private declarations } + PState:Integer; + FCPID,FTopID:String; + procedure InitTree(); + + public + { Public declarations } + end; + +var + frmSYDept: TfrmSYDept; + +implementation +uses + U_DataLink,U_Fun; + +{$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); + 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); +end; + +procedure TfrmSYDept.ToolButton1Click(Sender: TObject); +var + maxId:String; +begin + if Trim(DPName.Text)='' then + begin + Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + if Trim(DPNo.Text)='' 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; + 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('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; + +end. diff --git a/基础资料维护(BaseInfo.dll)/U_UserHelpSel.dfm b/基础资料维护(BaseInfo.dll)/U_UserHelpSel.dfm new file mode 100644 index 0000000..c0d6d9d --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_UserHelpSel.dfm @@ -0,0 +1,23820 @@ +object frmUserHelpSel: TfrmUserHelpSel + Left = 157 + Top = 108 + Width = 681 + Height = 603 + BorderIcons = [] + Caption = #21592#24037#24110#21161#21015#34920 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poDesktopCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object Splitter1: TSplitter + Left = 157 + Top = 70 + Height = 495 + end + object ToolBar2: TToolBar + Left = 0 + Top = 0 + Width = 665 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Flat = True + Images = ThreeImgList + List = True + ShowCaptions = True + TabOrder = 0 + object TOk: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 41 + OnClick = TOkClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxDBTreeList1: TcxDBTreeList + Left = 0 + Top = 70 + Width = 157 + Height = 495 + Align = alLeft + Bands = < + item + end> + BufferedPaint = False + DataController.DataSource = DataSource1 + DataController.ParentField = 'frametop' + DataController.KeyField = 'frameNo' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OptionsSelection.CellSelect = False + OptionsView.ColumnAutoWidth = True + OptionsView.Headers = False + ParentFont = False + RootValue = -1 + TabOrder = 1 + OnClick = cxDBTreeList1Click + object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn + DataBinding.FieldName = 'frameName' + Width = 494 + Position.ColIndex = 1 + Position.RowIndex = 0 + Position.BandIndex = 0 + end + end + object cxGrid1: TcxGrid + Left = 160 + Top = 70 + Width = 400 + Height = 495 + Align = alLeft + TabOrder = 2 + object tv1: TcxGridDBTableView + OnDblClick = tv1DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnGrouping = False + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.Inserting = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.ContentOdd = cxStyle_gridRow + Styles.Header = cxStyle_gridHead + Styles.Indicator = cxStyle_gridHead + object tv1Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 60 + end + object tv1Code: TcxGridDBColumn + Caption = #21592#24037#32534#21495 + DataBinding.FieldName = 'UserID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 112 + end + object tv1Name: TcxGridDBColumn + Caption = #21592#24037#21517#31216 + DataBinding.FieldName = 'UserName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 175 + end + end + object DBGrid1Level1: TcxGridLevel + GridView = tv1 + end + end + object GroupBox1: TGroupBox + Left = 0 + Top = 32 + Width = 665 + Height = 38 + Align = alTop + TabOrder = 3 + object Label1: TLabel + Left = 276 + Top = 15 + Width = 60 + Height = 12 + Caption = #21592#24037#21517#31216#65306 + end + object Label2: TLabel + Left = 24 + Top = 16 + Width = 60 + Height = 12 + Caption = #21592#24037#32534#21495#65306 + end + object Edt_name: TEdit + Left = 337 + Top = 11 + Width = 120 + Height = 20 + TabOrder = 0 + OnChange = Edt_nameChange + end + object Edt_Code: TEdit + Left = 84 + Top = 12 + Width = 120 + Height = 20 + TabOrder = 1 + OnChange = Edt_nameChange + end + end + object ADOQueryDept: TADOQuery + Connection = ADOConnection1 + LockType = ltReadOnly + Parameters = <> + Left = 88 + Top = 104 + end + object DataSource1: TDataSource + DataSet = ADOQueryDept + Left = 96 + Top = 152 + end + object ADOConnection1: TADOConnection + LoginPrompt = False + Left = 292 + Top = 4 + end + object cxStyleRepository1: TcxStyleRepository + Left = 243 + Top = 128 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clInactiveCaption + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object cxStyle2: 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 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 = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + 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 = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + 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 cxStyleTree: TcxStyle + AssignedValues = [svColor, svFont] + Color = clWindow + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + end + object ADOQueryHelp: TADOQuery + Connection = ADOConnection1 + LockType = ltReadOnly + CommandTimeout = 300 + Parameters = <> + Left = 408 + Top = 176 + end + object DataSource2: TDataSource + DataSet = ClientDataSet1 + Left = 448 + Top = 176 + end + object ImageList1: TImageList + Left = 376 + Top = 4 + Bitmap = { + 494C0101A800A900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 000000000000360000002800000040000000B0020000010020000000000000B0 + 0200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000E2B4A000E2B4A000E2B4A000E2B4A000E2B4A000E2B4A000E2B + 4A000E2B4A000E2B4A000E2B4A000E2B4A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000162F1D00060E + 080000000000699A7D0000000000000000000000000000000000000000000000 + 0000000000000E2B4A00CFFFFF0094DAEC0075C5E20075C5E20054B0D70054B0 + D7002397E1002397E1002397E1000E2B4A00000000000000000033337B003333 + 7B0033337B0033337B0033337B0033337B0033337B0033337B0033337B003333 + 7B0033337B0033337B00000000000000000000000000294B2900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000162F1D0098C0A90098C0A900699A + 7D0038634700060E080000000000000000000000000000000000000000000000 + 0000000000000E2B4A00CFFFFF001E548B001E548B001E548B001E548B001E54 + 8B001E548B001E548B002397E1000E2B4A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000294B2900268C2600268C + 2600268C2600268C2600268C2600268C2600268C2600268C2600268C2600268C + 2600268C2600268C260000000000000000000000000000000000000000000000 + 00000000000000000000162F1D0098C0A900C7DFD300C7DFD30098C0A900699A + 7D00699A7D00162F1D0000000000000000000000000000000000000000000E2B + 4A000E2B4A000E2B4A00CFFFFF0094DAEC0075C5E20075C5E20075C5E20054B0 + D70054B0D70054B0D7002397E1000E2B4A0000000000000000006677DE000000 + 00007BA9B2007FAAB30084ACB5008AAFB60091B2B70096B4BA009DB7BC00A3BA + BE00ABBCC100AFC0C200000000000000000000000000294B29008FE08F008FE0 + 8F008FE08F008FE08F008FE08F008FE08F008FE08F008FE08F008FE08F008FE0 + 8F008FE08F008FE08F000000000000000000000000000000000000000000060E + 0800162F1D0098C0A900AECEBD0069C07D00C7DFD300C7DFD30098C0A900699A + 7D00699A7D0038634700699A7D00000000000000000000000000000000000E2B + 4A00CFFFFF000E2B4A00CFFFFF0094DAEC0094DAEC001E548B001E548B001E54 + 8B001E548B001E548B0054B0D7000E2B4A000000000033337B006677DE006272 + DB005D68D5000000000084ACB5008AAFB60091B3B90096B4BB009DB6BC00A4BA + BE00ABBCC000EEFBFE00000000000000000000000000294B2900294B2900294B + 2900294B2900294B2900294B2900294B2900294B2900294B2900294B2900294B + 2900294B2900294B29000000000000000000000000000000000000000000162F + 1D00C7DFD30083CE9400069A0800009A0000009A000083CE940098C0A900699A + 7D00699A7D00699A7D0000000000000000000000000000000000000000000E2B + 4A00CFFFFF000E2B4A00CFFFFF0094DAEC0094DAEC0094DAEC0075C5E20075C5 + E20075C5E20054B0D70054B0D7000E2B4A0000000000000000006677DE006271 + DB005D68D6005861D0005358CB000000000091B2B90096B4BB009DB7BC00A4BA + BE00EAF9FD00EEFCFE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004F7F + 61000CAE1100AECEBD0083CE940038C04700AECEBD0038C0470098C0A900699A + 7D00699A7D00699A7D00060E080000000000000000000E2B4A000E2B4A000E2B + 4A00CFFFFF000E2B4A00CFFFFF000A0AB0000A0AB0000A0AB00094DAEC0094DA + EC0094DAEC0094DAEC0054B0D7000E2B4A0000000000000000006677DE006271 + DB005D69D5005860D0005358CB004E50C6000000000096B4BA009DB6BC00E4F7 + FB00EAFAFD00EFFCFE00000000000000000000000000294B2900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000699A7D0098C0 + A900009A000083CE9400C7DFD300C7DFD300C7DFD30083CE940098C0A900699A + 7D00699A7D00699A7D00162F1D00699A7D00000000000E2B4A00CFFFFF000E2B + 4A00CFFFFF000E2B4A00CFFFFF00CFFFFF00CFFFFF00CFFFFF00CFFFFF00CFFF + FF00CFFFFF00CFFFFF0094DAEC000E2B4A000000000033337B006677DE006371 + DA005D69D5005861D0005358CB004E4FC6000000000098B5BB00DEF4F900E3F8 + FB00EAF9FC00EFFBFE00000000000000000000000000294B2900268C2600268C + 2600268C2600268C2600268C2600268C2600268C2600268C2600268C2600268C + 2600268C2600268C260000000000000000000000000000000000060E0800AECE + BD000CAE1100009A0000C7DFD30083CE9400009A000038C0470098C0A900699A + 7D00699A7D00699A7D003863470000000000000000000E2B4A00CFFFFF000E2B + 4A00CFFFFF000E2B4A000E2B4A000E2B4A000E2B4A000E2B4A000E2B4A000E2B + 4A000E2B4A000E2B4A000E2B4A000E2B4A0000000000000000006677DE006271 + DA005D69D5005861D0005358CB004D50C60000000000D8F3F800DEF5F900E4F7 + FB00EAF9FC00EEFBFE00000000000000000000000000294B29008FE08F008FE0 + 8F008FE08F008FE08F008FE08F008FE08F008FE08F008FE08F008FE08F008FE0 + 8F008FE08F008FE08F0000000000000000000000000000000000162F1D00C7DF + D30038C0470038C0470038C047000CAE11000CAE110038C0470098C0A900699A + 7D00699A7D00699A7D00699A7D0000000000000000000E2B4A00CFFFFF000E2B + 4A00CFFFFF000A0AB0000A0AB0000A0AB00094DAEC0094DAEC0094DAEC0094DA + EC0054B0D7000E2B4A00000000000000000000000000000000006677DE006271 + DA005D69D5005861D0005258CB004D50C50000000000D9F2F800DEF4F900E3F7 + FB00EAFAFD00EFFCFE00000000000000000000000000294B2900294B2900294B + 2900294B2900294B2900294B2900294B2900294B2900294B2900294B2900294B + 2900294B2900294B2900000000000000000000000000000000004F7F6100C7DF + D300C7DFD300C7DFD300AECEBD0038C04700F2F7F500C5DFD100F2F7F500DFEC + E500C5DFD100699A7D00699A7D00060E0800000000000E2B4A00CFFFFF000E2B + 4A00CFFFFF00CFFFFF00CFFFFF00CFFFFF00CFFFFF00CFFFFF00CFFFFF00CFFF + FF0094DAEC000E2B4A0000000000000000000000000033337B006677DE006271 + DB005D69D5005861D0005258CB004D50C60000000000D8F2F800DEF4F900E4F7 + FB00E9FAFC00EEFCFE0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000699A7D0098C0A900C7DF + D300C7DFD300C7DFD300F2F7F500C5DFD100699A7D0083AE9400C7DFD300C7DF + D300C7DFD300F2F7F500DFECE50036614600000000000E2B4A00CFFFFF000E2B + 4A000E2B4A000E2B4A000E2B4A000E2B4A000E2B4A000E2B4A000E2B4A000E2B + 4A000E2B4A000E2B4A00000000000000000000000000000000006677DE006371 + DB005D69D5005861D0005358CB004E50C600000000008AAFB6008AAFB6008AAF + B6008AAFB6008AAFB60000000000000000000000000026267F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000060E0800AECEBD00C7DF + D300F2F7F500C5DFD100162F1D00699A7D00699A7D00C7DFD300C7DFD300C7DF + D300C7DFD300DFECE500DFECE50036614600000000000E2B4A00CFFFFF000A0A + B0000A0AB0000A0AB00094DAEC0094DAEC0094DAEC0094DAEC0054B0D7000E2B + 4A000000000000000000000000000000000000000000000000006677DE006271 + DB005D69D5005860D0005358CB004D50C5000000000000000000000000000000 + 0000000000000000000000000000000000000000000026267F000607C9000607 + C9000607C9000607C9000607C9000607C9000607C9000607C9000607C9000607 + C9000607C9000607C900000000000000000000000000162F1D00FBFDFC00C5DF + D100699A7D00699A7D00162F1D00699A7D0098C0A900C7DFD300C7DFD300DFEC + E500DFECE50067987B00060E080000000000000000000E2B4A00CFFFFF00CFFF + FF00CFFFFF00CFFFFF00CFFFFF00CFFFFF00CFFFFF00CFFFFF0094DAEC000E2B + 4A00000000000000000000000000000000000000000000000000000000000000 + 00005E69D5005861D0005358CB004D50C5000000000000000000000000000000 + 0000000000000000000000000000000000000000000026267F008080F9008080 + F9008080F9008080F9008080F9008080F9008080F9008080F9008080F9008080 + F9008080F9008080F900000000000000000000000000162F1D00FBFDFC00699A + 7D00699A7D00699A7D00162F1D00699A7D00C7DFD300DFECE500DFECE5006798 + 7B00060E0800000000000000000000000000000000000E2B4A000E2B4A000E2B + 4A000E2B4A000E2B4A000E2B4A000E2B4A000E2B4A000E2B4A000E2B4A000E2B + 4A00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005358CA004E50C5000000000000000000000000000000 + 0000000000000000000000000000000000000000000026267F0026267F002626 + 7F0026267F0026267F0026267F0026267F0026267F0026267F0026267F002626 + 7F0026267F0026267F0000000000000000000000000000000000162F1D00FBFD + FC00FFFFFF00FFFFFF00162F1D00AECEBD00DFECE50067987B00060E08000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000162F1D00699A7D00FBFDFC00FBFDFC00162F1D0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000062616200626162006261 + 6200626162006261620062616200626162006261620062616200626162006261 + 6200626162006261620062616200626162000000000000000000000000000000 + 0000000000000000000000000000000000004A84BD004A84BD0084BDFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004A84BD004A84BD0084BDFF000000 + 000000000000000000000000000000000000000000000000000000000000AFAF + AF00A09FA000A1A1A100A09FA000B1B1B1000000000000000000000000000000 + 000000000000000000000000000000000000A78B6900412C1300412C1300412C + 1300412C1300412C1300412C1300412C1300412C1300412C1300412C1300412C + 1300412C1300412C1300412C1300626162000000000000000000000000000000 + 0000000000000000000000000000000000004A84BD004A84BD0084BDFF00006B + 8400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004A84BD004A84BD0084BDFF00006B + 84005C5C5C0000000000000000000000000000000000000000009A9A9A008585 + 85008E8E8E0085858500B1B1B100000000000000000000000000000000000000 + 000000000000000000000000000000000000A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D200BEE1CC00B6DDC500AED8BE00A8D6BA009FD0B10097CC + AA0090C8A5008CC5A100412C1300626162000000000000000000000000000000 + 00000000000000000000000000000000000000216B004A84BD0084BDFF00006B + 8400006B84000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000216B004A84BD0084BDFF005CA0 + B000B3D3DA005C5C5C0000000000000000000000000098989800505050008686 + 860050505000A9A9A90000000000929292000D0D0D000D0D0D000D0D0D000D0D + 0D001A1A1A00929292000000000000000000A78B6900DAEEE2007C5D37007C5D + 3700CFE9DA007C5D37007C5D37007C5D37007C5D37007C5D3700000064000000 + 640090C8A5008BC49F00412C1300626162000000000000000000000000004B00 + 0700000000000000000000000000000000004A84BD004A84BD0084BDFF00006B + 8400006B8400006B840000000000000000000000000000000000000000000021 + 6B00000000000000000000000000000000004A84BD004A84BD00B0D5FF00B3D3 + DA0018189400B3D3DA005C5C5C00000000000000000047474700797979004747 + 4700797979000000000047474700020202000D0D0D000D0D0D00757575007575 + 75000D0D0D00020202004747470000000000A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D200BEE1CC00B6DDC500AED8BE00A8D6BA00000064000000 + 8C00000064008BC49F00412C1300626162000000000085344A0085344A004B00 + 07004B00070000000000000000000000000000216B004A84BD0084BDFF00006B + 8400006B8400006B84000000000000000000000000004A84BD004A84BD000021 + 6B0000216B0000000000000000000000000000216B008BB0D500DAEBFF001818 + BD000000DB0018189400B3B3B300000000008A8A8A0035353500898989003535 + 35000000000092929200020202000D0D0D000D0D0D0047474700474747004747 + 4700757575000D0D0D000202020092929200A78B6900DAEEE2007C5D37007C5D + 3700CFE9DA007C5D37007C5D37007C5D37000000640000006400000064009696 + FF0000008C0000006400855D2E0062616200000000004B00070085344A004B00 + 07004B0007004B00070000000000000000004A84BD004A84BD0084BDFF00006B + 8400006B8400006B840000000000000000000000000000216B004A84BD000021 + 6B0000216B0000216B0000000000000000008BB0D500C9DAEB002929FF007B7B + FF000000DB000000DB0018189400000000005A5A5A00656565005A5A5A006565 + 6500000000001A1A1A000D0D0D004747470047474700A09FA000898A8900898A + 890047474700757575000D0D0D000D0D0D00A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D200BEE1CC00B6DDC500000064009696FF0000008C000000 + FF000000FF0000008C0000006400888888000000000085344A0085344A004B00 + 07004B00070085344A0085344A004A84BD0000216B0000216B0000216B00006B + 8400006B8400006B84000000000000000000000000004A84BD004A84BD000021 + 6B0000216B004A84BD004A84BD004A84BD0000216B005C71A000B3BDD3002929 + FF000000DB0018189400B3B3B30000000000313131008E8E8E00313131008E8E + 8E00000000001A1A1A005757570047474700D4D4D400A09FA0000D0D0D00898A + 8900898A890047474700757575000D0D0D00A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D200BEE1CC00B6DDC500000064009696FF000000FF000000 + FF000000FF000000FF000000DC0000006400000000004B00070085344A004B00 + 070085344A0085344A004B00070000216B0084BDFF0084BDFF0084BDFF000021 + 6B00006B8400006B840000000000000000000000000000216B004A84BD000021 + 6B004A84BD004A84BD0000216B0000216B0084BDFF0084BDFF00DAEBFF002929 + FF000000DB0018189400B3B3B30000000000313131008E8E8E00313131008E8E + 8E00000000001A1A1A00A09FA00047474700EEEEEE000D0D0D00BFBFBF000D0D + 0D00898A890047474700757575000D0D0D00A78B6900DAEEE2007C5D37007C5D + 37007C5D37007C5D37007C5D37007C5D3700000064009696FF009696FF009696 + FF000000FF000000FF0000006400888888000000000085344A0085344A004B00 + 07004B0007004B000700B35C720084BDFF0084BDFF0084BDFF0084BDFF0084BD + FF0000216B00006B84000000000000000000000000004A84BD004A84BD000021 + 6B0000216B0000216B0084BDFF0084BDFF0084BDFF0084BDFF00DAEBFF002929 + FF000000DB0018189400B3B3B30000000000313131008E8E8E00313131008E8E + 8E000000000005050500A09FA00047474700EEEEEE00A09FA0000D0D0D00A09F + A000A09FA000474747000D0D0D000D0D0D00A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D200BEE1CC00B6DDC5000000640000006400000064009696 + FF000000FF0000006400855D2E00626162000000000085344A004B0007004B00 + 0700B35C7200B35C7200B35C7200B35C720084BDFF0084BDFF0084BDFF0084BD + FF0084BDFF0000216B000000000000000000000000004A84BD0000216B000021 + 6B0084BDFF0084BDFF0084BDFF0084BDFF0084BDFF0084BDFF00DAEBFF002929 + FF000000DB0018189400B3B3B300000000005A5A5A00656565005A5A5A006565 + 65000000000027272700A09FA0000D0D0D0047474700EEEEEE00EEEEEE00D4D4 + D400474747000D0D0D000D0D0D001A1A1A00A78B6900DAEEE2004B93C50073C6 + E50073C6E50073C6E50073C6E500B6DDC500AED8BE00A8D6BA00000064009696 + FF00000064008BC49F00412C130062616200000000004B000700B35C7200B35C + 7200B35C7200B35C7200B3B3B300B35C7200B35C720084BDFF0084BDFF0084BD + FF00000000000000000000000000000000000000000000216B0084BDFF0084BD + FF0084BDFF0084BDFF00FFFFFF0084BDFF0084BDFF0084BDFF00DAEBFF002929 + FF000000DB001818940000000000000000008A8A8A0035353500898989003535 + 3500000000009292920027272700A09FA0000D0D0D0047474700474747004747 + 47000D0D0D000D0D0D000202020092929200A78B6900DAEEE2004B93C5004B93 + C5004B93C5004B93C50073C6E500B6DDC500AED8BE00A6D5B800000064000000 + 640090C8A5008BC49F00412C1300626162000000000000000000B35C7200B35C + 7200B3B3B300B3B3B300B3B3B300B3B3B300B35C7200B35C7200000000000000 + 000000000000000000000000000000000000000000000000000084BDFF0084BD + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0084BDFF0084BDFF00B3B3B3002929 + FF007B7BFF00181894000000000000000000000000005A5A5A00858585005A5A + 5A0085858500000000004747470027272700A09FA000A09FA000A09FA0005757 + 57000D0D0D00020202004747470000000000A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D200BEE1CC00B6DDC500AED8BE00A6D5B8009FD0B10097CC + AA0090C8A5008BC49F00412C130062616200000000000000000000000000B35C + 7200B35C7200B3B3B300B35C7200B35C72000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000084BD + FF0084BDFF00FFFFFF0084BDFF0084BDFF000000000000000000000000002929 + FF002929FF002929FF00000000000000000000000000A1A1A100696969009292 + 920069696900AFAFAF000000000092929200272727001A1A1A000D0D0D000505 + 05000D0D0D00929292000000000000000000A78B6900A78B6900A78B6900A78B + 6900A78B6900A78B6900A78B6900A78B6900A78B6900A78B6900A78B6900A78B + 6900A78B6900A78B6900A78B6900000000000000000000000000000000000000 + 0000B35C7200B35C720000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000084BDFF0084BDFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000A2A2A2009191 + 91009898980091919100B4B4B400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B3B3 + B300A9A9A900A9A9A900A9A9A900B4B4B4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000285C0000285C0000285C000028 + 5C0000285C0000285C0000285C0000285C0000285C0000285C0000285C000028 + 5C0000285C0000285C0000285C0000285C00000000000000A8000000A8000000 + A8000000A8000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000DB002424E7000000 + A800D0700000E78D24007A4200000000DB002424E7000000A800D0700000E78D + 24007A4200000000DB002424E7000000A8000000000000000000000000000000 + 000000000000000000000000000000000000003C5F00004C7800000000000000 + 0000000000000000000000000000000000003D78B500CFFFFF0071D0F40071D0 + F40092929200555555002323230005050500050505000505050055555500208C + D700208CD700208CD700208CD70000285C00000000002424E7002424E7002424 + E7000000A8000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000DB002424E7000000 + A800D0700000E78D24007A4200000000DB002424E7000000A800D0700000E78D + 24007A4200000000DB002424E7000000A8000000000000000000000000000000 + 0000000000000000000000000000000000005BC3FF00004C7800004C7800004C + 7800000000000000000000000000000000003D78B500CFFFFF0071D0F4007A7A + 7A001E1E1E002D2D2D006A6A6A009C9C9C006A6A6A004545450045454500208C + D700208CD700208CD700208CD70000285C00000000000000DB000000DB000000 + DB000000DB000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000DB002424E7000000 + A800D0700000E78D24007A4200000000DB002424E7000000A800D0700000E78D + 24007A4200000000DB006464F9000000A8000000000000000000000000000000 + 000000000000000000000000000000000000000000005BC3FF00E5508F00A400 + 0000A40000000000000000000000000000003D78B5007A7A7A002D2D2D001E1E + 1E0045454500A1A1A10048AEE50048AEE50048AEE50048AEE500208CD700208C + D7002D2D2D0055555500208CD70000285C00000000007A4200007A4200007A42 + 00007A4200007A4200007A4200007A4200007A4200007A4200007A4200007A42 + 000000000000000000000000000000000000000000000000DB002424E7000000 + A800D0700000E78D24007A4200000000DB002424E7000000A800D0700000E78D + 24007A4200000000DB000000DB000000DB000000000000000000000000000000 + 000000000000000000000000000000000000000000005BC3FF00E5508F00A400 + 0000A4000000A400000000000000000000003D78B500A1A1A1002D2D2D002D2D + 2D00A1A1A10071D0F40071D0F40048AEE50048AEE50048AEE50048AEE500208C + D7002D2D2D00232323002D2D2D0000285C0000000000E78D2400E78D2400E78D + 2400E78D2400E78D2400E78D2400E78D2400E78D2400E78D2400E78D24007A42 + 000000000000000000000000000000000000000000000000DB006464F9000000 + A800D0700000E78D24007A4200000000DB002424E7000000A800D0700000E78D + 24007A4200000000000000000000000000000000000000000000626162006261 + 6200626162006261620062616200626162006261620000000000A4000000FFC7 + D800A4000000A4000000A4000000000000003D78B500CFFFFF00232323002D2D + 2D002D2D2D0071D0F40071D0F40071D0F40048AEE50048AEE50048AEE5009C9C + 9C002D2D2D0005050500208CD70000285C0000000000D0700000D0700000D070 + 0000D0700000D0700000D0700000D0700000D0700000D0700000D0700000D070 + 000000000000000000000000000000000000000000000000DB000000DB000000 + DB00D0700000E78D24007A4200000000DB002424E7000000A800D0700000E78D + 24007A4200000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000A400 + 0000FFC7D800A4000000A4000000A40000003D78B500CFFFFF0090E9FF0090E9 + FF0071D0F40071D0F40071D0F40071D0F40048AEE50048AEE50048AEE50048AE + E500208CD70005050500208CD70000285C00000000000000A8000000A8000000 + A8000000A8000000A8000000A8000000A8000000A8000000A8000000A8000000 + A8000000A8000000A80000000000000000000000000000000000000000000000 + 0000D0700000F4B163007A4200000000DB002424E7000000A800D0700000E78D + 24007A4200000000000000000000000000000000000000000000E4E4E4000000 + 0000FFA73700FF9E340080000000FF732600FF69230080000000FF3110000000 + 0000A4000000FFC7D800A4000000000000003D78B500CFFFFF00050505009C9C + 9C0071D0F40071D0F40071D0F40071D0F40071D0F40048AEE50048AEE50048AE + E5009C9C9C0005050500208CD70000285C00000000002424E7002424E7002424 + E7002424E7002424E7002424E7002424E7002424E7002424E7002424E7002424 + E7002424E7000000A80000000000000000000000000000000000000000000000 + 0000D0700000D0700000D07000000000DB002424E7000000A800D0700000E78D + 24007A4200000000000000000000000000000000000000000000E7E8E7000000 + 0000FFB13B00FFA7370080000000FF7C2800FF71250080000000FF3D1400FF2F + 0F0000000000A400000000000000000000003D78B500CFFFFF00232323006A6A + 6A0090E9FF0071D0F40071D0F40071D0F40071D0F40048AEE50048AEE50048AE + E5006A6A6A0023232300208CD70000285C00000000000000DB000000DB000000 + DB000000DB000000DB000000DB000000DB000000DB000000DB000000DB000000 + DB000000DB000000DB0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000DB002424E7000000A800D0700000E78D + 24007A4200000000000000000000000000000000000000000000000000000000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000000000006261620000000000000000003D78B500CFFFFF00555555002D2D + 2D00A1A1A10090E9FF0071D0F40071D0F40071D0F40071D0F40071D0F400A1A1 + A1002D2D2D0055555500208CD70000285C00000000007A4200007A4200007A42 + 00007A4200007A4200007A4200007A4200007A42000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000DB002424E7000000A800D0700000F4B1 + 63007A4200000000000000000000000000000000000000000000F6F6F6000000 + 0000FFD14500FFCC440080000000FFAA3800FFA0350080000000FF752700FF6A + 2300000000006261620000000000000000003D78B500CFFFFF00929292001E1E + 1E0045454500A1A1A10090E9FF002D2D2D0071D0F40071D0F400A1A1A1004545 + 45001E1E1E009292920048AEE50000285C0000000000E78D2400E78D2400E78D + 2400E78D2400E78D2400E78D2400E78D24007A42000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000DB002424E7000000A800D0700000D070 + 0000D07000000000000000000000000000000000000000000000F9F8F8000000 + 0000FFD14500FFD1450080000000FFB33C00FFA9370080000000FF7D2A00FF73 + 2600000000006261620000000000000000003D78B500CFFFFF00B9F2FF007A7A + 7A001E1E1E002D2D2D006A6A6A002D2D2D002D2D2D0071D0F40071D0F4001E1E + 1E007A7A7A0071D0F40048AEE50000285C0000000000D0700000D0700000D070 + 0000D0700000D0700000D0700000D0700000D070000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000DB006464F9000000A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006261620000000000000000003D78B500CFFFFF00B9F2FF00B9F2 + FF0092929200555555002323230005050500050505000505050071D0F40071D0 + F40071D0F40071D0F40048AEE50000285C00000000000000A8000000A8000000 + A8000000A8000000A8000000A800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000DB000000DB000000DB00000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF000000 + 0000F9F8F800F5F6F500EBECEB00E8E9E80000000000D9D8D900D4D5D400D0D0 + D000000000006261620000000000000000003D78B500CFFFFF00B9F2FF00B9F2 + FF00B9F2FF00B9F2FF00B9F2FF002D2D2D002D2D2D0090E9FF0090E9FF0090E9 + FF0071D0F40071D0F40071D0F40000285C00000000002424E7002424E7002424 + E7002424E7002424E7000000A800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003D78B500CFFFFF00CFFFFF00CFFF + FF00CFFFFF00CFFFFF00CFFFFF00CFFFFF00CFFFFF00CFFFFF00CFFFFF00CFFF + FF00CFFFFF00CFFFFF0071D0F40000285C00000000000000DB000000DB000000 + DB000000DB000000DB000000DB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003D78B5003D78B5003D78B5003D78 + B5003D78B5003D78B5003D78B5003D78B5003D78B5003D78B5003D78B5003D78 + B5003D78B5003D78B5003D78B5003D78B5000000000000000000000000000000 + 000000000000A3A3A3009A9A9A009A9A9A009A9A9A009A9A9A00A3A3A3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A3A3A3006B6B6B004E4E4E004E4E4E004E4E4E004E4E4E006B6B6B00A3A3 + A300000000000000000000000000000000000000000000000000000000000000 + 0000CEEBF900C6E5F700BEE0F400B5DAF000ABD3ED00A1CDE90097C6E6008EC0 + E30085BBDF00000000000000000000000000000000007A420000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004E4E4E009A9A + 9A0000000000000000000000000000000000000000000000000051A1D8000000 + 0000CEEAF9001127360011273600112736001127360011273600112736001127 + 360085BBDF00000000000000000000000000000000000000A8007A4200000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007A42000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C636300FFFFCC00FFCC9900FFCC9900CE9C9C00000000004E4E4E009A9A + 9A0000000000000000000000000000000000000000000000000051A1D8000000 + 0000CDEAF900C6E5F700BDE0F400B5D9F100ABD3ED00A1CDEA0097C7E6008EC0 + E20085BADF0000000000000000000000000000000000000000000000A8007A42 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007A420000000000007A420000000000000000000005050500000000000505 + 0500000000000505050000000000000000000505050005050500050505000505 + 05000505050005050500000000000000000000000000A3A3A3009A9A9A009A9A + 9A009C636300FFFFCC00FFCC9900FFCC9900CE9C9C0000000000454545007D7D + 7D009A9A9A009A9A9A00A3A3A30000000000000000000000000051A1D8000000 + 0000CDEAF9001127360011273600112736001127360011273600112736001127 + 360085BBE00000000000000000000000000000000000000000000000A8000000 + 00007A42000000000000000000000000000000000000000000007A4200007A42 + 00000000000000000000000000007A4200000000000000000000000000000000 + 0000000000000000000000000000005A00004ED34E004ED34E004ED34E004ED3 + 4D00050505000A6C0A000505050000000000A3A3A3006B6B6B004E4E4E004E4E + 4E009C636300FFFFCC00FFCC9900FFCC9900CE9C9C0000000000323232004545 + 45004E4E4E004E4E4E006B6B6B00A3A3A300000000000000000051A1D8000000 + 0000CDEAF900C6E6F600BEDFF300B4DAF000ABD3EC00A0CCE90097C7E6008EC0 + E30085BAE0000000000000000000000000000000000000000000000000000000 + A800000000007A42000000000000000000007A4200007A420000000000000000 + 0000000000000000000000000000000000000000000005050500000000000505 + 0500000000000505050000000000005A000069DB690069DB690069DB690069DB + 690005050500107A100010791000050505000000000000000000000000000000 + 000000000000FFFFCC00FFCC9900FFCC9900CE9C9C0000000000000000000000 + 000000000000000000004E4E4E009A9A9A00000000000000000051A1D8000000 + 0000CEEBF9001127360011273600112736001127360011273600112736001127 + 360085BBDF000000000000000000000000000000000000000000000000000000 + A80000000000000000007A4200007A4200000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000005A000083E3830083E3830083E3830083E383000505 + 0500178817001687160017881700050505009C636300CE9C9C00CE9C9C00CE9C + 9C00CE9C9C00CE9C9C00FFCC9900FFCC9900CE9C9C00CE9C9C00CE9C9C00CE9C + 9C00CE9C9C00000000004E4E4E009A9A9A00000000000000000051A1D8000000 + 0000CEEBF900C6E5F600BDE0F300B5D9F000AAD3EC00A1CDEA0097C7E6008EC0 + E30085BADF000000000000000000000000000000000000000000000000000000 + 00000000A8000000000000000000000000000000000000000000000000000000 + 0000000000000000A80000000000000000000000000000000000000000000000 + 00000000000000000000005A00009EEE9E009EEE9E009EED9E009EEE9E000505 + 05001D931C001D941C0005050500000000009C636300FFFFCC00FFCC9900FFCC + 9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC + 9900CE9C9C00000000004E4E4E009A9A9A00000000000000000051A1D8000000 + 0000CEEAF9001127360011273600112736001127360011273600112736001127 + 360085BBE0000000000000000000000000000000000000000000000000000000 + 00000000A80000000000000000000000000000000000000000000000A8000000 + A8000000A800000000000000A800000000000505050000000000050505000000 + 000005050500005A0000B9F8B900BAF8B900B9F8B900B9F8B9000505050021A0 + 210021A0210021A0210005050500000000009C636300FFFFCC00FFCC9900FFCC + 9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC + 9900CE9C9C00000000004E4E4E009A9A9A00000000000000000051A1D8000000 + 0000CEEAF900C6E5F700BEE0F400B4DAF000AAD4ED00A1CCEA0097C7E6008EC1 + E30085BBDF000000000000000000000000000000000000000000000000000000 + 0000000000000000A8000000000000000000000000000000A800000000000000 + 00000000000000000000000000000000A8000000000000000000000000000000 + 000000000000005A0000CCFFCC00CCFFCC00CCFFCC00CCFFCC000505050025AD + 250025AD25000505050000000000000000009C636300FFFFCC00FFFFCC00FFFF + CC00FFFFCC00FFFFCC00FFCC9900FFCC9900CE9C9C00FFFFCC00FFFFCC00FFFF + CC00FFFFCC00000000006B6B6B00A3A3A300000000000000000051A1D8000000 + 0000CEEAF9001127360011273600112736001127360011273600112736001127 + 360085BAE0000000000000000000000000000000000000000000000000000000 + 000000000000000000000000A800000000000000A80000000000000000000000 + 0000000000000000000000000000000000000000000005050500000000000505 + 050000000000005A0000005A0000005A0000005A0000005A0000005A0000005A + 00002AB92B000505050000000000000000009C6363009C6363009C6363009C63 + 63009C636300FFFFCC00FFCC9900FFCC9900CE9C9C009C6363009C6363009C63 + 63009C63630000000000A3A3A30000000000000000000000000051A1D8000000 + 0000CEEAF900C6E5F700BDE0F400B5D9F000AAD3ED00A0CCE90097C6E6008EC0 + E20085BADF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000A8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000005A000000FF000000FF000000FF000000FF000000FF + 0000005A00000000000000000000000000000000000000000000000000000000 + 00009C636300FFFFCC00FFCC9900FFCC9900CE9C9C00000000004E4E4E009A9A + 9A0000000000000000000000000000000000000000000000000051A1D8000000 + 000000000000C6E5F60000000000B5DAF00000000000A1CDEA00000000008EC0 + E200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000505050000000000050505000000 + 0000050505000000000000000000005A0000005A0000005A0000005A0000005A + 0000005A00000000000000000000000000000000000000000000000000000000 + 00009C636300FFFFCC00FFCC9900FFCC9900CE9C9C00000000004E4E4E009A9A + 9A0000000000000000000000000000000000000000000000000051A1D80051A1 + D800000000007B7B7B00000000007B7B7B00000000007B7B7B00000000007B7B + 7B00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C636300FFFFCC00FFFFCC00FFFFCC00FFFFCC00000000006B6B6B00A3A3 + A3000000000000000000000000000000000000000000000000000000000051A1 + D800000000007B7B7B00000000007B7B7B00000000007B7B7B00000000007B7B + 7B00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C6363009C6363009C6363009C6363009C6363009C636300A3A3A3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000084B400142E4C00142E4C00142E4C00505050003E3E3E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000084B4000078E100008CE8000055D6002A2A2A005E5E5E006666 + 6600383838000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004B4B4B004B4B4B004B4B4B00828282008282 + 8200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000A0A0A0000B0F0000378E100008CE8000055D6002E2E2E00666666007272 + 72007C7C7C004242420000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004B4B4B004B4B4B0082828200828282009E9E9E004B4B4B008282 + 8200828282008282820000000000000000000000000034261600342616003426 + 1600342616003426160000000000000000000000000000000000AE824E003426 + 1600342616003426160034261600000000000000000000000000000000000000 + 00001010100008B0F0000D7EE6000A8EEA000656D600323232006E6E6E007C7C + 7C00626262000000000000000000000000006D4236006D4236006D4236006D42 + 36006D4236006D4236006D4236006D4236006D4236003737AD003737AD003737 + AD003737AD003737AD003737AD003737AD000000000000000000000000004B4B + 4B004B4B4B0082828200828282004B4B4B00FFE4D5004B4B4B00919191008282 + 820091919100919191009191910091919100AE824E00E1C29300E1C29300E1C2 + 9300E1C293003426160000000000000000000000000000000000AE824E00AE82 + 4E00E1C29300E1C29300906D4300342616000000000000000000000000000000 + 00001616160022B8F4001E88E6001E98EC001A63E100383838003A3A3A008080 + 8000808080004040400000000000000000006D42360000000000000000006D42 + 360000000000000000006D42360000000000000000003737AD00000000000000 + 00003737AD0000000000000000003737AD00000000004B4B4B004B4B4B000000 + 0000000000004B4B4B00FFE4D500FFE4D500FFE4D5004B4B4B00ABABAB000000 + 000091919100919191009191910000000000AE824E00E1C29300906D43003426 + 1600B6A69300000000000000000000000000000000000000000000000000B6A6 + 9300AE824E00E1C29300906D4300342616000000000000000000000000000000 + 00001E1E1E0036C2F8002BA0F3002ABCF6002C6FE3004E94F0002C496F002020 + 2000404040002020200000000000000000006D42360000000000000000000000 + 000000000000000000006D423600000000000000000000000000000000000000 + 00003737AD000000000000000000000000004B4B4B0082828200828282005252 + 520052525200FFE4D50053535A0053535A0053535A0053535A0000000000C6C6 + C6000000000053535A000000000000000000AE824E00E1C29300906D43003426 + 1600000000000000000000000000000000000000000000000000000000000000 + 0000AE824E00E1C29300906D4300342616000000000000000000649AAD00243A + 56004ECCF8004ECCF80046CAF8003EC4F8003E7EEB0066A4F400375173000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006B5B2E00DADADA00DADADA000000 + 000000000000DADADA00DADADA00DBDAD900DADAD90000000000A8A8A8000000 + 0000A8A8A800DBDAD90053535A0000000000AE824E00E1C29300906D43003426 + 1600000000000000000000000000000000000000000000000000000000000000 + 0000AE824E00E1C29300906D43003426160000000000000000002C496F00649A + AD0066D6FB0066D6FB005ED4F90056D0F800538FF0007AB0F800475E7C000000 + 000000000000000000000000000000000000847A8400847A8400847A8400847A + 8400847A8400847A8400847A8400847A8400847A840000000000000000000000 + 0000000000000000000000000000000000006B5B2E00F1F1F100F1F1F100F1F1 + F100F1F1F100F1F1F100F1F1F100F1F1F100F1F1F10078787800F1F1F100F1F1 + F100F1F1F100F1F1F1000000000000000000AE824E00E1C29300906D43003426 + 1600000000000000000000000000000000000000000000000000000000000000 + 0000AE824E00E1C29300906D43003426160000000000000000003751730076A6 + B3007EE0FF007EE0FF0076DCFF006EDAFF00659CF600227CFD00566983000000 + 000000000000000000000000000000000000847A840084A5C30084A5C30084AF + C30085AFC30084AFC30085AFC30085AFC30085AFC30012658D00C4F1F7006ACD + DC0043A5C7002982B5001864A100000000006B5B2E000101B2000101B2000101 + B2000101B2000101B2000101B2000101B2000101B20078787800FA8D8100FA8D + 8100FFE2B300000000000000000000000000AE824E00E1C29300906D43003426 + 1600000000000000000000000000000000000000000000000000000000000000 + 0000AE824E00E1C29300906D4300342616000000000000000000475E7C0088B0 + B90096ECFF0096ECFF00C3F1FF0083B3FF00227CFD006A82A2008092AA000000 + 000000000000000000000000000000000000847A840084A5C30084A5C30085AF + C30085AFC30085AFC30085AFC30085AFC30085AFC30012658D00C4F1F70084DC + ED0058B3D700378EC1001864A100000000006B5B2E00D2C18800D2C08800D2C1 + 8800D2C08700D2C18800D2C18700D1C08800D2C0880078787800564924005649 + 240056492400B6B6B6000000000000000000AE824E00E1C29300906D43003426 + 1600000000000000000000000000000000000000000000000000000000000000 + 0000AE824E00E1C29300906D430034261600000000000000000056698300A9BD + C1006DA5FF006DA5FF00224E8F000E3C8300206AD9002E486D00000000000000 + 000000000000000000000000000000000000847A840084A5C30084A5C30084AF + C30085AFC30084AFC30085AFC30085AFC30085AFC30012658D00C4F1F70084DC + ED0058B3D700378EC1001864A100000000006B5B2E00C2AB6800C2AB6800C2AB + 6900C3AB6800C2AC6800C2AB6900C2AB6800C2AC6900FFC49D00FFE4D5004B4B + 4B00ABABAB00E9E9E9004B4B4B0000000000AE824E00E1C29300906D43003426 + 1600000000000000000000000000000000000000000000000000000000000000 + 0000AE824E00E1C29300906D430034261600000000000000000000000000588E + A100222222005E6E87000C459C001D53A6000808080000000000000000000000 + 000000000000000000000000000000000000847A840084A5C30084A5C30085AF + C30085AFC30085AFC30085AFC30085AFC30085AFC30012658D00C4F1F70084DC + EE0058B1D700388CC1001864A10000000000000000000000000035353500ABAB + AB00FFE4D500FFE4D500FFC49D00FFC49D00FFE4D5003F3F3F00A0A0A000D1D1 + D1004B4B4B004B4B4B000000000000000000AE824E00E1C29300906D43003426 + 1600B6A69300000000000000000000000000000000000000000000000000B6A6 + 9300AE824E00E1C29300906D4300342616000000000000000000000000000000 + 00000000000084A8D6002BA0F3003E7EEB002C2C2C0000000000000000000000 + 000000000000000000000000000000000000847A840084A5C30084A5C30085AF + C30085AFC30085AFC30085AFC30085AFC30085AFC30012658D00C4F1F70082DC + EE0059B1D700378EC1001864A100000000000000000000000000000000004B4B + 4B004B4B4B00FFE4D500FFE4D500575757008A8A8A00C2C2C2004B4B4B004B4B + 4B0000000000000000000000000000000000AE824E00E1C29300906D43003426 + 1600342616003426160000000000000000000000000000000000AE824E003426 + 160034261600E1C29300906D4300342616000000000000000000000000000000 + 0000000000006097DD00C3F1FF0083B3FF002E2E2E0000000000000000000000 + 000000000000000000000000000000000000847A840084A5C30084A5C30084AF + C30085AFC30084AFC30085AFC30085AFC30085AFC30012658D00C4F1F700C4F1 + F700C4F1F700C4F1F700B5EFF700000000000000000000000000000000003535 + 3500ABABAB004B4B4B00B6B6B600D8D8D8004B4B4B004B4B4B00000000000000 + 00000000000000000000000000000000000000000000AE824E00AE824E00AE82 + 4E00AE824E003426160000000000000000000000000000000000AE824E00AE82 + 4E00AE824E00AE824E00AE824E00000000000000000000000000000000000000 + 00000000000000000000525252003A3A3A000000000000000000000000000000 + 0000000000000000000000000000000000009A9A9A009A9A9A009A9A9A009A9A + 9A009A9A9A009A9A9A009A9A9A009A9A9A009A9A9A0012658D0012658D001265 + 8D0012658D0012658D0012658D00000000000000000000000000000000000000 + 00004B4B4B00E4E4E4004B4B4B004B4B4B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004B4B4B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000939393009393 + 9300939393009393930093939300939393009393930093939300939393009393 + 9300939393009393930093939300000000000000000000000000000000000000 + 0000000000000000000000000000727272000000000072727200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000093939300000000000000000000000000000000000000 + 0000000000000000000072727200000000003E92D90000000000727272000000 + 0000000000000000000000000000000000001414140014141400141414001414 + 1400141414001414140000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001414140014141400141414001414 + 1400141414001414140000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006A514A00F8E7DC00E4A6 + 8800E1A18400DD9C7F00D8987B00D3947700CD8F7400C78A7000C0876D00B983 + 6900B47E66000000000093939300000000000000000000000000000000000000 + 00000000000072727200000000003F99D9003E99D9003E99D900000000007272 + 72000000000000000000000000000000000012658D00CCFFFF009FE1F0006ABE + DE003DA0CF001414140000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000012658D00CCFFFF009FE1F0006ABE + DE003DA0CF001414140000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006A514A00F8E7DC00E4A6 + 8800E1A18400DD9C7F00D8987B00D3947700CD8F7400C78A7000C0876D00B983 + 6900B47E66000000000093939300000000000000000000000000000000000000 + 000072727200000000004BA6E5004B9FE500000000003F9FE5003E99D9000000 + 00007272720000000000000000000000000012658D00CCFFFF009FE2F0006ABE + DE003DA0CF001414140000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000012658D00CCFFFF009FE2F0006ABE + DE003DA0CF001414140000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006A514A00F8E7DC005F5F + EE005F5FEE00E3A2850048484800484848004848480048484800484848004848 + 4800BA846A000000000093939300000000000000000000000000000000007272 + 7200000000004CACE6004CACE60000000000D9F3FF00000000003F9FE5003F99 + D9000000000072727200000000000000000012658D0012658D0012658D001265 + 8D0012658D0012658D0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000012658D0012658D0012658D001265 + 8D0012658D0012658D0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006A514A00F8E7DC00E7AF + 9700E6AB9100E5A78A00E3A38600DF9E8100DB9A7D00D6967800D0917600C98D + 7200C3886F000000000093939300000000000000000000000000727272000000 + 000058B3E6007272720072727200D9F3FF00D9F3FF00D9F3FF00000000003F9F + E5003E99D9000000000072727200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000014147900141493000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000014147900141493000000 + 000000000000000000000000000000000000000000006A514A00F8E7DC004848 + EB004848EB00E6AC92004848480048484800484848004848480048484800D193 + 7600CB8E720000000000939393000000000000000000727272000000000065BF + F20065BFF300727272000000000000000000327298004CA6E6004CA6E6000000 + 00003F9FE5003E99D90000000000727272001414140014141400141414001414 + 14001414140014141400000000000000000014147900141479001414D1001817 + 9700000000000000000000000000000000001414140014141400141414001414 + 14001414140014141400000000000000000014147900141479001414D1001817 + 970000000000000000000000000000000000000000006A514A00F8E7DC00E7BA + A600E7B6A000E7B29900E7AD9300E5A88E00E4A68800E1A18400DC9C7E00D897 + 7A00D3937700000000009393930000000000727272000000000065BFF20065C6 + F30000000000D9F3FF003292CC007ECCFF003272980000000000000000004BA6 + E500000000003F99E5003E99D9000000000019199F00ABABFA008383EA004C4C + E4002828C000141414001414790014147900141479001414D1003414B1003D3D + CA002021A40000000000000000000000000019199F00ABABFA008383EA004C4C + E4002828C000141414001414790014147900141479001414D1003414B1003D3D + CA002021A400000000000000000000000000000000006A514A00F8E7DC004848 + D8004848D800E7B7A10048484800484848004848480048484800484848004848 + 4800D8987B000000000093939300000000000000000059BFF20065C6F3000000 + 0000D9F3FF00D9F3FF003292CC007ECCFF007ECCFF003292CC00327298000000 + 00004BA6E5003F9FE500000000000000000019199F00ABABFA008383EB004C4C + E4002828C00014141400000000001414D1001414D1003414B100000000007E7E + E3004545D2002D2DB300000000000000000019199F00ABABFA008383EB004C4C + E4002828C00014141400000000001414D1001414D1003414B100000000007E7E + E3004545D2002D2DB3000000000000000000000000006A514A00F8E7DC00E7C5 + B500E7C1AF00E7BCA900E7B7A300E7B39C00E7AF9700E6AB9100E5A78A00E3A2 + 8500DF9E8100000000009393930000000000000000000000000065C6F30072CC + F30000000000D9F3FF007ED9FF00327298007ECCFF007ECCFF00E672A500B332 + 32000000000000000000000000000000000019199F0019199F0019199F001919 + 9F0019199F0019199F0000000000000000003414B10000000000000000000000 + 00009494E2004C4CDB003839C2000000000019199F0019199F0019199F001919 + 9F0019199F0019199F0000000000000000003414B10000000000000000000000 + 00009494E2004C4CDB003839C20000000000000000006A514A00F8E7DC004848 + C2004848C200E7C1B00048484800484848004848480048484800484848004848 + 4800E3A4870000000000939393000000000000000000000000000000000072CC + F30072D3FF00000000007ED9FF00000000007ECCFF00E672A500E672A500E672 + A500B33232000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B3B3E1005454E4004344D1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B3B3E1005454E4004344D100000000006A514A00F8E7DC00E8D0 + C600E7CBBE00E7C7B700E7C3B300E7BEAC00E7BAA600E7B69F00E7B19900E7AD + 9300E5A88E000000000093939300000000000000000000000000000000000000 + 000072D3FF0072D3FF000000000072D3FF0000000000FF5B5B00FFCCE500E672 + A500E672A500B332320000000000000000001414140014141400141414001414 + 1400141414001414140000000000000000000000000000000000000000000000 + 00000000000000000000000000005B5BEE001414140014141400141414001414 + 1400141414001414140000000000000000000000000000000000000000000000 + 00000000000000000000000000005B5BEE00000000006A514A00F8E7DC004848 + B0004848B000E8CCC0004848480048484800484848004848480048484800E7B3 + 9A00E6AE95000000000093939300000000000000000000000000000000000000 + 00000000000072D3FF0072D3FF000000000072CCF30000000000FF5B5B00FFCC + E500E672A500E672A500B33232000000000012658D00CCFFFF009FE1F0006ABE + DE003DA0CF001414140000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000012658D00CCFFFF009FE1F0006ABE + DE003DA0CF001414140000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006A514A00F8E7DC00EBDC + D600EAD7CF00E9D2C700E8CDC100E7C8BA00E7C5B500E7C0AE00E7BBA700E7B7 + A300E7B39B000000000093939300000000000000000000000000000000000000 + 0000000000000000000072CCF30065CCF30065C6F3000000000000000000FF5B + 5B00FFCCE500E672A500E672A500B332320012658D00CCFFFF009FE1F0006ABE + DE003DA0CF001414140000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000012658D00CCFFFF009FE1F0006ABE + DE003DA0CF001414140000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006A514A00F8E7DC00F8E7 + DC00F8E7DC00F8E7DC00F8E7DC00F8E7DC00F8E7DC00F8E7DC00F8E7DC00F8E7 + DC00F8E7DC000000000093939300000000000000000000000000000000000000 + 000000000000000000000000000065C6F3000000000000000000000000000000 + 0000FF5B5B00FFCCE500E672A5000000000012658D0012658D0012658D001265 + 8D0012658D0012658D0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000012658D0012658D0012658D001265 + 8D0012658D0012658D0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006A514A006A514A006A51 + 4A006A514A006A514A006A514A006A514A006A514A006A514A006A514A006A51 + 4A006A514A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF5B5B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000777777000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009E9E9E009B9B9B00979797009393 + 93008E8E8E008A8A8A0086868600828282007E7E7E007A7A7A00767676007272 + 72006E6E6E006969690065656500616161000000000000000000777777007777 + 7700777777007777770077777700777777007777770077777700777777007777 + 7700777777007777770000000000000000000000000000000000777777003399 + CC00CCFFFF00C2F9FC00B4EFF700A5E5F20094D9EC0084CFE70075C5E20065BB + DD0054B0D60047A6D30000000000777777000000000000000000777777007777 + 7700777777007777770077777700777777007777770077777700777777007777 + 7700777777007777770000000000000000009D9D9D00CAC9CA00EFEEEF00EFEE + EF00EFEEEF00EDECED00C1BCBF00A7A3A600BBB9BB00D5D2D200E7E7E700EFEE + EF00EFEEEF00EFEEEF00E2E1E200979797000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007777770000000000000000000000000000000000000000003399 + CC00CCFFFF00C2F9FC00B5F0F700A4E4F10094DAEC0084CFE70075C5E20064BA + DC0054B0D70047A6D20000000000777777000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007777770000000000000000009C9C9C00B3B2B300E7E7E700C4C2 + C400C9C9C900A9A6A8007B747A00B4B2B400CECECF00D8D8D800D8D8D800D0D0 + D000BCBABC00D0D0D000F1F1F10093939300000000003399CC00CCFFFF00C2F9 + FC00B4EFF700A5E5F20094D9EC0084CFE70075C5E20065BBDD0054B0D60047A6 + D30000000000777777000000000000000000000000003399CC00CCFFFF003399 + CC00CCFFFF00C2F8FC00B5EFF700A5E4F10094DAEC0085D0E70075C6E20064BA + DC0055AFD70047A7D2000000000077777700000000003399CC00CCFFFF00C2F9 + FC00B4EFF700A5E5F20094D9EC0084CFE70075C5E20065BBDD0054B0D60047A6 + D300000000007777770000000000000000009B9B9B00D6D6D600E3E2E300E4E3 + E400BAB8BA00BBBBBB003A363C0073678100B9B5CA00D5D5D500EAEAEA00D6D6 + D600DCDCDC00F6F6F600F1F1F1008E8E8E00000000003399CC00CCFFFF00C2F9 + FC00B5F0F700A4E4F10094DAEC0084CFE70075C5E20064BADC0054B0D70047A6 + D20000000000777777000000000000000000000000003399CC00CCFFFF003399 + CC00CCFFFF00C3F9FC00B5EFF700A4E5F20094DAEC0084D0E70075C5E20064BA + DC0055B0D60047A7D2000000000077777700000000003399CC00CCFFFF00C2F9 + FC00B5F0F700A4E4F10094DAEC0084CFE70075C5E20064BADC0054B0D70047A6 + D200000000007777770000000000000000009A9A9A00B3B2B300A09DA000BAB9 + BA009B999B00B3B2B30089849B005B4D9100544B7E009693B200DEDCEE00FDFD + FE00FCFCFC00FEFEFE00F1F1F1008A8A8A00000000003399CC00CCFFFF00C2F8 + FC00B5EFF700A5E4F10094DAEC0085D0E70075C6E20064BADC0055AFD70047A7 + D20000000000777777000000000000000000000000003399CC00CCFFFF003399 + CC00CCFFFF00C2F9FC00B5EFF700A5E4F20094DAEC0084CFE70076C5E20065BA + DC0055B0D70047A6D2000000000077777700000000003399CC00CCFFFF00C2F8 + FC00B5EFF7008080800080808000808080007E7E7E008F8F8F0055AFD70047A7 + D2000000000077777700000000000000000099999900D6D6D600E5E5E500D7D7 + D700C9C9C900D6D6D600D3CFDB00A0A0E6007571B9004237620053497C00A6A0 + C000E0E0E300F6F6F600F1F1F10086868600000000003399CC00CCFFFF00C3F9 + FC00B5EFF700A4E5F20094DAEC0084D0E70075C5E20064BADC0055B0D60047A7 + D20000000000777777000000000000000000000000003399CC00CCFFFF003399 + CC00CCFFFF00C3F9FC00B4EFF700A4E5F20094DAEC0085CFE70075C6E20065BB + DC0054AFD70047A6D2000000000077777700000000003399CC00CCFFFF00C3F9 + FC00808080008080800094DAEC0084D0E7007E7E7E008F8F8F0055B0D60047A7 + D2000000000077777700000000000000000098989800B3B2B300CFCFCF00B4B1 + B4009B9B9B00A7A6A700A6A4A700B5B5DF009DA0F0007470BF00383162002724 + 48008A88AB00FAFBFC00F1F0F10082828200000000003399CC00CCFFFF00C2F9 + FC00B5EFF700A5E4F20094DAEC0084CFE70076C5E20065BADC0055B0D70047A6 + D20000000000777777000000000000000000000000003399CC00CCFFFF003399 + CC00CCFFFF00C2F9FB00B4EFF700A5E5F20094D9EC0084CFE70075C5E20065BA + DC0054B0D60047A6D3000000000077777700000000003399CC00CCFFFF00C2F9 + FC00808080008080800094DAEC0084CFE700808080008F8F8F0055B0D70047A6 + D2000000000077777700000000000000000096969600D6D6D600E4E4E400D2D2 + D200DBDBDB00DBDBDB00D8D8D800CBCED700AEB6F300898FE0004F5EAB00272B + 5800242044008083A400E9E8E9007E7E7E00000000003399CC00CCFFFF00C3F9 + FC00B4EFF700A4E5F20094DAEC0085CFE70075C6E20065BBDC0054AFD70047A6 + D20000000000777777000000000000000000000000003399CC00CCFFFF003399 + CC00CCFFFF00C2F9FC00B5F0F700A4E4F10094DAEC0085D0E70075C5E10064BA + DD0055B0D70047A7D2000000000077777700000000003399CC00CCFFFF00C3F9 + FC00B4EFF700808080008080800080808000808080008F8F8F0054AFD70047A6 + D2000000000077777700000000000000000095959500B3B2B30093929300918D + 9100908B9000B6B6B6009E9E9E00BCB8BC00AAABCB006293EC00385CB2002E4B + 980025245800231D42006A81B3007A7A7A00000000003399CC00CCFFFF00C2F9 + FB00B4EFF700A5E5F20094D9EC0084CFE70075C5E20065BADC0054B0D60047A6 + D30000000000777777000000000000000000000000003399CC00CCFFFF003399 + CC00CCFFFF00C2F8FC00B5EFF700A4E5F10094DAEC0085D0E70075C6E20064BA + DC0055AFD70046A7D2000000000077777700000000003399CC00CCFFFF00C2F9 + FB00B4EFF700A5E5F20094D9EC0084CFE700808080008F8F8F0054B0D60047A6 + D3000000000077777700000000000000000094949400D6D6D600DEDEDE00DADA + DA00E1E0E100D7D7D700D0D0D000D3D2D300E4E4E500B0C2E200538DE900385C + B2002F4B9600272858001619320076767600000000003399CC00CCFFFF00C2F9 + FC00B5F0F700A4E4F10094DAEC0085D0E70075C5E10064BADD0055B0D70047A7 + D20000000000777777000000000000000000000000003399CC00CCFFFF003399 + CC00CCFFFF00C2F9FC00B4EFF700A5E5F20094D9EC0084D0E70075C5E1000000 + 000000000000000000000000000077777700000000003399CC00CCFFFF00C2F9 + FC00B5F0F7008080800080808000808080007E7E7E0064BADD0055B0D70047A7 + D2000000000077777700000000000000000093939300B3B2B300C4C2C400908D + 900088858800858085009D9C9D00A6A4A6009E9C9E009B979D009AA7D0005288 + E900375CB2002D4A95001619320072727200000000003399CC00CCFFFF00C2F8 + FC00B5EFF700A4E5F10094DAEC0085D0E70075C6E20064BADC0055AFD70046A7 + D20000000000777777000000000000000000000000003399CC00CCFFFF003399 + CC00CCFFFF00C2F9FC00B5EFF700A4E5F20094D9EC0085CFE70075C5E200005F + 8F0050ACD500000000007777770000000000000000003399CC00CCFFFF00C2F8 + FC00B5EFF700A4E5F10094DAEC0085D0E70075C6E20064BADC0055AFD70046A7 + D2000000000077777700000000000000000092929200D6D6D600E6E6E600CACA + CA00C6C4C600BEBDBE00C1C0C100C8C7C800C8C6C800B8B7B800CDCBCF00A5B8 + E0004F87E800385AAF003657AB006E6E6E00000000003399CC00CCFFFF00C2F9 + FC00B4EFF700A5E5F20094D9EC0084D0E70075C5E10000000000000000000000 + 000000000000777777000000000000000000000000003399CC00CCFFFF003399 + CC00CCFFFF00C2F9FB00B4EFF700A5E5F20094DAED0084CFE70075C5E200005F + 8F0000000000777777000000000000000000000000003399CC00CCFFFF00C2F9 + FC00B4EFF700A5E5F20094D9EC0084D0E70075C5E10000000000000000000000 + 00000000000077777700000000000000000091919100B3B2B300B8B7B8009C98 + 9C00C3C2C300C6C5C600A29FA200A7A6A7009C999C00C9C9C900DBDADB00E1E1 + E30091A7D0004E80E4003657AB0069696900000000003399CC00CCFFFF00C2F9 + FC00B5EFF700A4E5F20094D9EC0085CFE70075C5E200005F8F0050ACD5000000 + 000077777700000000000000000000000000000000003399CC00CCFFFF003399 + CC00005F8F00005F8F00005F8F00005F8F00005F8F00005F8F00005F8F00005F + 8F0077777700000000000000000000000000000000003399CC00CCFFFF00C2F9 + FC00B5EFF700A4E5F20094D9EC0085CFE70075C5E200005F8F0050ACD5000000 + 00007777770000000000000000000000000090909000D6D6D600D1D0D100CFCC + CF00E0DEE000DDDCDD00C8C6C800D7D6D700D0CED000D2D2D200CAC8CA00D6D4 + D600CFCDD100A7BEE9003657AB0065656500000000003399CC00CCFFFF00C2F9 + FB00B4EFF700A5E5F20094DAED0084CFE70075C5E200005F8F00000000007777 + 770000000000000000000000000000000000000000003399CC00CCFFFF00C2F9 + FB00B4EFF700A5E5F20094DAED0084CFE70075C5E200005F8F00000000007777 + 770000000000000000000000000000000000000000003399CC00CCFFFF00C2F9 + FB00B4EFF700A5E5F20094DAED0084CFE70075C5E200005F8F00000000007777 + 7700000000000000000000000000000000008F8F8F00FCFCFC00F4F4F400F4F4 + F400F4F4F400F4F4F400F4F4F400F4F4F400F4F4F400F4F4F400F4F4F400F4F4 + F400F4F4F400F1F1F300FDFDFE0061616100000000003399CC00005F8F00005F + 8F00005F8F00005F8F00005F8F00005F8F00005F8F00005F8F00777777000000 + 000000000000000000000000000000000000000000003399CC00005F8F00005F + 8F00005F8F00005F8F00005F8F00005F8F00005F8F00005F8F00777777000000 + 000000000000000000000000000000000000000000003399CC00005F8F00005F + 8F00005F8F00005F8F00005F8F00005F8F00005F8F00005F8F00777777000000 + 0000000000000000000000000000000000009F9F9F009E9E9E009D9D9D009C9C + 9C009B9B9B009A9A9A0099999900989898009696960095959500949494009393 + 93009292920091919100909090008F8F8F0000000000333333005C5C95005C5C + 95005C5C95005C5C95005C5C95005C5C95005C5C95005C5C95005C5C95005C5C + 95005C5C95005C5C950033333300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000033333300333333003333 + 3300333333003333330033333300333333003333330033333300333333003333 + 3300333333003333330033333300333333000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000001384 + BB0029B8FF0029B8FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006769B400333333004C4C710095BA + C10095BAC10099BBC2009DBDC400A1BFC500A7C1C500E1F5F900E5F6FA00E9F9 + FC00EEFAFD00F2FDFE0033333300333333000000000000000000626162006261 + 6200626162006261620062616200626162006261620062616200626162006261 + 62000000000000007B0000004200000000009C63630000000000000000006814 + 1400681414006814140068141400000000006814140068141400681414000000 + 0000681414006814140068141400000000000000000000000000000000001384 + BB00D8FBFB0029B8FF0000000000000000006814140068141400681414000000 + 0000000000000000000000000000000000006769B4005C5C95008592E5004C4C + 710095BAC10099BBC2009DBDC400A1BFC50009491E00E1F5F90009491E00E9F9 + FC00EEFAFD00F1FCFE0033333300333333000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000007B0000007B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000001384 + BB00D8FBFB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006769B400333333008592E5007173 + D1003333330099BBC2009DBDC40009491E0009491E0009491E0009491E000949 + 1E00EEFAFD00F1FDFE00333333003333330000000000000000000808FF000000 + 000044B8E9003CB5E7008000000027A4D9000000000000000000000000000000 + 7B0000007B000000000000000000000000009C63630000000000000000006814 + 1400681414006814140068141400000000006814140068141400681414000000 + 0000681414006814140068141400000000000000000000000000000000001384 + BB001384BB001384BB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006769B400333333008592E5007172 + D1003333330099BBC20009491E00A1BFC50009491E00E1F5F90009491E00E9F9 + FC0009491E00F2FDFE0033333300333333000000000000000000000000000000 + 0000000000000000000000000000373737009C9C39009C9C39009C9C39000000 + 000000007B006261620000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006769B4005C5C95008592E5007172 + D1003333330099BBC20009491E00E0F5F90009491E00E1F5F90009491E00E9F9 + FC0009491E00F2FCFE0033333300333333000000000000000000E4E4E4000000 + 0000FFA83700FF9E340059595900DEDE7B00BDBD0000BDBD0000BDBD00009C9C + 3900000000006261620000000000000000009C63630000000000000000006814 + 1400681414006814140068141400000000006814140068141400681414000000 + 0000681414006814140068141400000000000000000000000000000000000000 + 0000000000000000000000000000000000001384BB0029B8FF0029B8FF000000 + 0000000000000000000000000000000000006769B400333333008592E5007173 + D1003333330099BBC2009DBDC400E0F5F90009491E00E1F5F90009491E000949 + 1E00EEFAFD00F1FCFE0033333300333333000000000000000000E7E8E7000000 + 0000FFB13B00FFA7370059595900DEDE3900BDBD0000BDBD0000BDBD0000BDBD + 0000000000006261620000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001384BB00D8FBFB0029B8FF000000 + 0000000000006814140068141400681414006769B400333333008592E5007173 + D1003333330099BBC200E0F5F900E0F5F90009491E0009491E0009491E00E9F9 + FC00EEFBFD00F2FDFE0033333300333333000000000000000000000000000000 + 0000800000008000000059595900BDBD3900FFFFBD00FFFFBD00DEDE7B009C9C + 3900000000006261620000000000000000009C63630000000000000000006814 + 1400681414006814140068141400000000006814140068141400681414000000 + 0000681414006814140068141400000000000000000000000000000000000000 + 0000000000000000000000000000000000001384BB00D8FBFB00000000000000 + 0000000000000000000000000000000000006769B4005C5C95008592E5007173 + D1003333330099BBC200E0F5F90009491E0009491E00E0F5F90009491E00E9F9 + FC00EDFBFD00F1FDFE0033333300333333000000000000000000F5F6F5000000 + 0000FFD14500FFCC44008000000059595900BDBD0000BDBD00009C9C21003737 + 3700000000006261620000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001384BB001384BB001384BB000000 + 0000000000000000000000000000000000006769B400333333008592E5007173 + D10033333300A1BFC50009491E00A1BFC50009491E00A1BFC50009491E00A1BF + C500A1BFC500A1BFC50033333300000000000000000000000000F5F6F5000000 + 0000FFD14500FFD1450080000000FFB33C00595959005959590059595900FF73 + 2600000000006261620000000000000000009C63630000000000000000006814 + 1400681414006814140068141400000000006814140068141400681414000000 + 0000681414006814140068141400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000333333008592E5007173 + D100333333000000000009491E000000000009491E000000000009491E000000 + 000009491E000000000000000000000000000000000000000000F5F6F5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006261620000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000001384BB0029B8FF0029B8 + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000005C5C95007173 + D10033333300000000000000000009491E0009491E0009491E0009491E000949 + 1E00000000000000000000000000000000000000000000000000F5F6F5000000 + 0000F5F6F500F5F6F500EBECEB00E8E9E80000000000D9D8D900D4D5D400D0D0 + D000000000006261620000000000000000009C6363009C6363009C6363009C63 + 63009C6363009C6363009C6363009C6363009C6363009C6363009C6363009C63 + 63009C6363009C6363009C6363009C636300000000001384BB00D8FBFB0029B8 + FF00000000000000000068141400681414006814140000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000005C5C + 95003333330000000000000000000000000009491E000000000009491E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000001384BB00D8FBFB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000333333000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002828 + AD002828AD002828AD002828AD00000000002828AD002828AD002828AD000000 + 00002828AD002828AD002828AD0000000000000000001384BB001384BB001384 + BB00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009C63630000000000000000000000 + 0000000000000000000000000000000000000000000000000000C78E8E00D5AA + AA00D5AAAA00D5AAAA00D5AAAA00D5AAAA00D5AAAA00D5AAAA00D5AAAA00D5AA + AA00D5AAAA00D5AAAA00AA808000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFCC009C636300000000000000 + 0000000000000000000000000000000000000000000000000000D5AAAA00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFD00FDFDFD00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00AA808000000000000000000000000000B7B7B7009F9F + 9F009F9F9F00B7B7B7000000000000000000C7C7C700D7D7D700000000000000 + 00000000000000000000000000000000000000000000000000007D7D7D007D7D + 7D007D7D7D007D7D7D007D7D7D007D7D7D007D7D7D007D7D7D007D7D7D007D7D + 7D007D7D7D007D7D7D007D7D7D007D7D7D000000000000000000000000000000 + 0000000000000000000000000000CE9C9C00FFFF9900FFFFCC009C6363000000 + 0000000000000000000000000000000000000000000000000000D5AAAA00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00E3E8F900617AE200A4B2ED00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00AA80800000000000000000009C636300000000000000 + 0000000000009F9F9F000000000000000000A7A7A700A7A7A700D7D7D7000000 + 0000000000000000000000000000000000005656560056565600565656005656 + 5600565656005656560056565600565656005656560056565600565656005656 + 56005656560056565600565656007D7D7D000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFFF9900FFFFCC009C63 + 6300000000000000000000000000000000000000000000000000D5AAAA00FFFF + FF00FFFFFF00FFFFFF00F2F4FD008498E9004564E100526EE100E9ECFA00FFFF + FF00FFFFFF00FFFFFF00AA80800000000000000000009C636300FFFF9900FFCC + 9900000000009F9F9F00000000009C6363000000000087878700A7A7A700D7D7 + D7000000000000000000000000000000000056565600F7EA9D00F6E79C00F4E3 + 9A00BA7C7C00F1D9970012126D0012128700EAC99900E8C59000E7BF8E00BA7C + 7C00E4B68A00E3B38A00565656007D7D7D000000000000000000000000000000 + 000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFCC9900FFFF9900FFFF + CC009C6363000000000000000000000000000000000000000000D5AAAA00FFFF + FF00FFFFFF00FFFFFF00ADBBF1004E6CE2004564E1004564E1005974DF00E3E8 + F900FEFEFE00FFFFFF00AA80800000000000000000009C636300FFFF9900FFCC + 9900000000009F9F9F00000000009C6363009C6363000000000087878700A7A7 + A700D7D7D70000000000000000000000000056565600F7EA9D00F6E79C00F4E3 + 9A00BA7C7C0012126D0012126D001212C90015148B00E8C59000E7BF8E00BA7C + 7C00E4B68A00E3B38A00565656007D7D7D000000000000000000000000000000 + 0000CE9C9C00FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFFF + 9900FFFFCC009C63630000000000000000000000000000000000D5AAAA00FFFF + FF00FEFEFE00E5E9FB005773E4004564E1004564E1004564E1004766E10098A9 + EC00FDFEFE00FEFEFE00AA80800000000000000000009C636300FFFF9900FFCC + 9900000000009F9F9F00000000009C636300FFFFCC009C636300000000008787 + 8700A7A7A700D7D7D700000000000000000056565600F7EA9D00F6E79C001212 + 6D0012126D0012126D001212C9002E12A6003636C1001C1D9800E7BF8E00BA7C + 7C00E4B68A00E3B38A00565656007D7D7D000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFFF99000000 + 0000000000000000000000000000000000000000000000000000D5AAAA00FFFF + FF00FEFEFF00ACB9F1008297EB005975E4004564E1004564E1008196EA008095 + EA00FBFBFD00FFFFFF00AA80800000000000000000009C636300FFFF9900FFCC + 9900000000009F9F9F00000000009C636300FFFFCC00FFCC99009C6363000000 + 000087878700A7A7A700D7D7D7000000000056565600F7EA9D00F6E69C00F4E3 + 9A001212C9001212C9002E12A600BA7C7C007272DE003D3DCA002828A800BA7C + 7C00E3B68B00E3B38A00565656007D7D7D000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFFF99009C63 + 6300000000000000000000000000000000000000000000000000D5AAAA00FFFF + FF00FEFEFE00FEFEFE00FEFEFF008297EB004564E1004564E100FDFDFE00FCFD + FE00FEFEFE00FEFEFE00AA80800000000000000000009C636300FFFF9900FFCC + 9900000000009F9F9F00000000009C636300FFFFCC00FFCC9900FFCC99009C63 + 6300000000008F8F8F00BFBFBF000000000056565600F7EA9D00F6E79C00F4E3 + 9A00BA7C7C002E12A600EED39500BA7C7C00EAC99A008888DD004343D4003132 + B800E3B68A00E3B38A00565656007D7D7D000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFFF99009C63 + 6300000000000000000000000000000000000000000000000000D5B1AA00FFFF + FF00FFFFFF00FFFFFF00FEFEFF008297EB004564E1004564E100FDFDFF00FDFD + FD00FFFFFF00FFFFFF00AA80800000000000000000009C636300FFFF9900FFCC + 9900000000009F9F9F00000000009C636300FFFFCC00FFCC9900FFCC9900FFFF + 99009C63630000000000D7D7D7000000000056565600F7EA9D00F6E79C00F4E3 + 9A00BA7C7C00F0D99700EED39500BA7C7C00EBC99900E9C59000A8A8DB004B4B + DF003B3CC900E3B38A00565656007D7D7D000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFFF99009C63 + 6300000000000000000000000000000000000000000000000000D5BFAA00FFFF + FF00FFFFFF00FFFFFF00FEFEFF008297EB004564E1004564E100FDFDFF00FEFD + FD00FFFFFF00FFFFFF00AA80800000000000000000009C636300FFFF9900FFCC + 9900000000009F9F9F00000000009C636300FFFFCC00FFCC9900FFFF9900FFCC + 990000000000D7D7D700000000000000000056565600F7EA9D00F6E79C00F4E3 + 9A00BA7C7C00F0D99700EED39500BA7C7C00EBC99900E9C59000E7BF8E00BA7C + 7C005151EB00E3B38A00565656007D7D7D000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFFF99009C63 + 6300000000000000000000000000000000000000000000000000D5BFBF00FFFF + FF00FFFFFF00FFFFFF00FEFEFF009BABEA006A81E0007D91E400FDFEFF00FEFE + FF00FFFFFF00FFFFFF008E80800000000000000000009C636300FFFF9900FFCC + 9900000000009F9F9F00000000009C636300FFFFCC00FFFF9900FFCC99000000 + 0000D7D7D7000000000000000000000000005656560056565600565656005656 + 5600565656005656560056565600565656005656560056565600565656005656 + 56005656560056565600565656007D7D7D000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFFF99009C63 + 6300000000000000000000000000000000000000000000000000D5BFBF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FEFEFF00FEFEFE00FEFEFF00F1E2E200D5AA + AA00D5AAAA00D5AAAA00AA80800000000000000000009C636300FFFF9900FFCC + 9900000000009F9F9F00000000009C636300FFFFCC00FFCC990000000000D7D7 + D70000000000000000000000000000000000565656007ED0EE0079CCEE0072C9 + EE002323230064C1EE005DBCEE002323230054B6F0004BB0EE0044ABEE002323 + 23003BA5EE0038A2EE00565656007D7D7D000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFFF99009C63 + 6300000000000000000000000000000000000000000000000000D5BFBF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EAD4D400CAAC + 8800C0AA6000C09C58009C80800000000000000000009C636300FFFF9900FFCC + 9900000000009F9F9F00000000009C636300FFCC990000000000D7D7D7000000 + 000000000000000000000000000000000000565656007ED0EE0079CCEE0072C9 + EE002323230064C1EE005DBCEE002323230054B6F0004BB0EE0044ABEE002323 + 23003BA5EE0038A2EE00565656007D7D7D000000000000000000000000000000 + 00000000000000000000CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C009C63 + 6300000000000000000000000000000000000000000000000000D5BFBF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EAD4D400E0B1 + 9900C0B16600A3877C000000000000000000000000009C636300FFFF9900FFCC + 990000000000B7B7B700000000009C63630000000000D7D7D700000000000000 + 000000000000000000000000000000000000565656007ED0EE0079CEEE0072C9 + EE002323230064BFEE005DBCEE002323230054B6F0004BB0EE0044ADEE002323 + 23003BA4EE0038A2EE00565656007D7D7D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D3B9AE00FAED + E100FAEDE100FAEDE100FAEDE100FAEDE100F4ECE400EAEAEA00DCBFBF00D5A0 + 90009C808000000000000000000000000000000000009C6363009C6363009C63 + 63009C63630000000000000000009C6363000000000000000000000000000000 + 0000000000000000000000000000000000005656560056565600565656005656 + 5600565656005656560056565600565656005656560056565600565656005656 + 5600565656005656560056565600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009A8F8400A598 + 8C00A5988C00A5988C00A5988C00A5988C00A0978F0095959500958787009580 + 8000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000212121004A4A4A004A4A4A004A4A4A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001818180063636300636363006363 + 63003131310031313100313131004A4A4A004A4A4A004A4A4A006B6B6B006B6B + 6B004A4A4A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000062626200626262006262 + 6200000000000000000000000000929292009292920092929200929292000000 + 000000000000000000000000000000000000000000000000000006638A000663 + 8A0006638A0006638A0006638A0006638A0006638A0006638A0006638A000663 + 8A0006638A0006638A00000000000000000052525200ADADAD009C9C9C008C8C + 8C00848484007373730063636300636363006363630073737300848484006B6B + 6B0094949400949494004A4A4A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009E9E9E0092929200868686006262 + 6200626262006262620062626200626262006262620062626200000000009292 + 920092929200929292000000000000000000000000000000000006638A00D1F6 + FF004ABEEB0044B9E9003CB4E70034B0E6002DABE40026A7E3001FA2E1001A9F + E1002E90B90006638A00000000000000000000000000AD9C7B009C8C0000A594 + 5200AD9C5A00ADADAD00B5B5B500A5A5A500B5B5B500D6D6D6009C8429005242 + 21009494940094949400949494004A4A4A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000440700001B1B0000AAAA + AA00B6B6B600B6B6B600AAAAAA009292920086868600CECECE001B0000009292 + 9200929292009292920092929200929292000000000006638A00D1F6FF0055C5 + EE004FC1EB0048BCEB0040B7E80039B2E70031AEE5002AA9E40023A5E2001DA1 + E1002E90B9000000000006638A0000000000000000005A5A5A00DEB52900FFCE + 7300D6BD4200D6A52900A5940000A5945200B5A56300CE9C4A00C6942100BD9C + 6B004A4A4A004A4A4A004A4A4A004A4A4A000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009C6363000000 + 00000000000000000000000000000000000000000000B6B6B600CB300000CB30 + 00001B1B00001B1B00001B1B0000AAAAAA00CECECE001B000000440700000000 + 0000000000000000000000000000000000000000000006638A00D1F6FF005AC8 + EE0053C4EC004CBFEB0045BBEA003EB6E80036B0E7002FACE50028A7E30021A3 + E20006638A000000000006638A00000000000000000000000000A59C7B00FFDE + 7B00FFC66300FFC66300FFD68400FFCE7300D6BD4200FFD69400FFDEAD00FFD6 + 8C00393121000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFCC99009C63 + 63000000000000000000000000000000000000000000000000001B000000CB72 + 1400CB721400CB721400CB721400CB3000001B1B0000CB590000CB721400CB72 + 14000000000000000000000000000000000006638A00D1F6FF0066CFF1005FCB + EF0057C7EE0051C2EC004ABDEA0042B9E9003BB4E70034B0E6002CAAE5002E90 + B900000000002E90B9002E90B9000000000000000000000000005A5A5A00CEB5 + 5A00FFCE7300FFEFC600FFD69400FFCE7B00FFC66B00FFD69400FFEFCE00FFD6 + 8400BD9C6B00000000000000000000000000000000009C636300CE9C9C00CE9C + 9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00FFCC9900FFCC + 99009C6363000000000000000000000000000000000000000000B6B6B600CB72 + 1400CB721400CB721400CB721400CB721400CB721400CBAB7200CB721400CB72 + 14000000000000000000000000000000000006638A00D1F6FF006BD3F20063CE + F0005CCAEE0055C5ED004FC1EB0047BCEA0040B7E80038B2E60031AEE5002E90 + B900000000002E90B9002E90B90000000000000000000000000000000000A59C + 7B00FFE78400FFD68C00FFF7D600FFF7D600FFF7D600FFF7D600FFF7EF00FFD6 + 8400FFCE7300393121000000000000000000000000009C636300FFFFCC00FFCC + 9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC + 9900FFCC99009C63630000000000000000000000000000000000000000001B00 + 0000CB721400CB721400CB721400CB721400CB721400CB721400CBAB7200CB72 + 1400CB72140000000000000000000000000006638A0006638A0006638A000663 + 8A0006638A0006638A0006638A0006638A0006638A0006638A0006638A000663 + 8A002E90B9005CC9EE002E90B900000000000000000000000000000000005A5A + 5A00CEAD5200FFE79C00FFF7CE00FFF7D600FFF7D600FFF7D600FFF7D600FFF7 + DE00FFC66B00BDAD73000000000000000000000000009C636300FFFFCC00FFCC + 9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC + 9900FFCC9900FFFF99009C63630000000000000000000000000000000000B6B6 + B600CBCB3900CB721400CB721400CB721400CB721400CB721400CBCBCB00CB72 + 1400CB7214000000000000000000000000000000000006638A00D1F6FF0091EC + FA008DE9F9008AE7F80086E4F80080E1F7007CDDF50076DAF30070D7F3006BD3 + F10065CFF1005FCBEF002E90B900000000000000000000000000000000000000 + 00005A5A5A00AD9C8400D6BD8C00E7C66B00FFF7CE00FFF7CE00FFEFCE00FFF7 + EF00FFE7AD00E7D694002929290000000000000000009C636300FFFFCC00FFCC + 9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC + 9900FFFF9900FFCC990000000000000000000000000000000000000000000000 + 0000B6B6B6001B000000CBCB7200CBCB7200CB721400CB721400CB8E3900CBAB + 7200CB721400CBCB720000000000000000000000000006638A00D1F6FF0093ED + FA0090EBF9008CE9F90088E6F80084E3F7007FE0F6007ADCF500D1F6FF00D1F6 + FF00D1F6FF00D1F6FF002E90B900000000000000000000000000000000000000 + 00000000000000000000292929005A5A5A00AD9C8400D6BD8C00E7C66B00FFF7 + D600E7D69400C6BDA5002929290000000000000000009C636300FFFFCC00FFFF + CC00FFFFCC00FFFFCC00FFFFCC00FFFFCC00FFFFCC00FFFFCC00FFCC9900FFFF + 9900FFCC99000000000000000000000000000000000000000000000000000000 + 00000000000000000000B6B6B600B6B6B6001B000000CBCB7200CBCB7200CBCB + CB00CBCB7200CECECE0000000000000000000000000006638A00D1F6FF0093ED + FA0092ECFA008FEBF9008BE8F80087E5F700D1F6FF0006638A0006638A000663 + 8A0006638A0006638A0006638A00000000000000000000000000000000000000 + 0000000000000000000000000000DEDEDE00737373006363630063636300B5AD + 9400E7D6BD00393939000000000000000000000000009C6363009C6363009C63 + 63009C6363009C6363009C6363009C6363009C6363009C636300FFFF9900FFCC + 9900000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000B6B6B600CECECE001B00 + 0000FFFFFF00000000000000000000000000000000000000000006638A00D1F6 + FF00D1F6FF00D1F6FF00D1F6FF00D1F6FF0006638A0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000073737300EFEFEF00F7F7F700F7F7F7007B7B + 7B007B7B7B00E7E7E70000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009C636300FFCC99000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000663 + 8A0006638A0006638A0006638A0006638A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007B7B7B00BDBDBD00FFFF + FF00FFFFFF00FFFFFF0063636300000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009C636300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007B7B7B00BDBDBD00E7E7E700000000000000000000000000000000000000 + 000000000000000000000000000000000000000000009C636300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CCFFFF003399CC00000000000000 + 0000000000000000000000000000000000000000000000000000663333000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CCFFFF003399CC003399CC003399 + CC0000000000000000000000000000000000000000000000000066333300CCFF + FF00257AA500257AA500257AA500257AA500257AA500257AA500257AA500257A + A500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002A2A2A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000663333000000000000000000CCFFFF003399CC003399CC003399 + CC003399CC003399CC000000000000000000000000000000000066333300CCFF + FF0057A3C90057A3C90057A3C90057A3C90057A3C90057A3C90057A3C900257A + A500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002A2A2A002A2A2A004D4D4D000000000000000000116D9400116D9400116D + 9400116D9400116D9400116D9400116D9400116D9400116D9400116D9400116D + 9400116D9400116D940008080800000000000000000000000000000000000000 + 000000000000663333007574740000000000CCFFFF003399CC003399CC003399 + CC003399CC003399CC003399CC0000000000000000000000000066333300CCFF + FF0057A3C90057A3C900141479001414930057A3C90057A3C90057A3C900257A + A500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002A2A + 2A002A2A2A004D4D4D00000000000000000000000000D1F6FF0063CEF0005DC9 + EE0056C5ED0050C1EC0049BEEA0043B9E9003CB4E80034B0E6002EACE50028A8 + E40021A4E2002E90B90008080800000000000000000000000000000000000000 + 000000000000663333007475750000000000CCFFFF003399CC003399CC003399 + CC003399CC003399CC003399CC0000000000000000000000000066333300CCFF + FF0057A3C90014147900141479001414D1001817970057A3C90057A3C900257A + A50000000000000000000000000000000000000000000000000000000000A3A3 + A300646464001010100010101000646464000000000010A9FF002A2A2A002A2A + 2A004D4D4D0000000000000000000000000000000000D1F6FF0068D1F10061CC + EF005BC9EE0054C4ED004EC0EB0048BBEA0041B7E9003AB3E70032AEE5002CAA + E50025A6E3002E90B90008080800000000000000000000000000000000000000 + 000000000000663333007474750000000000CCFFFF003399CC00000000000000 + 00003399CC003399CC003399CC00000000000000000000000000663333001414 + 790014147900141479001414D1003414B1003D3DCA002021A40057A3C900257A + A500000000000000000000000000000000000000000000000000646464000000 + 000030303000D2AF9A00D2AF9A0030303000000000000000000010A9FF004D4D + 4D000000000000000000000000000000000000000000D1F6FF006DD4F20066D0 + F1005FCCEF0059C7EE0052C3EC004CBFEB0045BBEA003EB6E80038B1E70030AD + E50029A9E3002E90B90008080800000000000000000000000000FFCC99000000 + 000000000000000000000000000000000000CCFFFF003399CC00C0C0C000C0C0 + C0003399CC003399CC003399CC0000000000000000000000000066333300CCFF + FF001414D1001414D1003414B10057A3C9007E7EE3004545D2002D2DB300257A + A5000000000000000000000000000000000000000000A3A3A30000000000D2AF + 9A00FEE3C400FFE3C700FED7B500FECFA800D2AF9A0000000000000000000000 + 00000000000000000000000000000000000000000000D1F6FF0071D8F3006BD3 + F10064CEF0005DCAEE0056C6ED0050C1EC004ABDEB0043BAE9003CB4E80035B0 + E6002EACE5002E90B900080808000000000066333300FFCC9900FFFFCC00FFFF + CC00FFFFCC00FFFFCC00FFFFCC0000000000CCFFFF003399CC003399CC003399 + CC003399CC003399CC003399CC0000000000000000000000000066333300CCFF + FF0057A3C9003414B10057A3C90057A3C90057A3C9009494E2004C4CDB003839 + C20000000000000000000000000000000000000000006464640030303000FFE8 + CD00FFEBD300FFEDD500FEE1C200FED7B500FECDA70030303000646464000000 + 00000000000000000000000000000000000000000000D1F6FF0077DBF3006FD6 + F30069D1F10062CDF0005BC9EF0054C5EC004EC1EC0048BCEA0041B8E9003AB3 + E80033AFE6002E90B900080808000000000066333300FFFFCC00FFFFCC00FFFF + CC00FFFFCC00FFFFCC00FFFFCC0000000000CCFFFF003399CC003399CC003399 + CC003399CC003399CC003399CC0000000000000000000000000066333300CCFF + FF0057A3C900747474002828280057A3C90057A3C90057A3C900B3B3E1005454 + E4004344D1000000000000000000000000000000000010101000E8C7B100FFEE + D900FFF2E300FFF6E600FFEDD700FEDDBF00FED3AE00D2AF9A00101010000000 + 00000000000000000000000000000000000000000000D1F6FF007BDEF50075D9 + F3006DD4F20067D0F0005FCBEF0059C7ED0052C3ED004CBFEB0045BBEA003EB7 + E90037B2E7002E90B90008080800000000000000000066333300FFFFCC000000 + 000066333300663333006633330000000000CCFFFF003399CC003399CC003399 + CC003399CC003399CC003399CC0000000000000000000000000066333300CCFF + FF0057A3C900E1E1E1007474740057A3C90057A3C90057A3C90057A3C900257A + A5005B5BEE000000000000000000000000000000000010101000E8C7B100FFF2 + E300FFF8EE00FFFAF000FFF6E800FFEDD700FED5B500D2AF9A00101010000000 + 00000000000000000000000000000000000000000000D1F6FF0080E0F60079DC + F50072D8F3006BD3F10064CFF0005DCBEE0057C6ED0051C2EC004ABEEA0043BA + E9003DB5E7002E90B90008080800000000000000000000000000663333000000 + 000000000000663333007474740000000000CCFFFF003399CC003399CC003399 + CC003399CC003399CC003399CC0000000000000000000000000066333300CCFF + FF0057A3C90057A3C90057A3C90057A3C90057A3C90057A3C90057A3C900257A + A50000000000000000000000000000000000000000006464640030303000FFEF + D900FFF4E300FFF6E800FFEDD700FEDDBF00FED3AE0030303000646464000000 + 00000000000000000000000000000000000000000000D1F6FF00A0E9FA00A0E9 + FA00A0E9FA00A0E9FA00A0E9FA00A0E9FA00A0E9FA00A0E9FA00A0E9FA00A0E9 + FA00A0E9FA002E90B90008080800000000000000000000000000000000006633 + 3300000000006633330074747500000000009C636300CCFFFF0066CCFF003399 + CC003399CC003399CC003399CC0000000000000000000000000066333300CCFF + FF0057A3C90057A3C90057A3C90057A3C90057A3C90057A3C90057A3C900257A + A5000000000000000000000000000000000000000000A3A3A30000000000D2AF + 9A00FFEBD300FFEDD700FEDFC200FED7B500D2AF9A0010101000A3A3A3000000 + 0000000000000000000000000000000000000000000041A8D30041A8D30041A8 + D30041A8D30041A8D30041A8D30006638A0006638A0006638A0006638A000663 + 8A0006638A0006638A0000000000000000000000000000000000000000000000 + 0000000000006633330074757400807F7F008A8B8B00000000009C636300CCFF + FF0066CCFF003399CC003399CC0000000000000000000000000066333300CCFF + FF00CCFFFF00CCFFFF00CCFFFF00CCFFFF00CCFFFF00CCFFFF00CCFFFF00CCFF + FF00000000000000000000000000000000000000000000000000646464000000 + 000030303000E8C7B100D2AF9A00303030001010100064646400000000000000 + 00000000000000000000000000000000000000000000D1F6FF00D1F6FF00D1F6 + FF00D1F6FF00D1F6FF0008080800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006633330074757500807F7F008A8B8A00969596009F9FA0000000 + 00009C636300CCFFFF0066CCFF00000000000000000000000000663333006633 + 3300663333006633330066333300663333006633330066333300663333006633 + 330066333300000000000000000000000000000000000000000000000000A3A3 + A30064646400101010001010100064646400A3A3A30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000006633330066333300663333006633330066333300663333006633 + 3300663333006633330066333300663333000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000062616200626162006261 + 6200626162006261620062616200626162006261620062616200626162006261 + 6200626162006261620062616200626162000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006633330000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000A78B6900412C1300412C1300412C + 1300412C1300412C1300412C1300412C1300412C1300412C1300412C1300412C + 1300412C1300412C1300412C1300626162000000000062616200626162006261 + 6200626162006261620062616200626162006261620062616200626162006261 + 62006261620062616200626162006261620066333300E0FDFD00257AA500257A + A500257AA500257AA500257AA500257AA500257AA500257AA500257AA500257A + A500257AA500257AA500257AA500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000A78B6900FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00412C130062616200A78B6900412C1300412C1300412C + 1300412C1300412C1300412C1300412C1300412C1300412C1300412C1300412C + 1300412C1300412C1300412C13006261620066333300E0FDFD00DC6363007432 + 320081CCF100DC6363007432320081CCF1004848D0001B1B860081CCF100DC63 + 63007432320081CCF100257AA5000000000006063F0006063F0006063F000606 + 3F0006063F00000000000000000000000000000000000000000000000000826E + 6400A1877B00A1877B00A1877B00A1877B00A78B6900FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000 + 0000FFFFFF00FFFFFF00412C130062616200A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D20000007F00B6DDC50000007F00A8D6BA009FD0B10097CC + AA0090C8A5008CC5A100412C13006261620066333300E0FDFD00DC6363007432 + 320081CCF100DC6363007432320081CCF1004848D0001B1B860081CCF100DC63 + 63007432320081CCF100257AA50000000000000091000000D8000000D8000000 + D80006063F00000000000000000000000000000000000000000000000000826E + 6400F6DCD000F6DCD000F6DCD000A1877B00A78B6900FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00412C130062616200A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA0000007F0000007F0000007F0000007F0000007F009FD0B10097CC + AA0090C8A5008BC49F00412C13006261620066333300E0FDFD00DC6363007432 + 320081CCF100DC6363007432320081CCF1004848D0001B1B860081CCF100DC63 + 63007432320081CCF100257AA5000000000000009100000AEA00000AEA00000A + EA0006063F000000000000000000000000000A0A64000000000000000000826E + 6400EED2C500EED2C500EED2C400A1877B00A78B6900FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF00412C130062616200A78B6900DAEEE200D5ECDD00D5EC + DD0000007F00C7E6D20000007F00B6DDC50000007F00A8D6BA0000007F0097CC + AA0090C8A5008CC5A100412C13006261620066333300E0FDFD00DC6363007432 + 320081CCF100DC6363007432320081CCF1004848D0001B1B860081CCF100DC63 + 63007432320081CCF100257AA5000000000000009100073AF000073FF000073F + F00006063F002121CD000A0A64000A0A64000A0A64000A0A640000000000826E + 6400E2C4B600E2C4B500E2C4B600A1877B00A78B6900FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF00412C130062616200A78B6900DAEEE200D5ECDD00D5EC + DD0000007F00C7E6D20000007F00B6DDC50000007F00A6D5B80000007F0097CC + AA0090C8A5008BC49F00412C13006261620066333300E0FDFD00DC6363007432 + 320081CCF100DC6363007432320081CCF1004848D0001B1B860081CCF100DC63 + 63007432320081CCF100257AA50000000000000091002868F400286CF400286C + F40006063F002121CD000C0C8D000C0C8D000C0C8D000C0C8D000C0C8D00826E + 6400D4B4A500D4B4A400D4B4A500A1877B00A78B6900FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF00412C130062616200A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D20000007F00B6DDC50000007F0000007F009FD0B10099CE + AD0091C9A6008CC5A100412C13006261620066333300E0FDFD00DC6363007432 + 320081CCF100DC6363007432320081CCF1004848D0001B1B860081CCF100DC63 + 63007432320081CCF100257AA50000000000000091005297F8005294F8005294 + F80006063F002121CD002121CD002121CD002121CD000C0C8D0000000000826E + 6400C8A69500C8A69600C8A69600A1877B00A78B6900FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF00412C130062616200A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D20000007F0000007F0000007F00A6D5B8009FD0B10097CC + AA0090C8A5008BC49F00412C13006261620066333300E0FDFD00DC6363007432 + 320081CCF100DC6363007432320081CCF10081CCF10081CCF10081CCF100DC63 + 63007432320081CCF100257AA500000000000000910078B4FB0074B4FA0074B4 + FA0006063F000000000000000000000000002121CD000000000000000000826E + 6400BB968400BB968400BB968500A1877B00A78B6900FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF00412C130062616200A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA0000007F0000007F00B6DDC50000007F00A6D5B8009FD0B10097CC + AA0090C8A5008BC49F00412C13006261620066333300E0FDFD00DC6363007432 + 320081CCF100DC6363007432320081CCF10081CCF10081CCF10081CCF100DC63 + 63007432320081CCF100257AA5000000000000009100A8D5FE00A8D5FE00A8D5 + FE0006063F00000000000000000000000000000000000000000000000000826E + 6400AF887500AE887600AF887500A1877B00A78B6900FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF00412C130062616200A78B6900DAEEE200D5ECDD00D5EC + DD0000007F00C7E6D20000007F00B6DDC50000007F00A6D5B8009FD0B10097CC + AA0090C8A5008BC49F00412C13006261620066333300E0FDFD0081CCF10081CC + F10081CCF100DC6363007432320081CCF10081CCF10081CCF10081CCF100DC63 + 63007432320081CCF100257AA500000000000000910000009100000091000000 + 910006063F00000000000000000000000000000000000000000000000000826E + 6400826E6400826E6400826E6400826E6400A78B6900FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF00412C130062616200A78B6900DAEEE200D5ECDD00D5EC + DD0000007F00C7E6D20000007F00B6DDC50000007F00A6D5B80000007F0097CC + AA0090C8A5008BC49F00412C13006261620066333300E0FDFD0081CCF10081CC + F10081CCF100DC6363007432320081CCF10081CCF10081CCF10081CCF10081CC + F10081CCF10081CCF100257AA500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000A78B6900FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF00412C130062616200A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA0000007F0000007F0000007F0000007F0000007F009FD0B10097CC + AA0090C8A5008BC49F00412C13006261620066333300E0FDFD0081CCF10081CC + F10081CCF100DC6363007432320081CCF10081CCF10081CCF10081CCF10081CC + F10081CCF10081CCF100257AA500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000A78B6900FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF00412C130062616200A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D20000007F00B6DDC50000007F00A6D5B8009FD0B10097CC + AA0090C8A5008BC49F00412C13006261620066333300E0FDFD0081CCF10081CC + F10081CCF10081CCF10081CCF10081CCF10081CCF10081CCF10081CCF10081CC + F10081CCF10081CCF100257AA500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000A78B6900FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00412C130062616200A78B6900A78B6900A78B6900A78B + 6900A78B6900A78B6900A78B6900A78B6900A78B6900A78B6900A78B6900A78B + 6900A78B6900A78B6900A78B69000000000066333300E0FDFD00E0FDFD00E0FD + FD00E0FDFD00E0FDFD00E0FDFD00E0FDFD00E0FDFD00E0FDFD00E0FDFD00E0FD + FD00E0FDFD00E0FDFD00E0FDFD00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000A78B6900A78B6900A78B6900A78B + 6900A78B6900A78B6900A78B6900A78B6900A78B6900A78B6900A78B6900A78B + 6900A78B6900A78B6900A78B6900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006633330066333300663333006633 + 3300663333006633330066333300663333006633330066333300663333006633 + 3300663333006633330066333300663333000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004616 + 0A0046160A0046160A0046160A0046160A0046160A0046160A0046160A004616 + 0A0046160A00000000000000000000000000000000009C9C9C009C9C9C009C9C + 9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C9C009C9C + 9C009C9C9C009C9C9C009C9C9C00000000000000000000000000000000000000 + 0000000000000000000000000000000000001D1D1D001D1D1D001D1D1D006262 + 6200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B670 + 6000EDEDCC00F1956C00F1956900F1936800F1916600F1916600F0906500EE8D + 610046160A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000009C9C9C00000000000000000000000000000000000000 + 000000000000000000001D1D1D001D1D1D0062626200B0B0B000626262006262 + 620062626200626262000000000000000000000000000000000000000000B7B7 + B7009F9F9F009F9F9F00B7B7B700000000000000000000000000000000000000 + 0000D7D7D700C7C7C7000000000000000000000000000000000000000000B670 + 6000EDEDCC00F2997100F2976E00F1936800F1946A00F1946A00F1936800F090 + 650046160A000000000000000000000000005F5F5F00ECECEC00E4E3E400DBDB + DB00D1D2D100C8C7C800BDBDBD00B2B2B200A7A8A8009D9D9D00939393008989 + 8900807F8000000000009C9C9C00000000000000000000000000000000000000 + 0000000000001D1D1D0062626200626262001D1D1D001D1D1D00969696001D1D + 1D007575750075757500757575007575750000000000000000009C6363000000 + 000000000000000000009F9F9F0000000000000000000000000000000000D7D7 + D70000000000A7A7A7000000000000000000000000000000000000000000B670 + 6000EDEDCC00EDEDCC00EDEDCC00EDEDCC00EDEDCC00EDEDCC00EDEDCC00EDED + CC0046160A000000000000000000000000005F5F5F00ECECEC00E4E4E400DBDB + DB00D1D2D100C7C8C700BDBDBD00B2B2B200A8A8A8009D9D9E00939393008989 + 8900807F7F00000000009C9C9C000000000000000000000000001D1D1D001D1D + 1D0062626200626262001D1D1D00FFDDCB00FFDDCB00FFDDCB001D1D1D007575 + 75007575750075757500757575000000000000000000000000009C636300FFFF + 9900FFCC9900000000009F9F9F00000000000000000000000000D7D7D7000000 + 0000000000009F9F9F000000000000000000000000000000000000000000B670 + 6000B6706000B6706000B6706000B6706000B6706000B6706000B6706000B670 + 6000B67060000000000000000000000000005F5F5F00ECECEC00E4E3E400DBDB + DB0000009E00C7C7C700BDBDBD00B2B2B200A7A8A7009D9E9D00939393008989 + 8900807F8000000000009C9C9C0000000000000000001D1D1D00626262000000 + 00001D1D1D00007BBD000000000000000000FFB58400FFCCAD001D1D1D009696 + 96001D1D1D0000000000000000000000000000000000000000009C636300FFFF + 9900FFCC9900000000009F9F9F000000000000000000D7D7D70000000000CE9C + 9C00000000009F9F9F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005F5F5F00ECECEC00E4E4E4000000 + A60000009E000000950000008D000000840000007C000000750000006E008989 + 8900807F7F00000000009C9C9C000000000000000000868686001D1D1D0000AD + FF00007BBD000094DE000094DE00007BBD0000000000FFB58400FF9500001D1D + 1D007575750000000000000000000000000000000000000000009C636300FFFF + 9900FFCC9900000000009F9F9F00D7D7D700D7D7D70000000000CE9C9C00FFCC + 9900000000009F9F9F0000000000000000000000000000000000000000000000 + 0000000000000000960000000000000000000000000000000000000096000000 + 0000000000000000000000000000000000005F5F5F00ECECEC00E4E4E400DBDB + DB0000009D00C7C7C700BDBDBD00B2B2B200A7A8A8009D9D9D00939393000000 + 690080808000000000009C9C9C000000000000000000D6D6D600000000000000 + 000000ADFF00000000008CD6FF0000395A0000000000FFDDCB00FFDDCB001D1D + 1D00969696001D1D1D00000000000000000000000000000000009C636300FFFF + 9900FFCC99000000000097979700B7B7B70000000000CE9C9C00FFCC9900FFCC + 9900000000009F9F9F0000000000000000000000000000000000000000000000 + 0000000096000000960000009600000000000000000000000000000096000000 + 0000000000000000000000000000000000005F5F5F00ECECEC00E4E4E400DBDB + DB00D1D2D100C7C7C700BDBDBD00B2B2B200A7A8A7009D9D9D00939393000000 + 69007F807F00000000009C9C9C000000000000000000007BBD0000000000B5E7 + FF00007BBD00FFB58400000000000094DE000094DE00FFB58400FFB58400FFDD + CB001D1D1D0075757500000000000000000000000000000000009C636300FFFF + 9900FFCC9900000000008F8F8F0000000000CE9C9C00FFCC9900FFCC9900FFCC + 9900000000009F9F9F0000000000000000000000000000000000000000000000 + 0000000000000000960000000000000000000000000000009600000096000000 + 9600000000000000000000000000000000005F5F5F00ECECEC00E4E4E400DBDB + DB00D1D2D100C7C8C700BDBDBD00B2B2B200A8A8A7009D9D9D00939393008989 + 89007F7F8000000000009C9C9C00000000000000000000ADFF00106394000000 + 00004ABDFF000094DE0000ADFF0000ADFF00FFB58400FFDDCB00FFCCAD00FF95 + 00001D1D1D00969696001D1D1D000000000000000000000000009C636300FFFF + 9900FFCC9900000000009C636300FFFFCC00FFFF9900FFCC9900FFCC9900FFCC + 9900000000009F9F9F0000000000000000000000000000000000000000000000 + 0000000000000000960000000000000000000000000000000000000096000000 + 0000000000000000000000000000000000005F5F5F00ECECEC000000AE00DBDB + DB00D1D2D100C7C8C700BDBDBD00B2B2B200A8A8A7009D9D9D00939393008989 + 89007F7F8000000000009C9C9C000000000000ADFF0000ADFF00000000000000 + 000000000000B5E7FF00184A6300B5E7FF0000000000FF950000FFCCAD00FFDD + CB001D1D1D0096969600363636000000000000000000000000009C636300FFFF + 9900FFCC9900000000009F9F9F009C636300FFFFCC00FFFF9900FFCC9900FFCC + 9900000000009F9F9F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005F5F5F00ECECEC000000AE00DBDB + DB00D1D1D100C7C8C800BDBDBD00B2B2B200A8A8A80000007500939393008989 + 8900807F7F00000000009C9C9C00000000000000000000000000007BBD000000 + 00001884BD000000000000000000FF950000FFCCAD00FFDDCB001D1D1D009696 + 9600BBBBBB001D1D1D001D1D1D000000000000000000000000009C636300FFFF + 9900FFCC9900000000009F9F9F00000000009C636300FFFFCC00FFFF9900FFCC + 9900000000009F9F9F0000000000000000000000000000000000000000004616 + 0A0046160A0046160A0046160A0046160A0046160A0046160A0046160A004616 + 0A0046160A000000000000000000000000005F5F5F00ECECEC00E4E4E4000000 + A60000009E000000950000008D000000840000007C000000750000006E008989 + 890080808000000000009C9C9C00000000000000000000ADFF004ABDFF004ABD + FF00B5E7FF00107BB500FFCCAD00FFDDCB001D1D1D0096969600BBBBBB001D1D + 1D001D1D1D0000000000000000000000000000000000000000009C636300FFFF + 9900FFCC9900000000009F9F9F0000000000000000009C636300FFFFCC00FFFF + 9900000000009F9F9F000000000000000000000000000000000000000000B670 + 6000EDEDCC00F1956C00F1956900F1936800F1916600F1916600F0906500EE8D + 610046160A000000000000000000000000005F5F5F00ECECEC00E4E4E400DBDB + DB00D1D1D200C7C8C700BDBDBD00B2B2B200A8A8A70000007500939393008989 + 890080808000000000009C9C9C0000000000000000000000000000000000B5E7 + FF001D1D1D00000000001D1D1D00A4A4A400C5C5C5001D1D1D001D1D1D000000 + 00000000000000000000000000000000000000000000000000009C636300FFFF + 9900FFCC9900000000009F9F9F000000000000000000000000009C636300FFFF + CC0000000000A7A7A7000000000000000000000000000000000000000000B670 + 6000EDEDCC00F2997100F2976E00F1936800F1946A00F1946A00F1936800F090 + 650046160A000000000000000000000000005F5F5F00ECECEC00E4E4E400DBDB + DB00D1D1D100C7C7C700BDBDBD00B2B2B200A8A8A8009D9D9D00939393008989 + 8900807F8000000000009C9C9C00000000000000000000000000000000000000 + 000000000000E3E3E300D6D6D6001D1D1D001D1D1D0000000000000000000000 + 00000000000000000000000000000000000000000000000000009C636300FFFF + 9900FFCC990000000000B7B7B700000000000000000000000000000000009C63 + 630000000000C7C7C7000000000000000000000000000000000000000000B670 + 6000EDEDCC00EDEDCC00EDEDCC00EDEDCC00EDEDCC00EDEDCC00EDEDCC00EDED + CC0046160A000000000000000000000000005F5F5F00ECECEC00E4E4E300DBDB + DB00D1D1D100C8C7C700BDBDBD00B2B2B200A8A7A8009D9D9D00939393008989 + 890080807F00000000009C9C9C00000000000000000000000000000000000000 + 0000000000001D1D1D001D1D1D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B670 + 6000B6706000B6706000B6706000B6706000B6706000B6706000B6706000B670 + 6000B67060000000000000000000000000005F5F5F005F5F5F005F5F5F005F5F + 5F005F5F5F005F5F5F005F5F5F005F5F5F005F5F5F005F5F5F005F5F5F005F5F + 5F005F5F5F000000000000000000000000000000000000000000C78E8E00D5AA + AA00D5AAAA00D5AAAA00D5AAAA00D5AAAA00D5AAAA00D5AAAA00D5AAAA00D5AA + AA00D5AAAA00D5AAAA00AA808000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D5AAAA00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FEFEFF00FDFDFE00FDFDFE00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00AA808000000000000000000000000000000000000000 + 0000000000000000000000000000D7D7D700C7C7C7000000000000000000B7B7 + B7009F9F9F009F9F9F00B7B7B700000000000000000000000000000000003399 + CC0066CCFF0066CCFF003399CC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D5AAAA00FFFF + FF00FFFFFF00FFFEFE00FDFEFF008498E7002D4ED6002D4ED600FDFDFF00FFFF + FF00FFFFFF00FFFFFF00AA808000000000000000000000000000000000000000 + 00000000000000000000D7D7D70000000000A7A7A700000000009C6363000000 + 000000000000000000009F9F9F00000000000000000000000000000000003399 + CC0066CCFF0066CCFF003399CC00000000009C6363009C6363009C6363009C63 + 63009C6363009C63630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D5AAAA00FFFF + FF00FFFFFF00FEFDFD00FEFEFF008297EB004564E1004564E100FDFDFF00FFFF + FF00FFFFFF00FFFFFF00AA808000000000000000000000000000000000000000 + 000000000000D7D7D70000000000000000009F9F9F00000000009C636300FFFF + 9900FFCC9900000000009F9F9F000000000000000000000000009C6363003399 + CC0066CCFF0066CCFF003399CC0000000000CE9C9C00CE9C9C00CE9C9C00CE9C + 9C00CE9C9C00CE9C9C009C636300000000000000000000000000000000000000 + 0000D3D3D300B9B9B90000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D5AAAA00FFFF + FF00FEFEFE00FDFDFD00FEFEFF008297EB004564E1004564E100FDFDFF00FFFF + FF00FEFEFE00FFFFFF00AA808000000000000000000000000000000000000000 + 0000D7D7D70000000000CE9C9C00000000009F9F9F00000000009C636300FFFF + 9900FFCC9900000000009F9F9F000000000000000000000000009C6363003399 + CC0066CCFF0066CCFF003399CC0000000000CE9C9C00CE9C9C00CE9C9C00CE9C + 9C0000FF0000CE9C9C009C63630000000000000000000000000000000000D3D3 + D3001B1B9600858585009F9F9F00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D5AAAA00FFFF + FF00FEFEFE00FBFBFD00FCFCFE008196EA004564E1004564E100FDFDFF00FEFE + FF00FEFEFE00FEFEFF00AA80800000000000000000000000000000000000D7D7 + D70000000000CE9C9C00FFCC9900000000009F9F9F00000000009C636300FFFF + 9900FFCC9900000000009F9F9F000000000000000000000000009C6363003399 + CC00FFFFFF0066CCFF003399CC00000000009C6363009C6363009C6363009C63 + 63009C6363009C6363009C636300000000000000000000000000CACACA001B1B + 7D001B1B7D001F1E9A007C7C7C009F9F9F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D5AAAA00FFFF + FF00FCFCFE0095A7EC004564E1004564E1004564E1004564E1004564E100617B + E500FEFEFE00FEFEFE00AA808000000000000000000000000000D7D7D7000000 + 0000CE9C9C00FFCC9900FFCC9900000000009F9F9F00000000009C636300FFFF + 9900FFCC9900000000009F9F9F000000000000000000000000009C6363003399 + CC00FFFFFF00FFFFFF00C6C6C60000000000CE9C9C00CE9C9C00CE9C9C00CE9C + 9C00CE9C9C00CE9C9C009C6363000000000000000000C2C2C2001B1B7D001B1B + 7D001B1BD2001B1BD2002728A600858585009F9F9F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000D5AAAA00FFFF + FF00FDFEFE00E5EAF9004F6CE2004564E1004564E1004564E1005773E300C6CF + F500FEFEFE00FEFEFE00AA8080000000000000000000EFEFEF0000000000CE9C + 9C00FFCC9900FFCC9900FFCC9900000000009F9F9F00000000009C636300FFFF + 9900FFCC9900000000009F9F9F000000000000000000000000009C636300FFFF + FF003399CC003399CC0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF009C636300000000001B1B7D001B1B7D001B1B7D001B1B + D2003A1BB3004343CB001B1BD2003333B500858585009F9F9F00000000000000 + 0000000000000000000000000000000000000000000000000000D5B1AA00FFFF + FF00FFFFFF00FFFFFF00B9C4F0004C69DF004564E1004564E100B0BDF100FBFC + FE00FFFFFF00FFFFFF00AA80800000000000000000009C636300FFFFCC00FFFF + 9900FFCC9900FFCC9900FFCC9900000000009F9F9F00000000009C636300FFFF + 9900FFCC9900000000009F9F9F00000000000000000000000000000000009C63 + 630000000000FFFFFF0000000000CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C + 9C00CE9C9C00CE9C9C00FFFFFF0000000000000000001B1BD2001B1BD2003A1B + B300D3D3D300000000004A4AD3001B1BD2002728A600858585009F9F9F000000 + 0000000000000000000000000000000000000000000000000000D5BFAA00FFFF + FF00FFFFFF00FFFFFF00F9FAFD0097A8EB004564E100617AE200F2F4FD00FFFF + FF00FFFFFF00FFFFFF00AA8080000000000000000000000000009C636300FFFF + CC00FFFF9900FFCC9900FFCC9900000000009F9F9F00000000009C636300FFFF + 9900FFCC9900000000009F9F9F00000000000000000000000000000000000000 + 000000000000C6C6C600000000009C6363009C6363009C6363009C6363009C63 + 63009C6363009C6363009C6363000000000000000000000000003A1BB3000000 + 00000000000000000000000000005252DC001B1BD2003333B500858585009F9F + 9F00000000000000000000000000000000000000000000000000D5BFBF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FEFDFD008FA1EA00E3E7F900FFFFFF00FFFF + FF00FFFFFF00FFFFFF008E808000000000000000000000000000000000009C63 + 6300FFFFCC00FFFF9900FFCC9900000000009F9F9F00000000009C636300FFFF + 9900FFCC9900000000009F9F9F00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000005A5AD1001B1BD2003E3FC4008585 + 85009F9F9F000000000000000000000000000000000000000000D5BFBF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FDFDFD00FFFFFF00F1E2E200D5AA + AA00D5AAAA00D5AAAA00AA808000000000000000000000000000000000000000 + 00009C636300FFFFCC00FFFF9900000000009F9F9F00000000009C636300FFFF + 9900FFCC9900000000009F9F9F00000000000000000000000000000000000000 + 0000848484008484840084848400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006666F1001B1BD2004949 + D200858585009F9F9F0000000000000000000000000000000000D5BFBF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EAD4D400CAAC + 8800C0AA6000C09C58009C808000000000000000000000000000000000000000 + 0000000000009C636300FFFFCC0000000000A7A7A700000000009C636300FFFF + 9900FFCC9900000000009F9F9F000000000084848400C6C6C600000000000000 + 0000C6C6C600C6C6C600C6C6C600848484000000000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007D7DE0001B1B + D2005555E10085858500A8A8A800000000000000000000000000D5BFBF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EAD4D400E0B1 + 9900C0B16600A3877C0000000000000000000000000000000000000000000000 + 000000000000000000009C63630000000000C7C7C700000000009C636300FFFF + 9900FFCC990000000000B7B7B7000000000084848400FFFFFF0084848400C6C6 + C600FFFFFF00C6C6C600C6C6C600C6C6C60084848400FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009B9B + D6001B1BD2006060EF00B0B0B000000000000000000000000000D3B9AE00FAED + E100FAEDE100FAEDE100FAEDE100FAEDE100F4ECE400EAEAEA00DCBFBF00D5A0 + 90009C8080000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009C6363009C63 + 63009C6363009C636300000000000000000084848400FFFFFF00848484008484 + 8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B7B7D7001B1BD200000000000000000000000000000000009A8F8400A598 + 8C00A5988C00A5988C00A5988C00A5988C00A0978F0095959500958787009580 + 8000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008484840084848400000000000000 + 0000848484008484840084848400848484000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000C1BD + CB007C797900909194008A8D8F006B6C6C0045434B00474459009395A9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFF9 + D100FFF1C200FFECC100FFF0CE00FFF8DE00FFF2D200FBEBCA00B8B69400756F + 6100544A5400B1ADB10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFE + E300FFEDC500FFD5A000FFD7A200DEF5C900E8F2CE00FFFFFF00FFFFFF00FFFF + FF00FFFFFF006C655C00827C8200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C009C63 + 6300000000000000000000000000000000000000000000000000F9DDA400F9E9 + B700FFFFE900FFEAC900FFD8AB00CAE6B1000084000014B11300089D060039AB + 3200FFFFFF00FFFFFF006C666E00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFFF99009C63 + 6300000000000000000000000000000000000000000000000000F8C98600F7B7 + 6A00FCC98800FFE4B100FFF0C900C8F3C400007D00001BAB1D00B1ECAE006CC6 + 69002AAD1B00FFFFEA0084748400D2CEDA0000000000A3A3A3009A9A9A009A9A + 9A009A9A9A009A9A9A009A9A9A009A9A9A009A9A9A009A9A9A009A9A9A009A9A + 9A009A9A9A009A9A9A00A3A3A300000000000000000000000000000000000000 + 000000000000CE9C9C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFFF99009C63 + 63000000000000000000000000000000000000000000FCDFB000F8C58700F3BF + 7B00F3C18000F3C07D00F6D59C00B4EDB20008930000007D000037B03100FFFF + FF009BDC8B00D2E9AC00908D7F00BCB7C900A3A3A3006B6B6B004E4E4E004E4E + 4E004E4E4E004E4E4E004E4E4E004E4E4E004E4E4E004E4E4E004E4E4E004E4E + 4E004E4E4E004E4E4E006B6B6B00A3A3A3000000000000000000000000000000 + 0000CE9C9C00FFCC990000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFFF99009C63 + 63000000000000000000000000000000000000000000FCD59A00FFCB9600FFC7 + 8900FFCA9000FFC98E00F3DAA4008AE89B00FFFFFF00FFFFFF0054BD510088CB + 8200FFFFEE00FFFCE800C3C0A400AFAFC4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000004E4E4E009A9A9A00000000000000000000000000CE9C + 9C00FFCC9900FFCC9900CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C + 9C00CE9C9C00CE9C9C0000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFFF99009C63 + 63000000000000000000000000000000000000000000FECE8F00FFD3AA00FFCE + 9A00FFCF9F00FFCE9A00FFD5A50075D173004BC25800FFFFFF00B3EFB3000AA7 + 0A007CD17200FFF2E300DFD4B0006A6676009C636300CE9C9C00CE9C9C00CE9C + 9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C + 9C00CE9C9C00000000004E4E4E009A9A9A000000000000000000CE9C9C00FFCC + 9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC + 9900FFCC9900CE9C9C0000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFFF99009C63 + 63000000000000000000000000000000000000000000FFD29300FFDEB800FFDC + AB00FFDEB700FFDEB500FFDDAF00F8E9C10000A5110000800000008D00000093 + 000041B73F00FFF9E500EEE5D200444157009C636300FFFFCC00FFCC9900FFCC + 9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC + 9900CE9C9C00000000004E4E4E009A9A9A009C636300FFFFCC00FFFF9900FFCC + 9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC + 9900FFCC9900CE9C9C0000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFFF99009C63 + 63000000000000000000000000000000000000000000FFE1A700FFE5C600FFE2 + AB00FFE2AE00FFE4BC00FFE5C000FFE4BE00F5EBC6008ACE77004EBA520086CE + 74005EBE4E00F2E8AB00EFE7BA0058515C009C636300FFFFCC00FFCC9900FFCC + 9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC + 9900CE9C9C00000000004E4E4E009A9A9A00000000009C636300FFFFCC00FFFF + 9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC + 9900FFCC9900CE9C9C0000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFFF99000000 + 00000000000000000000000000000000000000000000FFF8BD00FFFFF900FFFF + F300FFFBD400FFF9C900FFFACF00FFFFDC00FFFFF900FFFFEC00FFFFFA00FFFF + FF00FFFFFF00FFFFEC00F6F5C700696258009C636300FFFFCC00FFFFCC00FFFF + CC00FFFFCC00FFFFCC00FFFFCC00FFFFCC00FFFFCC00FFFFCC00FFFFCC00FFFF + CC00FFFFCC00000000006B6B6B00A3A3A30000000000000000009C636300FFFF + CC00FFFF9900FFCC9900FFFF9900FFFF9900FFFF9900FFFF9900FFFF9900FFFF + 9900FFFF9900CE9C9C0000000000000000000000000000000000000000000000 + 0000CE9C9C00FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFCC9900FFFF + 9900FFFFCC009C636300000000000000000000000000E4B07C00E9B98B00F8FA + D000FFFFE900FFFAD900FEE0B100E6AB7700E5B08300EAB28500EAAB7700F2B6 + 8100F6D9AA00FFFFF200FFFFFF00808D99009C6363009C6363009C6363009C63 + 63009C6363009C6363009C6363009C6363009C6363009C6363009C6363009C63 + 63009C63630000000000A3A3A300000000000000000000000000000000009C63 + 6300FFFFCC00FFFF9900000000009C6363009C6363009C6363009C6363009C63 + 63009C6363009C63630000000000000000000000000000000000000000000000 + 000000000000CE9C9C00FFCC9900FFCC9900FFCC9900FFCC9900FFFF9900FFFF + CC009C63630000000000000000000000000000000000DBA17800FFDAC200FAE9 + C800FFF6D000EAD0B000ECB18300D7722100DC782700E49B5F00ECB58A00F2BB + 8D00F4B37900F9AB6A00FCD19800828695000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C636300FFFFCC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000CE9C9C00FFCC9900FFCC9900FFFF9900FFFFCC009C63 + 63000000000000000000000000000000000000000000A0967D00DADBBE00FFE8 + BD0092857F00EFEFEF000000000000000000EEC09700E5904800E9944B00EBBA + 8C00F0DCC600FFFFF800FFDB9B008F7C74000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000009C63630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CE9C9C00FFFF9900FFFFCC009C6363000000 + 00000000000000000000000000000000000000000000FFE1BD00FFE2C0000000 + 0000000000000000000000000000000000000000000000000000F1A46200C880 + 420076625F00C1B0B300E1B08800635551000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFCC009C636300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009C63630000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001D1D1D001D1D1D001D1D1D001D1D + 1D001D1D1D001D1D1D001D1D1D001D1D1D001D1D1D001D1D1D001D1D1D001D1D + 1D001D1D1D001D1D1D001D1D1D001D1D1D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000031313100313131003131 + 3100313131003131310031313100313131003131310000000000000000000000 + 0000000000000000000000000000000000000000000072727200727272007272 + 7200727272007272720072727200727272007272720072727200727272007272 + 7200727272007272720072727200727272001D1D1D00AC968700AC968700AC96 + 8700AC968700AC968700AC968700AC968700AC968700AC968700AC968700AC96 + 8700AC968700AC968700AC9687001D1D1D0000000000000000001A1A91000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000724B3900925A3F00925A + 3F00925A3F00925A3F00925A3F00925A3F003131310000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000727272001D1D1D007F6F6400F1D3C100F2D6 + C500F4DACA00F5DECE00F6E1D300F7E4D800F9E8DC00FBECE100FCF0E600FDF3 + EB00FEF6EF00FFF8F100AC9687001D1D1D0000000000000000001A1ABD001A1A + 9100000000000000000000000000000000000000000000000000000000000000 + 000000000000000000001A1A91000000000000000000724B3900925A3F003131 + 3100925A3F0031313100925A3F00313131003131310000000000000000000000 + 0000000000000000FF0000000000000000000000000095D9F60093D7F50091D4 + F4008DD1F2008ACEF10087CBEF0083C7ED0080C4EC007DC1EA007ABDE80076BA + E60073B7E60071B5E30000000000727272001D1D1D007F6F6400F1D3C000F3D6 + C500B09F7000B09F7000B09F7000B09F7000F9E8DC00FAEDE100FCF0E700FDF3 + EA00FEF6EE00FFF8F100AC9687001D1D1D0000000000000000001A1ABD007D7D + FF001A1A91000000000000000000000000000000000000000000000000000000 + 0000000000001A1A910033537D000000000000000000724B3900925A3F00925A + 3F00925A3F00925A3F00925A3F00925A3F003131310000000000000000004715 + 1500471515000000FF000000FF00000000000000000095D9F60093D7F50091D4 + F4008DD1F2008ACEF10087CBEF0083C8ED0080C5EC007DC1EA007ABDE90076BB + E60073B7E50070B4E30000000000727272001D1D1D007F6F6400F1D3C100F2D7 + C500B09F7000B09F7000B09F7000B09F7000F9E8DD00FAECE200FCF0E600FDF3 + EA00FEF6EF00FFF8F100AC9687001D1D1D000000000000000000000000002D2D + FE001A1ABD001A1A910000000000000000000000000000000000000000000000 + 00001A1A91001A1ABD00000000000000000000000000724B39009A6348003131 + 31009A634800313131009A634800313131003131310000000000471515000000 + 0000000000000000FF0000000000000000000000000095D9F6005B7181005B71 + 81005B7181008ACEF1005B7181005B7181005B7181005B7181005B7181005B71 + 81005B71810070B4E30000000000727272001D1D1D007F6F6400F1D3C000F2D6 + C500F4DAC900F5DDCE00F6E1D400F7E4D700F9E8DC00FAEDE100FCEFE600FDF3 + EB00FEF6EE00FFF8F100AC9687001D1D1D000000000000000000000000000000 + 00002D2DFE001A1ABD001A1A9100000000000000000000000000000000001A1A + 91001A1ABD0000000000000000000000000000000000724B3900A6705600A670 + 5600A6705600A6705600A6705600A67056003131310000000000471515000000 + 0000000000000000000000000000000000000000000095D9F60093D7F50091D4 + F4008DD1F2008ACEF10087CBEF0083C8ED0080C5EC007DC1EA007ABDE90076BB + E60073B7E50070B4E30000000000727272001D1D1D007F6F6400F1D3C000F3D6 + C500F4DACA00F5DECE00F6E1D400F8E5D800F9E8DD00FAECE200FCF0E700FDF3 + EA00FEF6EF00FFF8F100AC9687001D1D1D000000000000000000000000000000 + 0000000000002D2DFE001A1ABD001A1A910000000000000000001A1A91001A1A + BD000000000000000000000000000000000000000000724B3900B37E65003131 + 3100B37E650031313100B37E6500313131003131310000000000000000004715 + 1500000000000000000000000000000000000000000095D9F6005B7181005B71 + 81005B7181008ACEF1005B7181005B7181005B7181005B7181005B7181005B71 + 81005B71810070B4E30000000000727272001D1D1D007F6F6400F1D3C100F2D7 + C500F3DAC90041B7E30041B7E30041B7E30041B7E30041B7E300FCF0E600FDF3 + EA00FEF6EF00FFF8F100AC9687001D1D1D000000000000000000000000000000 + 000000000000000000002D2DFE001A1ABD001A1A91001A1A91001A1ABD000000 + 00000000000000000000000000000000000000000000724B3900BF8B7300BF8B + 7300BF8B7300BF8B7300BF8B7300BF8B73003131310000000000000000000000 + 0000471515000000000000000000000000000000000095D9F60093D7F50091D4 + F4008DD1F2008ACEF10087CBEF0083C8ED0080C5EC007DC1EA007ABDE90076BB + E60073B7E50070B4E30000000000727272001D1D1D007F6F6400F1D3C000F2D6 + C500F4DAC90041B7E30041B7E30041B7E30041B7E30041B7E300FCEFE600FDF3 + EB00FEF6EF00FFF8F100AC9687001D1D1D000000000000000000000000000000 + 00000000000000000000000000001A1A91001A1ABD001A1A9100000000000000 + 00000000000000000000000000000000000000000000724B3900CC998200FFFF + FF00FFFFFF00FFFFFF00FFFFFF00CC9982003131310000000000000000000000 + 0000000000004715150000000000000000000000000095D9F600BF6F4C00BF6F + 4C00BF6F4C00BF6F4C00BF6F4C00BF6F4C00BF6F4C00BF6F4C00BF6F4C00BF6F + 4C00BF6F4C0070B4E30000000000727272001D1D1D007F6F6400F1D3C000F3D6 + C500F4DACA00F5DECE00F6E1D400F8E5D800F9E8DD00FAECE200FCF0E7007FCF + 90007FCF90007FCF9000AC9687001D1D1D000000000000000000000000000000 + 000000000000000000001A1A91001A1ABD002D2DFE001A1ABD001A1A91000000 + 00000000000000000000000000000000000000000000724B3900D9A78F00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00D9A78F003131310000000000000000000000 + 0000000000000000000047151500000000000000000095D9F60093D7F50091D4 + F4008DD1F2008ACEF10087CBEF0083C8ED0080C5EC007DC1EA007ABDE90076BB + E60073B7E50070B4E30000000000727272001D1D1D007F6F6400F1D3C000F3D6 + C500F4DACA00F5DECE00F6E1D400F8E5D800F9E8DD00FAECE200FCF0E7007FCF + 90007FCF90007FCF9000AC9687001D1D1D000000000000000000000000000000 + 0000000000001A1A91001A1ABD001A1ABD0000000000000000002D2DFE001A1A + 91000000000000000000000000000000000000000000724B3900E1B09900FFFF + FF00FFFFFF00FFFFFF00FFFFFF00E1B099003131310000000000471515004715 + 1500471515004715150000000000000000000000000095D9F6000909B5000909 + B5000909B5008ACEF10087CBEF0083C8ED0080C5EC007DC1EA007ABDE90076BB + E60073B7E50070B4E30000000000727272001D1D1D007F6F6400F1D3C1004040 + C0004040C0004040C0004040C0004040C000F9E9DC00FAECE100FCF0E600FDF3 + EA00FEF6EE00FFF8F100AC9687001D1D1D000000000000000000000000000000 + 00001A1A91001A1ABD001A1ABD00000000000000000000000000000000002D2D + FE001A1A910000000000000000000000000000000000724B3900E1B09900FFFF + FF00FFFFFF00FFFFFF00FFFFFF00E1B099003131310000000000000000000000 + 0000000000000000000000000000000000000000000095D9F60093D7F50091D4 + F4008DD1F2008ACEF10087CBEF0083C8ED0080C5EC007DC1EA007ABDE90076BB + E60073B7E50070B4E30000000000727272001D1D1D007F6F6400F1D3C0004040 + C0004040C0004040C0004040C0004040C000F9E8DC00FAEDE100FCEFE600FDF3 + EB00FEF6EE00FFF8F100AC9687001D1D1D000000000000000000000000001A1A + 91001A1ABD001A1ABD0000000000000000000000000000000000000000000000 + 00002D2DFE001A1A9100000000000000000000000000724B3900E1B09900E1B0 + 9900E1B09900E1B09900E1B09900E1B099003131310000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001D1D1D007F6F6400F1D3C000F2D7 + C500F3DACA00F5DDCF00F6E1D300F7E5D800F9E9DC00FAECE100FCF0E600FDF3 + EB00FEF6EF00FFF8F100AC9687001D1D1D0000000000000000001A1A91001A1A + 91001A1ABD000000000000000000000000000000000000000000000000000000 + 0000000000002D2DFE001A1A91000000000000000000724B3900724B3900724B + 3900724B3900724B3900724B3900724B39003131310000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001D1D1D007F6F64007F6F64007F6F + 64007F6F64007F6F64007F6F64007F6F64007F6F64007F6F64007F6F64007F6F + 64007F6F64007F6F64007F6F64001D1D1D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001D1D1D001D1D1D001D1D1D001D1D + 1D001D1D1D001D1D1D001D1D1D001D1D1D001D1D1D001D1D1D001D1D1D001D1D + 1D001D1D1D001D1D1D001D1D1D001D1D1D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000C49D7E00E2804D00E1804D00E180 + 4D00E1804D00E1804D00E1804D00E1804D00E1804D00E1804D00E1804D00E180 + 4D00E1804D00E0804D00E3814D00A58374000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EB8D5800E6AA8700E5B69B00E4B5 + 9900E4B59900E4B59900E4B59900E5B69900E4B59900E4B59900E4B59900E3B5 + 9900E3B59900E4B69B00E8895500725449000000000000009900000099000000 + 9900000099000000990000009900000099000000990000009900000099000000 + 9900000099000000990000009900000099000000000000000000121228001212 + 2800121228001212280012122800121228001212280012122800121228001212 + 2800121228001212280000000000000000000000000000000000000000000000 + 000000000000D3D3D300B9B9B900000000000000000000000000000000000000 + 000000000000000000000000000000000000EB8F5B00E8BDA300F7FEFE00EDF2 + F300EBF0F000EDF2F100E9EEEC00D7D7EC00E2E6ED00EBF0EE00E3ECED00DEEA + EA00DEEDEE00E6DDD400E98A560071554A007D5454007D5454007D5454007D54 + 54007D5454007D5454007D545400000000007D5454007D5454007D5454007D54 + 54007D5454007D5454007D54540000009900000000000000000030306D003030 + EF00A4A4F6006B6BEF006B6BEF004040CC003030BF0030309F0030306D003030 + 9F001B1B4A001212280000000000000000000000000000000000000000000000 + 0000D3D3D3001B1B9600858585009F9F9F000000000000000000000000000000 + 000000000000000000000000000000000000EB8F5B00E8BDA300F7FEFE00F6FA + FA00F9FBF900F5F5F200B6A9E9006B4BF200AA99F000EFEFF100E7EEED00E0EB + EA00DAEAEB00E2DBD100E98A560071554A007D545400ECFCFF00E2F8FC00D5F3 + F900C8EDF300BBE8EF00AFE2EB0000000000ECFCFF00E2F8FC00D5F3F900C8ED + F300BBE8EF00AFE2EB007D54540000009900000000000000000030306D003030 + EF00A4A4F6006B6BEF006B6BEF004040CC003030BF0030309F0030306D003030 + 9F001B1B4A00121228000000000000000000000000000000000000000000CACA + CA001B1B7D001B1B7D001F1E9A007C7C7C009F9F9F0000000000000000000000 + 000000000000000000000000000000000000EB8F5B00E8BDA300F7FEFE00F8FC + FD00DCD9F0008E78EC004117F1003009F600532FF400BDB2EA00F5F6F200EBEF + EE00E2ECEC00E3DBD100E98A560071554A007D545400ECFCFF00E2F8FC00D5F2 + F900C7ECF500BBE6F000AFE0EC0000000000ECFCFF00E2F8FC00D5F2F900C7EC + F500BBE6F000AFE0EC007D54540000009900000000000000000030306D003030 + EF00A4A4F6006B6BEF006B6BEF004040CC003030BF0030309F0030306D003030 + 9F001B1B4A001212280000000000000000000000000000000000C2C2C2001B1B + 7D001B1B7D001B1BD2001B1BD2002728A600858585009F9F9F00000000000000 + 000000000000000000000000000000000000EB8F5B00E7BDA300F9FCFE00D3D0 + F4006B4EEE004B23F3008773E4006F55E7003108FC007358F000E8E6ED00F6F6 + F200E6EEEF00E3DBD200E98A560071554A007D545400ECFCFF008A5624008A56 + 24008A5624008A562400AFE0EC0000000000ECFCFF008A5624008A5624008A56 + 24008A562400AFE0EC007D54540000009900000000000000000030306D003030 + EF00A4A4F6006B6BEF006B6BEF004040CC003030BF0030309F0030306D003030 + 9F001B1B4A00121228000000000000000000000000001B1B7D001B1B7D001B1B + 7D001B1BD2003A1BB3004343CB001B1BD2003333B500858585009F9F9F000000 + 000000000000000000000000000000000000EB8F5B00E7BDA300F8FCFE00CCC8 + F9009A84FE00BFB6F500FAFDF600D5D0F7004B27F8002F08FC009F8BEF00F1EE + F100EAF2F100E4DCD200E98A560071554A007D545400ECFCFF00E2F8FC00D5F2 + F800C7EDF300BBE8F000AFE2EC00FFFFFF00ECFCFF00E2F8FC00D5F2F800C7ED + F300BBE8F000AFE2EC007D545400000099000000000000000000000000003030 + BF003030BF006B6BEF004040CC004040CC003030BF0030309F0030306D003030 + 6D0030306D0000000000000000000000000000000000000000001B1BD2001B1B + D2003A1BB300D3D3D300000000004A4AD3001B1BD2002728A600858585009F9F + 9F0000000000000000000000000000000000EB8F5B00E7BDA300FAFEFF00F9FB + FF00F9F8FE00FAFCFD00F9FFFE00F8F9FA009480F300350EFC005331F600C7BC + EF00EDF7F200E4DCD200E98A560071554A007D545400ECFCFF008A5624008A56 + 24008A5624008A562400AEE2EC0000000000ECFCFF008A5624008A5624008A56 + 24008A562400AEE2EC007D545400000099000000000000000000000000000000 + 0000000000003030BF003030BF003030BF0030306D0030306D0030306D000000 + 0000000000000000000000000000000000000000000000000000000000003A1B + B300000000000000000000000000000000005252DC001B1BD2003333B5008585 + 85009F9F9F00000000000000000000000000EB8F5B00E7BDA300FAFFFF00F8FF + FF00F7FFFF00F6FFFF00F6FFFF00FAFFFE00E8E7F300836AF0002C08FB006548 + EF00D8DEEA00E4DDD100E98A560071554A007D545400ECFCFF00E2F8FC00D5F2 + F900C8ECF300BBE8F000AFE0EC0000000000ECFCFF00E2F8FC00D5F2F900C8EC + F300BBE8F000AFE0EC007D545400000099000000000000000000000000000000 + 0000000000000000000030306D003030950030306D0012122800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000005A5AD1001B1BD2003E3F + C400858585009F9F9F000000000000000000EB8F5B00E7BDA300F9FFFF00F7FF + FF00F7FFFF00F7FFFF00F6FFFF00F7FFFF00FAFDFB00CCC8F4005C3CFB005430 + F900B3B0EB00E0D8D000E98A560071554A007D545400ECFCFF008A5624008A56 + 24008A5624008A562400AFE2EC0000000000ECFCFF008A5624008A5624008A56 + 24008A562400AFE2EC007D545400000099000000000000000000000000000000 + 00000000000030306D00303095003030950030309F0030306D00121228000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000006666F1001B1B + D2004949D200858585009F9F9F0000000000EB8F5B00E8BDA300F7FFFF00F6FF + FF00FAFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00F9FBFF00DFDDFE00D3CD + FB00D8D8F800E5DBD400E98A560071554A007D545400ECFCFF00E3F9FE00D5F3 + F900C7ECF500BBE6F000AFE2EC0000000000ECFCFF00E3F9FE00D5F3F900C7EC + F500BBE6F000AFE2EC007D545400000099000000000000000000000000000000 + 000030306D00A4A4F6003030BF003030BF003030BF0030309F0030309F001212 + 2800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007D7D + E0001B1BD2005555E1008585850000000000EB8F5B00E8BDA300F7FFFF00F8FF + FF00E7E9E900D7D9D900D9DADB00D8D9DA00D6D8D900D8DBDC00D3D5D300D4D8 + D300F5FAF800EDE1D600E88A560071554A007D545400ECFCFF0000007B006868 + DF006868DF006868DF00AFE0EC0000000000ECFCFF008A5624008A5624008A56 + 24008A562400AFE0EC007D545400000099000000000000000000000000000000 + 000030309500A4A4F600A4A4F600A4A4F600A4A4F600A4A4F6003030EF003030 + 9500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009B9BD6001B1BD2006060EF0000000000EB8F5B00E7BDA200F5F0EB00E9E2 + DF00818186007D777A0079767A00716E7200706C70006E686C00514D53008882 + 8500F2EAE600ECDCD000E88A56006D5146007D545400ECFCFF0000007B000000 + 7B0000007B006868DF00AFE2EC00FFFFFF00ECFCFF00E2F9FC00D5F2F800C7EC + F300BBE8F000AFE2EC007D545400000099000000000000000000000000000000 + 0000000000003030950030309500303095003030950030309500303095000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B7B7D7001B1BD20000000000EB8C5700E8A67E00E9AF8C00E1AA + 8900B5927C009FA7A400C4C6C700C5C3C300939293005C6F73008D6A5600C389 + 6800EBA88100E9A78000E9875200806559007D545400ECFCFF00E2F9FC00D5F2 + F800C7ECF300BBE8F000AFE2EC0000000000ECFCFF00E2F9FC00D5F2F800C7EC + F300BBE8F000AFE2EC007D545400000099000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000DDCFC000EBAE8B00EBAF8C00EBAF + 8C00E3AD8C00939F9C00D6D9DC00E1E1E1008E8E900049636A00CD9D7F00F0AF + 8A00EBAD8A00EBAD8A00E9A98600D8C1B5007D5454007D5454007D5454007D54 + 54007D5454007D5454007D545400000000007D5454007D5454007D5454007D54 + 54007D5454007D5454007D545400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EEEEEE00EFEDEC00EFEDEC00EFED + EC00EBE9E900BEBFC100BBBBBC00B3B3B300949594006F6E7100D7D7D600F1EF + EE00EFEDEC00EFEDEC00EEEDEC00EEEDED000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001010100010101000101010001010 + 1000101010009C9C9C0021212100000000000000000000000000000000000000 + 0000101010001010100010101000101010001010100010101000101010001010 + 1000101010001010100010101000101010001010100010101000101010001010 + 1000101010001010100010101000101010000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002382A800E3EEF700E1ECF600DDE9 + F40021212100737373009C9C9C00C6C6C600C6C6C600B5B5B500636363002121 + 210000000000212121009BBDD900101010002382A800E3EEF700E1ECF600DDE9 + F400D6E6F200CBDBE800BECFDD00BFD3E400C1D7E900BBD3E600B4CFE400AECA + E100A6C6DE00A0C1DC009BBDD9001010100000000000818181003636C6008181 + 8100818181008181810081818100818181008181810081818100818181008181 + 8100818181003636A7000000000000000000000000000000000014148B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000014148B0000000000000000002382A800E3EEF700E0ECF500DBE9 + F40073737300C6C6C600F0EFF000ADADAD00C6C6C600A5A5A500B5B5B5008484 + 84004242420063636300212121009C9C9C002382A800E3EEF700E0ECF500DBE9 + F400CFDEE900AEBCC70094A2AD00A4B5C300BACFE100BCD4E700B4CFE400AECA + E100A6C6DE00A0C1DC009CBED90010101000000000003636C6003636C6003636 + A700D6F0F400CAE9EF00BEE1E800B1D8E200A4D0DC0097C8D5008ABFCF007FB9 + C80077B3C5008181810000000000000000000000000014148B00000000000000 + 0000155A8B0080D1F60072C6F2005CB7EB004AAAE500349BDE002690DA000000 + 0000000000000000000014148B00000000002382A80083ACCE0083ACCE0083AC + CE0084848400A5A5A500DEDEDE00A5A5A500C6C6C600A5A5A500A5A5A5004242 + 4200424242008484840063636300212121002382A80083ACCE0083ACCE007EA6 + C7006C8EAA001B1B9600445A6B00526B80006C8EAA007EA6C70083ACCE0083AC + CE0083ACCE0083ACCE0083ACCE0010101000000000003636C6009999FF003636 + A7003636A700CAE9EF00BEE1E800B0D8E200A4D1DB0097C8D5008AC0CF007FB8 + C8003636A7008181810000000000000000000000000014148B00000000000000 + 0000155A8B0080D1F60071C6F2005CB8EB0049A9E500359BDF002690DA000000 + 0000000000000000000014148B00000000002382A800E3EEF700E1ECF600DDE9 + F40084848400A5A5A500DEDEDE00C6C6C600CECECE00B5B5B500A5A5A5007373 + 73004242420063636300212121009C9C9C002382A800DBE6EE00CAD4DD00AFB9 + C1001B1B7D001B1B7D001F1E9A00606A7300788691009BAFBE00AEC8DC00AECA + E100A6C6DE00A0C1DC009CBED90010101000000000005494A5005252FE003636 + C6003636A7005494A5005494A5005494A5005494A5005494A5005494A5003636 + A7005494A5005494A50000000000000000000000000014148B00000000000000 + 0000155A8B00155A8B00155A8B00155A8B00155A8B00155A8B00155A8B00155A + 8B00000000000000000014148B00000000002382A800E3EEF700E1ECF600DDE9 + F40084848400A5A5A500C6C6C600A5A5A500A5A5A50063636300636363004242 + 420042424200A0C1DC009CBED900101010002382A800D3DDE600ABB4BB001B1B + 7D001B1B7D001B1BD2001B1BD2002728A60065707A007584900095ABBD00A8C3 + D900A6C6DE00A0C1DC009CBED900101010000000000000000000000000005252 + FE003636C6003636A700000000000000000000000000000000003636A7003636 + C600000000000000000000000000000000000000000014148B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000014148B00000000002382A80083ACCE0083ACCE0083AC + CE0084848400A5A5A50042424200424242004242420042424200424242008484 + 84004242420083ACCE0083ACCE00101010002382A8001B1B7D001B1B7D001B1B + 7D001B1BD2003A1BB3004343CB001B1BD2003333B500445A6B00526B80006C8E + AA007EA6C70083ACCE0083ACCE00101010000000000081818100818181008181 + 81005252FE003636C6003636A70081818100818181003636A7003636C6008181 + 8100818181008181810000000000000000000000000014148B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000014148B00000000002382A800E3EEF700E0ECF500DDE9 + F400636363004242420042424200424242004242420042424200424242004242 + 420084848400A0C1DC009BBDD900101010002382A800E3EEF7001B1BD2001B1B + D2003A1BB300AEBCC700C5D7E6004A4AD3001B1BD2002728A6005E6C77006C7E + 8C0089A4B8009ABAD4009BBDD90010101000000000005494A500DEF5F800DEF5 + F800D6F0F4005252FE003636C6003636A7003636A7003636C6008AC0CF007FB8 + C90077B3C50081818100000000000000000014148B0000000000000000000000 + 0000155A8B0080D1F60071C6F1005DB8EB0049A9E500349BDF002690DA000000 + 000000000000000000000000000014148B002382A800E3EEF700E0ECF500DDE9 + F4008484840095959500DEDEDE00848484008484840084848400848484004242 + 420042424200A0C1DC009CBED900101010002382A800E3EEF700E0ECF5003A1B + B300C7D6E100CBDBE800CCDFEE00C6DBEC005252DC001B1BD2003333B5005B69 + 7500687B8A0084A0B60096B7D10010101000000000005494A500DEF5F800DEF5 + F800D6F0F400CAE9EF003636A7003636C6003636A70097C8D5008AC0CF007FB9 + C90077B3C5008181810000000000000000000000000014148B00000000000000 + 0000155A8B0080D1F60071C6F1005DB8EB0049AAE500359ADF002690DA000000 + 0000000000000000000014148B00000000002382A80083ACCE0083ACCE0083AC + CE0083ACCE00A5A5A500A5A5A500A5A5A500A5A5A50063636300636363004242 + 420083ACCE0083ACCE0083ACCE00101010002382A80083ACCE0083ACCE0083AC + CE0083ACCE0083ACCE0083ACCE0083ACCE0083ACCE005A5AD1001B1BD2003E3F + C400445A6B00526B80006C8EAA0010101000000000005494A5005494A5005494 + A5005494A5003636A7003636C6005252FE003636C6003636A7005494A5005494 + A5005494A5005494A50000000000000000000000000014148B00000000000000 + 0000155A8B00155A8B00155A8B00155A8B00155A8B00155A8B00155A8B00155A + 8B00000000000000000014148B00000000002382A800E3EEF7001F1E9A00DBE9 + F400D7E6F200D2E3F000CCDFEE00C6DBEC00C1D7E900972A2900B4CFE400AECA + E100A6C6DE00A0C1DC009BBDD900101010002382A800E3EEF700E0ECF500DBE9 + F400D7E6F200D2E3F000CCDFEE00C6DBEC00C1D7E900BBD3E6006666F1001B1B + D2004949D2005365730061768700101010000000000000000000000000000000 + 00003636A7003636C6003636C60000000000000000005252FE003636A7000000 + 0000000000000000000000000000000000000000000014148B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000014148B00000000002382A8001F1E9A001B1BD2001F1E + 9A00D7E6F200D2E3F000CCDFEE00C6DBEC00972A2900972A2900972A2900AECA + E100A6C6DE00A0C1DC009CBED900101010002382A800E3EEF700E1ECF600DDE9 + F400D7E6F200D2E3F000CCDFEE00C6DBEC00C1D7E900BBD3E600B4CFE4007D7D + E0001B1BD2005555E100516371001010100000000000818181003636A7003636 + A7003636C6003636C600818181008181810081818100818181005252FE003636 + A700818181008181810000000000000000000000000014148B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000014148B00000000002382A8001B1BD20083ACCE001B1B + D2001F1E9A0083ACCE0083ACCE0083ACCE0083ACCE00972A290083ACCE0083AC + CE0083ACCE0083ACCE0083ACCE00101010002382A80083ACCE0083ACCE0083AC + CE0083ACCE0083ACCE0083ACCE0083ACCE0083ACCE0083ACCE0083ACCE0083AC + CE009B9BD6001B1BD2006060EF0010101000000000005252FE009999FF003636 + C6003636C600CAE9EE00BEE1E800B0D8E200A4D0DB0097C8D5008AC0CE005252 + FE003636A7008181810000000000000000000000000014148B00000000000000 + 0000155A8B0080D1F60071C6F2005DB7EB0049AAE500359ADF002690DA000000 + 0000000000000000000014148B00000000002382A800E3EEF700E0ECF500DDE9 + F4001B1BD2006060EF00972A2900972A2900972A2900BBD3E600B4CFE400AECA + E100A6C6DE00A0C1DC009BBDD900101010002382A800E3EEF700E0ECF500DDE9 + F400D6E6F200D2E3F000CCDFEE00C6DBEC00C1D8E900BBD3E600B4CFE400AECA + E100A6C6DE00B7B7D7001B1BD20010101000000000005252FE005252FE005252 + FE00D6F0F400CBE9EE00BEE0E800B0D8E200A4D0DB0098C8D5008AC0CF007FB8 + C90077B3C5003636A70000000000000000000000000014148B00000000000000 + 0000155A8B0080D1F60071C6F1005DB7EB004AAAE500359BDF002690DA000000 + 0000000000000000000014148B00000000002382A800E3EEF700E1ECF600DDE9 + F400D6E6F2001B1BD200CCDFEE00C6DBEC00C1D7E900BBD3E600B4CFE400AECA + E100A6C6DE00A0C1DC009BBDD900101010002382A800E3EEF700E1ECF600DDE9 + F400D6E6F200D2E3F000CCDFEE00C6DBEC00C1D7E900BBD3E600B4CFE400AECA + E100A6C6DE00A0C1DC009BBDD90010101000000000005494A5005494A5005494 + A5005494A5005494A5005494A5005494A5005494A5005494A5005494A5005494 + A5005494A5005494A5000000000000000000000000000000000014148B000000 + 0000155A8B00155A8B00155A8B00155A8B00155A8B00155A8B00155A8B00155A + 8B000000000014148B0000000000000000002382A8002382A8002382A8002382 + A8002382A8002382A8002382A8002382A8002382A8002382A8002382A8002382 + A8002382A8002382A8002382A8002382A8002382A8002382A8002382A8002382 + A8002382A8002382A8002382A8002382A8002382A8002382A8002382A8002382 + A8002382A8002382A8002382A8002382A8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001818940018189400181894001818 + 9400181894001818940018189400181894001818940018189400181894001818 + 9400181894001818940018189400181894001818940018189400181894001818 + 9400181894001818940018189400181894001818940018189400181894001818 + 9400181894001818940018189400181894000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000CC660000CC660000CC33 + 0000000000000000000000000000000000001818940000000000000000001818 + BD00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000018189400181894001818940000000000000000000000 + 000000000000000000000000000000000000000000000000BA000000BA000000 + BA000000BA000000BA000000BA00181894001818940018189400181894001818 + 9400181894001818940018189400181894001818940018189400181894001818 + 9400181894001818940018189400181894000000000000000000000000000000 + 00000000000000000000000000000000000000000000CC660000CC660000CC33 + 0000CC33000000000000000000000000000018189400000000001818BD001818 + BD00181894007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B7B007B7B + 7B007B7B7B007B7B7B007B7B7B00181894001818940000000000000000000000 + 000000000000000000000000000000000000000000000000BA00FFFFFF000000 + BA000000BA000000BA00FFFFFF00181894001818940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000181894000000000000000000000000000000 + 0000000000000000000000000000000000000000000099330000CC330000CC66 + 0000CC660000CC33000000000000000000001818940031527B001818BD007B7B + FF00181894001818940031527B0031527B0031527B0031527B0031527B003152 + 7B0031527B001818940031527B00181894001818940000000000000000000000 + 000000000000000000000000000000000000000000000000BA000000BA00FFFF + FF000000BA00FFFFFF000000BA00181894001818940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000018189400CC33000099330000993300009933 + 000099330000993300009933000099330000CC3300000000000099330000CC66 + 0000CC66000099330000CC33000000000000181894006394C600DEFFFF002929 + FF001818BD00181894006BBDEF006BBDEF006BBDEF004AA5DE004AA5DE004AA5 + DE00181894004AA5DE0031527B00181894001818940000000000000000000000 + 000000000000000000000000000000000000000000000000BA000000BA000000 + BA00FFFFFF000000BA000000BA00181894001818940000000000000000000000 + 0000000000000000000000000000005A00004AD64A004AD64A004AD64A004AD6 + 4A0000000000086B08000000000018189400CC330000CC993300CC993300CC66 + 0000CC660000CC660000CC660000CC660000CC33000000000000000000009933 + 0000CC660000CC660000CC33000000000000181894006394C600DEFFFF003152 + 7B002929FF001818BD001818940031527B0031527B0031527B0031527B001818 + 94001818BD004AA5DE0031527B00181894001818940000000000000000000000 + 000000000000000000000000000000000000000000000000BA000000BA00FFFF + FF000000BA00FFFFFF000000BA00181894001818940000000000000000000000 + 0000000000000000000000000000005A00006BDE6B006BDE6B006BDE6B006BDE + 6B0000000000107B1000107B100018189400CC330000CC993300CC993300CC66 + 0000CC330000CC660000CC660000CC660000CC33000000000000000000000000 + 0000CC330000CC660000CC33000000000000181894006394C600DEFFFF00A5EF + FF008CDEF7002929FF001818BD00181894006BBDEF006BBDEF00181894001818 + BD004AA5DE004AA5DE0031527B00181894001818940000000000000000000000 + 0000000000000000000000000000005A00004AD64A000000BA00FFFFFF000000 + BA000000BA000000BA00FFFFFF00181894001818940000000000000000000000 + 00000000000000000000005A000084E7840084E7840084E7840084E784000000 + 0000108C100010841000108C100018189400CC330000CCCC6600CC663300CC99 + 3300CC9933009933000000000000000000000000000000000000000000000000 + 000000000000CC660000CC66000099330000181894006394C600DEFFFF003152 + 7B0031527B0031527B002929FF001818BD0018189400181894001818BD003152 + 7B0031527B004AA5DE0031527B00181894001818940000000000000000000000 + 0000000000000000000000000000005A00006BDE6B000000BA000000BA000000 + BA000000BA000000BA000000BA00181894001818940000000000000000000000 + 00000000000000000000005A00009CEF9C009CEF9C009CEF9C009CEF9C000000 + 000018941800189418000000000018189400CC330000CCCC6600CC663300CC99 + 3300CC993300CC33000099330000000000000000000000000000000000000000 + 000000000000CC660000CC66000099330000181894006394C600DEFFFF00A5EF + FF00A5EFFF00A5EFFF008CDEF700181894001818BD00181894006BBDEF006BBD + EF006BBDEF006BBDEF0031527B00181894001818940000000000000000000000 + 00000000000000000000005A000084E7840084E7840084E7840084E784000000 + 0000108C100010841000108C1000181894001818940000000000000000000000 + 000000000000005A0000BDFFBD00BDFFBD00BDFFBD00BDFFBD000000000021A5 + 210021A5210021A521000000000018189400CC330000CCCC6600CC6633009933 + 0000CC663300CC993300CC993300993300000000000000000000000000000000 + 000099330000CC660000CC66000099330000181894006394C600DEFFFF00A5EF + FF00A5EFFF0031527B00181894001818BD002929FF001818BD00181894003152 + 7B0031527B006BBDEF0031527B00181894001818940000000000000000000000 + 00000000000000000000005A00009CEF9C009CEF9C009CEF9C009CEF9C000000 + 0000189418001894180000000000181894001818940000000000000000000000 + 000000000000005A0000CEFFCE00CEFFCE00CEFFCE00CEFFCE000000000021AD + 210021AD2100000000000000000018189400CC330000CCCC6600CC6633000000 + 000099330000CC993300CC993300CC330000993300000000000000000000CC33 + 0000CC330000CC660000CC66000000000000181894006394C600DEFFFF00A5EF + FF00A5EFFF00181894001818BD001818BD008CDEF7008CDEF7002929FF001818 + 94008CDEF7006BBDEF0031527B00181894001818940000000000000000000000 + 000000000000005A0000BDFFBD00BDFFBD00BDFFBD00BDFFBD000000000021A5 + 210021A5210021A5210000000000181894001818940000000000000000000000 + 000000000000005A0000005A0000005A0000005A0000005A0000005A0000005A + 000029BD2900000000000000000018189400CC330000CCCC6600CC6633000000 + 00000000000099330000CC333300CC993300CC993300CC660000CC330000CC66 + 0000CC660000CC3300009933000000000000181894006394C600DEFFFF001818 + 9400181894001818BD001818BD00A5EFFF00A5EFFF00A5EFFF00A5EFFF002929 + FF00181894008CDEF70031527B00181894001818940000000000000000000000 + 000000000000005A0000CEFFCE00CEFFCE00CEFFCE00CEFFCE000000000021AD + 210021AD21000000000000000000181894001818940000000000000000000000 + 00000000000000000000005A000000FF000000FF000000FF000000FF000000FF + 0000005A0000000000000000000018189400CC330000CCCC6600CC6633000000 + 0000000000000000000099330000CC663300CC993300CC993300CC993300CC66 + 0000CC660000993300000000000000000000181894006394C6002929FF007B7B + FF001818BD001818BD00DEFFFF00DEFFFF00DEFFFF00DEFFFF00DEFFFF00DEFF + FF002929FF001818940031527B00181894001818940000000000000000000000 + 000000000000005A0000005A0000005A0000005A0000005A0000005A0000005A + 000029BD29000000000000000000181894001818940000000000000000000000 + 0000000000000000000000000000005A0000005A0000005A0000005A0000005A + 0000005A00000000000000000000181894000000000099330000CC3300000000 + 000000000000000000000000000000000000993300009933000099330000CC33 + 000000000000000000000000000000000000181894006394C6002929FF002929 + FF002929FF006394C6006394C6006394C6006394C6006394C6006394C6006394 + C6006394C6006394C60018189400181894001818940000000000000000000000 + 00000000000000000000005A000000FF000000FF000000FF000000FF000000FF + 0000005A00000000000000000000181894001818940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000181894000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001818940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000181894001818940000000000000000000000 + 0000000000000000000000000000005A0000005A0000005A0000005A0000005A + 0000005A00000000000000000000181894001818940018189400181894001818 + 9400181894001818940018189400181894001818940018189400181894001818 + 9400181894001818940018189400181894000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001818940018189400181894001818 + 9400181894001818940018189400181894001818940018189400181894001818 + 9400181894001818940018189400181894001818940018189400181894001818 + 9400181894001818940018189400181894001818940018189400181894001818 + 9400181894001818940018189400181894000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000CBCBCB00A0A0A0006A6A6A006E6E6E0088888800CCCCCC000000 + 0000000000000000000000000000000000000000000000000000000000009C9C + 9C00212121000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000BA000000BA000000 + BA000000BA000000BA000000BA000000BA000000000000000000000000000000 + 0000000000007676760091919100C6C6C600D4D4D40088888800949494000000 + 0000000000000000000000000000000000000000000000000000212121007373 + 73009C9C9C00C6C6C600C6C6C600B5B5B5006363630021212100000000002121 + 2100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000BA00FFFFFF000000 + BA000000BA000000BA00FFFFFF000000BA00C9C9C900C3C3C300A1A1A1007777 + 77008E8E8E00D2D2D200E1E1E100D8D8D800DADADA00DCA3DC00925992008E8E + 8E0000000000000000000000000000000000000000000000000073737300C6C6 + C600F0EFF00084848400C6C6C60084848400B5B5B50084848400424242006363 + 6300212121009C9C9C000000000000000000000000000000000084807F008480 + 7F0084807F0084807F0084807F0084807F0084807F0084807F0084807F008480 + 7F00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000BA000000BA00FFFF + FF000000BA00FFFFFF000000BA000000BA00C9C9C9007E7E7E0090909000C6C6 + C600DBDBDB00D9D9D900DCDCDC00DEDEDE00DADADA00E3AAE300C78EC7006868 + 6800000000000000000000000000000000000000000000000000848484008484 + 8400DEDEDE0084848400C6C6C60084848400A5A5A50042424200424242008484 + 8400636363002121210000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000BA000000BA000000 + BA00FFFFFF000000BA000000BA000000BA006B6B6B00B4B4B400DFDFDF00D8D8 + D800DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00CBCBCB00B0B0 + B000666666000000000000000000000000000000000000000000848484008484 + 8400DEDEDE0084848400C6C6C60084848400A5A5A50042424200424242006363 + 6300212121009C9C9C0000000000000000000000000000000000FC929100FC92 + 9100FC929100FC929100FC929100FC929100FC929100FC929100FC929100FC92 + 9100000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000BA000000BA00FFFF + FF000000BA00FFFFFF000000BA000000BA0066666600BABABA00D6D6D600DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DADADA00D4D4D400C0C0 + C0006D6D6D00ABABAB0000000000000000000000000000000000848484008484 + 8400DEDEDE0084848400CECECE0084848400A5A5A50073737300424242000000 + 0000000000000000000000000000000000000000000000000000F2F2F200FC92 + 9100ECECEC00FC929100ECECEC00FC929100ECECEC00FC929100ECECEC00FC92 + 9100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000005A00004AD64A000000BA00FFFFFF000000 + BA000000BA000000BA00FFFFFF000000BA0068686800BABABA00D8D8D800DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DDDDDD00DBDBDB00E1E1E100D5D5 + D500A0A0A0006B6B6B000000000000000000000000000000000084848400A5A5 + A500C6C6C600A5A5A500A5A5A500636363006363630042424200424242000000 + 0000000000000000000000000000000000000000000000000000FC929100FC92 + 9100FC929100FC929100FC929100FC929100FC929100FC929100FC929100FC92 + 9100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000005A00006BDE6B000000BA000000BA000000 + BA000000BA000000BA000000BA000000BA0068686800BABABA00D8D8D800DEDE + DE00DEDEDE00DEDEDE00DCDCDC00D8D8D800E0E0E000E6E6E600E9E9E900CDCD + CD00C2C2C200646464000000000000000000000000000000000084848400A5A5 + A500424242004242420042424200424242004242420084848400424242000000 + 0000000000000000000000000000000000000000000000000000F8F8F800FC92 + 9100ECECEC00FC929100ECECEC00FC929100ECECEC0000420000004200000042 + 0000004200000042000000000000000000000000000000000000000000000000 + 00000000000000000000005A000084E7840084E7840084E7840084E784000000 + 0000108C100010841000108C10000000000068686800BABABA00D8D8D800DEDE + DE00DDDDDD00DBDBDB00DFDFDF00E3E3E300DEDEDE00E8E8E900E9EBEC009F9F + 9D00C7C7C700C6C6C6006A4E6A00000000000000000000000000636363004242 + 4200424242004242420042424200424242004242420042424200848484000000 + 0000000000000000000000000000000000000000000000000000FF909000FC90 + 8C00FF909000FC929100FF909000FC929100FF909000004200006E24FF000000 + FF006E24FF000042000000000000000000000000000000000000000000000000 + 00000000000000000000005A00009CEF9C009CEF9C009CEF9C009CEF9C000000 + 00001894180018941800000000000000000068686800BABABA00D6D6D600DCDC + DC00E0E0E000E2E2E200CFCFCF009C9C9C00A2A4A400877E6D00988064009898 + 9A00CDCDCD00BABABA00876B8700000000000000000000000000848484009595 + 9500DEDEDE008484840084848400848484008484840042424200424242000000 + 0000000000000000000000000000000000000000000000000000EDEDED00FC90 + 8C00EDEDED00FC929100EDEDED00FC92910000420000004200006E24FF000000 + FF006E24FF000042000000420000004200000000000000000000000000000000 + 000000000000005A0000BDFFBD00BDFFBD00BDFFBD00BDFFBD000000000021A5 + 210021A5210021A52100000000000000000067676700BBBBBB00DADADA00DEDE + DE00D3D3D300DADADA00F1F1F100A9A9A900F2F4F400B4B3B000AC8435009680 + 500083838400848484000000000000000000000000000000000000000000A5A5 + A500A5A5A500A5A5A500A5A5A500636363006363630042424200000000000000 + 0000000000000000000000000000000000000000000000000000FC929100FC92 + 9100FC929100FC929100FC929100004200006E24FF000000FF000000FF000000 + FF000000FF000000FF006E24FF00004200000000000000000000000000000000 + 000000000000005A0000CEFFCE00CEFFCE00CEFFCE00CEFFCE000000000021AD + 210021AD210000000000000000000000000065656500BDBDBD00D362D300AEAE + AE00F0F0F000E1E1E100B3B3B300C3C3C300FBFBFB00A6A8A80066635A00A480 + 37007D644100BEBEC10000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000ECECEC00FF91 + 9300ECECEC00FC929100ECECEC00FF919300004200006E24FF000000FF000000 + FF000000FF006E24FF0000420000000000000000000000000000000000000000 + 000000000000005A0000005A0000005A0000005A0000005A0000005A0000005A + 000029BD2900000000000000000000000000BFBFBF008383830095959500ABAB + AB00A5A5A5008A8A8A00F3F3F300FEFEFE00DFDFDF005A5A5A00B6B6B5009393 + 9500A6884F00866E4900BDBDBF00000000000000000000000000000000000000 + 000000000000000000000000BD00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FF919300FF91 + 9300FF919300FF919300FF919300FF919300FF919300004200006E24FF000000 + FF006E24FF000042000000000000000000000000000000000000000000000000 + 00000000000000000000005A000000FF000000FF000000FF000000FF000000FF + 0000005A000000000000000000000000000000000000BABABA00939393007A7A + 7A009797970070707000AAAAAA00FEFEFE00B0B0B00082828200000000000000 + 0000918F8B00A38B52008E745200B9B9BE000000000000000000000000000000 + BD0000000000000000000000BD00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FF91 + 9300FFFFFF00FF919300FFFFFF00FF919300FFFFFF002D1F1F00004200006E24 + FF00004200000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000005A0000005A0000005A0000005A0000005A + 0000005A0000000000000000000000000000000000000000000000000000C5C5 + C500909090009960990092929200AAAAAA0073737300B9B9B900000000000000 + 00000000000093939600A68854007B6A480000000000000000000000BD000000 + BD000000BD000000BD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000212121000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C8C8C800969696008686860000000000000000000000 + 00000000000000000000979794008E8A7E000000000000000000000000000000 + BD00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000939393009393 + 9300939393009393930093939300939393009393930093939300939393009393 + 9300939393009393930093939300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009C9C9C002121210000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A0A0A000A0A0A000A0A0A000A0A0A000A0A0A000A0A0A000A0A0A000A0A0 + A000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000093939300000000000000000000000000000000002679 + A3002679A3002679A3002679A3002679A3002679A3002679A3002679A3002679 + A3002679A3002679A30000000000000000000000000000000000000000002121 + 2100737373009C9C9C00C6C6C600C6C6C600B5B5B50063636300212121000000 + 0000212121000000000000000000000000000000000000000000000000000000 + 00005D5E5E00565657004F4F4F0047484800404041003A3B3B0035353600A0A0 + A00000000000000000000000000000000000000000006A514A00F8E7DC00E4A6 + 8800E1A18400DD9C7F00D8987B00D3947700CD8F7400C78A7000C0876D00B983 + 6900B47E66000000000093939300000000000000000000000000000000002679 + A300FFFFFF0054C5FD009DDDFD009DDDFD0054C5FD0054C5FD0054C5FD0054C5 + FD0046B1E6002679A30000000000000000000000000000000000000000007373 + 7300C6C6C600F0EFF000ADADAD00C6C6C600A5A5A500B5B5B500848484004242 + 420063636300212121009C9C9C00000000000000000000000000000000000000 + 00007C7D7D0072727200686869005F5E6000555656004E4E4F0047474800A0A0 + A00000000000000000000000000000000000000000006A514A00F8E7DC00E4A6 + 8800E1A18400DD9C7F00D8987B00D3947700CD8F7400C78A7000C0876D00B983 + 6900B47E660000000000939393000000000000000000000000003399CC00FFFF + FF009DDDFD009DDDFD0054C5FD0054C5FD009DDDFD0054C5FD0054C5FD0054C5 + FD0046B1E600000000002679A300000000000000000000000000000000008484 + 8400A5A5A500DEDEDE00A5A5A500C6C6C600A5A5A500A5A5A500424242004242 + 4200848484006363630021212100000000000000000000000000000000000000 + 0000000000005B402E00EABA8200CD975E00AC79450000000000A0A0A0000000 + 000000000000000000000000000000000000000000006A514A00F8E7DC005F5F + EE005F5FEE00E3A2850048484800484848004848480048484800484848004848 + 4800BA846A0000000000939393000000000000000000000000003399CC00FFFF + FF009DDDFD009DDDFD009DDDFD009DDDFD0054C5FD009DDDFD0054C5FD0054C5 + FD002679A300000000002679A300000000000000000000000000000000008484 + 8400A5A5A500DEDEDE00A5A5A500C6C6C600A5A5A500A5A5A500424242004242 + 420063636300212121009C9C9C00000000000000000000000000000000000000 + 0000000000005B402E00EABA8200CD975E00AC79450000000000A0A0A0000000 + 000000000000000000000000000000000000000000006A514A00F8E7DC00E7AF + 9700E6AB9100E5A78A00E3A38600DF9E8100DB9A7D00D6967800D0917600C98D + 7200C3886F00000000009393930000000000000000003399CC00FFFFFF009DDD + FD009DDDFD009DDDFD009DDDFD009DDDFD009DDDFD0054C5FD009DDDFD0046B1 + E600000000002679A30046B1E600000000000000000000000000000000008484 + 8400B5B5B500DEDEDE00C6C6C600CECECE00B5B5B500A5A5A500737373004242 + 42000000000000000000000000000000000000000000A0A0A000A0A0A000A0A0 + A00000000000000000005B402E00CE975E0000000000A0A0A00000000000A0A0 + A000A0A0A000A0A0A0000000000000000000000000006A514A00F8E7DC004848 + EB004848EB00E6AC92004848480048484800484848004848480048484800D193 + 7600CB8E7200000000009393930000000000000000003399CC00FFFFFF009DDD + FD009DDDFD009DDDFD009DDDFD009DDDFD0054C5FD009DDDFD0054C5FD0046B1 + E6000000000046B1E60046B1E600000000000000000000000000000000008484 + 8400A5A5A500C6C6C600A5A5A500A5A5A5006363630063636300424242004242 + 420000000000000000000000000000000000000000001381BA00036A9F00003E + 7C00A0A0A000000000005B402E00CD975D0000000000A0A0A000000000001381 + BA00036A9F00003E7C00A0A0A00000000000000000006A514A00F8E7DC00E7BA + A600E7B6A000E7B29900E7AD9300E5A88E00E4A68800E1A18400DC9C7E00D897 + 7A00D3937700000000009393930000000000000000003399CC003399CC003399 + CC003399CC003399CC003399CC003399CC003399CC003399CC003399CC003399 + CC0046B1E600A9DEF80046B1E600000000000000000000000000000000008484 + 8400A5A5A5004242420042424200424242004242420042424200848484004242 + 4200000000000000000000000000000000005B402E0094DAEC0075C5E20054B0 + D70000000000A0A0A000000000005B402E00A0A0A000000000005B402E0094DA + EC0075C5E20054B0D70000000000A0A0A000000000006A514A00F8E7DC004848 + D8004848D800E7B7A10048484800484848004848480048484800484848004848 + 4800D8987B0000000000939393000000000000000000000000003399CC00FFFF + FF00A9DEF800A9DEF800A9DEF800A9DEF800A9DEF800A9DEF800FFFFFF00FFFF + FF00FFFFFF00FFFFFF0046B1E600000000000000000000000000000000006363 + 6300424242004242420042424200424242004242420042424200424242008484 + 840000000000000000000000000000000000000000005B402E00A0A0A0005B40 + 2E00A0A0A00000000000000000005B402E00A0A0A00000000000000000005B40 + 2E00A0A0A0005B402E00A0A0A00000000000000000006A514A00F8E7DC00E7C5 + B500E7C1AF00E7BCA900E7B7A300E7B39C00E7AF9700E6AB9100E5A78A00E3A2 + 8500DF9E810000000000939393000000000000000000000000003399CC00FFFF + FF00A9DEF800A9DEF800A9DEF800A9DEF800FFFFFF003399CC003399CC003399 + CC003399CC003399CC003399CC00000000000000000000000000000000008484 + 840095959500DEDEDE0084848400848484008484840084848400424242004242 + 42000000000000000000000000000000000000000000000000005B402E00A0A0 + A0000000000000000000000000005B402E00A0A0A00000000000000000000000 + 00005B402E00A0A0A0000000000000000000000000006A514A00F8E7DC004848 + C2004848C200E7C1B00048484800484848004848480048484800484848004848 + 4800E3A487000000000093939300000000000000000000000000000000003399 + CC00FFFFFF00FFFFFF00FFFFFF00FFFFFF003399CC0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000A5A5A500A5A5A500A5A5A500A5A5A5006363630063636300424242000000 + 00000000000000000000000000000000000000000000000000005B402E005B40 + 2E00A0A0A000A0A0A0007C7D7D005B402E007C7D7D00A0A0A000A0A0A0005B40 + 2E005B402E00A0A0A000A0A0A00000000000000000006A514A00F8E7DC00E8D0 + C600E7CBBE00E7C7B700E7C3B300E7BEAC00E7BAA600E7B69F00E7B19900E7AD + 9300E5A88E000000000093939300000000000000000000000000000000000000 + 00003399CC003399CC003399CC003399CC000000000000000000000000000000 + 000000000000000000000000000000000000000000001F1E9A00000000000000 + 000000000000000000000000000000000000972A290000000000000000000000 + 000000000000000000000000000000000000000000007C7D7D007C7D7D006868 + 69005B402E005B402E005B402E005B402E005B402E005B402E005B402E006868 + 69007C7D7D007C7D7D00A0A0A00000000000000000006A514A00F8E7DC004848 + B0004848B000E8CCC0004848480048484800484848004848480048484800E7B3 + 9A00E6AE95000000000093939300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001F1E9A001B1BD2001F1E9A000000 + 0000000000000000000000000000972A2900972A2900972A2900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005B402E00A0A0A00000000000000000000000 + 000000000000000000000000000000000000000000006A514A00F8E7DC00EBDC + D600EAD7CF00E9D2C700E8CDC100E7C8BA00E7C5B500E7C0AE00E7BBA700E7B7 + A300E7B39B000000000093939300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001B1BD200000000001B1BD2001F1E + 9A0000000000000000000000000000000000972A290000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005B402E00A0A0A00000000000000000000000 + 000000000000000000000000000000000000000000006A514A00F8E7DC00F8E7 + DC00F8E7DC00F8E7DC00F8E7DC00F8E7DC00F8E7DC00F8E7DC00F8E7DC00F8E7 + DC00F8E7DC000000000093939300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000001B1B + D2006060EF00972A2900972A2900972A29000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006A514A006A514A006A51 + 4A006A514A006A514A006A514A006A514A006A514A006A514A006A514A006A51 + 4A006A514A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00001B1BD2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001414140014141400141414001414 + 14001414140014141400000000002A2AD1001414790000000000000000000000 + 0000000000000000000014147900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000636363008F8FF9008181F5007273F1006463ED005655E9004B4BE5004343 + E1003D3DDC003737D8002E2FD200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000012658D003DA0CF003DA0CF003DA0 + CF003DA0CF0014141400000000004545FE002A2AD10014147900000000000000 + 000000000000141479009191D100000000000000000000000000000000000000 + 000000000000B0D0F0008FBFDF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000636363009898FB008989F7007A7AF2006B6CEF005D5DEB005050E8004646 + E3004141DF003B3BDA003333D400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000012658D00CCFFFF009FE2F0006ABE + DE003DA0CF001414140000000000000000004545FE002A2AD100141479000000 + 0000141479007979E20000000000000000000000000000000000000000000000 + 000000000000B0D0F0008FBFDF008FBFDF006FA0CF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000636363009E9FFD009191F9008282F6007575F2006565ED005756E9004C4B + E6004545E2003F3EDD003737D800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000012658D0012658D0012658D001265 + 8D0012658D0012658D000000000000000000000000004545FE002A2AD1002A2A + B0002A2AD1000000000000000000000000000000000000000000000000000000 + 0000B0D0F000B0D0F0008FBFDF008FBFDF008FBFDF006FA0CF006FA0CF000000 + 000000000000000000000000000000000000000000000000000063636300B2E6 + F70063636300A5A6FF009898FB008A8AF7007C7CF3006D6EF0005E5FEC005152 + E8004847E4004141DF003B3BDA000000000000000000004B6D00004B6D000000 + 0000004B6D00004B6D0000000000004B6D00004B6D0000000000EF8E6300EF8E + 630000000000EF8E6300EF8E6300000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000141479002A2AD1002A2A + D100141479000000000000000000000000000000000000000000000000000000 + 0000B0D0F000B0D0F0008FBFDF008FBFDF008FBFDF006FA0CF006FA0CF006FA0 + CF006FA0CF00000000000000000000000000000000000000000063636300C3ED + FA0063636300A7A7FF00A1A0FD009393FA008484F6007575F2006667ED005959 + EA004D4DE7004545E2003F3FDD00000000000000000064FFFF0000AAFF000000 + 000000AAFF0000AAFF000000000000AAFF00004B6D0000000000EF8E6300EF8E + 630000000000EF8E6300EF8E6300000000001414140014141400141414001414 + 140014141400141414000000000000000000141479002A2AD1003414B1000000 + 00004545FE00141479000000000000000000000000000000000000000000B0D0 + F000B0D0F000B0D0F000B0D0F0008FBFDF00000000000000000030709F006FA0 + CF006FA0CF00000000000000000000000000000000000000000063636300D2F3 + FC0063636300A7A7FF00A7A7FF009A9BFC008C8DF7007E7EF4006F6FF0006060 + ED005353E8004948E4004242DF00000000000000000064FFFF0000AAFF000000 + 000000AAFF0000AAFF000000000000AAFF00004B6D0000000000EF8E6300EF8E + 630000000000EF8E6300EF8E63000000000012658D003DA0CF003DA0CF003DA0 + CF003DA0CF001414140000000000141479002A2AD1003414B100000000000000 + 0000000000007979E2001414790000000000000000000000000000000000B0D0 + F000B0D0F00000007F0000007F008FBFDF00000000007FCFFF0030709F000000 + 00000000000000000000000000000000000063636300B2E6F70063636300DEF9 + FF0063636300A7A7FF00A7A7FF00A2A2FE009494FA008586F6007877F2006969 + EE005A5BEB004E4EE7004646E200000000000000000064FFFF0000AAFF0000AA + FF0000AAFF0000AAFF0000AAFF0000AAFF00004B6D00EF8E6300EF8E6300EF8E + 6300EF8E6300EF8E6300EF8E63000000000012658D00CCFFFF009FE1F0006ABE + DE003DA0CF001414140000000000000000003414B10000000000000000000000 + 000000000000000000009191D100000000000000000000000000DFEFF000B0D0 + F00000007F0000007F0000007F008FBFDF003090CF007FCFFF007FCFFF003090 + CF0030709F0000000000000000000000000063636300C3EDFA0063636300E2FB + FF00636363006363630063636300636363006363630063636300636363006363 + 6300636363006363630063636300636363000000000064FFFF0000AAFF0000AA + FF0000AAFF0000AAFF0000AAFF0000AAFF00004B6D00EF8E6300EF8E6300EF8E + 6300EF8E6300EF8E6300EF8E63000000000012658D0012658D0012658D001265 + 8D0012658D0012658D0000000000000000000000000014147900141493000000 + 0000000000000000000000000000000000000000000000000000DFEFF000B0D0 + F000B0D0F000B0D0F00000007F008FBFDF008FBFDF0030709F007FCFFF007FCF + FF00E070A000B0303000000000000000000063636300D2F3FC0063636300E2FB + FF00E2FBFF00D2F3FC00BAE9F800A2DEF5008BD4F20073CBEF005DC2EC004FB9 + E40048AEDB000000000000000000000000000000000064FFFF0000AAFF0000AA + FF0000AAFF0000AAFF0000AAFF0000AAFF00004B6D00EF8E6300EF8E6300EF8E + 6300EF8E6300EF8E6300EF8E6300000000000000000000000000000000000000 + 00000000000000000000000000000000000014147900141479001414D1001817 + 97000000000000000000000000000000000000000000DFEFF000DFEFF000B0D0 + F000B0D0F000B0D0F00000007F008FBFDF008FBFDF00000000007FCFFF00E070 + A000E070A000E070A000B03030000000000063636300DEF9FF0063636300E2FB + FF00E2FBFF00DEF9FF00CAF1FC00B2E6F70099DCF30082D2F1006BC8EE0058BE + EA004CB5E2000000000000000000000000000000000064FFFF0064FFFF0064FF + FF0064FFFF0064FFFF0064FFFF0064FFFF00004B6D00EF8E6300EF8E6300EF8E + 6300EF8E6300EF8E6300EF8E6300000000001414140014141400141414001414 + 140014141400141414000000000014147900141479001414D1003414B1003D3D + CA002021A40000000000000000000000000000000000DFEFF000DFEFF0000000 + 0000B0D0F000B0D0F000B0D0F00000007F008FBFDF008FBFDF0000000000FF5F + 5F00FFCFE000E070A000E070A000B030300063636300E2FBFF00636363006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 6300636363006363630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000012658D003DA0CF003DA0CF003DA0 + CF003DA0CF0014141400000000001414D1001414D1003414B100000000007E7E + E3004545D2002D2DB300000000000000000000000000000000000000000000FF + FF000000000000000000B0D0F00000007F008FBFDF008FBFDF00000000000000 + 0000FF5F5F00FFCFE000E070A000E070A00063636300E2FBFF00E2FBFF00D2F3 + FC00BAE9F800A2DEF5008BD4F20073CBEF005DC2EC004FB9E40048AEDB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000012658D00CCFFFF009FE1F0006ABE + DE003DA0CF001414140000000000000000003414B10000000000000000000000 + 00009191D1004C4CDB003839C2000000000000000000000000000000000000D0 + FF0000D0FF0000D0FF000000000000007F008FBFDF0000000000000000000000 + 000000000000FF5F5F00FFCFE000E070A00063636300E2FBFF00E2FBFF00DEF9 + FF00CAF1FC00B2E6F70099DCF30082D2F1006BC8EE0058BEEA004CB5E2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000012658D0012658D0012658D001265 + 8D0012658D0012658D0000000000000000000000000000000000000000000000 + 000000000000000000005454E4004344D1000000000000000000000000000000 + 00000000000000FFFF0000000000B0D0F0008FBFDF0000000000000000000000 + 00000000000000000000FF5F5F00FFCFE0006363630063636300636363006363 + 6300636363006363630063636300636363006363630063636300636363006363 + 6300000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000005B5BEE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFCFE0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000606060006060 + 6000606060006060600060606000606060006060600060606000606060006060 + 6000606060006060600060606000606060000000000000000000C7C7C700D7D7 + D7000000000000000000000000000000000000000000B7B7B7009F9F9F009F9F + 9F00B7B7B7000000000000000000000000000000000000000000626162006261 + 6200626162006261620062616200626162006261620062616200626162006261 + 6200626162006261620062616200000000001414140014141400141414001414 + 1400141414001414140000000000681414006814140068141400681414006814 + 1400681414006814140068141400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000606060000000000000000000A7A7A700A7A7 + A700D7D7D7000000000000000000000000009C63630000000000000000000000 + 00009F9F9F0000000000000000000000000000000000512A2A00512A2A00512A + 2A00512A2A00512A2A00512A2A003737AD003737AD003737AD003737AD00512A + 2A00512A2A00512A2A00626162000000000012658D003DA0CF003DA0CF003DA0 + CF003DA0CF001414140000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C5273008FE5FF0082DCFF0082CA + EE00315C8200AAAFFE009EA4FD009199FC00868EFB007B83FA006E77F800626B + F8005861F600515BF6000000000060606000000000009C636300000000008787 + 8700A7A7A700D7D7D70000000000000000009C636300FFFF9900FFCC99000000 + 00009F9F9F0000000000000000000000000000000000512A2A00000000000000 + 0000512A2A0000000000000000003737AD0000000000000000003737AD000000 + 000000000000512A2A00626162000000000012658D00CCFFFF009FE1F0006ABE + DE003DA0CF001414140000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C5273008FE5FF0082DCFF0082CA + EE00315C8200AAAFFD009EA4FC009298FC00868DFB007B82F9006E77F800626C + F7005861F600515BF6000000000060606000000000009C6363009C6363000000 + 000087878700A7A7A700D7D7D700000000009C636300FFFF9900FFCC99000000 + 00009F9F9F0000000000000000000000000000000000512A2A00000000000000 + 00000000000000000000000000003737AD000000000000000000000000000000 + 000000000000512A2A00000000000000000012658D0012658D0012658D001265 + 8D0012658D0012658D0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C527300315C8200315C8200315C + 8200315C82008231310082313100823131008231310082313100823131008231 + 310082313100823131000000000060606000000000009C636300FFFFCC009C63 + 63000000000087878700A7A7A700D7D7D7009C636300FFFF9900FFCC99000000 + 00009F9F9F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C5273008FE5FF0082DCFF0082CA + EE00315C8200E3AF7200DBA66B00D29D6200CA935B00C28A5300B8814A00B076 + 4200A86E3B00A26836000000000060606000000000009C636300FFFFCC00FFCC + 99009C6363000000000087878700A7A7A7009C636300FFFF9900FFCC99000000 + 00009F9F9F000000000000000000000000000000000000000000000000006261 + 6200626162006261620062616200626162006261620062616200626162006261 + 6200626162006261620062616200000000001414140014141400141414001414 + 1400141414001414140000000000681414006814140068141400681414006814 + 1400681414006814140068141400000000002C5273008FE5FF0082DCFF0082CA + EE00315C8200E3AF7200DCA76A00D29D6300C9935A00C18A5300B8804A00AF76 + 4200A86E3B00A26836000000000060606000000000009C636300FFFFCC00FFCC + 9900FFCC99009C636300000000008F8F8F009C636300FFFF9900FFCC99000000 + 00009F9F9F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000626162000000000012658D003DA0CF003DA0CF003DA0 + CF003DA0CF001414140000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C527300315C8200315C8200315C + 8200315C82008231310082313100823131008231310082313100823131008231 + 310082313100823131000000000060606000000000009C636300FFFFCC00FFCC + 9900FFCC9900FFFF99009C636300000000009C636300FFFF9900FFCC99000000 + 00009F9F9F000000000000000000000000000000000000000000F3DF6B00F1DB + 690097393900E9C76100E7BE5F0097393900E0AF5A00DEA8570097393900D899 + 5200D48D4E0000000000626162000000000012658D00CCFFFF009FE1F0006ABE + DE003DA0CF001414140000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C5273008FE5FF0082DCFF0082CA + EE00315C8200AAAFFE009EA4FD009199FC00868EFB007B83FA006E77F800626B + F8005861F600515BF6000000000060606000000000009C636300FFFFCC00FFCC + 9900FFFF9900FFCC990000000000D7D7D7009C636300FFFF9900FFCC99000000 + 00009F9F9F000000000000000000000000000000000000000000F4E26C00F3DF + 6A0097393900EDD06500EAC9630097393900E5B95E00E1B25A0097393900DCA3 + 5600D99B530000000000626162000000000012658D0012658D0012658D001265 + 8D0012658D0012658D0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C5273008FE5FF0082DCFF0082CA + EE00315C8200AAAFFD009EA4FC009298FC00868DFB007B82F9006E77F800626C + F7005861F600515BF6000000000060606000000000009C636300FFFFCC00FFFF + 9900FFCC990000000000D7D7D700000000009C636300FFFF9900FFCC99000000 + 00009F9F9F000000000000000000000000000000000000000000F3DF6B00F1DB + 690097393900EED46600ECCE640097393900E7BE5F00E4B65C0097393900DEA8 + 5700DBA055000000000062616200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C527300315C8200315C8200315C + 8200315C82008231310082313100823131008231310082313100823131008231 + 310082313100823131000000000060606000000000009C636300FFFFCC00FFCC + 990000000000D7D7D70000000000000000009C636300FFFF9900FFCC99000000 + 00009F9F9F000000000000000000000000000000000000000000F4E26C00F3DF + 6A0097393900EED46600ECCE640097393900E7BE5F00E4B65C0097393900DEA8 + 5700DBA055000000000062616200000000001414140014141400141414001414 + 1400141414001414140000000000681414006814140068141400681414006814 + 1400681414006814140068141400000000002C5273008FE5FF0082DCFF0082CA + EE00315C8200E3AF7200DBA66B00D29D6200CA935B00C28A5300B8814A00B076 + 4200A86E3B00A26836000000000060606000000000009C636300FFCC99000000 + 0000D7D7D7000000000000000000000000009C636300FFFF9900FFCC99000000 + 00009F9F9F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000626162000000000012658D003DA0CF003DA0CF003DA0 + CF003DA0CF001414140000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C5273008FE5FF0082DCFF0082CA + EE00315C8200E3AF7200DCA76A00D29D6300C9935A00C18A5300B8804A00AF76 + 4200A86E3B00A26836000000000060606000000000009C63630000000000D7D7 + D700000000000000000000000000000000009C636300FFFF9900FFCC99000000 + 0000B7B7B7000000000000000000000000000000000000000000ACE5F600A4E1 + F6009BDFF600414141008CD8F60085D6F6007ED3F600414141006FCEF60068CA + F60061C8F60000000000626162000000000012658D00CCFFFF009FE1F0006ABE + DE003DA0CF001414140000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000002C5273002C5273002C5273002C52 + 73002C5273002C5273002C5273002C5273002C5273002C5273002C5273002C52 + 73002C5273002C5273002C52730000000000000000009C636300000000000000 + 0000000000000000000000000000000000009C6363009C6363009C6363009C63 + 6300000000000000000000000000000000000000000000000000ACE5F600A4E1 + F6009BDFF600414141008CD8F60085D6F6007ED3F600414141006FCEF60068CA + F60061C7F60000000000626162000000000012658D0012658D0012658D001265 + 8D0012658D0012658D0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000717171007171 + 7100717171007171710071717100717171007171710071717100717171007171 + 7100717171007171710071717100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004A4A4A00C6C6C60000000000747474009B9B9B0074747400000000000000 + 000000000000000000000000000000000000000000003737F4003737F4003737 + F4003737F4003737F4003737F4003737F4003737F4003737F4003737F4003737 + F4003737F4003737F4003737F4003737F400000000000D0D0D000D0D0D000D0D + 0D000D0D0D000D0D0D000D0D0D000D0D0D000D0D0D000D0D0D000D0D0D000D0D + 0D000D0D0D000D0D0D0071717100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000004A4A4A004A4A + 4A00000000009494940068686800ECECEC00ECECEC00E7E7E7009B9B9B007474 + 740000000000000000000000000000000000000000003737F4003737F4003737 + F4003737F4003737F4003737F4003737F4003737F4003737F4003737F4003737 + F4003737F4003737F4003737F4003737F400000000006A6A6A00E8E8E800E3E3 + E300DDDDDD00D4D4D400CBCBCB00C1C2C200B8B8B800B0B0AF00A7A8A7009E9E + 9F00949495000D0D0D007171710000000000000000001384BB00D8FBFB000000 + 000000000000681414006814140068141400000000001384BB00D8FBFB000000 + 0000000000006814140068141400681414004A4A4A004A4A4A004A4A4A004A4A + 4A009494940068686800E7E7E700C9C9C900000000008C734200ECECEC00E7E7 + E7009B9B9B00747474000000000000000000000000003C3C3C003737F4003737 + F4003737F4003737F4003737F4003737F4003737F4003737F4003737F4003737 + F4003737F4003737F4003737F4003737F400000000006A6A6A00E8E8E8000D0D + 0D000D0D0D000D0D0D000D0D0D000D0D0D000D0D0D000D0D0D000D0D0D000D0D + 0D00949594000D0D0D007171710000000000000000001384BB00D8FBFB000000 + 000000000000000000000000000000000000000000001384BB00D8FBFB000000 + 00000000000000000000000000000000000000000000000000004A4A4A000000 + 00004F4F4F00DADADA00818181000000000039526300E7E7E700ECECEC008C73 + 4200ECECEC00DADADA000000000000000000000000003C3C3C003737F4003737 + F4003737F4003737F4003737F4003737F4003737F4003737F4003737F4003737 + F4003737F4003737F4003737F4003737F400000000006A6A6A00E8E8E800E3E4 + E3000D0D0D000D0D0D00CBCBCB00C2C1C200B9B8B800B0AFB000A8A8A8000D0D + 0D00949495000D0D0D007171710000000000000000001384BB001384BB000000 + 000000000000000000000000000000000000000000001384BB001384BB000000 + 0000000000000000000000000000000000000000000000000000000000004F4F + 4F00D2D2D200C9C9C90074747400638CA50010101000E7E7E7008C73420000E1 + E100ECECEC0000000000000000000000000000000000F4B163003C3C3C003737 + F4003737F4003737F4003737F4003737F4003737F4003737F4003737F4003C3C + 3C003737F4003737F4003737F4003737F400000000006A6A6A00E8E8E800E3E3 + E300DCDDDC000D0D0D000D0D0D00C2C2C200B9B8B800B0B0AF00A7A8A8009F9E + 9E00959494000D0D0D0071717100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000B3B3 + B300B3B3B300818181000000000039526300DADADA00DADADA008C734200E7E7 + E70000E1E10000000000000000000000000000000000F4B16300F4B163003C3C + 3C003737F4003737F4003737F4003737F4003737F4003737F4003C3C3C003C3C + 3C003737F4003737F4003737F4003737F400000000006A6A6A00E8E8E800E4E3 + E400DCDCDC00D3D4D4000D0D0D000D0D0D00B8B8B800B0B0B000A8A7A8009E9E + 9F00949594000D0D0D0071717100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F7F7F7000000 + 00006868B3006868B300638CA5000000000000000000DADADA00DADADA000000 + 00000000000000E1E1000000000000000000000000003C3C3C00F4B16300F4B1 + 63003C3C3C003737F4003737F4003737F4003C3C3C003C3C3C00F4B16300F4B1 + 63003C3C3C003C3C3C003737F4003737F400000000006A6A6A00E8E8E800E3E4 + E300DCDCDC00D4D4D400CBCBCB000D0D0D000D0D0D00AFAFAF00A8A7A7009E9E + 9E00959595000D0D0D007171710000000000000000001384BB00D8FBFB000000 + 000000000000681414006814140068141400000000001384BB00D8FBFB000000 + 0000000000006814140068141400681414000000000000000000F7F7F700F7F7 + F700F7F7F70000000000395263004F4F81004F5A9B006868B300000000000000 + 0000000000000000000000E1E10000000000000000003C3C3C00F4B16300F4B1 + 6300F4B163003C3C3C003C3C3C003C3C3C00F4B16300F4B163003C3C3C003C3C + 3C00F4B16300F4B163003C3C3C003737F400000000006A6A6A00E8E8E800E3E4 + E400DDDDDC00D4D4D4000D0D0D000D0D0D00B8B8B800B0AFB000A7A7A8009E9E + 9E00959495000D0D0D007171710000000000000000001384BB00D8FBFB000000 + 000000000000000000000000000000000000000000001384BB00D8FBFB000000 + 00000000000000000000000000000000000000000000F7F7F700F7F7F7009494 + 9400000000000000000000000000000000004F4F81004F4F81004F5A9B006868 + B3000000000000000000000000000000000000000000000000003C3C3C00F4B1 + 6300F4B163003C3C3C00F4B16300F4B16300F4B163003C3C3C00000000000000 + 00003C3C3C00F4B16300F4B163003C3C3C00000000006A6A6A00E8E8E800E4E3 + E300DDDCDC000D0D0D000D0D0D00C2C2C200B9B8B800B0AFAF00A8A8A8009E9E + 9E00949494000D0D0D007171710000000000000000001384BB001384BB000000 + 000000000000000000000000000000000000000000001384BB001384BB000000 + 00000000000000000000000000000000000000000000F7F7F70000000000BDA5 + 7B00E7CE9C00E7CE9C0042290000F7F7F700F7F7F70000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003C3C + 3C00F4B16300F4B16300F4B16300F4B163003C3C3C0000000000000000000000 + 0000000000003C3C3C00F4B16300F4B16300000000006A6A6A00E8E8E800E3E3 + E3000D0D0D000D0D0D00CBCBCB00C2C2C100B8B8B800AFB0AF00A8A7A8000D0D + 0D00949495000D0D0D0071717100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F7F7F700F7F7F7006B522100C6AD + 8400D6BD8C00DEC69400E7CE9C0000000000F7F7F70000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00003C3C3C00F4B16300F4B16300F4B163003C3C3C0000000000000000000000 + 000000000000000000003C3C3C00F4B16300000000006A6A6A00E8E8E8000D0D + 0D000D0D0D000D0D0D000D0D0D000D0D0D000D0D0D000D0D0D000D0D0D000D0D + 0D00949594000D0D0D0071717100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F7F7F700846B3900F7DE + AD00846B3900A58C5A00DEC69400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00003C3C3C00F4B16300F4B163003C3C3C000000000000000000000000000000 + 00000000000000000000000000003C3C3C00000000006A6A6A00E8E8E800E3E3 + E300DCDCDC00D4D4D400CBCBCB00C2C2C100B9B8B900AFAFB000A8A8A7009F9E + 9F00959495000D0D0D007171710000000000000000001384BB00D8FBFB000000 + 000000000000681414006814140068141400000000001384BB00D8FBFB000000 + 000000000000681414006814140068141400000000000000000000000000BDA5 + 7300AD945A008C7342004A310000949494000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003C3C3C003C3C3C00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006A6A6A006A6A6A006A6A + 6A006A6A6A006A6A6A006A6A6A006A6A6A006A6A6A006A6A6A006A6A6A006A6A + 6A006A6A6A006A6A6A000000000000000000000000001384BB00D8FBFB000000 + 000000000000000000000000000000000000000000001384BB00D8FBFB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000846B3900846B390000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000003C3C3C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000001384BB001384BB000000 + 000000000000000000000000000000000000000000001384BB001384BB000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002121 + CD0023239B0023239B000C0C5D0000000000000000000000000000000000671D + 0F0000000000671D0F0000000000000000000000000000000000000000003939 + 3900080808006363630000000000000000000000000000000000393939000808 + 0800636363000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B3D7F0008EBAD9000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000002121CD00218C + C400218CC40021577600215776000C0C5D0000000000671D0F00671D0F00671D + 0F00671D0F00671D0F00671D0F0000000000000000000000000039393900DEDE + DE009C9C9C005252520008080800080808000808080039393900DEDEDE009C9C + 9C00525252000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B3D7F0008EBAD9008EBAD9006BA5CE00000000000000 + 000000000000000000000000000000000000000000002121CD006FFAFF0021B8 + FF0021B8FF0021B8FF000F8FCA00215776000C0C5D000000000000000000671D + 0F0000000000671D0F0000000000671D0F0000000000000000006B6B6B009C9C + 9C00ADADAD00C6C6C600CECECE00CECECE00CECECE00CECECE00ADADAD009C9C + 9C009C9C9C00393939000000000000000000000000006D420000FFEAC9006D42 + 00006D4200006D4200006D4200006D4200006D4200006D4200006D4200006D42 + 00006D4200000000000000000000000000000000000000000000000000000000 + 000000000000B3D7F000B3D7F0008EBAD90000007F0000007F006BA5CE006BA5 + CE00000000000000000000000000000000002121CD006FFAFF0021D1FF0021D1 + FF0021D1FF0021B8FF0021B8FF000F8FCA00215776000C0C5D0000000000671D + 0F0000000000671D0F0000000000671D0F000000000000000000ADADAD00F7F7 + F700ADADAD00ADADAD00ADADAD00ADADAD00DEDEDE00FFFFFF0084848400FFFF + FF009C9C9C00000000000000000000000000000000006D420000FFEAC900FF9C + 0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C + 00006D4200000000000000000000000000000000000000000000000000000000 + 000000000000B3D7F000B3D7F00000007F0000007F0000007F006BA5CE006BA5 + CE006BA5CE006BA5CE0000000000000000002121CD006FFAFF0021D1FF0021D1 + FF0021D1FF0021B8FF0021B8FF0021B8FF00215776000C0C5D00671D0F00671D + 0F00671D0F00671D0F00671D0F00000000000000000000000000ADADAD00FFFF + FF00FFFFFF00FFFFFF00DEDEDE00DEDEDE00CECECE00C6C6C60052525200C6C6 + C6009C9C9C00000000000000000000000000000000006D420000FFEAC900FFEA + C900FFEAC900FFEAC900FFEAC900FFEAC900FFEAC900FFEAC900FFEAC900FFEA + C900FFEAC9000000000000000000000000000000000000000000000000000000 + 0000B3D7F000B3D7F000B3D7F000B3D7F0008EBAD90000007F006BA5CE006BA5 + CE006BA5CE006BA5CE0000000000000000009595FF006FFAFF006FFAFF0021D1 + FF0021D1FF0021D1FF0021D1FF0021B8FF000F8FCA00671D0F0000000000671D + 0F0000000000671D0F0000000000000000000000000039393900DEDEDE00CECE + CE00C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6 + C600C6C6C600393939000000000000000000000000006D4200006D4200006D42 + 00006D4200006D4200006D4200006D4200006D4200006D4200006D4200006D42 + 00006D4200000000000000000000000000000000000000000000000000000000 + 0000B3D7F000B3D7F00000007F0000007F008EBAD90000007F006BA5CE006BA5 + CE006BA5CE00000000000000000000000000000000009595FF006FFAFF006FFA + FF0021D1FF0021D1FF0021D1FF000F8FCA0023239B00671D0F0000000000671D + 0F0000000000671D0F0000000000000000000000000000000000DEDEDE00DEDE + DE00F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700FFFFFF00FFFFFF00FFFF + FF00DEDEDE005252520000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D9EA + F600B3D7F00000007F0000007F0000007F008EBAD9008EBAD90000007F006BA5 + CE006BA5CE0000000000000000000000000000000000000000009595FF006FFA + FF006FFAFF0021B8FF000F8FCA0023239B000000000000000000671D0F00671D + 0F00671D0F00671D0F00671D0F00671D0F000000000000000000DEDEDE006B6B + 6B00DFAE9400E0B19700DFAE9400DAA48900D2967A00C9866800C1785800BE71 + 5000CECECE006363630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D9EA + F600B3D7F000B3D7F000B3D7F00000007F008EBAD9008EBAD90000007F006BA5 + CE00000000000000000000000000000000000000000000000000000000009595 + FF002121CD0023239B0023239B0000000000000000000000000000000000671D + 0F0000000000671D0F0000000000000000000000000000000000DEDEDE006B6B + 6B00E9C3AC00EBC9B300E9C2AC00E2B59D00DAA48A00CF917500C47F5F00BE71 + 5000CECECE006363630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D9EAF600D9EA + F600B3D7F000B3D7F000B3D7F00000007F008EBAD9008EBAD90000007F006BA5 + CE00000000000000000000000000000000000000000000000000000000005D5D + 5D00FFFFFF008888890021212100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DEDEDE006B6B + 6B00F2D7C200F7E0CC00F3D7C200E9C2AC00DDAE9400D3987E00C9846600C074 + 5300CECECE00636363000000000000000000000000006D420000FFEAC9006D42 + 00006D4200006D4200006D4200006D4200006D4200006D4200006D4200006D42 + 00006D4200000000000000000000000000000000000000000000D9EAF600D9EA + F60000000000B3D7F000B3D7F000B3D7F00000007F008EBAD9008EBAD9000000 + 0000000000000000000000000000000000000000000000000000000000002121 + CD002121CD0023239B0023239B00000000000000000000000000000000000000 + 00002121CD000C0C8D000A0A6400000000000000000000000000F7F7F7006B6B + 6B00F7DFCD00FFF0E000F7E0CC00EBC9B300E0B19700D49C8100C9866700C075 + 5500CECECE00636363000000000000000000000000006D420000FFEAC900FF9C + 0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C0000FF9C + 00006D4200000000000000000000000000000000000000000000000000000000 + 000000FFFF000000000000000000B3D7F00000007F008EBAD9008EBAD9000000 + 000000000000000000000000000000000000000000002121CD002121CD002121 + E9002121E9002121E9002121E90023239B0023239B0000000000000000000000 + 00002121CD000C0C8D000A0A6400000000000000000000000000FFFFFF006B6B + 6B00F2D7C200F7E0CC00F2D7C300E9C2AC00DDAE9400D4987D00C8846500BF74 + 5300CECECE00636363000000000000000000000000006D420000FFEAC900FFEA + C900FFEAC900FFEAC900FFEAC900FFEAC900FFEAC900FFEAC900FFEAC900FFEA + C900FFEAC9000000000000000000000000000000000000000000000000000000 + 000000D7FE0000D7FE0000D7FE000000000000007F008EBAD900000000000000 + 0000000000000000000000000000000000009595FF002121E90089CDFF0089CD + FF0089CDFF0089CDFF0089CDFF0089CDFF002121E90023239B00000000000000 + 00002121CD000C0C8D000A0A6400000000000000000000000000FFFFFF006B6B + 6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B008484 + 8400C6C6C600393939000000000000000000000000006D4200006D4200006D42 + 00006D4200006D4200006D4200006D4200006D4200006D4200006D4200006D42 + 00006D4200000000000000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF0000000000B3D7F0008EBAD900000000000000 + 0000000000000000000000000000000000009595FF002121E9002121E9002121 + E9002121E9002121E9002121E9002121E9002121E90023239B00000000002121 + CD000C0C8D000C0C8D000A0A64000A0A64000000000000000000FFFFFF00DEDE + DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00CECECE00CECECE00CECE + CE00CECECE003939390000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009595FF002121E90089CDFF0089CD + FF0089CDFF0089CDFF0089CDFF0089CDFF002121E90023239B00000000000000 + 00002121CD000C0C8D000A0A64000000000000000000636363009C9C9C00C6C6 + C600CECECE00CECECE00CECECE00C6C6C600ADADAD00ADADAD00ADADAD00ADAD + AD00848484003939390000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009595FF007B7BF9007B7BF9007B7B + F9007B7BF9007B7BF9007B7BF9007B7BF9007B7BF9007B7BF900000000000000 + 0000000000002121CD0000000000000000000000000000000000393939005252 + 5200ADADAD00ADADAD006B6B6B00525252005252520052525200525252005252 + 5200393939000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000392A1A0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000392A1A00A3948000A3948000A394 + 8000AA9D8B00AA9D8B00AA9D8B00AA9D8B00AA9D8B00AA9D8B00AA9D8B00AA9D + 8B00AA9D8B00AA9D8B00AA9D8B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000392A1A0096877200968772009687 + 7200BFB3A300BFB3A300BFB3A3002F221300BFB3A300BFB3A300BFB3A300BFB3 + A300BFB3A300BFB3A300BFB3A30000000000B6AA9C00E3DED8002E211600C3B4 + AD00C6BCB100BFB4A8009A8B7B009A8B7B00BDB2A500BDB2A500BDB2A500BDB2 + A500BDB2A500BDB2A500BDB2A500000000000000000000000000000000000000 + 00000000000000000000B3DEF500000000000000000000000000000000000000 + 00000000000000000000000000000000000098671D0098671D006D4200006D42 + 00006D4200006D4200006D4200006D4200006D4200006D4200006D4200006D42 + 00006D4200006D4200006D42000000000000392A1A0091806B0091806B009180 + 6B009586720000000000000000000000000000000000BFB3A300BFB3A300BFB3 + A3000037090000831300BFB3A30000000000B1A49600E3DED80041312300C1B7 + AB00C4BFB400BCB6AA008F7F6E008F7F6E00BDB2A500BDB2A500BDB2A500BDB2 + A500BDB2A500BDB2A500BDB2A500000000000000000000000000000000000000 + 000000000000B3DEF500B3DEF500B3DEF5000000000000000000000000000000 + 00000000000000000000000000000000000098671D00FFEAC900C2945700C294 + 5700C2945700C2945700C2945700C2945700C2945700C2945700C2945700C294 + 5700C2945700C29457006D42000000000000392A1A008D7C67008D7C67008D7C + 6700FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000AC9F9000E3DED80041312300BFB9 + AD00C4BFB400BCB6AA0038291C00000000000000000000000000000000000000 + 00000000000000000000CFC6BC00000000000000000000000000000000000000 + 0000B3DEF500B3DEF500AD6D6600B3DEF500B3DEF50000000000000000000000 + 00000000000000000000000000000000000098671D00FFEAC900C29457000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF00FFFF + FF00C6C6C600000000006D42000000000000392A1A00392A1A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000A89A8B00E3DED80041312300C1B7 + AB00C6BCB100BFB4A800B1A59C00A0928800A2948400FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF000000000000000000000000000000000000000000B3DE + F500B3DEF500AD6D6600FFFFFF00AD6D66000000000000000000000000000000 + 00000000000000000000000000009900000098671D00FFEAC900C2945700C294 + 5700C2945700C2945700C2945700C2945700C2945700C2945700C2945700C294 + 5700C2945700C29457006D420000000000000000000000000000392A1A00A79A + 8800A79A8800D0C6BB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF000000000000000000A3958500E3DED80041312300C1B7 + AB00C4BAB400BFB4A800B6A59C009C8D7D009C8D7D005C4B3A00EF9C0000E291 + 0000D68800007968520000000000000000000000000000000000B3DEF500B3DE + F500AD6D6600FFFFFF00FFFFFF000000000074B8DC0074B8DC0074B8DC0074B8 + DC0074B8DC0074B8DC0074B8DC009900000098671D00FFEAC900C29457000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000 + 0000FFFFFF00000000006D420000000000000000000000000000392A1A00A495 + 8300A4958300D0C6BB005D4C3700796851007968510079685100796851007968 + 510079685100FFFFFF000000000000000000A08D8200E3DED80041312300C1B7 + AB00C6BCB100D5CEC500B3A7990092887200928878005C4B3A00F8A20000ED97 + 0000DF8F000079685200000000000000000000000000B3DEF500B3DEF500AD6D + 6600FFFFFF00FFFFFF00000000003399CC00B3DEF50000000000000000003399 + CC00B3DEF500B3DEF500B3DEF5009900000098671D00FFEAC900C2945700C294 + 5700C2945700C2945700C2945700C2945700C2945700C2945700C2945700C294 + 5700C2945700C29457006D420000000000000000000000000000392A1A00A093 + 7F00A0937F00D0C6BB005D4C3700EEB54500E6AF3F00DFA83800D89F2F00D197 + 280079685100FFFFFF000000000000000000978D7800E3DED80041312300C1B7 + AB00C4BAB40000000000B1AA97008D826C00917D6C005C4B3A00FFA80000F6A0 + 0000E99700007968520000000000000000000000000000000000B3DEF500B3DE + F500AD6D66000000000000000000000000000000000000000000FFFFFF000000 + 000000000000B3DEF500B3DEF5009900000098671D00FFEAC90000000000C6C6 + C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C2945700C294 + 5700C2945700C29457006D420000000000000000000000000000392A1A009E8F + 7B009E8F7B00D0C6BB005D4C3700F3BC4C00EDB44600E6AD3D00DEA53500D89C + 2E0079685100FFFFFF00000000000000000098897300E3DED80041312300BFB9 + AD00C6BCB10000000000B6AA970038291C008B7B6A00CFC6BC00CFC6BC00CFC6 + BC00CFC6BC00CFC6BC000000000000000000000000000000000000000000B3DE + F500B3DEF500AD6D6600000000003399CC003399CC0000000000000000003399 + CC00B3DEF500B3DEF500000000009900000098671D00FFEAC90000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6C6C600C2945700C294 + 5700C2945700C29457006D420000000000000000000000000000392A1A009588 + 740095887400D0C6BB005D4C3700F7C25200F2BB4B00EAB34500E5AC3C00DEA5 + 350079685100FFFFFF00000000000000000090856F00E3DED80041312300C3B4 + AD00C6BCB10000000000B6A59700A5928200D5CEC50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B3DEF500B3DEF500AD6D660000000000B3DEF5003399CC003399CC00B3DE + F500B3DEF500B3DEF500000000000000000098671D00FFEAC900000000000000 + 0000000000000000000000000000000000000000000000000000C2945700C294 + 5700C2945700C29457006D420000000000000000000000000000392A1A009485 + 700094857000D0C6BB005D4C3700FBC75700F6C15100EFBA4A00EBB44400E5AB + 3C0079685100FFFFFF0000000000000000008F7F6E00E3DED80041312300C1B7 + AB00C6BCB10000000000B6AA970000360800D5CEC50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000B3DEF500B3DEF500AD6D660000000000B3DEF500B3DEF500B3DE + F500B3DEF50000000000000000000000000098671D00FFEAC900FFEAC900FFEA + C900FFEAC900FFEAC900FFEAC900FFEAC900FFEAC900FFEAC900FFEAC900FFEA + C900FFEAC900FFEAC90098671D00000000000000000000000000392A1A009484 + 700094847000D0C6BB005D4C37005D4C37005D4C37005D4C37005D4C37005D4C + 37005D4C3700FFFFFF0000000000000000008C7C6B00E3DED80041312300C1B7 + AB00C8BAAE0000000000B1AA9C00A0978200D5CEC50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000B3DEF500B3DEF5000000000000000000000000000000 + 0000000000000000000000000000000000000000000098671D0098671D009867 + 1D0098671D0098671D0098671D0098671D0098671D0098671D0098671D009867 + 1D0098671D0098671D0098671D0000000000000000000000000000000000392A + 1A0094847000D0C6BB00D0C6BB00D0C6BB00D0C6BB00D0C6BB00D0C6BB00D0C6 + BB00D0C6BB00D0C6BB0000000000000000008B7B6A00E3DED80041312300C1B7 + AB00C6BCB10000000000B6A59C00A2948400D5CEC50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000B3DEF500B3DEF500B3DEF500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000392A1A00392A1A00392A1A00392A1A00392A1A00392A1A00392A1A00392A + 1A00392A1A00392A1A00000000000000000038291C00E3DED80083736200E3DE + D800E3DED800E3DED800E3DED800E3DED800D5CEC50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B3DEF50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000626162006261620062616200626162006261620062616200626162006261 + 6200626162006261620062616200626162000000000000000000000000004D75 + 6300141414001414140035483F00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004A84BD004A84BD0084BDFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000003037A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006261620000000000000000001414140075B4 + 7C0075B57C0075B57B0035483F00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004A84BD004A84BD0084BDFF00006B + 840000000000000000000000000000000000593A0E00FFDECF00915535009155 + 3500915535000000000003037A0003037A0003037A0003037A0003037A000303 + 7A00000000000000000000000000000000000000000000000000000000000000 + 00000808FF000000000044B8E9003CB5E7008000000027A4D900259FD3008000 + 00001D8EC1001A8ABC000000000062616200000000001414140077BA830079BC + 850078BD850079BC840035483F00000000000000000000000000141414001414 + 1400000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000216B004A84BD0084BDFF00006B + 8400006B8400000000000000000000000000593A0E00FFDECF00FFA09000FFA0 + 900091553500000000000000000003037A000000000000000000000000000000 + 000003037A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000626162004D7563007BC088007BC38C007DC4 + 8E007DC68F0035483F0035483F0000000000000000001414140074B47A0072B0 + 7500141414000000000000000000000000000000000000000000000000000021 + 6B00000000000000000000000000000000004A84BD004A84BD0084BDFF00006B + 8400006B8400006B84000000000000000000593A0E00FFDECF00FFDECF00FFDE + CF00FFA090000000000000000000000000000000000000000000000000000000 + 000003037A000000000000000000000000000000000000000000000000000000 + 0000E4E4E40000000000FFA83700FF9E340080000000FF732600FF6923008000 + 0000FF311000FF230B000000000062616200141414007EC791007FCB960081CD + 980035483F000000000000000000000000001414140079BF870077B9810073B4 + 790071AF7400141414000000000000000000000000004A84BD004A84BD000021 + 6B0000216B0000000000000000000000000000216B004A84BD0084BDFF00006B + 8400006B8400006B84000000000000000000593A0E00593A0E00593A0E00593A + 0E00593A0E00593A0E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E7E8E70000000000FFB13B00FFA7370080000000FF7D2900FF7125008000 + 0000FF3D1400FF2F0F0000000000626162001414140082CF9A0083D29E003548 + 3F00000000000000000000000000141414007FCA95007CC58E007ABF870076B8 + 7F0073B2790071AD730014141400000000000000000000216B004A84BD000021 + 6B0000216B0000216B0000000000000000004A84BD004A84BD0084BDFF00006B + 8400006B8400006B84000000000000000000000000000000000003037A000000 + 0000000000000000000003037A0003037A0003037A00000000000E395900CFFF + FF0059B7FE0059B7FE0059B7FE000000000000000000000000000000000046E3 + FF0046E3FF000000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000626162001414140085D6A20088DAA7003548 + 3F00000000000000000035483F0035483F0035483F00141414007DC48C0078BD + 840035483F0035483F0035483F0035483F00000000004A84BD004A84BD000021 + 6B0000216B004A84BD004A84BD004A84BD0000216B0000216B0000216B00006B + 8400006B8400006B840000000000000000000000000003037A0003037A000303 + 7A00000000000000000003037A0003037A0000000000000000000E395900CFFF + FF00CFFFFF00CFFFFF0090FFFF000000000046E3FF0000000000000000003C3C + 3C0046E3FF000000000046E3FF0046E3FF0080000000FFAA3800FFA035008000 + 0000FF752700FF6A230000000000626162001414140088DBA9008BE1AF003548 + 3F000000000000000000000000000000000000000000141414007EC892007AC0 + 880035483F000000000000000000000000000000000000216B004A84BD000021 + 6B004A84BD004A84BD0000216B00B3BDD30084BDFF0084BDFF0084BDFF000021 + 6B00006B8400006B84000000000000000000000000000000000003037A000000 + 0000000000000000000003037A000000000003037A00000000000E3959000E39 + 59000E3959000E3959000E3959000E3959003C3C3C0046E3FF00000000003C3C + 3C0046E3FF0046E3FF003C3C3C0046E3FF0080000000FFB33C00FFA837008000 + 0000FF7D2900FF7326000000000062616200141414008BE1AF008FE8B7003548 + 3F0000000000000000000000000000000000000000001414140080CB96007BC3 + 8C0035483F00000000000000000000000000000000004A84BD004A84BD000021 + 6B0000216B0000216B00DAEBFF000000DB00DAEBFF00DAEBFF00DAEBFF00DAEB + FF00B3BDD300B3D3DA00B3B3B30000000000000000000000000003037A000000 + 00000000000000000000000000000000000003037A0000000000000000000000 + 00000000000000000000000000000000000046E3FF003C3C3C00DAFAFF003C3C + 3C0046E3FF003C3C3C0046E3FF00000000000000000000000000000000000000 + 000000000000000000000000000062616200141414008EE5B40091ECBD007FC9 + 9300141414000000000000000000000000001414140072B0750081CD98007DC4 + 8E0035483F00000000000000000000000000000000004A84BD0000216B000021 + 6B0084BDFF00DAEBFF000000DB000000DB000000DB000000DB000000DB000000 + DB000000DB000000DB000000DB0000000000000000000000000003037A000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003C3C3C003C3C3C003C3C3C00DAFA + FF003C3C3C0046E3FF00F8F8F800F5F6F500EBECEB00E8E9E80000000000D9D8 + D900D4D5D400D0D0D00000000000626162004D7563007FC9930092EEBF0095F5 + C8007FC9930014141400141414001414140072B0750086D6A20081CD990072B0 + 75004D7563000000000000000000000000000000000000216B0084BDFF0084BD + FF0084BDFF0084BDFF00FFFFFF000000DB00DAEBFF00DAEBFF00DAEBFF00DAEB + FF00B3B3B300B3B3B30000000000000000000000000000000000000000000000 + 00000000000000000000000000000E395900CFFFFF0059B7FE0059B7FE0059B7 + FE000000000000000000000000000000000046E3FF00DAFAFF003C3C3C0046E3 + FF00DAFAFF003C3C3C003C3C3C003C3C3C0046E3FF0000000000000000000000 + 000000000000000000000000000000000000000000001414140091EDBD0094F3 + C40095F5C70094F3C40091EDBD008DE5B40089DCAA0085D4A10072B075003548 + 3F0000000000000000000000000000000000000000000000000084BDFF0084BD + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0084BDFF0084BDFF00000000000000 + 0000000000000000000000000000000000000E395900CFFFFF0059B7FE0059B7 + FE0059B7FE0000000000000000000E395900CFFFFF00CFFFFF00CFFFFF0090FF + FF0000000000000000000000000000000000DAFAFF003C3C3C0046E3FF003C3C + 3C0046E3FF003C3C3C0046E3FF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000141414007FC9 + 930092EFBF0091EDBD008EE8B7008BE1AF0087DAA70072B0750035483F000000 + 00000000000000000000000000000000000000000000000000000000000084BD + FF0084BDFF00FFFFFF00DAEBFF00DAEBFF00B3B3B300B3B3B300000000000000 + 0000000000000000DB0000000000000000000E395900CFFFFF00CFFFFF00CFFF + FF0090FFFF0000000000000000000E3959000E3959000E3959000E3959000E39 + 59000E3959000000000000000000000000003C3C3C0046E3FF00000000003C3C + 3C0046E3FF0046E3FF003C3C3C0046E3FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004D75 + 630035483F0035483F0035483F0035483F0035483F004D756300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000084BDFF00DAEBFF000000DB000000DB000000DB000000DB000000DB000000 + DB000000DB000000DB000000DB00000000000E3959000E3959000E3959000E39 + 59000E3959000E39590000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000046E3FF0000000000000000003C3C + 3C0046E3FF000000000046E3FF003C3C3C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000DB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003C3C + 3C0046E3FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000072727200000000007272720000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000072727200000000003E92D9000000000072727200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000400000004000000040000000 + 40000000400000004000000000000000000000000000000000008A8079008A80 + 79008A8079008A8079008A8079008A8079000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000072727200000000003E99D9003E99D9003F99D90000000000727272000000 + 0000000000000000000000000000000000000101950001019500010195000101 + 9500010195000101950001019500010195000101950001019500010195000101 + 9500010195000101950001019500010195004486B80094DAEC0075C5E20054B0 + D7002FA1D1000000400000000000000000000000830000000000BBA19000FFD8 + A400F0CB9F00DDBA9900CAA993008A8079000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007272 + 7200000000003E99D9003F9FE500000000004B9FE5004BA6E500000000007272 + 7200000000000000000000000000000000000101950000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000010195004486B80094DAEC0075C5E20054B0 + D7002FA1D1000000400000008300000083000000830000008300BBA19000FFD8 + A400F0CB9F00DDBA9900CAA993008A80790046160A0046160A0046160A004616 + 0A0046160A000000000000000000000000000000000000000000000000004616 + 0A0046160A0046160A0046160A0046160A000000000000000000727272000000 + 00003F99D9003F9FE50000000000D9F3FF00000000004CACE6004CACE6000000 + 0000727272000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004486B8004486B8004486B8004486 + B8004486B8004486B80000000000000000000000830000000000BBA19000BBA1 + 9000BBA19000BBA19000BBA19000BBA19000B6706000EDEDCC00F2997100F297 + 6D0046160A00000000000000000000000000000096000000000000000000B670 + 6000EDEDCC00F2997100F2976D0046160A000000000072727200000000003E99 + D9003F9FE50000000000D9F3FF00D9F3FF00D9F3FF000000000072D3FF0058B3 + E600000000007272720000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B6706000EDEDCC00F2997100F195 + 6C0046160A00000000000000960000009600000096000000960000000000B670 + 6000EDEDCC00F2997100F1956C0046160A0072727200000000003E99D9003F9F + E50000000000D9F3FF00D9F3FF00D9F3FF00D9F3FF00D9F3FF000000000065BF + F30065BFF2000000000072727200000000000E3959004194D3004194D3004194 + D3004194D3000E3959004194D3004194D3004194D3004194D3000E3959004194 + D3004194D3004194D3004194D300000000000000400000004000000040000000 + 4000000040000000400000000000000000000000000000000000090931000909 + 310009093100090931000909310009093100B6706000EDEDCC00F2976E00F195 + 690046160A00000000000000000000000000000096000000000000000000B670 + 6000EDEDCC00F2976E00F195690046160A00000000003E99D9003F99E5000000 + 00004BA6E50000000000D9F3FF00D9F3FF00D9F3FF00D9F3FF00D9F3FF000000 + 000065C6F30065BFF20000000000727272000E395900CFFFFF0059B7FE0059B7 + FE004194D3000E395900CFFFFF0059B7FE0059B7FE004194D3000E395900CFFF + FF0059B7FE0059B7FE004194D300000000004486B80094DAEC0075C5E20054B0 + D7002FA1D1000000400000000000000000000000830000000000232369009090 + FF007474F0005152DE003535CF0009093100B6706000EDEDCC00F1946A00F193 + 680046160A00000000000000000000000000000000000000000000000000B670 + 6000EDEDCC00F1946A00F193680046160A0000000000000000003F9FE5004BA6 + E5000000000072D3FF0000000000D9F3FF00D9F3FF00D9F3FF00D9F3FF00D9F3 + FF000000000065C6F30059BFF200000000000E395900CFFFFF0059B7FE0059B7 + FE004194D3000E395900CFFFFF0059B7FE0059B7FE004194D3000E395900CFFF + FF0059B7FE0059B7FE004194D300000000004486B80094DAEC0075C5E20054B0 + D7002FA1D1000000400000008300000083000000830000008300232369009090 + FF007474F0005252DE003535CF0009093100B6706000EDEDCC00F1946A00F191 + 660046160A00000000000000000000000000000000000000000000000000B670 + 6000EDEDCC00F1946A00F191660046160A0000000000000000000000000065C6 + F30065C6F3000000000072D3FF0000000000D9F3FF00D9F3FF00D9F3FF000000 + 000072CCF30065C6F30000000000000000000E395900CFFFFF00CFFFFF00CFFF + FF0090FFFF000E395900CFFFFF00CFFFFF00CFFFFF0090FFFF000E395900CFFF + FF00CFFFFF00CFFFFF0090FFFF00000000004486B8004486B8004486B8004486 + B8004486B8004486B80000000000000000000000830000000000232369002323 + 690023236900232369002323690023236900B6706000EDEDCC00F1946A00F191 + 660046160A00000000000000000000009600000000000000000000000000B670 + 6000EDEDCC00F1946A00F191660046160A000000000000000000000000000000 + 000065C6F30065C6F3000000000072D3FF0000000000D9F3FF000000000072D3 + FF0072CCF3000000000000000000000000000E3959000E3959000E3959000E39 + 59000E3959000E3959000E3959000E3959000E3959000E3959000E3959000E39 + 59000E3959000E3959000E3959000E3959000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B6706000EDEDCC00F1936800F090 + 650046160A00000000000000960000009600000096000000960000000000B670 + 6000EDEDCC00F1936800F090650046160A000000000000000000000000000000 + 00000000000065C6F30065C6F3000000000072D3FF000000000072D3FF0072D3 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000400000004000000040000000 + 40000000400000004000000000000000000000000000000000008A8079008A80 + 79008A8079008A8079008A8079008A807900B6706000EDEDCC00EDEDCC00EDED + CC0046160A00000000000000000000009600000000000000000000000000B670 + 6000EDEDCC00EDEDCC00EDEDCC0046160A000000000000000000000000000000 + 0000000000000000000065C6F30072CCF3000000000072D3FF0072D3FF000000 + 0000000000000000000000000000000000000101950000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000010195004486B80094DAEC0075C5E20054B0 + D7002FA1D1000000400000000000000000000000830000000000BBA19000FFD8 + A400F0CB9F00DDBA9900CAA992008A807900B6706000B6706000B6706000B670 + 6000B6706000000000000000000000000000000000000000000000000000B670 + 6000B6706000B6706000B6706000B67060000000000000000000000000000000 + 000000000000000000000000000065C6F30065CCF30072CCF300000000000000 + 0000000000000000000000000000000000000101950001019500010195000101 + 9500010195000101950001019500010195000101950001019500010195000101 + 9500010195000101950001019500010195004486B80094DAEC0075C5E20054B0 + D7002FA1D1000000400000008300000083000000830000008300BBA19000FFD8 + A400F0CB9F00DDBA9900CAA993008A8079000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000065C6F30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004486B8004486B8004486B8004486 + B8004486B8004486B80000000000000000000000830000000000BBA19000BBA1 + 9000BBA19000BBA19000BBA19000BBA190000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00CDC3E3009B99CD009995 + C7009795C3009799C500979BC7009797C7009B97CF009597CD009395CB009795 + CB009193C9009597C900C9C5DF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000002DB5000052FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004A4A + 4A004A4A4A00E7E7E700DEDEDE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFC7E300273DAF00213FCF002D47 + CF002B4BD1002745CB00274BCB002543CF002D3DD9001B3DCF00193FD900113B + DB00153FD7001B3BD500272FA100C1C1DB00000000000000000000000000002D + B5000052FF0000000000000000000052FF00008BFF0000000000000000000000 + 000000000000000000000000000000000000000000004A4A4A004A4A4A004A4A + 4A0000000000E7E7E70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000001A1A + BD00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000001A1A9100000000009BA3D3002949D3002B4FEB003B57 + E9004157F1004357E5004B67DB004361D7004B5FDB003F5BDB00314FEF001D47 + F7000F43EB00153FE7002D41CD00959BC7000000000000000000000000000052 + FF00008BFF000000000000000000000000000000000000000000000000000000 + 0000002DB5000052FF000000000000000000000000004A4A4A004A4A4A004A4A + 4A00E7E7E700D6D6D600FFFFFF0000000000E7E7E70000000000E7E7E700E7E7 + E70000000000E7E7E700E7E7E7000000000000000000000000001A1ABD001A1A + BD001A1A91007A7A7A007A7A7A007A7A7A007A7A7A007A7A7A007A7A7A007A7A + 7A007A7A7A007A7A7A007A7A7A007A7A7A009DA3DD003153E1003355F5004F61 + EF005F69E1008B97ED00C1D5FD00D3EDFF00D9F1FF00BDD9FD007D95EB003D5B + DD00274FF300113BE9002D45CD00919BC3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000052FF00008BFF0000000000000000000000000000000000000000000000 + 0000E7E7E700C6C6C600FFFFFF0000000000E7E7E7000000000000000000E7E7 + E7000000000000000000E7E7E700000000000000000033537D001A1ABD007D7D + FF001A1A91001A1A910033537D0033537D0033537D0033537D0033537D003353 + 7D0033537D001A1A910033537D007A7A7A009B9FDD003359E9003B5FFB005F6D + E300ABC3EF00CDE5FD00919FED006D7BE1006371DD00859FE700C3E5F90091B5 + ED002D51DF00113FE9001F43C9008B99C3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E7E7 + E700DEDEDE00B5B5B500FFFFFF0000000000E7E7E7000000000000000000E7E7 + E7000000000000000000E7E7E70000000000000000006493C400D9FFFF002D2D + FE001A1ABD001A1A91006DBEEA006DBEEA006DBEEA004DA3DF004DA3DF004DA3 + DF001A1A91004DA3DF0033537D007A7A7A00A1A7DF003D5FE5004B69F30093A5 + F100C9E1FB006D83DF005D69DF008191F5007585F1004D63E3005977DB00BDDB + FB007393EF00274FE900274BCB00919DC3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E7E7 + E700DEDEDE00B5B5B50000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000006493C400D9FFFF003353 + 7D002D2DFE001A1ABD001A1A910033537D0033537D0033537D0033537D001A1A + 91001A1ABD004DA3DF0033537D007A7A7A00A7AFDD004965E3005B71E300CFDD + FD009DADF100576DED00596BE9009FB3EB0099ADE3003D5FE3003353E7007D95 + E500B7D3FB003553D7002B49C900939FC3000000000000000000F3AE8F00F4AD + 8D00F3AA8A00F3AA8700F3AE8F00F4AD8D00F3AC8B00F4AD8D00F3AC8B00F3AA + 8A00F3AA8700F4A88500FFFFBE00C84628000000000000000000E7E7E700E7E7 + E700DEDEDE00C6C6C600A5A5A5008C8C8C007B7B7B00000000006BA500006B6B + 000000000000000000000000000000000000000000006493C400D9FFFF00A6ED + FF008DD9F6002D2DFE001A1ABD001A1A91006DBEEA006DBEEA001A1A91001A1A + BD004DA3DF004DA3DF0033537D007A7A7A00A9ABE1005567EF006577E300EFF7 + FF007F7DD900616FFB00556BEB00A5B3ED009FB1E5003D5FE7003957F1005561 + D900E1F5FF003955DB002B47D3009197C5000000000000000000FFFFBE00FFFF + BE00FFFFBE00FFFFBE00FFFFBE00FFFFBE00FFFFBE00FFFFBE00FFFFBE00FFFF + BE00FFFFBE00FFFFBE00FFFFBE00C84628000000000000000000E7E7E700E7E7 + E700DEDEDE00C6C6C6009C9C9C000000000073ADCE0073B5D6006BAD00006B6B + 000000639400000000000000000000000000000000006493C400D9FFFF003353 + 7D0033537D0033537D002D2DFE001A1ABD001A1A91001A1A91001A1ABD003353 + 7D0033537D004DA3DF0033537D007A7A7A00B1B1E7005D6DED006379E100EBFB + FF007D79D900596BF3005369EB00A5B3E700A1B3E5003B55E9003557F100455B + D700E3F7FF003557D9002747C9009599C5000000000000000000C8462800C846 + 2800C8462800C8462800C8462800C8462800C8462800C8462800C8462800C846 + 2800C8462800C8462800C8462800C846280000000000E7E7E700E7E7E700E7E7 + E700DEDEDE00B5B5B50000000000639C000073B5D6007BC6E70084BD10006B6B + 00000073AD00525200000000000000000000000000006493C400D9FFFF00A6ED + FF00A6EDFF00A6EDFF008DD9F6001A1A91001A1ABD001A1A91006DBEEA006DBE + EA006DBEEA006DBEEA0033537D007A7A7A00ADB1E100697FF3007189EF00D1E7 + FD009DABEF005B6BED00576BED00A1B1E5009FAFE3003953F3002F4FE9007397 + E700C9DBFD003D59E3002F45C500999BC5000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000009A2C1900B94C + 2E000000000000000000000000000000000000000000E7E7E700E7E7E700E7E7 + E700DEDEDE00ADADAD00000000007BB5080084CEEF0094D6F70094C631006363 + 0000007BBD005A5A00000000000000000000000000006493C400D9FFFF00A6ED + FF00A6EDFF0033537D001A1A91001A1ABD002D2DFE001A1ABD001A1A91003353 + 7D0033537D006DBEEA0033537D007A7A7A00ABB5DF006983ED00738BF700A7BD + F500D5E7FB007F91DF005D6DDD007991E5007383EB004759E700576BDD00C9E1 + FD00878DEF003B57ED002F49C9009395C5000000000000000000000000000000 + 000000000000002DB5000052FF00000000000000000000000000B94C2E00D788 + 6A0000000000000000000000000000000000E7E7E700E7E7E700E7E7E700E7E7 + E700DEDEDE00ADADAD00000000008CC6290094D6F70094D6F70094DE00006394 + 00000084C600636300000000000000000000000000006493C400D9FFFF00A6ED + FF00A6EDFF001A1A91001A1ABD001A1ABD008DD9F6008DD9F6002D2DFE001A1A + 91008DD9F6006DBEEA0033537D007A7A7A00A9B3DD007593F1007B91FD008595 + E700C3D1F300DBE9FB009FAFED00677BD700656DDB00879BE500D1E1FD00A9B9 + EF004555E9003157F1002B4BCB009599C50000000000000000009A2C1900B94C + 2E00000000000052FF00008BFF00000000000000000000000000000000000000 + 0000002DB5000052FF0000000000000000000000000000000000E7E7E700E7E7 + E700E7E7E700DEDEDE000000000094CE2100BDDEEF0021B5FF00429C5200009C + EF00009CEF00737300000000000000000000000000006493C400D9FFFF001A1A + 91001A1A91001A1ABD001A1ABD00A6EDFF00A6EDFF00A6EDFF00A6EDFF002D2D + FE001A1A91008DD9F60033537D007A7A7A00ADB1DD00839BED008FA5FD008B99 + F7008797E100A3B7EF00CFE1FD00E5EFFF00E5EFFF00D1E7FD008DA1E7005B71 + D7003D5BF3003763F3002F4DCB009397C3000000000000000000B94C2E00D788 + 6A00000000000000000000000000000000009A2C1900B94C2E00000000000000 + 00000052FF00008BFF0000000000000000000000000000000000000000000000 + 0000E7E7E700E7E7E700E7E7E70073AD00006394000021B5FF0000639400429C + 520063940000639400000000000000000000000000006493C4002D2DFE007D7D + FF001A1ABD001A1ABD00D9FFFF00D9FFFF00D9FFFF00D9FFFF00D9FFFF00D9FF + FF002D2DFE001A1A910033537D007A7A7A00B9B5E10097ABF5009FB9FF008F9F + F9008595F9007791F7007F99E900838FE7007F8DE7007B8DE3006371EF005D6F + F1004B67F7003D5DEB002F4BCB009797C5000000000000000000000000000000 + 0000002DB5000052FF000000000000000000B94C2E00D7886A00000000000000 + 000000000000000000009A2C1900B94C2E000000000000000000000000000000 + 00000000000000000000E7E7E7000000000042B5EF00FFFFFF0021638C002184 + B50000000000000000000000000000000000000000006493C4002D2DFE002D2D + FE002D2DFE006493C4006493C4006493C4006493C4006493C4006493C4006493 + C4006493C4006493C4001A1A910000000000D9D5E9008393E5007FA5FF007791 + FB007585F900657BFD005F7FF3006577F9006575F500616FEF004F69F5005167 + FB003D5FF7003955EB00374DBF00C9C3E3000000000000000000000000000000 + 00000052FF00008BFF0000000000000000000000000000000000000000000000 + 00000000000000000000B94C2E00D7886A000000000000000000000000000000 + 00000000000000000000000000000000000000000000639400000000000021B5 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00DDD5F100B5BDE500B5B7 + E300B7B3E100B3B3E700AFB3E300B3B3E700AFAFE300B5B3E500A7ADDF00ABAF + E300A7ABE500A3A9DF00C9C5E500FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000606060006060 + 6000606060006060600060606000606060006060600060606000606060006060 + 6000606060006060600060606000606060000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000088D3EB0054BBDE00006BB000005AA4000000 + 000000000000000000000000000000000000FFFFFF00DEDEDE00B8B1AF00B8B1 + AF00B8B1AF00B8B1AF00B8B1AF0075635C0075635C0075635C0075635C007563 + 5C0075635C00CFC6C200000000006B595200674B30003F0F0F003F0F0F003F0F + 0F003F0F0F000B2134000B2134000B2134000B2134000B2134000B2134000B21 + 34000B2134000B2134000B213400606060000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000007B00000042000000000000000000000000000000 + 00000000000088D3EB0054BBDE0035A8D40000000000000000001B95CA00005A + A400005AA400000000000000000000000000FFFFFF00DEDEDE00DE000000B8B1 + AF00B8B1AF00B8B1AF00B8B1AF0075635C0075635C0075635C0075635C007563 + 5C0075635C00CFC6C200000000006B595200674B3000E3AF7200C28A5300A86E + 3B003F0F0F00BBCBD100B0C4CD00A1B9C6008DAEBD007AA2B5006497AE004B89 + A600307A9D00176F95000B213400606060000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000007B0000007B00000000000000000000000000000000000000 + 000054BBDE0035A8D40000000000000000000000000000000000000000000000 + 000088D3EB001B95CA000000000000000000FFFFFF00DEDEDE00B8B1AF00DE00 + 0000DE000000DE000000B8B1AF0075635C0075635C0075635C0075635C007563 + 5C0075635C00CFC6C200000000006B595200674B3000E3AF7200C28A5300A86E + 3B003F0F0F00BBCBD100B0C4CD00A1B9C7008DAEBE007AA2B6006496AE004B89 + A600307A9D00176F95000B213400606060000000000000000000000000000000 + 0000004A6B004ABDFF00007BBD00000000000000000000000000000000000000 + 000000007B0000007B0000000000000000000000000000000000000000000000 + 000000000000000000001B95CA00005AA4000000000000000000000000000000 + 0000000000001B95CA000000000000000000FFFFFF00DEDEDE00B8B1AF00DE00 + 0000B8B1AF00B8B1AF00B8B1AF0075635C0075635C0075635C0075635C007563 + 5C0075635C00CFC6C200000000006B595200674B30003F0F0F003F0F0F003F0F + 0F003F0F0F0020415E0020415E0020415E0020415E0020415E0020415E002041 + 5E0020415E0020415E000B2134006060600000000000007BBD004ABDFF000000 + 0000004A6B004ABDFF00000000000094DE00373737005E7B4D005E5E2200C4C4 + 88000000000000007B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000001B95CA00005AA400000000000000 + 000035A8D400000000000000000000000000FFFFFF00DEDEDE00DE000000B8B1 + AF00B8B1AF00A87A1B00A87A1B0075635C0075635C0075635C0075635C007563 + 5C0075635C00CFC6C200000000006B595200674B3000E3AF7200C28A5300A86E + 3B003F0F0F00BBCBD100B0C4CD00A1B9C6008DAEBD007AA2B5006497AE004B89 + A600307A9D00176F95000B2134006060600000000000007BBD00B5E7FF004ABD + FF004ABDFF0000ADFF0000ADFF005959590085A37500718F2B0071710000D7D7 + 6600C4C488000000000000000000000000000000000000000000000000000000 + 0000000000000000000088D3EB000067AD0088D3EB001B95CA00000000000000 + 0000005AA400000000000000000000000000FFFFFF00DEDEDE00B8B1AF00A87A + 1B00A87A1B00DE9400000000000075635C0075635C0075635C0075635C007563 + 5C0075635C00CFC6C200000000006B595200674B3000E3AF7200C28A5300A86E + 3B003F0F0F00BBCBD100B0C4CD00A1B9C7008DAEBE007AA2B6006496AE004B89 + A600307A9D00176F95000B2134006060600000000000007BBD000094DE004ABD + FF00007BBD000000000000ADFF0059595900858522007171000071710000D7D7 + 6600D7D766000000000000000000000000000000000000000000000000000000 + 000088D3EB000067AD00A69A7900A2967400004D9A001B95CA000171B400005A + A400005AA400000000000000000000000000FFFFFF00FFD68C00A87A1B00DE94 + 00000000000075635C0075635C0075635C0075635C0075635C0075635C007563 + 5C0075635C00CFC6C200000000006B595200674B30003F0F0F003F0F0F003F0F + 0F003F0F0F0020415E0020415E0020415E0020415E0020415E0020415E002041 + 5E0020415E0020415E000B21340060606000007BBD004ABDFF004ABDFF00007B + BD004ABDFF00004A6B00000000005959590071AD7B0099B79C0099B79C008585 + 4A00C4C48800000000000000000000000000000000000000000088D3EB000067 + AD00B3A88700B6AC8A00B7AC8A00B3A98600ADA27F0088D3EB000171B40035A8 + D400005AA400000000000000000000000000FFFFFF00FFF7D60000000000BAAE + A90075635C0075635C0075635C0075635C0075635C0075635C0075635C007563 + 5C0075635C00CFC6C200000000006B595200674B3000E3AF7200C28A5300A86E + 3B003F0F0F00BBCBD100B0C4CD00A1B9C6008DAEBD007AA2B5006497AE004B89 + A600307A9D00176F95000B21340060606000007BBD00B5E7FF004ABDFF00007B + BD004ABDFF00004A6B000000000000ADFF0059595900718F2B00718F2B005E5E + 1400373737000000000000000000000000000000000000000000004D9A00BAAF + 8E00C2B79600C6BC9C00C6BC9C00C1B89600BAAF8E00004D9A001B95CA000000 + 000000000000000000000000000000000000000000000000000000000000BA77 + 0000BA770000BAAEA90075635C0075635C0075635C0075635C0075635C007563 + 5C0075635C00CFC6C200000000006B595200674B3000E3AF7200C28A5300A86E + 3B003F0F0F00BBCBD100B0C4CD00A1B9C7008DAEBE007AA2B6006496AE004B89 + A600307A9D00176F95000B2134006060600000000000007BBD000094DE004ABD + FF00007BBD000000000000ADFF00808080000000000059595900595959005959 + 590000000000000000000000000000000000000000000000000088D3EB00C6BC + 9C00CFC6A600D5CCAD00D5CCAD00CFC6A700C6BC9C00BAAF8E0088D3EB001B95 + CA00000000000000000000000000000000000000000000000000000000007563 + 5C0075635C00BA770000BA770000BAAEA90075635C0075635C00BAAEA900BAAE + A90075635C00CFC6C200000000006B595200674B30003F0F0F003F0F0F003F0F + 0F003F0F0F0020415E0020415E0020415E0020415E0020415E0020415E002041 + 5E0020415E0020415E000B2134006060600000000000007BBD004ABDFF004ABD + FF004ABDFF0000ADFF0000ADFF0000ADFF00004A6B00004A6B00000000000000 + 000000000000000000000000000000000000000000000000000000000000004D + 9A00DBD2B400E2DABC00E2DABC00DBD2B300D0C6A600C1B79600004D9A001B95 + CA00005AA4000000000000000000000000000000000000000000000000000000 + 000075635C0075635C0075635C00BA770000BA770000BAAEA90000000000BA77 + 000000000000BAAEA900000000006B595200674B3000E3AF7200C28A5300A86E + 3B003F0F0F00BBCBD100B0C4CD00A1B9C6008DAEBD007AA2B5006497AE004B89 + A600307A9D00176F95000B2134006060600000000000007BBD00B5E7FF000000 + 0000004A6B004ABDFF00000000000094DE00004A6B00004A6B00000000000000 + 00000000000000000000000000000000000000000000000000000000000088D3 + EB00E2DABD00ECE4C700ECE4C700E2DABC00D5CCAD00C6BC9B00B6AC8A0088D3 + EB001B95CA000000000000000000000000000000000000000000000000000000 + 0000000000000000000075635C0075635C0075635C00BA770000BA770000BA77 + 0000BA770000EEAE00009A5900006B595200674B3000E3AF7200C28A5300A86E + 3B003F0F0F00BBCBD100B0C4CD00A1B9C7008DAEBE007AA2B6006496AE004B89 + A600307A9D00176F95000B213400606060000000000000000000007BBD00007B + BD00007BBD00B5E7FF00007BBD00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000004D9A00ECE4C700ECE4C700E2DABD00D5CCAD00C6BC9C00B6AC8B00004D + 9A001B95CA00005AA40000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000075635C0075635C0075635C00BA77 + 0000BA770000EEAE00009A5900006B595200674B3000674B3000674B3000674B + 3000674B30002C5273002C5273002C5273002C5273002C5273002C5273002C52 + 73002C5273002C5273002C527300000000000000000000000000000000000000 + 0000007BBD00007BBD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000088D3EB00E2DABC00E2DABC00DBD2B400D0C6A600C1B79600B3A88700A296 + 740088D3EB001B95CA0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000075635C007563 + 5C0075635C00BA7700009A5900006B5952000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000088D3EB0088D3EB0088D3EB0088D3EB0088D3EB0088D3EB0088D3 + EB0088D3EB001B95CA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000075635C0091817A00CFC6C2006B5952000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000072727200727272007272 + 7200727272007272720072727200727272007272720072727200727272007272 + 7200727272007272720072727200727272000000000000000000606060003C35 + 2A00395A6000395A6000395A6000395A60004894A2004894A2004894A2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000727272000000000000000000000000003C35 + 2A00253C4000253C4000253C4000253C4000253C4000253C40004894A2004894 + A200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000008ABC008B61530000000000000000000000 + 0000000000000000000000000000000000000000000072CCF3006FCAF2002A45 + 0D0067C2EE0063BDEC005FB9E9005AB4E70056B0E50051ACE3004DA7E00048A3 + DE00449FDD00419CDA0000000000727272000000000000000000B79E71003C35 + 2A003C352A007BB2BC007BB2BC007BB2BC005FDFF6005FDFF600253C4000253C + 40004894A2000000000000000000000000000000000000000000959595000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000008ABC000000000000000000009CDB009771640000000000000000007847 + 3800000000001C06030000000000000000000000000072CCF3006FCAF2002A45 + 0D0067C2EE0063BDEC005FB9E9001E3548001E3548001E3548001E3548001E35 + 48001E354800419BDA00000000007272720000000000B79E7100B79E71003C35 + 2A00665941003C352A007BB2BC007BB2BC005FDFF6005FDFF6005FDFF600253C + 4000253C40000000000000000000000000000000000000000000A5A5A500A5A5 + A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5A500A5A5 + A500A5A5A50000000000000000000000000000000000000000000000000000AF + FF00009CDB00008ABC00008ABC00009CDB00977164009771640091695C008B61 + 53008B6153000000000000000000000000000000000072CCF3006FCAF2002A45 + 0D0067C2EE0063BDEC005FB9E9001E354800D9F3FF00D9F3FF00D9F3FF00D9F3 + FF001E354800409BDA00000000007272720000000000B79E7100000000003C35 + 2A006659410066594100253C4000253C4000253C4000253C4000253C40004F4F + FF0030305B004747C20000000000000000000000000000000000B4B4B300B4B4 + B300820B0000820B0000820B0000820B0000820B0000820B0000820B0000B4B4 + B300B4B4B3000000000000000000000000000000000000000000000000000000 + 000000AFFF00009CDB00009CDB005FBCFF00D1B9B2009771640097716400713D + 2F00000000000000000000000000000000000000000072CCF3006FCAF2002A45 + 0D0067C2EE0063BDEC005FB9E9001E354800D9F3FF00D9F3FF00D9F3FF00D9F3 + FF001E354800419BDA0000000000727272000000000000000000E8C99200E8C9 + 92003C352A006659410030305B004F4FFF004F4FFF004F4FFF004F4FFF004F4F + FF0030305B004747C20000000000000000000000000000000000C4C4C400C3C3 + C400C3C3C400C3C4C400C4C4C300C4C3C300C4C4C300C4C3C300C3C4C400C4C3 + C400C3C3C4000000000000000000000000000000000000000000000000000000 + 00000057770000AFFF00008ABC000000000000000000D1B9B200977164005F2B + 1F0000000000000000000000000000000000000000002A450D002A450D002A45 + 0D002A450D002A450D005FB9E9001E354800D9F3FF00D9F3FF00D9F3FF00D9F3 + FF001E354800419BDA00000000007272720000000000E8C99200E8C99200E8C9 + 9200E8C992003C352A0030305B004F4FFF004F4FFF004F4FFF004F4FFF004F4F + FF0030305B004747C20000000000000000000000000000000000D2D2D200D2D2 + D200820B0000820B0000820B0000820B0000820B0000820B0000820B0000D2D2 + D200D2D2D200000000000000000000000000000000000000000000AFFF0000AF + FF0000AFFF00009CDB0000000000000000000000000000000000D1B9B200885D + 4F007F5041006834270000000000000000000000000072CCF3006FCAF2002A45 + 0D0067C2EE0063BDEC005FB9E9001E354800D9F3FF00D9F3FF00D9F3FF00D9F3 + FF001E354800409CDA00000000007272720000000000E8C99200E8C99200E8C9 + 9200E8C99200E8C9920030305B004F4FFF004F4FFF004F4FFF004F4FFF004F4F + FF0030305B004747C20000000000000000000000000000000000E0E0E000E0E0 + E000E0E0E000E0E0E000E0E0E000E0E0E000E0E0E000E0E0E000E0E0E000E0E0 + E000E0E0E0000000000000000000000000000000000000000000B5E5FF00B5E5 + FF00B5E5FF00008ABC0000000000000000000000000000000000B99D94009771 + 640097716400977164000000000000000000000000002A450D002A450D002A45 + 0D002A450D002A450D005FB9E9001E3548001E3548001E3548001E3548001E35 + 48001E354800409CDA00000000007272720000000000E8C99200E8C99200E8C9 + 9200E8C99200E8C9920030305B004F4FFF004F4FFF004F4FFF004F4FFF004F4F + FF0030305B004747C20000000000000000000000000000000000EDEDED00EDED + ED00820B0000820B0000820B0000820B0000820B0000820B0000820B0000EDED + ED00EDEDED000000000000000000000000000000000000223800000000000000 + 00000057770000AFFF00008ABC0000000000000000007C4B3D00A17F7400632F + 2300000000000000000000000000000000000000000072CCF3006FCAF2002A45 + 0D0067C2EE0063BDEC005FB9E9001E35480056B1E50051ACE3004CA8E00048A3 + DE001E354800419CDA0000000000727272000000000000000000E8C99200E8C9 + 9200E8C99200E8C9920030305B004F4FFF004F4FFF004F4FFF004F4FFF003030 + 5B0030305B0030305B0000000000000000000000000000000000F7F7F700F7F7 + F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F7000000000000000000000000000000000000000000000000000000 + 00005FBCFF005FBCFF005FBCFF00009CDB0097716400A17F7400A17F7400A17F + 7400000000000000000000000000000000000000000072CCF3002A450D006CC6 + F0002A450D0063BDEC005FB9E9001E3548001E3548001E3548001E3548001E35 + 48001E354800419BDB0000000000727272000000000000000000000000000000 + 0000E8C99200E8C9920030305B0030305B0030305B0030305B0030305B004141 + 7E0041417E0041417E0000000000000000000000000000000000FFFFFF00FFFF + FF00820B0000820B0000820B0000820B0000820B0000820B0000820B0000FFFF + FF00FFFFFF00000000000000000000000000000000000000000000000000B5E5 + FF0000AFFF005FBCFF005FBCFF005FBCFF00B99D9400B99D9400E2D0C900B99D + 9400A17F7400000000000000000000000000000000002A450D006FCAF2006CC6 + F00067C2EE002A450D005FB9E9005AB5E70056B1E50051ACE3004DA7E10048A4 + DE00449FDC00409BDA0000000000727272000000000000000000000000000000 + 00000000000000000000000000000000000041417E0041417E0041417E004141 + 7E0041417E0041417E0000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000000000000000000000000000000000000016000B000000 + 0000B5E5FF0000000000225F7700B5E5FF00B99D9400713D2F0000000000E2D0 + C900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000041417E0041417E004141 + 7E0041417E000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000001600 + 0B00000000000000000000000000B5E5FF00E2D0C90000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000041417E004141 + 7E00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000775D3A004C3318004C3318004C3318005151 + 5100414141000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000775D3A008D745100937B5800624C30004C33 + 18005F5F5F006060600041414100000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000425B5000141414001414 + 14005A8A75000000000000000000000000000000000000000000A3A3A3008B8B + 8B00A3A3A3000000000000000000000000000000000000000000000000000000 + 000000000000BABABA00ABABAB00000000000000000072727200727272007272 + 7200727272007272720072727200727272007272720072727200727272007272 + 7200727272007272720072727200727272000000000000000000000000000000 + 0000000000000000000021110500947C5A008D745100937B5800624C30004C33 + 1800606060006F6F6F007D7D7D00414141000000000000000000000000000000 + 00000000000000000000000000000000000000000000425B500073B1770072AE + 730070AC700014141400000000000000000000000000B2B2B2002A2AD1005C5C + 5C0074747400A3A3A30000000000000000000000000000000000000000000000 + 0000000000002A2AB000B2B2B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000727272000000000000000000000000000000 + 00000000000000000000231205009A836100937B58009A836100624C30004D34 + 19006E6E6E007D7D7D0060606000000000000000000000000000000000000000 + 00001414140014141400000000000000000000000000425B500076B87E0074B4 + 7A0072B0760070AC71001414140000000000000000002A2AD1002A2AD1002A2A + B000545454007B7B7B0000000000000000000000000000000000000000000000 + 0000ABABAB00A3A3A300BABABA00000000000000000095D9F60093D7F5002A45 + 0D008DD1F2008ACEF10087CBEF0083C7ED0080C4EC007DC1EA007ABDE80076BA + E60073B7E60071B5E30000000000727272000000000000000000000000000000 + 0000000000000000000023120500A28C6B009A836100A18B6900766042005D43 + 25005D4325007E7E7E007E7E7E00414141000000000000000000000000001414 + 14007DC790007EC89200141414000000000000000000425B5000425B500077BB + 820075B67C0073B0760071AC71005A8A7500000000002A2AD1009F9FFF002A2A + B0002A2AB000646464009B9B9B0000000000000000000000000000000000A3A3 + A3002A2AB000A3A3A30000000000000000000000000095D9F60093D7F5002A45 + 0D008DD1F2008ACEF10087CBEF0083C8ED0080C5EC007DC1EA007ABDE90076BB + E60073B7E50070B4E3000000000072727200000000000000B100000000000000 + 0000000000000000000038220E0099836300A8937200A89372007E674900B6A3 + 84006E54320023232300414141002323230000000000000000001414140080CB + 960082CF990083D19C0083D19D0014141400000000000000000000000000425B + 500079BC840075B57C0073B075001414140000000000000000004545FE002A2A + D1002A2AB0005C5C5C0074747400A3A3A3000000000000000000A3A3A3002A2A + B00083838300B2B2B20000000000000000000000000095D9F60093D7F5002A45 + 0D008DD1F2008ACEF10087CBEF005B7181005B7181005B7181005B7181005B71 + 81005B71810070B4E30000000000727272000000B1000000B1000000B1000000 + 0000A18B6900563C1F00BCAA8E00A9947600B6A38400B6A384008D775800BDAB + 8F006F553300000000000000000000000000000000001414140081CE990084D2 + 9E0086D6A30087D8A60088D9A60087D8A6001414140000000000000000000000 + 0000425B500078BB820074B47B00141414000000000000000000000000004545 + FE002A2AD1002A2AB0005C5C5C00747474009B9B9B009B9B9B002A2AB0002A2A + D100A3A3A3000000000000000000000000000000000095D9F60093D7F5002A45 + 0D008DD1F2008ACEF10087CBEF0083C8ED0080C5EC007DC1EA007ABDE90076BB + E60073B7E50070B4E3000000000072727200000000000000B1000000B1000000 + B1006E543200A18B6900C2B29700B09D7F00C2B29700BCAA8E0096816100CFC2 + AB007D644100000000000000000000000000425B5000425B5000425B5000425B + 500089DEAC008BE1AF0014141400425B5000425B5000425B5000000000000000 + 0000425B50007ABF880077B87F00141414000000000000000000000000000000 + 00004545FE002A2AD1002A2AB0005C5C5C00646464002A2AB0002A2AD100A3A3 + A30000000000000000000000000000000000000000002A450D002A450D002A45 + 0D002A450D002A450D0087CBEF005B7181005B7181005B7181005B7181005B71 + 81005B71810070B4E300000000007272720000000000000000000000B1000000 + B1000000B100A9947300CFC2AB00C0B09500C9BAA100C9BAA1009E896B00A893 + 7200866D4900000000000000000000000000000000000000000000000000425B + 50008EE6B4008FE9B90014141400000000000000000000000000000000000000 + 0000425B50007CC38C0078BB8300141414000000000000000000000000000000 + 0000000000004545FE002A2AD1002A2AB0002A2AB0002A2AD1008B8B8B000000 + 0000000000000000000000000000000000000000000095D9F60093D7F5002A45 + 0D008DD1F2008ACEF10087CBEF0083C8ED0080C5EC007DC1EA007ABDE90076BB + E60073B7E50070B4E30000000000727272000000000000000000000000000000 + B1000000B1000000B100D5C9B500C8B9A000E8E0D400CFC2AB00A8937200A18B + 6900AF9B7B00000000000000000000000000000000000000000000000000425B + 500091EDBD0093F1C20014141400000000000000000000000000000000000000 + 0000425B50007DC6900079BE8600141414000000000000000000000000000000 + 000000000000A3A3A3002A2AB0002A2AD1002A2AB0006B6B6B007B7B7B00A3A3 + A30000000000000000000000000000000000000000002A450D002A450D002A45 + 0D002A450D002A450D0087CBEF00BF6F4C00BF6F4C00BF6F4C00BF6F4C00BF6F + 4C00BF6F4C0070B4E30000000000727272000000000000000000000000000000 + 00000000B1000000B100C9BAA100C9BAA100765C3900664B2B009A8361006E54 + 320000000000000000000000000000000000000000000000000000000000425B + 500093F2C20096F8C9007FC99300141414000000000000000000000000001414 + 140074B47B007EC892007BC0870014141400000000000000000000000000B2B2 + B2009B9B9B002A2AB0002A2AD1004545FE002A2AD1002A2AB0007B7B7B007B7B + 7B00A3A3A3000000000000000000000000000000000095D9F60093D7F5002A45 + 0D008DD1F2008ACEF10087CBEF0083C8ED0080C5EC007DC1EA007ABDE90076BB + E60073B7E50070B4E3000000000072727200000000000000B100000000000000 + B1000000B1000000B10039230E008C735000765C39007D644100211105000000 + 0000000000000000000000000000000000000000000000000000000000005A8A + 75007FC9930098FACD009AFFD3007FC9930014141400141414001414140074B4 + 7B0083D19D007FC9930074B47B005A8A75000000000000000000A3A3A3007B7B + 7B002A2AB0002A2AD1002A2AD100A3A3A300000000004545FE002A2AB0007B7B + 7B007B7B7B00A3A3A30000000000000000000000000095D9F6002A450D0093D7 + F5002A450D008DD1F2008ACEF10083C8ED0080C5EC007DC1EA007ABDE90076BB + E60073B7E50070B4E3000000000072727200000000000000B1000000B1000000 + B1000000B1000000000000000000BDAB8F00A8937200AF9B7B004C3318000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000425B500096F7CA0098FACD0096F7CA0093F1C30090EAB9008BE0B00087D8 + A50082D09C007FC99200141414000000000000000000B2B2B2002A2AB0002A2A + B0002A2AD1002A2AD100A3A3A3000000000000000000000000004545FE002A2A + B000838383008B8B8B00ABABAB0000000000000000002A450D0093D7F50091D4 + F4008DD1F2002A450D0087CBEF0083C8ED0080C5EC007DC1EA007ABDE90076BB + E60073B7E50070B4E3000000000072727200000000000000B1000000B1000000 + B100000000000000000000000000B6A38400E8E0D400CFC2AB004C3318000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000425B50007FC9930093F1C20090ECBD008DE5B40089DDAC0086D6 + A20074B47B00141414000000000000000000000000004545FE009F9FFF002A2A + D1002A2AD100A3A3A30000000000000000000000000000000000000000004545 + FE002A2AB000A3A3A300A3A3A300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000B1000000B1000000 + B1000000B1000000000000000000000000006F5533005D432500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000005A8A7500425B5000425B5000425B5000425B5000425B + 50005A8A7500000000000000000000000000000000004545FE004545FE004545 + FE00B2B2B2000000000000000000000000000000000000000000000000000000 + 0000000000002A2AB000BABABA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000060000000600000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004B4B4B004B4B4B004B4B4B00828282008282 + 8200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 600000008F000000600000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004B4B4B004B4B4B0082828200828282009E9E9E004B4B4B008282 + 8200828282008282820000000000000000000000000000000000606060006060 + 6000606060006060600060606000606060006060600060606000000060000000 + 8F000000FF00000060000000600000006000232369009090FF007373F0005252 + DE003535CF0000000000000000000000000000000000000000005B402E00FFB8 + 5A00E4A05000C18146009E633A00000000000000000072727200727272007272 + 7200727272007272720072727200727272007272720072727200727272007272 + 7200727272007272720072727200727272000000000000000000000000004B4B + 4B004B4B4B0082828200828282004B4B4B00FFE4D5004B4B4B00919191008282 + 8200919191009191910091919100919191000000000000000000000000000000 + 000000000000000000000000000000000000000000000000600000008F000000 + FF000000FF0000008F0000008F0000006000232369009090FF007374F0005252 + DE003535CF0000000000000000000000000000000000000000005B402E00FFB8 + 5A00E4A05000C18145009E633A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000072727200000000004B4B4B004B4B4B008282 + 8200828282004B4B4B00FFE4D500FFE4D500FFE4D5004B4B4B00ABABAB004B4B + 4B009191910091919100919191000000000000000000F0F0F000F0F0F000BF7F + 7F00FFDFA000FFD0A000BF7F7F00FFC09F00000060009090FF000000FF000000 + FF000000FF000000FF0000008F00000060002323690023236900232369002323 + 69002323690023236900000000000000000000000000000000005B402E005B40 + 2E005B402E005B402E005B402E005B402E0000000000F3F1EF00EFEDE900E9E6 + E100E1DDD600D9D4CC00D0CBC200C8C3B800C1BAAE00B9B1A400B1A89A00A89F + 8F00A09685009A8F7E0000000000727272004B4B4B008282820000ADFF00004A + 6B00004A6B00FFE4D500FFD6BE00FFC49D00FFD6BE00FFE4D5004B4B4B009191 + 91009191910000000000000000000000000000000000F0F0F000F0F0F000BF7F + 7F00FFDFAF00FFDFA000BF7F7F00FFCF9F00FFC09F00000060009090FF000000 + FF009090FF009090FF009090FF00000060000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F3F1EF00615543006155 + 4300615543006155430061554300615543006155430061554300615543006155 + 4300615543009B8F7E00000000007272720000ADFF000000000000ADFF000000 + 00000094DE00004A6B0000000000FFE4D500FFC49D00FFC49D003F3F3F00ABAB + AB004B4B4B0000000000000000000000000000000000BF7F7F00BF7F7F00BF7F + 7F00BF7F7F00BF7F7F00BF7F7F00BF7F7F00BF7F7F00BF7F7F00000060009090 + FF009090FF000000600000006000000060000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F3F1EF0061554300EFED + E900EFEDE900EFEDE900EFEDE900EFEDE900EFEDE900EFEDE900EFEDE900EFED + E900615543009B907E000000000072727200000000004ABDFF0000639C0000AD + FF000000000000000000FFC49D00FFC49D00FFE4D500FFE4D500FFE4D5004B4B + 4B009191910000000000000000000000000000000000F0F0F000F0F0F000BF7F + 7F00FFDFA000FFD0A000BF7F7F00FFC09F00FFC09F00BF7F7F00FFC09F000000 + 60009090FF00000060000000000000000000232369009090FF007474F0005152 + DE003535CF0000000000000000000000000000000000000000005B402E00FFB8 + 5A00E4A05000C18146009F633A000000000000000000F3F1EF0061554300EFED + E900EFEDE900EFEDE900EFEDE900EFEDE900EFEDE900EFEDE900EFEDE900EFED + E900615543009A8F7E00000000007272720000ADFF00007BBD0000ADFF000000 + 00000094DE00004A6B00004A6B0000ADFF00004A6B00004A6B00FFD6BE004B4B + 4B00ABABAB004B4B4B00000000000000000000000000F0F0F000F0F0F000BF7F + 7F00FFDFAF00FFDFA000BF7F7F00FFCF9F00FFC09F00BF7F7F00FFC09F00FFC0 + 9F0000006000000060000000000000000000232369009090FF007474F0005252 + DE003535CF0000000000000000000000000000000000000000005B402E00FFB8 + 5A00E4A05000C18146009E633A000000000000000000F3F1EF0061554300EFED + E900EFEDE900EFEDE900EFEDE900EFEDE900EFEDE900EFEDE900EFEDE900EFED + E900615543009A8F7E000000000072727200007BBD00007BBD0000639C000000 + 00000000000000ADFF000000000000ADFF00000000000094DE00004A6B000000 + 00004B4B4B00B6B6B600000000000000000000000000BF7F7F00BF7F7F00BF7F + 7F00BF7F7F00BF7F7F00BF7F7F00BF7F7F00BF7F7F00BF7F7F00BF7F7F00BF7F + 7F00000000006060600000000000000000002323690023236900232369002323 + 69002323690023236900000000000000000000000000000000005B402E005B40 + 2E005B402E005B402E005B402E005B402E0000000000F3F1EF00615543006155 + 4300615543006155430061554300615543006155430061554300615543006155 + 4300615543009A8F7E00000000007272720000ADFF004ABDFF004ABDFF0000AD + FF000094DE00000000004ABDFF0000639C0000ADFF0000000000000000004B4B + 4B00ABABAB00E9E9E9004B4B4B000000000000000000F0F0F000F0F0F000BF7F + 7F00FFEFAF00FFEFAF00BF7F7F00FFDFAF00FFD0A000BF7F7F00FFC09F00FFC0 + 9F00000000006060600000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F3F1EF0061554300D3C3 + A800D0BC9E00CCB49100C7AC8400C5A57A00C19E7000BC976700B98E5D00B488 + 5400615543009A907E000000000072727200007BBD00000000004ABDFF00004A + 6B00007BBD0000ADFF00007BBD0000ADFF00000000000094DE00004A6B00004A + 6B004B4B4B004B4B4B00000000000000000000000000FFFFFF00FFFFFF00BF7F + 7F00FFEFAF00FFEFAF00BF7F7F00FFDFAF00FFDFA000BF7F7F00FFCFA000FFC0 + 9F00000000006060600000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F3F1EF00615543006155 + 4300615543006155430061554300615543006155430061554300615543006155 + 4300615543009A8F7E0000000000727272000000000000000000007BBD000000 + 000000000000007BBD00007BBD0000639C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000606060000000000000000000232369009090FF007474F0005152 + DE003535CF0000000000000000000000000000000000000000005B402E00FFB8 + 5A00E4A15000C18146009E6339000000000000000000F3F1EF00EEEDE900E9E5 + E000E2DDD600D9D4CC00D1CBC200C8C2B700C1BAAE00B9B2A300B1A89900A89F + 8F00A09786009A8F7F0000000000727272000000000000000000000000003535 + 3500ABABAB0000ADFF004ABDFF004ABDFF0000ADFF000094DE00004A6B000000 + 000000000000000000000000000000000000000000000000F0000000EF000000 + EF000000E0000000DF000000D0000000CF000000C0000000BF000000B0000000 + B00000000000606060000000000000000000232369009090FF007374F0005251 + DE003535CF0000000000000000000000000000000000000000005B402E00FFB8 + 5A00E4A05000C18146009E633A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00004B4B4B00007BBD00000000004ABDFF00004A6B0000000000000000000000 + 000000000000000000000000000000000000000000000000F0000000EF000000 + EF000000E0000000DF000000D0000000CF000000C0000000BF000000B0000000 + B000000000006060600000000000000000002323690023236900232369002323 + 69002323690023236900000000000000000000000000000000005B402E005B40 + 2E005B402E005B402E005B402E005B402E000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004B4B4B0000000000007BBD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + C100020285000202850000005700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000C1000000 + E3000074B600003A5B000000E300000057000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006261 + 6200626162006261620062616200626162006261620062616200626162006261 + 6200626162006261620062616200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000CFEF + FF00C0E0F000BFE0F000B0DFF000AFD0EF00A0CFEF0090C0E0008FC0E00080BF + DF0000000000000000000000000000000000000000000000C1000000E3000074 + B60000A8FF0000A8FF00003A5B000000E3000000570000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000062616200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000050A0DF0000000000CFEF + FF003C77A5003C77A500614040006140400061404000614040003C77A5000000 + 0000089CE7000000000000000000000000000000C1000000E30054F9FF0000C6 + FF0000A8FF0000A8FF0000A8FF00003A5B000000E3000000570000000000671D + 0F0000000000671D0F0000000000000000000000000000000000DADADA00DADA + DA0055555500EAB77500EAB173009F555500EA986B00EA9269009F555500EA71 + 5F00EA695B000000000062616200000000000000000000000000000000000000 + 000000000000C4C4C400C3C3C400C3C4C400C4C4C300C4C4C300C4C3C300C3C4 + C400C3C3C4000000000000000000000000000000000050A0DF0000000000CFEF + FF006140400061404000C4B59900C3B09900BDAF9900B6A69100614040000000 + 0000000000000000000000000000000000000000C1000000E30054F9FF0000C6 + FF0000C10000006A000000A8FF00003A5B000000E300671D0F00671D0F00671D + 0F00671D0F00671D0F00671D0F00000000000000000000000000DCDCDC00DCDC + DC0055555500EABD7700EAB675009F555500EA9D6C00EA966A009F555500EA78 + 6000EA705E000000000062616200000000000000000000000000000000000000 + 000000000000D2D2D300820B0000820B0000820B0000820B0000820B0000820B + 0000D2D2D3000000000000000000000000000000000050A0DF0000000000CFEF + FF006140400096907F0097948100979682009794810096907E00958A7A006140 + 4000000000000000000000000000000000007E7EFF000000E30054F9FF0000C6 + FF0000FF0000009A000000A8FF0000A8FF000000E3000202850000000000671D + 0F0000000000671D0F0000000000671D0F000000000000000000555555005555 + 5500800000008000000080000000800000008000000080000000800000009F55 + 55009F5555000000000062616200000000000000000000000000000000000000 + 000000000000E0E0E000E0E0E000E0E0E000E0E0E000E0E0E000E0E0E000E0E0 + E000E0E0E0000000000000000000000000000000000050A0DF00000000006140 + 4000CBBA9C00CCC0A100C7C5A400C7C1A500C0BFA400B9B49A00B8AD9600B0A5 + 910061404000000000000000000000000000000000007E7EFF000000E30054F9 + FF0000C6FF0000C6FF0000A8FF000000E300020285000000000000000000671D + 0F0000000000671D0F0000000000671D0F000000000000000000DADADA00DADA + DA00800000000000DC000000DC000000DC000000DC000000DC0080000000EA99 + 6C00EA9369000000000062616200000000000000000000000000000000000000 + 0000000000000000780000007800820B0000820B0000820B0000820B0000820B + 0000EDEDEC000000000000000000000000000000000050A0DF00000000006140 + 400097948100989C86009AA38B009AA68E009AA38B00989B860097948100B1A8 + 92006140400000000000000000000000000000000000000000007E7EFF000000 + E30054F9FF0000A8FF000000E300020285000000000000000000671D0F00671D + 0F00671D0F00671D0F00671D0F00000000000000000000000000DCDCDC00DCDC + DC00800000000000DC000000DC000000DC000000DC000000DC0080000000EA9D + 6E00EA986B000000000062616200000000000000000000000000000000000000 + 0000000078000000C80000007800F7F7F700F7F7F700F7F7F700F7F7F700F7F7 + F700F7F7F7000000000000000000000000000000000050A0DF00000000006140 + 4000CCC0A000CDC7A600C9CFAC00C9CFAF00C3C9AB00BBBA9F00B8B29A00B1A9 + 9300614040000000000000000000000000000000000000000000000000007E7E + FF000000C10002028500020285000000000000000000671D0F0000000000671D + 0F0000000000671D0F0000000000000000000000000000000000555555005555 + 5500800000008000000080000000800000008000000080000000800000009F55 + 55009F5555000000000062616200000000000000000000000000000078000000 + 0000000078000000C80000007800820B0000820B0000820B0000820B0000820B + 0000FFFFFF000000000000000000000000000000000050A0DF00000000006140 + 400097948100989C86009AA28B009AA68E009AA38B00989C860097948100B1A8 + 9300614040000000000000000000000000000000000000000000000000004040 + 4000FFFFFF0070707100000000000000000000000000671D0F0000000000671D + 0F0000000000671D0F0000000000000000000000000000000000E4E4E400E4E4 + E40055555500EACF7D00EACC7D009F555500EAB87600EAB274009F555500EA99 + 6C00EA9369000000000062616200000000000000000000000000000078000000 + 78000000C80000007800FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000050A0DF0000000000CFEF + FF0061404000CCC0A100C7C5A400C6C1A500C0BFA400B9B49A00B8AD96006140 + 4000000000000000000000000000000000000000000000000000000000000000 + C1000000C1000202850002028500000000000000000000000000671D0F00671D + 0F00671D0F00671D0F00671D0F00671D0F000000000000000000E6E5E500E6E5 + E50055555500EACF7D00EACF7D009F555500EABD7800EAB775009F555500EA9D + 6E00EA986B000000000062616200000000000000000000000000000078000000 + C8000000C8000000C80000007800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000050A0DF0000000000CFEF + FF00614040006140400097948100979582009794810097907E00614040006140 + 400000000000000000000000000000000000000000000000C1000000C1000000 + E3000000E3000000E3000000E30002028500020285000000000000000000671D + 0F0000000000671D0F0000000000000000000000000000000000555555005555 + 5500555555005555550055555500555555005555550055555500555555005555 + 5500555555000000000062616200000000000000000000000000000078000000 + C8000000C8000000780000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000050A0DF0000000000CFEF + FF00C0E0F000BFE0F000614040006140400061404000614040008FC0E00080BF + DF00000000000000000000000000000000007E7EFF000000E30071C1FF0071C1 + FF0071C1FF0071C1FF0071C1FF0071C1FF000000E30002028500000000000000 + 0000000000000000000000000000000000000000000000000000ADDCEA00A6D8 + EA009FD6EA005555550093D1EA008ECFEA0087CCEA00555555007BC8EA0075C5 + EA006FC4EA000000000062616200000000000000000000000000000078000000 + C800000078000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000050A0DF00000000000000 + 0000C0E0F00000000000B0DFF00000000000A0CFEF00000000008FC0E0000000 + 0000000000000000000000000000000000007E7EFF000000E3000000E3000000 + E3000000E3000000E3000000E3000000E3000000E30002028500000000000000 + 0000000000000000000000000000000000000000000000000000ADDCEA00A6D8 + EA009FD6EA005555550093D1EA008ECFEA0087CCEA00555555007BC8EA0076C5 + EA006FC4EA000000000062616200000000000000000000000000000078000000 + 7800000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000050A0DF000000 + 00007F7F7F00000000007F7F7F00000000007F7F7F00000000007F7F7F000000 + 0000000000000000000000000000000000007E7EFF000000E30071C1FF0071C1 + FF0071C1FF0071C1FF0071C1FF0071C1FF000000E30002028500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000078000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007E7EFF006161F7006161F7006161 + F7006161F7006161F7006161F7006161F7006161F7006161F700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D774 + 5800D7745800D77458000000000000000000D7745800D7745800000000000000 + 0000D7745800D774580000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000064000000 + 6400000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000068141400681414006814 + 1400681414006814140068141400681414000000000062616200626162006261 + 6200626162006261620062616200626162006261620062616200626162006261 + 620062616200626162006261620062616200000000000000000000000000D774 + 5800D774580000000000D7745800D77458000000000000000000D77458000000 + 0000D77458000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000064000000 + 8C00000064000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006633330000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000626162000000000000000000000000000000 + 000000000000D7745800D774580000000000E5EAF000E5EAF000000000000000 + 0000000000000000000000000000000000000000000000000000626162006261 + 6200626162006261620062616200626162000000640000006400000064009696 + FF0000008C000000640000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000066333300F7F1DE00F5EEDA00F5EE + DA00F4E9D400F2E3CD00F0DDC500EED7BC00ECD0B500EBCAAE00E8C4A500E6BD + 9D00E3B89600E2B4900000000000626162000000000000000000000000000000 + 0000000000000000000000000000E5EAF000E5EAF000E5EAF000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000064009696FF000000FF000000 + FF000000FF0000008C0000006400000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001384BB00CCFF + FF0029B8FF0029B8FF00000000000000000066333300F7F1DE00000099000000 + 9900F4E9D4000000000000000000000000000000000000000000000000000000 + 000000000000E2B4900000000000626162000000000000000000000000000000 + 00000000000000000000E5EAF000E5EAF0000000000000000000000000000000 + 00000000000000000000000000000000000000000000F1F1F100F1F1F100BE7B + 7B00FBDBA700FBD6A500BE7B7B00FBC49D00000064009696FF000000FF000000 + FF000000FF000000FF000000DC00000064000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001384BB00CCFF + FF0029B8FF0029B8FF00000000000000000066333300F7F1DE00F5EEDA00F5EE + DA00F4E9D400F2E3CC00EFDDC500EED6BC00ECD0B500EAC9AE00E7C4A500E6BF + 9D00E3B89600E2B4900000000000626162000000000000000000000000000000 + 0000000000000000000000000000E5EAF000E5EAF000E5EAF000E5EAF000E5EA + F0000000000000000000000000000000000000000000F2F2F200F2F2F200BE7B + 7B00FBDEA800FBDAA700BE7B7B00FBC89E00000064009696FF009696FF009696 + FF000000FF000000FF0000006400000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001384BB00CCFF + FF0029B8FF0029B8FF00000000000000000066333300F7F1DE00000099000000 + 9900F4E9D4000000000000000000000000000000000000000000000000000000 + 000000000000E1B4900000000000626162000000000000000000000000000000 + 0000B7ECF100B7ECF10000000000E5EAF000E5EAF000E5EAF000E5EAF0000000 + 00000000000000000000000000000000000000000000BE7B7B00BE7B7B00BE7B + 7B00BE7B7B00BE7B7B00BE7B7B00BE7B7B000000640000006400000064009696 + FF000000FF000000640000000000000000000000000068141400681414006814 + 14006814140068141400681414006814140000000000000000001384BB00CCFF + FF00CCFFFF0000000000000000000000000066333300F7F1DE00F5EEDA00F5EE + DA00F4E9D400F2E3CD00F0DCC400EED6BC00ECD0B500EBCAAE00E7C4A500E6BD + 9E00E3B99700E2B5900000000000626162000000000000000000000000000000 + 0000A5E1EC00A6E1EC0000000000E5EAF000E5EAF000E5EAF000E5EAF000E5EA + F0000000000000000000000000000000000000000000F1F1F100F1F1F100BE7B + 7B00FBDBA700FBD6A500BE7B7B00FBC49D00FBC09B00BE7B7B00000064009696 + FF00000064006261620000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000001384BB001384 + BB001384BB001384BB00000000000000000066333300F7F1DE00755835007558 + 3500755835007558350075583500755835007558350075583500755835007558 + 350075583500E2B49000000000006261620000000000000000000000000093D4 + E60092D5E70027698800E5EAF000E5EAF000E5EAF000E5EAF000E5EAF000E5EA + F000E5EAF00000000000000000000000000000000000F2F2F200F2F2F200BE7B + 7B00FBDEA800FBDAA700BE7B7B00FBC89E00FBC39D00BE7B7B00000064000000 + 6400000000006261620000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000066333300F7F1DE00F5EEDA00F5EE + DA00F4E9D400F2E3CD00F0DDC500EED6BC00ECD0B500EACAAD00E7C6A500E6BD + 9D00E3B89600E1B49000000000006261620000000000000000000000000080CA + E20080C9E20080C9E20080C9E20000000000E5EAF000E5EAF000DB292900E5EA + F0000000000000000000000000000000000000000000BE7B7B00BE7B7B00BE7B + 7B00BE7B7B00BE7B7B00BE7B7B00BE7B7B00BE7B7B00BE7B7B00BE7B7B00BE7B + 7B000000000062616200000000000000000000000000000000001384BB00D8FB + FB0029B8FF0029B8FF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000066333300F7F1DE0000567E0021A4 + FF0021A4FF0021A4FF0021A4FF00EED6BC00ECD0B500EAC9AE00E7C4A500E6BF + 9D00E3B89600E2B4900000000000626162000000000000000000000000006EBE + DD006EBEDD006EBEDC0000000000E5EAF000E5EAF000E5EAF000000000000000 + 00000000000000000000000000000000000000000000F7F7F700F7F7F700BE7B + 7B00FBEAAE00FBE8AD00BE7B7B00FBDBA800FBD7A600BE7B7B00FBC59E00FBC0 + 9B000000000062616200000000000000000000000000000000001384BB00D8FB + FB0029B8FF0029B8FF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000066333300F7F1DE0000567E000056 + 7E0000567E0000567E0021A4FF00EED6BC00ECD0B500EACAAD00E7C6A500E6BD + 9D00E3B89600E1B4900000000000626162000000000000000000000000005BB3 + D7005BB2D7005AB2D70080808000E5EAF000E5EAF000E5EAF000E5EAF0000000 + 00000000000000000000000000000000000000000000F8F8F800F8F8F800BE7B + 7B00FBEAAE00FBEAAE00BE7B7B00FBDFA900FBDBA700BE7B7B00FBC8A000FBC4 + 9D000000000062616200000000000000000000000000000000001384BB00D8FB + FB0029B8FF0029B8FF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000066333300F7F1DE00F5EEDA00F5EE + DA00F4E9D400F2E3CD00F0DDC500EED6BC00ECD0B500EACAAD00E7C6A500E6BD + 9D00E3B89600E1B49000000000006261620000000000000000000000000049A8 + D20049A7D20049A8D300000000000000000080808000E5EAF000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000062616200000000000000000000000000000000001384BB00D8FB + FB00D8FBFB000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006633330066333300663333006633 + 3300663333006633330066333300663333006633330066333300663333006633 + 3300663333006633330066333300000000000000000000000000000000000000 + 00003DA0CF003DA0CF003DA0CF003DA0CF003DA0CF003DA0CF003DA0CF000000 + 000000000000000000000000000000000000000000000000F5000000EF000000 + E9000000E2000000DB000000D4000000CD000000C5000000BD000000B7000000 + B1000000000062616200000000000000000000000000000000001384BB001384 + BB001384BB001384BB0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000F5000000EF000000 + E9000000E2000000DB000000D4000000CD000000C5000000BE000000B7000000 + B100000000006261620000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FF333300FF33330000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000C0C0C000868686008686860000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003399 + CC0066CCFF0066CCFF003399CC00000000008686860000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FF33 + 3300FFFF0000FF99000066000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000B2B2B200C0C0C00077777700000000000000000086868600777777000000 + 0000000000000000000000000000000000000000000000000000000000003399 + CC0066CCFF0066CCFF003399CC00000000000000000086868600777777000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00006633330000000000000000000000000000000000000000001C1C1C00FFFF + 0000FF9900006600000000000000000000000000000000000000000000001212 + 2800000000000000000012122800121228001212280012122800121228001212 + 2800121228001212280012122800000000000000000000000000C0C0C000C0C0 + C0007777770077777700CCCCCC00A4A0A000A4A0A00000000000000000008686 + 8600777777000000000000000000000000000000000000000000C0C0C0003399 + CC0066CCFF0066CCFF003399CC0000000000A4A0A00000000000000000008686 + 8600777777000000000000000000000000000000000000000000000000000000 + 00003399CC00CCFFFF00C2F8FB00B3EEF600A2E3F100FF333300FFFF0000FF99 + 0000660000003399CC003DA0D000000000000000000000000000000000003030 + 6D0000000000000000006B6BEF006B6BEF004040CC003030BF0030309F003030 + 6D0030309F001B1B4A0012122800000000000000000086868600777777007777 + 7700CCCCCC00CCCCCC00C0C0C000A4A0A0009999990096969600868686000000 + 0000000000007777770000000000000000000000000086868600777777003399 + CC0066CCFF0066CCFF003399CC00000000009999990096969600868686000000 + 0000000000007777770000000000000000000000000000000000000000000000 + 00003399CC00CCFFFF009C6363009C636300FF333300FFFF0000FF9900006600 + 00003399CC004CA9D4003DA0CF00000000000000000000000000000000003030 + 6D0000000000000000006B6BEF006B6BEF004040CC003030BF0030309F003030 + 6D0030309F001B1B4A0012122800000000008686860077777700D7D7D700CCCC + CC00CCCCCC00C0C0C000C0C0C000A4A0A0009999990096969600969696008686 + 8600868686000000000000000000000000008686860077777700D7D7D7003399 + CC00FFFFFF0066CCFF003399CC00000000009999990096969600969696008686 + 8600868686000000000000000000000000000000000000000000000000000000 + 00003399CC00CCFFFF00C1F8FC00FF333300FF990000FF990000660000003399 + CC005DB5DA004CAAD5003EA0D000000000000000000000000000000000003030 + 6D003030EF0000000000000000006B6BEF004040CC003030BF0030309F003030 + 6D0030309F001B1B4A00121228000000000086868600F8F8F800CCCCCC00CCCC + CC00C0C0C000C0C0C000F8F8F80099999900A4A0A00096969600868686008686 + 86007777770086868600777777000000000086868600F8F8F800CCCCCC003399 + CC00FFFFFF00FFFFFF00C6C6C60000000000A4A0A00096969600868686008686 + 8600777777008686860077777700000000000000000000000000804848008048 + 48001C1C1C002222220099999900F0FBFF0066666600660000003399CC009C63 + 63009C6363009C6363003DA0CF00000000000000000000000000000000003030 + 6D003030EF00A4A4F60000000000000000004040CC003030BF0030309F003030 + 6D0030309F001B1B4A00121228000000000086868600F8F8F800C0C0C000C0C0 + C000F8F8F800F8F8F800CCCCCC00CCCCCC00CCCCCC0096969600969696008686 + 86008686860077777700777777000000000086868600F8F8F800C0C0C000C0C0 + C0003399CC003399CC0000000000CCCCCC00CCCCCC0096969600969696008686 + 8600868686007777770077777700000000000000000080484800E3E3C5003399 + CC00C2F8FB00B3EEF6002222220099999900660000003399CC007FCCE5006FC1 + E0005DB5DA004CAAD5003DA0CF00000000000000000000000000000000000000 + 00003030BF003030BF0000000000000000004040CC003030BF0030309F003030 + 6D0030306D0030306D00000000000000000086868600F8F8F800F8F8F800F8F8 + F800D7D7D700D7D7D7000000FF003300CC00CCCCCC00CCCCCC00C0C0C0008686 + 86008686860086868600777777000000000086868600F8F8F800F8F8F800F8F8 + F80000000000FFFFFF00000000003300CC00CCCCCC00CCCCCC00C0C0C0008686 + 86008686860086868600777777000000000080484800E3E3C500E3E3C5003399 + CC00C2F8FB00BC8E8E00BC8E8E001C1C1C009C6363009C6363009C6363009C63 + 63009C6363009C6363003DA0CF00000000000000000000000000000000000000 + 0000000000000000000000000000000000003030BF0030306D0030306D003030 + 6D000000000000000000000000000000000086868600F8F8F800DDDDDD00DDDD + DD0000FF000000996600CCCCCC00CCCCCC00D7D7D70077777700868686000000 + 0000C0C0C00077777700777777000000000086868600F8F8F800DDDDDD00DDDD + DD0000000000C6C6C60000000000CCCCCC00D7D7D70077777700868686000000 + 0000C0C0C00077777700777777000000000080484800E3E3C500E3E3C5003399 + CC00C2F8FB00B3EEF600A2E3F1001C1C1C00A2E3F10090D7EB0080CCE6006FC1 + E0005DB5DA004CAAD4003DA0D000000000000000000000000000000000000000 + 0000000000000000000000000000000000003030950030306D00121228000000 + 000000000000000000000000000000000000000000008686860086868600F8F8 + F800DDDDDD00D7D7D700D7D7D7008686860077777700C0C0C000C0C0C0000000 + 0000C0C0C000777777007777770000000000000000008686860086868600F8F8 + F8000000000000000000000000008686860077777700C0C0C000C0C0C0000000 + 0000C0C0C00077777700777777000000000080484800E3E3C500E3E3C5003399 + CC00C2F8FB00B3EEF600A2E3F1001C1C1C009C6363009C6363009C6363009C63 + 63009C6363009C6363003EA0CF00000000000000000000000000000000000000 + 0000000000000000000000000000303095003030950030309F0030306D001212 + 2800000000000000000000000000000000000000000000000000000000008686 + 860086868600F8F8F80077777700C0C0C000C0C0C000DDDDDD00E3E3E300DDDD + DD00000000000000000000000000000000000000000000000000000000008686 + 860084848400848484008484840000000000C0C0C000DDDDDD00000000000000 + 00000000000000000000000000000000000080484800E3E3C500E3E3C5003399 + CC00C2F8FB00BC8E8E00BC8E8E001C1C1C00A1E3F10090D7EB007FCCE5006FC1 + E0005DB5DA004CA9D5003DA0D000000000000000000000000000000000000000 + 00000000000030306D00A4A4F6003030BF003030BF003030BF0030309F003030 + 9F00121228000000000000000000000000000000000000000000000000000000 + 0000000000008686860086868600D7D7D700DDDDDD00EAEAEA00EAEAEA00F1F1 + F100DDDDDD0000000000000000000000000084848400C6C6C600000000000000 + 0000C6C6C600C6C6C600C6C6C600848484000000000000000000FFFFFF000000 + 0000DDDDDD000000000000000000000000000000000080484800E3E3C5003399 + CC00C2F8FB00B3EEF6001C1C1C003399CC009C6363009C63630080CCE5006FC1 + E000000000000000000000000000000000000000000000000000000000000000 + 00000000000030309500A4A4F600A4A4F600A4A4F600A4A4F600A4A4F6003030 + EF00303095000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000086868600E3E3E300EAEAEA00F1F1F100F8F8 + F800F8F8F800DDDDDD00000000000000000084848400FFFFFF0084848400C6C6 + C600FFFFFF00C6C6C600C6C6C600C6C6C60084848400FFFFFF0000000000F8F8 + F800F8F8F800DDDDDD0000000000000000000000000000000000804848008048 + 48001C1C1C00222222003399CC00B3EFF700A2E3F10090D7EB0080CCE6006FC1 + E000005F8F003399CC0066CCFF00000000000000000000000000000000000000 + 0000000000000000000030309500303095003030950030309500303095003030 + 9500000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000086868600F1F1F100F1F1F100F8F8 + F8008686860086868600000000000000000084848400FFFFFF00848484008484 + 8400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000F1F1F100F8F8 + F800868686008686860000000000000000000000000000000000000000000000 + 00003399CC00CCFFFF00C1F8FC00B3EEF600A2E2F10090D7EB007FCCE5006FC1 + E000005F8F0066CCFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000086868600868686008686 + 8600000000000000000000000000000000008484840084848400000000000000 + 0000848484008484840084848400848484000000000086868600868686008686 + 8600000000000000000000000000000000000000000000000000000000000000 + 00003399CC00005F8F00005F8F00005F8F00005F8F00005F8F00005F8F00005F + 8F00005F8F00005F8F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000004042200040422000404 + 2200040422000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000003037A0003037A0003037A0003037A0003037A000303 + 7A00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000313131003131310031313100313131003131 + 310031313100313131003131310000000000000000003A3B7500333590003334 + 9000040422000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000593A0E00FFDECF00915535009155 + 3500915535000000000000000000000000000000000000000000000000000000 + 000003037A000000000000000000000000000000000000000000000000000000 + 00006D4236006D42360000000000000000006D42360000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000724B3900925A3F00925A3F00925A3F00925A + 3F00925A3F00925A3F003131310000000000000000003A3B75003B3E9A003A3E + 9A00040422000000000000000000471515000000000000000000000000000000 + 000000000000000000000000000000000000593A0E00FFDECF00FFA09000FFA0 + 9000915535000000000000000000000000000000000000000000000000000303 + 7A0003037A0003037A0000000000000000000000000000000000000000000000 + 00000000000000000000E5EAF000E5EAF0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FF000000000000000000724B3900925A3F0031313100925A3F003131 + 3100925A3F00313131003131310000000000000000003A3B7500424AA5004349 + A60004042200000000004715150047151500471515004715150000000000200D + 0500200D0500200D0500200D0500200D0500593A0E00FFDECF00FFDECF00FFDE + CF00FFA090000000000000000000000000000000000000000000000000000000 + 000003037A000000000000000000000000000000000000000000000000000000 + 000000000000E5EAF000E5EAF00000000000000000006D423600000000006D42 + 3600000000000000000000000000000000000000000000000000471515004715 + 15000000FF000000FF0000000000724B3900925A3F00925A3F00925A3F00925A + 3F00925A3F00925A3F003131310000000000000000003A3B75004C55B2004C55 + B20004042200000000000000000047151500000000000000000000000000724B + 3900925A3F00925A3F00925A3F00200D0500593A0E00593A0E00593A0E00593A + 0E00593A0E00593A0E0003037A0003037A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E5EAF000E5EAF000E5EAF00000000000FFFFFF000000 + 0000000000000000000000000000000000000000000047151500000000000000 + 00000000FF000000000000000000724B39009A634900313131009A6349003131 + 31009A634800313131003131310000000000000000003A3B75005460BE005461 + BE0004042200000000000000000000000000000000000000000000000000724B + 3900A7705600A6715600A6705700200D0500000000000000000003037A000000 + 00000000000000000000000000000000000003037A00000000000E395900CFFF + FF0059B7FE0059B7FE0059B7FE000000000000000000000000000000000085D0 + E70084D0E700E5EAF000E5EAF000E5EAF000E5EAF00000000000CEDCED000000 + 0000000000000000000000000000000000000000000047151500000000000000 + 0000000000000000000000000000724B3900A7705600A6715600A7715600A770 + 5600A6705600A67057003131310000000000000000003A3B75005C6AC9005C6B + C90004042200000000000000000000000000000000000000000000000000724B + 3900B47F6500B37E6500B47E6500200D0500000000000000000003037A000000 + 00000000000000000000000000000000000003037A00000000000E395900CFFF + FF00CFFFFF00CFFFFF0090FFFF00000000000000000000000000000000006ABE + DE006ABEDE0000000000E5EAF000E5EAF000E5EAF000E5EAF00000000000CEDC + ED00000000000000000000000000000000000000000000000000471515000000 + 0000000000000000000000000000724B3900B47F650031313100B47E65003131 + 3100B37E6500313131003131310000000000000000003A3B75006577D5006576 + D50004042200000000000000000000000000000000000000000000000000724B + 3900CC9A8100CD998200CC998200200D0500000000000000000003037A000000 + 000000000000000000000000000003037A0003037A0003037A000E3959000E39 + 59000E3959000E3959000E3959000E3959000000000000000000000000004FAD + D5004FADD50000000000E5EAF000E5EAF0000000000000000000CEDCED00CEDC + ED00000000000000000000000000000000000000000000000000000000004715 + 1500000000000000000000000000724B3900C08C7300BF8C7300BF8C7300BF8C + 7300C08C7300BF8B73003131310000000000000000003A3B75006E82E2006D82 + E10004042200000000000000000000000000471515000000000000000000724B + 3900E1B09900E1B09900E1B09900200D05000000000003037A0003037A000303 + 7A000000000000000000000000000000000003037A0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000003DA0 + CF003DA0CF003DA0CF0000000000E5EAF000E5EAF00000000000CEDCED00CEDC + ED00CEDCED000000000000000000000000000000000000000000000000000000 + 0000471515000000000000000000724B3900CC9A8100FFFFFF00FFFFFF00FFFF + FF00FFFFFF00CC9982003131310000000000000000003A3B7500768DED00768C + ED0004042200000000004715150047151500471515004715150000000000724B + 3900724B3900724B3900724B3900200D0500000000000000000003037A000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00003DA0CF003DA0CF003DA0CF003DA0CF003DA0CF0000000000CEDCED000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000004715150000000000724B3900D8A68F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00D9A78F003131310000000000000000003A3B75007D97F7007D97 + F700040422000000000000000000000000004715150000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000E395900CFFFFF0059B7FE0059B7FE0059B7 + FE00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000084848400CEDCED00CEDC + ED00000000000000000000000000000000000000000047151500471515004715 + 1500471515000000000000000000724B3900E1B09900FFFFFF00FFFFFF00FFFF + FF00FFFFFF00E1B099003131310000000000000000003A3B7500829DFE00829D + FE00040422000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000E395900CFFFFF0059B7FE0059B7 + FE0059B7FE0000000000000000000E395900CFFFFF00CFFFFF00CFFFFF0090FF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000006E6E6E006E6E6E006E6E6E006E6E6E006E6E + 6E00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000724B3900E1B09900FFFFFF00FFFFFF00FFFF + FF00FFFFFF00E1B099003131310000000000000000003A3B75003A3B75003A3B + 7500040422000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000E395900CFFFFF00CFFFFF00CFFF + FF0090FFFF0000000000000000000E3959000E3959000E3959000E3959000E39 + 59000E3959000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000724B3900E1B09900E1B09900E1B09900E1B0 + 9900E1B09900E1B0990031313100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000E3959000E3959000E3959000E39 + 59000E3959000E39590000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000724B3900724B3900724B3900724B3900724B + 3900724B3900724B390031313100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000004A4A + 4A004A4A4A0000000000E7E7E70000000000000000000000000070707000B7B7 + B700B7B7B7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004A4A4A004A4A4A004A4A + 4A004A4A4A00E7E7E700E7E7E700E7E7E700000000002828280000000000008C + D50000000000888888000000000000000000101A1000101A1000101A1000101A + 1000101A100000000000000000000000000000000000000000002F392F00101A + 1000101A1000101A1000101A100000000000101A1000101A1000101A1000101A + 1000101A100000000000000000000000000000000000000000002F392F00101A + 1000101A1000101A1000101A1000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000002A2A2A000000000000000000000000004A4A4A004A4A4A004A4A + 4A0000000000E7E7E700E7E7E700B5B5B50024B4FF0000000000404040000CAC + FF00008CD40000000000000000000000000018271900C5E3C700476B49002E49 + 3100101A100000000000000000000000000000000000000000002F392F00C5E3 + C700476B49002E493100101A10000000000018271900C5E3C700476B49002E49 + 3100101A100000000000000000000000000000000000000000002F392F00C5E3 + C700476B49002E493100101A1000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00002A2A2A002A2A2A004D4D4D00000000000000000000000000000000004A4A + 4A00E7E7E700E7E7E700ADADAD006B6B6B00616161000A0A0A000000000000A3 + F800009AEA0010101000000000000000000018271900C5E3C700476B49002E49 + 3100101A100000000000000000000000000000000000000000002F392F00C5E3 + C700476B49002E493100101A10000000000018271900C5E3C700476B49002E49 + 3100101A100000000000000000000000000000000000000000002F392F00C5E3 + C700476B49002E493100101A1000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000002A2A + 2A002A2A2A004D4D4D0000000000000000000000000000000000000000000000 + 0000E7E7E700ADADAD006B6B6B003131310015AFFF0001A8FF000AABFF0013AE + FF0000A3F80000000000000000000000000018271900101A1000101A1000101A + 1000101A1000101A1000101A100000000000101A1000101A1000101A1000101A + 1000101A1000101A1000101A10000000000018271900101A1000101A1000101A + 1000101A1000101A1000101A100000000000101A1000101A1000101A1000101A + 1000101A1000101A1000101A100000000000000000000000000000000000A3A3 + A300646464001010100010101000646464000000000010A9FF002A2A2A002A2A + 2A004D4D4D00000000000000000000000000000000000000000000000000E7E7 + E700ADADAD003131310000BD7B000094630034BAFF00000000000E0E0E0001A8 + FF00282828005858580000000000000000001827190033503600C5E3C700476B + 4900101A1000101A1000101A1000101A1000101A1000C5E3C700476B49002E49 + 31002E493100101A1000101A1000000000001827190033503600C5E3C700476B + 4900101A1000101A1000101A1000101A1000101A1000C5E3C700476B49002E49 + 31002E493100101A1000101A1000000000000000000000000000646464000000 + 000030303000D2AF9A00D2AF9A0030303000000000000000000010A9FF004D4D + 4D0000000000000000000000000000000000000000000000000000000000E7E7 + E70000BD7B000094630000946300009463000094630021B3FF0003A9FF0004A9 + FF00009CED000000000000000000000000001827190033503600C5E3C700476B + 4900101A1000101A1000A8CCAB00101A1000101A1000C5E3C700476B49002E49 + 31002E493100101A1000101A1000000000001827190033503600C5E3C700476B + 4900101A1000101A1000A8CCAB00101A1000101A1000C5E3C700476B49002E49 + 31002E493100101A1000101A10000000000000000000A3A3A30000000000D2AF + 9A00FEE3C400FFE3C700FED7B500FECFA800D2AF9A0000000000000000000000 + 0000000000000000000000000000000000000000000000000000E7E7E700E7E7 + E70031313100008C5A00007B520000734A00007B4A00008C5A00007850001EB2 + FF00000000000000000000000000000000001827190033503600C5E3C700476B + 4900101A1000101A1000A8CCAB00101A1000101A1000C5E3C700476B49002E49 + 31002E493100101A1000101A1000000000001827190033503600C5E3C700476B + 4900101A1000101A1000A8CCAB00101A1000101A1000C5E3C700476B49002E49 + 31002E493100101A1000101A100000000000000000006464640030303000FFE8 + CD00FFEBD300FFEDD500FEE1C200FED7B500FECDA70030303000646464000000 + 0000000000000000000000000000000000000000000000000000E7E7E700E7E7 + E700E7E7E7003131310000734A006BFFFF003939390000734A00007B4A00008C + 630000ADAD00000000000000000000000000000000001827190018271900101A + 1000101A1000101A1000101A1000101A1000101A1000101A1000101A1000101A + 1000101A1000101A10000000000000000000000000001827190018271900101A + 1000101A1000101A1000101A1000101A1000101A1000101A1000101A1000101A + 1000101A1000101A100000000000000000000000000010101000E8C7B100FFEE + D900FFF2E300FFF6E600FFEDD700FEDDBF00FED3AE00D2AF9A00101010000000 + 00000000000000000000000000000000000000000000E7E7E700E7E7E700E7E7 + E700E7E7E700E7E7E70021FFAD0000D68C0000FFFF006BFFFF00393939000073 + 4A0000734A00009494000000000000000000000000000000000018271900C5E3 + C700476B4900101A1000101A10000000000018271900C5E3C700476B49002E49 + 3100101A1000000000000000000000000000000000000000000018271900C5E3 + C700476B4900101A1000101A10000000000018271900C5E3C700476B49002E49 + 3100101A10000000000000000000000000000000000010101000E8C7B100FFF2 + E300FFF8EE00FFFAF000FFF6E800FFEDD700FED5B500D2AF9A00101010000000 + 00000000000000000000000000000000000000000000E7E7E700E7E7E700E7E7 + E700E7E7E70021FFAD0000DE940000DE940000DE940000CE840000DEDE0000FF + FF003131310000734A0000000000000000000000000000000000182719001827 + 1900476B4900101A1000101A1000000000001827190018271900476B49002E49 + 3100101A10000000000000000000000000000000000000000000182719001827 + 1900476B4900101A1000101A1000000000001827190018271900476B49002E49 + 3100101A1000000000000000000000000000000000006464640030303000FFEF + D900FFF4E300FFF6E800FFEDD700FEDDBF00FED3AE0030303000646464000000 + 000000000000000000000000000000000000000000000000000000000000E7E7 + E700E7E7E7003939390000DE940000DE940000D68C0000C6840000BD7B0000BD + 7B0000D6BD0000DEDE0000000000000000000000000000000000000000001827 + 1900182719001827190000000000000000000000000018271900182719001827 + 1900000000000000000000000000000000000000000000000000000000001827 + 1900182719001827190000000000000000000000000018271900182719001827 + 19000000000000000000000000000000000000000000A3A3A30000000000D2AF + 9A00FFEBD300FFEDD700FEDFC200FED7B500D2AF9A0010101000A3A3A3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E7E7E700E7E7E7003939390000BD7B0000BD7B0000B5730000A5 + 6B0000A56B0000A56B0000CEC600000000000000000000000000000000001B28 + 1C00C5E3C700000000000000000000000000000000001B281C00C5E3C7000000 + 0000000000000000000000000000000000000000000000000000000000001B28 + 1C00C5E3C700000000000000000000000000000000001B281C00C5E3C7000000 + 0000000000000000000000000000000000000000000000000000646464000000 + 000030303000E8C7B100D2AF9A00303030001010100064646400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E7E7E7000000000000000000009463000094 + 6300009463000094630000000000000000000000000000000000000000001B28 + 1C001B281C00182719000000000000000000000000001B281C001B281C001B28 + 1C00000000000000000000000000000000000000000000000000000000001B28 + 1C001B281C00182719000000000000000000000000001B281C001B281C001B28 + 1C0000000000000000000000000000000000000000000000000000000000A3A3 + A30064646400101010001010100064646400A3A3A30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000009463000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000002A2AD1002A2AB00000000000000000000000 + 00000000000000000000000000002A2AB0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000009D9D9D00616161006161610061616100616161009D9D9D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000004545FE002A2AD1002A2AB000000000000000 + 000000000000000000002A2AB0002A2AD1000000000000000000000000006261 + 6200626162006261620062616200626162006261620062616200626162006261 + 6200626162006261620062616200000000000000000000000000000000009D9D + 9D0061616100616161005DD2EF005DD2EF005DD2EF005DD2EF00616161006161 + 61009D9D9D000000000000000000000000000000000000000000000000004A4A + 4A004A4A4A0000000000E7E7E70000000000000000003C352A00395A6000395A + 60004894A2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000004545FE002A2AD1002A2AB0000000 + 0000000000002A2AB0002A2AD100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000626162000000000000000000000000009D9D9D006161 + 61005DD2EF005DD2EF005DD2EF005DD2EF005DD2EF005DD2EF00E2C88000E2C8 + 8000616161009D9D9D000000000000000000000000004A4A4A004A4A4A004A4A + 4A004A4A4A00E7E7E700E7E7E700E7E7E700000000003C352A007BB2BC007BB2 + BC005FDFF600253C400000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000004545FE002A2AD1004545 + FE002A2AB0002A2AD10000000000000000000000000000000000E6E6E600E6E6 + E600964A4A00F7C07800F7B97600964A4A00F79E6D00F7986B00964A4A00F774 + 5F00F76B5C00000000006261620000000000000000009D9D9D00616161005DD2 + EF005DD2EF005DD2EF005DD2EF005DD2EF005DD2EF00E2C88000E2C88000E2C8 + 8000E2C88000616161009D9D9D0000000000000000004A4A4A004A4A4A004A4A + 4A0000000000E7E7E700E7E7E700B5B5B500B79E71003C352A0066594100253C + 4000253C40004F4FFF004747C2000000000000000000000000006D4236006D42 + 360000000000000000006D4236000000000000000000000000002A2AB0002A2A + D1002A2AB0000000000000000000000000000000000000000000E8E8E800E8E8 + E800964A4A00F7C57A00F7BF7800964A4A00F7A46E00F79D6D00964A4A00F77C + 6200F7735F0000000000626162000000000000000000616161005DD2EF005DD2 + EF005DD2EF005DD2EF005DD2EF005DD2EF005DD2EF00E2C88000E2C88000E2C8 + 8000E2C88000E2C8800061616100000000000000000000000000000000004A4A + 4A00E7E7E700E7E7E700ADADAD006B6B6B00E8C99200E8C992003C352A004F4F + FF004F4FFF004F4FFF004747C200000000000000000000000000000000000000 + 0000E5EAF000E5EAF0000000000000000000000000002A2AB0002A2AD1004545 + FE002A2AD1002A2AB00000000000000000000000000000000000964A4A00964A + 4A00964A4A00964A4A00964A4A00964A4A00964A4A00964A4A00964A4A00964A + 4A00964A4A000000000062616200000000009D9D9D00616161005DD2EF005DD2 + EF005DD2EF005DD2EF005DD2EF005DD2EF005DD2EF00E2C88000E2C88000E2C8 + 8000E2C88000E2C88000616161009D9D9D000000000000000000000000000000 + 0000E7E7E700ADADAD006B6B6B0031313100E8C99200E8C99200E8C992004F4F + FF004F4FFF004F4FFF004747C20000000000000000000000000000000000E5EA + F000E5EAF0000000000000000000000084002A2AB0002A2AD1002A2AD1000000 + 0000000000004545FE002A2AB000000000000000000000000000E6E6E600E6E6 + E600964A4A00F7C07800F7B97600964A4A00F79E6D00F7986B00964A4A00F79F + 6E00F7986B00000000006261620000000000616161005DD2EF005DD2EF005DD2 + EF005DD2EF005DD2EF005DD2EF005DD2EF00E2C88000E2C88000E2C88000E2C8 + 8000E2C88000E2C88000E2C8800061616100000000000000000000000000E7E7 + E700ADADAD003131310000BD7B00009463000094630000000000E8C992003030 + 5B0030305B0041417E0041417E00000000000000000000000000000000000000 + 0000E5EAF000E5EAF000E5EAF000000000002A2AD1002A2AD100000000000000 + 000000000000000000004545FE002A2AB0000000000000000000E8E8E800E8E8 + E800964A4A00F7C57A00F7BF7800964A4A00F7A46E00F79D6D00964A4A00F7A4 + 7000F79E6D00000000006261620000000000616161005DD2EF005DD2EF005DD2 + EF005DD2EF005DD2EF005DD2EF005DD2EF00E2C88000E2C88000E2C88000E2C8 + 8000E2C88000E2C88000E2C8800061616100000000000000000000000000E7E7 + E70000BD7B00009463000094630000946300009463000094630000DEDE000000 + 000041417E0041417E0000000000000000000000000085D0E70084D0E700E5EA + F000E5EAF000E5EAF000E5EAF00000000000CEDCED0000000000000000000000 + 00000000000000000000000000004545FE000000000000000000964A4A00964A + 4A00964A4A00964A4A00964A4A00964A4A00964A4A00964A4A00964A4A00964A + 4A00964A4A00000000006261620000000000616161005DD2EF005DD2EF005DD2 + EF005DD2EF005DD2EF005DD2EF004E4EDD00E2C88000E2C88000E2C88000E2C8 + 8000E2C88000E2C88000E2C88000616161000000000000000000E7E7E700E7E7 + E70031313100008C5A00007B520000734A00007B4A00008C5A000094630000CE + CE0000000000000000000000000000000000000000006ABEDE006ABEDE000000 + 0000E5EAF000E5EAF000E5EAF000E5EAF00000000000CEDCED00000000000000 + 0000000000000000000000000000000000000000000000000000F1F1F100F1F1 + F100964A4A00F7DA8100F7D78000964A4A00F7C17900F7BB7700964A4A00F79F + 6E00F7986B00000000006261620000000000616161005DD2EF005DD2EF005DD2 + EF005DD2EF004E4EDD004E4EDD004E4EDD004E4EDD00E2C88000E2C88000E2C8 + 8000E2C88000E2C88000E2C88000616161000000000000000000E7E7E700E7E7 + E700E7E7E7003131310000734A006BFFFF0039393900B3D5C900B3D8C900008C + 630000ADAD00000000000000000000000000000000004FADD5004FADD5000000 + 0000E5EAF000E5EAF0000000000000000000CEDCED00CEDCED00000000000000 + 0000000000000000000000000000000000000000000000000000F3F3F300F3F3 + F300964A4A00F7DA8100F7DA8100964A4A00F7C77B00F7C07800964A4A00F7A4 + 7000F79E6D000000000062616200000000009D9D9D00616161005DD2EF004E4E + DD004E4EDD004E4EDD004E4EDD004E4EDD004E4EDD004E4EDD00E2C88000E2C8 + 8000E2C88000E2C88000616161009D9D9D0000000000E7E7E700E7E7E700E7E7 + E700E7E7E700E7E7E70021FFAD0000D68C000000E1000000E1000000E100B3D5 + C90000734A00009494000000000000000000000000003DA0CF003DA0CF003DA0 + CF0000000000E5EAF000E5EAF00000000000CEDCED00CEDCED00CEDCED000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000626162000000000000000000616161004E4EDD004E4E + DD004E4EDD004E4EDD004E4EDD004E4EDD004E4EDD004E4EDD004E4EDD00E2C8 + 8000E2C88000E2C88000616161000000000000000000E7E7E700E7E7E700E7E7 + E700E7E7E70021FFAD0000DE940000DE9400B3F5DF000000E1000000E1000000 + E1003131310000734A00000000000000000000000000000000003DA0CF003DA0 + CF003DA0CF003DA0CF003DA0CF0000000000CEDCED0000000000000000000000 + 00000000000000000000000000000000000000000000000000000000F5000000 + EF000000E9000000E2000000DB000000D4000000CD000000C5000000BD000000 + B7000000B100000000006261620000000000000000009D9D9D00616161004E4E + DD004E4EDD004E4EDD004E4EDD004E4EDD004E4EDD004E4EDD004E4EDD004E4E + DD00E2C88000616161009D9D9D0000000000000000000000000000000000E7E7 + E700E7E7E7003939390000DE940000DE94000000E1000000E1000000E100B3EB + D80000D6BD0000DEDE0000000000000000000000000000000000000000000000 + 000000000000000000000000000084848400CEDCED00CEDCED00000000000000 + 00000000000000000000000000000000000000000000000000000000F5000000 + EF000000E9000000E2000000DB000000D4000000CD000000C5000000BE000000 + B7000000B10000000000626162000000000000000000000000009D9D9D006161 + 61004E4EDD004E4EDD004E4EDD004E4EDD004E4EDD004E4EDD004E4EDD004E4E + DD00616161009D9D9D0000000000000000000000000000000000000000000000 + 000000000000E7E7E700E7E7E70039393900B3EBD8000000E1000000E1000000 + E10000A56B0000A56B0000CEC600000000000000000000000000000000000000 + 0000000000006E6E6E006E6E6E006E6E6E006E6E6E006E6E6E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000009D9D + 9D0061616100616161004E4EDD004E4EDD004E4EDD004E4EDD00616161006161 + 61009D9D9D000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E7E7E70000000000B3B3B300B3DFD1000094 + 6300009463000094630000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000009D9D9D00616161006161610061616100616161009D9D9D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000009463000000000000000000000000000000000000000000000000000000 + 0000626162006261620062616200626162006261620062616200626162006261 + 6200626162006261620062616200626162000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000626162000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000062616200626162006261 + 6200626162006261620062616200626162006261620062616200626162006261 + 6200626162006261620062616200626162000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E4E4E40000000000FFA83700FF9E340080000000FF732600FF6923008000 + 0000FF311000FF230B0000000000626162000000000000000000000000000000 + 00001F79A500FFFFFF0066CCFF0066CCFF0066CCFF0066CCFF0066CCFF0066CC + FF0066CCFF0066CCFF0066CCFF0000000000A78B6900412C1300412C1300412C + 1300412C1300412C1300412C1300412C1300412C1300412C1300412C1300412C + 1300412C1300412C1300412C1300626162000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E7E8E70000000000FFB13B00FFA7370080000000FF7C2800FF7125008000 + 0000FF3D1400FF2F0F0000000000626162000000000000000000000000000000 + 00001F79A500FFFFFF0066CCFF00000000000000000000000000000000000000 + 0000000000000000000066CCFF0000000000A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D200BEE1CC00B6DDC500AED8BE00A8D6BA009FD0B10097CC + AA0090C8A5008CC5A100412C1300626162000000000000000000000000000000 + 0000471515000000000000000000313131003131310031313100313131003131 + 3100313131003131310031313100000000000000000000000000000000000000 + 0000000000000000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000626162000000000000000000000000000000 + 00001F79A500FFFFFF0066CCFF000000000066CCFF001F79A50066CCFF001F79 + A50066CCFF000000000066CCFF0000000000A78B6900DAEEE2007C5D37007C5D + 3700CFE9DA007C5D37007C5D37007C5D37007C5D37007C5D37007C5D37007C5D + 37007C5D37008CC5A100412C1300626162000000000047151500471515004715 + 1500471515004715150000000000724B3900925A3F00925A3F00925A3F00925A + 3F00925A3F00925A3F0031313100000000000000000000000000000000000000 + 0000F6F6F60000000000FFD14500FFCC440080000000FFAA3800FFA035008000 + 0000FF752700FF6A230000000000626162000000000000000000000000000000 + 00001F79A500FFFFFF0066CCFF00000000000000000000000000000000000000 + 0000000000000000000066CCFF0000000000A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D200BEE1CC00B6DDC500AED8BE00A8D6BA009FD0B10097CC + AA0090C8A5008CC5A100412C1300626162000000000000000000000000000000 + 0000471515000000000000000000724B39009A6349009A6449009A6349009A64 + 48009A6348009A644900313131000000000000000000A3A2A300A3A2A3000000 + 0000F9F8F80000000000FFD14500FFD1450080000000FFB33C00FFA837008000 + 0000FF7D2A00FF73260000000000626162000000000000000000000000000000 + 00001F79A500FFFFFF0066CCFF0066CCFF0066CCFF0066CCFF0066CCFF0066CC + FF0066CCFF0066CCFF0066CCFF0000000000A78B6900DAEEE2007C5D37007C5D + 3700CFE9DA007C5D37007C5D37007C5D37007C5D37007C5D37007C5D37007C5D + 37007C5D37008BC49F00412C1300626162000000000000000000000000000000 + 0000000000000000000000000000724B3900A7705600A6715600A7715600A770 + 5600A6705600A670570031313100000000006A6A6A006A6A6A006A6A6A000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000062616200000000009C6363009C6363009C63 + 63001F79A500FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D200BEE1CC00B6DDC500AED8BE00A8D6BA009FD0B10099CE + AD0091C9A6008CC5A100412C1300626162000000000000000000000000000000 + 0000000000000000000000000000724B3900B47F6500B37E6500B47E6500B37F + 6500B37E6500B47E650031313100000000006A6A6A00EFEFEF006A6A6A000000 + 0000FFFFFF0000000000F9F8F800F5F6F500EBECEB00E8E9E80000000000D9D8 + D900D4D5D400D0D0D00000000000626162009C636300CE9C9C00CE9C9C00CE9C + 9C001F79A5001F79A5001F79A5001F79A5001F79A5001F79A5001F79A5001F79 + A5001F79A5001F79A5001F79A50000000000A78B6900DAEEE2007C5D37007C5D + 37007C5D37007C5D37007C5D37007C5D37007C5D37007C5D37007C5D37007C5D + 37007C5D37008CC5A100412C1300626162000000000000000000000000000000 + 0000000000000000000000000000724B3900C08C7300BF8C7300BF8C7300BF8C + 7300C08C7300BF8B730031313100000000006A6A6A00F1F1F1006A6A6A000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000009C636300CE9C9C0000FF0000CE9C + 9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C + 9C009C636300000000000000000000000000A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D200BEE1CC00B6DDC500AED8BE00A6D5B8009FD0B10097CC + AA0090C8A5008BC49F00412C1300626162000000000000000000000000000000 + 0000000000000000000000000000724B3900CC9A8100CD998200CC9A8100CC99 + 8200CD9A8200CC99820031313100000000006A6A6A006A6A6A006A6A6A00B46A + 6A00B46A6A00B46A6A00B46A6A00B46A6A00B46A6A00B46A6A00B46A6A006A6A + 6A00A3A2A3000000000000000000000000009C636300CE9C9C009C6363009C63 + 63009C6363009C6363009C6363009C6363009C6363009C6363009C6363009C63 + 63009C636300000000000000000000000000A78B6900DAEEE2004B93C50073C6 + E50073C6E50073C6E50073C6E500B6DDC500AED8BE00A8D6BA009FD0B10097CC + AA0090C8A5008CC5A100412C1300626162000000000000000000000000000000 + 0000471515000000000000000000724B3900D8A68F00D9A69000D8A78F00D9A7 + 8F00D8A79000D9A78F0031313100000000006A6A6A00FAFAFA006A6A6A00FFE5 + 9700FFE29600B8707000FFCF8F00FFCA8E00B8707000FFB28600FFAB84006A6A + 6A00A3A2A3000000000000000000000000009C636300CE9C9C00CE9C9C00CE9C + 9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C + 9C009C636300000000000000000000000000A78B6900DAEEE2004B93C5004B93 + C5004B93C5004B93C50073C6E500B6DDC500AED8BE00A6D5B8009FD0B10097CC + AA0090C8A5008BC49F00412C1300626162000000000047151500471515004715 + 1500471515004715150000000000724B3900E1B09900E1B09900E1B09900E1B0 + 9900E1B09900E1B0990031313100000000006A6A6A00FBFBFB006A6A6A00FFE5 + 9700FFE59700B8707000FFD49200FFCE8F00B8707000FFB68800FFB085006A6A + 6A00A3A2A3000000000000000000000000009C636300FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF009C636300000000000000000000000000A78B6900DAEEE200D5ECDD00D5EC + DD00CFE9DA00C7E6D200BEE1CC00B6DDC500AED8BE00A6D5B8009FD0B10097CC + AA0090C8A5008BC49F00412C1300626162000000000000000000000000000000 + 0000471515000000000000000000724B3900724B3900724B3900724B3900724B + 3900724B3900724B390031313100000000006A6A6A006A6A6A006A6A6A006A6A + 6A006A6A6A006A6A6A006A6A6A006A6A6A006A6A6A006A6A6A006A6A6A006A6A + 6A00A3A2A300000000000000000000000000000000009C636300CE9C9C00CE9C + 9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C9C00CE9C + 9C00FFFFFF00000000000000000000000000A78B6900A78B6900A78B6900A78B + 6900A78B6900A78B6900A78B6900A78B6900A78B6900A78B6900A78B6900A78B + 6900A78B6900A78B6900A78B6900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006A6A6A00FFFFFF006A6A6A00FBFB + FB00F9FAF900F3F4F300F1F2F1006A6A6A00E9E8E900E6E6E600E3E3E3006A6A + 6A00A3A2A30000000000000000000000000000000000000000009C6363009C63 + 63009C6363009C6363009C6363009C6363009C6363009C6363009C6363009C63 + 63009C6363000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000006A6A6A006A6A6A006A6A6A006A6A + 6A006A6A6A006A6A6A006A6A6A006A6A6A006A6A6A006A6A6A006A6A6A006A6A + 6A00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000B27F4F00AC743B00A96E3500A96E + 3500AF783D00AD743800AA6E3500AB713700AB733900A86D3600A76E3800A970 + 3C00A8703E00A0633700A0663D00E4D4CA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000683E68000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008E400000A86E2D00C7A17800CBA7 + 83009B530A00BC8D5A00C39C7000BC8C5B00B27E4600BB8D5D00B4815100954F + 13008A3E0000B6886100873C0000AA775900FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00808080000000000000000000000000000000000000000000000000000000 + 000000000000683E6800683E68009300D600804C800000000000000000000000 + 0000000000000000000000000000000000009C636300FFFFFF00FFCC99006633 + 3300000000000000000000000000000000000000000000000000939393009393 + 930000000000A86F6A00A168660000000000964C0000A35F1400E0CEB500E4D4 + BE00994D0000E4D2B800EDE1D100D2B28900DBC3A300B9895200B98A5500B07A + 4300C7A47F00E8DACA009B5C2100AC7A530000000000FFFFFF00000000008080 + 8000FFFFFF000000000080808000FFFFFF000000000080808000FFFFFF000000 + 000080808000000000000000000000000000000000000000000000000000683E + 6800683E68009300D600CC66CC00D6E7E700C0C0C000804C8000000000000000 + 0000000000000000000000000000000000009C636300FFFFFF00FFCC99006633 + 3300000000000000000000000000000000000000000000000000939393009393 + 930000000000A76F6A00A068660000000000994E0000C3986400E3CFB400E0C9 + AA00B0762B00CCA67500F5EFE600C3975F00F1E8DB00CDAA7C00D2B49000BE91 + 6000D0B28E00E4D2BF00934E0900AD7B53000000000080808000C0C0C000C0C0 + C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0 + C000C0C0C00080808000808080000000000000000000683E6800683E68009300 + D600CC66CC00D6E7E700D6E7E700D6E7E700C0C0C000C0C0C000804C80000000 + 0000000000000000000000000000000000009C636300FFFFFF00FFCC99006633 + 3300000000000000000000000000000000000000000000000000939393009393 + 930000000000A86F6900A1686500000000009D550000A35C0000AD6F1900A45C + 0000A8640400AD6D1300B0732300AB6A1000AB6C1A00A15B03009D5503009C55 + 00009D580C00A0601A00924C0000B07E53000000000080808000C0C0C00000FF + 0000C0C0C000C0C0C000C0C0C000000000000000000000000000000000000000 + 0000C0C0C0008080800080808000000000007A457A009300D600CC66CC00D6E7 + E700D6E7E700C0C0C000C0C0C0007A457A009999990090A9AD00C0C0C000804C + 8000000000000000000000000000000000009C636300FFFFFF00FFCC99006633 + 3300663333006633330066333300663333006633330066333300663333006633 + 330066333300A8706900A168650000000000A0570000A7620000A8630600C08E + 4600B1711A00AA660000A9630000A8630000A5600000A5600000A35E0000A05A + 00009C55000097500000954F0000B08053000000000080808000C0C0C000C0C0 + C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0 + C000C0C0C0008080800080808000000000007A457A0099999900D6E7E700C0C0 + C00090A9AD007A457A007A457A00955D9500000000008686860099999900C0C0 + C000804C80000000000000000000000000009C636300FFFFFF00FFCC9900FAC7 + 9600F3C09300ECB78F00E3AE8900D9A58500D29B8000C9937C00C18A7700B881 + 7300B0776E00A7706900A168650000000000A45C0000AC680000D2AD7600FFFF + FF00F6EEE100AF670000B06C0000AE6A0000AC680000A9650000A7620000A45F + 0000A15A00009D56010099530100B38253000000000000000000808080008080 + 8000808080008080800080808000808080008080800080808000808080008080 + 800080808000C0C0C00080808000000000007A457A0099999900C0C0C0007A45 + 7A007A457A00B46CB400B46CB400955D9500955D950000000000666666009999 + 990090A9AD00804C800000000000000000009C636300FFFFFF00FFCC9900FAC7 + 9700F4C09300ECB78F00E3AE8900DAA48500D29B8000CA937C00C18A7700B881 + 7200B0776D00A86F6900A168660000000000A75F0000AF6B0000DBBA8B00FFFF + FF00FAF6F000B26A0000B46E0000B16D0000AF6A0000AC680000A8640000A561 + 0000A25C00009E5800009A540000B48353000000000000000000000000008080 + 8000808080008080800080808000808080008080800080808000808080008080 + 80008080800080808000C0C0C000000000007A457A007A457A007A457A00B46C + B400B46CB400B46CB400B46CB400B46CB400955D9500955D9500000000006666 + 66009999990086868600804C8000000000009C636300FFFFFF00FFCC9900FAC7 + 9700004B7100004B7100004B7100004B7100004B7100004B7100004B7100004B + 7100004B7100A8706900A169660000000000AB630000B36F0000DBBB8900FFFF + FF00FAF6EE00B76F0000B46B0000B36A0000B0680000AD650000A9620000A45D + 0000A5600000A15B00009D570100B6855300000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00808080000000000000000000000000007A457A00F8B9F800B46CB400B46C + B400B46CB400B46CB400B46CB400B46CB400955D9500955D9500955D95000000 + 00006666660099999900804C8000000000009C636300FFFFFF00FFCC99003399 + CC00CCFFFF00C0F7FB00AFECF5009CDFEF0089D2E90076C6E20063B9DC0050AC + D5003EA1D000004B7100A169650000000000AE650000B6720000DDBC8900FFFF + FF00FAF6EE00B86E0000E7CFA900F1E3CB00EFE2CB00EFE1CB00EFE1CC00D5B3 + 8500A55F0000A25D00009F580000B7865200000000000000000000000000FFFF + FF0000000000808000008080000000000000000000000000000080800000FFFF + FF0080808000000000000000000000000000000000007A457A00F8B9F800B46C + B400B46CB400B46CB400B46CB400B46CB400955D9500955D9500955D95007A43 + 7A000000000066666600804C8000000000009C636300FFFFFF00FFCC99003399 + CC00CCFFFF00C0F7FB00AFECF6009BDFEF0088D2E90076C6E20063B9DC0050AC + D5003FA1D000004B7100A168660000000000B2680000BA750000DFBE8900FFFF + FF00FBF6EE00BC6F0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCFA + F600A45C0000A5600000A15A0000B8885300000000000000000000000000FFFF + FF00000000008080000000000000FFFFFF00FFFFFF000000000080800000FFFF + FF008080800000000000000000000000000000000000000000007A457A00F8B9 + F800B46CB400B46CB400B46CB400B46CB400B46CB400955D9500955D95007A43 + 7A007A437A0000000000804C8000000000009C636300FFFFFF00FFCC99003399 + CC00CCFFFF00C0F7FC00AFECF6009CDFEF0089D2E90076C6E30063B9DC004FAC + D5003FA1D000004B7100A168660000000000B36A0000BC780000E1C08900FFFF + FF00FBF7EE00C2760000D6A65800DDB67A00DBB47900D8B27900D6AF7A00BD85 + 3A00A8630000A5600000A25C0000B9885300000000000000000000000000FFFF + FF000000000080800000FFFFFF00FF000000FF0000000000000080800000FFFF + FF00808080000000000000000000000000000000000000000000000000007A45 + 7A00F8B9F800B46CB400B46CB400B46CB400B46CB400955D9500955D95007A43 + 7A007A437A007A437A0000000000000000009C636300FFFFFF00FFCC99003399 + CC00CCFFFF00C0F7FB00AFEBF5009CDFEF0088D2E80077C6E30063B9DC0050AC + D6003FA1D000004B7100A168660000000000B66D0000C17B0000E3C18900FFFF + FF00FFFFFF00E6C58C00E6C78E00E4C58D00E2C48D00E0C28D00DEC08D00DCBF + 9000C5955200A6610000A35D0000BA895300000000000000000000000000FFFF + FF0000000000FFFF00000000000000000000000000008080000080800000FFFF + FF00808080000000000000000000000000000000000000000000000000000000 + 00007A457A00F8B9F800B46CB400B46CB400B46CB400955D9500955D95007A43 + 7A007A437A00643C640000000000000000009C636300FFFFFF00FFCC99003399 + CC00CCFFFF00C0F7FB00AFEBF5009CDFEF0088D2E80076C6E20063BADD0050AC + D6003FA1D000004B7100A168650000000000B86E0000C27C0000E3C08500FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00A2590000A35E0000BA895300000000000000000000000000FFFF + FF0000000000000000000000000000000000000000000000000000000000FFFF + FF00808080000000000000000000000000000000000000000000000000000000 + 0000000000007A457A00F8B9F800B46CB400B46CB400B46CB400955D9500643C + 6400000000000000000000000000000000009C636300FFFFFF00FFCC99003399 + CC00CCFFFF00C0F7FB00B0ECF6009CDFEE0088D2E80076C6E20063B9DC004FAD + D6003EA1D000004B71000000000000000000BA710000C47E0000CD8A1500F6EA + D400F7ECD500F8ECD500F7EBD500F5EAD500F5E9D500F4E9D500F3E8D500F2E8 + D600DEC59C00A6610000A45F0000BA885100000000000000000000000000FFFF + FF00C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0 + C000808080000000000000000000000000000000000000000000000000000000 + 000000000000000000007A457A00F8B9F800B46CB400643C6400000000000000 + 0000000000000000000000000000000000009C636300FFFFFF00FFFFFF008888 + 8800CCFFFF00C0F7FB00B0ECF6009CDFEF0088D2E80076C6E30063B9DC004FAC + D6003FA1D00066666600C0C0C00000000000BF7C1D00C8841700CD871700D490 + 1900DA961A00DB971A00D5911A00CF8B1A00C9871A00C3821A00BE7D1A00B878 + 1A00AF6C1600AC6C1700A8661600CBA67F000000000000000000000000000000 + 0000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0 + C000FFFFFF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000007A457A000000000000000000000000000000 + 0000000000000000000000000000000000009C6363009C6363009C6363009C63 + 63009C6363009C6363009C6363009C6363009C6363009C6363009C6363009C63 + 63009C6363009C6363009C6363009C6363000000000066666700666667006666 + 6700666667006666670066666700666667006666670066666700666667006666 + 6700666667006666670066666700666667000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000066666700666667006666 + 6700666667006666670066666700666667006666670066666700666667006666 + 6700666667006666670066666700666667000000000066666700666667006666 + 6700666667006666670066666700666667006666670066666700666667006666 + 67006666670066666700666667006666670000285C0000285C0000285C000028 + 5C0000285C0000285C0000285C0000285C0000285C0000285C0000285C000028 + 5C0000285C0000285C0000285C0066666700000000007A420000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000285C0000285C0000285C000028 + 5C0000285C0000285C0000285C0000285C0000285C0000285C0000285C000028 + 5C0000285C0000285C0000285C006666670000285C0000285C0000285C000028 + 5C0000285C0000285C0000285C0000285C0000285C0000285C0000285C000028 + 5C0000285C0000285C0000285C00666667003D78B50090E9FF008BE5FD0084DE + FA007AD7F70070CFF30066C7F0005BBEED0052B6E80048AEE5003FA6E100349E + DE002A95DA001F8DD60000285C0066666700000000000000A8007A4200000000 + 0000000000000000000000000000000000000000000062350000000000000000 + 0000000000007A42000000000000000000003D78B50090E9FF008BE5FD0084DE + FA007AD7F70070CFF30066C7F0005BBEED0052B6E80048AEE5003FA6E100349E + DE002A95DA001F8DD60000285C00666667003D78B50090E9FF008BE5FD0084DE + FA007AD7F70070CFF3005AB1DB004FA5D5004FB0E20048AEE5003FA6E100349E + DE002A95DA001F8DD60000285C00666667003D78B50090E9FF00192D5C000004 + 3800000438004C8FB80066C6F0005CBEEC0052B5E80023578C00000438000004 + 38000D326B00208DD60000285C006666670000000000000000000000A8007A42 + 0000000000000000000062350000000000000000000062350000000000000000 + 00007A420000000000007A420000000000003D78B50090E9FF008AE4FD000004 + 3800000438000004380000043800000438000004380008174C00153B71002E89 + C8002A95DA00208DD60000285C00666667003D78B50090E9FF008AE4FD0078CC + EA002F558100050E4100000438000004380001073B00173A6F003794CF00359E + DE002A95DA00208DD60000285C00666667003D78B50090E9FF004E83A8000004 + 3800000438001E3A6A004180AD003A7AAA003374A8000B1E5200000438000004 + 38001C65A4001F8DD60000285C006666670000000000000000000000A8000000 + 00007A42000000000000623500000000000000000000000000007A4200007A42 + 00000000000000000000000000007A4200003D78B50090E9FF008AE4FD000004 + 380000043800000438000004380000043800000438000004380000043800081C + 51002994D7001F8DD60000285C00666667003D78B50090E9FF0084D9F4001424 + 5500000438000004380000043800000438000004380000043800081A4F003194 + D3002A96DA001F8DD60000285C00666667003D78B50090E9FF0080D2ED000207 + 3B0000043800000438000004380000043800000438000004380000043800030E + 43002990D5001F8CD70000285C00666667000000000000000000000000000000 + A800000000007A42000000000000000000007A4200007A420000000000000000 + 0000623500000000000000000000000000003D78B50090E9FF008BE4FD000004 + 38000004380000043800386F9D003A7AAB00275A8D0000043800000438000004 + 38002278BA001F8CD70000285C00666667003D78B50090E9FF0046749B000004 + 380000043800112254004689B6004289BA000C1F520000043800000438001C57 + 91002A95DA001F8CD70000285C00666667003D78B50090E9FF008BE4FD002A4A + 7600000438000004380011255700193669000B1C50000004380000043800143F + 77002A95DA00208DD70000285C00666667000000000000000000000000000000 + A80000000000000000007A4200007A4200000000000000000000000000000000 + 0000623500000000000000000000000000003D78B50090E9FF008BE4FD000004 + 3800000438000004380058ACD7005CBEEC0052B6E90007154900000438000004 + 38002278BA00208DD70000285C00666667003D78B50090E9FF001A2D5C000004 + 3800000438004D8FB80066C6EF005CBEEC004293C600030C400012346B00236C + A9002A95DA00208DD70000285C00666667003D78B50090E9FF008AE4FD005795 + B90000043800000438002E5C8B005BBEEC0017366A000004380000043800287A + B6002A95DA00208CD70000285C00666667000000000000000000000000000000 + 00000000A8000000000000000000000000006235000000000000000000000000 + 0000000000000000A80000000000000000003D78B50090E9FF008AE4FD000004 + 380000043800000438002042720021487A00132E610000043800000438000D2B + 61002A95DA00208CD70000285C00666667003D78B50090E9FF00000438000004 + 38000004380062B5DA0066C7EF005BBEEC0052B6E80046A9E0003FA6E200349E + DD002A95DA00208CD70000285C00666667003D78B50090E9FF008BE4FD0080D8 + F4000A154800000438000F21530058B5E400030A3E0000043800081A4F00349D + DD002A95DA00208DD70000285C00666667000000000000000000000000000000 + 00000000A80000000000000000000000000062350000000000000000A8000000 + A8000000A800000000000000A800000000003D78B50090E9FF008BE4FD000004 + 380000043800000438000004380000043800000438000004380013376D00339B + DA002A95DA00208DD70000285C00666667003D78B50090E9FF00000438000004 + 38000004380060B2D80066C6EF005CBEEC0052B6E90048AEE5003EA6E200349D + DD002A95DA00208DD70000285C00666667003D78B50090E9FF008AE4FD0083DE + FA00335C870000043800000438003169990000043800000438001F538B00349E + DD002A95DA00208CD70000285C00666667000000000000000000000000000000 + 7F00000000000000A8000000000000000000000000000000A800000000000000 + 00000000000000007F00000000000000A8003D78B50090E9FF008AE4FD000004 + 380000043800000438004486B2004693C20018396C0000043800000438001E5E + 98002A95DA00208CD70000285C00666667003D78B50090E9FF00172A59000004 + 3800000438004B8CB50066C7EF005BBEEC00469BCE00255C92002D78B2003194 + D2002A95DA00208CD70000285C00666667003D78B50090E9FF008BE4FD0084DF + FA0062AED2000004380000043800040D40000004380000043800358EC900349D + DD002A95DA00208DD70000285C00666667000000000000000000000000000000 + 7F0000000000000000000000A800000000000000A80000000000000000000000 + 7F000000000000007F0000000000000000003D78B50090E9FF008BE4FD000004 + 3800000438000004380058ACD7005CBEEC0026578B0000043800000438000E2D + 65002A95DA00208DD70000285C00666667003D78B50090E9FF003E6890000004 + 3800000438000B184A004282AE004289B9000F25590000043800000438001E5D + 98002A95DA00208DD70000285C00666667003D78B50090E9FF008AE4FD0083DE + FA007BD7F700132658000004380000043800000438000E265B003FA6E200349E + DD002A95DA00208CD70000285C00666667000000000000000000000000000000 + 00000000000000000000000000000000A8000000000000000000000000000000 + 7F00000000000000000000000000000000003D78B50090E9FF008AE4FD000004 + 3800000438000004380000043800000438000004380000043800000438001749 + 82002A95DA00208CD70000285C00666667003D78B50090E9FF0081D5F0001424 + 55000004380000043800000438000004380000043800000438000B1F55003299 + D8002A95DA00208CD70000285C00666667003D78B50090E9FF008BE4FD0083DE + FA007BD7F8003E74A00000043800000438000004380029659A003EA7E200359E + DE002A95DB001F8DD60000285C00666667000000000000000000000000000000 + 0000000000000000000000007F00000000000000000000000000000000000000 + 0000000000000000000000000000000000003D78B50090E9FF008BE4FD000004 + 38000004380000043800000438000004380000043800050F4400184379003397 + D6002A95DB001F8DD60000285C00666667003D78B50090E9FF008BE4FD0078CC + EA002F558200050E41000004380000043800030A3E001C457A003897D100359E + DE002A95DB001F8DD60000285C00666667003D78B50090E9FF008BE5FD0083DE + FB007AD7F70070CFF30066C6F0005CBEEC0052B6E90048AEE5003EA6E200359D + DD002A95DA001F8DD60000285C00666667000000000000000000000000000000 + 0000000000000000000000007F00000000000000000000000000000000000000 + 0000000000000000000000000000000000003D78B50090E9FF008BE5FD0083DE + FB007AD7F70070CFF30066C6F0005CBEEC0052B6E90048AEE5003EA6E200359D + DD002A95DA001F8DD60000285C00666667003D78B50090E9FF008BE5FD0083DE + FB007AD7F70070CFF3005AB0DB0050A5D40052B6E90048AEE5003EA6E200359D + DD002A95DA001F8DD60000285C00666667003D78B5003D78B5003D78B5003D78 + B5003D78B5003D78B5003D78B5003D78B5003D78B5003D78B5003D78B5003D78 + B5003D78B5003D78B5003D78B500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000003D78B5003D78B5003D78B5003D78 + B5003D78B5003D78B5003D78B5003D78B5003D78B5003D78B5003D78B5003D78 + B5003D78B5003D78B5003D78B500000000003D78B5003D78B5003D78B5003D78 + B5003D78B5003D78B5003D78B5003D78B5003D78B5003D78B5003D78B5003D78 + B5003D78B5003D78B5003D78B500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000B00200000100010000000000801500000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F800FFFFFFFFFF83F80080018001FE03 + F80080008001F803E00000008001E001E00000008001E001E0000000FFFFE001 + 800000008001C000800000008001C000800000008001C000800300008001C000 + 80030000FFFF80008003000180018000800F807F80018001800FE07F80018007 + 800FF87F8001C01FFFFFFE7FFFFFF07FFFFFFF1FFF1FFFFF8000FE0FFE0FE0FF + 0000FE07FE07C1FF0000EE03EE03820300008601860184010000020102010800 + 0000000100010800000000010001080000000001000108000000000100010800 + 000000010001080000000003000308000000800F800384010000C03FC0238203 + 0001E0FFE0FFC1FFFFFFF3FFF3FFE0FF00000000FE3F000007FF0000FE0F0000 + 07FF0000FE07000007FF0000FF030000000F0000FF010000000F0007C0000000 + 000F0007800000000003700780010000000370078003000000037E0780030000 + 007F7E0780030000007F7E0780030000007F7E3F8003000001FF7E3F80030000 + 01FF7FFF8007000001FF7FFFFFFF0000F81FF0070000FFFFF00FC0033FFFFFFF + F00F80031FFBFFFFF00F80034FF5AB038001800357CEFE01000080036B3FAA00 + 000080036CFFFC000000800377FBFC010000800377C55001000080037BBEF803 + 000080037D7FA803000180037EFFFC07F00F80037FFF5607F00F80077FFFFFFF + F00FC0077FFFFFFFF01FEAAF7FFFFFFFF81FFFFFFFFFFFFFF007FFFFFE0FFFFF + F003FFFFF80383C1F0070000E00003C0F0036DB6800107E0F0037DF700030FF0 + C01FFFFF00010FF0C01F000000030FF0C01F000000030FF0C01F000000030FF0 + C03F000000010FF0E07F0000C00307E0F87F0000E00F03C0F87F0000E03F83C1 + FCFF0000F0FFFFFFFFFFFFFFFBFFFFFF0000FE3FFFFFFFFF0000FC1F03FF03FF + 0000F80F03FF03FF0000F00703FF03FF0000E00303FF03FF0000C001FF9FFF9F + 00008000030F030F000000000007000700000001022302230000800303710371 + 0000C003FFF8FFF80000E00103FE03FE0000F00003FF03FF0000F80003FF03FF + 0000FC6103FF03FF0000FEF3FFFFFFFFFFFFE000FFFF0000C003C000C0030000 + 8003800080030000800380008003000080038000800300008003800080030000 + 8003800080030000800380008003000080038000800300008003800080030000 + 8003800080030000800380018003000080038003800300008007800780070000 + 800F800F800F0000801F801F801F00008001FFFFFFFFE1FF8000FFF9FFFFE1FF + 0000C0016111E11F00008001FFFFE1FF000080036111E3FF00008003FFFFFF0F + 000080036111FF0F00008003FFFFFF08000080036111FF0F00008003FFFFFF1F + 00018003611187FF85578003FFFF87FFC60F80030000847FE75F8007FFFF87FF + F7FFFFFFE1118FFFFFFFFFFFFFFFFFFFFF7FC001FFFFFFFFFE3FC001C33FC000 + FC1FC001821F0000F80FC001820F0000F007C00182070000E003C00182030000 + C001C00182010000F80FC00182010000F80FC00182010000F80FC00182030000 + F80FC00182070000F80FC001820F0000F80FC001821F0000F80FC003823F0000 + F80FC00786FF0001FFFFC00FFFFFFFFFFFFFFFFF80FFFFFFFFFFE0000007FFFF + 001FC0000001FFBF0003C0000000FF9F000080008000FF8F800F800080078007 + 800F0000C0038003C0070000C0038001C0070000E0018000E0038000E0018001 + E0038000F8018003F8018001FC038007FF03C07FFE01FF8FFFE7E0FFFE01FF9F + FFFFFFFFFFC0FFBFFFFFFFFFFFF9FFFFFE3FFFFFFFFFFFFFFE0FC007FFF7FFFF + FE03C007FFE3FFFFF800C007FFC18001F800C007FF838001E800C007E0078001 + C800C007C00F80018000C007801F80010000C007801F80010000C007801F8001 + 8000C007801F8001C800C007801F8001E800C007801F8003F800C007C03F81FF + F800C007E07FFFFFF800FFFFFFFFFFFFFFFF8000FFFF0000FFFF000080000000 + FFFF00000000000007E000000000000007E00000000000000760000000000000 + 0020000000000000000000000000000000200000000000000760000000000000 + 07E000000000000007E0000000000000FFFF000000000000FFFF000000000000 + FFFF000000010000FFFF0001FFFF0000FFFFFFFFE0078001FF0FFFFFE0070001 + FC03E1F3E0070001F000C1E3E0070001C001C1C3E00700010007C183FFFF0001 + 0007C003FBDF00018003C003F1DF00010003C003FB8F00018001C003FBDF0001 + 0001C003FFFF00010001C103E00700010007C183E0070001801FC1C3E0070001 + F07FC1E3E0070001F9FFFFFFE0070003C001FFFFF1FFFFFFC001FE61E003FFFF + C001FC41E001FFFFC001F841C000F3FFC001F041C000E1FFC001E041C000C0FF + C001C041C000807FC0018041C000003FC0018041E000841FC001C041F001DE0F + C001E041F1FFFF07C001F04110CFFF83C001F841000FFFC1C003FC41001FFFE1 + C007FEC3003FFFF3C00FFFFF307FFFFFE01FFFFFFFFFFFFFE003FFFFFFFFF80F + E001FFFFFDFFF80FC001FFFFF9FFF80FC0008001F1FFF80F80000000E001F80F + 80000000C001F80F800000008001F80F800000000001F80F800000008001C001 + 80000000C001E00380000001E001F0078000FFFFF1FFF80F8300FFFFF9FFFC1F + 9FC0FFFFFDFFFE3FFFFFFFFFFFFFFF7FFFFFFFFF0000FFFF807F80000000DFFF + 807F00000000CFFD807B00000000C7F9806100000000E3F3805B00000000F1E7 + 805F00000000F8CF806F00000000FC1F807700000000FE3F807B00000000FC1F + 807D00000000F8CF804300000000F1E7807F00000000E3F3807F00010000C7F9 + 807FFFFF0000FFFFFFFFFFFF0000FFFFFFFFFFFF0000FFFFFFFFFFFF00008000 + C003F9FF00000000C003F0FF00000000C003E07F00000000C003C03F00000000 + C003801F00000000E007C20F00000000F81FEF0700000000FC3FFF8300000000 + F81FFFC100000000F00FFFE100000000F00FFFF100000000F81FFFF900000000 + FFFFFFFF00000101FFFFFFFF0000FFFF00000000FFFFFFFF000000008003D00B + 000000008003B00D000000008003B00D000000008003B00D00000000E3CFBFFD + 000000008003B00D000000008003700E000000008003B00D000000008003B00D + 00000000F19FBFFD000000008003B00D000000008003B00D000000008003B00D + 000000008003D00B00000000FFFFFFFFFFFF00000000FFFFFF8F6FFC7F800000 + FF8740007F807FFEFF8300007F802B02004100007F807E00006100002B002A00 + 007100007E007C0003F800002A007C0001F800007C00500000F000007C007802 + 10610000500028021801000078027C061C030000280256069F0F00007C067FFE + FFFF7FFE56060000FFFF00000000FFFFFFFFF81FE03FFFFFFF80F81FC00FFFFF + FF80000FC003C00FFF80000FC0038007FF800007C0038007AB000003C01F8007 + FE000003C01F8007AA000003C01F8003FC000001C01F8003FC010001C01F8000 + 50010003E03F8000F8030003FFFF8001A8030001FDFF8003FC078030EDFF8007 + 5607E038C3FF8007FFFFFC7CEFFFFFFFFFFFC001F000F01FF00F8001E000E007 + F00F8001E000E001F00F8001C000E001F81F8001C000E001F81F80018000E00F + 8C2380018000E00F842180018000E00F02408001C000E00F86618001C001E00F + CE738001E07FF01FC0018001F0F7BF7F80018001FF771E3FFE7F8001FE0F4F7F + FE7F8001FF7FE0FFFFFF8003FFFFF7FFF000FFFF027DF8FFF000FFFF0239F03F + F000FFFF0313F00FC00000000387E003C0000000FF87E001C00000000313C001 + 000000000239C00300000000037D800300000000039F800100030000FF0F0000 + 00030000020700000003000002238000000FFFFF0371C010000FFFFF03FCE018 + 000FFFFFFFFEF83CFFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFFC000CF87C0010201 + 00008707800103FF00008307B6D903FF00008107BEFB03FF00008007FFFFFFFF + 00008007E001020100008007800103FF00008007800103FF00008007800103FF + 000081078001FFFF000083078001020100008707800103FF00008F07800103FF + 0001BF0F800103FFFFFFFFFF8003FFFFFFFFFFFFFF7F0000C001FFFFF01F0000 + 80018F8FC0070000800188880003000080018F8FC003000080019F9FE0070000 + 8001FFFFC007000080018F8FC01B000080018888801D000080018F8F80074030 + 80019F9F000760788001FFFF007F707C80018F8F007F70FE80018888C0FF79FF + 80038F8FE0FF7BFFFFFF9F9FFDFF7FFFFFFFFC7FE1EBE3C7FFFFF81FC081C007 + 8003F807806AC0038003F001002AC0038003F0000001C0038003E000002B8003 + 8003E001802B8003FFFFC001C0C08003FFFFC003E1EB800380038003E1FF8003 + 80038007E1F180038003C007807180038003E00F003180038003F00F00208003 + FFFFFC1F00318003FFFFFFFF003BC007FFFF0000FFFFFFFFFFFF0000FC00FDFF + 800100000000F8FF000000000000F07F000000000001E03E000000010001C000 + 0000C001000180000000C001000100000000C001000180000000C0010001C000 + 0000C001007FE0010000C001007FF0030000C001007FF8078001E001007FFC1F + FFFFF003007FFE3FFFFFFFFFFFFFFF7FFFFFFF1FFFFFF000E1FFFE0F02FFE000 + C1FFFE07000FE00081CFEE0302F7E0000187860103F7E0000703020103C0E000 + 0E010001DC40E0000C0000018CC060000F870001DD4020000F870001DF7F0000 + 07070001DE0700000007000302070001800F800F020701FFC01FC03B020720FF + E03FE00103FF64FFFFFFF3FBFFFFE7FFFC7FFFFFFFFFFFFFF83FFFFF03C0FFFF + F01F00000340FFFFE00F7FFE000007E0C007FFFF0340076080030000FFFF0420 + 0001000003C0076000000000034007E080000000000007E0C0010000034006E0 + E0030000FFFF0420F007FFFF03C006E0F80F7FFE034007E0FC1F00000000FFFF + FE3FFFFF0340FFFFFF7FFFFFFFFFFFFFFBFFFFFF0000FE7FE1FFFFFF0000E67F + 8001EFFD0000E7F38000C0000000FFF3E00080000000FFFFE000800000008000 + C001800000008000C0078000000080008003800000008000800180000000FFCF + 000180000000F9CF000180000000C9F3800180000000CF33E00180000000F33C + F80780010000F3FCFF8FFFFF0000FFFFFFFFFFFFFF3FFFFFC000FFFCFC0F0000 + 0000FFF8F00300000000F0F8F1E100000000C001F873000000008003FE330000 + 00008003F807000000008003E007000000000003C00700000000000780074000 + 0000800FC007E0000000801FC007F0000000801FE003FC000000C03FE003FF00 + 0001F0FFF001FFC0FFFFFFFFF003FFF0FFFFF01FFFFFFFFF8000C00FBFFFFC3F + 000080039FFFE427000000018007C003000000018003C003000000018003E007 + 0000000180038001000000018003818100000001800381810000000180038001 + 000080018003E0070000C0018003C0030000F0018003C0030001FE01C007E427 + FFFFFF03FFFFFC3FFFFFFF8FFFFFFFFFFE07FFFFFFFFFFFFFC01FF87C7F98000 + FC00FF8383F90000FC01F38183F10000FC00E18081E30000BC00C0E0C0C30000 + 10078070E007000080070030F00F0000C007E1F0F81F0000E007E1F0F80F0000 + F00FE0E0E0070000A01FE000C0830000861FF00181C100008E1FF80383E10001 + 873FFC0787F9FFFFFFFFFFFFFFFFFFFFFFFFFFF3FFFFFFFFFE0FFFE303C0FFFF + F803C00003408000E000000000000000800100000340000000070000FFFF0000 + 0007000003C00000000700030340000000030003000000000003000303400000 + 00010003FFFF00000003000303C00000C00F000303400000E00F000300000001 + F01F00030340FFFFFA3F0007FFFFFFFFFFFDE1FFFFFFFFFFE008C0FFE001FFFF + 8001807F8001F8070003002B8001F003000700018001F0030007002A8001F003 + 0007806A8001F0030007C0C18001F0030007E1AB8001D0030007E1AB8001C003 + 0007E1C08001C0070007806B8001C3FF0007003F8001C7FF0007003F8001CFFF + 800F003F8003DFFFD55F003FFFFFFFFFFFFFFFFFE003FFCFFF808000C003FFC7 + FFFF0000E007C003FFC10000F01F0001FFC10000F80F0000FFC10000F0070001 + FFC10000F007000380C10000E0070003FFC30000C0030003C1FF0000C0070003 + C1FF0000C00F0003C1FF0000C00F0003C1FF0000C01F0003C1FF0001E00F0003 + C3FFFFFFF01F0003FFFFFFFFFFFF0007F3FFFC7FF07FFFF3F3FFF01FE01FFFE1 + FFFFC007C007F000E00180018001F000E00180018001F000E00100010001F000 + E00100000000C000E00100000000800090030000000000009C0F000000000000 + 801F800180010000C00FE00700070000F807F80300038000F807FE000000C000 + FC0FFF030003F001FFFFFF8F300FF003FFFFFFFFFFFFFFFF87FF000FFFFFFE01 + 87FF03F7E03FFE0186FF03E3F07FF601842003F7F007C20186E000C0E00FB601 + 87E0DF40C00FBE0187E0DF40C007DE0187E0DE00C007EE0187608F7FC003F601 + 8420DE07E007FA01877F0207F007860187FF0207FC07FE0187FF0207FE0FFE01 + FFFF03FFFFFFFE01FFFFFFFFFFFFFFFFFDFFFFFFFFFFFFFFE0C7FFFFFFFFFFF7 + 800307C107C1FFE3800307C107C1FFC1E00307C107C1FF83E00701010101E007 + E00300010001C00FC00700010001801FC00F00010001801F800780038003801F + 8003C107C107801F0003C107C107801FC001E38FE38F801FF000E38FE38FC03F + FC81E38FE38FE07FFFE3FFFFFFFFFFFFFE7EFFFFF81FFDFFFE3CE001E007E083 + FF198001C0038001FF8380018001800180C780018001E001C18380010000E001 + C01980010000E001803C80010000C001003E80010000C003001F800100008007 + 001F800100008003000F800180010003801F80018001C001C01F8001C003F000 + F01F8003E007FC81F83FFFFFF81FFFE3F000FFFFFFFFFFFFE000F8018000FFFF + E000F0000000FFFFE000F0000000F601E000F00000008201E000F0000000F601 + 8000C0000000FE01000080000000FE01000000010000FE01000100030000FE01 + 000700030000F6010007000300008201000700030000F601000780030001FFFF + 0007C007FFFFFFFF000FFFFFFFFFFFFF0000000FFE7F800000000007F83F0000 + 00008003E01F000000008001800F000000008001000700000000800100030000 + 0000C001000100000000E001000000000000E003000000000000E00380010000 + 0000E003C00100000000E003E00000000000E003F00100000000E003F8070000 + 0000E003FC1F00000000F003FE7F0000800000008000800000003FFF00000000 + 00001FBB0000000000004DB500000000000055CE0000000000006B3700000000 + 00006CF7000000000000777B00000000000077450000000000006BBA00000000 + 00006D6B0000000000007EEF0000000000007DFF0000000000007DFF00000000 + 00017FFF00010001FFFF7FFFFFFFFFFF00000000000000000000000000000000 + 000000000000} + end + object ThreeImgList: TImageList + Height = 24 + Width = 24 + Left = 364 + Top = 292 + 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 ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 320 + Top = 212 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_UserHelpSel.pas b/基础资料维护(BaseInfo.dll)/U_UserHelpSel.pas new file mode 100644 index 0000000..d37681e --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_UserHelpSel.pas @@ -0,0 +1,234 @@ +unit U_UserHelpSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, cxFilter, + cxData, cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, cxInplaceContainer, cxDBTL, + cxTLData, ComCtrls, ToolWin, ADODB, ImgList,StrUtils, ExtCtrls, + cxCheckBox, DBClient; + +type + TfrmUserHelpSel = class(TForm) + ToolBar2: TToolBar; + TOk: TToolButton; + TBClose: TToolButton; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + cxGrid1: TcxGrid; + tv1: TcxGridDBTableView; + tv1Code: TcxGridDBColumn; + tv1Name: TcxGridDBColumn; + DBGrid1Level1: TcxGridLevel; + GroupBox1: TGroupBox; + ADOQueryDept: TADOQuery; + DataSource1: TDataSource; + ADOConnection1: TADOConnection; + tv1Column1: 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; + ADOQueryHelp: TADOQuery; + DataSource2: TDataSource; + Label1: TLabel; + Edt_name: TEdit; + ImageList1: TImageList; + cxStyleTree: TcxStyle; + Label2: TLabel; + Edt_Code: TEdit; + Splitter1: TSplitter; + ThreeImgList: TImageList; + ClientDataSet1: TClientDataSet; + procedure FormShow(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TOkClick(Sender: TObject); + procedure tv1DblClick(Sender: TObject); + procedure Edt_nameChange(Sender: TObject); + procedure cxDBTreeList1Click(Sender: TObject); + private + procedure InitTree(); + procedure DoQuery(); + procedure FilterData(strdepotno,strcode,strname:string); + public + fFrameNo:string; + fFrameName:string; + fIsYwy:boolean; + ReturnStr:string; + end; + +var + frmUserHelpSel: TfrmUserHelpSel; + +implementation +uses + U_DataLink,U_Fun; +{$R *.dfm} +/////////////////////////////////////////////////////////// +//////ܣ +/////////////////////////////////////////////////////////// +procedure TfrmUserHelpSel.FilterData(strdepotno,strcode,strname:string); +var + filterStr:string; +begin + filterStr:=''; + if trim(strdepotno)<>'' then + filterStr:=filterStr+' and dept like '+quotedstr('%'+trim(strdepotno)+'%'); + if trim(strcode)<>'' then + filterStr:=filterStr+' and userID like '+quotedstr('%'+trim(strcode)+'%'); + if trim(strname)<>'' then + filterStr:=filterStr+' and userName like '+quotedstr('%'+trim(strname)+'%'); + + try + ADOQueryHelp.DisableControls ; + if trim(filterStr)='' then + begin + ADOQueryHelp.Filtered:=false; + ADOQueryHelp.EnableControls; + exit; + end; + filterStr:=trim(RightBStr(filterStr,length(filterStr)-5)); + // showmessage(filterStr); + with ADOQueryHelp do + begin + filtered:=false; + filter:=filterStr; + filtered:=true; + end; + finally + ADOQueryHelp.EnableControls; + SCreateCDS20(ADOQueryHelp,ClientDataSet1); + SInitCDSData20(ADOQueryHelp,ClientDataSet1); + end; +end; +////////////////////////////////////////////////////// +procedure TfrmUserHelpSel.InitTree(); +var + strsql,strwhere:string; +begin + strsql:=' SELECT distinct UDept=''ALL'',UDeptTop='''',UDeptName=''в'',Framelevel=0 '+ + ' union '+ + ' SELECT distinct UDept,UDeptTop=''ALL'',UDept,Framelevel=1 '+ + ' FROM BD_staff A '+ + ' WHERE USERID<>''ADMIN'' and ISNULL(UDept,'''')<>'''' '; + + strwhere:=' where A.Valid=''Y'' '; +{ if fIsYwy then + strwhere:=strwhere+' and A.YWYFlag=''Y'' '; + if trim(fFrameNo)<>'' then + strwhere:=strwhere+' and A.dept='+quotedstr(trim(fFrameNo)); + if trim(fFrameName)<>'' then + strwhere:=strwhere+' and B.frameName like '+quotedstr('%'+trim(fFrameName)+'%'); + strsql:=strsql+ strwhere; } + + with ADOQueryDept do + begin + close; + sql.Clear ; + sql.Add( strsql); + Open; + end; + cxDBTreeList1.FullExpand; + + DoQuery(); +end; + +procedure TfrmUserHelpSel.FormShow(Sender: TObject); +begin + InitTree(); +end; + +procedure TfrmUserHelpSel.FormCreate(Sender: TObject); +begin + cxGrid1.Align :=alclient; + with ADOConnection1 do + begin + Connected:=false; + ConnectionString:=DConString; + Connected:=true; + end; +end; +////////////////////////////////////////////////// + // +////////////////////////////////////////////////// +procedure TfrmUserHelpSel.DoQuery(); +var + strsql,strwhere:string; +begin + strsql:=' select * '+ + ' from BD_staff A '+ + ' where isnull(UserID,'''')<>''ADMIN'' '; + strwhere:=' and A.Valid=''Y'' '; + if fIsYwy then + strwhere:=strwhere+' and A.Isywy=1 '; + + strsql:=strsql+ strwhere +' order by A.userID '; + + with ADOQueryHelp do + begin + close; + sql.Clear ; + sql.Add( strsql); + Open; + end; + SCreateCDS20(ADOQueryHelp,ClientDataSet1); + SInitCDSData20(ADOQueryHelp,ClientDataSet1); +end; + +procedure TfrmUserHelpSel.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmUserHelpSel.TOkClick(Sender: TObject); +begin + if ClientDataSet1.IsEmpty then exit; + + ReturnStr:=''; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean=True then + begin + ReturnStr:=ReturnStr+Trim(fieldbyname('UserName').AsString)+';' + end; + Next; + end; + end; + // if JiangeStr<>99 then + IF ReturnStr<>'' then + ReturnStr:=Copy(ReturnStr,1,Length(ReturnStr)-1); + ModalResult:=1; +end; + +procedure TfrmUserHelpSel.tv1DblClick(Sender: TObject); +begin + Tok.Click ; +end; + +procedure TfrmUserHelpSel.Edt_nameChange(Sender: TObject); +begin + FilterData('',edt_code.Text,Edt_name.Text); +end; + +procedure TfrmUserHelpSel.cxDBTreeList1Click(Sender: TObject); +begin + if ADOQueryDept.IsEmpty then exit; + if trim(ADOQueryDept.FieldByName('Framelevel').AsString)='0' then + FilterData('','','') + else + FilterData(ADOQueryDept.FieldByName('UDept').AsString,'',''); +end; + +end. diff --git a/基础资料维护(BaseInfo.dll)/U_WeiXinHelp.dfm b/基础资料维护(BaseInfo.dll)/U_WeiXinHelp.dfm new file mode 100644 index 0000000..2f37715 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_WeiXinHelp.dfm @@ -0,0 +1,201 @@ +object frmWeiXinHelp: TfrmWeiXinHelp + Left = 306 + Top = 44 + Width = 715 + Height = 619 + Caption = #24494#20449#20851#27880#20449#24687 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 699 + 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 TBRafresh: TToolButton + Left = 0 + Top = 0 + Caption = #21047#26032 + ImageIndex = 9 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 59 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBOK: TToolButton + Left = 122 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 41 + OnClick = TBOKClick + end + object TBClose: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 69 + Width = 699 + Height = 512 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + NavigatorButtons.Delete.Enabled = False + NavigatorButtons.Delete.Visible = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DS_Help + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column1: TcxGridDBColumn + Caption = #24494#20449'ID' + DataBinding.FieldName = 'OPENID' + HeaderAlignmentHorz = taCenter + Width = 205 + end + object v2Column2: TcxGridDBColumn + Caption = #24494#20449#21517#31216 + DataBinding.FieldName = 'NICKNAME' + HeaderAlignmentHorz = taCenter + Width = 180 + end + object v2Column3: TcxGridDBColumn + Caption = #20851#27880#26102#38388 + DataBinding.FieldName = 'SUBSCRIBE_TIME' + HeaderAlignmentHorz = taCenter + Width = 184 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 699 + Height = 38 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label3: TLabel + Left = 190 + Top = 77 + Width = 48 + Height = 12 + Caption = #23458#25143#21517#31216 + end + object Label1: TLabel + Left = 18 + Top = 13 + Width = 48 + Height = 12 + Caption = #24494#20449#21517#31216 + end + object ZdyName: TEdit + Tag = 2 + Left = 242 + Top = 73 + Width = 89 + Height = 20 + TabOrder = 0 + end + object NICKNAME: TEdit + Tag = 2 + Left = 70 + Top = 9 + Width = 147 + Height = 20 + TabOrder = 1 + OnChange = NICKNAMEChange + 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 = 353 + Top = 153 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 528 + Top = 200 + end + object DS_Help: TDataSource + DataSet = CDS_Help + Left = 375 + Top = 199 + end + object CDS_Help: TClientDataSet + Aggregates = <> + Params = <> + Left = 328 + Top = 204 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_WeiXinHelp.pas b/基础资料维护(BaseInfo.dll)/U_WeiXinHelp.pas new file mode 100644 index 0000000..7c3667d --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_WeiXinHelp.pas @@ -0,0 +1,148 @@ +unit U_WeiXinHelp; + +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 + TfrmWeiXinHelp = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_Help: TDataSource; + CDS_Help: TClientDataSet; + TBOK: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + v2Column1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + Panel1: TPanel; + Label3: TLabel; + Label1: TLabel; + ZdyName: TEdit; + NICKNAME: TEdit; + TBFind: TToolButton; + TBRafresh: TToolButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBOKClick(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure NICKNAMEChange(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + + public + + end; + +var + frmWeiXinHelp: TfrmWeiXinHelp; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} +procedure TfrmWeiXinHelp.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + Filtered:=False; + SQL.Clear; + sql.Add(' select A.OPENID,NICKNAME,SUBSCRIBE_TIME '); + sql.Add(' FROM Weixin_Subscribe A '); + sql.Add(' where ID=(select max(ID) as ID from Weixin_Subscribe X where X.OPENID=A.OPENID and X.STATUS=''ע'') '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Help); + SInitCDSData20(ADOQueryMain,CDS_Help); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmWeiXinHelp.FormDestroy(Sender: TObject); +begin + frmWeiXinHelp:=nil; +end; + +procedure TfrmWeiXinHelp.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure TfrmWeiXinHelp.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv2,'ͻԶ'); + Close; +end; +procedure TfrmWeiXinHelp.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv2,'ͻԶ'); + InitGrid(); + +end; + +procedure TfrmWeiXinHelp.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + + + +procedure TfrmWeiXinHelp.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_Help); + SInitCDSData20(ADOQueryMain,CDS_Help); + end; +end; + +procedure TfrmWeiXinHelp.TBOKClick(Sender: TObject); +begin + IF CDS_Help.IsEmpty then exit; + self.ModalResult:=1; +end; + +procedure TfrmWeiXinHelp.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + tbok.Click; +end; + +procedure TfrmWeiXinHelp.NICKNAMEChange(Sender: TObject); +begin + TBfind.Click; +end; + +end. diff --git a/基础资料维护(BaseInfo.dll)/U_ZDYHelp11.dfm b/基础资料维护(BaseInfo.dll)/U_ZDYHelp11.dfm new file mode 100644 index 0000000..f86dc56 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZDYHelp11.dfm @@ -0,0 +1,18066 @@ +object frmZDYHelp: TfrmZDYHelp + Left = 437 + Top = 207 + Width = 432 + 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.FocusCellOnTab = True + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + 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 = 89 + end + object V1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1NotePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 121 + end + object V1ZdyFlag: TcxGridDBColumn + Caption = #26631#24535 + DataBinding.FieldName = 'ZdyFlag' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V1Column1PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 57 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 425 + 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 = ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + Caption = #36873#25321 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBAdd: TToolButton + Left = 59 + Top = 0 + Caption = #22686#34892 + ImageIndex = 103 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 118 + Top = 0 + Caption = #21024#34892 + ImageIndex = 107 + OnClick = TBDelClick + end + object TBEdit: TToolButton + Left = 177 + Top = 0 + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBSave: TToolButton + Left = 236 + Top = 0 + Caption = #20445#23384 + ImageIndex = 111 + Visible = False + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 295 + Top = 0 + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 29 + Width = 425 + 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 = 120 + Top = 264 + end + object ThreeImgList: TImageList + Height = 24 + Width = 24 + Left = 120 + Top = 320 + 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 cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 168 + Top = 152 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_ZDYHelp11.pas b/基础资料维护(BaseInfo.dll)/U_ZDYHelp11.pas new file mode 100644 index 0000000..38022f8 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZDYHelp11.pas @@ -0,0 +1,628 @@ +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; + +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; + ADOConnection1: TADOConnection; + Panel1: TPanel; + Label1: TLabel; + ZDYName: TEdit; + ThreeImgList: TImageList; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + V1ZdyFlag: 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); + private + procedure InitGrid(); + { Private declarations } + public + flag,flagname,snote,MainType:string; + fnote,forderno,fZdyFlag:Boolean; + PPSTE:integer; + { Public declarations } + end; + +var + frmZDYHelp: TfrmZDYHelp; + +implementation +uses + U_DataLink,U_Fun; + +{$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; } + + frmZDYHelp.Free; + end; +end; + +procedure TfrmZDYHelp.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + ZDYName.SetFocus; + 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').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.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('Զ',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,'Զ'); + frmZDYHelp.Caption:=Trim(flagname); + V1Note.Visible:=fnote; + V1ZdyFlag.Visible:=fZdyFlag; + V1OrderNo.Visible:=forderno; +end; + +procedure TfrmZDYHelp.ToolButton1Click(Sender: TObject); +begin + ZDYName.SetFocus; + 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); + 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; + +end. diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInput.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttInput.dfm new file mode 100644 index 0000000..bae842e --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInput.dfm @@ -0,0 +1,280 @@ +object frmZdyAttInput: TfrmZdyAttInput + Left = 269 + Top = 229 + Width = 1382 + Height = 754 + 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 = 1366 + 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 = 1366 + Height = 684 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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 + 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 v2Column3: TcxGridDBColumn + Caption = #30005#35805 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v2Column11: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'DEFStr6' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column12: TcxGridDBColumn + Caption = #22320#21306 + DataBinding.FieldName = 'DEFStr7' + HeaderAlignmentHorz = taCenter + Width = 60 + 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 = 83 + end + object v2Column9: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'DEFstr4' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v2DefFlt1: TcxGridDBColumn + Caption = #27424#27454#39069#24230 + DataBinding.FieldName = 'DefFlt1' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column2: TcxGridDBColumn + Caption = #25176#36816#37096 + DataBinding.FieldName = 'DEFStr8' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v2Column13: TcxGridDBColumn + Caption = #25176#36816#37096#30005#35805 + DataBinding.FieldName = 'DEFNote3' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 154 + end + object v2Column14: TcxGridDBColumn + Caption = #24494#20449'ID' + DataBinding.FieldName = 'weixinID' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column15: TcxGridDBColumn + Caption = #24494#20449#21517#31216 + DataBinding.FieldName = 'weixinName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 80 + 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 + object ADOQueryKH: TADOQuery + Parameters = <> + Left = 692 + Top = 31 + end + object DSKH: TDataSource + DataSet = ADOQueryKH + Left = 544 + Top = 224 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInput.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttInput.pas new file mode 100644 index 0000000..ce08284 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInput.pas @@ -0,0 +1,335 @@ +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, cxLookAndFeels, cxLookAndFeelPainters, 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, cxNavigator; + +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; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2DefFlt1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + ADOQueryKH: TADOQuery; + DSKH: TDataSource; + v2Column14: TcxGridDBColumn; + v2Column15: 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); + procedure v2Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + private + { Private declarations } + procedure InitGrid(); + function SaveData(): Boolean; + public + fkhType: string; + { Public declarations } + RKFlag, FCYID: string; + canshu1, canshu2,FParameters4: string; + end; + +var + frmZdyAttInput: TfrmZdyAttInput; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp, U_WeiXinHelp; + +{$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('ͻ¼1', Tv2, 'ͻԶ'); + Close; +end; + +procedure TfrmZdyAttInput.FormShow(Sender: TObject); +begin + ReadCxGrid('ͻ¼1', Tv2, 'ͻԶ'); + InitGrid(); + if Trim(FCYID) = '' then + begin + CDS_HZ.Append; + if trim(FParameters4) = 'Ȩ' then + begin + CDS_HZ.FieldByName('DEFstr5').Value := Trim(DName); + + end; + CDS_HZ.Post; + end; +end; + +procedure TfrmZdyAttInput.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +function TfrmZdyAttInput.SaveData(): Boolean; +var + maxId, CRID: string; + fzdyCode: 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; + if trim(fkhType) = '㶫ͻ' then + begin + if GetLSNo(ADOQueryCmd, fzdyCode, 'KH', 'KH_Zdy_Attachment', 4, 0) = False then + begin + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + end + else if trim(fkhType) = 'ݿͻ' then + begin + if GetLSNo(ADOQueryCmd, fzdyCode, 'HZ', 'KH_Zdy_Attachment', 4, 0) = False then + begin + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + if GetLSNo(ADOQueryCmd, fzdyCode, 'KF', 'KH_Zdy_Attachment', 4, 0) = False then + begin + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + 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); + FieldByName('zdyCode').Value := Trim(fzdyCode); + 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('khType').Value := trim(fkhType); + FieldByName('DefFlt1').Value := CDS_HZ.fieldbyname('DefFlt1').AsFloat; + 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_Attachment where ZdyName=''' + Trim(CDS_HZ.fieldbyname('ZdyName').AsString) + ''''); + sql.Add(' and Type=''KHName'' '); + sql.Add(' and isnull(khType,'''')=' + quotedstr(trim(fkhType))); + Open; + end; + if ADOQueryCmd.RecordCount > 1 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 ZdyCode=''' + Trim(CDS_HZ.fieldbyname('ZdyCode').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 + + cxGrid2.SetFocus; + if Trim(CDS_HZ.FieldByName('ZdyName').AsString) = '' 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 TfrmZdyAttInput.v2Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + frmWeiXinHelp := TfrmWeiXinHelp.create(self); + with frmWeiXinHelp do + begin + if showmodal = 1 then + begin + CDS_HZ.Edit; + CDS_HZ.fieldbyName('weixinID').Value := trim(CDS_Help.fieldbyName('OPENID').asstring); + CDS_HZ.fieldbyName('weixinName').Value := trim(CDS_Help.fieldbyName('NICKNAME').asstring); + CDS_HZ.Post; + end; + free; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +end. + diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.dfm new file mode 100644 index 0000000..471626b --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.dfm @@ -0,0 +1,396 @@ +object frmZdyAttInputCP: TfrmZdyAttInputCP + Left = 467 + Top = 208 + Width = 1068 + Height = 582 + Caption = #20135#21697#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 = 1052 + 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 = 1052 + Height = 300 + Align = alTop + TabOrder = 1 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column6: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ZdyName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 124 + end + object v2defstr9: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'defNote3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 64 + end + object v2Mrate: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Mrate' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 80 + end + object v2Column13: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'defNote2' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 100 + end + object v2Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v2Column2: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'DEFstr6' + HeaderAlignmentHorz = taCenter + Width = 115 + end + object v2Column8: TcxGridDBColumn + Caption = #33457#21495 + DataBinding.FieldName = 'DEFstr4' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 58 + end + object v2Column9: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'DEFstr7' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 73 + end + object v2Column7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'DEFstr8' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 61 + end + object v2Column15: TcxGridDBColumn + Caption = #20215#26684#22686#24133 + DataBinding.FieldName = 'defflt1' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##;-,0.##' + HeaderAlignmentHorz = taCenter + Width = 92 + 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 ToolBar2: TToolBar + Left = 0 + Top = 331 + Width = 1052 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_BaseInfo.ThreeImgList + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_BaseInfo.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + Visible = False + 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 ToolButton4: TToolButton + Left = 126 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 104 + Visible = False + OnClick = ToolButton3Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 360 + Width = 1052 + Height = 183 + Align = alClient + TabOrder = 3 + Visible = False + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + DataController.DataSource = DS_GC + 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.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object Tv1Column1: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'JgcName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv1Column2: TcxGridDBColumn + Caption = #24037#21378#36135#21495 + DataBinding.FieldName = 'JgcCode' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 100 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + 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 = 961 + Top = 181 + 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 = 788 + Top = 196 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 912 + Top = 180 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 528 + Top = 200 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 867 + Top = 195 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 732 + Top = 212 + end + object DS_GC: TDataSource + DataSet = CDS_GC + Left = 691 + Top = 431 + end + object CDS_GC: TClientDataSet + Aggregates = <> + Params = <> + Left = 628 + Top = 424 + end + object ADOQueryGC: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 569 + Top = 421 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas new file mode 100644 index 0000000..7aa6f81 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas @@ -0,0 +1,568 @@ +unit U_ZdyAttInputCP; + +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, strutils, cxCurrencyEdit, 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 + TfrmZdyAttInputCP = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column6: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column11: TcxGridDBColumn; + v2defstr9: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + v2Mrate: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton4: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridLevel2: TcxGridLevel; + DS_GC: TDataSource; + CDS_GC: TClientDataSet; + ADOQueryGC: TADOQuery; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: 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); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + procedure v2defstr9PropertiesEditValueChanged(Sender: TObject); + procedure v2Column5PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + private + { Private declarations } + procedure InitGrid(); + procedure Initsub(); + function SaveData(): Boolean; + public + { Public declarations } + RKFlag, FCYID, Fzdyname: string; + fkhType: string; + end; + +var + frmZdyAttInputCP: TfrmZdyAttInputCP; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp, U_ZdyAttachGYSxz; + +{$R *.dfm} + +procedure TfrmZdyAttInputCP.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; + Fzdyname := ADOQueryMain.FieldByName('zdyname').AsString; + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmZdyAttInputCP.Initsub(); +begin + try + ADOQueryGC.DisableControls; + with ADOQueryGC do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select * from KH_CP_JGC where CPname=''' + Trim(CDS_HZ.fieldbyname('ZdyName').AsString) + ''''); + Open; + end; + SCreateCDS20(ADOQueryGC, CDS_GC); + SInitCDSData20(ADOQueryGC, CDS_GC); + finally + ADOQueryGC.EnableControls; + end; +end; + +procedure TfrmZdyAttInputCP.FormDestroy(Sender: TObject); +begin + frmZdyAttInputCP := nil; +end; + +procedure TfrmZdyAttInputCP.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmZdyAttInputCP.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ¼1', Tv2, 'ͻԶ'); + Close; + ModalResult := 1; +end; + +procedure TfrmZdyAttInputCP.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ¼1', Tv2, 'ͻԶ'); + InitGrid(); + Initsub(); + if Trim(FCYID) = '' then + begin + with CDS_HZ do + begin + Edit; + FieldByName('DEFstr5').Value := 'Ʒ'; +// FieldByName('JgcCode').Value := ''; + Post; + end; +// CDS_HZ.Append; +// CDS_HZ.Post; + end; +end; + +procedure TfrmZdyAttInputCP.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +function TfrmZdyAttInputCP.SaveData(): Boolean; +var + maxId, CRID, maxno: 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); + + RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_HZ, 'KH_Zdy_Attachment', 0); + FieldByName('ZdyName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('ZdyCode').Value := Trim(maxId); + FieldByName('Mrate').Value := CDS_HZ.fieldbyname('Mrate').AsFloat; + FieldByName('defflt1').Value := CDS_HZ.fieldbyname('defflt1').AsFloat; + FieldByName('Type').Value := 'CP'; + FieldByName('khType').Value := trim(fkhType); + 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 := 'CP'; + FieldByName('MainType').Value := Trim(CDS_HZ.fieldbyname('DEFstr5').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where ZdyName=''' + Trim(CDS_HZ.fieldbyname('ZdyName').AsString) + ''' and DEFstr3=''' + Trim(CDS_HZ.fieldbyname('DEFstr3').AsString) + ''' '); + sql.Add(' and Type=''CP'' '); + 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; + + + ///ӱ + with CDS_GC do + begin + First; + while not Eof do + begin + if Trim(CDS_GC.fieldbyname('Jgcid').AsString) = '' then + begin + if GetLSNo(ADOQueryCmd, maxno, 'GC', 'KH_CP_JGC', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxno := Trim(CDS_GC.fieldbyname('Jgcid').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from KH_CP_JGC where CPname=''' + Trim(Fzdyname) + ''''); + sql.Add(' and Jgcid=''' + Trim(maxno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_GC.fieldbyname('Jgcid').AsString) = '' then + begin + Append; + end + else + Edit; +// FieldByName('ATID').Value := Trim(maxId); + FieldByName('Jgcid').Value := Trim(maxno); + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_GC, 'KH_CP_JGC', 0); + FieldByName('CPname').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + fieldbyname('JgcName').Value := CDS_GC.fieldbyname('JgcName').AsString; + fieldbyname('JgcCode').Value := CDS_GC.fieldbyname('JgcCode').AsString; + + Post; + end; + CDS_GC.Edit; + CDS_GC.FieldByName('Jgcid').Value := Trim(maxno); +// CDS_GC.FieldByName('ATID').Value := Trim(maxId); + FieldByName('CPname').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + Next; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + Result := True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +procedure TfrmZdyAttInputCP.ToolButton3Click(Sender: TObject); +begin + cxGrid2.SetFocus; +{ if Trim(CDS_HZ.FieldByName('ZdyName').AsString)='' 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; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where ATID='' '' '); + Open; + end; + Fzdyname := ADOQueryMain.FieldByName('zdyname').AsString; + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + + Initsub(); + if Trim(FCYID) = '' then + begin + with CDS_HZ do + begin + Edit; + FieldByName('DEFstr5').Value := 'Ʒ'; +// FieldByName('JgcCode').Value := ''; + Post; + end; +// CDS_HZ.Append; +// CDS_HZ.Post; + end; + +end; + +procedure TfrmZdyAttInputCP.v2Column6PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with CDS_HZ do + begin + Edit; + FieldByName('ZdyName').Value := Trim(mvalue); + Post; + end; + self.tv2.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmZdyAttInputCP.v2defstr9PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with CDS_HZ do + begin + Edit; + FieldByName('ZdyName').Value := Trim(mvalue); + Post; + end; + self.tv2.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmZdyAttInputCP.v2Column5PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with CDS_HZ do + begin + Edit; + FieldByName('DEFstr3').Value := Trim(mvalue); + Post; + end; + self.tv2.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmZdyAttInputCP.ToolButton1Click(Sender: TObject); +var + i: Integer; +begin +// Tv1.Columns[0].FocusWithSelection; +// if Trim(ZdyName.Text) = '' then +// begin +// Application.MessageBox('ŲΪ!', 'ʾ', 0); +// Exit; +// end; +// i := CDS_GC.RecordCount; +// i := i + 1; + CDS_GC.Append; + CDS_GC.Post; +// CopyAddRow(Tv1, CDS_GC); +// with CDS_GC do +// begin +// Edit; +//// FieldByName('XHNO').Value := IntToStr(i); +// FieldByName('JgcName').Value := ''; +// FieldByName('JgcCode').Value := ''; +// Post; +// end; +end; + +procedure TfrmZdyAttInputCP.ToolButton2Click(Sender: TObject); +begin + if CDS_GC.IsEmpty then + Exit; + + if Trim(CDS_GC.fieldbyname('Jgcid').AsString) <> '' then + begin + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete KH_CP_JGC where Jgcid=''' + Trim(CDS_GC.fieldbyname('Jgcid').AsString) + ''''); + ExecSQL; + end; + end; + CDS_GC.Delete; + +end; + +procedure TfrmZdyAttInputCP.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + + try + frmZdyAttachGYSxz := TfrmZdyAttachGYSxz.Create(Application); + with frmZdyAttachGYSxz do + begin +// fkhType:=''; + if ShowModal = 1 then + begin + Self.CDS_GC.Edit; + Self.CDS_GC.FieldByName('JgcName').Value := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZdyAttachGYSxz.Free; + end; +// try +// frmZDYHelp := TfrmZDYHelp.Create(Application); +// with frmZDYHelp do +// begin +// flag := 'JgcName'; +// flagname := 'ӹ'; +// if ShowModal = 1 then +// begin +// Self.CDS_GC.Edit; +// Self.CDS_GC.FieldByName('JgcName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); +// end; +// end; +// finally +// frmZDYHelp.Free; +// end; +end; + +procedure TfrmZdyAttInputCP.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'JgcCode'; + flagname := ''; + if ShowModal = 1 then + begin + Self.CDS_GC.Edit; + Self.CDS_GC.FieldByName('JgcCode').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. + diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP10.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP10.dfm new file mode 100644 index 0000000..05c5791 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP10.dfm @@ -0,0 +1,676 @@ +object frmZdyAttInputCP10: TfrmZdyAttInputCP10 + Left = 232 + Top = 29 + Width = 1256 + Height = 725 + Caption = #20135#21697#36164#26009#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 12 + object Label17: TLabel + Left = 32 + Top = 96 + Width = 48 + Height = 12 + Caption = #20960' '#39068' '#33394 + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1240 + 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 Panel1: TPanel + Left = 0 + Top = 31 + Width = 1240 + Height = 638 + Align = alTop + BevelOuter = bvNone + TabOrder = 1 + object GroupBox1: TGroupBox + Left = 0 + Top = 0 + Width = 1240 + Height = 257 + Align = alTop + Caption = #20135#21697#20449#24687 + TabOrder = 0 + object Label1: TLabel + Left = 36 + Top = 28 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label2: TLabel + Left = 256 + Top = 28 + Width = 48 + Height = 12 + Caption = #20013#25991#21697#21517 + end + object Label3: TLabel + Left = 476 + Top = 28 + Width = 48 + Height = 12 + Caption = #20013#25991#35268#26684 + end + object Label4: TLabel + Left = 36 + Top = 52 + Width = 48 + Height = 12 + Caption = #33521#25991#21697#21517 + end + object Label5: TLabel + Left = 256 + Top = 52 + Width = 48 + Height = 12 + Caption = #33521#25991#35268#26684 + end + object Label6: TLabel + Left = 476 + Top = 52 + Width = 48 + Height = 12 + Caption = #20135#21697#39068#33394 + end + object Label7: TLabel + Left = 36 + Top = 76 + Width = 48 + Height = 12 + Caption = #23458#25143#20215#26684 + end + object Label8: TLabel + Left = 256 + Top = 76 + Width = 48 + Height = 12 + Caption = #36215' '#35746' '#37327 + end + object Label9: TLabel + Left = 476 + Top = 76 + Width = 48 + Height = 12 + Caption = #35745#37327#21333#20301 + end + object Label10: TLabel + Left = 36 + Top = 100 + Width = 48 + Height = 12 + Caption = #24320#21457#26102#38388 + end + object Label11: TLabel + Left = 36 + Top = 124 + Width = 48 + Height = 12 + Caption = #20013#25991#22791#27880 + end + object Label12: TLabel + Left = 36 + Top = 184 + Width = 48 + Height = 12 + Caption = #33521#25991#22791#27880 + end + object Label13: TLabel + Left = 792 + Top = 32 + Width = 48 + Height = 12 + Caption = #20135#21697#22270#29255 + end + object zdyCode: TEdit + Tag = 2 + Left = 88 + Top = 24 + Width = 140 + Height = 20 + TabOrder = 0 + Text = 'zdyCode' + end + object zdyName: TEdit + Tag = 2 + Left = 308 + Top = 24 + Width = 140 + Height = 20 + TabOrder = 1 + Text = 'zdyName' + end + object DEFstr1: TEdit + Tag = 2 + Left = 528 + Top = 24 + Width = 140 + Height = 20 + TabOrder = 2 + Text = 'DEFstr1' + end + object DEFstr2: TEdit + Tag = 2 + Left = 88 + Top = 48 + Width = 140 + Height = 20 + TabOrder = 3 + Text = 'Edit1' + end + object DEFstr3: TEdit + Tag = 2 + Left = 308 + Top = 48 + Width = 140 + Height = 20 + TabOrder = 4 + Text = 'Edit1' + end + object DEFstr4: TEdit + Tag = 2 + Left = 528 + Top = 48 + Width = 140 + Height = 20 + TabOrder = 5 + Text = 'Edit1' + end + object defnote1: TMemo + Tag = 2 + Left = 88 + Top = 120 + Width = 581 + Height = 60 + Lines.Strings = ( + 'Memo1') + ScrollBars = ssVertical + TabOrder = 6 + end + object defnote2: TMemo + Tag = 2 + Left = 88 + Top = 184 + Width = 581 + Height = 60 + Lines.Strings = ( + 'Memo1') + ScrollBars = ssVertical + TabOrder = 7 + end + object DEFstr5: TComboBox + Tag = 2 + Left = 528 + Top = 72 + Width = 141 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 8 + Text = 'PCS' + Items.Strings = ( + 'PCS') + end + object cxImage1: TcxImage + Left = 852 + Top = 28 + PopupMenu = PopupMenu1 + TabOrder = 9 + Height = 209 + Width = 301 + end + object DEFFlt2: TcxCurrencyEdit + Tag = 2 + Left = 308 + Top = 72 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Properties.NullString = '0' + TabOrder = 10 + Width = 140 + end + object DEFFlt1: TcxCurrencyEdit + Tag = 2 + Left = 88 + Top = 72 + Properties.DecimalPlaces = 2 + Properties.DisplayFormat = '0.00' + Properties.NullString = '0' + TabOrder = 11 + Width = 140 + end + object DEFDate1: TDateTimePicker + Tag = 2 + Left = 88 + Top = 96 + Width = 141 + Height = 20 + Date = 41855.391053391210000000 + Format = 'yyyy-MM-dd' + Time = 41855.391053391210000000 + TabOrder = 12 + end + end + object GroupBox2: TGroupBox + Left = 0 + Top = 257 + Width = 1240 + Height = 228 + Align = alTop + Caption = #21046#29256#20449#24687 + TabOrder = 1 + object Label14: TLabel + Left = 32 + Top = 20 + Width = 48 + Height = 12 + Caption = #21046#29256#23610#23544 + end + object Label15: TLabel + Left = 32 + Top = 92 + Width = 48 + Height = 12 + Caption = #20960' '#39068' '#33394 + end + object Label16: TLabel + Left = 388 + Top = 96 + Width = 48 + Height = 12 + Caption = #21360#21047#26448#26009 + end + object Label18: TLabel + Left = 32 + Top = 116 + Width = 48 + Height = 12 + Caption = #34955#23376#21402#24230 + end + object Label19: TLabel + Left = 388 + Top = 116 + Width = 48 + Height = 12 + Caption = #35746#21333#25968#37327 + end + object Label21: TLabel + Left = 32 + Top = 140 + Width = 48 + Height = 12 + Caption = #21046#29256#21378#21830 + end + object Label20: TLabel + Left = 792 + Top = 20 + Width = 48 + Height = 12 + Caption = #21046#29256#22270#29255 + end + object defnote3: TMemo + Tag = 2 + Left = 84 + Top = 16 + Width = 581 + Height = 69 + Lines.Strings = ( + 'Memo1') + TabOrder = 0 + end + object DEFstr8: TEdit + Tag = 2 + Left = 84 + Top = 112 + Width = 217 + Height = 20 + TabOrder = 1 + Text = 'DEFstr8' + end + object DEFstr6: TEdit + Tag = 2 + Left = 84 + Top = 88 + Width = 217 + Height = 20 + TabOrder = 2 + Text = 'Edit10' + end + object DEFstr7: TEdit + Tag = 2 + Left = 444 + Top = 88 + Width = 217 + Height = 20 + TabOrder = 3 + Text = 'Edit10' + end + object DEFstr9: TBtnEditA + Tag = 2 + Left = 84 + Top = 136 + Width = 217 + Height = 20 + TabOrder = 4 + end + object cxImage2: TcxImage + Left = 852 + Top = 11 + PopupMenu = PopupMenu1 + TabOrder = 5 + Height = 209 + Width = 305 + end + object DEFFlt3: TcxCurrencyEdit + Tag = 2 + Left = 444 + Top = 112 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Properties.NullString = '0' + TabOrder = 6 + Width = 217 + end + end + object GroupBox3: TGroupBox + Left = 0 + Top = 485 + Width = 1240 + Height = 153 + Align = alClient + Caption = #21253#35013#20449#24687 + TabOrder = 2 + object Label22: TLabel + Left = 36 + Top = 28 + Width = 48 + Height = 12 + Caption = #21253#35013#26041#24335 + end + object Label23: TLabel + Left = 252 + Top = 28 + Width = 48 + Height = 12 + Caption = #22806#31665#35013#37327 + end + object Label24: TLabel + Left = 468 + Top = 28 + Width = 48 + Height = 12 + Caption = #22806#31665#21333#20301 + end + object Label25: TLabel + Left = 36 + Top = 52 + Width = 48 + Height = 12 + Caption = #22806#31665#38271#24230 + end + object Label26: TLabel + Left = 252 + Top = 52 + Width = 48 + Height = 12 + Caption = #22806#31665#23485#24230 + end + object Label27: TLabel + Left = 468 + Top = 52 + Width = 48 + Height = 12 + Caption = #22806#31665#39640#24230 + end + object Label28: TLabel + Left = 36 + Top = 76 + Width = 48 + Height = 12 + Caption = #22806#31665#20307#31215 + end + object Label29: TLabel + Left = 252 + Top = 76 + Width = 48 + Height = 12 + Caption = #22806#31665#27611#37325 + end + object Label30: TLabel + Left = 468 + Top = 76 + Width = 48 + Height = 12 + Caption = #22806#31665#20928#37325 + end + object Label31: TLabel + Left = 36 + Top = 100 + Width = 42 + Height = 12 + Caption = '20#'#35013#37327 + end + object Label32: TLabel + Left = 252 + Top = 100 + Width = 42 + Height = 12 + Caption = '40#'#35013#37327 + end + object Label33: TLabel + Left = 468 + Top = 100 + Width = 54 + Height = 12 + Caption = '40HQ#'#35013#37327 + end + object DEFstr10: TEdit + Tag = 2 + Left = 88 + Top = 24 + Width = 140 + Height = 20 + TabOrder = 0 + Text = 'Edit1' + end + object DEFstr11: TComboBox + Tag = 2 + Left = 524 + Top = 24 + Width = 140 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 1 + Text = 'CTNS' + Items.Strings = ( + 'CTNS') + end + object DEFFlt5: TcxCurrencyEdit + Tag = 2 + Left = 88 + Top = 48 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Properties.NullString = '0' + TabOrder = 2 + Width = 140 + end + object DEFFlt6: TcxCurrencyEdit + Tag = 2 + Left = 304 + Top = 48 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Properties.NullString = '0' + TabOrder = 3 + Width = 140 + end + object DEFFlt4: TcxCurrencyEdit + Tag = 2 + Left = 304 + Top = 24 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Properties.NullString = '0' + TabOrder = 4 + Width = 140 + end + object DEFFlt7: TcxCurrencyEdit + Tag = 2 + Left = 524 + Top = 48 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Properties.NullString = '0' + TabOrder = 5 + Width = 140 + end + object DEFFlt8: TcxCurrencyEdit + Tag = 2 + Left = 88 + Top = 72 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Properties.NullString = '0' + TabOrder = 6 + Width = 140 + end + object DEFFlt9: TcxCurrencyEdit + Tag = 2 + Left = 304 + Top = 72 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Properties.NullString = '0' + TabOrder = 7 + Width = 140 + end + object DEFFlt10: TcxCurrencyEdit + Tag = 2 + Left = 524 + Top = 72 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Properties.NullString = '0' + TabOrder = 8 + Width = 140 + end + object DEFFlt11: TcxCurrencyEdit + Tag = 2 + Left = 88 + Top = 96 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Properties.NullString = '0' + TabOrder = 9 + Width = 140 + end + object DEFFlt12: TcxCurrencyEdit + Tag = 2 + Left = 304 + Top = 96 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Properties.NullString = '0' + TabOrder = 10 + Width = 140 + end + object DEFFlt13: TcxCurrencyEdit + Tag = 2 + Left = 524 + Top = 96 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Properties.NullString = '0' + TabOrder = 11 + Width = 140 + 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 = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 720 + Top = 71 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 720 + Top = 139 + end + object ADOQueryImage: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 736 + Top = 227 + end + object ADOQuerymain: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + Parameters = <> + Left = 716 + Top = 191 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP10.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP10.pas new file mode 100644 index 0000000..7cdb118 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP10.pas @@ -0,0 +1,208 @@ +unit U_ZdyAttInputCP10; + +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; + +type + TfrmZdyAttInputCP10 = class(TForm) + ToolBar1: TToolBar; + ToolButton3: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + GroupBox1: TGroupBox; + GroupBox2: TGroupBox; + GroupBox3: TGroupBox; + Label1: TLabel; + zdyCode: TEdit; + Label2: TLabel; + zdyName: TEdit; + Label3: TLabel; + DEFstr1: TEdit; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + DEFstr2: TEdit; + DEFstr3: TEdit; + DEFstr4: TEdit; + defnote1: TMemo; + defnote2: TMemo; + DEFstr5: TComboBox; + Label13: TLabel; + cxImage1: TcxImage; + Label14: TLabel; + defnote3: TMemo; + Label15: TLabel; + DEFstr8: TEdit; + Label16: TLabel; + Label17: TLabel; + Label18: TLabel; + Label19: TLabel; + Label21: TLabel; + DEFstr6: TEdit; + DEFstr7: TEdit; + DEFstr9: TBtnEditA; + Label20: TLabel; + cxImage2: TcxImage; + Label22: TLabel; + DEFstr10: TEdit; + Label23: TLabel; + Label24: TLabel; + DEFstr11: TComboBox; + Label25: TLabel; + Label26: TLabel; + Label27: TLabel; + DEFFlt2: TcxCurrencyEdit; + DEFFlt5: TcxCurrencyEdit; + DEFFlt6: TcxCurrencyEdit; + DEFFlt4: TcxCurrencyEdit; + DEFFlt7: TcxCurrencyEdit; + Label28: TLabel; + DEFFlt8: TcxCurrencyEdit; + Label29: TLabel; + DEFFlt9: TcxCurrencyEdit; + Label30: TLabel; + DEFFlt10: TcxCurrencyEdit; + Label31: TLabel; + DEFFlt11: TcxCurrencyEdit; + Label32: TLabel; + DEFFlt12: TcxCurrencyEdit; + Label33: TLabel; + DEFFlt13: TcxCurrencyEdit; + DEFFlt1: TcxCurrencyEdit; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + N3: TMenuItem; + DEFFlt3: TcxCurrencyEdit; + DEFDate1: TDateTimePicker; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + ADOQueryImage: TADOQuery; + ADOQuerymain: TADOQuery; + procedure FormDestroy(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + function savedata():Boolean; + procedure InitGrid(); + { Private declarations } + public + FATID:string; + { Public declarations } + end; + +var + frmZdyAttInputCP10: TfrmZdyAttInputCP10; + +implementation + uses + U_DataLink,U_Fun10,U_ZDYHelp; +{$R *.dfm} +function TfrmZdyAttInputCP10.savedata():Boolean; +begin + result:=false; + try + if GetLSNo(ADOQueryCmd,FATID,'AT','KH_Zdy_Attachment',4,1)=False then + begin + Result:=False; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from KH_Zdy_Attachment where ATID='''+Trim(FATID)+''''); + Open; + If IsEmpty then + begin + append; + FieldByName('Filler').Value:=Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value:=Trim(DName); + FieldByName('Edittime').Value:=SGetServerDateTime(ADOQueryTmp); + end; + SSetsaveSqlNew(ADOQueryCmd,'KH_Zdy_Attachment',GroupBox1,2); + SSetsaveSqlNew(ADOQueryCmd,'KH_Zdy_Attachment',GroupBox2,2); + SSetsaveSqlNew(ADOQueryCmd,'KH_Zdy_Attachment',GroupBox3,2); + FieldByName('ATID').Value:=Trim(FATID); + FieldByName('Type').Value:='CP'; + post; + end; + + result:=true; + except + end; +end; +procedure TfrmZdyAttInputCP10.InitGrid(); +begin + with ADOQueryMain do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A'); + sql.Add('where ATID='+quotedstr(trim(FATID))); + open; + end; + IF not ADOQueryMain.IsEmpty then + begin + SCSHDataNew(ADOQueryMain,GroupBox1,2); + SCSHDataNew(ADOQueryMain,GroupBox2,2); + SCSHDataNew(ADOQueryMain,GroupBox3,2); + end; +end; + +procedure TfrmZdyAttInputCP10.FormDestroy(Sender: TObject); +begin + frmZdyAttInputCP10:=nil; +end; + +procedure TfrmZdyAttInputCP10.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmZdyAttInputCP10.FormCreate(Sender: TObject); +begin + Panel1.Align:=alclient; + clearControl(GroupBox1,2); + clearControl(GroupBox2,2); + clearControl(GroupBox3,2); +end; + +procedure TfrmZdyAttInputCP10.ToolButton3Click(Sender: TObject); +begin + IF trim(zdyCode.Text)='' then + begin + application.MessageBox('ƷŲΪգ','ʾϢ',MB_ICONERROR); + exit; + end; + + AdoqueryCmd.Connection.BeginTrans; + try + IF not savedata() then + begin + AdoqueryCmd.Connection.RollbackTrans; + end; + AdoqueryCmd.Connection.CommitTrans; + except + AdoqueryCmd.Connection.RollbackTrans; + end; +end; + +end. diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP20.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP20.dfm new file mode 100644 index 0000000..d268a9a --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP20.dfm @@ -0,0 +1,202 @@ +object frmZdyAttInputCP20: TfrmZdyAttInputCP20 + Left = 219 + Top = 254 + Width = 920 + Height = 370 + Caption = #20135#21697#30446#24405#36755#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 = 904 + 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 = 904 + Height = 301 + 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.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column6: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ZdyName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 124 + end + object v2defstr9: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'defNote1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 100 + 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 = 64 + 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_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 = 528 + Top = 200 + 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/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP20.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP20.pas new file mode 100644 index 0000000..55a13e1 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP20.pas @@ -0,0 +1,304 @@ +unit U_ZdyAttInputCP20; + +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,strutils, cxCurrencyEdit; + +type + TfrmZdyAttInputCP20 = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column6: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2defstr9: 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); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + procedure v2defstr9PropertiesEditValueChanged(Sender: TObject); + procedure v2Column5PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + function SaveData():Boolean; + + public + { Public declarations } + RKFlag,FCYID:String; + fkhType:string; + + end; + +var + frmZdyAttInputCP20: TfrmZdyAttInputCP20; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + + + +procedure TfrmZdyAttInputCP20.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 TfrmZdyAttInputCP20.FormDestroy(Sender: TObject); +begin + frmZdyAttInputCP20:=nil; +end; + +procedure TfrmZdyAttInputCP20.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttInputCP20.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttInputCP20.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv2,'ͻԶ'); + InitGrid(); + if Trim(FCYID)='' then + begin + CDS_HZ.Append; + CDS_HZ.Post; + end; +end; + +procedure TfrmZdyAttInputCP20.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +function TfrmZdyAttInputCP20.SaveData():Boolean; +var + maxId,CRID:String; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FCYID)='' then + begin + if GetLSNo(ADOQueryCmd,maxId,'ML','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); + + RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'KH_Zdy_Attachment',0); + FieldByName('ZdyName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('ZdyCode').Value:=Trim(maxId); + FieldByName('Mrate').Value:=CDS_HZ.fieldbyname('Mrate').AsFloat; + FieldByName('defflt1').Value:=CDS_HZ.fieldbyname('defflt1').AsFloat; + FieldByName('Type').Value:='CPML'; + FieldByName('khType').Value:=trim(fkhType); + FieldByName('Filler').Value:=Trim(DName); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where ZdyName='''+Trim(CDS_HZ.fieldbyname('ZdyName').AsString)+''''); + sql.Add(' and Type=''CPML'' '); + 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 TfrmZdyAttInputCP20.ToolButton3Click(Sender: TObject); +begin + cxGrid2.SetFocus; + if Trim(CDS_HZ.FieldByName('ZdyName').AsString)='' 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 TfrmZdyAttInputCP20.v2Column6PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with CDS_HZ do + begin + Edit; + FieldByName('ZdyName').Value:=Trim(mvalue); + Post; + end; + self.tv2.Controller.EditingController.ShowEdit(); + + + +end; + +procedure TfrmZdyAttInputCP20.v2defstr9PropertiesEditValueChanged( + Sender: TObject); + +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with CDS_HZ do + begin + Edit; + FieldByName('ZdyName').Value:=Trim(mvalue); + Post; + end; + self.tv2.Controller.EditingController.ShowEdit(); + + + + +end; + +procedure TfrmZdyAttInputCP20.v2Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with CDS_HZ do + begin + Edit; + FieldByName('DEFstr3').Value:=Trim(mvalue); + Post; + end; + self.tv2.Controller.EditingController.ShowEdit(); + + + +end; + +end. diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.dfm new file mode 100644 index 0000000..3192947 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.dfm @@ -0,0 +1,237 @@ +object frmZdyAttInputGYS: TfrmZdyAttInputGYS + Left = 619 + Top = 426 + Width = 920 + Height = 370 + Caption = #20379#24212#21830#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 = 904 + 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 = 904 + Height = 300 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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 + 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.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column6: TcxGridDBColumn + Caption = #20379#24212#21830#21517#31216 + DataBinding.FieldName = 'ZdyName' + HeaderAlignmentHorz = taCenter + Width = 124 + end + object v2Column8: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFstr5' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + #22383#24067#21378 + #21152#24037#21378) + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v2DEFStr6: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'DEFStr6' + HeaderAlignmentHorz = taCenter + Width = 62 + end + object v2DEFStr7: TcxGridDBColumn + Caption = #22320#21306 + DataBinding.FieldName = 'DEFStr7' + HeaderAlignmentHorz = taCenter + Width = 69 + 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 + object Tv2Column1: TcxGridDBColumn + Caption = #36319#21333 + DataBinding.FieldName = 'DEFNote2' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 60 + 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 = 528 + Top = 200 + 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/基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.pas new file mode 100644 index 0000000..1e0743d --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.pas @@ -0,0 +1,273 @@ +unit U_ZdyAttInputGYS; + +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, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + +type + TfrmZdyAttInputGYS = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column6: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2DEFStr6: TcxGridDBColumn; + v2DEFStr7: TcxGridDBColumn; + Tv2Column1: 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); + procedure Tv2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + private + { Private declarations } + procedure InitGrid(); + function SaveData(): Boolean; + public + { Public declarations } + RKFlag, FCYID: string; + fDEFstr5: string; + end; + +var + frmZdyAttInputGYS: TfrmZdyAttInputGYS; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmZdyAttInputGYS.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 TfrmZdyAttInputGYS.FormDestroy(Sender: TObject); +begin + frmZdyAttInputGYS := nil; +end; + +procedure TfrmZdyAttInputGYS.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmZdyAttInputGYS.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧ¼1', Tv2, 'ͻԶ'); + Close; +end; + +procedure TfrmZdyAttInputGYS.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ¼1', Tv2, 'ͻԶ'); + InitGrid(); + if Trim(FCYID) = '' then + begin + CDS_HZ.Append; + if trim(fDEFstr5) <> '' then + begin + CDS_HZ.FieldByName('DEFstr5').Value := trim(fDEFstr5); + v2Column8.Options.Editing := false; + end; + CDS_HZ.Post; + end; +end; + +procedure TfrmZdyAttInputGYS.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +function TfrmZdyAttInputGYS.SaveData(): Boolean; +var + maxId, CRID, fzdyCode: 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; + if GetLSNo(ADOQueryCmd, fzdyCode, 'PB', 'KH_Zdy_Attachment', 4, 0) = 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); + FieldByName('zdyCode').Value := Trim(fzdyCode); + 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 := 'GYS'; + 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 := 'GYS'; + FieldByName('MainType').Value := Trim(CDS_HZ.fieldbyname('DEFstr5').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where ZdyCode=''' + Trim(CDS_HZ.fieldbyname('ZdyCode').AsString) + ''''); + sql.Add(' and Type=''GYS'' '); + 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 TfrmZdyAttInputGYS.ToolButton3Click(Sender: TObject); +begin + cxGrid2.SetFocus; + if Trim(CDS_HZ.FieldByName('ZdyName').AsString) = '' 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 TfrmZdyAttInputGYS.Tv2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'PRTCodeName'; + flagname := ''; + if ShowModal = 1 then + begin + Self.CDS_hz.Edit; + Self.CDS_hz.FieldByName('DEFNote2').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. + diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputPB.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputPB.dfm new file mode 100644 index 0000000..b3b51cd --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputPB.dfm @@ -0,0 +1,276 @@ +object frmZdyAttInputPB: TfrmZdyAttInputPB + Left = 463 + Top = 294 + Width = 920 + Height = 370 + Caption = #22383#24067#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 = 904 + 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 = 904 + Height = 300 + Align = alClient + TabOrder = 1 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column6: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'ZdyName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 124 + end + object v2defstr9: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'defNote3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 64 + end + object v2Mrate: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Mrate' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 80 + end + object v2Column13: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'defNote2' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 100 + end + object v2Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v2Column2: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'DEFstr6' + HeaderAlignmentHorz = taCenter + Width = 115 + end + object v2Column8: TcxGridDBColumn + Caption = #33457#21495 + DataBinding.FieldName = 'DEFstr4' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 58 + end + object v2Column9: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'DEFstr7' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 73 + end + object v2Column7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'DEFstr8' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 61 + end + object v2Column15: TcxGridDBColumn + Caption = #20215#26684#22686#24133 + DataBinding.FieldName = 'defflt1' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##;-,0.##' + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object Tv2Column1: TcxGridDBColumn + Caption = #25104#21697#36135#21495 + DataBinding.FieldName = 'CPhh' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv2Column1PropertiesButtonClick + Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + 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 = 528 + Top = 200 + 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/基础资料维护(BaseInfo.dll)/U_ZdyAttInputPB.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputPB.pas new file mode 100644 index 0000000..d0976eb --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputPB.pas @@ -0,0 +1,441 @@ +unit U_ZdyAttInputPB; + +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, strutils, cxCurrencyEdit, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +type + TfrmZdyAttInputPB = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column6: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + v2Column11: TcxGridDBColumn; + v2defstr9: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + v2Mrate: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + Tv2Column1: 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); + procedure v2Column6PropertiesEditValueChanged(Sender: TObject); + procedure v2defstr9PropertiesEditValueChanged(Sender: TObject); + procedure v2Column5PropertiesEditValueChanged(Sender: TObject); + procedure Tv2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv2Column1PropertiesEditValueChanged(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + function SaveData(): Boolean; + public + { Public declarations } + RKFlag, FCYID: string; + fkhType: string; + end; + +var + frmZdyAttInputPB: TfrmZdyAttInputPB; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp, U_ZdyAttachCPCX; + +{$R *.dfm} + +procedure TfrmZdyAttInputPB.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 TfrmZdyAttInputPB.FormDestroy(Sender: TObject); +begin + frmZdyAttInputPB := nil; +end; + +procedure TfrmZdyAttInputPB.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmZdyAttInputPB.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ¼1', Tv2, 'ͻԶ'); + Close; + ModalResult := 1; +end; + +procedure TfrmZdyAttInputPB.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ¼1', Tv2, 'ͻԶ'); + InitGrid(); + if Trim(FCYID) = '' then + begin + with CDS_HZ do + begin + Edit; + FieldByName('DEFstr5').Value := ''; +// FieldByName('JgcCode').Value := ''; + Post; + end; +// CDS_HZ.Append; +// CDS_HZ.Post; + end; +end; + +procedure TfrmZdyAttInputPB.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +function TfrmZdyAttInputPB.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); + + RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_HZ, 'KH_Zdy_Attachment', 0); + FieldByName('ZdyName').Value := Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('ZdyCode').Value := Trim(maxId); + FieldByName('Mrate').Value := CDS_HZ.fieldbyname('Mrate').AsFloat; + FieldByName('defflt1').Value := CDS_HZ.fieldbyname('defflt1').AsFloat; + FieldByName('Type').Value := 'CP'; + FieldByName('khType').Value := trim(fkhType); + 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 := 'CP'; + FieldByName('MainType').Value := Trim(CDS_HZ.fieldbyname('DEFstr5').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where ZdyName=''' + Trim(CDS_HZ.fieldbyname('ZdyName').AsString) + ''' and DEFstr3=''' + Trim(CDS_HZ.fieldbyname('DEFstr3').AsString) + ''''); + sql.Add(' and Type=''CP'' '); + 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; + +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('select * from KH_Zdy_Attachment where ZdyName=''' + Trim(CDS_HZ.fieldbyname('cphh').AsString) + ''''); +// sql.Add(' and Type=''CP'' '); +// Open; +// end; +// if ADOQueryCmd.RecordCount < 1 then +// begin +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('Update KH_Zdy_Attachment Set CPhh=CPhh+''#'' '); +// sql.Add(' where ATID=''' + maxId + ''''); +// ExecSQL; +// end; +// +// end; + + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + Result := True; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +procedure TfrmZdyAttInputPB.ToolButton3Click(Sender: TObject); +begin + cxGrid2.SetFocus; +{ if Trim(CDS_HZ.FieldByName('ZdyName').AsString)='' 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; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where ATID='' '' '); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + if Trim(FCYID) = '' then + begin + with CDS_HZ do + begin + Edit; + FieldByName('DEFstr5').Value := ''; +// FieldByName('JgcCode').Value := ''; + Post; + end; +// CDS_HZ.Append; +// CDS_HZ.Post; + end; +end; + +procedure TfrmZdyAttInputPB.v2Column6PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with CDS_HZ do + begin + Edit; + FieldByName('ZdyName').Value := Trim(mvalue); + Post; + end; + self.tv2.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmZdyAttInputPB.v2defstr9PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with CDS_HZ do + begin + Edit; + FieldByName('ZdyName').Value := Trim(mvalue); + Post; + end; + self.tv2.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmZdyAttInputPB.v2Column5PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with CDS_HZ do + begin + Edit; + FieldByName('DEFstr3').Value := Trim(mvalue); + Post; + end; + self.tv2.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmZdyAttInputPB.Tv2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZdyAttachCPCX := TfrmZdyAttachCPCX.Create(Application); + with frmZdyAttachCPCX do + begin +// fkhType:=''; + if ShowModal = 1 then + begin + Self.CDS_HZ.Edit; + Self.CDS_HZ.FieldByName('CPHH').Value := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZdyAttachCPCX.Free; + end; +// try +// frmZDYHelp := TfrmZDYHelp.Create(Application); +// with frmZDYHelp do +// begin +// flag := 'CPhh'; +// flagname := 'Ʒ'; +// if ShowModal = 1 then +// begin +// Self.CDS_HZ.Edit; +// Self.CDS_HZ.FieldByName('CPhh').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); +// end; +// end; +// finally +// frmZDYHelp.Free; +// end; +end; + +procedure TfrmZdyAttInputPB.Tv2Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with CDS_HZ do + begin + Edit; + FieldByName('CPHH').Value := Trim(mvalue); + Post; + end; + self.tv2.Controller.EditingController.ShowEdit(); + +end; + +end. + diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.dfm new file mode 100644 index 0000000..dfe1fa4 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.dfm @@ -0,0 +1,541 @@ +object frmZdyAttachCP: TfrmZdyAttachCP + Left = 384 + Top = 127 + Width = 1151 + Height = 818 + 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 = 1135 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 113 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_BaseInfo.ThreeImgList + Flat = True + Images = DataLink_BaseInfo.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 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton5: TToolButton + Left = 315 + Top = 0 + Caption = #25552#21462'Excel'#25968#25454 + ImageIndex = 106 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 428 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton6: TToolButton + Left = 491 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 12 + Visible = False + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 578 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1135 + 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 + Visible = False + 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 + Visible = False + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067 + #25104#21697 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 904 + Height = 709 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + OnFocusedRecordChanged = Tv2FocusedRecordChanged + 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 + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column2: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 94 + 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 = 120 + end + object v2Column12: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'defNote3' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 100 + end + object v2Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 88 + end + object v2Column16: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'DEFstr6' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 88 + end + object v2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 74 + end + object v2Mrate: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Mrate' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 80 + end + object v2Column13: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'defNote2' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 100 + end + object v2Column9: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'DEFstr7' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 73 + end + object v2Column7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'DEFstr8' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 61 + end + object v2defflt1: TcxGridDBColumn + Caption = #20215#26684#22686#24133 + DataBinding.FieldName = 'defflt1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + 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 = 188 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 384 + Top = 128 + Width = 269 + Height = 177 + Color = clSkyBlue + TabOrder = 3 + Visible = False + object Label4: TLabel + Left = 8 + Top = 12 + Width = 48 + Height = 12 + Caption = #26631#31614#21517#31216 + end + object RadioGroup1: TRadioGroup + Left = 37 + Top = 29 + Width = 192 + Height = 88 + ItemIndex = 0 + Items.Strings = ( + #20135#21697#26631#31614 + #20135#21697#26631#31614'1') + TabOrder = 0 + end + object cxButton1: TcxButton + Left = 28 + Top = 140 + Width = 75 + Height = 25 + Caption = #25171#21360 + TabOrder = 1 + OnClick = cxButton1Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton2: TcxButton + Left = 172 + Top = 140 + Width = 75 + Height = 25 + Caption = #21462#28040 + TabOrder = 2 + OnClick = cxButton2Click + LookAndFeel.Kind = lfOffice11 + end + end + object cxGrid1: TcxGrid + Left = 904 + Top = 70 + Width = 231 + Height = 709 + Align = alRight + TabOrder = 4 + Visible = False + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + DataController.DataSource = DS_GC + 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 + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object Tv1Column1: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'JgcName' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv1Column2: TcxGridDBColumn + Caption = #24037#21378#36135#21495 + DataBinding.FieldName = 'JgcCode' + HeaderAlignmentHorz = taCenter + Width = 100 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + 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 = 793 + 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 = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 708 + Top = 228 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 700 + Top = 180 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 756 + Top = 176 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 727 + Top = 335 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 816 + Top = 204 + end + object OpenDialog1: TOpenDialog + Left = 936 + Top = 41 + end + object ADOQueryGC: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 961 + Top = 541 + end + object CDS_GC: TClientDataSet + Aggregates = <> + Params = <> + Left = 1020 + Top = 544 + end + object DS_GC: TDataSource + DataSet = CDS_GC + Left = 1083 + Top = 551 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.pas new file mode 100644 index 0000000..110c0e0 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.pas @@ -0,0 +1,472 @@ +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, Menus, cxLookAndFeelPainters, cxButtons, cxLookAndFeels, + 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 + FdDy = record + inc: integer; //ͻ׽־ + FDdys: string[32]; //ͻ׽ + FdDysName: string[32]; //ͻ׽ + end; + + 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; + v2Column11: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + OpenDialog1: TOpenDialog; + ToolButton5: TToolButton; + v2Mrate: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2defflt1: TcxGridDBColumn; + ToolButton6: TToolButton; + Panel2: TPanel; + RadioGroup1: TRadioGroup; + Label4: TLabel; + cxButton1: TcxButton; + cxButton2: TcxButton; + v2Column16: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridLevel2: TcxGridLevel; + ADOQueryGC: TADOQuery; + CDS_GC: TClientDataSet; + DS_GC: TDataSource; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: 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 cxButton2Click(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + private + { Private declarations } + procedure InitGrid(); + public + fkhType: string; + dFdDy: array[0..20] of FdDy; //ͻ + end; + +var + frmZdyAttachCP: TfrmZdyAttachCP; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp, U_ZdyAttInputCP; + +{$R *.dfm} + +procedure TfrmZdyAttachCP.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select ATID,ZdyName,ZdyCode,DEFstr1,DEFstr2,defNote1,Mrate,defNote2,defNote3,DEFstr3,DEFstr5,DEFstr4,'); + sql.Add(' DEFstr6,DEFstr7,DEFstr8,Note,DEFstr4,DEFstr5,defflt1,Filler,FillTime '); + sql.Add(' from KH_Zdy_Attachment where Type=''CP'' and isnull(DEFstr5,'''')<>'''' '); +// sql.Add(' and isnull(khType,'''')=' + quotedstr(trim(fkhType))); + sql.Add(' order by zdyName,dbo.getNum_copy1(Defstr3) '); + // sql.Add(' order by zdyName '); +// ShowMessage(sql.text); + 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('Ʒ13', 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) + ''''); + sql.Add('delete KH_CP_JGC where ATID=''' + Trim(CDS_HZ.fieldbyname('ATID').AsString) + ''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmZdyAttachCP.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ13', 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 := 'defNote3'; + 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 := 'DEFstr6'; + 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('zdyCode').Value := Trim(maxId); + ADOQueryCmd.FieldByName('khType').Value := Trim(fkhType); + ADOQueryCmd.FieldByName('Type').Value := 'CP'; + ADOQueryCmd.FieldByName('Filler').Value := Trim(DName); + ADOQueryCmd.Post; + + 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.cxButton2Click(Sender: TObject); +begin + Panel2.Visible := false; +end; + +procedure TfrmZdyAttachCP.cxButton1Click(Sender: TObject); +var + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + if CDS_HZ.IsEmpty then + exit; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(CDS_HZ.fieldbyname('ZDYCODE').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(RadioGroup1.Items[RadioGroup1.ItemIndex]) + '.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RM1.LoadFromFile(fPrintFile); + // Rm2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1); + // RM1.ShowReport; + RM1.PrintReport; + end + else + Application.MessageBox(PChar('ûҵļ' + fPrintFile), 'ʾ', 0); + +end; + +procedure TfrmZdyAttachCP.ToolButton6Click(Sender: TObject); +begin + Panel2.Left := (self.Width - Panel2.Width) div 2; + Panel2.Top := (self.Height - Panel2.Height) div 2 - 100; + Panel2.Visible := true; +end; + +procedure TfrmZdyAttachCP.Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + try + ADOQueryGC.DisableControls; + with ADOQueryGC do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select *'); + sql.Add(' from KH_CP_JGC where CPname=''' + Trim(CDS_HZ.fieldbyname('ZDYname').AsString) + ''' '); +// sql.Add(' order by zdyName,dbo.getNum(Defstr3) '); + // sql.Add(' order by zdyName '); +// ATID=''' + Trim(CDS_HZ.fieldbyname('ATID').AsString) + ''' + Open; + end; + SCreateCDS20(ADOQueryGC, CDS_GC); + SInitCDSData20(ADOQueryGC, CDS_GC); + finally + ADOQueryGC.EnableControls; + end; +end; + +end. + diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.dfm new file mode 100644 index 0000000..fa3e780 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.dfm @@ -0,0 +1,409 @@ +object frmZdyAttachCP10: TfrmZdyAttachCP10 + Left = 145 + Top = 152 + Width = 1062 + Height = 529 + 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 = 1046 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 113 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_BaseInfo.ThreeImgList + Flat = True + Images = DataLink_BaseInfo.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 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton5: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #25552#21462'Excel'#25968#25454 + ImageIndex = 106 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 432 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 495 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1046 + 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 = 1046 + Height = 421 + 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_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.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 v2Column12: TcxGridDBColumn + Caption = #21517#31216 + DataBinding.FieldName = 'defNote1' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 100 + 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' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column17: TcxGridDBColumn + Caption = #20179#20301#25968 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Width = 70 + 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 + object OpenDialog1: TOpenDialog + Left = 936 + Top = 41 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.pas new file mode 100644 index 0000000..4cf50b3 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.pas @@ -0,0 +1,386 @@ +unit U_ZdyAttachCP10; + +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; + TfrmZdyAttachCP10 = 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; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + OpenDialog1: TOpenDialog; + ToolButton5: TToolButton; + v2Mrate: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2Column16: TcxGridDBColumn; + v2Column17: 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); + private + { Private declarations } + procedure InitGrid(); + + public + dFdDy: array[0..20] of FdDy; //ͻ + end; + +var + frmZdyAttachCP10: TfrmZdyAttachCP10; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_ZdyAttInputCP, U_ZdyAttInputCP10; + +{$R *.dfm} + + + +procedure TfrmZdyAttachCP10.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select ATID,ZdyName,ZdyCode,DEFstr3,DEFNote1,Type,Filler,Filltime,DEFstr4,DEFstr5,editer,editTime,valid,mrate from KH_Zdy_Attachment where Type=''CP'' order by zdyName,dbo.getNum(Defstr3) '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachCP10.FormDestroy(Sender: TObject); +begin + frmZdyAttachCP10:=nil; +end; + +procedure TfrmZdyAttachCP10.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachCP10.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttachCP10.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 TfrmZdyAttachCP10.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ',Tv2,'ͻԶ'); + InitGrid(); +end; + +procedure TfrmZdyAttachCP10.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachCP10.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 TfrmZdyAttachCP10.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachCP10.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ʒб'); +end; + +procedure TfrmZdyAttachCP10.ToolButton4Click(Sender: TObject); +begin + try + frmZdyAttInputCP10:=TfrmZdyAttInputCP10.Create(Application); + with frmZdyAttInputCP10 do + begin + FATID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInputCP10.Free; + end; +end; + +procedure TfrmZdyAttachCP10.ToolButton3Click(Sender: TObject); +begin + try + frmZdyAttInputCP10:=TfrmZdyAttInputCP10.Create(Application); + with frmZdyAttInputCP10 do + begin + FATID:=''; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInputCP10.Free; + end; +end; + +procedure TfrmZdyAttachCP10.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; + +end. + + diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP20.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP20.dfm new file mode 100644 index 0000000..94cfa73 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP20.dfm @@ -0,0 +1,406 @@ +object frmZdyAttachCP20: TfrmZdyAttachCP20 + Left = 111 + Top = 136 + Width = 1075 + Height = 629 + 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 = 1059 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 113 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_BaseInfo.ThreeImgList + Flat = True + Images = DataLink_BaseInfo.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 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton5: TToolButton + Left = 315 + Top = 0 + Caption = #25552#21462'Excel'#25968#25454 + ImageIndex = 106 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 428 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton6: TToolButton + Left = 491 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 12 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 578 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1059 + Height = 38 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 35 + Top = 13 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 22 + Top = 57 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label2: TLabel + Left = 369 + Top = 57 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object ZdyName: TEdit + Tag = 2 + Left = 85 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = ZdyNameChange + end + object ZdyCode: TEdit + Tag = 2 + Left = 71 + Top = 53 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = ZdyNameChange + end + object DEFstr5: TComboBox + Tag = 1 + Left = 394 + Top = 52 + 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 = 69 + Width = 1059 + Height = 522 + 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_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + 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 = 120 + end + object v2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 90 + end + object v2Column4: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 74 + end + object v2Column12: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'defNote1' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 100 + 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 = 155 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 384 + Top = 128 + Width = 269 + Height = 181 + Color = clSkyBlue + TabOrder = 3 + Visible = False + object Label4: TLabel + Left = 8 + Top = 12 + Width = 48 + Height = 12 + Caption = #26631#31614#21517#31216 + end + object RadioGroup1: TRadioGroup + Left = 37 + Top = 29 + Width = 192 + Height = 116 + ItemIndex = 0 + Items.Strings = ( + #20135#21697#26631#31614 + #20135#21697#26631#31614'1' + #20135#21697#26631#31614'2('#26607#26725')' + #20135#21697#26631#31614'2('#28246#24030')' + #20135#21697#26631#31614'2('#24191#19996')') + TabOrder = 0 + end + object cxButton1: TcxButton + Left = 24 + Top = 152 + Width = 75 + Height = 25 + Caption = #25171#21360 + TabOrder = 1 + OnClick = cxButton1Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton2: TcxButton + Left = 172 + Top = 152 + Width = 75 + Height = 25 + Caption = #21462#28040 + TabOrder = 2 + OnClick = cxButton2Click + LookAndFeel.Kind = lfOffice11 + 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 + 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 = 708 + Top = 228 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 700 + Top = 180 + 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 = 948 + Top = 204 + end + object OpenDialog1: TOpenDialog + Left = 936 + Top = 41 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP20.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP20.pas new file mode 100644 index 0000000..eb7843c --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP20.pas @@ -0,0 +1,443 @@ +unit U_ZdyAttachCP20; + +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, Menus, cxLookAndFeelPainters, cxButtons; + +type + + FdDy=record + inc: integer; //ͻ׽־ + FDdys:string[32]; //ͻ׽ + FdDysName:string[32]; //ͻ׽ + end; + TfrmZdyAttachCP20 = 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; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + Label2: TLabel; + DEFstr5: TComboBox; + v2Column7: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + OpenDialog1: TOpenDialog; + ToolButton5: TToolButton; + v2Column14: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + ToolButton6: TToolButton; + Panel2: TPanel; + RadioGroup1: TRadioGroup; + Label4: TLabel; + cxButton1: TcxButton; + cxButton2: TcxButton; + 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 cxButton2Click(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + public + fkhType:string; + dFdDy: array[0..20] of FdDy; //ͻ + end; + +var + frmZdyAttachCP20: TfrmZdyAttachCP20; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_ZdyAttInputCP20; + +{$R *.dfm} + + + +procedure TfrmZdyAttachCP20.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select ATID,ZdyName,ZdyCode,DEFstr1,DEFstr2,defNote1,Mrate,defNote2,DEFstr3,DEFstr5,DEFstr4,'); + sql.Add(' DEFstr6,DEFstr7,DEFstr8,Note,DEFstr4,DEFstr5,defflt1,Filler,FillTime '); + sql.Add(' from KH_Zdy_Attachment where Type=''CPML'' '); + sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType))); + sql.Add(' order by zdyName,dbo.getNum(Defstr3) '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachCP20.FormDestroy(Sender: TObject); +begin + frmZdyAttachCP20:=nil; +end; + +procedure TfrmZdyAttachCP20.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachCP20.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷĿ¼',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttachCP20.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 TfrmZdyAttachCP20.FormShow(Sender: TObject); +begin + ReadCxGrid('ƷĿ¼',Tv2,'ͻԶ'); + InitGrid(); +end; + +procedure TfrmZdyAttachCP20.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachCP20.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 TfrmZdyAttachCP20.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachCP20.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ʒб'); +end; + +procedure TfrmZdyAttachCP20.ToolButton4Click(Sender: TObject); +begin + try + frmZdyAttInputCP20:=TfrmZdyAttInputCP20.Create(Application); + with frmZdyAttInputCP20 do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + fkhType:=self.fkhType; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInputCP20.Free; + end; +end; + +procedure TfrmZdyAttachCP20.ToolButton3Click(Sender: TObject); +begin + try + frmZdyAttInputCP20:=TfrmZdyAttInputCP20.Create(Application); + with frmZdyAttInputCP20 do + begin + FCYID:=''; + fkhType:=self.fkhType; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInputCP20.Free; + end; +end; + +procedure TfrmZdyAttachCP20.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 TfrmZdyAttachCP20.cxButton2Click(Sender: TObject); +begin + Panel2.Visible:=false; +end; + +procedure TfrmZdyAttachCP20.cxButton1Click(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + IF CDS_HZ.IsEmpty then exit; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_HZ.fieldbyname('ZDYCODE').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(RadioGroup1.Items[RadioGroup1.ItemIndex])+'.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + // Rm2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1); + RM1.ShowReport; + // RM1.PrintReport; + end + else + Application.MessageBox(PChar('ûҵļ'+fPrintFile),'ʾ',0); + +end; + +procedure TfrmZdyAttachCP20.ToolButton6Click(Sender: TObject); +begin + Panel2.Left:=(self.Width-Panel2.Width) div 2; + Panel2.Top:=(self.Height-Panel2.Height) div 2 -100; + Panel2.Visible:=true; +end; + +end. + + diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachCPCX.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCPCX.dfm new file mode 100644 index 0000000..bca09a6 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCPCX.dfm @@ -0,0 +1,556 @@ +object frmZdyAttachCPCX: TfrmZdyAttachCPCX + Left = 518 + Top = 173 + Width = 1151 + Height = 818 + 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 = 1135 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 113 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_BaseInfo.ThreeImgList + Flat = True + Images = DataLink_BaseInfo.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 + 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 ToolButton5: TToolButton + Left = 315 + Top = 0 + Caption = #25552#21462'Excel'#25968#25454 + ImageIndex = 106 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 428 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton6: TToolButton + Left = 491 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 12 + Visible = False + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 578 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1135 + 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 + Visible = False + end + object Label2: TLabel + Left = 369 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + Visible = False + 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 + Visible = False + OnChange = ZdyNameChange + end + object DEFstr5: TComboBox + Tag = 1 + Left = 398 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Visible = False + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067 + #25104#21697 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 904 + Height = 709 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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 + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column2: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 94 + 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 = 120 + end + object v2Column12: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'defNote3' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 100 + end + object v2Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 88 + end + object v2Column16: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'DEFstr6' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFstr5' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 88 + end + object v2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 74 + end + object v2Mrate: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Mrate' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 80 + end + object v2Column13: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'defNote2' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 100 + end + object v2Column9: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'DEFstr7' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 73 + end + object v2Column7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'DEFstr8' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 61 + end + object v2defflt1: TcxGridDBColumn + Caption = #20215#26684#22686#24133 + DataBinding.FieldName = 'defflt1' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 114 + end + object v2Column14: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 60 + end + object v2Column15: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 188 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 384 + Top = 128 + Width = 269 + Height = 177 + Color = clSkyBlue + TabOrder = 3 + Visible = False + object Label4: TLabel + Left = 8 + Top = 12 + Width = 48 + Height = 12 + Caption = #26631#31614#21517#31216 + end + object RadioGroup1: TRadioGroup + Left = 37 + Top = 29 + Width = 192 + Height = 88 + ItemIndex = 0 + Items.Strings = ( + #20135#21697#26631#31614 + #20135#21697#26631#31614'1') + TabOrder = 0 + end + object cxButton1: TcxButton + Left = 28 + Top = 140 + Width = 75 + Height = 25 + Caption = #25171#21360 + TabOrder = 1 + OnClick = cxButton1Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton2: TcxButton + Left = 172 + Top = 140 + Width = 75 + Height = 25 + Caption = #21462#28040 + TabOrder = 2 + OnClick = cxButton2Click + LookAndFeel.Kind = lfOffice11 + end + end + object cxGrid1: TcxGrid + Left = 904 + Top = 70 + Width = 231 + Height = 709 + Align = alRight + TabOrder = 4 + Visible = False + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + DataController.DataSource = DS_GC + 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 + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object Tv1Column1: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'JgcName' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv1Column2: TcxGridDBColumn + Caption = #24037#21378#36135#21495 + DataBinding.FieldName = 'JgcCode' + HeaderAlignmentHorz = taCenter + Width = 100 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv1 + 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 = 793 + 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 = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 708 + Top = 228 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 700 + Top = 180 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 756 + Top = 176 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 727 + Top = 335 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 816 + Top = 204 + end + object OpenDialog1: TOpenDialog + Left = 936 + Top = 41 + end + object ADOQueryGC: TADOQuery + Connection = DataLink_BaseInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 961 + Top = 541 + end + object CDS_GC: TClientDataSet + Aggregates = <> + Params = <> + Left = 1020 + Top = 544 + end + object DS_GC: TDataSource + DataSet = CDS_GC + Left = 1083 + Top = 551 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachCPCX.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCPCX.pas new file mode 100644 index 0000000..1942780 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCPCX.pas @@ -0,0 +1,473 @@ +unit U_ZdyAttachCPCX; + +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, Menus, cxLookAndFeelPainters, cxButtons, cxLookAndFeels, + cxNavigator; + +type + FdDy = record + inc: integer; //ͻ׽־ + FDdys: string[32]; //ͻ׽ + FdDysName: string[32]; //ͻ׽ + end; + + TfrmZdyAttachCPCX = 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; + v2Column11: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + OpenDialog1: TOpenDialog; + ToolButton5: TToolButton; + v2Mrate: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2defflt1: TcxGridDBColumn; + ToolButton6: TToolButton; + Panel2: TPanel; + RadioGroup1: TRadioGroup; + Label4: TLabel; + cxButton1: TcxButton; + cxButton2: TcxButton; + v2Column16: TcxGridDBColumn; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridLevel2: TcxGridLevel; + ADOQueryGC: TADOQuery; + CDS_GC: TClientDataSet; + DS_GC: TDataSource; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: 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 cxButton2Click(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + 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 + frmZdyAttachCPCX: TfrmZdyAttachCPCX; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp, U_ZdyAttInputCP; + +{$R *.dfm} + +procedure TfrmZdyAttachCPCX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select distinct ZdyName'); + sql.Add(' from KH_Zdy_Attachment where Type=''CP'' and isnull(DEFstr5,'''')<>'''' '); + sql.Add(' and isnull(khType,'''')=' + quotedstr(trim(fkhType))); + sql.Add(' order by zdyName '); +// sql.Add(' select ATID,ZdyName,ZdyCode,DEFstr1,DEFstr2,defNote1,Mrate,defNote2,defNote3,DEFstr3,DEFstr5,DEFstr4,'); +// sql.Add(' DEFstr6,DEFstr7,DEFstr8,Note,DEFstr4,DEFstr5,defflt1,Filler,FillTime '); +// sql.Add(' from KH_Zdy_Attachment where Type=''CP'' and isnull(DEFstr5,'''')<>'''' '); +// sql.Add(' and isnull(khType,'''')=' + quotedstr(trim(fkhType))); +// sql.Add(' order by zdyName,dbo.getNum(Defstr3) '); + // sql.Add(' order by zdyName '); +// ShowMessage(sql.text); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmZdyAttachCPCX.FormDestroy(Sender: TObject); +begin + frmZdyAttachCPCX := nil; +end; + +procedure TfrmZdyAttachCPCX.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmZdyAttachCPCX.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ13', Tv2, 'ͻԶ1'); + Close; +end; + +procedure TfrmZdyAttachCPCX.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) + ''''); + sql.Add('delete KH_CP_JGC where ATID=''' + Trim(CDS_HZ.fieldbyname('ATID').AsString) + ''''); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmZdyAttachCPCX.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ13', Tv2, 'ͻԶ1'); + InitGrid(); +end; + +procedure TfrmZdyAttachCPCX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachCPCX.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 TfrmZdyAttachCPCX.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmZdyAttachCPCX.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ʒб'); +end; + +procedure TfrmZdyAttachCPCX.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 TfrmZdyAttachCPCX.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 TfrmZdyAttachCPCX.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 := 'defNote3'; + 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 := 'DEFstr6'; + 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('zdyCode').Value := Trim(maxId); + ADOQueryCmd.FieldByName('khType').Value := Trim(fkhType); + ADOQueryCmd.FieldByName('Type').Value := 'CP'; + ADOQueryCmd.FieldByName('Filler').Value := Trim(DName); + ADOQueryCmd.Post; + + 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 TfrmZdyAttachCPCX.cxButton2Click(Sender: TObject); +begin + Panel2.Visible := false; +end; + +procedure TfrmZdyAttachCPCX.cxButton1Click(Sender: TObject); +var + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + if CDS_HZ.IsEmpty then + exit; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(CDS_HZ.fieldbyname('ZDYCODE').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(RadioGroup1.Items[RadioGroup1.ItemIndex]) + '.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RM1.LoadFromFile(fPrintFile); + // Rm2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1); + // RM1.ShowReport; + RM1.PrintReport; + end + else + Application.MessageBox(PChar('ûҵļ' + fPrintFile), 'ʾ', 0); + +end; + +procedure TfrmZdyAttachCPCX.ToolButton6Click(Sender: TObject); +begin + Panel2.Left := (self.Width - Panel2.Width) div 2; + Panel2.Top := (self.Height - Panel2.Height) div 2 - 100; + Panel2.Visible := true; +end; + +procedure TfrmZdyAttachCPCX.Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + try + ADOQueryGC.DisableControls; + with ADOQueryGC do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select *'); + sql.Add(' from KH_CP_JGC where ATID=''' + Trim(CDS_HZ.fieldbyname('ATID').AsString) + ''' '); +// sql.Add(' order by zdyName,dbo.getNum(Defstr3) '); + // sql.Add(' order by zdyName '); + Open; + end; + SCreateCDS20(ADOQueryGC, CDS_GC); + SInitCDSData20(ADOQueryGC, CDS_GC); + finally + ADOQueryGC.EnableControls; + end; +end; + +procedure TfrmZdyAttachCPCX.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/基础资料维护(BaseInfo.dll)/U_ZdyAttachGYS.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttachGYS.dfm new file mode 100644 index 0000000..b410e63 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachGYS.dfm @@ -0,0 +1,372 @@ +object frmZdyAttachGYS: TfrmZdyAttachGYS + Left = 159 + Top = 119 + 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_BaseInfo.ThreeImgList + Flat = True + Images = DataLink_BaseInfo.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 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + Caption = #20462#25913 + ImageIndex = 54 + OnClick = ToolButton4Click + 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 + 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 Label4: TLabel + Left = 534 + Top = 13 + Width = 24 + Height = 12 + Caption = #22320#21306 + 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 + ItemHeight = 12 + TabOrder = 2 + OnChange = ZdyNameChange + Items.Strings = ( + '' + #22383#24067#21378 + #21152#24037#21378) + end + object DEFStr7: TEdit + Tag = 2 + Left = 564 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = ZdyNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1022 + Height = 509 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.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 v2Column10: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'DEFStr6' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column11: 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 = 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 + 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 = 80 + end + object Tv2Column1: TcxGridDBColumn + Caption = #36319#21333 + DataBinding.FieldName = 'DEFNote2' + HeaderAlignmentHorz = taCenter + Width = 60 + 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/基础资料维护(BaseInfo.dll)/U_ZdyAttachGYS.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttachGYS.pas new file mode 100644 index 0000000..b219685 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachGYS.pas @@ -0,0 +1,223 @@ +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, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator; + +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; + v2Column11: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + DEFStr7: TEdit; + Label4: TLabel; + Tv2Column1: 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); + private + { Private declarations } + procedure InitGrid(); + + public + fDEFstr5:string; + end; + +var + frmZdyAttachGYS: TfrmZdyAttachGYS; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_ZdyAttInputGYS; + +{$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; + ToolButton2.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,'ͻԶ'); + IF trim(fDEFstr5)<>'' then + begin + DEFstr5.Text:=trim(fDEFstr5); + DEFstr5.Enabled:=false; + end; + 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; + TcxGridToExcel(self.Caption,cxgrid2); +// 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); + fDEFstr5:=self.fDEFstr5; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInputGYS.Free; + end; +end; + +procedure TfrmZdyAttachGYS.ToolButton3Click(Sender: TObject); +begin + try + frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application); + with frmZdyAttInputGYS do + begin + FCYID:=''; + fDEFstr5:=self.fDEFstr5; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInputGYS.Free; + end; +end; + +end. + + diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachGYSxz.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttachGYSxz.dfm new file mode 100644 index 0000000..253f7fa --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachGYSxz.dfm @@ -0,0 +1,378 @@ +object frmZdyAttachGYSxz: TfrmZdyAttachGYSxz + Left = 381 + Top = 118 + 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_BaseInfo.ThreeImgList + Flat = True + Images = DataLink_BaseInfo.ThreeImgList + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 9 + Visible = False + 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 + 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 Label4: TLabel + Left = 534 + Top = 13 + Width = 24 + Height = 12 + Caption = #22320#21306 + 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 + ItemHeight = 12 + TabOrder = 2 + OnChange = ZdyNameChange + Items.Strings = ( + '' + #22383#24067#21378 + #21152#24037#21378) + end + object DEFStr7: TEdit + Tag = 2 + Left = 564 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = ZdyNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1022 + Height = 509 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.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 v2Column10: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'DEFStr6' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column11: 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 = 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 + 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 = 80 + end + object Tv2Column1: TcxGridDBColumn + Caption = #36319#21333 + DataBinding.FieldName = 'DEFNote2' + HeaderAlignmentHorz = taCenter + Width = 60 + 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 = 916 + Top = 172 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 224 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 891 + Top = 271 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 784 + Top = 284 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachGYSxz.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttachGYSxz.pas new file mode 100644 index 0000000..41aa9ad --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachGYSxz.pas @@ -0,0 +1,235 @@ +unit U_ZdyAttachGYSxz; + +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, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator; + +type + TfrmZdyAttachGYSxz = 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; + v2Column11: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + DEFStr7: TEdit; + Label4: TLabel; + Tv2Column1: 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 Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + procedure InitGrid(); + + public + fDEFstr5:string; + end; + +var + frmZdyAttachGYSxz: TfrmZdyAttachGYSxz; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_ZdyAttInputGYS; + +{$R *.dfm} + + + +procedure TfrmZdyAttachGYSxz.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select * from KH_Zdy_Attachment where Type=''GYS'' and DEFstr5=''ӹ'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachGYSxz.FormDestroy(Sender: TObject); +begin + frmZdyAttachGYSxz:=nil; +end; + +procedure TfrmZdyAttachGYSxz.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachGYSxz.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ӧ',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttachGYSxz.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 TfrmZdyAttachGYSxz.FormShow(Sender: TObject); +begin + ReadCxGrid('Ӧ',Tv2,'ͻԶ'); + IF trim(fDEFstr5)<>'' then + begin + DEFstr5.Text:=trim(fDEFstr5); + DEFstr5.Enabled:=false; + end; + InitGrid(); +end; + +procedure TfrmZdyAttachGYSxz.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachGYSxz.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 TfrmZdyAttachGYSxz.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachGYSxz.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ӧб'); +end; + +procedure TfrmZdyAttachGYSxz.ToolButton4Click(Sender: TObject); +begin + try + frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application); + with frmZdyAttInputGYS do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + fDEFstr5:=self.fDEFstr5; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInputGYS.Free; + end; +end; + +procedure TfrmZdyAttachGYSxz.ToolButton3Click(Sender: TObject); +begin + try + frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application); + with frmZdyAttInputGYS do + begin + FCYID:=''; + fDEFstr5:=self.fDEFstr5; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInputGYS.Free; + end; +end; + +procedure TfrmZdyAttachGYSxz.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/基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.dfm new file mode 100644 index 0000000..1addf03 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.dfm @@ -0,0 +1,474 @@ +object frmZdyAttachPB: TfrmZdyAttachPB + Left = 371 + Top = 240 + Width = 1075 + Height = 629 + Caption = #22383#24067#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 = 1059 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 113 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_BaseInfo.ThreeImgList + Flat = True + Images = DataLink_BaseInfo.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 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = ToolButton4Click + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object ToolButton5: TToolButton + Left = 315 + Top = 0 + Caption = #25552#21462'Excel'#25968#25454 + ImageIndex = 106 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 428 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton6: TToolButton + Left = 491 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 12 + Visible = False + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 578 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1059 + 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 + Visible = False + 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 + Visible = False + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067 + #25104#21697 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1059 + Height = 520 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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 + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + object v2Column2: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 94 + 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 = 120 + end + object v2Column12: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'defNote3' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 100 + end + object v2Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'DEFstr3' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 88 + end + object v2Column16: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'DEFstr6' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFstr5' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 88 + end + object v2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'DEFstr1' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 72 + end + object v2Column4: TcxGridDBColumn + Caption = #25104#20221 + DataBinding.FieldName = 'DEFstr2' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 74 + end + object v2Mrate: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Mrate' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 80 + end + object v2Column13: TcxGridDBColumn + Caption = #24037#33402 + DataBinding.FieldName = 'defNote2' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 100 + end + object v2Column9: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'DEFstr7' + PropertiesClassName = 'TcxTextEditProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 73 + end + object v2Column7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'DEFstr8' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + VisibleForCustomization = False + Width = 61 + end + object v2defflt1: TcxGridDBColumn + Caption = #20215#26684#22686#24133 + DataBinding.FieldName = 'defflt1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + 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 = 188 + end + object Tv2Column1: TcxGridDBColumn + Caption = #25104#21697#36135#21495 + DataBinding.FieldName = 'CPhh' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel2: TPanel + Left = 384 + Top = 128 + Width = 269 + Height = 177 + Color = clSkyBlue + TabOrder = 3 + Visible = False + object Label4: TLabel + Left = 8 + Top = 12 + Width = 48 + Height = 12 + Caption = #26631#31614#21517#31216 + end + object RadioGroup1: TRadioGroup + Left = 37 + Top = 29 + Width = 192 + Height = 88 + ItemIndex = 0 + Items.Strings = ( + #20135#21697#26631#31614 + #20135#21697#26631#31614'1') + TabOrder = 0 + end + object cxButton1: TcxButton + Left = 28 + Top = 140 + Width = 75 + Height = 25 + Caption = #25171#21360 + TabOrder = 1 + OnClick = cxButton1Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton2: TcxButton + Left = 172 + Top = 140 + Width = 75 + Height = 25 + Caption = #21462#28040 + TabOrder = 2 + OnClick = cxButton2Click + LookAndFeel.Kind = lfOffice11 + 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 = 708 + Top = 228 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 700 + Top = 180 + 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 = 948 + Top = 204 + end + object OpenDialog1: TOpenDialog + Left = 936 + Top = 41 + end +end diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.pas new file mode 100644 index 0000000..a2de6b4 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachPB.pas @@ -0,0 +1,425 @@ +unit U_ZdyAttachPB; + +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, Menus, cxLookAndFeelPainters, cxButtons, + cxLookAndFeels, cxNavigator; + +type + + FdDy=record + inc: integer; //ͻ׽־ + FDdys:string[32]; //ͻ׽ + FdDysName:string[32]; //ͻ׽ + end; + TfrmZdyAttachPB = 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; + v2Column11: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + OpenDialog1: TOpenDialog; + ToolButton5: TToolButton; + v2Mrate: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + v2Column15: TcxGridDBColumn; + v2defflt1: TcxGridDBColumn; + ToolButton6: TToolButton; + Panel2: TPanel; + RadioGroup1: TRadioGroup; + Label4: TLabel; + cxButton1: TcxButton; + cxButton2: TcxButton; + v2Column16: TcxGridDBColumn; + Tv2Column1: 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 cxButton2Click(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + public + fkhType:string; + dFdDy: array[0..20] of FdDy; //ͻ + end; + +var + frmZdyAttachPB: TfrmZdyAttachPB; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_ZdyAttInputPB; + +{$R *.dfm} + + + +procedure TfrmZdyAttachPB.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select ATID,ZdyName,ZdyCode,DEFstr1,DEFstr2,defNote1,Mrate,defNote2,defNote3,DEFstr3,DEFstr5,DEFstr4,'); + sql.Add(' DEFstr6,DEFstr7,DEFstr8,Note,DEFstr4,DEFstr5,defflt1,CPhh,Filler,FillTime '); + sql.Add(' from KH_Zdy_Attachment where Type=''CP'' and DEFstr5='''' '); + sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType))); + sql.Add(' order by zdyName,dbo.getNum(Defstr3) '); + // sql.Add(' order by zdyName '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZdyAttachPB.FormDestroy(Sender: TObject); +begin + frmZdyAttachPB:=nil; +end; + +procedure TfrmZdyAttachPB.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmZdyAttachPB.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Ʒ13',Tv2,'ͻԶ'); + Close; +end; +procedure TfrmZdyAttachPB.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 TfrmZdyAttachPB.FormShow(Sender: TObject); +begin + ReadCxGrid('Ʒ13',Tv2,'ͻԶ'); + InitGrid(); +end; + +procedure TfrmZdyAttachPB.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZdyAttachPB.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 TfrmZdyAttachPB.ZdyNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmZdyAttachPB.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ʒб'); +end; + +procedure TfrmZdyAttachPB.ToolButton4Click(Sender: TObject); +begin + try + frmZdyAttInputPB:=TfrmZdyAttInputPB.Create(Application); + with frmZdyAttInputPB do + begin + FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + fkhType:=self.fkhType; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInputPB.Free; + end; +end; + +procedure TfrmZdyAttachPB.ToolButton3Click(Sender: TObject); +begin + try + frmZdyAttInputPB:=TfrmZdyAttInputPB.Create(Application); + with frmZdyAttInputPB do + begin + FCYID:=''; + fkhType:=self.fkhType; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInputPB.Free; + end; +end; + +procedure TfrmZdyAttachPB.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:='defNote3'; + 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:='DEFstr6'; + 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('zdyCode').Value:=Trim(maxId); + ADOQueryCmd.FieldByName('khType').Value:=Trim(fkhType); + ADOQueryCmd.FieldByName('Type').Value:='CP'; + ADOQueryCmd.FieldByName('Filler').Value:=Trim(DName); + ADOQueryCmd.Post; + + 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 TfrmZdyAttachPB.cxButton2Click(Sender: TObject); +begin + Panel2.Visible:=false; +end; + +procedure TfrmZdyAttachPB.cxButton1Click(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + IF CDS_HZ.IsEmpty then exit; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_HZ.fieldbyname('ZDYCODE').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(RadioGroup1.Items[RadioGroup1.ItemIndex])+'.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + // Rm2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1); + // RM1.ShowReport; + RM1.PrintReport; + end + else + Application.MessageBox(PChar('ûҵļ'+fPrintFile),'ʾ',0); + +end; + +procedure TfrmZdyAttachPB.ToolButton6Click(Sender: TObject); +begin + Panel2.Left:=(self.Width-Panel2.Width) div 2; + Panel2.Top:=(self.Height-Panel2.Height) div 2 -100; + Panel2.Visible:=true; +end; + +end. + + diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachment.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttachment.dfm new file mode 100644 index 0000000..93ec596 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachment.dfm @@ -0,0 +1,393 @@ +object frmZdyAttachment: TfrmZdyAttachment + Left = 293 + Top = 214 + Width = 1378 + Height = 754 + 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 = 1362 + 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 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 Tadd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TaddClick + end + object Tedit: TToolButton + Left = 189 + Top = 0 + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TeditClick + end + object TDel: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TDelClick + 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 = 1362 + 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 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1362 + Height = 645 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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_BaseInfo.SHuangSe + Styles.IncSearch = DataLink_BaseInfo.SHuangSe + Styles.Selection = DataLink_BaseInfo.SHuangSe + Styles.Header = DataLink_BaseInfo.handBlack + 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 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 + object v2Column15: TcxGridDBColumn + Caption = #25176#36816#37096 + DataBinding.FieldName = 'defstr8' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column16: TcxGridDBColumn + Caption = #25176#36816#37096#30005#35805 + DataBinding.FieldName = 'DEFNote3' + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v2Column17: TcxGridDBColumn + Caption = #24494#20449'ID' + DataBinding.FieldName = 'weixinID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v2Column18: TcxGridDBColumn + Caption = #24494#20449#21517#31216 + DataBinding.FieldName = 'weixinname' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + 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/基础资料维护(BaseInfo.dll)/U_ZdyAttachment.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttachment.pas new file mode 100644 index 0000000..881df70 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachment.pas @@ -0,0 +1,257 @@ +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, cxDBLookupComboBox, cxLookAndFeels, cxLookAndFeelPainters, + 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, cxNavigator; + +type + TfrmZdyAttachment = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TDel: 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; + Tadd: 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; + Tedit: TToolButton; + Label2: TLabel; + DEFstr5: TEdit; + v2Column11: TcxGridDBColumn; + v2DEFStr7: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + v2Column14: TcxGridDBColumn; + DEFStr7: TEdit; + Label4: TLabel; + v2Column15: TcxGridDBColumn; + v2Column16: TcxGridDBColumn; + v2Column17: TcxGridDBColumn; + v2Column18: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TeditClick(Sender: TObject); + procedure TaddClick(Sender: TObject); + private + + { Private declarations } + procedure InitGrid(); + public + fkhType: string; + canshu1, canshu2,FParameters4: string; + end; + +var + frmZdyAttachment: TfrmZdyAttachment; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp, U_ZdyAttInput, U_ZdyInput; + +{$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.TDelClick(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, 'ͻԶ'); +// DParameters4:=Trim(DParameters4); + if trim(canshu1) = 'ѯ' then + begin + Tadd.Visible := false; + tedit.Visible := false; + tdel.Visible := false; + end; + + 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; + TcxGridToExcel(self.Caption, cxgrid2); + // SelExportData(Tv2,ADOQueryMain,'ͻб'); +end; + +procedure TfrmZdyAttachment.TeditClick(Sender: TObject); +begin + if trim(DParameters4) = 'Ȩ' then + begin + if Trim(CDS_HZ.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + end; + + try + frmZdyAttInput := TfrmZdyAttInput.Create(Application); + with frmZdyAttInput do + begin + FCYID := Trim(Self.CDS_HZ.fieldbyname('ATID').AsString); + fkhType := self.fkhType; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInput.Free; + end; +end; + +procedure TfrmZdyAttachment.TaddClick(Sender: TObject); +begin + try + frmZdyAttInput := TfrmZdyAttInput.Create(Application); + with frmZdyAttInput do + begin + fkhType := self.fkhType; + canshu1 := self.canshu1; + FParameters4:=Self.FParameters4; + FCYID := ''; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmZdyAttInput.Free; + end; + +end; + +end. + diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyInput.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyInput.dfm new file mode 100644 index 0000000..fdd877e --- /dev/null +++ b/基础资料维护(BaseInfo.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/基础资料维护(BaseInfo.dll)/U_ZdyInput.pas b/基础资料维护(BaseInfo.dll)/U_ZdyInput.pas new file mode 100644 index 0000000..5bc42df --- /dev/null +++ b/基础资料维护(BaseInfo.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/基础资料维护(BaseInfo.dll)/U_testdll.dfm b/基础资料维护(BaseInfo.dll)/U_testdll.dfm new file mode 100644 index 0000000..80d4cc0 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/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/基础资料维护(BaseInfo.dll)/U_testdll.pas b/基础资料维护(BaseInfo.dll)/U_testdll.pas new file mode 100644 index 0000000..8202ea9 --- /dev/null +++ b/基础资料维护(BaseInfo.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('BaseInfo.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/基础资料维护(BaseInfo.dll)/consvr.ini b/基础资料维护(BaseInfo.dll)/consvr.ini new file mode 100644 index 0000000..3a03c34 --- /dev/null +++ b/基础资料维护(BaseInfo.dll)/consvr.ini @@ -0,0 +1,2 @@ +[SERVER] +SERVER=192.168.88.254 \ No newline at end of file diff --git a/基础资料维护(BaseInfo.dll)/testDll.cfg b/基础资料维护(BaseInfo.dll)/testDll.cfg new file mode 100644 index 0000000..6c57635 --- /dev/null +++ b/基础资料维护(BaseInfo.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\borland\delphi7\Projects\Bpl" +-LN"c:\program files\borland\delphi7\Projects\Bpl" +-w-UNSAFE_TYPE +-w-UNSAFE_CODE +-w-UNSAFE_CAST diff --git a/基础资料维护(BaseInfo.dll)/testDll.dof b/基础资料维护(BaseInfo.dll)/testDll.dof new file mode 100644 index 0000000..e46a928 --- /dev/null +++ b/基础资料维护(BaseInfo.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\ά(BaseInfo.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/基础资料维护(BaseInfo.dll)/testDll.dpr b/基础资料维护(BaseInfo.dll)/testDll.dpr new file mode 100644 index 0000000..4be4b8a --- /dev/null +++ b/基础资料维护(BaseInfo.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/基础资料维护(BaseInfo.dll)/testDll.res b/基础资料维护(BaseInfo.dll)/testDll.res new file mode 100644 index 0000000..2d6f24c Binary files /dev/null and b/基础资料维护(BaseInfo.dll)/testDll.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..a40a404 --- /dev/null +++ b/应收应付/U_DataLink.dfm @@ -0,0 +1,17983 @@ +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 + 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 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..a128798 --- /dev/null +++ b/应收应付/U_DataLink.pas @@ -0,0 +1,86 @@ +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; //##// + 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..1c754aa --- /dev/null +++ b/应收应付/U_FKCR.dfm @@ -0,0 +1,445 @@ +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 = 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 ToolButton5: TToolButton + Left = 252 + Top = 0 + Caption = #20445#23384 + ImageIndex = 44 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 311 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #26085#24535 + ImageIndex = 72 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 437 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1022 + Height = 62 + 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 = 24 + Top = 37 + 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 = 93 + Width = 1022 + Height = 487 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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 + OptionsView.Indicator = True + Styles.Header = DataLink_YSYF.FonePurple + object Tv2Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + 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 + 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 v2DerateMoney: TcxGridDBColumn + Caption = #20943#20813#37329#39069 + DataBinding.FieldName = 'DerateMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2DerateMoneyPropertiesEditValueChanged + 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 + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v2fstr1: TcxGridDBColumn + Caption = #20184#27454#26041#24335 + DataBinding.FieldName = 'fstr1' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2fstr1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column2: TcxGridDBColumn + Caption = #20184#27454#36134#25143 + DataBinding.FieldName = 'bankNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column2PropertiesButtonClick + 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 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..1f6cc96 --- /dev/null +++ b/应收应付/U_FKCR.pas @@ -0,0 +1,1163 @@ +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, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator; + +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; + v2fstr1: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + Tv2Column1: TcxGridDBColumn; + 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 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 v2Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + private + { Private declarations } + fopevent:string; + procedure InitGridHZ(); + procedure InitGrid(); + procedure geteditRzhi(); + function SaveData():Boolean; + function SaveZL():Boolean; + public + fflag:integer; + fsyrName:string; + { Public declarations } + RKFlag,FCYID:String; + + end; + +var + frmFKCR: TfrmFKCR; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList, + U_PbProductList, U_ZdyAttachGYS, U_SysLogHelp; + +{$R *.dfm} + +procedure TfrmFKCR.geteditRzhi(); +begin + fopevent:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + + IF formatdateTime('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime)<> formatdateTime('yyyy-MM-dd',ADOQueryTemp.fieldbyName('CRTime').AsDateTime) then + fopevent:=fopevent+' :'+formatdateTime('yyyy-MM-dd',ADOQueryTemp.fieldbyName('CRTime').AsDateTime )+'->'+formatdateTime('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime); + + IF CDS_HZ.fieldbyname('Money').AsFloat<> ADOQueryTemp.fieldbyName('outMoney').AsFloat then + fopevent:=fopevent+' :'+ADOQueryTemp.fieldbyName('outMoney').AsString+'->'+CDS_HZ.fieldbyname('Money').AsString; + + IF trim(CDS_HZ.fieldbyname('bankNo').AsString)<> trim(ADOQueryTemp.fieldbyName('factoryName').AsString) then + fopevent:=fopevent+' ˻:'+trim(ADOQueryTemp.fieldbyName('factoryName').AsString)+'->'+trim(CDS_HZ.fieldbyname('bankNo').AsString); + + IF fopevent<>'' then + fopevent:='Էλ:'+Trim(CDS_HZ.fieldbyname('factoryName').AsString)+fopevent; + end; +end; + +function TfrmFKCR.SaveZL():Boolean; +var + LLNO:string; +begin + if GetLSNo(ADOQueryCMD,LLNO,'YL','YF_Money_LL',3,1)=False then + begin + ADOQueryCMD.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ'); + Exit; + end; + result:=false; + try + + with ADOqueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + execsql; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + Open; + append; + fieldbyname('filler').Value:=trim(Dname); + FieldByName('LLNO').Value:=Trim(LLNO); + fieldbyname('CRTime').Value:=formatdateTime('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime); + fieldbyname('CRType').Value:=Trim(CDS_HZ.fieldbyname('YFName').AsString); + fieldbyname('factoryName').Value:=Trim(CDS_HZ.fieldbyname('bankNo').AsString); + fieldbyname('TOfactoryName').Value:=Trim(CDS_HZ.fieldbyname('factoryName').AsString); + fieldbyname('NOTE').Value:=Trim(CDS_HZ.fieldbyname('note').AsString); + fieldbyname('inMoney').Value:=0; + fieldbyname('OutMoney').Value:=CDS_HZ.fieldbyname('Money').AsFloat; + fieldbyname('status').Value:='0'; + FieldByName('fromMainID').Value:=Trim(CDS_HZ.fieldbyname('YFID').AsString); + FieldByName('syrName').Value:=Trim(fsyrName); + Post; + end; + IF trim(fopevent)<>'' then + begin + 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('Ǽ'))); + sql.Add(','+quotedstr(trim('Ǽ޸'))); + sql.Add(','+quotedstr(trim(fopevent))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + end; + result:=true; + except + 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>=:begdate and A.CRTime<:Enddate and A.CRType=''Ǽ'' and a.YFDefFlag1='''+inttostr(fflag)+''' '); + 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 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,''); + Close; +end; +procedure TfrmFKCR.TBDelClick(Sender: TObject); +var + FBBMoney,CRID:string; +begin + if CDS_HZ.IsEmpty then Exit; + + 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('delete YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').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_HZ.FieldByName('factoryName').AsString)+' :'+trim(CDS_HZ.FieldByName('money').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmFKCR.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; + 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; + 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; + try + geteditRzhi(); + with ADOqueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + execsql; + end; + IF (CDS_HZ.FieldByName('money').AsFloat<>0) and + (trim(CDS_HZ.fieldbyname('bankNo').AsString)<>'') then + begin + IF not saveZL() then + begin + application.MessageBox('˻ˮϢʧ','ʾϢ',0); + end; + end; + except + 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); + if Trim(DParameters2)='' then + begin + FieldByName('HuiLv').Value:=1; + end; + Post; + end; + Self.SaveData(); + end; + end; + finally + frmZdyAttachGYS.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:=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; + try + geteditRzhi(); + with ADOqueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + execsql; + end; + IF (CDS_HZ.FieldByName('money').AsFloat<>0) and + (trim(CDS_HZ.fieldbyname('bankNo').AsString)<>'') then + begin + IF not saveZL() then + begin + application.MessageBox('˻ˮϢʧ','ʾϢ',0); + end; + end; + except + 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); + FieldByName('Money').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(' ,Money='+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; + try + geteditRzhi(); + with ADOqueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + execsql; + end; + IF (CDS_HZ.FieldByName('money').AsFloat<>0) and + (trim(CDS_HZ.fieldbyname('bankNo').AsString)<>'') then + begin + IF not saveZL() then + begin + application.MessageBox('˻ˮϢʧ','ʾϢ',0); + end; + end; + except + 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.v2Column2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:=trim(fsyrName)+'XJLLFLAG'; + flagname:='˻Ͷ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('bankNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set bankNo='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; } + end; + end; + finally + frmZDYHelp.Free; + end; +{ try + geteditRzhi(); + with ADOqueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + execsql; + end; + IF (CDS_HZ.FieldByName('money').AsFloat<>0) and + (trim(CDS_HZ.fieldbyname('bankNo').AsString)<>'') then + begin + IF not saveZL() then + begin + application.MessageBox('˻ˮϢʧ','ʾϢ',0); + end; + end; + except + end; } +end; + +procedure TfrmFKCR.ToolButton4Click(Sender: TObject); +begin + frmSysLogHelp:=TfrmSysLogHelp.create(self); + with frmSysLogHelp do + begin + facction:='Ǽ޸'; + showmodal; + free; + end; +end; + +procedure TfrmFKCR.ToolButton5Click(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + begdate.SetFocus; + 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 + IF trim(fieldbyName('bankNo').AsString)='' then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('˻Ϊգ','ʾϢ',MB_ICONERROR); + exit; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('UPdate YF_Money_CR SET '); + sql.Add(' Money='''+floattostr(CDS_HZ.fieldbyname('Money').AsFloat)+''' '); + sql.Add(',BBMoney='''+floattostr(CDS_HZ.fieldbyname('BBMoney').AsFloat)+''' '); + sql.Add(',DerateMoney='''+floattostr(CDS_HZ.fieldbyname('DerateMoney').AsFloat)+''' '); + sql.Add(',bankNo='''+trim(CDS_HZ.fieldbyname('bankNo').AsString)+''' '); + sql.Add(',CRTime='''+formatdateTIme('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime)+''' '); + sql.Add(',Note='''+trim(CDS_HZ.fieldbyname('Note').AsString)+''' '); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + execsql; + end; + try + geteditRzhi(); + with ADOqueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + execsql; + end; + IF (CDS_HZ.FieldByName('Money').AsFloat<>0) and + (trim(CDS_HZ.fieldbyname('bankNo').AsString)<>'') then + begin + IF not saveZL() then + begin + application.MessageBox('˻ˮϢʧ','ʾϢ',0); + end; + end; + except + end; + end; + next; + end; + First; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + //InitGrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmFKCR.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_FKCRLZ.dfm b/应收应付/U_FKCRLZ.dfm new file mode 100644 index 0000000..84ee455 --- /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 = 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 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 = 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 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 = 1022 + Height = 509 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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..9c7e70f --- /dev/null +++ b/应收应付/U_FKCRLZ.pas @@ -0,0 +1,883 @@ +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, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +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..91029ff --- /dev/null +++ b/应收应付/U_FKCR_GD.dfm @@ -0,0 +1,387 @@ +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 = 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 TBADD: TToolButton + Left = 126 + Top = 0 + Caption = #22686#34892 + ImageIndex = 103 + OnClick = TBADDClick + 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 = 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 = 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 = 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 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..a8bf8fe --- /dev/null +++ b/应收应付/U_FKCR_GD.pas @@ -0,0 +1,921 @@ +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; + +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; + 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); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + + public + fFlag:integer; + { Public declarations } + RKFlag,FCYID: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.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>=:begdate and A.CRTime<:Enddate and A.CRType=''Ǽ'' and A.YFDefFlag1='''+inttostr(fflag)+''' '); + 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 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; + 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:='Ȩ'; + 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; + +end. diff --git a/应收应付/U_FYDJ.dfm b/应收应付/U_FYDJ.dfm new file mode 100644 index 0000000..406d114 --- /dev/null +++ b/应收应付/U_FYDJ.dfm @@ -0,0 +1,407 @@ +object frmFYDJ: TfrmFYDJ + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #36153#29992#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 = 1366 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 119 + 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 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 TBZdy: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #33258#23450#20041#36153#29992#31867#22411 + ImageIndex = 42 + OnClick = TBZdyClick + end + object TBexcel: TToolButton + Left = 438 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = TBexcelClick + end + object TBClose: TToolButton + Left = 501 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1366 + Height = 38 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 484 + Top = 13 + Width = 48 + Height = 12 + Caption = #36153#29992#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 = 976 + Top = 13 + Width = 24 + Height = 12 + Caption = #22791#27880 + end + object Label5: TLabel + Left = 652 + Top = 14 + Width = 24 + Height = 12 + Caption = #24065#31181 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 312 + Top = 13 + Width = 48 + Height = 12 + Caption = #36153#29992#31867#22411 + end + object Label3: TLabel + Left = 804 + Top = 13 + Width = 48 + Height = 12 + Caption = #38134#34892#36134#25143 + end + object FeeName: TEdit + Tag = 2 + Left = 534 + Top = 9 + Width = 95 + Height = 20 + TabOrder = 0 + OnChange = FeeTypeChange + 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 note: TEdit + Tag = 2 + Left = 998 + Top = 9 + Width = 95 + Height = 20 + TabOrder = 3 + OnChange = FeeTypeChange + end + object BZType: TComboBox + Tag = 2 + Left = 680 + Top = 9 + Width = 95 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 4 + OnChange = FeeTypeChange + Items.Strings = ( + '' + 'RMB' + 'USD') + end + object FeeType: TEdit + Tag = 2 + Left = 362 + Top = 9 + Width = 95 + Height = 20 + TabOrder = 5 + OnChange = FeeTypeChange + end + object bankNo: TEdit + Tag = 2 + Left = 854 + Top = 9 + Width = 95 + Height = 20 + TabOrder = 6 + OnChange = FeeTypeChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 69 + Width = 1366 + Height = 647 + 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 + end + item + Kind = skSum + Column = v2Column9 + 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.FonePurple + object v2Column4: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object v2Column6: TcxGridDBColumn + Caption = #36153#29992#31867#22411 + DataBinding.FieldName = 'FeeType' + 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 v2Column5: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_YSYF.Default + Width = 146 + end + object v2Column2: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v2Column9: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v2Column3: TcxGridDBColumn + Caption = #38134#34892#36134#25143 + DataBinding.FieldName = 'bankNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 136 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 405 + Top = 113 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 365 + Top = 113 + 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 = 419 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 192 + end +end diff --git a/应收应付/U_FYDJ.pas b/应收应付/U_FYDJ.pas new file mode 100644 index 0000000..4609d2f --- /dev/null +++ b/应收应付/U_FYDJ.pas @@ -0,0 +1,262 @@ +unit U_FYDJ; + +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 + TfrmFYDJ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + TBfind: TToolButton; + Label1: TLabel; + FeeName: TEdit; + ADOQueryMain: TADOQuery; + TBexcel: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + TBAdd: TToolButton; + v2Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + TBEdit: TToolButton; + TBZdy: TToolButton; + v2Column2: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + note: TEdit; + Label4: TLabel; + BZType: TComboBox; + Label5: TLabel; + FeeType: TEdit; + Label7: TLabel; + bankNo: TEdit; + Label3: TLabel; + 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 TBexcelClick(Sender: TObject); + procedure TBZdyClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FeeTypeChange(Sender: TObject); + procedure TBEditClick(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + procedure SetComboBox(); + public + fSYRName:string; + fflag:integer; + { Public declarations } + + end; + +var + frmFYDJ: TfrmFYDJ; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_FYDJInput,U_ZdyAttachGYS,U_ZdyAttachment; + +{$R *.dfm} +procedure TfrmFYDJ.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.* from YF_Money_Fee A '); + 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 SYRName='''+trim(fSyrname)+''' '); + sql.Add(' and Feeflag='''+inttostr(fflag)+''' '); + sql.Add(' and money<>0 '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + TBfind.Click; + end; +end; + +procedure TfrmFYDJ.FormDestroy(Sender: TObject); +begin + frmFYDJ:=nil; +end; + +procedure TfrmFYDJ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmFYDJ.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(Self.Caption + Tv2.Name,Tv2,''); + Close; +end; + +procedure TfrmFYDJ.TBDelClick(Sender: TObject); +begin + if CDS_HZ.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 YF_Money_LL where exists(select FeeID from YF_Money_Fee X where X.FeeID=YF_Money_LL.fromMainID and FeeNo='''+Trim(CDS_HZ.fieldbyname('FeeNo').AsString)+''') '); + sql.Add(' delete YF_Money_Fee where FeeNo='''+Trim(CDS_HZ.fieldbyname('FeeNo').AsString)+''' '); + execsql; + end; + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmFYDJ.FormShow(Sender: TObject); +begin + ReadCxGrid(Self.Caption + Tv2.Name,Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=Enddate.DateTime; + SetComboBox(); + InitGrid(); +end; + +procedure TfrmFYDJ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFYDJ.TBfindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmFYDJ.TBexcelClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'õǼб'); +end; + +procedure TfrmFYDJ.SetComboBox(); +begin + { FeeType.Items.Clear; + FeeType.Items.Add(''); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add(' select distinct Note from KH_ZDY '); + SQL.Add(' where Type=''FeeType'' and ISNULL(Note,'''')<>'''' '); + Open; + while not Eof do + begin + FeeType.Items.Add(Trim(FieldByName('Note').AsString)); + Next; + end; + end; + FeeType.ItemIndex:=0; } +end; + +procedure TfrmFYDJ.TBZdyClick(Sender: TObject); +begin + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='FeeType'; + flagname:=''; + fnote:=True; + fZdyFlag:=True; + V1Note.Caption:=''; + Show; + end; +end; + +procedure TfrmFYDJ.TBAddClick(Sender: TObject); +begin + try + frmFYDJInput:=TfrmFYDJInput.Create(Application); + with frmFYDJInput do + begin + fkeyNo:=''; + fflag:=self.fflag; + fSyrname:=self.fSYRName; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmFYDJInput.Free; + end; +end; + +procedure TfrmFYDJ.FeeTypeChange(Sender: TObject); +begin + TBfind.Click; +end; + +procedure TfrmFYDJ.TBEditClick(Sender: TObject); +begin + try + frmFYDJInput:=TfrmFYDJInput.Create(Application); + with frmFYDJInput do + begin + fkeyNo:=Trim(Self.CDS_HZ.FieldByName('FeeNo').AsString); + FeeType.Enabled:=False; + fflag:=self.fflag; + fSyrname:=self.fSYRName; + if ShowModal=1 then + begin + Self.InitGrid(); + end; + end; + finally + frmFYDJInput.Free; + end; +end; + +end. diff --git a/应收应付/U_FYDJInput.dfm b/应收应付/U_FYDJInput.dfm new file mode 100644 index 0000000..f1b1098 --- /dev/null +++ b/应收应付/U_FYDJInput.dfm @@ -0,0 +1,314 @@ +object frmFYDJInput: TfrmFYDJInput + Left = 161 + Top = 134 + Width = 985 + Height = 583 + BorderIcons = [biSystemMenu] + Caption = #36153#29992#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poDesktopCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 969 + Height = 30 + AutoSize = True + 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_YSYF.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TSAVE: TToolButton + Left = 0 + Top = 0 + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TSAVEClick + end + object Tclose: TToolButton + Left = 59 + Top = 0 + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TcloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 30 + Width = 969 + Height = 55 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label8: TLabel + Left = 282 + Top = 102 + Width = 52 + Height = 12 + Caption = #36153#29992#31867#22411 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 46 + Top = 22 + Width = 54 + Height = 12 + Caption = #26085' '#26399 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CRTime: TDateTimePicker + Left = 106 + Top = 18 + Width = 130 + Height = 20 + Date = 41901.675385914350000000 + Format = 'yyyy-MM-dd' + Time = 41901.675385914350000000 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 0 + end + object FeeType: TComboBox + Left = 344 + Top = 98 + Width = 105 + Height = 20 + ItemHeight = 12 + TabOrder = 1 + OnChange = FeeTypeChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 114 + Width = 969 + Height = 431 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + 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 + end + item + Kind = skSum + Column = v2Column9 + end + item + Kind = skSum + 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 = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 155 + end + object v2Column4: TcxGridDBColumn + Caption = #36153#29992#31867#22411 + DataBinding.FieldName = 'FeeType' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column2: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'BZType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + 'RMB' + 'USD') + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Width = 133 + end + object v2Column9: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle1 + Styles.Footer = cxStyle1 + Styles.Header = cxStyle1 + Width = 128 + end + object v2Column3: TcxGridDBColumn + Caption = #38134#34892#36134#25143 + DataBinding.FieldName = 'bankNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 119 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 185 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 85 + Width = 969 + 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_YSYF.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 ADOQueryTMP: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 140 + Top = 337 + end + object ADOQueryCMD: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 204 + Top = 330 + end + object cxStyleRepository1: TcxStyleRepository + object cxStyle1: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 368 + Top = 216 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 288 + Top = 224 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 205 + Top = 225 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 251 + Top = 227 + end +end diff --git a/应收应付/U_FYDJInput.pas b/应收应付/U_FYDJInput.pas new file mode 100644 index 0000000..ababde1 --- /dev/null +++ b/应收应付/U_FYDJInput.pas @@ -0,0 +1,392 @@ +unit U_FYDJInput; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, DB, ADODB, cxControls, cxContainer, cxEdit, + cxTextEdit, cxCurrencyEdit, BtnEdit, StdCtrls, ExtCtrls, cxStyles, + cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxDBData, + cxButtonEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, cxDropDownEdit; + +type + TfrmFYDJInput = class(TForm) + ToolBar1: TToolBar; + TSAVE: TToolButton; + Tclose: TToolButton; + Panel1: TPanel; + Label8: TLabel; + Label2: TLabel; + CRTime: TDateTimePicker; + ADOQueryTMP: TADOQuery; + ADOQueryCMD: TADOQuery; + FeeType: TComboBox; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column5: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxGridPopupMenu2: TcxGridPopupMenu; + CDS_HZ: TClientDataSet; + ADOQueryMain: TADOQuery; + DS_HZ: TDataSource; + v2Column3: TcxGridDBColumn; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + v2Column4: TcxGridDBColumn; + procedure TcloseClick(Sender: TObject); + procedure TSAVEClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FeeTypeChange(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure v2Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + private + procedure savedata(); + procedure initdata(); + procedure SetComboBox(); + function SaveZL():Boolean; + { Private declarations } + public + fkeyNo: string; + fflag:integer; + fSYRName:string; + { Public declarations } + end; + +var + frmFYDJInput: TfrmFYDJInput; + +implementation + +uses U_ZDYHelpSel, U_ZDYHelp,U_Fun, U_ProductOrderNewList,U_DataLink; + +{$R *.dfm} +function TfrmFYDJInput.SaveZL():Boolean; +var + LLNO:string; +begin + if GetLSNo(ADOQueryCMD,LLNO,'YL','YF_Money_LL',3,1)=False then + begin + ADOQueryCMD.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ'); + Exit; + end; + result:=false; + try + with ADOqueryCmd do + begin + Close; + sql.Clear; + IF Trim(CDS_HZ.fieldbyname('FeeID').AsString)<>'' then + SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('FeeID').AsString)+''' '); + execsql; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('FeeID').AsString)+''' '); + Open; + append; + fieldbyname('filler').Value:=trim(Dname); + FieldByName('LLNO').Value:=Trim(LLNO); + fieldbyname('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTime.DateTime); + fieldbyname('CRType').Value:=Trim(CDS_HZ.fieldbyname('FeeName').AsString); + fieldbyname('factoryName').Value:=Trim(CDS_HZ.fieldbyname('bankNo').AsString); + // fieldbyname('TOfactoryName').Value:=Trim(CDS_HZ.fieldbyname('factoryName').AsString); + fieldbyname('NOTE').Value:=Trim(CDS_HZ.fieldbyname('note').AsString); + IF Fflag=1 then + fieldbyname('inMoney').Value:=CDS_HZ.fieldbyname('Money').AsFloat + else + fieldbyname('OutMoney').Value:=CDS_HZ.fieldbyname('Money').AsFloat; + fieldbyname('status').Value:='0'; + FieldByName('fromMainID').Value:=Trim(CDS_HZ.fieldbyname('FeeID').AsString); + FieldByName('syrName').Value:=Trim(fsyrName); + Post; + end; + result:=true; + except + end; +end; + +procedure TfrmFYDJInput.initdata(); +begin + with ADOQueryMain do + begin + close; + sql.clear; + sql.Add(' select * from YF_Money_Fee '); + sql.Add(' where FeeNo='+quotedstr(trim(fkeyNo)) ); + sql.Add(' and money<>0 ') ; + open; + if not IsEmpty then + begin + SCSHDataNew(ADOQueryMain,Panel1,0); + end; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmFYDJInput.savedata(); +var + MaxNo:string; + SMaxNo:string; +begin + try + ADOQueryCMD.Connection.BeginTrans; + if Trim(fkeyNo)='' then + begin + if GetLSNo(ADOQueryCMD,MaxNo,'FM','YF_Money_Fee',3,1)=False then + begin + ADOQueryCMD.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ'); + Exit; + end; + end + else + begin + MaxNo:=Trim(fkeyNo); + end; + with CDS_HZ do + begin + First; + while not Eof do + begin + IF trim(CDS_HZ.FieldByName('FeeID').AsString)='' then + begin + if GetLSNo(ADOQueryCMD,SMaxNo,'FS','YF_Money_Fee',4,1)=False then + begin + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + edit; + CDS_HZ.FieldByName('FeeID').AsString:=trim(SMaxNo); + post; + end; + with ADOQueryCMD do + begin + Close; + sql.Clear; + SQL.Add(' select * from YF_Money_Fee where FeeNo='''+Trim(MaxNo)+''' '); + SQL.Add(' and FeeID='''+Trim(CDS_HZ.FieldByName('FeeID').AsString)+''' '); + Open; + end; + if ADOQueryCMD.IsEmpty then + begin + ADOQueryCMD.Append; + ADOQueryCMD.FieldByName('Filler').Value:=Trim(Dname); + ADOQueryCMD.FieldByName('FeeNo').Value:=Trim(MaxNo); + ADOQueryCMD.FieldByName('FeeID').Value:=Trim(CDS_HZ.FieldByName('FeeID').AsString); + end else + begin + ADOQueryCMD.Edit; + ADOQueryCMD.FieldByName('Editer').Value:=Trim(Dname); + ADOQueryCMD.FieldByName('Edittime').Value:=SGetServerDateTime(ADOQueryTMP); + end; + SSetsaveSqlNew(ADOQueryCMD,'YF_Money_Fee',Panel1,0); + SSetSaveDataCDSNew(ADOQueryCMD,Tv2,CDS_HZ,'YF_Money_Fee',0); + ADOQueryCMD.FieldByName('Money').Value:=CDS_HZ.FieldByName('Money').AsFloat; + ADOQueryCMD.FieldByName('SYRName').Value:=trim(fSYRName); + ADOQueryCMD.FieldByName('FeeFlag').Value:=fflag; + IF fflag=1 then + ADOQueryCMD.FieldByName('CRType').Value:='տ'; + IF fflag=0 then + ADOQueryCMD.FieldByName('CRType').Value:=''; + ADOQueryCMD.Post; + + try + with ADOqueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('FeeID').AsString)+''' '); + execsql; + end; + IF (CDS_HZ.FieldByName('Money').AsFloat<>0) and + (trim(CDS_HZ.fieldbyname('bankNo').AsString)<>'') then + begin + IF not saveZL() then + begin + ADOquerycmd.Connection.RollbackTrans; + application.MessageBox('˻ˮϢʧ','ʾϢ',0); + exit; + end; + end; + except + end; + Next; + end; + end; + ADOquerycmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + except + ADOquerycmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmFYDJInput.TcloseClick(Sender: TObject); +begin + WriteCxGrid(Self.Caption + Tv2.Name,Tv2,''); + Close; +end; + +procedure TfrmFYDJInput.TSAVEClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + savedata(); +end; + +procedure TfrmFYDJInput.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + action:=cahide; +end; + +procedure TfrmFYDJInput.FormDestroy(Sender: TObject); +begin + frmFYDJInput:=nil; +end; + +procedure TfrmFYDJInput.FormShow(Sender: TObject); +begin + ReadCxGrid(Self.Caption + Tv2.Name,Tv2,''); + CRTime.DateTime:=SGetServerDate10(adoqueryTmp); + SetComboBox(); + initData(); +end; + +procedure TfrmFYDJInput.SetComboBox(); +begin + FeeType.Items.Clear; + with ADOQueryTMP do + begin + Close; + SQL.Clear; + SQL.Add(' select distinct Note from KH_ZDY '); + SQL.Add(' where Type=''FeeType'' and ISNULL(Note,'''')<>'''' and zdyFlag='''+inttostr(fflag)+''' '); + Open; + while not Eof do + begin + FeeType.Items.Add(Trim(FieldByName('Note').AsString)); + Next; + end; + end; + FeeType.ItemIndex:=-1; +end; + +procedure TfrmFYDJInput.FeeTypeChange(Sender: TObject); +var + SMaxNo:string; +begin + CDS_HZ.EmptyDataSet; + with ADOQueryTMP do + begin + Close; + SQL.Clear; + SQL.Add(' select * from KH_ZDY where Type=''FeeType'' and Note='''+Trim(FeeType.Text)+''' '); + Open; + while not Eof do + begin + if GetLSNo(ADOQueryCMD,SMaxNo,'FS','YF_Money_Fee',4,1)=False then + begin + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + with CDS_HZ do + begin + Append; + FieldByName('FeeID').Value:=Trim(SMaxNo); + FieldByName('FeeName').Value:=Trim(ADOQueryTMP.FieldByName('ZdyName').AsString); + FieldByName('BZType').Value:='RMB'; + FieldByName('Money').Value:='0'; + Post; + end; + Next; + end; + end; +end; + +procedure TfrmFYDJInput.v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(self); + with frmZDYHelp do + begin + flag:=trim(fsyrName)+'XJLLFLAG'; + flagname:='˻Ͷ'; + if showmodal=1 then + begin + CDS_HZ.Edit; + CDS_HZ.FieldByName('bankNo').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + CDS_HZ.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmFYDJInput.ToolButton1Click(Sender: TObject); +var + SMaxNo:string; +begin + if GetLSNo(ADOQueryCMD,SMaxNo,'FS','YF_Money_Fee',4,1)=False then + begin + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + CDS_HZ.Append; + CDS_HZ.FieldByName('FeeID').Value:=Trim(SMaxNo); + CDS_HZ.FieldByName('BZType').Value:='RMB'; + CDS_HZ.post; +end; + +procedure TfrmFYDJInput.ToolButton2Click(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + CDS_HZ.Delete; +end; + +procedure TfrmFYDJInput.v2Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='FeeType'; + flagname:=''; + fnote:=True; + fZdyFlag:=True; + V1Note.Caption:=''; + IF Showmodal=1 then + begin + CDS_HZ.edit; + CDS_HZ.fieldbyName('FeeName').AsString:=frmZDYHelp.ClientDataSet1.fieldbyName('zdyName').AsString; + CDS_HZ.fieldbyName('FeeType').AsString:=frmZDYHelp.ClientDataSet1.fieldbyName('Note').AsString; + CDS_HZ.Post; + end; + free; + end; + tv2.Controller.EditingController.ShowEdit(); + +end; + +end. diff --git a/应收应付/U_FYDJ_TJ.dfm b/应收应付/U_FYDJ_TJ.dfm new file mode 100644 index 0000000..d49e712 --- /dev/null +++ b/应收应付/U_FYDJ_TJ.dfm @@ -0,0 +1,258 @@ +object frmFYDJ_TJ: TfrmFYDJ_TJ + Left = -4 + Top = 2 + Width = 1380 + Height = 752 + Caption = #36153#29992#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 = 1364 + 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 TBfind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBfindClick + end + object TBexcel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = TBexcelClick + 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 = 1364 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 360 + Top = 13 + Width = 48 + Height = 12 + Caption = #36153#29992#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 FeeName: TEdit + Tag = 2 + Left = 410 + Top = 9 + Width = 95 + Height = 20 + TabOrder = 0 + OnChange = FeeTypeChange + 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 = 1364 + Height = 644 + 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 + end + item + Kind = skSum + Column = v2Column9 + 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.FonePurple + object v2Column1: TcxGridDBColumn + Caption = #36153#29992#31867#22411 + DataBinding.FieldName = 'FeeType' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 188 + end + object v2Column5: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_YSYF.Default + Width = 197 + end + object v2Column9: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 142 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 405 + Top = 113 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 365 + Top = 113 + 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 = 419 + Top = 243 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 192 + end +end diff --git a/应收应付/U_FYDJ_TJ.pas b/应收应付/U_FYDJ_TJ.pas new file mode 100644 index 0000000..bb9a63f --- /dev/null +++ b/应收应付/U_FYDJ_TJ.pas @@ -0,0 +1,148 @@ +unit U_FYDJ_Tj; + +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 + TfrmFYDJ_TJ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + TBfind: TToolButton; + Label1: TLabel; + FeeName: TEdit; + ADOQueryMain: TADOQuery; + TBexcel: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + v2Column9: TcxGridDBColumn; + v2Column1: 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 TBfindClick(Sender: TObject); + procedure TBexcelClick(Sender: TObject); + procedure FeeTypeChange(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + fSYRName:string; + fflag:integer; + Feeflag:integer; + { Public declarations } + + end; + +var + frmFYDJ_TJ: TfrmFYDJ_TJ; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_FYDJInput,U_ZdyAttachGYS,U_ZdyAttachment; + +{$R *.dfm} +procedure TfrmFYDJ_TJ.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + Filtered:=False; + SQL.Clear; + sql.Add(' select A.SYRName,A.FeeType,A.FeeName,sum(money) as money from YF_Money_Fee A '); + 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 SYRName='''+trim(fSyrname)+''' '); + sql.Add(' and Feeflag='''+inttostr(fflag)+''' '); + sql.Add(' and money<>0 '); + sql.Add(' group by A.SYRName,A.FeeType,A.FeeName '); + sql.Add(' order by A.SYRName,A.FeeType,A.FeeName '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + TBfind.Click; + end; +end; + +procedure TfrmFYDJ_TJ.FormDestroy(Sender: TObject); +begin + frmFYDJ_TJ:=nil; +end; + +procedure TfrmFYDJ_TJ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmFYDJ_TJ.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(Self.Caption + Tv2.Name,Tv2,''); + Close; +end; + +procedure TfrmFYDJ_TJ.FormShow(Sender: TObject); +begin + ReadCxGrid(Self.Caption + Tv2.Name,Tv2,''); + Enddate.DateTime:=SGetServerDate(ADOQueryTemp); + begdate.DateTime:=strtodateTime(formatdateTime('yyyy-MM',Enddate.DateTime)+'-01'); + InitGrid(); +end; + +procedure TfrmFYDJ_TJ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFYDJ_TJ.TBfindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); +end; + +procedure TfrmFYDJ_TJ.TBexcelClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv2,ADOQueryMain,'õǼͳϢ'); +end; + + +procedure TfrmFYDJ_TJ.FeeTypeChange(Sender: TObject); +begin + TBfind.Click; +end; + +end. diff --git a/应收应付/U_GetDllForm.pas b/应收应付/U_GetDllForm.pas new file mode 100644 index 0000000..d4eafa3 --- /dev/null +++ b/应收应付/U_GetDllForm.pas @@ -0,0 +1,741 @@ + +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; + +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_YSCRJZC,U_YSCR_Gd,U_SKCR_Gd,U_YFZDList_MX,U_YSZDList_MX,U_YFMXlist,U_YSMXlist,U_FKCR_GD,U_YFCR_GD, + U_YF_Money_LL,U_YF_Money_LL_list,U_FYDJ,U_FYDJ_TJ; + ///////////////////////////////////////////////////////////////// + // ˵:ȡDllеô // + // ˵App>>Ӧó // + // FormH>>ôھ // + // FormID>>ں; // + // Language>>; // + // WinStyle>>ͣ // +///////////////////////////////////////////////////////////////// + +var + frmSKCR,frmSKCRYP: TfrmSKCR; +function GetDllForm(App:Tapplication; FormH:hwnd; FormID:integer; + Language: integer; WinStyle:integer; + GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar; + Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar; + Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar; + Parameters9:PChar;Parameters10:PChar; + DataBaseStr:PChar):hwnd; + +var + i: Integer; + bFound: Boolean; + mnewHandle: hwnd; + mstyle: TFormStyle; // 0:Ӵ; 1ͨ + mstate: TWindowState; + mborderstyle: TFormBorderStyle; +begin + mNewHandle:=0; + DName:=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:='47.100.182.1,7781'; + dtbase:='guihuadata'; + user:='sa'; + pswd:='rightsoft@123'; + 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:='޶'; + //DParameters1:='';//103 + DParameters2:=''; + // DataBase:='Ȩ'; + // DParameters4:='0'; + Parameters5:='𻪷֯'; + // 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; + //////////////////// + ///////////////////// + //ģ鴰 + case FormId of + 1: //ӦǼ + begin + if frmYFCR=nil then + begin + frmYFCR:= TfrmYFCR.Create(application.MainForm); + with frmYFCR do + begin + caption:=Trim(Title); + + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYFCR.BringToFront; + // + mNewHandle:=frmYFCR.Handle; + + end ; + 14: //ӦǼ + begin + if frmYFCR_GD=nil then + begin + frmYFCR_GD:= TfrmYFCR_GD.Create(application.MainForm); + with frmYFCR_GD do + begin + // fflag:=1; + fflag:=strtointdef(trim(DataBase),0); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYFCR_GD.BringToFront; + // + mNewHandle:=frmYFCR_GD.Handle; + + end ; + 141: //ӦǼ + begin + if frmYFCR_GD=nil then + begin + frmYFCR_GD:= TfrmYFCR_GD.Create(application.MainForm); + with frmYFCR_GD do + begin + TBADD.Visible:=false; + TBDel.Visible:=false; + Label7.Visible:=false; + Edit1.Visible:=false; + Button1.Visible:=false; + CheckBox1.Visible:=false; + tv2.OptionsData.Editing:=false; + fflag:=strtointdef(trim(DataBase),0); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYFCR_GD.BringToFront; + // + mNewHandle:=frmYFCR_GD.Handle; + + end ; + 2: //Ǽ + begin + if frmFKCR=nil then + begin + frmFKCR:= TfrmFKCR.Create(application.MainForm); + with frmFKCR do + begin + fSYRName:=trim(Parameters5); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmFKCR.BringToFront; + // + mNewHandle:=frmFKCR.Handle; + + end ; + + 24: //Ǽ + begin + if frmFKCR_GD=nil then + begin + frmFKCR_GD:= TfrmFKCR_GD.Create(application.MainForm); + with frmFKCR_GD do + begin + fflag:=strtointdef(trim(DataBase),0); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmFKCR_GD.BringToFront; + // + mNewHandle:=frmFKCR_GD.Handle; + + end ; + 241: //Ǽ + begin + if frmFKCR_GD=nil then + begin + frmFKCR_GD:= TfrmFKCR_GD.Create(application.MainForm); + with frmFKCR_GD do + begin + TBADD.Visible:=false; + TBDel.Visible:=false; + // Label7.Visible:=false; + // Edit1.Visible:=false; + // Button1.Visible:=false; + // CheckBox1.Visible:=false; + tv2.OptionsData.Editing:=false; + fflag:=strtointdef(trim(DataBase),0); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmFKCR_GD.BringToFront; + // + mNewHandle:=frmFKCR_GD.Handle; + + end ; + 3: //Ӧͳ + begin + if frmYFFKList=nil then + begin + frmYFFKList:= TfrmYFFKList.Create(application.MainForm); + with frmYFFKList do + begin + caption:=Trim(Title); + 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 frmYSCR.Free; + if frmYSCR=nil then + begin + frmYSCR:= TfrmYSCR.Create(application.MainForm); + with frmYSCR do + begin + + caption:=Trim(Title); + fDParameters1:=trim(DParameters4); + fDParameters3:=trim(DParameters3); + fSYRName:=trim(Parameters5); + fstr2:=trim(Parameters6); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYSCR.BringToFront; + // + mNewHandle:=frmYSCR.Handle; + + end ; + + 44: //ӦտǼ(㶫) + begin + if frmYSCR_Gd=nil then + begin + frmYSCR_Gd:= TfrmYSCR_Gd.Create(application.MainForm); + with frmYSCR_Gd do + begin + caption:=Trim(Title); + fmanage:=Trim(DataBase); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYSCR_Gd.BringToFront; + // + mNewHandle:=frmYSCR_Gd.Handle; + + end ; + { 5: //տǼ + begin + // IF frmSKCR<>nil then frmSKCR.Free; + if frmSKCR=nil then + begin + frmSKCR:= TfrmSKCR.Create(application.MainForm); + with frmSKCR do + begin + caption:=Trim(Title); + fSYRName:=trim(Parameters5); + fDParameters1:=trim(DParameters4); + fDParameters3:=trim(DParameters3); + fstr2:=trim(Parameters6); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmSKCR.BringToFront; + // + mNewHandle:=frmSKCR.Handle; + + end ; } + 5: + begin + bFound := FALSE; + for i := (App.MainForm.MDIChildCount - 1) downto 0 do + begin + if App.MainForm.MDIChildren[i].Caption = 'տǼ' then + begin + BringWindowToTop(frmSKCR.Handle); + bFound := TRUE; + Break; + end; + end; + if not bFound then + begin + frmSKCR := TfrmSKCR.Create(application.MainForm); + with frmSKCR do + begin + Title := 'տǼ'; + fSYRName:=trim(Parameters5); + fDParameters1:=trim(DParameters4); + fDParameters3:=trim(DParameters3); + fstr2:=trim(Parameters6); + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmSKCR.BringToFront; + // + mnewHandle := frmSKCR.Handle; + end; + 51: + begin + bFound := FALSE; + for i := (App.MainForm.MDIChildCount - 1) downto 0 do + begin + if App.MainForm.MDIChildren[i].Caption = 'ƷտǼ' then + begin + BringWindowToTop(frmSKCRYP.Handle); + bFound := TRUE; + Break; + end; + end; + if not bFound then + begin + frmSKCRYP:=TfrmSKCR.Create(application.MainForm); + with frmSKCRYP do + begin + Title := 'ƷտǼ'; + fSYRName:=trim(Parameters5); + fDParameters1:=trim(DParameters4); + fDParameters3:=trim(DParameters3); + fstr2:=trim(Parameters6); + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmSKCRYP.BringToFront; + // + mnewHandle := frmSKCRYP.Handle; + end; + + + 54: //տǼ(㶫) + begin + if frmSKCR_Gd=nil then + begin + frmSKCR_Gd:= TfrmSKCR_Gd.Create(application.MainForm); + with frmSKCR_Gd do + begin + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmSKCR_Gd.BringToFront; + // + mNewHandle:=frmSKCR_Gd.Handle; + + end ; + 6: //Ӧտտͳ + begin + if frmYSSKList=nil then + begin + frmYSSKList:= TfrmYSSKList.Create(application.MainForm); + with frmYSSKList do + begin + caption:=Trim(Title); + fDParameters1:=trim(DParameters1); + fsyrName:=trim(Parameters5); + fstr2:=trim(Parameters6); + fDParameters3:=trim(DParameters3); + 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 frmFYDJ<>nil then frmFYDJ.Free; + if frmFYDJ=nil then + begin + frmFYDJ:= TfrmFYDJ.Create(application.MainForm); + with frmFYDJ do + begin + caption:=Trim(Title); + fflag:=strtointdef(trim(Parameters4),0); + fSYRName:=trim(Parameters5); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmFYDJ.BringToFront; + // + mNewHandle:=frmFYDJ.Handle; + + end ; + + 71: //Ӧտտͳ + begin + IF frmFYDJ_TJ<>nil then frmFYDJ_TJ.Free; + if frmFYDJ_TJ=nil then + begin + frmFYDJ_TJ:= TfrmFYDJ_TJ.Create(application.MainForm); + with frmFYDJ_TJ do + begin + caption:=Trim(Title); + fSYRName:=trim(Parameters5); + fflag:=strtointdef(trim(Parameters4),0); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmFYDJ_TJ.BringToFront; + // + mNewHandle:=frmFYDJ_TJ.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 frmMoney_LL=nil then + begin + frmMoney_LL:= TfrmMoney_LL.Create(application.MainForm); + with frmMoney_LL do + begin + fSYRName:=trim(Parameters5); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmMoney_LL.BringToFront; + // + mNewHandle:=frmMoney_LL.Handle; + + end; + 101: //л + begin + if frmYF_Money_LL_list=nil then + begin + frmYF_Money_LL_list:= TfrmYF_Money_LL_list.Create(application.MainForm); + with frmYF_Money_LL_list do + begin + fSYRName:=trim(Parameters5); + caption:=Trim(Title); + FormStyle := mstyle ; + windowState := mstate ; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYF_Money_LL_list.BringToFront; + // + mNewHandle:=frmYF_Money_LL_list.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:=trim(DataBase); + fDParameters1:=trim(DParameters1); + fsyrName:=trim(Parameters5); + fDParameters3:=trim(DParameters3); + fstr2:=trim(Parameters6); + 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 + CoInitialize(nil); + dxUnitsLoader.Initialize; + +finalization + + DataLink_YSYF.Free; + application:=NewDllApp; + dxUnitsLoader.Finalize; +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..47bd350 --- /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 = 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 = 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 = 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 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..c9d5ebc --- /dev/null +++ b/应收应付/U_PbProductList.pas @@ -0,0 +1,443 @@ +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 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..c8c8450 --- /dev/null +++ b/应收应付/U_ProductOrderList.pas @@ -0,0 +1,521 @@ +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 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..343a4de --- /dev/null +++ b/应收应付/U_ProductOrderListSel.dfm @@ -0,0 +1,681 @@ +object frmProductOrderListSel: TfrmProductOrderListSel + 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 = 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_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 + end + object TBPrint: TToolButton + Left = 185 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + 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 = 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 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 + 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 + 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 = 16 + Top = 136 + 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_ProductOrderListSel.pas b/应收应付/U_ProductOrderListSel.pas new file mode 100644 index 0000000..5feed91 --- /dev/null +++ b/应收应付/U_ProductOrderListSel.pas @@ -0,0 +1,449 @@ +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; + 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; + 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; + 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; + 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 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); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + { 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; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderListSel.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾб',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderListSel.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'); + 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 TfrmProductOrderListSel.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 TfrmProductOrderListSel.InitForm(); +begin + if SGetServerDate(ADOQueryTemp)>StrToDate('2014-07-11') then + begin + ToolBar1.Visible:=False; + Application.MessageBox('ҪϵӦ̣','ʾ',0); + Exit; + end; + ReadCxGrid('ָʾб',Tv1,'ָʾ'); + + if FCloth=1 then + begin + v1Column3.Visible:=True; + end else + begin + v1Column3.Visible:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmProductOrderListSel.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmProductOrderListSel.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 TfrmProductOrderListSel.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + InitGrid(); +end; + +procedure TfrmProductOrderListSel.OrderNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active=False then Exit; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmProductOrderListSel.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrderListSel.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible=False then Exit; + ToolButton1.Click; +end; + +procedure TfrmProductOrderListSel.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderListSel.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderListSel.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderListSel.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 TfrmProductOrderListSel.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 TfrmProductOrderListSel.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 TfrmProductOrderListSel.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; + +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..d4498a7 --- /dev/null +++ b/应收应付/U_ProductOrderNewList.pas @@ -0,0 +1,457 @@ +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(); +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; } + IF trim(fsyrName)<>'' then + Parameters.ParamByName('WSql').Value:=' and B.syrName='''+Trim(fsyrName)+''''; + 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_SKCR.dfm b/应收应付/U_SKCR.dfm new file mode 100644 index 0000000..221f76a --- /dev/null +++ b/应收应付/U_SKCR.dfm @@ -0,0 +1,611 @@ +object frmSKCR: TfrmSKCR + Left = 442 + Top = 301 + Width = 1382 + Height = 754 + 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 + 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 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 Tsave: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 44 + OnClick = TsaveClick + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object ToolButton4: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #26085#24535 + ImageIndex = 72 + OnClick = ToolButton4Click + 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 = 1366 + Height = 58 + 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 + object CheckBox1: TCheckBox + Left = 24 + 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 = 89 + Width = 1366 + Height = 626 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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 + OptionsView.Indicator = True + Styles.Header = DataLink_YSYF.FonePurple + object v2Column3: 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 + Styles.Header = DataLink_YSYF.Default + Width = 115 + end + object v2SYRName: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2SYRNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 80 + 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 v2DerateMoney: TcxGridDBColumn + Caption = #20943#20813#37329#39069 + DataBinding.FieldName = 'DerateMoney' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2DerateMoneyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + 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 v2Column2: TcxGridDBColumn + Caption = #25910#27454#26041#24335 + DataBinding.FieldName = 'fstr1' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column4: TcxGridDBColumn + Caption = #25910#27454#36134#25143 + DataBinding.FieldName = 'bankNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column4PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + 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 Panel2: TPanel + Left = 332 + Top = 140 + Width = 413 + Height = 233 + Color = clSkyBlue + TabOrder = 3 + Visible = False + OnDblClick = Panel2DblClick + object Label5: TLabel + Left = 68 + Top = 28 + Width = 52 + Height = 16 + Caption = #23458' '#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 68 + Top = 64 + Width = 52 + Height = 16 + Caption = #26085' '#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 68 + Top = 100 + Width = 51 + Height = 16 + Caption = #24212#25910#27454 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 68 + Top = 136 + Width = 52 + Height = 16 + Caption = #25910' '#27454 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 68 + Top = 176 + Width = 62 + Height = 19 + Caption = #20313' '#39069 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 112 + Top = 212 + Width = 84 + Height = 12 + Caption = #21452#20987#20851#38381#27492#30028#38754 + end + object Edit1: TEdit + Left = 132 + Top = 24 + Width = 150 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object JZdate: TDateTimePicker + Left = 132 + Top = 60 + Width = 150 + Height = 24 + Date = 42112.692655462960000000 + Format = 'yyyy-MM-dd' + Time = 42112.692655462960000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnChange = JZdateChange + end + object Edit2: TEdit + Left = 132 + Top = 96 + Width = 150 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + end + object Edit3: TEdit + Left = 132 + Top = 132 + Width = 150 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + object Edit4: TEdit + Left = 132 + Top = 172 + Width = 150 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + 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 = 644 + 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 = 480 + Top = 192 + end +end diff --git a/应收应付/U_SKCR.pas b/应收应付/U_SKCR.pas new file mode 100644 index 0000000..2eb9e5b --- /dev/null +++ b/应收应付/U_SKCR.pas @@ -0,0 +1,1314 @@ +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, 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 + 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; + v2Column2: TcxGridDBColumn; + v2SYRName: TcxGridDBColumn; + Tsave: TToolButton; + Panel2: TPanel; + Label5: TLabel; + Edit1: TEdit; + Label7: TLabel; + JZdate: TDateTimePicker; + Label8: TLabel; + Edit2: TEdit; + Edit3: TEdit; + Label9: TLabel; + Edit4: TEdit; + Label10: TLabel; + Label11: TLabel; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + ToolButton4: TToolButton; + CheckBox1: TCheckBox; + 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 v2SYRNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TsaveClick(Sender: TObject); + procedure Panel2DblClick(Sender: TObject); + procedure JZdateChange(Sender: TObject); + procedure v2Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton4Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + private + { Private declarations } + fopevent: string; + procedure InitGrid(); + function SaveData(): Boolean; + procedure SetStatus(); + procedure JsYe(); + procedure geteditRzhi(); + function SaveZL(): Boolean; + public + fDParameters1, fDParameters3: string; + fSYRName: string; + fstr2: string; + { Public declarations } + RKFlag, FCYID: string; + end; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList, + U_ZdyAttachment, U_SysLogHelp; + +{$R *.dfm} +procedure TfrmSKCR.geteditRzhi(); +begin + fopevent := ''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from YF_Money_LL where fromMainID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' '); +// showmessage(SQL.text); + open; + end; + if not ADOQueryTemp.IsEmpty then + begin + + if formatdateTime('yyyy-MM-dd', CDS_HZ.fieldbyname('CRTime').AsDateTime) <> formatdateTime('yyyy-MM-dd', ADOQueryTemp.fieldbyName('CRTime').AsDateTime) then + fopevent := fopevent + ' :' + formatdateTime('yyyy-MM-dd', ADOQueryTemp.fieldbyName('CRTime').AsDateTime) + '->' + formatdateTime('yyyy-MM-dd', CDS_HZ.fieldbyname('CRTime').AsDateTime); + + if CDS_HZ.fieldbyname('BBMoney').AsFloat <> ADOQueryTemp.fieldbyName('inMoney').AsFloat then + fopevent := fopevent + ' :' + ADOQueryTemp.fieldbyName('inMoney').AsString + '->' + CDS_HZ.fieldbyname('BBMoney').AsString; + + if trim(CDS_HZ.fieldbyname('bankNo').AsString) <> trim(ADOQueryTemp.fieldbyName('factoryName').AsString) then + fopevent := fopevent + ' ˻:' + trim(ADOQueryTemp.fieldbyName('factoryName').AsString) + '->' + trim(CDS_HZ.fieldbyname('bankNo').AsString); + + if fopevent <> '' then + fopevent := 'Էλ:' + Trim(CDS_HZ.fieldbyname('factoryName').AsString) + fopevent; + end; +end; + +function TfrmSKCR.SaveZL(): Boolean; +var + LLNO: string; +begin + result := false; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' '); + open; + end; + if ADOQueryTemp.IsEmpty then + begin + ADOQueryCMD.Connection.RollbackTrans; + exit; + end; + if GetLSNo(ADOQueryCMD, LLNO, 'YL', 'YF_Money_LL', 3, 1) = False then + begin + ADOQueryCMD.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!', 'ʾ'); + Exit; + end; + + try + with ADOqueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' '); + execsql; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from YF_Money_LL where fromMainID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' '); + Open; + append; + fieldbyname('filler').Value := trim(Dname); + FieldByName('LLNO').Value := Trim(LLNO); + fieldbyname('CRTime').Value := formatdateTime('yyyy-MM-dd', CDS_HZ.fieldbyname('CRTime').AsDateTime); + fieldbyname('CRType').Value := Trim(CDS_HZ.fieldbyname('YFName').AsString); + fieldbyname('factoryName').Value := Trim(CDS_HZ.fieldbyname('bankNo').AsString); + fieldbyname('TOfactoryName').Value := Trim(CDS_HZ.fieldbyname('factoryName').AsString); + fieldbyname('NOTE').Value := Trim(CDS_HZ.fieldbyname('note').AsString); + fieldbyname('inMoney').Value := CDS_HZ.fieldbyname('BBMoney').AsFloat; + fieldbyname('OutMoney').Value := 0; + fieldbyname('status').Value := '0'; + FieldByName('fromMainID').Value := Trim(CDS_HZ.fieldbyname('YFID').AsString); + FieldByName('syrName').Value := Trim(fsyrName); + Post; + end; + + if trim(fopevent) <> '' then + begin + 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('տǼ'))); + sql.Add(',' + quotedstr(trim('տǼ޸'))); + sql.Add(',' + quotedstr(trim(fopevent))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + end; + result := true; + except + end; +end; + +procedure TfrmSKCR.JsYe(); +begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select ysk=sum(case when CRType=''ӦտǼ'' then 1*(money - T_money) else 0 end), '); + sql.Add(' sk=sum(case when CRType=''տǼ'' then 1*(BBmoney + DerateMoney) else 0 end) '); + sql.Add('from YF_Money_CR '); + sql.Add(' where CRTime<''' + formatdateTime('yyyy-MM-dd', JZdate.DateTime + 1) + ''' '); + sql.Add(' and FactoryName=' + quotedstr(trim(edit1.Text))); + sql.Add(' and syrName=' + quotedstr(trim(fsyrName))); + sql.Add(' and CRFlag =''Ӧ'' '); + open; + edit2.Text := fieldbyname('ysk').AsString; + edit3.Text := fieldbyname('sk').AsString; + edit4.Text := format('%.2f', [fieldbyname('ysk').AsFloat - fieldbyname('sk').AsFloat]); + Panel2.Visible := true; + end; + +end; + +procedure TfrmSKCR.SetStatus(); +begin + TBDel.Visible := true; + if trim(fDParameters1) = '' then + begin + TBDel.Visible := true; + end + else if trim(fDParameters1) = 'ѯ' then + begin + tv2.OptionsData.Editing := false; + TBDel.Visible := false; + ToolButton3.Visible := false; + end + else + begin + + end; + // IF trim(fSYRName)<>'˷֯' then Tsave.Visible:=false; +end; + +procedure TfrmSKCR.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(' 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=''տǼ'' '); + if trim(fSYRName) <> '' then + sql.Add(' and A.SYRName=' + quotedstr(trim(fSyrName))); + if trim(FactoryName.Text) <> '' then + sql.Add(' and A.FactoryName like ' + quotedstr('%' + trim(FactoryName.Text) + '%')); + sql.Add(' and isnull(A.fstr2,'''')=' + quotedstr(trim(fstr2))); + if trim(fDParameters1) = 'Ȩ' then + begin + sql.Add(' and isnull(A.Filler,'''')=' + quotedstr(trim(Dname))); + end; + + +// ShowMessage(SQL.text); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +end; + +procedure TfrmSKCR.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmSKCR.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.TBDelClick(Sender: TObject); +var + FBBMoney, CRID: string; +begin + if CDS_HZ.IsEmpty then + Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if Trim(CDS_HZ.fieldbyname('YFID').AsString) <> '' then + begin + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YF_Money_CR where YFID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''''); + sql.Add('delete YF_Money_LL where fromMainID=''' + Trim(CDS_HZ.fieldbyname('YFID').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_HZ.FieldByName('factoryName').AsString) + ' :' + trim(CDS_HZ.FieldByName('BBmoney').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_HZ.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ɾʧܣ', 'ʾϢ', 0); + end; + end; + +end; + +procedure TfrmSKCR.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; + if trim(fDParameters3) <> '' then + begin + factoryName.Text := trim(fDParameters3); + factoryName.Enabled := false; + 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) + ''' and YFDefFlag1=0 '); + 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); + FieldByName('SyRName').Value := trim(fSyrName); + FieldByName('fstr2').Value := trim(fstr2); + 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; } +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; + try + geteditRzhi(); + with ADOqueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + execsql; + end; + IF (CDS_HZ.FieldByName('BBMoney').AsFloat<>0) and + (trim(CDS_HZ.fieldbyname('bankNo').AsString)<>'') then + begin + IF not saveZL() then + begin + application.MessageBox('˻ˮϢʧ','ʾϢ',0); + end; + end; + except + end; } +end; + +procedure TfrmSKCR.ToolButton3Click(Sender: TObject); +begin + try + frmZdyAttachment := TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType := trim(fsyrName); + 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('SYRName').Value := Trim(fSYRName); + FieldByName('CRTime').Value := SGetServerDate(ADOQueryTemp); + if Trim(DParameters2) = '' then + begin + FieldByName('HuiLv').Value := 1; + end; + Post; + end; + Self.SaveData(); + if fsyrName = '˷֯' then + begin + edit1.Text := Self.CDS_HZ.fieldbyname('FactoryName').AsString; + JZdate.DateTime := Self.CDS_HZ.fieldbyname('CRTime').AsDateTime; + jsYe(); + end; + + end; + end; + finally + frmZdyAttachment.Free; + end; +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; +{ IF trim(fSYRName)<>'˷֯' then + begin + 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; + try + geteditRzhi(); + with ADOqueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + execsql; + end; + IF (CDS_HZ.FieldByName('BBMoney').AsFloat<>0) and + (trim(CDS_HZ.fieldbyname('bankNo').AsString)<>'') then + begin + IF not saveZL() then + begin + application.MessageBox('˻ˮϢʧ','ʾϢ',0); + end; + end; + except + end;} +end; + +procedure TfrmSKCR.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmProductOrderNewList := TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + DParameters1 := 'Ȩ'; + fsyrName := self.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('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 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; + { IF trim(fSYRName)<>'˷֯' then + begin + 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; + try + geteditRzhi(); + with ADOqueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + execsql; + end; + IF (CDS_HZ.FieldByName('BBMoney').AsFloat<>0) and + (trim(CDS_HZ.fieldbyname('bankNo').AsString)<>'') then + begin + IF not saveZL() then + begin + application.MessageBox('˻ˮϢʧ','ʾϢ',0); + end; + end; + except + end; } +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; } +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; + { IF trim(fSYRName)<>'˷֯' then + begin + 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; } +end; + +procedure TfrmSKCR.v2SYRNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'SYRName'; + flagname := '˾̧ͷ'; + if ShowModal = 1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('SYRName').Value := Trim(ClientDataSet1.fieldbyname('zdyName').AsString); + end; + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set SYRName='''+Trim(CDS_HZ.fieldbyname('SYRName').AsString)+''''); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; } + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmSKCR.TsaveClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + exit; + begdate.SetFocus; + 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 + { IF trim(fieldbyName('bankNo').AsString)='' then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('տ˻Ϊգ','ʾϢ',MB_ICONERROR); + exit; + end; } + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('UPdate YF_Money_CR SET '); + sql.Add(' Money=''' + floattostr(CDS_HZ.fieldbyname('Money').AsFloat) + ''' '); + sql.Add(',BBMoney=''' + floattostr(CDS_HZ.fieldbyname('BBMoney').AsFloat) + ''' '); + sql.Add(',DerateMoney=''' + floattostr(CDS_HZ.fieldbyname('DerateMoney').AsFloat) + ''' '); + sql.Add(',bankNo=''' + trim(CDS_HZ.fieldbyname('bankNo').AsString) + ''' '); + sql.Add(',CRTime=''' + formatdateTIme('yyyy-MM-dd', CDS_HZ.fieldbyname('CRTime').AsDateTime) + ''' '); + sql.Add(',Note=''' + trim(CDS_HZ.fieldbyname('Note').AsString) + ''' '); + sql.Add(',huilv=''' + floattostr(CDS_HZ.fieldbyname('huilv').AsFloat) + ''' '); + sql.Add(',YFName=''' + trim(CDS_HZ.fieldbyname('YFName').AsString) + ''' '); + sql.Add(',BZType=''' + trim(CDS_HZ.fieldbyname('BZType').AsString) + ''' '); + sql.Add(',fstr1=''' + trim(CDS_HZ.fieldbyname('fstr1').AsString) + ''' '); + sql.Add(',SYRName=''' + trim(CDS_HZ.fieldbyname('SYRName').AsString) + ''' '); + SQL.Add(' where YFId=''' + Trim(CDS_HZ.fieldbyname('YFId').AsString) + ''''); +// ShowMessage(sql.text); + execsql; + end; + try + geteditRzhi(); + if trim(fieldbyName('bankNo').AsString) <> '' then + begin + with ADOqueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' '); + execsql; + end; + if (CDS_HZ.FieldByName('BBMoney').AsFloat <> 0) and (trim(CDS_HZ.fieldbyname('bankNo').AsString) <> '') then + begin + if not saveZL() then + begin + application.MessageBox('˻ˮϢʧ', 'ʾϢ', 0); + end; + end; + end + else + begin + with ADOqueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' '); +// ShowMessage(sql.text); + execsql; + end; + end; + except + end; + end; + next; + end; + First; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + //InitGrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmSKCR.Panel2DblClick(Sender: TObject); +begin + Panel2.Visible := false; +end; + +procedure TfrmSKCR.JZdateChange(Sender: TObject); +begin + jsYe(); +end; + +procedure TfrmSKCR.v2Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := trim(fsyrName) + 'XJLLFLAG'; + flagname := '˻Ͷ'; + if ShowModal = 1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('bankNo').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set bankNo='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; } + end; + end; + finally + frmZDYHelp.Free; + end; + tv2.Controller.EditingController.ShowEdit(); + +{ try + geteditRzhi(); + with ADOqueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(CDS_HZ.fieldbyname('YFID').AsString)+''' '); + execsql; + end; + IF (CDS_HZ.FieldByName('BBMoney').AsFloat<>0) and + (trim(CDS_HZ.fieldbyname('bankNo').AsString)<>'') then + begin + IF not saveZL() then + begin + application.MessageBox('˻ˮϢʧ','ʾϢ',0); + end; + end; + except + end; } +end; + +procedure TfrmSKCR.ToolButton4Click(Sender: TObject); +begin + frmSysLogHelp := TfrmSysLogHelp.create(self); + with frmSysLogHelp do + begin + facction := 'տǼ޸'; + showmodal; + free; + end; +end; + +procedure TfrmSKCR.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_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..980aa9d --- /dev/null +++ b/应收应付/U_SKCR_Gd.dfm @@ -0,0 +1,388 @@ +object frmSKCR_Gd: TfrmSKCR_Gd + Left = 357 + Top = 110 + 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 + 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 = 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 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..52d98d2 --- /dev/null +++ b/应收应付/U_SKCR_Gd.pas @@ -0,0 +1,858 @@ +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; + +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; + 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; + + 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.InitGrid(); +begin + 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 + 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('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 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_YFCR.dfm b/应收应付/U_YFCR.dfm new file mode 100644 index 0000000..3082938 --- /dev/null +++ b/应收应付/U_YFCR.dfm @@ -0,0 +1,626 @@ +object frmYFCR: TfrmYFCR + Left = 251 + Top = 230 + 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 + OnCreate = FormCreate + 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 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 + ImageIndex = 129 + 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 = 1366 + Height = 78 + 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 + OnKeyPress = FactoryNameKeyPress + end + object FactoryName: TEdit + Tag = 2 + Left = 350 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = FactoryNameChange + OnKeyPress = FactoryNameKeyPress + 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 + OnKeyPress = FactoryNameKeyPress + end + object P_Color: TEdit + Tag = 2 + Left = 544 + Top = 33 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + OnKeyPress = FactoryNameKeyPress + 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 = 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 = 131 + Width = 1366 + Height = 292 + Align = alTop + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = VBBPropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + 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 = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + 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' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v2Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2T_ps: TcxGridDBColumn + Caption = #36864#36135#21305#25968 + DataBinding.FieldName = 'T_ps' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2T_qty: TcxGridDBColumn + Caption = #36864#36135#25968#37327 + DataBinding.FieldName = 'T_QTy' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2T_qtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2T_Price: TcxGridDBColumn + Caption = #36864#36135#21333#20215 + DataBinding.FieldName = 'T_Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2T_PricePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column3: TcxGridDBColumn + Caption = #36864#36135#37329#39069 + DataBinding.FieldName = 'T_Money' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v2BatchNoPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v2Column7: TcxGridDBColumn + Caption = #21152#24037#31867#22411 + DataBinding.FieldName = 'fstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v2Column8: TcxGridDBColumn + Caption = #19978#27425#21333#20215 + DataBinding.FieldName = 'scPrice' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 109 + Width = 1366 + Height = 22 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.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..b80d84c --- /dev/null +++ b/应收应付/U_YFCR.pas @@ -0,0 +1,1349 @@ +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, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxBarBuiltInMenu, 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 + TfrmYFCR = 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; + v2T_Price: TcxGridDBColumn; + v2T_ps: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: 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 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 v2T_PricePropertiesEditValueChanged(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure tchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure VBBPropertiesEditValueChanged(Sender: TObject); + procedure FactoryNameKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + procedure InitGridHC(); + function SaveData(): Boolean; + procedure SetStatus(); + public + fFlag: integer; + { Public declarations } + RKFlag, FCYID: string; + FZD, FCZSJ: string; + end; + +var + frmYFCR: TfrmYFCR; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList, + U_PbProductList, U_ZdyAttachGYS; + +{$R *.dfm} + +procedure TfrmYFCR.SetStatus(); +var + i: integer; +begin + Tchk.Enabled := false; + TNochk.Enabled := false; + TBDel.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 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; + initgrid(); +end; + +procedure TfrmYFCR.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + Filtered := False; + sql.Add(' select A.*,C.ConNo '); + sql.Add(',scPrice=isnull((select Top 1 cast(cast(Price as float) as varchar) from YF_Money_CR X where CRType=''ӦǼ'' and X.FillTime=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); + sql.Add(' and CRTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); + sql.Add(' and A.CRType=''ӦǼ'' '); + 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.InitGridHC(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + Filtered := False; + sql.Add(' select A.*,C.ConNo '); + sql.Add(',scPrice=isnull((select Top 1 cast(cast(Price as float) as varchar) from YF_Money_CR X where CRType=''ӦǼ'' and X.FillTime=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); + sql.Add(' and CRTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); + sql.Add(' and A.CRType=''ӦǼ'' '); + sql.Add(' and ' + FZD + '=''' + Trim(FCZSJ) + ''''); + if cxTabControl1.TabIndex < 2 then + sql.Add(' and status=''' + inttostr(cxTabControl1.TabIndex) + ''' '); +// ShowMessage(SQL.text); + 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; +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 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 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('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_HZ.FieldByName('factoryName').AsString) + ' :' + trim(CDS_HZ.FieldByName('money').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + end; + CDS_HZ.Delete; +end; + +procedure TfrmYFCR.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; + 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; + SetStatus(); + InitGrid(); +end; + +procedure TfrmYFCR.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYFCR.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.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) + ''' 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.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.TBADDClick(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); + 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.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.v2Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + if Trim(CDS_HZ.FieldByName('YFType').AsString) = 'Զ' then + begin + Application.MessageBox('Զɵݲ޸!', 'ʾ', 0); + Exit; + end; + 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); + FieldByName('C_CodeName').Value := Trim(frmPbProductList.Order_Main.fieldbyname('C_CodeName').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.Release; + self.Tv2.Controller.EditingController.ShowEdit(); + end; +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 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.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.FormCreate(Sender: TObject); +begin + cxgrid2.Align := alclient; +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.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + InitGrid(); +end; + +procedure TfrmYFCR.VBBPropertiesEditValueChanged(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(',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; + InitGrid(); + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmYFCR.FactoryNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + if Length(TcxTextEdit(Sender).Name) < 2 then + Exit; + FZD := TcxTextEdit(Sender).Name; + // ȡı + FCZSJ := TcxTextEdit(Sender).Text; + + InitGridHC(); + 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_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..45fabd6 --- /dev/null +++ b/应收应付/U_YFCR_GD.dfm @@ -0,0 +1,555 @@ +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 = 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 TBADD: TToolButton + Left = 126 + Top = 0 + Caption = #22686#34892 + ImageIndex = 103 + OnClick = TBADDClick + 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 = 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 = 105 + Width = 1128 + Height = 527 + 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 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..fbf312a --- /dev/null +++ b/应收应付/U_YFCR_GD.pas @@ -0,0 +1,1037 @@ +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; + +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; + 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); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + function SaveData():Boolean; + + public + fFlag:integer; + { Public declarations } + RKFlag,FCYID: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.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>=:begdate and A.CRTime<:Enddate and A.CRType=''ӦǼ'' and A.YFDefFlag1='''+inttostr(fflag)+''' '); + 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 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; + 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(); + +{ + 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:='Ȩ'; + 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; + +end. diff --git a/应收应付/U_YFFKList.dfm b/应收应付/U_YFFKList.dfm new file mode 100644 index 0000000..a7a1a4b --- /dev/null +++ b/应收应付/U_YFFKList.dfm @@ -0,0 +1,330 @@ +object frmYFFKList: TfrmYFFKList + Left = 188 + Top = 79 + 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 = 104 + end + object v2Column1: TcxGridDBColumn + Caption = #26412#26399#24212#20184#27454 + DataBinding.FieldName = 'YFMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 95 + end + object v2Column2: TcxGridDBColumn + Caption = #26412#26399#20184#27454 + DataBinding.FieldName = 'FKMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 98 + end + object v2Column3: TcxGridDBColumn + Caption = #26412#26399#27424#27454 + DataBinding.FieldName = 'BQMoney' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 114 + end + object v2Column4: TcxGridDBColumn + Caption = #26412#26399#20943#20813 + DataBinding.FieldName = 'DerateMoney' + 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 = 65 + 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_YFFKList.pas b/应收应付/U_YFFKList.pas new file mode 100644 index 0000000..9ff35b2 --- /dev/null +++ b/应收应付/U_YFFKList.pas @@ -0,0 +1,185 @@ +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; + 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; + v2BQKP: TcxGridDBColumn; + v2WKP: TcxGridDBColumn; + v2GSTT: TcxGridDBColumn; + Label1: TLabel; + ComTaiTou: TEdit; + v2Column4: 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); + 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 + Filtered:=False; + Close; + SQL.Clear; + if Trim(DParameters10)='' then + sql.Add(' exec P_YFFK_List10 :begdate,:Enddate,:Flag') + 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)); + Parameters.ParamByName('Flag').Value:=Trim(fDParameters1); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; +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('Ӧͳ',Tv2,''); + Close; +end; +procedure TfrmYFFKList.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 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..544e4b9 --- /dev/null +++ b/应收应付/U_YFFP.dfm @@ -0,0 +1,435 @@ +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 = 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 = #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 = 750 + 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 = 644 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object ComTaiTou: TEdit + Tag = 2 + Left = 798 + 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 = #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 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 = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + 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_YFFP.pas b/应收应付/U_YFFP.pas new file mode 100644 index 0000000..039d848 --- /dev/null +++ b/应收应付/U_YFFP.pas @@ -0,0 +1,853 @@ +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; + 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 + frmYFFP: TfrmYFFP; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList; + +{$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; + 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 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 + 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; + +end. diff --git a/应收应付/U_YFMXlist.dfm b/应收应付/U_YFMXlist.dfm new file mode 100644 index 0000000..f1c6d9d --- /dev/null +++ b/应收应付/U_YFMXlist.dfm @@ -0,0 +1,546 @@ +object frmYFMXlist: TfrmYFMXlist + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + 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 = 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 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 = 1366 + 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 Label7: TLabel + Left = 886 + Top = 13 + Width = 48 + Height = 12 + Caption = #36153#29992#21517#31216 + end + object P_CodeName: TEdit + Tag = 2 + Left = 730 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 0 + OnChange = P_CodeNameChange + OnKeyPress = factoryNameKeyPress + end + object conNo: TEdit + Tag = 2 + Left = 562 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 1 + OnChange = conNoChange + OnKeyPress = factoryNameKeyPress + 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 + OnKeyPress = factoryNameKeyPress + end + object YFName: TEdit + Tag = 2 + Left = 938 + Top = 9 + Width = 120 + Height = 20 + TabOrder = 6 + OnChange = P_CodeNameChange + OnKeyPress = factoryNameKeyPress + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 69 + Width = 1366 + Height = 367 + Align = alTop + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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 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..56581ab --- /dev/null +++ b/应收应付/U_YFMXlist.pas @@ -0,0 +1,270 @@ +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, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +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; + YFName: TEdit; + Label7: TLabel; + 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); + procedure factoryNameKeyPress(Sender: TObject; var Key: Char); + 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 + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered:=False; + SQL.Clear; + sql.Add(' exec P_Qry_Yfk_mx '); + sql.Add(' @begdate='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(',@Enddate='''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' '); + sql.Add(',@Type='''+Trim(fType)+''' '); + sql.Add(',@factoryName='''+trim(factoryName.Text)+''' '); + sql.Add(',@P_CodeName='''+trim(P_CodeName.Text)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + 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; + InitGrid(); +end; + +procedure TfrmYFMXlist.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + +{ IF trim(factoryName.Text)='' then + begin + application.MessageBox('Ӧ̲Ϊգ','ʾϢ',0); + exit; + end; } + 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; + +procedure TfrmYFMXlist.factoryNameKeyPress(Sender: TObject; var Key: Char); +begin + IF key =#13 then + begin + TBRafresh.Click; + 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_YF_Money_LL.dfm b/应收应付/U_YF_Money_LL.dfm new file mode 100644 index 0000000..28e08be --- /dev/null +++ b/应收应付/U_YF_Money_LL.dfm @@ -0,0 +1,454 @@ +object frmMoney_LL: TfrmMoney_LL + Left = 132 + Top = 136 + Width = 1168 + Height = 545 + Caption = #36130#21153#20973#35777 + 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 = 1152 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 71 + 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 TINIT: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TINITClick + end + object TGLV: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TGLVClick + end + object TZDY: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #33258#23450#20041 + ImageIndex = 57 + OnClick = TZDYClick + end + object TADD: TToolButton + Left = 201 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TADDClick + end + object TUPDATE: TToolButton + Left = 264 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TUPDATEClick + end + object TDEL: TToolButton + Left = 327 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TDELClick + end + object TSELECT: TToolButton + Left = 390 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = TSELECTClick + end + object Texcel: TToolButton + Left = 453 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TexcelClick + end + object ToolButton1: TToolButton + Left = 516 + Top = 0 + AutoSize = True + Caption = #26085#24535 + ImageIndex = 72 + OnClick = ToolButton1Click + end + object TCLOSE: TToolButton + Left = 579 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TCLOSEClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1152 + Height = 45 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 32 + Top = 18 + 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 Label4: TLabel + Left = 333 + 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 Label2: TLabel + Left = 496 + Top = 18 + Width = 26 + Height = 12 + Caption = #25688#35201 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 176 + Top = 18 + 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 Label5: TLabel + Left = 656 + Top = 18 + Width = 52 + Height = 12 + Caption = #23545#26041#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 844 + 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 CRType: TEdit + Left = 361 + Top = 13 + Width = 100 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 0 + OnChange = CRTypeChange + end + object BegDate: TDateTimePicker + Left = 69 + Top = 14 + Width = 101 + Height = 20 + Date = 41901.650530231480000000 + Format = 'yyyy-MM-dd' + Time = 41901.650530231480000000 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 186 + Top = 14 + Width = 101 + Height = 20 + Date = 41901.650622280090000000 + Format = 'yyyy-MM-dd' + Time = 41901.650622280090000000 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 2 + end + object CRZY: TEdit + Left = 525 + Top = 13 + Width = 100 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 3 + OnChange = CRTypeChange + end + object TofactoryName: TEdit + Left = 709 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = CRTypeChange + end + object OrderNo: TEdit + Left = 881 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = CRTypeChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 98 + Width = 1152 + Height = 297 + Align = alTop + TabOrder = 2 + object TV1: TcxGridDBTableView + OnDblClick = TV1DblClick + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V1InMoney + end + item + Kind = skSum + Column = V1OutMoney + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.ExpandButtonsForEmptyDetails = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 15 + object V1Column1: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'LLNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 86 + end + object V1CRTime: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 100 + end + object V1Column2: TcxGridDBColumn + Caption = #23545#26041#20449#24687 + DataBinding.FieldName = 'TofactoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 109 + end + object V1CRType: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 100 + end + object V1CRZY: TcxGridDBColumn + Caption = #25688#35201 + DataBinding.FieldName = 'CRZY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 118 + end + object V1InMoney: TcxGridDBColumn + Caption = #20511#26041 + DataBinding.FieldName = 'InMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Content = DataLink_YSYF.FontBlue + Styles.Footer = DataLink_YSYF.FontBlue + Styles.Header = DataLink_YSYF.FontBlue + Width = 100 + end + object V1OutMoney: TcxGridDBColumn + Caption = #36151#26041 + DataBinding.FieldName = 'OutMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Content = DataLink_YSYF.FoneRed + Styles.Footer = DataLink_YSYF.FoneRed + Styles.Header = DataLink_YSYF.FoneRed + Width = 100 + end + object V1YEMoney: TcxGridDBColumn + Caption = #20313#39069 + DataBinding.FieldName = 'YEMoney' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.AssignedValues.DisplayFormat = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 100 + end + object V1NOTE: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'NOTE' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 188 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 77 + Width = 1152 + Height = 21 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #29616#37329#27969#37327) + OnChange = cxTabControl1Change + ClientRectRight = 0 + ClientRectTop = 0 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 248 + Top = 156 + end + object AdoQueryTmp: TADOQuery + Connection = DataLink_YSYF.ADOLink + CursorType = ctStatic + CommandTimeout = 600 + Parameters = <> + Left = 312 + Top = 156 + end + object ADOQueryCmd: TADOQuery + AutoCalcFields = False + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 388 + Top = 160 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 456 + Top = 164 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 468 + Top = 228 + end + object ADOQueryMain: TADOQuery + AutoCalcFields = False + Connection = DataLink_YSYF.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 340 + Top = 204 + end +end diff --git a/应收应付/U_YF_Money_LL.pas b/应收应付/U_YF_Money_LL.pas new file mode 100644 index 0000000..2e6df1c --- /dev/null +++ b/应收应付/U_YF_Money_LL.pas @@ -0,0 +1,339 @@ +unit U_YF_Money_LL; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, DBClient, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxPC, StdCtrls, ComCtrls, + ExtCtrls, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + ToolWin, cxCalendar, cxCurrencyEdit, cxTextEdit, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, 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 + TfrmMoney_LL = class(TForm) + ToolBar1: TToolBar; + TINIT: TToolButton; + TGLV: TToolButton; + TADD: TToolButton; + TUPDATE: TToolButton; + TDEL: TToolButton; + TSELECT: TToolButton; + Texcel: TToolButton; + TCLOSE: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label4: TLabel; + Label2: TLabel; + CRType: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CRZY: TEdit; + cxGrid1: TcxGrid; + TV1: TcxGridDBTableView; + V1CRTime: TcxGridDBColumn; + V1CRType: TcxGridDBColumn; + V1InMoney: TcxGridDBColumn; + V1NOTE: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + DataSource1: TDataSource; + AdoQueryTmp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + TZDY: TToolButton; + cxTabControl1: TcxTabControl; + V1CRZY: TcxGridDBColumn; + V1OutMoney: TcxGridDBColumn; + V1YEMoney: TcxGridDBColumn; + Label3: TLabel; + V1Column1: TcxGridDBColumn; + TofactoryName: TEdit; + Label5: TLabel; + V1Column2: TcxGridDBColumn; + Label6: TLabel; + OrderNo: TEdit; + CDS_Main: TClientDataSet; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TV1DblClick(Sender: TObject); + procedure TCLOSEClick(Sender: TObject); + procedure TADDClick(Sender: TObject); + procedure TINITClick(Sender: TObject); + procedure TGLVClick(Sender: TObject); + procedure TUPDATEClick(Sender: TObject); + procedure TSELECTClick(Sender: TObject); + procedure TexcelClick(Sender: TObject); + procedure TDELClick(Sender: TObject); + procedure TZDYClick(Sender: TObject); + procedure CRTypeChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + procedure initGrid(); + procedure SetTab(); + { Private declarations } + public + fSYRName:string; + { Public declarations } + end; + +var + frmMoney_LL: TfrmMoney_LL; + +implementation + +uses U_DataLink, U_Fun10,U_YF_Money_Sub, U_ZDYHelp, U_SysLogHelp; + +{$R *.dfm} +procedure TfrmMoney_LL.SetTab(); +begin + cxTabControl1.OnChange := nil; + cxTabControl1.Tabs.Clear; + with AdoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type ='''+trim(fsyrName)+'''+''XJLLFLAG'' '); + open; + If not isempty then + begin + while not eof do + begin + cxTabControl1.Tabs.Add(trim(fieldbyname('ZDYName').AsString)); + next; + end; + end; + end; + + IF cxTabControl1.Tabs.Count<1 then + cxTabControl1.Tabs.Add('ʼ'); + cxTabControl1.OnChange := cxTabControl1Change; +// cxTabControl1.TabIndex:=0; +end; + +procedure TfrmMoney_LL.InitGrid(); +begin + with ADOQueryMain do + begin + close; + sql.Clear; + sql.Add('exec P_ZHLL_List_MX '); + sql.Add('@begdate='''+formatdateTime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(',@enddate='''+formatdateTime('yyyy-MM-dd',enddate.DateTime+1)+''' '); + sql.Add(',@factoryName='+quotedstr(Trim(cxTabControl1.Tabs.Strings[cxTabControl1.TabIndex]))); + sql.Add(',@syrName='''+trim(fsyrName)+''' '); +// ShowMessage(SQL.text); + open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmMoney_LL.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alclient; +end; + +procedure TfrmMoney_LL.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption+tv1.Name+'1',Tv1); + enddate.datetime:=SGetServerDateTime(ADOQueryTmp); + begdate.datetime:=strtodate(formatdateTime('yyyy-MM',enddate.DateTime)+'-01'); + SetTab(); + initGrid(); +end; + +procedure TfrmMoney_LL.FormDestroy(Sender: TObject); +begin + frmMoney_LL:=nil; +end; + +procedure TfrmMoney_LL.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + writeCxGrid(self.Caption+tv1.Name+'1',Tv1); + action:=cafree; +end; + +procedure TfrmMoney_LL.TV1DblClick(Sender: TObject); +begin + TSELECT.click; +end; + +procedure TfrmMoney_LL.TCLOSEClick(Sender: TObject); +begin + close; +end; + +procedure TfrmMoney_LL.TADDClick(Sender: TObject); +begin + try + FrmYF_Money_Sub:=TFrmYF_Money_Sub.Create(Application); + with FrmYF_Money_Sub do + begin + factoryName.text:=Trim(cxTabControl1.Tabs.Strings[cxTabControl1.TabIndex]); + fsyrName:=self.fSYRName; + Fkeyno:=''; + if ShowModal=1 then + begin + InitGrid(); + end; + end; + finally; + FrmYF_Money_Sub.free; + end; +end; + +procedure TfrmMoney_LL.TINITClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmMoney_LL.TGLVClick(Sender: TObject); +begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,0)); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); +end; + +procedure TfrmMoney_LL.TUPDATEClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.fieldbyname('frommainID').AsString<>'' then + begin + application.messagebox('Զ벻޸!','ʾ',0); + exit; + end; + try + FrmYF_Money_Sub:=TFrmYF_Money_Sub.Create(Application); + with FrmYF_Money_Sub do + begin + Fkeyno:=trim(Self.CDS_Main.fieldbyname('LLNO').asstring); + fsyrName:=self.fSYRName; + if ShowModal=1 then + begin + InitGrid(); + end; + end; + finally; + FrmYF_Money_Sub.free; + end; +end; + +procedure TfrmMoney_LL.TSELECTClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + try + FrmYF_Money_Sub:=TFrmYF_Money_Sub.Create(Application); + with FrmYF_Money_Sub do + begin + Fkeyno:=trim(Self.CDS_Main.fieldbyname('LLNO').asstring); + TSave.Visible:=False; + panel1.Enabled:=False; + if ShowModal=1 then + begin + // InitGrid(); + end; + end; + finally; + FrmYF_Money_Sub.free; + end; +end; + +procedure TfrmMoney_LL.TexcelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel(Trim(cxTabControl1.Tabs.Strings[cxTabControl1.TabIndex]),cxGrid1); +end; + +procedure TfrmMoney_LL.TDELClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if CDS_Main.fieldbyname('frommainID').AsString<>'' then + begin + application.messagebox('Զ벻ɾ!','ʾ',0); + exit; + end; + if application.MessageBox('ȷҪɾ','ʾ',1)=2 then exit; + try + ADOQuerycmd.Connection.BeginTrans; + with ADOQuerycmd do + begin + close; + sql.Clear; + sql.Add('delete from YF_Money_LL where LLNO='''+trim(CDS_Main.fieldbyname('LLNO').AsString)+''''); + sql.Add('delete from YF_Money_LL where fromMainID='''+trim(CDS_Main.fieldbyname('LLNO').AsString)+''''); + execsql; + end; + ADOQuerycmd.Connection.CommitTrans; + initGrid(); + except + ADOQuerycmd.connection.rollbackTrans; + application.messagebox('ɾʧ','ʾ',0); + end; + +end; + +procedure TfrmMoney_LL.TZDYClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(self); + with frmZDYHelp do + begin + flag:=trim(fsyrName)+'XJLLFLAG'; + flagname:='˻Ͷ'; + if showmodal=1 then + begin + SetTab(); + // cxTabControl1.Tabs.Text:=trim(ClientDataSet1.fieldbyname('ZDYName').asstring); + end; + end; + // initGrid(); + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmMoney_LL.CRTypeChange(Sender: TObject); +begin + TGLV.Click; +end; + +procedure TfrmMoney_LL.cxTabControl1Change(Sender: TObject); +begin + // IF cxTabControl1.TabIndex>=0 then + initGrid(); +end; + +procedure TfrmMoney_LL.ToolButton1Click(Sender: TObject); +begin + frmSysLogHelp:=TfrmSysLogHelp.create(self); + with frmSysLogHelp do + begin + facction:='˻ˮ޸'; + showmodal; + free; + end; +end; + +end. diff --git a/应收应付/U_YF_Money_LL_list.dfm b/应收应付/U_YF_Money_LL_list.dfm new file mode 100644 index 0000000..a00526c --- /dev/null +++ b/应收应付/U_YF_Money_LL_list.dfm @@ -0,0 +1,287 @@ +object frmYF_Money_LL_list: TfrmYF_Money_LL_list + Left = 132 + Top = 136 + Width = 1168 + Height = 545 + Caption = #36130#21153#20973#35777 + 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 = 1152 + 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 TINIT: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TINITClick + end + object TGLV: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TGLVClick + end + object Texcel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TexcelClick + end + object TCLOSE: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TCLOSEClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1152 + Height = 45 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 32 + Top = 18 + 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 Label2: TLabel + Left = 384 + Top = 18 + Width = 52 + Height = 12 + Caption = #36134#25143#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 176 + Top = 18 + 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 BegDate: TDateTimePicker + Left = 69 + Top = 14 + Width = 101 + Height = 20 + Date = 41901.650530231480000000 + Format = 'yyyy-MM-dd' + Time = 41901.650530231480000000 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 186 + Top = 14 + Width = 101 + Height = 20 + Date = 41901.650622280090000000 + Format = 'yyyy-MM-dd' + Time = 41901.650622280090000000 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 1 + end + object factoryName: TEdit + Left = 441 + Top = 13 + Width = 120 + Height = 20 + TabOrder = 2 + OnChange = CRTypeChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 77 + Width = 1152 + Height = 297 + Align = alTop + TabOrder = 2 + object TV1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V1InMoney + end + item + Kind = skSum + Column = V1OutMoney + end + item + Kind = skSum + Column = V1Column1 + end + item + Kind = skSum + Column = V1YEMoney + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.ExpandButtonsForEmptyDetails = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 15 + object V1Column2: TcxGridDBColumn + Caption = #36134#25143#20449#24687 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YSYF.Default + Width = 193 + end + object V1Column1: TcxGridDBColumn + Caption = #19978#26399#32467#20313 + DataBinding.FieldName = 'QCmoney' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_YSYF.Default + Styles.Footer = DataLink_YSYF.Default + Styles.Header = DataLink_YSYF.Default + Width = 120 + end + object V1InMoney: TcxGridDBColumn + Caption = #25910#20837 + DataBinding.FieldName = 'InMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Content = DataLink_YSYF.FontBlue + Styles.Footer = DataLink_YSYF.FontBlue + Styles.Header = DataLink_YSYF.FontBlue + Width = 120 + end + object V1OutMoney: TcxGridDBColumn + Caption = #25903#20986 + DataBinding.FieldName = 'OutMoney' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = DataLink_YSYF.FoneRed + Styles.Footer = DataLink_YSYF.FoneRed + Styles.Header = DataLink_YSYF.FoneRed + Width = 120 + end + object V1YEMoney: TcxGridDBColumn + Caption = #26412#26399#20313#39069 + DataBinding.FieldName = 'NowMoney' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.AssignedValues.DisplayFormat = True + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Content = DataLink_YSYF.Default + Styles.Footer = DataLink_YSYF.Default + Styles.Header = DataLink_YSYF.Default + Width = 120 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 248 + Top = 156 + end + object AdoQueryTmp: TADOQuery + Connection = DataLink_YSYF.ADOLink + CursorType = ctStatic + Parameters = <> + Left = 312 + Top = 156 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 388 + Top = 160 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 456 + Top = 164 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 504 + Top = 164 + end +end diff --git a/应收应付/U_YF_Money_LL_list.pas b/应收应付/U_YF_Money_LL_list.pas new file mode 100644 index 0000000..d29ed87 --- /dev/null +++ b/应收应付/U_YF_Money_LL_list.pas @@ -0,0 +1,144 @@ +unit U_YF_Money_LL_list; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, DBClient, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxPC, StdCtrls, ComCtrls, + ExtCtrls, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + ToolWin, cxCalendar, cxCurrencyEdit, cxTextEdit; + +type + TfrmYF_Money_LL_list = class(TForm) + ToolBar1: TToolBar; + TINIT: TToolButton; + TGLV: TToolButton; + Texcel: TToolButton; + TCLOSE: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + factoryName: TEdit; + cxGrid1: TcxGrid; + TV1: TcxGridDBTableView; + V1InMoney: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + DataSource1: TDataSource; + AdoQueryTmp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + V1OutMoney: TcxGridDBColumn; + V1YEMoney: TcxGridDBColumn; + Label3: TLabel; + V1Column2: TcxGridDBColumn; + V1Column1: TcxGridDBColumn; + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TCLOSEClick(Sender: TObject); + procedure TINITClick(Sender: TObject); + procedure TGLVClick(Sender: TObject); + procedure TexcelClick(Sender: TObject); + procedure CRTypeChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + private + procedure initGrid(); + { Private declarations } + public + fSYRName:string; + { Public declarations } + end; + +var + frmYF_Money_LL_list: TfrmYF_Money_LL_list; + +implementation + +uses U_DataLink, U_Fun,U_YF_Money_Sub, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmYF_Money_LL_list.InitGrid(); +begin + with AdoQueryTmp do + begin + close; + sql.Clear; + sql.Add(' exec P_ZHLL_List '); + sql.Add(' @begdate='''+formatdateTime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(',@enddate='''+formatdateTime('yyyy-MM-dd',enddate.DateTime+1)+''' '); + sql.Add(',@syrName='''+trim(fSYRName)+''' '); + open; + end; + SCreateCDS20(ADOQueryTmp,CDS_Main); + SInitCDSData20(ADOQueryTmp,CDS_Main); +end; + +procedure TfrmYF_Money_LL_list.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alclient; +end; + +procedure TfrmYF_Money_LL_list.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption+tv1.Name,Tv1); + enddate.datetime:=SGetServerDateTime(ADOQueryTmp); + begdate.datetime:=strtodate(formatdateTime('yyyy-MM',enddate.DateTime)+'-01'); + initGrid(); +end; + +procedure TfrmYF_Money_LL_list.FormDestroy(Sender: TObject); +begin + frmYF_Money_LL_list:=nil; +end; + +procedure TfrmYF_Money_LL_list.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + writeCxGrid(self.Caption+tv1.Name,Tv1); + action:=cafree; +end; + +procedure TfrmYF_Money_LL_list.TCLOSEClick(Sender: TObject); +begin + close; +end; + +procedure TfrmYF_Money_LL_list.TINITClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYF_Money_LL_list.TGLVClick(Sender: TObject); +begin + SDofilter(AdoQueryTmp,SGetFilters(Panel1,1,0)); + SCreateCDS20(AdoQueryTmp,CDS_Main); + SInitCDSData20(AdoQueryTmp,CDS_Main); +end; + +procedure TfrmYF_Money_LL_list.TexcelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxGrid1); +end; + +procedure TfrmYF_Money_LL_list.CRTypeChange(Sender: TObject); +begin + SDofilter(AdoQueryTmp,SGetFilters(Panel1,1,0)); + SCreateCDS20(AdoQueryTmp,CDS_Main); + SInitCDSData20(AdoQueryTmp,CDS_Main); +end; + +procedure TfrmYF_Money_LL_list.cxTabControl1Change(Sender: TObject); +begin + initGrid(); +end; + +end. diff --git a/应收应付/U_YF_Money_Sub.dfm b/应收应付/U_YF_Money_Sub.dfm new file mode 100644 index 0000000..80de859 --- /dev/null +++ b/应收应付/U_YF_Money_Sub.dfm @@ -0,0 +1,318 @@ +object FrmYF_Money_Sub: TFrmYF_Money_Sub + Left = 244 + Top = 204 + Width = 582 + Height = 301 + BorderIcons = [biSystemMenu] + Caption = #36134#25143#27969#27700#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 + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 566 + Height = 30 + AutoSize = True + 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_YSYF.ThreeImgList + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TSAVE: TToolButton + Left = 0 + Top = 0 + Caption = #20445#23384 + ImageIndex = 14 + OnClick = TSAVEClick + end + object Tclose: TToolButton + Left = 59 + Top = 0 + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TcloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 30 + Width = 566 + Height = 231 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Label11: TLabel + Left = 46 + Top = 162 + Width = 54 + Height = 12 + Caption = #22791' '#27880 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 282 + Top = 130 + Width = 52 + Height = 12 + Caption = #36151#26041#37329#39069 + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 282 + Top = 22 + Width = 54 + Height = 12 + Caption = #31867' '#22411 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 46 + Top = 132 + Width = 52 + Height = 12 + Caption = #20511#26041#37329#39069 + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 46 + Top = 24 + Width = 54 + Height = 12 + Caption = #26085' '#26399 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 46 + Top = 103 + Width = 54 + Height = 12 + Caption = #25688' '#35201 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 46 + Top = 52 + Width = 52 + Height = 12 + Caption = #38134#34892#36134#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 46 + Top = 76 + Width = 52 + Height = 12 + Caption = #23545#26041#20449#24687 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 282 + Top = 100 + 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 + Visible = False + end + object note: TMemo + Left = 106 + Top = 157 + Width = 360 + Height = 66 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + ParentFont = False + ScrollBars = ssVertical + TabOrder = 5 + end + object CRTime: TDateTimePicker + Left = 106 + Top = 20 + Width = 130 + Height = 20 + Date = 41901.675385914350000000 + Format = 'yyyy-MM-dd' + Time = 41901.675385914350000000 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 0 + end + object CRType: TBtnEditA + Left = 338 + Top = 18 + Width = 130 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnBtnClick = CRTypeBtnClick + end + object OutMoney: TcxCurrencyEdit + Left = 338 + Top = 125 + Properties.DecimalPlaces = 2 + Properties.DisplayFormat = '0.##;-,0.##' + TabOrder = 2 + Width = 129 + end + object InMoney: TcxCurrencyEdit + Left = 106 + Top = 128 + Properties.DecimalPlaces = 2 + Properties.DisplayFormat = '0.##;-,0.##' + TabOrder = 3 + Width = 130 + end + object CRZY: TEdit + Left = 106 + Top = 100 + Width = 130 + Height = 20 + TabOrder = 4 + end + object FactoryName: TBtnEditA + Left = 106 + Top = 50 + Width = 363 + Height = 20 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 6 + OnBtnClick = FactoryNameBtnClick + end + object TOFactoryName: TBtnEditA + Left = 106 + Top = 74 + Width = 363 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 7 + OnBtnClick = TOFactoryNameBtnClick + end + object OrderNo: TBtnEditA + Left = 338 + Top = 98 + Width = 130 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 8 + Visible = False + OnBtnClick = OrderNoBtnClick + end + end + object ADOQueryTMP: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 512 + Top = 77 + end + object ADOQueryCMD: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 520 + Top = 126 + end + object ADOQueryTEMP: TADOQuery + Connection = DataLink_YSYF.ADOLink + Parameters = <> + Left = 504 + Top = 46 + end +end diff --git a/应收应付/U_YF_Money_Sub.pas b/应收应付/U_YF_Money_Sub.pas new file mode 100644 index 0000000..f42e3be --- /dev/null +++ b/应收应付/U_YF_Money_Sub.pas @@ -0,0 +1,360 @@ +unit U_YF_Money_Sub; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, DB, ADODB, cxControls, cxContainer, cxEdit, + cxTextEdit, cxCurrencyEdit, BtnEdit, StdCtrls, ExtCtrls, cxGraphics, + cxLookAndFeels, cxLookAndFeelPainters; + +type + TFrmYF_Money_Sub = class(TForm) + ToolBar1: TToolBar; + TSAVE: TToolButton; + Tclose: TToolButton; + Panel1: TPanel; + Label11: TLabel; + Label9: TLabel; + Label8: TLabel; + Label5: TLabel; + Label2: TLabel; + note: TMemo; + CRTime: TDateTimePicker; + CRType: TBtnEditA; + OutMoney: TcxCurrencyEdit; + ADOQueryTMP: TADOQuery; + ADOQueryCMD: TADOQuery; + Label1: TLabel; + InMoney: TcxCurrencyEdit; + CRZY: TEdit; + Label3: TLabel; + FactoryName: TBtnEditA; + Label4: TLabel; + TOFactoryName: TBtnEditA; + OrderNo: TBtnEditA; + Label6: TLabel; + ADOQueryTEMP: TADOQuery; + procedure TcloseClick(Sender: TObject); + procedure TSAVEClick(Sender: TObject); + procedure CRTypeBtnClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FactoryNameBtnClick(Sender: TObject); + procedure TOFactoryNameBtnClick(Sender: TObject); + procedure OrderNoBtnClick(Sender: TObject); + private + fopevent:string; + procedure savedata(); + procedure initdata(); + procedure geteditRzhi(); + { Private declarations } + public + fkeyNo: string; + fSYRName:string; + { Public declarations } + end; + +var + FrmYF_Money_Sub: TFrmYF_Money_Sub; + +implementation + +uses U_ZDYHelpSel, U_ZDYHelp,U_Fun, U_ProductOrderNewList,U_DataLink; + +{$R *.dfm} +procedure TFrmYF_Money_Sub.geteditRzhi(); +begin + fopevent:=''; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from YF_Money_LL where LLNO='''+Trim(fkeyNo)+''' '); + open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + IF trim(TOFactoryName.Text)<> trim(ADOQueryTemp.fieldbyName('TOFactoryName').AsString) then + fopevent:=fopevent+' ԷϢ:'+trim(ADOQueryTemp.fieldbyName('TOFactoryName').AsString)+'->'+trim(TOFactoryName.Text); + + IF formatdateTime('yyyy-MM-dd',CRTime.DateTime)<> formatdateTime('yyyy-MM-dd',ADOQueryTemp.fieldbyName('CRTime').AsDateTime) then + fopevent:=fopevent+' :'+formatdateTime('yyyy-MM-dd',ADOQueryTemp.fieldbyName('CRTime').AsDateTime )+'->'+formatdateTime('yyyy-MM-dd',CRTime.DateTime); + + IF strtofloatdef(trim(InMoney.Text),0)<> ADOQueryTemp.fieldbyName('InMoney').AsFloat then + fopevent:=fopevent+' 跽:'+ADOQueryTemp.fieldbyName('inMoney').AsString+'->'+trim(InMoney.Text); + + IF strtofloatdef(trim(OutMoney.Text),0)<> ADOQueryTemp.fieldbyName('OutMoney').AsFloat then + fopevent:=fopevent+' :'+ADOQueryTemp.fieldbyName('OutMoney').AsString+'->'+trim(OutMoney.Text); + + if trim(fopevent)<>'' then + fopevent:='˻:'+trim(ADOQueryTemp.fieldbyName('factoryName').AsString)+fopevent; + end; + + IF trim(fopevent)<>'' then + begin + 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('˻ˮǼ'))); + sql.Add(','+quotedstr(trim('˻ˮ޸'))); + sql.Add(','+quotedstr(trim(fopevent))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + end; +end; + +procedure TFrmYF_Money_Sub.initdata(); +begin + with adoquerycmd do + begin + close; + sql.clear; + sql.Add('select * from YF_Money_LL '); + sql.Add('where LLNO='+quotedstr(trim(fkeyNo)) ); + open; + if not isempty then + begin + CRTime.DateTime:=fieldbyname('crtime').AsDateTime; + CRType.Text:=trim(fieldbyname('crtype').AsString); + factoryName.Text:=trim(fieldbyname('factoryName').AsString); + TOfactoryName.Text:=trim(fieldbyname('TOfactoryName').AsString); + NOTE.Text:=trim(fieldbyname('NOTE').AsString); + CRZY.Text:=trim(fieldbyname('crzy').AsString); + InMoney.Text:=trim(fieldbyname('InMoney').AsString); + OutMoney.Text:=Trim(fieldbyname('OutMoney').AsString); + orderNo.Text:=Trim(fieldbyname('orderNo').AsString); + end; + end; +end; + +procedure TFrmYF_Money_Sub.savedata(); +var + fid:string; +begin + try + ADOQueryCMD.Connection.BeginTrans; + if Trim(fkeyNo)='' then + begin + if GetLSNo(ADOQueryCMD,fkeyNo,'YL','YF_Money_LL',3,1)=False then + begin + ADOQueryCMD.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ'); + Exit; + end; + end; + geteditRzhi(); + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from YF_Money_LL where fromMainID='''+Trim(fkeyNo)+''' '); + execsql; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from YF_Money_LL where LLNO='''+Trim(fkeyNo)+''' '); + Open; + if isempty then + begin + append; + fieldbyname('filler').Value:=trim(Dname); + // fieldbyname('filltime').Value:=SGetServerDate10(adoqueryTmp); + end + else + begin + edit; + fieldbyname('chker').Value:=trim(Dname); + fieldbyname('chkTime').Value:=SGetServerDate10(adoqueryTmp); + end; + FieldByName('LLNO').Value:=Trim(fkeyNo); + fieldbyname('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTime.DateTime); + fieldbyname('CRType').Value:=trim(CRType.Text); + fieldbyname('factoryName').Value:=trim(factoryName.Text); + fieldbyname('TOfactoryName').Value:=trim(TOfactoryName.Text); + fieldbyname('CRType').Value:=trim(CRType.Text); + fieldbyname('NOTE').Value:=trim(NOTE.Text); + fieldbyname('CRZY').Value:=trim(CRZY.text); + fieldbyname('orderNo').Value:=trim(orderNo.text); + fieldbyname('inMoney').Value:=strtofloatdef(trim(inMoney.Text),0); + fieldbyname('OutMoney').Value:=strtofloatdef(trim(OutMoney.Text),0); + fieldbyname('syrName').Value:=trim(fsyrName); + fieldbyname('status').Value:='0'; + Post; + end; + IF trim(CRType.Text)='˻ת' then + begin + if GetLSNo(ADOQueryCMD,fid,'YL','YF_Money_LL',3,1)=False then + begin + ADOQueryCMD.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧ!','ʾ'); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from YF_Money_LL where LLNO='''+Trim(fid)+''' '); + Open; + if isempty then + begin + append; + fieldbyname('filler').Value:=trim(Dname); + end + else + begin + edit; + fieldbyname('chker').Value:=trim(Dname); + fieldbyname('chkTime').Value:=SGetServerDate10(adoqueryTmp); + end; + FieldByName('LLNO').Value:=Trim(fid); + fieldbyname('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTime.DateTime); + fieldbyname('CRType').Value:=trim(CRType.Text); + fieldbyname('factoryName').Value:=trim(TOfactoryName.Text); + fieldbyname('TOfactoryName').Value:=trim(factoryName.Text); + fieldbyname('CRType').Value:=trim(CRType.Text); + fieldbyname('NOTE').Value:=trim(NOTE.Text); + fieldbyname('CRZY').Value:=trim(CRZY.text); + fieldbyname('inMoney').Value:=strtofloatdef(trim(OutMoney.Text),0); + fieldbyname('OutMoney').Value:=strtofloatdef(trim(InMoney.Text),0); + fieldbyname('status').Value:='0'; + fieldbyname('fromMainID').Value:=trim(fkeyNo); + fieldbyname('syrName').Value:=trim(fsyrName); + Post; + end; + end; + ADOquerycmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + except + ADOquerycmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TFrmYF_Money_Sub.TcloseClick(Sender: TObject); +begin + close; +end; + +procedure TFrmYF_Money_Sub.TSAVEClick(Sender: TObject); +begin + IF trim(FactoryName.Text)='' then + begin + application.MessageBox('ϢΪգ','ʾϢ',0); + exit; + end; + savedata(); +end; + +procedure TFrmYF_Money_Sub.CRTypeBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(self); + with frmZDYHelp do + begin + flag:='XJZZFLAG'; + flagname:='תͶ'; + if showmodal=1 then + begin + CRType.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + InMoney.Enabled:=true; + IF trim(CRType.Text)='˻ת' then + begin + InMoney.Text:=''; + InMoney.Enabled:=false; + end; +end; + +procedure TFrmYF_Money_Sub.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + action:=cafree; +end; + +procedure TFrmYF_Money_Sub.FormDestroy(Sender: TObject); +begin + FrmYF_Money_Sub:=nil; +end; + +procedure TFrmYF_Money_Sub.FormShow(Sender: TObject); +begin + CRTime.DateTime:=SGetServerDate10(adoqueryTmp); + initData(); +end; + +procedure TFrmYF_Money_Sub.FormCreate(Sender: TObject); +begin + Panel1.Align:=alclient; +end; + +procedure TFrmYF_Money_Sub.FactoryNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(self); + with frmZDYHelp do + begin + flag:=trim(fsyrName)+'XJLLFLAG'; + flagname:='˻Ͷ'; + if showmodal=1 then + begin + FactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmYF_Money_Sub.TOFactoryNameBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(self); + with frmZDYHelp do + begin + flag:=trim(fsyrName)+'XJLLFLAG'; + flagname:='˻Ͷ'; + if showmodal=1 then + begin + TOFactoryName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TFrmYF_Money_Sub.OrderNoBtnClick(Sender: TObject); +begin + { try + frmProductOrderNewList:=TfrmProductOrderNewList.Create(Application); + with frmProductOrderNewList do + begin + // DParameters1:='Ȩ'; + //frmProductOrderList.v1Column4.Visible:=True; + if ShowModal=1 then + begin + self.OrderNo.Text:=Order_Main.fieldbyname('OrderNo').asstring; + end; + end; + finally + frmProductOrderNewList.Free; + end; } +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..cf21352 --- /dev/null +++ b/应收应付/U_YSCR.dfm @@ -0,0 +1,587 @@ +object frmYSCR: TfrmYSCR + Left = 290 + Top = 260 + 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 + OnCreate = FormCreate + 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 + 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 ToolButton4: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 44 + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1366 + 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 = 442 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label5: TLabel + Left = 442 + Top = 37 + Width = 24 + Height = 12 + Caption = #39068#33394 + 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 + OnKeyPress = FactoryNameKeyPress + 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 PRTCodeName: TEdit + Tag = 2 + Left = 468 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 4 + OnChange = FactoryNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 468 + 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 = 1366 + Height = 408 + Align = alTop + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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 + 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 v2SYRName: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2SYRNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 80 + 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.OnButtonClick = v2Column6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + 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' + 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 = v2Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 76 + end + object v2Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v2Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column7: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'ywy' + 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 = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 105 + Width = 1366 + Height = 22 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.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_YSCR.pas b/应收应付/U_YSCR.pas new file mode 100644 index 0000000..556416b --- /dev/null +++ b/应收应付/U_YSCR.pas @@ -0,0 +1,1315 @@ +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, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator, dxBarBuiltInMenu, 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 + 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; + v2Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + PRTCodeName: TEdit; + Label4: TLabel; + PRTColor: TEdit; + Label5: TLabel; + Label7: TLabel; + Edit1: TEdit; + Button1: TButton; + CheckBox1: TCheckBox; + orderNo: TEdit; + Label8: TLabel; + Tchk: TToolButton; + Tnochk: TToolButton; + cxTabControl1: TcxTabControl; + v2SYRName: TcxGridDBColumn; + 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 Button1Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure v2SYRNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton4Click(Sender: TObject); + procedure v2Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure VBBPropertiesEditValueChanged(Sender: TObject); + procedure FactoryNameKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + + procedure InitGridHZ(); + procedure InitGrid(); + procedure InitGridHC(); + function SaveData():Boolean; + procedure SetStatus(); + + public + fDParameters1:string; + fDParameters3:string; + fSYRName:string; + fstr2:string; + fflag:string; + { Public declarations } + RKFlag,FCYID:String; + FZD, FCZSJ: string; + + end; + +var + frmYSCR: TfrmYSCR; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList, U_ProductOrderList, + U_ZdyAttachment; + +{$R *.dfm} + +procedure TfrmYSCR.SetStatus(); +begin + Tchk.Enabled:=false; + TNochk.Enabled:=false; + TBDel.Enabled:=false; + IF trim(fDParameters1)='ѯ' then + begin + tv2.OptionsData.Editing:=false; + if cxTabControl1.TabIndex=0 then + begin + // Tchk.Enabled:=true; + // TBDel.Enabled:=true; + end; + if cxTabControl1.TabIndex=1 then + begin + // TNochk.Enabled:=true; + end; + end + else + IF trim(fDParameters1)='' then + begin + if cxTabControl1.TabIndex=0 then + begin + Tchk.Enabled:=true; + TBDel.Enabled:=true; + 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; + end; + if cxTabControl1.TabIndex=1 then + begin + // TNochk.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.*,isnull(C.PRTCodeName,A.P_CodeName) as PRTCodeName, isnull(C.PRTColor,A.P_Color) as PRTColor, '); + sql.Add(' case when YFName=''Ʒ'' then (select X1.orderNO from JYOrder_main X1,BP_Inout X2 where X1.mainID=X2.mainID and X2.CRNo=A.mainID and X2.CRID=A.subID) else C.orderNo end as OrderNo'); + // sql.Add(',ywy=(select Top 1 Filler from JYOrder_main X where X.mainID=A.mainID) '); + sql.Add(',ywy=(select Top 1 defstr5 from KH_Zdy_Attachment X where X.zdyName=A.factoryName and X.Type=''KHName'') '); + 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_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=''ӦտǼ'' '); + IF cxTabControl1.TabIndex<2 then + sql.Add(' and status='''+inttostr(cxTabControl1.TabIndex)+''' '); + IF trim(fSYRName)<>'' then + sql.Add(' and A.SYRName='+quotedstr(trim(fSyrName))); + + IF trim(FactoryName.Text)<>'' then + sql.Add(' and A.FactoryName like '+quotedstr('%'+trim(FactoryName.Text)+'%')); + IF trim(PRTCodeName.Text)<>'' then + sql.Add(' and A.P_CodeName like '+quotedstr('%'+trim(PRTCodeName.Text)+'%')); + IF trim(PRTColor.Text)<>'' then + sql.Add(' and A.P_Color like '+quotedstr('%'+trim(PRTColor.Text)+'%')); + sql.Add(' and isnull(A.fstr2,'''')='+quotedstr(trim(fstr2))); + + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +end; +procedure TfrmYSCR.InitGridHC(); +begin + try + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*,isnull(C.PRTCodeName,A.P_CodeName) as PRTCodeName, isnull(C.PRTColor,A.P_Color) as PRTColor, '); + sql.Add(' case when YFName=''Ʒ'' then (select X1.orderNO from JYOrder_main X1,BP_Inout X2 where X1.mainID=X2.mainID and X2.CRNo=A.mainID and X2.CRID=A.subID) else C.orderNo end as OrderNo'); + // sql.Add(',ywy=(select Top 1 Filler from JYOrder_main X where X.mainID=A.mainID) '); + sql.Add(',ywy=(select Top 1 defstr5 from KH_Zdy_Attachment X where X.zdyName=A.factoryName and X.Type=''KHName'') '); + 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_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=''ӦտǼ'' '); + sql.Add(' and ' + FZD + '=''' + Trim(FCZSJ) + ''''); + IF cxTabControl1.TabIndex<2 then + sql.Add(' and status='''+inttostr(cxTabControl1.TabIndex)+''' '); + IF trim(fSYRName)<>'' then + sql.Add(' and A.SYRName='+quotedstr(trim(fSyrName))); + + IF trim(FactoryName.Text)<>'' then + sql.Add(' and A.FactoryName like '+quotedstr('%'+trim(FactoryName.Text)+'%')); + IF trim(PRTCodeName.Text)<>'' then + sql.Add(' and A.P_CodeName like '+quotedstr('%'+trim(PRTCodeName.Text)+'%')); + IF trim(PRTColor.Text)<>'' then + sql.Add(' and A.P_Color like '+quotedstr('%'+trim(PRTColor.Text)+'%')); + sql.Add(' and isnull(A.fstr2,'''')='+quotedstr(trim(fstr2))); + + 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 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 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('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_HZ.FieldByName('factoryName').AsString)+' :'+trim(CDS_HZ.FieldByName('BBmoney').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + end; + CDS_HZ.Delete; +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(fDParameters3)<>'' then + begin + factoryName.Text:=trim(fDParameters3); + factoryName.Enabled:=false; + 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)+''' and YFDefFlag1=0 '); + 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); + FieldByName('SYRName').Value:=Trim(fSYRName); + FieldByName('fstr2').Value:=trim(fstr2); + 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(format('%.0f',[StrToFloat(FMoney)])); + FieldByName('BBMoney').Value:=strtofloat(format('%.0f',[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 + fkhType:=self.fSYRName; + 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('SYRName').Value:=Trim(fSYRName); + 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:='Ȩ'; + fsyrName:=self.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('%.0f',[Fieldbyname('Qty').AsFloat * strtofloatdef(edit1.Text,0) ]); + Fieldbyname('BBMoney').Value:=format('%.0f',[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; + +procedure TfrmYSCR.v2SYRNamePropertiesButtonClick(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:='SYRName'; + flagname:='˾̧ͷ'; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + Edit; + FieldByName('SYRName').Value:=Trim(ClientDataSet1.fieldbyname('SYRName').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set SYRName='''+Trim(ClientDataSet1.fieldbyname('SYRName').AsString)+''''); + SQL.Add(' where YFId='''+Trim(CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYSCR.ToolButton4Click(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 Money='''+floattostr(CDS_HZ.fieldbyname('money').AsFloat)+''' '); + sql.Add(',BBMoney='''+floattostr(CDS_HZ.fieldbyname('BBMoney').AsFloat)+''' '); + sql.Add(',Price='''+floattostr(CDS_HZ.fieldbyname('Price').AsFloat)+''' '); + sql.Add(',Qty='''+floattostr(CDS_HZ.fieldbyname('Qty').AsFloat)+''' '); + sql.Add(',ps='''+floattostr(CDS_HZ.fieldbyname('ps').AsFloat)+''' '); + sql.Add(',huilv='''+floattostr(CDS_HZ.fieldbyname('huilv').AsFloat)+''' '); + 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.v2Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType:=self.fSYRName; + if ShowModal=1 then + begin + with Self.CDS_HZ do + begin + edit; + FieldByName('FactoryNo').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FactoryName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate YF_Money_CR '); + sql.Add(' Set FactoryNo='''+Trim(Self.CDS_HZ.fieldbyname('FactoryNo').AsString)+''''); + sql.Add(' ,FactoryName='''+Trim(Self.CDS_HZ.fieldbyname('FactoryName').AsString)+''''); + SQL.Add(',Editer='''+Trim(DName)+''''); + SQL.Add(',Edittime=getdate() '); + SQL.Add(' where YFId='''+Trim(Self.CDS_HZ.fieldbyname('YFId').AsString)+''''); + ExecSQL; + end; + end; + end; + finally + frmZdyAttachment.Free; + end; + tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmYSCR.VBBPropertiesEditValueChanged(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); + FieldByName('money').Value:=FieldByName('BBmoney').AsFloat/FieldByName('huilv').AsFloat; + Post; + end; + tv2.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmYSCR.FactoryNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + if Length(TcxTextEdit(Sender).Name) < 2 then + Exit; + FZD := TcxTextEdit(Sender).Name; + // ȡı + FCZSJ := TcxTextEdit(Sender).Text; + + InitGridHC(); + 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..73efa9a --- /dev/null +++ b/应收应付/U_YSCR_Gd.dfm @@ -0,0 +1,519 @@ +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 + 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 = 'CRNO' + 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..db4e918 --- /dev/null +++ b/应收应付/U_YSCR_Gd.pas @@ -0,0 +1,937 @@ +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; + 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..2d7616e --- /dev/null +++ b/应收应付/U_YSMXlist.dfm @@ -0,0 +1,530 @@ +object frmYSMXlist: TfrmYSMXlist + Left = 383 + Top = 384 + Width = 1382 + Height = 754 + 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 = 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 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 = 1366 + Height = 38 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 662 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label3: TLabel + Left = 482 + 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 Label7: TLabel + Left = 818 + Top = 13 + Width = 48 + Height = 12 + Caption = #36153#29992#21517#31216 + end + object Label8: TLabel + Left = 994 + Top = 13 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 690 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = MPRTCodeNameChange + OnKeyPress = factoryNameKeyPress + end + object OrderNo: TEdit + Tag = 2 + Left = 530 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = OrderNoChange + OnKeyPress = factoryNameKeyPress + 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 = 352 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = MPRTCodeNameChange + OnKeyPress = factoryNameKeyPress + end + object CheckBox1: TCheckBox + Left = 1184 + Top = 12 + Width = 97 + Height = 17 + Caption = #31934#30830 + TabOrder = 6 + OnClick = CheckBox1Click + end + object YFName: TEdit + Tag = 2 + Left = 866 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = MPRTCodeNameChange + OnKeyPress = factoryNameKeyPress + end + object ywy: TEdit + Tag = 2 + Left = 1034 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = MPRTCodeNameChange + OnKeyPress = factoryNameKeyPress + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 69 + Width = 1366 + Height = 444 + Align = alTop + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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 v2Column2: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + 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 v2Column3: TcxGridDBColumn + Caption = #25910#27454#36134#25143 + DataBinding.FieldName = 'bankNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + 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 + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + 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..46ee434 --- /dev/null +++ b/应收应付/U_YSMXlist.pas @@ -0,0 +1,321 @@ +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, cxLookAndFeels, + cxLookAndFeelPainters, 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, + cxNavigator; + +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; + CheckBox1: TCheckBox; + v2Column3: TcxGridDBColumn; + YFName: TEdit; + Label7: TLabel; + Label8: TLabel; + ywy: 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 ToolButton1Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure factoryNameKeyPress(Sender: TObject; var Key: Char); + private + { Private declarations } + + procedure InitGrid(); + + public + { Public declarations } + RKFlag,FCYID:String; + fsyrName,fstr2,fDParameters1,fDParameters3:string; + + end; + +var + frmYSMXlist: TfrmYSMXlist; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp, U_ProductOrderNewList; + +{$R *.dfm} + + + +procedure TfrmYSMXlist.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + Filtered:=False; + sql.Add(' exec P_Qry_Ysk_mx :begdate,:enddate,:Type,:factoryName,:fstr2'); + 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(fsyrName); + Parameters.ParamByName('factoryName').Value:=Trim(factoryName.Text); + Parameters.ParamByName('fstr2').Value:=Trim(fstr2); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + 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; + + IF trim(fDParameters3)<>'' then + begin + factoryName.Text:=trim(fDParameters3); + factoryName.Enabled:=false; + end; + + + + IF trim(fDParameters1)='ҵԱѯ'then + begin + ywy.Text:=trim(DName); + ywy.Enabled:=false; + end; + + InitGrid(); + { if fType='1' then + begin + VOrderNo.Caption:='۵'; + Label3.Caption:='۵'; + end; } +end; + +procedure TfrmYSMXlist.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + +{ IF trim(factoryName.Text)='' then + begin + application.MessageBox('ͻϢ','ʾϢ',MB_ICONERROR); + exit; + end; } + 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; + 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(fsyrName)+''' '); + sql.Add(',@factoryName='''+Trim(CDS_HZ.fieldbyname('factoryName').AsString)+''' '); + sql.Add(',@fstr2='''+Trim(fstr2)+''' '); + Open; + end; + + try + IF trim(ADOQueryPrint.FieldByName('syrName').AsString)='˷֯' then + filepath:=ExtractFilePath(Application.ExeName) + 'report\Ӧտ˵2.rmf' + else + IF trim(ADOQueryPrint.FieldByName('syrName').AsString)='һ׷֯' then + filepath:=ExtractFilePath(Application.ExeName) + 'report\Ӧտ˵1.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; + + +procedure TfrmYSMXlist.CheckBox1Click(Sender: TObject); +begin + IF CheckBox1.Checked then + begin + factoryName.Tag:=1; + end + else + begin + factoryName.Tag:=2; + end; + ToolButton2.Click; +end; + +procedure TfrmYSMXlist.factoryNameKeyPress(Sender: TObject; var Key: Char); +begin + IF key =#13 then + begin + TBRafresh.Click; + end; +end; + +end. diff --git a/应收应付/U_YSSKList.dfm b/应收应付/U_YSSKList.dfm new file mode 100644 index 0000000..53ed7b6 --- /dev/null +++ b/应收应付/U_YSSKList.dfm @@ -0,0 +1,429 @@ +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 = 1082 + 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 Label7: TLabel + Left = 766 + Top = 13 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + 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 = 1130 + 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 = 654 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 5 + OnChange = FactoryNameChange + end + object CheckBox1: TCheckBox + Left = 920 + Top = 12 + Width = 97 + Height = 17 + Caption = #26412#26399#27424#27454' > 0' + Checked = True + State = cbChecked + TabOrder = 6 + OnClick = CheckBox1Click + end + object ywy: TEdit + Tag = 2 + Left = 806 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 7 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1366 + Height = 645 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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 = 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 v2SYRName: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 105 + 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' + HeaderAlignmentHorz = taCenter + Width = 135 + end + object v2Column11: TcxGridDBColumn + Caption = #22320#21306 + DataBinding.FieldName = 'FHdq' + 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' + 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 + object v2BQKP: TcxGridDBColumn + Caption = #26412#26399#24320#31080 + DataBinding.FieldName = 'BQKP' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2WKP: TcxGridDBColumn + Caption = #26410#24320#31080 + DataBinding.FieldName = 'WKP' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v2Column10: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'ywy' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + 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..b4a39db --- /dev/null +++ b/应收应付/U_YSSKList.pas @@ -0,0 +1,224 @@ +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, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator; + +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; + v2BQKP: TcxGridDBColumn; + v2WKP: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column7: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + Label1: TLabel; + ComTaiTou: TEdit; + v2JMmoney: TcxGridDBColumn; + v2FHAddress: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + Label4: TLabel; + FHAddress: TEdit; + Label5: TLabel; + FHdq: TEdit; + v2SYRName: TcxGridDBColumn; + CheckBox1: TCheckBox; + ywy: TEdit; + Label7: TLabel; + 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 ToolButton2Click(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + fDParameters1,fDParameters3:string; + fsyrName:string; + fstr2: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 + + Close; + Filtered:=False; + SQL.Clear; + if Trim(DParameters10)='' then + sql.Add(' exec P_YSSK_List :begdate,:Enddate,:syrName,:fstr2') + 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)); + Parameters.ParamByName('syrName').Value:=Trim(fsyrName); + Parameters.ParamByName('fstr2').Value:=Trim(fstr2); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + ToolButton2.Click; + end; +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 + + Label1.Visible:=True; + ComTaiTou.Visible:=True; + end else + begin + Label1.Visible:=False; + ComTaiTou.Visible:=False; + end; + + IF trim(fDParameters3)<>'' then + begin + factoryName.Text:=trim(fDParameters3); + factoryName.Enabled:=false; + end; + + IF trim(fDParameters1)='ҵԱѯ'then + begin + ywy.Text:=trim(DName); + ywy.Enabled:=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; + fsj:=Trim(SGetFilters(Panel1,1,2)); + IF CheckBox1.Checked then + begin + If trim(fsj)<>'' then + fsj:=fsj+' and BQMoney>0 ' + else + fsj:=fsj+' BQMoney>0 '; + end; + SDofilter(ADOQueryMain,fsj); + 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; + +procedure TfrmYSSKList.CheckBox1Click(Sender: TObject); +begin + ToolButton2.Click; +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..454f964 --- /dev/null +++ b/应收应付/U_ZdyAttachment.dfm @@ -0,0 +1,332 @@ +object frmZdyAttachment: TfrmZdyAttachment + Left = 126 + Top = 42 + Width = 1064 + 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 + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1048 + 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 + 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 = 1048 + 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 = 1048 + 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_YSYF.SHuangSe + Styles.IncSearch = DataLink_YSYF.SHuangSe + Styles.Selection = DataLink_YSYF.SHuangSe + Styles.Header = DataLink_YSYF.handBlack + 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' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 127 + 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_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..912b0e3 --- /dev/null +++ b/应收应付/U_ZdyAttachment.pas @@ -0,0 +1,203 @@ +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; + 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; + fywy: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))); + IF trim(fywy)<>'' then + sql.Add(' and isnull(fywy,'''')='+quotedstr(trim(DName))); + 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_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..e9c1cc1 --- /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"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/应收应付/YSYF.dof b/应收应付/YSYF.dof new file mode 100644 index 0000000..55c2367 --- /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=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/应收应付/YSYF.dpr b/应收应付/YSYF.dpr new file mode 100644 index 0000000..7c7379d --- /dev/null +++ b/应收应付/YSYF.dpr @@ -0,0 +1,68 @@ +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_YF_Money_LL in 'U_YF_Money_LL.pas' {frmMoney_LL}, + U_YF_Money_Sub in 'U_YF_Money_Sub.pas' {FrmYF_Money_Sub}, + U_YF_Money_LL_list in 'U_YF_Money_LL_list.pas' {frmYF_Money_LL_list}, + U_SysLogHelp in '..\..\..\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp}, + cxPC in 'C:\Program Files (x86)\DevExpress1422D7\Library\Sources\cxPC.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/应收应付/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/样品/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..f38a3a1 --- /dev/null +++ b/样品/SYSTEMSET.ini @@ -0,0 +1,5 @@ +[SERVER] +ַ=47.100.182.1 +ַ=40 +ǷԶ=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..fc5a18b --- /dev/null +++ b/样品/U_CPAdd.dfm @@ -0,0 +1,393 @@ +object frmCPAdd: TfrmCPAdd + Left = 457 + Top = 276 + Width = 1296 + Height = 515 + 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 = 1280 + 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 + OnClick = CheckBox1Click + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 33 + Width = 1280 + Height = 443 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + 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 + Styles.Header = DataLink_YPGL.Default + object v1Column1: TcxGridDBColumn + Tag = 3 + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 112 + end + object v1Column13: TcxGridDBColumn + Tag = 3 + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.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_YPGL.Default + Width = 80 + end + object v1Column3: TcxGridDBColumn + Tag = 3 + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column4: TcxGridDBColumn + Tag = 3 + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Tag = 3 + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Tag = 3 + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 63 + end + object v1Column7: TcxGridDBColumn + Tag = 3 + Caption = #25104#21697#38376#24133 + DataBinding.FieldName = 'CYMF' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 62 + end + object v1Column8: TcxGridDBColumn + Tag = 3 + Caption = #25104#21697#20811#37325 + DataBinding.FieldName = 'CYKZ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 68 + end + object v1Column9: TcxGridDBColumn + Tag = 3 + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column41: TcxGridDBColumn + Tag = 3 + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + Styles.Header = DataLink_YPGL.Default + Width = 60 + end + object v1Column14: TcxGridDBColumn + Tag = 3 + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 70 + end + object v1Column20: TcxGridDBColumn + Tag = 3 + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column20PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + VisibleForCustomization = False + Width = 53 + end + object v1Column10: TcxGridDBColumn + Tag = 3 + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + VisibleForCustomization = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Tag = 3 + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 85 + end + object v1Column12: TcxGridDBColumn + Tag = 3 + Caption = #32769#32534#21495 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column15: TcxGridDBColumn + Tag = 3 + Caption = #22383#24067#23494#24230 + DataBinding.FieldName = 'defstr3' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column16: TcxGridDBColumn + Tag = 3 + Caption = #32463#32428#25467#24230 + DataBinding.FieldName = 'defstr4' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column17: TcxGridDBColumn + Tag = 3 + Caption = #25346#38057#25968 + DataBinding.FieldName = 'defstr5' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column18: TcxGridDBColumn + Tag = 3 + Caption = #24211#23384#31859#25968 + DataBinding.FieldName = 'defnote1' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column19: TcxGridDBColumn + Tag = 3 + Caption = #24211#23384#20301#32622 + DataBinding.FieldName = 'defnote2' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column21: TcxGridDBColumn + Tag = 3 + Caption = #35746#21333#26469#28304 + DataBinding.FieldName = 'defnote3' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column22: TcxGridDBColumn + Tag = 3 + Caption = #26222#36890#26469#28304'('#24037#21378')' + DataBinding.FieldName = 'defnote4' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column23: TcxGridDBColumn + Tag = 3 + Caption = #32553#29575 + DataBinding.FieldName = 'Price1' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##' + Properties.OnEditValueChanged = v1Column23PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column29: TcxGridDBColumn + Tag = 3 + Caption = #25253#20215 + DataBinding.FieldName = 'Price7' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 60 + end + object Tv1Column1: TcxGridDBColumn + Tag = 3 + Caption = #22383#24067#38376#24133 + DataBinding.FieldName = 'PBmf' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column2: TcxGridDBColumn + Tag = 3 + Caption = #22383#24067#20811#37325 + DataBinding.FieldName = 'PBkz' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column3: TcxGridDBColumn + Tag = 3 + Caption = #22383#24067#36153 + DataBinding.FieldName = 'Price2' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column4: TcxGridDBColumn + Tag = 3 + Caption = #26579#36153 + DataBinding.FieldName = 'price3' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column6: TcxGridDBColumn + Tag = 3 + Caption = 'FOB'#36816#36153'+'#21253#35013 + DataBinding.FieldName = 'price4' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column5: TcxGridDBColumn + Tag = 3 + Caption = #21518#21152#24037#36153 + DataBinding.FieldName = 'price5' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column7: TcxGridDBColumn + Tag = 3 + Caption = #21442#32771#20215 + DataBinding.FieldName = 'price6' + HeaderAlignmentHorz = taCenter + Width = 60 + 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_YPGL.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_YPGL.ADOLink + Parameters = <> + Left = 589 + Top = 169 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 573 + Top = 121 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 528 + Top = 216 + end +end diff --git a/样品/U_CPAdd.pas b/样品/U_CPAdd.pas new file mode 100644 index 0000000..893570a --- /dev/null +++ b/样品/U_CPAdd.pas @@ -0,0 +1,682 @@ +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, cxLookAndFeels, + cxLookAndFeelPainters, 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, cxNavigator; + +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; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column29: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: 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 v1Column23PropertiesEditValueChanged(Sender: TObject); + 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_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; + 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, 'Ʒ'); + if DParameters2 = '޼۸' then + begin + Tv1Column3.Visible := False; + Tv1Column4.Visible := False; + Tv1Column5.Visible := False; + Tv1Column6.Visible := False; + Tv1Column7.Visible := False; + + Tv1Column3.Options.Editing := False; + Tv1Column4.Options.Editing := False; + Tv1Column5.Options.Editing := False; + Tv1Column6.Options.Editing := False; + Tv1Column7.Options.Editing := False; + end; + 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 j 1 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); +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; } + 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.v1Column23PropertiesEditValueChanged(Sender: TObject); +var + Fieldname: string; + fPrice6: double; +begin + Fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + + with CDS_Sub do + begin + edit; + fieldbyname(Fieldname).Value := TcxTextEdit(Sender).EditingText; + + fPrice6 := 0; + if 1 - fieldbyname('Price1').AsFloat > 0 then + begin + fPrice6 := fieldbyname('Price2').AsFloat / (1 - fieldbyname('Price1').AsFloat); + fPrice6 := fPrice6 + fieldbyname('Price3').AsFloat + fieldbyname('Price4').AsFloat + fieldbyname('Price5').AsFloat; + end; + + FieldByName('Price6').Value := strtofloat(format('%.1f', [fPrice6])); + FieldByName('Price7').Value := strtofloat(format('%.1f', [fieldbyname('Price6').AsFloat / 0.8])); + post; + end; + Tv1.Controller.EditingController.ShowEdit(); +end; + +end. + diff --git a/样品/U_CPAddWJE.dfm b/样品/U_CPAddWJE.dfm new file mode 100644 index 0000000..0937273 --- /dev/null +++ b/样品/U_CPAddWJE.dfm @@ -0,0 +1,359 @@ +object frmCPAddWJE: TfrmCPAddWJE + Left = 457 + Top = 276 + Width = 1296 + Height = 515 + Align = alClient + Caption = #26032#22686 + 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 = 1280 + 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 + OnClick = CheckBox1Click + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 33 + Width = 1280 + Height = 443 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + 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 + Styles.Header = DataLink_YPGL.Default + object v1Column1: TcxGridDBColumn + Tag = 3 + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'CYNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 112 + end + object v1Column13: TcxGridDBColumn + Tag = 3 + Caption = #38472#21015#20301#32622 + DataBinding.FieldName = 'DefStr2' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.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_YPGL.Default + Width = 80 + end + object v1Column3: TcxGridDBColumn + Tag = 3 + Caption = #33521#25991#21517#31216 + DataBinding.FieldName = 'CYEName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column4: TcxGridDBColumn + Tag = 3 + Caption = #35268#26684 + DataBinding.FieldName = 'CYSpec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column5: TcxGridDBColumn + Tag = 3 + Caption = #20013#25991#25104#20998 + DataBinding.FieldName = 'CYCF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 66 + end + object v1Column6: TcxGridDBColumn + Tag = 3 + Caption = #33521#25991#25104#20998 + DataBinding.FieldName = 'CYECF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 63 + end + object v1Column7: TcxGridDBColumn + Tag = 3 + Caption = #25104#21697#38376#24133 + DataBinding.FieldName = 'CYMF' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 62 + end + object v1Column8: TcxGridDBColumn + Tag = 3 + Caption = #25104#21697#20811#37325 + DataBinding.FieldName = 'CYKZ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 68 + end + object v1Column9: TcxGridDBColumn + Tag = 3 + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'CYColor' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 67 + end + object v1Column41: TcxGridDBColumn + Tag = 3 + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'CYColorEng' + Styles.Header = DataLink_YPGL.Default + Width = 60 + end + object v1Column14: TcxGridDBColumn + Tag = 3 + Caption = #33457#22411 + DataBinding.FieldName = 'CYHX' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 70 + end + object v1Column20: TcxGridDBColumn + Tag = 3 + Caption = #20844#26020#20215 + DataBinding.FieldName = 'CYPriceKg' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column20PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + VisibleForCustomization = False + Width = 53 + end + object v1Column10: TcxGridDBColumn + Tag = 3 + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + VisibleForCustomization = False + Width = 66 + end + object v1Column11: TcxGridDBColumn + Tag = 3 + Caption = #22791#27880 + DataBinding.FieldName = 'CYNote' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 85 + end + object v1Column12: TcxGridDBColumn + Tag = 3 + Caption = #32769#32534#21495 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column15: TcxGridDBColumn + Tag = 3 + Caption = #22383#24067#23494#24230 + DataBinding.FieldName = 'defstr3' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column16: TcxGridDBColumn + Tag = 3 + Caption = #32463#32428#25467#24230 + DataBinding.FieldName = 'defstr4' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column17: TcxGridDBColumn + Tag = 3 + Caption = #25346#38057#25968 + DataBinding.FieldName = 'defstr5' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column18: TcxGridDBColumn + Tag = 3 + Caption = #24211#23384#31859#25968 + DataBinding.FieldName = 'defnote1' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column19: TcxGridDBColumn + Tag = 3 + Caption = #24211#23384#20301#32622 + DataBinding.FieldName = 'defnote2' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column21: TcxGridDBColumn + Tag = 3 + Caption = #35746#21333#26469#28304 + DataBinding.FieldName = 'defnote3' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column22: TcxGridDBColumn + Tag = 3 + Caption = #26222#36890#26469#28304'('#24037#21378')' + DataBinding.FieldName = 'defnote4' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column23: TcxGridDBColumn + Tag = 3 + Caption = #32553#29575 + DataBinding.FieldName = 'Price1' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##' + Properties.OnEditValueChanged = v1Column23PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column29: TcxGridDBColumn + Tag = 3 + Caption = #25253#20215 + DataBinding.FieldName = 'Price7' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 60 + end + object Tv1Column1: TcxGridDBColumn + Tag = 3 + Caption = #22383#24067#38376#24133 + DataBinding.FieldName = 'PBmf' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column2: TcxGridDBColumn + Tag = 3 + Caption = #22383#24067#20811#37325 + DataBinding.FieldName = 'PBkz' + HeaderAlignmentHorz = taCenter + Width = 60 + 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_YPGL.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_YPGL.ADOLink + Parameters = <> + Left = 589 + Top = 169 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YPGL.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 573 + Top = 121 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 528 + Top = 216 + end +end diff --git a/样品/U_CPAddWJE.pas b/样品/U_CPAddWJE.pas new file mode 100644 index 0000000..622a23d --- /dev/null +++ b/样品/U_CPAddWJE.pas @@ -0,0 +1,677 @@ +unit U_CPAddWJE; + +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, cxLookAndFeels, + cxLookAndFeelPainters, 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, cxNavigator; + +type + TfrmCPAddWJE = 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; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column29: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: 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 v1Column23PropertiesEditValueChanged(Sender: TObject); + private + canshu1: string; + Fint: Integer; + procedure InitSubGrid(); + function SaveData(): Boolean; + { Private declarations } + public + FCYID, FCYCode, FCPID, FCPNO: string; + CopyInt: Integer; + + { Public declarations } + end; + +var + frmCPAddWJE: TfrmCPAddWJE; + +implementation + +uses + U_DataLink, U_Fun, U_iniParam, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCPAddWJE.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 TfrmCPAddWJE.FormShow(Sender: TObject); +var + fsj, FFSj, FFQZSj, FFFSj, FFType: string; + FFInt, i, j: Integer; + ii: LongInt; +begin + //canshu1:=Trim(DParameters1); + ReadCxGrid('Ʒ༭YT', Tv1, 'Ʒ1'); +// if DParameters2 = '޼۸' then +// begin +// Tv1Column3.Visible := False; +// Tv1Column4.Visible := False; +// Tv1Column5.Visible := False; +// Tv1Column6.Visible := False; +// Tv1Column7.Visible := False; +// +// Tv1Column3.Options.Editing := False; +// Tv1Column4.Options.Editing := False; +// Tv1Column5.Options.Editing := False; +// Tv1Column6.Options.Editing := False; +// Tv1Column7.Options.Editing := False; +// end; + 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 j 1 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 TfrmCPAddWJE.ToolButton1Click(Sender: TObject); +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; } + ToolBar1.SetFocus; + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + ModalResult := 1; + end; +end; + +procedure TfrmCPAddWJE.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 TfrmCPAddWJE.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 TfrmCPAddWJE.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 TfrmCPAddWJE.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 TfrmCPAddWJE.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 TfrmCPAddWJE.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 TfrmCPAddWJE.CheckBox1Click(Sender: TObject); +begin + if CheckBox1.Checked = True then + begin + canshu1 := 'Ӣ'; + end + else + begin + canshu1 := ''; + end; +end; + +procedure TfrmCPAddWJE.v1Column23PropertiesEditValueChanged(Sender: TObject); +var + Fieldname: string; + fPrice6: double; +begin + Fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + + with CDS_Sub do + begin + edit; + fieldbyname(Fieldname).Value := TcxTextEdit(Sender).EditingText; + + fPrice6 := 0; + if 1 - fieldbyname('Price1').AsFloat > 0 then + begin + fPrice6 := fieldbyname('Price2').AsFloat / (1 - fieldbyname('Price1').AsFloat); + fPrice6 := fPrice6 + fieldbyname('Price3').AsFloat + fieldbyname('Price4').AsFloat + fieldbyname('Price5').AsFloat; + end; + + FieldByName('Price6').Value := strtofloat(format('%.1f', [fPrice6])); + FieldByName('Price7').Value := strtofloat(format('%.1f', [fieldbyname('Price6').AsFloat / 0.8])); + post; + end; + Tv1.Controller.EditingController.ShowEdit(); +end; + +end. + diff --git a/样品/U_CPManage.dfm b/样品/U_CPManage.dfm new file mode 100644 index 0000000..10c9405 --- /dev/null +++ b/样品/U_CPManage.dfm @@ -0,0 +1,899 @@ +object frmCPManage: TfrmCPManage + Left = 325 + Top = 231 + Width = 1382 + Height = 754 + Caption = #20135#21697#26723#26696#21333#20215 + 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 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 ToolButton5: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #22270#29255#19978#20256 + ImageIndex = 109 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 104 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 702 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxSplitter1: TcxSplitter + Left = 220 + Top = 93 + Width = 8 + Height = 622 + 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 = 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 = 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 = #33521#25991#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 = #38472#21015#20301#32622 + end + object Label15: TLabel + Left = 850 + Top = 39 + Width = 48 + Height = 12 + Caption = #24211#23384#20301#32622 + 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 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 = 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 defnote2: 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 = 622 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object cxDBTreeList1: TcxDBTreeList + Left = 2 + Top = 2 + Width = 216 + Height = 618 + Align = alClient + Bands = < + item + end> + DataController.DataSource = DataSource1 + DataController.ParentField = 'CPParent' + DataController.KeyField = 'CPID' + Navigator.Buttons.CustomButtons = <> + 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 = 0 + Position.RowIndex = 0 + Position.BandIndex = 0 + Summary.FooterSummaryItems = <> + Summary.GroupFooterSummaryItems = <> + end + end + end + object Panel3: TPanel + Left = 228 + Top = 93 + Width = 1138 + Height = 622 + Align = alClient + Caption = 'Panel3' + TabOrder = 5 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 1136 + Height = 425 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnKeyDown = Tv1KeyDown + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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_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#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 + Options.Editing = False + VisibleForCustomization = False + Width = 56 + end + object v1Column13: TcxGridDBColumn + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = 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 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' + 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' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column28: TcxGridDBColumn + Caption = #26579#36153 + DataBinding.FieldName = 'price3' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column29: TcxGridDBColumn + Caption = 'FOB'#36816#36153'+'#21253#35013 + DataBinding.FieldName = 'price4' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column30: TcxGridDBColumn + Caption = #21518#21152#24037#36153 + DataBinding.FieldName = 'price5' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column31: TcxGridDBColumn + Caption = #21442#32771#20215 + DataBinding.FieldName = 'price6' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object Tv1Column1: TcxGridDBColumn + Caption = #22383#24067#38376#24133 + DataBinding.FieldName = 'PBmf' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column2: TcxGridDBColumn + Caption = #22383#24067#20811#37325 + DataBinding.FieldName = 'PBkz' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object GroupBox1: TGroupBox + Left = 1 + Top = 426 + Width = 1136 + Height = 195 + Align = alBottom + Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289 + TabOrder = 1 + Visible = False + object ScrollBox1: TScrollBox + Left = 2 + Top = 14 + Width = 1132 + 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..34012ea --- /dev/null +++ b/样品/U_CPManage.pas @@ -0,0 +1,910 @@ +unit U_CPManage; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,U_SLT, + 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, cxLookAndFeels, + cxLookAndFeelPainters, 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, cxNavigator, cxTLdxBarBuiltInMenu; + +type + TfrmCPManage = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryTree20: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label4: TLabel; + CYEName: TEdit; + Label5: TLabel; + CYSpec: TEdit; + 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; + Label3: TLabel; + CYNO: TEdit; + ToolButton7: TToolButton; + Panel2: TPanel; + 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; + ADOQueryTree: TClientDataSet; + Panel5: TPanel; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + Label11: TLabel; + Label12: TLabel; + defstr1: TEdit; + Label13: TLabel; + DefStr2: TEdit; + Label14: TLabel; + defnote2: TEdit; + Label15: TLabel; + defnote3: TEdit; + Label16: TLabel; + 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; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: 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 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); + 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; + +{$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); +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, 'Ʒ'); + 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); + 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.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(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 + + 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.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 + 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; +//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; + 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; + +end. + diff --git a/样品/U_CPManageCX.dfm b/样品/U_CPManageCX.dfm new file mode 100644 index 0000000..80ac772 --- /dev/null +++ b/样品/U_CPManageCX.dfm @@ -0,0 +1,700 @@ +object frmCPManageCX: TfrmCPManageCX + Left = 543 + Top = 153 + Width = 1148 + Height = 657 + 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 cxSplitter1: TcxSplitter + Left = 220 + Top = 72 + Width = 8 + Height = 546 + HotZoneClassName = 'TcxMediaPlayer9Style' + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1132 + Height = 41 + 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 = 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 = 1046 + 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 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 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 = 1004 + 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 + 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 = 3 + Visible = False + end + object Panel3: TPanel + Left = 228 + Top = 72 + Width = 904 + Height = 546 + Align = alClient + Caption = 'Panel3' + TabOrder = 4 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 902 + Height = 544 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnKeyDown = Tv1KeyDown + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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_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 = #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 + Options.Editing = False + VisibleForCustomization = False + Width = 56 + end + object v1Column13: TcxGridDBColumn + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = 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 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' + 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 + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object Panel5: TPanel + Left = 0 + Top = 72 + Width = 220 + Height = 546 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object cxDBTreeList1: TcxDBTreeList + Left = 2 + Top = 2 + Width = 216 + Height = 542 + Align = alClient + Bands = < + item + end> + DataController.DataSource = DataSource1 + DataController.ParentField = 'CPParent' + DataController.KeyField = 'CPID' + Navigator.Buttons.CustomButtons = <> + 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 = 0 + Position.RowIndex = 0 + Position.BandIndex = 0 + Summary.FooterSummaryItems = <> + Summary.GroupFooterSummaryItems = <> + 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 + 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 + 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..64b2978 --- /dev/null +++ b/样品/U_CPManageCX.pas @@ -0,0 +1,669 @@ +unit U_CPManageCX; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,U_SLT, + 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, cxLookAndFeels, + cxLookAndFeelPainters, 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, cxNavigator, cxTLdxBarBuiltInMenu; + +type + TfrmCPManageCX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + 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; + CYEName: TEdit; + CYSpec: TEdit; + CYNO: TEdit; + Edit1: TEdit; + Label7: TLabel; + CYKZ: TEdit; + defstr1: TEdit; + Label13: TLabel; + 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; + cxGrid1Level1: TcxGridLevel; + adoqueryPicture: TADOQuery; + Panel5: TPanel; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + 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; + Mach: array of TfrmSlt; + +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 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; + 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(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 + 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.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/样品/U_CPManageWJE.dfm b/样品/U_CPManageWJE.dfm new file mode 100644 index 0000000..5f01429 --- /dev/null +++ b/样品/U_CPManageWJE.dfm @@ -0,0 +1,858 @@ +object frmCPManageWJE: TfrmCPManageWJE + Left = 540 + Top = 236 + 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 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 ToolButton5: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #22270#29255#19978#20256 + ImageIndex = 109 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #22270#29255#19979#36733 + ImageIndex = 104 + OnClick = ToolButton6Click + end + object TBClose: TToolButton + Left = 702 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxSplitter1: TcxSplitter + Left = 220 + Top = 93 + Width = 8 + Height = 622 + 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 = 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 = 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 = #33521#25991#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 = #38472#21015#20301#32622 + end + object Label15: TLabel + Left = 850 + Top = 39 + Width = 48 + Height = 12 + Caption = #24211#23384#20301#32622 + 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 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 = 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 defnote2: 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 = 622 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object cxDBTreeList1: TcxDBTreeList + Left = 2 + Top = 2 + Width = 216 + Height = 618 + Align = alClient + Bands = < + item + end> + DataController.DataSource = DataSource1 + DataController.ParentField = 'CPParent' + DataController.KeyField = 'CPID' + Navigator.Buttons.CustomButtons = <> + 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 = 0 + Position.RowIndex = 0 + Position.BandIndex = 0 + Summary.FooterSummaryItems = <> + Summary.GroupFooterSummaryItems = <> + end + end + end + object Panel3: TPanel + Left = 228 + Top = 93 + Width = 1138 + Height = 622 + Align = alClient + Caption = 'Panel3' + TabOrder = 5 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 1136 + Height = 425 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnKeyDown = Tv1KeyDown + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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_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#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 + Options.Editing = False + VisibleForCustomization = False + Width = 56 + end + object v1Column13: TcxGridDBColumn + Caption = #31859#20215 + DataBinding.FieldName = 'CYPriceM' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = 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 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' + 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 Tv1Column1: TcxGridDBColumn + Caption = #22383#24067#38376#24133 + DataBinding.FieldName = 'PBmf' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column2: TcxGridDBColumn + Caption = #22383#24067#20811#37325 + DataBinding.FieldName = 'PBkz' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object GroupBox1: TGroupBox + Left = 1 + Top = 426 + Width = 1136 + 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 = 1132 + 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_CPManageWJE.pas b/样品/U_CPManageWJE.pas new file mode 100644 index 0000000..1f9e28d --- /dev/null +++ b/样品/U_CPManageWJE.pas @@ -0,0 +1,865 @@ +unit U_CPManageWJE; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,U_SLT, + 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, cxLookAndFeels, + cxLookAndFeelPainters, 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, cxNavigator, cxTLdxBarBuiltInMenu; + +type + TfrmCPManageWJE = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBDel: TToolButton; + TBClose: TToolButton; + DataSource1: TDataSource; + ADOQueryTree20: TADOQuery; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + cxGridPopupMenu1: TcxGridPopupMenu; + cxSplitter1: TcxSplitter; + Panel1: TPanel; + Label2: TLabel; + CYID: TEdit; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Label1: TLabel; + CYName: TEdit; + Label4: TLabel; + CYEName: TEdit; + Label5: TLabel; + CYSpec: TEdit; + 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; + Label3: TLabel; + CYNO: TEdit; + ToolButton7: TToolButton; + Panel2: TPanel; + 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; + ADOQueryTree: TClientDataSet; + Panel5: TPanel; + cxDBTreeList1: TcxDBTreeList; + cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; + Label11: TLabel; + Label12: TLabel; + defstr1: TEdit; + Label13: TLabel; + DefStr2: TEdit; + Label14: TLabel; + defnote2: TEdit; + Label15: TLabel; + defnote3: TEdit; + Label16: TLabel; + 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; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: 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 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); + 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 + frmCPManageWJE: TfrmCPManageWJE; + Mach: array of TfrmSlt; + +implementation +uses + U_DataLink,U_Fun,U_CPAddWJE,U_FileUp,U_YPCR; + +{$R *.dfm} + +procedure TfrmCPManageWJE.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 TfrmCPManageWJE.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 TfrmCPManageWJE.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 TfrmCPManageWJE.FormDestroy(Sender: TObject); +begin + frmCPManageWJE:=nil; +end; + +procedure TfrmCPManageWJE.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPManageWJE.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ƷбYT',Tv1,'Ʒ1'); + if DirectoryExists(ExtractFileDir('D:\Right1209')) then + winexec('cmd /c rd /s /q D:\Right1209',sw_hide); + Close; +end; +procedure TfrmCPManageWJE.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 TfrmCPManageWJE.FormShow(Sender: TObject); +begin + InitTree(); + ReadCxGrid('ƷбYT',Tv1,'Ʒ1'); + + 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 TfrmCPManageWJE.cxDBTreeList1DblClick(Sender: TObject); +begin + InitGrid(); + TJGS(); +end; + +procedure TfrmCPManageWJE.TBAddClick(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + try + frmCPAddWJE:=TfrmCPAddWJE.Create(Application); + with frmCPAddWJE do + begin + CopyInt:=0; + FCYID:=''; + DParameters2:='޼۸'; + 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 frmCPAddWJE.Tv1.ColumnCount-1 do + begin + FieldName:=frmCPAddWJE.Tv1.Columns[i].DataBinding.FilterFieldName; + if Trim(FieldName)<>'' then + begin + Self.CDS_Main.FieldByName(FieldName).Value:=frmCPAddWJE.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 + frmCPAddWJE.Free; + end; +end; + +procedure TfrmCPManageWJE.TBRafreshClick(Sender: TObject); +begin + InitTree(); + InitGrid(); + TJGS(); +end; + +procedure TfrmCPManageWJE.ToolButton3Click(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + try + frmCPAddWJE:=TfrmCPAddWJE.Create(Application); + with frmCPAddWJE do + begin + CopyInt:=0; + DParameters2:='޼۸'; + 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 frmCPAddWJE.Tv1.ColumnCount-1 do + begin + FieldName:=frmCPAddWJE.Tv1.Columns[i].DataBinding.FilterFieldName; + if Trim(FieldName)<>'' then + begin + Self.CDS_Main.FieldByName(FieldName).Value:=frmCPAddWJE.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 + frmCPAddWJE.Free; + end; +end; + +procedure TfrmCPManageWJE.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 TfrmCPManageWJE.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 TfrmCPManageWJE.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 TfrmCPManageWJE.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel('Ʒ',cxGrid1); +end; + +procedure TfrmCPManageWJE.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(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 + + 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 TfrmCPManageWJE.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 TfrmCPManageWJE.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 TfrmCPManageWJE.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 TfrmCPManageWJE.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton6.Click; +end; + +procedure TfrmCPManageWJE.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 TfrmCPManageWJE.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 TfrmCPManageWJE.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 TfrmCPManageWJE.Tv1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + if Key=46 then + begin + TBDel.Click; + end; +end; + +procedure TfrmCPManageWJE.ToolButton7Click(Sender: TObject); +var + i:Integer; + FieldName:String; +begin + + try + frmCPAddWJE:=TfrmCPAddWJE.Create(Application); + with frmCPAddWJE do + begin + CopyInt:=1; + DParameters2:='޼۸'; + 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 frmCPAddWJE.Tv1.ColumnCount-1 do + begin + FieldName:=frmCPAddWJE.Tv1.Columns[i].DataBinding.FilterFieldName; + if Trim(FieldName)<>'' then + begin + Self.CDS_Main.FieldByName(FieldName).Value:=frmCPAddWJE.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 + frmCPAddWJE.Free; + end; +end; + +procedure TfrmCPManageWJE.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 TfrmCPManageWJE.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 TfrmCPManageWJE.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 TfrmCPManageWJE.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 TfrmCPManageWJE.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; + +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..9722556 --- /dev/null +++ b/样品/U_DataLink.dfm @@ -0,0 +1,17982 @@ +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 + 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 = -14 + 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 = -14 + 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 cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + 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..315b821 --- /dev/null +++ b/样品/U_DataLink.pas @@ -0,0 +1,90 @@ +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; //ǰ + PicSvr:string; + DName:string ; //#û#// + DCode:string ; //#û#// + Ddatabase:string; //#ݿ#// + DTitCaption:string; //##// + UserDataFlag: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; + 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_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..2f54c2c --- /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 = 585 + Height = 361 + Align = alClient + TabOrder = 0 + object TV7: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + 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 = 585 + Top = 41 + Width = 59 + Height = 361 + 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..b08b782 --- /dev/null +++ b/样品/U_FileUp.pas @@ -0,0 +1,375 @@ +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, 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 + 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 + ReadINIFile10(); + server := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', 'ַ', '127.0.0.1'); +// IdFTP1.Host := server; //PicSvr; + 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(UserDataFlag + '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; + { with ADOQueryFile do + begin + Close; + SQL.Clear; + SQL.Add('select * from XD_File where CYID='''+Trim(CYID)+''''); + SQL.Add(' and FileType=''YP'''); + 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..052a4e2 --- /dev/null +++ b/样品/U_GetDllForm.pas @@ -0,0 +1,254 @@ +unit U_GetDllForm; + +interface + +uses + Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, dxcore,IniFiles, + activeX; + +function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; export; stdcall; + +function ConnData(): Boolean; + +implementation + +uses + U_DataLink, U_CPType, U_CPManage, U_KHGetCPManage, U_iniParam, U_CPManageCX, + U_CPManageWJE; + + ///////////////////////////////////////////////////////////////// + // ˵:ȡ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.100.182.1,7781'; + dtbase := 'guihuadata'; + user := 'sa'; + pswd := 'rightsoft@123'; + + 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:='Ӣ'; + //DParameters2:='ŷ޵λ'; +// 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; + 21: // Ʒ޵ + begin + if frmCPManageWJE = nil then + begin + frmCPManageWJE := TfrmCPManageWJE.Create(application.MainForm); + with frmCPManageWJE do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCPManageWJE.BringToFront; + // + mnewHandle := frmCPManageWJE.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'); + UserDataFlag:=IniFile.ReadString('SERVER', 'ַ','-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 + CoInitialize(nil); + dxUnitsLoader.Initialize; + + +finalization + DataLink_YPGL.Free; + application := NewDllApp; + dxUnitsLoader.Finalize; + +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..24229ee --- /dev/null +++ b/样品/U_KHGetCPAdd.dfm @@ -0,0 +1,450 @@ +object frmKHGetCPAdd: TfrmKHGetCPAdd + Left = 21 + Top = 103 + 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 + 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_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 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_YPGL.Default + Width = 68 + end + object v1Column16: TcxGridDBColumn + Tag = 3 + DataBinding.FieldName = 'CIF' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column16PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.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_YPGL.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_YPGL.Default + Width = 51 + end + object v1Column10: TcxGridDBColumn + Tag = 3 + Caption = #20154#27665#24065#20215#26684 + DataBinding.FieldName = 'RMBPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 82 + end + object v1Column12: TcxGridDBColumn + Tag = 3 + Caption = #32654#37329#20215#26684 + DataBinding.FieldName = 'USDPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 70 + 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 = 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 TLabel + Left = 51 + Top = 72 + 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 = 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 + object CKYwy: TEdit + Left = 105 + Top = 72 + 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..d3147f2 --- /dev/null +++ b/样品/U_KHGetCPAdd.pas @@ -0,0 +1,516 @@ +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; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + CDS_Sub: TClientDataSet; + ADOQueryMain: TADOQuery; + DataSource2: 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; + 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..1d2d0ea --- /dev/null +++ b/样品/U_KHGetCPManage.dfm @@ -0,0 +1,593 @@ +object frmKHGetCPManage: TfrmKHGetCPManage + Left = -8 + Top = -8 + 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 + end + object v1Column10: TcxGridDBColumn + Caption = #20154#27665#24065#20215#26684 + DataBinding.FieldName = 'RMBPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 82 + end + object v1Column15: TcxGridDBColumn + Caption = #32654#37329#20215#26684 + DataBinding.FieldName = 'USDPrice' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 64 + end + object v1Column16: TcxGridDBColumn + Caption = #27719#29575 + DataBinding.FieldName = 'HuiLv' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 60 + end + object v1Column17: TcxGridDBColumn + Caption = #31995#25968 + DataBinding.FieldName = 'LiRunLv' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 57 + end + object v1Column13: TcxGridDBColumn + DataBinding.FieldName = 'CIF' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_YPGL.Default + Width = 47 + 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..c078769 --- /dev/null +++ b/样品/U_KHGetCPManage.pas @@ -0,0 +1,585 @@ +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; + 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; + 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; + 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..004753f --- /dev/null +++ b/样品/U_SLT.dfm @@ -0,0 +1,35 @@ +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 + OnDblClick = cxImage1DblClick + Height = 121 + Width = 161 + end +end diff --git a/样品/U_SLT.pas b/样品/U_SLT.pas new file mode 100644 index 0000000..ddf1227 --- /dev/null +++ b/样品/U_SLT.pas @@ -0,0 +1,88 @@ +unit U_SLT; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls,jpeg, cxControls, cxContainer, cxEdit, cxImage,IdFTP,ShellAPI, + cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, 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; + +type + TfrmSLT = class(TFrame) + cxImage1: TcxImage; + Panel1: TPanel; + procedure cxImage1DblClick(Sender: TObject); + private + CYID,FileName:string; + { 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.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:='C:\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(UserDataFlag+'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..b67f4c3 --- /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..ede0016 --- /dev/null +++ b/样品/YPGL.dpr @@ -0,0 +1,61 @@ +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_CPManageCX in 'U_CPManageCX.pas' {frmCPManageCX}, + U_CPAddWJE in 'U_CPAddWJE.pas' {frmCPAddWJE}, + 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_CPManageWJE in 'U_CPManageWJE.pas' {frmCPManageWJE}, + U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, + U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas', + U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.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/样品/YPGL.rar b/样品/YPGL.rar new file mode 100644 index 0000000..d67e182 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/管理系统/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..98032b2 --- /dev/null +++ b/管理系统/File.INI @@ -0,0 +1,3 @@ +[] +̨־=X +̨=8 diff --git a/管理系统/JCYData.INI b/管理系统/JCYData.INI new file mode 100644 index 0000000..0dd7fae --- /dev/null +++ b/管理系统/JCYData.INI @@ -0,0 +1,7 @@ +[ϵͳ] +ں=com6 +=4800 +Уλ=0 +λ=8 +ֹͣλ=0 +Ƶ=100 diff --git a/管理系统/JCYData10.INI b/管理系统/JCYData10.INI new file mode 100644 index 0000000..53c885f --- /dev/null +++ b/管理系统/JCYData10.INI @@ -0,0 +1,7 @@ +[ϵͳ] +ں=com1 +=19200 +Уλ=0 +λ=8 +ֹͣλ=0 +Ƶ=100 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..8cac6f6 --- /dev/null +++ b/管理系统/TradeManage.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=D:\Dp7Repo\Ŀ\D7wmhengming\ϵͳ\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/管理系统/TradeManage.dpr b/管理系统/TradeManage.dpr new file mode 100644 index 0000000..29bc697 --- /dev/null +++ b/管理系统/TradeManage.dpr @@ -0,0 +1,92 @@ +library TradeManage; + +uses + SysUtils, + classes, + forms, + WinTypes, + WinProcs, + U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule}, + U_GetDllForm in 'U_GetDllForm.pas', + 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_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_ConInPut in 'U_ConInPut.pas' {frmConInPut}, + U_MJManageNewFDNew_other in 'U_MJManageNewFDNew_other.pas' {frmMJManageNewFDNew_other}, + U_MJEdit_other in 'U_MJEdit_other.pas' {frmMJEdit_other}, + U_BanCpCkSaoM in 'U_BanCpCkSaoM.pas' {frmBanCpCkSaoM}, + U_CpRkSaoMNew in 'U_CpRkSaoMNew.pas' {frmCpRkSaoMNew}, + U_PbSelCK in 'U_PbSelCK.pas' {frmPbSelCK}, + U_CrkAccount in 'U_CrkAccount.pas' {frmCrkAccount}, + U_BanCpHCSaoM in 'U_BanCpHCSaoM.pas' {frmBanCpHCSaoM}, + U_ClothHCList in 'U_ClothHCList.pas' {frmClothHCList}, + U_ClothContractInPut_CG in 'U_ClothContractInPut_CG.pas' {frmClothContractInPut_CG}, + U_ContractList in 'U_ContractList.pas' {frmContractList}, + U_ClothContractListDH in 'U_ClothContractListDH.pas' {frmClothContractListDH}, + U_OrderJDList in 'U_OrderJDList.pas' {frmOrderJDList}, + U_ClothContractListWJG in 'U_ClothContractListWJG.pas' {frmClothContractListWJG}, + U_OrderInPutXH in 'U_OrderInPutXH.pas' {frmOrderInPutXH}, + U_ProductOrderListSel in 'U_ProductOrderListSel.pas' {frmProductOrderListSel}, + U_BefChkHX in 'U_BefChkHX.pas' {frmBefChkHX}, + U_Printckmd in 'U_Printckmd.pas' {frmPrintckmd}, + U_ProductOrderListNew in 'U_ProductOrderListNew.pas' {frmProductOrderListNew}, + U_ProductOrder_Ph10 in 'U_ProductOrder_Ph10.pas' {frmProductOrder_Ph10}, + U_CpCkSaoMNewSel in 'U_CpCkSaoMNewSel.pas' {frmCpCkSaoMNewSel}, + U_CPRK in 'U_CPRK.pas' {frmCPRK}, + U_kcchEdit in 'U_kcchEdit.pas' {frmkcchEdit}, + U_CKProductCK_Other in 'U_CKProductCK_Other.pas' {frmCKProductCK_Other}, + U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas', + U_YGList in 'U_YGList.pas' {frmYGlist}, + U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, + U_ZDYHelpSel in '..\..\..\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel}, + U_ZdyAttachment in 'U_ZdyAttachment.pas' {frmZdyAttachment}, + U_ZdyAttachCP in 'U_ZdyAttachCP.pas' {frmZdyAttachCP}, + U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS}, + U_CP_CRC in 'U_CP_CRC.pas' {frmCP_CRC}, + U_UserHelp in '..\..\..\ThreeFun\Form\U_UserHelp.pas' {frmUserHelp}, + U_ProductOrderNewListXH in 'U_ProductOrderNewListXH.pas' {frmProductOrderNewListXH}, + U_ProductOrderNewListSEl in 'U_ProductOrderNewListSEl.pas' {frmProductOrderNewListSEl}, + U_ProductOrderNewList_JD in 'U_ProductOrderNewList_JD.pas' {frmProductOrderNewList_JD}, + U_RKSMEdit_Other in 'U_RKSMEdit_Other.pas' {frmRKSMEdit_other}, + U_KCEdit in 'U_KCEdit.pas' {frmKCEdit}, + U_CKProductBCPKCList_other in 'U_CKProductBCPKCList_other.pas' {frmCKProductBCPKCList_other}, + U_CKProductBCPOutList_other in 'U_CKProductBCPOutList_other.pas' {frmCKProductBCPOutList_other}, + U_YHList_other in 'U_YHList_other.pas' {frmYHList_other}, + U_CKProductBCPKCListSel_Other in 'U_CKProductBCPKCListSel_Other.pas' {frmCKProductBCPKCListSel_Other}, + U_KCRLLTZ_other in 'U_KCRLLTZ_other.pas' {frmKCRLLTZ_other}, + U_KCRLLTZ in 'U_KCRLLTZ.pas' {frmKCRLLTZ}, + U_ModulePromptList in 'U_ModulePromptList.pas' {frmModulePromptList}, + U_SysLogHelp in '..\..\..\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp}, + U_ProductOrderNewList_ZD in 'U_ProductOrderNewList_ZD.pas' {frmProductOrderNewList_ZD}; + +{$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.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..44ae040 --- /dev/null +++ b/管理系统/U_BefChkHX.dfm @@ -0,0 +1,292 @@ +object frmBefChkHX: TfrmBefChkHX + Left = 215 + Top = 176 + 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 = 862 + Height = 73 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object orderno: TLabel + Left = 48 + Top = 24 + Width = 89 + 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 = 89 + 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 = 105 + 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 = 105 + 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 = 862 + 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 + Caption = #20445#23384 + ImageIndex = 111 + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 185 + Top = 0 + Caption = #20851#38381 + ImageIndex = 55 + OnClick = ToolButton1Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + 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 = < + 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 V2Column5: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'HXUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 74 + end + object V2Column3: TcxGridDBColumn + Tag = 2 + Caption = #25240#31639#31859#31995#25968 + DataBinding.FieldName = 'ZSXS' + Width = 72 + 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 +end diff --git a/管理系统/U_BefChkHX.pas b/管理系统/U_BefChkHX.pas new file mode 100644 index 0000000..782ce5c --- /dev/null +++ b/管理系统/U_BefChkHX.pas @@ -0,0 +1,189 @@ +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; + +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; + V2Column3: TcxGridDBColumn; + ADOQuery1: TADOQuery; + ADOQuery2: TADOQuery; + ADOQuery3: TADOQuery; + ClientDataSet1: TClientDataSet; + DataSource1: TDataSource; + ToolButton1: TToolButton; + cxGridPopupMenu1: TcxGridPopupMenu; + V2Column4: TcxGridDBColumn; + 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); + private + { Private declarations } + public + { Public declarations } + FLLID: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:='ǰ'; + 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 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; + ClientDataSet1.Delete; + +end; + +procedure TfrmBefChkHX.ToolButton4Click(Sender: TObject); +var + maxno: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 + 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; + +end. diff --git a/管理系统/U_CKEJK.dfm b/管理系统/U_CKEJK.dfm new file mode 100644 index 0000000..cce0d82 --- /dev/null +++ b/管理系统/U_CKEJK.dfm @@ -0,0 +1,403 @@ +object frmCKEJK: TfrmCKEJK + Left = -27 + Top = 117 + Width = 1262 + Height = 623 + 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 = 1246 + 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 = 1246 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 307 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 512 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#26085#26399 + end + object Label2: TLabel + Left = 172 + Top = 12 + Width = 6 + Height = 12 + Caption = '-' + end + object Label5: TLabel + Left = 32 + Top = 52 + 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 = 676 + Top = 12 + Width = 72 + Height = 12 + Caption = #40857#36816#20837#24211#29366#24577 + end + object C_CodeName: TEdit + Tag = 2 + Left = 360 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 540 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = C_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 81 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 181 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object conNO: TEdit + Tag = 2 + Left = 78 + Top = 45 + Width = 109 + 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 CKFlag: TComboBox + Tag = 2 + Left = 756 + Top = 8 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 9 + OnChange = C_CodeNameChange + Items.Strings = ( + '' + #26410#20837#24211 + #24050#20837#24211 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 73 + Width = 1246 + Height = 512 + 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 + end + item + Kind = skSum + Column = v1Column4 + end + item + Kind = skSum + Column = v1Column5 + 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 = #20986#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Width = 158 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Width = 127 + end + object v1Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v1Column4: TcxGridDBColumn + Caption = #26607#26725#20986#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 123 + end + object v1Column5: TcxGridDBColumn + Caption = #40857#36816#20837#24211#25968#37327 + DataBinding.FieldName = 'LYQty' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column6: TcxGridDBColumn + Caption = #40857#36816#20837#24211#29366#24577 + DataBinding.FieldName = 'CKFlag' + HeaderAlignmentHorz = taCenter + Width = 129 + 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_CKEJK.pas b/管理系统/U_CKEJK.pas new file mode 100644 index 0000000..556baf4 --- /dev/null +++ b/管理系统/U_CKEJK.pas @@ -0,0 +1,178 @@ +unit U_CKEJK; + +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; + +type + TfrmCKEJK = 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; + 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; + Label10: TLabel; + CKFlag: 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 C_CodeNameChange(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKEJK: TfrmCKEJK; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmCKEJK.FormDestroy(Sender: TObject); +begin + frmCKEJK:=nil; +end; + +procedure TfrmCKEJK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKEJK.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + enddate.DateTime:=begdate.DateTime; + // EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKEJK.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + sql.Add(' EXEC P_Qty_EJKDB '); + sql.Add(' @begdate='''+formatdateTime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(',@enddate='''+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 TfrmCKEJK.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCKEJK.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKEJK.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKEJK.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + + //InitGrid(); +end; + +procedure TfrmCKEJK.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKEJK.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 TfrmCKEJK.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/管理系统/U_CKPDlist.dfm b/管理系统/U_CKPDlist.dfm new file mode 100644 index 0000000..0194071 --- /dev/null +++ b/管理系统/U_CKPDlist.dfm @@ -0,0 +1,535 @@ +object frmCKPDlist: TfrmCKPDlist + Left = 0 + Top = 0 + Width = 1366 + Height = 738 + 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 = 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_TradeManage.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 Tchk: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #24320#22987#30424#28857 + ImageIndex = 41 + OnClick = TchkClick + end + object TBPD: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #30424#28857#25968#25454 + ImageIndex = 57 + OnClick = TBPDClick + end + object Tnochk: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #30424#28857#32467#26463 + ImageIndex = 86 + OnClick = TnochkClick + end + object TBExport: TToolButton + Left = 387 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 450 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1350 + Height = 45 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 52 + Height = 12 + Caption = #30003#35831#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 320 + Top = 16 + 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 = 440 + Top = 116 + 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 Label6: TLabel + Left = 320 + Top = 108 + Width = 24 + Height = 12 + Caption = #20179#24211 + 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 = 504 + 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 Label2: TLabel + Left = 180 + Top = 116 + 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 Label5: TLabel + Left = 168 + Top = 16 + Width = 6 + Height = 12 + Caption = '-' + 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 = 176 + Top = 11 + Width = 90 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object C_CodeName: TEdit + Tag = 2 + Left = 352 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = C_CodeNameChange + end + object P_Code: TEdit + Tag = 2 + Left = 496 + Top = 111 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = C_CodeNameChange + end + object ckName: TComboBox + Left = 348 + Top = 104 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 4 + Text = #26679#21697#20179#24211 + Items.Strings = ( + #26679#21697#20179#24211) + end + object kuwei: TEdit + Tag = 2 + Left = 996 + Top = 108 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 536 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = C_CodeNameChange + end + object custName: TEdit + Tag = 2 + Left = 236 + Top = 111 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = C_CodeNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 97 + Width = 1350 + Height = 500 + 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 + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1Column2 + 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 v1inoutNO: TcxGridDBColumn + Caption = #30424#28857#21333#21495 + DataBinding.FieldName = 'PDID' + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1CRTime: TcxGridDBColumn + Caption = #24320#22987#30424#28857#26085#26399 + DataBinding.FieldName = 'begTime' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1P_CodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_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 = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 68 + 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 = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 80 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 80 + 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 v1Column1: TcxGridDBColumn + Caption = #30424#28857#21305#25968 + DataBinding.FieldName = 'PRollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #30424#28857#25968#37327 + DataBinding.FieldName = 'PQty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 80 + end + object v1Column3: TcxGridDBColumn + Caption = #32467#26463#30424#28857#26102#38388 + DataBinding.FieldName = 'endTime' + HeaderAlignmentHorz = taCenter + Width = 140 + end + object v1Filler: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 103 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 77 + Width = 1350 + Height = 20 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #30424#28857#24320#22987 + #30424#28857#32467#26463) + OnChange = cxTabControl1Change + ClientRectBottom = 20 + ClientRectRight = 1350 + ClientRectTop = 19 + end + object MovePanel2: TMovePanel + Left = 448 + Top = 232 + 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 ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 464 + Top = 440 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 496 + Top = 144 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 1132 + Top = 137 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 476 + Top = 229 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 352 + Top = 144 + end + object ADOPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 648 + Top = 136 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 464 + Top = 200 + 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 = 1044 + Top = 44 + 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_CKPDlist.pas b/管理系统/U_CKPDlist.pas new file mode 100644 index 0000000..683309d --- /dev/null +++ b/管理系统/U_CKPDlist.pas @@ -0,0 +1,315 @@ +unit U_CKPDlist; + +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, MovePanel; + +type + TfrmCKPDlist = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1P_CodeName: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + v1QtyUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1CRTime: TcxGridDBColumn; + v1Filler: TcxGridDBColumn; + Label3: TLabel; + Label4: TLabel; + C_CodeName: TEdit; + P_Code: TEdit; + 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; + v1inoutNO: TcxGridDBColumn; + kuwei: TEdit; + Label8: TLabel; + cxTabControl1: TcxTabControl; + C_Color: TEdit; + Label9: TLabel; + custName: TEdit; + Label2: TLabel; + Tchk: TToolButton; + Tnochk: TToolButton; + Label5: TLabel; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + TBPD: TToolButton; + MovePanel2: TMovePanel; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure C_CodeNameChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure TBPDClick(Sender: TObject); + private + procedure InitGrid(); + procedure SetStatus(); + { Private declarations } + public + fCKName:string; + canshu1:string; + { Public declarations } + end; + +var + frmCKPDlist: TfrmCKPDlist; + +implementation +uses + U_DataLink,U_Fun10,U_ZDYHelp,U_PDSMEdit; +{$R *.dfm} +procedure TfrmCKPDlist.SetStatus(); +begin + + Tchk.Visible:=false; + Tnochk.Visible:=false; + case cxTabControl1.TabIndex of + 0:begin + Tchk.Visible:=true; + Tnochk.Visible:=true; + end; + 1:begin + + end; + end; +end; + +procedure TfrmCKPDlist.InitGrid(); +begin + try + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select A.* '); + sql.Add('from CK_BanCP_PD A'); + sql.Add('where begTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' '); + sql.Add('and begTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' '); + 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 TfrmCKPDlist.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + writeCxGrid(self.Caption,Tv1,'Ʒֿ'); + Action:=cafree; +end; + +procedure TfrmCKPDlist.FormDestroy(Sender: TObject); +begin + frmCKPDlist:=nil; +end; + +procedure TfrmCKPDlist.C_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 TfrmCKPDlist.FormShow(Sender: TObject); +begin + readCxGrid(self.Caption,Tv1,'Ʒֿ'); + SetStatus(); + InitGrid(); +end; + +procedure TfrmCKPDlist.FormCreate(Sender: TObject); +begin + BegDate.Date:=date()-7; + EndDate.Date:=date(); + cxGrid1.Align:=alclient; +end; + +procedure TfrmCKPDlist.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmCKPDlist.TBRafreshClick(Sender: TObject); +begin + initGrid(); +end; + +procedure TfrmCKPDlist.TBExportClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid1); +end; + +procedure TfrmCKPDlist.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + initGrid(); +end; + +procedure TfrmCKPDlist.TchkClick(Sender: TObject); +var + fPDId:string; +begin + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select A.* '); + sql.Add('from CK_BanCP_PD A'); + sql.ADD('where A.status=0 '); + if trim(FckName)<>'' then + sql.Add('and ckName='+quotedstr(trim(FckName)) ); + // sql.Add('and A.status=0 '); + open; + end; + IF not adoqueryTmp.IsEmpty then + begin + application.MessageBox('δ̵¼飡','ʾϢ',MB_ICONERROR); + exit; + end; + + with adoqueryTmp do + begin + close; + sql.Clear; + sql.Add('select A.C_CodeName,A.C_Color,A.KCQtyUnit,COUNT(A.MJID) as RollNum,SUM(KCQty) as Qty '); + sql.Add('from CK_BanCP_KC A '); + sql.Add('where A.KCQty>0 '); + if trim(FckName)<>'' then + sql.Add('and A.ckName='+quotedstr(trim(FckName)) ); + sql.Add('group by A.C_CodeName,A.C_Color,A.KCQtyUnit '); + sql.Add('order by A.C_CodeName,A.C_Color,A.KCQtyUnit '); + open; + end; + + if GetLSNo(ADOQueryCmd,fpdid,'PD','CK_BanCP_PD',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + MovePanel2.Left:=(self.Width - MovePanel2 .Width ) div 2; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_PD where 1=2'); + open; + end; + + while not adoqueryTmp.Eof do + begin + with ADOQueryCmd do + begin + append; + fieldbyName('PDID').Value:=fpdid; + fieldbyName('PDNO').Value:=adoqueryTmp.recNo; + fieldbyName('CKName').Value:=FckName; + fieldbyName('C_CodeName').Value:=trim(adoqueryTmp.fieldbyName('C_CodeName').AsString); + fieldbyName('C_Color').Value:=trim(adoqueryTmp.fieldbyName('C_Color').AsString); + fieldbyName('RollNum').Value:=adoqueryTmp.fieldbyName('RollNum').AsInteger; + fieldbyName('Qty').Value:=adoqueryTmp.fieldbyName('Qty').AsFloat; + fieldbyName('QtyUnit').Value:=trim(adoqueryTmp.fieldbyName('KCQtyUnit').AsString); + fieldbyName('Filler').Value:=trim(DName); + post; + end; + adoqueryTmp.Next; + end; + + //˵: CK_BanCP_KC PDFlag: 0:ʼ״̬-1ѾĿ棬1пݣ2:̵ + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CK_BanCP_KC SET PDFlag=-1 where KCQty<=0 '); + sql.Add('update CK_BanCP_KC SET PDFlag=1 where KCQty>0 '); + execsql; + end; + MovePanel2.Visible:=false; + ADOQueryCmd.Connection.CommitTrans; + TBRafresh.Click; + except + MovePanel2.Visible:=false; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('̵ݴ!','ʾϢ',MB_ICONERROR); + end; + + +end; + +procedure TfrmCKPDlist.TnochkClick(Sender: TObject); +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 CK_BanCP_KC SET PDFlag=0 where PDFlag<>0 '); + sql.Add('update CK_BanCP_PD SET status=1 where pdid='''+trim(CDS_Main.fieldbyName('pdid').AsString)+''' '); + execsql; + end; + TBRafresh.Click; + except + Application.MessageBox('̵ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmCKPDlist.TBPDClick(Sender: TObject); +begin + frmPDSMEdit:=TfrmPDSMEdit.Create(self); + with frmPDSMEdit do + begin + show; + end; +end; + +end. diff --git a/管理系统/U_CKPHKCList.dfm b/管理系统/U_CKPHKCList.dfm new file mode 100644 index 0000000..9023a21 --- /dev/null +++ b/管理系统/U_CKPHKCList.dfm @@ -0,0 +1,552 @@ +object frmCKPHKCList: TfrmCKPHKCList + Left = 128 + Top = 131 + 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 = 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 TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1124 + Height = 52 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 39 + Top = 16 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 268 + Top = 16 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 780 + 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 = 40 + Top = 120 + 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 C_CodeName: TEdit + Tag = 2 + Left = 92 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 292 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = C_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 829 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + Visible = False + end + object EndDate: TDateTimePicker + Left = 829 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + Visible = False + end + object conNO: TEdit + Tag = 2 + Left = 90 + Top = 117 + Width = 109 + 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 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 85 + Width = 1124 + Height = 396 + Align = alTop + 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 = v2Column6 + end + item + Kind = skSum + Column = v1KCRollNum + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + 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_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object v2Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 164 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 104 + end + object v1KCRollNum: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Header = DataLink_TradeManage.cxStyle_fontclBlue + Width = 100 + end + object v2Column6: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 100 + end + object v1Column1: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'HCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 100 + end + object v1Column2: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'HCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 100 + end + object v1Column3: TcxGridDBColumn + Caption = #24635#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 100 + end + object v1Column4: TcxGridDBColumn + Caption = #24635#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 100 + 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 + 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 +end diff --git a/管理系统/U_CKPHKCList.pas b/管理系统/U_CKPHKCList.pas new file mode 100644 index 0000000..11ce222 --- /dev/null +++ b/管理系统/U_CKPHKCList.pas @@ -0,0 +1,193 @@ +unit U_CKPHKCList; + +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; + +type + TfrmCKPHKCList = 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; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + Label5: TLabel; + conNO: TEdit; + Label6: TLabel; + MJID: TEdit; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + MovePanel2: TMovePanel; + v1KCRollNum: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: 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; + 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); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKPHKCList: TfrmCKPHKCList; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmCKPHKCList.FormDestroy(Sender: TObject); +begin + frmCKPHKCList:=nil; +end; + +procedure TfrmCKPHKCList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKPHKCList.FormCreate(Sender: TObject); +begin + cxGrid2.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKPHKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec P_Get_HCKCList '); + sql.Add(' @C_CodeName='+quotedstr(trim(C_CodeName.Text))); + sql.Add(',@C_Color='+quotedstr(trim(C_Color.Text))); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmCKPHKCList.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCKPHKCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKPHKCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKPHKCList.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption,Tv1,'Ʒֿ'); + + //InitGrid(); +end; + +procedure TfrmCKPHKCList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid2); +end; + +procedure TfrmCKPHKCList.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 TfrmCKPHKCList.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/管理系统/U_CKProductBCPHCList.dfm b/管理系统/U_CKProductBCPHCList.dfm new file mode 100644 index 0000000..d6d6438 --- /dev/null +++ b/管理系统/U_CKProductBCPHCList.dfm @@ -0,0 +1,392 @@ +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 = 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 = 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 + #25913#33394#21697 + '' + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1011 + Height = 368 + 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..98e4477 --- /dev/null +++ b/管理系统/U_CKProductBCPInList.dfm @@ -0,0 +1,814 @@ +object frmCKProductBCPInList: TfrmCKProductBCPInList + Left = 301 + Top = 179 + Width = 1227 + Height = 545 + 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 = 1211 + 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 = 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 ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21333#21367#20837#24211 + ImageIndex = 3 + OnClick = ToolButton1Click + end + object TBADD: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20854#20182#20837#24211 + ImageIndex = 57 + OnClick = TBADDClick + end + object TBEdit: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #20854#20182#20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBRKCX: TToolButton + Left = 450 + Top = 0 + AutoSize = True + Caption = #25764#38144#20837#24211 + ImageIndex = 105 + Visible = False + OnClick = TBRKCXClick + end + object TBPrint: TToolButton + Left = 537 + Top = 0 + AutoSize = True + Caption = #25171#21360#25253#34920 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBprint2: TToolButton + Left = 624 + Top = 0 + AutoSize = True + Caption = #25171#21360#36864#36135#21333 + ImageIndex = 12 + OnClick = TBprint2Click + end + object ToolButton6: TToolButton + Left = 723 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 12 + OnClick = ToolButton6Click + end + object ToolButton3: TToolButton + Left = 810 + Top = 0 + AutoSize = True + Caption = #28155#21152#25171#21367#20154 + ImageIndex = 74 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 909 + Top = 0 + AutoSize = True + Caption = #28155#21152#25220#21333#20154 + ImageIndex = 74 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 1008 + Top = 0 + AutoSize = True + Caption = #28155#21152#19978#26550#20154 + ImageIndex = 74 + OnClick = ToolButton5Click + end + object TBClose: TToolButton + Left = 1107 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1211 + Height = 84 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 349 + Top = 16 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 518 + Top = 16 + 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 = 16 + Width = 48 + Height = 12 + Caption = #20219#21153#21333#21495 + end + object Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 333 + Top = 100 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 510 + Top = 104 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 518 + Top = 36 + Width = 24 + Height = 12 + Caption = #31561#32423 + end + object Label10: TLabel + Left = 654 + Top = 16 + Width = 48 + Height = 12 + Caption = #32568' '#21495 + end + object Label12: TLabel + Left = 348 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label11: TLabel + Left = 654 + Top = 36 + Width = 48 + Height = 12 + Caption = #21152' '#24037' '#21378 + end + object Label13: TLabel + Left = 822 + Top = 16 + Width = 48 + Height = 12 + Caption = #36864#36135#23458#25143 + end + object C_CodeName: TEdit + Tag = 2 + Left = 402 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Tag = 1 + Left = 542 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = C_CodeNameChange + 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 conNo: TEdit + Tag = 2 + Left = 228 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = conNoChange + OnKeyPress = conNoKeyPress + end + object MJID: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = C_CodeNameChange + end + object KZ: TEdit + Tag = 2 + Left = 390 + Top = 89 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = C_CodeNameChange + end + object MF: TEdit + Tag = 2 + Left = 538 + Top = 101 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = C_CodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 542 + Top = 33 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #25913#33394#21697 + '' + '') + end + object BCGangNo: TEdit + Tag = 2 + Left = 706 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = C_CodeNameChange + end + object CRTYPE: TComboBox + Tag = 2 + Left = 403 + Top = 33 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 10 + OnChange = TBFindClick + Items.Strings = ( + '' + #26399#21021#20837#24211 + #36864#36135#20837#24211 + #26816#39564#20837#24211) + end + object factoryNoName: TEdit + Tag = 2 + Left = 706 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 11 + OnChange = C_CodeNameChange + end + object ThCust: TEdit + Tag = 2 + Left = 870 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 12 + OnChange = C_CodeNameChange + end + object CheckBox1: TCheckBox + Left = 28 + Top = 56 + Width = 97 + Height = 17 + Caption = #20840#36873 + TabOrder = 13 + OnClick = CheckBox1Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 116 + Width = 1211 + Height = 390 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column5 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1RollNum + 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 v1factoryNoName: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'factoryNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column1: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + Visible = False + 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 = 92 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 107 + end + object v1RollNum: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column5: TcxGridDBColumn + Caption = #20837#24211#20844#26020#25968 + DataBinding.FieldName = 'KGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v2Column6: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 85 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v1Column10: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'BCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v1gangNO: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCgangNO' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1kcKw: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'kcKw' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1CRType: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1ThCust: TcxGridDBColumn + Caption = #36864#36135#23458#25143 + DataBinding.FieldName = 'ThCust' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column13: TcxGridDBColumn + Caption = #25171#21367#20154 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column14: TcxGridDBColumn + Caption = #25220#21333#20154 + DataBinding.FieldName = 'defstr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #19978#26550#20154 + DataBinding.FieldName = 'defstr3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeNameZw' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + 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 + 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 = 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 + object ADOPrint1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 960 + Top = 52 + end + object ADOPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 948 + Top = 28 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 912 + Top = 68 + end + object RMDB_Sub: TRMDBDataSet + Visible = True + DataSet = ADOPrint1 + Left = 632 + Top = 160 + end + object RMGridReport1: 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 = 1016 + Top = 64 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 648 + Top = 232 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 608 + Top = 264 + end +end diff --git a/管理系统/U_CKProductBCPInList.pas b/管理系统/U_CKProductBCPInList.pas new file mode 100644 index 0000000..cca16ce --- /dev/null +++ b/管理系统/U_CKProductBCPInList.pas @@ -0,0 +1,909 @@ +unit U_CKProductBCPInList; + +interface + +uses + Windows, Messages, strutils,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; + +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; + C_CodeName: TEdit; + C_Color: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Label5: TLabel; + conNo: TEdit; + Label6: TLabel; + MJID: TEdit; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: 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; + BCGangNo: 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; + v1RollNum: TcxGridDBColumn; + TBADD: TToolButton; + v1C_Color: TcxGridDBColumn; + v1gangNO: TcxGridDBColumn; + v1kcKw: TcxGridDBColumn; + v1CRType: TcxGridDBColumn; + TBEdit: TToolButton; + CRTYPE: TComboBox; + Label12: TLabel; + v1ThCust: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + v1factoryNoName: TcxGridDBColumn; + Label11: TLabel; + factoryNoName: TEdit; + Label13: TLabel; + ThCust: TEdit; + CheckBox1: TCheckBox; + ADOPrint1: TADOQuery; + ADOPrint: TADOQuery; + RMDB_MD: TRMDBDataSet; + RMDB_Sub: TRMDBDataSet; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton1: TToolButton; + ToolButton6: TToolButton; + RMGridReport1: TRMGridReport; + ADOQueryPrint: TADOQuery; + RMDB_Main: TRMDBDataSet; + v1Column16: TcxGridDBColumn; + TBprint2: 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 C_CodeNameChange(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure conNoChange(Sender: TObject); + procedure conNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure TBADDClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure TBprint2Click(Sender: TObject); + private + TblCprk:string; + procedure InitGrid(); + procedure DropTable(); + procedure CreateTable(); + { Private declarations } + public + fDParameters2:string; + { Public declarations } + end; + +var + frmCKProductBCPInList: TfrmCKProductBCPInList; + +implementation +uses + U_DataLink,U_Fun, U_Printckmd, U_CPRK,U_CKProductBCPOutth, U_NoteList, + U_YGList, U_RKSMEdit; + +{$R *.dfm} + +procedure TfrmCKProductBCPInList.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 ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; +procedure TfrmCKProductBCPInList.CreateTable(); +var + strSQL:string; +begin + TblCprk := '[##CP_RK10' + 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),' + + 'BCID Varchar(20))'#13; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; + +procedure TfrmCKProductBCPInList.FormDestroy(Sender: TObject); +begin + frmCKProductBCPInList:=nil; +end; + +procedure TfrmCKProductBCPInList.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + writeCxGrid(self.Caption,Tv1,'Ʒֿ'); + 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 + Close; + sql.Clear; + Filtered:=False; + SQL.Add('select A.defstr1,A.defstr2,A.defstr3,A.Filler,A.FillTime,A.note,A.ThCust,A.mainID,A.subID,A.MJID,A.BCID,A.CRTime,A.CRType,A.CRID,A.Qty,A.RollNum,A.QtyUnit,A.CPType,A.CKOrdNo,A.C_CodeName,A.C_Color,A.RCgangNo,A.BCgangNO,a.kcKw,'); + sql.Add('conNo=(select top 1 ConNo from WFB_MJJY X where X.MJID=A.MJID),'); + sql.Add('factoryNoName=(select X.Aorddefstr4 from JYOrder_Sub_AnPai X where X.APID=A.APID), '); + sql.Add('C_CodeNameZw=(select MAX(defnote3) from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName) '); + sql.add('from CK_BanCP_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 A.C_CodeName like '+quotedstr('%'+trim(C_CodeName.Text)+'%')); + sql.add('and A.C_Color like '+quotedstr('%'+trim(C_Color.Text)+'%')); + sql.add('and A.BCGangNo like '+quotedstr('%'+trim(BCGangNo.Text)+'%')); + SQL.Add('and A.CRFlag='''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + TBFind.Click; +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 +//ReadCxGrid(self.Caption,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPInList.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption,Tv1,'Ʒֿ'); + if Trim(fDParameters2)='' then + begin + TBRKCX.Visible:=True; + end; + + if Trim(fDParameters2)='ѯ' then + begin + TBADD.Visible:=false; + TBEdit.Visible:=false; + TBRKCX.Visible:=false; + ToolButton3.Visible:=false; + ToolButton4.Visible:=false; + ToolButton5.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 + strwhere:string; +begin + + if ADOQueryMain.Active then + begin + strwhere:= SGetFilters(Panel1,1,2); + SDofilter(ADOQueryMain,strwhere); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCKProductBCPInList.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPInList.TBPrintClick(Sender: TObject); +var + filepath:string; +begin + if CDS_Main.IsEmpty then exit; + if CDS_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + CreateTable(); + + + 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(' insert into '+TblCprk+'(BCID) values( '); + SQL.Add(' '+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + sql.add(')'); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Get_CprkList '); + sql.Add('@mainID='+quotedstr(trim(''))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + sql.Add(',@flag='+quotedstr(trim('1'))); + open; + end; + + with AdoPrint1 do + begin + close; + sql.Clear; + sql.Add('exec P_Get_CprkList '); + sql.Add('@mainID='+quotedstr(trim(''))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + sql.Add(',@flag='+quotedstr(trim('10'))); + 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['begdate'] :=FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+' - '+FormatDateTime('yyyy-MM-dd',enddate.DateTime); + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + // RMVariables['Filler'] :=trim(CDS_Main.fieldbyname('Filler').AsString); + RM1.LoadFromFile(filepath); + RM1.ShowReport; + finally + + end; + + DropTable(); + +end; + +procedure TfrmCKProductBCPInList.conNoChange(Sender: TObject); +begin +// if Length(Trim(conNo.Text))<4 then Exit; + TBFind.Click; +end; + +procedure TfrmCKProductBCPInList.conNoKeyPress(Sender: TObject; + var Key: Char); +begin +{ if Key=#13 then + begin + if Length(Trim(conNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,B.ConNo,C.C_Color,C.MF,C.KZ,D.MJXH'); + sql.Add(',isnull(factoryNoName,B.ConNo) KHName'); + sql.Add(',E.AOrdDefStr1'); + sql.add('from CK_BanCP_CR A '); + Sql.add(' left join Contract_Main B on A.MainId=B.MainId'); + Sql.add(' left join Contract_sub C on A.SubId=C.SubId'); + Sql.add(' left join WFB_MJJY D on A.MJId=D.MJId'); + sql.Add(' left join JYOrder_Sub_AnPai E on A.APID=E.APID'); + sql.add('where A.orderNo + SQL.Add(' and CRFlag='''' '); + Parameters.ParamByName('orderNo').Value:='%'+Trim(conNo.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); +var + YFID,CRID: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; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while Locate('SSel',True,[]) do + begin + + IF trim(CDS_Main.fieldbyname('CRType').AsString)='˻' then + begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(CDS_Main.fieldbyname('ckordNo').AsString)+''''); + sql.Add(' and P_COdeName='''+Trim(CDS_Main.fieldbyname('C_COdeName').AsString)+''''); + sql.Add(' and P_Color='''+Trim(CDS_Main.fieldbyname('C_COlor').AsString)+''''); + sql.Add(' and YFName=''˻'' '); + sql.Add(' and status>=''1'' '); + Open; + if not IsEmpty then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧտûгˣܳ!','ʾ',0); + Exit; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(CDS_Main.fieldbyname('ckordNo').AsString)+''''); + sql.Add(' and P_COdeName='''+Trim(CDS_Main.fieldbyname('C_COdeName').AsString)+''''); + sql.Add(' and P_Color='''+Trim(CDS_Main.fieldbyname('C_COlor').AsString)+''''); + sql.Add(' and YFName=''˻'' '); + Open; + if not IsEmpty then + begin + YFID:=Fieldbyname('YFID').AsString; + CRID:=Fieldbyname('CRID').AsString; + end; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CRID from CK_BanCP_PH where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ܳ!','ʾ',0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CRID 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)+''''); + + sql.Add('update YF_Money_CR Set Qty=(select -1*isnull(Sum(Qty),0) from CK_BanCP_CR A '); + sql.Add('where A.ckordNo=YF_Money_CR.mainID and A.C_COdeName=YF_Money_CR.P_CodeName and A.C_Color=YF_Money_CR.P_Color and A.CRType=''˻'' )'); + sql.Add(',PS=(select -1* isnull(count(*),0) from CK_BanCP_CR A '); + sql.Add(' where A.ckordNo=YF_Money_CR.mainID and A.C_COdeName=YF_Money_CR.P_CodeName and A.C_Color=YF_Money_CR.P_Color and A.CRType=''˻'' )'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + + sql.Add('delete from YF_Money_CR '); + sql.Add('where YFID='''+Trim(YFID)+''' and Qty=0 '); + + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv'); + sql.Add('where YFID='''+Trim(YFID)+''''); + + ExecSQL; + end; + CDS_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmCKProductBCPInList.TBADDClick(Sender: TObject); +begin + frmCPRK:=TfrmCPRK.create(self); + with frmCPRK do + begin + if Trim(DParameters2)<>'' then + begin + CRType.Items.Clear; + CRType.Items.Add('˻'); + CRType.ItemIndex:=0; + end; + fFlag:=0; + fkeyNo:=''; + fBCID:=''; + if showmodal=1 then + begin + TBRafresh.Click; + end; + free; + end; +end; + +procedure TfrmCKProductBCPInList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if (trim(CDS_Main.fieldbyname('CRType').AsString)<>'ڳ') and + (trim(CDS_Main.fieldbyname('CRType').AsString)<>'˻') then + begin + application.MessageBox('ڳ˻޸','ʾϢ',0); + exit; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select A.* from CK_BanCP_KC A '); + sql.Add('inner join CK_BanCP_CR B on B.crid=A.crid and B.MJID=A.MJID '); + sql.Add('where (A.KCQty<>B.Qty or A.kcRollNum <> B.RollNum or isnull(A.KCStatus,''0'')>''0'') '); + sql.Add('and B.CKOrdNo='+quotedstr(trim(CDS_Main.fieldbyname('ckordNo').AsString))); + sql.Add('and B.BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + open; + end; + if not ADOQueryCmd.IsEmpty then + begin + application.MessageBox('ѳ⣬޸','ʾϢ',0); + exit; + end; + frmCPRK:=TfrmCPRK.create(self); + with frmCPRK do + begin + fFlag:=1; + fkeyNo:=self.CDS_Main.fieldbyname('ckordNo').AsString; + fBCID:=self.CDS_Main.fieldbyname('BCID').AsString; + if showmodal=1 then + begin + self.InitGrid(); + end; + free; + end; + +end; + +procedure TfrmCKProductBCPInList.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; + +procedure TfrmCKProductBCPInList.ToolButton3Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmYGlist:=TfrmYGlist.create(self); + with frmYGlist do + begin + frmYGlist.Caption:='Ӵ'; + frmYGlist.Label1.Caption:=''; + if showmodal=1 then + begin + // Fnote:=trim(Memo1.Text); + + 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 SET defstr1='+quotedstr(trim(Memo1.Text))); + sql.Add('where BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + TBRafresh.Click; + end; + close; + end; + +end; + +procedure TfrmCKProductBCPInList.ToolButton4Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmYGlist:=TfrmYGlist.create(self); + with frmYGlist do + begin + frmYGlist.Caption:='ӳ'; + frmYGlist.Label1.Caption:=''; + if showmodal=1 then + begin + // Fnote:=trim(Memo1.Text); + + 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 SET defstr2='+quotedstr(trim(Memo1.Text))); + sql.Add('where BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + TBRafresh.Click; + end; + close; + end; +end; + +procedure TfrmCKProductBCPInList.ToolButton5Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmYGlist:=TfrmYGlist.create(self); + with frmYGlist do + begin + frmYGlist.Caption:='ϼ'; + frmYGlist.Label1.Caption:='ϼ'; + if showmodal=1 then + begin + // Fnote:=trim(Memo1.Text); + + 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 SET defstr3='+quotedstr(trim(Memo1.Text))); + sql.Add('where BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + TBRafresh.Click; + end; + close; + end; +end; + +procedure TfrmCKProductBCPInList.ToolButton1Click(Sender: TObject); +begin + try + frmRKSMEdit:=TfrmRKSMEdit.Create(Application); + with frmRKSMEdit do + begin + + if ShowModal=1 then + begin + + end; + end; + finally + frmRKSMEdit.Free; + end; +end; + +procedure TfrmCKProductBCPInList.ToolButton6Click(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if CDS_Main.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 + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.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); + CDS_Main.EnableControls; + exit; + end; + with ADOQueryPrint do //ӢƲҪƷжȡҪڿͻԶжȡnoteֶΡ + begin + Close; + SQL.Clear; + sql.Add('select A.*,Qty as mjlen,QtyUnit as MJTypeother,A.CPType as MJType,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add(' from CK_BanCP_CR A') ; + SQL.Add(' where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + SQL.Add(' and Qty>0 and CRFlag='''' '); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RMGridReport1.LoadFromFile(fPrintFile); + // RMGridReport1.ShowReport; + RMGridReport1.PrintReport; + end else + begin + CDS_Main.EnableControls; + Application.MessageBox(PChar('ûҵ'+trim(fPrintFile)),'ʾ',0); + Exit; + end; + end; + Next; + end; + end; + CDS_Main.EnableControls; +end; + +procedure TfrmCKProductBCPInList.TBprint2Click(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 + begin + application.MessageBox('˻Ϣܴӡ','ʾϢ',0); + exit; + end; + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('select A.*, '); + SQL.Add('zroll=(select sum(RollNum) from CK_BanCp_CR X where X.CKordNo=A.CKordNo),'); + SQL.Add('zQty=(select sum(Qty) from CK_BanCp_CR X where X.CKordNo=A.CKordNo)'); + sql.Add('from CK_BanCp_CR A '); + sql.Add('where CKordNo='+quotedstr(trim(CDS_Main.fieldbyname('CKordNo').AsString))); + sql.Add('order by A.MJID '); + open; + end; + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(AdoPrint.fieldbyname('CKordNo').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); + CDS_Main.EnableControls; + exit; + end; + + try + fPrintFile:=ExtractFilePath(Application.ExeName) + 'report\Ʒ˻.rmf'; + if not FileExists(Pchar(fPrintFile)) then + begin + application.MessageBox(pchar('ļ['+fPrintFile+']ڣ'),'ʾϢ',MB_IConError); + exit; + end; + RMVariables['QRBARCODE']:=fImagePath; + // RMVariables['begdate'] :=FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+' - '+FormatDateTime('yyyy-MM-dd',enddate.DateTime); + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + // RMVariables['Filler'] :=trim(CDS_Main.fieldbyname('Filler').AsString); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + finally + + end; + +end; + +end. diff --git a/管理系统/U_CKProductBCPInList_Other.dfm b/管理系统/U_CKProductBCPInList_Other.dfm new file mode 100644 index 0000000..4740e8c --- /dev/null +++ b/管理系统/U_CKProductBCPInList_Other.dfm @@ -0,0 +1,860 @@ +object frmCKProductBCPInList_other: TfrmCKProductBCPInList_other + Left = 48 + Top = 141 + Width = 1227 + Height = 545 + 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 = 1211 + 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 = 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 ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26816#39564#25195#25551#20837#24211 + ImageIndex = 3 + OnClick = ToolButton1Click + end + object ToolButton9: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #26816#39564#25163#24037#20837#24211 + ImageIndex = 3 + OnClick = ToolButton9Click + end + object TBADD: TToolButton + Left = 411 + Top = 0 + AutoSize = True + Caption = #20854#20182#20837#24211 + ImageIndex = 57 + OnClick = TBADDClick + end + object TBEdit: TToolButton + Left = 498 + Top = 0 + AutoSize = True + Caption = #20854#20182#20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 585 + Top = 0 + AutoSize = True + Caption = #36864#36135#20837#24211 + ImageIndex = 7 + Visible = False + OnClick = ToolButton2Click + end + object TBRKCX: TToolButton + Left = 672 + Top = 0 + AutoSize = True + Caption = #25764#38144#20837#24211 + ImageIndex = 105 + Wrap = True + Visible = False + OnClick = TBRKCXClick + end + object TBPrint: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #25171#21360#25253#34920 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object ToolButton6: TToolButton + Left = 87 + Top = 30 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 12 + OnClick = ToolButton6Click + end + object ToolButton7: TToolButton + Left = 174 + Top = 30 + AutoSize = True + Caption = #25171#21360#36864#36135#21333 + ImageIndex = 12 + OnClick = ToolButton7Click + end + object ToolButton3: TToolButton + Left = 273 + Top = 30 + AutoSize = True + Caption = #28155#21152#25171#21367#20154 + ImageIndex = 74 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 372 + Top = 30 + AutoSize = True + Caption = #28155#21152#25220#21333#20154 + ImageIndex = 74 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 471 + Top = 30 + AutoSize = True + Caption = #28155#21152#19978#26550#20154 + ImageIndex = 74 + Visible = False + OnClick = ToolButton5Click + end + object ToolButton8: TToolButton + Left = 570 + Top = 30 + Caption = #28155#21152#38138#24067#20154 + ImageIndex = 74 + Visible = False + OnClick = ToolButton8Click + end + object TBClose: TToolButton + Left = 677 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1211 + Height = 83 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 349 + Top = 16 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 518 + Top = 16 + 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 = 16 + Width = 48 + Height = 12 + Caption = #20219#21153#21333#21495 + end + object Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 333 + Top = 100 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 510 + Top = 104 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 518 + Top = 36 + Width = 24 + Height = 12 + Caption = #31561#32423 + end + object Label10: TLabel + Left = 654 + Top = 16 + Width = 48 + Height = 12 + Caption = #32568' '#21495 + end + object Label12: TLabel + Left = 348 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label11: TLabel + Left = 662 + Top = 108 + Width = 48 + Height = 12 + Caption = #21152' '#24037' '#21378 + end + object Label13: TLabel + Left = 654 + Top = 40 + Width = 48 + Height = 12 + Caption = #36864#36135#23458#25143 + end + object C_CodeName: TEdit + Tag = 2 + Left = 402 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Tag = 1 + Left = 542 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = C_CodeNameChange + 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 conNo: TEdit + Tag = 2 + Left = 228 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = conNoChange + OnKeyPress = conNoKeyPress + end + object MJID: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = C_CodeNameChange + end + object KZ: TEdit + Tag = 2 + Left = 390 + Top = 89 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = C_CodeNameChange + end + object MF: TEdit + Tag = 2 + Left = 538 + Top = 101 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = C_CodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 542 + Top = 33 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #19968#31561#27425#21697 + #20108#31561#27425#21697 + '' + '' + '') + end + object BCGangNo: TEdit + Tag = 2 + Left = 706 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = C_CodeNameChange + end + object CRTYPE: TComboBox + Tag = 2 + Left = 403 + Top = 33 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 10 + OnChange = TBFindClick + Items.Strings = ( + '' + #26399#21021#20837#24211 + #36864#36135#20837#24211 + #26816#39564#20837#24211) + end + object factoryNoName: TEdit + Tag = 2 + Left = 726 + Top = 105 + Width = 100 + Height = 20 + TabOrder = 11 + OnChange = C_CodeNameChange + end + object ThCust: TEdit + Tag = 2 + Left = 706 + Top = 37 + Width = 100 + Height = 20 + TabOrder = 12 + OnChange = C_CodeNameChange + end + object CheckBox1: TCheckBox + Left = 28 + Top = 56 + Width = 97 + Height = 17 + Caption = #20840#36873 + TabOrder = 13 + OnClick = CheckBox1Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 145 + Width = 1211 + Height = 362 + Align = alClient + PopupMenu = PopupMenu1 + 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 = skCount + Column = v1Column5 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1RollNum + 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 = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'prtkz' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'Prtkz' + Visible = False + 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 = 92 + end + object v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 107 + end + object v1RollNum: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column5: TcxGridDBColumn + Caption = #20837#24211#20844#26020#25968 + DataBinding.FieldName = 'KGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v2Column6: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 85 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v1Column10: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'BCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v1gangNO: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCgangNO' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1kcKw: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'kcKw' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1CRType: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 64 + end + object v1ThCust: TcxGridDBColumn + Caption = #36864#36135#23458#25143 + DataBinding.FieldName = 'ThCust' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column13: TcxGridDBColumn + Caption = #25171#21367#20154 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column14: TcxGridDBColumn + Caption = #25220#21333#20154 + DataBinding.FieldName = 'defstr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #19978#26550#20154 + DataBinding.FieldName = 'defstr3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1Column17: TcxGridDBColumn + Caption = #38138#24067#20154 + DataBinding.FieldName = 'defstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'CKordNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid2Level1: 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 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 = 880 + Top = 184 + 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 = 400 + Top = 224 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + 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 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 ADOPrint1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 960 + Top = 52 + end + object ADOPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 812 + Top = 108 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 912 + Top = 68 + end + object RMDB_Sub: TRMDBDataSet + Visible = True + DataSet = ADOPrint1 + Left = 632 + Top = 160 + end + object RMGridReport1: 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 = 1008 + Top = 8 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 648 + Top = 232 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 608 + Top = 264 + end + object RMBarCodeObject1: TRMBarCodeObject + Left = 152 + Top = 224 + end +end diff --git a/管理系统/U_CKProductBCPInList_Other.pas b/管理系统/U_CKProductBCPInList_Other.pas new file mode 100644 index 0000000..171af50 --- /dev/null +++ b/管理系统/U_CKProductBCPInList_Other.pas @@ -0,0 +1,1010 @@ +unit U_CKProductBCPInList_Other; + +interface + +uses + Windows, Messages, strutils,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, + RM_BarCode; + +type + TfrmCKProductBCPInList_other = 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; + C_CodeName: TEdit; + C_Color: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Label5: TLabel; + conNo: TEdit; + Label6: TLabel; + MJID: TEdit; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v2Column1: 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; + BCGangNo: TEdit; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + TBRKCX: TToolButton; + v1Column4: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + v1RollNum: TcxGridDBColumn; + TBADD: TToolButton; + v1C_Color: TcxGridDBColumn; + v1gangNO: TcxGridDBColumn; + v1kcKw: TcxGridDBColumn; + v1CRType: TcxGridDBColumn; + TBEdit: TToolButton; + ToolButton2: TToolButton; + CRTYPE: TComboBox; + Label12: TLabel; + v1ThCust: TcxGridDBColumn; + v1Note: TcxGridDBColumn; + Label11: TLabel; + factoryNoName: TEdit; + Label13: TLabel; + ThCust: TEdit; + CheckBox1: TCheckBox; + ADOPrint1: TADOQuery; + ADOPrint: TADOQuery; + RMDB_MD: TRMDBDataSet; + RMDB_Sub: TRMDBDataSet; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton1: TToolButton; + ToolButton6: TToolButton; + RMGridReport1: TRMGridReport; + ADOQueryPrint: TADOQuery; + RMDB_Main: TRMDBDataSet; + v1Column16: TcxGridDBColumn; + ToolButton7: TToolButton; + v1Column17: TcxGridDBColumn; + ToolButton8: TToolButton; + Panetime: TPanel; + RMBarCodeObject1: TRMBarCodeObject; + ToolButton9: 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 C_CodeNameChange(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure conNoChange(Sender: TObject); + procedure conNoKeyPress(Sender: TObject; var Key: Char); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBRKCXClick(Sender: TObject); + procedure TBADDClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + private + TblCprk:string; + procedure InitGrid(); + procedure DropTable(); + procedure CreateTable(); + { Private declarations } + public + fDParameters2:string; + { Public declarations } + end; + +var + frmCKProductBCPInList_other: TfrmCKProductBCPInList_other; + +implementation +uses + U_DataLink,U_Fun, U_Printckmd, U_CPRK,U_CKProductBCPOutth, U_NoteList, + U_YGList, U_RKSMEdit, U_CPRK_Other, U_RKSMEdit_Other,U_JYOrderCDOne_Other; + +{$R *.dfm} + +procedure TfrmCKProductBCPInList_other.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 ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; +procedure TfrmCKProductBCPInList_other.CreateTable(); +var + strSQL:string; +begin + TblCprk := '[##CP_RK10' + 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),' + + 'BCID Varchar(20))'#13; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; + +procedure TfrmCKProductBCPInList_other.FormDestroy(Sender: TObject); +begin + frmCKProductBCPInList_other:=nil; +end; + +procedure TfrmCKProductBCPInList_other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + writeCxGrid(self.Caption,Tv1,'Ʒֿ'); + Action:=caFree; +end; + +procedure TfrmCKProductBCPInList_other.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductBCPInList_other.InitGrid(); +begin + 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('select A.defstr1,A.defstr2,A.defstr3,A.Filler,A.FillTime,A.note,A.ThCust,A.mainID,A.subID,A.MJID,A.BCID,A.CRTime,A.CRType,A.CRID,A.Qty,A.RollNum,A.QtyUnit,A.CPType,A.CKOrdNo,A.C_CodeName,A.C_Color,A.RCgangNo,A.BCgangNO,a.kcKw,'); + sql.Add('conNo=(select top 1 ConNo from WFB_MJJY X where X.MJID=A.MJID),'); + sql.Add('MF.defstr7 as PrtMF,MF.defstr8 as Prtkz, '); + sql.Add('factoryNoName=(select X.Aorddefstr4 from JYOrder_Sub_AnPai X where X.APID=A.APID) '); + sql.add('from CK_BanCP_CR1 A '); + Sql.add(' LEFT join KH_Zdy_Attachment MF on MF.zdyName=A.C_CodeName and MF.defstr3=A.C_Color and MF.Type=''CP'''); + 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.C_CodeName like '+quotedstr('%'+trim(C_CodeName.Text)+'%')); + sql.add('and A.C_Color like '+quotedstr('%'+trim(C_Color.Text)+'%')); + sql.add('and A.BCGangNo like '+quotedstr('%'+trim(BCGangNo.Text)+'%')); + SQL.Add('and A.CRFlag='''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + Panetime.Visible:=false; + screen.Cursor:=crdefault; + end; + +end; + +procedure TfrmCKProductBCPInList_other.TBRafreshClick(Sender: TObject); +begin +// BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmCKProductBCPInList_other.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductBCPInList_other.TBCloseClick(Sender: TObject); +begin +//ReadCxGrid(self.Caption,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPInList_other.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption,Tv1,'Ʒֿ'); + if Trim(fDParameters2)='' then + begin + TBRKCX.Visible:=True; + end; + + if Trim(fDParameters2)='ѯ' then + begin + TBADD.Visible:=false; + TBEdit.Visible:=false; + TBRKCX.Visible:=false; + ToolButton3.Visible:=false; + ToolButton4.Visible:=false; + ToolButton5.Visible:=false; + end; + //InitGrid(); +end; + +procedure TfrmCKProductBCPInList_other.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKProductBCPInList_other.TBFindClick(Sender: TObject); +var + strwhere:string; +begin + + if ADOQueryMain.Active then + begin + strwhere:= SGetFilters(Panel1,1,2); + SDofilter(ADOQueryMain,strwhere); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCKProductBCPInList_other.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPInList_other.TBPrintClick(Sender: TObject); +var + filepath:string; +begin + if CDS_Main.IsEmpty then exit; + if CDS_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + CreateTable(); + + + 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(' insert into '+TblCprk+'(BCID) values( '); + SQL.Add(' '+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + sql.add(')'); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Get_CprkList '); + sql.Add('@mainID='+quotedstr(trim(''))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + sql.Add(',@flag='+quotedstr(trim('1'))); + open; + end; + + with AdoPrint1 do + begin + close; + sql.Clear; + sql.Add('exec P_Get_CprkList '); + sql.Add('@mainID='+quotedstr(trim(''))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + sql.Add(',@flag='+quotedstr(trim('10'))); + 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['begdate'] :=FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+' - '+FormatDateTime('yyyy-MM-dd',enddate.DateTime); + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + // RMVariables['Filler'] :=trim(CDS_Main.fieldbyname('Filler').AsString); + RM1.LoadFromFile(filepath); + RM1.ShowReport; + finally + + end; + + DropTable(); + +end; + +procedure TfrmCKProductBCPInList_other.conNoChange(Sender: TObject); +begin +// if Length(Trim(conNo.Text))<4 then Exit; + TBFind.Click; +end; + +procedure TfrmCKProductBCPInList_other.conNoKeyPress(Sender: TObject; + var Key: Char); +begin +{ if Key=#13 then + begin + if Length(Trim(conNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,B.ConNo,C.C_Color,C.MF,C.KZ,D.MJXH'); + sql.Add(',isnull(factoryNoName,B.ConNo) KHName'); + sql.Add(',E.AOrdDefStr1'); + sql.add('from CK_BanCP_CR A '); + Sql.add(' left join Contract_Main B on A.MainId=B.MainId'); + Sql.add(' left join Contract_sub C on A.SubId=C.SubId'); + Sql.add(' left join WFB_MJJY D on A.MJId=D.MJId'); + sql.Add(' left join JYOrder_Sub_AnPai E on A.APID=E.APID'); + sql.add('where A.orderNo + SQL.Add(' and CRFlag='''' '); + Parameters.ParamByName('orderNo').Value:='%'+Trim(conNo.Text)+'%'; + + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + end; } +end; + +procedure TfrmCKProductBCPInList_other.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmCKProductBCPInList_other.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmCKProductBCPInList_other.TBRKCXClick(Sender: TObject); +var + YFID,CRID: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; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while Locate('SSel',True,[]) do + begin + + IF (trim(CDS_Main.fieldbyname('CRType').AsString)='˻') or + (trim(CDS_Main.fieldbyname('CRType').AsString)='ɹ') then + begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(CDS_Main.fieldbyname('ckordNo').AsString)+''''); + sql.Add(' and P_COdeName='''+Trim(CDS_Main.fieldbyname('C_COdeName').AsString)+''''); + sql.Add(' and P_Color='''+Trim(CDS_Main.fieldbyname('C_COlor').AsString)+''''); + sql.Add(' and YFName IN(''˻'',''ɹ'') '); + sql.Add(' and status>=''1'' '); + Open; + if not IsEmpty then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ӦտӦûгˣܳ!','ʾ',0); + Exit; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(CDS_Main.fieldbyname('ckordNo').AsString)+''''); + sql.Add(' and P_COdeName='''+Trim(CDS_Main.fieldbyname('C_COdeName').AsString)+''''); + sql.Add(' and P_Color='''+Trim(CDS_Main.fieldbyname('C_COlor').AsString)+''''); + sql.Add(' and YFName='''+Trim(CDS_Main.fieldbyname('CRType').AsString)+''''); + Open; + if not IsEmpty then + begin + YFID:=Fieldbyname('YFID').AsString; + CRID:=Fieldbyname('CRID').AsString; + end; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR1 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_CR1 where BCID='''+Trim(CDS_Main.fieldbyname('BCID').AsString)+''''); + sql.Add('delete CK_BanCP_KC1 where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString)); + sql.Add('Update WFB_MJJY Set MJStr2=''δ'' where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + + IF trim(CDS_Main.fieldbyname('CRType').AsString)='˻' then + begin + sql.Add('update YF_Money_CR Set Qty=(select -1*isnull(Sum(Qty),0) from CK_BanCP_CR1 A '); + sql.Add(' where A.ckordNo=YF_Money_CR.mainID and A.C_COdeName=YF_Money_CR.P_CodeName and A.C_Color=YF_Money_CR.P_Color and A.CRType=''˻'' )'); + sql.Add(',PS=(select -1* isnull(count(*),0) from CK_BanCP_CR1 A '); + sql.Add(' where A.ckordNo=YF_Money_CR.mainID and A.C_COdeName=YF_Money_CR.P_CodeName and A.C_Color=YF_Money_CR.P_Color and A.CRType=''˻'' )'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + end; + IF trim(CDS_Main.fieldbyname('CRType').AsString)='ɹ' then + begin + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(Qty),0) from CK_BanCP_CR1 A '); + sql.Add(' where A.ckordNo=YF_Money_CR.mainID and A.C_COdeName=YF_Money_CR.P_CodeName and A.C_Color=YF_Money_CR.P_Color and A.CRType=''˻'' )'); + sql.Add(',PS=(select isnull(count(*),0) from CK_BanCP_CR1 A '); + sql.Add(' where A.ckordNo=YF_Money_CR.mainID and A.C_COdeName=YF_Money_CR.P_CodeName and A.C_Color=YF_Money_CR.P_Color and A.CRType=''˻'' )'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + end; + + + sql.Add('delete from YF_Money_CR '); + sql.Add('where YFID='''+Trim(YFID)+''' and Qty=0 '); + + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + + 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; + CDS_Main.Delete; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + end; +end; + +procedure TfrmCKProductBCPInList_other.TBADDClick(Sender: TObject); +begin + frmCPRK_Other:=TfrmCPRK_Other.create(self); + with frmCPRK_Other do + begin + if Trim(DParameters2)<>'' then + begin + CRType.Items.Clear; + CRType.Items.Add('˻'); + // CRType.Items.Add('ɹ'); + CRType.ItemIndex:=0; + end; + fFlag:=0; + fkeyNo:=''; + fBCID:=''; + if showmodal=1 then + begin + TBRafresh.Click; + end; + free; + end; +end; + +procedure TfrmCKProductBCPInList_other.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then exit; + if (trim(CDS_Main.fieldbyname('CRType').AsString)<>'ڳ') and + (trim(CDS_Main.fieldbyname('CRType').AsString)<>'˻') then + begin + application.MessageBox('ڳ˻޸','ʾϢ',0); + exit; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select A.* from CK_BanCP_KC1 A '); + sql.Add('inner join CK_BanCP_CR1 B on B.crid=A.crid and B.MJID=A.MJID '); + sql.Add('where (A.KCQty<>B.Qty or A.kcRollNum <> B.RollNum or isnull(A.KCStatus,''0'')>''0'') '); + sql.Add('and B.CKOrdNo='+quotedstr(trim(CDS_Main.fieldbyname('ckordNo').AsString))); + sql.Add('and B.BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + open; + end; + if not ADOQueryCmd.IsEmpty then + begin + application.MessageBox('ѳ⣬޸','ʾϢ',0); + exit; + end; + frmCPRK_Other:=TfrmCPRK_Other.create(self); + with frmCPRK_Other do + begin + fFlag:=1; + fkeyNo:=self.CDS_Main.fieldbyname('ckordNo').AsString; + fBCID:=self.CDS_Main.fieldbyname('BCID').AsString; + if showmodal=1 then + begin + self.InitGrid(); + end; + free; + end; + +end; + +procedure TfrmCKProductBCPInList_other.ToolButton2Click(Sender: TObject); +begin + frmCKProductBCPOutth:=TfrmCKProductBCPOutth.create(self); + with frmCKProductBCPOutth do + begin + if showmodal=1 then + begin + self.TBRafresh.Click; + end; + Release; + end; +end; + +procedure TfrmCKProductBCPInList_other.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; + +procedure TfrmCKProductBCPInList_other.ToolButton3Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmYGlist:=TfrmYGlist.create(self); + with frmYGlist do + begin + frmYGlist.Caption:='Ӵ'; + frmYGlist.Label1.Caption:=''; + if showmodal=1 then + begin + // Fnote:=trim(Memo1.Text); + + 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 SET defstr1='+quotedstr(trim(Memo1.Text))); + sql.Add('where BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + TBRafresh.Click; + end; + close; + end; + +end; + +procedure TfrmCKProductBCPInList_other.ToolButton4Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmYGlist:=TfrmYGlist.create(self); + with frmYGlist do + begin + frmYGlist.Caption:='ӳ'; + frmYGlist.Label1.Caption:=''; + if showmodal=1 then + begin + // Fnote:=trim(Memo1.Text); + + 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 SET defstr2='+quotedstr(trim(Memo1.Text))); + sql.Add('where BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + TBRafresh.Click; + end; + close; + end; +end; + +procedure TfrmCKProductBCPInList_other.ToolButton5Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmYGlist:=TfrmYGlist.create(self); + with frmYGlist do + begin + frmYGlist.Caption:='ϼ'; + frmYGlist.Label1.Caption:='ϼ'; + if showmodal=1 then + begin + // Fnote:=trim(Memo1.Text); + + 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 SET defstr3='+quotedstr(trim(Memo1.Text))); + sql.Add('where BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + TBRafresh.Click; + end; + close; + end; +end; + +procedure TfrmCKProductBCPInList_other.ToolButton1Click(Sender: TObject); +begin + try + frmRKSMEdit_other:=TfrmRKSMEdit_other.Create(Application); + with frmRKSMEdit_other do + begin + + if ShowModal=1 then + begin + + end; + end; + finally + frmRKSMEdit_other.Free; + end; +end; + +procedure TfrmCKProductBCPInList_other.ToolButton6Click(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if CDS_Main.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 + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.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); + CDS_Main.EnableControls; + exit; + end; + with ADOQueryPrint do //ӢƲҪƷжȡҪڿͻԶжȡnoteֶΡ + begin + Close; + SQL.Clear; + sql.Add('select A.*,Qty as mjlen,QtyUnit as MJTypeother '); + sql.Add(' from CK_BanCP_CR1 A') ; + SQL.Add(' where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + SQL.Add(' and Qty>0 and CRFlag='''' '); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RMGridReport1.LoadFromFile(fPrintFile); + // RMGridReport1.ShowReport; + RMGridReport1.PrintReport; + end else + begin + CDS_Main.EnableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + Exit; + end; + end; + Next; + end; + end; + CDS_Main.EnableControls; +end; + +procedure TfrmCKProductBCPInList_other.ToolButton7Click(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 + begin + application.MessageBox('˻Ϣܴӡ','ʾϢ',0); + exit; + end; +{ with AdoPrint do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCp_CR1 '); + sql.Add('where CKordNo='+quotedstr(trim(CDS_Main.fieldbyname('CKordNo').AsString))); + open; + end; } + + + + CreateTable(); + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PrintMd10 '); + sql.Add('@mainID='+quotedstr(trim(CDS_Main.fieldbyname('CKordNo').AsString))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + sql.Add(',@flag='+quotedstr(trim('˻2'))); + open; + end; + DropTable(); + + { try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(AdoPrint.fieldbyname('CKordNo').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); + CDS_Main.EnableControls; + exit; + end; + } + try + fPrintFile:=ExtractFilePath(Application.ExeName) + 'report\Ʒ˻2.rmf'; + if not FileExists(Pchar(fPrintFile)) then + begin + application.MessageBox(pchar('ļ['+fPrintFile+']ڣ'),'ʾϢ',MB_IConError); + exit; + end; + RMVariables['QRBARCODE']:=fImagePath; + // RMVariables['begdate'] :=FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+' - '+FormatDateTime('yyyy-MM-dd',enddate.DateTime); + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + // RMVariables['Filler'] :=trim(CDS_Main.fieldbyname('Filler').AsString); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + finally + + end; +end; + +procedure TfrmCKProductBCPInList_other.ToolButton8Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmYGlist:=TfrmYGlist.create(self); + with frmYGlist do + begin + frmYGlist.Caption:='̲'; + frmYGlist.Label1.Caption:='̲'; + if showmodal=1 then + begin + // Fnote:=trim(Memo1.Text); + + 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 SET defstr4='+quotedstr(trim(Memo1.Text))); + sql.Add('where BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + TBRafresh.Click; + end; + close; + end; +end; + +procedure TfrmCKProductBCPInList_other.ToolButton9Click(Sender: TObject); +begin + frmJYOrderCDOne_other:=TfrmJYOrderCDOne_other.Create(self); + with frmJYOrderCDOne_other do + begin + + trk.Visible:=true; + ToolButton1.Visible:=false; + MJStr2.ItemIndex:=MJStr2.Items.IndexOf('δ'); + MJStr2.Enabled:=false; + if showmodal=1 then + begin + end; + free; + + 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..96dba11 --- /dev/null +++ b/管理系统/U_CKProductBCPKCHZList.dfm @@ -0,0 +1,414 @@ +object frmCKProductBCPKCHZList: TfrmCKProductBCPKCHZList + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + 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 = 1366 + 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 = 1366 + Height = 44 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 31 + Top = 16 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 424 + Top = 16 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 780 + 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 = 32 + Top = 52 + 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 = 240 + Top = 64 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label11: TLabel + Left = 224 + Top = 16 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object C_CodeName: TEdit + Tag = 2 + Left = 80 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 448 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = C_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 829 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + Visible = False + end + object EndDate: TDateTimePicker + Left = 829 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + Visible = False + end + object conNO: TEdit + Tag = 2 + Left = 78 + Top = 45 + Width = 109 + 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 Edit1: TEdit + Left = 268 + Top = 60 + Width = 113 + Height = 20 + TabOrder = 9 + end + object C_CodeName_ZW: TEdit + Tag = 2 + Left = 272 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = C_CodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 77 + Width = 1366 + Height = 639 + 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 = v2Column6 + end + item + Kind = skSum + Column = v1KCRollNum + 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 v2Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 144 + end + object v1Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName_ZW' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 101 + end + object v1KCRollNum: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Width = 103 + end + object v2Column6: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 123 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'KCQtyUnit' + Visible = False + 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..608e1ab --- /dev/null +++ b/管理系统/U_CKProductBCPKCHZList.pas @@ -0,0 +1,180 @@ +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; + +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; + C_CodeName: TEdit; + C_Color: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Tv1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + Label5: TLabel; + conNO: TEdit; + Label6: TLabel; + MJID: TEdit; + v1Column7: TcxGridDBColumn; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + MovePanel2: TMovePanel; + v1KCRollNum: TcxGridDBColumn; + Label10: TLabel; + Edit1: TEdit; + v1Column1: TcxGridDBColumn; + C_CodeName_ZW: TEdit; + Label11: 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 C_CodeNameChange(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductBCPKCHZList: TfrmCKProductBCPKCHZList; + +implementation +uses + U_DataLink,U_Fun; + +{$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 sum(KCQty) KCQty,Sum(KCKgQty) KCKgQty,Sum(KCRollNum) KCRollNum,C_CodeName,C_Color,KCQtyUnit=''M'', '); + sql.Add(' C_CodeName_ZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.Type=''CP'') '); + sql.Add(' from CK_BanCP_KC A '); + sql.Add(' where A.KCQty<>0 group by C_CodeName,C_Color'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + 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('ֿб1',Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPKCHZList.FormShow(Sender: TObject); +begin + + ReadCxGrid('ֿб1',Tv1,'Ʒֿ'); + + //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.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/管理系统/U_CKProductBCPKCHZListSUM_other.dfm b/管理系统/U_CKProductBCPKCHZListSUM_other.dfm new file mode 100644 index 0000000..3013093 --- /dev/null +++ b/管理系统/U_CKProductBCPKCHZListSUM_other.dfm @@ -0,0 +1,399 @@ +object frmCKProductBCPKCHZListSUM_other: TfrmCKProductBCPKCHZListSUM_other + Left = 137 + 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 = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 215 + Top = 16 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 240 + Top = 48 + Width = 24 + Height = 12 + Caption = #39068#33394 + Visible = False + end + object Label1: TLabel + Left = 12 + Top = 16 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 816 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + Visible = False + end + object Label5: TLabel + Left = 32 + Top = 52 + 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 = 240 + Top = 64 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object C_CodeName: TEdit + Tag = 2 + Left = 268 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 272 + Top = 49 + Width = 100 + Height = 20 + TabOrder = 1 + Visible = False + OnChange = C_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 61 + Top = 13 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 829 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + Visible = False + end + object conNO: TEdit + Tag = 2 + Left = 78 + Top = 45 + Width = 109 + 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 Edit1: TEdit + Left = 268 + Top = 60 + Width = 113 + Height = 20 + TabOrder = 9 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 73 + Width = 1011 + Height = 400 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1KCRollNum + 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 v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 208 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1KCRollNum: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Width = 107 + end + object v1Column6: TcxGridDBColumn + Caption = #21367#25968#37327 + DataBinding.FieldName = 'JQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column6: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 103 + 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_CKProductBCPKCHZListSUM_other.pas b/管理系统/U_CKProductBCPKCHZListSUM_other.pas new file mode 100644 index 0000000..9ba075c --- /dev/null +++ b/管理系统/U_CKProductBCPKCHZListSUM_other.pas @@ -0,0 +1,180 @@ +unit U_CKProductBCPKCHZListSUM_other; + +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; + +type + TfrmCKProductBCPKCHZListSUM_other = 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; + C_CodeName: TEdit; + C_Color: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Tv1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + v2Column1: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + Label5: TLabel; + conNO: TEdit; + Label6: TLabel; + MJID: TEdit; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + MovePanel2: TMovePanel; + v1KCRollNum: TcxGridDBColumn; + Label10: TLabel; + Edit1: 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 C_CodeNameChange(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductBCPKCHZListSUM_other: TfrmCKProductBCPKCHZListSUM_other; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmCKProductBCPKCHZListSUM_other.FormDestroy(Sender: TObject); +begin + frmCKProductBCPKCHZListSUM_other:=nil; +end; + +procedure TfrmCKProductBCPKCHZListSUM_other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductBCPKCHZListSUM_other.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + // EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductBCPKCHZListSUM_other.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + sql.Add(' EXEC P_Get_KCHZ '); + sql.Add(' @CRTime='''+formatdateTime('yyyy-MM-dd',begdate.DateTime+1)+''' '); + // sql.Add(' select sum(KCQty) KCQty,Sum(KCKgQty) KCKgQty,Sum(KCRollNum) KCRollNum,C_CodeName,KCQtyUnit=''M'' '); + // sql.Add(' from CK_BanCP_KC1 A '); + // sql.Add(' where A.KCQty<>0 group by C_CodeName'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmCKProductBCPKCHZListSUM_other.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCKProductBCPKCHZListSUM_other.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductBCPKCHZListSUM_other.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPKCHZListSUM_other.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + + //InitGrid(); +end; + +procedure TfrmCKProductBCPKCHZListSUM_other.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKProductBCPKCHZListSUM_other.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 TfrmCKProductBCPKCHZListSUM_other.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/管理系统/U_CKProductBCPKCHZList_other.dfm b/管理系统/U_CKProductBCPKCHZList_other.dfm new file mode 100644 index 0000000..fe5e8f4 --- /dev/null +++ b/管理系统/U_CKProductBCPKCHZList_other.dfm @@ -0,0 +1,427 @@ +object frmCKProductBCPKCHZList_other: TfrmCKProductBCPKCHZList_other + Left = 137 + 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 = 44 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 31 + Top = 16 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 244 + Top = 16 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 780 + 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 = 32 + Top = 52 + 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 = 240 + Top = 64 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object C_CodeName: TEdit + Tag = 2 + Left = 80 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 268 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = C_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 829 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + Visible = False + end + object EndDate: TDateTimePicker + Left = 829 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + Visible = False + end + object conNO: TEdit + Tag = 2 + Left = 78 + Top = 45 + Width = 109 + 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 Edit1: TEdit + Left = 268 + Top = 60 + Width = 113 + Height = 20 + TabOrder = 9 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 77 + Width = 1011 + Height = 396 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1KCRollNum + 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 = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNO' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 144 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 101 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v1KCRollNum: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Width = 133 + end + object v1Column6: TcxGridDBColumn + Caption = #21367#25968#37327 + DataBinding.FieldName = 'JQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + 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' + Visible = False + 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_other.pas b/管理系统/U_CKProductBCPKCHZList_other.pas new file mode 100644 index 0000000..19fb58e --- /dev/null +++ b/管理系统/U_CKProductBCPKCHZList_other.pas @@ -0,0 +1,182 @@ +unit U_CKProductBCPKCHZList_other; + +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; + +type + TfrmCKProductBCPKCHZList_other = 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; + C_CodeName: TEdit; + C_Color: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Tv1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + Label5: TLabel; + conNO: TEdit; + Label6: TLabel; + MJID: TEdit; + v1Column7: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + v1Column3: TcxGridDBColumn; + MovePanel2: TMovePanel; + v1KCRollNum: TcxGridDBColumn; + Label10: TLabel; + Edit1: 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 C_CodeNameChange(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductBCPKCHZList_other: TfrmCKProductBCPKCHZList_other; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmCKProductBCPKCHZList_other.FormDestroy(Sender: TObject); +begin + frmCKProductBCPKCHZList_other:=nil; +end; + +procedure TfrmCKProductBCPKCHZList_other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductBCPKCHZList_other.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductBCPKCHZList_other.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select sum(KCQty) KCQty,Sum(KCKgQty) KCKgQty,Sum(KCRollNum) KCRollNum,C_CodeName,C_Color,KCQtyUnit=''M'' '); + sql.Add(' from CK_BanCP_KC1 KC '); + sql.Add(' where KC.KCQty<>0 group by C_CodeName,C_Color'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmCKProductBCPKCHZList_other.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCKProductBCPKCHZList_other.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductBCPKCHZList_other.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPKCHZList_other.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + + //InitGrid(); +end; + +procedure TfrmCKProductBCPKCHZList_other.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKProductBCPKCHZList_other.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_other.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/管理系统/U_CKProductBCPKCList.dfm b/管理系统/U_CKProductBCPKCList.dfm new file mode 100644 index 0000000..65fd1d2 --- /dev/null +++ b/管理系统/U_CKProductBCPKCList.dfm @@ -0,0 +1,918 @@ +object frmCKProductBCPKCList: TfrmCKProductBCPKCList + Left = 320 + Top = 281 + 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 + 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 = 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#24211#23384#26126#32454 + ImageIndex = 12 + OnClick = TBPrintClick + end + object ToolButton2: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #24211#23384#21512#24182 + ImageIndex = 103 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 387 + Top = 0 + AutoSize = True + Caption = #24211#23384#25209#37327#25286#20998 + ImageIndex = 107 + OnClick = ToolButton1Click + end + object ToolButton5: TToolButton + Left = 498 + Top = 0 + AutoSize = True + Caption = #25209#37327#24211#23384#20462#25913 + ImageIndex = 41 + OnClick = ToolButton5Click + end + object ToolButton3: TToolButton + Left = 609 + Top = 0 + AutoSize = True + Caption = #24211#23384#35843#25972#20445#23384 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBKWChg: TToolButton + Left = 720 + Top = 0 + AutoSize = True + Caption = #20445#23384#32568#21495 + ImageIndex = 106 + OnClick = TBKWChgClick + end + object TBNoBH: TToolButton + Left = 807 + Top = 0 + AutoSize = True + Caption = #25764#38144#25253#36135 + ImageIndex = 86 + OnClick = TBNoBHClick + end + object ToolButton6: TToolButton + Left = 894 + Top = 0 + AutoSize = True + Caption = #29305#27530#20462#25913 + ImageIndex = 49 + OnClick = ToolButton6Click + end + object ToolButton4: TToolButton + Left = 981 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object kcKw: TBtnEditA + Left = 1068 + Top = 0 + Width = 121 + Height = 30 + TabOrder = 0 + OnExit = kcKwExit + OnBtnClick = kcKwBtnClick + end + object TBClose: TToolButton + Left = 1189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 84 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 218 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label1: TLabel + Left = 940 + Top = 16 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + Visible = False + end + object Label2: TLabel + Left = 972 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + Visible = False + end + object Label5: TLabel + Left = 34 + Top = 12 + Width = 48 + Height = 12 + Caption = #21333' '#21495 + end + object Label6: TLabel + Left = 34 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 218 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 395 + Top = 36 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 724 + Top = 12 + Width = 24 + Height = 12 + Caption = #31561#32423 + end + object Label10: TLabel + Left = 395 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label4: TLabel + Left = 555 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label12: TLabel + Left = 600 + Top = 36 + Width = 84 + Height = 12 + Caption = '<= '#24211#23384#25968#37327' <=' + end + object C_CodeName: TEdit + Tag = 2 + Left = 267 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 1001 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + Visible = False + end + object EndDate: TDateTimePicker + Left = 1001 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + Visible = False + end + object conNo: TEdit + Tag = 2 + Left = 84 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = C_CodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 84 + Top = 33 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = C_CodeNameChange + end + object KZ: TEdit + Tag = 2 + Left = 267 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = C_CodeNameChange + end + object MF: TEdit + Tag = 2 + Left = 422 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = C_CodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 754 + Top = 8 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + OnChange = TBFindClick + Items.Strings = ( + '' + #27491#21697 + #27425#21697 + #25913#33394#21697 + '') + end + object C_Color: TEdit + Tag = 2 + Left = 422 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = C_CodeNameChange + end + object AOrdDefStr1: TEdit + Tag = 2 + Left = 582 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = C_CodeNameChange + end + object Edit1: TEdit + Left = 556 + Top = 32 + Width = 40 + Height = 20 + TabOrder = 10 + OnChange = C_CodeNameChange + end + object Edit2: TEdit + Left = 692 + Top = 32 + Width = 40 + Height = 20 + TabOrder = 11 + OnChange = C_CodeNameChange + end + object CheckBox1: TCheckBox + Left = 28 + Top = 56 + Width = 97 + Height = 17 + Caption = #20840#36873 + TabOrder = 12 + OnClick = CheckBox1Click + end + object CheckBox2: TCheckBox + Left = 856 + Top = 12 + Width = 97 + Height = 17 + Caption = #31934#30830#26597#35810 + TabOrder = 13 + OnClick = CheckBox2Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 116 + Width = 1366 + Height = 599 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column6 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1KCROllNum + 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 v1Column11: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column12: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeNameZw' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 77 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + 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 v1Column4: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1gangNO: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'gangNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.Items.Strings = ( + #27491#21697 + #19968#31561#27425#21697 + #20108#31561#27425#21697) + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v2Column5: TcxGridDBColumn + Caption = #24211#23384#20844#26020#25968 + DataBinding.FieldName = 'KCKGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v2Column6: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'kcQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column10: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KCKW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'KcNote' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1KCROllNum: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCROllNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #30424#28857#26631#24535 + DataBinding.FieldName = 'PDflag' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object Tv1Column1: TcxGridDBColumn + Caption = #25253#36135#26102#38388 + DataBinding.FieldName = 'BHTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object Tv1Column2: TcxGridDBColumn + Caption = #26159#21542#25253#36135 + DataBinding.FieldName = 'BHFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 426 + Top = 143 + 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 = 424 + 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 Panel2: TPanel + Left = 726 + Top = 188 + Width = 359 + Height = 173 + Color = clSkyBlue + TabOrder = 5 + Visible = False + object Label18: TLabel + Left = 37 + Top = 37 + Width = 56 + Height = 14 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label24: TLabel + Left = 37 + Top = 79 + Width = 49 + Height = 14 + Caption = #39068' '#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Button3: TButton + Left = 236 + Top = 31 + Width = 60 + Height = 25 + Caption = #20462#25913#21517#31216 + TabOrder = 0 + Visible = False + OnClick = Button3Click + end + object Button4: TButton + Left = 210 + Top = 123 + Width = 60 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button4Click + end + object Button5: TButton + Left = 236 + Top = 74 + Width = 60 + Height = 25 + Caption = #20462#25913#39068#33394 + TabOrder = 2 + Visible = False + OnClick = Button5Click + end + object Edit_C_CodeName: TEdit + Left = 100 + Top = 35 + Width = 121 + Height = 20 + TabOrder = 3 + end + object Edit_C_Color: TEdit + Left = 100 + Top = 77 + Width = 121 + Height = 20 + TabOrder = 4 + end + object CheckBox3: TCheckBox + Left = 12 + Top = 37 + Width = 20 + Height = 17 + TabOrder = 5 + end + object CheckBox4: TCheckBox + Left = 12 + Top = 79 + Width = 20 + Height = 17 + TabOrder = 6 + end + object Button9: TButton + Left = 65 + Top = 123 + Width = 60 + Height = 25 + Caption = #20462#25913 + TabOrder = 7 + OnClick = Button9Click + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1028 + Top = 76 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1020 + Top = 44 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1064 + Top = 144 + 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 = 536 + Top = 256 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object AdoPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + CommandTimeout = 60 + Parameters = <> + Left = 304 + Top = 132 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = AdoPrint + Left = 1100 + Top = 176 + end + object RMGridReport1: 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 = 1140 + Top = 208 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 1076 + Top = 45 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 648 + Top = 232 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 608 + Top = 264 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 248 + Top = 144 + end +end diff --git a/管理系统/U_CKProductBCPKCList.pas b/管理系统/U_CKProductBCPKCList.pas new file mode 100644 index 0000000..ac2330e --- /dev/null +++ b/管理系统/U_CKProductBCPKCList.pas @@ -0,0 +1,1435 @@ +unit U_CKProductBCPKCList; + +interface + +uses + Windows, Messages, SysUtils, strUtils, 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, cxContainer, cxCurrencyEdit, + 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 + 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; + C_CodeName: 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; + conNo: TEdit; + Label6: TLabel; + MJID: TEdit; + v1Column7: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Panel4: TPanel; + Label11: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + MovePanel2: TMovePanel; + v1gangNO: TcxGridDBColumn; + v1C_Color: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Label10: TLabel; + C_Color: TEdit; + Label4: TLabel; + AOrdDefStr1: TEdit; + TBKWChg: TToolButton; + kcKw: TBtnEditA; + v1Column11: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + v1KCROllNum: TcxGridDBColumn; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Edit1: TEdit; + Label12: TLabel; + Edit2: TEdit; + AdoPrint: TADOQuery; + RMDB_MD: TRMDBDataSet; + RMGridReport1: TRMGridReport; + RMXLSExport2: TRMXLSExport; + ToolButton4: TToolButton; + ADOQueryPrint: TADOQuery; + RMDB_Main: TRMDBDataSet; + CheckBox1: TCheckBox; + ToolButton5: TToolButton; + ADOQueryTmp: TADOQuery; + v1Column12: TcxGridDBColumn; + CheckBox2: TCheckBox; + v1Column13: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + TBNoBH: TToolButton; + ToolButton6: TToolButton; + Panel2: TPanel; + Label18: TLabel; + Label24: TLabel; + Button3: TButton; + Button4: TButton; + Button5: TButton; + Edit_C_CodeName: TEdit; + Edit_C_Color: TEdit; + CheckBox3: TCheckBox; + CheckBox4: TCheckBox; + Button9: TButton; + 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 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 N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBKWChgClick(Sender: TObject); + procedure kcKwBtnClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure kcKwExit(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure v1Column5PropertiesEditValueChanged(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure TBNoBHClick(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button9Click(Sender: TObject); + private + TblCprk: string; + FLeft, FTop: Integer; + procedure InitGrid(); + { Private declarations } + public + procedure CreateTable(); + procedure DropTable(); + { 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 + frmCKProductBCPKCList: TfrmCKProductBCPKCList; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp, U_kcchEdit, U_KCEdit; + +{$R *.dfm} + +procedure TfrmCKProductBCPKCList.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 ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; + +procedure TfrmCKProductBCPKCList.CreateTable(); +var + strSQL: string; +begin + TblCprk := '[##CP_PPack' + 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),' + 'CRID VARCHAR(20),' + 'BCID Varchar(20))'#13; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + 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 + //cxGrid1.Align:=alClient; + 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'); + SQl.Add('@ConNo=' + quotedstr(trim(conNo.Text))); + SQl.Add(',@C_CodeName=' + quotedstr(trim(C_CodeName.Text))); + SQl.Add(',@C_Color=' + quotedstr(trim(C_Color.Text))); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + TBFind.Click; +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(DParameters1) <> 'Ȩ' then + begin + TBKWChg.Visible := False; + kcKw.Visible := False; + ToolButton1.Visible := fALSE; + ToolButton2.Visible := false; + v2Column6.Options.Editing := false; + v1Column5.Options.Editing := TRUE; + ToolButton3.Visible := false; + ToolButton5.Visible := false; + TBNoBH.Visible := false; + ToolButton6.Visible := false; + end + else + begin + TBKWChg.Visible := True; + kcKw.Visible := True; + ToolButton1.Visible := fALSE; + ToolButton2.Visible := fALSE; + v2Column6.Options.Editing := true; + v1Column5.Options.Editing := TRUE; + ToolButton3.Visible := true; + ToolButton5.Visible := true; + TBNoBH.Visible := true; + ToolButton6.Visible := true; + end; + + //InitGrid(); +end; + +procedure TfrmCKProductBCPKCList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel('б', cxGrid2); +end; + +procedure TfrmCKProductBCPKCList.TBFindClick(Sender: TObject); +var + strwhere: string; +begin + + if ADOQueryMain.Active then + begin + strwhere := SGetFilters(Panel1, 1, 2); + + if (trim(strwhere) = '') and (trim(Edit1.Text) <> '') then + begin + strwhere := ' KCQty>=' + floattostr(strtofloatdef(trim(edit1.Text), 0)); + end + else if (trim(strwhere) <> '') and (trim(Edit1.Text) <> '') then + begin + strwhere := strwhere + ' and KCQty>=' + floattostr(strtofloatdef(trim(edit1.Text), 0)); + end; + + if (trim(strwhere) = '') and (trim(Edit2.Text) <> '') then + begin + strwhere := ' KCQty<=' + floattostr(strtofloatdef(trim(Edit2.Text), 0)); + end + else if (trim(strwhere) <> '') and (trim(Edit2.Text) <> '') then + begin + strwhere := strwhere + ' and KCQty<=' + floattostr(strtofloatdef(trim(Edit2.Text), 0)); + end; + + + { if (trim(strwhere)='') then + begin + + IF trim(CPType.Text)='Ʒ' then + strwhere:=' CPType=''Ʒ'' '; + IF trim(CPType.Text)='Ʒ' then + strwhere:=' CPType<>''Ʒ'' '; + end; + + if (trim(strwhere)<>'') then + begin + + IF trim(CPType.Text)='Ʒ' then + strwhere:=strwhere+' and CPType=''Ʒ'' '; + IF trim(CPType.Text)='Ʒ' then + strwhere:=strwhere+' and CPType<>''Ʒ'' '; + end; } + + SDofilter(ADOQueryMain, strwhere); + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + end; + +end; + +procedure TfrmCKProductBCPKCList.C_CodeNameChange(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 + {if Trim(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName)<>'CDQK' then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CDQK=dbo.F_Get_Order_SubStr(:MJID,''MJCDHZSL'')'); + Parameters.ParamByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + Open; + end; + with CDS_Main do + begin + Edit; + FieldByName('CDQK').Value:=Trim(ADOQueryTemp.fieldbyname('CDQK').AsString); + Post; + end; } + 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.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, True); +end; + +procedure TfrmCKProductBCPKCList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main, False); +end; + +procedure TfrmCKProductBCPKCList.TBKWChgClick(Sender: TObject); +begin + if not CDS_Main.Active then + exit; + if CDS_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + { if Trim(kcKw.Text)='' then + begin + Application.MessageBox('׺ŲΪ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪִд˲', 'ʾ', 32 + 4) <> IDYES then + Exit; + conNo.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('Update CK_BanCP_CR Set BCGANGnO=''' + Trim(kcKw.Text) + ''''); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + sql.Add('Update CK_BanCP_KC Set BCGANGnO=''' + Trim(kcKw.Text) + ''''); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value := False; + FieldByName('AOrdDefStr1').Value := Trim(kcKw.Text); + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!', 'ʾ', 0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +procedure TfrmCKProductBCPKCList.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 TfrmCKProductBCPKCList.ToolButton1Click(Sender: TObject); +var + CRID: integer; + i, J: integer; + fAPTM: string; + Isedit: boolean; + RollNum1: integer; + num1: double; + fBCID, FCRID: string; +begin + if not CDS_Main.Active then + exit; + if CDS_Main.IsEmpty then + exit; + Isedit := false; + frmkcchEdit := TfrmkcchEdit.create(self); + with frmkcchEdit do + begin + // fBCID:=trim(CDS_Main.fieldbyname('BCID').AsString); + // FCRID:=trim(CDS_Main.fieldbyname('CRID').AsString); + edit1.text := trim(CDS_Main.fieldbyname('KCROllNum').AsString); + edit2.text := trim(CDS_Main.fieldbyname('KCqty').AsString); + if showmodal = 1 then + begin + RollNum1 := strtointdef(cxCurrencyEdit1.Text, 0); + num1 := strtofloatdef(cxCurrencyEdit2.Text, 0); + // i:=RadioGroup1.ItemIndex; + Isedit := true; + end; + free; + end; + + if RollNum1 < 1 then + exit; + if Isedit = false then + exit; + + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while CDS_Main.Locate('SSel', True, []) do + begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from CK_BanCP_KC '); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + // sql.Add(' and KCQty=0.0 '); + open; + if ADOQueryTemp.fieldbyname('KCQty').AsFloat = 0.0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ѡ¼г⣬ܵ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; + fBCID := trim(CDS_Main.fieldbyname('BCID').AsString); + FCRID := trim(CDS_Main.fieldbyname('CRID').AsString); + for J := 1 to RollNum1 do + begin + if GetLSNo(ADOQueryCmd, fAPTM, 'C', 'APTM', 4, 1) = False then + begin + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC A'); + sql.Add('where BCID=' + quotedstr(trim(fBCID))); + sql.Add('and CRID=' + quotedstr(trim(FCRID))); + open; + 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').AsInteger; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC A'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + for i := 0 to ADOQueryCmd.FieldCount - 1 do + begin + ADOQueryCmd.fields[i].value := ADOQueryTmp.Fields[i].Value; + end; + ADOQueryCmd.FieldByName('CRID').Value := CRID; + ADOQueryCmd.FieldByName('KCROllNum').Value := 1; + ADOQueryCmd.FieldByName('KCQty').Value := num1; + ADOQueryCmd.FieldByName('oldCRID').Value := FCRID; + ADOQueryCmd.FieldByName('MJID').Value := trim(fAPTM); + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC A'); + sql.Add('where CRID=''' + trim(FCRID) + ''''); + open; + end; + ADOQueryCmd.Edit; + ADOQueryCmd.FieldByName('KCROllNum').Value := 1; + ADOQueryCmd.FieldByName('KCQty').Value := ADOQueryCmd.FieldByName('KCQty').AsFloat - num1; + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CK_BanCP_KC SET KCROllNum=0 '); + sql.Add('where CRID=''' + trim(FCRID) + ''' and KCQty<=0 '); + execsql; + end; + + end; + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCp_KC SET KCRollNum =1 '); + sql.Add('WHERE (KCQty<>0 or KCKgQty<>0)and KcRollNum=0 '); + ExecSQL; + end; + } + + Edit; + // FieldByName('kcqty').Value:=kcQty; + FieldByName('SSel').Value := False; + post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!', 'ʾ', 0); + TBRafresh.Click; + CDS_Main.Locate('CRID', FCRID, []); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +procedure TfrmCKProductBCPKCList.ToolButton2Click(Sender: TObject); +var + i, FCRID: integer; + fconNo, FC_CodeName, FC_Color: string; + fRollNum, FQty: double; +begin + if not CDS_Main.Active then + exit; + if not CDS_Main.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪϲ', 'ʾ', 32 + 4) <> IDYES then + Exit; + i := 0; + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + if Fieldbyname('Ssel').AsBoolean then + begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from CK_BanCP_KC '); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + sql.Add(' and KCQty=0.0 '); + open; + if not ADOQueryTemp.IsEmpty then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ѡ¼г⣬ܵ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; + if i = 0 then + begin + fconNo := trim(Fieldbyname('ConNo').AsString); + FC_CodeName := trim(Fieldbyname('C_CodeName').AsString); + FC_Color := trim(Fieldbyname('C_Color').AsString); + end + else + begin + if trim(fconNo) <> trim(Fieldbyname('ConNo').AsString) then + begin + EnableControls; + application.MessageBox('񵥺Ųͬܺϲ', 'ʾϢ', 0); + exit; + end; + if trim(FC_CodeName) <> trim(Fieldbyname('C_CodeName').AsString) then + begin + EnableControls; + application.MessageBox('ƷƲͬܺϲ', 'ʾϢ', 0); + exit; + end; + if trim(FC_Color) <> trim(Fieldbyname('C_Color').AsString) then + begin + EnableControls; + application.MessageBox('ɫͬܺϲ', 'ʾϢ', 0); + exit; + end; + end; + i := i + 1; + end; + next; + end; + EnableControls; + First; + end; + + if i < 2 then + exit; + + ADOQueryCmd.Connection.BeginTrans; + try + + fRollNum := 0; + FQty := 0; + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + if Fieldbyname('Ssel').AsBoolean then + begin + FCRID := Fieldbyname('CRID').AsInteger; + fRollNum := fRollNum + Fieldbyname('KCROllNum').AsFloat; + FQty := FQty + Fieldbyname('kcQty').AsFloat; + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where CRID=' + quotedstr(trim(CDS_Main.Fieldbyname('CRID').AsString))); + open; + edit; + fieldbyname('KCROllNum').Value := 0; + fieldbyname('kcQty').Value := 0; + post; + end; + end; + next; + end; + EnableControls; + First; + end; + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where CRID=' + quotedstr(inttostr(FCRID))); + open; + edit; + fieldbyname('KCROllNum').Value := 1; + fieldbyname('kcQty').Value := FQty; + post; + end; + + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('ݺϲɹ', 'ʾϢ'); + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ݺϲʧܣ', 'ʾϢ', 0); + end; + +end; + +procedure TfrmCKProductBCPKCList.ToolButton3Click(Sender: TObject); +var + oldQty, kcQty: double; +begin + if not CDS_Main.Active then + exit; + if CDS_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + + if Application.MessageBox('ȷҪִд˲', 'ʾ', 32 + 4) <> IDYES then + Exit; + conNo.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while CDS_Main.Locate('SSel', True, []) do + begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from CK_BanCP_KC '); + sql.Add(' where CRID=' + quotedstr(trim(Cds_Main.Fieldbyname('CRID').AsString))); + open; + if Fieldbyname('KCQty').AsFloat = 0.0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ѡ¼г⣬ܵ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; + + oldQty := ADOQueryTemp.fieldbyname('KCQty').AsFloat; + kcQty := CDS_Main.fieldbyname('kcQty').AsFloat; + if oldQty < 100 then + begin + if abs(oldQty - kcQty) > 5.0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ܳ5M', 'ʾϢ', MB_ICONERROR); + exit; + end; + end + else + begin + if strtofloat(format('%.1f', [abs(oldQty - kcQty) / oldQty * 100])) > 3.0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ܳԭ%3', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update CK_BanCP_KC Set ZDYFlote1=KCqty '); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + sql.Add(' and ZDYFlote1=0 '); + sql.Add(' Update CK_BanCP_KC Set kcqty=''' + floattostr(kcQty) + ''',ZDYStr1='''' '); + sql.Add(' ,kcNote=' + quotedstr(trim(CDS_Main.fieldbyname('kcnote').AsString))); + sql.Add(' ,CPType=' + quotedstr(trim(CDS_Main.fieldbyname('CPType').AsString))); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + sql.Add(' Update CK_BanCP_KC Set kcRollNum=0 '); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + sql.Add(' and kcqty=0 and kcRollNum<>0 '); + 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('MJID').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + Edit; + FieldByName('kcqty').Value := kcQty; + FieldByName('SSel').Value := False; + post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!', 'ʾ', 0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +procedure TfrmCKProductBCPKCList.TBPrintClick(Sender: TObject); +var + filepath: string; +begin + if CDS_Main.IsEmpty then + exit; + CreateTable(); + with CDS_Main do + begin + DisableControls; + first; + while not eof do + begin + with adoqueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' insert into ' + TblCprk + '(BCID,CRID) values( '); + SQL.Add(' ' + quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + SQL.Add(',' + quotedstr(trim(CDS_Main.fieldbyname('CRID').AsString))); + sql.add(')'); + execsql; + end; + next; + end; + First; + EnableControls; + end; + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Get_CpkcList '); + sql.Add('@mainID=' + quotedstr(trim(''))); + sql.Add(',@TblCprk=' + quotedstr(trim(TblCprk))); + sql.Add(',@flag=' + quotedstr(trim('1'))); + 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['begdate'] := FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ' - ' + FormatDateTime('yyyy-MM-dd', enddate.DateTime); + 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; + DropTable(); +end; + +procedure TfrmCKProductBCPKCList.kcKwExit(Sender: TObject); +var + mvalue: string; +begin + mvalue := kcKw.Text; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> 'W' then + begin + mvalue := trim(mvalue) + 'W'; + end; + + kcKw.Text := trim(mvalue); +end; + +procedure TfrmCKProductBCPKCList.ToolButton4Click(Sender: TObject); +var + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + if CDS_Main.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 + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(CDS_Main.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); + CDS_Main.EnableControls; + exit; + end; + with ADOQueryPrint do //ӢƲҪƷжȡҪڿͻԶжȡnoteֶΡ + begin + Close; + SQL.Clear; + sql.Add('select A.*,kcQty as mjlen,kcQtyUnit as MJTypeother,A.CPType as MJType,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add(' from CK_BanCP_KC A'); + SQL.Add(' where A.MJID=''' + Trim(CDS_Main.fieldbyname('MJID').AsString) + ''''); + SQL.Add(' and KCQty>0 '); + Open; + end; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨñǩ.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RMGridReport1.LoadFromFile(fPrintFile); + // RMGridReport1.ShowReport; + RMGridReport1.PrintReport; + end + else + begin + CDS_Main.EnableControls; + Application.MessageBox(PChar('ûҵ' + trim(fPrintFile)), 'ʾ', 0); + Exit; + end; + end; + Next; + end; + end; + CDS_Main.EnableControls; +end; + +procedure TfrmCKProductBCPKCList.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; + +procedure TfrmCKProductBCPKCList.ToolButton5Click(Sender: TObject); +var + oldQty, kcQty, num1: Extended; + i: integer; + isEdit: boolean; + str1: string; +begin + //showmessage(format('%.1f',[117.50 * 0.98])); + if not CDS_Main.Active then + exit; + if CDS_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + isEdit := false; + + frmKCEdit := TfrmKCEdit.create(self); + with frmKCEdit do + begin + if showmodal = 1 then + begin + num1 := strtofloatdef(cxCurrencyEdit2.Text, 0); + i := RadioGroup1.ItemIndex; + isEdit := true; + end; + free; + end; + + if isEdit = false then + exit; + + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while CDS_Main.Locate('SSel', True, []) do + begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select * from CK_BanCP_KC '); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + // sql.Add(' and KCQty=0.0 '); + open; + if ADOQueryTemp.fieldbyname('KCQty').AsFloat = 0.0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ѡ¼г⣬ܵ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; + + oldQty := ADOQueryTemp.fieldbyname('KCQty').AsFloat; + if i = 0 then + kcQty := CDS_Main.fieldbyname('kcQty').AsFloat + num1; + if i = 1 then + kcQty := CDS_Main.fieldbyname('kcQty').AsFloat - num1; + if i = 2 then + begin + // str1:=format('%.1f',[CDS_Main.fieldbyname('kcQty').AsFloat*1.00 * num1]); + kcQty := strtofloat(format('%.1f', [CDS_Main.fieldbyname('kcQty').AsFloat * 1.00 * num1])); + end; + if i = 3 then + kcQty := strtofloat(format('%.1f', [CDS_Main.fieldbyname('kcQty').AsFloat * 1.00 / num1])); + // kcQty:=CDS_Main.fieldbyname('kcQty').AsFloat; + if oldQty < 100 then + begin + if abs(oldQty - kcQty) > 5.0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ܳ5M', 'ʾϢ', MB_ICONERROR); + exit; + end; + end + else + begin + if strtofloat(format('%.1f', [abs(oldQty - kcQty) / oldQty * 100])) > 3.0 then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ܳԭ%3', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update CK_BanCP_KC Set ZDYFlote1=KCqty '); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + sql.Add(' and ZDYFlote1=0 '); + sql.Add(' Update CK_BanCP_KC Set kcqty=''' + floattostr(kcQty) + ''',ZDYStr1='''' '); + sql.Add(' ,kcNote=' + quotedstr(trim(CDS_Main.fieldbyname('kcnote').AsString))); + sql.Add(' ,CPType=' + quotedstr(trim(CDS_Main.fieldbyname('CPType').AsString))); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + sql.Add(' Update CK_BanCP_KC Set kcRollNum=0 '); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + sql.Add(' and kcqty=0 and kcRollNum<>0 '); + + 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('MJID').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + Edit; + FieldByName('kcqty').Value := kcQty; + FieldByName('SSel').Value := False; + post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!', 'ʾ', 0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; + +end; + +procedure TfrmCKProductBCPKCList.v1Column5PropertiesEditValueChanged(Sender: TObject); +var + Fieldname: string; +begin + Fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + + with CDS_Main do + begin + edit; + fieldbyname(Fieldname).Value := TcxTextEdit(Sender).EditingText; + // FieldByName('PrtMoney').Value:=strtofloat(format('%.2f',[Fieldbyname('PRTOrderQty').AsFloat*Fieldbyname('PrtPrice').AsFloat ])); + post; + end; + Tv1.Controller.EditingController.ShowEdit(); + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update CK_BanCP_KC Set kcNote=' + quotedstr(trim(CDS_Main.fieldbyname('kcnote').AsString))); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + ExecSQL; + end; + except + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +procedure TfrmCKProductBCPKCList.CheckBox2Click(Sender: TObject); +begin + if CheckBox2.Checked then + begin + MJID.Tag := 1; + C_CodeName.Tag := 1; + C_Color.Tag := 1; + AOrdDefStr1.Tag := 1; + end + else + begin + MJID.Tag := 2; + C_CodeName.Tag := 2; + C_Color.Tag := 2; + AOrdDefStr1.Tag := 2; + end; + TBFind.Click; +end; + +procedure TfrmCKProductBCPKCList.TBNoBHClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then + exit; + if CDS_Main.fieldbyName('BHFlag').AsInteger = 1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update CK_BanCP_KC Set BHFlag=0 '); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + ExecSQL; + end; + CDS_Main.Edit; + CDS_Main.FieldByName('BHFlag').Value := 0; + CDS_Main.Post; + tv1.Controller.EditingController.ShowEdit(); + end; +end; + +procedure TfrmCKProductBCPKCList.ToolButton6Click(Sender: TObject); +begin + Panel2.Left := (self.Width - Panel2.Width) div 2; + Panel2.Visible := True; +end; + +procedure TfrmCKProductBCPKCList.Button4Click(Sender: TObject); +begin + panel2.Visible := False; +end; + +procedure TfrmCKProductBCPKCList.Button3Click(Sender: TObject); +var + FCodeName: string; +begin + if trim(Edit_C_CodeName.Text) = '' then + begin + application.MessageBox('ƷΪգ', 'ʾϢ', 0); + exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while CDS_Main.Locate('SSel', True, []) do + begin + FCodeName := trim(CDS_Main.fieldbyname('C_CodeName').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; +// sql.Add('update CK_BanCP_CR SET C_CodeName=''' + trim(Edit_C_CodeName.Text) + ''' where MJID=''' + trim(CDS_Main.fieldbyname('MJID').AsString) + ''' '); + sql.Add('update CK_BanCP_KC SET C_CodeName=''' + trim(Edit_C_CodeName.Text) + ''' where MJID=''' + trim(CDS_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('޸ǰƷ:' + trim(FCodeName) + ',ţ' + trim(CDS_Main.FieldByName('MJID').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value := False; + FieldByName('C_CodeName').Value := Trim(Edit_C_CodeName.Text); + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!', 'ʾ', 0); + Panel2.Visible := false; + Edit_C_CodeName.Text := ''; + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +procedure TfrmCKProductBCPKCList.Button5Click(Sender: TObject); +var + FColor: string; +begin + if trim(Edit_C_Color.Text) = '' then + begin + application.MessageBox('ɫΪգ', 'ʾϢ', 0); + exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while CDS_Main.Locate('SSel', True, []) do + begin + FColor := trim(CDS_Main.fieldbyname('C_Color').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; +// sql.Add('update CK_BanCP_CR SET C_Color=''' + trim(Edit_C_Color.Text) + ''' where MJID=''' + trim(CDS_Main.fieldbyname('MJID').AsString) + ''' '); + sql.Add('update CK_BanCP_KC SET C_color=''' + trim(Edit_C_Color.Text) + ''' where MJID=''' + trim(CDS_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('޸ǰɫ:' + trim(FColor) + ',ţ' + trim(CDS_Main.FieldByName('MJID').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value := False; + FieldByName('C_Color').Value := Trim(Edit_C_Color.Text); + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!', 'ʾ', 0); + Panel2.Visible := false; + Edit_C_Color.Text := ''; + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +procedure TfrmCKProductBCPKCList.Button9Click(Sender: TObject); +var + FColor, FCodeName: string; +begin + if (trim(Edit_C_CodeName.Text) = '') and checkbox3.Checked then + begin + application.MessageBox('ƷΪգ', 'ʾϢ', 0); + exit; + end; + if (trim(Edit_C_Color.Text) = '') and checkbox4.Checked then + begin + application.MessageBox('ɫΪգ', 'ʾϢ', 0); + exit; + end; + + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while CDS_Main.Locate('SSel', True, []) do + begin + FCodeName := trim(CDS_Main.fieldbyname('C_CodeName').AsString); + FColor := trim(CDS_Main.fieldbyname('C_Color').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + if checkbox3.Checked then + begin +// sql.Add('update CK_BanCP_CR SET C_CodeName=''' + trim(Edit_C_CodeName.Text) + ''' where MJID=''' + trim(CDS_Main.fieldbyname('MJID').AsString) + ''' '); + sql.Add('update CK_BanCP_KC SET C_CodeName=''' + trim(Edit_C_CodeName.Text) + ''' where MJID=''' + trim(CDS_Main.fieldbyname('MJID').AsString) + ''' '); + end; + if CheckBox4.Checked then + begin +// sql.Add('update CK_BanCP_CR SET C_Color=''' + trim(Edit_C_Color.Text) + ''' where MJID=''' + trim(CDS_Main.fieldbyname('MJID').AsString) + ''' '); + sql.Add('update CK_BanCP_KC SET C_color=''' + trim(Edit_C_Color.Text) + ''' where MJID=''' + trim(CDS_Main.fieldbyname('MJID').AsString) + ''' '); + end; + 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(FCodeName) + ',' + trim(FColor) + ',ţ' + trim(CDS_Main.FieldByName('MJID').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value := False; + if CheckBox2.Checked then + begin + FieldByName('C_CodeName').Value := Trim(Edit_C_CodeName.Text); + end; + if CheckBox3.Checked then + begin + FieldByName('C_Color').Value := Trim(Edit_C_Color.Text); + end; + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!', 'ʾ', 0); + Panel2.Visible := false; + Edit_C_CodeName.Text := ''; + Edit_C_Color.Text := ''; + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +end. + diff --git a/管理系统/U_CKProductBCPKCListSel.dfm b/管理系统/U_CKProductBCPKCListSel.dfm new file mode 100644 index 0000000..c7fa040 --- /dev/null +++ b/管理系统/U_CKProductBCPKCListSel.dfm @@ -0,0 +1,1233 @@ +object frmCKProductBCPKCListsel: TfrmCKProductBCPKCListsel + Left = 193 + Top = 247 + Width = 1280 + Height = 738 + 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 + WindowState = wsMaximized + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1341 + 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 + Visible = False + 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 = #30830#23450#37197#36135 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #25209#37327#24211#23384#20462#25913 + ImageIndex = 16 + Visible = False + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 324 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1341 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 213 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 690 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 1232 + Top = 16 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + Visible = False + end + object Label2: TLabel + Left = 1268 + Top = 40 + Width = 12 + Height = 12 + Caption = #33267 + Visible = False + end + object Label5: TLabel + Left = 34 + Top = 12 + Width = 48 + Height = 12 + Caption = #20219#21153#21333#21495 + end + object Label6: TLabel + Left = 34 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 213 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 387 + Top = 12 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 492 + Top = 68 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 387 + Top = 36 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label12: TLabel + Left = 534 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label13: TLabel + Left = 532 + Top = 36 + Width = 24 + Height = 12 + Caption = #24211#20301 + end + object Label14: TLabel + Left = 690 + Top = 36 + 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 + end + object Label15: TLabel + Left = 844 + Top = 12 + 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 + end + object C_CodeName: TEdit + Tag = 2 + Left = 262 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 722 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = C_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 1281 + Top = 13 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + Visible = False + end + object EndDate: TDateTimePicker + Left = 1281 + Top = 37 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + Visible = False + end + object conNo: TEdit + Tag = 2 + Left = 84 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = C_CodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 84 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = C_CodeNameChange + end + object KZ: TEdit + Tag = 2 + Left = 262 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = C_CodeNameChange + end + object MF: TEdit + Tag = 2 + Left = 411 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = C_CodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 518 + Top = 64 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #30041#26679 + '') + end + object KCQtyStr: TEdit + Tag = 2 + Left = 411 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = C_CodeNameChange + end + object AOrdDefStr1: TEdit + Tag = 2 + Left = 558 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = C_CodeNameChange + end + object KCKW: TEdit + Tag = 2 + Left = 558 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 11 + end + object Button1: TButton + Left = 1004 + Top = 32 + Width = 75 + Height = 25 + Caption = #30830#23450#36873#25321 + TabOrder = 12 + OnClick = Button1Click + end + object PHYG: TBtnEditA + Left = 896 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 13 + OnBtnClick = PHYGBtnClick + end + object CheckBox1: TCheckBox + Left = 848 + Top = 37 + Width = 99 + Height = 19 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 14 + OnClick = CheckBox1Click + end + object packNo: TcxCurrencyEdit + Left = 722 + Top = 32 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + TabOrder = 15 + Width = 100 + end + end + object Panel4: TPanel + Left = 62 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 2 + 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 cxSplitter1: TcxSplitter + Left = 0 + Top = 677 + Width = 1341 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = cxGrid1 + end + object Panel2: TPanel + Left = 0 + Top = 97 + Width = 497 + Height = 580 + Align = alLeft + Caption = 'Panel2' + TabOrder = 5 + object cxGrid3: TcxGrid + Left = 1 + Top = 1 + Width = 495 + Height = 578 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnFocusedRecordChanged = Tv3FocusedRecordChanged + DataController.DataSource = DataSource2 + 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_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn1: 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 v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + Visible = False + Options.Focusing = False + VisibleForCustomization = False + Width = 54 + end + object v3gangNum: TcxGridDBColumn + Caption = #32568#25968 + DataBinding.FieldName = 'gangNum' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1PRTRollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTRollNum' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 52 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20844#21496#32534#21495 + DataBinding.FieldName = 'OrdDefStr1' + Visible = False + 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_TradeManage.Default + Width = 68 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20844#21496#21488#22836 + DataBinding.FieldName = 'OrdDefStr2' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + VisibleForCustomization = False + Width = 73 + end + object v1JGFactoryName: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'JGFactoryName' + Visible = False + 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 cxGridDBColumn18: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 96 + 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 v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + VisibleForCustomization = False + Width = 70 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #20215#26684#21333#20301 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object v3Column1: TcxGridDBColumn + Caption = 'M1' + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column2: TcxGridDBColumn + Caption = 'M2' + DataBinding.FieldName = 'SordQty2' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column3: TcxGridDBColumn + Caption = 'M3' + DataBinding.FieldName = 'SordQty3' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column4: TcxGridDBColumn + Caption = 'M4' + DataBinding.FieldName = 'SordQty4' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column5: TcxGridDBColumn + Caption = 'M5' + DataBinding.FieldName = 'SordQty5' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column6: TcxGridDBColumn + Caption = 'M6' + DataBinding.FieldName = 'SordQty6' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column7: TcxGridDBColumn + Caption = 'M7' + DataBinding.FieldName = 'SordQty7' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column8: TcxGridDBColumn + Caption = 'M8' + DataBinding.FieldName = 'SordQty8' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column9: TcxGridDBColumn + Caption = 'M9' + DataBinding.FieldName = 'SordQty9' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column10: TcxGridDBColumn + Caption = 'M10' + DataBinding.FieldName = 'SordQty10' + HeaderAlignmentHorz = taCenter + Width = 50 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv3 + end + end + end + object Panel3: TPanel + Left = 772 + Top = 100 + Width = 569 + Height = 577 + TabOrder = 6 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 567 + Height = 200 + Align = alTop + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column6 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1KCRollNum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = 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 v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column1: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 91 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1KCRollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + 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 = 'kcQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1gangNO: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'gangNO' + Options.Editing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column4: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v2Column5: TcxGridDBColumn + Caption = #24211#23384#20844#26020#25968 + DataBinding.FieldName = 'KCKGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1KCKW: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KCKW' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #30424#28857#26631#24535 + DataBinding.FieldName = 'PDFlag' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid1: TcxGrid + Left = 1 + Top = 248 + Width = 567 + Height = 328 + Align = alBottom + TabOrder = 1 + object Tv2: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DSSubSel + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn13 + end + item + Kind = skSum + Column = cxGridDBColumn12 + end + item + Kind = skSum + Column = v2RollNum + end + item + Kind = skSum + Column = v2Qty + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = 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 = Tv2CustomDrawIndicatorCell + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #24211#23384#20844#26020#25968 + DataBinding.FieldName = 'KCKGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 76 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'kcQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 68 + end + object v2RollNum: TcxGridDBColumn + Caption = #37197#36135#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object v2Qty: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object v2Column2: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'packNo' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'gangNO' + Visible = False + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object v2Column4: TcxGridDBColumn + Caption = #30424#28857#26631#24535 + DataBinding.FieldName = 'PDFlag' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + 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 = 936 + Top = 40 + 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 CDS_SubSel: TClientDataSet + Aggregates = <> + Params = <> + Left = 656 + Top = 444 + end + object DSSubSel: TDataSource + DataSet = CDS_SubSel + Left = 560 + Top = 480 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 520 + Top = 480 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 196 + Top = 240 + end + object DataSource2: TDataSource + DataSet = Order_Main + Left = 252 + Top = 245 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 388 + Top = 144 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/管理系统/U_CKProductBCPKCListSel.pas b/管理系统/U_CKProductBCPKCListSel.pas new file mode 100644 index 0000000..e58c109 --- /dev/null +++ b/管理系统/U_CKProductBCPKCListSel.pas @@ -0,0 +1,857 @@ +unit U_CKProductBCPKCListSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, MovePanel, cxCheckBox, cxSplitter, cxCalendar, BtnEdit, + cxContainer, cxTextEdit, cxCurrencyEdit, 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 + TfrmCKProductBCPKCListsel = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + C_CodeName: TEdit; + C_Color: 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; + conNo: TEdit; + Label6: TLabel; + MJID: TEdit; + v1Column7: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Panel4: TPanel; + Label11: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + MovePanel2: TMovePanel; + ToolButton1: TToolButton; + v1KCRollNum: TcxGridDBColumn; + v1gangNO: TcxGridDBColumn; + v1C_Color: TcxGridDBColumn; + cxGrid1: 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; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + CDS_SubSel: TClientDataSet; + DSSubSel: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + Label10: TLabel; + KCQtyStr: TEdit; + Label12: TLabel; + AOrdDefStr1: TEdit; + v1KCKW: TcxGridDBColumn; + Label13: TLabel; + KCKW: TEdit; + Panel2: TPanel; + Panel3: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1JGFactoryName: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + v1PRTRollNum: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Order_Main: TClientDataSet; + DataSource2: TDataSource; + v2RollNum: TcxGridDBColumn; + v2Qty: TcxGridDBColumn; + cxGridPopupMenu3: TcxGridPopupMenu; + v1Ssel: TcxGridDBColumn; + Button1: TButton; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3gangNum: TcxGridDBColumn; + Label14: TLabel; + v2Column2: TcxGridDBColumn; + Label15: TLabel; + PHYG: TBtnEditA; + CDS_Print: TClientDataSet; + CheckBox1: TCheckBox; + packNo: TcxCurrencyEdit; + ToolButton2: TToolButton; + v1Column5: TcxGridDBColumn; + v2Column4: 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 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 ToolButton1Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure Button1Click(Sender: TObject); + procedure PHYGBtnClick(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure Tv2CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + FLeft, FTop: Integer; + procedure InitGrid(); + procedure InitGridNull(); + procedure DoQuery(); + function SaveData(): Boolean; + { Private declarations } + public + fCodeName: string; + fColor: string; + fmainID: string; + { Public declarations } + end; + +var + frmCKProductBCPKCListsel: TfrmCKProductBCPKCListsel; + +implementation + +uses + U_DataLink, U_Fun, U_UserHelp, U_KCEdit; + +{$R *.dfm} + +function TfrmCKProductBCPKCListsel.SaveData(): Boolean; +var + phID: string; + P_No: string; + P_ID: integer; +begin + Result := false; + + if GetLSNo(ADOQueryTemp, P_No, 'PN', 'CK_BanCP_PH', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + P_ID := 1; + ADOQueryCmd.Connection.BeginTrans; + + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CK_BanCP_KC SET kcstatus=null '); + sql.Add('from CK_BanCP_KC A '); + sql.Add('inner join CK_BanCP_PH B on B.CRID=A.crid and B.mjid=A.mjid '); + sql.Add('where B.mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and B.subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_PH '); + sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + + with CDS_SubSel do + begin + DisableControls; + first; + while not eof do + begin + if fieldbyname('qty').AsFloat = 0 then + continue; + if GetLSNo(ADOQueryTemp, phID, 'PH', 'CK_BanCP_PH', 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_PH '); + sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('phID').Value := trim(phID); + ADOQueryCmd.FieldByName('p_No').Value := trim(P_No); + ADOQueryCmd.FieldByName('p_ID').Value := P_ID; + ADOQueryCmd.FieldByName('conNo').Value := trim(fieldbyname('conNo').AsString); + ADOQueryCmd.FieldByName('MainID').Value := trim(Order_Main.fieldbyname('MainID').AsString); + ADOQueryCmd.FieldByName('SubID').Value := trim(Order_Main.fieldbyname('SubID').AsString); + ADOQueryCmd.FieldByName('PMainID').Value := trim(fieldbyname('MainID').AsString); + ADOQueryCmd.FieldByName('PSubID').Value := trim(fieldbyname('SubID').AsString); + ADOQueryCmd.FieldByName('mjID').Value := trim(fieldbyname('mjID').AsString); + ADOQueryCmd.FieldByName('CRID').Value := trim(fieldbyname('CRID').AsString); + ADOQueryCmd.FieldByName('qtyunit').Value := trim(fieldbyname('kcqtyunit').AsString); + + ADOQueryCmd.FieldByName('packNo').Value := trim(fieldbyname('packNo').AsString); + ADOQueryCmd.FieldByName('qty').Value := fieldbyname('qty').AsFloat; + ADOQueryCmd.FieldByName('Rollnum').Value := fieldbyname('Rollnum').AsFloat; + ADOQueryCmd.FieldByName('Filler').Value := trim(DName); + ADOQueryCmd.FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp); + ADOQueryCmd.FieldByName('BCGangNo').Value := trim(fieldbyname('AOrdDefStr1').AsString); + ADOQueryCmd.FieldByName('PHYG').Value := trim(PHYG.Text); + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where mjid=' + quotedstr(trim(CDS_SubSel.fieldbyname('mjid').AsString))); + sql.Add('and CRID=' + quotedstr(trim(CDS_SubSel.fieldbyname('CRID').AsString))); + open; + edit; + fieldbyname('kcstatus').Value := '1'; + post; + end; + P_ID := P_ID + 1; + next; + end; + first; + EnableControls; + + 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 subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value := '2'; + post; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('޸'))); + sql.Add(',' + quotedstr(trim('޸ţ' + trim(fmainID)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result := true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmCKProductBCPKCListsel.DoQuery(); +begin +// Order_Main.DisableControls; + try + with AdoqueryTemp do + begin + close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add('from JYOrder_sub A '); + sql.Add('inner JOIN JYOrder_Main B on B.mainID=A.mainID and isnull(B.status,''0'')>''0'' '); + sql.Add('where A.mainId=' + quotedstr(trim(fmainID))); + sql.Add('and isnull(A.substatus,''0'')<''3'' '); + open; + end; + SCreateCDS20(AdoqueryTemp, Order_Main); + SInitCDSData20(AdoqueryTemp, Order_Main); + finally + // Order_Main.EnableControls; + end; +end; + +procedure TfrmCKProductBCPKCListsel.FormDestroy(Sender: TObject); +begin + frmCKProductBCPKCListsel := nil; +end; + +procedure TfrmCKProductBCPKCListsel.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmCKProductBCPKCListsel.FormCreate(Sender: TObject); +begin + Panel3.Align := alClient; + // cxGrid1.Height:= Panel3.Height div 2; + cxGrid2.Align := alClient; + BegDate.DateTime := SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + // TBRafresh.Click; +end; + +procedure TfrmCKProductBCPKCListsel.InitGrid(); +begin + try + // ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + SQL.Add('exec P_View_CPKCMX_SEL'); + SQL.Add('@P_Codename=' + quotedstr(trim(fCodeName))); + SQL.Add(',@P_Color=' + quotedstr(trim(fColor))); + SQL.Add(',@mainID=' + quotedstr(trim(''))); + SQL.Add(',@subID=' + quotedstr(trim(''))); + SQL.Add(',@Flag=' + quotedstr(trim('0'))); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + SQL.Add('exec P_View_CPKCMX_SEL'); + SQL.Add('@P_Codename=' + quotedstr(trim(fCodeName))); + SQL.Add(',@P_Color=' + quotedstr(trim(fColor))); + SQL.Add(',@mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + SQL.Add(',@subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + SQL.Add(',@Flag=' + quotedstr(trim('1'))); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_SubSel); + SInitCDSData20(ADOQueryMain, CDS_SubSel); + finally + // ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmCKProductBCPKCListsel.InitGridNull(); +begin + try + ADOQueryTemp.DisableControls; + with ADOQueryTemp do + begin + Filtered := False; + Close; + sql.Clear; + SQL.Add('exec P_View_CPKCMXNull'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_SubSel); + SInitCDSData20(ADOQueryTemp, CDS_SubSel); + finally + ADOQueryTemp.EnableControls; + end; +end; + +procedure TfrmCKProductBCPKCListsel.TBRafreshClick(Sender: TObject); +begin + // BegDate.SetFocus; + MovePanel2.Visible := True; + MovePanel2.Refresh; + DOquery(); + MovePanel2.Visible := False; +end; + +procedure TfrmCKProductBCPKCListsel.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmCKProductBCPKCListsel.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv11', Tv1, 'Ʒֿ'); + WriteCxGrid('Tv22', Tv2, 'Ʒֿ'); + WriteCxGrid('Tv3', Tv3, 'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPKCListsel.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv11', Tv1, 'Ʒֿ'); + ReadCxGrid('Tv22', Tv2, 'Ʒֿ'); + ReadCxGrid('Tv3', Tv3, 'Ʒֿ'); +// InitGridNull(); +// InitGrid(); + Doquery(); +end; + +procedure TfrmCKProductBCPKCListsel.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel('б', cxGrid2); +end; + +procedure TfrmCKProductBCPKCListsel.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter10(CDS_Main, SGetFilters(Panel1, 1, 2)); + //SCreateCDS20(ADOQueryMain,CDS_Main); + //SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCKProductBCPKCListsel.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPKCListsel.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND, $F012, 0); +end; + +procedure TfrmCKProductBCPKCListsel.Image2Click(Sender: TObject); +begin + Panel4.Visible := False; +end; + +procedure TfrmCKProductBCPKCListsel.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft := X; + FTop := Y; +end; + +procedure TfrmCKProductBCPKCListsel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +var + i: Integer; +begin + //if CDS_Sel.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then + //begin +{ if CDS_Main.IsEmpty then Exit; + CDS_SubSel.Append; + for i:=0 to CDS_SubSel.FieldCount-1 do + begin + CDS_SubSel.Fields[i].Value:=CDS_Main.Fields[i].Value; + end; + CDS_SubSel.Post; + CDS_Main.Delete; + //end; } +end; + +procedure TfrmCKProductBCPKCListsel.ToolButton1Click(Sender: TObject); +var + phRollNum, phQty: double; +begin + if CDS_SubSel.IsEmpty then + exit; + conNo.SetFocus; + with CDS_SubSel do + begin + DisableControls; + first; + while not eof do + begin + if (trim(fieldbyname('C_CodeName').AsString) <> trim(Order_Main.FieldByName('PRTCodeName').AsString)) or (uppercase(trim(fieldbyname('C_Color').AsString)) <> uppercase(trim(Order_Main.FieldByName('PRTColor').AsString))) then + begin + application.MessageBox('Ʒƻɫһ', 'ʾϢ', 0); + EnableControls; + exit; + end; + next; + end; + first; + EnableControls; + end; + phRollNum := 0; + phQty := 0; + with CDS_SubSel do + begin + DisableControls; + first; + while not eof do + begin + phRollNum := phRollNum + CDS_SubSel.fieldbyname('RollNum').AsFloat; + phQty := phQty + CDS_SubSel.fieldbyname('Qty').AsFloat; + next; + end; + first; + EnableControls; + end; + + { IF Order_Main.FieldByName('PRTRollNum').AsFloat<>0 then + begin + if (phRollNum<>Order_Main.FieldByName('PRTRollNum').AsFloat) then + begin + application.MessageBox('ƥܱͬݣ','ʾϢ',MB_ICONERROR); + exit; + end; + // if Application.MessageBox('δﵽҪȷ','ʾϢ',32+4)<>IDYES then Exit; + end; + IF Order_Main.FieldByName('PRTOrderQty').AsFloat<>0 then + begin + if (format('%.2f',[phQty])<>format('%.2f',[Order_Main.FieldByName('PRTOrderQty').AsFloat])) then + begin + // if Application.MessageBox('ͬǷ񱣴棿','ʾ',32+4)<>IDYES then Exit; + application.MessageBox('ܱͬݣ','ʾϢ',MB_ICONERROR); + exit; + end; + // if Application.MessageBox('δﵽҪȷ','ʾϢ',32+4)<>IDYES then Exit; + end; + } + + if SaveData() then + begin + application.MessageBox('ɹ!', 'ʾϢ'); + Order_Main.Delete; + CDS_SubSel.EmptyDataSet; + // TBRafresh.Click; + end + else + begin + application.MessageBox('ʧ!', 'ʾϢ', 0); + end; +end; + +procedure TfrmCKProductBCPKCListsel.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +var + i: Integer; +begin + //if CDS_Sel.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then + //begin + if CDS_SubSel.IsEmpty then + Exit; + CDS_Main.Append; + for i := 0 to CDS_Main.FieldCount - 1 do + begin + CDS_Main.Fields[i].Value := CDS_SubSel.Fields[i].Value; + end; + CDS_Main.FieldByName('ssel').Value := false; + CDS_Main.Post; + CDS_SubSel.Delete; + //end; +end; + +procedure TfrmCKProductBCPKCListsel.Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + if Order_Main.IsEmpty then + begin + fCodeName := '!##@'; + fColor := '!##@'; + end + else + begin + FCodeName := trim(Order_Main.FieldByName('PRTCodeName').AsString); + fColor := trim(Order_Main.FieldByName('PRTColor').AsString); + end; + initGrid(); +end; + +procedure TfrmCKProductBCPKCListsel.Button1Click(Sender: TObject); +var + i: integer; +begin + if CDS_Main.IsEmpty then + Exit; + CDS_SubSel.DisableControls; + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + if (CDS_Main.Locate('ssel', true, [])) and not CDS_SubSel.Locate('CRID', CDS_Main.fieldbyname('CRID').AsInteger, []) then + begin + CDS_SubSel.Append; + for i := 0 to CDS_SubSel.FieldCount - 1 do + begin + CDS_SubSel.Fields[i].Value := CDS_Main.Fields[i].Value; + end; + CDS_SubSel.FieldByName('packNo').Value := trim(packNO.Text); + CDS_SubSel.Post; + CDS_Main.Delete; + end; + next; + end; + EnableControls; + First; + end; + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + if (CDS_Main.Locate('ssel', true, [])) and not CDS_SubSel.Locate('CRID', CDS_Main.fieldbyname('CRID').AsInteger, []) then + begin + CDS_SubSel.Append; + for i := 0 to CDS_SubSel.FieldCount - 1 do + begin + CDS_SubSel.Fields[i].Value := CDS_Main.Fields[i].Value; + end; + CDS_SubSel.FieldByName('packNo').Value := trim(packNO.Text); + CDS_SubSel.Post; + CDS_Main.Delete; + end; + next; + end; + EnableControls; + First; + end; + CDS_SubSel.EnableControls; +end; + +procedure TfrmCKProductBCPKCListsel.PHYGBtnClick(Sender: TObject); +begin + frmUserHelp := TfrmUserHelp.Create(self); + with frmUserHelp do + begin + if showmodal = 1 then + begin + PHYG.Text := trim(ADOQueryHelp.fieldbyname('userName').AsString); + end; + free; + end; +end; + +procedure TfrmCKProductBCPKCListsel.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 TfrmCKProductBCPKCListsel.Tv2CustomDrawIndicatorCell(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 TfrmCKProductBCPKCListsel.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; + +procedure TfrmCKProductBCPKCListsel.ToolButton2Click(Sender: TObject); +var + kcQty, num1: double; + i: integer; + isEdit: boolean; +begin + if not CDS_Main.Active then + exit; + if CDS_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + isEdit := false; + + frmKCEdit := TfrmKCEdit.create(self); + with frmKCEdit do + begin + if showmodal = 1 then + begin + num1 := strtofloatdef(cxCurrencyEdit2.Text, 0); + i := RadioGroup1.ItemIndex; + isEdit := true; + end; + free; + end; + + if isEdit = false then + exit; + + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while CDS_Main.Locate('SSel', True, []) do + begin + if i = 0 then + kcQty := CDS_Main.fieldbyname('kcQty').AsFloat + num1; + if i = 1 then + kcQty := CDS_Main.fieldbyname('kcQty').AsFloat - num1; + if i = 2 then + kcQty := strtofloat(format('%.1f', [CDS_Main.fieldbyname('kcQty').AsFloat * num1])); + if i = 3 then + kcQty := strtofloat(format('%.1f', [CDS_Main.fieldbyname('kcQty').AsFloat / num1])); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update CK_BanCP_KC Set ZDYFlote1=KCqty '); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + sql.Add(' and ZDYFlote1=0 '); + sql.Add(' Update CK_BanCP_KC Set kcqty=''' + floattostr(kcQty) + ''',ZDYStr1='''' '); + sql.Add(' ,kcNote=' + quotedstr(trim(CDS_Main.fieldbyname('kcnote').AsString))); + sql.Add(' ,CPType=' + quotedstr(trim(CDS_Main.fieldbyname('CPType').AsString))); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + sql.Add(' Update CK_BanCP_KC Set kcRollNum=0 '); + sql.Add(' where CRID=' + Cds_Main.Fieldbyname('CRID').AsString); + sql.Add(' and kcqty=0 and kcRollNum<>0 '); + ExecSQL; + end; + Edit; + FieldByName('kcqty').Value := kcQty; + FieldByName('SSel').Value := False; + post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + initGrid(); + Application.MessageBox('ɹ!', 'ʾ', 0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; + +end; + +end. + diff --git a/管理系统/U_CKProductBCPKCListSel10.dfm b/管理系统/U_CKProductBCPKCListSel10.dfm new file mode 100644 index 0000000..5d8a00d --- /dev/null +++ b/管理系统/U_CKProductBCPKCListSel10.dfm @@ -0,0 +1,1262 @@ +object frmCKProductBCPKCListsel10: TfrmCKProductBCPKCListsel10 + Left = 66 + Top = 122 + Width = 1159 + Height = 738 + HorzScrollBar.Position = 24 + 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 + WindowState = wsMaximized + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = -24 + Top = 0 + Width = 1390 + 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 + Visible = False + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object Tseldd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321#35746#21333 + ImageIndex = 16 + OnClick = TselddClick + end + object ToolButton1: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #30830#23450#37197#36135 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = -24 + Top = 33 + Width = 1390 + Height = 84 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 213 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 690 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 1232 + Top = 16 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + Visible = False + end + object Label2: TLabel + Left = 1268 + Top = 40 + Width = 12 + Height = 12 + Caption = #33267 + Visible = False + end + object Label5: TLabel + Left = 34 + Top = 12 + Width = 48 + Height = 12 + Caption = #20219#21153#21333#21495 + end + object Label6: TLabel + Left = 34 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 213 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 387 + Top = 12 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 484 + Top = 132 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 387 + Top = 36 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label12: TLabel + Left = 534 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label13: TLabel + Left = 532 + Top = 36 + Width = 24 + Height = 12 + Caption = #24211#20301 + end + object Label14: TLabel + Left = 690 + Top = 36 + 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 + end + object Label15: TLabel + Left = 844 + Top = 12 + 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 + end + object Label16: TLabel + Left = 844 + Top = 36 + 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 + end + object C_CodeName: TEdit + Tag = 2 + Left = 262 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 722 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = C_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 1281 + Top = 13 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + Visible = False + end + object EndDate: TDateTimePicker + Left = 1281 + Top = 37 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + Visible = False + end + object conNo: TEdit + Tag = 2 + Left = 84 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = C_CodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 84 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = C_CodeNameChange + end + object KZ: TEdit + Tag = 2 + Left = 262 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = C_CodeNameChange + end + object MF: TEdit + Tag = 2 + Left = 411 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = C_CodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 514 + Top = 132 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #30041#26679 + '') + end + object KCQtyStr: TEdit + Tag = 2 + Left = 411 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = C_CodeNameChange + end + object AOrdDefStr1: TEdit + Tag = 2 + Left = 558 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = C_CodeNameChange + end + object KCKW: TEdit + Tag = 2 + Left = 558 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 11 + end + object Button1: TButton + Left = 1004 + Top = 32 + Width = 75 + Height = 25 + Caption = #30830#23450#36873#25321 + TabOrder = 12 + OnClick = Button1Click + end + object PHYG: TBtnEditA + Left = 896 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 13 + OnBtnClick = PHYGBtnClick + end + object CheckBox1: TCheckBox + Left = 688 + Top = 57 + Width = 99 + Height = 19 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 14 + OnClick = CheckBox1Click + end + object packNo: TcxCurrencyEdit + Left = 722 + Top = 32 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + TabOrder = 15 + Width = 100 + end + object defstr2: TComboBox + Left = 896 + Top = 32 + 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 = [] + ItemHeight = 12 + ItemIndex = 0 + ParentFont = False + TabOrder = 16 + Items.Strings = ( + '' + #24555#20214 + #24930#20214) + end + end + object Panel4: TPanel + Left = 38 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 2 + 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 cxSplitter1: TcxSplitter + Left = 473 + Top = 117 + Width = 8 + Height = 566 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = cxGrid1 + end + object Panel2: TPanel + Left = -24 + Top = 117 + Width = 497 + Height = 566 + Align = alLeft + Caption = 'Panel2' + TabOrder = 5 + object cxGrid3: TcxGrid + Left = 1 + Top = 1 + Width = 495 + Height = 564 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv3FocusedRecordChanged + DataController.DataSource = DataSource2 + 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_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn1: 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 v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + Visible = False + Hidden = True + Options.Focusing = False + Width = 54 + end + object v3gangNum: TcxGridDBColumn + Caption = #32568#25968 + DataBinding.FieldName = 'gangNum' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1PRTRollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTRollNum' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 52 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20844#21496#32534#21495 + DataBinding.FieldName = 'OrdDefStr1' + Visible = False + 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_TradeManage.Default + Width = 68 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20844#21496#21488#22836 + DataBinding.FieldName = 'OrdDefStr2' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1JGFactoryName: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'JGFactoryName' + Visible = False + 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 cxGridDBColumn18: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 96 + 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 v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #20215#26684#21333#20301 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object v3Column1: TcxGridDBColumn + Caption = 'M1' + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column2: TcxGridDBColumn + Caption = 'M2' + DataBinding.FieldName = 'SordQty2' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column3: TcxGridDBColumn + Caption = 'M3' + DataBinding.FieldName = 'SordQty3' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column4: TcxGridDBColumn + Caption = 'M4' + DataBinding.FieldName = 'SordQty4' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column5: TcxGridDBColumn + Caption = 'M5' + DataBinding.FieldName = 'SordQty5' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column6: TcxGridDBColumn + Caption = 'M6' + DataBinding.FieldName = 'SordQty6' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column7: TcxGridDBColumn + Caption = 'M7' + DataBinding.FieldName = 'SordQty7' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column8: TcxGridDBColumn + Caption = 'M8' + DataBinding.FieldName = 'SordQty8' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column9: TcxGridDBColumn + Caption = 'M9' + DataBinding.FieldName = 'SordQty9' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column10: TcxGridDBColumn + Caption = 'M10' + DataBinding.FieldName = 'SordQty10' + HeaderAlignmentHorz = taCenter + Width = 50 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv3 + end + end + end + object Panel3: TPanel + Left = 481 + Top = 117 + Width = 885 + Height = 566 + Align = alRight + TabOrder = 6 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 883 + Height = 200 + Align = alTop + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column6 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1KCRollNum + 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 v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column1: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 91 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1KCRollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + 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 = 'kcQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1gangNO: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'gangNO' + Options.Editing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column4: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v2Column5: TcxGridDBColumn + Caption = #24211#23384#20844#26020#25968 + DataBinding.FieldName = 'KCKGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1KCKW: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KCKW' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid1: TcxGrid + Left = 1 + Top = 237 + Width = 883 + Height = 328 + Align = alBottom + TabOrder = 1 + object Tv2: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DSSubSel + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn13 + end + item + Kind = skSum + Column = cxGridDBColumn12 + end + item + Kind = skSum + Column = v2RollNum + end + item + Kind = skSum + Column = v2Qty + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = 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 = Tv2CustomDrawIndicatorCell + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #24211#23384#20844#26020#25968 + DataBinding.FieldName = 'KCKGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 76 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'kcQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 68 + end + object v2RollNum: TcxGridDBColumn + Caption = #37197#36135#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object v2Qty: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object v2Column2: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'packNo' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'gangNO' + Visible = False + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v2defstr2: TcxGridDBColumn + Caption = #36135#36816#31867#22411 + DataBinding.FieldName = 'defstr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + object MovePanel2: TMovePanel + Left = 384 + 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 = 1028 + Top = 32 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1052 + Top = 32 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1004 + Top = 40 + 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 CDS_SubSel: TClientDataSet + Aggregates = <> + Params = <> + Left = 656 + Top = 444 + end + object DSSubSel: TDataSource + DataSet = CDS_SubSel + Left = 560 + Top = 480 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 520 + Top = 480 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 196 + Top = 240 + end + object DataSource2: TDataSource + DataSet = Order_Main + Left = 252 + Top = 245 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 388 + Top = 144 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/管理系统/U_CKProductBCPKCListSel10.pas b/管理系统/U_CKProductBCPKCListSel10.pas new file mode 100644 index 0000000..111cf1c --- /dev/null +++ b/管理系统/U_CKProductBCPKCListSel10.pas @@ -0,0 +1,813 @@ +unit U_CKProductBCPKCListSel10; + +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, + cxSplitter, cxCalendar, BtnEdit, cxContainer, cxTextEdit, cxCurrencyEdit; + +type + TfrmCKProductBCPKCListsel10 = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + C_CodeName: TEdit; + C_Color: 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; + conNo: TEdit; + Label6: TLabel; + MJID: TEdit; + v1Column7: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Panel4: TPanel; + Label11: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + MovePanel2: TMovePanel; + ToolButton1: TToolButton; + v1KCRollNum: TcxGridDBColumn; + v1gangNO: TcxGridDBColumn; + v1C_Color: TcxGridDBColumn; + cxGrid1: 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; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + CDS_SubSel: TClientDataSet; + DSSubSel: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + Label10: TLabel; + KCQtyStr: TEdit; + Label12: TLabel; + AOrdDefStr1: TEdit; + v1KCKW: TcxGridDBColumn; + Label13: TLabel; + KCKW: TEdit; + Panel2: TPanel; + Panel3: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1JGFactoryName: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + v1PRTRollNum: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Order_Main: TClientDataSet; + DataSource2: TDataSource; + v2RollNum: TcxGridDBColumn; + v2Qty: TcxGridDBColumn; + cxGridPopupMenu3: TcxGridPopupMenu; + v1Ssel: TcxGridDBColumn; + Button1: TButton; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3gangNum: TcxGridDBColumn; + Label14: TLabel; + v2Column2: TcxGridDBColumn; + Label15: TLabel; + PHYG: TBtnEditA; + CDS_Print: TClientDataSet; + CheckBox1: TCheckBox; + Tseldd: TToolButton; + packNo: TcxCurrencyEdit; + Label16: TLabel; + defstr2: TComboBox; + v2defstr2: 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 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 ToolButton1Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Button1Click(Sender: TObject); + procedure PHYGBtnClick(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); + procedure Tv2CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure TselddClick(Sender: TObject); + private + FLeft,FTop:Integer; + fCodeName:string; + fColor:string; + fmainID:string; + procedure InitGrid(); + procedure InitGridNull(); + Procedure DoQuery(); + function SaveData():Boolean; + { Private declarations } + public + fkeyNo:string; + fType:integer; + { Public declarations } + end; + +var + frmCKProductBCPKCListsel10: TfrmCKProductBCPKCListsel10; + +implementation +uses + U_DataLink,U_Fun, U_UserHelp, U_ProductOrderNewListSEl; + +{$R *.dfm} + +function TfrmCKProductBCPKCListsel10.SaveData():Boolean; +var + phID:string; + P_ID:integer; +begin + Result:=false; + + IF fType=0 then + begin + if GetLSNo(ADOQueryTemp,fkeyNo,'PN','CK_BanCP_PH',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + end; + P_ID:=1; + ADOQueryCmd.Connection.BeginTrans; + + try + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CK_BanCP_KC SET kcstatus=null '); + sql.Add('from CK_BanCP_KC A '); + sql.Add('inner join CK_BanCP_PH B on B.CRID=A.crid and B.mjid=A.mjid '); + sql.Add('where P_NO='+quotedstr(trim(fkeyNo))); + execsql; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_PH '); + sql.Add('where P_NO='+quotedstr(trim(fkeyNo))); + execsql; + end; + + with CDS_SubSel do + begin + DisableControls; + first; + while not eof do + begin + if fieldbyname('qty').AsFloat=0 then continue; + if GetLSNo(ADOQueryTemp,phID,'PH','CK_BanCP_PH',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_PH '); + sql.Add('where P_NO='+quotedstr(trim(fkeyNo))); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('phID').Value:=trim(phID); + ADOQueryCmd.FieldByName('p_No').Value:=trim(fkeyNo); + ADOQueryCmd.FieldByName('p_ID').Value:=P_ID; + ADOQueryCmd.FieldByName('conNo').Value:=trim(fieldbyname('conNo').AsString); + ADOQueryCmd.FieldByName('MainID').Value:=trim(Order_Main.fieldbyname('MainID').AsString); + ADOQueryCmd.FieldByName('SubID').Value:=trim(Order_Main.fieldbyname('SubID').AsString); + ADOQueryCmd.FieldByName('PMainID').Value:=trim(fieldbyname('MainID').AsString); + ADOQueryCmd.FieldByName('PSubID').Value:=trim(fieldbyname('SubID').AsString); + ADOQueryCmd.FieldByName('mjID').Value:=trim(fieldbyname('mjID').AsString); + ADOQueryCmd.FieldByName('CRID').Value:=trim(fieldbyname('CRID').AsString); + ADOQueryCmd.FieldByName('qtyunit').Value:=trim(fieldbyname('kcqtyunit').AsString); + ADOQueryCmd.FieldByName('defstr2').Value:=trim(fieldbyname('defstr2').AsString); + ADOQueryCmd.FieldByName('packNo').Value:=trim(fieldbyname('packNo').AsString); + ADOQueryCmd.FieldByName('qty').Value:=fieldbyname('qty').AsFloat; + ADOQueryCmd.FieldByName('Rollnum').Value:=fieldbyname('Rollnum').AsFloat; + ADOQueryCmd.FieldByName('Filler').Value:=trim(DName); + ADOQueryCmd.FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + ADOQueryCmd.FieldByName('BCGangNo').Value:=trim(fieldbyname('AOrdDefStr1').AsString); + ADOQueryCmd.FieldByName('PHYG').Value:=trim(PHYG.Text); + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where mjid='+quotedstr(trim(CDS_SubSel.fieldbyname('mjid').AsString))); + sql.Add('and CRID='+quotedstr(trim(CDS_SubSel.fieldbyname('CRID').AsString))); + open; + edit; + fieldbyname('kcstatus').Value:='1'; + post; + end; + P_ID:=P_ID+1; + next; + end; + first; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + IF fType=0 then fkeyNo:=''; + + Result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmCKProductBCPKCListsel10.DoQuery(); +begin +// Order_Main.DisableControls; + try + with AdoqueryTemp do + begin + close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add('from JYOrder_sub A '); + sql.Add('inner JOIN JYOrder_Main B on B.mainID=A.mainID and isnull(B.status,''0'')>''0'' '); + IF fType=0 then + sql.Add('where A.mainId='+quotedstr(trim(fmainID))) + else + sql.Add('where exists(select * from CK_BanCP_PH X where X.mainID=A.mainID and X.subID=A.subID and P_NO='''+trim(fkeyNO)+''')'); + // sql.Add('and isnull(A.substatus,''0'')<''3'' '); + open; + end; + SCreateCDS20(AdoqueryTemp,Order_Main); + SInitCDSData20(AdoqueryTemp,Order_Main); + finally + // Order_Main.EnableControls; + end; +end; + +procedure TfrmCKProductBCPKCListsel10.FormDestroy(Sender: TObject); +begin + frmCKProductBCPKCListsel10:=nil; +end; + +procedure TfrmCKProductBCPKCListsel10.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductBCPKCListsel10.FormCreate(Sender: TObject); +begin + Panel3.Align:=alClient; + // cxGrid1.Height:= Panel3.Height div 2; + cxGrid2.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + // TBRafresh.Click; +end; + + +procedure TfrmCKProductBCPKCListsel10.InitGrid(); +begin + try + // ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('exec P_View_CPKCMX_SEL'); + SQL.Add('@P_Codename='+quotedstr(trim(fCodeName))); + SQL.Add(',@P_Color='+quotedstr(trim(fColor))); + SQL.Add(',@mainID='+quotedstr(trim(''))); + SQL.Add(',@subID='+quotedstr(trim(''))); + SQL.Add(',@Flag='+quotedstr(trim('0'))); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('exec P_View_CPKCMX_SEL'); + SQL.Add('@P_Codename='+quotedstr(trim(fkeyNO))); + SQL.Add(',@P_Color='+quotedstr(trim(fColor))); + SQL.Add(',@mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + SQL.Add(',@subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + SQL.Add(',@Flag='+quotedstr(trim('2'))); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_SubSel); + SInitCDSData20(ADOQueryMain,CDS_SubSel); + finally + // ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; +procedure TfrmCKProductBCPKCListsel10.InitGridNull(); +begin + try + ADOQueryTemp.DisableControls; + with ADOQueryTemp do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('exec P_View_CPKCMXNull'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_SubSel); + SInitCDSData20(ADOQueryTemp,CDS_SubSel); + finally + ADOQueryTemp.EnableControls; + end; +end; + +procedure TfrmCKProductBCPKCListsel10.TBRafreshClick(Sender: TObject); +begin + // BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + DOquery(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCKProductBCPKCListsel10.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductBCPKCListsel10.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv11',Tv1,'Ʒֿ'); + WriteCxGrid('Tv21',Tv2,'Ʒֿ'); + WriteCxGrid('Tv31',Tv3,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPKCListsel10.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv11',Tv1,'Ʒֿ'); + ReadCxGrid('Tv21',Tv2,'Ʒֿ'); + ReadCxGrid('Tv31',Tv3,'Ʒֿ'); +// InitGridNull(); +// InitGrid(); + IF Ftype=1 then Tseldd.Visible:=false; + Doquery(); +end; + +procedure TfrmCKProductBCPKCListsel10.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKProductBCPKCListsel10.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter10(CDS_Main,SGetFilters(Panel1,1,2)); + //SCreateCDS20(ADOQueryMain,CDS_Main); + //SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCKProductBCPKCListsel10.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPKCListsel10.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmCKProductBCPKCListsel10.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmCKProductBCPKCListsel10.Tv1MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +procedure TfrmCKProductBCPKCListsel10.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + i:Integer; +begin + //if CDS_Sel.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then + //begin +{ if CDS_Main.IsEmpty then Exit; + CDS_SubSel.Append; + for i:=0 to CDS_SubSel.FieldCount-1 do + begin + CDS_SubSel.Fields[i].Value:=CDS_Main.Fields[i].Value; + end; + CDS_SubSel.Post; + CDS_Main.Delete; + //end; } +end; + +procedure TfrmCKProductBCPKCListsel10.ToolButton1Click(Sender: TObject); +var + phRollNum,phQty:double; +begin + if CDS_SubSel.IsEmpty then exit; + conNo.SetFocus; + with CDS_SubSel do + begin + DisableControls; + first; + while not eof do + begin + if (trim(fieldbyname('C_CodeName').AsString)<>trim(Order_Main.FieldByName('PRTCodeName').AsString)) + or (uppercase(trim(fieldbyname('C_Color').AsString))<>uppercase(trim(Order_Main.FieldByName('PRTColor').AsString))) + then + begin + application.MessageBox('Ʒƻɫһ','ʾϢ',0); + EnableControls; + exit; + end; + next; + end; + first; + EnableControls; + end; + phRollNum:=0; + phQty:=0; + with CDS_SubSel do + begin + DisableControls; + first; + while not eof do + begin + phRollNum:=phRollNum+ CDS_SubSel.fieldbyname('RollNum').AsFloat; + phQty:=phQty+ CDS_SubSel.fieldbyname('Qty').AsFloat; + next; + end; + first; + EnableControls; + end; + + IF Order_Main.FieldByName('PRTRollNum').AsFloat<>0 then + begin + if (phRollNum<>Order_Main.FieldByName('PRTRollNum').AsFloat) then + if Application.MessageBox('δﵽҪȷ','ʾϢ',32+4)<>IDYES then Exit; + end + else + begin + if (phQty<>Order_Main.FieldByName('PRTOrderQty').AsFloat) then + if Application.MessageBox('δﵽҪȷ','ʾϢ',32+4)<>IDYES then Exit; + end; + + + if SaveData() then + begin + application.MessageBox('ɹ!','ʾϢ'); + Order_Main.Delete; + CDS_SubSel.EmptyDataSet; + // TBRafresh.Click; + end + else + begin + application.MessageBox('ʧ!','ʾϢ',0); + end; +end; + +procedure TfrmCKProductBCPKCListsel10.Tv2CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + i:Integer; +begin + //if CDS_Sel.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then + //begin + if CDS_SubSel.IsEmpty then Exit; + CDS_Main.Append; + for i:=0 to CDS_Main.FieldCount-1 do + begin + CDS_Main.Fields[i].Value:=CDS_SubSel.Fields[i].Value; + end; + CDS_Main.FieldByName('ssel').Value:=false; + CDS_Main.Post; + CDS_SubSel.Delete; + //end; +end; + +procedure TfrmCKProductBCPKCListsel10.Tv3FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + IF Order_Main.IsEmpty then + begin + fCodeName:='!##@'; + fColor:='!##@'; + end + else + begin + FCodeName:= trim(Order_Main.FieldByName('PRTCodeName').AsString); + fColor:= trim(Order_Main.FieldByName('PRTColor').AsString); + end; + initGrid(); +end; + +procedure TfrmCKProductBCPKCListsel10.Button1Click(Sender: TObject); +var + i:integer; +begin + if CDS_Main.IsEmpty then Exit; + IF trim(packNo.Text)='' then + begin + application.MessageBox('ŲΪգ','ʾϢ',0); + exit; + end; + IF trim(defstr2.Text)='' then + begin + application.MessageBox('ͲΪգ','ʾϢ',0); + exit; + end; + CDS_SubSel.DisableControls; + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + if (CDS_Main.Locate('ssel',true,[])) + and not CDS_SubSel.Locate('CRID',CDS_Main.fieldbyname('CRID').AsInteger,[]) then + begin + CDS_SubSel.Append; + for i:=0 to CDS_SubSel.FieldCount-1 do + begin + CDS_SubSel.Fields[i].Value:=CDS_Main.Fields[i].Value; + end; + CDS_SubSel.FieldByName('packNo').Value:=trim(packNO.Text); + CDS_SubSel.FieldByName('defstr2').Value:=trim(defstr2.Text); + CDS_SubSel.Post; + CDS_Main.Delete; + end; + next; + end; + EnableControls; + First; + end; + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + if (CDS_Main.Locate('ssel',true,[])) + and not CDS_SubSel.Locate('CRID',CDS_Main.fieldbyname('CRID').AsInteger,[]) then + begin + CDS_SubSel.Append; + for i:=0 to CDS_SubSel.FieldCount-1 do + begin + CDS_SubSel.Fields[i].Value:=CDS_Main.Fields[i].Value; + end; + CDS_SubSel.FieldByName('packNo').Value:=trim(packNO.Text); + CDS_SubSel.FieldByName('defstr2').Value:=trim(defstr2.Text); + CDS_SubSel.Post; + CDS_Main.Delete; + end; + next; + end; + EnableControls; + First; + end; + CDS_SubSel.EnableControls; +end; + +procedure TfrmCKProductBCPKCListsel10.PHYGBtnClick(Sender: TObject); +begin + frmUserHelp:=TfrmUserHelp.Create(self); + with frmUserHelp do + begin + if showmodal=1 then + begin + PHYG.Text:=trim(ADOQueryHelp.fieldbyname('userName').AsString); + end; + free; + end; +end; + +procedure TfrmCKProductBCPKCListsel10.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 TfrmCKProductBCPKCListsel10.Tv2CustomDrawIndicatorCell( + 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 TfrmCKProductBCPKCListsel10.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; + +procedure TfrmCKProductBCPKCListsel10.TselddClick(Sender: TObject); +begin + Order_Main.EmptyDataSet; + tv3.OnFocusedRecordChanged:=nil; + frmProductOrderNewListSEl:=TfrmProductOrderNewListSEl.create(self); + with frmProductOrderNewListSEl do + begin + 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 self.AdoqueryTemp do + begin + close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add('from JYOrder_sub A '); + sql.Add('inner JOIN JYOrder_Main B on B.mainID=A.mainID and isnull(B.status,''0'')>''0'' '); + sql.Add('where A.mainId='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + sql.Add('and A.subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + end; + self.Order_Main.Last; + SInitCDSData20(self.AdoqueryTemp,self.Order_Main); + end; + Order_Main.Next; + end; + Order_Main.EnableControls; + end; + free; + end; + + tv3.OnFocusedRecordChanged:=Tv3FocusedRecordChanged; + Order_Main.First; +end; + +end. diff --git a/管理系统/U_CKProductBCPKCListSel_Other.dfm b/管理系统/U_CKProductBCPKCListSel_Other.dfm new file mode 100644 index 0000000..9c2a188 --- /dev/null +++ b/管理系统/U_CKProductBCPKCListSel_Other.dfm @@ -0,0 +1,1210 @@ +object frmCKProductBCPKCListSel_Other: TfrmCKProductBCPKCListSel_Other + Left = 12 + Top = 19 + Width = 1280 + Height = 738 + HorzScrollBar.Position = 95 + 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 + WindowState = wsMaximized + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = -95 + Top = 0 + Width = 1461 + 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 + Visible = False + 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 = #30830#23450#37197#36135 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = -95 + Top = 33 + Width = 1461 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 213 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 690 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 1232 + Top = 16 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + Visible = False + end + object Label2: TLabel + Left = 1268 + Top = 40 + Width = 12 + Height = 12 + Caption = #33267 + Visible = False + end + object Label5: TLabel + Left = 34 + Top = 12 + Width = 48 + Height = 12 + Caption = #20219#21153#21333#21495 + end + object Label6: TLabel + Left = 34 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 213 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 387 + Top = 12 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 492 + Top = 68 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 387 + Top = 36 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label12: TLabel + Left = 534 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label13: TLabel + Left = 532 + Top = 36 + Width = 24 + Height = 12 + Caption = #24211#20301 + end + object Label14: TLabel + Left = 690 + Top = 36 + 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 + end + object Label15: TLabel + Left = 844 + Top = 12 + 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 + end + object C_CodeName: TEdit + Tag = 2 + Left = 262 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 722 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = C_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 1281 + Top = 13 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + Visible = False + end + object EndDate: TDateTimePicker + Left = 1281 + Top = 37 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + Visible = False + end + object conNo: TEdit + Tag = 2 + Left = 84 + Top = 8 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = C_CodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 84 + Top = 32 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = C_CodeNameChange + end + object KZ: TEdit + Tag = 2 + Left = 262 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = C_CodeNameChange + end + object MF: TEdit + Tag = 2 + Left = 411 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = C_CodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 518 + Top = 64 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #30041#26679 + '') + end + object KCQtyStr: TEdit + Tag = 2 + Left = 411 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = C_CodeNameChange + end + object AOrdDefStr1: TEdit + Tag = 2 + Left = 558 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = C_CodeNameChange + end + object KCKW: TEdit + Tag = 2 + Left = 558 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 11 + end + object Button1: TButton + Left = 1004 + Top = 32 + Width = 75 + Height = 25 + Caption = #30830#23450#36873#25321 + TabOrder = 12 + OnClick = Button1Click + end + object PHYG: TBtnEditA + Left = 896 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 13 + OnBtnClick = PHYGBtnClick + end + object CheckBox1: TCheckBox + Left = 848 + Top = 37 + Width = 99 + Height = 19 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 14 + OnClick = CheckBox1Click + end + object packNo: TcxCurrencyEdit + Left = 722 + Top = 32 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + TabOrder = 15 + Width = 100 + end + end + object Panel4: TPanel + Left = -33 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 2 + 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 cxSplitter1: TcxSplitter + Left = 402 + Top = 97 + Width = 8 + Height = 586 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = cxGrid1 + end + object Panel2: TPanel + Left = -95 + Top = 97 + Width = 497 + Height = 586 + Align = alLeft + Caption = 'Panel2' + TabOrder = 5 + object cxGrid3: TcxGrid + Left = 1 + Top = 1 + Width = 495 + Height = 584 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnFocusedRecordChanged = Tv3FocusedRecordChanged + DataController.DataSource = DataSource2 + 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_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn1: 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 v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + Visible = False + Hidden = True + Options.Focusing = False + Width = 54 + end + object v3gangNum: TcxGridDBColumn + Caption = #32568#25968 + DataBinding.FieldName = 'gangNum' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1PRTRollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTRollNum' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 52 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 58 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20844#21496#32534#21495 + DataBinding.FieldName = 'OrdDefStr1' + Visible = False + 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_TradeManage.Default + Width = 68 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20844#21496#21488#22836 + DataBinding.FieldName = 'OrdDefStr2' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1JGFactoryName: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'JGFactoryName' + Visible = False + 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 cxGridDBColumn18: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 96 + 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 v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #20215#26684#21333#20301 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 61 + end + object v3Column1: TcxGridDBColumn + Caption = 'M1' + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column2: TcxGridDBColumn + Caption = 'M2' + DataBinding.FieldName = 'SordQty2' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column3: TcxGridDBColumn + Caption = 'M3' + DataBinding.FieldName = 'SordQty3' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column4: TcxGridDBColumn + Caption = 'M4' + DataBinding.FieldName = 'SordQty4' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column5: TcxGridDBColumn + Caption = 'M5' + DataBinding.FieldName = 'SordQty5' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column6: TcxGridDBColumn + Caption = 'M6' + DataBinding.FieldName = 'SordQty6' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column7: TcxGridDBColumn + Caption = 'M7' + DataBinding.FieldName = 'SordQty7' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column8: TcxGridDBColumn + Caption = 'M8' + DataBinding.FieldName = 'SordQty8' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column9: TcxGridDBColumn + Caption = 'M9' + DataBinding.FieldName = 'SordQty9' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column10: TcxGridDBColumn + Caption = 'M10' + DataBinding.FieldName = 'SordQty10' + HeaderAlignmentHorz = taCenter + Width = 50 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv3 + end + end + end + object Panel3: TPanel + Left = 481 + Top = 100 + Width = 885 + Height = 577 + TabOrder = 6 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 883 + Height = 200 + Align = alTop + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column6 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1KCRollNum + 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 v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column1: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 91 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1KCRollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + 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 = 'kcQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1gangNO: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'gangNO' + Options.Editing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v1Column4: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v2Column5: TcxGridDBColumn + Caption = #24211#23384#20844#26020#25968 + DataBinding.FieldName = 'KCKGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1KCKW: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KCKW' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid1: TcxGrid + Left = 1 + Top = 248 + Width = 883 + Height = 328 + Align = alBottom + TabOrder = 1 + object Tv2: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DSSubSel + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn13 + end + item + Kind = skSum + Column = cxGridDBColumn12 + end + item + Kind = skSum + Column = v2RollNum + end + item + Kind = skSum + Column = v2Qty + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = 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 = Tv2CustomDrawIndicatorCell + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #24211#23384#20844#26020#25968 + DataBinding.FieldName = 'KCKGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 76 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'kcQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 68 + end + object v2RollNum: TcxGridDBColumn + Caption = #37197#36135#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object v2Qty: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object v2Column2: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'packNo' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'gangNO' + Visible = False + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 59 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + object MovePanel2: TMovePanel + Left = 313 + 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 = 936 + Top = 40 + 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 CDS_SubSel: TClientDataSet + Aggregates = <> + Params = <> + Left = 656 + Top = 444 + end + object DSSubSel: TDataSource + DataSet = CDS_SubSel + Left = 560 + Top = 480 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 520 + Top = 480 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 196 + Top = 240 + end + object DataSource2: TDataSource + DataSet = Order_Main + Left = 252 + Top = 245 + end + object cxGridPopupMenu3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 388 + Top = 144 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 288 + end +end diff --git a/管理系统/U_CKProductBCPKCListSel_Other.pas b/管理系统/U_CKProductBCPKCListSel_Other.pas new file mode 100644 index 0000000..41f12d6 --- /dev/null +++ b/管理系统/U_CKProductBCPKCListSel_Other.pas @@ -0,0 +1,748 @@ +unit U_CKProductBCPKCListSel_Other; + +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, + cxSplitter, cxCalendar, BtnEdit, cxContainer, cxTextEdit, cxCurrencyEdit; + +type + TfrmCKProductBCPKCListSel_Other = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label3: TLabel; + Label4: TLabel; + C_CodeName: TEdit; + C_Color: 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; + conNo: TEdit; + Label6: TLabel; + MJID: TEdit; + v1Column7: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Panel4: TPanel; + Label11: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + MovePanel2: TMovePanel; + ToolButton1: TToolButton; + v1KCRollNum: TcxGridDBColumn; + v1gangNO: TcxGridDBColumn; + v1C_Color: TcxGridDBColumn; + cxGrid1: 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; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + CDS_SubSel: TClientDataSet; + DSSubSel: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + Label10: TLabel; + KCQtyStr: TEdit; + Label12: TLabel; + AOrdDefStr1: TEdit; + v1KCKW: TcxGridDBColumn; + Label13: TLabel; + KCKW: TEdit; + Panel2: TPanel; + Panel3: TPanel; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + v1OrderNo: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1JGFactoryName: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1CustomerNoName: TcxGridDBColumn; + v1MPRTCodeName: TcxGridDBColumn; + v1MPRTSpec: TcxGridDBColumn; + v1MPRTCF: TcxGridDBColumn; + v1MPRTMF: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + v1PRTRollNum: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Order_Main: TClientDataSet; + DataSource2: TDataSource; + v2RollNum: TcxGridDBColumn; + v2Qty: TcxGridDBColumn; + cxGridPopupMenu3: TcxGridPopupMenu; + v1Ssel: TcxGridDBColumn; + Button1: TButton; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + v3Column9: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3gangNum: TcxGridDBColumn; + Label14: TLabel; + v2Column2: TcxGridDBColumn; + Label15: TLabel; + PHYG: TBtnEditA; + CDS_Print: TClientDataSet; + CheckBox1: TCheckBox; + packNo: TcxCurrencyEdit; + 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 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 ToolButton1Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure Button1Click(Sender: TObject); + procedure PHYGBtnClick(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); + procedure Tv2CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); + procedure CheckBox1Click(Sender: TObject); + private + FLeft,FTop:Integer; + procedure InitGrid(); + // procedure InitGridNull(); + Procedure DoQuery(); + function SaveData():Boolean; + { Private declarations } + public + fCodeName:string; + fColor:string; + fmainID:string; + { Public declarations } + end; + +var + frmCKProductBCPKCListSel_Other: TfrmCKProductBCPKCListSel_Other; + +implementation +uses + U_DataLink,U_Fun, U_UserHelp, U_ZDYHelp; + +{$R *.dfm} + +function TfrmCKProductBCPKCListSel_Other.SaveData():Boolean; +var + phID:string; + P_No:string; + P_ID:integer; +begin + Result:=false; + + if GetLSNo(ADOQueryTemp,P_No,'PNT','CK_BanCP_PH1',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + P_ID:=1; + ADOQueryCmd.Connection.BeginTrans; + + + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CK_BanCP_KC1 SET kcstatus=null '); + sql.Add('from CK_BanCP_KC1 A '); + sql.Add('inner join CK_BanCP_PH1 B on B.CRID=A.crid and B.mjid=A.mjid '); + sql.Add('where B.mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and B.subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_PH1 '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + + with CDS_SubSel do + begin + DisableControls; + first; + while not eof do + begin + if fieldbyname('qty').AsFloat=0 then continue; + if GetLSNo(ADOQueryTemp,phID,'PT','CK_BanCP_PH1',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_PH1 '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('phID').Value:=trim(phID); + ADOQueryCmd.FieldByName('p_No').Value:=trim(p_No); + ADOQueryCmd.FieldByName('p_ID').Value:=P_ID; + ADOQueryCmd.FieldByName('conNo').Value:=trim(fieldbyname('conNo').AsString); + ADOQueryCmd.FieldByName('MainID').Value:=trim(Order_Main.fieldbyname('MainID').AsString); + ADOQueryCmd.FieldByName('SubID').Value:=trim(Order_Main.fieldbyname('SubID').AsString); + ADOQueryCmd.FieldByName('PMainID').Value:=trim(fieldbyname('MainID').AsString); + ADOQueryCmd.FieldByName('PSubID').Value:=trim(fieldbyname('SubID').AsString); + ADOQueryCmd.FieldByName('mjID').Value:=trim(fieldbyname('mjID').AsString); + ADOQueryCmd.FieldByName('CRID').Value:=trim(fieldbyname('CRID').AsString); + ADOQueryCmd.FieldByName('qtyunit').Value:=trim(fieldbyname('kcqtyunit').AsString); + + ADOQueryCmd.FieldByName('packNo').Value:=trim(fieldbyname('packNo').AsString); + ADOQueryCmd.FieldByName('qty').Value:=fieldbyname('qty').AsFloat; + ADOQueryCmd.FieldByName('Rollnum').Value:=fieldbyname('Rollnum').AsFloat; + ADOQueryCmd.FieldByName('Filler').Value:=trim(DName); + ADOQueryCmd.FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + ADOQueryCmd.FieldByName('BCGangNo').Value:=trim(fieldbyname('AOrdDefStr1').AsString); + ADOQueryCmd.FieldByName('PHYG').Value:=trim(PHYG.Text); + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 '); + sql.Add('where mjid='+quotedstr(trim(CDS_SubSel.fieldbyname('mjid').AsString))); + sql.Add('and CRID='+quotedstr(trim(CDS_SubSel.fieldbyname('CRID').AsString))); + open; + edit; + fieldbyname('kcstatus').Value:='1'; + post; + end; + P_ID:=P_ID+1; + next; + end; + first; + EnableControls; + + 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 subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value:='2'; + post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmCKProductBCPKCListSel_Other.DoQuery(); +begin +// Order_Main.DisableControls; + try + with AdoqueryTemp do + begin + close; + sql.Clear; + sql.Add('select A.*,B.* '); + sql.Add('from JYOrder_sub A '); + sql.Add('inner JOIN JYOrder_Main B on B.mainID=A.mainID and isnull(B.status,''0'')>''0'' '); + sql.Add('where A.mainId='+quotedstr(trim(fmainID))); + sql.Add('and isnull(A.substatus,''0'')<''3'' '); + open; + end; + SCreateCDS20(AdoqueryTemp,Order_Main); + SInitCDSData20(AdoqueryTemp,Order_Main); + finally + // Order_Main.EnableControls; + end; +end; + +procedure TfrmCKProductBCPKCListSel_Other.FormDestroy(Sender: TObject); +begin + frmCKProductBCPKCListSel_Other:=nil; +end; + +procedure TfrmCKProductBCPKCListSel_Other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductBCPKCListSel_Other.FormCreate(Sender: TObject); +begin + Panel3.Align:=alClient; + // cxGrid1.Height:= Panel3.Height div 2; + cxGrid2.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + // TBRafresh.Click; +end; + + +procedure TfrmCKProductBCPKCListSel_Other.InitGrid(); +begin + try + // ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('exec P_View_CPKCMX_SEL_other'); + SQL.Add('@P_Codename='+quotedstr(trim(fCodeName))); + SQL.Add(',@P_Color='+quotedstr(trim(fColor))); + SQL.Add(',@mainID='+quotedstr(trim(''))); + SQL.Add(',@subID='+quotedstr(trim(''))); + SQL.Add(',@Flag='+quotedstr(trim('0'))); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('exec P_View_CPKCMX_SEL_other'); + SQL.Add('@P_Codename='+quotedstr(trim(fCodeName))); + SQL.Add(',@P_Color='+quotedstr(trim(fColor))); + SQL.Add(',@mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + SQL.Add(',@subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + SQL.Add(',@Flag='+quotedstr(trim('1'))); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_SubSel); + SInitCDSData20(ADOQueryMain,CDS_SubSel); + finally + // ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + + +procedure TfrmCKProductBCPKCListSel_Other.TBRafreshClick(Sender: TObject); +begin + // BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + DOquery(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCKProductBCPKCListSel_Other.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductBCPKCListSel_Other.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('Tv1',Tv1,'Ʒֿ'); + WriteCxGrid('Tv2',Tv2,'Ʒֿ'); + WriteCxGrid('Tv3',Tv3,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPKCListSel_Other.FormShow(Sender: TObject); +begin + ReadCxGrid('Tv1',Tv1,'Ʒֿ'); + ReadCxGrid('Tv2',Tv2,'Ʒֿ'); + ReadCxGrid('Tv3',Tv3,'Ʒֿ'); +// InitGridNull(); +// InitGrid(); + Doquery(); +end; + +procedure TfrmCKProductBCPKCListSel_Other.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKProductBCPKCListSel_Other.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter10(CDS_Main,SGetFilters(Panel1,1,2)); + //SCreateCDS20(ADOQueryMain,CDS_Main); + //SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCKProductBCPKCListSel_Other.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPKCListSel_Other.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmCKProductBCPKCListSel_Other.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmCKProductBCPKCListSel_Other.Tv1MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +procedure TfrmCKProductBCPKCListSel_Other.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + i:Integer; +begin + //if CDS_Sel.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then + //begin +{ if CDS_Main.IsEmpty then Exit; + CDS_SubSel.Append; + for i:=0 to CDS_SubSel.FieldCount-1 do + begin + CDS_SubSel.Fields[i].Value:=CDS_Main.Fields[i].Value; + end; + CDS_SubSel.Post; + CDS_Main.Delete; + //end; } +end; + +procedure TfrmCKProductBCPKCListSel_Other.ToolButton1Click(Sender: TObject); +var + phRollNum,phQty:double; +begin + if CDS_SubSel.IsEmpty then exit; + conNo.SetFocus; + with CDS_SubSel do + begin + DisableControls; + first; + while not eof do + begin + if (trim(fieldbyname('C_CodeName').AsString)<>trim(Order_Main.FieldByName('PRTCodeName').AsString)) + or (uppercase(trim(fieldbyname('C_Color').AsString))<>uppercase(trim(Order_Main.FieldByName('PRTColor').AsString))) then + begin + application.MessageBox('Ʒƻɫһ','ʾϢ',0); + EnableControls; + exit; + end; + next; + end; + first; + EnableControls; + end; + phRollNum:=0; + phQty:=0; + with CDS_SubSel do + begin + DisableControls; + first; + while not eof do + begin + phRollNum:=phRollNum+ CDS_SubSel.fieldbyname('RollNum').AsFloat; + phQty:=phQty+ CDS_SubSel.fieldbyname('Qty').AsFloat; + next; + end; + first; + EnableControls; + end; + + IF Order_Main.FieldByName('PRTRollNum').AsFloat<>0 then + begin + if (phRollNum<>Order_Main.FieldByName('PRTRollNum').AsFloat) then + if Application.MessageBox('δﵽҪȷ','ʾϢ',32+4)<>IDYES then Exit; + end + else + begin + if (phQty<>Order_Main.FieldByName('PRTOrderQty').AsFloat) then + if Application.MessageBox('δﵽҪȷ','ʾϢ',32+4)<>IDYES then Exit; + end; + + + if SaveData() then + begin + application.MessageBox('ɹ!','ʾϢ'); + Order_Main.Delete; + CDS_SubSel.EmptyDataSet; + // TBRafresh.Click; + end + else + begin + application.MessageBox('ʧ!','ʾϢ',0); + end; +end; + +procedure TfrmCKProductBCPKCListSel_Other.Tv2CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +var + i:Integer; +begin + //if CDS_Sel.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then + //begin + if CDS_SubSel.IsEmpty then Exit; + CDS_Main.Append; + for i:=0 to CDS_Main.FieldCount-1 do + begin + CDS_Main.Fields[i].Value:=CDS_SubSel.Fields[i].Value; + end; + CDS_Main.FieldByName('ssel').Value:=false; + CDS_Main.Post; + CDS_SubSel.Delete; + //end; +end; + +procedure TfrmCKProductBCPKCListSel_Other.Tv3FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + IF Order_Main.IsEmpty then + begin + fCodeName:='!##@'; + fColor:='!##@'; + end + else + begin + FCodeName:= trim(Order_Main.FieldByName('PRTCodeName').AsString); + fColor:= trim(Order_Main.FieldByName('PRTColor').AsString); + end; + initGrid(); +end; + +procedure TfrmCKProductBCPKCListSel_Other.Button1Click(Sender: TObject); +var + i:integer; +begin + if CDS_Main.IsEmpty then Exit; + CDS_SubSel.DisableControls; + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + if (CDS_Main.Locate('ssel',true,[])) + and not CDS_SubSel.Locate('CRID',CDS_Main.fieldbyname('CRID').AsInteger,[]) then + begin + CDS_SubSel.Append; + for i:=0 to CDS_SubSel.FieldCount-1 do + begin + CDS_SubSel.Fields[i].Value:=CDS_Main.Fields[i].Value; + end; + CDS_SubSel.FieldByName('packNo').Value:=trim(packNO.Text); + CDS_SubSel.Post; + CDS_Main.Delete; + end; + next; + end; + EnableControls; + First; + end; + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + if (CDS_Main.Locate('ssel',true,[])) + and not CDS_SubSel.Locate('CRID',CDS_Main.fieldbyname('CRID').AsInteger,[]) then + begin + CDS_SubSel.Append; + for i:=0 to CDS_SubSel.FieldCount-1 do + begin + CDS_SubSel.Fields[i].Value:=CDS_Main.Fields[i].Value; + end; + CDS_SubSel.FieldByName('packNo').Value:=trim(packNO.Text); + CDS_SubSel.Post; + CDS_Main.Delete; + end; + next; + end; + EnableControls; + First; + end; + CDS_SubSel.EnableControls; +end; + +procedure TfrmCKProductBCPKCListSel_Other.PHYGBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PHYGFLAG'; + flagname:='Ա'; + if ShowModal=1 then + begin + PHYG.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCKProductBCPKCListSel_Other.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 TfrmCKProductBCPKCListSel_Other.Tv2CustomDrawIndicatorCell( + 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 TfrmCKProductBCPKCListSel_Other.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_CKProductBCPKCList_other.dfm b/管理系统/U_CKProductBCPKCList_other.dfm new file mode 100644 index 0000000..8a7fb78 --- /dev/null +++ b/管理系统/U_CKProductBCPKCList_other.dfm @@ -0,0 +1,799 @@ +object frmCKProductBCPKCList_other: TfrmCKProductBCPKCList_other + Left = 333 + Top = 184 + Width = 1155 + Height = 546 + 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 = 1139 + 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 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#24211#23384#26126#32454 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object ToolButton2: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #24211#23384#21512#24182 + ImageIndex = 103 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 387 + Top = 0 + AutoSize = True + Caption = #24211#23384#25286#20998 + ImageIndex = 107 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 474 + Top = 0 + AutoSize = True + Caption = #24211#23384#35843#25972#20445#23384 + ImageIndex = 41 + OnClick = ToolButton3Click + end + object TBKW: TToolButton + Left = 585 + Top = 0 + AutoSize = True + Caption = #35843#25972#24211#20301 + ImageIndex = 57 + OnClick = TBKWClick + end + object TBKWChg: TToolButton + Left = 672 + Top = 0 + AutoSize = True + Caption = #20445#23384#32568#21495 + ImageIndex = 106 + OnClick = TBKWChgClick + end + object ToolButton4: TToolButton + Left = 759 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object kcKw: TBtnEditA + Left = 846 + Top = 0 + Width = 121 + Height = 30 + TabOrder = 0 + OnExit = kcKwExit + end + object TBClose: TToolButton + Left = 967 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1139 + Height = 80 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 218 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label1: TLabel + Left = 940 + Top = 16 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + Visible = False + end + object Label2: TLabel + Left = 972 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + Visible = False + end + object Label5: TLabel + Left = 34 + Top = 12 + Width = 48 + Height = 12 + Caption = #21333' '#21495 + end + object Label6: TLabel + Left = 34 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 218 + Top = 36 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 395 + Top = 12 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 724 + Top = 12 + Width = 24 + Height = 12 + Caption = #31561#32423 + end + object Label10: TLabel + Left = 395 + Top = 36 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label4: TLabel + Left = 550 + Top = 12 + Width = 48 + Height = 12 + Caption = #32568' '#21495 + end + object Label12: TLabel + Left = 768 + Top = 36 + Width = 84 + Height = 12 + Caption = '<= '#24211#23384#25968#37327' <=' + end + object Label13: TLabel + Left = 312 + Top = 96 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label14: TLabel + Left = 566 + Top = 92 + Width = 48 + Height = 12 + Caption = #26579' '#21378 + end + object C_CodeName: TEdit + Tag = 2 + Left = 267 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 1001 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + Visible = False + end + object EndDate: TDateTimePicker + Left = 1001 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + Visible = False + end + object conNo: TEdit + Tag = 2 + Left = 84 + Top = 9 + Width = 109 + Height = 20 + TabOrder = 3 + OnChange = C_CodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 84 + Top = 33 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = C_CodeNameChange + end + object KZ: TEdit + Tag = 2 + Left = 267 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = C_CodeNameChange + end + object MF: TEdit + Tag = 2 + Left = 422 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = C_CodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 754 + Top = 8 + Width = 91 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 7 + OnChange = TBFindClick + Items.Strings = ( + '' + #27491#21697 + #19968#31561#27425#21697 + #20108#31561#27425#21697 + '') + end + object C_Color: TEdit + Tag = 1 + Left = 422 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = C_CodeNameChange + end + object AOrdDefStr1: TEdit + Tag = 2 + Left = 598 + Top = 8 + Width = 107 + Height = 20 + TabOrder = 9 + OnChange = C_CodeNameChange + end + object Edit1: TEdit + Left = 724 + Top = 32 + Width = 40 + Height = 20 + TabOrder = 10 + OnChange = C_CodeNameChange + end + object Edit2: TEdit + Left = 856 + Top = 32 + Width = 40 + Height = 20 + TabOrder = 11 + OnChange = C_CodeNameChange + end + object CheckBox1: TCheckBox + Left = 40 + Top = 60 + Width = 97 + Height = 17 + Caption = #20840#36873 + TabOrder = 12 + OnClick = CheckBox1Click + end + object factoryName: TEdit + Tag = 2 + Left = 614 + Top = 89 + Width = 109 + Height = 20 + TabOrder = 13 + OnChange = C_CodeNameChange + end + object CKOrdNo: TEdit + Tag = 2 + Left = 370 + Top = 104 + Width = 100 + Height = 20 + TabOrder = 14 + OnChange = C_CodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 113 + Width = 1139 + Height = 395 + Align = alClient + PopupMenu = PopupMenu1 + 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 = skCount + Column = v1Column6 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1KCROllNum + 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 v1Column11: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column1: TcxGridDBColumn + Caption = #21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 77 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + 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 v1Column4: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1gangNO: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'gangNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.ImmediatePost = True + Properties.Items.Strings = ( + #27491#21697 + #19968#31561#27425#21697 + #20108#31561#27425#21697) + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v2Column5: TcxGridDBColumn + Caption = #24211#23384#20844#26020#25968 + DataBinding.FieldName = 'KCKGQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v2Column6: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'kcQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column10: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KCKW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'KcNote' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1KCROllNum: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCROllNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1CKOrdNo: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'CKOrdNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1factoryName: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 426 + Top = 143 + 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 = 424 + 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 ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 968 + Top = 40 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1020 + Top = 44 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 928 + Top = 36 + 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 = 536 + Top = 256 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object AdoPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + CommandTimeout = 60 + Parameters = <> + Left = 304 + Top = 132 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = AdoPrint + Left = 836 + Top = 172 + end + object RMGridReport1: 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 = 1008 + Top = 8 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 1076 + Top = 45 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 648 + Top = 232 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 608 + Top = 264 + end +end diff --git a/管理系统/U_CKProductBCPKCList_other.pas b/管理系统/U_CKProductBCPKCList_other.pas new file mode 100644 index 0000000..198e42b --- /dev/null +++ b/管理系统/U_CKProductBCPKCList_other.pas @@ -0,0 +1,899 @@ +unit U_CKProductBCPKCList_other; + +interface + +uses + Windows, Messages, SysUtils,strUtils, 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, + cxContainer, cxCurrencyEdit; + +type + TfrmCKProductBCPKCList_other = 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; + C_CodeName: 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; + conNo: TEdit; + Label6: TLabel; + MJID: TEdit; + v1Column7: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Panel4: TPanel; + Label11: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + MovePanel2: TMovePanel; + v1gangNO: TcxGridDBColumn; + v1C_Color: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Label10: TLabel; + C_Color: TEdit; + Label4: TLabel; + AOrdDefStr1: TEdit; + TBKWChg: TToolButton; + kcKw: TBtnEditA; + v1Column11: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + v1KCROllNum: TcxGridDBColumn; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Edit1: TEdit; + Label12: TLabel; + Edit2: TEdit; + AdoPrint: TADOQuery; + RMDB_MD: TRMDBDataSet; + RMGridReport1: TRMGridReport; + RMXLSExport2: TRMXLSExport; + ToolButton4: TToolButton; + ADOQueryPrint: TADOQuery; + RMDB_Main: TRMDBDataSet; + CheckBox1: TCheckBox; + Label13: TLabel; + CKOrdNo: TEdit; + v1CKOrdNo: TcxGridDBColumn; + TBKW: TToolButton; + v1factoryName: TcxGridDBColumn; + factoryName: TEdit; + Label14: 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 C_CodeNameChange(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 N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBKWChgClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure kcKwExit(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure TBKWClick(Sender: TObject); + private + TblCprk :string; + FLeft,FTop:Integer; + procedure InitGrid(); + { Private declarations } + public + procedure CreateTable(); + procedure DropTable(); + { 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 + frmCKProductBCPKCList_other: TfrmCKProductBCPKCList_other; + + +implementation +uses + U_DataLink,U_Fun, U_ZDYHelp, U_kcchEdit, U_kw, U_kcchEdit_other; + +{$R *.dfm} + +procedure TfrmCKProductBCPKCList_other.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 ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; +procedure TfrmCKProductBCPKCList_other.CreateTable(); +var + strSQL:string; +begin + TblCprk := '[##CP_PPack' + 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),' + + 'CRID VARCHAR(20),' + + 'BCID Varchar(20))'#13; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; + +procedure TfrmCKProductBCPKCList_other.FormDestroy(Sender: TObject); +begin + frmCKProductBCPKCList_other:=nil; +end; + +procedure TfrmCKProductBCPKCList_other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductBCPKCList_other.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductBCPKCList_other.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('exec P_View_CPKCMX_Other'); + SQl.Add('@ConNo='+quotedstr(trim(conNo.Text))); + SQl.Add(',@C_CodeName='+quotedstr(trim(C_CodeName.Text))); + SQl.Add(',@C_Color='+quotedstr(trim(C_Color.Text))); + // SQl.Add(',@CKOrdNo='+quotedstr(trim(CKOrdNo.Text))); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + TBFind.Click; +end; + +procedure TfrmCKProductBCPKCList_other.TBRafreshClick(Sender: TObject); +begin + // BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + + MovePanel2.Visible:=False; +end; + +procedure TfrmCKProductBCPKCList_other.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductBCPKCList_other.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ֿб',Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPKCList_other.FormShow(Sender: TObject); +begin + ReadCxGrid('ֿб',Tv1,'Ʒֿ'); + if Trim(DParameters1)<>'Ȩ' then + begin + v1Column5.Visible:=False; + v1Column5.Hidden:=True; + v1Column11.Visible:=False; + v1Column11.Hidden:=True; + TBKWChg.Visible:=False; + kcKw.Visible:=False; + ToolButton1.Visible:=fALSE; + ToolButton2.Visible:=false; + v2Column6.Options.Editing:=false; + v1Column5.Options.Editing:=fALSE; + ToolButton3.Visible:=false; + ToolButton4.Visible:=false; + TBKW.Visible:=false; + end else + begin + v1Column5.Visible:=True; + v1Column5.Hidden:=False; + v1Column11.Visible:=True; + v1Column11.Hidden:=False; + TBKWChg.Visible:=True; + kcKw.Visible:=True; + ToolButton1.Visible:=TRUE; + ToolButton2.Visible:=TRUE; + v2Column6.Options.Editing:=true; + v1Column5.Options.Editing:=TRUE; + ToolButton3.Visible:=true; + ToolButton4.Visible:=true; + TBKW.Visible:=true; + end; + + //InitGrid(); +end; + +procedure TfrmCKProductBCPKCList_other.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKProductBCPKCList_other.TBFindClick(Sender: TObject); +var + strwhere:string; +begin + + if ADOQueryMain.Active then + begin + strwhere:= SGetFilters(Panel1,1,2); + + if (trim(strwhere)='') and (trim(Edit1.Text)<>'') then + begin + strwhere:=' KCQty>='+floattostr(strtofloatdef(trim(edit1.Text),0)); + end + else + if (trim(strwhere)<>'') and (trim(Edit1.Text)<>'') then + begin + strwhere:=strwhere+' and KCQty>='+floattostr(strtofloatdef(trim(edit1.Text),0)); + end; + + if (trim(strwhere)='') and (trim(Edit2.Text)<>'') then + begin + strwhere:=' KCQty<='+floattostr(strtofloatdef(trim(Edit2.Text),0)); + end + else + if (trim(strwhere)<>'') and (trim(Edit2.Text)<>'') then + begin + strwhere:=strwhere+' and KCQty<='+floattostr(strtofloatdef(trim(Edit2.Text),0)); + end; + + + { if (trim(strwhere)='') then + begin + + IF trim(CPType.Text)='Ʒ' then + strwhere:=' CPType=''Ʒ'' '; + IF trim(CPType.Text)='Ʒ' then + strwhere:=' CPType<>''Ʒ'' '; + end; + + if (trim(strwhere)<>'') then + begin + + IF trim(CPType.Text)='Ʒ' then + strwhere:=strwhere+' and CPType=''Ʒ'' '; + IF trim(CPType.Text)='Ʒ' then + strwhere:=strwhere+' and CPType<>''Ʒ'' '; + end; } + + SDofilter(ADOQueryMain,strwhere); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; + +end; + +procedure TfrmCKProductBCPKCList_other.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPKCList_other.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmCKProductBCPKCList_other.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmCKProductBCPKCList_other.Tv1MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +procedure TfrmCKProductBCPKCList_other.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + {if Trim(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName)<>'CDQK' then Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select CDQK=dbo.F_Get_Order_SubStr(:MJID,''MJCDHZSL'')'); + Parameters.ParamByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + Open; + end; + with CDS_Main do + begin + Edit; + FieldByName('CDQK').Value:=Trim(ADOQueryTemp.fieldbyname('CDQK').AsString); + Post; + end; } + 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_other.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmCKProductBCPKCList_other.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmCKProductBCPKCList_other.TBKWChgClick(Sender: TObject); +begin + if not CDS_Main.Active then exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + { if Trim(kcKw.Text)='' then + begin + Application.MessageBox('׺ŲΪ!','ʾ',0); + Exit; + end; } + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + conNo.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('Update CK_BanCP_CR1 Set BCGANGnO='''+Trim(kcKw.Text)+''''); + sql.Add(' where CRID='+Cds_Main.Fieldbyname('CRID').AsString); + sql.Add('Update CK_BanCP_KC1 Set BCGANGnO='''+Trim(kcKw.Text)+''''); + sql.Add(' where CRID='+Cds_Main.Fieldbyname('CRID').AsString); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('AOrdDefStr1').Value:=Trim(kcKw.Text); + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmCKProductBCPKCList_other.ToolButton1Click(Sender: TObject); +begin + if not CDS_Main.Active then exit; + if CDS_Main.IsEmpty then exit; + frmkcchEdit_other:=TfrmkcchEdit_other.create(self); + with frmkcchEdit_other do + begin + fBCID:=trim(CDS_Main.fieldbyname('BCID').AsString); + FCRID:=trim(CDS_Main.fieldbyname('CRID').AsString); + edit1.text:=trim(CDS_Main.fieldbyname('KCROllNum').AsString); + edit2.text:=trim(CDS_Main.fieldbyname('KCqty').AsString); + if showmodal=1 then + begin + TBRafresh.Click; + end; + free; + end; +end; + +procedure TfrmCKProductBCPKCList_other.ToolButton2Click(Sender: TObject); +var + i,FCRID:integer; + fconNo,FC_CodeName,FC_Color:string; + + fRollNum,FQty:double; +begin + if not CDS_Main.Active then exit; + if not CDS_Main.Locate('SSel',True,[]) then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + + i:=0; + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + if Fieldbyname('Ssel').AsBoolean then + begin + if i=0 then + begin + fconNo:= trim(Fieldbyname('ConNo').AsString); + FC_CodeName:= trim(Fieldbyname('C_CodeName').AsString); + FC_Color:= trim(Fieldbyname('C_Color').AsString); + end + else + begin + if trim(fconNo)<>trim(Fieldbyname('ConNo').AsString) then + begin + EnableControls; + application.MessageBox('񵥺Ųͬܺϲ','ʾϢ',0); + exit; + end; + if trim(FC_CodeName)<>trim(Fieldbyname('C_CodeName').AsString) then + begin + EnableControls; + application.MessageBox('ƷƲͬܺϲ','ʾϢ',0); + exit; + end; + if trim(FC_Color)<>trim(Fieldbyname('C_Color').AsString) then + begin + EnableControls; + application.MessageBox('ɫͬܺϲ','ʾϢ',0); + exit; + end; + end; + i:=i+1; + end; + next; + end; + EnableControls; + First; + end; + + if i<2 then exit; + + ADOQueryCmd.Connection.BeginTrans; + try + + fRollNum:=0; + FQty:=0; + i:=0; + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + if Fieldbyname('Ssel').AsBoolean then + begin + IF i=0 then + fCRID:=Fieldbyname('CRID').AsInteger; + + fRollNum:=fRollNum + Fieldbyname('KCROllNum').AsFloat; + FQty:=FQty + Fieldbyname('kcQty').AsFloat; + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 '); + sql.Add('where CRID='+quotedstr(trim(CDS_Main.Fieldbyname('CRID').AsString))); + open; + edit; + fieldbyname('ZDYstr1').Value:='ϲ'; + fieldbyname('ZDYFlote1').Value:=fieldbyname('kcQty').AsFloat; + FieldByName('oldCRID').Value:=fCRID; + fieldbyname('KCROllNum').Value:=0; + fieldbyname('kcQty').Value:=0; + post; + end; + i:=i+1; + end; + next; + end; + EnableControls; + First; + end; + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 '); + sql.Add('where CRID='+quotedstr(inttostr(fCRID))); + open; + edit; + fieldbyname('KCROllNum').Value:=1; + fieldbyname('kcQty').Value:=FQty; + post; + end; + + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('ݺϲɹ','ʾϢ'); + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ݺϲʧܣ','ʾϢ',0); + end; + + + +end; + +procedure TfrmCKProductBCPKCList_other.ToolButton3Click(Sender: TObject); +var + oldQty,kcQty:double; + str1:string; +begin + if not CDS_Main.Active then exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + + if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + conNo.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Main do + begin + while CDS_Main.Locate('SSel',True,[]) do + begin + kcQty:=CDS_Main.fieldbyname('kcQty').AsFloat; + str1:=' '+trim(Cds_Main.Fieldbyname('MJID').AsString)+':'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from CK_BanCP_KC '); + sql.Add(' where CRID='+Cds_Main.Fieldbyname('CRID').AsString); + open; + end; + str1:=str1+ADOQueryCmd.fieldbyname('kcQty').AsString+'->'; + str1:=str1+CDS_Main.fieldbyname('kcQty').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update CK_BanCP_KC1 Set ZDYFlote1=KCqty '); + sql.Add(' where CRID='+Cds_Main.Fieldbyname('CRID').AsString); + sql.Add(' and ZDYFlote1=0 '); + sql.Add(' Update CK_BanCP_KC1 Set kcqty='''+floattostr(kcQty)+''',ZDYStr1='''' '); + sql.Add(' ,kcNote='+quotedstr(trim(CDS_Main.fieldbyname('kcnote').AsString))); + sql.Add(' ,CPType='+quotedstr(trim(CDS_Main.fieldbyname('CPType').AsString)) ); + sql.Add(' where CRID='+Cds_Main.Fieldbyname('CRID').AsString); + + sql.Add(' Update CK_BanCP_KC1 Set kcRollNum=0 '); + sql.Add(' where CRID='+Cds_Main.Fieldbyname('CRID').AsString); + sql.Add(' and kcqty=0 and kcRollNum<>0 '); + + 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(str1))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +procedure TfrmCKProductBCPKCList_other.TBPrintClick(Sender: TObject); +var + filepath:string; +begin + if CDS_Main.IsEmpty then exit; + CreateTable(); + with CDS_Main do + begin + DisableControls; + first; + while not eof do + begin + with adoqueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' insert into '+TblCprk+'(BCID,CRID) values( '); + SQL.Add(' '+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + SQL.Add(','+quotedstr(trim(CDS_Main.fieldbyname('CRID').AsString))); + sql.add(')'); + execsql; + end; + next; + end; + First; + EnableControls; + end; + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Get_CpkcList '); + sql.Add('@mainID='+quotedstr(trim(''))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + sql.Add(',@flag='+quotedstr(trim('1'))); + 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['begdate'] :=FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+' - '+FormatDateTime('yyyy-MM-dd',enddate.DateTime); + 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; + DropTable(); +end; +procedure TfrmCKProductBCPKCList_other.kcKwExit(Sender: TObject); +var + mvalue:string; +begin + mvalue:=kcKw.Text; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'W' THEN + BEGIn + mvalue:=trim(mvalue)+'W'; + END; + + kcKw.Text:=trim(mvalue); +end; + +procedure TfrmCKProductBCPKCList_other.ToolButton4Click(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if CDS_Main.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 + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_Main.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); + CDS_Main.EnableControls; + exit; + end; + with ADOQueryPrint do //ӢƲҪƷжȡҪڿͻԶжȡnoteֶΡ + begin + Close; + SQL.Clear; + sql.Add('select A.*,kcQty as mjlen,kcQtyUnit as MJTypeother '); + sql.Add(' from CK_BanCP_KC1 A') ; + SQL.Add(' where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + SQL.Add(' and KCQty>0 '); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RMGridReport1.LoadFromFile(fPrintFile); + // RMGridReport1.ShowReport; + RMGridReport1.PrintReport; + end else + begin + CDS_Main.EnableControls; + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + Exit; + end; + end; + Next; + end; + end; + CDS_Main.EnableControls; +end; + +procedure TfrmCKProductBCPKCList_other.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; + +procedure TfrmCKProductBCPKCList_other.TBKWClick(Sender: TObject); +var + isGx:boolean; + fkw:string; +begin + if not CDS_Main.Active then exit; + if CDS_Main.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + isGx:=false; + frmkw:=Tfrmkw.create(self); + with frmkw do + begin + fc_CodeName:=CDS_Main.fieldbyname('C_CodeName').AsString; + if showmodal=1 then + begin + fkw:=kw.text; + isGx:=true; + end; + free; + end; + + IF isGx=false then exit; + +// if Application.MessageBox('ȷҪִд˲','ʾ',32+4)<>IDYES then Exit; + // conNo.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('Update CK_BanCP_CR1 Set kckw='''+Trim(fkw)+''''); + sql.Add(' where CRID='+Cds_Main.Fieldbyname('CRID').AsString); + sql.Add('Update CK_BanCP_KC1 Set kckw='''+Trim(fkw)+''''); + sql.Add(' where CRID='+Cds_Main.Fieldbyname('CRID').AsString); + ExecSQL; + end; + Edit; + FieldByName('SSel').Value:=False; + FieldByName('kckw').Value:=Trim(fkw); + Post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!','ʾ',0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!','ʾ',0); + end; +end; + +end. diff --git a/管理系统/U_CKProductBCPOutList.dfm b/管理系统/U_CKProductBCPOutList.dfm new file mode 100644 index 0000000..a7214fa --- /dev/null +++ b/管理系统/U_CKProductBCPOutList.dfm @@ -0,0 +1,927 @@ +object frmCKProductBCPOutList: TfrmCKProductBCPOutList + Left = 316 + Top = 162 + Width = 1382 + Height = 754 + 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 Label13: TLabel + Left = 638 + Top = 68 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1366 + 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 TBOtCk: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20854#23427#20986#24211 + ImageIndex = 106 + OnClick = TBOtCkClick + end + object TBCKCX: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #25764#38144#20986#24211 + ImageIndex = 129 + Visible = False + OnClick = TBCKCXClick + 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#20986#24211#21333 + ImageIndex = 12 + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 462 + Top = 0 + AutoSize = True + Caption = #25171#21360#25253#34920 + ImageIndex = 12 + OnClick = ToolButton3Click + end + object tbpackNo: TToolButton + Left = 549 + Top = 0 + AutoSize = True + Caption = #28155#21152#21253#21495 + ImageIndex = 74 + OnClick = tbpackNoClick + end + object ToolButton1: TToolButton + Left = 636 + Top = 0 + Caption = #20462#25913#36135#36816#31867#22411 + ImageIndex = 74 + OnClick = ToolButton1Click + end + object TbNote: TToolButton + Left = 743 + Top = 0 + AutoSize = True + Caption = #28155#21152#29289#27969#22791#27880 + ImageIndex = 74 + OnClick = TbNoteClick + end + object TBClose: TToolButton + Left = 854 + 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 = 329 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 490 + 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 Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #32568' '#21495 + end + object Label8: TLabel + Left = 317 + Top = 104 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 478 + Top = 104 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 329 + Top = 36 + Width = 48 + Height = 12 + Caption = #31561' '#32423 + end + object Label10: TLabel + Left = 638 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object Label11: TLabel + Left = 790 + Top = 12 + Width = 48 + Height = 12 + Caption = #23458' '#25143 + end + object Label12: TLabel + Left = 490 + Top = 36 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object ba: TLabel + Left = 638 + Top = 36 + Width = 48 + Height = 12 + Caption = #21253' '#21495 + end + object Label15: TLabel + Left = 790 + Top = 36 + Width = 48 + Height = 12 + Caption = #29289#27969#22791#27880 + end + object Label14: TLabel + Left = 178 + Top = 60 + Width = 48 + Height = 12 + Caption = #37197#36135#20154#21592 + end + object Label16: TLabel + Left = 328 + Top = 60 + Width = 48 + Height = 12 + Caption = #36135#36816#31867#22411 + end + object Label17: TLabel + Left = 980 + Top = 16 + Width = 72 + Height = 12 + Caption = #20986#24211#21333#25968#65306'0' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object C_CodeName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object C_Color: TEdit + Tag = 1 + Left = 538 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 1 + OnChange = PRTCodeNameChange + 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 = 80 + Height = 20 + TabOrder = 4 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object BCGangNO: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = PRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 366 + Top = 101 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = PRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 502 + Top = 100 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = PRTCodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 378 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #25913#33394#21697 + '' + '') + end + object CkOrdNo: TEdit + Tag = 2 + Left = 687 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = PRTCodeNameChange + end + object customerNoname: TEdit + Tag = 2 + Left = 840 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = PRTCodeNameChange + end + object CRTYPE: TComboBox + Tag = 2 + Left = 539 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 11 + OnChange = TBFindClick + Items.Strings = ( + '' + #37197#36135#20986#24211 + #21152#24037#20986#24211 + #26679#21697#20986#24211 + #25439#32791#20986#24211 + #22238#20462#20986#24211 + #22383#24067#36864#36135) + end + object defNote1: TEdit + Tag = 2 + Left = 840 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = PRTCodeNameChange + end + object CheckBox1: TCheckBox + Left = 28 + 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 = 13 + OnClick = CheckBox1Click + end + object PHYG: TEdit + Tag = 2 + Left = 228 + Top = 57 + Width = 80 + Height = 20 + TabOrder = 14 + OnChange = PRTCodeNameChange + end + object defstr2: TComboBox + Tag = 2 + Left = 378 + Top = 56 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 15 + OnChange = TBFindClick + Items.Strings = ( + #24555#20214 + #24930#20214 + '') + end + object CheckBox2: TCheckBox + Left = 492 + Top = 60 + Width = 109 + Height = 17 + Caption = #19981#21547#24191#19996#38376#24066#37096 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 16 + OnClick = CheckBox2Click + end + object packNo: TEdit + Tag = 1 + Left = 687 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 17 + OnChange = PRTCodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 117 + Width = 1366 + Height = 476 + Align = alTop + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column5 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1Column12 + 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 v1Column11: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1customerNoname: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'customerNoname' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + 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 = 92 + 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 = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column2: TcxGridDBColumn + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 107 + end + object v1CRTYPE: TcxGridDBColumn + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRTYPE' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column5: TcxGridDBColumn + Caption = #20986#24211#20844#26020#25968 + DataBinding.FieldName = 'KGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v1Column12: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column6: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 85 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v1Column4: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'CKOrdNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'BCGangNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 55 + end + object v1Column13: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'packNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1gangNo: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCgangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 130 + end + object v1defNote1: TcxGridDBColumn + Caption = #29289#27969#22791#27880 + DataBinding.FieldName = 'defNote1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object v1defstr1: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Caption = #37197#36135#20154#21592 + DataBinding.FieldName = 'PHYG' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1defstr2: TcxGridDBColumn + Caption = #36135#36816#31867#22411 + DataBinding.FieldName = 'defstr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column17: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'AOrddefstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1FHADDress: TcxGridDBColumn + Caption = #21457#36135#22320#22336 + DataBinding.FieldName = 'FHADDress' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column19: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'lxfs' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column18: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeNameZw' + 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 = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + CommandTimeout = 60 + Parameters = <> + Left = 1056 + Top = 4 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1080 + Top = 80 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 940 + Top = 12 + 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 = 808 + Top = 152 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 656 + 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 = 424 + Top = 144 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 480 + Top = 140 + 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 RMDB_Sub: TRMDBDataSet + Visible = True + DataSet = ADOPrint1 + Left = 632 + Top = 160 + 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 = 684 + Top = 204 + end + object ADOPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 924 + Top = 84 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 980 + Top = 12 + 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 = 1008 + Top = 8 + ReportData = {} + end + object ADOPrint1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1000 + Top = 88 + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 1096 + Top = 41 + end +end diff --git a/管理系统/U_CKProductBCPOutList.pas b/管理系统/U_CKProductBCPOutList.pas new file mode 100644 index 0000000..f35fda7 --- /dev/null +++ b/管理系统/U_CKProductBCPOutList.pas @@ -0,0 +1,1137 @@ +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, 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; + C_CodeName: TEdit; + C_Color: 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; + BCGangNO: TEdit; + v1Column7: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + CPType: TComboBox; + v1Column3: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + Label10: TLabel; + CkOrdNo: TEdit; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + RMDB_Sub: TRMDBDataSet; + TBCKCX: TToolButton; + v1Column11: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + MovePanel2: TMovePanel; + CDS_CX: TClientDataSet; + v1CRTYPE: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1gangNo: TcxGridDBColumn; + v1customerNoname: TcxGridDBColumn; + TBOtCk: TToolButton; + ADOPrint: TADOQuery; + RMDB_MD: TRMDBDataSet; + RMGridReport1: TRMGridReport; + v1note: TcxGridDBColumn; + customerNoname: TEdit; + Label11: TLabel; + TbNote: TToolButton; + v1defNote1: TcxGridDBColumn; + Label12: TLabel; + CRTYPE: TComboBox; + v1defstr1: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + Label13: TLabel; + packNo: TEdit; + ba: TLabel; + Label15: TLabel; + defNote1: TEdit; + CheckBox1: TCheckBox; + ToolButton3: TToolButton; + ADOPrint1: TADOQuery; + tbpackNo: TToolButton; + RMXLSExport2: TRMXLSExport; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + Label14: TLabel; + PHYG: TEdit; + Label16: TLabel; + defstr2: TComboBox; + v1defstr2: TcxGridDBColumn; + ToolButton1: TToolButton; + CheckBox2: TCheckBox; + v1Column17: TcxGridDBColumn; + v1FHADDress: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Label17: TLabel; + 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 PRTCodeNameChange(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 TBOtCkClick(Sender: TObject); + procedure TbNoteClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure tbpackNoClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + + private + TblCprk :string; + procedure InitGrid(); + function YSData(Order_Main10:TClientDataSet):Boolean; + procedure CreateTable(); + procedure DropTable(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductBCPOutList: TfrmCKProductBCPOutList; + +implementation +uses + U_DataLink,U_Fun, U_Printckmd, U_CKProductCK, U_NoteList; + +{$R *.dfm} +procedure TfrmCKProductBCPOutList.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 ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; +procedure TfrmCKProductBCPOutList.CreateTable(); +var + strSQL:string; +begin + TblCprk := '[##CP_PPack' + 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),' + + 'BCID Varchar(20))'#13; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +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 + cxGrid2.Align:=alClient; + + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) + +end; + +procedure TfrmCKProductBCPOutList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + SQL.Add('select A.*,B.OrderNo,B.MPRTMF,B.MPRTKZ,B.customerNoname '); + sql.Add(',B.FHADDress,B.lxfs'); + sql.Add(',PHYG=(select Top 1 PHYG from CK_BanCP_PH X where X.phID=A.phID )'); + sql.Add(',AOrddefstr4=(select Top 1 AOrddefstr4 from JYOrder_Sub_AnPai X where X.apid=A.apid ),'); + sql.Add('C_CodeNameZw=(select MAX(defnote3) from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName) '); + sql.add('from CK_BanCP_CR A '); + Sql.add(' LEFT join JYOrder_Main B on B.MainId=A.MainId'); + // Sql.add(' LEFT join JYOrder_Sub C on C.mainID=A.MainID and C.SubId=A.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 CRflag ='''' '); + IF trim(orderNo.Text)<>'' then + sql.add('and B.OrderNo like '+quotedstr('%'+trim(orderNo.Text)+'%')); + IF trim(customerNoname.Text)<>'' then + sql.add('and B.customerNoname like '+quotedstr('%'+trim(customerNoname.Text)+'%')); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + + with ADOQueryTemp do + begin + Close; + sql.Clear; + Filtered:=False; + SQL.Add('select count(distinct ckOrdNO) as cnt '); + sql.add('from CK_BanCP_CR A '); + Sql.add(' LEFT join JYOrder_Main B on A.MainId=B.MainId'); + // Sql.add(' LEFT join JYOrder_Sub C on A.SubId=C.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 CRflag ='''' '); + IF trim(orderNo.Text)<>'' then + sql.add('and B.OrderNo like '+quotedstr('%'+trim(orderNo.Text)+'%')); + IF trim(customerNoname.Text)<>'' then + sql.add('and B.customerNoname like '+quotedstr('%'+trim(customerNoname.Text)+'%')); + Open; + Label17.Caption:='ⵥ0'; + if not IsEmpty then + begin + Label17.Caption:='ⵥ'+Fieldbyname('cnt').AsString; + end; + end; + finally + ADOQueryMain.EnableControls; + end; + tbfind.Click; +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; + TBOtCk.Visible:=true; + // TbNote.Visible:=true; + TBPrint.Visible:=true; + // tbpackNo.Visible:=true; + end; +end; + +procedure TfrmCKProductBCPOutList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + SelExportData(Tv1,ADOQueryMain,''); +end; + +procedure TfrmCKProductBCPOutList.TBFindClick(Sender: TObject); +var + strwhere:string; +begin + if ADOQueryMain.Active then + begin + strwhere:=SGetFilters(Panel1,1,2); + IF CheckBox2.Checked then + begin + IF trim(strwhere)='' then + strwhere:=strwhere+' customerNoname<>''㶫в'' ' + else + strwhere:=strwhere+' and customerNoname<>''㶫в'' '; + end; + SDofilter(ADOQueryMain,strwhere); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCKProductBCPOutList.PRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPOutList.TBPrintClick(Sender: TObject); +var + filepath,fOrderNo:string; + i:integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if CDS_Main.IsEmpty then Exit; +{ if CDS_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; } + CreateTable(); +{ + i:=0; + with CDS_Main do + begin + DisableControls; + first; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + IF trim(Fieldbyname('customerNoname').AsString)<>'㶫в'then + begin + IF i=0 then fOrderNo:=trim(fieldbyname('OrderNo').AsString); + IF (i>0) and (trim(fieldbyname('OrderNo').AsString)<> fOrderNo) then + begin + application.MessageBox('ѡ˲ͬĶܴӡ','ʾϢ',0); + EnableControls; + exit; + end; + end; + with adoqueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' insert into '+TblCprk+'(BCID) values( '); + SQL.Add(' '+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + sql.add(')'); + execsql; + end; + i:=i+1; + end; + next; + end; + First; + EnableControls; + end; + } + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PrintMd10 '); + sql.Add('@mainID='+quotedstr(trim(CDS_Main.fieldbyname('MainID').AsString))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + 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; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(AdoPrint.fieldbyname('orderNo').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; + 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 + DropTable(); + end; + +end; + +procedure TfrmCKProductBCPOutList.orderNoChange(Sender: TObject); +begin + if Length(orderNo.Text)<4 then Exit; + + + +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; + YFID,CRID: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 + while CDS_Main.Locate('SSel',True,[])=True do + begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY1 '); + sql.Add(' where BCID='''+Trim(CDS_Main.fieldbyname('BCID').AsString)+''''); + sql.Add(' and MJStr2='''' '); + Open; + if not IsEmpty then + begin + CDS_Main.EnableControls; + MovePanel2.Visible:=False; + Application.MessageBox('㶫Ѿ⣬ܳ!','ʾ',0); + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(CDS_Main.fieldbyname('MainID').AsString)+''''); + sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('subID').AsString)+''''); + sql.Add(' and YFName=''۽'' '); + sql.Add(' and status>=''1'' '); + Open; + if not IsEmpty then + begin + CDS_Main.EnableControls; + MovePanel2.Visible:=False; + Application.MessageBox('Ӧտûгˣܳ!','ʾ',0); + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(CDS_Main.fieldbyname('MainID').AsString)+''''); + sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('subID').AsString)+''''); + sql.Add(' and YFName=''۽'' '); + Open; + if not IsEmpty then + begin + YFID:=Fieldbyname('YFID').AsString; + CRID:=Fieldbyname('CRID').AsString; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_main '); + sql.Add(' where status=1 and conTk2='+Quotedstr(trim(CDS_Main.fieldbyname('CKOrdNo').AsString)) ); + Open; + if not ADOQueryTemp.IsEmpty then + begin + CDS_Main.EnableControls; + MovePanel2.Visible:=False; + application.MessageBox('Ʒӹûɾݣܳ!','ʾϢ',0); + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + + sql.Add('UPDATE CK_BanCp_KC SET KCKgQty =A.KCKgQty + B.KgQty,KCQty =A.KCQty + B.Qty,KCRollNum =1,kcstatus=''1'' '); + sql.Add('FROM CK_BanCp_KC A '); + sql.Add('INNER JOIN CK_BanCP_CR B on B.CRID=A.CRID and B.CRType='''' '); + sql.Add('WHERE B.BCID ='+Quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + + sql.Add('UPDATE CK_BanCp_KC SET KCKgQty =A.KCKgQty + B.KgQty,KCQty =A.KCQty + B.Qty,KCRollNum =1 '); + sql.Add('FROM CK_BanCp_KC A '); + sql.Add('INNER JOIN CK_BanCP_CR B on B.CRID=A.CRID and B.CRType<>'''' '); + sql.Add('WHERE B.BCID ='+Quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + + sql.Add('update JYOrder_sub SET substatus=''2'' '); + sql.Add('where mainID='+quotedstr(trim(CDS_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID='+quotedstr(trim(CDS_Main.fieldbyname('subID').AsString))); + sql.Add('and isnull(substatus,''0'')>''0'' '); + + sql.Add('delete from BP_kc '); + sql.Add('FROM BP_kc A '); + sql.Add('inner join BP_InOut B on B.KCID=A.KCID and B.CRNO=A.CRNO and B.CRFlag='''' '); + SQL.Add('where B.frommainID='''+Trim(CDS_Main.fieldbyname('ckordNo').AsString)+''' '); + SQL.Add('AND B.fromSUBID='''+Trim(CDS_Main.fieldbyname('bcid').AsString)+''' '); + + sql.Add('delete from BP_InOut '); + SQL.Add('where frommainID='''+Trim(CDS_Main.fieldbyname('ckordNo').AsString)+''' '); + SQL.Add('AND fromSUBID='''+Trim(CDS_Main.fieldbyname('bcid').AsString)+''' '); + SQL.Add('AND CRFlag='''' '); + + sql.Add('delete from BP_kc '); + sql.Add('FROM BP_kc A '); + sql.Add('inner join BP_InOut B on B.KCID=A.KCID and B.CRNO=A.CRNO and B.CRFlag='''' '); + SQL.Add('where B.frommainID='''+Trim(CDS_Main.fieldbyname('ckordNo').AsString)+''' '); + SQL.Add('AND B.fromSUBID='''+Trim(CDS_Main.fieldbyname('bcid').AsString)+''' '); + sql.Add('delete WFB_MJJY1 where BCID='''+Trim(CDS_Main.fieldbyname('BCID').AsString)+''''); + sql.Add('delete CK_BanCP_CR where BCID='''+Trim(CDS_Main.fieldbyname('BCID').AsString)+''''); + // sql.Add('delete CK_BanCP_PH where PHID='''+Trim(CDS_Main.fieldbyname('PHID').AsString)+''''); + sql.Add('update CK_BanCP_PH SET P_status=''0'' where PHID='''+Trim(CDS_Main.fieldbyname('PHID').AsString)+''''); + + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(Qty),0) from CK_BanCP_CR 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 CK_BanCP_CR 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)+''''); + + sql.Add('delete from YF_Money_CR '); + sql.Add('where YFID='''+Trim(YFID)+''' and Qty=0 '); + + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + + 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)+''''); + + { sql.Add('UPdate CK_BanCP_KC Set KCKgQty=(select KgQty from CK_BanCP_CR A where A.CRID=CK_BanCP_KC.CRID and A.CRFlag='''') '); + sql.Add(',KCQty=(select Qty from CK_BanCP_CR A where A.CRID=CK_BanCP_KC.CRID and A.CRFlag='''') '); + SQL.Add(' where CRID='+CDS_Main.fieldbyname('CRID').AsString); } + ExecSQL; + end; + + + CDS_Main.Delete; + 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; + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(Qty),0) from CK_BanCP_CR A '); + sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where'); + SQL.Add(' A.MainId=YF_Money_CR.YFTypeId and A.CRType='''' and CPType=''Ʒ'' '); + SQL.Add(' and B.PRTPrice=YF_Money_CR.Price)'); + sql.Add(',PS=(select isnull(count(*),0) from CK_BanCP_CR A '); + sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where'); + SQL.Add(' A.MainId=YF_Money_CR.YFTypeId and A.CRType='''' and CPType=''Ʒ'' '); + SQL.Add(' and B.PRTPrice=YF_Money_CR.Price )'); + sql.Add(' where YFTypeId='''+Trim(Order_Main10.fieldbyname('Mainid').AsString)+''''); + sql.Add(' and Price='+Order_Main10.fieldbyname('PRTPrice').AsString); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=cast(Price*Qty as decimal(18,0)),BBMoney=cast(Price*Qty*HuiLv as decimal(18,0)) '); + 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))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + SQL.Add('select A.*,B.OrderNo,ISNULL(C.PRTCode,A.C_Code) as PRTCode,ISNULL(C.PRTCodeName,A.C_COdeName) as PRTCodeName,C.PRTSpec,isnull(C.prtColor,A.C_Color) as prtColor,B.MPRTMF,B.MPRTKZ,B.customerNoname,C.PRTPrice '); + sql.Add(',isnull(customerNoName,B.OrderNo) KHName,B.FHADDress,B.lxfs'); + sql.Add(',PHYG=(select Top 1 PHYG from CK_BanCP_PH X where X.phID=A.phID )'); + sql.Add(',AOrddefstr4=(select AOrddefstr4 from JYOrder_Sub_AnPai X where X.apid=A.apid )'); + sql.add('from CK_BanCP_CR A '); + Sql.add(' LEFT join JYOrder_Main B on A.MainId=B.MainId'); + Sql.add(' LEFT join JYOrder_Sub C on A.SubId=C.SubId'); + sql.add('where B.OrderNo='+quotedstr(trim(OrderNo.Text))); + SQL.Add(' and CRflag ='''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + + with ADOQueryTemp do + begin + Close; + sql.Clear; + Filtered:=False; + SQL.Add('select count(distinct ckOrdNO) as cnt '); + sql.add('from CK_BanCP_CR A '); + Sql.add(' LEFT join JYOrder_Main B on A.MainId=B.MainId'); + Sql.add(' LEFT join JYOrder_Sub C on A.SubId=C.SubId'); + sql.add('where B.OrderNo='+quotedstr(trim(OrderNo.Text))); + SQL.Add(' and CRflag ='''' '); + Open; + Label17.Caption:='ⵥ0'; + if not IsEmpty then + begin + Label17.Caption:='ⵥ'+Fieldbyname('cnt').AsString; + end; + end; + finally + ADOQueryMain.EnableControls; + end; + + end; +end; + +procedure TfrmCKProductBCPOutList.TBOtCkClick(Sender: TObject); +begin + frmCKProductCK:=TfrmCKProductCK.create(self); + with frmCKProductCK do + begin + { if Trim(DParameters2)<>'' then + begin + CRType.Items.Clear; + CRType.Items.Add('ӹ'); + CRType.Items.Add('Ʒ'); + CRType.Items.Add('޳'); + CRType.Items.Add('̵'); + CRType.Items.Add('˻'); + CRType.Items.Add('ij'); + CRType.ItemIndex:=0; + end; } + if showmodal=1 then + begin + self.TBRafresh.Click; + end; + free; + end; +end; + +procedure TfrmCKProductBCPOutList.TbNoteClick(Sender: TObject); +var + Fnote:string; +begin + IF CDS_Main.IsEmpty then exit; + frmwlnote:=Tfrmwlnote.create(self); + with frmwlnote do + begin + if showmodal=1 then + begin + Fnote:=trim(Memo1.Text); + 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 SET defNote1='+quotedstr(trim(Memo1.Text))); + sql.Add('where BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + sql.Add('update BP_InOut SET defNote1='+quotedstr(trim(Memo1.Text))); + sql.Add('where FromSubID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + TBRafresh.Click; + end; + close; + end; +end; + +procedure TfrmCKProductBCPOutList.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; + +procedure TfrmCKProductBCPOutList.ToolButton3Click(Sender: TObject); +var + filepath:string; +begin + if CDS_Main.IsEmpty then exit; + if CDS_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + CreateTable(); + + + 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(' insert into '+TblCprk+'(BCID) values( '); + SQL.Add(' '+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + sql.add(')'); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Get_CpCkpackList '); + sql.Add('@mainID='+quotedstr(trim(''))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + sql.Add(',@flag='+quotedstr(trim('1'))); + open; + end; + + with AdoPrint1 do + begin + close; + sql.Clear; + sql.Add('exec P_Get_CpCkpackList '); + sql.Add('@mainID='+quotedstr(trim(''))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + sql.Add(',@flag='+quotedstr(trim('10'))); + 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['begdate'] :=FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+' - '+FormatDateTime('yyyy-MM-dd',enddate.DateTime); + 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; + + DropTable(); + +end; + +procedure TfrmCKProductBCPOutList.tbpackNoClick(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmwlnote:=Tfrmwlnote.create(self); + with frmwlnote do + begin + frmwlnote.Caption:='Ӱ'; + frmwlnote.Label1.Caption:=''; + if showmodal=1 then + begin + // Fnote:=trim(Memo1.Text); + + 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 SET packNo='+quotedstr(trim(Memo1.Text))); + sql.Add('where BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + TBRafresh.Click; + end; + close; + end; + +end; + +procedure TfrmCKProductBCPOutList.ToolButton1Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmwlnote:=Tfrmwlnote.create(self); + with frmwlnote do + begin + frmwlnote.Caption:='޸Ļ'; + frmwlnote.Label1.Caption:=''; + if showmodal=1 then + begin + 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 SET defstr2='+quotedstr(trim(Memo1.Text))); + sql.Add('where BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + sql.Add('update BP_InOut SET defstr2='+quotedstr(trim(Memo1.Text))); + sql.Add('where FromSubID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + TBRafresh.Click; + end; + close; + end; + +end; +procedure TfrmCKProductBCPOutList.CheckBox2Click(Sender: TObject); +begin +TBFind.Click; +end; + +end. diff --git a/管理系统/U_CKProductBCPOutList_other.dfm b/管理系统/U_CKProductBCPOutList_other.dfm new file mode 100644 index 0000000..7ad2da8 --- /dev/null +++ b/管理系统/U_CKProductBCPOutList_other.dfm @@ -0,0 +1,987 @@ +object frmCKProductBCPOutList_other: TfrmCKProductBCPOutList_other + Left = 79 + Top = 158 + Width = 1155 + Height = 561 + 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 Label13: TLabel + Left = 638 + Top = 68 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1139 + 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 TBOtCk: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20854#23427#20986#24211 + ImageIndex = 106 + OnClick = TBOtCkClick + end + object TBCKCX: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #25764#38144#20986#24211 + ImageIndex = 129 + Visible = False + OnClick = TBCKCXClick + 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#20986#24211#21333 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object ToolButton3: TToolButton + Left = 462 + Top = 0 + AutoSize = True + Caption = #25171#21360#25253#34920 + ImageIndex = 12 + Visible = False + OnClick = ToolButton3Click + end + object tbpackNo: TToolButton + Left = 549 + Top = 0 + AutoSize = True + Caption = #28155#21152#21253#21495 + ImageIndex = 74 + Visible = False + OnClick = tbpackNoClick + end + object ToolButton1: TToolButton + Left = 636 + Top = 0 + Caption = #20462#25913#36135#36816#31867#22411 + ImageIndex = 74 + Visible = False + OnClick = ToolButton1Click + end + object TbNote: TToolButton + Left = 743 + Top = 0 + AutoSize = True + Caption = #28155#21152#29289#27969#22791#27880 + ImageIndex = 74 + OnClick = TbNoteClick + end + object ToolButton2: TToolButton + Left = 854 + Top = 0 + Caption = #28155#21152#37197#36135#20154#21592 + ImageIndex = 74 + Visible = False + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 961 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1139 + Height = 84 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 329 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 490 + 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 Label6: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #32568' '#21495 + end + object Label8: TLabel + Left = 317 + Top = 104 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 478 + Top = 104 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 329 + Top = 36 + Width = 48 + Height = 12 + Caption = #31561' '#32423 + end + object Label10: TLabel + Left = 638 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object Label11: TLabel + Left = 790 + Top = 12 + Width = 48 + Height = 12 + Caption = #23458' '#25143 + end + object Label12: TLabel + Left = 490 + Top = 36 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object ba: TLabel + Left = 638 + Top = 36 + Width = 48 + Height = 12 + Caption = #21253' '#21495 + end + object Label15: TLabel + Left = 790 + Top = 36 + Width = 48 + Height = 12 + Caption = #29289#27969#22791#27880 + end + object Label14: TLabel + Left = 178 + Top = 60 + Width = 48 + Height = 12 + Caption = #37197#36135#20154#21592 + end + object Label16: TLabel + Left = 328 + Top = 60 + Width = 48 + Height = 12 + Caption = #36135#36816#31867#22411 + end + object Label17: TLabel + Left = 980 + Top = 16 + Width = 72 + Height = 12 + Caption = #20986#24211#21333#25968#65306'0' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 490 + Top = 60 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label19: TLabel + Left = 638 + Top = 60 + Width = 48 + Height = 12 + Caption = #21046' '#21333' '#20154 + end + object C_CodeName: TEdit + Tag = 2 + Left = 378 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object C_Color: TEdit + Tag = 1 + Left = 538 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 1 + OnChange = PRTCodeNameChange + 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 = 80 + Height = 20 + TabOrder = 4 + OnChange = orderNoChange + OnKeyPress = orderNoKeyPress + end + object BCGangNO: TEdit + Tag = 2 + Left = 228 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = PRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 366 + Top = 101 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = PRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 502 + Top = 100 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = PRTCodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 378 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #19968#31561#27425#21697 + #20108#31561#27425#21697 + '' + '') + end + object CkOrdNo: TEdit + Tag = 2 + Left = 687 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = PRTCodeNameChange + end + object customerNoname: TEdit + Tag = 2 + Left = 840 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = PRTCodeNameChange + end + object CRTYPE: TComboBox + Tag = 2 + Left = 539 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 11 + OnChange = TBFindClick + Items.Strings = ( + '' + #37197#36135#20986#24211 + #26679#21697#20986#24211 + #25439#32791#20986#24211 + '') + end + object defNote1: TEdit + Tag = 2 + Left = 840 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 12 + OnChange = PRTCodeNameChange + end + object CheckBox1: TCheckBox + Left = 28 + 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 = 13 + OnClick = CheckBox1Click + end + object PHYG: TEdit + Tag = 2 + Left = 228 + Top = 57 + Width = 80 + Height = 20 + TabOrder = 14 + OnChange = PRTCodeNameChange + end + object defstr2: TComboBox + Tag = 2 + Left = 378 + Top = 56 + Width = 80 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 15 + OnChange = TBFindClick + Items.Strings = ( + #24555#20214 + #24930#20214 + '') + end + object CheckBox2: TCheckBox + Left = 840 + Top = 60 + Width = 109 + Height = 17 + Caption = #19981#21547#24191#19996#38376#24066#37096 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 16 + OnClick = CheckBox2Click + end + object packNo: TEdit + Tag = 1 + Left = 687 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 17 + OnChange = PRTCodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 539 + Top = 56 + Width = 80 + Height = 20 + TabOrder = 18 + OnChange = PRTCodeNameChange + end + object Filler: TEdit + Tag = 2 + Left = 687 + Top = 56 + Width = 80 + Height = 20 + TabOrder = 19 + OnChange = PRTCodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 117 + Width = 1139 + Height = 360 + Align = alTop + PopupMenu = PopupMenu1 + 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 = skCount + Column = v1Column5 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1Column12 + 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 v1Column11: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1customerNoname: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'customerNoname' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 77 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + 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 = 92 + 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 = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column2: TcxGridDBColumn + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 107 + end + object v1CRTYPE: TcxGridDBColumn + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRTYPE' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column5: TcxGridDBColumn + Caption = #20986#24211#20844#26020#25968 + DataBinding.FieldName = 'KGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v1Column12: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column6: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 85 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v1Column4: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'CKOrdNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'BCGangNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 55 + end + object v1Column13: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'packNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1gangNo: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCgangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 130 + end + object v1defNote1: TcxGridDBColumn + Caption = #29289#27969#22791#27880 + DataBinding.FieldName = 'defNote1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object v1defstr1: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'defstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column16: TcxGridDBColumn + Caption = #37197#36135#20154#21592 + DataBinding.FieldName = 'PHYG' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1defstr2: TcxGridDBColumn + Caption = #36135#36816#31867#22411 + DataBinding.FieldName = 'defstr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column17: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'AOrddefstr4' + Visible = False + HeaderAlignmentHorz = taCenter + Hidden = True + Options.Editing = False + Width = 90 + end + object v1FHADDress: TcxGridDBColumn + Caption = #21457#36135#22320#22336 + DataBinding.FieldName = 'FHADDress' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column19: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'lxfs' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column18: TcxGridDBColumn + Caption = #37325#37327'(g)' + DataBinding.FieldName = 'KgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + 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 = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Visible = False + 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 = 4 + Visible = False + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1060 + Top = 44 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1080 + Top = 80 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 944 + Top = 36 + 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 = 808 + Top = 152 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 656 + 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 = 424 + Top = 144 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 480 + Top = 140 + 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 RMDB_Sub: TRMDBDataSet + Visible = True + DataSet = ADOPrint1 + Left = 632 + Top = 160 + 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 = 684 + Top = 204 + end + object ADOPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 924 + Top = 84 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 976 + Top = 32 + 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 = 1012 + Top = 36 + ReportData = {} + end + object ADOPrint1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1000 + Top = 88 + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 1096 + Top = 41 + end +end diff --git a/管理系统/U_CKProductBCPOutList_other.pas b/管理系统/U_CKProductBCPOutList_other.pas new file mode 100644 index 0000000..6371d9a --- /dev/null +++ b/管理系统/U_CKProductBCPOutList_other.pas @@ -0,0 +1,1109 @@ +unit U_CKProductBCPOutList_other; + +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; + +type + TfrmCKProductBCPOutList_other = 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; + C_CodeName: TEdit; + C_Color: 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; + BCGangNO: TEdit; + v1Column7: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + Label8: TLabel; + MPRTKZ: TEdit; + Label9: TLabel; + MPRTMF: TEdit; + Label7: TLabel; + CPType: TComboBox; + v1Column3: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + Label10: TLabel; + CkOrdNo: TEdit; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + RMDB_Sub: TRMDBDataSet; + TBCKCX: TToolButton; + v1Column11: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + MovePanel2: TMovePanel; + CDS_CX: TClientDataSet; + v1CRTYPE: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1gangNo: TcxGridDBColumn; + v1customerNoname: TcxGridDBColumn; + TBOtCk: TToolButton; + ADOPrint: TADOQuery; + RMDB_MD: TRMDBDataSet; + RMGridReport1: TRMGridReport; + v1note: TcxGridDBColumn; + customerNoname: TEdit; + Label11: TLabel; + TbNote: TToolButton; + v1defNote1: TcxGridDBColumn; + Label12: TLabel; + CRTYPE: TComboBox; + v1defstr1: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + Label13: TLabel; + packNo: TEdit; + ba: TLabel; + Label15: TLabel; + defNote1: TEdit; + CheckBox1: TCheckBox; + ToolButton3: TToolButton; + ADOPrint1: TADOQuery; + tbpackNo: TToolButton; + RMXLSExport2: TRMXLSExport; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + Label14: TLabel; + PHYG: TEdit; + Label16: TLabel; + defstr2: TComboBox; + v1defstr2: TcxGridDBColumn; + ToolButton1: TToolButton; + CheckBox2: TCheckBox; + v1Column17: TcxGridDBColumn; + v1FHADDress: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Label17: TLabel; + ToolButton2: TToolButton; + Panetime: TPanel; + MJID: TEdit; + Label18: TLabel; + Filler: TEdit; + Label19: TLabel; + 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 PRTCodeNameChange(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 TBOtCkClick(Sender: TObject); + procedure TbNoteClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure tbpackNoClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + + private + TblCprk :string; + procedure InitGrid(); + function YSData(Order_Main10:TClientDataSet):Boolean; + procedure CreateTable(); + procedure DropTable(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductBCPOutList_other: TfrmCKProductBCPOutList_other; + +implementation +uses + U_DataLink,U_Fun, U_Printckmd, U_CKProductCK, U_NoteList1,U_phYGList,U_NoteList, + U_CKProductCK_Other; + +{$R *.dfm} +procedure TfrmCKProductBCPOutList_other.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 ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; +procedure TfrmCKProductBCPOutList_other.CreateTable(); +var + strSQL:string; +begin + TblCprk := '[##CP_PPack' + 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),' + + 'BCID Varchar(20))'#13; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; + +procedure TfrmCKProductBCPOutList_other.FormDestroy(Sender: TObject); +begin + frmCKProductBCPOutList_other:=nil; +end; + +procedure TfrmCKProductBCPOutList_other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + + Action:=caFree; +end; + +procedure TfrmCKProductBCPOutList_other.FormCreate(Sender: TObject); +begin + cxGrid2.Align:=alClient; + + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) + +end; + +procedure TfrmCKProductBCPOutList_other.InitGrid(); +begin + 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('select A.PHID,A.packNo,A.defNote1,A.defstr1,A.defstr2,A.defstr3,A.Filler,A.FillTime,A.note,A.ThCust,A.mainID,A.subID,A.MJID,A.BCID,'); + SQL.Add('A.CRTime,A.CRType,A.CRID,A.Qty,A.RollNum,A.QtyUnit,A.CPType,A.CKOrdNo,A.C_CodeName,A.C_Color,A.RCgangNo,A.BCgangNO,a.kcKw,'); + SQL.Add('B.OrderNo,B.customerNoname '); + sql.Add(',MF.defstr7 as PrtMF,MF.defstr8 as Prtkz,kgQty=A.Qty*isnull(MF.defstr8,0) '); + sql.Add(',isnull(customerNoName,B.OrderNo) KHName,B.FHADDress,B.lxfs'); + sql.Add(',PHYG=(select Top 1 PHYG from CK_BanCP_PH X where X.phID=A.phID )'); + sql.Add(',AOrddefstr4=(select AOrddefstr4 from JYOrder_Sub_AnPai X where X.apid=A.apid )'); + sql.add('from CK_BanCP_CR1 A '); + Sql.add(' LEFT join JYOrder_Main B on A.MainId=B.MainId'); + // Sql.add(' LEFT join JYOrder_Sub C on A.SubId=C.SubId'); + Sql.add(' LEFT join KH_Zdy_Attachment MF on MF.zdyName=A.C_CodeName and MF.defstr3=A.C_Color'); + 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 CRflag ='''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + + with ADOQueryTemp do + begin + Close; + sql.Clear; + Filtered:=False; + SQL.Add('select count(distinct ckOrdNO) as cnt '); + sql.add('from CK_BanCP_CR1 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 CRflag ='''' '); + Open; + Label17.Caption:='ⵥ0'; + if not IsEmpty then + begin + Label17.Caption:='ⵥ'+Fieldbyname('cnt').AsString; + end; + end; + finally + ADOQueryMain.EnableControls; + tbfind.Click; + Panetime.Visible:=false; + screen.Cursor:=crdefault; + end; + +end; + +procedure TfrmCKProductBCPOutList_other.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmCKProductBCPOutList_other.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductBCPOutList_other.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ֿб',Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPOutList_other.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; + // TBOtCk.Visible:=true; + // TbNote.Visible:=true; + //TBPrint.Visible:=true; + // tbpackNo.Visible:=true; + end; +end; + +procedure TfrmCKProductBCPOutList_other.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + SelExportData(Tv1,ADOQueryMain,''); +end; + +procedure TfrmCKProductBCPOutList_other.TBFindClick(Sender: TObject); +var + strwhere:string; +begin + if ADOQueryMain.Active then + begin + strwhere:=SGetFilters(Panel1,1,2); + IF CheckBox2.Checked then + begin + IF trim(strwhere)='' then + strwhere:=strwhere+' customerNoname<>''㶫в'' ' + else + strwhere:=strwhere+' and customerNoname<>''㶫в'' '; + end; + SDofilter(ADOQueryMain,strwhere); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCKProductBCPOutList_other.PRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPOutList_other.TBPrintClick(Sender: TObject); +var + filepath,fOrderNo:string; + i:integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + CreateTable(); + + i:=0; + with CDS_Main do + begin + DisableControls; + first; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + IF trim(Fieldbyname('customerNoname').AsString)<>'㶫в'then + begin + IF i=0 then fOrderNo:=trim(fieldbyname('OrderNo').AsString); + IF (i>0) and (trim(fieldbyname('OrderNo').AsString)<> fOrderNo) then + begin + application.MessageBox('ѡ˲ͬĶܴӡ','ʾϢ',0); + EnableControls; + exit; + end; + end; + with adoqueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' insert into '+TblCprk+'(BCID) values( '); + SQL.Add(' '+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + sql.add(')'); + execsql; + end; + i:=i+1; + end; + next; + end; + First; + EnableControls; + end; + + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PrintMd10 '); + sql.Add('@mainID='+quotedstr(trim(CDS_Main.fieldbyname('MainID').AsString))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + 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; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(AdoPrint.fieldbyname('orderNo').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; + 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 + DropTable(); + end; + +end; + +procedure TfrmCKProductBCPOutList_other.orderNoChange(Sender: TObject); +begin + if Length(orderNo.Text)<4 then Exit; + + + +end; + +procedure TfrmCKProductBCPOutList_other.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmCKProductBCPOutList_other.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmCKProductBCPOutList_other.TBCKCXClick(Sender: TObject); +var + FFMainId,FPrice:String; + YFID,CRID: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 + while CDS_Main.Locate('SSel',True,[])=True do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(CDS_Main.fieldbyname('MainID').AsString)+''''); + sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('subID').AsString)+''''); + sql.Add(' and YFName=''۽'' '); + sql.Add(' and status>=''1'' '); + Open; + if not IsEmpty then + begin + CDS_Main.EnableControls; + MovePanel2.Visible:=False; + Application.MessageBox('Ӧտûгˣܳ!','ʾ',0); + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(CDS_Main.fieldbyname('MainID').AsString)+''''); + sql.Add(' and subID='''+Trim(CDS_Main.fieldbyname('subID').AsString)+''''); + sql.Add(' and YFName=''۽'' '); + Open; + if not IsEmpty then + begin + YFID:=Fieldbyname('YFID').AsString; + CRID:=Fieldbyname('CRID').AsString; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCp_KC1 SET kcstatus=''1'',KCKgQty =A.KCKgQty + B.KgQty,KCQty =A.KCQty + B.Qty,KCRollNum =1 '); + sql.Add('FROM CK_BanCp_KC1 A '); + sql.Add('INNER JOIN CK_BanCP_CR1 B on B.CRID=A.CRID and B.CRType='''' '); + sql.Add('WHERE B.BCID ='+Quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + + sql.Add('UPDATE CK_BanCp_KC1 SET KCKgQty =A.KCKgQty + B.KgQty,KCQty =A.KCQty + B.Qty,KCRollNum =1 '); + sql.Add('FROM CK_BanCp_KC1 A '); + sql.Add('INNER JOIN CK_BanCP_CR1 B on B.CRID=A.CRID and B.CRType<>'''' '); + sql.Add('WHERE B.BCID ='+Quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + + sql.Add('update JYOrder_sub SET substatus=''2'' '); + sql.Add('where mainID='+quotedstr(trim(CDS_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID='+quotedstr(trim(CDS_Main.fieldbyname('subID').AsString))); + sql.Add('and isnull(substatus,''0'')>''0'' '); + + sql.Add('delete CK_BanCP_CR1 where BCID='''+Trim(CDS_Main.fieldbyname('BCID').AsString)+''''); + sql.Add('update CK_BanCP_PH1 SET P_status=''0'' where PHID='''+Trim(CDS_Main.fieldbyname('PHID').AsString)+''''); + + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(Qty),0) from CK_BanCP_CR1 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 CK_BanCP_CR1 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)+''''); + + sql.Add('delete from YF_Money_CR '); + sql.Add('where YFID='''+Trim(YFID)+''' and Qty=0 '); + + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + + 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; + CDS_Main.Delete; + 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_other.YSData(Order_Main10:TClientDataSet):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select Top 1 * from JYOrder_Sub Where Mainid='''+Trim(Order_Main10.fieldbyname('MainId').AsString)+''''); + //sql.Add(' and PRTPrice>0'); + Open; + end; + {Price:=ADOQueryTemp.fieldbyname('PRTPrice').AsString; + if Trim(Price)='' then + begin + Price:='0'; + end; } + PriceUnit:=Trim(ADOQueryTemp.fieldbyname('PriceUnit').AsString); + OrderUnit:=Trim(ADOQueryTemp.fieldbyname('OrderUnit').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main10.fieldbyname('KHName').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + CRID:=ADOQueryTemp.fieldbyname('CRID').AsString; + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YF_Money_CRID '); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(Order_Main10.fieldbyname('KHName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where FactoryName='''+Trim(Order_Main10.fieldbyname('KHName').AsString)+''''); + sql.Add(' and YFTypeId='''+Trim(Order_Main10.fieldbyname('Mainid').AsString)+''''); + sql.Add(' and Price='''+Trim(Order_Main10.fieldbyname('PRTPrice').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'CS','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + {with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(Order_Main10.fieldbyname('MainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦտǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryName').Value:=Trim(Order_Main10.fieldbyname('KHName').AsString); + FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Price; + //FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=Trim(PriceUnit); + FieldByName('QtyUnit').Value:=Trim(OrderUnit); + FieldByName('YFName').Value:='۽'; + FieldByName('MainId').Value:=Trim(Order_Main10.fieldbyname('Mainid').AsString); + Post; + end; } + end else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(Qty),0) from CK_BanCP_CR A '); + sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where'); + SQL.Add(' A.MainId=YF_Money_CR.YFTypeId and A.CRType='''' and CPType=''Ʒ'' '); + SQL.Add(' and B.PRTPrice=YF_Money_CR.Price)'); + sql.Add(',PS=(select isnull(count(*),0) from CK_BanCP_CR A '); + sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where'); + SQL.Add(' A.MainId=YF_Money_CR.YFTypeId and A.CRType='''' and CPType=''Ʒ'' '); + SQL.Add(' and B.PRTPrice=YF_Money_CR.Price )'); + sql.Add(' where YFTypeId='''+Trim(Order_Main10.fieldbyname('Mainid').AsString)+''''); + sql.Add(' and Price='+Order_Main10.fieldbyname('PRTPrice').AsString); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFId='''+Trim(YFID)+''''); + Open; + end; + if ADOQueryTemp.FieldByName('Qty').Value=0 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where CRId='+CRID); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_KC where CRId='+CRID); + ExecSQL; + end; + end; + + + Result:=True; +end; + +procedure TfrmCKProductBCPOutList_other.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 + Close; + sql.Clear; + Filtered:=False; + SQL.Add('select A.*,B.OrderNo,ISNULL(C.PRTCode,A.C_Code) as PRTCode,ISNULL(C.PRTCodeName,A.C_COdeName) as PRTCodeName,C.PRTSpec,isnull(C.prtColor,A.C_Color) as prtColor,B.MPRTMF,B.MPRTKZ,B.customerNoname,C.PRTPrice '); + sql.Add(',isnull(customerNoName,B.OrderNo) KHName,B.FHADDress,B.lxfs'); + sql.Add(',PHYG=(select Top 1 PHYG from CK_BanCP_PH X where X.phID=A.phID )'); + sql.Add(',AOrddefstr4=(select AOrddefstr4 from JYOrder_Sub_AnPai X where X.apid=A.apid )'); + sql.add('from CK_BanCP_CR A '); + Sql.add(' LEFT join JYOrder_Main B on A.MainId=B.MainId'); + Sql.add(' LEFT join JYOrder_Sub C on A.SubId=C.SubId'); + sql.add('where B.OrderNo='+quotedstr(trim(OrderNo.Text))); + SQL.Add(' and CRflag ='''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + + with ADOQueryTemp do + begin + Close; + sql.Clear; + Filtered:=False; + SQL.Add('select count(distinct ckOrdNO) as cnt '); + sql.add('from CK_BanCP_CR A '); + Sql.add(' LEFT join JYOrder_Main B on A.MainId=B.MainId'); + Sql.add(' LEFT join JYOrder_Sub C on A.SubId=C.SubId'); + sql.add('where B.OrderNo='+quotedstr(trim(OrderNo.Text))); + SQL.Add(' and CRflag ='''' '); + Open; + Label17.Caption:='ⵥ0'; + if not IsEmpty then + begin + Label17.Caption:='ⵥ'+Fieldbyname('cnt').AsString; + end; + end; + finally + ADOQueryMain.EnableControls; + end; + + end; +end; + +procedure TfrmCKProductBCPOutList_other.TBOtCkClick(Sender: TObject); +begin + frmCKProductCK_other:=TfrmCKProductCK_other.create(self); + with frmCKProductCK_other do + begin + if Trim(DParameters2)<>'' then + begin + CRType.Items.Clear; + // CRType.Items.Add('ӹ'); + CRType.Items.Add('Ʒ'); + // CRType.Items.Add('޳'); + CRType.Items.Add('ij'); + // CRType.Items.Add('˻'); + CRType.ItemIndex:=0; + end; + if showmodal=1 then + begin + self.TBRafresh.Click; + end; + free; + end; +end; + +procedure TfrmCKProductBCPOutList_other.TbNoteClick(Sender: TObject); +var + Fnote:string; +begin + IF CDS_Main.IsEmpty then exit; + frmwlnote1:=Tfrmwlnote1.create(self); + with frmwlnote1 do + begin + if showmodal=1 then + begin + Fnote:=trim(Memo1.Text); + 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_CR1 SET defNote1='+quotedstr(trim(Memo1.Text))); + sql.Add('where BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + { sql.Add('update BP_InOut SET defNote1='+quotedstr(trim(Memo1.Text))); + sql.Add('where FromSubID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); } + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + TBRafresh.Click; + end; + close; + end; +end; + +procedure TfrmCKProductBCPOutList_other.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; + +procedure TfrmCKProductBCPOutList_other.ToolButton3Click(Sender: TObject); +var + filepath:string; +begin + if CDS_Main.IsEmpty then exit; + if CDS_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + CreateTable(); + + + 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(' insert into '+TblCprk+'(BCID) values( '); + SQL.Add(' '+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + sql.add(')'); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Get_CpCkpackList '); + sql.Add('@mainID='+quotedstr(trim(''))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + sql.Add(',@flag='+quotedstr(trim('1'))); + open; + end; + + with AdoPrint1 do + begin + close; + sql.Clear; + sql.Add('exec P_Get_CpCkpackList '); + sql.Add('@mainID='+quotedstr(trim(''))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + sql.Add(',@flag='+quotedstr(trim('10'))); + 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['begdate'] :=FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+' - '+FormatDateTime('yyyy-MM-dd',enddate.DateTime); + 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; + + DropTable(); + +end; + +procedure TfrmCKProductBCPOutList_other.tbpackNoClick(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmwlnote:=Tfrmwlnote.create(self); + with frmwlnote do + begin + frmwlnote.Caption:='Ӱ'; + frmwlnote.Label1.Caption:=''; + if showmodal=1 then + begin + // Fnote:=trim(Memo1.Text); + + 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 SET packNo='+quotedstr(trim(Memo1.Text))); + sql.Add('where BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + TBRafresh.Click; + end; + close; + end; + +end; + +procedure TfrmCKProductBCPOutList_other.ToolButton1Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmwlnote:=Tfrmwlnote.create(self); + with frmwlnote do + begin + frmwlnote.Caption:='޸Ļ'; + frmwlnote.Label1.Caption:=''; + if showmodal=1 then + begin + 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 SET defstr2='+quotedstr(trim(Memo1.Text))); + sql.Add('where BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + sql.Add('update BP_InOut SET defstr2='+quotedstr(trim(Memo1.Text))); + sql.Add('where FromSubID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + TBRafresh.Click; + end; + close; + end; + +end; +procedure TfrmCKProductBCPOutList_other.CheckBox2Click(Sender: TObject); +begin +TBFind.Click; +end; + +procedure TfrmCKProductBCPOutList_other.ToolButton2Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmphYGList:=TfrmphYGList.create(self); + with frmphYGList do + begin + + if showmodal=1 then + begin + // Fnote:=trim(Memo1.Text); + + 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_PH SET PHYG='+quotedstr(trim(PHYG.Text))); + sql.Add('from CK_Bancp_PH A'); + sql.Add('inner JOIN CK_Bancp_CR B on B.PHID=A.PHID '); + sql.Add('where B.BCID='+quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + TBRafresh.Click; + end; + close; + end; +end; + +end. diff --git a/管理系统/U_CKProductBCPOutth.dfm b/管理系统/U_CKProductBCPOutth.dfm new file mode 100644 index 0000000..6b9be54 --- /dev/null +++ b/管理系统/U_CKProductBCPOutth.dfm @@ -0,0 +1,788 @@ +object frmCKProductBCPOutth: TfrmCKProductBCPOutth + Left = 102 + Top = 115 + Width = 1148 + Height = 539 + 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 = 1132 + 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 TBCKCX: TToolButton + Left = 126 + Top = 0 + Caption = #25764#38144#20986#24211 + ImageIndex = 129 + Visible = False + OnClick = TBCKCXClick + end + object ToolButton1: TToolButton + Left = 209 + Top = 0 + Caption = #36864#36135#20837#24211 + ImageIndex = 129 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 292 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 355 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 418 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 114 + Width = 1132 + Height = 296 + Align = alTop + PopupMenu = PopupMenu1 + TabOrder = 1 + 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 = v1Column13 + 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 v1Column11: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1customerNoname: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'customerNoname' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + 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 = 92 + 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 = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column2: TcxGridDBColumn + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 107 + end + object v1CRTYPE: TcxGridDBColumn + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRTYPE' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column5: TcxGridDBColumn + Caption = #20986#24211#20844#26020#25968 + DataBinding.FieldName = 'KGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v1Column12: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column6: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 62 + end + object v1Column13: TcxGridDBColumn + Caption = #36864#36135#21305#25968 + DataBinding.FieldName = 'T_rollnum' + HeaderAlignmentHorz = taCenter + Styles.Content = FontBlue + Styles.Footer = FontBlue + Styles.Header = FontBlue + Width = 60 + end + object v1Column14: TcxGridDBColumn + Caption = #36864#36135#25968#37327 + DataBinding.FieldName = 'T_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = FontBlue + Styles.Footer = FontBlue + Styles.Header = FontBlue + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 83 + end + object v1Column4: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'CKOrdNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 55 + end + object v1gangNo: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'gangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + 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 = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + end + object Panel2: TPanel + Left = 0 + Top = 33 + Width = 1132 + Height = 81 + Align = alTop + BevelOuter = bvNone + Caption = 'Panel2' + TabOrder = 3 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 785 + Height = 81 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + 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 = 48 + Height = 12 + Caption = #31867' '#22411 + end + object Label10: TLabel + Left = 646 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object PRTCodeName: TEdit + Tag = 2 + Left = 406 + Top = 9 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = PRTCodeNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 550 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 1 + OnChange = PRTCodeNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Format = 'yyyy-MM-dd' + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Format = 'yyyy-MM-dd' + 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 = PRTCodeNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 406 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = PRTCodeNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 550 + Top = 32 + Width = 65 + Height = 20 + TabOrder = 7 + OnChange = PRTCodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 703 + Top = 32 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + '') + end + object CkOrdNo: TEdit + Tag = 2 + Left = 703 + Top = 9 + Width = 65 + Height = 20 + TabOrder = 9 + OnChange = PRTCodeNameChange + end + end + object GroupBox1: TGroupBox + Left = 785 + Top = 0 + Width = 347 + Height = 81 + Align = alClient + Caption = #36864#36135#20449#24687 + Color = clSkyBlue + ParentColor = False + TabOrder = 1 + object Label11: TLabel + Left = 32 + Top = 20 + Width = 48 + Height = 12 + Caption = #20837#24211#26085#26399 + end + object Label12: TLabel + Left = 36 + Top = 44 + Width = 42 + Height = 12 + Caption = #24211' '#20301 + end + object CRTIME: TDateTimePicker + Left = 84 + Top = 16 + Width = 109 + Height = 20 + Date = 41505.718929398150000000 + Format = 'yyyy-MM-dd' + Time = 41505.718929398150000000 + TabOrder = 0 + end + object kcKw: TBtnEditA + Left = 84 + Top = 40 + Width = 111 + Height = 20 + TabOrder = 1 + OnBtnClick = kcKwBtnClick + end + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 784 + Top = 4 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 864 + Top = 4 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 684 + 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 = 808 + Top = 152 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 656 + 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 = 424 + Top = 144 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 480 + Top = 152 + 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 RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 536 + Top = 264 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 552 + Top = 312 + 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 = 712 + Top = 176 + 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_CKProductBCPOutth.pas b/管理系统/U_CKProductBCPOutth.pas new file mode 100644 index 0000000..848c08d --- /dev/null +++ b/管理系统/U_CKProductBCPOutth.pas @@ -0,0 +1,810 @@ +unit U_CKProductBCPOutth; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, + cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, + cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, RM_Common, RM_Class, + RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxCheckBox, Menus, + MovePanel, BtnEdit; + +type + TfrmCKProductBCPOutth = 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; + PRTCodeName: 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; + CDS_PRT: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + Label10: TLabel; + CkOrdNo: TEdit; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + TBCKCX: TToolButton; + v1Column11: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + MovePanel2: TMovePanel; + CDS_CX: TClientDataSet; + v1CRTYPE: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1gangNo: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + 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; + Panel2: TPanel; + GroupBox1: TGroupBox; + Label11: TLabel; + CRTIME: TDateTimePicker; + Label12: TLabel; + kcKw: TBtnEditA; + v1customerNoname: 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 PRTCodeNameChange(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 kcKwBtnClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + procedure InitGrid(); + function YSData(Order_Main10:TClientDataSet):Boolean; + function savedate():boolean; + { Private declarations } + public + fkeyNo:string; + { Public declarations } + end; + +var + frmCKProductBCPOutth: TfrmCKProductBCPOutth; + +implementation +uses + U_DataLink,U_Fun, U_Printckmd, U_ZDYHelp; + +{$R *.dfm} +function TfrmCKProductBCPOutth.YSData(Order_Main10:TClientDataSet):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou:String; +begin + Result:=False; + with Order_Main10 do + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main10.fieldbyname('CustomerNoName').AsString)+''''); + Open; + end; + if not ADOQueryTemp.IsEmpty 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('CustomerNoName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(Order_Main10.fieldbyname('MainID').AsString)+''''); + sql.Add(' and subID='''+Trim(Order_Main10.fieldbyname('subID').AsString)+''''); + sql.Add(' and YFName=''˻'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'CS','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(Order_Main10.fieldbyname('MainId').AsString); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦտǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryName').Value:=Trim(Order_Main10.fieldbyname('CustomerNoName').AsString); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',date())); + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Order_Main10.fieldbyname('PRTPrice').Value; + //FieldByName('HuiLv').Value:=1; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('QtyUnit').Value:=Trim(Order_Main10.fieldbyname('QtyUnit').AsString); + FieldByName('ComTaiTou').Value:=Trim(Order_Main10.fieldbyname('customerNoname').AsString); + 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(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update YF_Money_CR Set Qty=(select -1*isnull(Sum(Qty),0) from CK_BanCP_CR A '); + sql.Add(' where A.defstr1=YF_Money_CR.mainID and A.defstr2=YF_Money_CR.subiD and A.CRType=''˻'' )'); + sql.Add(',PS=(select -1* isnull(count(*),0) from CK_BanCP_CR A '); + sql.Add(' where A.defstr1=YF_Money_CR.mainID and A.defstr2=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; + +function TfrmCKProductBCPOutth.savedate():boolean; +var + maxno:String; + CRID:Integer; + MaxCkNo:String; +begin + result:=false; + ADOQueryCmd.Connection.BeginTrans; + CDS_Main.DisableControls; + try + if GetLSNo(ADOQueryCmd,fkeyNo,'RK','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + + 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_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsInteger; + if GetLSNo(ADOQueryCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR '); + sql.Add('where 1=2 '); + Open; + end; + with ADOQueryCmd do + begin + if IsEmpty then Append else edit; + FieldByName('MainId').Value:=Trim(CDS_Main.fieldbyname('PMainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_Main.fieldbyname('PSubId').AsString); + FieldByName('C_Code').Value:=Trim(CDS_Main.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(CDS_Main.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(CDS_Main.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(CDS_Main.fieldbyname('C_Color').AsString); + FieldByName('APID').Value:=Trim(CDS_Main.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJId').AsString); + FieldByName('MJxh').Value:=Trim(CDS_Main.fieldbyname('MJxh').AsString); + FieldByName('kcKw').Value:=Trim(CDS_Main.fieldbyname('kcKw').AsString); + FieldByName('RCGangNo').Value:=Trim(CDS_Main.fieldbyname('RCGangNo').AsString); + FieldByName('BCGangNo').Value:=Trim(CDS_Main.fieldbyname('BCGangNo').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('ckordNo').Value:=Trim(fkeyNo); + 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').AsFloat; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('T_Qty').AsFloat; + FieldByName('RollNum').Value:=CDS_Main.fieldbyname('T_RollNum').AsFloat; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('CPType').Value:=Trim(CDS_Main.fieldbyname('CPType').AsString); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('kcKw').Value:=Trim(kcKw.Text); + FieldByName('Thcust').Value:=Trim(CDS_Main.fieldbyname('customerNoname').AsString); + FieldByName('defstr1').Value:=Trim(CDS_Main.fieldbyname('mainID').AsString); + FieldByName('defstr2').Value:=Trim(CDS_Main.fieldbyname('SubID').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where 1=2 '); + Open; + end; + with ADOQueryCmd do + begin + if IsEmpty then Append else edit; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + FieldByName('MJxh').Value:=Trim(CDS_Main.fieldbyname('MJxh').AsString); + FieldByName('kcKw').Value:=Trim(CDS_Main.fieldbyname('kcKw').AsString); + FieldByName('KCKGQty').Value:=0; + if IsEmpty then + begin + FieldByName('KCQty').Value:=CDS_Main.fieldbyname('Qty').AsFloat; + FieldByName('KCRollNum').Value:=CDS_Main.fieldbyname('RollNum').AsFloat; + end + else + begin + FieldByName('KCQty').Value:=FieldByName('KCQty').AsFloat+ CDS_Main.fieldbyname('Qty').AsFloat; + FieldByName('KCRollNum').Value:=FieldByName('KCRollNum').AsFloat+ CDS_Main.fieldbyname('RollNum').AsFloat; + end; + FieldByName('KCQtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('kcKw').Value:=Trim(kcKw.Text); + Post; + end; + + if trim(CDS_Main.fieldbyname('CRType').AsString)='' then + begin + IF not YSdata(CDS_Main) then + begin + CDS_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + end; + CDS_Main.Next; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + result:=true; + except + CDS_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmCKProductBCPOutth.FormDestroy(Sender: TObject); +begin + frmCKProductBCPOutth:=nil; +end; + +procedure TfrmCKProductBCPOutth.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure TfrmCKProductBCPOutth.FormCreate(Sender: TObject); +begin + cxGrid2.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=BegDate.DateTime; + crTime.DateTime:=BegDate.DateTime; +end; + +procedure TfrmCKProductBCPOutth.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('select A.*,T_rollNum=A.RollNum,T_Qty=A.Qty,B.OrderNo,ISNULL(C.PRTCode,A.C_Code) as PRTCode,ISNULL(C.PRTCodeName,A.C_COdeName) as PRTCodeName,C.PRTSpec,isnull(C.prtColor,A.C_Color) as prtColor,B.MPRTMF,B.MPRTKZ,B.customerNoname,C.PRTPrice '); + sql.Add(',isnull(customerNoName,B.OrderNo) KHName'); + sql.Add(',E.AOrdDefStr1,E.gangNo,F.PmainID,F.PsubID'); + sql.add('from CK_BanCP_CR A '); + Sql.add(' LEFT join JYOrder_Main B on A.MainId=B.MainId'); + Sql.add(' LEFT join JYOrder_Sub C on A.SubId=C.SubId'); + Sql.add(' LEFT join WFB_MJJY D on A.MJId=D.MJId'); + sql.Add(' LEFT join JYOrder_Sub_AnPai E on A.APID=E.APID'); + sql.Add(' LEFT join CK_BanCP_PH F on F.PHID=A.PHID'); + sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate'); + 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 TfrmCKProductBCPOutth.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmCKProductBCPOutth.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductBCPOutth.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(SELF.Caption,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductBCPOutth.FormShow(Sender: TObject); +begin + ReadCxGrid(SELF.Caption,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; + end; } +end; + +procedure TfrmCKProductBCPOutth.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + SelExportData(Tv1,ADOQueryMain,''); +end; + +procedure TfrmCKProductBCPOutth.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 TfrmCKProductBCPOutth.PRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductBCPOutth.TBPrintClick(Sender: TObject); +var + fPrintFile:String; +begin + if CDS_Main.IsEmpty then Exit; + frmPrintckmd:=TfrmPrintckmd.create(self); + with frmPrintckmd do + begin + flag:=0; + fckNo:= Trim(self.CDS_Main.fieldbyname('ckordNo').AsString); + showmodal; + free; + end; +{ 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='''')AA '); + sql.Add(' order by SOrddefstr4,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='''')AA '); + sql.Add('Group by GangNo,OrderNo,SOrddefstr4,PRTHX'); + sql.Add(')AAA order by SOrddefstr4,PRTHX,Cast(GangNo as int)'); + 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 TfrmCKProductBCPOutth.orderNoChange(Sender: TObject); +begin +// if Length(orderNo.Text)<4 then Exit; + TBFind.Click; +end; + +procedure TfrmCKProductBCPOutth.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main,True); +end; + +procedure TfrmCKProductBCPOutth.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main,False); +end; + +procedure TfrmCKProductBCPOutth.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 CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCp_KC SET KCKgQty =A.KCKgQty + B.KgQty,KCQty =A.KCQty + B.Qty,KCRollNum =A.KCRollNum + B.RollNum '); + sql.Add('FROM CK_BanCp_KC A '); + sql.Add('INNER JOIN CK_BanCP_CR B on B.CRID=A.CRID '); + sql.Add('WHERE B.BCID ='+Quotedstr(trim(CDS_Main.fieldbyname('BCID').AsString))); + + sql.Add('update JYOrder_sub SET substatus=''0'' '); + sql.Add('where mainID='+quotedstr(trim(CDS_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID='+quotedstr(trim(CDS_Main.fieldbyname('subID').AsString))); + sql.Add('and isnull(substatus,''0'')>''0'' '); + + sql.Add('delete CK_BanCP_CR where BCID='''+Trim(CDS_Main.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.CRFlag='''') '); + sql.Add(',KCQty=(select Qty from CK_BanCP_CR A where A.CRID=CK_BanCP_KC.CRID and A.CRFlag='''') '); + SQL.Add(' where CRID='+CDS_Main.fieldbyname('CRID').AsString); } + ExecSQL; + end; + {if YSData(CDS_Main)=False then + begin + CDS_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + Exit; + end; } + if Trim(FFMainId)='' then + begin + with CDS_CX do + begin + Append; + FieldByName('Mainid').Value:=Trim(CDS_Main.fieldbyname('Mainid').AsString); + FieldByName('PRTPrice').Value:=CDS_Main.fieldbyname('PRTPrice').Value; + FieldByName('KHName').Value:=Trim(CDS_Main.fieldbyname('KHName').AsString); + Post; + end; + FFMainId:=Trim(CDS_Main.fieldbyname('Mainid').AsString); + FPrice:=Trim(CDS_Main.fieldbyname('PRTPrice').AsString); + end else + if Trim(FFMainId)<>Trim(CDS_Main.fieldbyname('Mainid').AsString) then + begin + with CDS_CX do + begin + Append; + FieldByName('Mainid').Value:=Trim(CDS_Main.fieldbyname('Mainid').AsString); + FieldByName('KHName').Value:=Trim(CDS_Main.fieldbyname('KHName').AsString); + FieldByName('PRTPrice').Value:=CDS_Main.fieldbyname('PRTPrice').Value; + Post; + end; + FFMainId:=Trim(CDS_Main.fieldbyname('Mainid').AsString); + FPrice:=Trim(CDS_Main.fieldbyname('PRTPrice').AsString); + end else + begin + if Trim(FPrice)<>Trim(CDS_Main.fieldbyname('PRTPrice').AsString) then + begin + with CDS_CX do + begin + Append; + FieldByName('Mainid').Value:=Trim(CDS_Main.fieldbyname('Mainid').AsString); + FieldByName('KHName').Value:=Trim(CDS_Main.fieldbyname('KHName').AsString); + FieldByName('PRTPrice').Value:=CDS_Main.fieldbyname('PRTPrice').Value; + Post; + end; + FPrice:=Trim(CDS_Main.fieldbyname('PRTPrice').AsString); + end; + end; + CDS_Main.Delete; + end; + end; + end; + CDS_Main.EnableControls; + { with CDS_CX do + begin + First; + while not Eof do + begin + if YSData(CDS_CX)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!','ʾ',0); + Exit; + end; + Next; + end; + end; } + + ADOQueryCmd.Connection.CommitTrans; + MovePanel2.Visible:=False; + Exit; + except + MovePanel2.Visible:=False; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; + +end; + + +procedure TfrmCKProductBCPOutth.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,B.MPRTMF,B.MPRTKZ,D.MJXH,C.PRTPrice'); + 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 TfrmCKProductBCPOutth.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 TfrmCKProductBCPOutth.ToolButton1Click(Sender: TObject); +begin + if CDS_main.IsEmpty then exit; + if savedate() then + begin + application.MessageBox('ݱɹ','ʾϢ'); + ModalResult:=1; + end + else + application.MessageBox('ݱʧܣ','ʾϢ',0); +end; + +end. diff --git a/管理系统/U_CKProductCK.dfm b/管理系统/U_CKProductCK.dfm new file mode 100644 index 0000000..b2f0468 --- /dev/null +++ b/管理系统/U_CKProductCK.dfm @@ -0,0 +1,1075 @@ +object frmCKProductCK: TfrmCKProductCK + Left = 200 + Top = 128 + Width = 1382 + Height = 754 + Caption = #25104#21697#20986#24211 + 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 + 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 ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30830#23450#20986#24211 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 129 + Width = 1366 + Height = 260 + Align = alTop + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column6 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = 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 v2SSEL: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v2SSELPropertiesChange + HeaderAlignmentHorz = taCenter + Width = 42 + end + object v1Column1: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column4: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column3: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v2Column5: TcxGridDBColumn + Caption = #24211#23384#20844#26020#25968 + DataBinding.FieldName = 'KCKGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1KCRollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column6: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'kcQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1gangNO: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'gangNO' + Options.Editing = False + Width = 60 + end + object v1KCKW: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KCKW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #30424#28857#26631#24535 + DataBinding.FieldName = 'PDFlag' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1KCnote: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'KCnote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 362 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 2 + 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 = 3 + Visible = False + end + object Panel2: TPanel + Left = 0 + Top = 33 + Width = 1366 + Height = 96 + Align = alTop + Caption = 'Panel2' + TabOrder = 4 + object Panel1: TPanel + Left = 1 + Top = 1 + Width = 824 + Height = 94 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 213 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 214 + Top = 36 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + object Label1: TLabel + Left = 796 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + Visible = False + end + object Label2: TLabel + Left = 832 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + Visible = False + end + object Label5: TLabel + Left = 34 + Top = 12 + Width = 48 + Height = 12 + Caption = #20219#21153#21333#21495 + end + object Label6: TLabel + Left = 34 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 149 + Top = 128 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 335 + Top = 132 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 385 + Top = 12 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 387 + Top = 36 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label12: TLabel + Left = 534 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label13: TLabel + Left = 532 + Top = 36 + Width = 24 + Height = 12 + Caption = #24211#20301 + end + object Label18: TLabel + Left = 700 + Top = 64 + Width = 85 + Height = 16 + Caption = #36873#20013#25968#25454#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 792 + Top = 64 + Width = 9 + Height = 16 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 88 + Top = 64 + Width = 72 + Height = 12 + Caption = '<='#24211#23384#25968#37327'<=' + end + object Label23: TLabel + Left = 236 + Top = 68 + Width = 48 + Height = 12 + Caption = #26465#30721#25195#25551 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object C_CodeName: TEdit + Tag = 2 + Left = 262 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Left = 264 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = C_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 845 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + Visible = False + end + object EndDate: TDateTimePicker + Left = 845 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + Visible = False + end + object conNo: TEdit + Tag = 2 + Left = 84 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = C_CodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 84 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = C_CodeNameChange + end + object KZ: TEdit + Tag = 2 + Left = 198 + Top = 124 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = C_CodeNameChange + end + object MF: TEdit + Tag = 2 + Left = 359 + Top = 128 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = C_CodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 414 + Top = 8 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #19968#31561#27425#21697 + #20108#31561#27425#21697 + '' + '' + '' + '') + end + object KCQtyStr: TEdit + Tag = 2 + Left = 414 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = C_CodeNameChange + end + object AOrdDefStr1: TEdit + Tag = 2 + Left = 558 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = C_CodeNameChange + end + object KCKW: TEdit + Tag = 2 + Left = 558 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 11 + end + object CheckBox1: TCheckBox + Left = 524 + Top = 64 + Width = 61 + 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 = 12 + OnClick = CheckBox1Click + end + object Button1: TButton + Left = 600 + Top = 60 + Width = 75 + Height = 25 + Caption = #31227#20837#24453#36873#21306 + TabOrder = 13 + OnClick = Button1Click + end + object Edit1: TEdit + Left = 36 + Top = 60 + Width = 49 + Height = 20 + TabOrder = 14 + OnChange = C_CodeNameChange + end + object Edit2: TEdit + Left = 164 + Top = 60 + Width = 49 + Height = 20 + TabOrder = 15 + OnChange = C_CodeNameChange + end + object Edit_MJID: TEdit + Left = 288 + Top = 64 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 16 + OnKeyPress = Edit_MJIDKeyPress + end + end + object GroupBox1: TGroupBox + Left = 825 + Top = 1 + Width = 540 + Height = 94 + Align = alClient + Caption = #20986#24211#20449#24687 + Color = clSkyBlue + ParentColor = False + TabOrder = 1 + object Label14: TLabel + Left = 20 + Top = 20 + Width = 48 + Height = 12 + Caption = #20986#24211#26085#26399 + end + object Label15: TLabel + Left = 324 + Top = 16 + Width = 48 + Height = 12 + Caption = #21152' '#24037' '#21378 + end + object Label16: TLabel + Left = 164 + Top = 18 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object Label17: TLabel + Left = 20 + Top = 68 + Width = 48 + Height = 12 + Caption = #22791' '#27880 + end + object Label21: TLabel + Left = 20 + Top = 44 + Width = 48 + Height = 12 + Caption = #21697' '#21517 + end + object Label22: TLabel + Left = 164 + Top = 44 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + object CRTIME: TDateTimePicker + Left = 72 + Top = 16 + Width = 85 + Height = 20 + Date = 41505.718929398150000000 + Format = 'yyyy-MM-dd' + Time = 41505.718929398150000000 + TabOrder = 0 + OnKeyPress = CRTIMEKeyPress + end + object defstr1: TBtnEditA + Left = 376 + Top = 12 + Width = 145 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnKeyPress = CRTIMEKeyPress + OnBtnClick = defstr1BtnClick + end + object CRType: TComboBox + Left = 216 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 1 + OnKeyPress = CRTIMEKeyPress + Items.Strings = ( + #21152#24037#20986#24211 + #26679#21697#20986#24211 + #25439#32791#20986#24211 + #22238#20462#20986#24211 + #30424#28857#20986#24211 + #22383#24067#36864#36135) + end + object NOTE: TEdit + Left = 72 + Top = 64 + Width = 441 + Height = 20 + TabOrder = 5 + OnKeyPress = CRTIMEKeyPress + end + object P_CodeName: TBtnEditA + Left = 72 + Top = 40 + Width = 89 + Height = 20 + TabOrder = 3 + OnExit = P_CodeNameExit + OnKeyPress = CRTIMEKeyPress + OnBtnClick = P_CodeNameBtnClick + end + object P_Color: TBtnEditA + Left = 216 + Top = 40 + Width = 101 + Height = 20 + TabOrder = 4 + OnExit = P_ColorExit + OnKeyPress = CRTIMEKeyPress + OnBtnClick = P_ColorBtnClick + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 447 + Width = 1366 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid1 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 455 + Width = 1366 + Height = 260 + Align = alBottom + TabOrder = 6 + object Tv2: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DSSubSel + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn13 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = 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 = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v2SSELPropertiesChange + Visible = False + HeaderAlignmentHorz = taCenter + Width = 42 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #24211#23384#20844#26020#25968 + DataBinding.FieldName = 'KCKGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'kcQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'gangNO' + Options.Editing = False + Width = 60 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KCKW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column2: TcxGridDBColumn + Caption = #30424#28857#26631#24535 + DataBinding.FieldName = 'PDFlag' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object MovePanel1: TMovePanel + Left = 240 + Top = 265 + Width = 561 + Height = 305 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 7 + Visible = False + object Labelts: TLabel + Left = 84 + Top = 160 + Width = 231 + Height = 64 + Caption = 'Labelts' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object editts: TEdit + Left = 85 + Top = 35 + Width = 386 + Height = 72 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Text = '91209120001' + end + object Button4: TButton + Left = 224 + Top = 248 + Width = 75 + Height = 41 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button4Click + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 956 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + Top = 12 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 896 + 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 CDS_SubSel: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 280 + end + object DSSubSel: TDataSource + DataSet = CDS_SubSel + Left = 652 + Top = 284 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 692 + Top = 320 + end +end diff --git a/管理系统/U_CKProductCK.pas b/管理系统/U_CKProductCK.pas new file mode 100644 index 0000000..8aebaa1 --- /dev/null +++ b/管理系统/U_CKProductCK.pas @@ -0,0 +1,1172 @@ +unit U_CKProductCK; + +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, BtnEdit, strutils, cxSplitter, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + +type + TfrmCKProductCK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + Tv1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + v2Column1: TcxGridDBColumn; + v2SSEL: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Panel4: TPanel; + Label11: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + MovePanel2: TMovePanel; + ToolButton1: TToolButton; + v1KCRollNum: TcxGridDBColumn; + v1gangNO: TcxGridDBColumn; + v1C_Color: TcxGridDBColumn; + CDS_SubSel: TClientDataSet; + DSSubSel: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + v1KCKW: TcxGridDBColumn; + Panel2: TPanel; + Panel1: TPanel; + Label3: TLabel; + Label4: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label6: TLabel; + Label8: TLabel; + Label9: TLabel; + Label7: TLabel; + Label10: TLabel; + Label12: TLabel; + Label13: TLabel; + C_CodeName: TEdit; + C_Color: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + conNo: TEdit; + MJID: TEdit; + KZ: TEdit; + MF: TEdit; + CPType: TComboBox; + KCQtyStr: TEdit; + AOrdDefStr1: TEdit; + KCKW: TEdit; + GroupBox1: TGroupBox; + Label14: TLabel; + Label15: TLabel; + CRTIME: TDateTimePicker; + defstr1: TBtnEditA; + CRType: TComboBox; + Label16: TLabel; + Label17: TLabel; + NOTE: TEdit; + Label18: TLabel; + Label19: TLabel; + CheckBox1: TCheckBox; + cxSplitter1: TcxSplitter; + cxGrid1: 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; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Button1: TButton; + v1KCnote: TcxGridDBColumn; + Label20: TLabel; + Edit1: TEdit; + Edit2: TEdit; + Label21: TLabel; + Label22: TLabel; + P_CodeName: TBtnEditA; + P_Color: TBtnEditA; + Label23: TLabel; + Edit_MJID: TEdit; + MovePanel1: TMovePanel; + Labelts: TLabel; + editts: TEdit; + Button4: TButton; + v1Column5: TcxGridDBColumn; + v2Column2: 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 Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure defstr1BtnClick(Sender: TObject); + procedure v2SSELPropertiesChange(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure P_CodeNameBtnClick(Sender: TObject); + procedure P_ColorBtnClick(Sender: TObject); + procedure P_CodeNameExit(Sender: TObject); + procedure P_ColorExit(Sender: TObject); + procedure CRTIMEKeyPress(Sender: TObject; var Key: Char); + procedure Edit_MJIDKeyPress(Sender: TObject; var Key: Char); + procedure Button4Click(Sender: TObject); + private + FLeft, FTop: Integer; + IsCreateSel: boolean; + procedure InitGrid(); + procedure InitGridNull(); + function savedate(): boolean; + function SaveJG(fCkNO: string): boolean; + function SaveJG10(fCkNO: string): boolean; + function SaveEjK(FNO, FID, fBCID, fCkNO: string): boolean; + { Private declarations } + public + fkeyNo: string; + { Public declarations } + end; + +var + frmCKProductCK: TfrmCKProductCK; + +implementation + +uses + U_DataLink, U_Fun10, U_ZDYHelp, U_ZdyAttachGYS, U_ZdyAttachCP; + +{$R *.dfm} +function TfrmCKProductCK.SaveJG10(fCkNO: string): boolean; +var + FmainID, fsubID, fconNo: string; + fRollNum: double; + fQty: double; +begin + result := false; + fQty := 0; + fRollNum := 0; + + { with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select C_Code,C_CodeName,C_Spec,C_Color,BCGangNO,QtyUnit,sum(RollNum) as RollNum,suM(Qty) as Qty '); + sql.Add('from CK_BanCP_CR A'); + sql.Add('where ckOrdNo='+quotedstr(trim(fCkNO))); + sql.Add('Group by C_Code,C_CodeName,C_Spec,C_Color,BCGangNO,QtyUnit'); + open; + end; } + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select BCGangNO='''',QtyUnit=''M'',sum(RollNum) as RollNum,suM(Qty) as Qty '); + sql.Add('from CK_BanCP_CR A'); + sql.Add('where ckOrdNo=' + quotedstr(trim(fCkNO))); + // sql.Add('Group by C_Code,C_CodeName,C_Spec,C_Color,BCGangNO,QtyUnit'); + open; + end; + + try + + if GetLSNo(ADOQueryCmd, FmainID, 'CM', 'Contract_Main', 3, 1) = False then + begin + // ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + + if GetLSNo(ADOQueryCmd, fconNo, 'H', 'Contract_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 Contract_Main where 1<>2 '); + Open; + end; + + with ADOQueryCmd do + begin + append; + Fieldbyname('MainID').Value := FmainID; + Fieldbyname('ConNO').Value := fconNo; + Fieldbyname('QDTime').Value := formatDateTime('yyyy-MM-dd', CRTIME.Date); + Fieldbyname('deliverydate').Value := formatDateTime('yyyy-MM-dd', CRTIME.Date); + Fieldbyname('factoryNO').Value := trim(defstr1.TxtCode); + Fieldbyname('factoryNoName').Value := trim(defstr1.Text); + FieldByName('Filler').Value := Trim(DName); + FieldByName('FillTime').Value := date(); + FieldByName('ConType').Value := 'Ʒӹ'; + if trim(CRType.Text) = 'ӹ' then + FieldByName('conTk1').Value := 'ӹ'; + if trim(CRType.Text) = '޳' then + FieldByName('conTk1').Value := '޼ӹ'; + FieldByName('conTk2').Value := trim(fCkNO); + FieldByName('status').Value := '0'; + post; + end; + + while not ADOQueryTemp.Eof do + begin + if GetLSNo(ADOQueryCmd, fsubID, 'CS', 'Contract_Sub', 3, 1) = False then + begin + // ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_sub where 1<>2 '); + Open; + end; + with ADOQueryCmd do + begin + append; + Fieldbyname('MainID').Value := FmainID; + Fieldbyname('subID').Value := fsubID; + Fieldbyname('ConNO').Value := fconNo; + Fieldbyname('C_Code').Value := ''; + Fieldbyname('C_CodeName').Value := trim(P_CodeName.text); + Fieldbyname('C_Spec').Value := ''; + Fieldbyname('C_Color').Value := trim(P_color.text); + Fieldbyname('BCGangNo').Value := trim(ADOQueryTemp.fieldbyname('BCGangNo').AsString); + Fieldbyname('C_UNit').Value := trim(ADOQueryTemp.fieldbyname('QtyUnit').AsString); + Fieldbyname('Qty1').Value := ADOQueryTemp.fieldbyname('RollNum').AsFloat; + Fieldbyname('C_Qty').Value := ADOQueryTemp.fieldbyname('Qty').AsFloat; + Fieldbyname('C_Status').Value := '0'; + post; + end; + ADOQueryTemp.Next; + end; + result := true; + except + end; +end; + +function TfrmCKProductCK.SaveEjK(FNO, FID, fBCID, fCkNO: string): boolean; +var + fkcID: integer; + Filler: string; + FillTime: TdateTime; +begin + result := false; + try + + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update BP_Kcid Set kcid=kcid+1'); + sql.Add('select kcid from BP_Kcid'); + Open; + end; + fkcID := ADOQueryCmd.fieldbyname('kcid').AsInteger; + + with CDS_SubSel do + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from BP_InOut'); + sql.Add('where 1=2 '); + open; + end; + // fkcID:=strtoint(RightBStr(trim(FNO),length(FNO)-3)+trim(FID)); + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('CRNO').Value := trim(FNO); + ADOQueryCmd.FieldByName('CRID').Value := FID; + ADOQueryCmd.FieldByName('CRTime').Value := formatdateTime('yyyy-MM-dd', CRTIme.Date); + if trim(CRType.Text) = 'Ʒ' then + begin + ADOQueryCmd.FieldByName('CKName').Value := 'Ʒֿ'; + ADOQueryCmd.FieldByName('CRType').Value := 'Ʒ'; + end; + if trim(CRType.Text) = '㶫' then + begin + ADOQueryCmd.FieldByName('CKName').Value := '㶫ֿ'; + ADOQueryCmd.FieldByName('CRType').Value := '㶫'; + end; + ADOQueryCmd.FieldByName('CRFlag').Value := ''; + ADOQueryCmd.FieldByName('mainID').Value := trim(fieldbyname('mainID').AsString); + 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('C_Code').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value := trim(fieldbyname('C_CodeName').AsString); + ADOQueryCmd.FieldByName('P_spec').Value := trim(fieldbyname('C_spec').AsString); + ADOQueryCmd.FieldByName('P_Color').Value := trim(fieldbyname('C_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('KCRollNum').AsFloat; + ADOQueryCmd.FieldByName('Qty').Value := fieldbyname('KCQty').AsFloat; + ADOQueryCmd.FieldByName('QtyUnit').Value := trim(fieldbyname('kcQtyUnit').AsString); + ADOQueryCmd.FieldByName('note').Value := ''; + ADOQueryCmd.FieldByName('Filler').Value := trim(Filler); + ADOQueryCmd.FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp); + ADOQueryCmd.FieldByName('fromMainID').Value := trim(fCkNO); + ADOQueryCmd.FieldByName('FromSubID').Value := trim(fBCID); + ADOQueryCmd.FieldByName('gangNO').Value := trim(fieldbyname('AOrdDefStr1').AsString); + ADOQueryCmd.FieldByName('kcID').Value := fkcID; + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from BP_KC'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('kcID').Value := fkcID; + if trim(CRType.Text) = 'Ʒ' then + begin + ADOQueryCmd.FieldByName('CKName').Value := 'Ʒֿ'; + ADOQueryCmd.FieldByName('CRType').Value := 'Ʒ'; + end; + if trim(CRType.Text) = '㶫' then + begin + ADOQueryCmd.FieldByName('CKName').Value := '㶫ֿ'; + ADOQueryCmd.FieldByName('CRType').Value := '㶫'; + end; + ADOQueryCmd.FieldByName('CRNO').Value := trim(FNO); + ADOQueryCmd.FieldByName('CRID').Value := FID; + ADOQueryCmd.FieldByName('CRTime').Value := formatdateTime('yyyy-MM-dd', CRTIme.Date); + 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('CPType').AsString); + ADOQueryCmd.FieldByName('P_Code').Value := trim(fieldbyname('C_Code').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value := trim(fieldbyname('C_CodeName').AsString); + ADOQueryCmd.FieldByName('P_spec').Value := trim(fieldbyname('C_spec').AsString); + ADOQueryCmd.FieldByName('P_Color').Value := trim(fieldbyname('C_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('KCRollNum').AsFloat; + ADOQueryCmd.FieldByName('Qty').Value := fieldbyname('kCQty').AsFloat; + ADOQueryCmd.FieldByName('QtyUnit').Value := trim(fieldbyname('KCQtyUnit').AsString); + ADOQueryCmd.FieldByName('kcID').Value := fkcID; + ADOQueryCmd.Post; + end; + result := true; + except + end; +end; + +function TfrmCKProductCK.SaveJG(fCkNO: string): boolean; +var + maxno, LLIdx, dhID, FDW: string; + fRollNum: double; + fQty: double; +begin + result := false; + fQty := 0; + fRollNum := 0; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select MainID,subID,BCGangNO,C_Color,QtyUnit,sum(RollNum) as RollNum,suM(Qty) as Qty '); + sql.Add('from CK_BanCP_CR A'); + sql.Add('where ckOrdNo=' + quotedstr(trim(fCkNO))); + sql.Add('Group by MainID,subID,BCGangNO,C_Color,QtyUnit'); + open; + end; + + try + while not ADOQueryTemp.Eof do + begin + if GetLSNo(ADOQueryCmd, maxno, 'MX', 'Contract_Cloth_LLMx', 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_LLMx where 1<>2 '); + Open; + end; + + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value := Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + FieldByName('SubId').Value := Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + FieldByName('DHId').Value := Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + FieldByName('MXId').Value := Trim(maxno); + FieldByName('OrdSubId').Value := Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + FieldByName('TPDate').Value := CRTIME.Date; + FieldByName('TPPerson').Value := ''; + if trim(CRType.Text) = 'ӹ' then + FieldByName('TPNote').Value := 'Ʒӹ'; + + if trim(CRType.Text) = '޳' then + FieldByName('TPNote').Value := 'Ʒ'; + + FieldByName('ToNo').Value := trim(defstr1.TxtCode); + FieldByName('ToName').Value := trim(defstr1.Text); + FieldByName('gangNO').Value := ''; + FieldByName('BCgangNO').Value := ADOQueryTemp.fieldbyname('BCGangNO').Value; + FieldByName('C_Color').Value := ADOQueryTemp.fieldbyname('C_Color').Value; + FieldByName('TPUnit').Value := ADOQueryTemp.fieldbyname('QtyUnit').Value; + FieldByName('TPPS').Value := ADOQueryTemp.fieldbyname('RollNum').Value; + FieldByName('TPQty').Value := ADOQueryTemp.fieldbyname('Qty').Value; + FieldByName('TPMQty').Value := ADOQueryTemp.fieldbyname('Qty').Value; + FieldByName('Qty1').Value := 0; + FieldByName('Qty2').Value := 0; + FieldByName('Qty3').Value := 0; + FieldByName('JGPrice').Value := 0; + FieldByName('GangFee').Value := 0; + if trim(CRType.Text) = 'ӹ' then + FieldByName('JGType').Value := 'Ʒӹ'; + + if trim(CRType.Text) = '޳' then + FieldByName('JGType').Value := 'Ʒ'; + Post; + 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(ADOQueryTemp.fieldbyname('subID').AsString); + FieldByName('FirstNo').Value := trim(defstr1.TxtCode); + FieldByName('FirstName').Value := trim(defstr1.Text); + FieldByName('OrdSubId').Value := Trim(ADOQueryTemp.fieldbyname('subID').AsString); + FieldByName('TPUnit').Value := Trim(ADOQueryTemp.fieldbyname('QtyUnit').AsString); + FieldByName('LLIdx').Value := 1; + if trim(CRType.Text) = 'ӹ' then + FieldByName('JGType').Value := 'Ʒӹ'; + if trim(CRType.Text) = '޳' then + FieldByName('JGType').Value := 'Ʒ'; + Post; + 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.MXID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(',TPQty=(select Sum(TPQty) from Contract_Cloth_LLMx A where A.MXID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(',BCPQty=(select Sum(Qty2) from Contract_Cloth_LLMx A where A.MXID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(', TPMQty=(select isnull(sum(TPMQty),0) from Contract_Cloth_LLMX A where A.MXID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(', BCPMQty=(select isnull(sum(MQty2),0) from Contract_Cloth_LLMX A where A.MXID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add('where LLID=''' + Trim(maxno) + ''''); + ExecSQL; + end; + ADOQueryTemp.Next; + end; + result := true; + except + end; +end; + +function TfrmCKProductCK.savedate(): boolean; +var + maxno: string; + CRID: Integer; + MaxCkNo: string; + i: integer; + rkNo: string; +begin + result := false; + ADOQueryCmd.Connection.BeginTrans; + CDS_SubSel.DisableControls; + try + if GetLSNo(ADOQueryCmd, fkeyNo, 'CK', 'CK_BanCP_CR', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ', 'ʾ', 0); + Exit; + end; + if (trim(CRType.Text) = 'Ʒ') or (trim(CRType.Text) = '㶫') then + begin + if GetLSNo(ADOQueryCmd, rkNo, 'RK', 'BP_InOut', 3, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + end; + i := 1; + with CDS_SubSel do + begin + DisableControls; + First; + while not Eof do + begin + // if fieldbyname('ssel').AsBoolean then + // begin +// if Trim(CDS_SubSel.fieldbyname('C_CodeName').AsString) <> Trim(P_CodeName.text) then +// begin +// application.MessageBox('ѡIJͬһƷһ⣡', 'ʾϢ', 0); +// ADOQueryCmd.Connection.RollbackTrans; +// CDS_SubSel.EnableControls; +// exit; +// end; + if GetLSNo(ADOQueryCmd, MaxCkNo, 'CC', 'CK_BanCP_CR', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR '); + sql.Add('where 1=2 '); + Open; + end; + with ADOQueryCmd do + begin + if IsEmpty then + Append + else + edit; + FieldByName('MainId').Value := Trim(CDS_SubSel.fieldbyname('MainId').AsString); + FieldByName('SubId').Value := Trim(CDS_SubSel.fieldbyname('SubId').AsString); + FieldByName('C_Code').Value := Trim(CDS_SubSel.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value := Trim(CDS_SubSel.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value := Trim(CDS_SubSel.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value := Trim(CDS_SubSel.fieldbyname('C_Color').AsString); + FieldByName('APID').Value := Trim(CDS_SubSel.fieldbyname('APID').AsString); + FieldByName('MJID').Value := Trim(CDS_SubSel.fieldbyname('MJId').AsString); + FieldByName('MJxh').Value := Trim(CDS_SubSel.fieldbyname('MJxh').AsString); + FieldByName('kcKw').Value := Trim(CDS_SubSel.fieldbyname('kcKw').AsString); + FieldByName('RCGangNo').Value := Trim(CDS_SubSel.fieldbyname('RCGangNo').AsString); + FieldByName('BCGangNo').Value := Trim(CDS_SubSel.fieldbyname('BCGangNo').AsString); + FieldByName('BCID').Value := Trim(MaxCkNo); + FieldByName('ckordNo').Value := Trim(fkeyNo); + FieldByName('CRTime').Value := FormatDateTime('yyyy-MM-dd', CRTime.DateTime); + FieldByName('CRFlag').Value := ''; + FieldByName('CRType').Value := trim(CRType.Text); + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value := Trim(CDS_SubSel.fieldbyname('CRID').AsString); + FieldByName('KGQty').Value := CDS_SubSel.fieldbyname('KCKGQty').AsFloat; + FieldByName('Qty').Value := CDS_SubSel.fieldbyname('KCQty').AsFloat; + FieldByName('RollNum').Value := CDS_SubSel.fieldbyname('KCRollNum').AsFloat; + FieldByName('QtyUnit').Value := CDS_SubSel.fieldbyname('KCQtyUnit').Value; + FieldByName('CPType').Value := Trim(CDS_SubSel.fieldbyname('CPType').AsString); + FieldByName('Filler').Value := Trim(DName); + FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp); + FieldByName('defstr1').Value := trim(defstr1.Text); + FieldByName('note').Value := trim(note.Text); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where CRID=' + quotedstr(trim(CDS_SubSel.fieldbyname('CRID').AsString))); + Open; + end; + with ADOQueryCmd do + begin + if IsEmpty then + Append + else + edit; + FieldByName('KCQty').Value := FieldByName('KCQty').AsFloat - CDS_SubSel.fieldbyname('KCQty').AsFloat; + FieldByName('KCRollNum').Value := FieldByName('KCRollNum').AsFloat - CDS_SubSel.fieldbyname('KCRollNum').AsFloat; + Post; + end; + + if (trim(CRType.Text) = 'Ʒ') or (trim(CRType.Text) = '㶫') then + begin + if not SaveEjK(rkNo, inttostr(i), MaxCkNo, fkeyNo) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + + i := i + 1; + // end; + CDS_SubSel.Next; + end; + end; + CDS_SubSel.EnableControls; + if (trim(CRType.Text) = 'ӹ') or (trim(CRType.Text) = '޳') then + begin + if not saveJG10(fkeyNo) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + result := true; + except + CDS_SubSel.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmCKProductCK.FormDestroy(Sender: TObject); +begin + frmCKProductCK := nil; +end; + +procedure TfrmCKProductCK.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmCKProductCK.FormCreate(Sender: TObject); +begin + cxGrid2.Align := alClient; + + BegDate.DateTime := SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime := BegDate.DateTime; + CRTIME.DateTime := BegDate.DateTime; + IsCreateSel := false; +// TBRafresh.Click; +end; + +procedure TfrmCKProductCK.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + SQL.Add('exec P_View_CPKCMX'); + SQl.Add('@ConNo=' + quotedstr(trim(conNo.Text))); + SQl.Add(',@C_CodeName=' + quotedstr(trim(C_CodeName.Text))); + SQl.Add(',@C_Color=' + quotedstr(trim(C_Color.Text))); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + if not IsCreateSel then + begin + SCreateCDS20(ADOQueryMain, CDS_SubSel); + IsCreateSel := true; + end; + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmCKProductCK.InitGridNull(); +begin + try + ADOQueryTemp.DisableControls; + with ADOQueryTemp do + begin + Filtered := False; + Close; + sql.Clear; + SQL.Add('exec P_View_CPKCMXNull'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_SubSel); + SInitCDSData20(ADOQueryTemp, CDS_SubSel); + finally + ADOQueryTemp.EnableControls; + end; +end; + +procedure TfrmCKProductCK.TBRafreshClick(Sender: TObject); +begin + // BegDate.SetFocus; + MovePanel2.Visible := True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible := False; +end; + +procedure TfrmCKProductCK.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmCKProductCK.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption, Tv1, 'Ʒֿ'); + // WriteCxGrid('ѡ',Tv2,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductCK.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption, Tv1, 'Ʒֿ'); + //ReadCxGrid('ѡ',Tv2,'Ʒֿ'); +// InitGridNull(); + //InitGrid(); +end; + +procedure TfrmCKProductCK.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel('б', cxGrid2); +end; + +procedure TfrmCKProductCK.TBFindClick(Sender: TObject); +var + strsql: string; +begin + if ADOQueryMain.Active then + begin + strsql := SGetFilters(Panel1, 1, 2); + if trim(C_Color.Text) <> '' then + begin + if strsql = '' then + strsql := ' C_Color=' + quotedstr(trim(C_Color.Text)) + else + strsql := strsql + ' and C_Color=' + quotedstr(trim(C_Color.Text)); + end; + + if trim(edit1.Text) <> '' then + begin + if strsql = '' then + strsql := ' KCQty>=' + inttostr(strtointdef(trim(edit1.Text), 0)) + else + strsql := strsql + ' and KCQty>=' + inttostr(strtointdef(trim(edit1.Text), 0)); + end; + if trim(edit2.Text) <> '' then + begin + if strsql = '' then + strsql := ' KCQty<=' + inttostr(strtointdef(trim(edit2.Text), 0)) + else + strsql := strsql + ' and KCQty<=' + inttostr(strtointdef(trim(edit2.Text), 0)); + end; + SDofilter(ADOQueryMain, strsql); + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + end; +end; + +procedure TfrmCKProductCK.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductCK.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND, $F012, 0); +end; + +procedure TfrmCKProductCK.Image2Click(Sender: TObject); +begin + Panel4.Visible := False; +end; + +procedure TfrmCKProductCK.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft := X; + FTop := Y; +end; + +procedure TfrmCKProductCK.ToolButton1Click(Sender: TObject); +begin + if not CDS_SubSel.Active then + exit; + if CDS_SubSel.IsEmpty then + exit; + CRTIME.SetFocus; +{ if not CDS_SubSel.Locate('SSel',True,[]) then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; } + if trim(CRType.Text) = '' then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if (trim(CRType.Text) = '˻') then + begin + if trim(defstr1.Text) = '' then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + end; + if (trim(CRType.Text) = 'ӹ') or (trim(CRType.Text) = '޳') then + begin + if trim(defstr1.Text) = '' then + begin + Application.MessageBox('ûѡӹ!', 'ʾ', 0); + Exit; + end; + if trim(P_CodeName.Text) = '' then + begin + Application.MessageBox('ûѡƷ!', 'ʾ', 0); + Exit; + end; + if trim(P_Color.Text) = '' then + begin + Application.MessageBox('ûѡɫ!', 'ʾ', 0); + Exit; + end; + { with CDS_Main do + begin + DisableControls; + First; + while not Eof do + begin + if fieldbyname('ssel').AsBoolean then + begin + if trim(Fieldbyname('MainId').AsString)='' then + begin + EnableControls; + application.MessageBox('ڳⲻܼӹ⣡','ʾϢ',0); + exit; + end; + end; + next; + end; + EnableControls; + end; } + end; + + if savedate() then + begin + application.MessageBox('ݱɹ', 'ʾϢ'); + ModalResult := 1; + end + else + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); +end; + +procedure TfrmCKProductCK.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_SubSel.IsEmpty then + exit; + if not CDS_Main.Locate('CRID', trim(CDS_SubSel.fieldbyname('CRID').AsString), []) then + begin + InitCDSToCDS(CDS_SubSel, CDS_Main); + end; + CDS_SubSel.Delete; +end; + +procedure TfrmCKProductCK.defstr1BtnClick(Sender: TObject); +begin + try + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal = 1 then + begin + defstr1.Text := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + defstr1.TxtCode := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + // LXTel.Text:=Trim(CDS_HZ.fieldbyname('DEFstr2').AsString); + // LXPerson.Text:=Trim(CDS_HZ.fieldbyname('DEFstr4').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmCKProductCK.v2SSELPropertiesChange(Sender: TObject); +var + fNum: double; +begin + fNum := strtofloatdef(Label19.Caption, 0); + if CDS_Main.FieldByName('ssel').AsBoolean then + begin + fNum := fNum + CDS_Main.fieldbyname('KCQty').AsFloat; + end + else + begin + fNum := fNum - CDS_Main.fieldbyname('KCQty').AsFloat; + end; + + Label19.Caption := floattostr(fNum); +end; + +procedure TfrmCKProductCK.CheckBox1Click(Sender: TObject); +var + fNum: double; +begin + fNum := 0; + with CDS_Main do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('Ssel').Value := CheckBox1.Checked; + if CheckBox1.Checked then + fNum := fNum + CDS_Main.fieldbyname('KCQty').AsFloat; + post; + next; + end; + first; + EnableControls; + end; + Label19.Caption := floattostr(fNum); +end; + +procedure TfrmCKProductCK.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_Main.IsEmpty then + exit; + + if not CDS_SubSel.Locate('CRID', trim(CDS_Main.fieldbyname('CRID').AsString), []) then + begin + InitCDSToCDS(CDS_Main, CDS_SubSel); + end; + CDS_Main.Delete; +end; + +procedure TfrmCKProductCK.Button1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then + exit; + CDS_SubSel.DisableControls; + with CDS_Main do + begin + DisableControls; + first; + while CDS_Main.Locate('ssel', true, []) do + begin + if not CDS_SubSel.Locate('CRID', trim(CDS_Main.fieldbyname('CRID').AsString), []) then + begin + InitCDSToCDS(CDS_Main, CDS_SubSel); + end; + CDS_Main.Delete; + end; + EnableControls; + end; + CDS_SubSel.EnableControls; +end; + +procedure TfrmCKProductCK.P_CodeNameBtnClick(Sender: TObject); +begin + try + frmZdyAttachCP := TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + fType := 'Ʒ'; + if ShowModal = 1 then + begin + P_CodeName.Text := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + P_Color.Text := Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + end; + end; + finally + frmZdyAttachCP.Free; + end; +end; + +procedure TfrmCKProductCK.P_ColorBtnClick(Sender: TObject); +begin + try + frmZdyAttachCP := TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + if ShowModal = 1 then + begin + // P_CodeName.Text:==Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + P_Color.Text := Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + end; + end; + finally + frmZdyAttachCP.Free; + end; +end; + +procedure TfrmCKProductCK.P_CodeNameExit(Sender: TObject); +var + mvalue: string; +begin + mvalue := trim(P_CodeName.Text); + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + P_CodeName.Text := trim(mvalue); + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName=' + quotedstr(trim(P_CodeName.Text))); + open; + end; + if ADOQueryCmd.IsEmpty then + begin + P_CodeName.Text := ''; + application.MessageBox('Ʒڣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmCKProductCK.P_ColorExit(Sender: TObject); +var + mvalue: string; +begin + mvalue := trim(P_Color.Text); + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + P_Color.Text := trim(mvalue); + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName=' + quotedstr(trim(P_CodeName.Text))); + sql.Add('and DEFstr3=' + quotedstr(trim(P_Color.Text))); + open; + end; + if ADOQueryCmd.IsEmpty then + begin + P_Color.Text := ''; + application.MessageBox('ɫڣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmCKProductCK.CRTIMEKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + Key := #0; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmCKProductCK.Edit_MJIDKeyPress(Sender: TObject; var Key: Char); +begin + MovePanel1.Visible := false; + if CDS_Main.IsEmpty then + exit; + if trim(Edit_MJID.Text) = '' then + exit; + + if Key = #13 then + begin + if CDS_SubSel.Locate('MJID', trim(edit_MJID.Text), []) then + begin + editts.Text := Edit_MJID.Text; + Labelts.Caption := 'ɨ裡'; + MovePanel1.Visible := true; + end + else if CDS_Main.Locate('MJID', trim(edit_MJID.Text), []) then + begin + if not CDS_SubSel.Locate('CRID', trim(CDS_Main.fieldbyname('CRID').AsString), []) then + begin + InitCDSToCDS(CDS_Main, CDS_SubSel); + end; + CDS_Main.Delete; + end + else + begin + editts.Text := Edit_MJID.Text; + Labelts.Caption := '벻ڣ'; + MovePanel1.Visible := true; + end; + Edit_MJID.Text := ''; + Edit_MJID.SetFocus; + end; + +end; + +procedure TfrmCKProductCK.Button4Click(Sender: TObject); +begin + MovePanel1.Visible := false; +end; + +end. + diff --git a/管理系统/U_CKProductCK_Other.dfm b/管理系统/U_CKProductCK_Other.dfm new file mode 100644 index 0000000..b499175 --- /dev/null +++ b/管理系统/U_CKProductCK_Other.dfm @@ -0,0 +1,983 @@ +object frmCKProductCK_Other: TfrmCKProductCK_Other + Left = 125 + Top = 102 + Width = 1382 + Height = 685 + Caption = #25104#21697#20986#24211 + 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 = 1349 + 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 ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #30830#23450#20986#24211 + ImageIndex = 41 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 129 + Width = 1349 + Height = 260 + Align = alTop + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = v1Column6 + end + item + Kind = skSum + Column = v2Column5 + end + item + Kind = skSum + Column = v2Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = 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 v2SSEL: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v2SSELPropertiesChange + HeaderAlignmentHorz = taCenter + Width = 42 + end + object v1Column1: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column6: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1Column4: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v1Column3: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object v2Column5: TcxGridDBColumn + Caption = #24211#23384#20844#26020#25968 + DataBinding.FieldName = 'KCKGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1KCRollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column6: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'kcQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1gangNO: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'gangNO' + Options.Editing = False + Width = 60 + end + object v1KCKW: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KCKW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1KCnote: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'KCnote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 362 + Top = 139 + Width = 294 + Height = 213 + TabOrder = 2 + 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 = 3 + Visible = False + end + object Panel2: TPanel + Left = 0 + Top = 33 + Width = 1349 + Height = 96 + Align = alTop + Caption = 'Panel2' + TabOrder = 4 + object Panel1: TPanel + Left = 1 + Top = 1 + Width = 824 + Height = 94 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label3: TLabel + Left = 213 + Top = 12 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label4: TLabel + Left = 214 + Top = 36 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + object Label1: TLabel + Left = 796 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + Visible = False + end + object Label2: TLabel + Left = 832 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + Visible = False + end + object Label5: TLabel + Left = 34 + Top = 12 + Width = 48 + Height = 12 + Caption = #20219#21153#21333#21495 + end + object Label6: TLabel + Left = 34 + Top = 36 + Width = 48 + Height = 12 + Caption = #26465' '#30721 + end + object Label8: TLabel + Left = 149 + Top = 128 + Width = 48 + Height = 12 + Caption = #20811' '#37325 + end + object Label9: TLabel + Left = 335 + Top = 132 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Label7: TLabel + Left = 385 + Top = 12 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 387 + Top = 36 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label12: TLabel + Left = 534 + Top = 12 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label13: TLabel + Left = 532 + Top = 36 + Width = 24 + Height = 12 + Caption = #24211#20301 + end + object Label18: TLabel + Left = 700 + Top = 64 + Width = 85 + Height = 16 + Caption = #36873#20013#25968#25454#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 792 + Top = 64 + Width = 9 + Height = 16 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 88 + Top = 64 + Width = 72 + Height = 12 + Caption = '<='#24211#23384#25968#37327'<=' + end + object C_CodeName: TEdit + Tag = 2 + Left = 262 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Left = 264 + Top = 33 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = C_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 845 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + Visible = False + end + object EndDate: TDateTimePicker + Left = 845 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + Visible = False + end + object conNo: TEdit + Tag = 2 + Left = 84 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = C_CodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 84 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = C_CodeNameChange + end + object KZ: TEdit + Tag = 2 + Left = 198 + Top = 124 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = C_CodeNameChange + end + object MF: TEdit + Tag = 2 + Left = 359 + Top = 128 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = C_CodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 414 + Top = 8 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #19968#31561#27425#21697 + #20108#31561#27425#21697 + '' + '' + '' + '') + end + object KCQtyStr: TEdit + Tag = 2 + Left = 414 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = C_CodeNameChange + end + object AOrdDefStr1: TEdit + Tag = 2 + Left = 558 + Top = 8 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = C_CodeNameChange + end + object KCKW: TEdit + Tag = 2 + Left = 558 + Top = 32 + Width = 100 + Height = 20 + TabOrder = 11 + end + object CheckBox1: TCheckBox + Left = 524 + Top = 64 + Width = 61 + 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 = 12 + OnClick = CheckBox1Click + end + object Button1: TButton + Left = 600 + Top = 60 + Width = 75 + Height = 25 + Caption = #31227#20837#24453#36873#21306 + TabOrder = 13 + OnClick = Button1Click + end + object Edit1: TEdit + Left = 36 + Top = 60 + Width = 49 + Height = 20 + TabOrder = 14 + OnChange = C_CodeNameChange + end + object Edit2: TEdit + Left = 164 + Top = 60 + Width = 49 + Height = 20 + TabOrder = 15 + OnChange = C_CodeNameChange + end + end + object GroupBox1: TGroupBox + Left = 825 + Top = 1 + Width = 523 + Height = 94 + Align = alClient + Caption = #20986#24211#20449#24687 + Color = clSkyBlue + ParentColor = False + TabOrder = 1 + object Label14: TLabel + Left = 20 + Top = 20 + Width = 48 + Height = 12 + Caption = #20986#24211#26085#26399 + end + object Label15: TLabel + Left = 324 + Top = 16 + Width = 48 + Height = 12 + Caption = #21152' '#24037' '#21378 + end + object Label16: TLabel + Left = 164 + Top = 18 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object Label17: TLabel + Left = 20 + Top = 68 + Width = 48 + Height = 12 + Caption = #22791' '#27880 + end + object Label21: TLabel + Left = 20 + Top = 44 + Width = 48 + Height = 12 + Caption = #21697' '#21517 + end + object Label22: TLabel + Left = 164 + Top = 44 + Width = 48 + Height = 12 + Caption = #39068' '#33394 + end + object CRTIME: TDateTimePicker + Left = 72 + Top = 16 + Width = 85 + Height = 20 + Date = 41505.718929398150000000 + Format = 'yyyy-MM-dd' + Time = 41505.718929398150000000 + TabOrder = 0 + OnKeyPress = CRTIMEKeyPress + end + object defstr1: TBtnEditA + Left = 376 + Top = 12 + Width = 145 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnKeyPress = CRTIMEKeyPress + OnBtnClick = defstr1BtnClick + end + object CRType: TComboBox + Left = 216 + Top = 14 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 1 + OnKeyPress = CRTIMEKeyPress + Items.Strings = ( + #26679#21697#20986#24211 + #25439#32791#20986#24211 + '') + end + object NOTE: TEdit + Left = 72 + Top = 64 + Width = 441 + Height = 20 + TabOrder = 5 + OnKeyPress = CRTIMEKeyPress + end + object P_CodeName: TBtnEditA + Left = 72 + Top = 40 + Width = 89 + Height = 20 + TabOrder = 3 + OnExit = P_CodeNameExit + OnKeyPress = CRTIMEKeyPress + OnBtnClick = P_CodeNameBtnClick + end + object P_Color: TBtnEditA + Left = 216 + Top = 40 + Width = 101 + Height = 20 + TabOrder = 4 + OnExit = P_ColorExit + OnKeyPress = CRTIMEKeyPress + OnBtnClick = P_ColorBtnClick + end + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 389 + Width = 1349 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid1 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 397 + Width = 1349 + Height = 260 + Align = alBottom + TabOrder = 6 + object Tv2: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv2CellDblClick + DataController.DataSource = DSSubSel + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn13 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = 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 = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v2SSELPropertiesChange + Visible = False + HeaderAlignmentHorz = taCenter + Width = 42 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'KZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrdDefStr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 63 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #24211#23384#20844#26020#25968 + DataBinding.FieldName = 'KCKGQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'kcQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'gangNO' + Options.Editing = False + Width = 60 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KCKW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 956 + Top = 8 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + Top = 12 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 896 + 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 CDS_SubSel: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 280 + end + object DSSubSel: TDataSource + DataSet = CDS_SubSel + Left = 652 + Top = 284 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 692 + Top = 320 + end +end diff --git a/管理系统/U_CKProductCK_Other.pas b/管理系统/U_CKProductCK_Other.pas new file mode 100644 index 0000000..5bb65e4 --- /dev/null +++ b/管理系统/U_CKProductCK_Other.pas @@ -0,0 +1,1094 @@ +unit U_CKProductCK_Other; + +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, + BtnEdit,strutils, cxSplitter; + +type + TfrmCKProductCK_Other = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + Tv1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + v2Column1: TcxGridDBColumn; + v2SSEL: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Panel4: TPanel; + Label11: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + MovePanel2: TMovePanel; + ToolButton1: TToolButton; + v1KCRollNum: TcxGridDBColumn; + v1gangNO: TcxGridDBColumn; + v1C_Color: TcxGridDBColumn; + CDS_SubSel: TClientDataSet; + DSSubSel: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + v1KCKW: TcxGridDBColumn; + Panel2: TPanel; + Panel1: TPanel; + Label3: TLabel; + Label4: TLabel; + Label1: TLabel; + Label2: TLabel; + Label5: TLabel; + Label6: TLabel; + Label8: TLabel; + Label9: TLabel; + Label7: TLabel; + Label10: TLabel; + Label12: TLabel; + Label13: TLabel; + C_CodeName: TEdit; + C_Color: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + conNo: TEdit; + MJID: TEdit; + KZ: TEdit; + MF: TEdit; + CPType: TComboBox; + KCQtyStr: TEdit; + AOrdDefStr1: TEdit; + KCKW: TEdit; + GroupBox1: TGroupBox; + Label14: TLabel; + Label15: TLabel; + CRTIME: TDateTimePicker; + defstr1: TBtnEditA; + CRType: TComboBox; + Label16: TLabel; + Label17: TLabel; + NOTE: TEdit; + Label18: TLabel; + Label19: TLabel; + CheckBox1: TCheckBox; + cxSplitter1: TcxSplitter; + cxGrid1: 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; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Button1: TButton; + v1KCnote: TcxGridDBColumn; + Label20: TLabel; + Edit1: TEdit; + Edit2: TEdit; + Label21: TLabel; + Label22: TLabel; + P_CodeName: TBtnEditA; + P_Color: TBtnEditA; + 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 Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Image2Click(Sender: TObject); + procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure defstr1BtnClick(Sender: TObject); + procedure v2SSELPropertiesChange(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + procedure P_CodeNameBtnClick(Sender: TObject); + procedure P_ColorBtnClick(Sender: TObject); + procedure P_CodeNameExit(Sender: TObject); + procedure P_ColorExit(Sender: TObject); + procedure CRTIMEKeyPress(Sender: TObject; var Key: Char); + private + FLeft,FTop:Integer; + IsCreateSel:boolean; + procedure InitGrid(); + // procedure InitGridNull(); + function savedate():boolean; + function SaveJG(fCkNO:string):boolean; + function SaveJG10(fCkNO:string):boolean; + function SaveEjK(FNO,FID,fBCID,fCkNO:string):boolean; + { Private declarations } + public + fkeyNo:string; + { Public declarations } + end; + +var + frmCKProductCK_Other: TfrmCKProductCK_Other; + +implementation +uses + U_DataLink,U_Fun10, U_ZDYHelp, U_ZdyAttachGYS, U_ZdyAttachCP; + +{$R *.dfm} +function TfrmCKProductCK_Other.SaveJG10(fCkNO:string):boolean; +var + FmainID,fsubID,fconNo:string; + fRollNum:double; + fQty:double; +begin + result:=false; + fQty:=0; + fRollNum:=0; + + { with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select C_Code,C_CodeName,C_Spec,C_Color,BCGangNO,QtyUnit,sum(RollNum) as RollNum,suM(Qty) as Qty '); + sql.Add('from CK_BanCP_CR A'); + sql.Add('where ckOrdNo='+quotedstr(trim(fCkNO))); + sql.Add('Group by C_Code,C_CodeName,C_Spec,C_Color,BCGangNO,QtyUnit'); + open; + end; } + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select BCGangNO='''',QtyUnit=''M'',sum(RollNum) as RollNum,suM(Qty) as Qty '); + sql.Add('from CK_BanCP_CR1 A'); + sql.Add('where ckOrdNo='+quotedstr(trim(fCkNO))); + // sql.Add('Group by C_Code,C_CodeName,C_Spec,C_Color,BCGangNO,QtyUnit'); + open; + end; + + + + try + + if GetLSNo(ADOQueryCmd,fmainID,'CM','Contract_Main',3,1)=False then + begin + // ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + + if GetLSNo(ADOQueryCmd,fconNo,'H','Contract_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 Contract_Main where 1<>2 '); + Open; + end; + + with ADOQueryCmd do + begin + append; + Fieldbyname('MainID').Value:=fmainID; + Fieldbyname('ConNO').Value:=fconNo; + Fieldbyname('QDTime').Value:=formatDateTime('yyyy-MM-dd',CRTIME.Date); + Fieldbyname('deliverydate').Value:=formatDateTime('yyyy-MM-dd',CRTIME.Date); + Fieldbyname('factoryNO').Value:=trim(defstr1.TxtCode); + Fieldbyname('factoryNoName').Value:=trim(defstr1.Text); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=date(); + FieldByName('ConType').Value:='Ʒӹ'; + IF trim(CRType.Text)='ӹ' then + FieldByName('conTk1').Value:='ӹ'; + IF trim(CRType.Text)='޳' then + FieldByName('conTk1').Value:='޼ӹ'; + FieldByName('conTk2').Value:=trim(fCkNO); + FieldByName('status').Value:='0'; + post; + end; + + + while not ADOQueryTemp.Eof do + begin + if GetLSNo(ADOQueryCmd,fsubID,'CS','Contract_Sub',3,1)=False then + begin + // ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_sub where 1<>2 '); + Open; + end; + with ADOQueryCmd do + begin + append; + Fieldbyname('MainID').Value:=fmainID; + Fieldbyname('subID').Value:=fsubID; + Fieldbyname('ConNO').Value:=fconNo; + Fieldbyname('C_Code').Value:=''; + Fieldbyname('C_CodeName').Value:=trim(P_CodeName.text); + Fieldbyname('C_Spec').Value:=''; + Fieldbyname('C_Color').Value:=trim(P_color.text); + Fieldbyname('BCGangNo').Value:=trim(ADOQueryTemp.fieldbyname('BCGangNo').AsString); + Fieldbyname('C_UNit').Value:=trim(ADOQueryTemp.fieldbyname('QtyUnit').AsString); + Fieldbyname('Qty1').Value:=ADOQueryTemp.fieldbyname('RollNum').AsFloat; + Fieldbyname('C_Qty').Value:=ADOQueryTemp.fieldbyname('Qty').AsFloat; + Fieldbyname('C_Status').Value:='0'; + post; + end; + ADOQueryTemp.Next; + end; + result:=true; + except + end; +end; +function TfrmCKProductCK_Other.SaveEjK(FNO,FID,fBCID,fCkNO:string):boolean; +var + fkcID:integer; + Filler:string; + FillTime:TdateTime; +begin + result:=false; + try + + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update BP_Kcid Set kcid=kcid+1'); + sql.Add('select kcid from BP_Kcid'); + Open; + end; + fkcID:=ADOQueryCmd.fieldbyname('kcid').AsInteger; + + with CDS_SubSel do + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from BP_InOut'); + sql.Add('where 1=2 '); + open; + end; + // fkcID:=strtoint(RightBStr(trim(FNO),length(FNO)-3)+trim(FID)); + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('CRNO').Value:=trim(FNO); + ADOQueryCmd.FieldByName('CRID').Value:=FID; + ADOQueryCmd.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTIme.Date); + IF trim(CRType.Text)='Ʒ' then + begin + ADOQueryCmd.FieldByName('CKName').Value:='Ʒֿ'; + ADOQueryCmd.FieldByName('CRType').Value:='Ʒ'; + end; + IF trim(CRType.Text)='㶫' then + begin + ADOQueryCmd.FieldByName('CKName').Value:='㶫ֿ'; + ADOQueryCmd.FieldByName('CRType').Value:='㶫'; + end; + ADOQueryCmd.FieldByName('CRFlag').Value:=''; + ADOQueryCmd.FieldByName('mainID').Value:=trim(fieldbyname('mainID').AsString); + 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('C_Code').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value:=trim(fieldbyname('C_CodeName').AsString); + ADOQueryCmd.FieldByName('P_spec').Value:=trim(fieldbyname('C_spec').AsString); + ADOQueryCmd.FieldByName('P_Color').Value:=trim(fieldbyname('C_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('KCRollNum').AsFloat; + ADOQueryCmd.FieldByName('Qty').Value:=fieldbyname('KCQty').AsFloat; + ADOQueryCmd.FieldByName('QtyUnit').Value:=trim(fieldbyname('kcQtyUnit').AsString); + ADOQueryCmd.FieldByName('note').Value:=''; + ADOQueryCmd.FieldByName('Filler').Value:=trim(Filler); + ADOQueryCmd.FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + ADOQueryCmd.FieldByName('fromMainID').Value:=trim(fCkNO); + ADOQueryCmd.FieldByName('FromSubID').Value:=trim(FbcID); + ADOQueryCmd.FieldByName('gangNO').Value:=trim(fieldbyname('AOrdDefStr1').AsString); + ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + ADOQueryCmd.Post; + + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from BP_KC'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + IF trim(CRType.Text)='Ʒ' then + begin + ADOQueryCmd.FieldByName('CKName').Value:='Ʒֿ'; + ADOQueryCmd.FieldByName('CRType').Value:='Ʒ'; + end; + IF trim(CRType.Text)='㶫' then + begin + ADOQueryCmd.FieldByName('CKName').Value:='㶫ֿ'; + ADOQueryCmd.FieldByName('CRType').Value:='㶫'; + end; + ADOQueryCmd.FieldByName('CRNO').Value:=trim(fNo); + ADOQueryCmd.FieldByName('CRID').Value:=fID; + ADOQueryCmd.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRTIme.Date); + 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('CPType').AsString); + ADOQueryCmd.FieldByName('P_Code').Value:=trim(fieldbyname('C_Code').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value:=trim(fieldbyname('C_CodeName').AsString); + ADOQueryCmd.FieldByName('P_spec').Value:=trim(fieldbyname('C_spec').AsString); + ADOQueryCmd.FieldByName('P_Color').Value:=trim(fieldbyname('C_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('KCRollNum').AsFloat; + ADOQueryCmd.FieldByName('Qty').Value:=fieldbyname('kCQty').AsFloat; + ADOQueryCmd.FieldByName('QtyUnit').Value:=trim(fieldbyname('KCQtyUnit').AsString); + ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + ADOQueryCmd.Post; + end; + result:=true; + except + end; +end; +function TfrmCKProductCK_Other.SaveJG(fCkNO:string):boolean; +var + maxno,LLIdx,dhID,FDW:string; + fRollNum:double; + fQty:double; +begin + result:=false; + fQty:=0; + fRollNum:=0; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select MainID,subID,BCGangNO,C_Color,QtyUnit,sum(RollNum) as RollNum,suM(Qty) as Qty '); + sql.Add('from CK_BanCP_CR1 A'); + sql.Add('where ckOrdNo='+quotedstr(trim(fCkNO))); + sql.Add('Group by MainID,subID,BCGangNO,C_Color,QtyUnit'); + open; + end; + + + try + while not ADOQueryTemp.Eof do + begin + if GetLSNo(ADOQueryCmd,maxno,'MX','Contract_Cloth_LLMx',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_LLMx where 1<>2 '); + Open; + end; + + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + FieldByName('DHId').Value:=Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + FieldByName('MXId').Value:=Trim(maxno); + FieldByName('OrdSubId').Value:=Trim(ADOQueryTemp.fieldbyname('SubId').AsString); + FieldByName('TPDate').Value:=CRTIME.Date; + FieldByName('TPPerson').Value:=''; + if trim(CRType.Text)='ӹ' then + FieldByName('TPNote').Value:='Ʒӹ'; + + if trim(CRType.Text)='޳' then + FieldByName('TPNote').Value:='Ʒ'; + + FieldByName('ToNo').Value:=trim(defstr1.TxtCode); + FieldByName('ToName').Value:=trim(defstr1.Text); + FieldByName('gangNO').Value:=''; + FieldByName('BCgangNO').Value:=ADOQueryTemp.fieldbyname('BCGangNO').Value; + FieldByName('C_Color').Value:=ADOQueryTemp.fieldbyname('C_Color').Value; + FieldByName('TPUnit').Value:=ADOQueryTemp.fieldbyname('QtyUnit').Value; + FieldByName('TPPS').Value:=ADOQueryTemp.fieldbyname('RollNum').Value; + FieldByName('TPQty').Value:=ADOQueryTemp.fieldbyname('Qty').Value; + FieldByName('TPMQty').Value:=ADOQueryTemp.fieldbyname('Qty').Value; + FieldByName('Qty1').Value:=0; + FieldByName('Qty2').Value:=0; + FieldByName('Qty3').Value:=0; + FieldByName('JGPrice').Value:=0; + FieldByName('GangFee').Value:=0; + if trim(CRType.Text)='ӹ' then + FieldByName('JGType').Value:='Ʒӹ'; + + if trim(CRType.Text)='޳' then + FieldByName('JGType').Value:='Ʒ'; + Post; + 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(ADOQueryTemp.fieldbyname('subID').AsString); + FieldByName('FirstNo').Value:=trim(defstr1.TxtCode); + FieldByName('FirstName').Value:=trim(defstr1.Text); + FieldByName('OrdSubId').Value:=Trim(ADOQueryTemp.fieldbyname('subID').AsString); + FieldByName('TPUnit').Value:=Trim(ADOQueryTemp.fieldbyname('QtyUnit').AsString); + FieldByName('LLIdx').Value:=1; + if trim(CRType.Text)='ӹ' then + FieldByName('JGType').Value:='Ʒӹ'; + if trim(CRType.Text)='޳' then + FieldByName('JGType').Value:='Ʒ'; + Post; + 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.MXID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(',TPQty=(select Sum(TPQty) from Contract_Cloth_LLMx A where A.MXID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(',BCPQty=(select Sum(Qty2) from Contract_Cloth_LLMx A where A.MXID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(', TPMQty=(select isnull(sum(TPMQty),0) from Contract_Cloth_LLMX A where A.MXID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(', BCPMQty=(select isnull(sum(MQty2),0) from Contract_Cloth_LLMX A where A.MXID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add('where LLID='''+Trim(maxno)+''''); + ExecSQL; + end; + ADOQueryTemp.Next; + end; + result:=true; + except + end; +end; +function TfrmCKProductCK_Other.savedate():boolean; +var + maxno:String; + CRID:Integer; + MaxCkNo:String; + i:integer; + rkNo:string; +begin + result:=false; + ADOQueryCmd.Connection.BeginTrans; + CDS_SubSel.DisableControls; + try + if GetLSNo(ADOQueryCmd,fkeyNo,'CT','CK_BanCP_CR1',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + if (trim(CRType.Text)='Ʒ') OR (trim(CRType.Text)='㶫') then + begin + if GetLSNo(ADOQueryCmd,rkNo,'RT','BP_InOut',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end; + i:=1; + with CDS_SubSel do + begin + DisableControls; + First; + while not Eof do + begin + // if fieldbyname('ssel').AsBoolean then + // begin + if GetLSNo(ADOQueryCmd,MaxCkNo,'CT','CK_BanCP_CR1',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR1 '); + sql.Add('where 1=2 '); + Open; + end; + with ADOQueryCmd do + begin + if IsEmpty then Append else edit; + FieldByName('MainId').Value:=Trim(CDS_SubSel.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(CDS_SubSel.fieldbyname('SubId').AsString); + FieldByName('C_Code').Value:=Trim(CDS_SubSel.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(CDS_SubSel.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(CDS_SubSel.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(CDS_SubSel.fieldbyname('C_Color').AsString); + FieldByName('APID').Value:=Trim(CDS_SubSel.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(CDS_SubSel.fieldbyname('MJId').AsString); + FieldByName('MJxh').Value:=Trim(CDS_SubSel.fieldbyname('MJxh').AsString); + FieldByName('kcKw').Value:=Trim(CDS_SubSel.fieldbyname('kcKw').AsString); + FieldByName('RCGangNo').Value:=Trim(CDS_SubSel.fieldbyname('RCGangNo').AsString); + FieldByName('BCGangNo').Value:=Trim(CDS_SubSel.fieldbyname('BCGangNo').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('ckordNo').Value:=Trim(fkeyNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',CRTime.DateTime); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=trim(CRType.Text); + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=Trim(CDS_SubSel.fieldbyname('CRID').AsString); + FieldByName('KGQty').Value:=CDS_SubSel.fieldbyname('KCKGQty').AsFloat; + FieldByName('Qty').Value:=CDS_SubSel.fieldbyname('KCQty').AsFloat; + FieldByName('RollNum').Value:=CDS_SubSel.fieldbyname('KCRollNum').AsFloat; + FieldByName('QtyUnit').Value:=CDS_SubSel.fieldbyname('KCQtyUnit').Value; + FieldByName('CPType').Value:=Trim(CDS_SubSel.fieldbyname('CPType').AsString); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + FieldByName('defstr1').Value:=trim(defstr1.Text); + FieldByName('note').Value:=trim(note.Text); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 '); + sql.Add('where CRID='+quotedstr(trim(CDS_SubSel.fieldbyname('CRID').AsString))); + Open; + end; + with ADOQueryCmd do + begin + if IsEmpty then Append else edit; + FieldByName('KCQty').Value:=FieldByName('KCQty').AsFloat - CDS_SubSel.fieldbyname('KCQty').AsFloat; + FieldByName('KCRollNum').Value:=FieldByName('KCRollNum').AsFloat - CDS_SubSel.fieldbyname('KCRollNum').AsFloat; + Post; + end; + + if (trim(CRType.Text)='Ʒ') OR (trim(CRType.Text)='㶫') then + begin + if not SaveEjK(rkNo,inttostr(i),MaxCkNo,fkeyNo) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + + i:=i+1; + // end; + CDS_SubSel.Next; + end; + end; + CDS_SubSel.EnableControls; + if (trim(CRType.Text)='ӹ') OR (trim(CRType.Text)='޳') then + begin + if not saveJG10(fkeyNo) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + result:=true; + except + CDS_SubSel.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmCKProductCK_Other.FormDestroy(Sender: TObject); +begin + frmCKProductCK_Other:=nil; +end; + +procedure TfrmCKProductCK_Other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductCK_Other.FormCreate(Sender: TObject); +begin + cxGrid2.Align:=alClient; + + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=BegDate.DateTime; + CRTIME.DateTime:= BegDate.DateTime; + IsCreateSel:=false; +// TBRafresh.Click; +end; + +procedure TfrmCKProductCK_Other.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + SQL.Add('exec P_View_CPKCMX_Other'); + SQl.Add('@ConNo='+quotedstr(trim(conNo.Text))); + SQl.Add(',@C_CodeName='+quotedstr(trim(C_CodeName.Text))); + SQl.Add(',@C_Color='+quotedstr(trim(C_Color.Text))); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + if not IsCreateSel then + begin + SCreateCDS20(ADOQueryMain,CDS_SubSel); + IsCreateSel:=true; + end; + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; +procedure TfrmCKProductCK_Other.TBRafreshClick(Sender: TObject); +begin + // BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCKProductCK_Other.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductCK_Other.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'Ʒֿ'); + // WriteCxGrid('ѡ',Tv2,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductCK_Other.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption,Tv1,'Ʒֿ'); + //ReadCxGrid('ѡ',Tv2,'Ʒֿ'); +// InitGridNull(); + //InitGrid(); +end; + +procedure TfrmCKProductCK_Other.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKProductCK_Other.TBFindClick(Sender: TObject); +var + strsql:string; +begin + if ADOQueryMain.Active then + begin + strsql:=SGetFilters(Panel1,1,2); + if trim(C_Color.Text)<>'' then + begin + if strsql='' then strsql:=' C_Color='+quotedstr(trim(C_Color.Text)) + else + strsql:=strsql+' and C_Color='+quotedstr(trim(C_Color.Text)); + end; + + if trim(edit1.Text)<>'' then + begin + if strsql='' then strsql:=' KCQty>='+inttostr(strtointdef(trim(edit1.Text),0)) + else + strsql:=strsql+' and KCQty>='+inttostr(strtointdef(trim(edit1.Text),0)); + end; + if trim(edit2.Text)<>'' then + begin + if strsql='' then strsql:=' KCQty<='+inttostr(strtointdef(trim(edit2.Text),0)) + else + strsql:=strsql+' and KCQty<='+inttostr(strtointdef(trim(edit2.Text),0)); + end; + SDofilter(ADOQueryMain,strsql); + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + end; +end; + +procedure TfrmCKProductCK_Other.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductCK_Other.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmCKProductCK_Other.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmCKProductCK_Other.Tv1MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +procedure TfrmCKProductCK_Other.ToolButton1Click(Sender: TObject); +begin + if not CDS_SubSel.Active then exit; + if CDS_SubSel.IsEmpty then exit; + CRTIME.SetFocus; +{ if not CDS_SubSel.Locate('SSel',True,[]) then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; } + if trim(CRType.Text)='' then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + if (trim(CRType.Text)='˻') then + begin + if trim(defstr1.Text)='' then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + end; + if (trim(CRType.Text)='ӹ')OR (trim(CRType.Text)='޳') then + begin + if trim(defstr1.Text)='' then + begin + Application.MessageBox('ûѡӹ!','ʾ',0); + Exit; + end; + if trim(P_CodeName.Text)='' then + begin + Application.MessageBox('ûѡƷ!','ʾ',0); + Exit; + end; + if trim(P_Color.Text)='' then + begin + Application.MessageBox('ûѡɫ!','ʾ',0); + Exit; + end; + { with CDS_Main do + begin + DisableControls; + First; + while not Eof do + begin + if fieldbyname('ssel').AsBoolean then + begin + if trim(Fieldbyname('MainId').AsString)='' then + begin + EnableControls; + application.MessageBox('ڳⲻܼӹ⣡','ʾϢ',0); + exit; + end; + end; + next; + end; + EnableControls; + end; } + end; + + + + if savedate() then + begin + application.MessageBox('ݱɹ','ʾϢ'); + ModalResult:=1; + end + else + application.MessageBox('ݱʧܣ','ʾϢ',0); +end; + +procedure TfrmCKProductCK_Other.Tv2CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + IF CDS_SubSel.IsEmpty then exit; + IF not CDS_Main.Locate('CRID',trim(CDS_SubSel.fieldbyname('CRID').AsString),[]) then + begin + InitCDSToCDS(CDS_SubSel,CDS_Main); + end; + CDS_SubSel.Delete; +end; + +procedure TfrmCKProductCK_Other.defstr1BtnClick(Sender: TObject); +begin + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + defstr1.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + defstr1.TxtCode:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + // LXTel.Text:=Trim(CDS_HZ.fieldbyname('DEFstr2').AsString); + // LXPerson.Text:=Trim(CDS_HZ.fieldbyname('DEFstr4').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmCKProductCK_Other.v2SSELPropertiesChange(Sender: TObject); +var + fNum:double; +begin + fnum:= strtofloatdef(Label19.Caption,0); + if CDS_Main.FieldByName('ssel').AsBoolean then + begin + fnum:=fnum + CDS_Main.fieldbyname('KCQty').AsFloat; + end + else + begin + fnum:=fnum - CDS_Main.fieldbyname('KCQty').AsFloat; + end; + + Label19.Caption:=floattostr(fnum); +end; + +procedure TfrmCKProductCK_Other.CheckBox1Click(Sender: TObject); +var + fNum:double; +begin + fNum:=0; + with CDS_Main do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('Ssel').Value:=CheckBox1.Checked; + if CheckBox1.Checked then + fNum:=fNum+ CDS_Main.fieldbyname('KCQty').AsFloat; + post; + next; + end; + first; + EnableControls; + end; +Label19.Caption:=floattostr(fnum); +end; + +procedure TfrmCKProductCK_Other.Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + IF CDS_Main.IsEmpty then exit; + + IF not CDS_SubSel.Locate('CRID',trim(CDS_Main.fieldbyname('CRID').AsString),[]) then + begin + InitCDSToCDS(CDS_Main,CDS_SubSel); + end; + CDS_Main.Delete; +end; + +procedure TfrmCKProductCK_Other.Button1Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + CDS_SubSel.DisableControls; + with CDS_Main do + begin + DisableControls; + first; + while CDS_Main.Locate('ssel',true,[]) do + begin + IF not CDS_SubSel.Locate('CRID',trim(CDS_Main.fieldbyname('CRID').AsString),[]) then + begin + InitCDSToCDS(CDS_Main,CDS_SubSel); + end; + CDS_Main.Delete; + end; + EnableControls; + end; + CDS_SubSel.EnableControls; +end; + +procedure TfrmCKProductCK_Other.P_CodeNameBtnClick(Sender: TObject); +begin + try + frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + if ShowModal=1 then + begin + P_CodeName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + P_Color.Text:=Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + end; + end; + finally + frmZdyAttachCP.Free; + end; +end; + +procedure TfrmCKProductCK_Other.P_ColorBtnClick(Sender: TObject); +begin + try + frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + if ShowModal=1 then + begin + // P_CodeName.Text:==Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + P_Color.Text:=Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + end; + end; + finally + frmZdyAttachCP.Free; + end; +end; + +procedure TfrmCKProductCK_Other.P_CodeNameExit(Sender: TObject); +var + mvalue:string; +begin + mvalue:=trim(P_CodeName.Text); + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + P_CodeName.Text:=trim(mvalue); + + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(P_CodeName.Text))); + open; + end; + IF ADOQueryCmd.IsEmpty then + begin + P_CodeName.Text:=''; + application.MessageBox('Ʒڣ','ʾϢ',0); + end; +end; + +procedure TfrmCKProductCK_Other.P_ColorExit(Sender: TObject); +var + mvalue:string; +begin + mvalue:=trim(P_Color.Text); + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + P_Color.Text:=trim(mvalue); + + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(P_CodeName.Text))); + sql.Add('and DEFstr3='+quotedstr(trim(P_Color.Text))); + open; + end; + IF ADOQueryCmd.IsEmpty then + begin + P_Color.Text:=''; + application.MessageBox('ɫڣ','ʾϢ',0); + end; +end; + +procedure TfrmCKProductCK_Other.CRTIMEKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + Key := #0; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +end. diff --git a/管理系统/U_CKProductCPKCHZList_Yj.dfm b/管理系统/U_CKProductCPKCHZList_Yj.dfm new file mode 100644 index 0000000..fc7f954 --- /dev/null +++ b/管理系统/U_CKProductCPKCHZList_Yj.dfm @@ -0,0 +1,488 @@ +object frmCKProductCPKCHZList_Yj: TfrmCKProductCPKCHZList_Yj + Left = 55 + Top = 141 + 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 = 44 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 315 + Top = 16 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 672 + Top = 16 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 784 + Top = 64 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + Visible = False + end + object Label2: TLabel + Left = 820 + Top = 88 + Width = 12 + Height = 12 + Caption = #33267 + Visible = False + end + object Label5: TLabel + Left = 32 + Top = 60 + 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 = 240 + Top = 64 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label11: TLabel + Left = 496 + Top = 16 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + end + object Label12: TLabel + Left = 144 + Top = 16 + Width = 52 + Height = 12 + Caption = #39044#35686#22825#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 = 20 + Top = 15 + Width = 52 + Height = 12 + Caption = #24179#22343#22825#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object C_CodeName: TEdit + Tag = 2 + Left = 364 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = C_CodeNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 696 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = C_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 833 + Top = 61 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + Visible = False + end + object EndDate: TDateTimePicker + Left = 833 + Top = 93 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + Visible = False + end + object conNO: TEdit + Tag = 2 + Left = 82 + Top = 61 + Width = 109 + 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 Edit1: TEdit + Left = 268 + Top = 60 + Width = 113 + Height = 20 + TabOrder = 9 + end + object C_CodeName_ZW: TEdit + Tag = 2 + Left = 544 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = C_CodeNameChange + end + object days2: TcxCurrencyEdit + Left = 200 + Top = 12 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Properties.NullString = '3' + TabOrder = 11 + Width = 50 + end + object days: TcxCurrencyEdit + Left = 80 + Top = 12 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Properties.NullString = '7' + TabOrder = 12 + Width = 50 + end + object CheckBox1: TCheckBox + Left = 840 + Top = 16 + Width = 97 + Height = 17 + Caption = #26174#31034#39044#35686 + TabOrder = 13 + OnClick = CheckBox1Click + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 77 + Width = 1011 + Height = 396 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCustomDrawCell = Tv1CustomDrawCell + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + Column = v1KCRollNum + end + item + Kind = skSum + Column = v1Column2 + end + item + Kind = skSum + Column = v1Column3 + 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 v2Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 161 + end + object v1Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName_ZW' + HeaderAlignmentHorz = taCenter + Width = 143 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 94 + end + object v1KCRollNum: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column6: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object v1Column7: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'KCQtyUnit' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object v1Column2: TcxGridDBColumn + Caption = #25152#38656#21305#25968 + DataBinding.FieldName = 'X_RollNum' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column3: TcxGridDBColumn + Caption = #25152#38656#25968#37327 + DataBinding.FieldName = 'X_Qty' + HeaderAlignmentHorz = taCenter + Width = 100 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object MovePanel2: TMovePanel + Left = 320 + 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_CKProductCPKCHZList_Yj.pas b/管理系统/U_CKProductCPKCHZList_Yj.pas new file mode 100644 index 0000000..a9d5e5c --- /dev/null +++ b/管理系统/U_CKProductCPKCHZList_Yj.pas @@ -0,0 +1,207 @@ +unit U_CKProductCPKCHZList_Yj; + +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, cxContainer, + cxTextEdit, cxCurrencyEdit; + +type + TfrmCKProductCPKCHZList_Yj = 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; + C_CodeName: TEdit; + C_Color: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Tv1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + Label5: TLabel; + conNO: TEdit; + Label6: TLabel; + MJID: TEdit; + v1Column7: TcxGridDBColumn; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + MovePanel2: TMovePanel; + v1KCRollNum: TcxGridDBColumn; + Label10: TLabel; + Edit1: TEdit; + v1Column1: TcxGridDBColumn; + C_CodeName_ZW: TEdit; + Label11: TLabel; + Label12: TLabel; + days2: TcxCurrencyEdit; + days: TcxCurrencyEdit; + Label13: TLabel; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + CheckBox1: TCheckBox; + 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 CheckBox1Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCKProductCPKCHZList_Yj: TfrmCKProductCPKCHZList_Yj; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmCKProductCPKCHZList_Yj.FormDestroy(Sender: TObject); +begin + frmCKProductCPKCHZList_Yj:=nil; +end; + +procedure TfrmCKProductCPKCHZList_Yj.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCKProductCPKCHZList_Yj.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCKProductCPKCHZList_Yj.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' exec P_Get_KC_warning '); + sql.Add(' @days='''+inttostr(strtointdef(days.TEXT,1))+''' '); + sql.Add(',@days2='+inttostr(strtointdef(days2.TEXT,0))); + if CheckBox1.Checked then + sql.Add(',@flag=''1'' ') + else + sql.Add(',@flag=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmCKProductCPKCHZList_Yj.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCKProductCPKCHZList_Yj.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCKProductCPKCHZList_Yj.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCKProductCPKCHZList_Yj.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption,Tv1,'Ʒֿ'); +end; + +procedure TfrmCKProductCPKCHZList_Yj.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel('б',cxGrid2); +end; + +procedure TfrmCKProductCPKCHZList_Yj.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 TfrmCKProductCPKCHZList_Yj.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCKProductCPKCHZList_Yj.Tv1CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + IF (not varisnull(AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('X_Qty').Index])) and (AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('KCQty').Index]-AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('X_Qty').Index])<0 then + begin + ACanvas.Brush.Color:=clred; + end; +end; + +procedure TfrmCKProductCPKCHZList_Yj.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +end. diff --git a/管理系统/U_CKSMEdit.dfm b/管理系统/U_CKSMEdit.dfm new file mode 100644 index 0000000..e4d11ca --- /dev/null +++ b/管理系统/U_CKSMEdit.dfm @@ -0,0 +1,728 @@ +object frmCKSMEdit: TfrmCKSMEdit + Left = 359 + Top = 212 + Width = 1366 + Height = 738 + Caption = #25195#25551#37197#36135 + 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 = 1350 + Height = 33 + 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_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 ToolButton1: TToolButton + Left = 63 + Top = 0 + Caption = #25209#37327#24211#23384#20462#25913 + ImageIndex = 16 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 170 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 12 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 257 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1350 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label16: TLabel + Left = 824 + Top = 28 + Width = 80 + Height = 20 + Caption = #36135#36816#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 428 + Top = 28 + Width = 80 + Height = 20 + Caption = #37197#36135#20154#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 654 + Top = 28 + Width = 40 + Height = 20 + Caption = #21253#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label1: TLabel + Left = 24 + Top = 24 + 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 PHYG: TBtnEditA + Left = 508 + Top = 24 + Width = 100 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnBtnClick = PHYGBtnClick + end + object defstr2: TComboBox + Left = 908 + Top = 24 + Width = 100 + Height = 28 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [] + ItemHeight = 20 + ItemIndex = 0 + ParentFont = False + TabOrder = 2 + Items.Strings = ( + '' + #24555#20214 + #24930#20214) + end + object packNo: TcxCurrencyEdit + Left = 694 + Top = 24 + ParentFont = False + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -20 + Style.Font.Name = #23435#20307 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 3 + Width = 100 + end + object SmNO: TEdit + Left = 128 + Top = 20 + Width = 153 + Height = 32 + CharCase = ecUpperCase + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = SmNOKeyPress + end + object CheckBox1: TCheckBox + Left = 1024 + Top = 29 + Width = 99 + Height = 19 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + OnClick = CheckBox1Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 93 + Width = 569 + Height = 606 + Align = alLeft + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + 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 + Styles.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_fontBlack + object v1MJID: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 133 + end + object v1MJXH: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1P_Code: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PrtCodeName' + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v1P_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PrtRollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 73 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PrtOrderQty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 76 + end + object v1Column1: TcxGridDBColumn + Caption = #37197#36135#21305#25968 + DataBinding.FieldName = 'PHRollNum' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 68 + end + object v1Column2: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'PHQty' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 71 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel2: TPanel + Left = 584 + Top = 104 + Width = 749 + Height = 405 + Caption = 'Panel2' + TabOrder = 3 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 747 + Height = 403 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + 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> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.Inserting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_fontBlack + object V2Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Width = 66 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #25195#25551#20449#24687 + DataBinding.FieldName = 'SDefNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 204 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 70 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 102 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 166 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object V2Column1: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + object MovePanel1: TMovePanel + Left = 88 + Top = 153 + Width = 561 + Height = 305 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 4 + Visible = False + object Label2: TLabel + Left = 84 + 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 = 85 + Top = 35 + Width = 386 + Height = 72 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Text = '91209120001' + end + object Button4: TButton + Left = 224 + Top = 248 + Width = 75 + Height = 41 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button4Click + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 404 + Top = 216 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 492 + Top = 252 + end + object CDSOrder: TClientDataSet + Aggregates = <> + Params = <> + Left = 172 + Top = 144 + end + object CDSMJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 732 + Top = 212 + end + object DataSource1: TDataSource + DataSet = CDSOrder + Left = 232 + Top = 160 + end + object DataSource2: TDataSource + DataSet = CDSMJID + Left = 872 + Top = 248 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 352 + Top = 312 + end + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clInactiveCaption + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + 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 = -29 + 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 = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridFoot: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridHead: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + 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 = -29 + 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 = -29 + 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 = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontclFuchsia: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + 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 = -29 + 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 = -29 + 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 = -29 + 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 = -29 + 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 = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + 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 RMXLSExport2: 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 + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 608 + Top = 264 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 648 + Top = 232 + end +end diff --git a/管理系统/U_CKSMEdit.pas b/管理系统/U_CKSMEdit.pas new file mode 100644 index 0000000..1979d4a --- /dev/null +++ b/管理系统/U_CKSMEdit.pas @@ -0,0 +1,771 @@ +unit U_CKSMEdit; + +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, cxCheckBox, RM_Common, RM_Class, + RM_e_Xls, RM_GridReport, RM_System, RM_Dataset, MMSystem, 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 + TfrmCKSMEdit = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + PHYG: TBtnEditA; + defstr2: TComboBox; + Label16: TLabel; + Label15: TLabel; + packNo: TcxCurrencyEdit; + Label14: TLabel; + Label1: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1MJID: TcxGridDBColumn; + v1MJXH: TcxGridDBColumn; + v1P_Code: TcxGridDBColumn; + v1P_Color: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + 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; + CDSOrder: TClientDataSet; + CDSMJID: TClientDataSet; + DataSource1: TDataSource; + DataSource2: TDataSource; + SmNO: TEdit; + ADOQueryTmp: TADOQuery; + MovePanel1: TMovePanel; + Label2: TLabel; + Edit2: TEdit; + Button4: TButton; + V2Column1: 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; + ToolButton1: TToolButton; + V2Column2: TcxGridDBColumn; + CheckBox1: TCheckBox; + ToolButton2: TToolButton; + RMGridReport1: TRMGridReport; + RMXLSExport2: TRMXLSExport; + ADOQueryPrint: TADOQuery; + RMDB_Main: TRMDBDataSet; + ADOQuery1: TADOQuery; + 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 TBSaveClick(Sender: TObject); + procedure PHYGBtnClick(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + procedure InitGrid(); + procedure InitOrder(); + procedure InitMJID(); + function SavePH(): Boolean; + { Private declarations } + public + FphRollNum, FphQty: double; + FOrderType: string; + { Public declarations } + end; + +var + frmCKSMEdit: TfrmCKSMEdit; + +implementation + +uses + U_DataLink, U_Fun, U_UserHelp, U_KCEdit; +{$R *.dfm} + +function TfrmCKSMEdit.SavePH(): Boolean; +var + phRollNum, phQty: double; + phID: string; + P_ID: integer; +begin + if FOrderType = '' then + begin + + phRollNum := 0; + phQty := 0; + with CDSMJID do + begin + DisableControls; + first; + while not eof do + begin + phRollNum := phRollNum + CDSMJID.fieldbyname('RollNum').AsFloat; + phQty := phQty + CDSMJID.fieldbyname('Qty').AsFloat; + next; + end; + first; + EnableControls; + end; + if (phRollNum > FphRollNum) or (phQty > FphQty) then + begin + Application.MessageBox('ܳ', 'ʾ', 0); + Exit; +// if Application.MessageBox('δﵽҪȷ', 'ʾϢ', 32 + 4) <> IDYES then +// Exit; + end; + end; + Result := false; + ADOQueryCmd.Connection.BeginTrans; + P_ID := 1; + try + with CDSMJID do + begin + DisableControls; + first; + while not eof do + begin + if trim(CDSMJID.fieldbyname('SDefNote').AsString) = 'ɨɹ' then + begin + if GetLSNo(ADOQueryTmp, phID, 'PH', 'CK_BanCP_PH', 4, 1) = False then + begin + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_PH '); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('phID').Value := trim(phID); + ADOQueryCmd.FieldByName('p_No').Value := trim(fieldbyname('p_No').AsString); + ADOQueryCmd.FieldByName('p_ID').Value := P_ID; +// ADOQueryCmd.FieldByName('conNo').Value:=trim(fieldbyname('conNo').AsString); + ADOQueryCmd.FieldByName('MainID').Value := trim(fieldbyname('MainID').AsString); + ADOQueryCmd.FieldByName('SubID').Value := trim(fieldbyname('SubID').AsString); + ADOQueryCmd.FieldByName('PMainID').Value := trim(fieldbyname('PMainID').AsString); + ADOQueryCmd.FieldByName('PSubID').Value := trim(fieldbyname('PSubID').AsString); + ADOQueryCmd.FieldByName('mjID').Value := trim(fieldbyname('mjID').AsString); + ADOQueryCmd.FieldByName('CRID').Value := trim(fieldbyname('CRID').AsString); + ADOQueryCmd.FieldByName('qtyunit').Value := trim(fieldbyname('qtyunit').AsString); + ADOQueryCmd.FieldByName('defstr2').Value := trim(defstr2.Text); + ADOQueryCmd.FieldByName('packNo').Value := trim(packNO.Text); + ADOQueryCmd.FieldByName('qty').Value := fieldbyname('qty').AsFloat; + ADOQueryCmd.FieldByName('Rollnum').Value := fieldbyname('Rollnum').AsFloat; + ADOQueryCmd.FieldByName('Filler').Value := trim(DName); + ADOQueryCmd.FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTmp); + ADOQueryCmd.FieldByName('BCGangNo').Value := trim(fieldbyname('BCgangNO').AsString); + ADOQueryCmd.FieldByName('PHYG').Value := trim(PHYG.Text); + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where mjid=' + quotedstr(trim(CDSMJID.fieldbyname('mjid').AsString))); + sql.Add('and CRID=' + quotedstr(trim(CDSMJID.fieldbyname('CRID').AsString))); + open; + edit; + fieldbyname('kcstatus').Value := '1'; + post; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_sub '); + sql.Add('where mainID=' + quotedstr(trim(CDSMJID.fieldbyname('mainID').AsString))); + sql.Add('and subID=' + quotedstr(trim(CDSMJID.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value := '2'; + post; + end; + P_ID := P_ID + 1; + end; + next; + end; + first; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + Result := true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmCKSMEdit.InitGrid(); +begin +// FphRollNum := FphRollNum; +// FphQty :=FphQty; +// FOrderType := FOrderType; + + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.OrderType,B.CustomerNoName,PHRollNum=0.00,PHQty=0.00 from JYOrder_sub A'); + SQL.Add('inner join JYOrder_main B on B.mainID=A.mainID'); + SQL.Add('where 1=2 '); + Open; + end; + SCreateCDS20(ADOQueryMain, CDSOrder); + SInitCDSData20(ADOQueryMain, CDSOrder); + + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.PmainID,PSubID,P_NO from CK_BanCP_CR A '); + SQL.Add('inner join CK_BanCP_PH B on B.PHID=A.PHID '); + SQL.Add('where 1=2 '); + Open; + end; + SCreateCDS20(ADOQueryMain, CDSMJID); + SInitCDSData20(ADOQueryMain, CDSMJID); + +end; + +procedure TfrmCKSMEdit.InitOrder(); +var + fP_No: string; +begin + MovePanel1.Visible := false; + CDSMJID.EmptyDataSet; + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add(' select A.*,B.CustomerNoName,PHRollNum=0.00,PHQty=0.00,P_No=A.SOrdDefNote2 from JYOrder_sub A'); + SQL.Add(' inner join JYOrder_main B on B.mainID=A.mainID and isnull(B.status,''0'')>''0'' '); + SQL.Add(' where A.mainID=' + quotedstr(trim(SmNO.text))); + SQL.Add(' and isnull(A.substatus,''0'')<=''2'' '); + Open; + end; + if ADOQueryMain.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); + exit; + end + else + begin + SCreateCDS20(ADOQueryMain, CDSOrder); + SInitCDSData20(ADOQueryMain, CDSOrder); + with CDSOrder do + begin + DisableControls; + first; + while not eof do + begin + if GetLSNo(ADOQueryTmp, fP_No, 'PN', 'CK_BanCP_PH', 4, 1) then + begin + edit; + fieldbyname('P_No').Value := trim(fP_No); + post; + end + else + begin + MovePanel1.Visible := true; + Edit2.Enabled := false; + Label2.Caption := 'ɱŴ'; + EnableControls; + exit; + end; + next; + end; + first; + EnableControls; + end; + end; + +end; + +procedure TfrmCKSMEdit.InitMJID(); +var + fP_No: string; +begin + MovePanel1.Visible := false; + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.mainID,B.subID from CK_BanCP_KC A'); + sql.add('left join CK_BanCP_CR B on B.BCID=A.BCID and B.CRFlag='''' '); + SQL.Add('where A.MJID=' + quotedstr(trim(SmNO.text))); + sql.Add('and isnull(A.KCStatus,''0'')=''0'' '); + sql.Add('and KCQty>0 '); + Open; + if not IsEmpty then + begin + if Fieldbyname('KCQty').AsFloat <= 0 then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value := 'ѳ'; + CDSMJID.FieldByName('MJID').Value := trim(SmNO.Text); + CDSMJID.Post; + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ѳ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ѳ.wav'), 0, SND_ASYNC); + end + else + begin + with ADOQueryTmp do + begin + Close; + sql.Clear; + SQL.Add('select B.mainID,B.subID from CK_BanCP_KC A'); + sql.Add('inner join JYorder_Sub B on B.PRTCodeName=A.C_CodeName and B.PRtColor=A.C_Color'); + SQL.Add('where A.MJID=' + quotedstr(trim(SmNO.text))); + SQL.Add('and B.mainID=' + quotedstr(trim(CDSOrder.Fieldbyname('mainID').AsString))); + Open; + if ADOQueryTmp.IsEmpty then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value := 'ƷɫӦ'; + CDSMJID.FieldByName('MJID').Value := trim(SmNO.Text); + CDSMJID.Post; + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ƷɫӦ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ƷɫӦ.wav'), 0, SND_ASYNC); + end + else + begin + if (ADOQueryMain.fieldbyName('BHFlag').AsBoolean) and (trim(ADOQueryMain.fieldbyName('BHOrderNo').AsString) <> trim(ADOQueryTmp.fieldbyName('mainID').AsString)) then + begin +// if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\DZ.wav')) then +// PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\DZ.wav'), 0, SND_ASYNC); +// if Application.MessageBox('DZ,Ƿ', 'ʾ', 32 + 4) <> IDYES then +// Exit; + end; + if CDSOrder.Locate('subID', trim(ADOQueryTmp.fieldbyname('subID').AsString), []) then + begin + fP_No := CDSOrder.fieldbyname('P_NO').AsString; + end; + if CDSMJID.Locate('MJID', trim(ADOQueryMain.fieldbyname('MJID').AsString), []) then + CDSMJID.Edit + else + 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('C_CodeName').Value := trim(ADOQueryMain.Fieldbyname('C_CodeName').AsString); + CDSMJID.FieldByName('C_Color').Value := trim(ADOQueryMain.Fieldbyname('C_Color').AsString); + CDSMJID.FieldByName('CPType').Value := trim(ADOQueryMain.Fieldbyname('CPType').AsString); + CDSMJID.FieldByName('RollNum').Value := ADOQueryMain.Fieldbyname('kcRollNum').AsFloat; + CDSMJID.FieldByName('Qty').Value := ADOQueryMain.Fieldbyname('kcQty').AsFloat; + CDSMJID.FieldByName('QtyUnit').Value := trim(ADOQueryMain.Fieldbyname('kcQtyUnit').AsString); + CDSMJID.FieldByName('mainID').Value := trim(ADOQueryTmp.Fieldbyname('mainID').AsString); + CDSMJID.FieldByName('subID').Value := trim(ADOQueryTmp.Fieldbyname('subID').AsString); + CDSMJID.FieldByName('P_NO').Value := trim(fP_No); + CDSMJID.FieldByName('PmainID').Value := trim(ADOQueryMain.Fieldbyname('mainID').AsString); + CDSMJID.FieldByName('PsubID').Value := trim(ADOQueryMain.Fieldbyname('subID').AsString); + CDSMJID.FieldByName('BCgangNO').Value := trim(ADOQueryMain.Fieldbyname('BCgangNO').AsString); + // CDSMJID.FieldByName('conNo').Value:=trim(ADOQueryMain.Fieldbyname('conNo').AsString); + CDSMJID.Post; + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ȷ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ȷ.wav'), 0, SND_ASYNC); + end; + end; + end; + end + else + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value := '벻ڻѾ'; + CDSMJID.FieldByName('MJID').Value := trim(SmNO.Text); + CDSMJID.Post; + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɨ.wav'), 0, SND_ASYNC); + end; + end; + if trim(CDSMJID.FieldByName('SDefNote').AsString) <> 'ɨɹ' then + begin + MovePanel1.Visible := true; + Edit2.Text := SmNO.Text; + Label2.Caption := trim(CDSMJID.FieldByName('SDefNote').AsString); + end; +end; + +procedure TfrmCKSMEdit.FormDestroy(Sender: TObject); +begin + wRITECxGrid(self.Caption + tV1.Name, Tv1, 'Ʒֿ'); + wRITECxGrid(self.Caption + TV2.Name + '2', Tv2, 'Ʒֿ'); + frmCKSMEdit := nil; +end; + +procedure TfrmCKSMEdit.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := cafree; +end; + +procedure TfrmCKSMEdit.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmCKSMEdit.FormCreate(Sender: TObject); +begin + Panel2.Align := alClient; +end; + +procedure TfrmCKSMEdit.SmNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + MovePanel1.Visible := false; + if trim(smno.Text) = '' then + exit; + if (uppercase(leftBstr(trim(smno.Text), 2)) = 'JM') or (uppercase(leftBstr(trim(smno.Text), 3)) = 'ZJM') then + begin + inItorder(); + end + else + begin + if CDSOrder.IsEmpty then + begin + MovePanel1.Visible := true; + Edit2.Text := SmNO.Text; + Label2.Caption := 'Ϊգ'; + smno.Text := ''; + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\Ϊ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\Ϊ.wav'), 0, SND_ASYNC); + exit; + end; + if not CDSMJID.Locate('MJID', trim(smNo.Text), []) then + initMjid(); + end; + smno.Text := ''; + smno.SetFocus; + end; +end; + +procedure TfrmCKSMEdit.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption + tV1.Name, Tv1, 'Ʒֿ'); + ReadCxGrid(self.Caption + TV2.Name + '2', Tv2, 'Ʒֿ'); + MovePanel1.Left := (Width - MovePanel1.Width) div 2; + MovePanel1.top := (Height - MovePanel1.Height - 200) div 2; + InitGrid(); +end; + +procedure TfrmCKSMEdit.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 TfrmCKSMEdit.TBSaveClick(Sender: TObject); +begin + if CDSOrder.IsEmpty then + exit; + if CDSMJID.IsEmpty then + exit; + if trim(CDSOrder.FieldByName('CustomerNoName').AsString) = '㶫в' then + begin + if trim(packNo.Text) = '' then + begin + application.MessageBox('ŲΪգ', 'ʾϢ', 0); + exit; + end; + if trim(defstr2.Text) = '' then + begin + application.MessageBox('ͲΪգ', 'ʾϢ', 0); + exit; + end; + end; + { IF tv1.DataController.Summary.FooterSummaryValues[0]<>0 then + begin + IF tv1.DataController.Summary.FooterSummaryValues[0]<> tv2.DataController.Summary.FooterSummaryValues[0] then + begin + application.MessageBox('ƥܱͬݣ','ʾϢ',MB_ICONERROR); + exit; + end; + end; } + { IF tv1.DataController.Summary.FooterSummaryValues[1]>0 then + begin + { IF tv1.DataController.Summary.FooterSummaryValues[1]<> tv2.DataController.Summary.FooterSummaryValues[1] then + begin + // if Application.MessageBox('ͬǷ񱣴棿','ʾ',32+4)<>IDYES then Exit; + application.MessageBox('ܱͬݣ','ʾϢ',MB_ICONERROR); + exit; + end; + IF tv2.DataController.Summary.FooterSummaryValues[1]>tv1.DataController.Summary.FooterSummaryValues[1] then + begin + application.MessageBox('ڶܱݣ','ʾϢ',MB_ICONERROR); + exit; + end; + + end; } + + try + // ADOQueryCmd.Connection.BeginTrans; + if not savePh() then + begin + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; + end + else + begin + application.MessageBox('ɹ', 'ʾϢ'); + initGrid(); + exit; + end; + // ADOQueryCmd.Connection.CommitTrans; + except + // ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmCKSMEdit.PHYGBtnClick(Sender: TObject); +begin + frmUserHelp := TfrmUserHelp.Create(self); + with frmUserHelp do + begin + if showmodal = 1 then + begin + PHYG.Text := trim(ADOQueryHelp.fieldbyname('userName').AsString); + end; + free; + end; +end; + +procedure TfrmCKSMEdit.Button4Click(Sender: TObject); +begin + MovePanel1.Visible := false; +end; + +procedure TfrmCKSMEdit.ToolButton1Click(Sender: TObject); +var + kcQty, num1: double; + i: integer; + isEdit: boolean; +begin + if not CDSMJID.Active then + exit; + if CDSMJID.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + isEdit := false; + + frmKCEdit := TfrmKCEdit.create(self); + with frmKCEdit do + begin + if showmodal = 1 then + begin + num1 := strtofloatdef(cxCurrencyEdit2.Text, 0); + i := RadioGroup1.ItemIndex; + isEdit := true; + end; + free; + end; + + if isEdit = false then + exit; + + try + ADOQueryCmd.Connection.BeginTrans; + with CDSMJID do + begin + while CDSMJID.Locate('SSel', True, []) do + begin + if trim(Fieldbyname('SDefNote').AsString) = 'ɨɹ' then + begin + if i = 0 then + kcQty := CDSMJID.fieldbyname('Qty').AsFloat + num1; + if i = 1 then + kcQty := CDSMJID.fieldbyname('Qty').AsFloat - num1; + if i = 2 then + kcQty := strtofloat(format('%.1f', [CDSMJID.fieldbyname('Qty').AsFloat * num1])); + if i = 3 then + kcQty := strtofloat(format('%.1f', [CDSMJID.fieldbyname('Qty').AsFloat / num1])); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update CK_BanCP_KC Set ZDYFlote1=KCqty '); + sql.Add(' where CRID=' + CDSMJID.Fieldbyname('CRID').AsString); + sql.Add(' and ZDYFlote1=0 '); + sql.Add(' Update CK_BanCP_KC Set kcqty=''' + floattostr(kcQty) + ''',ZDYStr1='''' '); + sql.Add(' where CRID=' + CDSMJID.Fieldbyname('CRID').AsString); + sql.Add(' Update CK_BanCP_KC Set kcRollNum=0 '); + sql.Add(' where CRID=' + CDSMJID.Fieldbyname('CRID').AsString); + sql.Add(' and kcqty=0 and kcRollNum<>0 '); + ExecSQL; + end; + Edit; + FieldByName('qty').Value := kcQty; + FieldByName('SSel').Value := False; + post; + end + else + begin + Edit; + FieldByName('SSel').Value := False; + post; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + // initGrid(); + Application.MessageBox('ɹ!', 'ʾ', 0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +procedure TfrmCKSMEdit.CheckBox1Click(Sender: TObject); +begin + if CDSMJID.IsEmpty then + exit; + with CDSMJID do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value := checkbox1.Checked; + post; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmCKSMEdit.ToolButton2Click(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 CDSMJID.FieldByName('SSel').AsBoolean = True then + begin + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(CDSMJID.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); + CDSMJID.EnableControls; + exit; + end; + with ADOQueryPrint do //ӢƲҪƷжȡҪڿͻԶжȡnoteֶΡ + begin + Close; + SQL.Clear; + sql.Add('select A.*,kcQty as mjlen,kcQtyUnit as MJTypeother '); + sql.Add(' from CK_BanCP_KC A'); + SQL.Add(' where A.MJID=''' + Trim(CDSMJID.fieldbyname('MJID').AsString) + ''''); + SQL.Add(' and KCQty>0 '); + Open; + end; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨñǩ.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RMGridReport1.LoadFromFile(fPrintFile); + // RMGridReport1.ShowReport; + RMGridReport1.PrintReport; + end + else + begin + CDSMJID.EnableControls; + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ǩ.rmf'), 'ʾ', 0); + Exit; + end; + end; + Next; + end; + end; + CDSMJID.EnableControls; +end; + +end. + diff --git a/管理系统/U_CKSMEdit_other.dfm b/管理系统/U_CKSMEdit_other.dfm new file mode 100644 index 0000000..c1ab019 --- /dev/null +++ b/管理系统/U_CKSMEdit_other.dfm @@ -0,0 +1,628 @@ +object frmCKSMEdit_other: TfrmCKSMEdit_other + Left = 141 + Top = 72 + Width = 1087 + Height = 617 + Caption = #25195#25551#37197#36135 + 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 = 1297 + 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 + 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 = 33 + Width = 1297 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label16: TLabel + Left = 824 + Top = 28 + Width = 80 + Height = 20 + Caption = #36135#36816#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 428 + Top = 28 + Width = 80 + Height = 20 + Caption = #37197#36135#20154#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 654 + Top = 28 + Width = 40 + Height = 20 + Caption = #21253#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label1: TLabel + Left = 24 + Top = 24 + 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 PHYG: TBtnEditA + Left = 508 + Top = 24 + Width = 100 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + OnBtnClick = PHYGBtnClick + end + object defstr2: TComboBox + Left = 908 + Top = 24 + Width = 100 + Height = 28 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [] + ItemHeight = 20 + ItemIndex = 0 + ParentFont = False + TabOrder = 2 + Items.Strings = ( + '' + #24555#20214 + #24930#20214) + end + object packNo: TcxCurrencyEdit + Left = 694 + Top = 24 + ParentFont = False + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -20 + Style.Font.Name = #23435#20307 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 3 + Width = 100 + end + object SmNO: TEdit + Left = 128 + Top = 20 + Width = 153 + Height = 32 + CharCase = ecUpperCase + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = SmNOKeyPress + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 93 + Width = 569 + Height = 469 + Align = alLeft + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + 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 + Styles.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_fontBlack + object v1MJID: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 133 + end + object v1MJXH: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1P_Code: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PrtCodeName' + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v1P_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 62 + end + object v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PrtRollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 73 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PrtOrderQty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 76 + end + object v1Column1: TcxGridDBColumn + Caption = #37197#36135#21305#25968 + DataBinding.FieldName = 'PHRollNum' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 68 + end + object v1Column2: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'PHQty' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 71 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel2: TPanel + Left = 572 + Top = 96 + Width = 725 + Height = 345 + Caption = 'Panel2' + TabOrder = 3 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 723 + Height = 343 + 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> + 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.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_fontBlack + object cxGridDBColumn1: TcxGridDBColumn + Caption = #25195#25551#20449#24687 + DataBinding.FieldName = 'SDefNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 204 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 70 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 102 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 166 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object V2Column1: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNO' + HeaderAlignmentHorz = taCenter + Width = 84 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Width = 93 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + object MovePanel1: TMovePanel + Left = 232 + Top = 221 + Width = 561 + Height = 305 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 4 + Visible = False + object Label2: TLabel + Left = 108 + 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 = 85 + Top = 35 + Width = 386 + Height = 72 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Text = '91209120001' + end + object Button4: TButton + Left = 224 + Top = 248 + Width = 75 + Height = 41 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button4Click + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 404 + Top = 216 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 492 + Top = 252 + end + object CDSOrder: TClientDataSet + Aggregates = <> + Params = <> + Left = 172 + Top = 144 + end + object CDSMJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 732 + Top = 212 + end + object DataSource1: TDataSource + DataSet = CDSOrder + Left = 232 + Top = 160 + end + object DataSource2: TDataSource + DataSet = CDSMJID + Left = 872 + Top = 248 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 352 + Top = 312 + end + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clInactiveCaption + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + 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 = -29 + 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 = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridFoot: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridHead: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + 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 = -29 + 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 = -29 + 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 = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontclFuchsia: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + 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 = -29 + 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 = -29 + 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 = -29 + 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 = -29 + 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 = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end +end diff --git a/管理系统/U_CKSMEdit_other.pas b/管理系统/U_CKSMEdit_other.pas new file mode 100644 index 0000000..6d317b5 --- /dev/null +++ b/管理系统/U_CKSMEdit_other.pas @@ -0,0 +1,527 @@ +unit U_CKSMEdit_other; + +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; + +type + TfrmCKSMEdit_other = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + PHYG: TBtnEditA; + defstr2: TComboBox; + Label16: TLabel; + Label15: TLabel; + packNo: TcxCurrencyEdit; + Label14: TLabel; + Label1: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1MJID: TcxGridDBColumn; + v1MJXH: TcxGridDBColumn; + v1P_Code: TcxGridDBColumn; + v1P_Color: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + 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; + CDSOrder: TClientDataSet; + CDSMJID: TClientDataSet; + DataSource1: TDataSource; + DataSource2: TDataSource; + SmNO: TEdit; + ADOQueryTmp: TADOQuery; + MovePanel1: TMovePanel; + Label2: TLabel; + Edit2: TEdit; + Button4: TButton; + V2Column1: 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; + 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 TBSaveClick(Sender: TObject); + procedure PHYGBtnClick(Sender: TObject); + procedure Button4Click(Sender: TObject); + private + procedure InitGrid(); + procedure InitOrder(); + procedure InitMJID(); + function SavePH():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmCKSMEdit_other: TfrmCKSMEdit_other; + +implementation +uses + U_DataLink,U_Fun, U_UserHelp, U_ZDYHelp; +{$R *.dfm} +function TfrmCKSMEdit_other.SavePH():Boolean; +var + phID:string; + P_ID:integer; +begin + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + P_ID:=1; + try + with CDSMJID do + begin + DisableControls; + first; + while not eof do + begin + if trim(CDSMJID.fieldbyname('SDefNote').AsString)='ɨɹ' then + begin + if GetLSNo(ADOQueryTmp,phID,'PT','CK_BanCP_PH1',4,1)=False then + begin + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_PH1 '); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('phID').Value:=trim(phID); + ADOQueryCmd.FieldByName('p_No').Value:=trim(fieldbyname('p_No').AsString); + ADOQueryCmd.FieldByName('p_ID').Value:=P_ID; +// ADOQueryCmd.FieldByName('conNo').Value:=trim(fieldbyname('conNo').AsString); + ADOQueryCmd.FieldByName('MainID').Value:=trim(fieldbyname('MainID').AsString); + ADOQueryCmd.FieldByName('SubID').Value:=trim(fieldbyname('SubID').AsString); + ADOQueryCmd.FieldByName('PMainID').Value:=trim(fieldbyname('PMainID').AsString); + ADOQueryCmd.FieldByName('PSubID').Value:=trim(fieldbyname('PSubID').AsString); + ADOQueryCmd.FieldByName('mjID').Value:=trim(fieldbyname('mjID').AsString); + ADOQueryCmd.FieldByName('CRID').Value:=trim(fieldbyname('CRID').AsString); + ADOQueryCmd.FieldByName('qtyunit').Value:=trim(fieldbyname('qtyunit').AsString); + ADOQueryCmd.FieldByName('defstr2').Value:=trim(defstr2.Text); + ADOQueryCmd.FieldByName('packNo').Value:=trim(packNO.Text); + ADOQueryCmd.FieldByName('qty').Value:=fieldbyname('qty').AsFloat; + ADOQueryCmd.FieldByName('Rollnum').Value:=fieldbyname('Rollnum').AsFloat; + ADOQueryCmd.FieldByName('Filler').Value:=trim(DName); + ADOQueryCmd.FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTmp); + ADOQueryCmd.FieldByName('BCGangNo').Value:=trim(fieldbyname('BCgangNO').AsString); + ADOQueryCmd.FieldByName('PHYG').Value:=trim(PHYG.Text); + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 '); + sql.Add('where mjid='+quotedstr(trim(CDSMJID.fieldbyname('mjid').AsString))); + sql.Add('and CRID='+quotedstr(trim(CDSMJID.fieldbyname('CRID').AsString))); + open; + edit; + fieldbyname('kcstatus').Value:='1'; + post; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_sub '); + sql.Add('where mainID='+quotedstr(trim(CDSMJID.fieldbyname('mainID').AsString))); + sql.Add('and subID='+quotedstr(trim(CDSMJID.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value:='2'; + post; + end; + P_ID:=P_ID+1; + end; + next; + end; + first; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmCKSMEdit_other.InitGrid(); +begin + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.CustomerNoName,PHRollNum=0.00,PHQty=0.00 from JYOrder_sub A'); + SQL.Add('inner join JYOrder_main B on B.mainID=A.mainID'); + SQL.Add('where 1=2 '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDSOrder); + SInitCDSData20(ADOQueryMain,CDSOrder); + + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.PmainID,PSubID,P_NO from CK_BanCP_CR A '); + SQL.Add('inner join CK_BanCP_PH B on B.PHID=A.PHID '); + SQL.Add('where 1=2 '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDSMJID); + SInitCDSData20(ADOQueryMain,CDSMJID); + + +end; +procedure TfrmCKSMEdit_other.InitOrder(); +var + fP_No:string; +begin + MovePanel1.Visible:=false; + CDSMJID.EmptyDataSet; + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.CustomerNoName,PHRollNum=0.00,PHQty=0.00,P_No=A.SOrdDefNote2 from JYOrder_sub A'); + SQL.Add('inner join JYOrder_main B on B.mainID=A.mainID'); + SQL.Add('where A.mainID='+quotedstr(trim(SmNO.text))); + // SQL.Add('and syrName=''в'''); + Open; + end; + IF ADOQueryMain.IsEmpty then + begin + MovePanel1.Visible:=true; + Edit2.text:=SmNO.Text; + Label2.Caption:='Ųڣ'; + exit; + end + else + begin + SCreateCDS20(ADOQueryMain,CDSOrder); + SInitCDSData20(ADOQueryMain,CDSOrder); + with CDSOrder do + begin + DisableControls; + first; + while not eof do + begin + if GetLSNo(ADOQueryTmp,fP_No,'PNT','CK_BanCP_PH1',4,1) then + begin + edit; + fieldbyname('P_No').Value:=trim(fP_No); + post; + end + else + begin + MovePanel1.Visible:=true; + Edit2.Enabled:=false; + Label2.Caption:='ɱŴ'; + EnableControls; + exit; + end; + next; + end; + first; + EnableControls; + end; + end; + +end; +procedure TfrmCKSMEdit_other.InitMJID(); +var + fP_No:string; +begin + MovePanel1.Visible:=false; + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.mainID,B.subID from CK_BanCP_KC1 A'); + sql.add('left join CK_BanCP_CR1 B on B.BCID=A.BCID and B.CRFlag='''' '); + SQL.Add('where A.MJID='+quotedstr(trim(SmNO.text))); + sql.Add('and isnull(A.KCStatus,''0'')=''0'' '); + sql.Add('and KCQty>0 '); + Open; + if not IsEmpty then + begin + IF Fieldbyname('KCQty').AsFloat<=0 then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='ѳ'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + end + else + begin + with ADOQueryTmp do + begin + Close; + sql.Clear; + SQL.Add('select B.mainID,B.subID from CK_BanCP_KC1 A'); + sql.Add('inner join JYorder_Sub B on B.PRTCodeName=A.C_CodeName and B.PRtColor=A.C_Color'); + SQL.Add('where A.MJID='+quotedstr(trim(SmNO.text))); + SQL.Add('and B.mainID='+quotedstr(trim(CDSOrder.Fieldbyname('mainID').AsString))); + Open; + IF ADOQueryTmp.IsEmpty then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='ƷɫӦ'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + end + else + begin + if CDSOrder.Locate('subID',trim(ADOQueryTmp.fieldbyname('subID').AsString),[]) then + begin + fP_No:=CDSOrder.fieldbyname('P_NO').AsString; + end; + 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('C_CodeName').Value:=trim(ADOQueryMain.Fieldbyname('C_CodeName').AsString); + CDSMJID.FieldByName('C_Color').Value:=trim(ADOQueryMain.Fieldbyname('C_Color').AsString); + CDSMJID.FieldByName('CPType').Value:=trim(ADOQueryMain.Fieldbyname('CPType').AsString); + CDSMJID.FieldByName('RollNum').Value:=ADOQueryMain.Fieldbyname('kcRollNum').AsFloat; + CDSMJID.FieldByName('Qty').Value:=ADOQueryMain.Fieldbyname('kcQty').AsFloat; + CDSMJID.FieldByName('QtyUnit').Value:=trim(ADOQueryMain.Fieldbyname('kcQtyUnit').AsString); + CDSMJID.FieldByName('mainID').Value:=trim(ADOQueryTmp.Fieldbyname('mainID').AsString); + CDSMJID.FieldByName('subID').Value:=trim(ADOQueryTmp.Fieldbyname('subID').AsString); + CDSMJID.FieldByName('P_NO').Value:=trim(fP_No); + CDSMJID.FieldByName('PmainID').Value:=trim(ADOQueryMain.Fieldbyname('mainID').AsString); + CDSMJID.FieldByName('PsubID').Value:=trim(ADOQueryMain.Fieldbyname('subID').AsString); + CDSMJID.FieldByName('BCgangNO').Value:=trim(ADOQueryMain.Fieldbyname('BCgangNO').AsString); + // CDSMJID.FieldByName('conNo').Value:=trim(ADOQueryMain.Fieldbyname('conNo').AsString); + CDSMJID.Post; + end; + 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); + end; +end; + +procedure TfrmCKSMEdit_other.FormDestroy(Sender: TObject); +begin + wRITECxGrid(self.Caption+tV1.Name,Tv1,'Ʒֿ'); + wRITECxGrid(self.Caption+TV2.Name,Tv2,'Ʒֿ'); + frmCKSMEdit_other:=nil; +end; + +procedure TfrmCKSMEdit_other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure TfrmCKSMEdit_other.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmCKSMEdit_other.FormCreate(Sender: TObject); +begin + Panel2.Align:=alClient; +end; + +procedure TfrmCKSMEdit_other.SmNOKeyPress(Sender: TObject; var Key: Char); +begin + IF key=#13 then + begin + MovePanel1.Visible:=false; + if trim(smno.Text)='' then exit; + IF uppercase(leftBstr(trim(smno.Text),2))='JM' then + begin + inItorder(); + + end + else + begin + IF CDSOrder.IsEmpty then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='Ϊգ'; + smno.Text:=''; + exit; + end; + if not CDSMJID.Locate('MJID',trim(smNo.Text),[]) then + initMjid(); + end; + smno.Text:=''; + smno.SetFocus; + end; +end; + +procedure TfrmCKSMEdit_other.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption+tV1.Name,Tv1,'Ʒֿ'); + ReadCxGrid(self.Caption+TV2.Name,Tv2,'Ʒֿ'); + MovePanel1.Left:=(Width-MovePanel1.Width) div 2; + MovePanel1.top:=(Height-MovePanel1.Height-200) div 2; + InitGrid(); +end; + +procedure TfrmCKSMEdit_other.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 TfrmCKSMEdit_other.TBSaveClick(Sender: TObject); +begin + IF CDSOrder.IsEmpty then exit; + if CDSMJID.IsEmpty then exit; + IF (trim(CDSOrder.FieldByName('CustomerNoName').AsString)='㶫в') or (trim(CDSOrder.FieldByName('CustomerNoName').AsString)='в') then + begin + IF trim(packNo.Text)='' then + begin + application.MessageBox('ŲΪգ','ʾϢ',0); + exit; + end; + IF trim(defstr2.Text)='' then + begin + application.MessageBox('ͲΪգ','ʾϢ',0); + exit; + end; + end; + IF trim(CDSOrder.FieldByName('CustomerNoName').AsString)<>'㶫в'then + begin + IF tv1.DataController.Summary.FooterSummaryValues[0]<>0 then + begin + IF tv1.DataController.Summary.FooterSummaryValues[0]<> tv2.DataController.Summary.FooterSummaryValues[0] then + begin + application.MessageBox('ƥܱͬݣ','ʾϢ',MB_ICONERROR); + exit; + end; + end; + IF tv1.DataController.Summary.FooterSummaryValues[1]<>0 then + begin + IF tv1.DataController.Summary.FooterSummaryValues[1]<> tv2.DataController.Summary.FooterSummaryValues[1] then + begin + if Application.MessageBox('ͬǷ񱣴棿','ʾ',32+4)<>IDYES then Exit; + // application.MessageBox('ܱͬݣ','ʾϢ',MB_ICONERROR); + // exit; + end; + end; + end; + try + // ADOQueryCmd.Connection.BeginTrans; + IF not savePh() then + begin + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end + else + begin + application.MessageBox('ɹ','ʾϢ'); + initGrid(); + exit; + end; + // ADOQueryCmd.Connection.CommitTrans; + except + // ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmCKSMEdit_other.PHYGBtnClick(Sender: TObject); +begin +{ frmUserHelp:=TfrmUserHelp.Create(self); + with frmUserHelp do + begin + if showmodal=1 then + begin + PHYG.Text:=trim(ADOQueryHelp.fieldbyname('userName').AsString); + end; + free; + end; } + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PHYGFLAG'; + flagname:='Ա'; + if ShowModal=1 then + begin + PHYG.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCKSMEdit_other.Button4Click(Sender: TObject); +begin + MovePanel1.Visible:=false; +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_CPKWList.dfm b/管理系统/U_CPKWList.dfm new file mode 100644 index 0000000..75a7742 --- /dev/null +++ b/管理系统/U_CPKWList.dfm @@ -0,0 +1,349 @@ +object frmCPKWList: TfrmCPKWList + Left = 154 + Top = 77 + Width = 1038 + Height = 618 + Caption = #24211#20301#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 = 1026 + 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 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object TBOK: TToolButton + Left = 315 + Top = 0 + Caption = #30830#23450 + ImageIndex = 16 + OnClick = TBOKClick + end + object ToolButton1: TToolButton + Left = 374 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 437 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1026 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 203 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #20179#20301#32534#21495 + end + object Label2: TLabel + Left = 559 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label4: TLabel + Left = 378 + Top = 13 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object defstr1: TEdit + Tag = 2 + Left = 235 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = defstr1Change + end + object ZdyCode: TEdit + Tag = 2 + Left = 83 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = defstr1Change + end + object DEFstr3: TComboBox + Tag = 1 + Left = 588 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + OnChange = defstr1Change + Items.Strings = ( + '' + #22266#23450#26550 + #22791#29992#26550 + #20020#26102#22791#29992#26550) + end + object defstr2: TEdit + Tag = 2 + Left = 408 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = defstr1Change + end + end + object cxGrid2: TcxGrid + Left = 4 + Top = 70 + Width = 1022 + Height = 431 + 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 v2Column6: TcxGridDBColumn + Caption = #20179#20301#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 124 + end + object v2Column8: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'DEFstr1' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v2Column10: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'DEFStr2' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFStr3' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v2Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'mrate' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 114 + end + object v2Column2: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'CPNUm' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + 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 = 153 + 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_CPKWList.pas b/管理系统/U_CPKWList.pas new file mode 100644 index 0000000..3470c01 --- /dev/null +++ b/管理系统/U_CPKWList.pas @@ -0,0 +1,190 @@ +unit U_CPKWList; + +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 + TfrmCPKWList = 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; + defstr1: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + ToolButton3: TToolButton; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + ToolButton4: TToolButton; + v2Column8: TcxGridDBColumn; + Label2: TLabel; + DEFstr3: TComboBox; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + defstr2: TEdit; + Label4: TLabel; + v2Column2: TcxGridDBColumn; + TBOK: 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 defstr1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv2DblClick(Sender: TObject); + procedure TBOKClick(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + + public + + end; + +var + frmCPKWList: TfrmCPKWList; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCPKWList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*, '); + sql.Add(' cpNum=(select count(MJID) from CK_BanCP_KC X where X.KCKW=A.zdyCode and X.kcQty>0)'); + sql.Add(' from KH_Zdy_Attachment A '); + sql.Add(' where Type=''CPKW'' '); + sql.Add(' and isnull(defstr1,'''') like '+quotedstr('%'+trim(defstr1.Text)+'%')); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + ToolButton2.Click; +end; + + +procedure TfrmCPKWList.FormDestroy(Sender: TObject); +begin + frmCPKWList:=nil; +end; + +procedure TfrmCPKWList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPKWList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv2,'ͻԶ'); + Close; +end; +procedure TfrmCPKWList.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 TfrmCPKWList.FormShow(Sender: TObject); +begin + cxGrid2.Align:=alclient; + ReadCxGrid(self.Caption,Tv2,'ͻԶ'); + InitGrid(); +end; + +procedure TfrmCPKWList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCPKWList.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 TfrmCPKWList.defstr1Change(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmCPKWList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ӧб'); +end; + +procedure TfrmCPKWList.Tv2DblClick(Sender: TObject); +begin + TBOK.Click; +end; + +procedure TfrmCPKWList.TBOKClick(Sender: TObject); +begin + ModalResult:=1; +end; + +end. + + diff --git a/管理系统/U_CPKWListSel.dfm b/管理系统/U_CPKWListSel.dfm new file mode 100644 index 0000000..c543a68 --- /dev/null +++ b/管理系统/U_CPKWListSel.dfm @@ -0,0 +1,391 @@ +object frmCPKWListSel: TfrmCPKWListSel + Left = 137 + Top = 109 + Width = 1144 + Height = 606 + Caption = #25104#21697#24211#20301#36873#25321#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 = 1128 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 83 + 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 ToolButton6: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 12 + Visible = False + OnClick = ToolButton6Click + end + object TBOK: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 106 + OnClick = TBOKClick + end + object ToolButton1: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 53 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1128 + Height = 39 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 203 + Top = 13 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label1: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #20179#20301#32534#21495 + end + object Label2: TLabel + Left = 559 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label4: TLabel + Left = 378 + Top = 13 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object defstr1: TEdit + Tag = 2 + Left = 235 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 0 + OnChange = defstr1Change + end + object ZdyCode: TEdit + Tag = 2 + Left = 83 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 1 + OnChange = defstr1Change + end + object DEFstr3: TComboBox + Tag = 1 + Left = 588 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + OnChange = defstr1Change + Items.Strings = ( + '' + #22266#23450#26550 + #22791#29992#26550 + #20020#26102#22791#29992#26550 + #25171#22534) + end + object defstr2: TEdit + Tag = 2 + Left = 408 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = defstr1Change + end + object CheckBox1: TCheckBox + Left = 728 + Top = 12 + 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 = 4 + OnClick = CheckBox1Click + end + end + object cxGrid2: TcxGrid + Left = 4 + Top = 70 + Width = 1022 + Height = 455 + 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 + item + Kind = skSum + Column = v2Column4 + end + item + Kind = skSum + Column = v2Column2 + 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_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.handBlack + object v2Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column6: TcxGridDBColumn + Caption = #20179#20301#32534#21495 + DataBinding.FieldName = 'ZdyCode' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 124 + end + object v2Column8: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'DEFstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 97 + end + object v2Column10: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'DEFStr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v2Column11: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'DEFStr3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v2Column3: TcxGridDBColumn + Caption = #35774#23450#21305#25968 + DataBinding.FieldName = 'mrate' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v2Column1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 114 + end + object v2Column2: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'CPRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v2Column4: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'cpQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + 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 = 153 + 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 = 749 + Top = 257 + 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 = 780 + Top = 224 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 572 + Top = 152 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 888 + Top = 224 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 903 + Top = 159 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 736 + Top = 180 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 376 + Top = 208 + end +end diff --git a/管理系统/U_CPKWListSel.pas b/管理系统/U_CPKWListSel.pas new file mode 100644 index 0000000..20b15cd --- /dev/null +++ b/管理系统/U_CPKWListSel.pas @@ -0,0 +1,256 @@ +unit U_CPKWListSel; + +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 + TfrmCPKWListSel = 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; + defstr1: TEdit; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + v2Column6: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + Label1: TLabel; + ZdyCode: TEdit; + v2Column8: TcxGridDBColumn; + Label2: TLabel; + DEFstr3: TComboBox; + v2Column10: TcxGridDBColumn; + v2Column11: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column13: TcxGridDBColumn; + defstr2: TEdit; + Label4: TLabel; + v2Column2: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + ToolButton6: TToolButton; + ADOQueryPrint: TADOQuery; + CheckBox1: TCheckBox; + TBOK: TToolButton; + 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 defstr1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure TBOKClick(Sender: TObject); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + procedure InitGrid(); + + public + + end; + +var + frmCPKWListSel: TfrmCPKWListSel; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmCPKWListSel.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + SQL.Clear; + sql.Add(' select A.*, '); + sql.Add(' cpRollNum=(select count(MJID) from CK_BanCP_KC X where X.KCKW=A.zdyCode and X.kcQty>0),'); + sql.Add(' cpQty=(select sum(kcQty) from CK_BanCP_KC X where X.KCKW=A.zdyCode and X.kcQty>0)'); + sql.Add(' from KH_Zdy_Attachment A '); + sql.Add(' where Type=''CPKW'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + finally + ADOQueryMain.EnableControls; + end; + ToolButton2.Click; +end; + + +procedure TfrmCPKWListSel.FormDestroy(Sender: TObject); +begin + frmCPKWListSel:=nil; +end; + +procedure TfrmCPKWListSel.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCPKWListSel.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv2,'ͻԶ'); + Close; +end; +procedure TfrmCPKWListSel.FormShow(Sender: TObject); +begin + cxGrid2.Align:=alclient; + ReadCxGrid(self.Caption,Tv2,'ͻԶ'); + InitGrid(); +end; + +procedure TfrmCPKWListSel.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmCPKWListSel.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 TfrmCPKWListSel.defstr1Change(Sender: TObject); +begin + ToolButton2.Click; +end; + + +procedure TfrmCPKWListSel.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel(self.Caption,cxgrid2); +// SelExportData(Tv2,ADOQueryMain,'Ӧб'); +end; + +procedure TfrmCPKWListSel.ToolButton6Click(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +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 CDS_HZ.FieldByName('SSel').AsBoolean then + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.* '); + sql.Add(' from KH_Zdy_Attachment A') ; + SQL.Add(' where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+''''); + SQL.Add(' and Type=''CPKW'' '); + Open; + end; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('ATID').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); + CDS_HZ.EnableControls; + exit; + end; + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\Ʒλǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + // RM1.ShowReport; + RM1.PrintReport; + sleep(200); + + end else + begin + CDS_HZ.EnableControls; + Application.MessageBox(PChar('û'+trim(fPrintFile)),'ʾ',0); + Exit; + end; + end; + Next; + end; + end; + CDS_HZ.EnableControls; + +end; + +procedure TfrmCPKWListSel.CheckBox1Click(Sender: TObject); +begin + SelOKNo(CDS_HZ,checkbox1.Checked); +end; + +procedure TfrmCPKWListSel.TBOKClick(Sender: TObject); +begin + IF CDS_HZ.IsEmpty then exit; + self.ModalResult:=1; +end; + +procedure TfrmCPKWListSel.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + TBOK.Click; +end; + +end. + + diff --git a/管理系统/U_CPRK.dfm b/管理系统/U_CPRK.dfm new file mode 100644 index 0000000..086fcc2 --- /dev/null +++ b/管理系统/U_CPRK.dfm @@ -0,0 +1,545 @@ +object frmCPRK: TfrmCPRK + Left = 146 + Top = 162 + Width = 1146 + Height = 508 + Caption = #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 = 1130 + 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 = 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 = 29 + Width = 1130 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 20 + 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 = 356 + Top = 124 + 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 Label3: TLabel + Left = 804 + Top = 20 + Width = 54 + Height = 12 + Caption = #25968' '#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 184 + Top = 20 + 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 Label4: TLabel + Left = 512 + Top = 20 + Width = 52 + Height = 12 + Caption = #36864#36135#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 = 804 + Top = 48 + Width = 52 + Height = 12 + Caption = #22797#21046#34892#25968 + 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 = 48 + Width = 54 + Height = 12 + Caption = #22791' '#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 346 + Top = 20 + 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 Label7: TLabel + Left = 512 + Top = 48 + Width = 53 + Height = 12 + Caption = #36864' '#21253' '#36153 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CRTIME: TDateTimePicker + Left = 80 + Top = 16 + Width = 90 + Height = 20 + Date = 41505.718929398150000000 + Format = 'yyyy-MM-dd' + Time = 41505.718929398150000000 + TabOrder = 0 + end + object kcKw: TBtnEditA + Left = 384 + Top = 120 + Width = 133 + Height = 20 + TabOrder = 1 + OnBtnClick = kcKwBtnClick + end + object Edit1: TEdit + Left = 856 + Top = 16 + Width = 80 + Height = 20 + TabOrder = 2 + OnKeyPress = Edit1KeyPress + end + object CRType: TComboBox + Left = 240 + Top = 16 + Width = 90 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 3 + Text = #26399#21021#20837#24211 + Items.Strings = ( + #26399#21021#20837#24211 + #36864#36135#20837#24211) + end + object CustomerNoName: TBtnEditC + Tag = 2 + Left = 564 + Top = 16 + Width = 145 + Height = 20 + Hint = 'CustomerNo' + ReadOnly = True + TabOrder = 4 + OnBtnUpClick = CustomerNoNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Edit2: TEdit + Left = 856 + Top = 44 + Width = 80 + Height = 20 + TabOrder = 5 + OnKeyPress = Edit2KeyPress + end + object note: TEdit + Left = 80 + Top = 44 + Width = 417 + Height = 20 + TabOrder = 6 + end + object SYRName: TComboBox + Tag = 2 + Left = 401 + Top = 16 + Width = 96 + Height = 20 + Style = csDropDownList + Ctl3D = False + ItemHeight = 12 + ParentCtl3D = False + TabOrder = 7 + Items.Strings = ( + #27491#24120#21333 + #21098#26679#21333) + end + object TbaoFee: TcxCurrencyEdit + Left = 564 + Top = 44 + Properties.DisplayFormat = '0.00;-,0.00' + TabOrder = 8 + Width = 145 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 130 + Width = 1130 + Height = 275 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + Column = v1Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + Column = v1ClothUnit + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.Default + object v1MJXH: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1MJId: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJId' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column8: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'BCGangNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + 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 + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 124 + end + object v1PRTColor: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 78 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 80 + 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 + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 69 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1C_ColorPropertiesButtonClick + Properties.OnEditValueChanged = v1C_ColorPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1CRType: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsEditFixedList + Properties.Items.Strings = ( + #27491#21697 + #27425#21697 + #25913#33394#21697) + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 97 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 115 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + 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 v1PRTQty: TcxGridDBColumn + Tag = 1 + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 85 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 101 + Width = 1130 + 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 = 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 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 436 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 652 + Top = 20 + end + object DataSource1: TDataSource + DataSet = CDS_main + Left = 536 + Top = 5 + end + object CDS_main: TClientDataSet + Aggregates = <> + Params = <> + Left = 360 + Top = 116 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 684 + end +end diff --git a/管理系统/U_CPRK.pas b/管理系统/U_CPRK.pas new file mode 100644 index 0000000..6c417a5 --- /dev/null +++ b/管理系统/U_CPRK.pas @@ -0,0 +1,1139 @@ +unit U_CPRK; + +interface + +uses + Windows, Messages,strutils, SysUtils, Variants, cxTextEdit,Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, ComCtrls, ToolWin, StdCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, DBClient, ADODB, BtnEdit, cxContainer, + cxCurrencyEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + +type + TfrmCPRK = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + CRTIME: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1ClothQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ADOQueryTmp: TADOQuery; + ADOQueryCmd: TADOQuery; + DataSource1: TDataSource; + CDS_main: TClientDataSet; + v1C_Color: TcxGridDBColumn; + v1MJXH: TcxGridDBColumn; + v1MJId: TcxGridDBColumn; + Label2: TLabel; + kcKw: TBtnEditA; + Edit1: TEdit; + Label3: TLabel; + v1Column8: TcxGridDBColumn; + v1CRType: TcxGridDBColumn; + CRType: TComboBox; + Label16: TLabel; + Label4: TLabel; + CustomerNoName: TBtnEditC; + Label5: TLabel; + Edit2: TEdit; + ADOQueryTemp: TADOQuery; + Label6: TLabel; + note: TEdit; + SYRName: TComboBox; + Label25: TLabel; + Label7: TLabel; + TbaoFee: TcxCurrencyEdit; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1C_ColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure kcKwBtnClick(Sender: TObject); + procedure Edit1KeyPress(Sender: TObject; var Key: Char); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1C_ColorPropertiesEditValueChanged(Sender: TObject); + procedure CustomerNoNameBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure Edit2KeyPress(Sender: TObject; var Key: Char); + procedure v1Column8PropertiesEditValueChanged(Sender: TObject); + private + procedure IntGrid(); + function savedate():boolean; + function YSData(crkNo:string):Boolean; + function YFData(crkNo:string):Boolean; + function YSData_other(crkNo:string;FYFName:string;Fmoney:double):Boolean; + { Private declarations } + public + fkeyNo:string; + fBCID:string; + fFlag:integer; + { Public declarations } + end; + +var + frmCPRK: TfrmCPRK; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_ZDYHelpSel, U_ZdyAttachCP, U_ZdyAttachment; +{$R *.dfm} +function TfrmCPRK.YSData_other(crkNo:string;FYFName:string;Fmoney:double):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou,customName:String; +begin + Result:=False; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CustomerNoName.text)+''''); + sql.Add(' and YFDefFlag1=0 '); + Open; + end; + if not ADOQueryTemp.IsEmpty 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(CustomerNoName.text); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('select * from YF_Money_CR '); + sql.Add('where MainID='''+Trim(crkNO)+''''); + sql.Add('and YFName='''+trim(FYFName)+''' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'CS','YF_Money_CR',4,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(crkNO); + 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:=Trim(FormatDateTime('yyyy-MM-dd',CRTime.Date)); + FieldByName('YFType').Value:='Զ'; + FieldByName('Qty').Value:=0; + FieldByName('Price').Value:=0; + FieldByName('HuiLv').Value:=1; + FieldByName('money').Value:=fmoney; + FieldByName('BBmoney').Value:=fmoney; + FieldByName('BZType').Value:=''; + FieldByName('QtyUnit').Value:='M'; + FieldByName('ComTaiTou').Value:=Trim(CustomerNoName.text); + FieldByName('YFName').Value:=trim(fyfName); + FieldByName('P_CodeName').Value:=''; + FieldByName('P_Color').Value:=''; + FieldByName('MainId').Value:=trim(crkNO); + FieldByName('subID').Value:=''; + FieldByName('SYRName').Value:=Trim(SYRName.Text); + FieldByName('YFDefFlag1').Value:=0; + FieldByName('status').Value:='1'; + Post; + end; + end + else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+trim(YFID)+''''); + Open; + edit; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CRTime.Date)); + post; + end; + end; + Result:=True; +end; +function TfrmCPRK.YFData(crkNo:string):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou:String; +begin + Result:=False; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName=''֯'''); + sql.Add(' and YFDefFlag1=1 '); + Open; + end; + if not ADOQueryTemp.IsEmpty 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:='֯'; + FieldByName('YFDefFlag1').Value:=1; + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(crkNO)+''''); + sql.Add(' and YFName=''˻'' '); + execsql; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select C_CodeName,C_Color,SUM(RollNum) as RollNum,SUM(Qty) as Qty from CK_BanCP_CR '); + sql.Add(' where CKOrdNo='''+Trim(crkNO)+''''); + sql.Add(' and CRType=''˻'' '); + sql.Add(' group by C_CodeName,C_Color '); + Open; + end; + while not ADOQueryTemp.eof do + 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(crkNO); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryName').Value:='֯'; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CRTIME.DateTime)); + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=0; + FieldByName('PS').Value:=-1 * ADOQueryTemp.fieldbyname('RollNum').AsFloat; + FieldByName('Qty').Value:=-1 * ADOQueryTemp.fieldbyname('Qty').AsFloat; + FieldByName('P_CodeName').Value:=ADOQueryTemp.fieldbyname('C_CodeName').AsString; + FieldByName('P_Color').Value:=ADOQueryTemp.fieldbyname('C_Color').AsString; + //FieldByName('HuiLv').Value:=1; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('QtyUnit').Value:='M'; + FieldByName('ComTaiTou').Value:='֯'; + FieldByName('YFName').Value:='˻'; + FieldByName('MainId').Value:=Trim(crkNO); + FieldByName('subID').Value:=''; + FieldByName('YFDefFlag1').Value:=1; + // FieldByName('status').Value:='1'; + Post; + end; + ADOQueryTemp.next; + 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 TfrmCPRK.YSData(crkNo:string):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou:String; +begin + Result:=False; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CustomerNoName.Text)+''''); + sql.Add(' and YFDefFlag1=0 '); + Open; + end; + if not ADOQueryTemp.IsEmpty 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(CustomerNoName.Text); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(crkNO)+''''); + sql.Add(' and YFName=''˻'' '); + execsql; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select C_CodeName,C_Color,SUM(RollNum) as RollNum,SUM(Qty) as Qty from CK_BanCP_CR '); + sql.Add(' where CKOrdNo='''+Trim(crkNO)+''''); + sql.Add(' and CRType=''˻'' '); + sql.Add(' group by C_CodeName,C_Color '); + Open; + end; + while not ADOQueryTemp.eof do + 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(crkNO); + 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:=Trim(FormatDateTime('yyyy-MM-dd',CRTIME.DateTime)); + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=0; + FieldByName('PS').Value:=-1 * ADOQueryTemp.fieldbyname('RollNum').AsFloat; + FieldByName('Qty').Value:=-1 * ADOQueryTemp.fieldbyname('Qty').AsFloat; + FieldByName('P_CodeName').Value:=ADOQueryTemp.fieldbyname('C_CodeName').AsString; + FieldByName('P_Color').Value:=ADOQueryTemp.fieldbyname('C_Color').AsString; + //FieldByName('HuiLv').Value:=1; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('QtyUnit').Value:='M'; + FieldByName('ComTaiTou').Value:=Trim(CustomerNoName.Text); + FieldByName('YFName').Value:='˻'; + FieldByName('MainId').Value:=Trim(crkNO); + FieldByName('SYRName').Value:=Trim(SYRName.Text); + FieldByName('note').Value:=Trim(note.Text); + FieldByName('subID').Value:=''; + FieldByName('status').Value:='1'; + Post; + end; + ADOQueryTemp.next; + 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 TfrmCPRK.savedate():boolean; +var + maxno:String; + CRID:Integer; + MaxCkNo:String; +begin + result:=false; + ADOQueryCmd.Connection.BeginTrans; + + try + if fflag=0 then + begin + if GetLSNo(ADOQueryCmd,fkeyNo,'RK','CK_BanCP_CR',5,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + end; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if trim(Fieldbyname('BCID').AsString)='' 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').AsInteger; + if GetLSNo(ADOQueryCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + end; + end + else + begin + CRID:=fieldbyname('CRID').AsInteger; + MaxCkNo:=fieldbyname('BCID').AsString; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR '); + sql.Add('where BCID='+quotedstr(trim(MaxCkNo))); + sql.Add('and CRID='+inttostr(CRID)); + Open; + end; + with ADOQueryCmd do + begin + if IsEmpty then Append else edit; + + IF trim(CRType.Text)='ڳ' then + begin + FieldByName('MainId').Value:='CM001'; + FieldByName('SubId').Value:='CS001'; + end + else + begin + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + end; + FieldByName('MainId').Value:='CM001'; + FieldByName('SubId').Value:='CS001'; + FieldByName('C_Code').Value:=Trim(CDS_Main.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(CDS_Main.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(CDS_Main.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(CDS_Main.fieldbyname('C_Color').AsString); + FieldByName('APID').Value:=Trim(CDS_Main.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJId').AsString); + FieldByName('MJxh').Value:=Trim(CDS_Main.fieldbyname('MJxh').AsString); + FieldByName('kcKw').Value:=Trim(CDS_Main.fieldbyname('kcKw').AsString); + FieldByName('RCGangNo').Value:=Trim(CDS_Main.fieldbyname('RCGangNo').AsString); + FieldByName('BCGangNo').Value:=Trim(CDS_Main.fieldbyname('BCGangNo').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('ckordNo').Value:=Trim(fkeyNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',CRTime.DateTime); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=trim(CRType.Text); + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').AsFloat; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').AsFloat; + FieldByName('RollNum').Value:=CDS_Main.fieldbyname('RollNum').AsFloat; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('CPType').Value:=Trim(CDS_Main.fieldbyname('CPType').AsString); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTmp); + // FieldByName('kcKw').Value:=Trim(kcKw.Text); + fieldbyname('kcKw').Value:=GetKw(ADOQueryTemp,CDS_Main.fieldbyname('C_CodeName').AsString,CDS_Main.fieldbyname('C_Color').AsString); + FieldByName('ThCust').Value:=Trim(CustomerNoName.Text); + FieldByName('note').Value:=Trim(note.Text); + FieldByName('SYRName').Value:=Trim(SYRName.Text); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where BCID='+quotedstr(trim(MaxCkNo))); + sql.Add('and CRID='+inttostr(CRID)); + Open; + end; + with ADOQueryCmd do + begin + if IsEmpty then Append else edit; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + FieldByName('MJxh').Value:=Trim(CDS_Main.fieldbyname('MJxh').AsString); + FieldByName('kcKw').Value:=Trim(CDS_Main.fieldbyname('kcKw').AsString); + FieldByName('KCKGQty').Value:=CDS_Main.fieldbyname('KGQty').AsFloat; + FieldByName('KCQty').Value:=CDS_Main.fieldbyname('Qty').AsFloat; + FieldByName('KCRollNum').Value:=CDS_Main.fieldbyname('RollNum').AsFloat; + FieldByName('KCQtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',CRTime.DateTime); + FieldByName('CPType').Value:=Trim(CDS_Main.fieldbyname('CPType').AsString); + FieldByName('CRType').Value:=trim(CRType.Text); + FieldByName('C_Code').Value:=Trim(CDS_Main.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(CDS_Main.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(CDS_Main.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(CDS_Main.fieldbyname('C_Color').AsString); + FieldByName('RCGangNo').Value:=Trim(CDS_Main.fieldbyname('RCGangNo').AsString); + FieldByName('BCGangNo').Value:=Trim(CDS_Main.fieldbyname('BCGangNo').AsString); + fieldbyname('kcKw').Value:=GetKw(ADOQueryTemp,CDS_Main.fieldbyname('C_CodeName').AsString,CDS_Main.fieldbyname('C_Color').AsString); + // FieldByName('kcKw').Value:=Trim(kcKw.Text); + Post; + end; + CDS_Main.Next; + end; + end; + CDS_Main.EnableControls; + IF trim(CRType.Text)='˻' then + begin + IF trim(CustomerNoName.Text)='㶫в' then + begin + {iF not YFData(fkeyNO) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; } + end + else + begin + iF not YSData(fkeyNO) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + + IF strtofloatdef(trim(TbaoFee.Text),0)<>0 then + begin + iF not YSData_other(fkeyNO,'˰',strtofloatdef(trim(TbaoFee.Text),0)) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; +procedure TfrmCPRK.IntGrid(); +begin + with adoqueryTmp do + begin + Close; + SQL.Clear; + sql.Add(' select * from CK_BanCP_CR '); + sql.Add('where ckordNo='+quotedstr(fkeyNO)); + // sql.Add('and BCID='+quotedstr(fBCID)); + open; + end; + SCreateCDS20(adoqueryTmp,CDS_main); + SInitCDSData20(adoqueryTmp,CDS_main); + + if not CDS_main.IsEmpty then + begin + CRTIME.DateTime:=CDS_main.fieldbyname('CRTime').AsDateTime; + kcKw.Text:=CDS_main.fieldbyname('kckw').AsString; + CRType.ItemIndex:=CRType.Items.IndexOf(trim(CDS_main.fieldbyname('CRType').AsString)); + CustomerNoName.Text:=CDS_main.fieldbyname('thcust').AsString; + note.Text:=CDS_main.fieldbyname('note').AsString; + SYRName.Text:=CDS_main.fieldbyname('SYRName').AsString; + end; +end; + +procedure TfrmCPRK.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure TfrmCPRK.FormDestroy(Sender: TObject); +begin + frmCPRK:=nil; +end; + +procedure TfrmCPRK.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alclient; + CRTIME.DateTime:=date(); +end; + +procedure TfrmCPRK.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + if ShowModal=1 then + begin + Self.CDS_main.Edit; + Self.CDS_main.FieldByName('C_Code').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + Self.CDS_main.FieldByName('C_CodeName').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + Self.CDS_main.FieldByName('C_Color').Value:=Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.CDS_main.Post; + end; + end; + finally + frmZdyAttachCP.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmCPRK.ToolButton1Click(Sender: TObject); +var + maxno:string; +begin + if GetLSNo(ADOQueryCmd,maxno,'T','APTM',4,1)=False then + begin + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with CDS_main do + begin + Append; + fieldbyname('BCID').Value:=''; + fieldbyname('CPTYpe').Value:='Ʒ'; + fieldbyname('MJID').Value:=maxno; + fieldbyname('MJXH').Value:=1; + fieldbyname('QtyUnit').Value:='M'; + Post; + end; +end; + +procedure TfrmCPRK.ToolButton2Click(Sender: TObject); +begin + if CDS_main.IsEmpty then exit; + { with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_CR '); + sql.Add('where BCID='+quotedstr(trim(CDS_main.fieldbyname('BCID').AsString))); + sql.Add('and CKOrdNo='+quotedstr(trim(CDS_main.fieldbyname('CKOrdNo').AsString))); + sql.Add('delete from CK_BanCP_KC '); + sql.Add('where BCID='+quotedstr(trim(CDS_main.fieldbyname('BCID').AsString))); + sql.Add('AND crid='+quotedstr(trim(CDS_main.fieldbyname('crid').AsString))); + execsql; + end; } + CDS_main.Delete; +end; + +procedure TfrmCPRK.FormShow(Sender: TObject); +begin + SYRName.Items.Clear; + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''SYRNAME'''); + open; + IF not IsEmpty then + begin + while not eof do + begin + SYRName.Items.Add(trim(fieldbyname('zdyname').AsString)); + next; + end; + SYRName.ItemIndex:=0; + end; + end; + IF fFlag=1 then + begin + CRType.Enabled:=false; + // CustomerNoName.Enabled:=false; + end; + IntGrid(); +end; + +procedure TfrmCPRK.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmCPRK.TBSaveClick(Sender: TObject); +begin + if CDS_main.IsEmpty then exit; + if trim(CRType.Text)='' then + begin + application.MessageBox('ͲΪգ','ʾϢ',0); + exit; + end; + if trim(CRType.Text)='˻' then + begin + if trim(CustomerNoName.Text)='' then + begin + application.MessageBox('˻ͻΪգ','ʾϢ',0); + exit; + end; + 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 CDS_main.Locate('MJID',NULL,[]) then + begin + application.MessageBox('벻Ϊգ','ʾϢ',0); + exit; + end; + if CDS_main.Locate('MJXH',NULL,[]) then + begin + application.MessageBox('ŲΪգ','ʾϢ',0); + exit; + end; + if savedate() then + begin + application.MessageBox('ݱɹ','ʾϢ'); + ModalResult:=1; + end + else + application.MessageBox('ݱʧܣ','ʾϢ',0); +end; + +procedure TfrmCPRK.v1C_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('C_Color').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'#'; + // Self.CDS_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPRK.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 TfrmCPRK.Edit1KeyPress(Sender: TObject; var Key: Char); +var + FReal:Double; + maxno:string; +begin + if Key=#13 then + begin + if Trim(Edit1.Text)='' then Exit; + if TryStrToFloat(Edit1.Text,FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + if CDS_main.IsEmpty then + begin + CDS_main.Append; + CDS_main.fieldbyname('Qty').Value:=Edit1.Text; + CDS_main.fieldbyname('kcKw').Value:=kcKw.Text; + CDS_main.fieldbyname('RollNum').Value:=1; + CDS_main.fieldbyname('MJXH').Value:=1; + CDS_main.fieldbyname('CPTYpe').Value:='Ʒ'; + CDS_main.fieldbyname('QtyUnit').Value:='M'; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'T','APTM',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + end; + CDS_main.fieldbyname('MJID').Value:=Trim(maxno); + CDS_main.Post; + end else + begin + CopyAddRowCDS(CDS_main); + tv1.Controller.EditingController.ShowEdit(); + with CDS_main do + begin + Edit; + FieldByName('MJXH').Value:=FieldByName('MJXH').Value+1; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'T','APTM',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + end; + FieldByName('MJId').Value:=Trim(maxno); + fieldbyname('Qty').Value:=Edit1.Text; + fieldbyname('kcKw').Value:=kcKw.Text; + fieldbyname('RollNum').Value:=1; + Post; + end; + end; + Edit1.Text:=''; + end; + + tv1.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmCPRK.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with CDS_main do + begin + Edit; + FieldByName('C_CodeName').Value:=Trim(mvalue); + Post; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(CDS_main.fieldbyname('C_CodeName').AsString))); + open; + end; + IF ADOQueryCmd.IsEmpty then + begin + application.MessageBox('Ʒڣ','ʾϢ',0); + with CDS_main do + begin + Edit; + FieldByName('C_CodeName').Value:=''; + Post; + end; + end; + + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmCPRK.v1C_ColorPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with CDS_main do + begin + Edit; + FieldByName('C_Color').Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(CDS_main.fieldbyname('C_CodeName').AsString))); + sql.Add('and DEFstr3='+quotedstr(trim(CDS_main.fieldbyname('C_Color').AsString))); + open; + end; + IF ADOQueryCmd.IsEmpty then + begin + application.MessageBox('ɫڣ','ʾϢ',0); + with CDS_main do + begin + Edit; + FieldByName('C_Color').Value:=''; + Post; + end; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; +procedure TfrmCPRK.CustomerNoNameBtnUpClick(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); + CustomerNoName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType:=trim(SYRName.Text); + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + + end; + end; + finally + frmZdyAttachment.Free; + end; +end; + +procedure TfrmCPRK.CustomerNoNameBtnDnClick(Sender: TObject); +begin + CustomerNoName.Text:=''; + CustomerNoName.TxtCode:=''; +end; + +procedure TfrmCPRK.Edit2KeyPress(Sender: TObject; var Key: Char); +var + FReal:Double; + maxno:string; + I:integer; +begin + if Key=#13 then + begin + if Trim(Edit2.Text)='' then Exit; + if TryStrToFlOAT(Edit2.Text,FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + if CDS_main.IsEmpty then exit; + i:=STRTOintdef(Edit2.Text,0); + for i:=1 to STRTOintdef(Edit2.Text,0) do + begin + CopyAddRowCDS(CDS_main); + with CDS_main do + begin + Edit; + FieldByName('MJXH').Value:=FieldByName('MJXH').Value+1; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'9','WFB_MJJY',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + end; + FieldByName('MJId').Value:=Trim(maxno); + // fieldbyname('Qty').Value:=Edit1.Text; + // fieldbyname('kcKw').Value:=kcKw.Text; + // fieldbyname('RollNum').Value:=1; + Post; + end; + end; + Edit1.Text:=''; + end; + + tv1.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmCPRK.v1Column8PropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'W'THEN + BEGIn + mvalue:=trim(mvalue)+'W'; + END; + + + with CDS_main do + begin + Edit; + FieldByName('BCgangNo').Value:=Trim(mvalue); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +end. diff --git a/管理系统/U_CPRK_Other.dfm b/管理系统/U_CPRK_Other.dfm new file mode 100644 index 0000000..3a4df02 --- /dev/null +++ b/管理系统/U_CPRK_Other.dfm @@ -0,0 +1,504 @@ +object frmCPRK_Other: TfrmCPRK_Other + Left = 146 + Top = 162 + Width = 1146 + Height = 508 + Caption = #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 = 1130 + 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 = 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 = 29 + Width = 1130 + Height = 76 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 20 + 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 = 356 + Top = 124 + 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 Label3: TLabel + Left = 804 + Top = 20 + Width = 54 + Height = 12 + Caption = #25968' '#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 184 + Top = 20 + 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 Label4: TLabel + Left = 352 + Top = 20 + Width = 52 + Height = 12 + Caption = #36864#36135#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 = 804 + Top = 48 + Width = 52 + Height = 12 + Caption = #22797#21046#34892#25968 + 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 = 48 + Width = 54 + Height = 12 + Caption = #22791' '#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CRTIME: TDateTimePicker + Left = 80 + Top = 16 + Width = 90 + Height = 20 + Date = 41505.718929398150000000 + Format = 'yyyy-MM-dd' + Time = 41505.718929398150000000 + TabOrder = 0 + end + object kcKw: TBtnEditA + Left = 384 + Top = 120 + Width = 133 + Height = 20 + TabOrder = 1 + OnBtnClick = kcKwBtnClick + end + object Edit1: TEdit + Left = 856 + Top = 16 + Width = 80 + Height = 20 + TabOrder = 2 + OnKeyPress = Edit1KeyPress + end + object CRType: TComboBox + Left = 240 + Top = 16 + Width = 90 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 3 + Items.Strings = ( + #26399#21021#20837#24211 + #36864#36135#20837#24211) + end + object CustomerNoName: TBtnEditC + Tag = 2 + Left = 412 + Top = 16 + Width = 298 + Height = 20 + Hint = 'CustomerNo' + ReadOnly = True + TabOrder = 4 + OnBtnUpClick = CustomerNoNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Edit2: TEdit + Left = 856 + Top = 44 + Width = 80 + Height = 20 + TabOrder = 5 + OnKeyPress = Edit2KeyPress + end + object note: TEdit + Left = 80 + Top = 44 + Width = 629 + Height = 20 + TabOrder = 6 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 134 + Width = 1130 + Height = 275 + 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 = v1Column1 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column5 + end + item + Kind = skSum + Column = v1ClothUnit + end + item + Kind = skSum + Column = v1money + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.Default + object v1MJXH: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1MJId: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJId' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column8: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'BCGangNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + 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 + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 100 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 124 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 80 + end + object v1PRTColor: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 78 + 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 + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 69 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1C_ColorPropertiesButtonClick + Properties.OnEditValueChanged = v1C_ColorPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1CRType: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsEditFixedList + Properties.Items.Strings = ( + #27491#21697 + #19968#31561#27425#21697 + #20108#31561#27425#21697) + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 97 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.00' + Properties.OnEditValueChanged = v1PricePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 115 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 64 + end + object v1Column3: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'price' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.00' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 46 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1PricePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1money: TcxGridDBColumn + Tag = 1 + Caption = #37329#39069 + DataBinding.FieldName = 'Money' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 100 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 105 + Width = 1130 + 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 = 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 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 436 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 652 + Top = 20 + end + object DataSource1: TDataSource + DataSet = CDS_main + Left = 536 + Top = 5 + end + object CDS_main: TClientDataSet + Aggregates = <> + Params = <> + Left = 360 + Top = 116 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 684 + end +end diff --git a/管理系统/U_CPRK_Other.pas b/管理系统/U_CPRK_Other.pas new file mode 100644 index 0000000..4ef9e03 --- /dev/null +++ b/管理系统/U_CPRK_Other.pas @@ -0,0 +1,1034 @@ +unit U_CPRK_Other; + +interface + +uses + Windows, Messages,strutils, SysUtils, Variants, cxTextEdit,Classes, Graphics, Controls, Forms, + Dialogs, ExtCtrls, ComCtrls, ToolWin, StdCtrls, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, + cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, DBClient, ADODB, BtnEdit, cxCurrencyEdit; + +type + TfrmCPRK_Other = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + CRTIME: TDateTimePicker; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column1: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTColor: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1ClothQty: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1money: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ADOQueryTmp: TADOQuery; + ADOQueryCmd: TADOQuery; + DataSource1: TDataSource; + CDS_main: TClientDataSet; + v1C_Color: TcxGridDBColumn; + v1MJXH: TcxGridDBColumn; + v1MJId: TcxGridDBColumn; + Label2: TLabel; + kcKw: TBtnEditA; + Edit1: TEdit; + Label3: TLabel; + v1Column8: TcxGridDBColumn; + v1CRType: TcxGridDBColumn; + CRType: TComboBox; + Label16: TLabel; + Label4: TLabel; + CustomerNoName: TBtnEditC; + Label5: TLabel; + Edit2: TEdit; + ADOQueryTemp: TADOQuery; + Label6: TLabel; + note: TEdit; + v1Price: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1C_ColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure kcKwBtnClick(Sender: TObject); + procedure Edit1KeyPress(Sender: TObject; var Key: Char); + procedure v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1C_ColorPropertiesEditValueChanged(Sender: TObject); + procedure CustomerNoNameBtnUpClick(Sender: TObject); + procedure CustomerNoNameBtnDnClick(Sender: TObject); + procedure Edit2KeyPress(Sender: TObject; var Key: Char); + procedure v1Column8PropertiesEditValueChanged(Sender: TObject); + procedure v1PricePropertiesEditValueChanged(Sender: TObject); + private + procedure IntGrid(); + function savedate():boolean; + function YSData(crkNo:string):Boolean; + function YFData(crkNo:string):Boolean; + { Private declarations } + public + fkeyNo:string; + fBCID:string; + fFlag:integer; + { Public declarations } + end; + +var + frmCPRK_Other: TfrmCPRK_Other; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_ZDYHelpSel, U_ZdyAttachCP, U_ZdyAttachment; +{$R *.dfm} +function TfrmCPRK_Other.YFData(crkNo:string):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou,fYFDefFlag1,fCustomerNoName:String; + +begin + Result:=False; + fYFDefFlag1:='2'; +// fYFDefFlag1:='1'; + fCustomerNoName:=trim(CustomerNoName.text); +// IF trim(CustomerNoName.text)='в'then +// fCustomerNoName:='֯'; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+trim(fCustomerNoName)+''''); + sql.Add(' and YFDefFlag1='''+trim(fYFDefFlag1)+''' '); + Open; + end; + if not ADOQueryTemp.IsEmpty 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(fCustomerNoName); + FieldByName('YFDefFlag1').Value:=fYFDefFlag1; + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(crkNO)+''''); + sql.Add(' and YFName='''+trim(CRType.Text)+''' '); + execsql; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select C_CodeName,C_Color,SUM(RollNum) as RollNum,SUM(Qty) as Qty from CK_BanCP_CR1 '); + sql.Add(' where CKOrdNo='''+Trim(crkNO)+''''); + sql.Add(' and CRType='''+trim(CRType.Text)+''' '); + sql.Add(' group by C_CodeName,C_Color '); + Open; + end; + while not ADOQueryTemp.eof do + 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(crkNO); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryName').Value:=trim(fCustomerNoName); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CRTIME.DateTime)); + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=0; + FieldByName('PS').Value:= ADOQueryTemp.fieldbyname('RollNum').AsFloat; + FieldByName('Qty').Value:= ADOQueryTemp.fieldbyname('Qty').AsFloat; + FieldByName('P_CodeName').Value:=ADOQueryTemp.fieldbyname('C_CodeName').AsString; + FieldByName('P_Color').Value:=ADOQueryTemp.fieldbyname('C_Color').AsString; + //FieldByName('HuiLv').Value:=1; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('QtyUnit').Value:='M'; + FieldByName('ComTaiTou').Value:=trim(CustomerNoName.Text); + FieldByName('YFName').Value:=trim(CRType.Text); + FieldByName('MainId').Value:=Trim(crkNO); + FieldByName('subID').Value:=''; + FieldByName('YFDefFlag1').Value:=fYFDefFlag1; + FieldByName('syrName').Value:='˷֯'; + // FieldByName('status').Value:='1'; + Post; + end; + ADOQueryTemp.next; + 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 TfrmCPRK_Other.YSData(crkNo:string):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou,fYFDefFlag1:String; +begin + Result:=False; + fYFDefFlag1:='2'; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(CustomerNoName.Text)+''''); + sql.Add(' and YFDefFlag1='''+trim(fYFDefFlag1)+''' '); + Open; + end; + if not ADOQueryTemp.IsEmpty 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(CustomerNoName.Text); + FieldByName('YFDefFlag1').Value:=fYFDefFlag1; + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(crkNO)+''''); + sql.Add(' and YFName=''˻'' '); + execsql; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select C_CodeName,C_Color,SUM(RollNum) as RollNum,SUM(Qty) as Qty,sum(money) as Money,Price from CK_BanCP_CR1 '); + sql.Add(' where CKOrdNo='''+Trim(crkNO)+''''); + sql.Add(' and CRType=''˻'' '); + sql.Add(' group by C_CodeName,C_Color,Price '); + Open; + end; + while not ADOQueryTemp.eof do + 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(crkNO); + 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:=Trim(FormatDateTime('yyyy-MM-dd',CRTIME.DateTime)); + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=0; + FieldByName('PS').Value:=-1 * ADOQueryTemp.fieldbyname('RollNum').AsFloat; + FieldByName('Qty').Value:=-1 * ADOQueryTemp.fieldbyname('Qty').AsFloat; + FieldByName('Price').Value:= ADOQueryTemp.fieldbyname('Price').AsFloat; + FieldByName('money').Value:= -1* ADOQueryTemp.fieldbyname('money').AsFloat; + FieldByName('BBmoney').Value:= -1* ADOQueryTemp.fieldbyname('money').AsFloat; + FieldByName('P_CodeName').Value:=ADOQueryTemp.fieldbyname('C_CodeName').AsString; + FieldByName('P_Color').Value:=ADOQueryTemp.fieldbyname('C_Color').AsString; + //FieldByName('HuiLv').Value:=1; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('QtyUnit').Value:='M'; + FieldByName('ComTaiTou').Value:=Trim(CustomerNoName.Text); + FieldByName('YFName').Value:='˻'; + FieldByName('MainId').Value:=Trim(crkNO); + FieldByName('subID').Value:=''; + FieldByName('status').Value:='1'; + FieldByName('YFDefFlag1').Value:=fYFDefFlag1; + FieldByName('syrName').Value:='˷֯'; + Post; + end; + ADOQueryTemp.next; + 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 TfrmCPRK_Other.savedate():boolean; +var + maxno:String; + CRID:Integer; + MaxCkNo:String; +begin + result:=false; + ADOQueryCmd.Connection.BeginTrans; + + try + if fflag=0 then + begin + if GetLSNo(ADOQueryCmd,fkeyNo,'RT','CK_BanCP_CR1',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + end; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if trim(Fieldbyname('BCID').AsString)='' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID1 Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID1'); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsInteger; + if GetLSNo(ADOQueryCmd,MaxCkNo,'JT','CK_BanCP_CR1',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + end; + end + else + begin + CRID:=fieldbyname('CRID').AsInteger; + MaxCkNo:=fieldbyname('BCID').AsString; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR1 '); + sql.Add('where BCID='+quotedstr(trim(MaxCkNo))); + sql.Add('and CRID='+inttostr(CRID)); + Open; + end; + with ADOQueryCmd do + begin + if IsEmpty then Append else edit; + + IF trim(CRType.Text)='ڳ' then + begin + FieldByName('MainId').Value:='CM001'; + FieldByName('SubId').Value:='CS001'; + end + else + begin + FieldByName('MainId').Value:=''; + FieldByName('SubId').Value:=''; + end; + FieldByName('MainId').Value:='CM001'; + FieldByName('SubId').Value:='CS001'; + FieldByName('C_Code').Value:=Trim(CDS_Main.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(CDS_Main.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(CDS_Main.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(CDS_Main.fieldbyname('C_Color').AsString); + FieldByName('APID').Value:=Trim(CDS_Main.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJId').AsString); + FieldByName('MJxh').Value:=Trim(CDS_Main.fieldbyname('MJxh').AsString); + FieldByName('kcKw').Value:=Trim(CDS_Main.fieldbyname('kcKw').AsString); + FieldByName('RCGangNo').Value:=Trim(CDS_Main.fieldbyname('RCGangNo').AsString); + FieldByName('BCGangNo').Value:=Trim(CDS_Main.fieldbyname('BCGangNo').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('ckordNo').Value:=Trim(fkeyNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',CRTime.DateTime); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=trim(CRType.Text); + //FieldByName('JTType').Value:=Trim(XJFlag); + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').AsFloat; + FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').AsFloat; + FieldByName('RollNum').Value:=CDS_Main.fieldbyname('RollNum').AsFloat; + FieldByName('Price').Value:=CDS_Main.fieldbyname('Price').AsFloat; + FieldByName('Money').Value:=CDS_Main.fieldbyname('Money').AsFloat; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('CPType').Value:=Trim(CDS_Main.fieldbyname('CPType').AsString); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTmp); + // FieldByName('kcKw').Value:=Trim(kcKw.Text); + fieldbyname('kcKw').Value:=GetKw(ADOQueryTemp,CDS_Main.fieldbyname('C_CodeName').AsString,CDS_Main.fieldbyname('C_Color').AsString); + FieldByName('ThCust').Value:=Trim(CustomerNoName.Text); + FieldByName('note').Value:=Trim(note.Text); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 '); + sql.Add('where BCID='+quotedstr(trim(MaxCkNo))); + sql.Add('and CRID='+inttostr(CRID)); + Open; + end; + with ADOQueryCmd do + begin + if IsEmpty then Append else edit; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString); + FieldByName('MJxh').Value:=Trim(CDS_Main.fieldbyname('MJxh').AsString); + FieldByName('kcKw').Value:=Trim(CDS_Main.fieldbyname('kcKw').AsString); + FieldByName('KCKGQty').Value:=CDS_Main.fieldbyname('KGQty').AsFloat; + FieldByName('KCQty').Value:=CDS_Main.fieldbyname('Qty').AsFloat; + FieldByName('KCRollNum').Value:=CDS_Main.fieldbyname('RollNum').AsFloat; + FieldByName('KCQtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',CRTime.DateTime); + FieldByName('CPType').Value:=Trim(CDS_Main.fieldbyname('CPType').AsString); + FieldByName('CRType').Value:=trim(CRType.Text); + FieldByName('C_Code').Value:=Trim(CDS_Main.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(CDS_Main.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(CDS_Main.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(CDS_Main.fieldbyname('C_Color').AsString); + FieldByName('RCGangNo').Value:=Trim(CDS_Main.fieldbyname('RCGangNo').AsString); + FieldByName('BCGangNo').Value:=Trim(CDS_Main.fieldbyname('BCGangNo').AsString); + fieldbyname('kcKw').Value:=GetKw(ADOQueryTemp,CDS_Main.fieldbyname('C_CodeName').AsString,CDS_Main.fieldbyname('C_Color').AsString); + // FieldByName('kcKw').Value:=Trim(kcKw.Text); + Post; + end; + CDS_Main.Next; + end; + end; + CDS_Main.EnableControls; + IF trim(CRType.Text)='˻' then + begin + iF not YSData(fkeyNO) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + { IF (trim(CustomerNoName.Text)='㶫в') or (trim(CustomerNoName.Text)='в') then + begin + iF not YFData(fkeyNO) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end + else + begin + iF not YSData(fkeyNO) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; } + end; + IF trim(CRType.Text)='ɹ' then + begin + iF not YFData(fkeyNO) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; +procedure TfrmCPRK_Other.IntGrid(); +begin + with adoqueryTmp do + begin + Close; + SQL.Clear; + sql.Add(' select * from CK_BanCP_CR1 '); + sql.Add('where ckordNo='+quotedstr(fkeyNO)); + sql.Add('and BCID='+quotedstr(fBCID)); + open; + end; + SCreateCDS20(adoqueryTmp,CDS_main); + SInitCDSData20(adoqueryTmp,CDS_main); + + if not CDS_main.IsEmpty then + begin + CRTIME.DateTime:=CDS_main.fieldbyname('CRTime').AsDateTime; + kcKw.Text:=CDS_main.fieldbyname('kckw').AsString; + CRType.ItemIndex:=CRType.Items.IndexOf(trim(CDS_main.fieldbyname('CRType').AsString)); + CustomerNoName.Text:=CDS_main.fieldbyname('thcust').AsString; + note.Text:=CDS_main.fieldbyname('note').AsString; + end; +end; + +procedure TfrmCPRK_Other.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure TfrmCPRK_Other.FormDestroy(Sender: TObject); +begin + frmCPRK_Other:=nil; +end; + +procedure TfrmCPRK_Other.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=alclient; + CRTIME.DateTime:=date(); +end; + +procedure TfrmCPRK_Other.v1Column1PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + if ShowModal=1 then + begin + Self.CDS_main.Edit; + Self.CDS_main.FieldByName('C_Code').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + Self.CDS_main.FieldByName('C_CodeName').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + Self.CDS_main.FieldByName('C_Color').Value:=Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.CDS_main.Post; + end; + end; + finally + frmZdyAttachCP.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmCPRK_Other.ToolButton1Click(Sender: TObject); +var + maxno:string; +begin + if GetLSNo(ADOQueryCmd,maxno,'T','APTM',4,1)=False then + begin + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + with CDS_main do + begin + Append; + fieldbyname('BCID').Value:=''; + fieldbyname('CPTYpe').Value:='Ʒ'; + fieldbyname('MJID').Value:=maxno; + fieldbyname('MJXH').Value:=1; + fieldbyname('QtyUnit').Value:='M'; + Post; + end; +end; + +procedure TfrmCPRK_Other.ToolButton2Click(Sender: TObject); +begin + if CDS_main.IsEmpty then exit; + { with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_CR '); + sql.Add('where BCID='+quotedstr(trim(CDS_main.fieldbyname('BCID').AsString))); + sql.Add('and CKOrdNo='+quotedstr(trim(CDS_main.fieldbyname('CKOrdNo').AsString))); + sql.Add('delete from CK_BanCP_KC '); + sql.Add('where BCID='+quotedstr(trim(CDS_main.fieldbyname('BCID').AsString))); + sql.Add('AND crid='+quotedstr(trim(CDS_main.fieldbyname('crid').AsString))); + execsql; + end; } + CDS_main.Delete; +end; + +procedure TfrmCPRK_Other.FormShow(Sender: TObject); +begin + IntGrid(); +end; + +procedure TfrmCPRK_Other.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmCPRK_Other.TBSaveClick(Sender: TObject); +begin + CRTIME.SetFocus; + if CDS_main.IsEmpty then exit; + if trim(CRType.Text)='' then + begin + application.MessageBox('ͲΪգ','ʾϢ',0); + exit; + end; + if trim(CRType.Text)='˻' then + begin + if trim(CustomerNoName.Text)='' then + begin + application.MessageBox('˻ͻΪգ','ʾϢ',0); + exit; + end; + 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 CDS_main.Locate('MJID',NULL,[]) then + begin + application.MessageBox('벻Ϊգ','ʾϢ',0); + exit; + end; + if CDS_main.Locate('MJXH',NULL,[]) then + begin + application.MessageBox('ŲΪգ','ʾϢ',0); + exit; + end; + if savedate() then + begin + application.MessageBox('ݱɹ','ʾϢ'); + ModalResult:=1; + end + else + application.MessageBox('ݱʧܣ','ʾϢ',0); +end; + +procedure TfrmCPRK_Other.v1C_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('C_Color').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'#'; + // Self.CDS_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPRK_Other.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 TfrmCPRK_Other.Edit1KeyPress(Sender: TObject; var Key: Char); +var + FReal:Double; + maxno:string; +begin + if Key=#13 then + begin + if Trim(Edit1.Text)='' then Exit; + if TryStrToFloat(Edit1.Text,FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + if CDS_main.IsEmpty then + begin + CDS_main.Append; + CDS_main.fieldbyname('Qty').Value:=Edit1.Text; + CDS_main.fieldbyname('kcKw').Value:=kcKw.Text; + CDS_main.fieldbyname('RollNum').Value:=1; + CDS_main.fieldbyname('MJXH').Value:=1; + CDS_main.fieldbyname('CPTYpe').Value:='Ʒ'; + CDS_main.fieldbyname('QtyUnit').Value:='M'; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'T','APTM',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + end; + CDS_main.fieldbyname('MJID').Value:=Trim(maxno); + CDS_main.Post; + end else + begin + CopyAddRowCDS(CDS_main); + tv1.Controller.EditingController.ShowEdit(); + with CDS_main do + begin + Edit; + FieldByName('MJXH').Value:=FieldByName('MJXH').Value+1; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'T','APTM',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + end; + FieldByName('MJId').Value:=Trim(maxno); + fieldbyname('Qty').Value:=Edit1.Text; + fieldbyname('kcKw').Value:=kcKw.Text; + fieldbyname('RollNum').Value:=1; + Post; + end; + end; + Edit1.Text:=''; + end; + + tv1.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmCPRK_Other.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with CDS_main do + begin + Edit; + FieldByName('C_CodeName').Value:=Trim(mvalue); + Post; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(CDS_main.fieldbyname('C_CodeName').AsString))); + open; + end; + IF ADOQueryCmd.IsEmpty then + begin + application.MessageBox('Ʒڣ','ʾϢ',0); + with CDS_main do + begin + Edit; + FieldByName('C_CodeName').Value:=''; + Post; + end; + end; + + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmCPRK_Other.v1C_ColorPropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with CDS_main do + begin + Edit; + FieldByName('C_Color').Value:=Trim(mvalue); + Post; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(CDS_main.fieldbyname('C_CodeName').AsString))); + sql.Add('and DEFstr3='+quotedstr(trim(CDS_main.fieldbyname('C_Color').AsString))); + open; + end; + IF ADOQueryCmd.IsEmpty then + begin + application.MessageBox('ɫڣ','ʾϢ',0); + with CDS_main do + begin + Edit; + FieldByName('C_Color').Value:=''; + Post; + end; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; +procedure TfrmCPRK_Other.CustomerNoNameBtnUpClick(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); + 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(frmZdyAttachment.CDS_HZ.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(frmZdyAttachment.CDS_HZ.fieldbyname('ZdyCode').AsString); + + end; + end; + finally + frmZdyAttachment.Free; + end; +end; + +procedure TfrmCPRK_Other.CustomerNoNameBtnDnClick(Sender: TObject); +begin + CustomerNoName.Text:=''; + CustomerNoName.TxtCode:=''; +end; + +procedure TfrmCPRK_Other.Edit2KeyPress(Sender: TObject; var Key: Char); +var + FReal:Double; + maxno:string; + I:integer; +begin + if Key=#13 then + begin + if Trim(Edit2.Text)='' then Exit; + if TryStrToFlOAT(Edit2.Text,FReal)=False then + begin + Application.MessageBox('Ƿ!','ʾ',0); + Exit; + end; + if CDS_main.IsEmpty then exit; + i:=STRTOintdef(Edit2.Text,0); + for i:=1 to STRTOintdef(Edit2.Text,0) do + begin + CopyAddRowCDS(CDS_main); + with CDS_main do + begin + Edit; + FieldByName('MJXH').Value:=FieldByName('MJXH').Value+1; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd,maxno,'9','WFB_MJJY',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + end; + FieldByName('MJId').Value:=Trim(maxno); + // fieldbyname('Qty').Value:=Edit1.Text; + // fieldbyname('kcKw').Value:=kcKw.Text; + // fieldbyname('RollNum').Value:=1; + Post; + end; + end; + Edit1.Text:=''; + end; + + tv1.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmCPRK_Other.v1Column8PropertiesEditValueChanged(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'W'THEN + BEGIn + mvalue:=trim(mvalue)+'W'; + END; + + + with CDS_main do + begin + Edit; + FieldByName('BCgangNo').Value:=Trim(mvalue); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmCPRK_Other.v1PricePropertiesEditValueChanged( + 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 CDS_main do + begin + Edit; + FieldByName(FFieldName).Value:=Trim(mvalue); + FieldByName('Money').Value:=format('%.2f',[fieldbyname('Qty').AsFloat * fieldbyname('Price').AsFloat]); + Post; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +end. diff --git a/管理系统/U_CP_COL_XL.dfm b/管理系统/U_CP_COL_XL.dfm new file mode 100644 index 0000000..e322627 --- /dev/null +++ b/管理系统/U_CP_COL_XL.dfm @@ -0,0 +1,582 @@ +object frmCP_COL_XL: TfrmCP_COL_XL + Left = 69 + Top = 124 + Width = 1220 + Height = 592 + Caption = #20135#21697#39068#33394#38144#21806#20449#24687 + 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 = 1204 + 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 TBexcel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBexcelClick + 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 = 1204 + Height = 45 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 43 + Top = 15 + 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 Label4: TLabel + Left = 314 + 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 = 495 + Top = 55 + 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 = 164 + Top = 16 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 490 + Top = 15 + 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 = 172 + 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 = 343 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = P_CodeNameChange + end + object ConNoM: TEdit + Tag = 2 + Left = 536 + Top = 51 + Width = 77 + Height = 20 + TabOrder = 3 + end + object P_color: TEdit + Tag = 2 + Left = 519 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = P_CodeNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 77 + Width = 525 + Height = 476 + Align = alLeft + TabOrder = 2 + object Tv1: TcxGridDBBandedTableView + Navigator.Buttons.CustomButtons = <> + OnCellClick = Tv1CellClick + DataController.DataSource = DS_Main + 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 + 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 + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column11 + 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> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnMoving = False + OptionsCustomize.BandHiding = True + OptionsCustomize.BandMoving = False + OptionsCustomize.BandSizing = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsData.Inserting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.cxStyle_fontBlack + Styles.BandHeader = DataLink_TradeManage.cxStyle_fontBlack + Bands = < + item + end + item + Caption = #26690#21326#32442#32455 + end + item + Caption = #23578#32654#29305 + end + item + Caption = #37329#40718#20016#38376#24066#37096 + end + item + Caption = #21512#35745 + end> + object v1Column1: TcxGridDBBandedColumn + Caption = #21697#21517 + DataBinding.FieldName = 'P_CodeName' + HeaderAlignmentHorz = taCenter + Width = 120 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column18: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column2: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'J_ps' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column3: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'J_Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column4: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'J_money' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column5: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'G_ps' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column6: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'G_Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column7: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'G_money' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column8: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'H_ps' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column9: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'H_Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 3 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column10: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'H_Money' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 3 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column11: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ps' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 4 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column12: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 4 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column13: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 4 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column14: TcxGridDBBandedColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'J_KCRollNum' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column15: TcxGridDBBandedColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'J_KCQty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v1Column16: TcxGridDBBandedColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'G_KCRollNum' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column17: TcxGridDBBandedColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'G_KCQty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object GroupBox1: TGroupBox + Left = 792 + Top = 77 + Width = 412 + Height = 476 + Align = alRight + Caption = #23458#25143#38144#21806#20998#26512 + TabOrder = 3 + object cxGrid2: TcxGrid + Left = 2 + Top = 14 + Width = 408 + Height = 460 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_sub + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V2Column3 + end + item + Kind = skSum + Column = V2Column4 + end + item + Kind = skSum + Column = V2Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object V2Column1: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object V2Column2: TcxGridDBColumn + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object V2Column3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ps' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 39 + end + object V2Column4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object V2Column5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 48 + end + object V2Column6: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = TV2 + end + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 300 + Top = 92 + end + object DS_Main: TDataSource + DataSet = CDS_main + Left = 400 + Top = 104 + end + object CDS_main: TClientDataSet + Aggregates = <> + Params = <> + Left = 452 + Top = 104 + end + object ADO_Sub: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 776 + Top = 44 + end + object DS_sub: TDataSource + DataSet = ADO_Sub + Left = 700 + Top = 160 + end +end diff --git a/管理系统/U_CP_COL_XL.pas b/管理系统/U_CP_COL_XL.pas new file mode 100644 index 0000000..3da6750 --- /dev/null +++ b/管理系统/U_CP_COL_XL.pas @@ -0,0 +1,214 @@ +unit U_CP_COL_XL; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, DBClient, DB, ADODB, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxControls, + cxGridCustomView, cxClasses, cxGridLevel, cxGrid, cxGridDBTableView, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + +type + TfrmCP_COL_XL = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label4: TLabel; + Label9: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + P_CodeName: TEdit; + ConNoM: TEdit; + Label2: TLabel; + ADOQueryMain: TADOQuery; + DS_Main: TDataSource; + CDS_main: TClientDataSet; + cxGrid1Level1: TcxGridLevel; + 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; + v1Column17: TcxGridDBBandedColumn; + v1Column18: TcxGridDBBandedColumn; + P_color: TEdit; + Label3: TLabel; + TBexcel: TToolButton; + GroupBox1: TGroupBox; + TV2: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + V2Column1: TcxGridDBColumn; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + V2Column5: TcxGridDBColumn; + V2Column6: TcxGridDBColumn; + ADO_Sub: TADOQuery; + DS_sub: TDataSource; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure P_CodeNameChange(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBexcelClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitGrid(); + procedure initSub(); + { Private declarations } + public + canshu1:string; + { Public declarations } + end; + +var + frmCP_COL_XL: TfrmCP_COL_XL; + +implementation +uses + U_DataLink,U_Fun10; +{$R *.dfm} +procedure TfrmCP_COL_XL.Initsub(); +begin + ADO_Sub.Close; + IF CDS_Main.IsEmpty then exit; + with ADO_Sub do + begin + close; + sql.Clear; + sql.Add('select * from YF_money_CR '); + sql.Add('where CRTime>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''' '); + sql.Add('and CRTime<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''' '); + sql.Add('and P_CodeName='+quotedstr(trim(CDS_Main.fieldbyName('P_CodeName').AsString))); + sql.Add('and P_Color='+quotedstr(trim(CDS_Main.fieldbyName('P_Color').AsString))); + sql.Add('and SYRName='''+trim(canshu1)+''''); + sql.Add('and CRType=''ӦտǼ'' '); + sql.Add('order by CRTime desc '); + open; + end; +end; +procedure TfrmCP_COL_XL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add(' exec P_Get_CP_col_Xl '); + SQL.Add(' @begdate='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add(',@enddate='''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + TBfind.Click; + Initsub(); +end; + +procedure TfrmCP_COL_XL.FormDestroy(Sender: TObject); +begin + frmCP_COL_XL:=nil; +end; + +procedure TfrmCP_COL_XL.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=cafree; +end; + +procedure TfrmCP_COL_XL.FormCreate(Sender: TObject); +begin + enddate.DateTime:=now(); + begdate.DateTime:=enddate.DateTime-30; + cxGrid1.Align:=alclient; + canshu1:=trim(DParameters1); +end; + +procedure TfrmCP_COL_XL.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmCP_COL_XL.TBFindClick(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 TfrmCP_COL_XL.P_CodeNameChange(Sender: TObject); +begin + TBfind.Click; +end; + +procedure TfrmCP_COL_XL.TBRafreshClick(Sender: TObject); +begin + initGrid(); +end; + +procedure TfrmCP_COL_XL.FormShow(Sender: TObject); +begin + IF trim(canshu1)='𻪷֯'then + begin + tv1.Bands[2].Visible:=false; + tv1.Bands[3].Visible:=false; + tv1.Bands[4].Visible:=false; + end; + IF trim(canshu1)=''then + begin + tv1.Bands[1].Visible:=false; + tv1.Bands[3].Visible:=false; + tv1.Bands[4].Visible:=false; + end; + IF trim(canshu1)='𶦷в'then + begin + tv1.Bands[1].Visible:=false; + tv1.Bands[2].Visible:=false; + tv1.Bands[4].Visible:=false; + end; +end; + +procedure TfrmCP_COL_XL.TBexcelClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid1); +end; + +procedure TfrmCP_COL_XL.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + Initsub(); +end; + +end. diff --git a/管理系统/U_CP_COL_XL_ZD.dfm b/管理系统/U_CP_COL_XL_ZD.dfm new file mode 100644 index 0000000..5eed5c5 --- /dev/null +++ b/管理系统/U_CP_COL_XL_ZD.dfm @@ -0,0 +1,401 @@ +object frmCP_COL_XL_ZD: TfrmCP_COL_XL_ZD + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #20135#21697#39068#33394#38144#21806#20449#24687 + 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 = 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 = 1366 + Height = 45 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 43 + Top = 15 + 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 Label4: TLabel + Left = 314 + 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 = 495 + Top = 55 + 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 = 164 + Top = 16 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 490 + Top = 15 + 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 = 172 + 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 = 343 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = P_CodeNameChange + end + object ConNoM: TEdit + Tag = 2 + Left = 536 + Top = 51 + Width = 77 + Height = 20 + TabOrder = 3 + end + object P_color: TEdit + Tag = 2 + Left = 519 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = P_CodeNameChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 77 + Width = 1366 + Height = 332 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBBandedTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_Main + 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 + Column = v1Column5 + end + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column12 + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnMoving = False + OptionsCustomize.BandHiding = True + OptionsCustomize.BandMoving = False + OptionsCustomize.BandSizing = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsData.Inserting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.cxStyle_fontBlack + Styles.BandHeader = DataLink_TradeManage.cxStyle_fontBlack + Bands = < + item + end + item + Caption = #26690#21326#32442#32455 + end + item + Caption = #23578#32654#29305 + end + item + Caption = #21512#35745 + end> + object v1Column1: TcxGridDBBandedColumn + Caption = #21697#21517 + DataBinding.FieldName = 'P_CodeName' + HeaderAlignmentHorz = taCenter + Width = 120 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column18: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column2: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'J_ps' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column3: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'J_Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column4: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'J_money' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column5: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'G_ps' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column6: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'G_Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column7: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'G_money' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column11: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ps' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column12: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 3 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column13: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 3 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 300 + Top = 92 + end + object DS_Main: TDataSource + DataSet = CDS_main + Left = 400 + Top = 104 + end + object CDS_main: TClientDataSet + Aggregates = <> + Params = <> + Left = 452 + Top = 104 + end +end diff --git a/管理系统/U_CP_COL_XL_ZD.pas b/管理系统/U_CP_COL_XL_ZD.pas new file mode 100644 index 0000000..e716ba8 --- /dev/null +++ b/管理系统/U_CP_COL_XL_ZD.pas @@ -0,0 +1,150 @@ +unit U_CP_COL_XL_ZD; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, DBClient, DB, ADODB, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxControls, + cxGridCustomView, cxClasses, cxGridLevel, cxGrid, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +type + TfrmCP_COL_XL_ZD = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label4: TLabel; + Label9: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + P_CodeName: TEdit; + ConNoM: TEdit; + Label2: TLabel; + ADOQueryMain: TADOQuery; + DS_Main: TDataSource; + CDS_main: TClientDataSet; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBBandedTableView; + v1Column1: TcxGridDBBandedColumn; + v1Column2: TcxGridDBBandedColumn; + v1Column3: TcxGridDBBandedColumn; + v1Column4: TcxGridDBBandedColumn; + v1Column5: TcxGridDBBandedColumn; + v1Column6: TcxGridDBBandedColumn; + v1Column7: TcxGridDBBandedColumn; + v1Column11: TcxGridDBBandedColumn; + v1Column12: TcxGridDBBandedColumn; + v1Column13: TcxGridDBBandedColumn; + v1Column18: TcxGridDBBandedColumn; + P_color: TEdit; + Label3: 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 P_CodeNameChange(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + canshu1:string; + { Public declarations } + end; + +var + frmCP_COL_XL_ZD: TfrmCP_COL_XL_ZD; + +implementation +uses + U_DataLink,U_Fun10; +{$R *.dfm} +procedure TfrmCP_COL_XL_ZD.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add(' exec P_Get_CP_col_Xl_ZD '); + SQL.Add(' @begdate='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add(',@enddate='''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + TBfind.Click; +end; + +procedure TfrmCP_COL_XL_ZD.FormDestroy(Sender: TObject); +begin + frmCP_COL_XL_ZD:=nil; +end; + +procedure TfrmCP_COL_XL_ZD.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=cafree; +end; + +procedure TfrmCP_COL_XL_ZD.FormCreate(Sender: TObject); +begin + enddate.DateTime:=now(); + begdate.DateTime:=enddate.DateTime-30; + cxGrid1.Align:=alclient; + canshu1:=trim(DParameters1); +end; + +procedure TfrmCP_COL_XL_ZD.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmCP_COL_XL_ZD.TBFindClick(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 TfrmCP_COL_XL_ZD.P_CodeNameChange(Sender: TObject); +begin + TBfind.Click; +end; + +procedure TfrmCP_COL_XL_ZD.TBRafreshClick(Sender: TObject); +begin + initGrid(); +end; + +procedure TfrmCP_COL_XL_ZD.FormShow(Sender: TObject); +begin + IF trim(canshu1)='𻪷֯'then + begin + tv1.Bands[2].Visible:=false; + tv1.Bands[3].Visible:=false; + tv1.Bands[4].Visible:=false; + end; + IF trim(canshu1)=''then + begin + tv1.Bands[1].Visible:=false; + tv1.Bands[3].Visible:=false; + tv1.Bands[4].Visible:=false; + end; +end; + +end. diff --git a/管理系统/U_CP_CRC.dfm b/管理系统/U_CP_CRC.dfm new file mode 100644 index 0000000..b9779d6 --- /dev/null +++ b/管理系统/U_CP_CRC.dfm @@ -0,0 +1,701 @@ +object frmCP_CRC: TfrmCP_CRC + 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 = DataLink_TradeManage.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 = 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 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 = 160 + Top = 16 + Width = 6 + Height = 12 + Caption = '-' + end + object Label4: TLabel + Left = 464 + Top = 64 + 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 Label5: TLabel + Left = 408 + Top = 68 + 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 Label6: TLabel + Left = 320 + Top = 16 + 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 = 500 + 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 = 64 + 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 = 172 + 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 = 168 + Top = 52 + 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 = 336 + Top = 56 + 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 = 496 + Top = 60 + Width = 100 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 7 + OnChange = userIDChange + Items.Strings = ( + '' + #19968#36710#38388 + #20108#36710#38388) + end + object C_Color: TEdit + Tag = 2 + Left = 528 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = userIDChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 348 + Top = 12 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = userIDChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 77 + Width = 1178 + Height = 420 + Align = alTop + TabOrder = 2 + object TV1: TcxGridDBBandedTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = V1Column6 + end + item + Kind = skSum + Position = spFooter + Column = V1Column7 + end + item + Kind = skSum + Position = spFooter + Column = V1Column8 + end + item + Kind = skSum + Position = spFooter + Column = V1Column9 + end + item + Kind = skSum + Position = spFooter + Column = V1Column10 + end + item + Kind = skSum + Position = spFooter + Column = V1Column11 + end + item + Kind = skSum + Position = spFooter + Column = V1Column12 + end + item + Kind = skSum + Position = spFooter + Column = V1Column13 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + 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 = V1Column6 + 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 + Column = V1Column11 + end + item + Kind = skSum + Column = V1Column12 + end + item + Kind = skSum + Column = V1Column13 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnMoving = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Footer = DataLink_TradeManage.cxStyle_gridFoot + Styles.GroupByBox = DataLink_TradeManage.cxStyle_gridGroupBox + Styles.Header = DataLink_TradeManage.cxStyle_gridHead + Styles.BandHeader = DataLink_TradeManage.cxStyle_gridHead + Bands = < + item + Width = 250 + end + item + Caption = #19978#26399#32467#23384 + Width = 160 + end + item + Caption = #26412#26399#20837#24211 + Width = 160 + end + item + Caption = #26412#26399#20986#24211 + Width = 160 + end + item + Caption = #26412#26399#32467#23384 + Width = 160 + end> + object V1Column2: TcxGridDBBandedColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Width = 148 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1Column3: TcxGridDBBandedColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 102 + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1Column6: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Q_RollNum' + HeaderAlignmentHorz = taCenter + Width = 60 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1Column7: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Q_Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1Column8: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'R_RollNum' + HeaderAlignmentHorz = taCenter + Width = 60 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1Column9: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'R_Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1Column10: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'C_RollNum' + HeaderAlignmentHorz = taCenter + Width = 60 + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1Column11: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 3 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object V1Column12: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'N_RollNum' + HeaderAlignmentHorz = taCenter + Width = 60 + Position.BandIndex = 4 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object V1Column13: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'N_Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 4 + Position.ColIndex = 1 + 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 = DataLink_TradeManage.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_CP_CRC.pas b/管理系统/U_CP_CRC.pas new file mode 100644 index 0000000..1f3727c --- /dev/null +++ b/管理系统/U_CP_CRC.pas @@ -0,0 +1,237 @@ +unit U_CP_CRC; + +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; + +type + TfrmCP_CRC = 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; + V1Column2: TcxGridDBBandedColumn; + V1Column3: TcxGridDBBandedColumn; + V1Column6: TcxGridDBBandedColumn; + V1Column7: TcxGridDBBandedColumn; + V1Column8: TcxGridDBBandedColumn; + V1Column9: TcxGridDBBandedColumn; + V1Column10: TcxGridDBBandedColumn; + V1Column11: TcxGridDBBandedColumn; + V1Column12: TcxGridDBBandedColumn; + V1Column13: TcxGridDBBandedColumn; + Label5: TLabel; + Label6: TLabel; + Label9: TLabel; + C_Color: TEdit; + C_CodeName: TEdit; + 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); + private + fstr1:string; + fstr2:string; + procedure DoQuery(); + procedure FilterData(); + { Private declarations } + public + istyjp:boolean; + fdept:string; + { Public declarations } + end; + +var + frmCP_CRC: TfrmCP_CRC; + +implementation +uses U_Fun10,U_DataLink; +{$R *.dfm} + + +procedure TfrmCP_CRC.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+1);//+' '+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_CP_CRC '); + sql.Add(' @begdate='+quotedstr(trim(mbegdate))); + sql.Add(',@Enddate='+quotedstr(trim(menddate))); + sql.Add(',@otherwhere='+quotedstr(trim(''))); + open; + end; + FilterData(); + finally + Panetime.Visible:=false; + screen.Cursor:=crdefault; + end; +end; +procedure TfrmCP_CRC.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)+'%'); + if trim(C_Color.Text)<>'' then + filterStr:=filterStr+' and C_Color like '+quotedstr('%'+trim(C_Color.Text)+'%'); + if trim(C_Codename.Text)<>'' then + filterStr:=filterStr+' and C_Codename like '+quotedstr('%'+trim(C_Codename.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 TfrmCP_CRC.FormDestroy(Sender: TObject); +begin + frmCP_CRC:=nil; +end; + +procedure TfrmCP_CRC.FormClose(Sender: TObject; var Action: TCloseAction); +begin + writeCxBandedGrid(self.Caption+tv1.Name,tv1,'ۺϲѯ'); + action:=cafree; +end; + +procedure TfrmCP_CRC.TqryClick(Sender: TObject); +begin + DoQuery(); +end; + +procedure TfrmCP_CRC.TxlsClick(Sender: TObject); +begin + if adoquerytmp.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxgrid1); +end; + +procedure TfrmCP_CRC.tcloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmCP_CRC.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + enddate.Date:=date(); + begdate.Date:=date(); + +end; + +procedure TfrmCP_CRC.FormShow(Sender: TObject); +begin + writeCxBandedGrid(self.Caption+tv1.Name,tv1,'ۺϲѯ'); + +end; + +procedure TfrmCP_CRC.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.Clear; + 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['Title'] :=trim(dept.Text); + RMGridReport1.LoadFromFile(filepath); + // RMGridReport1.PrintReport; + RMGridReport1.ShowReport; + + finally + + end; + +end; + +procedure TfrmCP_CRC.userIDChange(Sender: TObject); +begin + FilterData(); +end; + +end. diff --git a/管理系统/U_CP_XL.dfm b/管理系统/U_CP_XL.dfm new file mode 100644 index 0000000..fb1ef03 --- /dev/null +++ b/管理系统/U_CP_XL.dfm @@ -0,0 +1,457 @@ +object frmCP_XL: TfrmCP_XL + Left = 43 + Top = 123 + Width = 1220 + Height = 592 + Caption = 'frmCP_XL' + 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 = 1204 + 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 TBexcept: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBexceptClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #26597#30475#26126#32454 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1204 + Height = 45 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 43 + Top = 15 + 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 Label4: TLabel + Left = 314 + 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 = 495 + Top = 55 + 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 = 164 + 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 = 172 + 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 = 343 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = P_CodeNameChange + end + object ConNoM: TEdit + Tag = 2 + Left = 536 + Top = 51 + Width = 77 + Height = 20 + TabOrder = 3 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 77 + Width = 1204 + Height = 332 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBBandedTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_Main + 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 + 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 + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column11 + 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> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnMoving = False + OptionsCustomize.BandHiding = True + OptionsCustomize.BandMoving = False + OptionsCustomize.BandSizing = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsData.Inserting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.cxStyle_fontBlack + Styles.BandHeader = DataLink_TradeManage.cxStyle_fontBlack + Bands = < + item + end + item + Caption = #26690#21326#32442#32455 + end + item + Caption = #23578#32654#29305 + end + item + Caption = #37329#40718#20016#38376#24066#37096 + end + item + Caption = #21512#35745 + end> + object v1Column1: TcxGridDBBandedColumn + Caption = #21697#21517 + DataBinding.FieldName = 'P_CodeName' + HeaderAlignmentHorz = taCenter + Width = 120 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column2: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'J_ps' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column3: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'J_Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column4: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'J_money' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column5: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'G_ps' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column6: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'G_Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column7: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'G_money' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column8: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'H_ps' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column9: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'H_Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 3 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column10: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'H_Money' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 3 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column11: TcxGridDBBandedColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ps' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 4 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object v1Column12: TcxGridDBBandedColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 4 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object v1Column13: TcxGridDBBandedColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 4 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object v1Column14: TcxGridDBBandedColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'J_KCRollNum' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column15: TcxGridDBBandedColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'J_KCQty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 1 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object v1Column16: TcxGridDBBandedColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'G_KCRollNum' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object v1Column17: TcxGridDBBandedColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'G_KCQty' + HeaderAlignmentHorz = taCenter + Width = 80 + Position.BandIndex = 2 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 300 + Top = 92 + end + object DS_Main: TDataSource + DataSet = CDS_main + Left = 400 + Top = 104 + end + object CDS_main: TClientDataSet + Aggregates = <> + Params = <> + Left = 452 + Top = 104 + end +end diff --git a/管理系统/U_CP_XL.pas b/管理系统/U_CP_XL.pas new file mode 100644 index 0000000..d710284 --- /dev/null +++ b/管理系统/U_CP_XL.pas @@ -0,0 +1,183 @@ +unit U_CP_XL; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, DBClient, DB, ADODB, + cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxControls, + cxGridCustomView, cxClasses, cxGridLevel, cxGrid, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +type + TfrmCP_XL = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label4: TLabel; + Label9: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + P_CodeName: TEdit; + ConNoM: TEdit; + Label2: TLabel; + ADOQueryMain: TADOQuery; + DS_Main: TDataSource; + CDS_main: TClientDataSet; + cxGrid1Level1: TcxGridLevel; + 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; + v1Column17: TcxGridDBBandedColumn; + ToolButton1: TToolButton; + TBexcept: 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 P_CodeNameChange(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBexceptClick(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + canshu1:string; + { Public declarations } + end; + +var + frmCP_XL: TfrmCP_XL; + +implementation +uses + U_DataLink,U_Fun10,U_CP_COL_XL; +{$R *.dfm} +procedure TfrmCP_XL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add(' exec P_Get_CP_Xl '); + SQL.Add(' @begdate='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add(',@enddate='''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + end; + TBfind.Click; +end; + +procedure TfrmCP_XL.FormDestroy(Sender: TObject); +begin + frmCP_XL:=nil; +end; + +procedure TfrmCP_XL.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=cafree; +end; + +procedure TfrmCP_XL.FormCreate(Sender: TObject); +begin + enddate.DateTime:=now(); + begdate.DateTime:=enddate.DateTime-30; + cxGrid1.Align:=alclient; + canshu1:=trim(DParameters1); +end; + +procedure TfrmCP_XL.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmCP_XL.TBFindClick(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 TfrmCP_XL.P_CodeNameChange(Sender: TObject); +begin + TBfind.Click; +end; + +procedure TfrmCP_XL.TBRafreshClick(Sender: TObject); +begin + initGrid(); +end; + +procedure TfrmCP_XL.FormShow(Sender: TObject); +begin + IF trim(canshu1)='𻪷֯'then + begin + tv1.Bands[2].Visible:=false; + tv1.Bands[3].Visible:=false; + tv1.Bands[4].Visible:=false; + end; + IF trim(canshu1)=''then + begin + tv1.Bands[1].Visible:=false; + tv1.Bands[3].Visible:=false; + tv1.Bands[4].Visible:=false; + end; + IF trim(canshu1)='𶦷в'then + begin + tv1.Bands[1].Visible:=false; + tv1.Bands[2].Visible:=false; + tv1.Bands[4].Visible:=false; + end; +end; + +procedure TfrmCP_XL.ToolButton1Click(Sender: TObject); +begin + IF cds_main.IsEmpty then exit; + frmCP_COL_XL:=TfrmCP_COL_XL.create(self); + with frmCP_COL_XL do + begin + begdate.Date:=self.BegDate.Date; + enddate.Date:=self.EndDate.date; + P_Codename.Text:=self.cds_main.fieldbyname('P_CodeName').asstring; + show; + end; +end; + +procedure TfrmCP_XL.TBexceptClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid1); +end; + +end. diff --git a/管理系统/U_ClothContractInPut.dfm b/管理系统/U_ClothContractInPut.dfm new file mode 100644 index 0000000..b03f336 --- /dev/null +++ b/管理系统/U_ClothContractInPut.dfm @@ -0,0 +1,660 @@ +object frmClothContractInPut: TfrmClothContractInPut + Left = 404 + Top = 253 + Width = 1046 + Height = 541 + 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 + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1030 + 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 = 1030 + Height = 96 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 20 + Top = 14 + Width = 65 + Height = 12 + Caption = #20219#21153#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 = 290 + Top = 14 + Width = 65 + Height = 12 + Caption = #21040#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 = 290 + Top = 38 + 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 = 28 + Top = 166 + 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 + Visible = False + end + object Label3: TLabel + Left = 20 + Top = 38 + 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 = 231 + Top = 270 + 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 + Visible = False + end + object Label7: TLabel + Left = 548 + Top = 38 + 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 Label8: TLabel + Left = 290 + Top = 62 + Width = 65 + Height = 12 + Caption = #21040#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 Label9: TLabel + Left = 20 + Top = 62 + Width = 65 + Height = 12 + Caption = #32852#31995#26041#24335#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 = 546 + Top = 14 + Width = 91 + Height = 12 + Caption = #37319#36141#35745#21010#21333#21495#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 = 137 + Height = 18 + TabOrder = 0 + end + object DeliveryDate: TDateTimePicker + Left = 353 + Top = 10 + Width = 134 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + TabOrder = 1 + end + object FactoryNoName: TcxButtonEdit + Left = 353 + Top = 34 + Hint = 'FactoryNo' + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick + Properties.OnChange = FactoryNoNamePropertiesChange + Style.BorderStyle = ebsSingle + TabOrder = 2 + Width = 134 + end + object PanZDY: TPanel + Left = 861 + 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 + Navigator.Buttons.CustomButtons = <> + 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 = 90 + Top = 162 + Width = 140 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + Visible = False + end + object CompanyName: TcxButtonEdit + Left = 85 + Top = 34 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = CompanyNamePropertiesButtonClick + Style.BorderStyle = ebsSingle + TabOrder = 5 + Width = 136 + end + object QDPalce: TEdit + Left = 311 + Top = 271 + Width = 131 + Height = 18 + TabOrder = 6 + Visible = False + end + object LXPerson: TEdit + Left = 611 + Top = 35 + Width = 134 + Height = 18 + TabOrder = 7 + end + object LXTel: TEdit + Left = 85 + Top = 59 + Width = 136 + Height = 18 + TabOrder = 8 + end + object JHPlace: TcxButtonEdit + Left = 353 + Top = 58 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JHPlacePropertiesButtonClick + Style.BorderStyle = ebsSingle + TabOrder = 9 + Width = 392 + end + object fromConNo: TcxButtonEdit + Tag = 1 + Left = 633 + Top = 10 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = fromConNoPropertiesButtonClick + Style.BorderStyle = ebsSingle + TabOrder = 10 + OnKeyPress = fromConNoKeyPress + Width = 116 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 125 + Width = 1030 + 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 + object Panel1: TPanel + Left = 126 + Top = 0 + Width = 467 + Height = 30 + BevelOuter = bvNone + TabOrder = 0 + object Label11: TLabel + Left = 92 + Top = 12 + Width = 36 + Height = 12 + Caption = #21333#20215#65306 + end + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 154 + Width = 1030 + Height = 219 + Align = alTop + TabOrder = 3 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnCellClick = Tv1CellClick + 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 + OptionsCustomize.ColumnSorting = 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 + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + 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' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + VisibleForCustomization = False + Width = 78 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + VisibleForCustomization = False + Width = 80 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1ClothUnitPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 58 + end + object v1Column5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 54 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1ClothUnitPropertiesEditValueChanged + 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 v1Money: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 70 + end + object v1Mrate: TcxGridDBColumn + Caption = #35745#21010#32553#29575 + DataBinding.FieldName = 'Mrate' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v1T_Ps: TcxGridDBColumn + Caption = #36864#36135#21305#25968 + DataBinding.FieldName = 'T_Ps' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1T_Qty: TcxGridDBColumn + Caption = #36864#36135#25968#37327 + DataBinding.FieldName = 'T_Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column6PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1T_Price: TcxGridDBColumn + Caption = #36864#36135#21333#20215 + DataBinding.FieldName = 'T_Price' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column6PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1T_money: TcxGridDBColumn + Caption = #36864#36135#37329#39069 + DataBinding.FieldName = 'T_money' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 177 + end + object Tv1Column1: TcxGridDBColumn + Caption = #25104#21697#21697#21517 + DataBinding.FieldName = 'CP_CodeName' + HeaderAlignmentHorz = taCenter + Width = 118 + end + object Tv1Column2: TcxGridDBColumn + Caption = #24211#23384#35843#25972#21305#25968 + DataBinding.FieldName = 'kctzps' + Width = 90 + end + object Tv1Column3: TcxGridDBColumn + Caption = #24211#23384#35843#25972#25968#37327 + DataBinding.FieldName = 'kctzsl' + Width = 90 + 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 = 356 + Top = 192 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 424 + Top = 192 + 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 ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 792 + Top = 125 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 528 + Top = 200 + end +end diff --git a/管理系统/U_ClothContractInPut.pas b/管理系统/U_ClothContractInPut.pas new file mode 100644 index 0000000..c7d4c53 --- /dev/null +++ b/管理系统/U_ClothContractInPut.pas @@ -0,0 +1,1156 @@ +unit U_ClothContractInPut; + +interface + +uses + Windows, Messages,strUtils, SysUtils, cxTextEdit,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, + cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, + 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 + TfrmClothContractInPut = 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; + v1PRTColor: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1PRTKZ: TcxGridDBColumn; + v1Money: TcxGridDBColumn; + v1Price: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + FactoryNoName: TcxButtonEdit; + ADOQueryTmp: TADOQuery; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: 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; + v1Column5: TcxGridDBColumn; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + LXPerson: TEdit; + LXTel: TEdit; + JHPlace: TcxButtonEdit; + Label10: TLabel; + fromConNo: TcxButtonEdit; + v1T_Qty: TcxGridDBColumn; + v1T_money: TcxGridDBColumn; + v1T_Ps: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + v1Mrate: TcxGridDBColumn; + v1T_Price: TcxGridDBColumn; + Panel1: TPanel; + Label11: TLabel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + 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 v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure fromConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1ClothUnitPropertiesEditValueChanged(Sender: TObject); + procedure fromConNoPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column6PropertiesEditValueChanged(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(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; + function YFData(fMainID,FsubID:string):Boolean; + procedure DoQuery(fkeyNo:string); + procedure DoKc(); + { Private declarations } + public + PState:Integer; + FMainId:String; + + { Public declarations } + end; + +var + frmClothContractInPut: TfrmClothContractInPut; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun, U_ZdyAttachGYS,U_ClothContractList_CG_help, + U_ZdyAttachCP; + +{$R *.dfm} +procedure TfrmClothContractInPut.DoKc(); +begin + Label11.Caption:='ۣ0'; + IF Order_Sub.IsEmpty then exit; + IF trim(Order_Sub.fieldbyname('C_CodeName').AsString)='' then exit; + + with ADOTemp do + begin + close; + sql.Clear; + SQL.Add(' SELECT Top 1 Price FROM YF_Money_CR A'); + sql.Add(' where P_CodeName='+quotedstr(trim(Order_Sub.fieldbyname('C_CodeName').AsString))); + sql.Add(' and factoryName='+quotedstr(trim(FactoryNoName.Text))); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and price>0 '); + sql.Add(' order by FillTime desc'); + open; + end; + IF not ADOTemp.IsEmpty then + begin + Label11.Caption:='ۣ'+trim(ADOTemp.fieldbyname('price').AsString); + end; +end; +procedure TfrmClothContractInPut.DoQuery(fkeyNo:string); +begin + IF trim(fkeyNo)='' then exit; + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select A.* from Contract_Main A '); + sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); + sql.Add('where A.conNo='+quotedstr(trim(fkeyNo))); + sql.Add('and Isnull(B.C_status,''0'')=''0'' '); + open; + IF not IsEmpty then + begin + FactoryNoName.Text:=fieldbyname('FactoryNoName').AsString; + LXPerson.Text:=fieldbyname('LXPerson').AsString; + LXPerson.Text:=fieldbyname('LXPerson').AsString; + LXTel.Text:=fieldbyname('LXPerson').AsString; + fromConNo.Hint:=fieldbyname('mainID').AsString; + JHPlace.Text:=fieldbyname('QDPalce').AsString; + end + else + begin + application.MessageBox('˲ɹƻŴ','ʾϢ',0); + exit; + end; + end; + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); + sql.Add('where A.conNo='+quotedstr(trim(fkeyNo))); + sql.Add('and Isnull(B.C_status,''0'')=''0'' '); + open; + IF not IsEmpty then + begin + SCreateCDS20(ADOTemp,Order_Sub); + SInitCDSData20(ADOTemp,Order_Sub); + end + else + begin + end; + end; + with Order_Sub do + begin + DisableControls; + First; + while not eof do + begin + edit; + fieldbyname('fromMainID').Value:= fieldbyname('MainID').AsString; + fieldbyname('fromsubID').Value:= fieldbyname('subID').AsString; + fieldbyname('MainID').Value:= ''; + fieldbyname('subID').Value:= ''; + post; + next; + end; + First; + EnableControls; + end; + +end; +function TfrmClothContractInPut.YFData(fMainID,FsubID:string):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + try + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(FactoryNoName.Text)+''''); + Open; + end; + if not ADOQueryTmp.IsEmpty then + begin + CRID:=ADOQueryTmp.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 '); + sql.add('where CRID='+quotedstr(trim(CRID))); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(FactoryNoName.Text); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + + with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where mainID='''+Trim(FmainID)+''''); + sql.Add('and subID='''+Trim(FsubID)+''''); + sql.Add('and YFName='''' '); + Open; + end; + if ADOQueryTmp.IsEmpty then + begin + if GetLSNo(ADOCmd,YFID,'YF','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end + else + begin + YFID:=Trim(ADOQueryTmp.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 ADOQueryTmp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(ConNo.Text); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryName').Value:=Trim(FactoryNoName.Text); + FieldByName('CRTime').Value:=formatDateTime('yyyy-MM-dd',DeliveryDate.Date); + FieldByName('Qty').Value:=Order_Sub.fieldbyname('C_Qty').AsFloat; + FieldByName('PS').Value:=Order_Sub.fieldbyname('Qty1').AsFloat; + FieldByName('T_Ps').Value:=Order_Sub.fieldbyname('T_Ps').AsFloat; + FieldByName('T_Qty').Value:=Order_Sub.fieldbyname('T_Qty').AsFloat; + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Order_Sub.fieldbyname('Price').asfloat; + FieldByName('T_Price').Value:=Order_Sub.fieldbyname('T_Price').asfloat; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('ComTaiTou').Value:=Trim(FComTaiTou); + FieldByName('QtyUnit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString); + FieldByName('YFName').Value:=''; + FieldByName('MainId').Value:=Trim(fMainID); + FieldByName('subID').Value:=Trim(fsubID); + FieldByName('P_CodeName').Value:=Trim(Order_Sub.fieldbyname('C_CodeName').AsString); + FieldByName('P_Color').Value:=Trim(Order_Sub.fieldbyname('C_color').AsString); + Post; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty,T_money=T_Price*T_Qty '); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + 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; + except + end; +end; +procedure TfrmClothContractInPut.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmClothContractInPut.InitData(); +begin + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); + sql.Add('where A.mainID= '''+Trim(fMainID)+''' '); + sql.Add('and A.conType='''' '); + Open; + end; + + SCreateCDS20(ADOQueryTmp,Order_Sub); + SInitCDSData20(ADOQueryTmp,Order_Sub); + SCSHData(ADOQueryTmp,ScrollBox1,0); + IF not ADOQueryTmp.IsEmpty then + begin + fromConNo.Hint:=trim(ADOQueryTmp.fieldbyname('fromMainID').AsString); + fromConNo.Text:=trim(ADOQueryTmp.fieldbyname('fromConNo').AsString); + end; + 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; + // ConNo.Text:='Զ'; + //CompanyName.Text:='¡֯'; + 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.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;} + readCXgrid(self.Caption,tv1); + 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',3,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); + FieldByName('LXPerson').Value:=Trim(LXPerson.Text); + FieldByName('LXTel').Value:=Trim(LXTel.Text); + 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('ConType').Value:=''; + FieldByName('status').Value:='0'; + FieldByName('fromconNo').Value:=Trim(fromConNo.Text); + FieldByName('fromMainID').Value:=Trim(fromConNo.Hint); + 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 + 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); + FieldByName('ConNo').Value:=Trim(ConNo.Text); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0); + FieldByName('fromMainID').Value:=Trim(Order_Sub.fieldbyname('fromMainID').AsString); + FieldByName('fromsubID').Value:=Trim(Order_Sub.fieldbyname('fromsubID').AsString); + FieldByName('mrate').Value:=Trim(Order_Sub.fieldbyname('mrate').AsString); + FieldByName('C_status').Value:='0'; + FieldByName('MFQty').Value:=Order_Sub.fieldbyname('MFQty').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('Qty2').Value:=Order_Sub.fieldbyname('Qty2').AsFloat; + FieldByName('Qty3').Value:=Order_Sub.fieldbyname('Qty3').AsFloat; + FieldByName('Price').Value:=Order_Sub.fieldbyname('Price').AsFloat; + FieldByName('money').Value:=Order_Sub.fieldbyname('money').AsFloat; + FieldByName('T_ps').Value:=Order_Sub.fieldbyname('T_ps').AsFloat; + FieldByName('T_Qty').Value:=Order_Sub.fieldbyname('T_Qty').AsFloat; + FieldByName('T_Price').Value:=Order_Sub.fieldbyname('T_Price').AsFloat; + FieldByName('T_money').Value:=Order_Sub.fieldbyname('T_money').AsFloat; + FieldByName('H_ps').Value:=Order_Sub.fieldbyname('H_ps').AsFloat; + FieldByName('H_Qty').Value:=Order_Sub.fieldbyname('H_Qty').AsFloat; + if Trim(Order_Sub.fieldbyname('C_Unit').AsString)='Kg' then + begin + if Order_Sub.fieldbyname('MFQty').AsFloat*Order_Sub.fieldbyname('KZQty').AsFloat >0 then + 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_Valid').Value:='Y'; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SubId').Value:=Trim(maxno); + + if not YFData(FMainId,maxno) then + begin + ADOCmd.Connection.RollbackTrans; + exit; + end; + //Order_Sub.Post; + Next; + end; + end; + + + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + if GetLSNo(ADOTemp,maxno,'CM','Contract_Main',3,1)=False then + begin + end; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPut.TBSaveClick(Sender: TObject); +begin + cxGrid1.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; } + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select MainID from Contract_Main A'); + sql.Add('where mainID<>'+quotedstr(trim(FMainId))); + sql.Add('and conNo='+quotedstr(trim(conNo.Text))); + sql.Add('and conType='''''); + open; + end; + IF not ADOTemp.IsEmpty then + begin + application.MessageBox('񵥺ظ','ʾϢ',0); + exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ModalResult:=1; + // ConNo.Text:='Զ'; + { FactoryNoName.Text:=''; + CompanyName.Text:='֯'; + LXPerson.Text:=''; + LXTel.Text:=''; + JHPlace.Text:=''; + Order_Sub.EmptyDataSet; + PState:=0; + FMainId:=''; } + 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; + fieldbyname('PriceUnit').Value:=''; + fieldbyname('C_UNit').Value:='M'; + 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 Contrac_Sub_MX where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + Open; + end; + if ADOTemp.IsEmpty 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 YF_Money_CR where subID='''+Trim(Order_Sub.fieldbyname('subID').AsString)+''''); + 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 + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + FactoryNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + LXTel.Text:=Trim(CDS_HZ.fieldbyname('DEFstr2').AsString); + LXPerson.Text:=Trim(CDS_HZ.fieldbyname('DEFstr4').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmClothContractInPut.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + fType:=''; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString); + Self.Order_Sub.FieldByName('CP_CodeName').Value:=Trim(CDS_HZ.fieldbyname('CPhh').AsString); + // Self.Order_Sub.FieldByName('Color').Value:=Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + end; + end; + finally + frmZdyAttachCP.Free; + end; + DoKc(); + self.tv1.Controller.EditingController.ShowEdit(); +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 + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + JHPlace.Text:=Trim(CDS_HZ.fieldbyname('zdyName').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; + +end; + +procedure TfrmClothContractInPut.v1Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + with Order_Sub do + begin + Edit; + FieldByName('C_CodeName').Value:=Trim(mvalue); + Post; + end; + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('C_CodeName').AsString))); + open; + end; + IF ADOTemp.IsEmpty then + begin + application.MessageBox('Ʒڣ','ʾϢ',0); + with Order_Sub do + begin + Edit; + FieldByName('C_CodeName').Value:=''; + Post; + end; + end; + + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmClothContractInPut.fromConNoKeyPress(Sender: TObject; + var Key: Char); +begin + if key=#13 then + begin + DoQuery(fromConNo.text); + end; +end; + +procedure TfrmClothContractInPut.v1ClothUnitPropertiesEditValueChanged( + Sender: TObject); + var + mvalue,fieldname:String; +begin + If Trim(TcxTextEdit(Sender).EditingText)<>'' then + begin + mvalue:=TcxTextEdit(Sender).EditingText; + end else + begin + mvalue:='0'; + end; + fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with Order_Sub do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=mvalue; + Post; + end; + with Order_Sub do + begin + Edit; + FieldByName('money').Value:=strtofloat(format('%.2f',[FieldByName('C_Qty').AsFloat*FieldByName('Price').AsFloat])); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmClothContractInPut.fromConNoPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin +try + frmClothContractList_CG_help:=TfrmClothContractList_CG_help.Create(Application); + with frmClothContractList_CG_help do + begin + if ShowModal=1 then + begin + fromConNO.Text:=Trim(Order_Main.fieldbyname('ConNO').AsString); + end; + end; + finally + frmClothContractList_CG_help.Free; + end; + DoQuery(fromConNo.text); +end; + +procedure TfrmClothContractInPut.v1Column6PropertiesEditValueChanged( + Sender: TObject); + var + mvalue,fieldname:String; +begin + If Trim(TcxTextEdit(Sender).EditingText)<>'' then + begin + mvalue:=TcxTextEdit(Sender).EditingText; + end else + begin + mvalue:='0'; + end; + fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with Order_Sub do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=mvalue; + Post; + end; + with Order_Sub do + begin + Edit; + FieldByName('T_money').Value:=strtofloat(format('%.2f',[FieldByName('T_Qty').AsFloat*FieldByName('T_Price').AsFloat])); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + + +procedure TfrmClothContractInPut.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + writeCXgrid(self.Caption,tv1); +end; + +procedure TfrmClothContractInPut.FormCreate(Sender: TObject); +begin + cxGrid1.Align:=Alclient; +end; + +procedure TfrmClothContractInPut.Tv1CellClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + DoKc(); +end; + +end. diff --git a/管理系统/U_ClothContractInPut_CG.dfm b/管理系统/U_ClothContractInPut_CG.dfm new file mode 100644 index 0000000..c7b65ed --- /dev/null +++ b/管理系统/U_ClothContractInPut_CG.dfm @@ -0,0 +1,577 @@ +object frmClothContractInPut_CG: TfrmClothContractInPut_CG + Left = 213 + Top = 163 + Width = 902 + Height = 431 + Caption = #37319#36141#35745#21010 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 886 + 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 = 886 + Height = 88 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 20 + Top = 14 + Width = 91 + Height = 12 + Caption = #37319#36141#35745#21010#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 = 20 + Top = 38 + Width = 65 + Height = 12 + Caption = #21040#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 = 543 + 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 = 296 + 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 = 522 + Top = 242 + 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 + Visible = False + end + object Label6: TLabel + Left = 20 + Top = 62 + Width = 65 + Height = 12 + Caption = #36865#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 Label7: TLabel + Left = 296 + Top = 38 + 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 Label8: TLabel + Left = 26 + Top = 214 + 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 + Visible = False + end + object Label9: TLabel + Left = 543 + Top = 38 + Width = 65 + Height = 12 + Caption = #32852#31995#26041#24335#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 = 108 + Top = 11 + Width = 115 + Height = 18 + Enabled = False + TabOrder = 0 + end + object DeliveryDate: TDateTimePicker + Left = 85 + Top = 34 + Width = 140 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + ShowCheckbox = True + TabOrder = 1 + end + object FactoryNoName: TcxButtonEdit + Left = 615 + Top = 10 + Hint = 'FactoryNo' + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick + Properties.OnChange = FactoryNoNamePropertiesChange + Style.BorderStyle = ebsSingle + TabOrder = 2 + OnKeyDown = PRTCodeNameKeyDown + Width = 132 + 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 + Navigator.Buttons.CustomButtons = <> + 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 = 358 + Top = 10 + Width = 140 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + TabOrder = 4 + end + object CompanyName: TcxButtonEdit + Left = 589 + Top = 222 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = CompanyNamePropertiesButtonClick + TabOrder = 5 + Visible = False + OnKeyDown = PRTCodeNameKeyDown + Width = 132 + end + object LXPerson: TEdit + Left = 359 + Top = 35 + Width = 134 + Height = 18 + TabOrder = 6 + end + object LXTel: TEdit + Left = 615 + Top = 35 + Width = 131 + Height = 18 + TabOrder = 7 + end + object JHPlace: TcxButtonEdit + Left = 97 + Top = 210 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JHPlacePropertiesButtonClick + TabOrder = 8 + Visible = False + Width = 408 + end + object QDPalce: TcxButtonEdit + Left = 85 + Top = 58 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JHPlacePropertiesButtonClick + Style.BorderStyle = ebsSingle + TabOrder = 9 + Width = 412 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 117 + Width = 886 + 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 = 146 + Width = 886 + Height = 159 + Align = alTop + TabOrder = 3 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + 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 + OptionsCustomize.ColumnSorting = 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 + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + 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' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1PricePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.handBlack + Width = 58 + 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_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' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1PricePropertiesEditValueChanged + 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 v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 70 + 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 = 356 + Top = 192 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 424 + Top = 192 + 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 ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 792 + Top = 125 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 520 + Top = 69 + end +end diff --git a/管理系统/U_ClothContractInPut_CG.pas b/管理系统/U_ClothContractInPut_CG.pas new file mode 100644 index 0000000..666370c --- /dev/null +++ b/管理系统/U_ClothContractInPut_CG.pas @@ -0,0 +1,999 @@ +unit U_ClothContractInPut_CG; + +interface + +uses + Windows, Messages,strUtils, SysUtils, cxTextEdit,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, + cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, + ExtCtrls, BtnEdit, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, + cxLookAndFeels, cxLookAndFeelPainters, 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, + cxNavigator; + +type + TfrmClothContractInPut_CG = 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; + v1PRTColor: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1PRTKZ: 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; + ADOQueryTmp: TADOQuery; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: 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; + v1Column5: TcxGridDBColumn; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + LXPerson: TEdit; + LXTel: TEdit; + JHPlace: TcxButtonEdit; + QDPalce: TcxButtonEdit; + cxGridPopupMenu1: TcxGridPopupMenu; + 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 v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure v1PricePropertiesEditValueChanged(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + FXS:Integer; + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function YFData(fMainID,FsubID:string):Boolean; + { Private declarations } + public + PState:Integer; + FMainId:String; + { Public declarations } + end; + +var + frmClothContractInPut_CG: TfrmClothContractInPut_CG; + +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun, U_ZdyAttachGYS, U_ZdyAttachCP; + +{$R *.dfm} +function TfrmClothContractInPut_CG.YFData(fMainID,FsubID:string):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + try + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(FactoryNoName.Text)+''''); + Open; + end; + if not ADOQueryTmp.IsEmpty then + begin + CRID:=ADOQueryTmp.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 '); + sql.add('where CRID='+quotedstr(trim(CRID))); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(FactoryNoName.Text); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + + with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where mainID='''+Trim(FmainID)+''''); + sql.Add('and subID='''+Trim(FsubID)+''''); + sql.Add('and YFName='''' '); + Open; + end; + if ADOQueryTmp.IsEmpty then + begin + if GetLSNo(ADOCmd,YFID,'YF','YF_Money_CR',3,1)=False then + begin + Application.MessageBox('ȡӦʧ!','ʾ',0); + Exit; + end; + end + else + begin + YFID:=Trim(ADOQueryTmp.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 ADOQueryTmp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value:=Trim(YFID); + FieldByName('YFTypeId').Value:=Trim(ConNo.Text); + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryName').Value:=Trim(FactoryNoName.Text); + FieldByName('CRTime').Value:=formatDateTime('yyyy-MM-dd',DeliveryDate.Date); + FieldByName('Qty').Value:=Order_Sub.fieldbyname('C_Qty').Value; + FieldByName('PS').Value:=Order_Sub.fieldbyname('Qty1').Value; + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Order_Sub.fieldbyname('Price').asfloat; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('ComTaiTou').Value:=Trim(FComTaiTou); + FieldByName('QtyUnit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString); + FieldByName('YFName').Value:=''; + FieldByName('MainId').Value:=Trim(fMainID); + FieldByName('subID').Value:=Trim(fsubID); + Post; + end; + + with ADOCmd 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 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; + except + end; +end; +procedure TfrmClothContractInPut_CG.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmClothContractInPut_CG.InitData(); +begin + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add(' exec ClothContract_QryList :MainId,:WSql'); + if PState=1 then + begin + ADOQueryTmp.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQueryTmp.Parameters.ParamByName('WSQl').Value:=''; + end; + if PState=0 then + begin + ADOQueryTmp.Parameters.ParamByName('MainId').Value:=Trim(FMainId); + ADOQueryTmp.Parameters.ParamByName('WSql').Value:=' and 1<>1 '; + end; + Open; + end; + SCreateCDS20(ADOQueryTmp,Order_Sub); + SInitCDSData20(ADOQueryTmp,Order_Sub); + SCSHData(ADOQueryTmp,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; + ConNo.Text:='Զ'; + end; + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPut_CG.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_CG.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_CG.Button1Click(Sender: TObject); +begin + PanZDY.Visible:=False; +end; + +procedure TfrmClothContractInPut_CG.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_CG.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_CG.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; + readCXgrid(self.Caption,tv1); + InitData(); +end; + +function TfrmClothContractInPut_CG.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,'C','Contract_Main',3,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + conNo.Text:=trim(maxno); + if GetLSNo(ADOTemp,maxno,'CM','Contract_Main',3,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); + FieldByName('LXPerson').Value:=Trim(LXPerson.Text); + FieldByName('LXTel').Value:=Trim(LXTel.Text); + 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('ConType').Value:='ɹƻ'; + FieldByName('status').Value:='0'; + 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 + 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); + FieldByName('ConNo').Value:=Trim(ConNo.Text); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0); + + FieldByName('C_status').Value:='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 + if Order_Sub.fieldbyname('MFQty').AsFloat*Order_Sub.fieldbyname('KZQty').AsFloat >0 then + 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); + +{ if not YFData(FMainId,maxno) then + begin + ADOCmd.Connection.RollbackTrans; + exit; + end; } + //Order_Sub.Post; + Next; + end; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmClothContractInPut_CG.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 SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + ConNo.Text:='Զ'; + FactoryNoName.Text:=''; + CompanyName.Text:=''; + LXPerson.Text:=''; + LXTel.Text:=''; + JHPlace.Text:=''; + Order_Sub.EmptyDataSet; + PState:=0; + FMainId:=''; + end; +end; + +procedure TfrmClothContractInPut_CG.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_CG.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_CG.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_CG.ToolButton1Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + fieldbyname('PriceUnit').Value:=''; + fieldbyname('C_UNit').Value:='M'; + Post; + end; +end; + +procedure TfrmClothContractInPut_CG.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then + begin + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('select * from Contract_sub '); + sql.Add('where fromsubID='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''''); + open; + end; + if not ADOCmd.IsEmpty 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_CG.FactoryNoNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + + +{ try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='FactoryNo1Name'; + flagname:=''; + MainType:=''; + 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; } + +try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + FactoryNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + LXTel.Text:=Trim(CDS_HZ.fieldbyname('DEFstr2').AsString); + LXPerson.Text:=Trim(CDS_HZ.fieldbyname('DEFstr4').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmClothContractInPut_CG.v1Column1PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + fType := 'Ʒ'; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Code').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + // Self.Order_Sub.FieldByName('Color').Value:=Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + end; + end; + finally + frmZdyAttachCP.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); +{ try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTCodeName'; + flagname:='Ʒ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; +// MainType:=Trim(DName); + fnote:=FALSE; + // 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_CG.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_CG.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_CG.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_CG.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_CG.FactoryNoNamePropertiesChange( + Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPut_CG.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_CG.JHPlacePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='JHPLACEFLAG'; + flagname:='ص'; + if ShowModal=1 then + begin + // FXS:=99; + JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } + + try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + QDPalce.Text:=Trim(CDS_HZ.fieldbyname('zdyName').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmClothContractInPut_CG.v1Column1PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with Order_Sub do + begin + Edit; + FieldByName('C_CodeName').Value:=Trim(mvalue); + Post; + end; + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('C_CodeName').AsString))); + open; + end; + IF ADOTemp.IsEmpty then + begin + application.MessageBox('Ʒڣ','ʾϢ',0); + with Order_Sub do + begin + Edit; + FieldByName('C_CodeName').Value:=''; + Post; + end; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmClothContractInPut_CG.v1PricePropertiesEditValueChanged( + Sender: TObject); + var + mvalue,fieldname:String; +begin + If Trim(TcxTextEdit(Sender).EditingText)<>'' then + begin + mvalue:=TcxTextEdit(Sender).EditingText; + end else + begin + mvalue:='0'; + end; + fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with Order_Sub do + begin + Edit; + FieldByName(Trim(fieldname)).Value:=mvalue; + Post; + end; + with Order_Sub do + begin + Edit; + FieldByName('money').Value:=strtofloat(format('%.2f',[FieldByName('C_Qty').AsFloat*FieldByName('Price').AsFloat])); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; +procedure TfrmClothContractInPut_CG.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alclient; +end; + +procedure TfrmClothContractInPut_CG.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + writeCXgrid(self.Caption,tv1); +end; + +end. diff --git a/管理系统/U_ClothContractInPut_Tp.dfm b/管理系统/U_ClothContractInPut_Tp.dfm new file mode 100644 index 0000000..dec25f9 --- /dev/null +++ b/管理系统/U_ClothContractInPut_Tp.dfm @@ -0,0 +1,641 @@ +object frmClothContractInPut_Tp: TfrmClothContractInPut_Tp + Left = 213 + Top = 163 + Width = 1030 + Height = 478 + Caption = #22383#24067#25237#22383 + 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 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_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 = 1014 + Height = 108 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 20 + Top = 14 + Width = 65 + Height = 12 + Caption = #25237#22383#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 = 290 + Top = 14 + Width = 65 + Height = 12 + Caption = #25237#22383#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 = 502 + Top = 14 + 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 Label2: TLabel + Left = 28 + Top = 166 + 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 + Visible = False + end + object Label3: TLabel + Left = 268 + Top = 150 + 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 + Visible = False + end + object Label6: TLabel + Left = 231 + Top = 270 + 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 + Visible = False + end + object Label7: TLabel + Left = 20 + Top = 38 + 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 Label8: TLabel + Left = 274 + Top = 178 + 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 + Visible = False + end + object Label9: TLabel + Left = 292 + Top = 38 + Width = 65 + Height = 12 + Caption = #32852#31995#26041#24335#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 = 510 + Top = 146 + Width = 91 + Height = 12 + Caption = #37319#36141#35745#21010#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 Label11: TLabel + Left = 20 + Top = 62 + Width = 65 + Height = 12 + Caption = #24037#33402#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 = 137 + Height = 18 + Enabled = False + TabOrder = 0 + end + object DeliveryDate: TDateTimePicker + Left = 353 + Top = 10 + Width = 134 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 40916.000000000000000000 + TabOrder = 1 + end + object FactoryNoName: TcxButtonEdit + Left = 574 + Top = 10 + Hint = 'FactoryNo' + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick + Properties.OnChange = FactoryNoNamePropertiesChange + Style.BorderStyle = ebsSingle + TabOrder = 2 + Width = 134 + end + object PanZDY: TPanel + Left = 861 + 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 + Navigator.Buttons.CustomButtons = <> + 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 = 90 + Top = 162 + Width = 140 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 4 + Visible = False + end + object CompanyName: TcxButtonEdit + Left = 333 + Top = 146 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = CompanyNamePropertiesButtonClick + Style.BorderStyle = ebsSingle + TabOrder = 5 + Visible = False + Width = 132 + end + object QDPalce: TEdit + Left = 311 + Top = 271 + Width = 131 + Height = 18 + TabOrder = 6 + Visible = False + end + object LXPerson: TEdit + Left = 85 + Top = 35 + Width = 134 + Height = 18 + TabOrder = 7 + end + object LXTel: TEdit + Left = 354 + Top = 35 + Width = 135 + Height = 18 + TabOrder = 8 + end + object JHPlace: TcxButtonEdit + Left = 341 + Top = 174 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = JHPlacePropertiesButtonClick + TabOrder = 9 + Visible = False + Width = 388 + end + object fromConNo: TcxButtonEdit + Tag = 1 + Left = 605 + Top = 142 + BeepOnEnter = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = fromConNoPropertiesButtonClick + Style.BorderStyle = ebsSingle + TabOrder = 10 + Visible = False + OnKeyPress = fromConNoKeyPress + Width = 116 + end + object GxNote1: TEdit + Left = 86 + Top = 59 + Width = 627 + Height = 18 + TabOrder = 11 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 137 + 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_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 = 166 + Width = 1014 + Height = 179 + Align = alTop + TabOrder = 3 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + 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 + OptionsCustomize.ColumnSorting = 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 + Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged + 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.Editing = False + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 103 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1C_ColorPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PRTColor: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 78 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 90 + end + object v1Qty2: TcxGridDBColumn + Caption = #32568#25968 + DataBinding.FieldName = 'Qty2' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object v1ClothUnit: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1ClothUnitPropertiesEditValueChanged + 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 + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 77 + 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 = 137 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 716 + Top = 141 + Width = 289 + Height = 25 + BevelOuter = bvNone + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + object Label22: TLabel + Left = 32 + Top = 4 + Width = 45 + Height = 14 + Caption = #21305#25968#65306 + end + object Label23: TLabel + Left = 144 + Top = 4 + Width = 45 + Height = 14 + Caption = #25968#37327#65306 + 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 = 356 + Top = 192 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 424 + Top = 192 + 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 ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 744 + Top = 129 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 528 + Top = 97 + end +end diff --git a/管理系统/U_ClothContractInPut_Tp.pas b/管理系统/U_ClothContractInPut_Tp.pas new file mode 100644 index 0000000..8c0cc7b --- /dev/null +++ b/管理系统/U_ClothContractInPut_Tp.pas @@ -0,0 +1,1235 @@ +unit U_ClothContractInPut_Tp; + +interface + +uses + Windows, Messages, strUtils, SysUtils, cxTextEdit, 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, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit, + cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator; + +type + TfrmClothContractInPut_Tp = 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; + v1PRTColor: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1PRTKZ: TcxGridDBColumn; + v1ClothUnit: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + DataSource2: TDataSource; + ADOZDY: TADOQuery; + CDS_ZDY: TClientDataSet; + FactoryNoName: TcxButtonEdit; + ADOQueryTmp: TADOQuery; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: 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; + v1Column5: TcxGridDBColumn; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + LXPerson: TEdit; + LXTel: TEdit; + JHPlace: TcxButtonEdit; + Label10: TLabel; + fromConNo: TcxButtonEdit; + GxNote1: TEdit; + Label11: TLabel; + v1Qty2: TcxGridDBColumn; + v1C_Color: TcxGridDBColumn; + Panel1: TPanel; + Label22: TLabel; + Label23: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + procedure TBCloseClick(Sender: TObject); + procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure Button1Click(Sender: TObject); + 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 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 v1Column1PropertiesEditValueChanged(Sender: TObject); + procedure fromConNoKeyPress(Sender: TObject; var Key: Char); + procedure v1ClothUnitPropertiesEditValueChanged(Sender: TObject); + procedure fromConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column6PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure v1C_ColorPropertiesEditValueChanged(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + FXS: Integer; + procedure InitData(); + procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); + function SaveData(): Boolean; + function YFData(fMainID, FsubID: string): Boolean; + procedure DoQuery(fkeyNo: string); + procedure DoKc(); + { Private declarations } + public + PState: Integer; + FMainId, FConType: string; + + { Public declarations } + end; + +var + frmClothContractInPut_Tp: TfrmClothContractInPut_Tp; + +implementation + +uses + U_DataLink, U_ZDYHelp, U_Fun, U_ZdyAttachGYS, U_ClothContractList_help, + U_ZdyAttachCP; + +{$R *.dfm} +procedure TfrmClothContractInPut_Tp.DoKc(); +begin + Label22.Caption := 'ƥ0'; + Label23.Caption := '0'; + if Order_Sub.IsEmpty then + exit; + if trim(Order_Sub.fieldbyname('C_CodeName').AsString) = '' then + exit; +// IF trim(Order_Sub.fieldbyname('C_Color').AsString)='' then exit; + if trim(FactoryNoName.Text) = '' then + exit; + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('exec P_Get_Contract'); + sql.Add('@begdate=''' + Trim(Order_Sub.fieldbyname('C_CodeName').AsString) + ''' '); + sql.Add(',@enddate=''' + trim(FactoryNoName.Text) + ''' '); + sql.Add(',@conType=''ѯ'' '); + sql.Add(',@status=''' + inttostr(1) + ''' '); + open; + end; + if not ADOTemp.IsEmpty then + begin + Label22.Caption := 'ƥ' + trim(ADOTemp.fieldbyname('N_PS').AsString); + Label23.Caption := '' + trim(ADOTemp.fieldbyname('N_Qty').AsString); + end; +end; + +procedure TfrmClothContractInPut_Tp.DoQuery(fkeyNo: string); +begin + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from Contract_Main '); + sql.Add('where conNo=' + quotedstr(trim(fkeyNo))); + open; + if not IsEmpty then + begin + FactoryNoName.Text := fieldbyname('FactoryNoName').AsString; + LXPerson.Text := fieldbyname('LXPerson').AsString; + LXPerson.Text := fieldbyname('LXPerson').AsString; + LXTel.Text := fieldbyname('LXPerson').AsString; + fromConNo.Hint := fieldbyname('mainID').AsString; + end + else + begin + application.MessageBox('˲ɹƻŴ', 'ʾϢ', 0); + exit; + end; + end; + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); + sql.Add('where A.conNo=' + quotedstr(trim(fkeyNo))); + open; + if not IsEmpty then + begin + SCreateCDS20(ADOTemp, Order_Sub); + SInitCDSData20(ADOTemp, Order_Sub); + end + else + begin + end; + end; + with Order_Sub do + begin + DisableControls; + First; + while not eof do + begin + edit; + fieldbyname('fromMainID').Value := fieldbyname('MainID').AsString; + fieldbyname('fromsubID').Value := fieldbyname('subID').AsString; + fieldbyname('MainID').Value := ''; + fieldbyname('subID').Value := ''; + post; + next; + end; + First; + EnableControls; + end; + +end; + +function TfrmClothContractInPut_Tp.YFData(fMainID, FsubID: string): Boolean; +var + CRID, OrdMainId, YFID, FComTaiTou, FCRID, FFactoryName: string; +begin + Result := False; + try + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(FactoryNoName.Text) + ''''); + Open; + end; + if not ADOQueryTmp.IsEmpty then + begin + CRID := ADOQueryTmp.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 '); + sql.add('where CRID=' + quotedstr(trim(CRID))); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('FactoryName').Value := Trim(FactoryNoName.Text); + FieldByName('ZdyStr1').Value := 'Ӧ'; + Post; + end; + end; + + with ADOQueryTmp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where mainID=''' + Trim(fMainID) + ''''); + sql.Add('and subID=''' + Trim(FsubID) + ''''); + sql.Add('and YFName='''' '); + Open; + end; + if ADOQueryTmp.IsEmpty then + begin + if GetLSNo(ADOCmd, YFID, 'YF', 'YF_Money_CR', 3, 1) = False then + begin + Application.MessageBox('ȡӦʧ!', 'ʾ', 0); + Exit; + end; + end + else + begin + YFID := Trim(ADOQueryTmp.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 ADOQueryTmp.IsEmpty then + Append + else + Edit; + FieldByName('YFID').Value := Trim(YFID); + FieldByName('YFTypeId').Value := Trim(ConNo.Text); + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('Filler').Value := Trim(DName); + FieldByName('CRType').Value := 'ӦǼ'; + FieldByName('CRFlag').Value := 'Ӧ'; + FieldByName('QtyFlag').Value := 1; + FieldByName('FactoryName').Value := Trim(FactoryNoName.Text); + FieldByName('CRTime').Value := formatDateTime('yyyy-MM-dd', DeliveryDate.Date); + FieldByName('Qty').Value := Order_Sub.fieldbyname('C_Qty').Value; + FieldByName('PS').Value := Order_Sub.fieldbyname('Qty1').Value; + FieldByName('T_Qty').Value := Order_Sub.fieldbyname('T_Qty').Value; + FieldByName('YFType').Value := 'Զ'; + FieldByName('Price').Value := Order_Sub.fieldbyname('Price').asfloat; + FieldByName('HuiLv').Value := 1; + FieldByName('BZType').Value := ''; + FieldByName('ComTaiTou').Value := Trim(FComTaiTou); + FieldByName('QtyUnit').Value := Trim(Order_Sub.fieldbyname('C_Unit').AsString); + FieldByName('YFName').Value := ''; + FieldByName('MainId').Value := Trim(fMainID); + FieldByName('subID').Value := Trim(FsubID); + Post; + end; + + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty,T_money=Price*T_Qty '); + sql.Add(' where YFID=''' + Trim(YFID) + ''''); + ExecSQL; + 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; + except + end; +end; + +procedure TfrmClothContractInPut_Tp.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmClothContractInPut_Tp.InitData(); +begin + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select * '); + sql.Add('from Contract_Main A'); + sql.Add('where A.mainID= ''' + Trim(fMainID) + ''' '); + Open; + if not ADOQueryTmp.IsEmpty then + begin + SCSHData(ADOQueryTmp, ScrollBox1, 0); + end; + end; + + with ADOQueryTmp do + begin + Close; + SQL.Clear; + sql.Add('select *,Gf=(select factoryNoName from Contract_Main X where X.mainID=A.frommainID), '); + sql.Add('fdhNO=(select conNo from Contract_Main X where X.mainID=A.frommainID) '); + sql.Add('from Contract_sub A'); + sql.Add('where A.mainID= ''' + Trim(fMainID) + ''' '); + Open; + SCreateCDS20(ADOQueryTmp, Order_Sub); + SInitCDSData20(ADOQueryTmp, Order_Sub); + + end; + + 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; + ConNo.Text := 'Զ'; + end; + PanZDY.Visible := False; +end; + +procedure TfrmClothContractInPut_Tp.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_Tp.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_Tp.Button1Click(Sender: TObject); +begin + PanZDY.Visible := False; +end; + +procedure TfrmClothContractInPut_Tp.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_Tp.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; } + readCXgrid(self.Caption, tv1); + InitData(); +end; + +function TfrmClothContractInPut_Tp.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 FConType = 'ԤͶ' then + begin + if Trim(fMainID) = '' then + begin + Append; + if GetLSNo(ADOTemp, maxno, 'T', 'Contract_Main', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + conNo.Text := trim(maxno); + if GetLSNo(ADOTemp, maxno, 'CM', 'Contract_Main', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + end + else + begin + maxno := Trim(fMainID); + Edit; + end; + end + else + begin + if Trim(fMainID) = '' then + begin + Append; + if GetLSNo(ADOTemp, maxno, 'H', 'Contract_Main', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + conNo.Text := trim(maxno); + if GetLSNo(ADOTemp, maxno, 'CM', 'Contract_Main', 3, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + end + else + begin + maxno := Trim(fMainID); + Edit; + end; + end; + + FieldByName('MainId').Value := Trim(maxno); + SSetsaveSql(ADOCmd, 'Contract_Main', ScrollBox1, 0); + FieldByName('LXPerson').Value := Trim(LXPerson.Text); + FieldByName('LXTel').Value := Trim(LXTel.Text); + 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('ConType').Value := 'ԤͶ'; + FieldByName('ConType').Value := FConType; + FieldByName('status').Value := '0'; + FieldByName('fromconNo').Value := Trim(fromConNo.Text); + FieldByName('fromMainID').Value := Trim(fromConNo.Hint); + 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 + 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); + FieldByName('ConNo').Value := Trim(ConNo.Text); + RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'Contract_Sub', 0); + FieldByName('fromMainID').Value := Trim(Order_Sub.fieldbyname('fromMainID').AsString); + FieldByName('fromsubID').Value := Trim(Order_Sub.fieldbyname('fromsubID').AsString); + FieldByName('C_Status').Value := '0'; + FieldByName('Qty2').Value := Order_Sub.fieldbyname('Qty2').AsFloat; + FieldByName('Qty1').Value := Order_Sub.fieldbyname('Qty1').AsFloat; + FieldByName('C_Qty').Value := Order_Sub.fieldbyname('C_Qty').AsFloat; + 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 TfrmClothContractInPut_Tp.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_CodeName', null, []) = True then + begin + Application.MessageBox('ƷΪ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('C_CodeName', '', []) = True then + begin + Application.MessageBox('ƷΪ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('C_Color', null, []) = True then + begin + Application.MessageBox('ɫΪ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('C_Color', '', []) = True 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; } + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A where Type=''GYS'''); + sql.Add('and zdyName=''' + trim(FactoryNoName.text) + ''' '); + open; + end; + if ADOTemp.IsEmpty then + begin + application.MessageBox('ӹڣ', 'ʾϢ', 0); + exit; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + ConNo.Text := ''; + FactoryNoName.Text := ''; + CompanyName.Text := ''; + LXPerson.Text := ''; + LXTel.Text := ''; + JHPlace.Text := ''; + Order_Sub.EmptyDataSet; + PState := 0; + fMainID := ''; + ConNo.Text := 'Զ'; + end; +end; + +procedure TfrmClothContractInPut_Tp.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_Tp.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_Tp.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_Tp.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then + Exit; + if Trim(Order_Sub.fieldbyname('SubId').AsString) <> '' then + begin + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai '); + sql.Add('where subID=''' + Trim(Order_Sub.fieldbyname('subID').AsString) + ''''); + open; + end; + if not ADOCmd.IsEmpty 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_Tp.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 + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal = 1 then + begin + FactoryNoName.Text := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + FactoryNoName.Hint := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + LXTel.Text := Trim(CDS_HZ.fieldbyname('DEFstr2').AsString); + LXPerson.Text := Trim(CDS_HZ.fieldbyname('DEFstr4').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmClothContractInPut_Tp.v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZdyAttachCP := TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + FType := 'Ʒ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('C_Code').Value := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + Self.Order_Sub.FieldByName('C_CodeName').Value := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('C_Color').Value := Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + + end; + end; + finally + frmZdyAttachCP.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); + DoKc(); + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTCodeName'; + flagname:='Ʒ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; +// MainType:=Trim(DName); + fnote:=FALSE; + // 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_Tp.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_Tp.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_Tp.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_Tp.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_Tp.FactoryNoNamePropertiesChange(Sender: TObject); +begin + {if FXS=99 then + begin + PanZDY.Visible:=False; + FXS:=0; + Exit; + end; + ZDYHelp(FactoryNoName,'FactoryNo1Name'); } +end; + +procedure TfrmClothContractInPut_Tp.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_Tp.JHPlacePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin +{try + frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal=1 then + begin + JHPlace.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + // FactoryNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + // FactoryNoName.Hint:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + // LXTel.Text:=Trim(CDS_HZ.fieldbyname('DEFstr2').AsString); + // LXPerson.Text:=Trim(CDS_HZ.fieldbyname('DEFstr4').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; + } +end; + +procedure TfrmClothContractInPut_Tp.v1Column1PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with Order_Sub do + begin + Edit; + FieldByName('C_CodeName').Value := Trim(mvalue); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); + DoKc(); +end; + +procedure TfrmClothContractInPut_Tp.fromConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + DoQuery(fromConNo.text); + end; +end; + +procedure TfrmClothContractInPut_Tp.v1ClothUnitPropertiesEditValueChanged(Sender: TObject); +var + mvalue, fieldname: string; +begin + if Trim(TcxTextEdit(Sender).EditingText) <> '' then + begin + mvalue := TcxTextEdit(Sender).EditingText; + end + else + begin + mvalue := '0'; + end; + fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with Order_Sub do + begin + Edit; + FieldByName(Trim(fieldname)).Value := mvalue; + Post; + end; + with Order_Sub do + begin + Edit; + FieldByName('money').Value := strtofloat(format('%.2f', [FieldByName('C_Qty').AsFloat * FieldByName('Price').AsFloat])); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmClothContractInPut_Tp.fromConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin +{try + frmClothContractList_CG_help:=TfrmClothContractList_CG_help.Create(Application); + with frmClothContractList_CG_help do + begin + if ShowModal=1 then + begin + fromConNO.Text:=Trim(Order_Main.fieldbyname('ConNO').AsString); + end; + end; + finally + frmClothContractList_CG_help.Free; + end; + DoQuery(fromConNo.text);} +end; + +procedure TfrmClothContractInPut_Tp.v1Column6PropertiesEditValueChanged(Sender: TObject); +var + mvalue, fieldname: string; +begin + if Trim(TcxTextEdit(Sender).EditingText) <> '' then + begin + mvalue := TcxTextEdit(Sender).EditingText; + end + else + begin + mvalue := '0'; + end; + fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + with Order_Sub do + begin + Edit; + FieldByName(Trim(fieldname)).Value := mvalue; + Post; + end; + with Order_Sub do + begin + Edit; + FieldByName('T_money').Value := strtofloat(format('%.2f', [FieldByName('T_Qty').AsFloat * FieldByName('Price').AsFloat])); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmClothContractInPut_Tp.ToolButton1Click(Sender: TObject); +begin + with Order_Sub do + begin + Append; + fieldbyname('PriceUnit').Value := ''; + fieldbyname('C_UNit').Value := 'M'; + Post; + end; +{ frmClothContractList_Help:=TfrmClothContractList_Help.create(self); + with frmClothContractList_Help do + begin + if showmodal=1 then + begin + with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + IF fieldbyname('ssel').AsBoolean then + begin + Order_Sub.Append; + Order_Sub.Fieldbyname('gf').Value:=trim(Fieldbyname('FactoryNoName').AsString); + Order_Sub.Fieldbyname('fdhNO').Value:=trim(Fieldbyname('conNo').AsString); + Order_Sub.Fieldbyname('fromMainID').Value:=trim(Fieldbyname('MainID').AsString); + Order_Sub.Fieldbyname('fromsubID').Value:=trim(Fieldbyname('subID').AsString); + Order_Sub.Fieldbyname('C_CodeName').Value:=trim(Fieldbyname('C_CodeName').AsString); + Order_Sub.Fieldbyname('C_spec').Value:=trim(Fieldbyname('C_spec').AsString); +// Order_Sub.Fieldbyname('KZQty').Value:=Fieldbyname('KZQty').AsFloat; +// Order_Sub.Fieldbyname('MFQty').Value:=Fieldbyname('MFQty').AsFloat; + // Order_Sub.Fieldbyname('Qty1').Value:=Fieldbyname('N_ps').AsFloat ; + // Order_Sub.Fieldbyname('C_Qty').Value:=Fieldbyname('N_Qty').AsFloat ; + Order_Sub.Fieldbyname('C_Unit').Value:=trim(Fieldbyname('C_Unit').AsString); + Order_Sub.Post; + end; + next; + end; + First; + EnableControls; + end; + end; + end; } +end; + +procedure TfrmClothContractInPut_Tp.v1C_ColorPropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with Order_Sub do + begin + Edit; + FieldByName('C_Color').Value := Trim(mvalue); + Post; + end; + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName=' + quotedstr(trim(Order_Sub.fieldbyname('C_CodeName').AsString))); + sql.Add('and DEFstr3=' + quotedstr(trim(Order_Sub.fieldbyname('C_Color').AsString))); + open; + end; + if ADOTemp.IsEmpty then + begin + application.MessageBox('ɫڣ', 'ʾϢ', 0); + with Order_Sub do + begin + Edit; + FieldByName('C_Color').Value := ''; + Post; + end; + end; + with Order_Sub do + begin + Edit; + FieldByName('C_Code').Value := trim(ADOTemp.fieldbyname('ZDYCode').AsString); + Post; + end; + + self.tv1.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmClothContractInPut_Tp.FormCreate(Sender: TObject); +begin + cxGrid1.Align := Alclient; +end; + +procedure TfrmClothContractInPut_Tp.FormClose(Sender: TObject; var Action: TCloseAction); +begin + writeCXgrid(self.Caption, tv1); +end; + +end. + diff --git a/管理系统/U_ClothContractKCList.dfm b/管理系统/U_ClothContractKCList.dfm new file mode 100644 index 0000000..b45cb04 --- /dev/null +++ b/管理系统/U_ClothContractKCList.dfm @@ -0,0 +1,586 @@ +object frmClothContractKCList: TfrmClothContractKCList + Left = 87 + Top = 96 + Width = 1280 + Height = 705 + 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 = 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_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 = 1264 + Height = 57 + 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 = #20219#21153#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 = 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 = 716 + Top = 82 + 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 = 860 + Top = 82 + 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 Label8: TLabel + Left = 1028 + Top = 82 + Width = 180 + Height = 14 + Caption = #27880#65306#25968#37327#21333#20301#32479#19968#25353#31859#35745#31639 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + 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 + OnKeyPress = C_CodeNameKeyPress + end + object C_Spec: TEdit + Tag = 2 + Left = 640 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + OnKeyPress = C_SpecKeyPress + end + object PBC: TEdit + Tag = 2 + Left = 760 + Top = 78 + Width = 83 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + OnKeyPress = PBCKeyPress + end + object FirstName: TEdit + Tag = 2 + Left = 888 + Top = 78 + Width = 83 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + OnKeyPress = FirstNameKeyPress + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 89 + Width = 1264 + Height = 578 + 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 + 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 + item + Kind = skSum + Column = v1Column4 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skAverage + end + item + Kind = skAverage + Column = v1Column16 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skAverage + Column = v1Column15 + 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 = #20219#21153#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 92 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 88 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 80 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'PBC' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1Column5: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'FirstName' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 75 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 75 + 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 = #21152#24037#20986#24211#21305#25968 + DataBinding.FieldName = 'ZckRollNum' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column14: TcxGridDBColumn + Caption = #21152#24037#20986#24211#25968#37327 + DataBinding.FieldName = 'ZckQty' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column7: TcxGridDBColumn + Caption = #36864#36135#21305#25968 + DataBinding.FieldName = 'TckRollNum' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column8: TcxGridDBColumn + Caption = #36864#36135#20648#37327 + DataBinding.FieldName = 'TckQty' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column11: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'ClothPS' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column1: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'ClothQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column9: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'hcRollNum' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v1Column10: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'hcQty' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column15: TcxGridDBColumn + Caption = #22238#20179#32553#29575'(%)' + DataBinding.FieldName = 'hcRate' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'RkRollNum' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column13: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RkQty' + HeaderAlignmentHorz = taCenter + Width = 59 + end + object v1Column16: TcxGridDBColumn + Caption = #25104#21697#25439#32791'(%)' + DataBinding.FieldName = 'cpRate' + HeaderAlignmentHorz = taCenter + Width = 81 + 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 +end diff --git a/管理系统/U_ClothContractKCList.pas b/管理系统/U_ClothContractKCList.pas new file mode 100644 index 0000000..5d8d6a4 --- /dev/null +++ b/管理系统/U_ClothContractKCList.pas @@ -0,0 +1,281 @@ +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; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + Label6: TLabel; + PBC: TEdit; + Label7: TLabel; + FirstName: TEdit; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + Label8: TLabel; + v1Column4: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column15: 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 ConNoKeyPress(Sender: TObject; var Key: Char); + procedure C_CodeNameKeyPress(Sender: TObject; var Key: Char); + procedure C_SpecKeyPress(Sender: TObject; var Key: Char); + procedure PBCKeyPress(Sender: TObject; var Key: Char); + procedure FirstNameKeyPress(Sender: TObject; var Key: Char); + 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('HZ',Tv1,'ָʾ'); +end; + +procedure TfrmClothContractKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec P_SELECT_PbKC_MX :begdate,:enddate'); + 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 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('H',Tv1,'ָʾ'); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime-30; + //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; + +procedure TfrmClothContractKCList.ConNoKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<4 then Exit; + fsj:=' and conNo like '''+'%'+Trim(ConNo.Text)+'%'+''''; + InitGridWSQL(fsj); + end; +end; + +procedure TfrmClothContractKCList.C_CodeNameKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(Trim(C_CodeName.Text))<4 then Exit; + fsj:=' and C_CodeName like '''+'%'+Trim(C_CodeName.Text)+'%'+''''; + InitGridWSQL(fsj); + end; +end; + +procedure TfrmClothContractKCList.C_SpecKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(Trim(C_Spec.Text))<4 then Exit; + fsj:=' and C_Spec like '''+'%'+Trim(C_Spec.Text)+'%'+''''; + InitGridWSQL(fsj); + end; +end; + +procedure TfrmClothContractKCList.PBCKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(Trim(PBC.Text))<3 then + begin + fsj:=' and PBC='''+Trim(PBC.Text)+''''; + InitGridWSQL(fsj); + end else + begin + fsj:=' and PBC like '''+'%'+Trim(PBC.Text)+'%'+''''; + InitGridWSQL(fsj); + end; + + end; +end; + +procedure TfrmClothContractKCList.FirstNameKeyPress(Sender: TObject; + var Key: Char); +var + fsj:String; +begin + if Key=#13 then + begin + if Length(Trim(FirstName.Text))<3 then + begin + fsj:=' and FirstName='''+Trim(FirstName.Text)+''''; + InitGridWSQL(fsj); + end else + begin + fsj:=' and FirstName like '''+'%'+Trim(FirstName.Text)+'%'+''''; + InitGridWSQL(fsj); + end; + + end; +end; + +end. diff --git a/管理系统/U_ClothContractList.dfm b/管理系统/U_ClothContractList.dfm new file mode 100644 index 0000000..0b6ef77 --- /dev/null +++ b/管理系统/U_ClothContractList.dfm @@ -0,0 +1,925 @@ +object frmClothContractList: TfrmClothContractList + Left = 173 + Top = 94 + Width = 1222 + Height = 738 + Caption = #22383#24067#21040#36135#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 = 1206 + 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 = #30830#35748#23436#25104 + ImageIndex = 41 + OnClick = tchkClick + end + object Tnochk: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + Enabled = False + ImageIndex = 56 + OnClick = TnochkClick + end + object Tth: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #36864#36135 + ImageIndex = 129 + OnClick = TthClick + end + object ToolButton1: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 741 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1206 + Height = 53 + 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 = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 271 + Top = 22 + Width = 52 + Height = 12 + Caption = #20219#21153#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 = 420 + 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 = 572 + 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 = 704 + Top = 22 + Width = 26 + Height = 12 + Caption = #20379#26041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 836 + Top = 22 + 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 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 = 167 + 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 = 329 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 473 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 600 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 732 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object JHPlace: TEdit + Tag = 2 + Left = 892 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 107 + Width = 1206 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1206 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Price + end + item + Kind = skSum + Column = v1Money + end + item + Kind = skSum + Column = v1Qty1 + end + item + Kind = skSum + Column = v1Column12 + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1T_money + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + Column = v1Column23 + 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 v1OrderNo: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object v1Column8: TcxGridDBColumn + Caption = #37319#36141#35745#21010#21333#21495 + DataBinding.FieldName = 'fromConNo' + Options.Editing = False + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #21040#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 83 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 57 + end + object v1Money: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column6: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column11: TcxGridDBColumn + Caption = #36864#36135#21305#25968 + DataBinding.FieldName = 'T_Ps' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #36864#36135#25968#37327 + DataBinding.FieldName = 'T_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1T_money: TcxGridDBColumn + Caption = #36864#36135#37329#39069 + DataBinding.FieldName = 'T_money' + Options.Editing = False + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #21040#36135#22320#28857 + DataBinding.FieldName = 'JHPlace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 101 + end + object v1Column12: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'H_PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'H_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'N_Ps' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column17: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'N_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Mrate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #23454#38469#32553#29575'(%)' + DataBinding.FieldName = 'Srate' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = ',0.##%;-,0.##' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 80 + end + object v1Column22: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'J_PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + object v1Column23: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'J_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column20: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column19: TcxGridDBColumn + Caption = #20462#25913#20154 + DataBinding.FieldName = 'editer' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column21: TcxGridDBColumn + Caption = #20462#25913#26102#38388 + DataBinding.FieldName = 'editTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column1: TcxGridDBColumn + Caption = #25104#21697#21697#21517 + DataBinding.FieldName = 'CP_CodeName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 85 + Width = 1206 + Height = 22 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23436#25104 + #24050#23436#25104 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1206 + ClientRectTop = 19 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 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 + object cxStyleRepository1: TcxStyleRepository + Left = 305 + Top = 310 + PixelsPerInch = 96 + 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 +end diff --git a/管理系统/U_ClothContractList.pas b/管理系统/U_ClothContractList.pas new file mode 100644 index 0000000..a8470ed --- /dev/null +++ b/管理系统/U_ClothContractList.pas @@ -0,0 +1,962 @@ +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, cxCheckBox, + cxCurrencyEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxBarBuiltInMenu; + +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; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: 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; + v1PRTOrderQty: 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; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1T_money: TcxGridDBColumn; + v1Column11: 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; + ToolButton1: TToolButton; + Tth: TToolButton; + cxTabControl1: TcxTabControl; + tchk: TToolButton; + Tnochk: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + JHPlace: TEdit; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + Tv1Column1: 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 ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure conPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure TthClick(Sender: TObject); + procedure tchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure cxTabControl1Change(Sender: TObject); + private + FInt, PFInt: Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + { Private declarations } + public + fDParameters1: string; + { Public declarations } + end; + +var + frmClothContractList: TfrmClothContractList; + +implementation + +uses + U_DataLink, U_ClothContractInPut, U_Fun, U_ProductOrderList, U_ZDYHelp; + +{$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; +end; + +procedure TfrmClothContractList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption, Tv1, 'ָʾ'); +end; + +procedure TfrmClothContractList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('exec P_Get_Contract'); + sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); + sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' '); + sql.Add(',@conType='''' '); + sql.Add(',@status=''' + inttostr(cxTabControl1.TabIndex) + ''' '); +// ShowMessage(SQL.text); + + { sql.Add('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.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='''' '); + IF cxTabControl1.TabIndex<2 then + sql.Add('and isnull(B.C_status,''0'')='''+inttostr(cxTabControl1.TabIndex)+''' '); } + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmClothContractList.InitForm(); +begin + if fDParameters1 = 'ѯ' then + begin + TBADD.Visible := false; + // TBEdit.Visible:=false; + TBDel.Visible := false; + // Tchk.Visible:=false; + // TNochk.Visible:=false; + Tth.Visible := false; + v1Price.Visible := false; + v1Price.Hidden := true; + v1money.Visible := false; + v1money.Hidden := true; + v1T_money.Visible := false; + v1T_money.Hidden := true; + ToolButton1.Visible := false; + end; + + TBEdit.Enabled := false; + TBDel.Enabled := false; + Tchk.Enabled := false; + TNochk.Enabled := false; + Tth.Enabled := false; + if cxTabControl1.TabIndex = 0 then + begin + TBEdit.Enabled := true; + TBDel.Enabled := true; + Tchk.Enabled := true; + Tth.Enabled := true; + end; + if cxTabControl1.TabIndex = 1 then + begin + TNochk.Enabled := true; + end; + 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); +var + i: integer; +begin + if Order_Main.IsEmpty then + Exit; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select YFID from YF_money_CR '); + sql.Add('where mainID=''' + trim(Order_Main.FieldByName('mainID').AsString) + ''' '); + sql.Add('and status>0 '); + open; + if not IsEmpty then + begin + application.MessageBox('ˣ޸ģ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; +// with ADOQueryTemp do +// begin +// close; +// sql.Clear; +// sql.Add('select * from contract_sub '); +// sql.Add('where kcsubid=''' + trim(Order_Main.FieldByName('subid').AsString) + ''' '); +//// sql.Add(' '); +// open; +// if not IsEmpty then +// begin +// application.MessageBox('ѳⲻ޸ģ', 'ʾϢ', MB_ICONERROR); +// exit; +// end; +// end; + try + frmClothContractInPut := TfrmClothContractInPut.Create(Application); + with frmClothContractInPut do + begin + if trim(fDParameters1) = 'ѯ' then + begin + frmClothContractInPut.Caption := 'Ϣѯ'; + v1Money.Visible := false; + v1Price.Visible := false; + v1Money.Hidden := true; + v1Price.Hidden := true; + v1T_money.Visible := false; + v1T_money.Hidden := true; + v1T_price.Visible := false; + v1T_price.Hidden := true; + ScrollBox1.Enabled := false; + for i := 0 to tv1.ColumnCount - 1 do + begin + tv1.Columns[i].Options.Editing := false; + end; + v1Mrate.Options.Editing := true; + ToolBar2.Enabled := false; + end; + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal = 1 then + begin + // TBRafresh.Click; + end; + end; + finally + frmClothContractInPut.Free; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select YFID from YF_money_CR '); + sql.Add('where mainID=''' + trim(Order_Main.FieldByName('mainID').AsString) + ''' '); + sql.Add('and status>0 '); + open; + if not IsEmpty then + begin + application.MessageBox('ˣɾ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from contract_sub '); + sql.Add('where kcsubid=''' + trim(Order_Main.FieldByName('subid').AsString) + ''' '); + open; + if not IsEmpty then + begin + application.MessageBox('ѳⲻ޸ģ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if trim(Order_Main.FieldByName('mainID').AsString) = 'CM001' then + exit; + if DelData() then + begin + 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 YF_Money_CR where MainID=''' + Trim(Order_Main.fieldbyname('MainID').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 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('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.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.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + if FileExists(fPrintFile) then + begin + 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 TfrmClothContractList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList.TBAddClick(Sender: TObject); +var + i: integer; +begin + try + frmClothContractInPut := TfrmClothContractInPut.Create(Application); + with frmClothContractInPut do + begin + if trim(fDParameters1) = 'ѯ' then + begin + frmClothContractInPut.Caption := 'Ϣѯ'; + v1Money.Visible := false; + v1Price.Visible := false; + v1Money.Hidden := true; + v1Price.Hidden := true; + v1T_money.Visible := false; + v1T_money.Hidden := true; + ScrollBox1.Enabled := false; + for i := 0 to tv1.ColumnCount - 2 do + begin + tv1.Columns[i].Options.Editing := false; + end; + v1Mrate.Options.Editing := true; + ToolBar2.Enabled := false; + end; + PState := 0; + FMainId := ''; + if ShowModal = 1 then + begin + + end; + end; + finally + frmClothContractInPut.Free; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList.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 TfrmClothContractList.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption, Tv1, 'ָʾ'); + BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7; + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + initForm(); + +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.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.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)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; } +end; + +procedure TfrmClothContractList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmClothContractInPut := TfrmClothContractInPut.Create(Application); + with frmClothContractInPut do + begin + PState := 3; + TBSave.Enabled := false; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal = 1 then + begin + + end; + end; + finally + frmClothContractInPut.Free; + end; +end; + +procedure TfrmClothContractList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton1.Click; +end; + +procedure TfrmClothContractList.TthClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmClothContractInPut := TfrmClothContractInPut.Create(Application); + with frmClothContractInPut do + begin + Caption := '˻'; + PState := 1; + v1T_money.Visible := true; + v1T_ps.Visible := true; + v1T_Qty.Visible := true; + v1T_Price.Visible := true; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmClothContractInPut.Free; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList.tchkClick(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 + with self.ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_sub SET C_status=''1'' '); + sql.Add('where mainID =' + quotedstr(trim(self.Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID =' + quotedstr(trim(self.Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + self.InitGrid(); + end + else + begin + end; + end; + finally + frmClothContractInPut.Free; + // TBRafresh.Click; + end; + + { if Order_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + + + +{ 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 Contract_sub SET C_status=''1'' '); + sql.Add('where mainID ='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; } +end; + +procedure TfrmClothContractList.TnochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; +{ if Order_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; } + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_sub SET C_status=''0'' '); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + { 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 Contract_sub SET C_status=''0'' '); + sql.Add('where mainID ='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; } + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmClothContractList.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 TfrmClothContractList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('H_PS').Index] >= AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Qty1').Index] then + begin + ACanvas.Brush.Color := clSkyBlue; + end; +end; + +procedure TfrmClothContractList.cxTabControl1Change(Sender: TObject); +begin + initForm(); +end; + +end. + diff --git a/管理系统/U_ClothContractListDH.dfm b/管理系统/U_ClothContractListDH.dfm new file mode 100644 index 0000000..9dbc5e6 --- /dev/null +++ b/管理系统/U_ClothContractListDH.dfm @@ -0,0 +1,631 @@ +object frmClothContractListDH: TfrmClothContractListDH + Left = 133 + Top = 27 + Width = 1103 + Height = 705 + 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 + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1095 + 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 = 1095 + 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 = 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 = 1095 + Height = 290 + 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 + 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 + 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 v1PRTMF: TcxGridDBColumn + Caption = #25104#21697#38376#24133 + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #25104#21697#20811#37325 + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + 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#37327 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 45 + 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 = #31859#25968#37327 + DataBinding.FieldName = 'MQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 59 + 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 = 663 + Width = 1095 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + end + object Panel2: TPanel + Left = 0 + Top = 376 + Width = 1095 + Height = 287 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 4 + object cxGrid2: TcxGrid + Left = 2 + Top = 34 + Width = 1091 + 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 = #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 = 1091 + 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 = 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_ClothContractListDH.pas b/管理系统/U_ClothContractListDH.pas new file mode 100644 index 0000000..05f943e --- /dev/null +++ b/管理系统/U_ClothContractListDH.pas @@ -0,0 +1,1018 @@ +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; + +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; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: 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; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + 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 + frmClothContractListDH: TfrmClothContractListDH; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$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.FormCreate(Sender: TObject); +begin + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); +end; + +procedure TfrmClothContractListDH.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ͬdh',Tv1,'ָʾ'); + WriteCxGrid('ͬdhr',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))+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractListDH.InitForm(); +begin + ReadCxGrid('ͬdh',Tv1,'ָʾ'); + ReadCxGrid('ͬdhr',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; } + ClientDataSet2.Append; + ClientDataSet2.FieldByName('MXUnit').Value:=Trim(Order_Main.fieldbyname('C_Unit').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.*,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 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 + 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',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 + FieldByName('MxMQty').Value:=ClientDataSet2.fieldbyname('MxQty').Value*1.00*1000 + /(Order_Main.fieldbyname('MFQty').Value*1.00/100*Order_Main.fieldbyname('KZQty').Value); + 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 FirstNo='''+Trim(ClientDataSet2.fieldbyname('RKPLCode').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,maxno,'DH','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('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); + 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(' 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)+''''); + 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 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; + //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:=Trim(FComTaiTou); + 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); + //begin + ADOQueryCmd.Connection.RollbackTrans; + Exit; + //end; + end; + DelYFData(); + ClientDataSet2.Delete; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!','ʾ',0); + end; + //end; +end; + +procedure TfrmClothContractListDH.v2Column3PropertiesButtonClick( + 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 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 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)+'%'+''''; + 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.*,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; + +end. diff --git a/管理系统/U_ClothContractListLL.dfm b/管理系统/U_ClothContractListLL.dfm new file mode 100644 index 0000000..d53e7fe --- /dev/null +++ b/管理系统/U_ClothContractListLL.dfm @@ -0,0 +1,754 @@ +object frmClothContractListLL: TfrmClothContractListLL + Left = 22 + Top = 46 + Width = 1281 + 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 = 1265 + 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 = 1265 + Height = 57 + 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 = #20219#21153#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 = 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 = 884 + Top = 66 + 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 = 912 + Top = 62 + Width = 83 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object Panel2: TPanel + Left = 0 + Top = 366 + Width = 1265 + Height = 301 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 2 + Top = 34 + Width = 1261 + 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 + item + Kind = skSum + Column = v3Column9 + end + item + Kind = skSum + Column = v3Column11 + 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 v3Column6: TcxGridDBColumn + Caption = #39046#26009#26085#26399 + DataBinding.FieldName = 'TPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v3JGType: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'JGType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + #27491#24120#21152#24037 + #36864#36135#20986#24211 + #25104#21697#21518#21152#24037 + #25104#21697#22238#20462) + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v3ToName: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'ToName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v3ToNamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v3gangNO: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'gangNO' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v3Column12: TcxGridDBColumn + Caption = #26412#21378#32568#21495 + DataBinding.FieldName = 'BCgangNo' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v3Column13: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v3Column13PropertiesButtonClick + Properties.OnEditValueChanged = v3Column13PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + 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 + DataBinding.FieldName = 'TPQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 97 + 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 + Width = 68 + end + object v3Column4: TcxGridDBColumn + Caption = #29983#20135#25968#37327 + 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' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v3Column7: TcxGridDBColumn + Caption = #25237#22383#20154 + DataBinding.FieldName = 'TPPerson' + HeaderAlignmentHorz = taCenter + Width = 98 + end + object v3Column10: TcxGridDBColumn + Caption = #26579#36153#21333#20215 + DataBinding.FieldName = 'JGPrice' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v3Column11: TcxGridDBColumn + Caption = #32568#36153 + DataBinding.FieldName = 'GangFee' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 60 + 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 = 1261 + 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 + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 358 + Width = 1265 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 89 + Width = 1265 + Height = 269 + Align = alClient + TabOrder = 4 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellClick = j + 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 = #20219#21153#21333#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 = #20379#24212#21830 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 79 + end + object v1Column5: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'JHPlace' + 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 = '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 = 1000 + Top = 416 + end +end diff --git a/管理系统/U_ClothContractListLL.pas b/管理系统/U_ClothContractListLL.pas new file mode 100644 index 0000000..296e1a9 --- /dev/null +++ b/管理系统/U_ClothContractListLL.pas @@ -0,0 +1,1225 @@ +unit U_ClothContractListLL; + +interface + +uses + Windows, Messages, strutils,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 + 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; + 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; + v3Column9: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v3ToName: TcxGridDBColumn; + v3gangNO: TcxGridDBColumn; + v3Column12: TcxGridDBColumn; + v3Column13: TcxGridDBColumn; + v3JGType: 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 j(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure v3ToNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column13PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v3Column13PropertiesEditValueChanged(Sender: TObject); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + function YFData(fMainID,FsubID:string):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('ͬllr1',Tv3,'ָʾ'); +end; + +procedure TfrmClothContractListLL.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + { with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select AA.*,ClothPS=DHPS-TPPSHZ,ClothQty=DHQty-TPQtyHZ, '); + SQL.Add('BCPPS=TPPSHZ-HCPS,BCPQty=FBCPQty-HCQty,'); + SQL.Add('KCPS=DHPS-HCPS,KCQty=DHQty-TPQtyHZ+FBCPQty-HCQty'); + SQL.Add(' from (select A.*,B.ConNo,C.C_CodeName,B.FactoryNoName,C.C_Spec,C.MFQty,C.KZQty, '); + sql.Add('HCPS=(select isnull(Sum(HCPS),0) from Contract_Cloth_LL MM where MM.DHID=A.DHID),'); + sql.Add('HCQty=(select isnull(Sum(HCQty),0) from Contract_Cloth_LL MM where MM.DHID=A.DHID),'); + sql.Add('FBCPQty=(select isnull(Sum(YZQty2),0) from Contract_Cloth_LLMx MM where MM.DHID=A.DHID) '); + 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 exists (select * from Contract_Sub_MX SM where SM.SubId=A.SubId and SM.RKPlace=A.FirstName)'); + SQL.Add(' )AA where exists(select * from Contract_Main BB where BB.MainId=AA.MainId and '); + sql.Add(' BB.FillTime>=:begdate and Filltime<:enddate )'); + + Parameters.ParamByName('begdate').Value:=BegDate.Date; + Parameters.ParamByName('enddate').Value:=EndDate.Date+1; + Open; + end; } + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + Filtered:=False; + sql.Add('EXEC P_SELECT_PbKC '); + SQL.Add('@begdate='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''''); + SQL.Add(',@enddate='''+formatdateTime('yyyy-MM-dd',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 Contract_Cloth_LLMx A '); + sql.Add('where A.mainid='''+Trim(Order_Main.fieldbyname('mainid').AsString)+''''); + sql.Add('and A.subid='''+Trim(Order_Main.fieldbyname('subid').AsString)+''''); + //ShowMessage(SQL.Text); + Open; + end; + ClientDataSet3.EnableControls; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractListLL.InitForm(); +begin + + ReadCxGrid('ͬll1',Tv1,'ָʾ'); + ReadCxGrid('ͬllr1',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(); + TBFind.Click ; + +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); +var + Mdate:TdateTime; + fToNo,fToName:string; +begin + if Order_Main.IsEmpty then Exit; + if not ClientDataSet3.IsEmpty then + begin + ClientDataSet3.Last; + Mdate:= ClientDataSet3.fieldbyname('TPDate').AsDateTime; + fToNo:= ClientDataSet3.fieldbyname('ToNo').AsString; + fToName:= ClientDataSet3.fieldbyname('ToName').AsString; + end + else + begin + Mdate:= date(); + end; + Self.ClientDataSet3.Append; + Self.ClientDataSet3.FieldByName('TPDate').Value:=formatdateTime('yyyy-MM-dd',Mdate); + Self.ClientDataSet3.FieldByName('ToNo').Value:=Trim(fToNo); + Self.ClientDataSet3.FieldByName('ToName').Value:=Trim(fToName); + Self.ClientDataSet3.FieldByName('JGType').Value:='ӹ'; + + Self.ClientDataSet3.FieldByName('mainid').Value:=Trim(Order_Main.fieldbyname('mainID').AsString); + Self.ClientDataSet3.FieldByName('subid').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + self.ClientDataSet3.FieldByName('Qty2').Value:=0; + // 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('TPUnit').Value:=Self.Order_Main.FieldByName('C_Unit').Value; + Self.ClientDataSet3.Post; + tv3.Controller.EditingController.ShowEdit(); +{ 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('TPUnit').Value:=Self.Order_Main.FieldByName('DHUnit').Value; + 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; + ClientDataSet3.EnableControls; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractListLL.ToolButton5Click(Sender: TObject); +var + maxno,LLIdx,dhID,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('JGType',null,[]) then + begin + Application.MessageBox('ͲΪգ','ʾ',0); + Exit; + end; + { if ClientDataSet3.Locate('ToName',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; + 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('DHId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + // FieldByName('DHId').Value:=Trim(maxno); + FieldByName('MXId').Value:=Trim(maxno); + // FieldByName('OrdSubId').Value:=Trim(maxno); + FieldByName('OrdSubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('TPDate').Value:=ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('TPPerson').Value:=ClientDataSet3.fieldbyname('TPPerson').Value; + FieldByName('TPNote').Value:=ClientDataSet3.fieldbyname('TPNote').Value; + FieldByName('ToNo').Value:=ClientDataSet3.fieldbyname('ToNo').Value; + FieldByName('ToName').Value:=ClientDataSet3.fieldbyname('ToName').Value; + FieldByName('gangNO').Value:=trim(ClientDataSet3.fieldbyname('gangNO').AsString); + FieldByName('BCgangNO').Value:=trim(ClientDataSet3.fieldbyname('BCgangNO').AsString); + FieldByName('C_Color').Value:=trim(ClientDataSet3.fieldbyname('C_Color').AsString); + FieldByName('JGType').Value:=trim(ClientDataSet3.fieldbyname('JGType').AsString); + + 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.LLID='''+Trim(ClientDataSet3.fieldbyname('MXID').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; + { FieldByName('TPPS').Value:=ClientDataSet3.fieldbyname('TPPS').AsFloat; + FieldByName('TPQty').Value:=ClientDataSet3.fieldbyname('TPQty').AsFloat; + FieldByName('Qty1').Value:=ClientDataSet3.fieldbyname('Qty1').AsFloat; + FieldByName('Qty2').Value:=ClientDataSet3.fieldbyname('Qty2').AsFloat; + FieldByName('Qty3').Value:=ClientDataSet3.fieldbyname('Qty3').AsFloat; + FieldByName('TPQty').Value:=ClientDataSet3.fieldbyname('TPQty').AsFloat; + FieldByName('JGPrice').Value:=ClientDataSet3.fieldbyname('JGPrice').AsFloat; + FieldByName('GangFee').Value:=ClientDataSet3.fieldbyname('GangFee').AsFloat; } + 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; + if Trim(ClientDataSet3.fieldbyname('TPPS').AsString)<>'' then + FieldByName('TPPS').Value:=ClientDataSet3.fieldbyname('TPPS').Value + else + FieldByName('TPPS').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; + if Trim(ClientDataSet3.FieldByName('TPUnit').AsString)=Trim(Order_Main.FieldByName('C_Unit').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('C_Unit').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 ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Cloth_LL where LLID='''+Trim(ClientDataSet3.fieldbyname('MXId').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,dhID,'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:=tirm(maxNo); + FieldByName('DHID').Value:=Trim(Order_Main.fieldbyname('subID').AsString); + FieldByName('FirstNo').Value:=Trim(ClientDataSet3.fieldbyname('ToNo').AsString); + FieldByName('FirstName').Value:=Trim(ClientDataSet3.fieldbyname('ToName').AsString); + FieldByName('OrdSubId').Value:=Trim(Order_Main.fieldbyname('subID').AsString); + FieldByName('TPUnit').Value:=Trim(ClientDataSet3.fieldbyname('TPUnit').AsString); + // FieldByName('LLIdx').Value:=LLIdx; + FieldByName('LLIdx').Value:=1; + Post; + end; + + end else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Contract_Cloth_LL Set LLIdx=1,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 isnull(sum(TPPS),0) from Contract_Cloth_LLMX A where A.MXID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + if Trim(ClientDataSet3.FieldByName('TPUnit').AsString)=Trim(Order_Main.FieldByName('C_Unit').AsString) then + begin + sql.Add(',TPQty=(select Sum(TPQty) from Contract_Cloth_LLMx A where A.MXID=Contract_Cloth_LL.LLID'); + 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*(MFQty/100)*(KZQty/1000)) from Contract_Cloth_LLMx A '); + sql.Add(' inner join Contract_Sub B on A.SubId=B.SubId where A.DHID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + end; + end; + if Trim(ClientDataSet3.FieldByName('TPUnit').AsString)=Trim(Order_Main.FieldByName('C_Unit').AsString) then + begin + sql.Add(',BCPQty=(select Sum(Qty2) from Contract_Cloth_LLMx A where A.MXID=Contract_Cloth_LL.LLID'); + 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*(MFQty/100)*(KZQty/1000)) from Contract_Cloth_LLMx A '); + sql.Add(' inner join Contract_Sub B on A.SubId=B.SubId where A.MXID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + end; + end; + sql.Add(', TPMQty=(select isnull(sum(TPMQty),0) from Contract_Cloth_LLMX A where A.MXID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(', BCPMQty=(select isnull(sum(MQty2),0) from Contract_Cloth_LLMX A where A.MXID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add('where LLID='''+Trim(ClientDataSet3.fieldbyname('MXID').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.MXID=Contract_Cloth_LL.LLID '); + sql.Add(' and LM.OrdSubId=Contract_Cloth_LL.OrdSubId )'); + sql.Add(' and LLID='''+Trim(ClientDataSet3.fieldbyname('MXID').AsString)+''''); + sql.Add(' and isnull(DHIDHelp,'''')='''' '); + ExecSQL; + end; + + if not YFData(Order_Main.fieldbyname('MainID').AsString,Order_Main.fieldbyname('subID').AsString) then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˻쳣!','ʾ',0); + Exit; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ','ʾ',0); + ClientDataSet3.EnableControls; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣','ʾ',0); + end; +end; + +function TfrmClothContractListLL.YFData(fMainID,FsubID:string):Boolean; +var + CRID,OrdMainId,YFID,FComTaiTou,FCRID,FFactoryName:String; +begin + Result:=False; + try + 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 not ADOQueryTemp.IsEmpty 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 '); + sql.add('where CRID='+quotedstr(trim(CRID))); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('FactoryName').Value:=Trim(FactoryNoName.Text); + FieldByName('ZdyStr1').Value:='Ӧ'; + Post; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where mainID='''+Trim(FmainID)+''''); + sql.Add('and subID='''+Trim(FsubID)+''''); + sql.Add('and YFName=''˻'' '); + 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:=Order_Main.fieldbyName('conNo').asstring; + FieldByName('CRID').Value:=StrToInt(CRID); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRType').Value:='ӦǼ'; + FieldByName('CRFlag').Value:='Ӧ'; + FieldByName('QtyFlag').Value:=1; + FieldByName('FactoryName').Value:=Order_Main.fieldbyName('FactoryNoName').asstring; + FieldByName('CRTime').Value:=ClientDataSet3.fieldbyname('TPdate').AsDateTime; + // FieldByName('Qty').Value:=Order_Sub.fieldbyname('C_Qty').Value; + // FieldByName('PS').Value:=Order_Sub.fieldbyname('Qty1').Value; + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Order_Main.fieldbyname('Price').asfloat; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('ComTaiTou').Value:=Order_Main.fieldbyName('FactoryNoName').asstring; + FieldByName('QtyUnit').Value:=Trim(ClientDataSet3.fieldbyname('TPUnit').AsString); + FieldByName('YFName').Value:='˻'; + FieldByName('MainId').Value:=Trim(fMainID); + FieldByName('subID').Value:=Trim(fsubID); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update YF_Money_CR Set Qty=(select -1*isnull(Sum(TPQty),0) from Contract_Cloth_LLMx A '); + sql.Add(' where A.mainID=YF_Money_CR.mainID and A.subiD=YF_Money_CR.subiD and A.JGType=''˻'' )'); + sql.Add(',PS=(select -1 *isnull(sum(TPPS),0) from Contract_Cloth_LLMx A '); + sql.Add(' where A.mainID=YF_Money_CR.mainID and A.subiD=YF_Money_CR.subiD and A.JGType=''˻'' )'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + END; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR '); + sql.Add('where YFID='''+Trim(YFID)+''' and Qty=0 '); + 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; + except + end; +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 LLID='''+Trim(ClientDataSet3.fieldbyname('MXID').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('UPdate Contract_Cloth_LL Set TPPS=(select isnull(sum(TPPS),0) from Contract_Cloth_LLMX A where A.MJID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(', TPQty=(select isnull(sum(TPYZQty),0) from Contract_Cloth_LLMX A where A.MJID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(', BCPQty=(select isnull(sum(YZQty2),0) from Contract_Cloth_LLMX A where A.MJID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(', TPMQty=(select isnull(sum(TPMQty),0) from Contract_Cloth_LLMX A where A.MJID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add(', BCPMQty=(select isnull(sum(MQty2),0) from Contract_Cloth_LLMX A where A.MJID=Contract_Cloth_LL.LLID'); + SQL.Add(' and A.OrdSubId=Contract_Cloth_LL.OrdSubId)'); + sql.Add('where LLID='''+Trim(ClientDataSet3.fieldbyname('MXId').AsString)+''''); + // SQL.Add(' and OrdSubId='''+Trim(ClientDataSet3.fieldbyname('OrdSubid').AsString)+''''); + ExecSQL; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Cloth_LLMx where MXId='''+Trim(ClientDataSet3.fieldbyname('MXId').AsString)+''''); + sql.Add('delete Contract_Cloth_LL where LLID='''+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('delete Contract_Cloth_LL where not exists('); + sql.Add(' select * from Contract_Cloth_LLMX LM where LM.MXID=Contract_Cloth_LL.LLID '); + 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:String; + qty1,qty2:double; + +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; } + qty1:=ClientDataSet3.fieldbyname('TPQty').AsFloat; + Qty2:=ClientDataSet3.fieldbyname('Qty2').AsFloat; + if qty1*Qty2=0 then Exit; + with ClientDataSet3 do + begin + Edit; + FieldByName('qty3').Value:=(qty1-qty2)*1.00*100/qty1; + Post; + end; + self.tv3.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmClothContractListLL.j( + 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 Contract_Cloth_LLMx A '); + sql.Add('where A.mainid='''+Trim(Order_Main.fieldbyname('mainid').AsString)+''''); + sql.Add('and A.subid='''+Trim(Order_Main.fieldbyname('subid').AsString)+''''); + //ShowMessage(SQL.Text); + Open; + end; + ClientDataSet3.EnableControls; + SCreateCDS20(ADOQueryTemp,ClientDataSet3); + SInitCDSData20(ADOQueryTemp,ClientDataSet3); +end; + +procedure TfrmClothContractListLL.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 AA.*,ClothPS=DHPS-TPPSHZ,ClothQty=DHQty-TPQtyHZ, '); + SQL.Add('BCPPS=TPPSHZ-HCPS,BCPQty=FBCPQty-HCQty,'); + SQL.Add('KCPS=DHPS-HCPS,KCQty=DHQty-TPQtyHZ+FBCPQty-HCQty'); + SQL.Add(' from (select A.*,B.ConNo,C.C_CodeName,B.FactoryNoName,C.C_Spec,C.MFQty,C.KZQty, '); + sql.Add('HCPS=(select isnull(Sum(HCPS),0) from Contract_Cloth_LL MM where MM.DHID=A.DHID),'); + sql.Add('HCQty=(select isnull(Sum(HCQty),0) from Contract_Cloth_LL MM where MM.DHID=A.DHID),'); + sql.Add('FBCPQty=(select isnull(Sum(YZQty2),0) from Contract_Cloth_LLMx MM where MM.DHID=A.DHID) '); + 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 exists(select * from Contract_Sub_MX SM where SM.SubId=A.SubId and SM.RKPlace=A.FirstName) '); + SQL.Add(' )AA where AA.ConNo like '''+'%'+Trim(ConNo.Text)+'%'+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractListLL.v3ToNamePropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + //flag:='RKPlace'; + flagname:='ӹ'; + flag:='FactoryNo1Name'; + MainType:='Ⱦ'; + 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('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractListLL.v3Column13PropertiesButtonClick( + 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.ClientDataSet3.Edit; + Self.ClientDataSet3.FieldByName('C_color').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'#';; + // Self.CDS_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + self.tv3.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmClothContractListLL.v3Column13PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with ClientDataSet3 do + begin + Edit; + FieldByName('C_Color').Value:=Trim(mvalue); + Post; + end; + self.tv3.Controller.EditingController.ShowEdit(); +end; + +end. diff --git a/管理系统/U_ClothContractListWJG.dfm b/管理系统/U_ClothContractListWJG.dfm new file mode 100644 index 0000000..d7f2614 --- /dev/null +++ b/管理系统/U_ClothContractListWJG.dfm @@ -0,0 +1,742 @@ +object frmClothContractListWJG: TfrmClothContractListWJG + Left = 145 + Top = 32 + Width = 1031 + Height = 706 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1023 + 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 = 1023 + 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 = #20219#21153#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 = 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 = 371 + Width = 1023 + Height = 301 + Align = alBottom + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 2 + object cxGrid3: TcxGrid + Left = 2 + Top = 34 + Width = 1019 + 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 v3Column6: TcxGridDBColumn + Caption = #39046#26009#26085#26399 + DataBinding.FieldName = 'TPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 95 + 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 = 73 + 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 v3gangNO: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'gangNO' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v3JGType: TcxGridDBColumn + Caption = #21152#24037#31867#21035 + DataBinding.FieldName = 'JGType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#21152#24037 + #22238#20462#21152#24037) + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Width = 60 + 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 = #29983#20135#25968#37327 + 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' + 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 + Width = 68 + end + object v3Column7: TcxGridDBColumn + Caption = #39046#26009#20154 + DataBinding.FieldName = 'TPPerson' + HeaderAlignmentHorz = taCenter + Width = 75 + end + object v3Column11: TcxGridDBColumn + Caption = #21152#24037#21333#20215 + DataBinding.FieldName = 'JGPrice' + HeaderAlignmentHorz = taCenter + Width = 59 + 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 = 1019 + 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 = 363 + Width = 1023 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = Panel2 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 86 + Width = 1023 + Height = 277 + 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 = #20219#21153#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 82 + 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 v1JGType: TcxGridDBColumn + Caption = #21152#24037#31867#21035 + DataBinding.FieldName = 'JGType' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1gangNO: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'gangNO' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 106 + end + object v1Column5: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'FirstName' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 84 + end + object v1LLidx: TcxGridDBColumn + Caption = #39034#24207 + DataBinding.FieldName = 'LLidx' + HeaderAlignmentHorz = taCenter + Width = 50 + 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 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..a049afd --- /dev/null +++ b/管理系统/U_ClothContractListWJG.pas @@ -0,0 +1,1127 @@ +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; + 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; + v3Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + v3Column5: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + v3Column8: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxSplitter1: TcxSplitter; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + 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; + v3Column10: TcxGridDBColumn; + v3Column11: TcxGridDBColumn; + v1LLidx: TcxGridDBColumn; + v3JGType: TcxGridDBColumn; + v1JGType: TcxGridDBColumn; + v1gangNO: TcxGridDBColumn; + v3gangNO: 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); + 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; + +{$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(' select A.*,B.ConNo,D.gangNO,C.C_CodeName,B.FactoryNoName,C.C_Spec,C.MFQty,C.KZQty,C.MainId,C.SubId,A.tpunit as dhUnit '); + sql.Add(',Price=(select Top 1 JGPrice from Contract_Cloth_LLMX AAA where AAA.DHID=A.LLId )'); + // sql.Add(',JGType=(select Top 1 JGType from Contract_Cloth_LLMX AAA where AAA.DHID=A.LLId )'); + sql.Add(',KCPS=A.TPPS-A.HCPS,KCQty=A.BCPQty-A.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_LLMX D on D.MXID=A.LLID'); + 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(' where D.JGType<>''˻'' '); + sql.Add(' and D.TPDate>=:begdate and D.TPDate<:enddate '); + Parameters.ParamByName('begdate').Value:=BegDate.Date; + Parameters.ParamByName('enddate').Value:=EndDate.Date+1; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + 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); + 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 ClientDataSet3 do + begin + Append; +// FieldByName('OrderNo').Value:=Trim(Order_Main.fieldbyname('OrderNo').AsString); +// FieldByName('PRTColor').Value:=Trim(Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('TPDate').Value:=SGetServerDate(ADOQueryTemp); + FieldByName('TPUnit').Value:=Self.Order_Main.FieldByName('DHUnit').Value; + FieldByName('JGType').Value:='ӹ'; + FieldByName('Qty2').Value:=0; + 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('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; + if trim(ClientDataSet3.fieldbyname('JGTYpe').AsString)='' then + begin + ClientDataSet3.Edit; + ClientDataSet3.fieldbyname('JGTYpe').AsString:=trim('ӹ'); + ClientDataSet3.Post; + 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('DHId').Value:=Trim(Order_Main.fieldbyname('DHId').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('TPNote').Value:=ClientDataSet3.fieldbyname('TPNote').Value; + FieldByName('JGTYpe').Value:=ClientDataSet3.fieldbyname('JGTYpe').Value; + FieldByName('gangNo').Value:=ClientDataSet3.fieldbyname('gangNo').Value; + 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)+''''); + sql.Add(' and JGType='''+Trim(ClientDataSet3.fieldbyname('JGType').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('LLId').Value:=Trim(maxNo); + FieldByName('DHIdHelp').Value:=Trim(Order_Main.fieldbyname('LLID').AsString); + FieldByName('llidx').Value:=Order_Main.fieldbyname('llidx').AsInteger+1; + 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('JGType').Value:=Trim(ClientDataSet3.fieldbyname('JGType').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('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; } + 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.MXID=Contract_Cloth_LL.LLID)'); + // SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(',TPPS=(select Sum(TPPS) from Contract_Cloth_LLMx A where A.MXID=Contract_Cloth_LL.LLID)'); + // SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(',TPQty=(select Sum(TPQty) from Contract_Cloth_LLMx A where A.MXID=Contract_Cloth_LL.LLID)'); + // SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(',BCPQty=(select Sum(Qty2) from Contract_Cloth_LLMx A where A.MXID=Contract_Cloth_LL.LLID)'); + // SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(',BCPMQty=(select Sum(MQty2) from Contract_Cloth_LLMx A where A.MXID=Contract_Cloth_LL.LLID)'); + // SQL.Add(' and A.ToName=Contract_Cloth_LL.FirstName)'); + sql.Add(' where LLID='''+Trim(ClientDataSet3.fieldbyname('MXID').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_LL A where A.dhidhelp=Contract_Cloth_LL.LLID)'); + sql.Add(', HCQty=(select isnull(Sum(TPQty),0) from Contract_Cloth_LL A where A.dhidhelp=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; + + 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('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(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 1<>1'); + 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(YFID)='' then + FieldByName('Price').Value:=Order_Main.fieldbyname('Price').Value; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('ComTaiTou').Value:=Trim(FComTaiTou); + 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; + + ClientDataSet3.Delete; + end; + 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; + if YFDataDel()=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ⱦʧ!','ʾ',0); + Exit; + 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 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 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 + //flag:='RKPlace'; + flagname:='ӹ'; + flag:='FactoryNo1Name'; + MainType:='Ⱦ'; + 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('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.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 + fsj:=' and B.ConNo like'''+'%'+Trim(ConNo.Text)+'%'+''''; + InitGridWhere(fsj); + end; +end; + +end. diff --git a/管理系统/U_ClothContractList_CG.dfm b/管理系统/U_ClothContractList_CG.dfm new file mode 100644 index 0000000..aedb86f --- /dev/null +++ b/管理系统/U_ClothContractList_CG.dfm @@ -0,0 +1,797 @@ +object frmClothContractList_CG: TfrmClothContractList_CG + Left = 94 + Top = 29 + Width = 1217 + Height = 738 + Caption = #22383#24067#37319#36141#35745#21010#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 = 1201 + 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 + Caption = #30830#35748#23436#25104 + ImageIndex = 41 + OnClick = tchkClick + end + object tNochk: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + ImageIndex = 56 + Visible = False + OnClick = tNochkClick + end + object ToolButton1: TToolButton + Left = 485 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 548 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 611 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 674 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1201 + Height = 53 + 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 = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 267 + Top = 22 + Width = 78 + Height = 12 + Caption = #37319#36141#35745#21010#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 440 + 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 = 592 + 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 = 720 + Top = 22 + Width = 26 + Height = 12 + Caption = #20379#26041 + 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 = 167 + 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 = 349 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 493 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 624 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 756 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 107 + Width = 1201 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1201 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + 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 = v1Qty1 + end + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column11 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = 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 v1OrderNo: TcxGridDBColumn + Caption = #37319#36141#35745#21010#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 98 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #21040#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 = 108 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1PRTSpec: 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 v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + 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 = #35745#20215#21333#20301 + 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 + object v1Column3: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column6: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column7: TcxGridDBColumn + Caption = #36865#36135#22320#22336 + DataBinding.FieldName = 'QDPalce' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1Column8: TcxGridDBColumn + Caption = #21040#36135#21305#25968 + DataBinding.FieldName = 'D_Ps' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 66 + end + object v1Column9: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'D_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 70 + end + object v1Column10: TcxGridDBColumn + Caption = #26410#21040#36135#21305#25968 + DataBinding.FieldName = 'N_PS' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 71 + end + object v1Column11: TcxGridDBColumn + Caption = #26410#21040#36135#25968#37327 + DataBinding.FieldName = 'N_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 94 + end + object v1Column12: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'Filltime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #20462#25913#20154 + DataBinding.FieldName = 'editer' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #20462#25913#26102#38388 + DataBinding.FieldName = 'editTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column16: TcxGridDBColumn + DataBinding.FieldName = 'IsZt' + Visible = False + VisibleForCustomization = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 85 + Width = 1201 + Height = 22 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23436#25104 + #24050#23436#25104 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1201 + ClientRectTop = 19 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 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 + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + PixelsPerInch = 96 + 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 +end diff --git a/管理系统/U_ClothContractList_CG.pas b/管理系统/U_ClothContractList_CG.pas new file mode 100644 index 0000000..88cd940 --- /dev/null +++ b/管理系统/U_ClothContractList_CG.pas @@ -0,0 +1,711 @@ +unit U_ClothContractList_CG; + +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, cxLookAndFeels, cxLookAndFeelPainters, 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, + cxNavigator, dxBarBuiltInMenu; + +type + TfrmClothContractList_CG = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + 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; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTUnit: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + tchk: TToolButton; + tNochk: TToolButton; + cxTabControl1: TcxTabControl; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: 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; + ToolButton1: TToolButton; + v1Column12: 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 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 Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + 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 ToolButton1Click(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractList_CG: TfrmClothContractList_CG; + +implementation +uses + U_DataLink,U_ClothContractInPut_CG,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_CG.FormDestroy(Sender: TObject); +begin + frmClothContractList_CG:=nil; +end; + +procedure TfrmClothContractList_CG.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractList_CG.FormCreate(Sender: TObject); +begin + ScrollBox1.Align:=alClient; +end; + +procedure TfrmClothContractList_CG.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption,Tv1,'ָʾ'); +end; + +procedure TfrmClothContractList_CG.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec P_Get_Contract'); + sql.Add('@begdate='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' '); + sql.Add(',@enddate='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''' '); + sql.Add(',@conType=''ɹƻ'' '); + sql.Add(',@status='''+inttostr(cxTabControl1.TabIndex)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractList_CG.InitForm(); +begin + ReadCxGrid(self.Caption,Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_CG.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_CG.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPut_CG:=TfrmClothContractInPut_CG.Create(Application); + with frmClothContractInPut_CG do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmClothContractInPut_CG.Free; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList_CG.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from Contract_main '); + sql.Add('where fromMainID='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('and conType='''' '); + open; + end; + if not ADOQueryCmd.IsEmpty then + begin + Application.MessageBox('ѵɾɹƻ','ʾ',0); + Exit + end; + if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if trim(Order_Main.FieldByName('mainID').AsString)='CM001' then exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmClothContractList_CG.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where MainID='''+Trim(Order_Main.fieldbyname('MainID').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 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_CG.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractList_CG.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('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.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.mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + 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 TfrmClothContractList_CG.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_CG.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPut_CG:=TfrmClothContractInPut_CG.Create(Application); + with frmClothContractInPut_CG do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmClothContractInPut_CG.Free; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList_CG.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 TfrmClothContractList_CG.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractList_CG.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractList_CG.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=1; +end; + +procedure TfrmClothContractList_CG.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_CG.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_CG.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_CG.cxTabControl1Change(Sender: TObject); +begin + TBEdit.Visible:=false; + TBDel.Visible:=false; + Tchk.Visible:=false; + TNochk.Visible:=false; + if cxTabControl1.TabIndex=0 then + begin + TBEdit.Visible:=true; + TBDel.Visible:=true; + Tchk.Visible:=true; + end; + if cxTabControl1.TabIndex=1 then + begin + TNochk.Visible:=true; + end; + InitGrid(); +end; + +procedure TfrmClothContractList_CG.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 mainID ='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + InitGrid(); + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmClothContractList_CG.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 mainID ='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + InitGrid(); + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmClothContractList_CG.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton1.Click; +end; + +procedure TfrmClothContractList_CG.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPut_CG:=TfrmClothContractInPut_CG.Create(Application); + with frmClothContractInPut_CG do + begin + PState:=1; + tbsave.Enabled:=false; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPut_CG.Free; + end; +end; + +procedure TfrmClothContractList_CG.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 TfrmClothContractList_CG.Tv1CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('IsZt').Index]=0 then + begin + ACanvas.Brush.Color:=clSkyBlue; + end; +end; + +end. diff --git a/管理系统/U_ClothContractList_CG_help.dfm b/管理系统/U_ClothContractList_CG_help.dfm new file mode 100644 index 0000000..4b28380 --- /dev/null +++ b/管理系统/U_ClothContractList_CG_help.dfm @@ -0,0 +1,535 @@ +object frmClothContractList_CG_help: TfrmClothContractList_CG_help + Left = 133 + Top = 0 + Width = 1217 + Height = 738 + Caption = #22383#24067#37319#36141#35745#21010#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 = 1201 + 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 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + 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 + Visible = False + 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 = 1201 + Height = 53 + 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 = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 267 + Top = 22 + Width = 78 + Height = 12 + Caption = #37319#36141#35745#21010#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 440 + 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 = 592 + 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 = 720 + Top = 22 + Width = 26 + Height = 12 + Caption = #20379#26041 + 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 = 167 + 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 = 349 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoMChange + OnKeyPress = conPress + end + object C_CodeNameM: TEdit + Tag = 2 + Left = 493 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoMChange + end + object C_Spec: TEdit + Tag = 2 + Left = 624 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoMChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 756 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoMChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 85 + Width = 1201 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1201 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = Tv1CellDblClick + 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 + 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 = #37319#36141#35745#21010#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 98 + 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 = 108 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1PRTSpec: 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 v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + 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 = #35745#20215#21333#20301 + 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 + object v1Column3: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column6: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column7: TcxGridDBColumn + Caption = #31614#35746#22320#22336 + DataBinding.FieldName = 'QDPalce' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 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_CG_help.pas b/管理系统/U_ClothContractList_CG_help.pas new file mode 100644 index 0000000..b873bfb --- /dev/null +++ b/管理系统/U_ClothContractList_CG_help.pas @@ -0,0 +1,577 @@ +unit U_ClothContractList_CG_help; + +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 + TfrmClothContractList_CG_help = 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; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1PRTUnit: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + 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 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 Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure conPress(Sender: TObject; var Key: Char); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractList_CG_help: TfrmClothContractList_CG_help; + +implementation +uses + U_DataLink,U_ClothContractInPut_CG,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_CG_help.FormDestroy(Sender: TObject); +begin + frmClothContractList_CG_help:=nil; +end; + +procedure TfrmClothContractList_CG_help.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractList_CG_help.FormCreate(Sender: TObject); +begin + ScrollBox1.Align:=alClient; +end; + +procedure TfrmClothContractList_CG_help.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption,Tv1,'ָʾ'); +end; + +procedure TfrmClothContractList_CG_help.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select * '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.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=''ɹƻ'' '); + sql.Add('and Isnull(B.C_status,''0'')=''0'' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractList_CG_help.InitForm(); +begin + ReadCxGrid(self.Caption,Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_CG_help.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_CG_help.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPut_CG:=TfrmClothContractInPut_CG.Create(Application); + with frmClothContractInPut_CG do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPut_CG.Free; + end; +end; + +procedure TfrmClothContractList_CG_help.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 trim(Order_Main.FieldByName('mainID').AsString)='CM001' then exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmClothContractList_CG_help.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where MainID='''+Trim(Order_Main.fieldbyname('MainID').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 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_CG_help.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractList_CG_help.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 TfrmClothContractList_CG_help.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_CG_help.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPut_CG:=TfrmClothContractInPut_CG.Create(Application); + with frmClothContractInPut_CG do + begin + PState:=0; + FMainId:=''; + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPut_CG.Free; + end; +end; + +procedure TfrmClothContractList_CG_help.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_CG_help.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractList_CG_help.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractList_CG_help.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=1; +end; + +procedure TfrmClothContractList_CG_help.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_CG_help.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_CG_help.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_CG_help.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)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractList_CG_help.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + IF Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +end. diff --git a/管理系统/U_ClothContractList_CP.dfm b/管理系统/U_ClothContractList_CP.dfm new file mode 100644 index 0000000..1748354 --- /dev/null +++ b/管理系统/U_ClothContractList_CP.dfm @@ -0,0 +1,946 @@ +object frmClothContractList_CP: TfrmClothContractList_CP + Left = 283 + Top = 235 + Width = 1222 + Height = 738 + Caption = #22383#24067#21040#36135#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 = 1206 + 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 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object tchk: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #30830#35748#23436#25104 + ImageIndex = 41 + Visible = False + OnClick = tchkClick + end + object Tnochk: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + Enabled = False + ImageIndex = 56 + Visible = False + OnClick = TnochkClick + end + object Tth: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #36864#36135 + ImageIndex = 129 + Visible = False + OnClick = TthClick + end + object ToolButton1: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + Visible = False + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 741 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1206 + Height = 53 + 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 = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 271 + Top = 22 + Width = 52 + Height = 12 + Caption = #20219#21153#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 = 420 + 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 = 572 + 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 = 704 + Top = 22 + Width = 26 + Height = 12 + Caption = #20379#26041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 836 + Top = 22 + 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 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 = 167 + 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 = 329 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 473 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 600 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 732 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object JHPlace: TEdit + Tag = 2 + Left = 892 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 107 + Width = 1206 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1206 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + Column = v1Price + end + item + Kind = skSum + Column = v1Money + end + item + Kind = skSum + Column = v1Qty1 + end + item + Kind = skSum + Column = v1Column12 + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1T_money + end + item + Kind = skSum + Column = v1Column22 + end + item + Kind = skSum + Column = v1Column23 + 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 v1OrderNo: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object v1Column8: TcxGridDBColumn + Caption = #37319#36141#35745#21010#21333#21495 + DataBinding.FieldName = 'fromConNo' + Options.Editing = False + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #21040#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 83 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'T_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object v1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 57 + end + object v1Money: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column6: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column11: TcxGridDBColumn + Caption = #36864#36135#21305#25968 + DataBinding.FieldName = 'T_Ps' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #36864#36135#25968#37327 + DataBinding.FieldName = 'T_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1T_money: TcxGridDBColumn + Caption = #36864#36135#37329#39069 + DataBinding.FieldName = 'T_money' + Visible = False + Options.Editing = False + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #21040#36135#22320#28857 + DataBinding.FieldName = 'JHPlace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 101 + end + object v1Column12: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'H_PS' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'H_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'N_Ps' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column17: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'N_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Mrate' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #23454#38469#32553#29575'(%)' + DataBinding.FieldName = 'Srate' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = ',0.##%;-,0.##' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 80 + end + object v1Column22: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'J_PS' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + object v1Column23: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'J_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + object v1Column18: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column20: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column19: TcxGridDBColumn + Caption = #20462#25913#20154 + DataBinding.FieldName = 'editer' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column21: TcxGridDBColumn + Caption = #20462#25913#26102#38388 + DataBinding.FieldName = 'editTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column1: TcxGridDBColumn + Caption = #25104#21697#21697#21517 + DataBinding.FieldName = 'CP_CodeName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 85 + Width = 1206 + Height = 22 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23436#25104 + #24050#23436#25104 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1206 + ClientRectTop = 19 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 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 + object cxStyleRepository1: TcxStyleRepository + Left = 305 + Top = 310 + PixelsPerInch = 96 + 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 +end diff --git a/管理系统/U_ClothContractList_CP.pas b/管理系统/U_ClothContractList_CP.pas new file mode 100644 index 0000000..0c73c02 --- /dev/null +++ b/管理系统/U_ClothContractList_CP.pas @@ -0,0 +1,961 @@ +unit U_ClothContractList_CP; + +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, + cxCurrencyEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxBarBuiltInMenu; + +type + TfrmClothContractList_CP = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + 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; + v1PRTOrderQty: 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; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1T_money: TcxGridDBColumn; + v1Column11: 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; + ToolButton1: TToolButton; + Tth: TToolButton; + cxTabControl1: TcxTabControl; + tchk: TToolButton; + Tnochk: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + JHPlace: TEdit; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + Tv1Column1: 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 ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure conPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure TthClick(Sender: TObject); + procedure tchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure cxTabControl1Change(Sender: TObject); + private + FInt, PFInt: Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + { Private declarations } + public + fDParameters1: string; + { Public declarations } + end; + +var + frmClothContractList_CP: TfrmClothContractList_CP; + +implementation + +uses + U_DataLink, U_ClothContractInPut, U_Fun, U_ProductOrderList, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_CP.FormDestroy(Sender: TObject); +begin + frmClothContractList_CP := nil; +end; + +procedure TfrmClothContractList_CP.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmClothContractList_CP.FormCreate(Sender: TObject); +begin + ScrollBox1.Align := alClient; +end; + +procedure TfrmClothContractList_CP.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption, Tv1, 'ָʾ'); +end; + +procedure TfrmClothContractList_CP.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('exec P_Get_Contract_CP'); + sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); + sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' '); + sql.Add(',@conType=''Ʒ'' '); + sql.Add(',@status=''' + inttostr(cxTabControl1.TabIndex) + ''' '); + + { sql.Add('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.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='''' '); + IF cxTabControl1.TabIndex<2 then + sql.Add('and isnull(B.C_status,''0'')='''+inttostr(cxTabControl1.TabIndex)+''' '); } + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmClothContractList_CP.InitForm(); +begin + if fDParameters1 = 'ѯ' then + begin + TBADD.Visible := false; + // TBEdit.Visible:=false; + TBDel.Visible := false; + // Tchk.Visible:=false; + // TNochk.Visible:=false; + Tth.Visible := false; + v1Price.Visible := false; + v1Price.Hidden := true; + v1money.Visible := false; + v1money.Hidden := true; + v1T_money.Visible := false; + v1T_money.Hidden := true; + ToolButton1.Visible := false; + end; + + TBEdit.Enabled := false; + TBDel.Enabled := false; + Tchk.Enabled := false; + TNochk.Enabled := false; + Tth.Enabled := false; + if cxTabControl1.TabIndex = 0 then + begin + TBEdit.Enabled := true; + TBDel.Enabled := true; + Tchk.Enabled := true; + Tth.Enabled := true; + end; + if cxTabControl1.TabIndex = 1 then + begin + TNochk.Enabled := true; + end; + InitGrid(); +end; + +procedure TfrmClothContractList_CP.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_CP.TBEditClick(Sender: TObject); +var + i: integer; +begin + if Order_Main.IsEmpty then + Exit; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select YFID from YF_money_CR '); + sql.Add('where mainID=''' + trim(Order_Main.FieldByName('mainID').AsString) + ''' '); + sql.Add('and status>0 '); + open; + if not IsEmpty then + begin + application.MessageBox('ˣ޸ģ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; +// with ADOQueryTemp do +// begin +// close; +// sql.Clear; +// sql.Add('select * from contract_sub '); +// sql.Add('where kcsubid=''' + trim(Order_Main.FieldByName('subid').AsString) + ''' '); +//// sql.Add(' '); +// open; +// if not IsEmpty then +// begin +// application.MessageBox('ѳⲻ޸ģ', 'ʾϢ', MB_ICONERROR); +// exit; +// end; +// end; + try + frmClothContractInPut := TfrmClothContractInPut.Create(Application); + with frmClothContractInPut do + begin + if trim(fDParameters1) = 'ѯ' then + begin + frmClothContractInPut.Caption := 'Ϣѯ'; + v1Money.Visible := false; + v1Price.Visible := false; + v1Money.Hidden := true; + v1Price.Hidden := true; + v1T_money.Visible := false; + v1T_money.Hidden := true; + v1T_price.Visible := false; + v1T_price.Hidden := true; + ScrollBox1.Enabled := false; + for i := 0 to tv1.ColumnCount - 1 do + begin + tv1.Columns[i].Options.Editing := false; + end; + v1Mrate.Options.Editing := true; + ToolBar2.Enabled := false; + end; + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal = 1 then + begin + // TBRafresh.Click; + end; + end; + finally + frmClothContractInPut.Free; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList_CP.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select YFID from YF_money_CR '); + sql.Add('where mainID=''' + trim(Order_Main.FieldByName('mainID').AsString) + ''' '); + sql.Add('and status>0 '); + open; + if not IsEmpty then + begin + application.MessageBox('ˣɾ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from contract_sub '); + sql.Add('where kcsubid=''' + trim(Order_Main.FieldByName('subid').AsString) + ''' '); + open; + if not IsEmpty then + begin + application.MessageBox('ѳⲻ޸ģ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if trim(Order_Main.FieldByName('mainID').AsString) = 'CM001' then + exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmClothContractList_CP.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where MainID=''' + Trim(Order_Main.fieldbyname('MainID').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 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_CP.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel('ͬб', cxGrid1); +end; + +procedure TfrmClothContractList_CP.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('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.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.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + if FileExists(fPrintFile) then + begin + 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 TfrmClothContractList_CP.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_CP.TBAddClick(Sender: TObject); +var + i: integer; +begin + try + frmClothContractInPut := TfrmClothContractInPut.Create(Application); + with frmClothContractInPut do + begin + if trim(fDParameters1) = 'ѯ' then + begin + frmClothContractInPut.Caption := 'Ϣѯ'; + v1Money.Visible := false; + v1Price.Visible := false; + v1Money.Hidden := true; + v1Price.Hidden := true; + v1T_money.Visible := false; + v1T_money.Hidden := true; + ScrollBox1.Enabled := false; + for i := 0 to tv1.ColumnCount - 2 do + begin + tv1.Columns[i].Options.Editing := false; + end; + v1Mrate.Options.Editing := true; + ToolBar2.Enabled := false; + end; + PState := 0; + FMainId := ''; + if ShowModal = 1 then + begin + + end; + end; + finally + frmClothContractInPut.Free; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList_CP.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 TfrmClothContractList_CP.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption, Tv1, 'ָʾ'); + BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7; + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + initForm(); + +end; + +procedure TfrmClothContractList_CP.Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt := 2; +end; + +procedure TfrmClothContractList_CP.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt := 1; +end; + +procedure TfrmClothContractList_CP.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_CP.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_CP.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_CP.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)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; } +end; + +procedure TfrmClothContractList_CP.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmClothContractInPut := TfrmClothContractInPut.Create(Application); + with frmClothContractInPut do + begin + PState := 3; + TBSave.Enabled := false; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal = 1 then + begin + + end; + end; + finally + frmClothContractInPut.Free; + end; +end; + +procedure TfrmClothContractList_CP.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton1.Click; +end; + +procedure TfrmClothContractList_CP.TthClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmClothContractInPut := TfrmClothContractInPut.Create(Application); + with frmClothContractInPut do + begin + Caption := '˻'; + PState := 1; + v1T_money.Visible := true; + v1T_ps.Visible := true; + v1T_Qty.Visible := true; + v1T_Price.Visible := true; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmClothContractInPut.Free; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList_CP.tchkClick(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 + with self.ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_sub SET C_status=''1'' '); + sql.Add('where mainID =' + quotedstr(trim(self.Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID =' + quotedstr(trim(self.Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + self.InitGrid(); + end + else + begin + end; + end; + finally + frmClothContractInPut.Free; + // TBRafresh.Click; + end; + + { if Order_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + + + +{ 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 Contract_sub SET C_status=''1'' '); + sql.Add('where mainID ='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; } +end; + +procedure TfrmClothContractList_CP.TnochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; +{ if Order_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; } + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_sub SET C_status=''0'' '); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + { 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 Contract_sub SET C_status=''0'' '); + sql.Add('where mainID ='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; } + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmClothContractList_CP.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 TfrmClothContractList_CP.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('H_PS').Index] >= AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Qty1').Index] then + begin + ACanvas.Brush.Color := clSkyBlue; + end; +end; + +procedure TfrmClothContractList_CP.cxTabControl1Change(Sender: TObject); +begin + initForm(); +end; + +end. + diff --git a/管理系统/U_ClothContractList_HZ.dfm b/管理系统/U_ClothContractList_HZ.dfm new file mode 100644 index 0000000..f97953c --- /dev/null +++ b/管理系统/U_ClothContractList_HZ.dfm @@ -0,0 +1,666 @@ +object frmClothContractList_HZ: TfrmClothContractList_HZ + Left = 179 + Top = 162 + Width = 1382 + Height = 754 + Caption = #36873#25321#22383#24067#21040#36135#20449#24687 + 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 = 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 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 + object ToolButton1: TToolButton + Left = 252 + Top = 0 + Caption = #26597#30475#26126#32454 + ImageIndex = 56 + Visible = False + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 53 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #21040#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 = 22 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 275 + Top = 86 + Width = 52 + Height = 12 + Caption = #20219#21153#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 = 420 + 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 = 576 + Top = 86 + 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 = 708 + Top = 86 + Width = 26 + Height = 12 + Caption = #20379#26041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 284 + 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 = 167 + 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 = 333 + Top = 82 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 473 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 604 + Top = 82 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 736 + Top = 82 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object JHPlace: TEdit + Tag = 2 + Left = 324 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 85 + Width = 1366 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1366 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + 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 = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column12 + 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 + Column = v1Qty1 + end + 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 + 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 v1Column15: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'JHPlace' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1Qty1: TcxGridDBColumn + Caption = #21040#36135#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 68 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object v1Column13: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'H_PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'H_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 68 + end + object v1Column18: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'N_PS' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column19: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'N_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 71 + end + object v1Column11: TcxGridDBColumn + Caption = #23454#38469#32553#29575'(%)' + DataBinding.FieldName = 'Srate' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##%;-,0.##%' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 91 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 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 + object cxStyleRepository1: TcxStyleRepository + Left = 305 + Top = 310 + PixelsPerInch = 96 + 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 Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 804 + Top = 233 + end +end diff --git a/管理系统/U_ClothContractList_HZ.pas b/管理系统/U_ClothContractList_HZ.pas new file mode 100644 index 0000000..fcf66f3 --- /dev/null +++ b/管理系统/U_ClothContractList_HZ.pas @@ -0,0 +1,225 @@ +unit U_ClothContractList_HZ; + +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, cxCurrencyEdit, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +type + TfrmClothContractList_HZ = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + TBExport: TToolButton; + Label4: TLabel; + C_Spec: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + v1Column12: TcxGridDBColumn; + v1Column13: 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; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + JHPlace: TEdit; + Order_Main: TClientDataSet; + 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 ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractList_HZ: TfrmClothContractList_HZ; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_HZ.FormDestroy(Sender: TObject); +begin + frmClothContractList_HZ:=nil; +end; + +procedure TfrmClothContractList_HZ.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractList_HZ.FormCreate(Sender: TObject); +begin + ScrollBox1.Align:=alClient; +end; + +procedure TfrmClothContractList_HZ.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption,Tv1,'ָʾ'); +end; + +procedure TfrmClothContractList_HZ.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + sql.Add('exec P_Get_Contract'); + sql.Add('@begdate='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' '); + sql.Add(',@enddate='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''' '); + sql.Add(',@conType=''ѯ'' '); + sql.Add(',@status='''+inttostr(0)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractList_HZ.InitForm(); +begin + ReadCxGrid(self.Caption,Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_HZ.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 TfrmClothContractList_HZ.DelData():Boolean; +begin + +end; + +procedure TfrmClothContractList_HZ.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractList_HZ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_HZ.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 TfrmClothContractList_HZ.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractList_HZ.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; + +end. diff --git a/管理系统/U_ClothContractList_HZ1.dfm b/管理系统/U_ClothContractList_HZ1.dfm new file mode 100644 index 0000000..0a6086a --- /dev/null +++ b/管理系统/U_ClothContractList_HZ1.dfm @@ -0,0 +1,659 @@ +object frmClothContractList_HZ1: TfrmClothContractList_HZ1 + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #36873#25321#22383#24067#21040#36135#20449#24687 + 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 = 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 = 1366 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 19 + Top = 50 + Width = 52 + Height = 12 + Caption = #21040#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 = 157 + Top = 46 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 275 + Top = 86 + Width = 52 + Height = 12 + Caption = #20219#21153#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 = 188 + 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 = 576 + Top = 86 + 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 = 708 + Top = 86 + Width = 26 + Height = 12 + Caption = #20379#26041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 52 + Top = 14 + 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 = 72 + Top = 42 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 163 + Top = 46 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 333 + Top = 82 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 241 + Top = 10 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 604 + Top = 82 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 736 + Top = 82 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object JHPlace: TEdit + Tag = 2 + Left = 92 + Top = 10 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 73 + Width = 1366 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1366 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + 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 = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column12 + 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 + Column = v1Qty1 + end + 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 + 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 v1Column15: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'JHPlace' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1Qty1: TcxGridDBColumn + Caption = #21040#36135#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 68 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object v1Column13: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'H_PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'H_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 68 + end + object v1Column18: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'N_PS' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column19: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'N_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 71 + end + object v1Column11: TcxGridDBColumn + Caption = #23454#38469#32553#29575'(%)' + DataBinding.FieldName = 'Srate' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##%;-,0.##%' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 91 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 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 + object cxStyleRepository1: TcxStyleRepository + Left = 305 + Top = 310 + PixelsPerInch = 96 + 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 Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 804 + Top = 233 + end +end diff --git a/管理系统/U_ClothContractList_HZ1.pas b/管理系统/U_ClothContractList_HZ1.pas new file mode 100644 index 0000000..105e89c --- /dev/null +++ b/管理系统/U_ClothContractList_HZ1.pas @@ -0,0 +1,224 @@ +unit U_ClothContractList_HZ1; + +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, cxCurrencyEdit, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +type + TfrmClothContractList_HZ1 = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + TBExport: TToolButton; + Label4: TLabel; + C_Spec: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + v1Column12: TcxGridDBColumn; + v1Column13: 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; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + JHPlace: TEdit; + Order_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 TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractList_HZ1: TfrmClothContractList_HZ1; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_HZ1.FormDestroy(Sender: TObject); +begin + frmClothContractList_HZ1:=nil; +end; + +procedure TfrmClothContractList_HZ1.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractList_HZ1.FormCreate(Sender: TObject); +begin + ScrollBox1.Align:=alClient; +end; + +procedure TfrmClothContractList_HZ1.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption,Tv1,'ָʾ'); +end; + +procedure TfrmClothContractList_HZ1.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + sql.Add('exec P_Get_Contract'); + sql.Add('@begdate='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' '); + sql.Add(',@enddate='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''' '); + sql.Add(',@conType=''ѯ1'' '); + sql.Add(',@status='''+inttostr(0)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractList_HZ1.InitForm(); +begin + ReadCxGrid(self.Caption,Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_HZ1.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 TfrmClothContractList_HZ1.DelData():Boolean; +begin + +end; + +procedure TfrmClothContractList_HZ1.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractList_HZ1.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_HZ1.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 TfrmClothContractList_HZ1.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractList_HZ1.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; + +end. diff --git a/管理系统/U_ClothContractList_JG.dfm b/管理系统/U_ClothContractList_JG.dfm new file mode 100644 index 0000000..64fd781 --- /dev/null +++ b/管理系统/U_ClothContractList_JG.dfm @@ -0,0 +1,666 @@ +object frmClothContractList_JG: TfrmClothContractList_JG + Left = 129 + Top = 62 + Width = 1221 + Height = 738 + Caption = #25104#21697#21518#21152#24037 + 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 = 1205 + 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 = #30830#35748#23436#25104 + ImageIndex = 41 + OnClick = TchkClick + end + object TNochk: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + ImageIndex = 48 + Visible = False + OnClick = TNochkClick + end + object ToolButton1: TToolButton + Left = 489 + Top = 0 + Caption = #20445#23384#22791#27880 + ImageIndex = 54 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 572 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 635 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 698 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1205 + Height = 53 + 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 = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 271 + Top = 22 + Width = 52 + Height = 12 + Caption = #25237#22383#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 = 420 + 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 = 572 + 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 = 704 + 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 Label10: TLabel + Left = 860 + Top = 24 + Width = 26 + 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 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 = 167 + 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 = 329 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 473 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Color: TEdit + Tag = 2 + Left = 600 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 748 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object BCGangNo: TEdit + Tag = 2 + Left = 894 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 107 + Width = 1205 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1205 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + Navigator.Buttons.CustomButtons = <> + OnCustomDrawCell = Tv1CustomDrawCell + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Qty1 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Inserting = 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 v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + end + object v1conTk1: TcxGridDBColumn + Caption = #21152#24037#31867#22411 + DataBinding.FieldName = 'conTk1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1OrderNo: TcxGridDBColumn + Caption = #21152#24037#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #21152#24037#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 83 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object v1C_Unit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 103 + end + object v1Column3: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXPerson' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column6: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXTel' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1gf: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'gf' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'H_PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'H_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 85 + Width = 1205 + Height = 22 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23436#25104 + #24050#23436#25104 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1205 + ClientRectTop = 19 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 = 624 + Top = 248 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 944 + 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 = 924 + Top = 212 + 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 = 848 + Top = 24 + end +end diff --git a/管理系统/U_ClothContractList_JG.pas b/管理系统/U_ClothContractList_JG.pas new file mode 100644 index 0000000..63dbef3 --- /dev/null +++ b/管理系统/U_ClothContractList_JG.pas @@ -0,0 +1,735 @@ +unit U_ClothContractList_JG; + +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, + cxLookAndFeels, cxLookAndFeelPainters, 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, cxNavigator, dxBarBuiltInMenu; + +type + TfrmClothContractList_JG = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Color: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + v1gf: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1C_Unit: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Tchk: TToolButton; + TNochk: TToolButton; + v1C_Color: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Ssel: TcxGridDBColumn; + BCGangNo: TEdit; + Label10: TLabel; + v1conTk1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: 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 ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure cxTabControl1Change(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TNochkClick(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 ToolButton1Click(Sender: TObject); + private + FInt, PFInt: Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractList_JG: TfrmClothContractList_JG; + +implementation + +uses + U_DataLink, U_ClothContractInPut_TP, U_Fun, U_ProductOrderList, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_JG.FormDestroy(Sender: TObject); +begin + frmClothContractList_JG := nil; +end; + +procedure TfrmClothContractList_JG.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmClothContractList_JG.FormCreate(Sender: TObject); +begin + ScrollBox1.Align := alClient; +end; + +procedure TfrmClothContractList_JG.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption, Tv1, 'ָʾ'); +end; + +procedure TfrmClothContractList_JG.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select *,Gf=(select factoryNoName from Contract_Main X where X.mainID=B.frommainID), '); + sql.Add('fdhNO=(select conNo from Contract_Main X where X.mainID=B.frommainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.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=''Ʒӹ'' '); + if cxTabControl1.TabIndex < 2 then + sql.Add('and B.C_status=''' + inttostr(cxTabControl1.TabIndex) + ''' '); +// ShowMessage(SQL.text); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractList_JG.InitForm(); +begin + ReadCxGrid(self.Caption, Tv1, 'ָʾ'); + BegDate.DateTime := SGetServerDate10(ADOQueryTemp); + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_JG.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_JG.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application); + with frmClothContractInPut_Tp do + begin + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmClothContractInPut_Tp.Free; + end; +end; + +procedure TfrmClothContractList_JG.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai '); + sql.Add('where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + open; + end; + if not ADOQueryCmd.IsEmpty then + begin + Application.MessageBox('ѻز֣ɾӹƻ', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if trim(Order_Main.FieldByName('mainID').AsString) = 'CM001' then + exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmClothContractList_JG.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where MainID='''+Trim(Order_Main.fieldbyname('MainID').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 ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where mainID=''' + trim(Order_Main.fieldbyname('mainID').AsString) + ''''); + sql.Add('delete Contract_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 TfrmClothContractList_JG.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel('ͬб', cxGrid1); +end; + +procedure TfrmClothContractList_JG.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('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.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.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + if FileExists(fPrintFile) then + begin + 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 TfrmClothContractList_JG.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_JG.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application); + with frmClothContractInPut_Tp do + begin + PState := 0; + FMainId := ''; + FConType := 'Ʒӹ'; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmClothContractInPut_Tp.Free; + end; +end; + +procedure TfrmClothContractList_JG.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 TfrmClothContractList_JG.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractList_JG.Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt := 2; +end; + +procedure TfrmClothContractList_JG.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt := 1; +end; + +procedure TfrmClothContractList_JG.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_JG.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_JG.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_JG.cxTabControl1Change(Sender: TObject); +begin +// TBEdit.Visible:=false; + TBDel.Visible := false; + Tchk.Visible := false; + TNochk.Visible := false; + if cxTabControl1.TabIndex = 0 then + begin + // TBEdit.Visible:=true; + TBDel.Visible := true; + Tchk.Visible:=true; + end; + if cxTabControl1.TabIndex = 1 then + begin + TNochk.Visible:=true; + end; + InitGrid(); +end; + +procedure TfrmClothContractList_JG.TchkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + + if Order_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + 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 Contract_sub SET C_status=''1'' '); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmClothContractList_JG.TNochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + 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 Contract_sub SET C_status=''0'' '); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmClothContractList_JG.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('H_Qty').Index] <> 0 then + begin + ACanvas.Brush.Color := clSkyBlue; + end; +end; + +procedure TfrmClothContractList_JG.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 TfrmClothContractList_JG.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + + if Order_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + 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 Contract_sub SET C_Note=' + quotedstr(trim(Order_Main.fieldbyname('C_Note').AsString))); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').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_ClothContractList_PBKC.dfm b/管理系统/U_ClothContractList_PBKC.dfm new file mode 100644 index 0000000..646bb76 --- /dev/null +++ b/管理系统/U_ClothContractList_PBKC.dfm @@ -0,0 +1,762 @@ +object frmClothContractList_PBKC: TfrmClothContractList_PBKC + Left = 349 + Top = 267 + Width = 1382 + Height = 754 + Caption = #22383#24067#24211#23384#20449#24687 + 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 = 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 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 + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #26597#30475#26126#32454 + ImageIndex = 56 + Visible = False + OnClick = ToolButton1Click + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 53 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #21040#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 = 22 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 275 + Top = 86 + Width = 52 + Height = 12 + Caption = #20219#21153#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 = 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 = 576 + Top = 86 + 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 = 708 + Top = 86 + Width = 26 + Height = 12 + Caption = #20379#26041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 308 + 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 = 167 + 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 = 333 + Top = 82 + 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 = 604 + Top = 82 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 736 + Top = 82 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object JHPlace: TEdit + Tag = 2 + Left = 348 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 85 + Width = 1366 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1366 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + 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 = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column12 + 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 + Column = v1Qty1 + end + 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 + 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 v1Column15: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'JHPlace' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #22383#24067 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 50 + end + object Tv1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'cphh' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 80 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 45 + end + object Tv1Column4: TcxGridDBColumn + Caption = #22383#24067#21040#36135#25968#37327 + DataBinding.FieldName = 'DH_Qty' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 111 + end + object Tv1Column5: TcxGridDBColumn + Caption = #22383#24067#21040#36135#21305#25968 + DataBinding.FieldName = 'DH_PS' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 98 + end + object Tv1Column6: TcxGridDBColumn + Caption = #35843#25320#21305#25968 + DataBinding.FieldName = 'DB_Qty' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column7: TcxGridDBColumn + Caption = #35843#25320#25968#37327 + DataBinding.FieldName = 'DB_PS' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column2: TcxGridDBColumn + Caption = #22238#20462#21518#21152#24037#21305#25968 + DataBinding.FieldName = 'HX_PS' + Visible = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 108 + end + object Tv1Column3: TcxGridDBColumn + Caption = #22238#20462#21518#21152#24037#25968#37327 + DataBinding.FieldName = 'HX_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 112 + end + object Tv1Column9: TcxGridDBColumn + Caption = #25237#21305#21305#25968 + DataBinding.FieldName = 'TP_PS' + Visible = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column8: TcxGridDBColumn + Caption = #25237#22383#25968#37327 + DataBinding.FieldName = 'TP_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 80 + end + object v1Qty1: TcxGridDBColumn + Caption = #23436#25104#21305#25968 + DataBinding.FieldName = 'CPWC_PS' + Visible = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 80 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #23436#25104#25968#37327 + DataBinding.FieldName = 'CPWC_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 80 + end + object v1Column13: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'CPFH_PS' + Visible = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 80 + end + object v1Column12: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'CPFH_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 80 + end + object v1Column18: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'KCPS' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 80 + end + object v1Column19: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #23454#38469#32553#29575'(%)' + DataBinding.FieldName = 'Srate' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##%;-,0.##%' + Visible = False + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 80 + end + object Tv1Column10: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'CK_ps' + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle_fontclBlue + Width = 60 + end + object Tv1Column11: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'CK_qty' + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle_fontclBlue + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 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 + object cxStyleRepository1: TcxStyleRepository + Left = 305 + Top = 310 + PixelsPerInch = 96 + 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 Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 804 + Top = 233 + end +end diff --git a/管理系统/U_ClothContractList_PBKC.pas b/管理系统/U_ClothContractList_PBKC.pas new file mode 100644 index 0000000..741233c --- /dev/null +++ b/管理系统/U_ClothContractList_PBKC.pas @@ -0,0 +1,273 @@ +unit U_ClothContractList_PBKC; + +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, cxCurrencyEdit, 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 + TfrmClothContractList_PBKC = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + TBExport: TToolButton; + Label4: TLabel; + C_Spec: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + v1Column12: TcxGridDBColumn; + v1Column13: 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; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + JHPlace: TEdit; + Order_Main: TClientDataSet; + ToolButton1: TToolButton; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column11: 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 ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractList_PBKC: TfrmClothContractList_PBKC; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_ClothContractList_SJDMX,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_PBKC.FormDestroy(Sender: TObject); +begin + frmClothContractList_PBKC:=nil; +end; + +procedure TfrmClothContractList_PBKC.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractList_PBKC.FormCreate(Sender: TObject); +begin + ScrollBox1.Align:=alClient; +end; + +procedure TfrmClothContractList_PBKC.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption,Tv1,'ָʾ1'); +end; + +procedure TfrmClothContractList_PBKC.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + sql.Add('exec P_Get_FabricStockHz_PC_TZ'); + sql.Add('@begdate='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' '); + sql.Add(',@enddate='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''' '); + sql.Add(',@conType='''' '); +// sql.Add(',@status='''+inttostr(0)+''' '); +//showmessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractList_PBKC.InitForm(); +begin + ReadCxGrid(self.Caption,Tv1,'ָʾ1'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-90; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_PBKC.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 TfrmClothContractList_PBKC.DelData():Boolean; +begin + +end; + +procedure TfrmClothContractList_PBKC.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractList_PBKC.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_PBKC.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 TfrmClothContractList_PBKC.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractList_PBKC.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 TfrmClothContractList_PBKC.ToolButton1Click(Sender: TObject); +begin +if Order_Main.IsEmpty then + Exit; + try + frmClothContractList_SJDMX := TfrmClothContractList_SJDMX.Create(Application); + with frmClothContractList_SJDMX do + begin +// PState:=1; + Fcphh:=Trim(Self.Order_Main.fieldbyname('CPHH').AsString); + FfactoryName:=Trim(Self.Order_Main.fieldbyname('JHPlace').AsString); +// FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractList_SJDMX.Free; + end; +end; + +end. diff --git a/管理系统/U_ClothContractList_SJD.dfm b/管理系统/U_ClothContractList_SJD.dfm new file mode 100644 index 0000000..051da8a --- /dev/null +++ b/管理系统/U_ClothContractList_SJD.dfm @@ -0,0 +1,674 @@ +object frmClothContractList_SJD: TfrmClothContractList_SJD + Left = 349 + Top = 267 + Width = 1382 + Height = 754 + Caption = #22383#24067#21040#36135#20449#24687 + 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 = 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 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 + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #26597#30475#26126#32454 + ImageIndex = 56 + OnClick = ToolButton1Click + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 53 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #21040#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 = 22 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 275 + Top = 86 + Width = 52 + Height = 12 + Caption = #20219#21153#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 = 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 = 576 + Top = 86 + 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 = 708 + Top = 86 + Width = 26 + Height = 12 + Caption = #20379#26041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 308 + 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 = 167 + 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 = 333 + Top = 82 + 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 = 604 + Top = 82 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 736 + Top = 82 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object JHPlace: TEdit + Tag = 2 + Left = 348 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 85 + Width = 1366 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1366 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + 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 = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column12 + 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 + Column = v1Qty1 + end + 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 + 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 v1Column15: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'JHPlace' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #22383#24067 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1Qty1: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 68 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object v1Column13: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'H_PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'H_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 68 + end + object v1Column18: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'N_PS' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column19: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'N_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 71 + end + object v1Column11: TcxGridDBColumn + Caption = #23454#38469#32553#29575'(%)' + DataBinding.FieldName = 'Srate' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##%;-,0.##%' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 91 + end + object Tv1Column1: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'cphh' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 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 + object cxStyleRepository1: TcxStyleRepository + Left = 305 + Top = 310 + PixelsPerInch = 96 + 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 Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 804 + Top = 233 + end +end diff --git a/管理系统/U_ClothContractList_SJD.pas b/管理系统/U_ClothContractList_SJD.pas new file mode 100644 index 0000000..38de956 --- /dev/null +++ b/管理系统/U_ClothContractList_SJD.pas @@ -0,0 +1,263 @@ +unit U_ClothContractList_SJD; + +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, cxCurrencyEdit, 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 + TfrmClothContractList_SJD = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + TBExport: TToolButton; + Label4: TLabel; + C_Spec: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + v1Column12: TcxGridDBColumn; + v1Column13: 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; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + JHPlace: TEdit; + Order_Main: TClientDataSet; + ToolButton1: TToolButton; + Tv1Column1: 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 ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractList_SJD: TfrmClothContractList_SJD; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_ClothContractList_SJDMX,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_SJD.FormDestroy(Sender: TObject); +begin + frmClothContractList_SJD:=nil; +end; + +procedure TfrmClothContractList_SJD.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractList_SJD.FormCreate(Sender: TObject); +begin + ScrollBox1.Align:=alClient; +end; + +procedure TfrmClothContractList_SJD.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption,Tv1,'ָʾ'); +end; + +procedure TfrmClothContractList_SJD.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + sql.Add('exec P_Get_FabricStockHz_PC'); + sql.Add('@begdate='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' '); + sql.Add(',@enddate='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''' '); + sql.Add(',@conType='''' '); +// sql.Add(',@status='''+inttostr(0)+''' '); +//showmessage(sql.Text); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractList_SJD.InitForm(); +begin + ReadCxGrid(self.Caption,Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-90; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_SJD.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 TfrmClothContractList_SJD.DelData():Boolean; +begin + +end; + +procedure TfrmClothContractList_SJD.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractList_SJD.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_SJD.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 TfrmClothContractList_SJD.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractList_SJD.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 TfrmClothContractList_SJD.ToolButton1Click(Sender: TObject); +begin +if Order_Main.IsEmpty then + Exit; + try + frmClothContractList_SJDMX := TfrmClothContractList_SJDMX.Create(Application); + with frmClothContractList_SJDMX do + begin +// PState:=1; + Fcphh:=Trim(Self.Order_Main.fieldbyname('CPHH').AsString); + FfactoryName:=Trim(Self.Order_Main.fieldbyname('JHPlace').AsString); +// FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractList_SJDMX.Free; + end; +end; + +end. diff --git a/管理系统/U_ClothContractList_SJDCK.dfm b/管理系统/U_ClothContractList_SJDCK.dfm new file mode 100644 index 0000000..cf1f96a --- /dev/null +++ b/管理系统/U_ClothContractList_SJDCK.dfm @@ -0,0 +1,678 @@ +object frmClothContractList_SJDCK: TfrmClothContractList_SJDCK + Left = 179 + Top = 162 + Width = 1382 + Height = 754 + Caption = #22383#24067#25163#26426#31471#26126#32454#20986#24211 + 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 = 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 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 + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #26597#30475#26126#32454 + ImageIndex = 56 + Visible = False + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 53 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #21040#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 = 22 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 275 + Top = 86 + Width = 52 + Height = 12 + Caption = #20219#21153#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 = 420 + 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 = 576 + Top = 86 + 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 = 708 + Top = 86 + Width = 26 + Height = 12 + Caption = #20379#26041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 284 + 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 = 167 + 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 = 333 + Top = 82 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 473 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 604 + Top = 82 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 736 + Top = 82 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object JHPlace: TEdit + Tag = 2 + Left = 324 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 85 + Width = 1366 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1366 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + 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 = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column12 + 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 + Column = v1Qty1 + end + 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 + 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 Tv1Column1: TcxGridDBColumn + Caption = #25237#22383#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #22383#24067 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1Qty1: TcxGridDBColumn + Caption = #21040#36135#21305#25968 + DataBinding.FieldName = 'Qty1' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 68 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'C_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object v1Column13: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'T_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 68 + end + object v1Column18: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'N_PS' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column19: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'N_Qty' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 71 + end + object Tv1Column2: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_COlor' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'conType' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 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 + object cxStyleRepository1: TcxStyleRepository + Left = 305 + Top = 310 + PixelsPerInch = 96 + 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 Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 804 + Top = 233 + end +end diff --git a/管理系统/U_ClothContractList_SJDCK.pas b/管理系统/U_ClothContractList_SJDCK.pas new file mode 100644 index 0000000..f7f22c4 --- /dev/null +++ b/管理系统/U_ClothContractList_SJDCK.pas @@ -0,0 +1,245 @@ +unit U_ClothContractList_SJDCK; + +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, + cxCurrencyEdit, 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 + TfrmClothContractList_SJDCK = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + TBExport: TToolButton; + Label4: TLabel; + C_Spec: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + v1Column12: TcxGridDBColumn; + v1Column13: 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; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + JHPlace: TEdit; + Order_Main: TClientDataSet; + ToolButton1: TToolButton; + 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 ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + private + FInt, PFInt: Integer; +// Fcphh,FfactoryName:string; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + { Private declarations } + public + Fcphh, FfactoryName, Fsubid: string; + { Public declarations } + end; + +var + frmClothContractList_SJDCK: TfrmClothContractList_SJDCK; + +implementation + +uses + U_DataLink, U_ClothContractInPut, U_Fun, U_ProductOrderList, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_SJDCK.FormDestroy(Sender: TObject); +begin + frmClothContractList_SJDCK := nil; +end; + +procedure TfrmClothContractList_SJDCK.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmClothContractList_SJDCK.FormCreate(Sender: TObject); +begin + ScrollBox1.Align := alClient; +end; + +procedure TfrmClothContractList_SJDCK.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption, Tv1, 'ָʾ1'); +end; + +procedure TfrmClothContractList_SJDCK.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered := False; + sql.Add('exec P_Get_FabricStockHz_PC'); + sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); + sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' '); + sql.Add(',@conType='''' '); +// sql.Add(',@cphh=''' + Fcphh + ''' '); +// sql.Add(',@factoryName=''' + FfactoryName + ''' '); + sql.Add(',@subid=''' + Fsubid + ''' '); +// ShowMessage(sql.text); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractList_SJDCK.InitForm(); +begin + ReadCxGrid(self.Caption, Tv1, 'ָʾ1'); + BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90; + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_SJDCK.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 TfrmClothContractList_SJDCK.DelData(): Boolean; +begin + +end; + +procedure TfrmClothContractList_SJDCK.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel('ͬб', cxGrid1); +end; + +procedure TfrmClothContractList_SJDCK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_SJDCK.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 TfrmClothContractList_SJDCK.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractList_SJDCK.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; + +end. + diff --git a/管理系统/U_ClothContractList_SJDMX.dfm b/管理系统/U_ClothContractList_SJDMX.dfm new file mode 100644 index 0000000..1601fac --- /dev/null +++ b/管理系统/U_ClothContractList_SJDMX.dfm @@ -0,0 +1,670 @@ +object frmClothContractList_SJDMX: TfrmClothContractList_SJDMX + Left = 380 + Top = 199 + Width = 1382 + Height = 754 + Caption = #22383#24067#25163#26426#31471#26126#32454 + 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 = 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 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 + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #26597#30475#26126#32454 + ImageIndex = 56 + OnClick = ToolButton1Click + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 53 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #21040#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 = 22 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 275 + Top = 86 + Width = 52 + Height = 12 + Caption = #20219#21153#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 = 420 + 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 = 576 + Top = 86 + 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 = 708 + Top = 86 + Width = 26 + Height = 12 + Caption = #20379#26041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 284 + 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 = 167 + 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 = 333 + Top = 82 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 473 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 604 + Top = 82 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 736 + Top = 82 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object JHPlace: TEdit + Tag = 2 + Left = 324 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 85 + Width = 1366 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1366 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + 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 = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column12 + 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 + Column = v1Qty1 + end + 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 + 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 v1Column15: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'JHPlace' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #22383#24067 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1Qty1: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 68 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object v1Column13: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'H_PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 70 + end + object v1Column12: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'H_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 68 + end + object v1Column18: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'N_PS' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column19: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'N_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 71 + end + object v1Column11: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'CPhh' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 91 + end + object Tv1Column1: TcxGridDBColumn + DataBinding.FieldName = 'subid' + Visible = False + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 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 + object cxStyleRepository1: TcxStyleRepository + Left = 305 + Top = 310 + PixelsPerInch = 96 + 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 Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 804 + Top = 233 + end +end diff --git a/管理系统/U_ClothContractList_SJDMX.pas b/管理系统/U_ClothContractList_SJDMX.pas new file mode 100644 index 0000000..eda2d7d --- /dev/null +++ b/管理系统/U_ClothContractList_SJDMX.pas @@ -0,0 +1,267 @@ +unit U_ClothContractList_SJDMX; + +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, + cxCurrencyEdit, 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 + TfrmClothContractList_SJDMX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + TBExport: TToolButton; + Label4: TLabel; + C_Spec: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + v1Column12: TcxGridDBColumn; + v1Column13: 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; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + JHPlace: TEdit; + Order_Main: TClientDataSet; + ToolButton1: TToolButton; + Tv1Column1: 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 ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + private + FInt, PFInt: Integer; +// Fcphh,FfactoryName:string; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + { Private declarations } + public + Fcphh, FfactoryName: string; + { Public declarations } + end; + +var + frmClothContractList_SJDMX: TfrmClothContractList_SJDMX; + +implementation + +uses + U_DataLink, U_ClothContractInPut, U_ClothContractList_SJDCK, U_Fun, + U_ProductOrderList, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_SJDMX.FormDestroy(Sender: TObject); +begin + frmClothContractList_SJDMX := nil; +end; + +procedure TfrmClothContractList_SJDMX.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmClothContractList_SJDMX.FormCreate(Sender: TObject); +begin + ScrollBox1.Align := alClient; +end; + +procedure TfrmClothContractList_SJDMX.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption, Tv1, 'ָʾ'); +end; + +procedure TfrmClothContractList_SJDMX.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered := False; + sql.Add('exec P_Get_FabricStockHz_PC'); + sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); + sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' '); + sql.Add(',@conType=''ϸ'' '); + sql.Add(',@cphh=''' + Fcphh + ''' '); + sql.Add(',@factoryName=''' + FfactoryName + ''' '); +// sql.Add(',@subid='''+Fsubid+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractList_SJDMX.InitForm(); +begin + ReadCxGrid(self.Caption, Tv1, 'ָʾ'); + BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90; + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_SJDMX.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 TfrmClothContractList_SJDMX.DelData(): Boolean; +begin + +end; + +procedure TfrmClothContractList_SJDMX.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel('ͬб', cxGrid1); +end; + +procedure TfrmClothContractList_SJDMX.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_SJDMX.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 TfrmClothContractList_SJDMX.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractList_SJDMX.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 TfrmClothContractList_SJDMX.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmClothContractList_SJDCK := TfrmClothContractList_SJDCK.Create(Application); + with frmClothContractList_SJDCK do + begin +// PState:=1; +// Fcphh := Trim(Self.Order_Main.fieldbyname('CPHH').AsString); +// FfactoryName := Trim(Self.Order_Main.fieldbyname('JHPlace').AsString); + Fsubid := Trim(Self.Order_Main.fieldbyname('subid').AsString); + if ShowModal = 1 then + begin + + end; + end; + finally + frmClothContractList_SJDCK.Free; + end; +end; + +end. + diff --git a/管理系统/U_ClothContractList_Sel.dfm b/管理系统/U_ClothContractList_Sel.dfm new file mode 100644 index 0000000..f76eb5b --- /dev/null +++ b/管理系统/U_ClothContractList_Sel.dfm @@ -0,0 +1,852 @@ +object frmClothContractList_sel: TfrmClothContractList_sel + Left = 63 + Top = 129 + Width = 1222 + Height = 738 + Caption = #36873#25321#22383#24067#21040#36135#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 = 1206 + 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 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object tchk: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #30830#35748#23436#25104 + ImageIndex = 41 + Visible = False + OnClick = tchkClick + end + object Tnochk: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + ImageIndex = 56 + Visible = False + OnClick = TnochkClick + end + object Tth: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #36864#36135 + ImageIndex = 129 + Visible = False + OnClick = TthClick + end + object ToolButton1: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 741 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1206 + Height = 49 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 19 + Top = 62 + 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 = 157 + Top = 62 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #20219#21153#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 = 172 + 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 = 324 + 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 = 456 + Top = 22 + Width = 26 + Height = 12 + Caption = #20379#26041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 832 + Top = 62 + 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 BegDate: TDateTimePicker + Left = 72 + Top = 58 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 163 + Top = 58 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 81 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = conPress + end + object C_CodeName: TEdit + Tag = 2 + Left = 225 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 352 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 484 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object JHPlace: TEdit + Tag = 2 + Left = 888 + Top = 58 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + object CheckBox_XS: TCheckBox + Left = 668 + Top = 20 + Width = 97 + Height = 17 + Caption = #26174#31034#20840#37096 + TabOrder = 7 + OnClick = CheckBox_XSClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 103 + Width = 1206 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1206 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + 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 = v1Qty1 + end + item + Kind = skSum + Column = v1Column12 + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column16 + end + item + Kind = skSum + Column = v1Column17 + 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.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 v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1OrderNo: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object v1Column8: TcxGridDBColumn + Caption = #37319#36141#35745#21010#21333#21495 + DataBinding.FieldName = 'fromConNo' + Options.Editing = False + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #21040#36135#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 83 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object v1PRTUnit: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column6: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column7: TcxGridDBColumn + Caption = #21040#36135#22320#28857 + DataBinding.FieldName = 'JHPlace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 101 + end + object v1Column12: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'H_PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'H_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'N_Ps' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column17: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'N_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column14: TcxGridDBColumn + Caption = #23454#38469#32553#29575'(%)' + DataBinding.FieldName = 'Srate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 80 + end + object v1Column15: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Mrate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 81 + Width = 1206 + Height = 22 + Align = alTop + TabOrder = 3 + Visible = False + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23436#25104 + #24050#23436#25104 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1206 + ClientRectTop = 19 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 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 = 860 + Top = 32 + end + object cxStyleRepository1: TcxStyleRepository + Left = 305 + Top = 310 + PixelsPerInch = 96 + 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 +end diff --git a/管理系统/U_ClothContractList_Sel.pas b/管理系统/U_ClothContractList_Sel.pas new file mode 100644 index 0000000..bf552d1 --- /dev/null +++ b/管理系统/U_ClothContractList_Sel.pas @@ -0,0 +1,796 @@ +unit U_ClothContractList_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, cxCalendar, cxButtonEdit, cxSplitter, + RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, + cxTextEdit, cxPC, cxCheckBox, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator, dxBarBuiltInMenu; + +type + TfrmClothContractList_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; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + 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; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1PRTUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + v1Column8: 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; + ToolButton1: TToolButton; + Tth: TToolButton; + cxTabControl1: TcxTabControl; + tchk: TToolButton; + Tnochk: TToolButton; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + JHPlace: TEdit; + v1Ssel: TcxGridDBColumn; + CheckBox_XS: 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 ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure conPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TthClick(Sender: TObject); + procedure tchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); + procedure CheckBox_XSClick(Sender: TObject); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + ffactoryName:string; + { Public declarations } + end; + +var + frmClothContractList_sel: TfrmClothContractList_sel; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_sel.FormDestroy(Sender: TObject); +begin + frmClothContractList_sel:=nil; +end; + +procedure TfrmClothContractList_sel.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractList_sel.FormCreate(Sender: TObject); +begin + ScrollBox1.Align:=alClient; +end; + +procedure TfrmClothContractList_sel.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption,Tv1,'ָʾ'); +end; + +procedure TfrmClothContractList_sel.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered:=False; + sql.Clear; + sql.Add('exec P_Get_Contract'); + sql.Add('@begdate='''+Trim(ffactoryName)+''' '); + sql.Add(',@enddate='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''' '); + IF not CheckBox_XS.Checked then + sql.Add(',@conType=''ѡ1'' ') + else + sql.Add(',@conType=''ѡ'' '); + sql.Add(',@status='''+inttostr(cxTabControl1.TabIndex)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmClothContractList_sel.InitForm(); +begin + ReadCxGrid(self.Caption,Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_sel.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 TfrmClothContractList_sel.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 + // TBRafresh.Click; + end; + end; + finally + frmClothContractInPut.Free; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList_sel.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 trim(Order_Main.FieldByName('mainID').AsString)='CM001' then exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmClothContractList_sel.DelData():Boolean; +begin + try + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where MainID='''+Trim(Order_Main.fieldbyname('MainID').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 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_sel.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractList_sel.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('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.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.mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_PRT); + SInitCDSData20(ADOQueryTemp,CDS_PRT); + if FileExists(fPrintFile) then + begin + 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 TfrmClothContractList_sel.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_sel.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; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList_sel.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 TfrmClothContractList_sel.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractList_sel.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothContractList_sel.Tv1MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=1; +end; + +procedure TfrmClothContractList_sel.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_sel.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_sel.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_sel.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)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; } +end; + +procedure TfrmClothContractList_sel.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPut:=TfrmClothContractInPut.Create(Application); + with frmClothContractInPut do + begin + PState:=3; + TBSave.Enabled:=false; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmClothContractInPut.Free; + end; +end; + +procedure TfrmClothContractList_sel.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin +// ToolButton1.Click; + IF Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmClothContractList_sel.TthClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmClothContractInPut:=TfrmClothContractInPut.Create(Application); + with frmClothContractInPut do + begin + PState:=1; + v1Column6.Visible:=true; + v1Column7.Visible:=true; + v1Column8.Visible:=true; + ToolBar2.Enabled:=false; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmClothContractInPut.Free; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList_sel.tchkClick(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + + if Order_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + 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 Contract_sub SET C_status=''1'' '); + sql.Add('where mainID ='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmClothContractList_sel.TnochkClick(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + if Order_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + 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 Contract_sub SET C_status=''0'' '); + sql.Add('where mainID ='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID ='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmClothContractList_sel.cxTabControl1Change(Sender: TObject); +begin + TBEdit.Visible:=false; + TBDel.Visible:=false; + Tchk.Visible:=false; + TNochk.Visible:=false; + Tth.Visible:=false; + if cxTabControl1.TabIndex=0 then + begin + TBEdit.Visible:=true; + TBDel.Visible:=true; + Tchk.Visible:=true; + Tth.Visible:=true; + end; + if cxTabControl1.TabIndex=1 then + begin + TNochk.Visible:=true; + end; + InitGrid(); +end; + +procedure TfrmClothContractList_sel.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 TfrmClothContractList_sel.CheckBox_XSClick(Sender: TObject); +begin + TBRafresh.Click; +end; + +end. diff --git a/管理系统/U_ClothContractList_TP.dfm b/管理系统/U_ClothContractList_TP.dfm new file mode 100644 index 0000000..8a0972d --- /dev/null +++ b/管理系统/U_ClothContractList_TP.dfm @@ -0,0 +1,855 @@ +object frmClothContractList_Tp: TfrmClothContractList_Tp + Left = 265 + Top = 182 + Width = 1222 + Height = 663 + Caption = #22383#24067#21040#36135#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 = 1206 + 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 ToolButton2: TToolButton + Left = 189 + Top = 0 + Caption = #22238#20462#26032#22686 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object TBEdit: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 335 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #30830#35748#23436#25104 + ImageIndex = 41 + OnClick = TchkClick + end + object TNochk: TToolButton + Left = 485 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + ImageIndex = 48 + OnClick = TNochkClick + end + object ToolButton1: TToolButton + Left = 572 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 635 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 698 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 761 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1206 + Height = 53 + 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 = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 271 + Top = 22 + Width = 52 + Height = 12 + Caption = #25237#22383#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 = 420 + 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 = 572 + 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 = 704 + 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 = 167 + 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 = 329 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 473 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Color: TEdit + Tag = 2 + Left = 600 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 748 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 107 + Width = 1206 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1206 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1H_gs + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Qty2 + end + item + Kind = skSum + Column = v1Qty1 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = 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 v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1OrderNo: TcxGridDBColumn + Caption = #25237#22383#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #25237#22383#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 83 + end + object v1Qty2: TcxGridDBColumn + Caption = #32568#25968 + DataBinding.FieldName = 'Qty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 60 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object v1C_Unit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column6: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1H_gs: TcxGridDBColumn + Caption = #22238#20179#32568#25968 + DataBinding.FieldName = 'H_gs' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'H_PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'H_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #26410#23436#25104#25968#37327 + DataBinding.FieldName = 'N_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 70 + end + object v1Column10: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column12: TcxGridDBColumn + Caption = #20462#25913#20154 + DataBinding.FieldName = 'editer' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #20462#25913#26102#38388 + DataBinding.FieldName = 'editTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'J_ps' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'J_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + object v1Column1: TcxGridDBColumn + DataBinding.FieldName = 'IsZt' + Visible = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 85 + Width = 1206 + Height = 22 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23436#25104 + #24050#23436#25104 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1206 + ClientRectTop = 19 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 = 624 + Top = 248 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 944 + Top = 240 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 888 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 924 + Top = 212 + 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 = 804 + Top = 44 + end + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + PixelsPerInch = 96 + 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 +end diff --git a/管理系统/U_ClothContractList_TP.pas b/管理系统/U_ClothContractList_TP.pas new file mode 100644 index 0000000..f82b940 --- /dev/null +++ b/管理系统/U_ClothContractList_TP.pas @@ -0,0 +1,813 @@ +unit U_ClothContractList_TP; + +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, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, + 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 + TfrmClothContractList_Tp = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Color: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + cxTabControl1: TcxTabControl; + v1C_Unit: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Tchk: TToolButton; + TNochk: TToolButton; + ToolButton1: TToolButton; + v1Qty2: TcxGridDBColumn; + v1C_Color: TcxGridDBColumn; + v1H_gs: TcxGridDBColumn; + v1Column9: 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; + v1Ssel: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column1: 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 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 Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + 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 ToolButton1Click(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 ToolButton2Click(Sender: TObject); + private + FInt, PFInt: Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + { Private declarations } + public + fDParameters1: string; + { Public declarations } + end; + +var + frmClothContractList_Tp: TfrmClothContractList_Tp; + +implementation + +uses + U_DataLink, U_ClothContractInPut_TP, U_Fun, U_ProductOrderList, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_Tp.FormDestroy(Sender: TObject); +begin + frmClothContractList_Tp := nil; +end; + +procedure TfrmClothContractList_Tp.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmClothContractList_Tp.FormCreate(Sender: TObject); +begin + ScrollBox1.Align := alClient; +end; + +procedure TfrmClothContractList_Tp.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption, Tv1, 'ָʾ'); +end; + +procedure TfrmClothContractList_Tp.InitGrid(); +var + strwhere: string; +begin + strwhere := ''; + if cxTabControl1.TabIndex < 2 then +// strwhere := strwhere + ' and isnull(A.status,''''0'''')=''''' + inttostr(cxTabControl1.TabIndex) + ''''''; + strwhere := strwhere + ' and isnull(B.C_status,''''0'''')=''''' + inttostr(cxTabControl1.TabIndex) + ''''''; + if (trim(fDParameters1) = 'ѯ') then + strwhere := strwhere + ' and A.Filler=''''' + Trim(DName) + ''''' '; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('exec P_Get_Contract_TG'); + sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); + sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' '); +// sql.Add(',@conType= '''+TconType+''' '); + sql.Add(',@status=''' +strwhere + ''' '); +// ShowMessage(sql.text); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractList_Tp.InitForm(); +begin +// if fDParameters1 = 'ѯ' then +// begin +// TBADD.Visible := false; +// TBEdit.Visible := false; +// TBDel.Visible := false; +// Tchk.Visible := false; +// TNochk.Visible := false; +// // Tth.Visible:=false; +// //ToolButton1.Visible:=false; +// end; + + TBEdit.Enabled := false; + TBDel.Enabled := false; + Tchk.Enabled := false; + TNochk.Enabled := false; + if cxTabControl1.TabIndex = 0 then + begin + TBEdit.Enabled := true; + TBDel.Enabled := true; + Tchk.Enabled := true; + end; + if cxTabControl1.TabIndex = 1 then + begin + TNochk.Enabled := true; + end; +end; + +procedure TfrmClothContractList_Tp.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_Tp.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application); + with frmClothContractInPut_Tp do + begin + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConType := Trim(Self.Order_Main.fieldbyname('ConType').AsString); + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmClothContractInPut_Tp.Free; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList_Tp.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai '); + sql.Add('where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + open; + end; + if not ADOQueryCmd.IsEmpty then + begin + Application.MessageBox('ѻز֣ɾͶƻ', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if trim(Order_Main.FieldByName('mainID').AsString) = 'CM001' then + exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmClothContractList_Tp.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where MainID=''' + Trim(Order_Main.fieldbyname('MainID').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 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_Tp.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel('ͬб', cxGrid1); +end; + +procedure TfrmClothContractList_Tp.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('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.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.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + if FileExists(fPrintFile) then + begin + 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 TfrmClothContractList_Tp.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_Tp.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application); + with frmClothContractInPut_Tp do + begin + PState := 0; + FMainId := ''; + FConType := 'ԤͶ'; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmClothContractInPut_Tp.Free; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList_Tp.ConNoChange(Sender: TObject); +var + str1: string; +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); +end; + +procedure TfrmClothContractList_Tp.FormShow(Sender: TObject); +begin + InitForm(); + ReadCxGrid(self.Caption, Tv1, 'ָʾ'); + BegDate.DateTime := SGetServerDate10(ADOQueryTemp); + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_Tp.Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt := 2; +end; + +procedure TfrmClothContractList_Tp.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt := 1; +end; + +procedure TfrmClothContractList_Tp.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_Tp.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_Tp.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_Tp.cxTabControl1Change(Sender: TObject); +begin + initForm(); + InitGrid(); +end; + +procedure TfrmClothContractList_Tp.TchkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + + if Order_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + 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 Contract_sub SET C_status=''1'' '); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmClothContractList_Tp.TNochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + 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 Contract_sub SET C_status=''0'' '); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmClothContractList_Tp.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton1.Click; +end; + +procedure TfrmClothContractList_Tp.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application); + with frmClothContractInPut_Tp do + begin + PState := 1; + tbsave.Enabled := false; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal = 1 then + begin + + end; + end; + finally + frmClothContractInPut_Tp.Free; + end; +end; + +procedure TfrmClothContractList_Tp.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin +{ IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('N_Qty').Index]=0 then + begin + ACanvas.Brush.Color:=clSkyBlue; + end; } + if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('IsZt').Index] = 0 then + begin + ACanvas.Brush.Color := Clred; + end; + +end; + +procedure TfrmClothContractList_Tp.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 TfrmClothContractList_Tp.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application); + with frmClothContractInPut_Tp do + begin + PState := 0; + FMainId := ''; + FConType := 'ɫƻ'; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmClothContractInPut_Tp.Free; + TBRafresh.Click; + end; +end; + +end. + diff --git a/管理系统/U_ClothContractList_help.dfm b/管理系统/U_ClothContractList_help.dfm new file mode 100644 index 0000000..9f9a0ac --- /dev/null +++ b/管理系统/U_ClothContractList_help.dfm @@ -0,0 +1,760 @@ +object frmClothContractList_Help: TfrmClothContractList_Help + Left = 35 + Top = 105 + Width = 1221 + Height = 738 + Caption = #36873#25321#22383#24067#21040#36135#20449#24687 + 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 = 1205 + 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 TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object ToolButton1: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 41 + 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 = 32 + Width = 1205 + Height = 53 + 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 = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 271 + Top = 22 + Width = 52 + Height = 12 + Caption = #20219#21153#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 = 420 + 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 = 572 + 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 = 704 + Top = 22 + Width = 26 + Height = 12 + Caption = #20379#26041 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 832 + 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 = 167 + 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 = 329 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 473 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Spec: TEdit + Tag = 2 + Left = 600 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 732 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + object JHPlace: TEdit + Tag = 2 + Left = 868 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 6 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 85 + Width = 1205 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1205 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column20 + end + item + Kind = skCount + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column12 + 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 + Column = v1Qty1 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column16 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Editing = 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 v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column15: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'JHPlace' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #20379#26041 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1OrderNo: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object v1Column8: TcxGridDBColumn + Caption = #37319#36141#35745#21010#21333#21495 + DataBinding.FieldName = 'fromConNo' + Options.Editing = False + Width = 86 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1Qty1: TcxGridDBColumn + Caption = #21040#36135#21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 68 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #21040#36135#25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object v1Column20: TcxGridDBColumn + Caption = #36864#36135#21305#25968 + DataBinding.FieldName = 'T_Ps' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #36864#36135#25968#37327 + DataBinding.FieldName = 'T_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'H_PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'H_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 68 + end + object v1Column18: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'N_PS' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column19: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'N_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #23454#38469#32553#29575'(%)' + DataBinding.FieldName = 'Srate' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##%;-,0.##%' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #35745#21010#32553#29575'(%)' + DataBinding.FieldName = 'Mrate' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##%;-,0.##%' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column17: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'J_PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'J_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + 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 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 + object cxStyleRepository1: TcxStyleRepository + Left = 305 + Top = 310 + PixelsPerInch = 96 + 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 Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 804 + Top = 233 + end +end diff --git a/管理系统/U_ClothContractList_help.pas b/管理系统/U_ClothContractList_help.pas new file mode 100644 index 0000000..cff6ae1 --- /dev/null +++ b/管理系统/U_ClothContractList_help.pas @@ -0,0 +1,355 @@ +unit U_ClothContractList_Help; + +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, cxCurrencyEdit, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +type + TfrmClothContractList_Help = 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; + TBExport: TToolButton; + Label4: TLabel; + C_Spec: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Ssel: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: 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; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Label7: TLabel; + JHPlace: TEdit; + v1Column16: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + Order_Main: TClientDataSet; + 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 TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure conPress(Sender: TObject; var Key: Char); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + { Private declarations } + public + { Public declarations } + end; + +var + frmClothContractList_Help: TfrmClothContractList_Help; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_Help.FormDestroy(Sender: TObject); +begin + frmClothContractList_Help:=nil; +end; + +procedure TfrmClothContractList_Help.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmClothContractList_Help.FormCreate(Sender: TObject); +begin + ScrollBox1.Align:=alClient; +end; + +procedure TfrmClothContractList_Help.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption,Tv1,'ָʾ'); +end; + +procedure TfrmClothContractList_Help.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + sql.Add('exec P_Get_Contract'); + sql.Add('@begdate='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' '); + sql.Add(',@enddate='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''' '); + sql.Add(',@conType='''' '); + sql.Add(',@status='''+inttostr(0)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractList_Help.InitForm(); +begin + ReadCxGrid(self.Caption,Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_Help.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_Help.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; + +function TfrmClothContractList_Help.DelData():Boolean; +begin + +end; + +procedure TfrmClothContractList_Help.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + TcxGridToExcel('ͬб',cxGrid1); +end; + +procedure TfrmClothContractList_Help.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; + +end; + +procedure TfrmClothContractList_Help.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_Help.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 TfrmClothContractList_Help.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothContractList_Help.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_Help.conPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + if Length(Trim(ConNo.Text))<4 then Exit; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('exec ClothContract_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNo.Text)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +procedure TfrmClothContractList_Help.ToolButton1Click(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmClothContractList_Help.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; + +end. diff --git a/管理系统/U_ClothHCList.dfm b/管理系统/U_ClothHCList.dfm new file mode 100644 index 0000000..6ea8167 --- /dev/null +++ b/管理系统/U_ClothHCList.dfm @@ -0,0 +1,433 @@ +object frmClothHCList: TfrmClothHCList + Left = 86 + Top = 64 + Width = 1280 + Height = 705 + 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 = 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 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 = 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 = #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 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 = 444 + 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 = 612 + Top = 22 + 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 = 748 + 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 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 OrderNoM: TEdit + Tag = 2 + Left = 323 + Top = 18 + Width = 98 + Height = 20 + TabOrder = 2 + OnChange = OrderNoMChange + OnKeyPress = OrderNoMKeyPress + end + object GangNo: TEdit + Tag = 2 + Left = 497 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = OrderNoMChange + end + object AOrddefstr1: TEdit + Tag = 2 + Left = 664 + Top = 18 + Width = 49 + Height = 20 + TabOrder = 4 + OnChange = OrderNoMChange + end + object PRTColor: TEdit + Tag = 2 + Left = 776 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 5 + OnChange = OrderNoMChange + end + object AOrddefstr4: TEdit + Tag = 2 + Left = 920 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 6 + OnChange = OrderNoMChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 86 + Width = 1272 + Height = 582 + 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 + 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 V2Column10: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNoM' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object V2Column13: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object V2Column2: TcxGridDBColumn + Caption = #22238#20179#26102#38388 + DataBinding.FieldName = 'ADefDate1' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + 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 + 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> + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 63 + 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 V2Column4: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'AOrddefstr2' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Kg') + HeaderAlignmentHorz = taCenter + Width = 63 + 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' + 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 + 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> + 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 cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 448 + Top = 168 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 856 + Top = 32 + 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..aa06f03 --- /dev/null +++ b/管理系统/U_ClothHCList.pas @@ -0,0 +1,195 @@ +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; + Label2: 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; + V2Column11: TcxGridDBColumn; + cxGridDBColumn1: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + V2Column9: TcxGridDBColumn; + V2Column7: TcxGridDBColumn; + V2Column1: TcxGridDBColumn; + V2Column5: TcxGridDBColumn; + V2Column6: TcxGridDBColumn; + V2Column12: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + V2Column10: TcxGridDBColumn; + V2Column13: 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); + private + FInt,PFInt:Integer; + procedure InitGrid(); + procedure InitForm(); + procedure InitGridWSQL(FWSQL:String); + { Private declarations } + public + { Public declarations } + end; + +var + frmClothHCList: TfrmClothHCList; + +implementation +uses + U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp; + +{$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('زֲѯ',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('زֲѯ',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(); +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; + +end. diff --git a/管理系统/U_ClothPDInfoList.dfm b/管理系统/U_ClothPDInfoList.dfm new file mode 100644 index 0000000..f97bd9b --- /dev/null +++ b/管理系统/U_ClothPDInfoList.dfm @@ -0,0 +1,407 @@ +object frmClothPDInfoList: TfrmClothPDInfoList + Left = 18 + Top = 333 + Width = 1280 + Height = 705 + Caption = #22383#24067#25490#21333#20449#24687#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 = 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 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 = 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 = #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 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 = 0 + Top = 86 + Width = 1272 + Height = 582 + 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 + 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 + object v1Column2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 79 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column8: TcxGridDBColumn + Caption = #25104#21697#25968 + DataBinding.FieldName = 'CPQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1Column9: TcxGridDBColumn + Caption = #25104#21697#21333#20301 + DataBinding.FieldName = 'CPUnit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #22383#24067#25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #22383#24067#21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 59 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #32455#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Column1: TcxGridDBColumn + Caption = #22383#20215 + DataBinding.FieldName = 'Price' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 57 + end + object v1Column7: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'JHPlace' + HeaderAlignmentHorz = taCenter + Options.Editing = False + 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 v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1Column5: TcxGridDBColumn + Caption = #19979#21333#26102#38388 + DataBinding.FieldName = 'QDTime' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#22383#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + 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 = #25104#20132#26085#26399 + DataBinding.FieldName = 'CPDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 78 + end + object v1PRTUnit: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'YWY' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1Column3: TcxGridDBColumn + Caption = #36319#21333#21592 + DataBinding.FieldName = 'LXPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + 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 = 90 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + 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_ClothPDInfoList.pas b/管理系统/U_ClothPDInfoList.pas new file mode 100644 index 0000000..96150a0 --- /dev/null +++ b/管理系统/U_ClothPDInfoList.pas @@ -0,0 +1,213 @@ +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; + 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; + 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; + 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 ConNoMChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + 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 + 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.FormCreate(Sender: TObject); +begin + + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); +end; + +procedure TfrmClothPDInfoList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ŵϢ',Tv1,'ָʾ'); +end; + +procedure TfrmClothPDInfoList.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 TfrmClothPDInfoList.InitForm(); +begin + ReadCxGrid('ŵϢ',Tv1,'ָʾ'); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + 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.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 TfrmClothPDInfoList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmClothPDInfoList.Tv2MouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt:=2; +end; + +procedure TfrmClothPDInfoList.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)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; +end; + +end. diff --git a/管理系统/U_ConInPut.dfm b/管理系统/U_ConInPut.dfm new file mode 100644 index 0000000..1526a7d --- /dev/null +++ b/管理系统/U_ConInPut.dfm @@ -0,0 +1,785 @@ +object frmConInPut: TfrmConInPut + Left = 193 + Top = 25 + Width = 920 + 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 = 904 + 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 = 904 + Height = 228 + 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 = 463 + 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 Label7: TLabel + Left = 31 + Top = 44 + 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 = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 674 + Top = 44 + Width = 65 + Height = 12 + Caption = #20844#21496#32534#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 = 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 = 127 + 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 Label2: TLabel + Left = 31 + Top = 71 + Width = 65 + Height = 12 + Caption = #33521#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 Label5: TLabel + Left = 247 + Top = 71 + 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 Label6: TLabel + Left = 31 + Top = 99 + 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 = 463 + 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 = 674 + 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 Label15: TLabel + Left = 247 + Top = 99 + 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 = 247 + Top = 44 + 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 = 674 + Top = 99 + 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 = 127 + 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 = 127 + 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 = 155 + 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 = 155 + 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 = 31 + Top = 183 + Width = 65 + Height = 12 + Caption = #36805#36895#20195#30721#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 + ShowCheckbox = True + TabOrder = 0 + end + object DlyDate: TDateTimePicker + Tag = 2 + Left = 526 + Top = 40 + 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 + TabOrder = 3 + end + object ConDefStr1: TEdit + Tag = 2 + Left = 737 + Top = 41 + Width = 136 + Height = 18 + TabOrder = 4 + OnKeyPress = jKeyPress + end + object FromPlace: TBtnEditC + Tag = 2 + Left = 97 + Top = 40 + Width = 136 + Height = 20 + Hint = 'FromPlace/'#35013#33337#21475#23736 + ReadOnly = True + TabOrder = 5 + 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 = 6 + OnBtnUpClick = CustomerNoNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object SYRName: TBtnEditC + Tag = 2 + Left = 97 + Top = 123 + Width = 135 + Height = 20 + Hint = 'SYRName/'#20844#21496#21488#22836 + TabOrder = 7 + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTCodeName: TBtnEditC + Tag = 2 + Left = 97 + Top = 67 + Width = 135 + Height = 20 + Hint = 'MPRTCode' + ReadOnly = True + TabOrder = 8 + OnBtnUpClick = MPRTCodeNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTCF: TBtnEditC + Tag = 2 + Left = 310 + Top = 67 + Width = 135 + Height = 20 + Hint = 'MPRTCF/'#25104#20998 + TabOrder = 9 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTSpec: TBtnEditC + Tag = 2 + Left = 97 + Top = 95 + Width = 136 + Height = 20 + Hint = 'MPRTSpec/'#35268#26684 + TabOrder = 10 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTMF: TBtnEditC + Tag = 2 + Left = 526 + Top = 67 + Width = 136 + Height = 20 + Hint = 'MPRTMF/'#38376#24133 + TabOrder = 11 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTKZ: TBtnEditC + Tag = 2 + Left = 737 + Top = 67 + Width = 135 + Height = 20 + Hint = 'MPRTKZ/'#20811#37325 + TabOrder = 12 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Payment: TBtnEditC + Tag = 2 + Left = 310 + Top = 95 + Width = 350 + Height = 20 + Hint = 'Payment/'#20184#27454#26041#24335 + TabOrder = 13 + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ToPlace: TBtnEditC + Tag = 2 + Left = 310 + Top = 40 + Width = 136 + Height = 20 + Hint = 'ToPlace/'#30446#30340#22320 + ReadOnly = True + TabOrder = 14 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object ShippMent: TBtnEditC + Tag = 2 + Left = 737 + Top = 95 + Width = 135 + Height = 20 + Hint = 'ShippMent/'#36816#36755#26041#24335 + TabOrder = 15 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object BankNo: TBtnEditC + Tag = 2 + Left = 737 + Top = 123 + Width = 135 + Height = 20 + Hint = 'BankNo/'#38134#34892#36134#21495 + TabOrder = 16 + OnDblClick = SYRNameBtnUpClick + OnBtnUpClick = SYRNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object SYRAddress: TEdit + Tag = 2 + Left = 310 + Top = 124 + Width = 352 + Height = 18 + TabOrder = 17 + end + object BankName: TEdit + Tag = 2 + Left = 97 + Top = 152 + Width = 352 + Height = 18 + TabOrder = 18 + end + object BankAddress: TEdit + Tag = 2 + Left = 526 + Top = 152 + Width = 348 + Height = 18 + TabOrder = 19 + end + object BankFastNo: TEdit + Tag = 2 + Left = 97 + Top = 180 + Width = 352 + Height = 18 + TabOrder = 20 + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 257 + Width = 904 + 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 = 286 + Width = 904 + Height = 332 + 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 v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1PRTColorPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 87 + 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 + 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 = 76 + end + object v1Column2: TcxGridDBColumn + Caption = #20215#26684#26465#27454 + DataBinding.FieldName = 'SOrddefstr3' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 65 + 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_ConInPut.pas b/管理系统/U_ConInPut.pas new file mode 100644 index 0000000..baf28fb --- /dev/null +++ b/管理系统/U_ConInPut.pas @@ -0,0 +1,849 @@ +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; + ConDefStr1: TEdit; + Label14: TLabel; + Label20: TLabel; + FromPlace: TBtnEditC; + CustomerNoName: TBtnEditC; + v1XHNo: TcxGridDBColumn; + SYRName: TBtnEditC; + v1OrderUnit: TcxGridDBColumn; + v1PriceUnit: TcxGridDBColumn; + Label2: TLabel; + MPRTCodeName: TBtnEditC; + Label5: TLabel; + MPRTCF: TBtnEditC; + Label6: TLabel; + MPRTSpec: TBtnEditC; + Label12: TLabel; + MPRTMF: TBtnEditC; + Label13: TLabel; + MPRTKZ: 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; + v1Column2: TcxGridDBColumn; + v1Column3: 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 MPRTCodeNameBtnUpClick(Sender: TObject); + procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure jKeyPress(Sender: TObject; var Key: Char); + procedure SYRNameBtnUpClick(Sender: TObject); + 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:Integer; + FMainId,FFMainId:String; + FXS:Integer; + { Public declarations } + end; + +var + frmConInPut: TfrmConInPut; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_ZDYHelpSel; + +{$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 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); + SYRName.TxtCode:=Trim(ADOQuery1.fieldbyname('ConDefStr2').AsString); + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDateTime(ADOTemp); + 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('ָʾ¼',Tv1,'ָʾ'); + InitData(); +end; + +function TfrmConInPut.SaveData():Boolean; +var + maxno:String; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId)='' then + begin + if GetLSNo(ADOCmd,maxno,'CM','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); + SSetsaveSqlNew(ADOCmd,'JYOrderCon_Main',ScrollBox1,2); + 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('Note').Value:=Trim(Note.Text); + 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,'CS','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; + 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; + 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 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; + +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); + 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 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.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 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.v1PriceUnitPropertiesButtonClick(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 TfrmConInPut.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(ConDefStr1.Text)+'%'+''''); + Open; + end; + if ADOTemp.RecordCount=1 then + begin + ConDefStr1.Text:=Trim(ADOTemp.fieldbyname('CYNo').AsString); + MPRTCodeName.Text:=Trim(ADOTemp.fieldbyname('CYEName').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(ConDefStr1.Text)+''''); + Open; + end; + if ADOTemp.RecordCount=1 then + begin + ConDefStr1.Text:=Trim(ADOTemp.fieldbyname('CYNo').AsString); + MPRTCodeName.Text:=Trim(ADOTemp.fieldbyname('CYEName').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 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(' 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('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(' order by FillTime desc'); + Open; + Self.SYRAddress.Text:=Trim(ADOTemp.fieldbyname('SYRAddress').AsString); + 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; + +end. diff --git a/管理系统/U_ContractList.dfm b/管理系统/U_ContractList.dfm new file mode 100644 index 0000000..2e22898 --- /dev/null +++ b/管理系统/U_ContractList.dfm @@ -0,0 +1,686 @@ +object frmContractList: TfrmContractList + Left = 109 + Top = 112 + Width = 1094 + Height = 600 + 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 = 1185 + 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 + object ComboBox1: TComboBox + Left = 689 + 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 = -64 + Top = 120 + Width = 1249 + 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 = <> + 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 v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20844#21496#32534#21495 + DataBinding.FieldName = 'ConDefStr1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 93 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#21488#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 96 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'ConPerson1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 78 + 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 = #33521#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 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 = 60 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 71 + end + object v1PRTColor: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1185 + 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 = 190 + 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 = 323 + 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 = 470 + 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 = 623 + 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 = 470 + Top = 15 + 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 = 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 = 623 + 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 = 323 + 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 = 743 + 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 = 743 + 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 CustomerNoName: TEdit + Tag = 2 + Left = 219 + Top = 11 + Width = 78 + Height = 20 + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 377 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = CustomerNoNameChange + end + object MPRTCF: TEdit + Tag = 2 + Left = 523 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = CustomerNoNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 652 + Top = 35 + Width = 76 + Height = 20 + Enabled = False + TabOrder = 5 + OnChange = CustomerNoNameChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 523 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object ConNoM: TEdit + Tag = 2 + Left = 220 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 7 + OnChange = CustomerNoNameChange + OnKeyPress = ConNoMKeyPress + end + object MPRTSpec: TEdit + Tag = 2 + Left = 652 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 8 + OnChange = CustomerNoNameChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 377 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 9 + OnChange = CustomerNoNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 772 + Top = 35 + Width = 56 + Height = 20 + TabOrder = 10 + OnChange = CustomerNoNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 772 + Top = 11 + Width = 56 + Height = 20 + TabOrder = 11 + OnChange = CustomerNoNameChange + 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 = 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 +end diff --git a/管理系统/U_ContractList.pas b/管理系统/U_ContractList.pas new file mode 100644 index 0000000..cac0112 --- /dev/null +++ b/管理系统/U_ContractList.pas @@ -0,0 +1,683 @@ +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; + +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; + 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; + v1MPRTKZ: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + 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; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + Label11: TLabel; + Label12: TLabel; + Label13: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CustomerNoName: TEdit; + OrdPerson1: TEdit; + MPRTCF: TEdit; + PRTColor: TEdit; + MPRTCodeName: TEdit; + ConNoM: TEdit; + MPRTSpec: TEdit; + OrdDefStr1: TEdit; + MPRTKZ: TEdit; + MPRTMF: TEdit; + v1Column2: TcxGridDBColumn; + ComboBox1: 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 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 ConNoMKeyPress(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 + frmContractList: TfrmContractList; + +implementation +uses + U_DataLink,U_ConInPut,U_Fun; + +{$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); +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(' from JYOrderCon_Main A '); + SQL.Add('where OrdDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''''); + SQL.Add('and 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 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)-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 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)+''''); + 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 TfrmContractList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ָʾб'); +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,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 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; +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.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.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +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.ConNoMKeyPress(Sender: TObject; var Key: Char); +begin + if Key=#13 then + begin + if Length(connoM.Text)<3 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(' from JYOrderCon_Main A '); + SQL.Add('where OrdDate>='''+'1899-01-01'+''''); + SQL.Add('and OrdDate<'''+'2050-01-01'+''''); + if Trim(DParameters1)<>'Ȩ' then + begin + sql.Add('and A.Filler='''+Trim(DName)+''''); + end; + sql.Add(' and 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_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..9eee0a6 --- /dev/null +++ b/管理系统/U_CpCkSaoMNewSel.dfm @@ -0,0 +1,661 @@ +object frmCpCkSaoMNewSel: TfrmCpCkSaoMNewSel + Left = 128 + Top = 106 + Width = 1199 + Height = 616 + 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 = 1191 + Height = 182 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label1: TLabel + Left = 83 + Top = 134 + Width = 48 + Height = 12 + Caption = #25195#25551#20837#21475 + end + object Label4: TLabel + Left = 255 + Top = 158 + Width = 48 + Height = 12 + Caption = #20986#24211#26102#38388 + end + object Label5: TLabel + Left = 255 + Top = 134 + Width = 48 + Height = 12 + Caption = #20986#24211#21333#21495 + end + object Label6: TLabel + Left = 84 + Top = 156 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object BaoID: TEdit + Left = 131 + Top = 130 + Width = 101 + Height = 20 + TabOrder = 0 + OnKeyPress = BaoIDKeyPress + end + object Button2: TButton + Left = 618 + Top = 138 + Width = 48 + Height = 20 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 9 + Top = 130 + Width = 65 + Height = 20 + Caption = #36873#21333 + TabOrder = 2 + OnClick = Button3Click + end + object Button1: TButton + Left = 546 + Top = 154 + Width = 62 + Height = 20 + 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 + object Button5: TButton + Left = 545 + Top = 130 + Width = 60 + Height = 20 + Caption = #20986#24211 + TabOrder = 5 + OnClick = Button5Click + end + object CRTime: TDateTimePicker + Left = 303 + Top = 154 + Width = 102 + Height = 20 + Date = 41337.663190821760000000 + Format = 'yyyy-MM-dd' + Time = 41337.663190821760000000 + TabOrder = 6 + end + object CKOrdNo: TEdit + Left = 303 + Top = 130 + Width = 101 + Height = 20 + TabOrder = 7 + end + object CRType: TComboBox + Left = 132 + Top = 152 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 8 + Text = #27491#24120#20986#24211 + Items.Strings = ( + #27491#24120#20986#24211 + #27425#21697#20986#24211 + #22238#20462#20986#24211) + end + end + object MovePanel1: TMovePanel + Left = 8 + Top = 208 + Width = 561 + Height = 305 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 1 + 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 cxGrid2: TcxGrid + Left = 0 + Top = 182 + Width = 489 + Height = 400 + Align = alLeft + TabOrder = 2 + 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 = 88 + 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 v1Column5: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 40 + end + object v1kcROllNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'kcROllNum' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v2Column5: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 49 + end + object v2Column6: TcxGridDBColumn + Caption = #38271#24230 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 45 + 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 = #20986#24211#21305#25968 + DataBinding.FieldName = 'kcRollNum1' + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + end + object v1Column9: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'Qty1' + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid3: TcxGrid + Left = 489 + Top = 182 + Width = 702 + Height = 400 + Align = alClient + TabOrder = 3 + object Tv3: TcxGridDBTableView + PopupMenu = PopupMenu2 + 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 + 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 + end + object cxGridLevel1: TcxGridLevel + GridView = Tv3 + end + end + object MovePanel2: TMovePanel + Left = 424 + 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 = 200 + 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..c4058cf --- /dev/null +++ b/管理系统/U_CpCkSaoMNewSel.pas @@ -0,0 +1,878 @@ +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, + 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; + 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; + 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; + MovePanel2: TMovePanel; + CRTime: TDateTimePicker; + Label4: TLabel; + Label5: TLabel; + CKOrdNo: TEdit; + ADOQueryPrice: TADOQuery; + CDSPrice: TClientDataSet; + Label6: TLabel; + CRType: TComboBox; + v1kcROllNum: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: 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 N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure MenuItem2Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + 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 , U_PbSelCK; + +{$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); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Mainid,PRTPrice from JYOrder_Sub where 1<>1'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDSPrice); + SInitCDSData20(ADOQueryTemp,CDSPrice); +end; + +procedure TfrmCpCkSaoMNewSel.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; + 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('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 TfrmCpCkSaoMNewSel.Button2Click(Sender: TObject); +begin + 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 + frmPbSelCK:=TfrmPbSelCK.Create(Application); + with frmPbSelCK 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('conNO').Value:=Trim(CDS_OrderSel.fieldbyname('conNO').AsString); + FieldByName('factoryNoName').Value:=Trim(CDS_OrderSel.fieldbyname('factoryNoName').AsString); + FieldByName('C_CodeName').Value:=Trim(CDS_OrderSel.fieldbyname('C_CodeName').AsString); + FieldByName('C_Qty').Value:=Trim(CDS_OrderSel.fieldbyname('C_Qty').AsString); + FieldByName('C_Unit').Value:=Trim(CDS_OrderSel.fieldbyname('C_Unit').AsString); + FieldByName('C_Color').Value:=Trim(CDS_OrderSel.fieldbyname('C_Color').AsString); + + { 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 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 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 and A.CRType='''' '); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDS_Main); + SInitCDSData20(ADOQueryTemp,CDS_Main); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.MainId,A.PRTPrice,C.CustomerNoName from JYOrder_Sub A inner join TBSubID B on A.SubId=B.SubId'); + sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId '); + sql.Add(' where B.DName='''+Trim(DCode)+''''); + sql.Add(' group by A.MainId,A.PRTPrice,C.CustomerNoName'); + Open; + end; + SCreateCDS20(ADOQueryTemp,CDSPrice); + SInitCDSData20(ADOQueryTemp,CDSPrice); + 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); +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 CDS_MainSel.Locate('SSel',True,[])=True 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('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; + 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; + Post; + end; + CDS_Main.EnableControls; + CDS_MainSel.Delete; + end; + end; + end; + CDS_MainSel.EnableControls; + CDSPrice.DisableControls; + with CDSPrice do + begin + First; + while not Eof do + begin + if YSData(CDSPrice)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧտʧ!','ʾ',0); + Exit; + end; + Next; + end; + end; + CDSPrice.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + 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; + with CDS_Main do + begin + //First; + while CDS_Main.Locate('SSel',True,[])=True do + begin + //if CDS_Main.FieldByName('SSel').AsBoolean=True then + 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:=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('Filler').Value:=Trim(DName); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=trim(CRType.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_KC set KCKgQty=0,KCQty=0 where CRID='+CDS_Main.fieldbyname('CRID').AsString); + ExecSQL; + end; + CDS_MainSel.DisableControls; + 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('JZXNo').Value:=Trim(JZXNo.Text); + Post; + end; + CDS_MainSel.EnableControls; + CDS_Main.Delete; + end; + end; + end; + CDS_Main.EnableControls; + CDS_Sub.DisableControls; +{ with CDSPrice do + begin + First; + while not Eof do + begin + if YSData(CDSPrice)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧտʧ!','ʾ',0); + Exit; + end; + Next; + end; + end; } + CDSPrice.EnableControls; + 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('CustomerNoName').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('CustomerNoName').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('CustomerNoName').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('CustomerNoName').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; + 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; + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(Qty),0) from CK_BanCP_CR A '); + sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where'); + SQL.Add(' A.MainId=YF_Money_CR.YFTypeId and A.CRType='''' and CPType=''Ʒ'' '); + SQL.Add(' and B.PRTPrice=YF_Money_CR.Price)'); + sql.Add(',PS=(select isnull(count(*),0) from CK_BanCP_CR A '); + sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where'); + SQL.Add(' A.MainId=YF_Money_CR.YFTypeId and A.CRType='''' and CPType=''Ʒ'' '); + SQL.Add(' and B.PRTPrice=YF_Money_CR.Price )'); + sql.Add(' where YFTypeId='''+Trim(Order_Main10.fieldbyname('Mainid').AsString)+''''); + sql.Add(' and Price='+Order_Main10.fieldbyname('PRTPrice').AsString); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(' where CRID='+CRID); + ExecSQL; + end; + //Next; + end; + end; + Result:=True; +end; + +end. diff --git a/管理系统/U_CpRkSaoMNew.dfm b/管理系统/U_CpRkSaoMNew.dfm new file mode 100644 index 0000000..92ae2e6 --- /dev/null +++ b/管理系统/U_CpRkSaoMNew.dfm @@ -0,0 +1,630 @@ +object frmCpRkSaoMNew: TfrmCpRkSaoMNew + Left = 91 + Top = 85 + Width = 1199 + Height = 651 + 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 = 169 + Width = 516 + Height = 444 + 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 = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + 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 v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v2Column5: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Caption = #25968#37327 + 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 = 54 + end + object v1Column7: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 48 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 1183 + Height = 169 + 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 = 252 + Top = 185 + Width = 48 + Height = 12 + Caption = #20837#24211#26102#38388 + end + object Label5: TLabel + Left = 416 + Top = 136 + Width = 24 + Height = 12 + Caption = #24211#20301 + Visible = False + end + object BaoID: TEdit + Left = 139 + Top = 133 + Width = 102 + Height = 20 + TabOrder = 0 + OnKeyPress = BaoIDKeyPress + end + object Button2: TButton + Left = 709 + Top = 133 + 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 = 625 + Top = 133 + 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 = #21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 82 + end + object v2Column2: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'Aorddefstr4' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 100 + end + object v2Aorddefstr1: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'Aorddefstr1' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 90 + end + object v1Column14: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'AOrdQty2' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v1Column10: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'AOrdQty1' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 90 + end + object v2Column3: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'ZPPS' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v2Column4: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'ZPQTY' + HeaderAlignmentHorz = taCenter + Width = 90 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv2 + end + end + object Button5: TButton + Left = 539 + Top = 133 + Width = 65 + Height = 20 + Caption = #20837#24211 + TabOrder = 5 + OnClick = Button5Click + end + object CRTime: TDateTimePicker + Left = 309 + Top = 181 + Width = 88 + Height = 20 + Date = 41337.663190821760000000 + Format = 'yyyy-MM-dd' + Time = 41337.663190821760000000 + TabOrder = 6 + end + object kcKw: TBtnEditA + Left = 440 + Top = 132 + Width = 89 + Height = 20 + TabOrder = 7 + Visible = False + OnBtnClick = kcKwBtnClick + end + end + object cxGrid3: TcxGrid + Left = 516 + Top = 169 + Width = 667 + Height = 444 + Align = alClient + TabOrder = 2 + object Tv3: TcxGridDBTableView + PopupMenu = PopupMenu2 + 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 + 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 = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + 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' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 59 + end + object v3RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327 + 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 + 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#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 = 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 MovePanel2: TMovePanel + Left = 460 + Top = 364 + 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 +end diff --git a/管理系统/U_CpRkSaoMNew.pas b/管理系统/U_CpRkSaoMNew.pas new file mode 100644 index 0000000..b4a8e88 --- /dev/null +++ b/管理系统/U_CpRkSaoMNew.pas @@ -0,0 +1,919 @@ +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; + +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; + 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; + v1Column10: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + cxGridDBColumn3: 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; + v1RollNum: TcxGridDBColumn; + v3RollNum: TcxGridDBColumn; + kcKw: TBtnEditA; + Label5: TLabel; + v2Column1: TcxGridDBColumn; + v2Aorddefstr1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column4: 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 kcKwBtnClick(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + procedure InitSubGrid(); + procedure SavedataCK(); + public + { Public declarations } + end; + +var + frmCpRkSaoMNew: TfrmCpRkSaoMNew; + +implementation +uses +U_DataLink,U_Fun,U_OrderSelRK , U_PbSelRK, 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(',gangNO=(select gangNO from JYOrder_Sub_AnPai where ApId=A.ApId)'); + 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(',gangNO=(select gangNO from JYOrder_Sub_AnPai where ApId=A.ApId)'); + 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 + 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 + 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',5,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('C_Code').Value:=Trim(CDS_Main.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(CDS_Main.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(CDS_Main.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(CDS_Main.fieldbyname('PRTColor').AsString); + FieldByName('APID').Value:=Trim(CDS_Main.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJId').AsString); + FieldByName('mjxh').Value:=Trim(CDS_Main.fieldbyname('mjxh').AsString); + FieldByName('BCGangNO').Value:=Trim(CDS_Main.fieldbyname('AOrddefstr1').AsString); + FieldByName('RCGangNO').Value:=Trim(CDS_Main.fieldbyname('GangNo').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',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('RollNum').Value:=CDS_Main.fieldbyname('RollNum').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('kcKw').Value:=Trim(kcKw.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('CRTime').Value:=FormatDateTime('yyyy-MM-dd',SGetServerDateTime(ADOQueryTemp)); + FieldByName('CRType').Value:=''; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('C_Code').Value:=Trim(CDS_Main.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(CDS_Main.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(CDS_Main.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(CDS_Main.fieldbyname('PRTColor').AsString); + FieldByName('BCGangNO').Value:=Trim(CDS_Main.fieldbyname('AOrddefstr1').AsString); + FieldByName('RCGangNO').Value:=Trim(CDS_Main.fieldbyname('GangNo').AsString); + 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('KCRollNum').Value:=CDS_Main.fieldbyname('RollNum').Value; + FieldByName('KCQtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('mjxh').Value:=Trim(CDS_Main.fieldbyname('mjxh').AsString); + FieldByName('KCNote').Value:=CDS_Main.fieldbyname('Note').Value; + FieldByName('kcKw').Value:=Trim(kcKw.Text); + + 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; + 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('C_CodeName').Value:=Self.CDS_Main.fieldbyname('C_CodeName').Value; + 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('gangNO').Value:=CDS_Main.fieldbyname('gangNO').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:=''; + 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 + 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;} + + CDS_Sub.EmptyDataSet; + CDS_Main.EmptyDataSet; + CDS_Main.DisableControls; + try + frmPbSelRK:=TfrmPbSelRK.Create(Application); + with frmPbSelRK 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('APID',Trim(CDS_OrderSel.fieldbyname('APID').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('APID').Value:=Trim(CDS_OrderSel.fieldbyname('APID').AsString); + // FieldByName('CustomerNo').Value:=Trim(CDS_OrderSel.fieldbyname('CustomerNo').AsString); + FieldByName('conNO').Value:=Trim(CDS_OrderSel.fieldbyname('conNO').AsString); + FieldByName('Aorddefstr4').Value:=Trim(CDS_OrderSel.fieldbyname('Aorddefstr4').AsString); + FieldByName('C_CodeName').Value:=Trim(CDS_OrderSel.fieldbyname('C_CodeName').AsString); + FieldByName('AOrdQty2').Value:=Trim(CDS_OrderSel.fieldbyname('AOrdQty2').AsString); + FieldByName('AOrdQty1').Value:=Trim(CDS_OrderSel.fieldbyname('AOrdQty1').AsString); + FieldByName('C_Color').Value:=Trim(CDS_OrderSel.fieldbyname('C_Color').AsString); + FieldByName('ZPPS').Value:=Trim(CDS_OrderSel.fieldbyname('ZPPS').AsString); + FieldByName('ZPQty').Value:=Trim(CDS_OrderSel.fieldbyname('ZPQty').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=A.conNO'); + sql.Add(',A.C_Color,A.C_Code,A.C_CodeName,A.C_spec '); + sql.Add(',AOrdDefStr1=A.BCgangNO'); + sql.Add(',gangNO=A.BcgangNO,A.* '); + sql.Add(' from WFB_MJJY A '); + // sql.Add(' inner join Contract_Sub C on C.MainId=A.mainID and C.SubId=A.subID '); + sql.Add(' where A.APID='''+Trim(CDS_Sub.fieldbyname('APID').AsString)+''''); + SQL.Add(' and A.SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+''''); + SQL.Add(' and A.C_CodeName='''+Trim(CDS_Sub.fieldbyname('C_CodeName').AsString)+''''); + SQL.Add(' and A.C_Color='''+Trim(CDS_Sub.fieldbyname('C_Color').AsString)+''''); + sql.Add(' and isnull(A.MJStr2,'''')<>'''' and A.MJLen<>0 '); + 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('C_Code').Value:=Self.ADOQueryTemp.fieldbyname('C_Code').Value; + FieldByName('C_CodeName').Value:=Self.ADOQueryTemp.fieldbyname('C_CodeName').Value; + FieldByName('C_Spec').Value:=Self.ADOQueryTemp.fieldbyname('C_Spec').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('RollNum').Value:=1; + 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('C_Color').Value; + FieldByName('AOrddefstr1').Value:=Self.ADOQueryTemp.fieldbyname('AOrddefstr1').Value; + FieldByName('Note').Value:=Self.ADOQueryTemp.fieldbyname('note').Value; + FieldByName('gangNO').Value:=Self.ADOQueryTemp.fieldbyname('gangNO').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 + frmPbSelRK.Free; + CDS_Main.EnableControls; + end; +end; + + +procedure TfrmCpRkSaoMNew.InitSubGrid(); +begin + try + ADOQuerySub.DisableControls; + with ADOQuerySub do + begin + Close; + sql.Clear; + sql.Add('select A.*,ZPPS=0.00,ZPQty=0.00 '); + sql.Add(' from JYOrder_Sub_AnPai A inner join Contract_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; + 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('C_CodeName').Value:=Self.CDS_MainSel.fieldbyname('C_CodeName').Value; + FieldByName('AOrddefstr1').Value:=Self.CDS_MainSel.fieldbyname('AOrddefstr1').Value; + FieldByName('MJXH').Value:=Self.CDS_MainSel.fieldbyname('MJXH').Value; + FieldByName('gangNO').Value:=CDS_Main.fieldbyname('gangNO').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); } + except + MovePanel2.Visible:=False; + CDS_MainSel.DisableControls; + 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; + MhcTime:TdateTime; +begin + if CDS_Sub.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 not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean=True then + begin + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY '); + sql.Add(' where MJID='+quotedstr(trim(CDS_Main.fieldbyname('MJID').AsString))); + sql.Add(' and mjstr2='''' '); + open; + IF not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('˲ƥ⣬ٴ⣡','ʾϢ',MB_ICOnerror); + CDS_Main.EnableControls; + MovePanel2.Visible:=false; + MovePanel2.Refresh; + exit; + 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').AsInteger; + if GetLSNo(ADOQueryCmd,MaxCkNo,'JR','CK_BanCP_CR',5,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 ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai '); + sql.Add(' where APID='+quotedstr(trim(CDS_Main.fieldbyname('APID').AsString))); + open; + IF not ADOQueryTemp.IsEmpty then + begin + mhcTime:=ADOQueryTemp.fieldbyname('ADefDate1').AsDateTime; + end + else + begin + mhcTime:=CRTime.DateTime; + end; + 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('C_Code').Value:=Trim(CDS_Main.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(CDS_Main.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(CDS_Main.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(CDS_Main.fieldbyname('PRTColor').AsString); + FieldByName('APID').Value:=Trim(CDS_Main.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJId').AsString); + FieldByName('mjxh').Value:=Trim(CDS_Main.fieldbyname('mjxh').AsString); + FieldByName('BCGangNO').Value:=Trim(CDS_Main.fieldbyname('AOrddefstr1').AsString); + FieldByName('RCGangNO').Value:=Trim(CDS_Main.fieldbyname('GangNo').AsString); + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',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('RollNum').Value:=CDS_Main.fieldbyname('RollNum').Value; + FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('Note').Value:=CDS_Main.fieldbyname('Note').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + // FieldByName('kcKw').Value:=Trim(kcKw.Text); + fieldbyname('kcKw').Value:=GetKw(ADOQueryTemp,CDS_Main.fieldbyname('C_CodeName').AsString,CDS_Main.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',SGetServerDateTime(ADOQueryTemp)); + FieldByName('CRType').Value:=''; + FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value; + FieldByName('C_Code').Value:=Trim(CDS_Main.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(CDS_Main.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(CDS_Main.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(CDS_Main.fieldbyname('PRTColor').AsString); + FieldByName('BCGangNO').Value:=Trim(CDS_Main.fieldbyname('AOrddefstr1').AsString); + FieldByName('RCGangNO').Value:=Trim(CDS_Main.fieldbyname('GangNo').AsString); + 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('KCRollNum').Value:=CDS_Main.fieldbyname('RollNum').Value; + FieldByName('KCQtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('mjxh').Value:=Trim(CDS_Main.fieldbyname('mjxh').AsString); + FieldByName('KCNote').Value:=CDS_Main.fieldbyname('Note').Value; + // FieldByName('kcKw').Value:=Trim(kcKw.Text); + fieldbyname('kcKw').Value:=GetKw(ADOQueryTemp,CDS_Main.fieldbyname('C_CodeName').AsString,CDS_Main.fieldbyname('PRTColor').AsString); + 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; + CDS_MainSel.DisableControls; + 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('C_CodeName').Value:=Self.CDS_Main.fieldbyname('C_CodeName').Value; + 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('gangNO').Value:=CDS_Main.fieldbyname('gangNO').Value; + //FieldByName('JZXNo').Value:=Trim(JZXNo.Text); + Post; + end; + CDS_MainSel.EnableControls; + CDS_Main.Delete; + end else + CDS_Main.Next; + end; + end; + CDS_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + MovePanel2.Visible:=False; + 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); +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.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; + +end. diff --git a/管理系统/U_CrkAccount.dfm b/管理系统/U_CrkAccount.dfm new file mode 100644 index 0000000..e3edb2c --- /dev/null +++ b/管理系统/U_CrkAccount.dfm @@ -0,0 +1,569 @@ +object frmCrkAccount: TfrmCrkAccount + Left = 166 + Top = 142 + Width = 1140 + Height = 555 + Caption = #20986#20837#24211#27969#27700#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 = 1124 + 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 ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + 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 = 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 = 28 + Top = 16 + Width = 66 + Height = 12 + Caption = #20986'/'#20837#24211#26102#38388 + end + object Label2: TLabel + Left = 84 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 364 + Top = 96 + Width = 48 + Height = 12 + Caption = #20219#21153#21333#21495 + end + object Label6: TLabel + Left = 32 + Top = 84 + 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 = 502 + Top = 132 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 472 + Top = 16 + Width = 48 + Height = 12 + Caption = #32568' '#21495 + end + object Label11: TLabel + Left = 668 + Top = 16 + Width = 120 + Height = 12 + Caption = #26579#21378'/'#21152#24037#21378'/'#36864#36135#23458#25143 + end + object Label12: TLabel + Left = 472 + Top = 40 + Width = 66 + Height = 12 + Caption = #20986'\'#20837#24211#31867#22411 + 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 = 1 + 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 = 666 + Top = 93 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = C_CodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 78 + Top = 81 + 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 = 104 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = C_CodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 572 + Top = 92 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #30041#26679 + '') + end + object BCgangNo: TEdit + Tag = 2 + Left = 522 + Top = 13 + Width = 107 + Height = 20 + TabOrder = 9 + OnChange = C_CodeNameChange + end + object factoryName: TEdit + Tag = 2 + Left = 794 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = C_CodeNameChange + end + object CRType: TComboBox + Tag = 2 + Left = 544 + Top = 36 + Width = 85 + Height = 20 + ItemHeight = 12 + TabOrder = 11 + OnChange = C_CodeNameChange + Items.Strings = ( + '' + #26399#21021#20837#24211 + #36864#36135#20837#24211 + #26816#39564#20837#24211 + #37197#36135#20986#24211 + #21152#24037#20986#24211 + #26679#21697#20986#24211 + #25439#32791#20986#24211 + #22238#20462#20986#24211 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1124 + Height = 396 + Align = alTop + 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 + 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 = v1Column10 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column12 + end + item + Kind = skSum + Column = v1Column13 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = 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 v1Column1: TcxGridDBColumn + Caption = #20986'/'#20837#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #20986'/'#20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column3: TcxGridDBColumn + Caption = #26579#21378'/'#21152#24037#21378'/'#36864#36135#23458#25143 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Width = 140 + end + object v1Column4: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column5: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'customerNoName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column8: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column9: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCgangNo' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column10: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'rk_rollnum' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Footer = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Header = DataLink_TradeManage.cxStyle_fontclBlue + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'rk_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Footer = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Header = DataLink_TradeManage.cxStyle_fontclBlue + Width = 80 + end + object v1Column12: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'ck_RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 80 + end + object v1Column13: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'ck_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 80 + end + object v1Column6: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column14: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 106 + 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 = ADOQueryMain + 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, 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 = 296 + Top = 200 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryMain + Left = 368 + 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 = 812 + Top = 204 + end +end diff --git a/管理系统/U_CrkAccount.pas b/管理系统/U_CrkAccount.pas new file mode 100644 index 0000000..17e5ed9 --- /dev/null +++ b/管理系统/U_CrkAccount.pas @@ -0,0 +1,212 @@ +unit U_CrkAccount; + +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, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport; + +type + TfrmCrkAccount = 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; + Label10: TLabel; + BCgangNo: TEdit; + Label11: TLabel; + factoryName: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ToolButton1: TToolButton; + RMGridReport1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + Label12: TLabel; + CRType: TComboBox; + v1Column6: TcxGridDBColumn; + v1Column14: 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 ToolButton1Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCrkAccount: TfrmCrkAccount; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmCrkAccount.FormDestroy(Sender: TObject); +begin + frmCrkAccount:=nil; +end; + +procedure TfrmCrkAccount.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCrkAccount.FormCreate(Sender: TObject); +begin + cxGrid2.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCrkAccount.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + sql.Add(' exec P_get_CpCrkAccount '); + SQL.Add(' @begdate='''+formatdateTime('yyyy-MM-dd',BegDate.DateTime)+''' '); + SQL.Add(',@enddate='''+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 TfrmCrkAccount.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCrkAccount.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCrkAccount.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCrkAccount.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption,Tv1,'Ʒֿ'); + + //InitGrid(); +end; + +procedure TfrmCrkAccount.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid2); +end; + +procedure TfrmCrkAccount.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 TfrmCrkAccount.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCrkAccount.ToolButton1Click(Sender: TObject); +var + fPrintFile:string; +begin + if ADOQueryMain.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ʒˮ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['begdate']:=formatdateTime('yyyy-MM-dd',BegDate.Date)+' - '+formatdateTime('yyyy-MM-dd',enddate.Date); + RMVariables['dtxz']:=formatdateTime('yyyy-MM-dd',Now); + RMVariables['zdr']:=Trim(dName); + RMGridReport1.LoadFromFile(fPrintFile); + RMGridReport1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+fPrintFile),'ʾ',MB_ICONERROR); + end; +end; +end. diff --git a/管理系统/U_CrkAccount_other.dfm b/管理系统/U_CrkAccount_other.dfm new file mode 100644 index 0000000..3555c9b --- /dev/null +++ b/管理系统/U_CrkAccount_other.dfm @@ -0,0 +1,569 @@ +object frmCrkAccount_other: TfrmCrkAccount_other + Left = 166 + Top = 142 + Width = 1140 + Height = 555 + Caption = #20986#20837#24211#27969#27700#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 = 1124 + 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 ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + 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 = 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 = 28 + Top = 16 + Width = 66 + Height = 12 + Caption = #20986'/'#20837#24211#26102#38388 + end + object Label2: TLabel + Left = 84 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 364 + Top = 96 + Width = 48 + Height = 12 + Caption = #20219#21153#21333#21495 + end + object Label6: TLabel + Left = 32 + Top = 84 + 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 = 502 + Top = 132 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label10: TLabel + Left = 472 + Top = 16 + Width = 48 + Height = 12 + Caption = #32568' '#21495 + end + object Label11: TLabel + Left = 668 + Top = 16 + Width = 120 + Height = 12 + Caption = #26579#21378'/'#21152#24037#21378'/'#36864#36135#23458#25143 + end + object Label12: TLabel + Left = 472 + Top = 40 + Width = 66 + Height = 12 + Caption = #20986'\'#20837#24211#31867#22411 + 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 = 1 + 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 = 666 + Top = 93 + Width = 100 + Height = 20 + TabOrder = 4 + OnChange = C_CodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 78 + Top = 81 + 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 = 104 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = C_CodeNameChange + end + object CPType: TComboBox + Tag = 2 + Left = 572 + Top = 92 + Width = 68 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = TBFindClick + Items.Strings = ( + #27491#21697 + #27425#21697 + #30041#26679 + '') + end + object BCgangNo: TEdit + Tag = 2 + Left = 522 + Top = 13 + Width = 107 + Height = 20 + TabOrder = 9 + OnChange = C_CodeNameChange + end + object factoryName: TEdit + Tag = 2 + Left = 794 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = C_CodeNameChange + end + object CRType: TComboBox + Tag = 2 + Left = 544 + Top = 36 + Width = 85 + Height = 20 + ItemHeight = 12 + TabOrder = 11 + OnChange = C_CodeNameChange + Items.Strings = ( + '' + #26399#21021#20837#24211 + #36864#36135#20837#24211 + #26816#39564#20837#24211 + #37197#36135#20986#24211 + #21152#24037#20986#24211 + #26679#21697#20986#24211 + #25439#32791#20986#24211 + #22238#20462#20986#24211 + '') + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1124 + Height = 396 + Align = alTop + 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 + 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 = v1Column10 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = v1Column12 + end + item + Kind = skSum + Column = v1Column13 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = 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 v1Column1: TcxGridDBColumn + Caption = #20986'/'#20837#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column2: TcxGridDBColumn + Caption = #20986'/'#20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column3: TcxGridDBColumn + Caption = #26579#21378'/'#21152#24037#21378'/'#36864#36135#23458#25143 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Width = 140 + end + object v1Column4: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'orderNo' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column5: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'customerNoName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column7: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column8: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column9: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCgangNo' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column10: TcxGridDBColumn + Caption = #20837#24211#21305#25968 + DataBinding.FieldName = 'rk_rollnum' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Footer = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Header = DataLink_TradeManage.cxStyle_fontclBlue + Width = 80 + end + object v1Column11: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'rk_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Footer = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Header = DataLink_TradeManage.cxStyle_fontclBlue + Width = 80 + end + object v1Column12: TcxGridDBColumn + Caption = #20986#24211#21305#25968 + DataBinding.FieldName = 'ck_RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 80 + end + object v1Column13: TcxGridDBColumn + Caption = #20986#24211#25968#37327 + DataBinding.FieldName = 'ck_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 80 + end + object v1Column6: TcxGridDBColumn + Caption = #25805#20316#21592 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column14: TcxGridDBColumn + Caption = #25805#20316#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Width = 106 + 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 = ADOQueryMain + 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, 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 = 296 + Top = 200 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryMain + Left = 368 + 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 = 812 + Top = 204 + end +end diff --git a/管理系统/U_CrkAccount_other.pas b/管理系统/U_CrkAccount_other.pas new file mode 100644 index 0000000..7909230 --- /dev/null +++ b/管理系统/U_CrkAccount_other.pas @@ -0,0 +1,212 @@ +unit U_CrkAccount_other; + +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, RM_Common, + RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport; + +type + TfrmCrkAccount_other = 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; + Label10: TLabel; + BCgangNo: TEdit; + Label11: TLabel; + factoryName: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + ToolButton1: TToolButton; + RMGridReport1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + Label12: TLabel; + CRType: TComboBox; + v1Column6: TcxGridDBColumn; + v1Column14: 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 ToolButton1Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmCrkAccount_other: TfrmCrkAccount_other; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmCrkAccount_other.FormDestroy(Sender: TObject); +begin + frmCrkAccount_other:=nil; +end; + +procedure TfrmCrkAccount_other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmCrkAccount_other.FormCreate(Sender: TObject); +begin + cxGrid2.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmCrkAccount_other.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + Filtered:=False; + sql.Add(' exec P_get_CpCrkAccount_other '); + SQL.Add(' @begdate='''+formatdateTime('yyyy-MM-dd',BegDate.DateTime)+''' '); + SQL.Add(',@enddate='''+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 TfrmCrkAccount_other.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmCrkAccount_other.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmCrkAccount_other.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmCrkAccount_other.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption,Tv1,'Ʒֿ'); + + //InitGrid(); +end; + +procedure TfrmCrkAccount_other.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid2); +end; + +procedure TfrmCrkAccount_other.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 TfrmCrkAccount_other.C_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmCrkAccount_other.ToolButton1Click(Sender: TObject); +var + fPrintFile:string; +begin + if ADOQueryMain.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ʒˮ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['begdate']:=formatdateTime('yyyy-MM-dd',BegDate.Date)+' - '+formatdateTime('yyyy-MM-dd',enddate.Date); + RMVariables['dtxz']:=formatdateTime('yyyy-MM-dd',Now); + RMVariables['zdr']:=Trim(dName); + RMGridReport1.LoadFromFile(fPrintFile); + RMGridReport1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+fPrintFile),'ʾ',MB_ICONERROR); + end; +end; +end. diff --git a/管理系统/U_DataLink.dfm b/管理系统/U_DataLink.dfm new file mode 100644 index 0000000..b32f169 --- /dev/null +++ b/管理系统/U_DataLink.dfm @@ -0,0 +1,18102 @@ +object DataLink_TradeManage: TDataLink_TradeManage + OldCreateOrder = False + OnDestroy = DataModuleDestroy + Left = 221 + 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 + 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 + end + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + PixelsPerInch = 96 + 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 +end diff --git a/管理系统/U_DataLink.pas b/管理系统/U_DataLink.pas new file mode 100644 index 0000000..4ab1590 --- /dev/null +++ b/管理系统/U_DataLink.pas @@ -0,0 +1,103 @@ +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; //##// + 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_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; + 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; + 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_GetDllForm.pas b/管理系统/U_GetDllForm.pas new file mode 100644 index 0000000..39ffa69 --- /dev/null +++ b/管理系统/U_GetDllForm.pas @@ -0,0 +1,1613 @@ +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; + +implementation + +uses + U_DataLink, U_Fun, U_iniParam, U_MJManageNewFDNew, U_ProductOrderList, + U_ProductOrderAnPai, U_BangAdd, U_MJEdit, U_JYOrderCDOne, U_JYOrderCDMore, + U_CKProductBCPInList, U_CKProductBCPOutList, U_BanCpHCSaoM, + U_CKProductBCPHCList, U_CKProductBCPKCList, U_ProductOrderNewList_JD, + U_CKProductBCPKCHZList, U_CpRkSaoMNew, U_ClothContractList, + U_ClothContractListDH, U_ClothContractListLL, U_ClothContractKCList, + U_ContractList, U_ProductOrderNewList, U_ClothContractListWJG, + U_ClothPDInfoList, U_CP_CRC, U_OrderJDList, U_ProductOrderAnPaiGQX, + U_ClothHCList, U_ProductOrder_Ph, U_ClothContractList_CG, + U_ClothContractList_Tp, U_ClothContractList_Help, U_ClothContractList_JG, + U_CKPHKCList, U_HCList, U_ProductOrder_Ph10, U_CrkAccount, + U_CKProductBCPInList_Other, U_CKProductBCPOutList_other, + U_ProductOrder_Ph_other, U_CKProductBCPKCList_other, + U_CKProductBCPKCHZList_other, U_CrkAccount_other, U_KCRLLTZ, + U_MJManageNewFDNew_other, U_JYOrderCDOne_Other, U_xslist_other, U_YHList_other, + U_CKProductBCPKCHZListSUM_other, U_KCRLLTZ_other, U_CKEJK, U_ModulePromptList, + U_CKSMEdit, U_KH_XS_List, U_CP_XL, U_CP_COL_XL, U_CKProductCPKCHZList_Yj, + U_CP_COL_XL_ZD, U_CKPDlist, U_ClothContractList_HZ, U_ProductOrderNewList_ZD, + U_ClothContractList_SJDCK, U_KH_XS_YP_list, U_ProductOrderNewList_BH, + U_ClothContractList_HZ1, U_ClothContractList_CP, U_ClothContractList_SJD, + U_ClothContractList_SJDMX, U_ClothContractList_PBKC; + + ///////////////////////////////////////////////////////////////// + // ˵:ȡ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 := '101.132.143.144,7781'; +// server:='.'; + dtbase := 'hengmingdata'; + user := 'rtsa'; + pswd := 'rightsoft@5740'; + 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:='𻪷֯'; + // DParameters1:='Ȩ'; + // DataBase:='Ȩ'; + // DParameters2:=''; + //DCode:='test'; + //DName:='ADMIN'; + // fDParameters2 +// DParameters1:='ѯ'; + // database:=''; + 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 + 0: //ָʾ + begin + if frmProductOrderNewList <> nil then + frmProductOrderNewList.Free; + if frmProductOrderNewList = nil then + begin + frmProductOrderNewList := TfrmProductOrderNewList.Create(application.MainForm); + with frmProductOrderNewList do + begin + fsyrName := trim(DataBase); + fDParameters1 := trim(DParameters1); + forderType := trim(DParameters2); + { fsyrName:='𻪷֯'; + fDParameters1:=''; + forderType:=''; } + + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrderNewList.BringToFront; + // + mnewHandle := frmProductOrderNewList.Handle; + end; + -2: //ָʾ + begin + if frmProductOrderNewList = nil then + begin + frmProductOrderNewList := TfrmProductOrderNewList.Create(application.MainForm); + with frmProductOrderNewList do + begin + fDParameters1 := trim(DParameters1); + fCustomerNoName := '㶫в'; + CustomerNoName.Text := '㶫в'; + CustomerNoName.Enabled := false; + tchk.Visible := false; + TBPrint.Visible := false; + TBPrint1.Visible := false; + TBPrint2.Visible := false; + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrderNewList.BringToFront; + // + mnewHandle := frmProductOrderNewList.Handle; + end; + -1: //ָʾ + begin + if frmProductOrderNewList_JD = nil then + begin + frmProductOrderNewList_JD := TfrmProductOrderNewList_JD.Create(application.MainForm); + with frmProductOrderNewList_JD do + begin + fsyrName := trim(DataBase); + if trim(DParameters1) <> '' then + begin + CustomerNoName.Text := trim(DParameters1); + CustomerNoName.Enabled := fALSE; + end; + forderType := trim(DParameters2); + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrderNewList_JD.BringToFront; + // + mnewHandle := frmProductOrderNewList_JD.Handle; + + end; + -3: //ָʾ + begin + // if frmProductOrderNewList<>nil then frmProductOrderNewList.Free; + if frmProductOrderNewList_ZD = nil then + begin + frmProductOrderNewList_ZD := TfrmProductOrderNewList_ZD.Create(application.MainForm); + with frmProductOrderNewList_ZD do + begin + fsyrName := trim(DataBase); + fDParameters1 := trim(DParameters1); + forderType := trim(DParameters2); + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrderNewList_ZD.BringToFront; + // + mnewHandle := frmProductOrderNewList_ZD.Handle; + end; + -11: //ָʾ + begin + if frmProductOrderNewList_BH <> nil then + frmProductOrderNewList_BH.Free; + if frmProductOrderNewList_BH = nil then + begin + frmProductOrderNewList_BH := TfrmProductOrderNewList_BH.Create(application.MainForm); + with frmProductOrderNewList_BH do + begin + fsyrName := trim(DataBase); + fDParameters1 := trim(DParameters1); + forderType := trim(DParameters2); + fsyrName := '𻪷֯'; +// fDParameters1:=''; + forderType := ''; + + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrderNewList_BH.BringToFront; + // + mnewHandle := frmProductOrderNewList_BH.Handle; + end; + 1: //زֹ + 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; +{ 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 ; } + 102: //زֲѯ + 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; + 2: // Ʒ + begin + if frmMJManageNewFDNew = nil then + begin + frmMJManageNewFDNew := TfrmMJManageNewFDNew.Create(application.MainForm); + with frmMJManageNewFDNew do + begin + if trim(DataBase) = 'Ȩ' then + begin + iscom := false; + C_CodeName.Enabled := TRUE; + c_cOLOR.Enabled := TRUE; + BCGangNo.Enabled := TRUE; + end + else + iscom := true; + canshu := DataBase; + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmMJManageNewFDNew.BringToFront; + // + mnewHandle := frmMJManageNewFDNew.Handle; + + end; + 4: //ƥ + 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; + { 5: //Ʒ + 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 ; } + 6: //Ʒб ڳ + begin + if frmCKProductBCPInList = nil then + begin + frmCKProductBCPInList := TfrmCKProductBCPInList.Create(application.MainForm); + with frmCKProductBCPInList do + begin + fDParameters2 := trim(DParameters2); + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKProductBCPInList.BringToFront; + // + mnewHandle := frmCKProductBCPInList.Handle; + + end; + 7: //Ʒб + 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; + { 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; + 10: //б + 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; + 11: //б + 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; + 111: //б + begin + if frmCP_CRC = nil then + begin + frmCP_CRC := TfrmCP_CRC.Create(application.MainForm); + with frmCP_CRC do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCP_CRC.BringToFront; + // + mnewHandle := frmCP_CRC.Handle; + + end; + 112: //б + begin + if frmCKPHKCList = nil then + begin + frmCKPHKCList := TfrmCKPHKCList.Create(application.MainForm); + with frmCKPHKCList do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKPHKCList.BringToFront; + // + mnewHandle := frmCKPHKCList.Handle; + + end; + 113: //б + begin + if frmCKProductCPKCHZList_Yj = nil then + begin + frmCKProductCPKCHZList_Yj := TfrmCKProductCPKCHZList_Yj.Create(application.MainForm); + with frmCKProductCPKCHZList_Yj do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKProductCPKCHZList_Yj.BringToFront; + // + mnewHandle := frmCKProductCPKCHZList_Yj.Handle; + end; + 12: //鱨 + 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; + 13: // + 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; + 14: //ɨ + 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; + 15: //ɹ Ͷƥ + begin + if frmClothContractList = nil then + begin + frmClothContractList := TfrmClothContractList.Create(application.MainForm); + with frmClothContractList do + begin + caption := Trim(Title); + fDParameters1 := trim(DParameters1); + // fDParameters1:=trim('ѯ'); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractList.BringToFront; + // + mnewHandle := frmClothContractList.Handle; + + end; + 151: //ɹ Ͷƥ + begin + if frmClothContractList_CG = nil then + begin + frmClothContractList_CG := TfrmClothContractList_CG.Create(application.MainForm); + with frmClothContractList_CG do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractList_CG.BringToFront; + // + mnewHandle := frmClothContractList_CG.Handle; + + end; + 152: //ɹ Ͷƥ + begin + if frmClothContractList_Tp = nil then + begin + frmClothContractList_Tp := TfrmClothContractList_Tp.Create(application.MainForm); + with frmClothContractList_Tp do + begin + caption := Trim(Title); + fDParameters1 := trim(DParameters1); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractList_Tp.BringToFront; + // + mnewHandle := frmClothContractList_Tp.Handle; + + end; + 153: //ӹ + begin + if frmClothContractList_JG = nil then + begin + frmClothContractList_JG := TfrmClothContractList_JG.Create(application.MainForm); + with frmClothContractList_JG do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractList_JG.BringToFront; + // + mnewHandle := frmClothContractList_JG.Handle; + + end; + 154: //ɹ Ͷƥ + begin + if frmClothContractList_Help = nil then + begin + frmClothContractList_Help := TfrmClothContractList_Help.Create(application.MainForm); + with frmClothContractList_Help do + begin + caption := Trim(Title); + v1Ssel.Visible := false; + ToolButton1.Visible := false; + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractList_Help.BringToFront; + // + mnewHandle := frmClothContractList_Help.Handle; + + end; + 155: //ɹ Ͷƥ + begin + if frmClothContractList_HZ = nil then + begin + frmClothContractList_HZ := TfrmClothContractList_HZ.Create(application.MainForm); + with frmClothContractList_HZ do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractList_HZ.BringToFront; + // + mnewHandle := frmClothContractList_HZ.Handle; + + end; + 255: //ɹ Ͷƥ + begin + if frmClothContractList_SJD = nil then + begin + frmClothContractList_SJD := TfrmClothContractList_SJD.Create(application.MainForm); + with frmClothContractList_SJD do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractList_SJD.BringToFront; + // + mnewHandle := frmClothContractList_SJD.Handle; + + end; + 245: //ѯ + begin + if frmClothContractList_PBKC = nil then + begin + frmClothContractList_PBKC := TfrmClothContractList_PBKC.Create(application.MainForm); + with frmClothContractList_PBKC do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractList_PBKC.BringToFront; + // + mnewHandle := frmClothContractList_PBKC.Handle; + + end; + 254: //ɹ Ͷƥ + begin + if frmClothContractList_SJDMX = nil then + begin + frmClothContractList_SJDMX := TfrmClothContractList_SJDMX.Create(application.MainForm); + with frmClothContractList_SJDMX do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractList_SJDMX.BringToFront; + // + mnewHandle := frmClothContractList_SJDMX.Handle; + + end; + 253: //ɹ Ͷƥ + begin + if frmClothContractList_SJDCK = nil then + begin + frmClothContractList_SJDCK := TfrmClothContractList_SJDCK.Create(application.MainForm); + with frmClothContractList_SJDCK do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractList_SJDCK.BringToFront; + // + mnewHandle := frmClothContractList_SJDCK.Handle; + + end; + 515: //Ʒѯ + begin + if frmClothContractList_CP = nil then + begin + frmClothContractList_CP := TfrmClothContractList_CP.Create(application.MainForm); + with frmClothContractList_CP do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractList_CP.BringToFront; + // + mnewHandle := frmClothContractList_CP.Handle; + + end; + 156: //ɹ Ͷƥ + begin + if frmClothContractList_HZ1 = nil then + begin + frmClothContractList_HZ1 := TfrmClothContractList_HZ1.Create(application.MainForm); + with frmClothContractList_HZ1 do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmClothContractList_HZ1.BringToFront; + // + mnewHandle := frmClothContractList_HZ1.Handle; + + end; + 16: // + 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; + 17: // + 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; + 18: //ܲѯ + 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; + 19: //ͬ + 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; + 20: //ӹ + 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; + 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 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; + 23: // Ʒ + begin + if frmProductOrder_Ph = nil then + begin + frmProductOrder_Ph := TfrmProductOrder_Ph.Create(application.MainForm); + with frmProductOrder_Ph do + begin + fDParameters1 := trim(DParameters1); + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrder_Ph.BringToFront; + // + mnewHandle := frmProductOrder_Ph.Handle; + + end; + 231: // Ʒ + begin + if frmCKSMEdit = nil then + begin + frmCKSMEdit := TfrmCKSMEdit.Create(application.MainForm); + with frmCKSMEdit do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKSMEdit.BringToFront; + // + mnewHandle := frmCKSMEdit.Handle; + + end; + 24: // زֲѯ + begin + if frmHCList = nil then + begin + frmHCList := TfrmHCList.Create(application.MainForm); + with frmHCList do + begin + // fDParameters1:=trim(DParameters1); + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmHCList.BringToFront; + // + mnewHandle := frmHCList.Handle; + + end; + + 25: // Ʒ + begin + if frmProductOrder_Ph10 = nil then + begin + frmProductOrder_Ph10 := TfrmProductOrder_Ph10.Create(application.MainForm); + with frmProductOrder_Ph10 do + begin + fDParameters1 := trim(DParameters1); + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrder_Ph10.BringToFront; + // + mnewHandle := frmProductOrder_Ph10.Handle; + + end; + + 26: // زֲѯ + begin + if frmCrkAccount = nil then + begin + frmCrkAccount := TfrmCrkAccount.Create(application.MainForm); + with frmCrkAccount do + begin + // fDParameters1:=trim(DParameters1); + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCrkAccount.BringToFront; + // + mnewHandle := frmCrkAccount.Handle; + + end; + 27: // ⡪ + begin + if frmCKProductBCPInList_other = nil then + begin + frmCKProductBCPInList_other := TfrmCKProductBCPInList_other.Create(application.MainForm); + with frmCKProductBCPInList_other do + begin + // fDParameters2:='ѯ'; + fDParameters2 := trim(DParameters2); + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKProductBCPInList_other.BringToFront; + // + mnewHandle := frmCKProductBCPInList_other.Handle; + end; + 28: // ⡪ + begin + if frmCKProductBCPOutList_other = nil then + begin + frmCKProductBCPOutList_other := TfrmCKProductBCPOutList_other.Create(application.MainForm); + with frmCKProductBCPOutList_other do + begin + // fDParameters2:=trim(DParameters2); + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKProductBCPOutList_other.BringToFront; + // + mnewHandle := frmCKProductBCPOutList_other.Handle; + end; + 29: // ⡪ + begin + if frmProductOrder_Ph_other = nil then + begin + frmProductOrder_Ph_other := TfrmProductOrder_Ph_other.Create(application.MainForm); + with frmProductOrder_Ph_other do + begin + // fDParameters2:=trim(DParameters2); + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmProductOrder_Ph_other.BringToFront; + // + mnewHandle := frmProductOrder_Ph_other.Handle; + end; + 30: //б + begin + if frmCKProductBCPKCList_other = nil then + begin + frmCKProductBCPKCList_other := TfrmCKProductBCPKCList_other.Create(application.MainForm); + with frmCKProductBCPKCList_other do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKProductBCPKCList_other.BringToFront; + // + mnewHandle := frmCKProductBCPKCList_other.Handle; + + end; + 31: //б + begin + if frmCKProductBCPKCHZList_other = nil then + begin + frmCKProductBCPKCHZList_other := TfrmCKProductBCPKCHZList_other.Create(application.MainForm); + with frmCKProductBCPKCHZList_other do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKProductBCPKCHZList_other.BringToFront; + // + mnewHandle := frmCKProductBCPKCHZList_other.Handle; + + end; + + 32: //б + begin + if frmCrkAccount_other = nil then + begin + frmCrkAccount_other := TfrmCrkAccount_other.Create(application.MainForm); + with frmCrkAccount_other do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCrkAccount_other.BringToFront; + // + mnewHandle := frmCrkAccount_other.Handle; + + end; + 33: //鱨 + begin + if frmJYOrderCDOne_other = nil then + begin + frmJYOrderCDOne_other := TfrmJYOrderCDOne_other.Create(application.MainForm); + with frmJYOrderCDOne_other do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmJYOrderCDOne_other.BringToFront; + // + mnewHandle := frmJYOrderCDOne_other.Handle; + + end; + 34: //鱨 + begin + if frmXsList_other = nil then + begin + frmXsList_other := TfrmXsList_other.Create(application.MainForm); + with frmXsList_other do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmXsList_other.BringToFront; + // + mnewHandle := frmXsList_other.Handle; + + end; + 35: //ջͳ + begin + if frmYHList_other = nil then + begin + frmYHList_other := TfrmYHList_other.Create(application.MainForm); + with frmYHList_other do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYHList_other.BringToFront; + // + mnewHandle := frmYHList_other.Handle; + + end; + 36: //ջͳ + begin + if frmCKProductBCPKCHZListSUM_other = nil then + begin + frmCKProductBCPKCHZListSUM_other := TfrmCKProductBCPKCHZListSUM_other.Create(application.MainForm); + with frmCKProductBCPKCHZListSUM_other do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKProductBCPKCHZListSUM_other.BringToFront; + // + mnewHandle := frmCKProductBCPKCHZListSUM_other.Handle; + + end; + 37: //ųԱ + begin + if frmCKEJK = nil then + begin + frmCKEJK := TfrmCKEJK.Create(application.MainForm); + with frmCKEJK do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKEJK.BringToFront; + // + mnewHandle := frmCKEJK.Handle; + + end; + + 38: //ͻϢ + begin + if frmKH_XS_list = nil then + begin + frmKH_XS_list := TfrmKH_XS_list.Create(application.MainForm); + with frmKH_XS_list do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmKH_XS_list.BringToFront; + // + mnewHandle := frmKH_XS_list.Handle; + + end; + 39: //ƷϢ + begin + if frmCP_XL <> nil then + frmCP_XL.Free; + if frmCP_XL = nil then + begin + frmCP_XL := TfrmCP_XL.Create(application.MainForm); + with frmCP_XL do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCP_XL.BringToFront; + // + mnewHandle := frmCP_XL.Handle; + end; + 40: //ƷϢ + begin + if frmCP_COL_XL <> nil then + frmCP_COL_XL.Free; + if frmCP_COL_XL = nil then + begin + frmCP_COL_XL := TfrmCP_COL_XL.Create(application.MainForm); + with frmCP_COL_XL do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCP_COL_XL.BringToFront; + // + mnewHandle := frmCP_COL_XL.Handle; + end; + 41: //ƷϢ + begin + if frmCP_COL_XL_ZD <> nil then + frmCP_COL_XL_ZD.Free; + if frmCP_COL_XL_ZD = nil then + begin + frmCP_COL_XL_ZD := TfrmCP_COL_XL_ZD.Create(application.MainForm); + with frmCP_COL_XL_ZD do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCP_COL_XL_ZD.BringToFront; + // + mnewHandle := frmCP_COL_XL_ZD.Handle; + end; + 42: //ƷϢ + begin + if frmKH_XS_YP_list <> nil then + frmKH_XS_YP_list.Free; + if frmKH_XS_YP_list = nil then + begin + frmKH_XS_YP_list := TfrmKH_XS_YP_list.Create(application.MainForm); + with frmKH_XS_YP_list do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmKH_XS_YP_list.BringToFront; + // + mnewHandle := frmKH_XS_YP_list.Handle; + end; + 61: //ʾ + begin + if frmModulePromptList <> nil then + frmModulePromptList.Free; + 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; + 97: // Ʒ + begin + if frmKCRLLTZ = nil then + begin + frmKCRLLTZ := TfrmKCRLLTZ.Create(application.MainForm); + with frmKCRLLTZ do + begin + if trim(DataBase) = 'Ȩ' then + begin + iscom := false; + end + else + iscom := true; + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmKCRLLTZ.BringToFront; + // + mnewHandle := frmKCRLLTZ.Handle; + end; + 98: // Ʒ + begin + if frmMJManageNewFDNew_other = nil then + begin + frmMJManageNewFDNew_other := TfrmMJManageNewFDNew_other.Create(application.MainForm); + with frmMJManageNewFDNew_other do + begin + if trim(DataBase) = 'Ȩ' then + begin + iscom := false; + C_CodeName.Enabled := TRUE; + c_cOLOR.Enabled := TRUE; + BCGangNo.Enabled := TRUE; + end + else + iscom := true; + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmMJManageNewFDNew_other.BringToFront; + // + mnewHandle := frmMJManageNewFDNew_other.Handle; + + end; + 99: // Ʒ + begin + if frmKCRLLTZ_other = nil then + begin + frmKCRLLTZ_other := TfrmKCRLLTZ_other.Create(application.MainForm); + with frmKCRLLTZ_other do + begin + if trim(DataBase) = 'Ȩ' then + begin + iscom := false; + end + else + iscom := true; + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmKCRLLTZ_other.BringToFront; + // + mnewHandle := frmKCRLLTZ_other.Handle; + end; + 100: // ͻ̵ + begin + if frmCKPDlist <> nil then + frmCKPDlist.Free; + if frmCKPDlist = nil then + begin + frmCKPDlist := TfrmCKPDlist.Create(application.MainForm); + with frmCKPDlist do + begin + fckName := trim(DParameters3); + // fckName:='ֻ'; + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmCKPDlist.BringToFront; + // + mnewHandle := frmCKPDlist.Handle; + end; + end; // end case + + Result := mnewHandle; + // NewDllApp:=Application ; +end; +//=========================================================== + //ݿӳ +//=========================================================== + +function ConnData(): Boolean; +begin + 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; + +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..468d937 --- /dev/null +++ b/管理系统/U_HCList.dfm @@ -0,0 +1,846 @@ +object frmHCList: TfrmHCList + Left = 161 + Top = 141 + 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 ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #29305#27530#20462#25913 + ImageIndex = 54 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object Tprint: TToolButton + Left = 276 + Top = 0 + Caption = #25171#21360#32568#26631#31614 + ImageIndex = 96 + OnClick = TprintClick + end + object TBClose: TToolButton + Left = 371 + 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 Label12: TLabel + Left = 668 + Top = 40 + Width = 48 + Height = 12 + Caption = #22238#20179#31867#22411 + 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 = 722 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = C_CodeNameChange + end + object CheckBox1: TCheckBox + Left = 860 + Top = 12 + 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 + object HCType: TEdit + Tag = 2 + Left = 722 + Top = 37 + Width = 100 + Height = 20 + TabOrder = 12 + OnChange = C_CodeNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 97 + Width = 1124 + Height = 396 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + 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 + Column = v1Column13 + end + item + Kind = skSum + Column = v1Column14 + 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.IncSearch = cxStyle2 + Styles.Selection = cxStyle2 + 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 + HeaderAlignmentHorz = taCenter + Width = 40 + end + object Tv1Column1: TcxGridDBColumn + Caption = #25237#22383#21333#21495 + DataBinding.FieldName = 'TPconNO' + HeaderAlignmentHorz = taCenter + Width = 66 + 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 v1Column3: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + 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 v1Column13: TcxGridDBColumn + Caption = #26579#21378#33258#26816#27425#21697#21305#25968 + DataBinding.FieldName = 'AordQty3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object v1Column14: TcxGridDBColumn + Caption = #26579#21378#33258#26816#27425#21697#25968#37327 + DataBinding.FieldName = 'AordQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object v1Column7: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'HC_ps' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Footer = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Header = DataLink_TradeManage.cxStyle_fontclBlue + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'AOrdQty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Footer = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Header = DataLink_TradeManage.cxStyle_fontclBlue + Width = 66 + end + object v1Column9: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'JY_ps' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'JY_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 60 + 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 = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #20837#24211#25968#37327 + DataBinding.FieldName = 'RK_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 60 + 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 + object v1Column18: TcxGridDBColumn + DataBinding.FieldName = 'Num_Rate' + Visible = False + VisibleForCustomization = False + end + object v1Column19: TcxGridDBColumn + Caption = #22238#20179#31867#22411 + DataBinding.FieldName = 'HCType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + 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 Panel_TS: TPanel + Left = 376 + Top = 152 + Width = 345 + Height = 153 + Color = clSkyBlue + TabOrder = 4 + Visible = False + object Label13: TLabel + Left = 40 + Top = 28 + Width = 48 + Height = 12 + Caption = #20219#21153#21333#21495 + end + object Label14: TLabel + Left = 40 + Top = 56 + Width = 48 + Height = 12 + Caption = #25237#22383#21305#25968 + Visible = False + end + object Label15: TLabel + Left = 40 + Top = 88 + Width = 48 + Height = 12 + Caption = #25237#22383#25968#37327 + Visible = False + end + object edit_conNo: TBtnEditA + Left = 92 + Top = 24 + Width = 121 + Height = 20 + TabOrder = 0 + OnBtnClick = edit_conNoBtnClick + end + object edit_AOrdQty5: TEdit + Left = 92 + Top = 52 + Width = 121 + Height = 20 + TabOrder = 1 + Visible = False + end + object edit_AOrdQty6: TEdit + Left = 92 + Top = 84 + Width = 121 + Height = 20 + TabOrder = 2 + Visible = False + end + object Button1: TButton + Left = 252 + Top = 68 + Width = 75 + Height = 25 + Caption = #20445#23384#25237#22383#25968#37327 + TabOrder = 3 + Visible = False + end + object Button2: TButton + Left = 252 + Top = 112 + Width = 75 + Height = 25 + Caption = #21462#28040 + TabOrder = 4 + OnClick = Button2Click + end + object Button3: TButton + Left = 252 + Top = 24 + Width = 75 + Height = 25 + Caption = #20445#23384#20219#21153#21333#21495 + TabOrder = 5 + OnClick = Button3Click + 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 = 856 + Top = 144 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 896 + Top = 128 + end + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + PixelsPerInch = 96 + 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 = 316 + Top = 300 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 380 + Top = 300 + 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..be7aeb9 --- /dev/null +++ b/管理系统/U_HCList.pas @@ -0,0 +1,465 @@ +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, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, BtnEdit, 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 + 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; + v1Column13: TcxGridDBColumn; + v1Column14: 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; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + HCType: TEdit; + Label12: TLabel; + Label13: TLabel; + Label14: TLabel; + Label15: TLabel; + edit_conNo: TBtnEditA; + edit_AOrdQty5: TEdit; + edit_AOrdQty6: TEdit; + Button1: TButton; + Button2: TButton; + Button3: TButton; + ToolButton1: TToolButton; + Panel_TS: TPanel; + Tv1Column1: 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 TprintClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure edit_conNoBtnClick(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmHCList: TfrmHCList; + +implementation +uses + U_DataLink,U_Fun,U_ClothContractList_sel; + +{$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 AA.*,Num_Rate=case when (AOrdQty1=0 OR JY_Qty=0) then 0 else (JY_Qty-AOrdQty1)/AOrdQty1*100.00 end '); + sql.Add('from( '); + 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(RollNum) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''''),'); + sql.Add('RK_Qty=(select sum(Qty) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''''), '); + sql.Add('TPconNO=(select conNO from Contract_Main X where X.MainId=A.mainID),'); + sql.Add('hCType=(select conType from Contract_Main X where X.MainId=A.mainID)'); + sql.Add('from JYOrder_sub_anPai A '); + SQL.Add('WHERE ADefDate1>='''+formatdateTime('yyyy-MM-dd',BegDate.DateTime)+''' '); + SQL.Add('AND ADefDate1<'''+formatdateTime('yyyy-MM-dd',enddate.DateTime+1)+''' '); + sql.Add(' ) AA '); + 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('Num_Rate').Index]>10.0 then + begin + ACanvas.Brush.Color:=clSkyBlue; + end + else IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Num_Rate').Index]<-3.0 then + begin + ACanvas.Brush.Color:=clred; + 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.TprintClick(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if CDS_Main.IsEmpty then Exit; + if CDS_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf' ; + if not FileExists(fPrintFile) then + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾǩ.rmf'),'ʾ',0); + Exit; + end; + with CDS_Main do + begin + DisableControls; + First; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + + with ADOQueryPrint do + begin + close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',CPKW=(select Top 1 zdyCode from KH_Zdy_Attachment X where X.DEFstr1=A.C_CodeName and X.DEFstr2=A.C_Color)'); + sql.Add(',CPNUM=(select count(CRID) from CK_BanCP_KC X where X.C_CodeName=A.C_CodeName and X.C_Color=A.C_Color)'); + sql.Add('from JYOrder_Sub_AnPai A '); + sql.Add('where Apid='+quotedstr(trim(CDS_Main.fieldbyname('apid').AsString))); + open; + if isempty then + begin + CDS_Main.EnableControls; + application.MessageBox('˻زֵδ棬ܱ','ʾϢ',0); + exit; + end; + 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); + CDS_Main.EnableControls; + exit; + end; + + RMVariables['QRBARCODE']:=fImagePath; + RM1.LoadFromFile(fPrintFile); + // RM1.ShowReport; + RM1.PrintReport; + { if CheckBox1.Checked then RM1.ShowReport + else + begin + // RM1.DefaultCopies:=strtointdef(trim(edit2.Text),1); + RM1.PrintReport; + end; } + end; + next; + end; + EnableControls; + First; + 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; + +procedure TfrmHCList.ToolButton1Click(Sender: TObject); +begin + edit_conNo.Text:=''; + edit_AOrdQty5.Text:=''; + edit_AOrdQty6.Text:=''; + Panel_TS.Left:=(self.Width -Panel_TS.Width) div 2; + Panel_TS.Visible:=true; +end; + +procedure TfrmHCList.edit_conNoBtnClick(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + frmClothContractList_sel:=TfrmClothContractList_sel.create(self); + with frmClothContractList_sel do + begin + ffactoryName:=self.CDS_Main.fieldbyname('AOrddefstr4').AsString; + C_CodeName.Text:=self.CDS_Main.fieldbyname('C_CodeName').AsString; + if showmodal=1 then + begin + edit_conNo.Text:=Order_Main.fieldbyname('conNo').AsString; + end; + free; + end; +end; + +procedure TfrmHCList.Button3Click(Sender: TObject); +begin + IF CDS_Main.IsEmpty then exit; + try + with CDS_Main do + begin + CDS_Main.First; + CDS_Main.EnableControls; + while not eof do + begin + IF fieldbyName('Ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrder_sub_anPai SET conNo='''+trim(edit_conNo.Text)+''' '); + sql.Add('where APID='''+trim(CDS_Main.fieldbyName('APID').AsString)+''' '); + execsql; + end; + end; + next; + end; + CDS_Main.EnableControls; + end; + Panel_TS.Visible:=false; + TBRafresh.Click; + except + CDS_Main.EnableControls; + application.MessageBox('ݱʧܣ','ʾϢ',MB_ICONERROR); + end; +end; + +procedure TfrmHCList.Button2Click(Sender: TObject); +begin + Panel_TS.Visible:=false; +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_JYOrderCDMore.dfm b/管理系统/U_JYOrderCDMore.dfm new file mode 100644 index 0000000..dd42c27 --- /dev/null +++ b/管理系统/U_JYOrderCDMore.dfm @@ -0,0 +1,610 @@ +object frmJYOrderCDMore: TfrmJYOrderCDMore + Left = 89 + Top = 127 + 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 = 897 + 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 v1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MPRTMF' + HeaderAlignmentHorz = taCenter + Width = 62 + 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 = #30041#26679#21305#25968 + DataBinding.FieldName = 'LYPS' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1Column17: TcxGridDBColumn + Caption = #30041#26679#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] + 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..4f972e0 --- /dev/null +++ b/管理系统/U_JYOrderCDOne.dfm @@ -0,0 +1,862 @@ +object frmJYOrderCDOne: TfrmJYOrderCDOne + Left = 127 + Top = 78 + Width = 1172 + Height = 626 + 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 = 1156 + 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 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 + OnClick = TBZFClick + end + object TBManage: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #32534#36753 + ImageIndex = 58 + Visible = False + OnClick = TBManageClick + end + object TBAftChkHX: TToolButton + Left = 315 + Top = 0 + Caption = #26816#21518#22238#20462 + ImageIndex = 54 + Visible = False + OnClick = TBAftChkHXClick + end + object ToolButton2: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 461 + Top = 0 + Caption = #25171#21360#26631#31614 + ImageIndex = 96 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 544 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1156 + Height = 81 + 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 = 175 + Top = 87 + 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 = 602 + Top = 119 + 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 = 546 + Top = 15 + 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 Label8: TLabel + Left = 546 + Top = 39 + Width = 53 + 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 = 743 + Top = 15 + 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 = 191 + Top = 15 + Width = 53 + 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 = 367 + Top = 41 + 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 = 299 + Top = 91 + Width = 54 + Height = 12 + Caption = #31561' '#32423 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 367 + Top = 17 + 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 = 743 + Top = 39 + 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 = 123 + 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 Label13: TLabel + Left = 439 + Top = 123 + 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 = 191 + Top = 41 + Width = 53 + 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 = 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 = 228 + Top = 83 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object MPRTMF: TEdit + Tag = 2 + Left = 630 + Top = 115 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = BCgangNOChange + end + object C_Color: TEdit + Tag = 1 + Left = 602 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = BCgangNOChange + end + object BCgangNO: TEdit + Tag = 2 + Left = 800 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = BCgangNOChange + end + object MJID: TEdit + Tag = 2 + Left = 253 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 6 + OnChange = BCgangNOChange + end + object CDQK: TEdit + Tag = 2 + Left = 425 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 7 + OnChange = BCgangNOChange + end + object MJType: TComboBox + Tag = 2 + Left = 377 + Top = 87 + Width = 78 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = BCgangNOChange + Items.Strings = ( + #27491#21697 + #27425#21697 + #30041#26679 + '') + end + object C_CodeName: TEdit + Tag = 2 + Left = 425 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 9 + OnChange = BCgangNOChange + end + object MJStr2: TComboBox + Tag = 2 + Left = 800 + Top = 35 + Width = 78 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 10 + OnChange = BCgangNOChange + Items.Strings = ( + #24050#20837#24211 + #26410#20837#24211 + '') + end + object AOrddefstr6: TEdit + Tag = 2 + Left = 481 + Top = 119 + Width = 77 + Height = 20 + TabOrder = 11 + OnChange = BCgangNOChange + end + object Filler: TComboBox + Tag = 1 + Left = 602 + Top = 35 + Width = 78 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 12 + OnChange = BCgangNOChange + end + object RadioGroup1: TRadioGroup + Left = 756 + Top = 135 + Width = 185 + Height = 92 + Columns = 3 + ItemIndex = 0 + Items.Strings = ( + #27491#24120 + #22238#20462 + #20840#37096) + TabOrder = 13 + Visible = False + OnClick = RadioGroup1Click + end + object CheckBox1: TCheckBox + Left = 72 + Top = 60 + Width = 97 + Height = 17 + Caption = #20840#36873 + TabOrder = 14 + OnClick = CheckBox1Click + end + object AOrddefstr4: TEdit + Tag = 2 + Left = 253 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 15 + OnChange = BCgangNOChange + end + end + object cxGrid1: TcxGrid + Left = 68 + Top = 108 + Width = 1057 + Height = 421 + PopupMenu = PopupMenu1 + 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 + end + item + Kind = skSum + end + item + Kind = skCount + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + Column = v1Column14 + 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 + OptionsView.IndicatorWidth = 25 + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1Column6: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 84 + end + object v1Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCgangNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 88 + end + object v1Column13: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 80 + end + object v1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 58 + end + object v1Column23: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object v1Column1: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'hc_RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column14: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'MJQty1' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column3: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Column11: TcxGridDBColumn + Caption = #38271#24230#21333#20301 + DataBinding.FieldName = 'MJTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 58 + end + object v1Column17: TcxGridDBColumn + Caption = #20837#24211#29366#24577 + DataBinding.FieldName = 'MJStr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column20: TcxGridDBColumn + Caption = #25171#30721#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 73 + end + object v1Column21: TcxGridDBColumn + Caption = #25171#30721#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + object v1AOrddefstr4: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'AOrddefstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 96 + end + object v1Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #30133#28857#20449#24687 + DataBinding.FieldName = 'CDList' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 135 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 222 + Top = 171 + 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 = 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, 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 = 264 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 608 + Top = 264 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 648 + Top = 232 + end +end diff --git a/管理系统/U_JYOrderCDOne.pas b/管理系统/U_JYOrderCDOne.pas new file mode 100644 index 0000000..62c2b81 --- /dev/null +++ b/管理系统/U_JYOrderCDOne.pas @@ -0,0 +1,857 @@ +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; + +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; + MPRTMF: TEdit; + Label7: TLabel; + C_Color: TEdit; + Label8: TLabel; + Label9: TLabel; + BCgangNO: TEdit; + Label10: TLabel; + MJID: TEdit; + Label2: TLabel; + CDQK: TEdit; + Panel4: TPanel; + Label11: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + Label4: TLabel; + MJType: TComboBox; + v1Column13: TcxGridDBColumn; + Label5: TLabel; + C_CodeName: TEdit; + v1Column14: TcxGridDBColumn; + Label6: TLabel; + MJStr2: TComboBox; + v1Column17: TcxGridDBColumn; + Label12: TLabel; + Label13: TLabel; + AOrddefstr6: 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; + TBAftChkHX: TToolButton; + RadioGroup1: TRadioGroup; + MovePanel2: TMovePanel; + ToolButton2: TToolButton; + CheckBox1: TCheckBox; + v1AOrddefstr4: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + AOrddefstr4: TEdit; + Label14: TLabel; + v1Column5: 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 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 BCgangNOChange(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); + private + DQdate:TDateTime; + FLeft,FTop:Integer; + procedure InitGrid(); + procedure InitGrid10(); + procedure InitForm(); + function Savedata():Boolean; + { Private declarations } + public + FFInt:Integer; + { 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 + frmJYOrderCDOne: TfrmJYOrderCDOne; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun,U_MJEdit; + +{$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('鱨J',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('select B.AOrddefstr4,A.*,case when A.MJQty1<>0 then 1 else 0 end as hc_RollNum, RollNum=1,CDQK='''' from WFB_MJJY A '); + sql.Add('inner join JYOrder_Sub_AnPai B on B.apid=A.apid '); + sql.Add('where A.FillTime>='''+formatdateTime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add('and A.FillTime<'''+formatdateTime('yyyy-MM-dd',enddate.DateTime+1)+''' '); + 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('鱨J',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:String; +begin + if ADOQueryMain.Active=False then Exit; + if RadioGroup1.ItemIndex=0 then + begin + fsj:=' HXFlag=0 '; + end else + if RadioGroup1.ItemIndex=1 then + begin + fsj:=' HXFlag=1 '; + end else + if RadioGroup1.ItemIndex=0 then + begin + fsj:=''; + end; + if Trim(SGetFilters(Panel1,1,2))='' then + begin + fsj:=fsj; + end else + begin + fsj:=SGetFilters(Panel1,1,2)+' and '+fsj; + end; + SDofilter(ADOQueryMain,fsj); + 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.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmJYOrderCDOne.OrderNoChange(Sender: TObject); +var + fsj:String; +begin + if ADOQueryMain.Active=False then Exit; + if Length(OrderNo.Text)<4 then Exit; + if RadioGroup1.ItemIndex=0 then + begin + fsj:=' HXFlag=0 '; + end else + if RadioGroup1.ItemIndex=1 then + begin + fsj:=' HXFlag=1 '; + end else + if RadioGroup1.ItemIndex=0 then + begin + fsj:=''; + end; + if Trim(SGetFilters(Panel1,1,2))='' then + begin + fsj:=fsj; + end else + begin + fsj:=SGetFilters(Panel1,1,2)+' and '+fsj; + end; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmJYOrderCDOne.FormShow(Sender: TObject); +begin + InitForm(); + if Trim(DParameters2)='' then + begin + TBManage.Visible:=True; + TBZF.Visible:=True; + //TBAftChkHX.Visible:=True; + 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 + 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; + 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); + 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); +var + strLog:string; +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)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Order_Main.EnableControls; + Application.MessageBox('Ѳݲɾ!','ʾ',0); + Exit; + end else + begin + //begin + + strLog:=':'+Trim(Order_Main.fieldbyname('APID').AsString)+ + ' :'+Trim(Order_Main.fieldbyname('MJID').AsString)+ + ' ز:'+Trim(Order_Main.fieldbyname('hc_RollNum').AsString)+ + ' :'+Trim(Order_Main.fieldbyname('MJLen').AsString); + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY where MJID='''+Trim(Order_Main.fieldbyname('MJID').AsString)+''''); + sql.Add('update JYOrder_Sub_AnPai_MX SET AOrdQty3=0 where APTm='''+Trim(Order_Main.fieldbyname('MJID').AsString)+''''); + sql.Add('delete WFB_MJJY_CD where MJID='''+Trim(Order_Main.fieldbyname('MJID').AsString)+''''); + sql.Add('delete JYOrder_Sub_AnPai_MX where AOrdQty1=0 and APTm='''+Trim(Order_Main.fieldbyname('MJID').AsString)+''''); + // sql.Add('update JYOrder_Sub_AnPai SET AOrdQty1=(select sum(AOrdQty1) from JYOrder_Sub_AnPai_MX X where X.apid=JYOrder_Sub_AnPai.apid )'); + // sql.Add('where APID='+quotedstr(trim(Order_Main.fieldbyname('APID').AsString))); + sql.Add('update YF_Money_CR SET Qty=(select sum(AOrdQty1) from JYOrder_Sub_AnPai X where X.apid=YF_Money_CR.YFTypeId )'); + sql.Add('where YFTypeId='+quotedstr(trim(Order_Main.fieldbyname('APID').AsString))); + sql.Add('update YF_Money_CR SET Money=Price*Qty,BBMoney=Price*Qty '); + sql.Add('where YFTypeId='+quotedstr(trim(Order_Main.fieldbyname('APID').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(strLog))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + + 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: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; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(Order_Main.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); + Order_Main.EnableControls; + exit; + end; + with ADOQueryPrint do //ӢƲҪƷжȡҪڿͻԶжȡnoteֶΡ + begin + Close; + SQL.Clear; + sql.Add('select A.*,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add(' from WFB_MJJY A') ; + SQL.Add(' where A.MJID='''+Trim(Order_Main.fieldbyname('MJID').AsString)+''''); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + // RM2.ShowReport; + RM2.PrintReport; + 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.BCgangNOChange(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_HZFX :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)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + MovePanel2.Visible:=False; + end; + + +end; + +procedure TfrmJYOrderCDOne.ToolButton2Click(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + BegDate.SetFocus; + + with Order_Main do + begin + DisableControls; + First; + while not Eof do + begin + IF fieldbyname('ssel').AsBoolean then + begin + iF trim(FieldByName('MJStr2').AsString)='' then + begin + EnableControls; + application.MessageBox(',ܱ!','ʾϢ',0); + exit; + end; + end; + Next; + end; + First; + EnableControls; + end; + + 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 mjQty1='+quotedstr(trim(Order_Main.fieldbyname('MJQty1').AsString))); + sql.Add(', mjlen='+quotedstr(trim(Order_Main.fieldbyname('mjlen').AsString))); + sql.Add('where MJID='+quotedstr(trim(Order_Main.fieldbyname('MJID').AsString))); + sql.Add('update JYOrder_Sub_AnPai_MX SET AOrdQty1='+quotedstr(trim(Order_Main.fieldbyname('MJQty1').AsString))); + sql.Add(', AOrdQty3='+quotedstr(trim(Order_Main.fieldbyname('mjlen').AsString))); + sql.Add('where APTM='+quotedstr(trim(Order_Main.fieldbyname('MJID').AsString))); + sql.Add('update JYOrder_Sub_AnPai SET AOrdQty1=(select sum(AOrdQty1) from JYOrder_Sub_AnPai_MX X where X.apid=JYOrder_Sub_AnPai.apid )'); + sql.Add('where APID='+quotedstr(trim(Order_Main.fieldbyname('APID').AsString))); + sql.Add('update YF_Money_CR SET Qty=(select sum(AOrdQty1) from JYOrder_Sub_AnPai X where X.apid=YF_Money_CR.YFTypeId )'); + sql.Add('where YFTypeId='+quotedstr(trim(Order_Main.fieldbyname('APID').AsString))); + sql.Add('update YF_Money_CR SET Money=Price*Qty,BBMoney=Price*Qty '); + sql.Add('where YFTypeId='+quotedstr(trim(Order_Main.fieldbyname('APID').AsString))); + sql.Add('delete WFB_MJJY where mjlen=0 and MJID='+quotedstr(trim(Order_Main.fieldbyname('MJID').AsString))); + execsql; + end; + end; + Next; + end; + First; + EnableControls; + end; + + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('ݱɹ','ʾϢ'); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ݱʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmJYOrderCDOne.CheckBox1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + with Order_Main do + begin + DisableControls; + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=CheckBox1.Checked; + Post; + Next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmJYOrderCDOne.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; + + +end. diff --git a/管理系统/U_JYOrderCDOne_Other.dfm b/管理系统/U_JYOrderCDOne_Other.dfm new file mode 100644 index 0000000..b127277 --- /dev/null +++ b/管理系统/U_JYOrderCDOne_Other.dfm @@ -0,0 +1,902 @@ +object frmJYOrderCDOne_other: TfrmJYOrderCDOne_other + Left = 75 + Top = 123 + Width = 1172 + Height = 599 + 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 + WindowState = wsMaximized + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1156 + 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 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 TBAftChkHX: TToolButton + Left = 315 + Top = 0 + Caption = #26816#21518#22238#20462 + ImageIndex = 54 + Visible = False + OnClick = TBAftChkHXClick + end + object Tsave: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 57 + Visible = False + OnClick = TsaveClick + end + object TRK: TToolButton + Left = 461 + Top = 0 + AutoSize = True + Caption = #20837#24211 + ImageIndex = 76 + Visible = False + OnClick = TRKClick + end + object ToolButton1: TToolButton + Left = 524 + Top = 0 + Caption = #25171#21360#26631#31614 + ImageIndex = 96 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 607 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1156 + Height = 81 + 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 = 175 + Top = 87 + 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 = 602 + Top = 119 + 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 = 366 + Top = 39 + 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 Label8: TLabel + Left = 570 + Top = 15 + Width = 53 + 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 = 191 + 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 = 191 + Top = 15 + Width = 53 + 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 = 859 + Top = 89 + 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 = 299 + Top = 91 + Width = 54 + Height = 12 + Caption = #31561' '#32423 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 367 + Top = 17 + 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 = 569 + Top = 39 + 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 = 123 + 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 Label13: TLabel + Left = 439 + Top = 123 + 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 = 683 + Top = 89 + Width = 53 + 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 Label15: TLabel + Left = 852 + Top = 16 + Width = 26 + Height = 12 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 852 + Top = 40 + Width = 26 + Height = 12 + Caption = #39068#33394 + 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 = 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 = 228 + Top = 83 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object MPRTMF: TEdit + Tag = 2 + Left = 630 + Top = 115 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = BCgangNOChange + end + object C_Color: TEdit + Tag = 1 + Left = 425 + Top = 35 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = BCgangNOChange + end + object BCgangNO: TEdit + Tag = 2 + Left = 253 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 5 + OnChange = BCgangNOChange + end + object MJID: TEdit + Tag = 2 + Left = 253 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 6 + OnChange = BCgangNOChange + end + object CDQK: TEdit + Tag = 2 + Left = 917 + Top = 83 + Width = 77 + Height = 20 + TabOrder = 7 + OnChange = BCgangNOChange + end + object MJType: TComboBox + Tag = 2 + Left = 377 + Top = 87 + Width = 78 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 8 + OnChange = BCgangNOChange + Items.Strings = ( + #27491#21697 + #27425#21697 + #30041#26679 + '') + end + object C_CodeName: TEdit + Tag = 2 + Left = 425 + Top = 11 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = BCgangNOChange + end + object MJStr2: TComboBox + Tag = 2 + Left = 626 + Top = 35 + Width = 78 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 10 + OnChange = BCgangNOChange + Items.Strings = ( + #24050#20837#24211 + #26410#20837#24211 + '') + end + object AOrddefstr6: TEdit + Tag = 2 + Left = 481 + Top = 119 + Width = 77 + Height = 20 + TabOrder = 11 + OnChange = BCgangNOChange + end + object Filler: TComboBox + Tag = 1 + Left = 626 + Top = 11 + Width = 78 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 12 + OnChange = BCgangNOChange + end + object RadioGroup1: TRadioGroup + Left = 756 + Top = 135 + Width = 185 + Height = 92 + Columns = 3 + ItemIndex = 0 + Items.Strings = ( + #27491#24120 + #22238#20462 + #20840#37096) + TabOrder = 13 + Visible = False + OnClick = RadioGroup1Click + end + object CheckBox1: TCheckBox + Left = 72 + Top = 60 + Width = 97 + Height = 17 + Caption = #20840#36873 + TabOrder = 14 + OnClick = CheckBox1Click + end + object AOrddefstr4: TEdit + Tag = 2 + Left = 745 + Top = 83 + Width = 77 + Height = 20 + TabOrder = 15 + OnChange = BCgangNOChange + end + object Edit1: TEdit + Left = 884 + Top = 12 + Width = 121 + Height = 20 + TabOrder = 16 + OnExit = Edit1Exit + end + object Edit2: TEdit + Left = 884 + Top = 36 + Width = 121 + Height = 20 + TabOrder = 17 + OnExit = Edit1Exit + end + object Button1: TButton + Left = 1016 + Top = 20 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 18 + OnClick = Button1Click + end + end + object cxGrid1: TcxGrid + Left = 12 + Top = 136 + Width = 1057 + Height = 421 + PopupMenu = PopupMenu1 + 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 + end + item + Kind = skSum + end + item + Kind = skCount + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column10 + 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 + OptionsView.IndicatorWidth = 25 + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 48 + end + object v1Column6: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 84 + end + object v1Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCgangNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 88 + end + object v1Column13: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 80 + end + object v1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 58 + end + object v1Column23: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object v1Column12: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 57 + end + object v1Column3: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Column11: TcxGridDBColumn + Caption = #38271#24230#21333#20301 + DataBinding.FieldName = 'MJTypeOther' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 58 + end + object v1Column17: TcxGridDBColumn + Caption = #20837#24211#29366#24577 + DataBinding.FieldName = 'MJStr2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 63 + end + object v1Column20: TcxGridDBColumn + Caption = #25171#30721#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 73 + end + object v1Column21: TcxGridDBColumn + Caption = #25171#30721#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 94 + end + object v1Column5: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 222 + Top = 171 + 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 = 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, 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 = 264 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 608 + Top = 264 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 648 + Top = 232 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 752 + Top = 96 + end +end diff --git a/管理系统/U_JYOrderCDOne_Other.pas b/管理系统/U_JYOrderCDOne_Other.pas new file mode 100644 index 0000000..3adcdda --- /dev/null +++ b/管理系统/U_JYOrderCDOne_Other.pas @@ -0,0 +1,1110 @@ +unit U_JYOrderCDOne_Other; + +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,strUtils; + +type + TfrmJYOrderCDOne_other = 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; + MPRTMF: TEdit; + Label7: TLabel; + C_Color: TEdit; + Label8: TLabel; + Label9: TLabel; + BCgangNO: TEdit; + Label10: TLabel; + MJID: TEdit; + Label2: TLabel; + CDQK: TEdit; + Panel4: TPanel; + Label11: TLabel; + Panel10: TPanel; + Image2: TImage; + RichEdit1: TRichEdit; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + Label4: TLabel; + MJType: TComboBox; + v1Column13: TcxGridDBColumn; + Label5: TLabel; + C_CodeName: TEdit; + Label6: TLabel; + MJStr2: TComboBox; + v1Column17: TcxGridDBColumn; + Label12: TLabel; + Label13: TLabel; + AOrddefstr6: 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; + TBAftChkHX: TToolButton; + RadioGroup1: TRadioGroup; + MovePanel2: TMovePanel; + Tsave: TToolButton; + CheckBox1: TCheckBox; + v1Column3: TcxGridDBColumn; + AOrddefstr4: TEdit; + Label14: TLabel; + v1Column5: TcxGridDBColumn; + TRK: TToolButton; + ADOQueryTmp: TADOQuery; + Label15: TLabel; + Label16: TLabel; + Edit1: TEdit; + Edit2: TEdit; + Button1: 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 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 BCgangNOChange(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure TsaveClick(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; + var ADone: Boolean); + procedure TRKClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Edit1Exit(Sender: TObject); + private + DQdate:TDateTime; + FLeft,FTop:Integer; + procedure InitGrid(); + procedure InitGrid10(); + procedure InitForm(); + function Savedata():Boolean; + function SaveRK():Boolean; + { Private declarations } + public + FFInt:Integer; + { Public declarations } + end; +var + frmJYOrderCDOne_other: TfrmJYOrderCDOne_other; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun,U_MJEdit, U_MJEdit_other; + +{$R *.dfm} + +function TfrmJYOrderCDOne_other.SaveRK():Boolean; +var + maxno:String; + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; + MhcTime:TdateTime; +begin + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + + try + Order_Main.First; + Order_Main.DisableControls; + while not Order_Main.Eof do + begin + IF Order_Main.FieldByName('ssel').AsBoolean then + begin + with ADOQueryTmp do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID1 Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID1'); + Open; + end; + CRID:=ADOQueryTmp.fieldbyname('CRID').AsInteger; + if GetLSNo(ADOQueryTmp,MaxCkNo,'JT','CK_BanCP_CR1',4,1)=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 CK_BanCP_CR1 where 1<>1'); + Open; + end; + + mhcTime:=SGetServerDateTime(ADOQueryTmp); + + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('C_Code').Value:=Trim(Order_Main.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(Order_Main.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(Order_Main.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(Order_Main.fieldbyname('C_Color').AsString); + FieldByName('APID').Value:=Trim(Order_Main.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(Order_Main.fieldbyname('MJId').AsString); + FieldByName('mjxh').Value:=Trim(Order_Main.fieldbyname('mjxh').AsString); + FieldByName('BCGangNO').Value:=Trim(Order_Main.fieldbyname('BCGangNO').AsString); + FieldByName('RCGangNO').Value:=Trim(Order_Main.fieldbyname('RCGangNO').AsString); + 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:=Order_Main.fieldbyname('MJLen').Value; + FieldByName('RollNum').Value:=1; + FieldByName('QtyUnit').Value:=Order_Main.fieldbyname('MJTypeOther').Value; + FieldByName('CPType').Value:=Order_Main.fieldbyname('MJType').Value; + FieldByName('Note').Value:=Order_Main.fieldbyname('Note').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTmp); + // FieldByName('kcKw').Value:=Trim(kcKw.Text); + // fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('C_CodeName').AsString,ADOQueryMain.fieldbyname('C_Color').AsString); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 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:=Order_Main.fieldbyname('MJType').Value; + FieldByName('C_Code').Value:=Trim(Order_Main.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(Order_Main.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(Order_Main.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(Order_Main.fieldbyname('C_Color').AsString); + FieldByName('BCGangNO').Value:=Trim(Order_Main.fieldbyname('BCGangNO').AsString); + FieldByName('RCGangNO').Value:=Trim(Order_Main.fieldbyname('RCGangNO').AsString); + FieldByName('MJID').Value:=Trim(Order_Main.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=0; + FieldByName('KCQty').Value:=Order_Main.fieldbyname('MJlen').Value; + FieldByName('KCRollNum').Value:=1; + FieldByName('KCQtyUnit').Value:=Order_Main.fieldbyname('MJTypeOther').Value; + FieldByName('mjxh').Value:=Trim(Order_Main.fieldbyname('mjxh').AsString); + FieldByName('KCNote').Value:=Order_Main.fieldbyname('Note').Value; + // FieldByName('kcKw').Value:=Trim(kcKw.Text); + // fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('C_CodeName').AsString,ADOQueryMain.fieldbyname('C_Color').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY1 Set MJStr2='''' where MJID='''+Trim(Order_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + end; + Order_Main.Next; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ݱɹ','ʾ'); + Result:=true; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ݱʧܣ','ʾ',0); + end; +end; + +procedure TfrmJYOrderCDOne_other.FormDestroy(Sender: TObject); +begin + frmJYOrderCDOne_other:=nil; +end; + +procedure TfrmJYOrderCDOne_other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmJYOrderCDOne_other.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmJYOrderCDOne_other.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('鱨X',Tv1,''); +end; + +procedure TfrmJYOrderCDOne_other.InitGrid(); +var + i:integer; + j:Integer; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.*,case when A.MJQty1<>0 then 1 else 0 end as hc_RollNum, RollNum=1,CDQK='''' from WFB_MJJY1 A '); + sql.Add('where A.FillTime>='''+formatdateTime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add('and A.FillTime<'''+formatdateTime('yyyy-MM-dd',enddate.DateTime+1)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; +procedure TfrmJYOrderCDOne_other.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_other.InitForm(); +var + fsj:String; +begin + ReadCxGrid('鱨X',Tv1,''); + fsj:='select distinct(Filler) name from WFB_MJJY1 '; + SInitComBoxBySql(ADOQueryCmd,Filler,False,fsj); + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmJYOrderCDOne_other.TBFindClick(Sender: TObject); +var + fsj:String; +begin + if ADOQueryMain.Active=False then Exit; + if RadioGroup1.ItemIndex=0 then + begin + fsj:=' HXFlag=0 '; + end else + if RadioGroup1.ItemIndex=1 then + begin + fsj:=' HXFlag=1 '; + end else + if RadioGroup1.ItemIndex=0 then + begin + fsj:=''; + end; + if Trim(SGetFilters(Panel1,1,2))='' then + begin + fsj:=fsj; + end else + begin + fsj:=SGetFilters(Panel1,1,2)+' and '+fsj; + end; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + + +procedure TfrmJYOrderCDOne_other.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'鱨'); +end; + +procedure TfrmJYOrderCDOne_other.TBRafreshClick(Sender: TObject); +begin + OrderNo.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmJYOrderCDOne_other.OrderNoChange(Sender: TObject); +var + fsj:String; +begin + if ADOQueryMain.Active=False then Exit; + if Length(OrderNo.Text)<4 then Exit; + if RadioGroup1.ItemIndex=0 then + begin + fsj:=' HXFlag=0 '; + end else + if RadioGroup1.ItemIndex=1 then + begin + fsj:=' HXFlag=1 '; + end else + if RadioGroup1.ItemIndex=0 then + begin + fsj:=''; + end; + if Trim(SGetFilters(Panel1,1,2))='' then + begin + fsj:=fsj; + end else + begin + fsj:=SGetFilters(Panel1,1,2)+' and '+fsj; + end; + SDofilter(ADOQueryMain,fsj); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +procedure TfrmJYOrderCDOne_other.FormShow(Sender: TObject); +begin + InitForm(); + if Trim(DParameters2)='' then + begin + TBManage.Visible:=True; + TBZF.Visible:=True; + Tsave.Visible:=true; + //TBAftChkHX.Visible:=True; + end; +end; + +procedure TfrmJYOrderCDOne_other.Panel10MouseMove(Sender: TObject; + Shift: TShiftState; X, Y: Integer); +begin + ReleaseCapture; + TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); +end; + +procedure TfrmJYOrderCDOne_other.Image2Click(Sender: TObject); +begin + Panel4.Visible:=False; +end; + +procedure TfrmJYOrderCDOne_other.Tv1MouseUp(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft:=X; + FTop:=Y; +end; + +procedure TfrmJYOrderCDOne_other.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_other.TBManageClick(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR1 where MJID='''+Trim(Order_Main.fieldbyname('MJID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Order_Main.EnableControls; + Application.MessageBox('Ѳݲܱ༭!','ʾ',0); + Exit; + end; + + try + frmMJEdit_other:=TfrmMJEdit_other.Create(Application); + with frmMJEdit_other 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_MJJY1 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); + MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').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_CD1 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_other.Free; + end; +end; + +procedure TfrmJYOrderCDOne_other.N1Click(Sender: TObject); +begin + SelOKNo(Order_Main,True); +end; + +procedure TfrmJYOrderCDOne_other.N2Click(Sender: TObject); +begin + SelOKNo(Order_Main,False); +end; + +procedure TfrmJYOrderCDOne_other.TBZFClick(Sender: TObject); +var + strLog:string; +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_CR1 where MJID='''+Trim(Order_Main.fieldbyname('MJID').AsString)+''''); + Open; + end; + if ADOQueryTemp.IsEmpty=False then + begin + Order_Main.EnableControls; + Application.MessageBox('Ѳݲɾ!','ʾ',0); + Exit; + end else + begin + //begin + + strLog:=':'+Trim(Order_Main.fieldbyname('APID').AsString)+ + ' :'+Trim(Order_Main.fieldbyname('MJID').AsString)+ + ' ز:'+Trim(Order_Main.fieldbyname('hc_RollNum').AsString)+ + ' :'+Trim(Order_Main.fieldbyname('MJLen').AsString); + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete WFB_MJJY1 where MJID='''+Trim(Order_Main.fieldbyname('MJID').AsString)+''''); + // sql.Add('update JYOrder_Sub_AnPai_MX SET AOrdQty3=0 where APTm='''+Trim(Order_Main.fieldbyname('MJID').AsString)+''''); + sql.Add('delete WFB_MJJY_CD1 where MJID='''+Trim(Order_Main.fieldbyname('MJID').AsString)+''''); + // sql.Add('delete JYOrder_Sub_AnPai_MX where AOrdQty1=0 and APTm='''+Trim(Order_Main.fieldbyname('MJID').AsString)+''''); + // sql.Add('update JYOrder_Sub_AnPai SET AOrdQty1=(select sum(AOrdQty1) from JYOrder_Sub_AnPai_MX X where X.apid=JYOrder_Sub_AnPai.apid )'); + // sql.Add('where APID='+quotedstr(trim(Order_Main.fieldbyname('APID').AsString))); + { sql.Add('update YF_Money_CR SET Qty=(select sum(AOrdQty1) from JYOrder_Sub_AnPai X where X.apid=YF_Money_CR.YFTypeId )'); + sql.Add('where YFTypeId='+quotedstr(trim(Order_Main.fieldbyname('APID').AsString))); + sql.Add('update YF_Money_CR SET Money=Price*Qty,BBMoney=Price*Qty '); + sql.Add('where YFTypeId='+quotedstr(trim(Order_Main.fieldbyname('APID').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(strLog))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + + ExecSQL; + end; + // end; + end; + Order_Main.Delete; + end else + Next; + end; + end; + Order_Main.EnableControls; + +end; + +procedure TfrmJYOrderCDOne_other.ToolButton1Click(Sender: TObject); +var + fPrintFile:string; + Txt,fImagePath: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_MJJY1 Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where MJID='''+Trim(Order_Main.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(Order_Main.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); + Order_Main.EnableControls; + exit; + end; + with ADOQueryPrint do //ӢƲҪƷжȡҪڿͻԶжȡnoteֶΡ + begin + Close; + SQL.Clear; + sql.Add('select A.* '); + sql.Add(' from WFB_MJJY1 A') ; + SQL.Add(' where A.MJID='''+Trim(Order_Main.fieldbyname('MJID').AsString)+''''); + Open; + end; + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + // RM2.ShowReport; + RM2.PrintReport; + 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_other.RadioGroup1Click(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmJYOrderCDOne_other.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_other.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_other.BCgangNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmJYOrderCDOne_other.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_HZFX :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)+'%'+''''; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + MovePanel2.Visible:=False; + end; + + +end; + +procedure TfrmJYOrderCDOne_other.TsaveClick(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + BegDate.SetFocus; + + with Order_Main do + begin + DisableControls; + First; + while not Eof do + begin + IF fieldbyname('ssel').AsBoolean then + begin + iF trim(FieldByName('MJStr2').AsString)='' then + begin + EnableControls; + application.MessageBox(',ܱ!','ʾϢ',0); + exit; + end; + end; + Next; + end; + First; + EnableControls; + end; + + 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_MJJY1 SET mjQty1='+quotedstr(trim(Order_Main.fieldbyname('MJQty1').AsString))); + sql.Add(', mjlen='+quotedstr(trim(Order_Main.fieldbyname('mjlen').AsString))); + sql.Add('where MJID='+quotedstr(trim(Order_Main.fieldbyname('MJID').AsString))); + { sql.Add('update JYOrder_Sub_AnPai_MX SET AOrdQty1='+quotedstr(trim(Order_Main.fieldbyname('MJQty1').AsString))); + sql.Add(', AOrdQty3='+quotedstr(trim(Order_Main.fieldbyname('mjlen').AsString))); + sql.Add('where APTM='+quotedstr(trim(Order_Main.fieldbyname('MJID').AsString))); + sql.Add('update JYOrder_Sub_AnPai SET AOrdQty1=(select sum(AOrdQty1) from JYOrder_Sub_AnPai_MX X where X.apid=JYOrder_Sub_AnPai.apid )'); + sql.Add('where APID='+quotedstr(trim(Order_Main.fieldbyname('APID').AsString))); + sql.Add('update YF_Money_CR SET Qty=(select sum(AOrdQty1) from JYOrder_Sub_AnPai X where X.apid=YF_Money_CR.YFTypeId )'); + sql.Add('where YFTypeId='+quotedstr(trim(Order_Main.fieldbyname('APID').AsString))); + sql.Add('update YF_Money_CR SET Money=Price*Qty,BBMoney=Price*Qty '); + sql.Add('where YFTypeId='+quotedstr(trim(Order_Main.fieldbyname('APID').AsString))); + sql.Add('delete WFB_MJJY where mjlen=0 and MJID='+quotedstr(trim(Order_Main.fieldbyname('MJID').AsString))); } + execsql; + end; + end; + Next; + end; + First; + EnableControls; + end; + + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('ݱɹ','ʾϢ'); + InitGrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ݱʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmJYOrderCDOne_other.CheckBox1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + with Order_Main do + begin + DisableControls; + First; + while not Eof do + begin + Edit; + FieldByName('SSel').Value:=CheckBox1.Checked; + Post; + Next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmJYOrderCDOne_other.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 TfrmJYOrderCDOne_other.TRKClick(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + + IF saveRk() then TBRafresh.Click; +end; + +procedure TfrmJYOrderCDOne_other.Button1Click(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + BegDate.SetFocus; + + IF trim(Edit1.Text)='' then + begin + application.MessageBox('ƷΪգ','ʾϢ',0); + exit; + end; + + IF trim(Edit2.Text)='' then + begin + application.MessageBox('ɫΪգ','ʾϢ',0); + exit; + end; + + with Order_Main do + begin + DisableControls; + First; + while not Eof do + begin + IF fieldbyname('ssel').AsBoolean then + begin + iF trim(FieldByName('MJStr2').AsString)='' then + begin + EnableControls; + application.MessageBox(',ܱ!','ʾϢ',0); + exit; + end; + end; + Next; + end; + First; + EnableControls; + end; + + 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_MJJY1 SET C_CodeName='+quotedstr(trim(edit1.text))); + sql.Add(', C_Color='+quotedstr(trim(edit2.Text))); + sql.Add('where MJID='+quotedstr(trim(Order_Main.fieldbyname('MJID').AsString))); + { sql.Add('update JYOrder_Sub_AnPai_MX SET AOrdQty1='+quotedstr(trim(Order_Main.fieldbyname('MJQty1').AsString))); + sql.Add(', AOrdQty3='+quotedstr(trim(Order_Main.fieldbyname('mjlen').AsString))); + sql.Add('where APTM='+quotedstr(trim(Order_Main.fieldbyname('MJID').AsString))); + sql.Add('update JYOrder_Sub_AnPai SET AOrdQty1=(select sum(AOrdQty1) from JYOrder_Sub_AnPai_MX X where X.apid=JYOrder_Sub_AnPai.apid )'); + sql.Add('where APID='+quotedstr(trim(Order_Main.fieldbyname('APID').AsString))); + sql.Add('update YF_Money_CR SET Qty=(select sum(AOrdQty1) from JYOrder_Sub_AnPai X where X.apid=YF_Money_CR.YFTypeId )'); + sql.Add('where YFTypeId='+quotedstr(trim(Order_Main.fieldbyname('APID').AsString))); + sql.Add('update YF_Money_CR SET Money=Price*Qty,BBMoney=Price*Qty '); + sql.Add('where YFTypeId='+quotedstr(trim(Order_Main.fieldbyname('APID').AsString))); + sql.Add('delete WFB_MJJY where mjlen=0 and MJID='+quotedstr(trim(Order_Main.fieldbyname('MJID').AsString))); } + execsql; + end; + end; + Next; + end; + First; + EnableControls; + end; + + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('ݱɹ','ʾϢ'); + InitGrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ݱʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmJYOrderCDOne_other.Edit1Exit(Sender: TObject); +var + mvalue:string; +begin + mvalue:=TEdit(Sender).Text; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + TEdit(Sender).Text:= mvalue; +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_KCEdit.dfm b/管理系统/U_KCEdit.dfm new file mode 100644 index 0000000..85528e9 --- /dev/null +++ b/管理系统/U_KCEdit.dfm @@ -0,0 +1,98 @@ +object frmKCEdit: TfrmKCEdit + Left = 282 + Top = 264 + Width = 453 + Height = 317 + Caption = #24211#23384#20462#25913 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 12 + object Label1: TLabel + Left = 52 + Top = 68 + Width = 51 + Height = 16 + Caption = #36816#31639#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 = 52 + Top = 128 + Width = 51 + Height = 16 + Caption = #25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object RadioGroup1: TRadioGroup + Left = 100 + Top = 56 + Width = 241 + Height = 45 + Columns = 4 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemIndex = 0 + Items.Strings = ( + '+' + '-' + '*' + '/') + ParentFont = False + TabOrder = 0 + end + object cxCurrencyEdit2: TcxCurrencyEdit + Left = 104 + Top = 128 + ParentFont = False + Properties.DecimalPlaces = 4 + Properties.DisplayFormat = '0.####' + Properties.NullString = '0' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clRed + Style.Font.Height = -12 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 1 + Width = 237 + end + object Button1: TButton + Left = 84 + Top = 208 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 2 + OnClick = Button1Click + end + object Button2: TButton + Left = 264 + Top = 204 + Width = 75 + Height = 25 + Caption = #21462#28040 + TabOrder = 3 + OnClick = Button2Click + end +end diff --git a/管理系统/U_KCEdit.pas b/管理系统/U_KCEdit.pas new file mode 100644 index 0000000..cd769de --- /dev/null +++ b/管理系统/U_KCEdit.pas @@ -0,0 +1,56 @@ +unit U_KCEdit; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, + cxCurrencyEdit; + +type + TfrmKCEdit = class(TForm) + RadioGroup1: TRadioGroup; + Label1: TLabel; + Label2: TLabel; + cxCurrencyEdit2: TcxCurrencyEdit; + Button1: TButton; + Button2: TButton; + procedure Button2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure FormDestroy(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmKCEdit: TfrmKCEdit; + +implementation + +{$R *.dfm} + +procedure TfrmKCEdit.Button2Click(Sender: TObject); +begin + close; +end; + +procedure TfrmKCEdit.Button1Click(Sender: TObject); +begin + if strtofloatdef(cxCurrencyEdit2.Text,0)=0 then + begin + application.MessageBox('Ϊ㣡','ʾϢ',0); + exit; + end; + + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + ModalResult:=1; +end; + +procedure TfrmKCEdit.FormDestroy(Sender: TObject); +begin + frmKCEdit:=nil; +end; + +end. diff --git a/管理系统/U_KCRLLTZ.dfm b/管理系统/U_KCRLLTZ.dfm new file mode 100644 index 0000000..c9c97ef --- /dev/null +++ b/管理系统/U_KCRLLTZ.dfm @@ -0,0 +1,717 @@ +object frmKCRLLTZ: TfrmKCRLLTZ + Left = 285 + Top = 155 + Width = 1378 + Height = 754 + Caption = #25195#25551#37197#36135 + 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 = 1362 + 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 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + Visible = False + 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 = 33 + Width = 1362 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 24 + 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 SmNO: TEdit + Left = 128 + Top = 20 + Width = 201 + Height = 32 + CharCase = ecUpperCase + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = SmNOKeyPress + end + object CheckBox3: TCheckBox + Left = 736 + Top = 24 + Width = 97 + Height = 17 + Caption = #33258#21160#21462#20540 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 1 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 97 + Width = 537 + Height = 618 + Align = alLeft + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + 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 + Styles.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_fontBlack + object v1MJID: TcxGridDBColumn + Caption = #26465#30721#32534#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 172 + end + object v1P_Code: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Width = 106 + end + object v1P_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 73 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'kCQty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 76 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel2: TPanel + Left = 856 + Top = 96 + Width = 441 + Height = 345 + Caption = 'Panel2' + TabOrder = 3 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 439 + Height = 343 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + 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> + 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.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_fontBlack + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 192 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 70 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 102 + end + object V2Column1: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNO' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 84 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 93 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + object Panel3: TPanel + Left = 537 + Top = 97 + Width = 248 + Height = 618 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object Label5: TLabel + Left = 17 + Top = 59 + Width = 40 + Height = 22 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label9: TLabel + Left = 182 + Top = 59 + 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 Label32: TLabel + Left = 17 + Top = 264 + Width = 40 + Height = 22 + Caption = #25286#21305 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 117 + Top = 264 + Width = 40 + Height = 22 + Caption = #24182#21305 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 17 + Top = 328 + Width = 40 + Height = 22 + Caption = #25171#21360 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object MJLen: TEdit + Left = 65 + Top = 54 + Width = 110 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object Edit7: TEdit + Left = 62 + Top = 254 + 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 = 1 + Text = #8730 + OnClick = Edit7Click + end + object Edit8: TEdit + Left = 166 + Top = 254 + 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 = 2 + OnClick = Edit8Click + end + object Edit6: TEdit + Left = 62 + Top = 318 + 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 = 3 + Text = #8730 + OnClick = Edit6Click + end + object BTPrint: TButton + Left = 35 + Top = 411 + 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 = 4 + OnClick = BTPrintClick + end + object Button5: TButton + Left = 151 + Top = 411 + 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 = 5 + OnClick = Button5Click + end + end + object MovePanel1: TMovePanel + Left = -124 + Top = 249 + Width = 561 + Height = 305 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 4 + Visible = False + object Label2: TLabel + Left = 108 + 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 = 85 + Top = 35 + Width = 386 + Height = 72 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Text = '91209120001' + end + object Button4: TButton + Left = 224 + Top = 248 + Width = 75 + Height = 41 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button4Click + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 404 + Top = 216 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 656 + Top = 204 + end + object CDSOrder: TClientDataSet + Aggregates = <> + Params = <> + Left = 172 + Top = 144 + end + object CDSMJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 732 + Top = 212 + end + object DataSource1: TDataSource + DataSet = CDSOrder + Left = 232 + Top = 160 + end + object DataSource2: TDataSource + DataSet = CDSMJID + Left = 872 + Top = 248 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 352 + Top = 312 + end + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clInactiveCaption + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + 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 = -29 + 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 = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridFoot: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridHead: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + 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 = -29 + 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 = -29 + 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 = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontclFuchsia: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + 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 = -29 + 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 = -29 + 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 = -29 + 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 = -29 + 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 = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 680 + Top = 252 + 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 = ADOQueryPrint + Left = 648 + end +end diff --git a/管理系统/U_KCRLLTZ.pas b/管理系统/U_KCRLLTZ.pas new file mode 100644 index 0000000..a024657 --- /dev/null +++ b/管理系统/U_KCRLLTZ.pas @@ -0,0 +1,686 @@ +unit U_KCRLLTZ; + +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, RM_Dataset, RM_System, + RM_Common, RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator; + +function CommOpen(fhandle: hwnd; sCommName: PAnsiChar; IntTime: integer; IsMessage: integer): integer; stdcall; external 'JCYData.DLL'; + +function CommClose(sCommName: PAnsiChar): integer; stdcall; external 'JCYData.DLL'; + +type + TfrmKCRLLTZ = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1MJID: TcxGridDBColumn; + v1P_Code: TcxGridDBColumn; + v1P_Color: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel2: TPanel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + CDSOrder: TClientDataSet; + CDSMJID: TClientDataSet; + DataSource1: TDataSource; + DataSource2: TDataSource; + SmNO: TEdit; + ADOQueryTmp: TADOQuery; + MovePanel1: TMovePanel; + Label2: TLabel; + Edit2: TEdit; + Button4: TButton; + V2Column1: 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; + CheckBox3: TCheckBox; + Panel3: TPanel; + MJLen: TEdit; + Label5: TLabel; + Label9: TLabel; + Edit7: TEdit; + Label32: TLabel; + Label33: TLabel; + Edit8: TEdit; + Edit6: TEdit; + Label26: TLabel; + BTPrint: TButton; + Button5: TButton; + ADOQueryPrint: TADOQuery; + RM2: TRMGridReport; + RMDB_Main: TRMDBDataSet; + 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 Button4Click(Sender: TObject); + procedure Edit7Click(Sender: TObject); + procedure Edit8Click(Sender: TObject); + procedure Edit6Click(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure Button5Click(Sender: TObject); + private + procedure InitGrid(); + procedure InitMJID(); + function Savedata1(): boolean; + function Savedata2(): boolean; + procedure Printdata(fCRID: string); + procedure On1201(var Message: Tmessage); message 1201; + { Private declarations } + public + iscom: boolean; + { Public declarations } + end; + +var + frmKCRLLTZ: TfrmKCRLLTZ; + +implementation + +uses + U_DataLink, U_Fun, U_UserHelp, U_ZDYHelp; +{$R *.dfm} + +procedure TfrmKCRLLTZ.On1201(var Message: Tmessage); +var + i1, i2: integer; + unitname: string; + fdata: double; +begin + i1 := Message.WParam; + i2 := Message.LParam; + + if not CheckBox3.Checked then + exit; + + if trim(DParameters10) = 'С' then + MJLen.Text := format('%.2f', [i1 / 100000]) + else + MJLen.Text := format('%.0f', [i1 / 100000]); + if i2 = 0 then + Label9.Caption := 'M' + else + Label9.Caption := 'Y'; +end; + +procedure TfrmKCRLLTZ.Printdata(fCRID: string); +var + fPrintFile: string; + mvalue: Double; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.*,kcQty as mjlen,kcQtyUnit as MJTypeother,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add(' from CK_BanCP_KC A'); + //SQL.Add(' where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + SQL.Add(' where A.CRID=' + quotedstr(trim(fCRID))); + 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\ͨñǩ.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RM2.LoadFromFile(fPrintFile); + // RM2.ShowReport; + RM2.PrintReport; + // MJLen.SetFocus; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ǩ.rmf'), 'ʾ', 0); + end; + +end; + +function TfrmKCRLLTZ.Savedata2(): boolean; +var + i, FCRID: integer; + fconNo, FC_CodeName, FC_Color: string; + fRollNum, FQty: double; +begin + result := false; + if CDSOrder.RecordCount <= 1 then + begin + application.MessageBox('ϲƥСڻߵһƥɨ赽ƥ', 'ʾϢ', MB_ICONERROR); + exit; + end; + + i := 0; + with CDSOrder do + begin + DisableControls; + First; + while not eof do + begin + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.* from CK_BanCP_KC A'); + SQL.Add('where A.MJID=''' + CDSOrder.Fieldbyname('MJID').AsString + ''''); + sql.Add('and isnull(A.KCStatus,''0'')=''0'' '); + sql.Add('and KCQty>0 '); + Open; + if not IsEmpty then + begin + if Fieldbyname('BHFlag').AsBoolean = True then + begin +// MovePanel1.Visible := true; +// Edit2.Text := CDSOrder.Fieldbyname('MJID').AsString; +// Label2.Caption := 'ѱ'; + CDSOrder.EnableControls; + application.MessageBox(PChar(CDSOrder.Fieldbyname('MJID').AsString+'ѱ'), 'ʾϢ', 0); + exit; + end; + end; + end; + + if i = 0 then + begin +// fconNo:= trim(Fieldbyname('ConNo').AsString); + FC_CodeName := trim(Fieldbyname('C_CodeName').AsString); + FC_Color := trim(Fieldbyname('C_Color').AsString); + end + else + begin + { if trim(fconNo)<>trim(Fieldbyname('ConNo').AsString) then + begin + EnableControls; + application.MessageBox('񵥺Ųͬܺϲ','ʾϢ',0); + exit; + end; } + if trim(FC_CodeName) <> trim(Fieldbyname('C_CodeName').AsString) then + begin + EnableControls; + application.MessageBox('ƷƲͬܺϲ', 'ʾϢ', 0); + exit; + end; + if trim(FC_Color) <> trim(Fieldbyname('C_Color').AsString) then + begin + EnableControls; + application.MessageBox('ɫͬܺϲ', 'ʾϢ', 0); + exit; + end; + end; + i := i + 1; + next; + end; + EnableControls; + First; + end; + + if i < 2 then + exit; + + ADOQueryCmd.Connection.BeginTrans; + try + + fRollNum := 0; + FQty := 0; + i := 0; + with CDSOrder do + begin + DisableControls; + First; + while not eof do + begin + // if Fieldbyname('Ssel').AsBoolean then + // begin + if i = 0 then + FCRID := Fieldbyname('CRID').AsInteger; + + fRollNum := 1; + FQty := strtofloatdef(trim(MJLen.Text), 0); + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where CRID=' + quotedstr(trim(CDSOrder.Fieldbyname('CRID').AsString))); + open; + edit; + fieldbyname('ZDYstr1').Value := 'ϲ'; + fieldbyname('ZDYFlote1').Value := fieldbyname('kcQty').AsFloat; + FieldByName('oldCRID').Value := FCRID; + fieldbyname('KCROllNum').Value := 0; + fieldbyname('kcQty').Value := 0; + post; + end; + i := i + 1; + //end; + next; + end; + EnableControls; + First; + end; + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where CRID=' + quotedstr(inttostr(FCRID))); + open; + edit; + fieldbyname('KCROllNum').Value := 1; + fieldbyname('kcQty').Value := FQty; + post; + end; + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where CRID=' + quotedstr(inttostr(FCRID))); + open; + SInitCDSData20(adoqueryCmd, CDSMJID); + end; + + ADOQueryCmd.Connection.CommitTrans; + CDSOrder.EmptyDataSet; + if Trim(Edit6.Text) = '' then + begin + + printdata(inttostr(FCRID)); + end; + + ModalResult := 1; + // application.MessageBox('ݺϲɹ','ʾϢ'); + // TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + // application.MessageBox('ݺϲʧܣ','ʾϢ',0); + end; + +end; + +function TfrmKCRLLTZ.Savedata1(): boolean; +var + fbcID, FCRID, fAPTM: string; + CRID: integer; + i: integer; +begin + result := false; + + if CDSOrder.RecordCount > 1 then + begin + application.MessageBox('ֵƥܴһƥɨ赽ƥ', 'ʾϢ', MB_ICONERROR); + exit; + end; + if strtofloatdef(trim(mjlen.Text), 0) > CDSOrder.FieldByName('KCqty').AsFloat then + begin + application.MessageBox('ܴԭ', 'ʾϢ', MB_ICONERROR); + exit; + end; + + if GetLSNo(ADOQueryCmd, fAPTM, 'C', 'APTM', 4, 1) = False then + begin + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + + fbcID := CDSOrder.fieldbyname('BCID').AsString; + FCRID := CDSOrder.fieldbyname('CRID').AsString; + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC A'); + sql.Add('where BCID=' + quotedstr(trim(fbcID))); + sql.Add('and CRID=' + quotedstr(trim(FCRID))); + open; + 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').AsInteger; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC A'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + for i := 0 to ADOQueryCmd.FieldCount - 1 do + begin + ADOQueryCmd.fields[i].value := ADOQueryTmp.Fields[i].Value; + end; + ADOQueryCmd.FieldByName('CRID').Value := CRID; + ADOQueryCmd.FieldByName('KCROllNum').Value := 1; + ADOQueryCmd.FieldByName('KCQty').Value := strtofloatdef(MJLen.Text, 0); + ADOQueryCmd.FieldByName('oldCRID').Value := FCRID; + ADOQueryCmd.FieldByName('KCStatus').Value := NULL; + ADOQueryCmd.FieldByName('MJID').Value := trim(fAPTM); + ADOQueryCmd.fieldbyname('ZDYstr1').Value := ''; + ADOQueryCmd.fieldbyname('ZDYFlote1').Value := 0; + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC A'); + sql.Add('where CRID=''' + trim(FCRID) + ''''); + open; + end; + ADOQueryCmd.Edit; + ADOQueryCmd.FieldByName('KCROllNum').Value := ADOQueryCmd.FieldByName('KCROllNum').AsFloat - 1; + ADOQueryCmd.FieldByName('KCQty').Value := ADOQueryCmd.FieldByName('KCQty').AsFloat - strtofloatdef(MJLen.Text, 0); + ADOQueryCmd.fieldbyname('ZDYstr1').Value := ''; + ADOQueryCmd.fieldbyname('ZDYFlote1').Value := ADOQueryCmd.FieldByName('KCQty').AsFloat; + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCp_KC SET KCRollNum =1 '); + sql.Add('WHERE (KCQty<>0 or KCKgQty<>0)and KcRollNum=0 '); + ExecSQL; + end; + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where CRID=' + quotedstr(inttostr(CRID))); + open; + SInitCDSData20(adoqueryCmd, CDSMJID); + end; + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where CRID=' + quotedstr(FCRID)); + open; + SInitCDSData20(adoqueryCmd, CDSMJID); + end; + ADOQueryCmd.Connection.CommitTrans; + // application.MessageBox('ݱɹ','ʾϢ'); + CDSOrder.EmptyDataSet; + + if Trim(Edit6.Text) = '' then + begin + printdata(inttostr(CRID)); + printdata(FCRID); + end; + ModalResult := 1; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + end; + +end; + +procedure TfrmKCRLLTZ.InitGrid(); +begin + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_BanCP_KC A'); + SQL.Add('where 1=2 '); + Open; + end; + SCreateCDS20(ADOQueryMain, CDSOrder); + SInitCDSData20(ADOQueryMain, CDSOrder); + SCreateCDS20(ADOQueryMain, CDSMJID); + SInitCDSData20(ADOQueryMain, CDSMJID); +end; + +procedure TfrmKCRLLTZ.InitMJID(); +var + fP_No: string; +begin + MovePanel1.Visible := false; + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.* from CK_BanCP_KC A'); + // sql.add('left join CK_BanCP_CR B on B.BCID=A.BCID and B.CRFlag='''' '); + SQL.Add('where A.MJID=' + quotedstr(trim(SmNO.text))); + sql.Add('and isnull(A.KCStatus,''0'')=''0'' '); + sql.Add('and KCQty>0 '); + Open; + if not IsEmpty then + begin + if Fieldbyname('KCQty').AsFloat <= 0 then + begin + MovePanel1.Visible := true; + Edit2.Text := SmNO.Text; + Label2.Caption := 'ѳ'; + end + else + begin + SInitCDSData20(ADOQueryMain, CDSOrder); + end; + end + else + begin + MovePanel1.Visible := true; + Edit2.Text := SmNO.Text; + Label2.Caption := '벻'; + end; + end; +end; + +procedure TfrmKCRLLTZ.FormDestroy(Sender: TObject); +begin + wRITECxGrid(self.Caption + tV1.Name, Tv1, 'Ʒֿ'); + wRITECxGrid(self.Caption + TV2.Name, Tv2, 'Ʒֿ'); + frmKCRLLTZ := nil; +end; + +procedure TfrmKCRLLTZ.FormClose(Sender: TObject; var Action: TCloseAction); +begin + if iscom then + CommClose(pchar('com2')); + Action := caFree; +end; + +procedure TfrmKCRLLTZ.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmKCRLLTZ.FormCreate(Sender: TObject); +begin + Panel2.Align := alClient; +end; + +procedure TfrmKCRLLTZ.SmNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + MovePanel1.Visible := false; + if not CDSOrder.Locate('MJID', trim(smNo.Text), []) then + initMjid(); + smno.Text := ''; + smno.SetFocus; + + if trim(Edit8.Text) = '' then + begin + if not CDSOrder.IsEmpty then + MJLen.Text := floattostr(tv1.DataController.Summary.FooterSummaryValues[1]); + end; + end; +end; + +procedure TfrmKCRLLTZ.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption + tV1.Name, Tv1, 'Ʒֿ'); + ReadCxGrid(self.Caption + TV2.Name, Tv2, 'Ʒֿ'); + MovePanel1.Left := (Width - MovePanel1.Width) div 2; + MovePanel1.top := (Height - MovePanel1.Height - 200) div 2; + InitGrid(); + if iscom then + begin + if CommOpen(frmKCRLLTZ.Handle, '', 500, 1) < 1 then + begin + showmessage('򿪴ڴ'); + end; + end; + SmNO.SetFocus; +end; + +procedure TfrmKCRLLTZ.Button4Click(Sender: TObject); +begin + MovePanel1.Visible := false; +end; + +procedure TfrmKCRLLTZ.Edit7Click(Sender: TObject); +begin + if Trim(Edit7.Text) = '' then + begin + Edit7.Text := ''; + Edit8.Text := ''; + // Edit9.Text:=''; + end + else + begin + Edit7.Text := ''; + Edit8.Text := ''; + // Edit9.Text:=''; + end; +end; + +procedure TfrmKCRLLTZ.Edit8Click(Sender: TObject); +begin + if Trim(Edit8.Text) = '' then + begin + Edit7.Text := ''; + Edit8.Text := ''; + // Edit9.Text:=''; + end + else + begin + Edit7.Text := ''; + Edit8.Text := ''; + // Edit9.Text:=''; + end; + if trim(Edit8.Text) = '' then + begin + if not CDSOrder.IsEmpty then + MJLen.Text := floattostr(tv1.DataController.Summary.FooterSummaryValues[1]); + end; +end; + +procedure TfrmKCRLLTZ.Edit6Click(Sender: TObject); +begin + if Trim(Edit6.Text) = '' then + begin + Edit6.Text := ''; + end + else + begin + Edit6.Text := ''; + end; +end; + +procedure TfrmKCRLLTZ.BTPrintClick(Sender: TObject); +begin + if Trim(Edit7.Text) = '' then + begin + savedata1(); + end; + if Trim(Edit8.Text) = '' then + begin + savedata2(); + end; + SmNO.SetFocus; +end; + +procedure TfrmKCRLLTZ.Tv1DblClick(Sender: TObject); +begin + if CDSOrder.IsEmpty then + exit; + CDSOrder.Delete; +end; + +procedure TfrmKCRLLTZ.Button5Click(Sender: TObject); +begin + if CDSMJID.IsEmpty then + exit; + printdata(CDSMJID.fieldbyname('CRID').AsString); + SmNO.SetFocus; +end; + +end. + diff --git a/管理系统/U_KCRLLTZ_other.dfm b/管理系统/U_KCRLLTZ_other.dfm new file mode 100644 index 0000000..95dcfd5 --- /dev/null +++ b/管理系统/U_KCRLLTZ_other.dfm @@ -0,0 +1,715 @@ +object frmKCRLLTZ_other: TfrmKCRLLTZ_other + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #25195#25551#37197#36135 + 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 + 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 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 14 + Visible = False + 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 = 33 + Width = 1366 + Height = 64 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 24 + Top = 24 + 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 SmNO: TEdit + Left = 128 + Top = 20 + Width = 201 + Height = 32 + CharCase = ecUpperCase + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = SmNOKeyPress + end + object CheckBox3: TCheckBox + Left = 736 + Top = 24 + Width = 97 + Height = 17 + Caption = #33258#21160#21462#20540 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 1 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 97 + Width = 537 + Height = 619 + Align = alLeft + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + 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 + Styles.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_fontBlack + object v1MJID: TcxGridDBColumn + Caption = #26465#30721#32534#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 172 + end + object v1P_Code: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Width = 106 + end + object v1P_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object v1RollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 73 + end + object v1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'kCQty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 76 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel2: TPanel + Left = 856 + Top = 96 + Width = 441 + Height = 345 + Caption = 'Panel2' + TabOrder = 3 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 439 + Height = 343 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + 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> + 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.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_fontBlack + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 192 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 70 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 102 + end + object V2Column1: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNO' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 84 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 93 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + object Panel3: TPanel + Left = 537 + Top = 97 + Width = 248 + Height = 619 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 5 + object Label5: TLabel + Left = 17 + Top = 59 + Width = 40 + Height = 22 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label9: TLabel + Left = 182 + Top = 59 + 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 Label32: TLabel + Left = 17 + Top = 264 + Width = 40 + Height = 22 + Caption = #25286#21305 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 117 + Top = 264 + Width = 40 + Height = 22 + Caption = #24182#21305 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 17 + Top = 328 + Width = 40 + Height = 22 + Caption = #25171#21360 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object MJLen: TEdit + Left = 65 + Top = 54 + Width = 110 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object Edit7: TEdit + Left = 62 + Top = 254 + 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 = 1 + OnClick = Edit7Click + end + object Edit8: TEdit + Left = 166 + Top = 254 + 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 = 2 + OnClick = Edit8Click + end + object Edit6: TEdit + Left = 62 + Top = 318 + 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 = 3 + Text = #8730 + OnClick = Edit6Click + end + object BTPrint: TButton + Left = 35 + Top = 411 + 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 = 4 + OnClick = BTPrintClick + end + object Button5: TButton + Left = 151 + Top = 411 + 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 = 5 + OnClick = Button5Click + end + end + object MovePanel1: TMovePanel + Left = -124 + Top = 249 + Width = 561 + Height = 305 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 4 + Visible = False + object Label2: TLabel + Left = 108 + 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 = 85 + Top = 35 + Width = 386 + Height = 72 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Text = '91209120001' + end + object Button4: TButton + Left = 224 + Top = 248 + Width = 75 + Height = 41 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button4Click + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 404 + Top = 216 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 656 + Top = 204 + end + object CDSOrder: TClientDataSet + Aggregates = <> + Params = <> + Left = 172 + Top = 144 + end + object CDSMJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 732 + Top = 212 + end + object DataSource1: TDataSource + DataSet = CDSOrder + Left = 232 + Top = 160 + end + object DataSource2: TDataSource + DataSet = CDSMJID + Left = 872 + Top = 248 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 352 + Top = 312 + end + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clInactiveCaption + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + 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 = -29 + 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 = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridFoot: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridHead: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + 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 = -29 + 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 = -29 + 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 = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontclFuchsia: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + 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 = -29 + 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 = -29 + 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 = -29 + 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 = -29 + 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 = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 680 + Top = 252 + 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 = ADOQueryPrint + Left = 648 + end +end diff --git a/管理系统/U_KCRLLTZ_other.pas b/管理系统/U_KCRLLTZ_other.pas new file mode 100644 index 0000000..68b52c2 --- /dev/null +++ b/管理系统/U_KCRLLTZ_other.pas @@ -0,0 +1,639 @@ +unit U_KCRLLTZ_other; + +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, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport; + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + +type + TfrmKCRLLTZ_other = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1MJID: TcxGridDBColumn; + v1P_Code: TcxGridDBColumn; + v1P_Color: TcxGridDBColumn; + v1RollNum: TcxGridDBColumn; + v1Qty: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel2: TPanel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + CDSOrder: TClientDataSet; + CDSMJID: TClientDataSet; + DataSource1: TDataSource; + DataSource2: TDataSource; + SmNO: TEdit; + ADOQueryTmp: TADOQuery; + MovePanel1: TMovePanel; + Label2: TLabel; + Edit2: TEdit; + Button4: TButton; + V2Column1: 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; + CheckBox3: TCheckBox; + Panel3: TPanel; + MJLen: TEdit; + Label5: TLabel; + Label9: TLabel; + Edit7: TEdit; + Label32: TLabel; + Label33: TLabel; + Edit8: TEdit; + Edit6: TEdit; + Label26: TLabel; + BTPrint: TButton; + Button5: TButton; + ADOQueryPrint: TADOQuery; + RM2: TRMGridReport; + RMDB_Main: TRMDBDataSet; + 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 Button4Click(Sender: TObject); + procedure Edit7Click(Sender: TObject); + procedure Edit8Click(Sender: TObject); + procedure Edit6Click(Sender: TObject); + procedure BTPrintClick(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure Button5Click(Sender: TObject); + private + procedure InitGrid(); + procedure InitMJID(); + function Savedata1():boolean; + function Savedata2():boolean; + procedure Printdata(fCRID:string); + procedure On1201(Var Message:Tmessage); + { Private declarations } + public + iscom:boolean; + { Public declarations } + end; + +var + frmKCRLLTZ_other: TfrmKCRLLTZ_other; + +implementation +uses + U_DataLink,U_Fun, U_UserHelp, U_ZDYHelp; +{$R *.dfm} +procedure TfrmKCRLLTZ_other.On1201(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + + IF not CheckBox3.Checked then exit; + + IF trim(DParameters10)='С'then + MJLen.Text:= format('%.2f',[i1/100000]) + else + MJLen.Text:= format('%.0f',[i1/100000]); + IF i2=0 then Label9.Caption:='M' else Label9.Caption:='Y'; +end; + +procedure TfrmKCRLLTZ_other.Printdata(fCRID:string); +var + fPrintFile:String; + mvalue:Double; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.*,kcQty as mjlen,kcQtyUnit as MJTypeother '); + sql.Add(' from CK_BanCP_KC1 A') ; + //SQL.Add(' where A.MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+''''); + SQL.Add(' where A.CRID='+quotedstr(trim(fCRID))); + 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\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + // RM2.ShowReport; + RM2.PrintReport; + // MJLen.SetFocus; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; + +end; +function TfrmKCRLLTZ_other.Savedata2():boolean; +var + i,FCRID:integer; + fconNo,FC_CodeName,FC_Color:string; + fRollNum,FQty:double; +begin + result:=false; + IF CDSOrder.RecordCount<=1 then + begin + application.MessageBox('ϲƥСڻߵһƥɨ赽ƥ','ʾϢ',MB_ICONERROR); + exit; + end; + + i:=0; + with CDSOrder do + begin + DisableControls; + First; + while not eof do + begin + if i=0 then + begin +// fconNo:= trim(Fieldbyname('ConNo').AsString); + FC_CodeName:= trim(Fieldbyname('C_CodeName').AsString); + FC_Color:= trim(Fieldbyname('C_Color').AsString); + end + else + begin + { if trim(fconNo)<>trim(Fieldbyname('ConNo').AsString) then + begin + EnableControls; + application.MessageBox('񵥺Ųͬܺϲ','ʾϢ',0); + exit; + end; } + if trim(FC_CodeName)<>trim(Fieldbyname('C_CodeName').AsString) then + begin + EnableControls; + application.MessageBox('ƷƲͬܺϲ','ʾϢ',0); + exit; + end; + if trim(FC_Color)<>trim(Fieldbyname('C_Color').AsString) then + begin + EnableControls; + application.MessageBox('ɫͬܺϲ','ʾϢ',0); + exit; + end; + end; + i:=i+1; + next; + end; + EnableControls; + First; + end; + + if i<2 then exit; + + ADOQueryCmd.Connection.BeginTrans; + try + + fRollNum:=0; + FQty:=0; + i:=0; + with CDSOrder do + begin + DisableControls; + First; + while not eof do + begin + // if Fieldbyname('Ssel').AsBoolean then + // begin + IF i=0 then + fCRID:=Fieldbyname('CRID').AsInteger; + + fRollNum:=1; + FQty:=strtofloatdef(trim(MJLen.Text),0); + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 '); + sql.Add('where CRID='+quotedstr(trim(CDSOrder.Fieldbyname('CRID').AsString))); + open; + edit; + fieldbyname('ZDYstr1').Value:='ϲ'; + fieldbyname('ZDYFlote1').Value:=fieldbyname('kcQty').AsFloat; + FieldByName('oldCRID').Value:=fCRID; + fieldbyname('KCROllNum').Value:=0; + fieldbyname('kcQty').Value:=0; + post; + end; + i:=i+1; + //end; + next; + end; + EnableControls; + First; + end; + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 '); + sql.Add('where CRID='+quotedstr(inttostr(fCRID))); + open; + edit; + fieldbyname('KCROllNum').Value:=1; + fieldbyname('kcQty').Value:=FQty; + post; + end; + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 '); + sql.Add('where CRID='+quotedstr(inttostr(fCRID))); + open; + SInitCDSData20(adoqueryCmd,CDSMJID); + end; + + ADOQueryCmd.Connection.CommitTrans; + CDSOrder.EmptyDataSet; + if Trim(Edit6.Text)='' then + begin + + printdata(inttostr(fCRID)); + end; + + ModalResult:=1; + // application.MessageBox('ݺϲɹ','ʾϢ'); + // TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + // application.MessageBox('ݺϲʧܣ','ʾϢ',0); + end; + + + +end; + +function TfrmKCRLLTZ_other.Savedata1():boolean; +var + fbcID,FCRID,fAPTM:string; + CRID:integer; + i:integer; +begin + result:=false; + + IF CDSOrder.RecordCount>1 then + begin + application.MessageBox('ֵƥܴһƥɨ赽ƥ','ʾϢ',MB_ICONERROR); + exit; + end; + IF strtofloatdef(trim(mjlen.Text),0)>CDSOrder.FieldByName('KCqty').AsFloat then + begin + application.MessageBox('ܴԭ','ʾϢ',MB_ICONERROR); + exit; + end; + + if GetLSNo(ADOQueryCmd,fAPTM,'C','APTM',4,1)=False then + begin + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + + fbcID:=CDSOrder.fieldbyname('BCID').AsString; + fcrID:=CDSOrder.fieldbyname('CRID').AsString; + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 A'); + sql.Add('where BCID='+quotedstr(trim(fBCID))); + sql.Add('and CRID='+quotedstr(trim(fCRID))); + open; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID1 Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID1'); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsInteger; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 A'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + for i:=0 to ADOQueryCmd.FieldCount-1 do + begin + ADOQueryCmd.fields[i].value:=ADOQueryTmp.Fields[i].Value ; + end; + ADOQueryCmd.FieldByName('CRID').Value:=CRID; + ADOQueryCmd.FieldByName('KCROllNum').Value:=1; + ADOQueryCmd.FieldByName('KCQty').Value:=strtofloatdef(MJLen.Text,0); + ADOQueryCmd.FieldByName('oldCRID').Value:=fcrID; + ADOQueryCmd.FieldByName('KCStatus').Value:=NULL; + ADOQueryCmd.FieldByName('MJID').Value:=trim(fAPTM); + ADOQueryCmd.fieldbyname('ZDYstr1').Value:=''; + ADOQueryCmd.fieldbyname('ZDYFlote1').Value:= 0; + ADOQueryCmd.Post; + + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 A'); + sql.Add('where CRID='''+trim(fCRID)+''''); + open; + end; + ADOQueryCmd.Edit; + ADOQueryCmd.FieldByName('KCROllNum').Value:=ADOQueryCmd.FieldByName('KCROllNum').AsFloat - 1; + ADOQueryCmd.FieldByName('KCQty').Value:=ADOQueryCmd.FieldByName('KCQty').AsFloat - strtofloatdef(MJLen.Text,0); + ADOQueryCmd.fieldbyname('ZDYstr1').Value:=''; + ADOQueryCmd.fieldbyname('ZDYFlote1').Value:= ADOQueryCmd.FieldByName('KCQty').AsFloat; + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCp_KC1 SET KCRollNum =1 '); + sql.Add('WHERE (KCQty<>0 or KCKgQty<>0)and KcRollNum=0 '); + ExecSQL; + end; + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 '); + sql.Add('where CRID='+quotedstr(inttostr(CRID))); + open; + SInitCDSData20(adoqueryCmd,CDSMJID); + end; + + with adoqueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 '); + sql.Add('where CRID='+quotedstr(fCRID)); + open; + SInitCDSData20(adoqueryCmd,CDSMJID); + end; + ADOQueryCmd.Connection.CommitTrans; + // application.MessageBox('ݱɹ','ʾϢ'); + CDSOrder.EmptyDataSet; + + if Trim(Edit6.Text)='' then + begin + printdata(inttostr(CRID)); + printdata(fCRID); + end; + ModalResult:=1; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ݱʧܣ','ʾϢ',0); + end; + +end; + +procedure TfrmKCRLLTZ_other.InitGrid(); +begin + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_BanCP_KC1 A'); + SQL.Add('where 1=2 '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDSOrder); + SInitCDSData20(ADOQueryMain,CDSOrder); + SCreateCDS20(ADOQueryMain,CDSMJID); + SInitCDSData20(ADOQueryMain,CDSMJID); +end; + +procedure TfrmKCRLLTZ_other.InitMJID(); +var + fP_No:string; +begin + MovePanel1.Visible:=false; + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.* from CK_BanCP_KC1 A'); + // sql.add('left join CK_BanCP_CR B on B.BCID=A.BCID and B.CRFlag='''' '); + SQL.Add('where A.MJID='+quotedstr(trim(SmNO.text))); + sql.Add('and isnull(A.KCStatus,''0'')=''0'' '); + sql.Add('and KCQty>0 '); + Open; + if not IsEmpty then + begin + IF Fieldbyname('KCQty').AsFloat<=0 then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='ѳ'; + end + else + begin + SInitCDSData20(ADOQueryMain,CDSOrder); + end; + end + else + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='벻'; + end; + end; +end; + +procedure TfrmKCRLLTZ_other.FormDestroy(Sender: TObject); +begin + wRITECxGrid(self.Caption+tV1.Name,Tv1,'Ʒֿ'); + wRITECxGrid(self.Caption+TV2.Name,Tv2,'Ʒֿ'); + frmKCRLLTZ_other:=nil; +end; + +procedure TfrmKCRLLTZ_other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + if iscom then + CommClose(pchar('com2')); + Action:=caFree; +end; + +procedure TfrmKCRLLTZ_other.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmKCRLLTZ_other.FormCreate(Sender: TObject); +begin + Panel2.Align:=alClient; +end; + +procedure TfrmKCRLLTZ_other.SmNOKeyPress(Sender: TObject; var Key: Char); +begin + IF key=#13 then + begin + MovePanel1.Visible:=false; + if not CDSOrder.Locate('MJID',trim(smNo.Text),[]) then + initMjid(); + smno.Text:=''; + smno.SetFocus; + end; +end; + +procedure TfrmKCRLLTZ_other.FormShow(Sender: TObject); +begin + ReadCxGrid(self.Caption+tV1.Name,Tv1,'Ʒֿ'); + ReadCxGrid(self.Caption+TV2.Name,Tv2,'Ʒֿ'); + MovePanel1.Left:=(Width-MovePanel1.Width) div 2; + MovePanel1.top:=(Height-MovePanel1.Height-200) div 2; + InitGrid(); + if iscom then + begin + if CommOpen(frmKCRLLTZ_other.Handle,'',500,1)<1 then + begin + showmessage('򿪴ڴ'); + end; + end; + SmNO.SetFocus; +end; + +procedure TfrmKCRLLTZ_other.Button4Click(Sender: TObject); +begin + MovePanel1.Visible:=false; +end; + +procedure TfrmKCRLLTZ_other.Edit7Click(Sender: TObject); +begin + if Trim(Edit7.Text)='' then + begin + Edit7.Text:=''; + Edit8.Text:=''; + // Edit9.Text:=''; + end else + begin + Edit7.Text:=''; + Edit8.Text:=''; + // Edit9.Text:=''; + end; +end; + +procedure TfrmKCRLLTZ_other.Edit8Click(Sender: TObject); +begin + if Trim(Edit8.Text)='' then + begin + Edit7.Text:=''; + Edit8.Text:=''; + // Edit9.Text:=''; + end else + begin + Edit7.Text:=''; + Edit8.Text:=''; + // Edit9.Text:=''; + end; +end; + +procedure TfrmKCRLLTZ_other.Edit6Click(Sender: TObject); +begin + if Trim(Edit6.Text)='' then + begin + Edit6.Text:=''; + end else + begin + Edit6.Text:=''; + end; +end; + +procedure TfrmKCRLLTZ_other.BTPrintClick(Sender: TObject); +begin + if Trim(Edit7.Text)='' then + begin + savedata1(); + end; + if Trim(Edit8.Text)='' then + begin + savedata2(); + end; + SmNO.SetFocus; +end; + +procedure TfrmKCRLLTZ_other.Tv1DblClick(Sender: TObject); +begin + IF CDSOrder.IsEmpty then exit; + CDSOrder.Delete; +end; + +procedure TfrmKCRLLTZ_other.Button5Click(Sender: TObject); +begin + If CDSMJID.IsEmpty then exit; + printdata(CDSMJID.fieldbyname('CRID').AsString); + SmNO.SetFocus; +end; + +end. diff --git a/管理系统/U_KH_XS_YP_list.dfm b/管理系统/U_KH_XS_YP_list.dfm new file mode 100644 index 0000000..f3bfbd4 --- /dev/null +++ b/管理系统/U_KH_XS_YP_list.dfm @@ -0,0 +1,698 @@ +object frmKH_XS_YP_list: TfrmKH_XS_YP_list + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #38144#21806#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 = 1366 + 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 + Visible = False + 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 = 1366 + Height = 44 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 379 + Top = 16 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object Label4: TLabel + Left = 640 + Top = 68 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 28 + Top = 16 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 172 + Top = 16 + Width = 6 + Height = 12 + Caption = '-' + end + object Label5: TLabel + Left = 32 + Top = 52 + 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 = 240 + Top = 64 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label11: TLabel + Left = 559 + Top = 16 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + end + object factoryName: TEdit + Tag = 2 + Left = 412 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = factoryNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 676 + Top = 61 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = factoryNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 13 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 185 + Top = 13 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object conNO: TEdit + Tag = 2 + Left = 78 + Top = 45 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = factoryNameChange + end + object MJID: TEdit + Tag = 2 + Left = 86 + Top = 73 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = factoryNameChange + end + object KZ: TEdit + Tag = 2 + Left = 240 + Top = 89 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = factoryNameChange + end + object MF: TEdit + Tag = 2 + Left = 452 + Top = 88 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = factoryNameChange + 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 Edit1: TEdit + Left = 268 + Top = 60 + Width = 113 + Height = 20 + TabOrder = 9 + end + object ywy: TEdit + Tag = 2 + Left = 604 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = factoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 77 + Width = 954 + Height = 638 + Align = alClient + TabOrder = 2 + 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 = 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> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = 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 v1Column1: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'factoryName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 220 + end + object v1Column11: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'ywy' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #26679#21697#38144#21806#25968#37327 + DataBinding.FieldName = 'Y_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 120 + end + object v1Column10: TcxGridDBColumn + Caption = #26679#21697#38144#21806#37329#39069 + DataBinding.FieldName = 'Y_money' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 120 + end + object v1Column2: TcxGridDBColumn + Caption = #22823#36135#38144#21806#21305#25968 + DataBinding.FieldName = 'X_RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 120 + end + object v1Column3: TcxGridDBColumn + Caption = #22823#36135#38144#21806#25968#37327 + DataBinding.FieldName = 'X_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 120 + end + object v1Column4: TcxGridDBColumn + Caption = #22823#36135#38144#21806#37329#39069 + DataBinding.FieldName = 'X_Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 120 + 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 GroupBox1: TGroupBox + Left = 954 + Top = 77 + Width = 412 + Height = 638 + Align = alRight + Caption = #23458#25143#38144#21806#20998#26512 + TabOrder = 4 + object cxGrid1: TcxGrid + Left = 2 + Top = 14 + Width = 408 + Height = 622 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_sub + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V2Column3 + end + item + Kind = skSum + Column = V2Column4 + end + item + Kind = skSum + Column = V2Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object V2Column2: TcxGridDBColumn + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Width = 77 + end + object V2Column7: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'P_CodeName' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V2Column8: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'P_Color' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object V2Column3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Width = 33 + end + object V2Column4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Width = 51 + end + object V2Column5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Width = 48 + end + object V2Column6: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + 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 = 460 + Top = 128 + end + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + PixelsPerInch = 96 + 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 DS_sub: TDataSource + DataSet = ADO_Sub + Left = 700 + Top = 160 + end + object ADO_Sub: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 776 + Top = 44 + end +end diff --git a/管理系统/U_KH_XS_YP_list.pas b/管理系统/U_KH_XS_YP_list.pas new file mode 100644 index 0000000..4ab9075 --- /dev/null +++ b/管理系统/U_KH_XS_YP_list.pas @@ -0,0 +1,246 @@ +unit U_KH_XS_YP_list; + +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, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + +type + TfrmKH_XS_YP_list = 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; + factoryName: 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; + Label10: TLabel; + Edit1: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: 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; + v1Column11: TcxGridDBColumn; + ywy: TEdit; + Label11: TLabel; + GroupBox1: TGroupBox; + cxGrid1: TcxGrid; + TV2: TcxGridDBTableView; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + V2Column5: TcxGridDBColumn; + V2Column6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + DS_sub: TDataSource; + ADO_Sub: TADOQuery; + V2Column7: TcxGridDBColumn; + V2Column8: 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 factoryNameChange(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitGrid(); + procedure Initsub(); + { Private declarations } + public + { Public declarations } + end; + +var + frmKH_XS_YP_list: TfrmKH_XS_YP_list; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} +procedure TfrmKH_XS_YP_list.Initsub(); +begin + ADO_Sub.Close; + IF CDS_Main.IsEmpty then exit; + with ADO_Sub do + begin + close; + sql.Clear; + sql.Add('select A.CRTime,A.P_CodeName,A.P_Color,B.PRTPrice, C.CustomerNoName,SUM(Qty) as Qty,cast(SUM(Qty*B.PRTPrice) as decimal(18,0)) as money,RollNum=SUM(case when Qty<50 then 0 else 1 end) '); + sql.Add(',ywy=(select Top 1 defstr5 from KH_Zdy_Attachment X where X.zdyName=C.CustomerNoName and Type=''KHName'') '); + sql.Add(' from BP_INout A '); + sql.Add(' inner join JYOrder_Sub B on B.MainId=A.MainId and B.SubId=A.SubId '); + sql.Add(' inner join JYOrder_Main C on C.MainId=A.MainId '); + 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 C.CustomerNoName='+quotedstr(trim(CDS_Main.fieldbyName('factoryName').AsString))); + sql.Add(' and A.CRType=''Ʒ۳'' '); + sql.Add(' group by A.CRTime,A.P_CodeName,A.P_Color,B.PRTPrice,C.CustomerNoName '); + sql.Add(' order by A.CRTime desc '); + + open; + end; +end; + +procedure TfrmKH_XS_YP_list.FormDestroy(Sender: TObject); +begin + frmKH_XS_YP_list:=nil; +end; + +procedure TfrmKH_XS_YP_list.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmKH_XS_YP_list.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + // BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + begdate.DateTime:=strtodateTime(formatdateTime('yyyy-MM',EndDate.DateTime)+'-01'); +end; + +procedure TfrmKH_XS_YP_list.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add(' exec P_Get_KH_XS_YP '); + sql.Add(' @begdate='''+formatdatetime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(',@enddate='''+formatdatetime('yyyy-MM-dd',enddate.DateTime+1)+''' '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + Initsub(); + end; +end; + +procedure TfrmKH_XS_YP_list.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmKH_XS_YP_list.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmKH_XS_YP_list.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmKH_XS_YP_list.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + + //InitGrid(); +end; + +procedure TfrmKH_XS_YP_list.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid2); +end; + +procedure TfrmKH_XS_YP_list.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 TfrmKH_XS_YP_list.factoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmKH_XS_YP_list.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + Initsub(); +end; + +end. diff --git a/管理系统/U_KH_XS_list.dfm b/管理系统/U_KH_XS_list.dfm new file mode 100644 index 0000000..fd35d20 --- /dev/null +++ b/管理系统/U_KH_XS_list.dfm @@ -0,0 +1,731 @@ +object frmKH_XS_list: TfrmKH_XS_list + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #38144#21806#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 = 1366 + 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 + Visible = False + 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 = 1366 + Height = 44 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 379 + Top = 16 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object Label4: TLabel + Left = 640 + Top = 68 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 28 + Top = 16 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 172 + Top = 16 + Width = 6 + Height = 12 + Caption = '-' + end + object Label5: TLabel + Left = 32 + Top = 52 + 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 = 240 + Top = 64 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label11: TLabel + Left = 559 + Top = 16 + Width = 36 + Height = 12 + Caption = #19994#21153#21592 + end + object customerNoName: TEdit + Tag = 2 + Left = 412 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = customerNoNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 676 + Top = 61 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = customerNoNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 13 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 185 + Top = 13 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object conNO: TEdit + Tag = 2 + Left = 78 + Top = 45 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = customerNoNameChange + end + object MJID: TEdit + Tag = 2 + Left = 86 + Top = 73 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = customerNoNameChange + end + object KZ: TEdit + Tag = 2 + Left = 240 + Top = 89 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = customerNoNameChange + end + object MF: TEdit + Tag = 2 + Left = 452 + Top = 88 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = customerNoNameChange + 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 Edit1: TEdit + Left = 268 + Top = 60 + Width = 113 + Height = 20 + TabOrder = 9 + end + object ywy: TEdit + Tag = 2 + Left = 604 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 10 + OnChange = customerNoNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 77 + Width = 954 + Height = 638 + Align = alClient + TabOrder = 2 + 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 = v1Column2 + 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 + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Column10 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = 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 v1Column1: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'customerNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 220 + end + object v1Column11: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'ywy' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #22823#36135#38144#21806#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 120 + end + object v1Column3: TcxGridDBColumn + Caption = #22823#36135#38144#21806#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 120 + end + object v1Column4: TcxGridDBColumn + Caption = #22823#36135#38144#21806#37329#39069 + DataBinding.FieldName = 'Money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 120 + end + object v1Column5: TcxGridDBColumn + Caption = #36864#36135#21305#25968 + DataBinding.FieldName = 'T_RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 120 + end + object v1Column6: TcxGridDBColumn + Caption = #36864#36135#25968#37327 + DataBinding.FieldName = 'T_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 120 + end + object v1Column7: TcxGridDBColumn + Caption = #36864#36135#37329#39069 + DataBinding.FieldName = 'T_money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 120 + end + object v1Column9: TcxGridDBColumn + Caption = #26679#21697#38144#21806#25968#37327 + DataBinding.FieldName = 'Y_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 120 + end + object v1Column10: TcxGridDBColumn + Caption = #26679#21697#38144#21806#37329#39069 + DataBinding.FieldName = 'Y_money' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 120 + 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 GroupBox1: TGroupBox + Left = 954 + Top = 77 + Width = 412 + Height = 638 + Align = alRight + Caption = #23458#25143#38144#21806#20998#26512 + TabOrder = 4 + object cxGrid1: TcxGrid + Left = 2 + Top = 14 + Width = 408 + Height = 622 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_sub + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V2Column3 + end + item + Kind = skSum + Column = V2Column4 + end + item + Kind = skSum + Column = V2Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object V2Column2: TcxGridDBColumn + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'CRTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Width = 77 + end + object V2Column7: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V2Column8: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object V2Column3: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Width = 33 + end + object V2Column4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Width = 51 + end + object V2Column5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPrice' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Width = 48 + end + object V2Column6: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Filtering = False + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + 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 = 460 + Top = 128 + end + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + PixelsPerInch = 96 + 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 DS_sub: TDataSource + DataSet = ADO_Sub + Left = 700 + Top = 160 + end + object ADO_Sub: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 776 + Top = 44 + end +end diff --git a/管理系统/U_KH_XS_list.pas b/管理系统/U_KH_XS_list.pas new file mode 100644 index 0000000..059a2cf --- /dev/null +++ b/管理系统/U_KH_XS_list.pas @@ -0,0 +1,268 @@ +unit U_KH_XS_list; + +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, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + +type + TfrmKH_XS_list = 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; + customerNoName: 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; + Label10: TLabel; + Edit1: TEdit; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: 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; + v1Column11: TcxGridDBColumn; + ywy: TEdit; + Label11: TLabel; + GroupBox1: TGroupBox; + cxGrid1: TcxGrid; + TV2: TcxGridDBTableView; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + V2Column5: TcxGridDBColumn; + V2Column6: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + DS_sub: TDataSource; + ADO_Sub: TADOQuery; + V2Column7: TcxGridDBColumn; + V2Column8: 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 customerNoNameChange(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitGrid(); + procedure Initsub(); + { Private declarations } + public + { Public declarations } + end; + +var + frmKH_XS_list: TfrmKH_XS_list; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} +procedure TfrmKH_XS_list.Initsub(); +begin + ADO_Sub.Close; + IF CDS_Main.IsEmpty then exit; + with ADO_Sub do + begin + close; + sql.Clear; + { sql.Add('select * from YF_money_CR '); + sql.Add('where CRTime>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''' '); + sql.Add('and CRTime<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''' '); + sql.Add('and factoryName='+quotedstr(trim(CDS_Main.fieldbyName('factoryName').AsString))); + // sql.Add('and SYRName='''+trim(canshu1)+''''); + sql.Add('and CRType=''ӦտǼ'' '); + sql.Add('and YFName=''۽'' '); + sql.Add('order by CRTime desc '); } + + sql.Add('select A.CRTime,A.C_CodeName,A.C_Color,B.PRTPrice, C.CustomerNoName,SUM(Qty) as Qty,SUM(Qty*B.PRTPrice) as money,RollNum=SUM(case when Qty<50 then 0 else 1 end) '); + sql.Add(',ywy=(select Top 1 defstr5 from KH_Zdy_Attachment X where X.zdyName=C.CustomerNoName and Type=''KHName'') '); + sql.Add(' from CK_BanCP_CR A '); + sql.Add(' inner join JYOrder_Sub B on B.MainId=A.MainId and B.SubId=A.SubId '); + sql.Add(' inner join JYOrder_Main C on C.MainId=A.MainId '); + 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 C.CustomerNoName='+quotedstr(trim(CDS_Main.fieldbyName('CustomerNoName').AsString))); + sql.Add(' and A.CRType='''' '); + sql.Add(' group by A.CRTime,A.C_CodeName,A.C_Color,B.PRTPrice,C.CustomerNoName '); + sql.Add(' order by A.CRTime desc '); + // showmessage(sql.text); + open; + end; +end; + +procedure TfrmKH_XS_list.FormDestroy(Sender: TObject); +begin + frmKH_XS_list:=nil; +end; + +procedure TfrmKH_XS_list.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmKH_XS_list.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + // BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + begdate.DateTime:=strtodateTime(formatdateTime('yyyy-MM',EndDate.DateTime)+'-01'); +end; + +procedure TfrmKH_XS_list.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.Add(' exec P_Get_KH_XS '); + sql.Add(' @begdate='''+formatdatetime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(',@enddate='''+formatdatetime('yyyy-MM-dd',enddate.DateTime+1)+''' '); + { sql.Add('select C.CustomerNoName,SUM(Qty) as Qty,SUM(Qty*B.PRTPrice) as money,RollNum=SUM(case when Qty<50 then 0 else 1 end) '); + sql.Add(',ywy=(select Top 1 defstr5 from KH_Zdy_Attachment X where X.zdyName=C.CustomerNoName and Type=''KHName'') '); + sql.Add(' from CK_BanCP_CR A '); + sql.Add(' inner join JYOrder_Sub B on B.MainId=A.MainId and B.SubId=A.SubId '); + sql.Add(' inner join JYOrder_Main C on C.MainId=A.MainId '); + 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='''' '); + sql.Add(' group by C.CustomerNoName '); } + + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + Initsub(); + end; +end; + +procedure TfrmKH_XS_list.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmKH_XS_list.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmKH_XS_list.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmKH_XS_list.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + + //InitGrid(); +end; + +procedure TfrmKH_XS_list.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid2); +end; + +procedure TfrmKH_XS_list.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 TfrmKH_XS_list.customerNoNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmKH_XS_list.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + Initsub(); +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..cb841ef --- /dev/null +++ b/管理系统/U_MJEdit.dfm @@ -0,0 +1,393 @@ +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_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 = 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 = 339 + Top = 48 + Width = 24 + Height = 12 + Caption = #37325#37327 + end + object M: TLabel + Left = 420 + Top = 16 + Width = 6 + Height = 12 + Caption = 'M' + end + object Label6: TLabel + Left = 339 + Top = 16 + Width = 24 + Height = 12 + Caption = #38271#24230 + end + object Ma: TLabel + Left = 300 + Top = 16 + Width = 6 + Height = 12 + Caption = 'M' + end + object Label7: TLabel + Left = 219 + Top = 16 + Width = 24 + Height = 12 + Caption = #21407#30721 + 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 = 420 + Top = 48 + Width = 12 + Height = 12 + Caption = 'Kg' + end + object Label3: TLabel + Left = 459 + Top = 48 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label11: TLabel + Left = 540 + Top = 48 + Width = 24 + Height = 12 + Caption = 'g/'#13217 + end + object Label13: TLabel + Left = 459 + Top = 16 + Width = 24 + Height = 12 + Caption = #36192#36865 + 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 = 364 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 1 + end + object MJLen: TEdit + Left = 364 + Top = 12 + Width = 54 + Height = 20 + TabOrder = 2 + end + object RadioGroup1: TRadioGroup + Left = 592 + Top = -5 + Width = 185 + Height = 88 + Columns = 3 + ItemIndex = 0 + Items.Strings = ( + #27491#21697 + #27425#21697 + #25913#33394#21697) + TabOrder = 3 + end + object MJQty1: TEdit + Left = 244 + 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 = 484 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 6 + end + object MJQty2: TEdit + Left = 484 + Top = 12 + Width = 54 + Height = 20 + TabOrder = 7 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 113 + Width = 854 + Height = 349 + 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_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.Focusing = False + Options.Sorting = False + Styles.Content = DataLink_TradeManage.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_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 832 + 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 = 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/管理系统/U_MJEdit.pas b/管理系统/U_MJEdit.pas new file mode 100644 index 0000000..4164416 --- /dev/null +++ b/管理系统/U_MJEdit.pas @@ -0,0 +1,544 @@ +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; + MJQty1: TEdit; + Label5: TLabel; + Label8: TLabel; + MJFK: TEdit; + Label9: TLabel; + Label10: TLabel; + Label3: TLabel; + Label11: TLabel; + MJSJKZ: TEdit; + ToolButton4: TToolButton; + Label13: TLabel; + MJQty2: 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); + 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; + 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); + 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); + 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; + 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(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 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_KC Set KCQtyUnit='''+Trim(M.Caption)+''''); + if Trim(MJLen.Text)<>'' then + begin + sql.Add(',KCQty='+Trim(MJLen.Text)); + end else + begin + sql.Add(',KCQty=0'); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + sql.Add(',KCKGQty='+Trim(MJMaoZ.Text)); + end else + begin + sql.Add(',KCKGQty=0'); + end; + sql.Add(' where MJID='''+Trim(Label2.Caption)+''' and KCQty>0'); + + sql.Add('UPdate CK_BanCP_CR Set QtyUnit='''+Trim(M.Caption)+''''); + if Trim(MJLen.Text)<>'' then + begin + sql.Add(',Qty='+Trim(MJLen.Text)); + end else + begin + sql.Add(',Qty=0'); + end; + if Trim(MJMaoZ.Text)<>'' then + begin + sql.Add(',KGQty='+Trim(MJMaoZ.Text)); + end else + begin + sql.Add(',KGQty=0'); + end; + if RadioGroup1.ItemIndex=0 then + begin + sql.Add(',CPType=''Ʒ'' '); + end else + if RadioGroup1.ItemIndex=1 then + begin + sql.Add(',CPType=''Ʒ'' '); + end else + if RadioGroup1.ItemIndex=2 then + begin + sql.Add(',CPType=''ɫƷ'' '); + end; + sql.Add(' where MJID='''+Trim(Label2.Caption)+''''); + ExecSQL; + end; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('update WFB_MJJY SET CDList=dbo.F_Get_Order_SubStr(MJID,''MJCDHZSL'')'); + sql.Add('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; + +end. diff --git a/管理系统/U_MJEdit_other.dfm b/管理系统/U_MJEdit_other.dfm new file mode 100644 index 0000000..6fa3ae6 --- /dev/null +++ b/管理系统/U_MJEdit_other.dfm @@ -0,0 +1,393 @@ +object frmMJEdit_other: TfrmMJEdit_other + 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_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 = 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 = 339 + Top = 48 + Width = 24 + Height = 12 + Caption = #37325#37327 + end + object M: TLabel + Left = 420 + Top = 16 + Width = 6 + Height = 12 + Caption = 'M' + end + object Label6: TLabel + Left = 339 + Top = 16 + Width = 24 + Height = 12 + Caption = #38271#24230 + end + object Ma: TLabel + Left = 300 + Top = 16 + Width = 6 + Height = 12 + Caption = 'M' + end + object Label7: TLabel + Left = 219 + Top = 16 + Width = 24 + Height = 12 + Caption = #21407#30721 + 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 = 420 + Top = 48 + Width = 12 + Height = 12 + Caption = 'Kg' + end + object Label3: TLabel + Left = 459 + Top = 48 + Width = 24 + Height = 12 + Caption = #20811#37325 + end + object Label11: TLabel + Left = 540 + Top = 48 + Width = 24 + Height = 12 + Caption = 'g/'#13217 + end + object Label13: TLabel + Left = 459 + Top = 16 + Width = 24 + Height = 12 + Caption = #36192#36865 + 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 = 364 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 1 + end + object MJLen: TEdit + Left = 364 + Top = 12 + Width = 54 + Height = 20 + TabOrder = 2 + end + object RadioGroup1: TRadioGroup + Left = 592 + Top = -5 + Width = 185 + Height = 88 + Columns = 3 + ItemIndex = 0 + Items.Strings = ( + #27491#21697 + #27425#21697 + #30041#26679) + TabOrder = 3 + end + object MJQty1: TEdit + Left = 244 + 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 = 484 + Top = 44 + Width = 54 + Height = 20 + TabOrder = 6 + end + object MJQty2: TEdit + Left = 484 + Top = 12 + Width = 54 + Height = 20 + TabOrder = 7 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 113 + Width = 854 + Height = 349 + 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_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.Focusing = False + Options.Sorting = False + Styles.Content = DataLink_TradeManage.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_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 832 + 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 = 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/管理系统/U_MJEdit_other.pas b/管理系统/U_MJEdit_other.pas new file mode 100644 index 0000000..b55466d --- /dev/null +++ b/管理系统/U_MJEdit_other.pas @@ -0,0 +1,491 @@ +unit U_MJEdit_other; + +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_other = 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; + MJQty1: TEdit; + Label5: TLabel; + Label8: TLabel; + MJFK: TEdit; + Label9: TLabel; + Label10: TLabel; + Label3: TLabel; + Label11: TLabel; + MJSJKZ: TEdit; + ToolButton4: TToolButton; + Label13: TLabel; + MJQty2: 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); + private + { Private declarations } + function SaveData():Boolean; + public + { Public declarations } + end; + +var + frmMJEdit_other: TfrmMJEdit_other; + +implementation +uses + U_Fun,U_ZDYHelp,U_DataLink; + +{$R *.dfm} + +procedure TfrmMJEdit_other.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmMJEdit_other.FormDestroy(Sender: TObject); +begin + frmMJEdit_other:=nil; +end; + +procedure TfrmMJEdit_other.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_MJJY1 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); + MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').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_CD1 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_other.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_other.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_CD1 where MCID='''+Trim(Order_MJ.fieldbyname('MCID').AsString)+''''); + ExecSQL; + end; + end; + Order_MJ.Delete; +end; +function TfrmMJEdit_other.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_CD1',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_CD1 '); + 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_CD1',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; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate WFB_MJJY1 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(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 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; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + end; +end; + +procedure TfrmMJEdit_other.ToolButton2Click(Sender: TObject); +begin + if Trim(Label2.Caption)='' then Exit; + if SaveData() then + begin + Application.MessageBox('ɹ!','ʾ',0); + Exit; + end; +end; + +procedure TfrmMJEdit_other.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ƥ',Tv2,'Ⱦ'); +end; + +procedure TfrmMJEdit_other.FormShow(Sender: TObject); +begin + ReadCxGrid('ƥ',Tv2,'Ⱦ'); +end; + +procedure TfrmMJEdit_other.ToolButton4Click(Sender: TObject); +begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR1 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_MJJY1 where MJID='''+Trim(Label2.Caption)+''''); + sql.Add('delete WFB_MJJY_CD1 where MJID='''+Trim(Label2.Caption)+''''); + ExecSQL; + end; + Label2.Caption:=''; + end; + end; +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_MJManageNewFD.dfm b/管理系统/U_MJManageNewFD.dfm new file mode 100644 index 0000000..7b89fda --- /dev/null +++ b/管理系统/U_MJManageNewFD.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_MJManageNewFD.pas b/管理系统/U_MJManageNewFD.pas new file mode 100644 index 0000000..04b40c1 --- /dev/null +++ b/管理系统/U_MJManageNewFD.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..a7c67e8 --- /dev/null +++ b/管理系统/U_MJManageNewFDNew.dfm @@ -0,0 +1,2246 @@ +object frmMJManageNewFDNew: TfrmMJManageNewFDNew + Left = 347 + Top = 156 + Width = 1366 + Height = 738 + 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 Label34: TLabel + Left = 21 + Top = 264 + 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 ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1350 + 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 ToolButton2: TToolButton + Left = 63 + Top = 0 + Caption = #30133#28857#21462#21495 + ImageIndex = 56 + OnClick = ToolButton2Click + end + object TBCD: TToolButton + Left = 146 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 132 + OnClick = TBCDClick + end + object TBClose: TToolButton + Left = 233 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object cxGrid2: TcxGrid + Left = 745 + Top = 78 + Width = 338 + Height = 621 + Align = alLeft + TabOrder = 1 + 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> + 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 = 89 + 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 = 1083 + Top = 78 + Width = 267 + Height = 621 + Align = alClient + TabOrder = 2 + 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 = skCount + Column = cxGridDBColumn1 + end + item + Kind = skSum + Column = v3Column2 + 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 = 110 + end + object v3Column2: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + Width = 60 + end + object v3Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 67 + end + object v3Column1: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 49 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 78 + Width = 489 + Height = 621 + 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 = 86 + 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 = 1350 + 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 = 396 + 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 + end + object Label16: TLabel + Left = 1088 + Top = 13 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object Label24: TLabel + Left = 528 + 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 + end + object Label25: TLabel + Left = 672 + 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 + end + object Label29: TLabel + Left = 748 + 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 + end + object Label30: TLabel + Left = 848 + 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 + end + object Label31: TLabel + Left = 632 + 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 + 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 = Edit1Click + 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 CheckBox3: TCheckBox + Left = 984 + Top = 16 + Width = 97 + Height = 17 + Caption = #33258#21160#21462#20540 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 3 + end + object Button2: TButton + Left = 276 + Top = 12 + Width = 75 + Height = 29 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button2Click + end + end + object Panel2: TPanel + Left = 489 + Top = 78 + Width = 256 + Height = 621 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 6 + object Label9: TLabel + Left = 186 + Top = 191 + 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 = 474 + Top = 144 + 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 Label5: TLabel + Left = 21 + Top = 191 + Width = 40 + Height = 22 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 313 + Top = 144 + Width = 40 + Height = 22 + Caption = #38376#24133 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 137 + Top = 305 + Width = 40 + Height = 22 + Caption = #27491#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 22 + Top = 357 + Width = 60 + Height = 22 + Caption = #27425' '#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 36 + Top = 336 + 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 = 474 + Top = 183 + 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 = 313 + Top = 182 + Width = 40 + Height = 22 + Caption = #20811#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label28: TLabel + Left = 22 + Top = 404 + Width = 60 + Height = 22 + Caption = #25913#33394#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 21 + Top = 308 + 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 Label4: TLabel + Left = 21 + Top = 40 + Width = 40 + Height = 22 + Caption = #21697#21517 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 21 + Top = 76 + Width = 40 + Height = 22 + Caption = #39068#33394 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 361 + Top = 240 + Width = 40 + Height = 23 + Caption = #32568#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label14: TLabel + Left = 21 + Top = 112 + Width = 40 + Height = 22 + Caption = #32568#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label27: TLabel + Left = 297 + Top = 419 + Width = 80 + Height = 22 + Caption = #22238#20179#25968#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label32: TLabel + Left = 21 + Top = 264 + Width = 11 + Height = 22 + Caption = '1' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 93 + Top = 264 + Width = 11 + Height = 22 + Caption = '2' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label35: TLabel + Left = 169 + Top = 264 + Width = 11 + Height = 22 + Caption = '3' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label36: TLabel + Left = 25 + Top = 451 + Width = 40 + Height = 22 + Caption = #21305#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label37: TLabel + Left = 25 + Top = 491 + 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 MJFK: TEdit + Left = 361 + Top = 139 + Width = 110 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Edit1Click + end + object MJLen: TEdit + Left = 69 + Top = 186 + Width = 110 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Edit1Click + OnKeyPress = MJLenKeyPress + end + object BTPrint: TButton + Left = 11 + Top = 524 + 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 = 5 + OnClick = BTPrintClick + end + object Button5: TButton + Left = 131 + Top = 524 + 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 = 6 + OnClick = Button5Click + end + object Edit3: TEdit + Left = 182 + Top = 295 + 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 = 7 + Text = #8730 + OnClick = Edit3Click + end + object Edit4: TEdit + Left = 104 + Top = 347 + 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 = 8 + OnClick = Edit4Click + end + object MJSJKZ: TEdit + Left = 361 + Top = 177 + Width = 110 + 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 + end + object Edit5: TEdit + Left = 104 + Top = 394 + 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 = 70 + Top = 298 + 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 + object C_CodeName: TEdit + Left = 69 + Top = 35 + Width = 110 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Edit1Click + OnExit = C_CodeNameExit + OnKeyPress = C_CodeNameKeyPress + end + object C_Color: TEdit + Left = 69 + Top = 71 + Width = 110 + 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 + OnExit = C_ColorExit + OnKeyPress = C_CodeNameKeyPress + end + object BCGangNo: TEdit + Left = 69 + Top = 107 + Width = 110 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Edit1Click + OnExit = BCGangNoExit + OnKeyPress = C_CodeNameKeyPress + end + object MJQty1: TEdit + Left = 377 + Top = 414 + Width = 80 + 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 = MJQty1KeyPress + end + object Edit7: TEdit + Left = 38 + Top = 254 + 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 = 13 + OnClick = Edit7Click + end + object Edit8: TEdit + Left = 114 + Top = 254 + 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 = 14 + OnClick = Edit8Click + end + object Edit9: TEdit + Left = 186 + Top = 250 + 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 = 15 + OnClick = Edit9Click + end + object Edit10: TEdit + Left = 69 + Top = 446 + Width = 110 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 16 + Text = '1' + Visible = False + OnClick = Edit1Click + end + object ComboBox1: TComboBox + Left = 104 + Top = 488 + Width = 81 + Height = 27 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 19 + ItemIndex = 1 + ParentFont = False + TabOrder = 17 + Text = '2' + Items.Strings = ( + '1' + '2' + '3' + '4' + '5' + '6') + end + end + object Panel3: TPanel + Left = 86 + Top = 422 + 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 = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object cxStyleRepository1: TcxStyleRepository + Left = 368 + 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 = 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 + 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 + 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 + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 852 + Top = 4 + end +end diff --git a/管理系统/U_MJManageNewFDNew.pas b/管理系统/U_MJManageNewFDNew.pas new file mode 100644 index 0000000..eb288d2 --- /dev/null +++ b/管理系统/U_MJManageNewFDNew.pas @@ -0,0 +1,1962 @@ +unit U_MJManageNewFDNew; + +interface + +uses + Windows, Messages, strUtils, 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, cxTextEdit, Buttons, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + +function CommOpen(fhandle: hwnd; sCommName: PAnsiChar; IntTime: integer; IsMessage: integer): integer; stdcall; external 'JCYData10.DLL'; + +function CommClose(sCommName: PAnsiChar): integer; stdcall; external 'JCYData10.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; + Label5: TLabel; + Label6: TLabel; + BTPrint: TButton; + Button5: TButton; + Edit3: TEdit; + Label10: TLabel; + Edit4: TEdit; + Label12: TLabel; + 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; + Label28: TLabel; + Edit5: TEdit; + Label26: TLabel; + Edit6: TEdit; + C_CodeName: TEdit; + Label4: TLabel; + C_Color: TEdit; + Label11: TLabel; + BCGangNo: TEdit; + Label13: TLabel; + Label14: TLabel; + CheckBox3: TCheckBox; + MJQty1: TEdit; + Label27: TLabel; + Label29: TLabel; + Label30: TLabel; + Label31: TLabel; + Edit7: TEdit; + Label32: TLabel; + Edit8: TEdit; + Label33: TLabel; + Label34: TLabel; + Edit9: TEdit; + Label35: TLabel; + Edit10: TEdit; + Label36: TLabel; + ADOQueryTmp: TADOQuery; + Button2: TButton; + Label37: TLabel; + ComboBox1: TComboBox; + 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 MJLenKeyPress(Sender: TObject; var Key: Char); + procedure MJQty1KeyPress(Sender: TObject; var Key: Char); + procedure Edit7Click(Sender: TObject); + procedure Edit8Click(Sender: TObject); + procedure Edit9Click(Sender: TObject); + procedure C_CodeNameKeyPress(Sender: TObject; var Key: Char); + procedure C_CodeNameExit(Sender: TObject); + procedure C_ColorExit(Sender: TObject); + procedure BCGangNoExit(Sender: TObject); + procedure SpeedButton19Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + { Private declarations } + FInt, PState, PrintInt, SCInitGrid, FState: Integer; + FColumn, FBanZu, FAPID, FMainId, FSubId, Fgangp: 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 On1201(var Message: Tmessage); message 1201; + public + iscom: boolean; + canshu: string; + { Public declarations } + end; + +var + frmMJManageNewFDNew: TfrmMJManageNewFDNew; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp, U_iniParam; + +{$R *.dfm} +procedure TfrmMJManageNewFDNew.On1201(var Message: Tmessage); +var + i1, i2: integer; + unitname: string; + fdata: double; +begin + i1 := Message.WParam; + i2 := Message.LParam; + + if not CheckBox3.Checked then + exit; + + // IF trim(DParameters10)='С'then + // MJLen.Text:= format('%.2f',[i1/100000]) + // else + MJLen.Text := format('%.1f', [i1 / 100000]); + if i2 = 0 then + Label9.Caption := 'M' + else + Label9.Caption := 'Y'; +end; + +procedure TfrmMJManageNewFDNew.FormDestroy(Sender: TObject); +begin + frmMJManageNewFDNew := nil; +end; + +procedure TfrmMJManageNewFDNew.FormClose(Sender: TObject; var Action: TCloseAction); +begin + if iscom then + CommClose(pchar('com2')); + //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) + ''''); + sql.Add('and Filler=' + quotedstr(trim(DName))); + sql.Add('and convert(char(10),FillTime,120)=''' + formatdateTime('yyyy-MM-dd', date()) + ''' '); + if Trim(SCXFlag) <> '' then + sql.Add(' and JTType=''' + Trim(SCXFlag) + ''''); + sql.Add(' order by MJID desc'); + 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 + Label2.Caption := ''; + Label24.Caption := ''; + Label25.Caption := ''; + Label29.Caption := ''; + Label30.Caption := ''; + Label31.Caption := ''; + 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; } + if iscom then + begin + if CommOpen(frmMJManageNewFDNew.Handle, '', 500, 1) < 1 then + begin + showmessage('򿪴ڴ'); + end; + 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; + C_CodeName.Text := Trim(ADOTmp.fieldbyname('C_CodeName').AsString); + C_Color.Text := Trim(ADOTmp.fieldbyname('C_Color').AsString); + BCgangNo.Text := Trim(ADOTmp.fieldbyname('BCgangNo').AsString); + 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, fapTM, FMJID, BZID: string; + FMJLen, fhcQty: Double; + FOrder, i: 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; + + FMJLen := StrToFloatdef(trim(MJLen.Text), 0); + if trim(Edit7.Text) <> '' then + FMJLen := FMJLen + 1; + if trim(Edit8.Text) <> '' then + FMJLen := FMJLen + 2; + if trim(Edit9.Text) <> '' then + FMJLen := FMJLen + 3; + if FMJLen < 0 then + FMJLen := 0; + 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 + {with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Sub_AnPai_MX where AOrdQty3=0 and APID='''+Trim(FAPID)+''' order by ApsubId '); + Open; + end; + if ADOTmp.IsEmpty then + begin + if GetLSNo(ADOQueryTmp,maxno,'','APTM',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + fapTM:=maxno; + maxno:=trim(SCXFlag)+trim(fapTM); + end + else + begin + fapTM:=trim(ADOTmp.fieldbyname('APTm').AsString); + fhcQty:=ADOTmp.fieldbyname('AOrdQty1').AsFloat; + maxno:=trim(SCXFlag)+trim(fapTM); + end; } + if GetLSNo(ADOQueryTmp, maxno, '', 'APTM', 4, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣', 'ʾ', 0); + exit; + end; + fapTM := maxno; + maxno := trim(SCXFlag) + trim(fapTM); + Append; + 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('C_CodeName').Value := Trim(C_CodeName.Text); + FieldByName('C_Color').Value := Trim(C_Color.Text); + FieldByName('BCGangNo').Value := Trim(BCGangNo.Text); + FieldByName('MJQTy1').Value := fhcQty; + FieldByName('MJLen').Value := FMJLen; + + if Trim(MJFK.Text) <> '' then + begin + FieldByName('MJFK').Value := StrToFloat(MJFK.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('MJXH').Value := 1; + 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('select * from JYOrder_Sub_AnPai_MX where APTM='''+Trim(FAPTM)+''''); + Open; + if IsEmpty then + begin + with ADOTmp do + begin + Close; + SQL.Clear; + sql.Add('select isnull(max(ApsubId),0)+1 as fApsubId from JYOrder_Sub_AnPai_MX where Apid='''+Trim(FAPID)+''''); + Open; + i:=fieldbyname('fApsubId').AsInteger; + end; + append; + FieldByName('ApId').Value:=Trim(FAPID); + FieldByName('ApsubId').Value:=i; + FieldByName('APTM').Value:=Trim(maxno); + FieldByName('AOrdQty2').Value:=0; + FieldByName('AOrdQty1').Value:=0; + FieldByName('AOrdQty3').Value:=fmjlen; + FieldByName('AorddefNote1').Value:=''; + if Trim(Edit3.Text)<>'' then + begin + FieldByName('Aorddefstr1').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('Aorddefstr1').Value:='һȴƷ'; + end; + if Trim(Edit5.Text)<>'' then + begin + FieldByName('Aorddefstr1').Value:='ȴƷ'; + end; + post; + end + else + begin + edit; + FieldByName('APTM').Value:=Trim(maxno); + FieldByName('AOrdQty3').Value:=fmjlen; + if Trim(Edit3.Text)<>'' then + begin + FieldByName('Aorddefstr1').Value:='Ʒ'; + end; + if Trim(Edit4.Text)<>'' then + begin + FieldByName('Aorddefstr1').Value:='һȴƷ'; + end; + if Trim(Edit5.Text)<>'' then + begin + FieldByName('Aorddefstr1').Value:='ȴƷ'; + end; + post; + end; + 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; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('update WFB_MJJY SET CDList= dbo.F_Get_Order_SubStr(MJID,''MJCDHZSL'')'); + sql.Add('where MJID=''' + Trim(FMJID) + ''' '); + execsql; + end; + + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select count(*) as gangp from WFB_MJJY '); + sql.Add(' where subid=''' + Trim(Fsubid) + ''' and BCGangNo=''' + Trim(BCGangNo.Text) + ''''); + Open; + end; + if StrToFloat(ADOCmd.fieldbyname('gangp').AsString) > StrToFloatdef(Fgangp, 0) then + begin + if Application.MessageBox('׾ѾﵽǷӡ', 'ʾ', 32 + 4) <> IDYES then +// application.MessageBox('׾Ѿﵽ', 'ʾ'); + Exit; + + end; + + 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; + FInt := 11; + // pint=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; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; + fRoll: Tstringlist; + i: integer; +begin + if Trim(FAPID) = '' then + Exit; + MJLen.SetFocus; + if FInt = 4 then + begin + if CDS_MJID.IsEmpty = False then + begin + Application.MessageBox('Ѵ룿볢ش', 'ʾ', 0); + Exit; + end; + end; + if trim(C_CodeName.Text) = '0' then + begin + Application.MessageBox('ƷΪ!', 'ʾ', 0); + Exit; + end; + if trim(C_Color.Text) = '0' then + begin + Application.MessageBox('ɫΪ!', 'ʾ', 0); + Exit; + 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 strtointdef(trim(Edit10.Text), 1) < 0 then + begin + application.MessageBox('ƥС1', 'ʾ', 0); + exit; + end; + + if LeftStr(trim(C_Color.Text), 1) = '0' 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(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; } + + fRoll := Tstringlist.Create; + for i := 1 to strtointdef(Edit10.Text, 1) do + begin + if SaveData() then + begin + fRoll.Add(CDS_MJID.FieldByName('MJID').AsString); + BTAdd.Click; + end + else + exit; + end; + + if fRoll.Count < 1 then + exit; + //BtnStatus(False); + MJFK.Text := ''; + //MJSJKZ.Text:=''; + MJLen.Text := ''; + // MJMaoZ.Text:=''; + // MJQty1.Text:=''; + // MJQty2.Text:=''; + // MJSJKZ.Text:=''; + Label15.Caption := ''; + Edit3.Text := ''; + Edit4.Text := ''; + Edit5.Text := ''; + // Edit7.Text:=''; + // Edit8.Text:=''; + // Edit9.Text:=''; + if Trim(Edit6.Text) = '' then + begin + for i := 0 to fRoll.Count - 1 do + begin + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(fRoll.Strings[i]); + 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; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.*,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add(' from WFB_MJJY A'); + SQL.Add(' where A.MJID=''' + Trim(fRoll.Strings[i]) + ''''); + Open; + 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; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ͨñǩ.rmf'), 'ʾ', 0); + end; + end; + end; + MJLen.SetFocus; + 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(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(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; + PState := 1; + 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) < StrToFloat(Edit1.Text) then + begin + Application.MessageBox('õλ¼!', 'ʾ', 0); + Exit; + end; + end; + end; + 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); + 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; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; + NewFile: TFileStream; + OldFile: TFileStream; +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; + + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(CDS_MJID.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; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.*,C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add(' from WFB_MJJY A'); + SQL.Add(' where A.MJID=''' + Trim(CDS_MJID.fieldbyname('MJID').AsString) + ''''); + Open; + end; + + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨñǩ.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + 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 + Button2.Click; + { with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + 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('APID').AsString); + // Label24.Visible:=True; + Label24.Caption:='Ʒ'+Trim(ADOTmp.fieldbyname('C_CodeName').AsString); + // Label25.Visible:=True; + Label25.Caption:='ɫ'+Trim(ADOTmp.fieldbyname('C_Color').AsString); + Label29.Caption:='ƥ'+Trim(ADOTmp.fieldbyname('AordQty2').AsString); + Label30.Caption:=''+Trim(ADOTmp.fieldbyname('AordQty1').AsString); + Label31.Caption:='׺ţ'+Trim(ADOTmp.fieldbyname('AOrddefStr1').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); + C_CodeName.Text:=Trim(ADOTmp.fieldbyname('C_CodeName').AsString); + C_Color.Text:=Trim(ADOTmp.fieldbyname('C_Color').AsString); + BCGangNo.Text:=Trim(ADOTmp.fieldbyname('AOrddefstr1').AsString); + BTAdd.Click; + end else + begin + Application.MessageBox('!','ʾ',0); + //Label2.Visible:=False; + Label2.Caption:=''; + Label24.Caption:=''; + Label25.Caption:=''; + Label29.Caption:=''; + Label30.Caption:=''; + Label31.Caption:=''; + C_CodeName.Text:=''; + C_Color.Text:=''; + BCGangNo.Text:=''; + mjlen.Text:=''; + + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + Exit; + 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; + +procedure TfrmMJManageNewFDNew.MJLenKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + BTPrint.Click; + end; +end; + +procedure TfrmMJManageNewFDNew.MJQty1KeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + MJLen.SetFocus; + end; +end; + +procedure TfrmMJManageNewFDNew.Edit7Click(Sender: TObject); +begin + if Trim(Edit7.Text) = '' then + begin + Edit7.Text := ''; + Edit8.Text := ''; + Edit9.Text := ''; + end + else + begin + Edit7.Text := ''; + Edit8.Text := ''; + Edit9.Text := ''; + end; +end; + +procedure TfrmMJManageNewFDNew.Edit8Click(Sender: TObject); +begin + if Trim(Edit8.Text) = '' then + begin + Edit7.Text := ''; + Edit8.Text := ''; + Edit9.Text := ''; + end + else + begin + Edit7.Text := ''; + Edit8.Text := ''; + Edit9.Text := ''; + end; +end; + +procedure TfrmMJManageNewFDNew.Edit9Click(Sender: TObject); +begin + if Trim(Edit9.Text) = '' then + begin + Edit7.Text := ''; + Edit8.Text := ''; + Edit9.Text := ''; + end + else + begin + Edit7.Text := ''; + Edit8.Text := ''; + Edit9.Text := ''; + end; +end; + +procedure TfrmMJManageNewFDNew.C_CodeNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + Key := #0; + perform(WM_NEXTDLGCTL, 0, 0); + end; +end; + +procedure TfrmMJManageNewFDNew.C_CodeNameExit(Sender: TObject); +begin + if trim(C_CodeName.Text) = '' then + exit; + + if rightBstr(trim(C_CodeName.Text), 1) <> '#' then + begin + C_CodeName.Text := trim(C_CodeName.Text) + '#'; + end; +end; + +procedure TfrmMJManageNewFDNew.C_ColorExit(Sender: TObject); +begin + if trim(C_Color.Text) = '' then + exit; + + if rightBstr(trim(C_Color.Text), 1) <> '#' then + begin + C_Color.Text := trim(C_Color.Text) + '#'; + end; +end; + +procedure TfrmMJManageNewFDNew.BCGangNoExit(Sender: TObject); +begin + { IF trim(BCGangNo.Text)='' then exit; + + IF rightBstr(trim(BCGangNo.Text),1)<>'W'THEN + BEGIn + BCGangNo.Text:=trim(BCGangNo.Text)+'W'; + END; } +end; + +procedure TfrmMJManageNewFDNew.SpeedButton19Click(Sender: TObject); +begin + // TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).OnKeyPress(owers,#13) ; + +end; + +procedure TfrmMJManageNewFDNew.Button2Click(Sender: TObject); +begin + if trim(APID.Text) <> '' then + begin + if trim(canshu) <> 'Ȩ' then + begin + if trim(APID.Text) = '1234' then + exit; + end; + // IF trim(canshu)<>'Ȩ' then exit; + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + 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('APID').AsString); + // Label24.Visible:=True; + Label24.Caption := 'Ʒ' + Trim(ADOTmp.fieldbyname('C_CodeName').AsString); + // Label25.Visible:=True; + Label25.Caption := 'ɫ' + Trim(ADOTmp.fieldbyname('C_Color').AsString); + Label29.Caption := 'ƥ' + Trim(ADOTmp.fieldbyname('AordQty2').AsString); + Label30.Caption := '' + Trim(ADOTmp.fieldbyname('AordQty1').AsString); + Label31.Caption := '׺ţ' + Trim(ADOTmp.fieldbyname('AOrddefStr1').AsString); + Fgangp := Trim(ADOTmp.fieldbyname('AordQty2').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); + C_CodeName.Text := Trim(ADOTmp.fieldbyname('C_CodeName').AsString); + C_Color.Text := Trim(ADOTmp.fieldbyname('C_Color').AsString); + BCGangNo.Text := Trim(ADOTmp.fieldbyname('AOrddefstr1').AsString); + BTAdd.Click; + end + else + begin + Application.MessageBox('!', 'ʾ', 0); + //Label2.Visible:=False; + Label2.Caption := ''; + Label24.Caption := ''; + Label25.Caption := ''; + Label29.Caption := ''; + Label30.Caption := ''; + Label31.Caption := ''; + C_CodeName.Text := ''; + C_Color.Text := ''; + BCGangNo.Text := ''; + mjlen.Text := ''; + + APID.Text := ''; + FAPID := ''; + FMainId := ''; + FSubId := ''; + Exit; + end; + Edit7.Text := ''; + Edit8.Text := ''; + Edit9.Text := ''; + APID.Text := ''; + BTAdd.Click; + end; +end; + +procedure TfrmMJManageNewFDNew.ToolButton2Click(Sender: TObject); +begin + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('UPDATE SY_MaxBH SET BHNo=BHNo+10 WHERE BHstr=''MC'' AND BHType=''WFB_MJJY_CD'' '); + sql.Add(' AND BHDate=RIGHT(YEAR(getdate()) * 10000 + MONTH(getdate()) * 100 + DAY(getdate()), 6) And Type=''1'' '); + ShowMessage(SQL.text); + execsql; + end; +end; + +end. + diff --git a/管理系统/U_MJManageNewFDNew_other.dfm b/管理系统/U_MJManageNewFDNew_other.dfm new file mode 100644 index 0000000..a4776e6 --- /dev/null +++ b/管理系统/U_MJManageNewFDNew_other.dfm @@ -0,0 +1,2145 @@ +object frmMJManageNewFDNew_other: TfrmMJManageNewFDNew_other + Left = -47 + Top = 0 + Width = 1382 + Height = 754 + 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 Label34: TLabel + Left = 21 + Top = 264 + 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 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 = 745 + Top = 78 + Width = 338 + Height = 638 + 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 = 89 + 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 = 1083 + Top = 78 + Width = 283 + Height = 638 + Align = alClient + 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 + item + Kind = skCount + Column = cxGridDBColumn1 + end + item + Kind = skSum + Column = v3Column2 + 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 = 110 + end + object v3Column2: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle3 + Styles.Header = cxStyle3 + Width = 60 + end + object v3Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle5 + Styles.Header = cxStyle5 + Width = 67 + end + object v3Column1: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle4 + Styles.Header = cxStyle4 + Width = 49 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 78 + Width = 489 + Height = 638 + 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 = 86 + 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 = 296 + 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 + end + object Label16: TLabel + Left = 1088 + Top = 13 + Width = 42 + Height = 12 + Caption = 'Label16' + Visible = False + end + object Label24: TLabel + Left = 400 + 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 + end + object Label25: TLabel + Left = 524 + 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 + end + object Label29: TLabel + Left = 748 + 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 + end + object Label30: TLabel + Left = 848 + 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 + end + object Label31: TLabel + Left = 632 + 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 + 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 + object CheckBox3: TCheckBox + Left = 984 + Top = 16 + Width = 97 + Height = 17 + Caption = #33258#21160#21462#20540 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 3 + end + end + object Panel2: TPanel + Left = 489 + Top = 78 + Width = 256 + Height = 638 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 6 + object Label9: TLabel + Left = 186 + Top = 191 + 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 = 474 + Top = 144 + 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 Label5: TLabel + Left = 21 + Top = 191 + Width = 40 + Height = 22 + Caption = #38271#24230 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 313 + Top = 144 + Width = 40 + Height = 22 + Caption = #38376#24133 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 137 + Top = 305 + Width = 40 + Height = 22 + Caption = #27491#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 22 + Top = 357 + Width = 80 + Height = 22 + Caption = #19968#31561#27425#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 36 + Top = 336 + 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 = 474 + Top = 183 + 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 = 313 + Top = 182 + Width = 40 + Height = 22 + Caption = #20811#37325 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label28: TLabel + Left = 22 + Top = 404 + Width = 80 + Height = 22 + Caption = #20108#31561#27425#21697 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 21 + Top = 308 + 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 Label4: TLabel + Left = 21 + Top = 40 + Width = 40 + Height = 22 + Caption = #21697#21517 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 21 + Top = 76 + Width = 40 + Height = 22 + Caption = #39068#33394 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 361 + Top = 240 + Width = 40 + Height = 23 + Caption = #32568#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Visible = False + end + object Label14: TLabel + Left = 21 + Top = 112 + Width = 40 + Height = 22 + Caption = #32568#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label27: TLabel + Left = 297 + Top = 419 + Width = 80 + Height = 22 + Caption = #22238#20179#25968#37327 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label32: TLabel + Left = 21 + Top = 264 + Width = 11 + Height = 22 + Caption = '1' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 93 + Top = 264 + Width = 11 + Height = 22 + Caption = '2' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object Label35: TLabel + Left = 169 + Top = 264 + Width = 11 + Height = 22 + Caption = '3' + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -19 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + end + object MJFK: TEdit + Left = 361 + Top = 139 + Width = 110 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Edit1Click + end + object MJLen: TEdit + Left = 69 + Top = 186 + Width = 110 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Edit1Click + OnKeyPress = MJLenKeyPress + end + object BTPrint: TButton + Left = 15 + Top = 488 + 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 = 5 + OnClick = BTPrintClick + end + object Button5: TButton + Left = 135 + Top = 488 + 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 = 6 + OnClick = Button5Click + end + object Edit3: TEdit + Left = 182 + Top = 295 + 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 = 7 + Text = #8730 + OnClick = Edit3Click + end + object Edit4: TEdit + Left = 104 + Top = 347 + 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 = 8 + OnClick = Edit4Click + end + object MJSJKZ: TEdit + Left = 361 + Top = 177 + Width = 110 + 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 + end + object Edit5: TEdit + Left = 104 + Top = 394 + 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 = 70 + Top = 298 + 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 + object C_CodeName: TEdit + Left = 69 + Top = 35 + Width = 110 + Height = 32 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnExit = C_CodeNameExit + OnKeyPress = C_CodeNameKeyPress + end + object C_Color: TEdit + Left = 69 + Top = 71 + Width = 110 + Height = 32 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnExit = C_ColorExit + OnKeyPress = C_CodeNameKeyPress + end + object BCGangNo: TEdit + Left = 69 + Top = 107 + Width = 110 + Height = 32 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnExit = BCGangNoExit + OnKeyPress = C_CodeNameKeyPress + end + object MJQty1: TEdit + Left = 377 + Top = 414 + Width = 80 + 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 = MJQty1KeyPress + end + object Edit7: TEdit + Left = 38 + Top = 254 + 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 = 13 + OnClick = Edit7Click + end + object Edit8: TEdit + Left = 114 + Top = 254 + 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 = 14 + OnClick = Edit8Click + end + object Edit9: TEdit + Left = 186 + Top = 250 + 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 = 15 + OnClick = Edit9Click + end + end + object Panel3: TPanel + Left = 42 + 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_MJManageNewFDNew_other.pas b/管理系统/U_MJManageNewFDNew_other.pas new file mode 100644 index 0000000..749aa41 --- /dev/null +++ b/管理系统/U_MJManageNewFDNew_other.pas @@ -0,0 +1,1711 @@ +unit U_MJManageNewFDNew_other; + +interface + +uses + Windows, Messages,strUtils, 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, cxTextEdit, Buttons; + function CommOpen(fhandle:hwnd;sCommName:PAnsiChar; + IntTime:integer;IsMessage:integer):integer;stdcall;external 'JCYData.DLL'; + function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'JCYData.DLL'; + + +type + TfrmMJManageNewFDNew_other = 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; + Label5: TLabel; + Label6: TLabel; + BTPrint: TButton; + Button5: TButton; + Edit3: TEdit; + Label10: TLabel; + Edit4: TEdit; + Label12: TLabel; + 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; + Label28: TLabel; + Edit5: TEdit; + Label26: TLabel; + Edit6: TEdit; + C_CodeName: TEdit; + Label4: TLabel; + C_Color: TEdit; + Label11: TLabel; + BCGangNo: TEdit; + Label13: TLabel; + Label14: TLabel; + CheckBox3: TCheckBox; + MJQty1: TEdit; + Label27: TLabel; + Label29: TLabel; + Label30: TLabel; + Label31: TLabel; + Edit7: TEdit; + Label32: TLabel; + Edit8: TEdit; + Label33: TLabel; + Label34: TLabel; + Edit9: TEdit; + Label35: TLabel; + 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 MJLenKeyPress(Sender: TObject; var Key: Char); + procedure MJQty1KeyPress(Sender: TObject; var Key: Char); + procedure Edit7Click(Sender: TObject); + procedure Edit8Click(Sender: TObject); + procedure Edit9Click(Sender: TObject); + procedure C_CodeNameKeyPress(Sender: TObject; var Key: Char); + procedure C_CodeNameExit(Sender: TObject); + procedure C_ColorExit(Sender: TObject); + procedure BCGangNoExit(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(); + procedure On1201(Var Message:Tmessage);Message 1201; + public + iscom:boolean; + { Public declarations } + end; + +var + frmMJManageNewFDNew_other: TfrmMJManageNewFDNew_other; + +implementation +uses + U_DataLink,U_Fun,U_ZDYHelp,U_iniParam; + +{$R *.dfm} +procedure TfrmMJManageNewFDNew_other.On1201(Var Message:Tmessage); +var + i1,i2:integer; + unitname:string; + fdata:double; +begin + i1:=message.WParam; + i2:=message.LParam; + + IF not CheckBox3.Checked then exit; + + IF trim(DParameters10)='С'then + MJLen.Text:= format('%.2f',[i1/100000]) + else + MJLen.Text:= format('%.0f',[i1/100000]); + IF i2=0 then Label9.Caption:='M' else Label9.Caption:='Y'; +end; + + +procedure TfrmMJManageNewFDNew_other.FormDestroy(Sender: TObject); +begin + frmMJManageNewFDNew_other:=nil; +end; + +procedure TfrmMJManageNewFDNew_other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + if iscom then + CommClose(pchar('com2')); + //DataLink_WFBProducttion.ADOLink.Connected:=False; + Action:=caFree; +end; +procedure TfrmMJManageNewFDNew_other.InitCDGrid(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + if PState=1 then + sql.Add('select * from WFB_MJJY_CD1 where MJID='''' ') + else + sql.Add('select * from WFB_MJJY_CD1 where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJCD); + SInitCDSData20(ADOQueryMain,CDS_MJCD); +end; +procedure TfrmMJManageNewFDNew_other.InitCDGridID(); +begin + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add('select * from WFB_MJJY1 where MJID='''+Trim(FAPID)+''''); + sql.Add('and Filler='+quotedstr(trim(DName))); + sql.Add('and convert(char(10),FillTime,120)='''+formatdateTime('yyyy-MM-dd',date())+''' '); + if Trim(SCXFlag)<>'' then + sql.Add(' and JTType='''+Trim(SCXFlag)+''''); + sql.Add(' order by MJID desc'); + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_MJID); + SInitCDSData20(ADOQueryMain,CDS_MJID); +end; + +procedure TfrmMJManageNewFDNew_other.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_other.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_other.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_other.FormShow(Sender: TObject); +begin + Label2.Caption:=''; + Label24.Caption:=''; + Label25.Caption:=''; + Label29.Caption:=''; + Label30.Caption:=''; + Label31.Caption:=''; + 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; } + if iscom then + begin + if CommOpen(frmMJManageNewFDNew_other.Handle,'',500,1)<1 then + begin + showmessage('򿪴ڴ'); + end; + end; + APID.SetFocus; +end; +procedure TfrmMJManageNewFDNew_other.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_other.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_other.AddCDNew(Fbtn:TSpeedButton); +begin + with CDS_MJCD do + begin + Append; + FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + Post; + end; +end; +procedure TfrmMJManageNewFDNew_other.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_other.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_other.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_other.MJMaoZClick(Sender: TObject); +begin + FInt:=1; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNew_other.MJLenClick(Sender: TObject); +begin + FInt:=2; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNew_other.MJFKClick(Sender: TObject); +begin + FInt:=3; + FColumn:=''; + panel3.Visible:=True; +end; + +procedure TfrmMJManageNewFDNew_other.MJBanZuClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNew_other.MJSJKZClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNew_other.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_other.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_MJJY1 where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + C_CodeName.Text:=Trim(ADOTmp.fieldbyname('C_CodeName').AsString); + C_Color.Text:=Trim(ADOTmp.fieldbyname('C_Color').AsString); + BCgangNo.Text:=Trim(ADOTmp.fieldbyname('BCgangNo').AsString); + 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_other.FormClick(Sender: TObject); +begin + FInt:=4; +end; + +procedure TfrmMJManageNewFDNew_other.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_other.SaveData():Boolean; +var + maxno,fapTM,FMJID,BZID:String; + FMJLen,fhcQty:Double; + FOrder,i:Integer; +begin + + if PState=1 then + FMJID:=Label2.Caption + else if PState=2 then + FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState<1 then Exit; + + fmjlen:=StrToFloatdef(trim(MJLen.Text),0); + if trim(Edit7.Text)<>'' then fmjlen:=fmjlen-1; + if trim(Edit8.Text)<>'' then fmjlen:=fmjlen-2; + if trim(Edit9.Text)<>'' then fmjlen:=fmjlen-3; + if fmjlen<0 then fmjlen:=0; + try + ADOCmd.Connection.BeginTrans; + /// + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from WFB_MJJY1 where MJId='''+Trim(FMJID)+''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMJID)='' then + begin + { with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select * from JYOrder_Sub_AnPai_MX where AOrdQty3=0 and APID='''+Trim(FAPID)+''' order by ApsubId '); + Open; + end; + if ADOTmp.IsEmpty then + begin + + if GetLSNo(ADOTmp,maxno,'','APTM',4,1)=False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ˮ쳣','ʾ',0); + exit; + end; + fapTM:=maxno; + maxno:=trim(SCXFlag)+trim(fapTM); + end + else + begin + fapTM:=trim(ADOTmp.fieldbyname('APTm').AsString); + fhcQty:=ADOTmp.fieldbyname('AOrdQty1').AsFloat; + maxno:=trim(SCXFlag)+trim(fapTM); + end; + Append; } + 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('C_CodeName').Value:=Trim(C_CodeName.Text); + FieldByName('C_Color').Value:=Trim(C_Color.Text); + FieldByName('BCGangNo').Value:=Trim(BCGangNo.Text); + // FieldByName('MJQTy1').Value:=fhcQty; + FieldByName('MJLen').Value:=fmjlen; + + if Trim(MJFK.Text)<>'' then + begin + FieldByName('MJFK').Value:=StrToFloat(MJFK.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('MJXH').Value:=1; + 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; + 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; + 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_CD1',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_CD1 '); + 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_CD1',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_other.BTAddClick(Sender: TObject); +begin + if Trim(Label2.Caption)='' then Exit; + PState:=1; + FInt:=11; + // pint=1; + InitCDGridID(); + InitCDGrid(); + BtnStatus(True); + Label16.Caption:=''; +end; + +procedure TfrmMJManageNewFDNew_other.BTEditClick(Sender: TObject); +begin + if CDS_MJID.IsEmpty then Exit; + PState:=2; + Label16.Caption:='޸'; +end; + +procedure TfrmMJManageNewFDNew_other.BTPrintClick(Sender: TObject); +var + fPrintFile:String; + mvalue:Double; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +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(MJFK.Text)<>'' then + begin + if TryStrToFloat(MJFK.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:=''; + Edit4.Text:=''; + Edit5.Text:=''; + Edit7.Text:=''; + Edit8.Text:=''; + Edit9.Text:=''; + + end + else + begin + exit; + end; + if Trim(Edit6.Text)='' then + begin + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_MJID.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; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.* '); + sql.Add(' from WFB_MJJY1 A') ; + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + // RM2.ShowReport; + RM2.PrintReport; + MJLen.SetFocus; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; + end; + + Label16.Caption:=''; + BTAdd.Click; +end; +procedure TfrmMJManageNewFDNew_other.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(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(MJLen.Text)<>'' then + begin + FieldByName('KCQty').Value:=StrToFloat(MJLen.Text); + end; + FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption); + Post; + end; +end; +procedure TfrmMJManageNewFDNew_other.BtnStatus(BSInt:Boolean); +begin + // Tv2.OptionsSelection.CellSelect:=BSInt; +end; +procedure TfrmMJManageNewFDNew_other.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_other.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_other.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_other.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; + PState:=1; + 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_other.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_other.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_other.Button4Click(Sender: TObject); +begin + Edit1.Text:=''; + Edit2.Text:=''; + CDQty.Text:=''; + MovePanel1.Visible:=False; + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNew_other.ToolButton1Click(Sender: TObject); +begin + //InitGrid(); + InitJP(); +end; + +procedure TfrmMJManageNewFDNew_other.Button5Click(Sender: TObject); +var + fPrintFile:String; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; + NewFile: TFileStream; + OldFile: TFileStream; +begin + if CDS_MJID.IsEmpty then Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY1 Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson='''+Trim(DName)+''''); + sql.Add(' where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(CDS_MJID.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; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.* '); + sql.Add(' from WFB_MJJY1 A') ; + SQL.Add(' where A.MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + Open; + end; + + fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf' ; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + // RM2.ShowReport; + RM2.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'),'ʾ',0); + end; + +end; + +procedure TfrmMJManageNewFDNew_other.SpeedButton49Click(Sender: TObject); +begin + Panel3.Visible:=False; +end; + +procedure TfrmMJManageNewFDNew_other.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('from WFB_MJJY1 A'); + sql.Add('where MJID='''+Trim(APID.Text)+''''); + Open; + + end; + if ADOTmp.IsEmpty=False then + begin + IF trim(ADOTmp.fieldbyname('Mjstr2').AsString)<>'δ' then + begin + application.MessageBox('˾Ѿ⣬ڼ飡','ʾϢ',0); + exit; + end; + // Label2.Visible:=True; + Label2.Caption:=Trim(ADOTmp.fieldbyname('MJID').AsString); + // Label24.Visible:=True; + Label24.Caption:='Ʒ'+Trim(ADOTmp.fieldbyname('C_CodeName').AsString); + // Label25.Visible:=True; + Label25.Caption:='ɫ'+Trim(ADOTmp.fieldbyname('C_Color').AsString); + Label29.Caption:='ƥ1'; + Label30.Caption:=''+Trim(ADOTmp.fieldbyname('MJLen').AsString); + Label31.Caption:='׺ţ'+Trim(ADOTmp.fieldbyname('BCgangNO').AsString); + FAPID:=Trim(APID.Text); + FMainId:=Trim(ADOTmp.fieldbyname('MainId').AsString); + FSubId:=Trim(ADOTmp.fieldbyname('SubId').AsString); + Label9.Caption:=Trim(ADOTmp.fieldbyname('MJTypeOther').AsString); + Label13.Caption:=Trim(ADOTmp.fieldbyname('MJTypeOther').AsString); + Label19.Caption:=Trim(Label9.Caption); + Label20.Caption:=Trim(Label9.Caption); + Label7.Caption:=Trim(Label9.Caption); + C_CodeName.Text:=Trim(ADOTmp.fieldbyname('C_CodeName').AsString); + C_Color.Text:=Trim(ADOTmp.fieldbyname('C_Color').AsString); + BCGangNo.Text:=Trim(ADOTmp.fieldbyname('BCGangNo').AsString); + BTAdd.Click; + end else + begin + Application.MessageBox('!','ʾ',0); + //Label2.Visible:=False; + Label2.Caption:=''; + Label24.Caption:=''; + Label25.Caption:=''; + Label29.Caption:=''; + Label30.Caption:=''; + Label31.Caption:=''; + C_CodeName.Text:=''; + C_Color.Text:=''; + BCGangNo.Text:=''; + mjlen.Text:=''; + + APID.Text:=''; + FAPID:=''; + FMainId:=''; + FSubId:=''; + Exit; + end; + + APID.Text:=''; + BTAdd.Click; + end; +end; + +procedure TfrmMJManageNewFDNew_other.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_other.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_other.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_other.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_other.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_other.Edit6Click(Sender: TObject); +begin + if Trim(Edit6.Text)='' then + begin + Edit6.Text:=''; + end else + begin + Edit6.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNew_other.MJLenKeyPress(Sender: TObject; + var Key: Char); +begin + iF key=#13 then + begin + BTPrint.Click; + end; +end; + +procedure TfrmMJManageNewFDNew_other.MJQty1KeyPress(Sender: TObject; + var Key: Char); +begin + iF key=#13 then + begin + MJLen.SetFocus; + end; +end; + +procedure TfrmMJManageNewFDNew_other.Edit7Click(Sender: TObject); +begin + if Trim(Edit7.Text)='' then + begin + Edit7.Text:=''; + Edit8.Text:=''; + Edit9.Text:=''; + end else + begin + Edit7.Text:=''; + Edit8.Text:=''; + Edit9.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNew_other.Edit8Click(Sender: TObject); +begin + if Trim(Edit8.Text)='' then + begin + Edit7.Text:=''; + Edit8.Text:=''; + Edit9.Text:=''; + end else + begin + Edit7.Text:=''; + Edit8.Text:=''; + Edit9.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNew_other.Edit9Click(Sender: TObject); +begin + if Trim(Edit9.Text)='' then + begin + Edit7.Text:=''; + Edit8.Text:=''; + Edit9.Text:=''; + end else + begin + Edit7.Text:=''; + Edit8.Text:=''; + Edit9.Text:=''; + end; +end; + +procedure TfrmMJManageNewFDNew_other.C_CodeNameKeyPress(Sender: TObject; + var Key: Char); +begin + if key=#13 then + begin + key:=#0; + perform(WM_NEXTDLGCTL,0,0); + end; +end; + +procedure TfrmMJManageNewFDNew_other.C_CodeNameExit(Sender: TObject); +begin + IF trim(C_CodeName.Text)='' then exit; + + IF rightBstr(trim(C_CodeName.Text),1)<>'#'THEN + BEGIn + C_CodeName.Text:=trim(C_CodeName.Text)+'#'; + END; +end; + +procedure TfrmMJManageNewFDNew_other.C_ColorExit(Sender: TObject); +begin + IF trim(C_Color.Text)='' then exit; + + IF rightBstr(trim(C_Color.Text),1)<>'#'THEN + BEGIn + C_Color.Text:=trim(C_Color.Text)+'#'; + END; +end; + +procedure TfrmMJManageNewFDNew_other.BCGangNoExit(Sender: TObject); +begin + IF trim(BCGangNo.Text)='' then exit; + + IF rightBstr(trim(BCGangNo.Text),1)<>'W'THEN + BEGIn + BCGangNo.Text:=trim(BCGangNo.Text)+'W'; + END; +end; + +end. diff --git a/管理系统/U_ModulePromptList.dfm b/管理系统/U_ModulePromptList.dfm new file mode 100644 index 0000000..2e50afb --- /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 = 381 + end + object v1Column1: TcxGridDBColumn + Caption = #22788#29702#20154 + DataBinding.FieldName = 'DName' + HeaderAlignmentHorz = taCenter + Width = 131 + 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..a325c2b --- /dev/null +++ b/管理系统/U_ModulePromptList.pas @@ -0,0 +1,213 @@ +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 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_NoteList.dfm b/管理系统/U_NoteList.dfm new file mode 100644 index 0000000..83a99dd --- /dev/null +++ b/管理系统/U_NoteList.dfm @@ -0,0 +1,52 @@ +object frmwlnote: Tfrmwlnote + Left = 428 + Top = 246 + Width = 424 + Height = 225 + BorderIcons = [biSystemMenu] + Caption = #29289#27969#22791#27880 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + OnClose = FormClose + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 12 + object Label1: TLabel + Left = 16 + Top = 44 + Width = 48 + Height = 12 + Caption = #22791#27880#20449#24687 + end + object Memo1: TMemo + Left = 72 + Top = 40 + Width = 297 + Height = 61 + TabOrder = 0 + end + object Button1: TButton + Left = 60 + Top = 132 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 248 + Top = 132 + Width = 75 + Height = 25 + Caption = #21462#28040 + TabOrder = 2 + OnClick = Button2Click + end +end diff --git a/管理系统/U_NoteList.pas b/管理系统/U_NoteList.pas new file mode 100644 index 0000000..6585f95 --- /dev/null +++ b/管理系统/U_NoteList.pas @@ -0,0 +1,52 @@ +unit U_NoteList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls; + +type + Tfrmwlnote = class(TForm) + Memo1: TMemo; + Label1: TLabel; + Button1: TButton; + Button2: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmwlnote: Tfrmwlnote; + +implementation + +{$R *.dfm} + +procedure Tfrmwlnote.FormDestroy(Sender: TObject); +begin + frmwlnote:=nil; +end; + +procedure Tfrmwlnote.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure Tfrmwlnote.Button1Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure Tfrmwlnote.Button2Click(Sender: TObject); +begin + ModalResult:=-1; +end; + +end. diff --git a/管理系统/U_NoteList1.dfm b/管理系统/U_NoteList1.dfm new file mode 100644 index 0000000..0a34afa --- /dev/null +++ b/管理系统/U_NoteList1.dfm @@ -0,0 +1,52 @@ +object frmwlnote1: Tfrmwlnote1 + Left = 428 + Top = 246 + Width = 424 + Height = 225 + BorderIcons = [biSystemMenu] + Caption = #29289#27969#22791#27880 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + OnClose = FormClose + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 12 + object Label1: TLabel + Left = 16 + Top = 44 + Width = 48 + Height = 12 + Caption = #22791#27880#20449#24687 + end + object Memo1: TMemo + Left = 72 + Top = 40 + Width = 297 + Height = 61 + TabOrder = 0 + end + object Button1: TButton + Left = 60 + Top = 132 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 248 + Top = 132 + Width = 75 + Height = 25 + Caption = #21462#28040 + TabOrder = 2 + OnClick = Button2Click + end +end diff --git a/管理系统/U_NoteList1.pas b/管理系统/U_NoteList1.pas new file mode 100644 index 0000000..721fc6f --- /dev/null +++ b/管理系统/U_NoteList1.pas @@ -0,0 +1,52 @@ +unit U_NoteList1; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls; + +type + Tfrmwlnote1 = class(TForm) + Memo1: TMemo; + Label1: TLabel; + Button1: TButton; + Button2: TButton; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmwlnote1: Tfrmwlnote1; + +implementation + +{$R *.dfm} + +procedure Tfrmwlnote1.FormDestroy(Sender: TObject); +begin + frmwlnote1:=nil; +end; + +procedure Tfrmwlnote1.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure Tfrmwlnote1.Button1Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure Tfrmwlnote1.Button2Click(Sender: TObject); +begin + ModalResult:=-1; +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..8b7a566 --- /dev/null +++ b/管理系统/U_OrderInPut.dfm @@ -0,0 +1,1210 @@ +object frmOrderInPut: TfrmOrderInPut + Left = 256 + Top = 196 + 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 Label31: TLabel + Left = 532 + Top = 4 + Width = 36 + Height = 12 + Caption = #21333#20215#65306 + Visible = False + end + 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 Panel2: TPanel + Left = 63 + Top = 0 + Width = 185 + Height = 30 + Enabled = False + TabOrder = 0 + end + object TBClose: TToolButton + Left = 248 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1366 + Height = 232 + Align = alTop + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 34 + 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 = 34 + Top = 40 + 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 = 247 + 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 Label7: TLabel + Left = 83 + Top = 261 + 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 + Visible = False + end + object Label8: TLabel + Left = 34 + Top = 93 + Width = 60 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 246 + Top = 65 + 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 = 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 Label11: TLabel + Left = 303 + Top = 351 + Width = 65 + Height = 12 + Caption = #20844#21496#32534#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 Label14: TLabel + Left = 675 + Top = 17 + 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 = 515 + Top = 351 + 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 Label2: TLabel + Left = 471 + Top = 256 + 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 + Visible = False + end + object Label5: TLabel + Left = 683 + Top = 256 + 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 + Visible = False + end + object Label6: TLabel + Left = 42 + Top = 286 + 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 + Visible = False + end + object Label12: TLabel + Left = 255 + Top = 290 + 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 = 471 + Top = 286 + 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 = 683 + Top = 286 + 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 + Visible = False + end + object Label16: TLabel + Left = 295 + Top = 261 + 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 + Visible = False + end + object Label17: TLabel + Left = 595 + Top = 272 + 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 + Visible = False + end + object Label18: TLabel + Left = 459 + Top = 41 + Width = 65 + Height = 12 + Caption = #21457#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 Label19: TLabel + Left = 459 + Top = 65 + Width = 65 + Height = 12 + Caption = #32852#31995#26041#24335#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 = 460 + Top = 92 + Width = 65 + Height = 12 + Caption = #20462#25913#22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label24: TLabel + Left = 34 + Top = 64 + Width = 65 + Height = 12 + Caption = #35746#21333#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 = 458 + Top = 16 + 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 = 12 + Width = 140 + Height = 18 + Enabled = False + TabOrder = 0 + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 97 + Top = 36 + Width = 140 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + TabOrder = 1 + OnChange = OrdDateChange + end + object DlyDate: TDateTimePicker + Tag = 2 + Left = 310 + Top = 36 + Width = 140 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object ConNo: TEdit + Tag = 2 + Left = 310 + Top = 12 + Width = 140 + Height = 18 + TabOrder = 3 + OnKeyPress = ConNoKeyPress + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 364 + Top = 348 + Width = 136 + Height = 18 + TabOrder = 4 + Visible = False + OnKeyPress = jKeyPress + end + object JGFactoryName: TBtnEditC + Tag = 2 + Left = 145 + Top = 257 + Width = 136 + Height = 20 + Hint = 'JGFactory' + ReadOnly = True + TabOrder = 5 + Visible = False + OnBtnUpClick = JGFactoryNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object CustomerNoName: TBtnEditC + Tag = 2 + Left = 738 + Top = 13 + Width = 140 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 6 + OnChange = CustomerNoNameChange + OnKeyPress = CustomerNoNameKeyPress + OnBtnUpClick = CustomerNoNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object OrdDefStr2: TBtnEditC + Tag = 2 + Left = 579 + Top = 347 + Width = 135 + Height = 20 + Hint = 'OrdDefStr2/'#20844#21496#21488#22836 + TabOrder = 7 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTCodeName: TBtnEditC + Tag = 2 + Left = 529 + Top = 252 + Width = 135 + Height = 20 + Hint = 'MPRTCode' + ReadOnly = True + TabOrder = 8 + Visible = False + OnBtnUpClick = MPRTCodeNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTCF: TBtnEditC + Tag = 2 + Left = 747 + Top = 252 + Width = 135 + Height = 20 + Hint = 'MPRTCF/'#25104#20998 + TabOrder = 9 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTSpec: TBtnEditC + Tag = 2 + Left = 105 + Top = 282 + Width = 136 + Height = 20 + Hint = 'MPRTSpec/'#35268#26684 + TabOrder = 10 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTMF: TBtnEditC + Tag = 2 + Left = 318 + Top = 282 + Width = 136 + Height = 20 + Hint = 'MPRTMF/'#38376#24133 + TabOrder = 11 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTKZ: TBtnEditC + Tag = 2 + Left = 533 + Top = 282 + Width = 135 + Height = 20 + Hint = 'MPRTKZ/'#20811#37325 + TabOrder = 12 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTSL: TBtnEditC + Tag = 2 + Left = 747 + Top = 282 + Width = 135 + Height = 20 + Hint = 'MPRTSL/'#32553#29575 + TabOrder = 13 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object OrdDefStr3: TBtnEditC + Tag = 2 + Left = 359 + Top = 257 + Width = 135 + Height = 20 + Hint = 'OrdDefStr3/'#21787#22836 + TabOrder = 14 + Visible = False + OnBtnUpClick = OrdDefStr3BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Note: TMemo + Tag = 2 + Left = 97 + Top = 89 + Width = 353 + Height = 73 + TabOrder = 15 + OnDblClick = NoteDblClick + end + object OrdPerson2: TEdit + Tag = 2 + Left = 659 + Top = 269 + Width = 136 + Height = 18 + TabOrder = 16 + Visible = False + end + object FHAddress: TBtnEditC + Tag = 2 + Left = 522 + Top = 37 + Width = 351 + Height = 20 + ReadOnly = True + TabOrder = 17 + OnBtnUpClick = FHAddressBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object LXFS: TBtnEditC + Tag = 2 + Left = 522 + Top = 61 + Width = 352 + Height = 20 + ReadOnly = True + TabOrder = 18 + OnBtnUpClick = LXFSBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object orddefnote1: TMemo + Tag = 2 + Left = 521 + Top = 93 + Width = 356 + Height = 73 + TabOrder = 19 + Visible = False + end + object OrdPerson1: TBtnEditA + Tag = 2 + Left = 312 + Top = 64 + Width = 137 + Height = 20 + TabOrder = 20 + OnBtnClick = OrdPerson1BtnClick + end + object SYRName: TComboBox + Tag = 2 + Left = 521 + Top = 12 + Width = 140 + Height = 20 + Style = csDropDownList + Ctl3D = False + ItemHeight = 12 + ParentCtl3D = False + TabOrder = 21 + Items.Strings = ( + #27491#24120#21333 + #21098#26679#21333) + end + object GroupBox1: TGroupBox + Left = 940 + Top = 24 + Width = 185 + Height = 125 + Caption = #20840#22871#36755#20837 + TabOrder = 22 + Visible = False + object Label26: TLabel + Left = 28 + Top = 24 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label27: TLabel + Left = 28 + Top = 48 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label28: TLabel + Left = 28 + Top = 68 + Width = 24 + Height = 12 + Caption = #21333#20215 + end + object Edit1: TEdit + Left = 56 + Top = 20 + Width = 81 + Height = 18 + TabOrder = 0 + end + object Edit2: TEdit + Left = 56 + Top = 44 + Width = 81 + Height = 18 + TabOrder = 1 + end + object Button1: TButton + Left = 56 + Top = 92 + Width = 69 + Height = 25 + Caption = #30830#23450 + TabOrder = 2 + OnClick = Button1Click + end + object Edit3: TEdit + Left = 56 + Top = 64 + Width = 81 + Height = 18 + TabOrder = 3 + end + end + object orderType: TComboBox + Tag = 2 + Left = 97 + Top = 64 + Width = 140 + Height = 20 + Style = csDropDownList + Ctl3D = False + ItemHeight = 12 + ParentCtl3D = False + TabOrder = 23 + end + object cxGrid4: TcxGrid + Left = 738 + Top = 32 + Width = 381 + Height = 115 + TabOrder = 24 + Visible = False + object TV4: TcxGridDBTableView + OnKeyDown = TV4KeyDown + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = TV4CellDblClick + DataController.DataSource = DS_KH + 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 = #23458#25143#21517#31216 + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object V4Column3: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'DEFstr2' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object V4Column5: TcxGridDBColumn + Caption = #21457#36135#22320#22336 + DataBinding.FieldName = 'DEFNote2' + HeaderAlignmentHorz = taCenter + Width = 170 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TV4 + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 261 + Width = 1366 + 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 = 290 + Width = 1366 + Height = 425 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnCellClick = Tv1CellClick + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + Column = v1PRTPrice + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Format = '0'#34892 + Kind = skCount + Column = v1Column7 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = 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.handBlack + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNo' + HeaderAlignmentHorz = taCenter + 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> + Properties.OnButtonClick = v1Column5PropertiesButtonClick + Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column7: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.OnEditValueChanged = v1PRTColorPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 54 + end + object v1Column6: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column6PropertiesButtonClick + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column8PropertiesButtonClick + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 60 + end + object v1PRTRollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTRollNum' + HeaderAlignmentHorz = taCenter + Width = 46 + 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 = 56 + end + object v1gangFee: TcxGridDBColumn + Caption = #21253#32568#36153 + DataBinding.FieldName = 'GangFee' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1YunFee: TcxGridDBColumn + Caption = #36816#36153 + DataBinding.FieldName = 'yunFee' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1OtherFee: TcxGridDBColumn + Caption = #20854#23427#36153 + DataBinding.FieldName = 'otherFee' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PriceUnit: TcxGridDBColumn + Caption = #20215#26684#21333#20301 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1PriceUnitPropertiesButtonClick + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + VisibleForCustomization = False + Width = 61 + end + object v1Column2: TcxGridDBColumn + Caption = #20215#26684#26465#27454 + DataBinding.FieldName = 'SOrddefstr3' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + VisibleForCustomization = False + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = 'M1' + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column10: TcxGridDBColumn + Caption = 'M2' + DataBinding.FieldName = 'SordQty2' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column11: TcxGridDBColumn + Caption = 'M3' + DataBinding.FieldName = 'SordQty3' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = 'M4' + DataBinding.FieldName = 'SordQty4' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column13: TcxGridDBColumn + Caption = 'M5' + DataBinding.FieldName = 'SordQty5' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column14: TcxGridDBColumn + Caption = 'M6' + DataBinding.FieldName = 'SordQty6' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column15: TcxGridDBColumn + Caption = 'M7' + DataBinding.FieldName = 'SordQty7' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column16: TcxGridDBColumn + Caption = 'M8' + DataBinding.FieldName = 'SordQty8' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column17: TcxGridDBColumn + Caption = 'M9' + DataBinding.FieldName = 'SordQty9' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column18: TcxGridDBColumn + Caption = 'M10' + DataBinding.FieldName = 'SordQty10' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Sorddefnote1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Sorddefnote1' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 260 + Top = 264 + Width = 1057 + Height = 25 + BevelOuter = bvNone + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + object Label22: TLabel + Left = 0 + Top = 4 + Width = 75 + Height = 14 + Caption = #24211#23384#21305#25968#65306 + end + object Label23: TLabel + Left = 136 + Top = 4 + Width = 75 + Height = 14 + Caption = #24211#23384#25968#37327#65306 + end + object Label29: TLabel + Left = 348 + Top = 4 + Width = 45 + Height = 14 + Caption = #21333#20215#65306 + end + object Label30: TLabel + Left = 532 + Top = 4 + Width = 45 + Height = 14 + Caption = #21333#20215#65306 + Visible = False + end + object Label32: TLabel + Left = 724 + Top = 4 + Width = 45 + Height = 14 + Caption = #21333#20215#65306 + Visible = False + end + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1016 + Top = 33 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 888 + Top = 37 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 800 + Top = 372 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 660 + Top = 348 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 928 + Top = 37 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 584 + Top = 185 + end + object ADO_KH: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 768 + Top = 16 + end + object DS_KH: TDataSource + DataSet = ADO_KH + Left = 812 + Top = 20 + end + object ADOQueryCP: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 524 + Top = 316 + end + object DSCP: TDataSource + DataSet = ADOQueryCP + Left = 476 + Top = 352 + end +end diff --git a/管理系统/U_OrderInPut.pas b/管理系统/U_OrderInPut.pas new file mode 100644 index 0000000..84f7458 --- /dev/null +++ b/管理系统/U_OrderInPut.pas @@ -0,0 +1,1937 @@ +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, + cxGridCustomPopupMenu, cxGridPopupMenu, cxDBLookupComboBox, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, cxDropDownEdit, 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 + TfrmOrderInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + Label3: TLabel; + OrderNo: TEdit; + OrdDate: TDateTimePicker; + Label4: TLabel; + DlyDate: TDateTimePicker; + Label7: TLabel; + Label8: 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; + Label10: TLabel; + ConNo: TEdit; + Label11: TLabel; + OrdDefStr1: TEdit; + Label14: TLabel; + Label20: TLabel; + JGFactoryName: TBtnEditC; + CustomerNoName: TBtnEditC; + v1XHNo: TcxGridDBColumn; + OrdDefStr2: TBtnEditC; + v1OrderUnit: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PriceUnit: TcxGridDBColumn; + Label2: TLabel; + MPRTCodeName: TBtnEditC; + Label5: TLabel; + MPRTCF: TBtnEditC; + Label6: TLabel; + MPRTSpec: TBtnEditC; + Label12: TLabel; + MPRTMF: TBtnEditC; + Label13: TLabel; + MPRTKZ: TBtnEditC; + Label15: TLabel; + MPRTSL: TBtnEditC; + Label16: TLabel; + OrdDefStr3: TBtnEditC; + Note: TMemo; + Label17: TLabel; + OrdPerson2: TEdit; + v1Column2: TcxGridDBColumn; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1PRTRollNum: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + Label18: TLabel; + FHAddress: TBtnEditC; + Label19: TLabel; + LXFS: TBtnEditC; + Label21: TLabel; + orddefnote1: TMemo; + v1Sorddefnote1: TcxGridDBColumn; + Panel1: TPanel; + Label22: TLabel; + Label23: TLabel; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + OrdPerson1: TBtnEditA; + Label24: TLabel; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + SYRName: TComboBox; + Label25: TLabel; + v1gangFee: TcxGridDBColumn; + GroupBox1: TGroupBox; + Label26: TLabel; + Label27: TLabel; + Edit1: TEdit; + Edit2: TEdit; + Button1: TButton; + Edit3: TEdit; + Label28: TLabel; + orderType: TComboBox; + v1YunFee: TcxGridDBColumn; + v1OtherFee: TcxGridDBColumn; + cxGrid4: TcxGrid; + TV4: TcxGridDBTableView; + V4Column1: TcxGridDBColumn; + V4Column5: TcxGridDBColumn; + V4Column3: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADO_KH: TADOQuery; + DS_KH: TDataSource; + Label29: TLabel; + Label30: TLabel; + ADOQueryCP: TADOQuery; + DSCP: TDataSource; + Label31: TLabel; + Label32: TLabel; + Panel2: TPanel; + 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); + procedure v1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure FHAddressBtnUpClick(Sender: TObject); + procedure LXFSBtnUpClick(Sender: TObject); + procedure v1Column5PropertiesEditValueChanged(Sender: TObject); + procedure v1PRTColorPropertiesEditValueChanged(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure OrdPerson1BtnClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure OrdDateChange(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure TV4KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + private + procedure InitData(); + procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); + function SaveData(): Boolean; + procedure DoKc(); + { Private declarations } + public + PState, CopyInt, PriceFlag: Integer; + FMainId, FFMainId, FOrderNo: string; + FXS: Integer; + fCustomerNoName: string; + forderType: string; + fsyrName: string; + { Public declarations } + end; + +var + frmOrderInPut: TfrmOrderInPut; + newh: hwnd; + +implementation + +uses + U_DataLink, U_ZDYHelp, U_Fun, U_ZDYHelpSel, U_ZdyAttachment, U_ZdyAttachCP, + U_UserHelp; + +{$R *.dfm} +procedure TfrmOrderInPut.DoKc(); +var + i: integer; +begin + Label22.Caption := 'ƥ0'; + Label23.Caption := '0'; + if Order_Sub.IsEmpty then + exit; + if trim(Order_Sub.fieldbyname('PRTCodeName').AsString) = '' then + exit; + if trim(Order_Sub.fieldbyname('PRTColor').AsString) = '' then + exit; + + if trim(fsyrName) = '𻪷֯' then + begin + with ADOTemp do + begin + close; + sql.Clear; + SQL.Add('SELECT sum(A.KCRollnum) as KCRollnum,sum(A.KCQty) as kcQty FROM CK_BanCP_KC A'); + // sql.Add('exec P_Get_HCKCList '); + sql.Add(' where C_CodeName=' + quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + sql.Add(' and C_Color=' + quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString))); + sql.Add(' and A.KCQty>0 and A.CPType not in(''һȴƷ'',''ȴƷ'') and isnull(A.kcstatus,'''')='''' '); + open; + end; + end + else + begin + with ADOTemp do + begin + close; + sql.Clear; + SQL.Add('SELECT sum(A.KCRollnum) as KCRollnum,sum(A.KCQty) as kcQty FROM CK_BanCP_KC1 A'); + // sql.Add('exec P_Get_HCKCList '); + sql.Add(' where C_CodeName=' + quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + sql.Add(' and C_Color=' + quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString))); + sql.Add(' and A.KCQty>0 and A.CPType not in(''һȴƷ'',''ȴƷ'') and isnull(A.kcstatus,'''')='''' '); + open; + end; + end; + if not ADOTemp.IsEmpty then + begin + Label22.Caption := 'ƥ' + trim(ADOTemp.fieldbyname('kcRollNum').AsString); + Label23.Caption := '' + trim(ADOTemp.fieldbyname('kcQty').AsString); + end; + Label29.Caption := ''; + Label30.Caption := ''; + Label32.Caption := ''; + with ADOTemp do + begin + close; + sql.Clear; + SQL.Add(' SELECT Top 3 Price,CRTime FROM YF_Money_CR A'); + sql.Add(' where P_CodeName=' + quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + sql.Add(' and P_Color=' + quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString))); + sql.Add(' and factoryName=' + quotedstr(trim(CustomerNoName.Text))); + sql.Add(' and syrName=''' + fsyrName + ''' '); + if trim(orderType.Text) = '' then + sql.Add(' and YFName=''Ʒ'' ') + else + sql.Add(' and YFName=''۽'' '); + sql.Add(' and price>0 '); + sql.Add(' order by FillTime desc'); + open; + end; + i := 1; + if not ADOTemp.IsEmpty then + begin + Label29.Caption := 'ۣ'; + // Label29.Caption:='ۣ'+trim(ADOTemp.fieldbyname('price').AsString); + while not ADOTemp.Eof do + begin + Label29.Caption := Label29.Caption + formatdateTime('yyyy-MM-dd', ADOTemp.fieldbyname('CRTime').AsDateTime) + '<' + ADOTemp.fieldbyname('Price').AsString + '> '; + i := i + 1; + ADOTemp.Next; + end; + end; +end; + +procedure TfrmOrderInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼1', Tv1, 'ָʾ'); +end; + +procedure TfrmOrderInPut.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; + CustomerNoName.OnChange := nil; + SCSHDataNew(ADOQuery1, ScrollBox1, 2); + if PState = 0 then + begin + OrdDate.DateTime := SGetServerDate10(ADOTemp); + DlyDate.DateTime := SGetServerDate10(ADOTemp); + OrdPerson1.Text := Trim(DName); + if fCustomerNoName = '㶫в' then + begin + CustomerNoName.Text := trim(fCustomerNoName); + orderType.ItemIndex := 0; + end; + 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; + + if PState = 0 then + begin + OrderNo.Text := 'Զ'; + OrderNo.Enabled := false; + end; + CustomerNoName.OnChange := CustomerNoNameChange; +end; + +procedure TfrmOrderInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string); +var + FType, ZDYName, FText: string; +begin +end; + +procedure TfrmOrderInPut.FormShow(Sender: TObject); +begin + readCxGrid('ָʾ¼1', Tv1, 'ָʾ'); + SYRName.Items.Clear; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''SYRNAME'''); + open; + if not IsEmpty then + begin + while not eof do + begin + SYRName.Items.Add(trim(fieldbyname('zdyname').AsString)); + next; + end; + SYRName.ItemIndex := 0; + end; + end; + if PriceFlag = 99 then + begin + v1PRTPrice.Visible := False; + v1PRTPrice.Hidden := True; + end; + if PState = 1 then + begin + Label21.Visible := true; + orddefnote1.Visible := true; + end; + orderType.Items.Clear; + orderType.Items.Add(fOrderType); + if fOrderType = '' then + begin + GroupBox1.Visible := true; + v1gangFee.Visible := false; + v1yunFee.Visible := false; + v1otherFee.Visible := false; + end + else + begin + GroupBox1.Visible := false; + v1gangFee.Visible := true; + v1yunFee.Visible := true; + v1otherFee.Visible := true; + end; + orderType.ItemIndex := 0; + if trim(fsyrName) <> '' then + begin + SYRName.Items.Clear; + SYRName.Items.Add(fsyrName); + SYRName.ItemIndex := 0; + SYRName.Enabled := false; + // orderType.Enabled:=false; + end; + InitData(); +end; + +function TfrmOrderInPut.SaveData(): Boolean; +var + maxno: string; + i: integer; +begin + + if Trim(FMainId) = '' then + begin + if GetLSNo(ADOTemp, maxno, 'JM', 'JYOrder_Main', 3, 1) = False then + begin + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + end + else + begin + maxno := Trim(FMainId); + end; + 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; + end + else + begin + Edit; + end; + FieldByName('MainId').Value := Trim(maxno); + SSetsaveSqlNew(ADOCmd, 'JYOrder_Main', ScrollBox1, 2); + if PState = 1 then + begin + FieldByName('BHZDStatus').Value := '1'; + end; + if Trim(FMainId) = '' then + begin + FieldByName('Filler').Value := Trim(DName); + end + else + begin + FieldByName('Filler').Value := Trim(DName); + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); + end; + if trim(orderType.Text) = '' then + begin + if PState = 1 then + begin + + end + else + begin + FieldByName('status').Value := '1'; + end; + + end + else + FieldByName('status').Value := '0'; + 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; + + if PState = 1 then + begin + with ADOCmd 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(FOrderNo))) + quotedstr(trim('޸ĺţ' + trim(OrderNo.text)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from JYOrder_Sub where MainId=''' + Trim(FMainId) + ''''); + execsql; + end; + ///ӱ + with Order_Sub do + begin + DisableControls; + 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; + if Fieldbyname('PRTRollNum').AsFloat = 0 then + begin + i := 0; + if fieldbyname('SordQty1').AsFloat <> 0 then + i := i + 1; + if fieldbyname('SordQty2').AsFloat <> 0 then + i := i + 1; + if fieldbyname('SordQty3').AsFloat <> 0 then + i := i + 1; + if fieldbyname('SordQty4').AsFloat <> 0 then + i := i + 1; + if fieldbyname('SordQty5').AsFloat <> 0 then + i := i + 1; + if fieldbyname('SordQty6').AsFloat <> 0 then + i := i + 1; + if fieldbyname('SordQty7').AsFloat <> 0 then + i := i + 1; + if fieldbyname('SordQty8').AsFloat <> 0 then + i := i + 1; + if fieldbyname('SordQty9').AsFloat <> 0 then + i := i + 1; + if fieldbyname('SordQty10').AsFloat <> 0 then + i := i + 1; + edit; + fieldbyname('PRTRollNum').Value := i; + post; + end; + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName=' + quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + sql.Add('and DEFstr3=' + quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString))); + open; + end; + if not ADOTemp.IsEmpty then + begin + edit; + fieldbyname('PRTPrice').Value := fieldbyname('PRTPrice').AsFloat + ADOTemp.fieldbyname('defflt1').AsFloat; + post; + end; + + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then + Append + else + Edit; + FieldByName('orderNo').Value := Trim(orderNo.Text); + FieldByName('MainId').Value := Trim(FMainId); + FieldByName('SubId').Value := Trim(maxno); + RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'JYOrder_Sub', 0); + fieldbyname('PRTOrderQty').Value := Order_Sub.fieldbyname('PRTOrderQty').AsFloat; + fieldbyname('PRTRollNum').Value := Order_Sub.fieldbyname('PRTRollNum').AsFloat; + fieldbyname('gangNum').Value := Order_Sub.fieldbyname('gangNum').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('SordQty8').Value := Order_Sub.fieldbyname('SordQty8').AsFloat; + fieldbyname('SordQty9').Value := Order_Sub.fieldbyname('SordQty9').AsFloat; + fieldbyname('SordQty10').Value := Order_Sub.fieldbyname('SordQty10').AsFloat; + + fieldbyname('GangFee').Value := Order_Sub.fieldbyname('GangFee').AsFloat; + fieldbyname('YunFee').Value := Order_Sub.fieldbyname('YunFee').AsFloat; + fieldbyname('OtherFee').Value := Order_Sub.fieldbyname('OtherFee').AsFloat; + + fieldbyname('PRTCode').Value := Order_Sub.fieldbyname('PRTCode').AsString; + 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; + Order_Sub.EnableControls; + end; + ADOCmd.Connection.CommitTrans; + Result := True; + except + Result := False; + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + if GetLSNo(ADOTemp, maxno, 'JS', 'JYOrder_Sub', 4, 1) = False then + begin + end; + end; +end; + +procedure TfrmOrderInPut.TBSaveClick(Sender: TObject); +var + forderNo: string; +begin + OrdDate.SetFocus; +{ if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; } + if Trim(CustomerNoName.Text) = '' then + begin + Application.MessageBox('ͻƲΪգ', 'ʾ', 0); + Exit; + end; + if Trim(orderType.Text) = '' then + begin + Application.MessageBox('ͲΪգ', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('PRTCodeName', null, []) = True then + begin + Application.MessageBox('ƷΪ!', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('PRTCodeName', '', []) = True 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('PRTColor', '', []) = True then + begin + Application.MessageBox('ɫΪ!', 'ʾ', 0); + Exit; + end; + + if Order_Sub.Locate('PRTPrice', null, []) = True then + begin + Application.MessageBox('۸Ϊ!', 'ʾ', 0); + Exit; + end; + +// IF trim(orderType.Text)='' then +// begin +// IF trim(OrdPerson1.Text)='' then +// begin +// application.MessageBox('ҵԱΪգ','ʾ',0); +// exit; +// end; +// end; +{ if Order_Sub.Locate('PRTPrice','',[])=True then + begin + Application.MessageBox('۸Ϊ!','ʾ',0); + Exit; + end; } +{ with Order_Sub do + begin + DisableControls; + First; + while not eof do + begin + if (fieldbyname('PRTRollNum').AsFloat=0) and (fieldbyname('PRTOrderQty').AsFloat=0)then + begin + EnableControls; + application.MessageBox('ƥͬʱδ㣡','ʾϢ',0); + exit; + end; + next; + end; + First; + EnableControls; + end; + } + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where zdyName=''' + Trim(CustomerNoName.Text) + ''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Application.MessageBox('ͻ!', 'ʾϢ', 0); + Exit; + end; + if PState = 1 then + begin + if trim(orddefnote1.Text) = '' then + begin + Application.MessageBox('޸ıעϢΪ!', 'ʾ', 0); + Exit; + end; + 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 + else + begin + if trim(fSYRName) = '˷֯' then + begin + if GetLSNo(ADOCmd, forderNo, 'L', 'JYOrder_Main', 3, 1) = False then + begin + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + end + else + begin + if trim(orderType.Text) = '' then + begin + if GetLSNo(ADOCmd, forderNo, 'J', 'JYOrder_Main', 3, 1) = False then + begin + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + end + else if trim(orderType.Text) = '' then + begin + if GetLSNo(ADOCmd, forderNo, 'B', 'JYOrder_Main', 4, 1) = False then + begin + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + end + else + begin + if GetLSNo(ADOCmd, forderNo, '', 'JYOrder_Main', 3, 1) = False then + begin + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + end; + end; + OrderNo.text := trim(forderNo); + end; + + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + if PState = 0 then + begin + FMainId := ''; + SClearData(ScrollBox1, 2); + if trim(fsyrName) <> '' then + begin + SYRName.Items.Clear; + SYRName.Items.Add(fsyrName); + SYRName.ItemIndex := 0; + SYRName.Enabled := false; + end; + orderType.ItemIndex := 0; + InitData(); + Label29.Caption := 'ۣ'; + Label22.Caption := 'ƥ'; + Label23.Caption := ''; + Note.Text := ''; + end + else + ModalResult := 1; + end; +end; + +procedure TfrmOrderInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZdyAttachCP := TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTCode').Value := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + Self.Order_Sub.FieldByName('PRTCodeName').Value := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColor').Value := Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + end; + end; + finally + frmZdyAttachCP.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmOrderInPut.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('OrderUnit').Value := ''; + { 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 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 ADOTemp do + begin + close; + sql.Clear; + sql.Add('update CK_BanCP_KC SET BHFlag=0 '); + sql.Add('where BHOrderNo=' + quotedstr(trim(FMainId))); + sql.Add('and C_CodeName=' + quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').asstring))); + sql.Add('and C_Color=' + quotedstr(trim(Order_Sub.fieldbyname('PRTColor').asstring))); + +// sql.Add('where mainID=' + quotedstr(trim(Order_Sub.fieldbyname('mainID').asstring))); +// sql.Add('and subID=' + quotedstr(trim(Order_Sub.fieldbyname('subID').asstring))); +// sql.Add('where CRID=' + quotedstr(trim(CDS_PH.fieldbyname('CRID').AsString))); +// sql.Add('delete from CK_BanCP_BH where PHID=''' + trim(CDS_PH.fieldbyname('PHID').AsString) + ''' '); + execsql; + end; + + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where subID=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + ''' and CRType=''ӦտǼ'''); + Open; + end; + if ADOTemp.IsEmpty = False then + begin + Application.MessageBox('ѲݣܸĶ!', 'ʾ', 0); + Exit; + end; + { 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; + +end; + +procedure TfrmOrderInPut.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 TfrmOrderInPut.CustomerNoNameBtnUpClick(Sender: TObject); +begin + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KHName'; + 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; } + CustomerNoName.OnChange := nil; + try + frmZdyAttachment := TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType := ''; + { if trim(fCustomerNoName)='㶫в' then + begin + fkhType:='㶫ͻ'; + end + else + begin + fkhType:=self.fsyrName; + end; } + if trim(SYRName.Text) = '֯' then + begin + fkhType := '֯'; + end + else if trim(SYRName.Text) = 'һ׷֯' then + begin + fkhType := 'һ׷֯'; + end + else if trim(SYRName.Text) = '·֯' then + begin + fkhType := '·֯'; + end + else + fkhType := self.fsyrName; + if ShowModal = 1 then + begin + CustomerNoName.Text := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FHAddress.Text := Trim(CDS_HZ.fieldbyname('DEFNote2').AsString); + LXFS.Text := Trim(CDS_HZ.fieldbyname('DEFstr2').AsString); + OrdPerson1.Text := Trim(CDS_HZ.fieldbyname('DEFstr5').AsString); + end; + end; + finally + frmZdyAttachment.Free; + end; + CustomerNoName.OnChange := CustomerNoNameChange; + +end; + +procedure TfrmOrderInPut.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; + TBtnEditC(Sender).TxtCode := ''; +end; + +procedure TfrmOrderInPut.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 TfrmOrderInPut.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 TfrmOrderInPut.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 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 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.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 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); + 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 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 TfrmOrderInPut.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then + Exit; + OneKeyPost(Tv1, Order_Sub); +end; + +procedure TfrmOrderInPut.v1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'MPRTMF'; + flagname := 'ŷ'; + V1Name.Caption := ''; + V1Note.Caption := 'Ӣ'; + // MainType:=Trim(DName); + fnote := FALSE; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTMF').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrderInPut.v1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'MPRTKZ'; + flagname := ''; + V1Name.Caption := ''; + V1Note.Caption := 'Ӣ'; + // MainType:=Trim(DName); + fnote := FALSE; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTKZ').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrderInPut.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + with ADOTemp do + begin + Close; + sql.Clear; + Filtered := False; + SQL.Add('select case when isnull(PHSL,0)=0 then B.KCQty else phsl end as PHSL ,'); + sql.Add('A.*,B.KCKGQty,B.KCQty,B.KCQtyUnit,B.kcRollNum,B.CPType,B.C_Code,C.kckw,B.C_CodeName,B.C_Spec,B.C_Color,B.RCGangNo,E.MJType,E.apID,B.mjxh,B.BHFlag '); + sql.Add('from CK_BanCP_BH A '); + sql.Add('INNER join CK_BanCP_KC B on B.CRID=A.CRID '); + sql.Add('LEFT join CK_BanCP_CR C on C.CRID=B.CRID and CRFlag='''' '); + sql.Add('LEFT join WFB_MJJY E on A.MJID=E.MJID '); + sql.Add('where A.mainID=' + quotedstr(trim(Order_Sub.fieldbyname('mainID').asstring))); + sql.Add('and A.subID=' + quotedstr(trim(Order_Sub.fieldbyname('subID').asstring))); + sql.Add('order by A.phID '); + open; + end; + if not ADOTemp.IsEmpty then + begin + application.MessageBox('õѾˣ޸IJƷƣɾݣһݣ', 'ʾϢ', 0); + with Order_Sub do + begin + Edit; + FieldByName('PRTCodeName').Value := trim(ADOTemp.fieldbyname('C_CodeName').AsString); + Post; + end; + end + else + begin + try + frmZdyAttachCP := TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + FType := 'Ʒ'; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTCode').Value := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + Self.Order_Sub.FieldByName('PRTCodeName').Value := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColor').Value := Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + end; + end; + finally + frmZdyAttachCP.Free; + end; + + with ADOQueryCP do + begin + close; + sql.Clear; + sql.Add('select ATID,defstr3 from KH_Zdy_Attachment A '); + sql.Add('where zdyName=' + quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + open; + end; + end; + + + +{ try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CP'; + flagname:='Ʒ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; +// MainType:=Trim(DName); + fnote:=FALSE; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Self.Order_Sub.FieldByName('PRTCodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'#'; + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; } + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrderInPut.v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'MPRTSpec'; + flagname := ''; + V1Name.Caption := ''; + V1Note.Caption := 'Ӣ'; + // MainType:=Trim(DName); + fnote := FALSE; + if ShowModal = 1 then + begin + Self.Order_Sub.Edit; + // Self.Order_Sub.FieldByName('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYCode').AsString); + Self.Order_Sub.FieldByName('PRTSpec').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrderInPut.FHAddressBtnUpClick(Sender: TObject); +begin + if Trim(CustomerNoName.Text) = '' then + begin + Application.MessageBox('ͻΪ!', 'ʾ', 0); + Exit; + end; + try + frmZDYHelpSel := TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag := 'FHAddress'; + flagname := 'ַ'; + MainType := Trim(CustomerNoName.Text); + if ShowModal = 1 then + begin + FHAddress.Text := Trim(ReturnStr); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.LXFSBtnUpClick(Sender: TObject); +begin + if Trim(CustomerNoName.Text) = '' then + begin + Application.MessageBox('ͻΪ!', 'ʾ', 0); + Exit; + end; + try + frmZDYHelpSel := TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag := 'LXFS'; + flagname := 'ϵʽ'; + MainType := Trim(CustomerNoName.Text); + if ShowModal = 1 then + begin + LXFS.Text := Trim(ReturnStr); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPut.v1Column5PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with Order_Sub do + begin + Edit; + FieldByName('PRTCodeName').Value := Trim(mvalue); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); + DoKc(); + with ADOTemp do + begin + Close; + sql.Clear; + Filtered := False; + SQL.Add('select case when isnull(PHSL,0)=0 then B.KCQty else phsl end as PHSL ,'); + sql.Add('A.*,B.KCKGQty,B.KCQty,B.KCQtyUnit,B.kcRollNum,B.CPType,B.C_Code,C.kckw,B.C_CodeName,B.C_Spec,B.C_Color,B.RCGangNo,E.MJType,E.apID,B.mjxh,B.BHFlag '); + sql.Add('from CK_BanCP_BH A '); + sql.Add('INNER join CK_BanCP_KC B on B.CRID=A.CRID '); + sql.Add('LEFT join CK_BanCP_CR C on C.CRID=B.CRID and CRFlag='''' '); + sql.Add('LEFT join WFB_MJJY E on A.MJID=E.MJID '); + sql.Add('where A.mainID=' + quotedstr(trim(Order_Sub.fieldbyname('mainID').asstring))); + sql.Add('and A.subID=' + quotedstr(trim(Order_Sub.fieldbyname('subID').asstring))); + sql.Add('order by A.phID '); + open; + end; + if not ADOTemp.IsEmpty then + begin + application.MessageBox('õѾˣ޸IJƷɾݣһݣ', 'ʾϢ', 0); + with Order_Sub do + begin + Edit; + FieldByName('PRTCodeName').Value := trim(ADOTemp.fieldbyname('C_CodeName').AsString); + Post; + end; + end; + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName=' + quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + open; + end; + if ADOTemp.IsEmpty then + begin + application.MessageBox('Ʒڣ', 'ʾϢ', 0); + with Order_Sub do + begin + Edit; + FieldByName('PRTCodeName').Value := ''; + Post; + end; + exit; + end; + + (v1PRTColor.Properties as TcxComboBoxProperties).Items.Clear; + + while not ADOTemp.Eof do + begin + (v1PRTColor.Properties as TcxComboBoxProperties).Items.Add(ADOTemp.fieldbyname('defstr3').AsString); + ADOTemp.Next; + end; + + with ADOQueryCP do + begin + close; + sql.Clear; + sql.Add('select ATID,defstr3 from KH_Zdy_Attachment A '); + sql.Add('where zdyName=' + quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + open; + end; + +end; + +procedure TfrmOrderInPut.v1PRTColorPropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with Order_Sub do + begin + Edit; + FieldByName('PRTColor').Value := Trim(mvalue); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); + DoKc(); + + with ADOTemp do + begin + Close; + sql.Clear; + Filtered := False; + SQL.Add('select case when isnull(PHSL,0)=0 then B.KCQty else phsl end as PHSL ,'); + sql.Add('A.*,B.KCKGQty,B.KCQty,B.KCQtyUnit,B.kcRollNum,B.CPType,B.C_Code,C.kckw,B.C_CodeName,B.C_Spec,B.C_Color,B.RCGangNo,E.MJType,E.apID,B.mjxh,B.BHFlag '); + sql.Add('from CK_BanCP_BH A '); + sql.Add('INNER join CK_BanCP_KC B on B.CRID=A.CRID '); + sql.Add('LEFT join CK_BanCP_CR C on C.CRID=B.CRID and CRFlag='''' '); + sql.Add('LEFT join WFB_MJJY E on A.MJID=E.MJID '); + sql.Add('where A.mainID=' + quotedstr(trim(Order_Sub.fieldbyname('mainID').asstring))); + sql.Add('and A.subID=' + quotedstr(trim(Order_Sub.fieldbyname('subID').asstring))); + sql.Add('order by A.phID '); + open; + end; + if not ADOTemp.IsEmpty then + begin + application.MessageBox('õѾˣ޸ɫɾݣһݣ', 'ʾϢ', 0); + with Order_Sub do + begin + Edit; + FieldByName('PRTColor').Value := trim(ADOTemp.fieldbyname('C_Color').AsString); + Post; + end; + end; + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName=' + quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + sql.Add('and DEFstr3=' + quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString))); + open; + end; + if ADOTemp.IsEmpty then + begin + application.MessageBox('ɫڣ', 'ʾϢ', 0); + with Order_Sub do + begin + Edit; + FieldByName('PRTColor').Value := ''; + Post; + end; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrderInPut.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + DoKc(); +end; + +procedure TfrmOrderInPut.OrdPerson1BtnClick(Sender: TObject); +begin + frmUserHelp := TfrmUserHelp.create(self); + with frmUserHelp do + begin + if showmodal = 1 then + begin + OrdPerson1.Text := trim(ADOQueryHelp.fieldbyname('UserName').AsString); + end; + free; + end; +end; + +procedure TfrmOrderInPut.Button1Click(Sender: TObject); +var + i: Integer; +begin + if trim(edit1.Text) = '' then + exit; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName=' + quotedstr(trim(edit1.Text))); + open; + if IsEmpty then + begin + application.MessageBox('Ʒڣ', 'ʾϢ', 0); + exit; + end; + Order_Sub.DisableControls; + while not eof do + begin + Self.Order_Sub.Append; + Self.Order_Sub.FieldByName('XHNO').Value := Self.Order_Sub.RecordCount + 1; + Self.Order_Sub.FieldByName('OrderUnit').Value := ''; + Self.Order_Sub.FieldByName('PRTCode').Value := Trim(fieldbyname('ZdyCode').AsString); + Self.Order_Sub.FieldByName('PRTCodeName').Value := Trim(fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColor').Value := Trim(fieldbyname('DEFstr3').AsString); + Self.Order_Sub.FieldByName('PRTOrderQty').Value := strtofloatdef(trim(edit2.Text), 0); + Self.Order_Sub.FieldByName('PRTPrice').Value := strtofloatdef(trim(edit3.Text), 0); + Self.Order_Sub.post; + next; + end; + Order_Sub.First; + Order_Sub.EnableControls; + end; + self.tv1.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmOrderInPut.OrdDateChange(Sender: TObject); +begin + if formatdateTime('yyyy-MM-dd', OrdDate.Date) > formatdateTime('yyyy-MM-dd', date()) then + begin + application.MessageBox('ڲܴڽ죡', 'ʾϢ', 0); + OrdDate.Date := strtodate(formatdateTime('yyyy-MM-dd', date())); + exit; + end; +end; + +procedure TfrmOrderInPut.CustomerNoNameChange(Sender: TObject); +var + mvalue: string; +begin + mvalue := Trim(CustomerNoName.Text); + if Length(Trim(mvalue)) > 1 then + begin + //mvalue:='%'+Trim(mvalue)+'%'; + with ADO_KH do + begin + Close; + sql.Clear; + sql.Add(' select * from KH_Zdy_Attachment '); + sql.Add(' where (ZDYName like ' + quotedstr('%' + trim(mvalue) + '%')); + sql.Add(' or dbo.getpinYin(zdyName) like ' + quotedstr('%' + trim(mvalue) + '%')); + sql.Add(' ) and isnull(khType,'''')=' + quotedstr(trim(fsyrName))); + sql.Add(' and Type=''KHName'' '); + Open; + end; + if ADO_KH.IsEmpty then + begin + cxGrid4.Visible := False; + CustomerNoName.text := ''; + application.MessageBox('ÿͻ뵱ǰҵԱһ£', 'ʾϢ', 0); + end + else + cxGrid4.Visible := True; + + end; + +end; + +procedure TfrmOrderInPut.TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + CustomerNoName.OnChange := nil; + CustomerNoName.Text := Trim(ADO_KH.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode := Trim(ADO_KH.fieldbyname('ZdyCode').AsString); + FHAddress.Text := Trim(ADO_KH.fieldbyname('DEFNote2').AsString); + LXFS.Text := Trim(ADO_KH.fieldbyname('DEFstr2').AsString); + OrdPerson1.Text := Trim(ADO_KH.fieldbyname('DEFstr5').AsString); + cxGrid4.Visible := False; + CustomerNoName.OnChange := CustomerNoNameChange; +end; + +procedure TfrmOrderInPut.TV4KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); +begin + if Key = VK_RETURN then + begin + CustomerNoName.OnChange := nil; + CustomerNoName.Text := Trim(ADO_KH.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode := Trim(ADO_KH.fieldbyname('ZdyCode').AsString); + FHAddress.Text := Trim(ADO_KH.fieldbyname('DEFNote2').AsString); + LXFS.Text := Trim(ADO_KH.fieldbyname('DEFstr2').AsString); + OrdPerson1.Text := Trim(ADO_KH.fieldbyname('DEFstr5').AsString); + cxGrid4.Visible := False; + CustomerNoName.OnChange := CustomerNoNameChange; + end; +end; + +procedure TfrmOrderInPut.CustomerNoNameKeyPress(Sender: TObject; var Key: Char); +begin + CustomerNoName.OnChange := CustomerNoNameChange; + if Key = #13 then + begin + CustomerNoName.OnChange := nil; + if (cxGrid4.Visible = true) and (not ADO_KH.IsEmpty) then + begin + CustomerNoName.OnChange := nil; + CustomerNoName.Text := Trim(ADO_KH.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode := Trim(ADO_KH.fieldbyname('ZdyCode').AsString); + FHAddress.Text := Trim(ADO_KH.fieldbyname('DEFNote2').AsString); + LXFS.Text := Trim(ADO_KH.fieldbyname('DEFstr2').AsString); + OrdPerson1.Text := Trim(ADO_KH.fieldbyname('DEFstr5').AsString); + cxGrid4.Visible := False; + end; + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select DEFstr5 from KH_Zdy_Attachment where Type=''KHName'' '); + sql.Add('and zdyName like ''' + '%' + Trim(CustomerNoName.Text) + '%' + ''''); + open; + end; + if Trim(OrdPerson1.text) <> Trim(ADOTemp.fieldbyname('DEFstr5').AsString) then + begin + CustomerNoName.text := ''; + application.MessageBox('ÿͻ뵱ǰҵԱһ£', 'ʾϢ', 0); + exit; + end; + end; + //CustomerNoName.OnChange:=CustomerNoNameChange; + // cxGrid4.Visible:=False; +end; + +procedure TfrmOrderInPut.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin +{ IF trim(Order_Sub.fieldbyname('PRTCodeName').AsString)<>'' then + begin + with ADOQueryCP do + begin + close; + sql.Clear; + sql.Add('select ATID,defstr3 from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + open; + end; + end;} + +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_OrderInPutXH.dfm b/管理系统/U_OrderInPutXH.dfm new file mode 100644 index 0000000..56f93df --- /dev/null +++ b/管理系统/U_OrderInPutXH.dfm @@ -0,0 +1,1201 @@ +object frmOrderInPutXH: TfrmOrderInPutXH + Left = 0 + Top = 0 + Width = 1366 + Height = 738 + 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 Label31: TLabel + Left = 532 + Top = 4 + Width = 36 + Height = 12 + Caption = #21333#20215#65306 + Visible = False + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1350 + 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 = 1350 + Height = 232 + Align = alTop + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Left = 34 + 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 = 34 + Top = 40 + 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 = 247 + 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 Label7: TLabel + Left = 83 + Top = 261 + 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 + Visible = False + end + object Label8: TLabel + Left = 34 + Top = 93 + Width = 60 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 246 + Top = 65 + 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 = 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 Label11: TLabel + Left = 303 + Top = 351 + Width = 65 + Height = 12 + Caption = #20844#21496#32534#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 Label14: TLabel + Left = 675 + Top = 17 + 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 = 515 + Top = 351 + 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 Label2: TLabel + Left = 471 + Top = 256 + 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 + Visible = False + end + object Label5: TLabel + Left = 683 + Top = 256 + 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 + Visible = False + end + object Label6: TLabel + Left = 42 + Top = 286 + 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 + Visible = False + end + object Label12: TLabel + Left = 255 + Top = 290 + 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 = 471 + Top = 286 + 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 = 683 + Top = 286 + 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 + Visible = False + end + object Label16: TLabel + Left = 295 + Top = 261 + 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 + Visible = False + end + object Label17: TLabel + Left = 595 + Top = 272 + 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 + Visible = False + end + object Label18: TLabel + Left = 459 + Top = 41 + Width = 65 + Height = 12 + Caption = #21457#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 Label19: TLabel + Left = 459 + Top = 65 + Width = 65 + Height = 12 + Caption = #32852#31995#26041#24335#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 = 460 + Top = 92 + Width = 65 + Height = 12 + Caption = #20462#25913#22791#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label24: TLabel + Left = 34 + Top = 64 + Width = 65 + Height = 12 + Caption = #35746#21333#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 = 458 + Top = 16 + 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 = 12 + Width = 140 + Height = 18 + Enabled = False + TabOrder = 0 + end + object OrdDate: TDateTimePicker + Tag = 2 + Left = 97 + Top = 36 + Width = 140 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + TabOrder = 1 + OnChange = OrdDateChange + end + object DlyDate: TDateTimePicker + Tag = 2 + Left = 310 + Top = 36 + Width = 140 + Height = 20 + BevelInner = bvNone + Date = 40916.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 40916.670856296290000000 + ShowCheckbox = True + TabOrder = 2 + end + object ConNo: TEdit + Tag = 2 + Left = 310 + Top = 12 + Width = 140 + Height = 18 + TabOrder = 3 + OnKeyPress = ConNoKeyPress + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 364 + Top = 348 + Width = 136 + Height = 18 + TabOrder = 4 + Visible = False + OnKeyPress = jKeyPress + end + object JGFactoryName: TBtnEditC + Tag = 2 + Left = 145 + Top = 257 + Width = 136 + Height = 20 + Hint = 'JGFactory' + ReadOnly = True + TabOrder = 5 + Visible = False + OnBtnUpClick = JGFactoryNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object CustomerNoName: TBtnEditC + Tag = 2 + Left = 738 + Top = 13 + Width = 140 + Height = 20 + Hint = 'CustomerNo' + TabOrder = 6 + OnChange = CustomerNoNameChange + OnKeyPress = CustomerNoNameKeyPress + OnBtnUpClick = CustomerNoNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object OrdDefStr2: TBtnEditC + Tag = 2 + Left = 579 + Top = 347 + Width = 135 + Height = 20 + Hint = 'OrdDefStr2/'#20844#21496#21488#22836 + TabOrder = 7 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTCodeName: TBtnEditC + Tag = 2 + Left = 529 + Top = 252 + Width = 135 + Height = 20 + Hint = 'MPRTCode' + ReadOnly = True + TabOrder = 8 + Visible = False + OnBtnUpClick = MPRTCodeNameBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTCF: TBtnEditC + Tag = 2 + Left = 747 + Top = 252 + Width = 135 + Height = 20 + Hint = 'MPRTCF/'#25104#20998 + TabOrder = 9 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTSpec: TBtnEditC + Tag = 2 + Left = 105 + Top = 282 + Width = 136 + Height = 20 + Hint = 'MPRTSpec/'#35268#26684 + TabOrder = 10 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTMF: TBtnEditC + Tag = 2 + Left = 318 + Top = 282 + Width = 136 + Height = 20 + Hint = 'MPRTMF/'#38376#24133 + TabOrder = 11 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTKZ: TBtnEditC + Tag = 2 + Left = 533 + Top = 282 + Width = 135 + Height = 20 + Hint = 'MPRTKZ/'#20811#37325 + TabOrder = 12 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object MPRTSL: TBtnEditC + Tag = 2 + Left = 747 + Top = 282 + Width = 135 + Height = 20 + Hint = 'MPRTSL/'#32553#29575 + TabOrder = 13 + Visible = False + OnBtnUpClick = OrdDefStr2BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object OrdDefStr3: TBtnEditC + Tag = 2 + Left = 359 + Top = 257 + Width = 135 + Height = 20 + Hint = 'OrdDefStr3/'#21787#22836 + TabOrder = 14 + Visible = False + OnBtnUpClick = OrdDefStr3BtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object Note: TMemo + Tag = 2 + Left = 97 + Top = 89 + Width = 353 + Height = 73 + TabOrder = 15 + OnDblClick = NoteDblClick + end + object OrdPerson2: TEdit + Tag = 2 + Left = 659 + Top = 269 + Width = 136 + Height = 18 + TabOrder = 16 + Visible = False + end + object FHAddress: TBtnEditC + Tag = 2 + Left = 522 + Top = 37 + Width = 351 + Height = 20 + ReadOnly = True + TabOrder = 17 + OnBtnUpClick = FHAddressBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object LXFS: TBtnEditC + Tag = 2 + Left = 522 + Top = 61 + Width = 352 + Height = 20 + ReadOnly = True + TabOrder = 18 + OnBtnUpClick = LXFSBtnUpClick + OnBtnDnClick = CustomerNoNameBtnDnClick + end + object orddefnote1: TMemo + Tag = 2 + Left = 521 + Top = 93 + Width = 356 + Height = 73 + TabOrder = 19 + Visible = False + end + object OrdPerson1: TBtnEditA + Tag = 2 + Left = 312 + Top = 64 + Width = 137 + Height = 20 + TabOrder = 20 + OnBtnClick = OrdPerson1BtnClick + end + object SYRName: TComboBox + Tag = 2 + Left = 521 + Top = 12 + Width = 140 + Height = 20 + Style = csDropDownList + Ctl3D = False + ItemHeight = 12 + ParentCtl3D = False + TabOrder = 21 + Items.Strings = ( + #27491#24120#21333 + #21098#26679#21333) + end + object GroupBox1: TGroupBox + Left = 940 + Top = 24 + Width = 185 + Height = 125 + Caption = #20840#22871#36755#20837 + TabOrder = 22 + Visible = False + object Label26: TLabel + Left = 28 + Top = 24 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label27: TLabel + Left = 28 + Top = 48 + Width = 24 + Height = 12 + Caption = #25968#37327 + end + object Label28: TLabel + Left = 28 + Top = 68 + Width = 24 + Height = 12 + Caption = #21333#20215 + end + object Edit1: TEdit + Left = 56 + Top = 20 + Width = 81 + Height = 18 + TabOrder = 0 + end + object Edit2: TEdit + Left = 56 + Top = 44 + Width = 81 + Height = 18 + TabOrder = 1 + end + object Button1: TButton + Left = 56 + Top = 92 + Width = 69 + Height = 25 + Caption = #30830#23450 + TabOrder = 2 + OnClick = Button1Click + end + object Edit3: TEdit + Left = 56 + Top = 64 + Width = 81 + Height = 18 + TabOrder = 3 + end + end + object orderType: TComboBox + Tag = 2 + Left = 97 + Top = 64 + Width = 140 + Height = 20 + Style = csDropDownList + Ctl3D = False + ItemHeight = 12 + ParentCtl3D = False + TabOrder = 23 + end + object cxGrid4: TcxGrid + Left = 738 + Top = 32 + Width = 381 + Height = 115 + TabOrder = 24 + Visible = False + object TV4: TcxGridDBTableView + OnKeyDown = TV4KeyDown + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = TV4CellDblClick + DataController.DataSource = DS_KH + 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 = #23458#25143#21517#31216 + DataBinding.FieldName = 'ZDYName' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object V4Column3: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'DEFstr2' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object V4Column5: TcxGridDBColumn + Caption = #21457#36135#22320#22336 + DataBinding.FieldName = 'DEFNote2' + HeaderAlignmentHorz = taCenter + Width = 170 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = TV4 + end + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 261 + Width = 1350 + 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 = 290 + Width = 1350 + Height = 410 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnCellClick = Tv1CellClick + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + Column = v1PRTPrice + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Format = '0'#34892 + Kind = skCount + Column = v1Column7 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = 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.handBlack + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'XHNo' + HeaderAlignmentHorz = taCenter + 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> + Properties.OnButtonClick = v1Column5PropertiesButtonClick + Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column7: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1SOrddefstr1: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + PropertiesClassName = 'TcxComboBoxProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_TradeManage.handBlack + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 54 + end + object v1Column6: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column6PropertiesButtonClick + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column8PropertiesButtonClick + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 60 + end + object v1PRTRollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTRollNum' + HeaderAlignmentHorz = taCenter + Width = 46 + 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 = 56 + end + object v1gangFee: TcxGridDBColumn + Caption = #21253#32568#36153 + DataBinding.FieldName = 'GangFee' + HeaderAlignmentHorz = taCenter + Width = 61 + end + object v1YunFee: TcxGridDBColumn + Caption = #36816#36153 + DataBinding.FieldName = 'yunFee' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1OtherFee: TcxGridDBColumn + Caption = #20854#23427#36153 + DataBinding.FieldName = 'otherFee' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PriceUnit: TcxGridDBColumn + Caption = #20215#26684#21333#20301 + DataBinding.FieldName = 'PriceUnit' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1PriceUnitPropertiesButtonClick + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + VisibleForCustomization = False + Width = 61 + end + object v1Column2: TcxGridDBColumn + Caption = #20215#26684#26465#27454 + DataBinding.FieldName = 'SOrddefstr3' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.FonePurple + VisibleForCustomization = False + Width = 70 + end + object v1Column9: TcxGridDBColumn + Caption = 'M1' + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column10: TcxGridDBColumn + Caption = 'M2' + DataBinding.FieldName = 'SordQty2' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column11: TcxGridDBColumn + Caption = 'M3' + DataBinding.FieldName = 'SordQty3' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column12: TcxGridDBColumn + Caption = 'M4' + DataBinding.FieldName = 'SordQty4' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column13: TcxGridDBColumn + Caption = 'M5' + DataBinding.FieldName = 'SordQty5' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column14: TcxGridDBColumn + Caption = 'M6' + DataBinding.FieldName = 'SordQty6' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column15: TcxGridDBColumn + Caption = 'M7' + DataBinding.FieldName = 'SordQty7' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column16: TcxGridDBColumn + Caption = 'M8' + DataBinding.FieldName = 'SordQty8' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object v1Column17: TcxGridDBColumn + Caption = 'M9' + DataBinding.FieldName = 'SordQty9' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column18: TcxGridDBColumn + Caption = 'M10' + DataBinding.FieldName = 'SordQty10' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Sorddefnote1: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Sorddefnote1' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 260 + Top = 264 + Width = 1057 + Height = 25 + BevelOuter = bvNone + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + object Label22: TLabel + Left = 0 + Top = 4 + Width = 75 + Height = 14 + Caption = #24211#23384#21305#25968#65306 + end + object Label23: TLabel + Left = 136 + Top = 4 + Width = 75 + Height = 14 + Caption = #24211#23384#25968#37327#65306 + end + object Label29: TLabel + Left = 348 + Top = 4 + Width = 45 + Height = 14 + Caption = #21333#20215#65306 + end + object Label30: TLabel + Left = 532 + Top = 4 + Width = 45 + Height = 14 + Caption = #21333#20215#65306 + Visible = False + end + object Label32: TLabel + Left = 724 + Top = 4 + Width = 45 + Height = 14 + Caption = #21333#20215#65306 + Visible = False + end + end + object ADOTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1016 + Top = 33 + end + object ADOCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 888 + Top = 37 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 804 + Top = 372 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 660 + Top = 348 + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 928 + Top = 37 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 584 + Top = 185 + end + object ADO_KH: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 768 + Top = 16 + end + object DS_KH: TDataSource + DataSet = ADO_KH + Left = 812 + Top = 20 + end + object ADOQueryCP: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 524 + Top = 316 + end + object DSCP: TDataSource + DataSet = ADOQueryCP + Left = 476 + Top = 352 + end +end diff --git a/管理系统/U_OrderInPutXH.pas b/管理系统/U_OrderInPutXH.pas new file mode 100644 index 0000000..4de7721 --- /dev/null +++ b/管理系统/U_OrderInPutXH.pas @@ -0,0 +1,1954 @@ +unit U_OrderInPutXH; + +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, cxGridCustomPopupMenu, + cxGridPopupMenu, cxDBLookupComboBox, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, cxDropDownEdit; + +type + TfrmOrderInPutXH = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label1: TLabel; + Label3: TLabel; + OrderNo: TEdit; + OrdDate: TDateTimePicker; + Label4: TLabel; + DlyDate: TDateTimePicker; + Label7: TLabel; + Label8: 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; + Label10: TLabel; + ConNo: TEdit; + Label11: TLabel; + OrdDefStr1: TEdit; + Label14: TLabel; + Label20: TLabel; + JGFactoryName: TBtnEditC; + CustomerNoName: TBtnEditC; + v1XHNo: TcxGridDBColumn; + OrdDefStr2: TBtnEditC; + v1OrderUnit: TcxGridDBColumn; + v1SOrddefstr1: TcxGridDBColumn; + v1PriceUnit: TcxGridDBColumn; + Label2: TLabel; + MPRTCodeName: TBtnEditC; + Label5: TLabel; + MPRTCF: TBtnEditC; + Label6: TLabel; + MPRTSpec: TBtnEditC; + Label12: TLabel; + MPRTMF: TBtnEditC; + Label13: TLabel; + MPRTKZ: TBtnEditC; + Label15: TLabel; + MPRTSL: TBtnEditC; + Label16: TLabel; + OrdDefStr3: TBtnEditC; + Note: TMemo; + Label17: TLabel; + OrdPerson2: TEdit; + v1Column2: TcxGridDBColumn; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1PRTRollNum: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + Label18: TLabel; + FHAddress: TBtnEditC; + Label19: TLabel; + LXFS: TBtnEditC; + Label21: TLabel; + orddefnote1: TMemo; + v1Sorddefnote1: TcxGridDBColumn; + Panel1: TPanel; + Label22: TLabel; + Label23: TLabel; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + OrdPerson1: TBtnEditA; + Label24: TLabel; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + SYRName: TComboBox; + Label25: TLabel; + v1gangFee: TcxGridDBColumn; + GroupBox1: TGroupBox; + Label26: TLabel; + Label27: TLabel; + Edit1: TEdit; + Edit2: TEdit; + Button1: TButton; + Edit3: TEdit; + Label28: TLabel; + orderType: TComboBox; + v1YunFee: TcxGridDBColumn; + v1OtherFee: TcxGridDBColumn; + cxGrid4: TcxGrid; + TV4: TcxGridDBTableView; + V4Column1: TcxGridDBColumn; + V4Column5: TcxGridDBColumn; + V4Column3: TcxGridDBColumn; + cxGrid4Level1: TcxGridLevel; + ADO_KH: TADOQuery; + DS_KH: TDataSource; + Label29: TLabel; + Label30: TLabel; + ADOQueryCP: TADOQuery; + DSCP: TDataSource; + Label31: TLabel; + Label32: 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); + procedure v1Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure FHAddressBtnUpClick(Sender: TObject); + procedure LXFSBtnUpClick(Sender: TObject); + procedure v1Column5PropertiesEditValueChanged(Sender: TObject); + procedure v1PRTColorPropertiesEditValueChanged(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure OrdPerson1BtnClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure OrdDateChange(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure TV4CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + procedure TV4KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + procedure InitData(); + procedure ZDYHelp(FButn:TcxButtonEdit;LType:string); + function SaveData():Boolean; + function SaveDataSubOne():Boolean; + function SaveDataMain():Boolean; + function SaveDataSubMore():Boolean; + procedure DoKc(); + { Private declarations } + public + PState,CopyInt,PriceFlag:Integer; + FMainId,FFMainId,FOrderNo:String; + FXS:Integer; + fCustomerNoName:string; + forderType:string; + fsyrName:string; + { Public declarations } + end; + +var + frmOrderInPutXH: TfrmOrderInPutXH; + newh:hwnd; +implementation +uses + U_DataLink,U_ZDYHelp,U_Fun,U_ZDYHelpSel, U_ZdyAttachment, U_ZdyAttachCP, + U_UserHelp; + +{$R *.dfm} +procedure TfrmOrderInPutXH.DoKc(); +var + i:integer; +begin + Label22.Caption:='ƥ0'; + Label23.Caption:='0'; + IF Order_Sub.IsEmpty then exit; + IF trim(Order_Sub.fieldbyname('PRTCodeName').AsString)='' then exit; + IF trim(Order_Sub.fieldbyname('PRTColor').AsString)='' then exit; + + IF trim(fsyrName)='𻪷֯' then + begin + with ADOTemp do + begin + close; + sql.Clear; + SQL.Add('SELECT sum(A.KCRollnum) as KCRollnum,sum(A.KCQty) as kcQty FROM CK_BanCP_KC A'); + // sql.Add('exec P_Get_HCKCList '); + sql.Add(' where C_CodeName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + sql.Add(' and C_Color='+quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString))); + sql.Add(' and A.KCQty>0 and A.CPType not in(''һȴƷ'',''ȴƷ'') and isnull(A.kcstatus,'''')='''' '); + open; + end; + end + else + begin + with ADOTemp do + begin + close; + sql.Clear; + SQL.Add('SELECT sum(A.KCRollnum) as KCRollnum,sum(A.KCQty) as kcQty FROM CK_BanCP_KC1 A'); + // sql.Add('exec P_Get_HCKCList '); + sql.Add(' where C_CodeName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + sql.Add(' and C_Color='+quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString))); + sql.Add(' and A.KCQty>0 and A.CPType not in(''һȴƷ'',''ȴƷ'') and isnull(A.kcstatus,'''')='''' '); + open; + end; + end; + IF not ADOTemp.IsEmpty then + begin + Label22.Caption:='ƥ'+trim(ADOTemp.fieldbyname('kcRollNum').AsString); + Label23.Caption:=''+trim(ADOTemp.fieldbyname('kcQty').AsString); + end; + Label29.Caption:=''; + Label30.Caption:=''; + Label32.Caption:=''; + with ADOTemp do + begin + close; + sql.Clear; + SQL.Add(' SELECT Top 3 Price,CRTime FROM YF_Money_CR A'); + sql.Add(' where P_CodeName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + sql.Add(' and P_Color='+quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString))); + sql.Add(' and factoryName='+quotedstr(trim(CustomerNoName.Text))); + sql.Add(' and syrName='''+fsyrName+''' '); + IF trim(orderType.Text)='' then + sql.Add(' and YFName=''Ʒ'' ') + else + sql.Add(' and YFName=''۽'' '); + sql.Add(' and price>0 '); + sql.Add(' order by FillTime desc'); + open; + end; + i:=1; + IF not ADOTemp.IsEmpty then + begin + Label29.Caption:='ۣ'; + // Label29.Caption:='ۣ'+trim(ADOTemp.fieldbyname('price').AsString); + while not ADOTemp.Eof do + begin + Label29.Caption:=Label29.Caption+formatdateTime('yyyy-MM-dd',ADOTemp.fieldbyname('CRTime').AsDateTime)+'<'+ADOTemp.fieldbyname('Price').AsString+'> '; + i:=i+1; + ADOTemp.Next; + end; + end; +end; + +procedure TfrmOrderInPutXH.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾ¼1',Tv1,'ָʾ'); +end; + +procedure TfrmOrderInPutXH.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; + CustomerNoName.OnChange:=nil; + SCSHDataNew(ADOQuery1,ScrollBox1,2); + if PState=0 then + begin + OrdDate.DateTime:=SGetServerDate10(ADOTemp); + DlyDate.DateTime:=SGetServerDate10(ADOTemp); + // OrdPerson1.Text:=Trim(DName); + IF fCustomerNoName='㶫в'then + begin + CustomerNoName.Text:=trim(fCustomerNoName); + orderType.ItemIndex:=0; + end; + 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; + + if PState=0 then + begin + OrderNo.Text:='Զ'; + OrderNo.Enabled:=false; + end; + CustomerNoName.OnChange:=CustomerNoNameChange; +end; + +procedure TfrmOrderInPutXH.ZDYHelp(FButn:TcxButtonEdit;LType:string); +var + FType,ZDYName,FText:String; +begin +end; + +procedure TfrmOrderInPutXH.FormShow(Sender: TObject); +begin + readCxGrid('ָʾ¼1',Tv1,'ָʾ'); + SYRName.Items.Clear; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where Type=''SYRNAME'''); + open; + IF not IsEmpty then + begin + while not eof do + begin + SYRName.Items.Add(trim(fieldbyname('zdyname').AsString)); + next; + end; + SYRName.ItemIndex:=0; + end; + end; + if PriceFlag=99 then + begin + v1PRTPrice.Visible:=False; + v1PRTPrice.Hidden:=True; + end; + if PState=1 then + begin + Label21.Visible:=true; + orddefnote1.Visible:=true; + end; + orderType.Items.Clear; + orderType.Items.Add(fOrderType); + IF fOrderType='' then + begin + GroupBox1.Visible:=true; + v1gangFee.Visible:=false; + v1yunFee.Visible:=false; + v1otherFee.Visible:=false; + end + else + begin + GroupBox1.Visible:=false; + v1gangFee.Visible:=true; + v1yunFee.Visible:=true; + v1otherFee.Visible:=true; + end; + orderType.ItemIndex:=0; + If trim(fsyrName)<>'' then + begin + SYRName.Items.Clear; + SYRName.Items.Add(fsyrName); + SYRName.ItemIndex:=0; + SYRName.Enabled:=false; + // orderType.Enabled:=false; + end; + InitData(); +end; + +function TfrmOrderInPutXH.SaveData():Boolean; +var + maxno:String; + i:integer; +begin + + if Trim(FMainId)='' then + begin + if GetLSNo(ADOTemp,maxno,'JM','JYOrder_Main',3,1)=False then + begin + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end else + begin + maxno:=Trim(FMainId); + end; + 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; + 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 ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('delete from JYOrder_Sub where MainId='''+Trim(FMainId)+''''); + execsql; + end; + ///ӱ + with Order_Sub do + begin + DisableControls; + 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; + IF Fieldbyname('PRTRollNum').AsFloat=0 then + begin + i:=0; + IF fieldbyname('SordQty1').AsFloat<>0 then i:=i+1; + IF fieldbyname('SordQty2').AsFloat<>0 then i:=i+1; + IF fieldbyname('SordQty3').AsFloat<>0 then i:=i+1; + IF fieldbyname('SordQty4').AsFloat<>0 then i:=i+1; + IF fieldbyname('SordQty5').AsFloat<>0 then i:=i+1; + IF fieldbyname('SordQty6').AsFloat<>0 then i:=i+1; + IF fieldbyname('SordQty7').AsFloat<>0 then i:=i+1; + IF fieldbyname('SordQty8').AsFloat<>0 then i:=i+1; + IF fieldbyname('SordQty9').AsFloat<>0 then i:=i+1; + IF fieldbyname('SordQty10').AsFloat<>0 then i:=i+1; + edit; + fieldbyname('PRTRollNum').Value:=i; + post; + end; + + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + sql.Add('and DEFstr3='+quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString))); + open; + end; + IF not ADOTemp.IsEmpty then + begin + edit; + fieldbyname('PRTPrice').Value:=fieldbyname('PRTPrice').AsFloat+ ADOTemp.fieldbyname('defflt1').AsFloat; + post; + end; + + with ADOCmd do + begin + if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then + Append + else + Edit; + FieldByName('orderNo').Value:=Trim(orderNo.Text); + FieldByName('MainId').Value:=Trim(FMainId); + FieldByName('SubId').Value:=Trim(maxno); + RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'JYOrder_Sub',0); + fieldbyname('PRTOrderQty').Value:=Order_Sub.fieldbyname('PRTOrderQty').AsFloat; + fieldbyname('PRTRollNum').Value:=Order_Sub.fieldbyname('PRTRollNum').AsFloat; + fieldbyname('gangNum').Value:=Order_Sub.fieldbyname('gangNum').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('SordQty8').Value:=Order_Sub.fieldbyname('SordQty8').AsFloat; + fieldbyname('SordQty9').Value:=Order_Sub.fieldbyname('SordQty9').AsFloat; + fieldbyname('SordQty10').Value:=Order_Sub.fieldbyname('SordQty10').AsFloat; + + fieldbyname('GangFee').Value:=Order_Sub.fieldbyname('GangFee').AsFloat; + fieldbyname('YunFee').Value:=Order_Sub.fieldbyname('YunFee').AsFloat; + fieldbyname('OtherFee').Value:=Order_Sub.fieldbyname('OtherFee').AsFloat; + + fieldbyname('PRTCode').Value:=Order_Sub.fieldbyname('PRTCode').AsString; + 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; + Order_Sub.EnableControls; + end; + ADOCmd.Connection.CommitTrans; + Result:=True; + except + Result:=False; + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ','ʾ',0); + if GetLSNo(ADOTemp,maxno,'JS','JYOrder_Sub',4,1)=False then + begin + end; + end; +end; +function TfrmOrderInPutXH.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 TfrmOrderInPutXH.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 TfrmOrderInPutXH.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 TfrmOrderInPutXH.TBSaveClick(Sender: TObject); +var + forderNo:string; +begin + OrdDate.SetFocus; +{ if Trim(OrderNo.Text)='' then + begin + Application.MessageBox('ŲΪգ','ʾ',0); + Exit; + end; } + if Trim(CustomerNoName.Text)='' then + begin + Application.MessageBox('ͻƲΪգ','ʾ',0); + Exit; + end; + if Trim(orderType.Text)='' then + begin + Application.MessageBox('ͲΪգ','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PRTCodeName',null,[])=True then + begin + Application.MessageBox('ƷΪ!','ʾ',0); + Exit; + end; + if Order_Sub.Locate('PRTCodeName','',[])=True 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('PRTColor','',[])=True 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','',[])=True then + begin + Application.MessageBox('۸Ϊ!','ʾ',0); + Exit; + end; } + + +{ with Order_Sub do + begin + DisableControls; + First; + while not eof do + begin + if (fieldbyname('PRTRollNum').AsFloat=0) and (fieldbyname('PRTOrderQty').AsFloat=0)then + begin + EnableControls; + application.MessageBox('ƥͬʱδ㣡','ʾϢ',0); + exit; + end; + next; + end; + First; + EnableControls; + end; + } + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment where zdyName='''+Trim(CustomerNoName.Text)+''''); + Open; + end; + if ADOTemp.IsEmpty then + begin + Application.MessageBox('ͻ!','ʾϢ',0); + Exit; + end; + if PState=1 then + begin + if trim(orddefnote1.Text)='' then + begin + Application.MessageBox('޸ıעϢΪ!','ʾ',0); + Exit; + end; + 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 + else + begin + IF trim(fSYRName)='˷֯' then + begin + if GetLSNo(ADOCmd,forderNo,'L','JYOrder_Main',3,1)=False then + begin + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end + else + begin + IF trim(orderType.Text)='' then + begin + if GetLSNo(ADOCmd,forderNo,'J','JYOrder_Main',3,1)=False then + begin + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end + else + begin + if GetLSNo(ADOCmd,forderNo,'','JYOrder_Main',3,1)=False then + begin + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end; + end; + OrderNo.text:=trim(forderNo); + end; + + if SaveData() then + begin + Application.MessageBox('ɹ','ʾ',0); + IF PState=0 then + begin + FMainId:=''; + SClearData(ScrollBox1,2); + If trim(fsyrName)<>'' then + begin + SYRName.Items.Clear; + SYRName.Items.Add(fsyrName); + SYRName.ItemIndex:=0; + SYRName.Enabled:=false; + end; + orderType.ItemIndex:=0; + InitData(); + Label29.Caption:='ۣ'; + Label22.Caption:='ƥ'; + Label23.Caption:=''; + Note.Text:=''; + end + else + ModalResult:=1; + end; +end; + +procedure TfrmOrderInPutXH.v1PRTColorPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTCode').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + Self.Order_Sub.FieldByName('PRTCodeName').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + end; + end; + finally + frmZdyAttachCP.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); + + + + +end; + +procedure TfrmOrderInPutXH.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('OrderUnit').Value:=''; + { 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 TfrmOrderInPutXH.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 ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where subID='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+''' and CRType=''ӦտǼ'''); + Open; + end; + if ADOTemp.IsEmpty=False then + begin + Application.MessageBox('ѲݣܸĶ!','ʾ',0); + Exit; + end; + { 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; + +end; + +procedure TfrmOrderInPutXH.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 TfrmOrderInPutXH.CustomerNoNameBtnUpClick(Sender: TObject); +begin + { try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='KHName'; + 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; } + CustomerNoName.OnChange:=nil; + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType:=''; + { if trim(fCustomerNoName)='㶫в' then + begin + fkhType:='㶫ͻ'; + end + else + begin + fkhType:=self.fsyrName; + end; } + if trim(SYRName.Text)='֯' then + begin + fkhType:='֯'; + end + else if trim(SYRName.Text)='һ׷֯' then + begin + fkhType:='һ׷֯'; + end + else if trim(SYRName.Text)='·֯' then + begin + fkhType:='·֯'; + end + else + fkhType:=self.fsyrName; + if ShowModal=1 then + begin + CustomerNoName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + FHAddress.Text:=Trim(CDS_HZ.fieldbyname('DEFNote2').AsString); + LXFS.Text:=Trim(CDS_HZ.fieldbyname('DEFstr2').AsString); + OrdPerson1.Text:=Trim(CDS_HZ.fieldbyname('DEFstr5').AsString); + end; + end; + finally + frmZdyAttachment.Free; + end; + CustomerNoName.OnChange:=CustomerNoNameChange; +end; + +procedure TfrmOrderInPutXH.CustomerNoNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text:=''; + TBtnEditC(Sender).TxtCode:=''; +end; + +procedure TfrmOrderInPutXH.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 TfrmOrderInPutXH.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 TfrmOrderInPutXH.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 TfrmOrderInPutXH.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 TfrmOrderInPutXH.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 TfrmOrderInPutXH.v1PriceUnitPropertiesButtonClick(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 TfrmOrderInPutXH.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 TfrmOrderInPutXH.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 TfrmOrderInPutXH.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 TfrmOrderInPutXH.ToolButton3Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then Exit; + OneKeyPost(Tv1,Order_Sub); +end; + +procedure TfrmOrderInPutXH.v1Column6PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTMF'; + flagname:='ŷ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + // MainType:=Trim(DName); + fnote:=FALSE; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTMF').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrderInPutXH.v1Column8PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTKZ'; + flagname:=''; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + // MainType:=Trim(DName); + fnote:=FALSE; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTKZ').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrderInPutXH.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZdyAttachCP:=TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTCode').Value:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + Self.Order_Sub.FieldByName('PRTCodeName').Value:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + end; + end; + finally + frmZdyAttachCP.Free; + end; + + with ADOQueryCP do + begin + close; + sql.Clear; + sql.Add('select ATID,defstr3 from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + open; + end; + + + +{ try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CP'; + flagname:='Ʒ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; +// MainType:=Trim(DName); + fnote:=FALSE; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + Self.Order_Sub.FieldByName('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Self.Order_Sub.FieldByName('PRTCodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'#'; + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; } + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrderInPutXH.v1Column7PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTSpec'; + flagname:=''; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; + // MainType:=Trim(DName); + fnote:=FALSE; + if ShowModal=1 then + begin + Self.Order_Sub.Edit; + // Self.Order_Sub.FieldByName('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYCode').AsString); + Self.Order_Sub.FieldByName('PRTSpec').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrderInPutXH.FHAddressBtnUpClick(Sender: TObject); +begin + if Trim(CustomerNoName.Text)='' then + begin + Application.MessageBox('ͻΪ!','ʾ',0); + Exit; + end; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='FHAddress'; + flagname:='ַ'; + MainType:=Trim(CustomerNoName.Text); + if ShowModal=1 then + begin + FHAddress.Text:=Trim(ReturnStr); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutXH.LXFSBtnUpClick(Sender: TObject); +begin + if Trim(CustomerNoName.Text)='' then + begin + Application.MessageBox('ͻΪ!','ʾ',0); + Exit; + end; + try + frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application); + with frmZDYHelpSel do + begin + flag:='LXFS'; + flagname:='ϵʽ'; + MainType:=Trim(CustomerNoName.Text); + if ShowModal=1 then + begin + LXFS.Text:=Trim(ReturnStr); + end; + end; + finally + frmZDYHelpSel.Free; + end; +end; + +procedure TfrmOrderInPutXH.v1Column5PropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + with Order_Sub do + begin + Edit; + FieldByName('PRTCodeName').Value:=Trim(mvalue); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); + DoKc(); + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + open; + end; + IF ADOTemp.IsEmpty then + begin + application.MessageBox('Ʒڣ','ʾϢ',0); + with Order_Sub do + begin + Edit; + FieldByName('PRTCodeName').Value:=''; + Post; + end; + exit; + end; + + (v1PRTColor.Properties as TcxComboBoxProperties).Items.Clear; + + while not ADOTemp.Eof do + begin + (v1PRTColor.Properties as TcxComboBoxProperties).Items.Add(ADOTemp.fieldbyname('defstr3').AsString); + ADOTemp.Next; + end; + + + + with ADOQueryCP do + begin + close; + sql.Clear; + sql.Add('select ATID,defstr3 from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + open; + end; + +end; + +procedure TfrmOrderInPutXH.v1PRTColorPropertiesEditValueChanged( + Sender: TObject); +var + mvalue:string; +begin + mvalue:=TcxTextEdit(Sender).EditingText; + + IF trim(mvalue)='' then exit; + + IF rightBstr(trim(mvalue),1)<>'#'THEN + BEGIn + mvalue:=trim(mvalue)+'#'; + END; + + + + with Order_Sub do + begin + Edit; + FieldByName('PRTColor').Value:=Trim(mvalue); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); + DoKc(); + + + with ADOTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + sql.Add('and DEFstr3='+quotedstr(trim(Order_Sub.fieldbyname('PRTColor').AsString))); + open; + end; + IF ADOTemp.IsEmpty then + begin + application.MessageBox('ɫڣ','ʾϢ',0); + with Order_Sub do + begin + Edit; + FieldByName('PRTColor').Value:=''; + Post; + end; + end; + with Order_Sub do + begin + Edit; + FieldByName('PRTCode').Value:=trim(ADOTemp.fieldbyname('ZDYCode').AsString); + Post; + end; + self.tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmOrderInPutXH.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin + DoKc(); +end; + +procedure TfrmOrderInPutXH.OrdPerson1BtnClick(Sender: TObject); +begin + frmUserHelp:=TfrmUserHelp.create(self); + with frmUserHelp do + begin + if showmodal=1 then + begin + OrdPerson1.Text:=trim(ADOQueryHelp.fieldbyname('UserName').AsString); + end; + free; + end; +end; + +procedure TfrmOrderInPutXH.Button1Click(Sender: TObject); +var + i:Integer; +begin + IF trim(edit1.Text)='' then exit; + with ADOCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(edit1.Text))); + open; + IF IsEmpty then + begin + application.MessageBox('Ʒڣ','ʾϢ',0); + exit; + end; + Order_Sub.DisableControls; + while not eof do + begin + Self.Order_Sub.Append; + Self.Order_Sub.FieldByName('XHNO').Value:=Self.Order_Sub.RecordCount+1; + Self.Order_Sub.FieldByName('OrderUnit').Value:=''; + Self.Order_Sub.FieldByName('PRTCode').Value:=Trim(fieldbyname('ZdyCode').AsString); + Self.Order_Sub.FieldByName('PRTCodeName').Value:=Trim(fieldbyname('ZDYName').AsString); + Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(fieldbyname('DEFstr3').AsString); + Self.Order_Sub.FieldByName('PRTOrderQty').Value:=strtofloatdef(trim(edit2.Text),0); + Self.Order_Sub.FieldByName('PRTPrice').Value:=strtofloatdef(trim(edit3.Text),0); + Self.Order_Sub.post; + next; + end; + Order_Sub.First; + Order_Sub.EnableControls; + end; + self.tv1.Controller.EditingController.ShowEdit(); + +end; + +procedure TfrmOrderInPutXH.OrdDateChange(Sender: TObject); +begin + IF formatdateTime('yyyy-MM-dd',OrdDate.Date)>formatdateTime('yyyy-MM-dd',date()) then + begin + application.MessageBox('ڲܴڽ죡','ʾϢ',0); + OrdDate.Date:=strtodate(formatdateTime('yyyy-MM-dd',date())); + exit; + end; +end; + +procedure TfrmOrderInPutXH.CustomerNoNameChange(Sender: TObject); +var + mvalue:string; +begin + mvalue:=Trim(CustomerNoName.Text); + if Length(Trim(mvalue))>1 then + begin + //mvalue:='%'+Trim(mvalue)+'%'; + with ADO_KH do + begin + Close; + sql.Clear; + sql.Add(' select * from KH_Zdy_Attachment '); + sql.Add(' where (ZDYName like '+quotedstr('%'+trim(mvalue)+'%')); + sql.Add(' or dbo.getpinYin(zdyName) like '+quotedstr('%'+trim(mvalue)+'%')); + sql.Add(' ) and isnull(khType,'''')='+quotedstr(trim(fsyrName))); + sql.Add(' and Type=''KHName'' '); + Open; + end; + if ADO_KH.IsEmpty then cxGrid4.Visible:=False else cxGrid4.Visible:=True; + end; +end; + +procedure TfrmOrderInPutXH.TV4CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + CustomerNoName.OnChange:=nil; + CustomerNoName.Text:=Trim(ADO_KH.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(ADO_KH.fieldbyname('ZdyCode').AsString); + FHAddress.Text:=Trim(ADO_KH.fieldbyname('DEFNote2').AsString); + LXFS.Text:=Trim(ADO_KH.fieldbyname('DEFstr2').AsString); + OrdPerson1.Text:=Trim(ADO_KH.fieldbyname('DEFstr5').AsString); + cxGrid4.Visible:=False; + CustomerNoName.OnChange:=CustomerNoNameChange; +end; + +procedure TfrmOrderInPutXH.TV4KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + IF Key=VK_RETURN then + begin + CustomerNoName.OnChange:=nil; + CustomerNoName.Text:=Trim(ADO_KH.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(ADO_KH.fieldbyname('ZdyCode').AsString); + FHAddress.Text:=Trim(ADO_KH.fieldbyname('DEFNote2').AsString); + LXFS.Text:=Trim(ADO_KH.fieldbyname('DEFstr2').AsString); + OrdPerson1.Text:=Trim(ADO_KH.fieldbyname('DEFstr5').AsString); + cxGrid4.Visible:=False; + CustomerNoName.OnChange:=CustomerNoNameChange; + end; +end; + +procedure TfrmOrderInPutXH.CustomerNoNameKeyPress(Sender: TObject; + var Key: Char); +begin + CustomerNoName.OnChange:=CustomerNoNameChange; + IF Key=#13 then + begin + CustomerNoName.OnChange:=nil; + IF (cxGrid4.Visible=true) and (not ADO_KH.IsEmpty) then + begin + CustomerNoName.OnChange:=nil; + CustomerNoName.Text:=Trim(ADO_KH.fieldbyname('ZDYName').AsString); + CustomerNoName.TxtCode:=Trim(ADO_KH.fieldbyname('ZdyCode').AsString); + FHAddress.Text:=Trim(ADO_KH.fieldbyname('DEFNote2').AsString); + LXFS.Text:=Trim(ADO_KH.fieldbyname('DEFstr2').AsString); + OrdPerson1.Text:=Trim(ADO_KH.fieldbyname('DEFstr5').AsString); + cxGrid4.Visible:=False; + end; + end; + //CustomerNoName.OnChange:=CustomerNoNameChange; + // cxGrid4.Visible:=False; +end; + +procedure TfrmOrderInPutXH.Tv1CellClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin +{ IF trim(Order_Sub.fieldbyname('PRTCodeName').AsString)<>'' then + begin + with ADOQueryCP do + begin + close; + sql.Clear; + sql.Add('select ATID,defstr3 from KH_Zdy_Attachment A '); + sql.Add('where zdyName='+quotedstr(trim(Order_Sub.fieldbyname('PRTCodeName').AsString))); + open; + end; + 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_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..6dbb174 --- /dev/null +++ b/管理系统/U_OrderSel.dfm @@ -0,0 +1,342 @@ +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 = 1163 + Height = 461 + 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 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 = #30041#26679#21305#25968 + DataBinding.FieldName = 'LYPS' + HeaderAlignmentHorz = taRightJustify + Options.Focusing = False + Styles.Content = cxStyle3 + Width = 76 + end + object v2Column6: TcxGridDBColumn + Caption = #30041#26679#25968#37327 + DataBinding.FieldName = 'LYQty' + HeaderAlignmentHorz = taRightJustify + 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 = 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 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..a189ae0 --- /dev/null +++ b/管理系统/U_OrderSel.pas @@ -0,0 +1,210 @@ +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; + 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('ѡ',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.OrderNo OrderNoM,A.OrderNo,A.CustomerNoName,A.CustomerNo,A.MPRTCodeName,A.MPRTMF,A.MPRTKZ,B.*'); + sql.Add(',ZPPS=(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 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 and CPType=''Ʒ'') '); + sql.Add(',CPPS=(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 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 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 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 and CPType='''') '); + 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.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..db4b85b --- /dev/null +++ b/管理系统/U_OrderSelRK.dfm @@ -0,0 +1,329 @@ +object frmOrderSelRK: TfrmOrderSelRK + 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 Panel1: TPanel + Left = 0 + Top = 0 + Width = 1163 + 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 = 268 + 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 = 301 + 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 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 89 + Width = 1163 + Height = 461 + 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 = 80 + 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 = #30041#26679#21305#25968 + DataBinding.FieldName = 'LYPS' + HeaderAlignmentHorz = taRightJustify + Options.Focusing = False + Styles.Content = cxStyle3 + Width = 76 + end + object v2Column6: TcxGridDBColumn + Caption = #30041#26679#25968#37327 + DataBinding.FieldName = 'LYQty' + HeaderAlignmentHorz = taRightJustify + Options.Focusing = False + Styles.Content = cxStyle3 + Width = 78 + 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..5984404 --- /dev/null +++ b/管理系统/U_OrderSelRK.pas @@ -0,0 +1,195 @@ +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; + 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 + 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('ѡ',Tv2,'Ʒֿ'); + Close; +end; + +procedure TfrmOrderSelRK.FormShow(Sender: TObject); +begin + ReadCxGrid('ѡ',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.MPRTCodeName,A.MainId,B.SubId,B.PRTColor,B.OrderUnit,B.PRTOrderQty'); + sql.Add(',A.MPRTMF,A.MPRTKZ'); + sql.Add(',ZPPS=(select Count(*) 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(*) 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 * 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; + +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_PDSMEdit.dfm b/管理系统/U_PDSMEdit.dfm new file mode 100644 index 0000000..2adf198 --- /dev/null +++ b/管理系统/U_PDSMEdit.dfm @@ -0,0 +1,565 @@ +object frmPDSMEdit: TfrmPDSMEdit + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #30424#28857#25195#25551#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 = 1366 + 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 + object TBSave: TToolButton + Left = 0 + Top = 0 + Caption = #20445#23384 + ImageIndex = 14 + Visible = False + 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 = 33 + Width = 1366 + 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 = 36 + Top = 16 + Width = 88 + Height = 21 + Caption = #26465#30721#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 340 + Top = 16 + Width = 44 + Height = 21 + Caption = #24211#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object PHYG: TBtnEditA + Left = 96 + Top = 52 + Width = 100 + Height = 20 + 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 = [] + 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 = 124 + Top = 12 + Width = 185 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnKeyPress = SmNOKeyPress + end + object kcKw: TBtnEditA + Left = 388 + Top = 12 + Width = 185 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + OnBtnClick = kcKwBtnClick + end + end + object Panel2: TPanel + Left = 16 + Top = 93 + 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 + Format = #20849' 0 '#34892 + Kind = skCount + Column = cxGridDBColumn1 + 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.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_gridHead + object cxGridDBColumn1: TcxGridDBColumn + Caption = #25195#25551#20449#24687 + DataBinding.FieldName = 'SDefNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 160 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26465#30721#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 122 + end + object V2Column2: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'kcKw' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object V2Column1: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNO' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 80 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + object MovePanel1: TMovePanel + Left = 236 + Top = 156 + Width = 785 + 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] + 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 = 404 + Top = 216 + 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 = 352 + Top = 312 + end + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clInactiveCaption + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + 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 = -20 + 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 = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridFoot: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridHead: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + 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 = -20 + 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 = -20 + 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 = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontclFuchsia: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + 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 = -20 + 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 = -20 + 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 = -20 + 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 = -20 + 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 = -20 + 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 +end diff --git a/管理系统/U_PDSMEdit.pas b/管理系统/U_PDSMEdit.pas new file mode 100644 index 0000000..76f1d3e --- /dev/null +++ b/管理系统/U_PDSMEdit.pas @@ -0,0 +1,546 @@ +unit U_PDSMEdit; + +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,MMSystem; + +type + TfrmPDSMEdit = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + 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; + ADOQueryTm: TADOQuery; + DSTm: TDataSource; + V2Column2: TcxGridDBColumn; + 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); + private + procedure InitGrid(); + procedure InitMJID(); + procedure InitKw(); + function SaveRK():Boolean; + function SaveKW():Boolean; + Procedure QueryRk(); + Procedure QueryTM(); + { Private declarations } + public + { Public declarations } + end; + +var + frmPDSMEdit: TfrmPDSMEdit; + +implementation +uses + U_DataLink,U_Fun, U_UserHelp, U_ZDYHelp, U_CPKWListSel; +{$R *.dfm} +procedure TfrmPDSMEdit.InitKw(); +begin + kcKw.text:=''; + CDSMJID.EmptyDataSet; + with ADOQueryTmp do + begin + Close; + sql.Clear; + SQL.add('select * from KH_Zdy_Attachment where ATID='+quotedstr(trim(smNO.Text))); + sql.Add('and Type=''CPKW'''); + Open; + end; + IF not ADOQueryTmp.IsEmpty then + begin + kcKw.text:=trim(ADOQueryTmp.fieldbyname('ZdyCode').AsString); + end; + +end; +Procedure TfrmPDSMEdit.QueryTm(); +begin +{ with ADOQueryTM do + begin + close; + sql.Clear; + sql.Add('select TOP 50 MJID'); + sql.Add('from WFB_MJJY 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(') and A.mjstr2=''δ'' '); + open; + end; } +end; +Procedure TfrmPDSMEdit.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(RollNum) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''''),'); + sql.Add('RK_Qty=(select sum(Qty) 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 TfrmPDSMEdit.SaveKW():Boolean; +begin + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + try + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update CK_BanCP_CR SET KCKW='+quotedstr(trim(kcKw.Text))); + sql.Add('where MJID='''+Trim(ADOQueryMain.fieldbyname('MJId').AsString)+''' '); + + sql.Add('update CK_BanCP_KC SET KCKW='+quotedstr(trim(kcKw.Text))); + sql.Add('where MJID='''+Trim(ADOQueryMain.fieldbyname('MJId').AsString)+''' '); + + sql.Add('update CK_BanCP_PD SET PRollNum=A.PRollNum+1,PQty=A.PQty+B.KCQty '); + sql.Add('from CK_BanCP_PD A'); + sql.Add('inner join CK_BanCP_KC B on B.C_CodeName=A.C_CodeName and B.C_Color=A.C_Color and B.kcQtyUnit=A.QtyUnit '); + sql.Add('where B.MJID='''+Trim(ADOQueryMain.fieldbyname('MJId').AsString)+''' '); + sql.Add('and B.PDFlag=1 '); + sql.Add('and A.Status=0 '); + + sql.Add('update CK_BanCP_KC SET PDFlag=2 '); + sql.Add('where MJID='''+Trim(ADOQueryMain.fieldbyname('MJId').AsString)+''' '); + sql.Add('and PDFlag=1 '); + + execsql; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; +function TfrmPDSMEdit.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; + { with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai '); + sql.Add(' where APID='+quotedstr(trim(ADOQueryMain.fieldbyname('APID').AsString))); + open; + IF not ADOQueryTmp.IsEmpty then + begin + mhcTime:=ADOQueryTmp.fieldbyname('ADefDate1').AsDateTime; + end + else + begin + mhcTime:=date(); + end; + 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('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('C_Color').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('BCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('BCGangNO').AsString); + FieldByName('RCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('RCGangNO').AsString); + 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:=Trim(kcKw.Text); + fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('C_CodeName').AsString,ADOQueryMain.fieldbyname('C_Color').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('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('C_Color').AsString); + FieldByName('BCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('BCGangNO').AsString); + FieldByName('RCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('RCGangNO').AsString); + FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=0; + FieldByName('KCQty').Value:=ADOQueryMain.fieldbyname('MJlen').Value; + FieldByName('KCRollNum').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:=Trim(kcKw.Text); + fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('C_CodeName').AsString,ADOQueryMain.fieldbyname('C_Color').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2='''' where MJID='''+Trim(ADOQueryMain.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmPDSMEdit.InitGrid(); +begin + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.* from CK_BanCP_CR A '); + SQL.Add('where 1=2 '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDSMJID); + SInitCDSData20(ADOQueryMain,CDSMJID); +end; + +procedure TfrmPDSMEdit.InitMJID(); +begin + MovePanel1.Visible:=false; + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select MJID from WFB_MJJY A'); + sql.Add('where A.MJID='+quotedstr(trim(SmNO.Text))); + sql.Add('union all '); + sql.Add('select MJID from CK_BanCP_KC A'); + sql.Add('where A.MJID='+quotedstr(trim(SmNO.Text))); + open; + end; + IF ADOQueryTmp.IsEmpty then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='벻'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav'),0, SND_ASYNC); + SmNO.Text:=''; + exit; + end; + + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY A'); + sql.Add('where A.MJID='+quotedstr(trim(SmNO.Text))); + sql.Add('and MJstr2=''δ'''); + open; + end; + IF not ADOQueryTmp.IsEmpty then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='δ'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\δ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\δ.wav'),0, SND_ASYNC); + SmNO.Text:=''; + exit; + end; + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.* '); + SQL.Add('from CK_BanCP_KC A'); + sql.Add('inner join CK_BanCP_CR B on B.BCID=A.BCID'); + sql.Add('where A.MJID='+quotedstr(trim(SmNO.Text))); + Open; + end; + IF ADOQueryMain.fieldbyname('KCQty').AsFloat<=0 then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='ѳ'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ѳ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ѳ.wav'),0, SND_ASYNC); + end + else + IF ADOQueryMain.fieldbyname('PDflag').AsInteger=2 then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='̵'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\̵.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\̵.wav'),0, SND_ASYNC); + end + else + begin + IF not CDSMJID.Locate('MJID',trim(ADOQueryMain.Fieldbyname('MJID').AsString),[]) then + begin + IF saveKW() then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='̵ɹ'; + CDSMJID.FieldByName('MJID').Value:=trim(ADOQueryMain.Fieldbyname('MJID').AsString); + CDSMJID.FieldByName('KCKw').Value:=trim(KCKw.Text); +// CDSMJID.FieldByName('CRID').Value:=trim(ADOQueryMain.Fieldbyname('CRID').AsString); + CDSMJID.FieldByName('C_CodeName').Value:=trim(ADOQueryMain.Fieldbyname('C_CodeName').AsString); + CDSMJID.FieldByName('C_Color').Value:=trim(ADOQueryMain.Fieldbyname('C_Color').AsString); + CDSMJID.FieldByName('CPType').Value:=trim(ADOQueryMain.Fieldbyname('CPType').AsString); + CDSMJID.FieldByName('RollNum').Value:=1; + CDSMJID.FieldByName('Qty').Value:=ADOQueryMain.Fieldbyname('KCQty').AsFloat; + CDSMJID.FieldByName('QtyUnit').Value:=trim(ADOQueryMain.Fieldbyname('KCQtyUnit').AsString); + // CDSMJID.FieldByName('mainID').Value:=trim(ADOQueryMain.Fieldbyname('mainID').AsString); + // CDSMJID.FieldByName('subID').Value:=trim(ADOQueryMain.Fieldbyname('subID').AsString); + CDSMJID.FieldByName('RCGangNO').Value:=trim(ADOQueryMain.Fieldbyname('RCGangNO').AsString); + CDSMJID.FieldByName('BCgangNO').Value:=trim(ADOQueryMain.Fieldbyname('BCgangNO').AsString); + CDSMJID.Post; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav'),0, SND_ASYNC); + end + else + begin + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ʧ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ʧ.wav'),0, SND_ASYNC); + end; + end + else + begin + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ظɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ظɨ.wav'),0, SND_ASYNC); + end; + end; + + + + SmNO.Text:=''; +end; + +procedure TfrmPDSMEdit.FormDestroy(Sender: TObject); +begin + frmPDSMEdit:=nil; +end; + +procedure TfrmPDSMEdit.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 TfrmPDSMEdit.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmPDSMEdit.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 TfrmPDSMEdit.SmNOKeyPress(Sender: TObject; var Key: Char); +begin + IF key=#13 then + begin + if trim(smno.Text)='' then exit; + IF uppercase(leftBstr(trim(smno.Text),2))='KW' then + begin + InitKw(); + end + else + begin + IF trim(kcKw.Text)='' then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='λΪգ'; + smno.Text:=''; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav'),0, SND_ASYNC); + exit; + end; + initMJID(); + end; + smno.Text:=''; + smno.SetFocus; + end; +end; + +procedure TfrmPDSMEdit.FormShow(Sender: TObject); +begin + MovePanel1.Left:=(Width-MovePanel1.Width) div 2; + MovePanel1.top:=(Height-MovePanel1.Height-200) div 2; + InitGrid(); +end; + +procedure TfrmPDSMEdit.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 TfrmPDSMEdit.kcKwBtnClick(Sender: TObject); +begin + try + frmCPKWListSel:=TfrmCPKWListSel.Create(Application); + with frmCPKWListSel do + begin + if ShowModal=1 then + begin + kcKw.Text:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + end; + end; + finally + frmCPKWListSel.Free; + end; +end; + +procedure TfrmPDSMEdit.Button4Click(Sender: TObject); +begin + MovePanel1.Visible:=False; + SmNO.SetFocus; +end; + +end. diff --git a/管理系统/U_PbSelCK.dfm b/管理系统/U_PbSelCK.dfm new file mode 100644 index 0000000..bfba896 --- /dev/null +++ b/管理系统/U_PbSelCK.dfm @@ -0,0 +1,329 @@ +object frmPbSelCK: TfrmPbSelCK + Left = 177 + Top = 134 + Width = 1171 + Height = 587 + Caption = #22383#24067#20219#21153#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 = 1163 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 35 + Top = 19 + Width = 64 + Height = 16 + Caption = #20219#21153#21333#21495 + end + object Label3: TLabel + Left = 272 + Top = 103 + Width = 32 + Height = 16 + Caption = #39068#33394 + end + object Label8: TLabel + Left = 463 + Top = 103 + Width = 64 + Height = 16 + Caption = #23458' '#25143 + end + object conNo: TEdit + Tag = 2 + Left = 103 + Top = 16 + Width = 121 + Height = 24 + TabOrder = 0 + OnChange = conNoChange + end + object PRTColor: TEdit + Tag = 2 + Left = 305 + Top = 100 + Width = 111 + Height = 24 + TabOrder = 1 + OnChange = conNoChange + 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 = 529 + Top = 99 + Width = 119 + Height = 24 + TabOrder = 5 + OnChange = conNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 81 + Width = 1163 + Height = 472 + 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 = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 86 + end + object v2Column2: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'factoryNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 93 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 119 + end + object v1Column10: TcxGridDBColumn + Caption = #20219#21153#25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #35746#21333#21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 75 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Options.Sorting = False + Width = 80 + 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 = #30041#26679#21305#25968 + DataBinding.FieldName = 'LYPS' + HeaderAlignmentHorz = taRightJustify + Options.Focusing = False + Styles.Content = cxStyle3 + Width = 76 + end + object v2Column6: TcxGridDBColumn + Caption = #30041#26679#25968#37327 + DataBinding.FieldName = 'LYQty' + HeaderAlignmentHorz = taRightJustify + Options.Focusing = False + Styles.Content = cxStyle3 + Width = 78 + 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_PbSelCK.pas b/管理系统/U_PbSelCK.pas new file mode 100644 index 0000000..befb79f --- /dev/null +++ b/管理系统/U_PbSelCK.pas @@ -0,0 +1,195 @@ +unit U_PbSelCK; + +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 + TfrmPbSelCK = class(TForm) + Panel1: TPanel; + Label2: TLabel; + conNo: 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; + 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 conNoChange(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 + frmPbSelCK: TfrmPbSelCK; + +implementation +uses + U_DataLink,U_Fun ; + +{$R *.dfm} + +procedure TfrmPbSelCK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPbSelCK.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('factoryNo').AsString); + end else + begin + if Trim(fieldbyname('factoryNo').AsString)<>KHName then + begin + Application.MessageBox('ѡͬ','ʾ',0); + Exit; + end; + end; + end; + Next; + end; + end; + CDS_OrderSel.EnableControls; + ModalResult:=1; +end; + +procedure TfrmPbSelCK.FormDestroy(Sender: TObject); +begin + frmPbSelCK:=nil; +end; + +procedure TfrmPbSelCK.Button3Click(Sender: TObject); +begin + ModalResult:=-1; + WriteCxGrid('ѡ',Tv2,'Ʒֿ'); + Close; +end; + +procedure TfrmPbSelCK.FormShow(Sender: TObject); +begin + ReadCxGrid('ѡ',Tv2,'Ʒֿ'); + InitGrid(); +end; + +procedure TfrmPbSelCK.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add('select A.ConNo,A.factoryNOName,A.factoryNO,B.C_CodeName,A.MainId,B.SubId,B.C_Color,B.C_Unit,B.C_Qty'); + // sql.Add(',A.MPRTMF,A.MPRTKZ'); + sql.Add(',ZPPS=(select Count(*) from CK_BancP_KC WY '); + sql.Add(' where WY.SubId=B.SubId and isnull(WY.MJStr2,'''')<>'''' and WY.MJType=''Ʒ'') '); + sql.Add(',ZPQty=(select sum(MJLen) from CK_BancP_KC WY '); + sql.Add(' where WY.SubId=B.SubId and isnull(WY.MJStr2,'''')<>'''' and WY.MJType=''Ʒ'') '); + sql.Add(',CPPS=(select Count(*) from CK_BancP_KC WY '); + sql.Add(' where WY.SubId=B.SubId and isnull(WY.MJStr2,'''')<>'''' and WY.MJType=''Ʒ'') '); + sql.Add(',CPQty=(select sum(MJLen) from CK_BancP_KC WY '); + sql.Add(' where WY.SubId=B.SubId and isnull(WY.MJStr2,'''')<>'''' and WY.MJType=''Ʒ'') '); + sql.Add(',LYPS=(select Count(*) from CK_BancP_KC WY '); + sql.Add(' where WY.SubId=B.SubId and isnull(WY.MJStr2,'''')<>'''' and WY.MJType='''') '); + sql.Add(',LYQty=(select sum(MJLen) from CK_BancP_KC WY '); + sql.Add(' where WY.SubId=B.SubId and isnull(WY.MJStr2,'''')<>'''' and WY.MJType='''') '); + sql.Add(' from Contract_Main A inner join Contract_sub B on A.MainId=B.Mainid'); + sql.Add(' where exists(select * 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 TfrmPbSelCK.Button1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPbSelCK.conNoChange(Sender: TObject); +begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_OrderSel); + SInitCDSData20(ADOQueryMain,CDS_OrderSel); +end; + +procedure TfrmPbSelCK.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +end. diff --git a/管理系统/U_PbSelRK.dfm b/管理系统/U_PbSelRK.dfm new file mode 100644 index 0000000..f8653dd --- /dev/null +++ b/管理系统/U_PbSelRK.dfm @@ -0,0 +1,358 @@ +object frmPbSelRK: TfrmPbSelRK + Left = 139 + Top = 114 + Width = 1171 + Height = 587 + Caption = #22383#24067#20219#21153#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 = 1155 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label2: TLabel + Left = 35 + Top = 19 + Width = 32 + Height = 16 + Caption = #21333#21495 + end + object Label3: TLabel + Left = 272 + Top = 103 + Width = 32 + Height = 16 + Caption = #39068#33394 + end + object Label8: TLabel + Left = 463 + Top = 103 + Width = 64 + Height = 16 + Caption = #23458' '#25143 + end + object Label1: TLabel + Left = 275 + Top = 19 + Width = 48 + Height = 16 + Caption = #21152#24037#21378 + end + object Label4: TLabel + Left = 491 + Top = 19 + Width = 32 + Height = 16 + Caption = #21697#21517 + end + object Label5: TLabel + Left = 699 + Top = 19 + Width = 32 + Height = 16 + Caption = #39068#33394 + end + object conNo: TEdit + Tag = 2 + Left = 71 + Top = 16 + Width = 121 + Height = 24 + TabOrder = 0 + OnChange = conNoChange + end + object PRTColor: TEdit + Tag = 2 + Left = 305 + Top = 100 + Width = 111 + Height = 24 + TabOrder = 1 + OnChange = conNoChange + end + object Button1: TButton + Left = 891 + Top = 12 + Width = 75 + Height = 25 + Caption = #21047#26032 + TabOrder = 2 + OnClick = Button1Click + end + object Button2: TButton + Left = 891 + Top = 44 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 3 + OnClick = Button2Click + end + object Button3: TButton + Left = 987 + Top = 44 + Width = 75 + Height = 25 + Caption = #20851#38381 + TabOrder = 4 + OnClick = Button3Click + end + object CustomerNoName: TEdit + Tag = 2 + Left = 529 + Top = 99 + Width = 119 + Height = 24 + TabOrder = 5 + OnChange = conNoChange + end + object CheckBox1: TCheckBox + Left = 40 + Top = 56 + Width = 97 + Height = 17 + Caption = #20840#36873 + TabOrder = 6 + OnClick = CheckBox1Click + end + object Aorddefstr4: TEdit + Tag = 2 + Left = 327 + Top = 16 + Width = 121 + Height = 24 + TabOrder = 7 + OnChange = conNoChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 531 + Top = 16 + Width = 121 + Height = 24 + TabOrder = 8 + OnChange = conNoChange + end + object C_Color: TEdit + Tag = 2 + Left = 735 + Top = 16 + Width = 121 + Height = 24 + TabOrder = 9 + OnChange = conNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 81 + Width = 1155 + Height = 468 + 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 + 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.Indicator = True + 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 = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 91 + end + object v2Column5: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'Aorddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v2Column2: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'Aorddefstr4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 135 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 90 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 90 + end + object v1Column14: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'AOrdQty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column10: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'AOrdQty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1PRTMF: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'ZPPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Content = cxStyle1 + Width = 90 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'ZPQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Content = cxStyle1 + Width = 90 + 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_PbSelRK.pas b/管理系统/U_PbSelRK.pas new file mode 100644 index 0000000..f23baa8 --- /dev/null +++ b/管理系统/U_PbSelRK.pas @@ -0,0 +1,209 @@ +unit U_PbSelRK; + +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 + TfrmPbSelRK = class(TForm) + Panel1: TPanel; + Label2: TLabel; + conNo: 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; + cxGrid1Level1: TcxGridLevel; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyleRepository2: TcxStyleRepository; + cxStyle2: TcxStyle; + cxStyleRepository3: TcxStyleRepository; + cxStyle3: TcxStyle; + CheckBox1: TCheckBox; + v2Column5: TcxGridDBColumn; + Aorddefstr4: TEdit; + Label1: TLabel; + C_CodeName: TEdit; + Label4: TLabel; + C_Color: TEdit; + Label5: TLabel; + 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 conNoChange(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 + frmPbSelRK: TfrmPbSelRK; + +implementation +uses + U_DataLink,U_Fun ; + +{$R *.dfm} + +procedure TfrmPbSelRK.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmPbSelRK.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('Aorddefstr4').AsString); + end else + begin + if Trim(fieldbyname('Aorddefstr4').AsString)<>KHName then + begin + Application.MessageBox('ѡͬ','ʾ',0); + Exit; + end; + end; + end; + Next; + end; + end; + CDS_OrderSel.EnableControls; + ModalResult:=1; +end; + +procedure TfrmPbSelRK.FormDestroy(Sender: TObject); +begin + frmPbSelRK:=nil; +end; + +procedure TfrmPbSelRK.Button3Click(Sender: TObject); +begin + ModalResult:=-1; + WriteCxGrid('ѡ',Tv2,'Ʒֿ'); + Close; +end; + +procedure TfrmPbSelRK.FormShow(Sender: TObject); +begin + ReadCxGrid('ѡ',Tv2,'Ʒֿ'); + InitGrid(); +end; + +procedure TfrmPbSelRK.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select APID,ConNo,Aorddefstr1,Aorddefstr4,MainId,SubId,AOrdQty1,AOrdQty2,C_CodeName,C_Color,count(MJlen) as ZPPS,sum(MJLen) as ZPQty'); + sql.Add(' from ('); + sql.Add(' select A.APID,A.ConNo,A.Aorddefstr1,A.Aorddefstr4,A.MainId,A.SubId,A.AOrdQty1,A.AOrdQty2,B.C_CodeName,B.C_Color,B.Mjlen,B.MjID '); + sql.Add(' from JYOrder_Sub_AnPai A '); + sql.Add(' inner join WFB_MJJY B on B.APID=A.APID and B.MJlen<>0 and B.Mjstr2=''δ '' '); + sql.Add(' ) AA group by APID,ConNo,Aorddefstr1,Aorddefstr4,MainId,SubId,AOrdQty1,AOrdQty2,C_CodeName,C_Color'); + + Open; + end; + SCreateCDS20(ADOQueryMain,CDS_OrderSel); + SInitCDSData20(ADOQueryMain,CDS_OrderSel); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmPbSelRK.Button1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmPbSelRK.conNoChange(Sender: TObject); +begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SCreateCDS20(ADOQueryMain,CDS_OrderSel); + SInitCDSData20(ADOQueryMain,CDS_OrderSel); +end; + +procedure TfrmPbSelRK.Tv2CellDblClick(Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult:=1; +end; + +procedure TfrmPbSelRK.CheckBox1Click(Sender: TObject); +begin + IF CDS_OrderSel.IsEmpty then exit; + 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_Printckmd.dfm b/管理系统/U_Printckmd.dfm new file mode 100644 index 0000000..68fb891 --- /dev/null +++ b/管理系统/U_Printckmd.dfm @@ -0,0 +1,103 @@ +object frmPrintckmd: TfrmPrintckmd + Left = 446 + Top = 145 + Width = 301 + Height = 226 + BorderIcons = [biSystemMenu] + Caption = #30721#21333#25171#21360 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poOwnerFormCenter + OnClose = FormClose + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 12 + object Button1: TButton + Left = 48 + Top = 144 + Width = 75 + Height = 25 + Caption = #25171#21360 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 156 + Top = 144 + Width = 75 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button2Click + end + object RadioGroup1: TRadioGroup + Left = 32 + Top = 32 + Width = 209 + Height = 81 + ItemIndex = 0 + Items.Strings = ( + #22806#38144#30721#21333'1' + #22806#38144#30721#21333'2') + TabOrder = 2 + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_Main + Left = 176 + Top = 32 + 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 = 120 + Top = 24 + 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 = 112 + Top = 128 + end + object ADOQueryTemp: TADOQuery + AutoCalcFields = False + Connection = DataLink_TradeManage.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 216 + Top = 84 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 252 + Top = 152 + end +end diff --git a/管理系统/U_Printckmd.pas b/管理系统/U_Printckmd.pas new file mode 100644 index 0000000..81e0281 --- /dev/null +++ b/管理系统/U_Printckmd.pas @@ -0,0 +1,183 @@ +unit U_Printckmd; + +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, RM_Common, RM_Class, RM_e_Xls, + RM_GridReport, RM_System, RM_Dataset; + +type + TfrmPrintckmd = class(TForm) + Button1: TButton; + Button2: TButton; + RadioGroup1: TRadioGroup; + RMDBMain: TRMDBDataSet; + RM1: TRMGridReport; + RMXLSExport1: TRMXLSExport; + ADOQueryTemp: TADOQuery; + CDS_Main: TClientDataSet; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormDestroy(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + private + procedure doPrint(Print1:integer); + + Procedure createcds(fADO:TADOQuery;fCDS:TclientDataSet); + { Private declarations } + public + fckNo:string; + flag:integer; + { Public declarations } + end; + +var + frmPrintckmd: TfrmPrintckmd; + +implementation + uses + U_DataLink,U_Fun; +{$R *.dfm} + +Procedure TfrmPrintckmd.createcds(fADO:TADOQuery;fCDS:TclientDataSet); +var + i,j:integer; + fcolor:string; +begin + fCDS.EmptyDataSet; + + + fADO.First; + i:=1; + j:=0; + fcolor:=trim(fADO.fieldbyname('SOrddefstr4').AsString); + fCDS.Append; + fCDS.fieldbyname('MJXHlist').Value:=trim(fADO.fieldbyname('MJXH').AsString); + fCDS.fieldbyname('QtyList').Value:=trim(fADO.fieldbyname('Qty').AsString); + fCDS.fieldbyname('SOrddefstr4').Value:=trim(fADO.fieldbyname('SOrddefstr4').AsString); + + fCDS.fieldbyname('kgQty').Value:=fADO.fieldbyname('kgQty').AsFloat; + fCDS.fieldbyname('Qty').Value:=fADO.fieldbyname('Qty').AsFloat; + fCDS.Post; + fADO.Next; + while not fADO.Eof do + begin + if (trim(fADO.fieldbyname('SOrddefstr4').AsString)= fcolor ) and (i<10) then + begin + fCDS.Edit; + fCDS.fieldbyname('kgQty').Value:= fCDS.fieldbyname('kgQty').AsFloat+fADO.fieldbyname('kgQty').AsFloat; + fCDS.fieldbyname('Qty').Value:= fCDS.fieldbyname('Qty').AsFloat+fADO.fieldbyname('Qty').AsFloat; + if pos('-',trim(fCDS.fieldbyname('MJXHlist').AsString))>0 then + fCDS.fieldbyname('MJXHlist').Value:=trim(LeftBStr(trim(fCDS.fieldbyname('MJXHlist').AsString),pos('-',trim(fCDS.fieldbyname('MJXHlist').AsString))-1))+ + '-'+trim(fADO.fieldbyname('MJXH').AsString) + else + fCDS.fieldbyname('MJXHlist').Value:=trim(fCDS.fieldbyname('MJXHlist').AsString)+'-'+trim(fADO.fieldbyname('MJXH').AsString); + // if pos('-',trim(fCDS.fieldbyname('QtyList').AsString))>0 then + fCDS.fieldbyname('Qtylist').Value:=trim(fCDS.fieldbyname('Qtylist').AsString)+'-'+trim(fADO.fieldbyname('Qty').AsString); + + i:=i+1; + fCDS.Post; + end + else + begin + fCDS.Append; + fCDS.fieldbyname('MJXHlist').Value:=trim(fADO.fieldbyname('MJXH').AsString); + fCDS.fieldbyname('QtyList').Value:=trim(fADO.fieldbyname('Qty').AsString); + fCDS.fieldbyname('SOrddefstr4').Value:=trim(fADO.fieldbyname('SOrddefstr4').AsString); + + fCDS.fieldbyname('kgQty').Value:=fADO.fieldbyname('kgQty').AsFloat; + fCDS.fieldbyname('Qty').Value:=fADO.fieldbyname('Qty').AsFloat; + fCDS.Post; + fcolor:=trim(fADO.fieldbyname('SOrddefstr4').AsString); + i:=1; + end; + fADO.Next; + end; +end; + +procedure TfrmPrintckmd.doPrint(Print1:integer); +var + fPrintFile:String; +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select AA.*,REPLICATE('' '', 20)as MJXHList,REPLICATE('' '', 200)as QtyList 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('MpRTCodeNameEng=(select Top 1 Note from KH_Zdy B where B.ZdyName=DD.MpRTCodeName ),'); + 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'); + if flag=1 then + begin + sql.Add(' where A.MainId='''+Trim(fckNo)+''''); + sql.Add(' and CRflag='''' '); + end + else + begin + sql.Add(' where A.ckordNo='''+Trim(fckNo)+''''); + sql.Add(' and CRflag='''' '); + end; + { 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(' )AA order by SOrddefstr4,GangNo,MJXH '); + Open; + end; + + SCreateCDS20(ADOQueryTemp,CDS_Main); + SInitCDSData20(ADOQueryTemp,CDS_Main); + + if Print1=1 then + begin + createcds(ADOQueryTemp,CDS_Main); + end; + + if Print1=0 then + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\뵥.rmf' + 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 TfrmPrintckmd.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure TfrmPrintckmd.FormDestroy(Sender: TObject); +begin + close; +end; + +procedure TfrmPrintckmd.Button1Click(Sender: TObject); +begin + doPrint(RadioGroup1.ItemIndex); +end; + +procedure TfrmPrintckmd.Button2Click(Sender: TObject); +begin + ModalResult:=-1; +end; + +end. diff --git a/管理系统/U_ProductOrderAnPai.dfm b/管理系统/U_ProductOrderAnPai.dfm new file mode 100644 index 0000000..1e3dd70 --- /dev/null +++ b/管理系统/U_ProductOrderAnPai.dfm @@ -0,0 +1,1441 @@ +object frmProductOrderAnPai: TfrmProductOrderAnPai + Left = 448 + Top = 42 + Width = 1382 + Height = 754 + Caption = #26816#39564#25351#31034#21333 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + FormStyle = fsMDIChild + OldCreateOrder = False + Position = poDefault + Visible = True + 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_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 TBfind: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 53 + OnClick = TBfindClick + end + object ToolButton5: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 49 + Visible = False + OnClick = ToolButton5Click + end + object TBExport: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + Visible = False + OnClick = TBExportClick + end + object ToolButton9: TToolButton + Left = 339 + Top = 0 + Caption = #26816#21069#22238#20462 + ImageIndex = 54 + Visible = False + OnClick = ToolButton9Click + end + object TBPrint: TToolButton + Left = 422 + Top = 0 + AutoSize = True + Caption = #25171#21360 + DropdownMenu = PopupMenu1 + ImageIndex = 12 + Style = tbsDropDown + Visible = False + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 502 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel2: TPanel + Left = 0 + Top = 113 + Width = 1127 + Height = 602 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 2 + Top = 349 + Width = 1123 + Height = 251 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnFocusedRecordChanged = TV2FocusedRecordChanged + 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.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = 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.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + OnCustomDrawIndicatorCell = TV2CustomDrawIndicatorCell + object V2Column10: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 51 + end + object V2Column14: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'conNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = V2Column14PropertiesButtonClick + Properties.OnEditValueChanged = V2Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 73 + end + object V2Column2: TcxGridDBColumn + Caption = #22238#20179#26102#38388 + DataBinding.FieldName = 'ADefDate1' + PropertiesClassName = 'TcxDateEditProperties' + Properties.Kind = ckDateTime + HeaderAlignmentHorz = taCenter + Width = 97 + 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 = 70 + end + object V2C_CodeName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = V2C_CodeNamePropertiesButtonClick + Properties.OnEditValueChanged = V2C_CodeNamePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V2Column13: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_color' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = V2Column13PropertiesButtonClick + Properties.OnEditValueChanged = V2Column13PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + end + object V2Column11: TcxGridDBColumn + Caption = #22383#24067#21378 + DataBinding.FieldName = 'AOrddefstr6' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = V2Column11PropertiesButtonClick + Visible = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 57 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'GangNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object V2Column3: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrddefstr1' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object V2Column9: TcxGridDBColumn + Caption = #25240#31639#25104#31859#31995#25968 + DataBinding.FieldName = 'ZSXS' + Visible = False + Width = 85 + end + object V2Column7: TcxGridDBColumn + Caption = #21305#25968 + 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 = 71 + 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 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 + Visible = False + HeaderAlignmentHorz = taCenter + Width = 83 + end + object V2Column12: TcxGridDBColumn + Caption = #22238#20462#25968#25454 + DataBinding.FieldName = 'AOrdFlag1' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 65 + end + object V2Column15: TcxGridDBColumn + Caption = #26579#21378#33258#26816#27425#21697#21305#25968 + DataBinding.FieldName = 'AOrdQty3' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object V2Column16: TcxGridDBColumn + Caption = #26579#21378#33258#26816#27425#21697#25968#37327 + DataBinding.FieldName = 'AOrdQty4' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object V2Column6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'AOrdDefNote1' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = V2Column6PropertiesButtonClick + Properties.OnEditValueChanged = cxGridDBColumn1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 101 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object ToolBar2: TToolBar + Left = 2 + Top = 273 + Width = 1123 + 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#32568#26631#31614 + ImageIndex = 96 + OnClick = ToolButton6Click + end + object Label17: TLabel + Left = 414 + Top = 0 + Width = 152 + Height = 30 + AutoSize = False + Caption = ' '#21487#22810#36873#20445#23384#65281' ' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Layout = tlCenter + end + end + object Panel3: TPanel + Left = 2 + Top = 305 + Width = 1123 + Height = 44 + 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 = 33 + Top = 80 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label4: TLabel + Left = 311 + Top = 68 + Width = 48 + Height = 12 + Caption = #25968#37327#21333#20301 + end + object Label5: TLabel + Left = 310 + Top = 92 + Width = 72 + Height = 12 + Caption = #26816#39564#25968#37327#21333#20301 + end + object Label6: TLabel + Left = 458 + Top = 68 + Width = 48 + Height = 12 + Caption = #26816#39564#35201#27714 + end + object Label7: TLabel + Left = 169 + Top = 76 + Width = 36 + Height = 12 + Caption = #22383#24067#21378 + end + object Label10: TLabel + Left = 660 + Top = 96 + Width = 48 + Height = 12 + Caption = #25171#21360#20998#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object DateTimePicker1: TDateTimePicker + Left = 74 + Top = 12 + Width = 90 + Height = 20 + Date = 41281.501696319440000000 + Format = 'yyyy-MM-dd' + Time = 41281.501696319440000000 + TabOrder = 0 + end + object BtnEditA1: TBtnEditA + Left = 78 + Top = 80 + Width = 90 + Height = 20 + Enabled = False + TabOrder = 1 + OnBtnClick = BtnEditA1BtnClick + end + object ComboBox1: TComboBox + Left = 384 + Top = 64 + Width = 60 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + Items.Strings = ( + 'M' + 'Kg') + end + object BtnEditA2: TBtnEditA + Left = 385 + Top = 88 + Width = 60 + Height = 20 + TabOrder = 3 + OnBtnClick = BtnEditA2BtnClick + end + object BtnEditA3: TBtnEditA + Left = 505 + Top = 64 + Width = 114 + Height = 20 + TabOrder = 4 + OnBtnClick = BtnEditA3BtnClick + end + object BtnEditA4: TBtnEditA + Left = 214 + Top = 76 + Width = 90 + Height = 20 + Enabled = False + TabOrder = 5 + OnBtnClick = BtnEditA4BtnClick + end + object CheckBox1: TCheckBox + Left = 312 + Top = 16 + Width = 97 + Height = 17 + Caption = #39044#35272#32568#26631#31614 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 6 + end + object Edit2: TEdit + Left = 712 + Top = 88 + Width = 29 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 7 + Text = '1' + end + object DateTimePicker2: TDateTimePicker + Left = 76 + Top = 60 + Width = 77 + Height = 20 + Date = 41643.000000000000000000 + Format = 'HH:mm:ss' + Time = 41643.000000000000000000 + Kind = dtkTime + TabOrder = 8 + 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 + object cxGrid5: TcxGrid + Left = 2 + Top = 2 + Width = 1123 + Height = 271 + Align = alTop + TabOrder = 4 + object TV5: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnFocusedRecordChanged = TV5FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn12 + end + item + Kind = skSum + Column = cxGridDBColumn13 + 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 + 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 = TV5CustomDrawIndicatorCell + object v1OrderNo: TcxGridDBColumn + Caption = #25237#22383#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 81 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #25237#22383#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #21152#24037#21378 + 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 V5Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_COlor' + HeaderAlignmentHorz = taCenter + Width = 60 + 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 V5Column2: TcxGridDBColumn + Caption = #32568#25968 + DataBinding.FieldName = 'Qty2' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 46 + end + object cxGridDBColumn12: 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' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 57 + end + object v1PRTUnit: TcxGridDBColumn + Caption = #35745#20215#21333#20301 + DataBinding.FieldName = 'PriceUnit' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1PRTQty: TcxGridDBColumn + Caption = #24635#20215 + DataBinding.FieldName = 'Money' + Visible = False + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 58 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note1' + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1gf: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'gf' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBTableC_Unit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V5Column3: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCgangNo' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV5 + end + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 81 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label3: TLabel + Left = 19 + Top = 17 + Width = 52 + Height = 12 + Caption = #25237#22383#21333#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 = 203 + Top = 17 + 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 Label12: TLabel + Left = 375 + Top = 17 + 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 Label13: TLabel + Left = 543 + Top = 17 + 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 ConNo: TEdit + Tag = 2 + Left = 76 + Top = 13 + Width = 100 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = TBfindClick + end + object Panel5: TPanel + Left = 954 + Top = 2 + Width = 410 + Height = 77 + Align = alRight + BevelOuter = bvNone + Color = clSkyBlue + TabOrder = 1 + object Label9: TLabel + Left = 125 + Top = 20 + Width = 52 + Height = 12 + Caption = #26816#39564#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 5 + Top = 20 + Width = 52 + Height = 12 + Caption = #22238#20179#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 5 + Top = 48 + Width = 47 + Height = 12 + Caption = #31995' '#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 252 + Top = 20 + 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 Label16: TLabel + Left = 252 + Top = 48 + Width = 26 + Height = 12 + Caption = #25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Button1: TButton + Left = 348 + Top = 16 + Width = 57 + Height = 21 + Caption = #26816#39564#20445#23384 + TabOrder = 0 + Visible = False + OnClick = Button1Click + end + object cxCurrencyEdit1: TcxCurrencyEdit + Left = 180 + Top = 16 + ParentFont = False + Properties.DisplayFormat = '0.##' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -14 + Style.Font.Name = #23435#20307 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 1 + OnKeyPress = cxCurrencyEdit1KeyPress + Width = 50 + end + object Edit1: TcxCurrencyEdit + Left = 60 + Top = 16 + ParentFont = False + Properties.DisplayFormat = '0.##' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -14 + Style.Font.Name = #23435#20307 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 2 + OnKeyPress = Edit1KeyPress + Width = 50 + end + object Button2: TButton + Left = 348 + Top = 48 + Width = 57 + Height = 21 + Caption = #21024#38500#26816#39564 + TabOrder = 3 + OnClick = Button2Click + end + object cxCurrencyEdit2: TcxCurrencyEdit + Left = 60 + Top = 43 + ParentFont = False + Properties.DisplayFormat = '0.##' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -14 + Style.Font.Name = #23435#20307 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 4 + OnKeyPress = cxCurrencyEdit2KeyPress + Width = 50 + end + object Edit3: TEdit + Left = 280 + Top = 16 + Width = 45 + Height = 20 + 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 Edit4: TEdit + Left = 280 + Top = 44 + Width = 45 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + Visible = False + end + end + object C_CodeName: TEdit + Tag = 2 + Left = 428 + Top = 13 + Width = 100 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnChange = TBfindClick + end + object C_Color: TEdit + Tag = 2 + Left = 572 + Top = 13 + Width = 100 + Height = 22 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnChange = TBfindClick + end + object FactoryNoName: TBtnEditA + Tag = 2 + Left = 248 + Top = 13 + Width = 100 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = TBfindClick + OnBtnClick = FactoryNoNameBtnClick + end + object CheckBox_XS: TCheckBox + Left = 712 + Top = 16 + Width = 97 + Height = 17 + Caption = #26174#31034#20840#37096 + TabOrder = 5 + OnClick = CheckBox_XSClick + end + end + object cxGrid4: TcxGrid + Left = 68 + Top = 101 + Width = 345 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + Visible = False + object Tv4: TcxGridDBTableView + OnDblClick = Tv4DblClick + Navigator.Buttons.CustomButtons = <> + 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 = #25237#22383#21333#21495 + DataBinding.FieldName = 'conNO' + HeaderAlignmentHorz = taCenter + Width = 179 + end + object v4Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Width = 138 + end + end + object cxGrid4Level1: TcxGridLevel + GridView = Tv4 + end + end + object Panel4: TPanel + Left = 1127 + Top = 113 + Width = 239 + Height = 602 + Align = alRight + Caption = 'Panel4' + TabOrder = 4 + object ToolBar3: TToolBar + Left = 1 + Top = 1 + Width = 237 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = #22686#34892 + Flat = True + Images = DataLink_TradeManage.ThreeImgList + List = True + ShowCaptions = True + TabOrder = 0 + object ToolButton12: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 48 + OnClick = ToolButton12Click + end + end + object cxGrid3: TcxGrid + Left = 1 + Top = 33 + Width = 237 + Height = 568 + Align = alClient + TabOrder = 1 + object TV3: TcxGridDBTableView + OnMouseEnter = TV3MouseEnter + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DSRoll + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = V3Column3 + end + item + Kind = skSum + Column = V3Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.AlwaysShowEditor = True + OptionsBehavior.FocusFirstCellOnNewRecord = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsSelection.UnselectFocusedRecordOnExit = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 22 + Styles.Header = DataLink_TradeManage.Default + Styles.Indicator = DataLink_TradeManage.SHuangSe + OnCustomDrawIndicatorCell = TV3CustomDrawIndicatorCell + object V3Column3: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'AOrdQty1' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##' + Properties.OnEditValueChanged = V3Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 62 + end + object V3Column4: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'AOrdQty3' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##' + Properties.OnEditValueChanged = V3Column4PropertiesEditValueChanged + Width = 59 + end + object V3Aorddefstr1: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'Aorddefstr1' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + #27491#21697 + #19968#31561#27425#21697 + #20108#31561#27425#21697) + Properties.OnEditValueChanged = V3Aorddefstr1PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 50 + end + object V3note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'AorddefNote1' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = V3notePropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid3Level1: TcxGridLevel + GridView = TV3 + end + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid5 + 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 + object ADORoll: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 1142 + Top = 346 + end + object CDS_Roll: TClientDataSet + Aggregates = <> + Params = <> + Left = 1034 + Top = 350 + end + object DSRoll: TDataSource + DataSet = CDS_Roll + Left = 1170 + Top = 374 + end + object ADOQuery_Tp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 744 + Top = 105 + end +end diff --git a/管理系统/U_ProductOrderAnPai.pas b/管理系统/U_ProductOrderAnPai.pas new file mode 100644 index 0000000..35216ff --- /dev/null +++ b/管理系统/U_ProductOrderAnPai.pas @@ -0,0 +1,3396 @@ +unit U_ProductOrderAnPai; + +interface + +uses + Windows, Messages, SysUtils, strUtils, 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, cxContainer, cxCurrencyEdit, + 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 + 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; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + Panel1: TPanel; + Label3: TLabel; + ConNo: 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; + cxGridPopupMenu2: TcxGridPopupMenu; + ToolButton9: TToolButton; + ToolButton10: TToolButton; + V2Column12: TcxGridDBColumn; + MovePanel2: TMovePanel; + Panel4: TPanel; + ToolBar3: TToolBar; + ToolButton12: TToolButton; + cxGrid3: TcxGrid; + TV3: TcxGridDBTableView; + V3Column3: TcxGridDBColumn; + cxGrid3Level1: TcxGridLevel; + ADORoll: TADOQuery; + CDS_Roll: TClientDataSet; + DSRoll: TDataSource; + V3Column4: TcxGridDBColumn; + Panel5: TPanel; + Button1: TButton; + cxCurrencyEdit1: TcxCurrencyEdit; + Label9: TLabel; + Edit1: TcxCurrencyEdit; + Label8: TLabel; + CheckBox1: TCheckBox; + Label10: TLabel; + Edit2: TEdit; + V2Column13: TcxGridDBColumn; + Button2: TButton; + V3note: TcxGridDBColumn; + V3Aorddefstr1: TcxGridDBColumn; + V2C_CodeName: TcxGridDBColumn; + cxGrid5: TcxGrid; + TV5: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1Qty1: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + v1PRTUnit: TcxGridDBColumn; + v1PRTQty: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + v1gf: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGridDBTableC_Unit: TcxGridDBColumn; + V5Column1: TcxGridDBColumn; + V5Column2: TcxGridDBColumn; + V2Column14: TcxGridDBColumn; + Label11: TLabel; + C_CodeName: TEdit; + Label12: TLabel; + C_Color: TEdit; + Label13: TLabel; + FactoryNoName: TBtnEditA; + ADOQuery_Tp: TADOQuery; + Label14: TLabel; + cxCurrencyEdit2: TcxCurrencyEdit; + V5Column3: TcxGridDBColumn; + DateTimePicker2: TDateTimePicker; + V2Column15: TcxGridDBColumn; + V2Column16: TcxGridDBColumn; + Label15: TLabel; + Label16: TLabel; + Edit3: TEdit; + Edit4: TEdit; + CheckBox_XS: TCheckBox; + TBfind: TToolButton; + Label17: TLabel; + 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 Tv4DblClick(Sender: TObject); + 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 ToolButton12Click(Sender: TObject); + procedure TV3CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure Edit1KeyPress(Sender: TObject; var Key: Char); + procedure cxCurrencyEdit1KeyPress(Sender: TObject; var Key: Char); + procedure Button1Click(Sender: TObject); + procedure V2Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Button2Click(Sender: TObject); + procedure V2Column13PropertiesEditValueChanged(Sender: TObject); + procedure V2C_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure V2C_CodeNamePropertiesEditValueChanged(Sender: TObject); + procedure TV3MouseEnter(Sender: TObject); + procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure TV5FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure FactoryNoNameBtnClick(Sender: TObject); + procedure cxCurrencyEdit2KeyPress(Sender: TObject; var Key: Char); + procedure V2Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure V2Column14PropertiesEditValueChanged(Sender: TObject); + procedure TV2CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure V3Column3PropertiesEditValueChanged(Sender: TObject); + procedure V3Column4PropertiesEditValueChanged(Sender: TObject); + procedure V3Aorddefstr1PropertiesEditValueChanged(Sender: TObject); + procedure V3notePropertiesEditValueChanged(Sender: TObject); + procedure TV5CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure TBfindClick(Sender: TObject); + procedure CheckBox_XSClick(Sender: TObject); + private + DQdate: TDateTime; + fRoll: Boolean; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + procedure InitGridFH(); + function SaveData(): Boolean; + procedure UpdateHC(FFirstNo: string); + function YFData(): Boolean; + function DELYFData(): Boolean; + procedure InitRoll(); + function SaveData10(): Boolean; + function SaveMJID(): boolean; + function getPrice(ffactoryName, fP_CodeName, fP_Color, fYFName: string): double; + { Private declarations } + public + FFInt: Integer; + { Public declarations } + end; + +var + frmProductOrderAnPai: TfrmProductOrderAnPai; + +implementation + +uses + U_DataLink, U_OrderInPut, U_Fun, U_ZDYHelp, U_iniParam, U_ZDYHelpSel, + U_BefChkHX, U_ZdyAttachGYS, U_ZdyAttachCP, U_ClothContractList_Sel; + +{$R *.dfm} +function TfrmProductOrderAnPai.getPrice(ffactoryName, fP_CodeName, fP_Color, fYFName: string): double; +var + fprice: double; +begin + fprice := 0; + try + + with ADOQueryTemp do + begin + close; + sql.Clear; + SQL.Add(' SELECT Top 1 Price FROM YF_Money_CR A'); + sql.Add(' where factoryName=' + quotedstr(trim(ffactoryName))); + sql.Add(' and P_CodeName=' + quotedstr(trim(fP_CodeName))); + sql.Add(' and P_Color=' + quotedstr(trim(fP_Color))); + sql.Add(' and YFName=' + quotedstr(trim(fYFName))); + sql.Add(' and CRType=''ӦǼ'' '); + sql.Add(' and price>0 '); + sql.Add(' order by FillTime desc'); + open; + end; + if not ADOQueryTemp.IsEmpty then + fprice := ADOQueryTemp.fieldbyName('Price').AsFloat; + finally + result := fprice; + end; +end; + +function TfrmProductOrderAnPai.SaveMJID(): boolean; +begin + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete from JYOrder_Sub_AnPai_MX where APTM=''' + Trim(CDS_Roll.fieldbyname('APTM').AsString) + ''''); + execsql; + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub_AnPai_MX where APTM=''' + Trim(CDS_Roll.fieldbyname('APTM').AsString) + ''''); + Open; + end; + + with ADOQueryCmd do + begin + append; + FieldByName('ApId').Value := Trim(CDS_Sub.fieldbyname('apid').AsString); + FieldByName('ApsubId').Value := CDS_Roll.recNo; + FieldByName('APTM').Value := Trim(CDS_Roll.fieldbyname('APTM').AsString); + FieldByName('AOrdQty2').Value := CDS_Roll.fieldbyname('AOrdQty2').AsInteger; + FieldByName('AOrdQty1').Value := CDS_Roll.fieldbyname('AOrdQty1').AsFloat; + FieldByName('AOrdQty3').Value := CDS_Roll.fieldbyname('AOrdQty3').AsFloat; + FieldByName('AorddefNote1').Value := Trim(CDS_Roll.fieldbyname('AorddefNote1').AsString); + FieldByName('Aorddefstr1').Value := Trim(CDS_Roll.fieldbyname('Aorddefstr1').AsString); + post; + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('update YF_Money_CR SET Qty=(select sum(AOrdQty1) from JYOrder_Sub_AnPai X where X.apid=YF_Money_CR.YFTypeId )'); + sql.Add('where YFTypeId=' + quotedstr(trim(CDS_Roll.fieldbyname('APID').AsString))); + sql.Add('update YF_Money_CR SET Money=Price*Qty,BBMoney=Price*Qty '); + sql.Add('where YFTypeId=' + quotedstr(trim(CDS_Roll.fieldbyname('APID').AsString))); + execsql; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from WFB_MJJY '); + sql.Add('where MJID=' + quotedstr(trim(CDS_Roll.fieldbyname('APTM').AsString))); + execsql; + end; + if CDS_Roll.FieldByName('AOrdQty3').AsFloat <> 0 then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY '); + sql.Add('where 1=2 '); + open; + append; + FieldByName('MainId').value := Trim(cds_sub.fieldbyname('mainiD').AsString); + FieldByName('SubId').value := Trim(cds_sub.fieldbyname('subid').AsString); + FieldByName('conNo').Value := Trim(cds_sub.fieldbyname('conNo').AsString); + FieldByName('APId').value := Trim(cds_sub.fieldbyname('apid').AsString); + FieldByName('MJID').Value := Trim(CDS_Roll.fieldbyname('APTM').AsString); + FieldByName('MJSTr1').value := Trim(cds_sub.fieldbyname('AOrddefstr2').AsString); + FieldByName('MJTypeOther').value := Trim(cds_sub.fieldbyname('AOrddefstr3').AsString); + FieldByName('MJStr2').Value := 'δ'; + FieldByName('MJType').Value := Trim(CDS_Roll.fieldbyname('Aorddefstr1').AsString); + FieldByName('Filler').Value := Trim(DName); + FieldByName('MJLen').Value := CDS_Roll.fieldbyname('AOrdQty3').AsFloat; + FieldByName('MJQty1').Value := CDS_Roll.fieldbyname('AOrdQty1').AsFloat; + FieldByName('MJxh').Value := CDS_Roll.fieldbyname('apsubid').AsFloat; + FieldByName('note').Value := Trim(CDS_Roll.fieldbyname('AorddefNote1').AsString); + FieldByName('C_Code').value := Trim(cds_sub.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').value := Trim(cds_sub.fieldbyname('C_CodeName').AsString); + FieldByName('C_spec').value := Trim(cds_sub.fieldbyname('C_spec').AsString); + FieldByName('C_color').value := Trim(cds_sub.fieldbyname('C_color').AsString); + FieldByName('RCGangNo').value := Trim(cds_sub.fieldbyname('GangNo').AsString); + FieldByName('BCGangNo').value := Trim(cds_sub.fieldbyname('AOrddefstr1').AsString); + post; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + result := true; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('鱣ʧ!', 'ʾϢ', 0); + end; +end; + +function TfrmProductOrderAnPai.SaveData10(): Boolean; +var + maxno: string; +begin + CDS_Sub.DisableControls; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Sub do + begin + First; + while not Eof do + begin + if Fieldbyname('Ssel').AsBoolean then + begin + + if CDS_Sub.Locate('C_CodeName', null, []) = True then + begin + Application.MessageBox('ƷƲΪ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('C_CodeName', '', []) = True then + begin + Application.MessageBox('ƷƲΪ!', 'ʾ', 0); + Exit; + end; + + if CDS_Sub.Locate('C_Color', null, []) = True then + begin + Application.MessageBox('ɫΪ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('C_Color', '', []) = True then + begin + Application.MessageBox('ɫΪ!', 'ʾ', 0); + Exit; + end; + + if trim(CDS_Sub.FieldByName('AOrddefstr4').AsString) = '' then + begin + Application.MessageBox('ȾΪ!', 'ʾ', 0); + Exit; + end; + if trim(CDS_Sub.FieldByName('AOrddefstr1').AsString) = '' then + begin + Application.MessageBox('׺ŲΪ!', 'ʾ', 0); + Exit; + end; + + if trim(CDS_Sub.FieldByName('AOrddefstr2').AsString) = '' then + begin + Application.MessageBox('λΪ!', 'ʾ', 0); + Exit; + end; + + if trim(CDS_Sub.FieldByName('ZSXS').AsString) = '' then + begin + Application.MessageBox('ϵΪ!', 'ʾ', 0); + Exit; + end; + if trim(CDS_Sub.FieldByName('AOrddefstr3').AsString) = '' then + begin + application.MessageBox('λΪ!', 'ʾ', 0); + Exit; + end; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select YFID from YF_money_CR '); + sql.Add('where YFTypeid=''' + trim(CDS_Sub.FieldByName('APID').AsString) + ''' '); + sql.Add('and status>0 '); + open; + if not IsEmpty then + begin + application.MessageBox('ˣ޸ģ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; + +// try +// ADOQueryCmd.Connection.BeginTrans; + ///ӱ + with CDS_Sub do + begin + // First; + + 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('Sflag').AsString) = '0' 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(CDS_Sub.fieldbyname('apid').AsString); + FieldByName('ADefDate1').Value := CDS_Sub.fieldbyname('ADefDate1').AsDateTime; + FieldByName('AOrddefstr4').Value := Trim(Order_Main.fieldbyname('factoryNoName').AsString); + FieldByName('AOrddefstr5').Value := Trim(Order_Main.fieldbyname('factoryNo').AsString); + FieldByName('GangNo').Value := CDS_Sub.fieldbyname('GangNo').Value; + FieldByName('conNo').Value := CDS_Sub.fieldbyname('conNo').Value; + FieldByName('C_Code').Value := CDS_Sub.fieldbyname('C_Code').Value; + FieldByName('C_CodeName').Value := CDS_Sub.fieldbyname('C_CodeName').Value; + FieldByName('C_Spec').Value := CDS_Sub.fieldbyname('C_Spec').Value; + FieldByName('C_Color').Value := CDS_Sub.fieldbyname('C_Color').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').AsInteger; + FieldByName('AOrdQty1').Value := CDS_Sub.fieldbyname('AOrdQty1').AsFloat; + + FieldByName('AOrdQty3').Value := CDS_Sub.fieldbyname('AOrdQty3').AsInteger; + FieldByName('AOrdQty4').Value := CDS_Sub.fieldbyname('AOrdQty4').AsFloat; + + FieldByName('AOrddefstr3').Value := CDS_Sub.fieldbyname('AOrddefstr3').Value; + FieldByName('AOrdDefNote1').Value := CDS_Sub.fieldbyname('AOrdDefNote1').Value; + FieldByName('LLID').Value := Order_Main.fieldbyname('subID').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; + + if Trim(CDS_Sub.fieldbyname('Sflag').AsString) = '0' then + FieldByName('Filler').Value := Trim(DName) + else + begin + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + end; + + if Trim(Order_Main.fieldbyname('C_Unit').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('delete from JYOrder_Sub_AnPai_MX where APId=''' + Trim(CDS_Sub.fieldbyname('APId').AsString) + ''''); + execsql; + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub_AnPai_MX where APId=''' + Trim(CDS_Sub.fieldbyname('APId').AsString) + ''''); + Open; + end; + CDS_Roll.DisableControls; + CDS_Roll.First; + while not CDS_Roll.Eof do + begin + with ADOQueryCmd do + begin + append; + FieldByName('ApId').Value := Trim(CDS_Roll.fieldbyname('apid').AsString); + FieldByName('ApsubId').Value := CDS_Roll.recNo; + FieldByName('APTM').Value := Trim(CDS_Roll.fieldbyname('APTM').AsString); + FieldByName('AOrdQty2').Value := CDS_Roll.fieldbyname('AOrdQty2').AsInteger; + FieldByName('AOrdQty1').Value := CDS_Roll.fieldbyname('AOrdQty1').AsFloat; + FieldByName('AorddefNote1').Value := Trim(CDS_Roll.fieldbyname('AorddefNote1').AsString); + FieldByName('Aorddefstr1').Value := Trim(CDS_Roll.fieldbyname('Aorddefstr1').AsString); + post; + end; + CDS_Roll.Next; + end; + CDS_Roll.EnableControls; + 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; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' UPdate Contract_sub Set H_PS=(select sum(AOrdQty2) from JYOrder_Sub_AnPai X where X.mainID=''' + trim(Order_Main.fieldbyname('mainID').AsString) + ''' and X.subID=''' + trim(Order_Main.fieldbyname('subID').AsString) + ''' )'); + sql.Add(' ,H_Qty=(select sum(AOrdQty1) from JYOrder_Sub_AnPai X where X.mainID=''' + trim(Order_Main.fieldbyname('mainID').AsString) + ''' and X.subID=''' + trim(Order_Main.fieldbyname('subID').AsString) + ''' )'); + SQL.Add(' where subID =' + quotedstr(trim(Order_Main.fieldbyname('fromsubID').AsString))); + ExecSQL; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' UPdate Contract_sub Set H_PS=(select sum(AOrdQty2) from JYOrder_Sub_AnPai X where X.mainID=''' + trim(Order_Main.fieldbyname('mainID').AsString) + ''' and X.subID=''' + trim(Order_Main.fieldbyname('subID').AsString) + ''' )'); + sql.Add(' ,H_Qty=(select sum(AOrdQty1) from JYOrder_Sub_AnPai X where X.mainID=''' + trim(Order_Main.fieldbyname('mainID').AsString) + ''' and X.subID=''' + trim(Order_Main.fieldbyname('subID').AsString) + ''' )'); + SQL.Add(' where subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + ExecSQL; + end; + if YFData() = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('²Ӧʧ!', 'ʾ', 0); + Exit; + end; + { IF trim(Order_Main.FieldByName('contk1').AsString)<>'޼ӹ' then + begin + + end; } + end; + +// ADOQueryCmd.Connection.CommitTrans; +// Result := True; +// except +// Result := False; +// MovePanel2.Visible := False; +// ADOQueryCmd.Connection.RollbackTrans; +// Application.MessageBox('쳣', 'ʾ', 0); +// end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + end; + CDS_Sub.EnableControls; + +end; + +procedure TfrmProductOrderAnPai.InitRoll(); +begin +// if CDS_Sub.Active then exit; + try + // ADORoll.DisableControls; + with ADORoll do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai_MX where ApID=''' + Trim(CDS_Sub.fieldbyname('ApID').AsString) + ''''); + Open; + end; + SCreateCDS20(ADORoll, CDS_Roll); + SInitCDSData20(ADORoll, CDS_Roll); + finally + // cxgrid3.SetFocus; + // ADORoll.EnableControls; + end; +end; + +procedure TfrmProductOrderAnPai.FormDestroy(Sender: TObject); +begin + frmProductOrderAnPai := nil; +end; + +procedure TfrmProductOrderAnPai.FormClose(Sender: TObject; var Action: TCloseAction); +begin + WriteCxGrid('ָʾϢ1XXX', TV5, 'زֹ'); + WriteCxGrid('زϢ', Tv2, 'زֹ'); + Action := caFree; +end; + +procedure TfrmProductOrderAnPai.FormCreate(Sender: TObject); +begin + + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate := SGetServerDate(ADOQueryTemp); + fRoll := true; +end; + +procedure TfrmProductOrderAnPai.TBCloseClick(Sender: TObject); +begin + Close; + +end; + +procedure TfrmProductOrderAnPai.InitGrid(); +begin + fRoll := true; + try +// ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai where LLId=''' + Trim(Order_Main.fieldbyname('subID').AsString) + ''''); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_Sub); + SInitCDSData20(ADOQueryMain, CDS_Sub); + finally + // ADOQueryMain.EnableControls; + if fRoll then + InitRoll(); + end; +end; + +procedure TfrmProductOrderAnPai.InitGridFH(); +begin +end; + +procedure TfrmProductOrderAnPai.InitForm(); +var + i: Integer; +begin + DateTimePicker1.DateTime := SGetServerDateTime(ADOQueryTemp); + ReadCxGrid('ָʾϢ1XXX', TV5, 'زֹ'); + ReadCxGrid('زϢ', 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(TV5, 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(); +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 + with ADOQuery_Tp do + begin + Close; + sql.Clear; + sql.Add('select *,PBFactory=(select factoryNoName from Contract_Main X where X.mainID=B.frommainID), '); + sql.Add('fdhNO=(select conNo from Contract_Main X where X.mainID=B.frommainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); + // sql.Add('where A.MainId='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''); + sql.Add('where A.conNO like ' + quotedstr('%' + trim(CONnO.Text) + '%')); + sql.Add('and A.FactoryNoName like ' + quotedstr('%' + trim(FactoryNoName.Text) + '%')); + sql.Add('and B.C_CodeName like ' + quotedstr('%' + trim(C_CodeName.Text) + '%')); + sql.Add('and B.C_Color = ' + quotedstr(trim(C_Color.Text))); + sql.Add(' and A.conType IN(''ԤͶ'',''Ʒӹ'') '); + sql.Add(' and isnull(B.C_status,''0'')=''0'' '); + open; + end; + SCreateCDS20(ADOQuery_Tp, Order_Main); + SInitCDSData20(ADOQuery_Tp, Order_Main); + + InitGrid(); + BtnEditA1.TxtCode := Trim(Order_Main.fieldbyname('FactoryNo').AsString); + BtnEditA1.Text := Trim(Order_Main.fieldbyname('FactoryNoName').AsString); + BtnEditA4.Text := Trim(Order_Main.fieldbyname('PBFactory').AsString); +end; + +procedure TfrmProductOrderAnPai.ToolButton2Click(Sender: TObject); +var + maxno: string; +begin + if Order_Main.IsEmpty then + exit; + { if CDS_Sub.FieldByName('Sflag').AsString='0' then + begin + if application.MessageBox('ǰܼ¼δ棬Ƿ񱣴?','ʾϢ',1)=1 then + begin + abort; + end; + end; } + if GetLSNo(ADOQueryCmd, maxno, 'W', 'JYOrder_Sub_AnPai', 3, 1) = False then + begin + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + with CDS_Sub do + begin + last; + Append; + FieldByName('apid').Value := trim(maxno); + FieldByName('Sflag').Value := '0'; + FieldByName('mainID').Value := Trim(Order_Main.fieldbyname('mainID').AsString); + FieldByName('SubId').Value := Trim(Order_Main.fieldbyname('SubId').AsString); + FieldByName('C_Code').Value := Trim(Order_Main.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value := Trim(Order_Main.fieldbyname('C_CodeName').AsString); + FieldByName('C_COLor').Value := Trim(Order_Main.fieldbyname('C_COLor').AsString); + // FieldByName('ADefDate1').Value:=DateTimePicker1.Date; + FieldByName('ADefDate1').Value := formatdateTime('yyyy-MM-dd', DateTimePicker1.Date) + ' ' + formatdateTime('HH:nn:ss', DateTimePicker2.Time); + FieldByName('AOrddefstr4').Value := Trim(BtnEditA1.Text); + FieldByName('AOrddefstr5').Value := Trim(BtnEditA1.TxtCode); + FieldByName('AOrddefstr2').Value := Trim(Order_Main.fieldbyname('C_UNit').AsString); + FieldByName('AOrddefstr3').Value := Trim(Order_Main.fieldbyname('C_UNit').AsString); + // FieldByName('gangNO').Value:=Trim(Order_Main.fieldbyname('gangNO').AsString); + FieldByName('AOrddefstr1').Value := Trim(Order_Main.fieldbyname('BCGangNO').AsString); + // FieldByName('P_Color').Value:=Trim(Order_Main.fieldbyname('P_Color').AsString); + FieldByName('zsxs').Value := '1'; + // FieldByName('AOrddefstr2').Value:=Trim(ComboBox1.Text); + // FieldByName('AOrddefstr3').Value:=Trim(BtnEditA2.Text); + FieldByName('AOrdDefNote1').Value := Trim(BtnEditA3.Text); + FieldByName('AOrddefstr6').Value := Trim(Order_Main.fieldbyname('PBfactory').AsString); + FieldByName('AOrdQty2').Value := Order_Main.fieldbyname('Qty1').AsFloat; + FieldByName('AOrdQty1').Value := Order_Main.fieldbyname('C_Qty').AsFloat; + Post; + end; + fRoll := false; +end; + +procedure TfrmProductOrderAnPai.ToolButton3Click(Sender: TObject); +var + YFID, CRID: string; +begin + if CDS_Sub.IsEmpty then + Exit; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select YFID from YF_money_CR '); + sql.Add('where YFTypeID=''' + trim(CDS_Sub.FieldByName('APID').AsString) + ''' '); + sql.Add('and status>0 '); + open; + if not IsEmpty then + begin + application.MessageBox('ˣ޸ģ', 'ʾϢ', MB_ICONERROR); + exit; + end; + end; + + if Trim(CDS_Sub.fieldbyname('APID').AsString) <> '' then + begin + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(Order_Main.fieldbyname('MainID').AsString)+''''); + sql.Add(' and subID='''+Trim(Order_Main.fieldbyname('subID').AsString)+''''); + sql.Add(' and YFName=''ӹ'' '); + Open; + if not IsEmpty then + begin + YFID:=Fieldbyname('YFID').AsString; + CRID:=Fieldbyname('CRID').AsString; + end; + end; + } + 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) + ''''); + sql.Add('delete JYOrder_Sub_AnPai_MX where APID=''' + Trim(CDS_Sub.fieldbyname('APID').AsString) + ''''); + sql.Add('delete YF_Money_CR where YFTypeID=''' + Trim(CDS_Sub.fieldbyname('APID').AsString) + ''''); + + { sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(AOrdQty1),0) from JYOrder_Sub_AnPai A '); + sql.Add(' where A.mainID=YF_Money_CR.mainID and A.subiD=YF_Money_CR.subiD )'); + sql.Add(',PS=(select isnull(sum(AOrdQty2),0) from JYOrder_Sub_AnPai A '); + sql.Add(' where A.mainID=YF_Money_CR.mainID and A.subiD=YF_Money_CR.subiD )'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + + sql.Add('delete from YF_Money_CR '); + sql.Add('where YFID='''+Trim(YFID)+''' '); + sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + 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; + + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + end; + end; + with CDS_Sub do + begin + Delete; + end; + +end; + +function TfrmProductOrderAnPai.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 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: 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; + + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf'; + if not FileExists(fPrintFile) then + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ָʾǩ.rmf'), 'ʾ', 0); + Exit; + end; + with CDS_Sub do + begin + DisableControls; + First; + while not eof do + begin + if Fieldbyname('ssel').AsBoolean then + begin + + with ADOQueryPrint do + begin + close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(',CPKW=(select Top 1 zdyCode from KH_Zdy_Attachment X where X.DEFstr1=A.C_CodeName and X.DEFstr2=A.C_Color)'); + sql.Add(',CPNUM=(select count(CRID) from CK_BanCP_KC X where X.C_CodeName=A.C_CodeName and X.C_Color=A.C_Color)'); + sql.Add(',C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.C_CodeName and X.DEFstr3=A.C_Color and Type=''CP'') '); + sql.Add('from JYOrder_Sub_AnPai A '); + sql.Add('where Apid=' + quotedstr(trim(CDS_Sub.fieldbyname('apid').AsString))); + open; + if isempty then + begin + CDS_Sub.EnableControls; + application.MessageBox('˻زֵδ棬ܱ', 'ʾϢ', 0); + exit; + end; + 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); + Order_Main.EnableControls; + exit; + end; + + RMVariables['QRBARCODE'] := fImagePath; + RM1.LoadFromFile(fPrintFile); + if CheckBox1.Checked then + RM1.ShowReport + else + begin + RM1.DefaultCopies := strtointdef(trim(edit2.Text), 1); + RM1.PrintReport; + end; + end; + next; + end; + EnableControls; + First; + end; + +end; + +procedure TfrmProductOrderAnPai.Tv4DblClick(Sender: TObject); +begin + cxGrid4.Visible := False; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select *,PBFactory=(select factoryNoName from Contract_Main X where X.mainID=B.frommainID), '); + sql.Add('fdhNO=(select conNo from Contract_Main X where X.mainID=B.frommainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); + sql.Add('where A.MainId=''' + Trim(CDS_OrderNo.fieldbyname('MainId').AsString) + ''''); + sql.Add(' and A.conType IN(''ԤͶ'',''Ʒӹ'') '); + sql.Add(' and isnull(B.C_status,''0'')=''0'' '); + open; + end; + { with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select D.TpNote,D.gangNo,D.BCGangNO,D.C_Color,C.FirstName,C.FirstNo,C.TPPS,C.TPMQty,C.LLID,C.HXPS,C.HXQty,C.bcpQty,C.HXUnit,C.DHIDHelp,C.DHID,C.TPUnit,A.*,B.* '); + 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 Contract_Main A inner join Contract_sub B on A.MainId=B.MainId '); + sql.Add(' inner join Contract_Cloth_LL C on C.OrdSubId=B.SubId'); + sql.Add(' inner join Contract_Cloth_LLMX D on D.MXID=C.LLID'); + sql.Add('where A.MainId='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''); + sql.Add(' and C.JXJGFlag=0 and D.JGType<>''˻'' '); + 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); + + InitGrid(); + BtnEditA1.TxtCode := Trim(Order_Main.fieldbyname('FactoryNo').AsString); + BtnEditA1.Text := Trim(Order_Main.fieldbyname('FactoryNoName').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:='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 TfrmProductOrderAnPai.ToolButton4Click(Sender: TObject); +var + FDW: string; +begin + ConNo.SetFocus; + + MovePanel2.Visible := True; + MovePanel2.Refresh; + if SaveData10() then + begin + MovePanel2.Visible := False; + Application.MessageBox('ɹ!', 'ʾ', 0); + initRoll(); + fRoll := true; + Exit; + end; + MovePanel2.Visible := False; +end; + +procedure TfrmProductOrderAnPai.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;} + + try + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal = 1 then + begin + BtnEditA1.Text := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + BtnEditA1.TxtCode := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + end; + end; + finally + frmZdyAttachGYS.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 ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(CDS_Sub.fieldbyname('AOrddefstr4').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('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 YFTypeID=''' + Trim(CDS_Sub.fieldbyname('APID').AsString) + ''''); + sql.Add('and YFName IN(''ӹ'',''޷'') '); + 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; + 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_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(CDS_Sub.fieldbyname('AOrddefstr4').AsString); + FieldByName('CRTime').Value := CDS_Sub.fieldbyname('ADefDate1').Value; + // FieldByName('Qty').Value:=CDS_Sub.fieldbyname('AOrdQty1').Value; + FieldByName('YFType').Value := 'Զ'; + FieldByName('Price').Value := 0; + FieldByName('HuiLv').Value := 1; + FieldByName('BZType').Value := ''; + FieldByName('ComTaiTou').Value := Trim(CDS_Sub.fieldbyname('AOrddefstr4').AsString); + FieldByName('QtyUnit').Value := Trim(CDS_Sub.fieldbyname('AOrddefstr2').AsString); + if trim(Order_Main.FieldByName('conTk1').AsString) = '޼ӹ' then + FieldByName('YFName').Value := '޷' + else + FieldByName('YFName').Value := 'ӹ'; + FieldByName('ps').Value := CDS_Sub.fieldbyname('AOrdQty2').AsFloat; + FieldByName('Qty').Value := CDS_Sub.fieldbyname('AOrdQty1').AsFloat; + + FieldByName('MainId').Value := Trim(Order_Main.fieldbyname('mainID').AsString); + FieldByName('subID').Value := Trim(Order_Main.fieldbyname('subID').AsString); + FieldByName('P_CodeName').Value := Trim(CDS_Sub.fieldbyname('C_CodeName').AsString); + FieldByName('P_Color').Value := Trim(CDS_Sub.fieldbyname('C_color').AsString); + + FieldByName('Price').Value := getPrice(FieldByName('FactoryName').AsString, FieldByName('P_CodeName').AsString, FieldByName('P_COlor').AsString, FieldByName('YFName').AsString); + + if trim(Order_Main.FieldByName('conTk1').AsString) = 'ӹ' then + FieldByName('fstr1').Value := 'ӹ' + else if trim(Order_Main.FieldByName('conTk1').AsString) = '޼ӹ' then + FieldByName('fstr1').Value := '޼ӹ' + else + FieldByName('fstr1').Value := 'ӹ'; + FieldByName('note').Value := Trim(CDS_Sub.fieldbyname('AOrdDefNote1').AsString); + Post; + end; + +{ with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(AOrdQty1),0) from JYOrder_Sub_AnPai A '); + sql.Add(' where A.mainID=YF_Money_CR.mainID and A.subiD=YF_Money_CR.subiD )'); + sql.Add(',PS=(select isnull(sum(AOrdQty2),0) from JYOrder_Sub_AnPai A '); + sql.Add(' where A.mainID=YF_Money_CR.mainID and A.subiD=YF_Money_CR.subiD )'); + sql.Add(' where YFID='''+Trim(YFID)+''''); + ExecSQL; + END; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete from YF_Money_CR '); + sql.Add('where YFID=''' + Trim(YFID) + ''' and Qty=0 '); + 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 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.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 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:='FactoryNo1Name'; + flagname:=''; + MainType:=''; + if ShowModal=1 then + begin + BtnEditA4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; } + + try + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal = 1 then + begin + BtnEditA1.Text := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + BtnEditA1.TxtCode := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmProductOrderAnPai.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 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); + 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 + with ADOQuery_Tp do + begin + Close; + sql.Clear; + // sql.Add('select AA.* from ( '); + sql.Add('select *,PBFactory=(select factoryNoName from Contract_Main X where X.mainID=B.frommainID), '); + sql.Add('case when isnull(C_note,'''')<>'''' then C_note else (select top 1 note from CK_BanCP_CR C where C.ckOrdNo=A.conTk2 ) end as C_note1,'); + sql.Add('fdhNO=(select conNo from Contract_Main X where X.mainID=B.frommainID), '); + sql.Add('H_gs=isnull((select count(APID) from JYOrder_Sub_AnPai X where X.mainID=B.mainID and X.subID=B.subID),0)'); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); + // sql.Add('where A.MainId='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''); + sql.Add('where A.conNO like ' + quotedstr('%' + trim(CONnO.Text) + '%')); + sql.Add('and A.FactoryNoName like ' + quotedstr('%' + trim(FactoryNoName.Text) + '%')); + sql.Add('and B.C_CodeName like ' + quotedstr('%' + trim(C_CodeName.Text) + '%')); + sql.Add('and B.C_Color like ' + quotedstr('%' + trim(C_Color.Text) + '%')); + sql.Add('and A.conType IN(''ԤͶ'',''Ʒӹ'',''ɫƻ'') '); + sql.Add('and isnull(B.C_status,''0'')=''0'' '); + if not CheckBox_XS.Checked then + sql.Add('and Qty2>isnull((select count(APID) from JYOrder_Sub_AnPai X where X.mainID=B.mainID and X.subID=B.subID),0) '); + sql.Add('and A.FillTime>=''2023-01-01'' '); +// sql.Add(' )AA where Qty>HCgangNum'); +// ShowMessage(SQL.text); + open; + end; + SCreateCDS20(ADOQuery_Tp, Order_Main); + SInitCDSData20(ADOQuery_Tp, Order_Main); + + InitGrid(); + BtnEditA1.TxtCode := Trim(Order_Main.fieldbyname('FactoryNo').AsString); + BtnEditA1.Text := Trim(Order_Main.fieldbyname('FactoryNoName').AsString); + BtnEditA4.Text := Trim(Order_Main.fieldbyname('PBFactory').AsString); + + TBfind.Click; +end; + +procedure TfrmProductOrderAnPai.ToolButton12Click(Sender: TObject); +begin + if cds_Roll.IsEmpty then + exit; + + { with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete JYOrder_Sub_AnPai_MX where APID='''+Trim(CDS_Roll.fieldbyname('APID').AsString)+''''); + sql.Add('and APsubID='''+Trim(CDS_Roll.fieldbyname('APsubID').AsString)+''''); + ExecSQL; + end; } + cds_Roll.Delete; +end; + +procedure TfrmProductOrderAnPai.TV3CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); +var + FValue: string; + FBounds: TRect; +begin + if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then + begin + FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1); + FBounds := AViewInfo.Bounds; + ACanvas.FillRect(FBounds); + ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 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 TfrmProductOrderAnPai.Edit1KeyPress(Sender: TObject; var Key: Char); +var + fAPTM: string; +begin + if cds_sub.IsEmpty then + exit; + if Key = #13 then + begin + if GetLSNo(ADOQueryCmd, fAPTM, '', 'APTM', 4, 1) = False then + begin + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + with CDS_Roll do + begin + DisableControls; + last; + append; + FieldByName('AOrdQty1').Value := strtofloatdef(trim(edit1.Text), 0); + FieldByName('AOrdQty2').Value := 1; + FieldByName('apid').Value := CDS_Sub.fieldbyname('apid').AsString; + FieldByName('Aorddefstr1').Value := 'Ʒ'; + FieldByName('APTM').Value := trim(fAPTM); + post; + EnableControls; + end; + self.tv3.Controller.EditingController.ShowEdit(); + edit1.text := ''; + end; + +end; + +procedure TfrmProductOrderAnPai.cxCurrencyEdit1KeyPress(Sender: TObject; var Key: Char); +var + fAPTM: string; +begin +{ if cds_sub.IsEmpty then exit; + if key=#13 then + begin + with CDS_Roll do + begin + DisableControls; + first; + while not eof do + begin + edit; + FieldByName('AOrdQty3').Value:=FieldByName('AOrdQty1').AsFloat* strtofloatdef(trim(cxCurrencyEdit1.Text),0); + Post; + next; + end; + first; + EnableControls; + end; + self.tv3.Controller.EditingController.ShowEdit(); + end; } + + + if Key = #13 then + begin + if cds_sub.IsEmpty then + exit; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai '); + sql.Add('where Apid=' + quotedstr(trim(CDS_Roll.fieldbyname('apid').AsString))); + open; + if isempty then + begin + application.MessageBox('˻زֵδ棬ܱ', 'ʾϢ', 0); + exit; + end; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY '); + sql.Add('where MJID=' + quotedstr(trim(CDS_Roll.fieldbyname('apTm').AsString))); + sql.Add('and mjstr2<>' + quotedstr(trim('δ'))); + open; + if not isempty then + begin + application.MessageBox('˻زֵ', 'ʾϢ', 0); + exit; + end; + end; + + with CDS_Roll do + begin + if (Eof) and (fieldbyname('AOrdQty3').AsFloat <> 0) then + begin + if GetLSNo(ADOQueryCmd, fAPTM, '', 'APTM', 4, 1) = False then + begin + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + append; + FieldByName('AOrdQty1').Value := 0; + FieldByName('AOrdQty2').Value := 1; + FieldByName('apid').Value := CDS_Sub.fieldbyname('apid').AsString; + FieldByName('Aorddefstr1').Value := 'Ʒ'; + FieldByName('APTM').Value := trim(fAPTM); + post; + end; + edit; + FieldByName('AOrdQty3').Value := strtofloatdef(trim(cxCurrencyEdit1.Text), 0); + Post; + if not SaveMJID() then + begin + edit; + FieldByName('AOrdQty3').Value := 0; + Post; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + self.tv3.Controller.EditingController.ShowEdit(); + exit; + end; + next; + end; + self.tv3.Controller.EditingController.ShowEdit(); + cxCurrencyEdit1.text := ''; + end; +end; + +procedure TfrmProductOrderAnPai.Button1Click(Sender: TObject); +begin + Edit1.SetFocus; + + if strtofloatdef(trim(edit3.Text), 0) <> CDS_Roll.RecordCount then + begin + Application.MessageBox('ƥȷ!', 'ʾ', 0); + Exit; + end; + + if strtofloatdef(trim(edit4.Text), 0) <> tv3.DataController.Summary.FooterSummaryValues[2] then + begin + Application.MessageBox('ȷ!', 'ʾ', 0); + Exit; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai '); + sql.Add('where apid=' + quotedstr(trim(CDS_Sub.fieldbyname('apid').AsString))); + open; + if isempty then + begin + application.MessageBox('˻زֵδ棬ܼ鱣', 'ʾϢ', 0); + exit; + end; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY '); + sql.Add('where apid=' + quotedstr(trim(CDS_Sub.fieldbyname('apid').AsString))); + sql.Add('and mjstr2<>' + quotedstr(trim('δ'))); + open; + if not isempty then + begin + application.MessageBox('˻زֵ', 'ʾϢ', 0); + exit; + end; + end; + ADOQueryCmd.Connection.BeginTrans; + try + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete from JYOrder_Sub_AnPai_MX where APId=''' + Trim(CDS_Sub.fieldbyname('APId').AsString) + ''''); + execsql; + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from JYOrder_Sub_AnPai_MX where APId=''' + Trim(CDS_Sub.fieldbyname('APId').AsString) + ''''); + Open; + end; + CDS_Roll.DisableControls; + CDS_Roll.First; + while not CDS_Roll.Eof do + begin + if trim(CDS_Roll.fieldbyname('apid').AsString) = '' then + CDS_Roll.delete; + with ADOQueryCmd do + begin + append; + FieldByName('ApId').Value := Trim(CDS_Sub.fieldbyname('apid').AsString); + FieldByName('ApsubId').Value := CDS_Roll.recNo; + FieldByName('APTM').Value := Trim(CDS_Sub.fieldbyname('APTM').AsString); + FieldByName('AOrdQty2').Value := CDS_Roll.fieldbyname('AOrdQty2').AsInteger; + FieldByName('AOrdQty1').Value := CDS_Roll.fieldbyname('AOrdQty1').AsFloat; + FieldByName('AOrdQty3').Value := CDS_Roll.fieldbyname('AOrdQty3').AsFloat; + FieldByName('AorddefNote1').Value := Trim(CDS_Roll.fieldbyname('AorddefNote1').AsString); + FieldByName('Aorddefstr1').Value := Trim(CDS_Roll.fieldbyname('Aorddefstr1').AsString); + post; + end; + CDS_Roll.Next; + end; + CDS_Roll.EnableControls; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from WFB_MJJY '); + sql.Add('where apid=' + quotedstr(trim(CDS_Sub.fieldbyname('apid').AsString))); + execsql; + end; + + CDS_Roll.DisableControls; + CDS_Roll.First; + while not CDS_Roll.Eof do + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY '); + sql.Add('where 1=2 '); + open; + append; + FieldByName('MainId').value := Trim(cds_sub.fieldbyname('mainiD').AsString); + FieldByName('SubId').value := Trim(cds_sub.fieldbyname('subid').AsString); + FieldByName('conNo').Value := Trim(cds_sub.fieldbyname('conNo').AsString); + FieldByName('APId').value := Trim(cds_sub.fieldbyname('apid').AsString); + FieldByName('MJID').Value := Trim(CDS_Sub.fieldbyname('APTM').AsString); + FieldByName('MJSTr1').value := Trim(cds_sub.fieldbyname('AOrddefstr2').AsString); + FieldByName('MJTypeOther').value := Trim(cds_sub.fieldbyname('AOrddefstr3').AsString); + FieldByName('MJStr2').Value := 'δ'; + FieldByName('MJType').Value := Trim(CDS_Roll.fieldbyname('Aorddefstr1').AsString); + FieldByName('Filler').Value := Trim(DName); + FieldByName('MJLen').Value := CDS_Roll.fieldbyname('AOrdQty3').AsFloat; + FieldByName('MJQty1').Value := CDS_Roll.fieldbyname('AOrdQty1').AsFloat; + FieldByName('MJxh').Value := CDS_Roll.fieldbyname('apsubid').AsFloat; + FieldByName('note').Value := Trim(CDS_Roll.fieldbyname('AorddefNote1').AsString); + post; + end; + CDS_Roll.Next; + end; + CDS_Roll.EnableControls; + CDS_Roll.First; + + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('鱣ɹ!', 'ʾϢ'); + except + + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('鱣ʧ!', 'ʾϢ', 0); + end; +end; + +procedure TfrmProductOrderAnPai.V2Column13PropertiesButtonClick(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_Sub.Edit; + Self.CDS_Sub.FieldByName('C_color').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString) + '#'; + ; + // Self.CDS_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmProductOrderAnPai.Button2Click(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 CK_BanCP_CR 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('update JYOrder_Sub_AnPai_MX SET AOrdQty3=0 where APID=''' + Trim(CDS_Sub.fieldbyname('APID').AsString) + ''''); + sql.Add('delete WFB_MJJY where APID=''' + Trim(CDS_Sub.fieldbyname('APID').AsString) + ''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + InitRoll(); + except + ADOQueryCmd.Connection.RollbackTrans; + end; + end; + +end; + +procedure TfrmProductOrderAnPai.V2Column13PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with CDS_Sub do + begin + Edit; + FieldByName('C_Color').Value := Trim(mvalue); + Post; + end; + self.tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmProductOrderAnPai.V2C_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin +{ try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='MPRTCodeName'; + flagname:='Ʒ'; + V1Name.Caption:=''; + V1Note.Caption:='Ӣ'; +// MainType:=Trim(DName); + fnote:=FALSE; + if ShowModal=1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Self.CDS_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)+'#'; + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.CDS_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; } + try + frmZdyAttachCP := TfrmZdyAttachCP.Create(Application); + with frmZdyAttachCP do + begin + fType := 'Ʒ'; + if ShowModal = 1 then + begin + Self.CDS_Sub.Edit; + Self.CDS_Sub.FieldByName('C_Code').Value := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + Self.CDS_Sub.FieldByName('C_CodeName').Value := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + // Self.Order_Sub.FieldByName('Color').Value:=Trim(CDS_HZ.fieldbyname('DEFstr3').AsString); + // Self.Order_Sub.FieldByName('SOrddefstr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString); + Self.CDS_Sub.Post; + end; + end; + finally + frmZdyAttachCP.Free; + end; + self.tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmProductOrderAnPai.V2C_CodeNamePropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if trim(mvalue) = '' then + exit; + + if rightBstr(trim(mvalue), 1) <> '#' then + begin + mvalue := trim(mvalue) + '#'; + end; + + with CDS_Sub do + begin + Edit; + FieldByName('C_CodeName').Value := Trim(mvalue); + Post; + end; + self.tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmProductOrderAnPai.TV3MouseEnter(Sender: TObject); +begin + cxGrid3.SetFocus; + tv3.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmProductOrderAnPai.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + if fRoll then + InitRoll(); +end; + +procedure TfrmProductOrderAnPai.TV5FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + InitGrid(); + BtnEditA1.TxtCode := Trim(Order_Main.fieldbyname('factoryNo').AsString); + BtnEditA1.Text := Trim(Order_Main.fieldbyname('factoryNoName').AsString); + BtnEditA4.Text := Trim(Order_Main.fieldbyname('PBFactory').AsString); +end; + +procedure TfrmProductOrderAnPai.FactoryNoNameBtnClick(Sender: TObject); +begin + try + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal = 1 then + begin + FactoryNoName.Text := Trim(CDS_HZ.fieldbyname('zdyName').AsString); + end; + end; + finally + frmZdyAttachGYS.Free; + end; + +end; + +procedure TfrmProductOrderAnPai.cxCurrencyEdit2KeyPress(Sender: TObject; var Key: Char); +begin + + if Key = #13 then + begin + if cds_sub.IsEmpty then + exit; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai '); + sql.Add('where Apid=' + quotedstr(trim(cds_sub.fieldbyname('apid').AsString))); + open; + if isempty then + begin + application.MessageBox('˻زֵδ棬ܱ', 'ʾϢ', 0); + exit; + end; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY '); + sql.Add('where apid=' + quotedstr(trim(CDS_Sub.fieldbyname('apid').AsString))); + sql.Add('and mjstr2<>' + quotedstr(trim('δ'))); + open; + if not isempty then + begin + application.MessageBox('˻زֵ', 'ʾϢ', 0); + exit; + end; + end; + with CDS_Roll do + begin + DisableControls; + first; + while not eof do + begin + edit; + FieldByName('AOrdQty3').Value := FieldByName('AOrdQty1').AsFloat * strtofloatdef(trim(cxCurrencyEdit2.Text), 0); + Post; + if not SaveMJID() then + begin + edit; + FieldByName('AOrdQty3').Value := 0; + Post; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + EnableControls; + self.tv3.Controller.EditingController.ShowEdit(); + exit; + end; + next; + end; + first; + EnableControls; + end; + + self.tv3.Controller.EditingController.ShowEdit(); + cxCurrencyEdit2.Text := ''; + end; + +end; + +procedure TfrmProductOrderAnPai.V2Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + frmClothContractList_sel := TfrmClothContractList_sel.create(self); + with frmClothContractList_sel do + begin + ffactoryName := self.Order_Main.fieldbyname('FactoryNoName').AsString; + C_CodeName.Text := self.Order_Main.fieldbyname('C_CodeName').AsString; + if showmodal = 1 then + begin + CDS_Sub.Edit; + CDS_Sub.FieldByName('conNo').Value := Order_Main.fieldbyname('conNo').AsString; + CDS_Sub.post; + end; + free; + end; + self.tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmProductOrderAnPai.V2Column14PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + // IF trim(mvalue)='' then exit; + with CDS_Sub do + begin + Edit; + FieldByName('conNo').Value := Trim(mvalue); + Post; + end; + + + { with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from Contract_Main A '); + sql.Add('where conNo='+quotedstr(trim(CDS_Sub.fieldbyname('conNo').AsString))); + sql.Add('and conType='+quotedstr(trim(''))); + open; + end; + IF ADOQueryCmd.IsEmpty then + begin + application.MessageBox('񵥺Ųڣ','ʾϢ',0); + with CDS_Sub do + begin + Edit; + FieldByName('conNo').Value:=''; + Post; + end; + end; } + self.tv2.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmProductOrderAnPai.TV2CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); +var + FValue: string; + FBounds: TRect; +begin + if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then + begin + FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1); + FBounds := AViewInfo.Bounds; + ACanvas.FillRect(FBounds); + ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 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 TfrmProductOrderAnPai.V3Column3PropertiesEditValueChanged(Sender: TObject); +var + mvalue: double; +begin + mvalue := strtofloatdef(trim(TcxTextEdit(Sender).EditingText), 0); + with CDS_Roll do + begin + Edit; + FieldByName('AOrdQty1').Value := mvalue; + Post; + end; + if CDS_Roll.fieldbyname('APSubID').AsInteger < 1 then + exit; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add(' update JYOrder_Sub_AnPai_MX SET AOrdQty1=' + quotedstr(trim(CDS_Roll.fieldbyname('AOrdQty1').AsString))); + sql.Add(' where apID=' + quotedstr(trim(CDS_Roll.fieldbyname('APID').AsString))); + sql.Add(' and apSubID=' + quotedstr(trim(CDS_Roll.fieldbyname('apSubID').AsString))); + sql.Add(' update WFB_MJJY SET MJQty1=' + quotedstr(trim(CDS_Roll.fieldbyname('AOrdQty1').AsString))); + sql.Add(' where apID=' + quotedstr(trim(CDS_Roll.fieldbyname('APID').AsString))); + sql.Add(' and MJXh=' + quotedstr(trim(CDS_Roll.fieldbyname('apSubID').AsString))); + execsql; + end; +end; + +procedure TfrmProductOrderAnPai.V3Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalue: double; +begin + + mvalue := CDS_Roll.fieldbyname('AOrdQty3').AsFloat; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add(' select *from WFB_MJJY '); + sql.Add(' where MJID=' + quotedstr(trim(CDS_Roll.fieldbyname('APTM').AsString))); + sql.Add(' and MJStr2=' + quotedstr(trim(''))); + open; + if ADOQueryCmd.RecordCount > 0 then + begin + application.MessageBox('˻زֵ', 'ʾϢ', 0); + with CDS_Roll do + begin + Edit; + FieldByName('AOrdQty3').Value := mvalue; + Post; + end; + exit; + end; + end; + mvalue := strtofloatdef(trim(TcxTextEdit(Sender).EditingText), 0); + + with CDS_Roll do + begin + Edit; + FieldByName('AOrdQty3').Value := mvalue; + Post; + end; + + if not SaveMJID() then + begin + with CDS_Roll do + begin + Edit; + FieldByName('AOrdQty3').Value := 0; + Post; + end; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + self.tv3.Controller.EditingController.ShowEdit(); + exit; + end; + +end; + +procedure TfrmProductOrderAnPai.V3Aorddefstr1PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := trim(CDS_Roll.fieldbyname('Aorddefstr1').AsString); + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add(' select *from WFB_MJJY '); + sql.Add(' where MJID=' + quotedstr(trim(CDS_Roll.fieldbyname('APTM').AsString))); + sql.Add(' and MJStr2=' + quotedstr(trim(''))); + open; + if ADOQueryCmd.RecordCount > 0 then + begin + application.MessageBox('˻زֵ', 'ʾϢ', 0); + with CDS_Roll do + begin + Edit; + FieldByName('Aorddefstr1').Value := mvalue; + Post; + end; + exit; + end; + end; + mvalue := trim(TcxTextEdit(Sender).EditingText); + + with CDS_Roll do + begin + Edit; + FieldByName('Aorddefstr1').Value := mvalue; + Post; + end; + + if not SaveMJID() then + begin + with CDS_Roll do + begin + Edit; + FieldByName('Aorddefstr1').Value := ''; + Post; + end; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + self.tv3.Controller.EditingController.ShowEdit(); + exit; + end; + +end; + +procedure TfrmProductOrderAnPai.V3notePropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := trim(CDS_Roll.fieldbyname('AorddefNote1').AsString); + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add(' select *from WFB_MJJY '); + sql.Add(' where MJID=' + quotedstr(trim(CDS_Roll.fieldbyname('APTM').AsString))); + sql.Add(' and MJStr2=' + quotedstr(trim(''))); + open; + if ADOQueryCmd.RecordCount > 0 then + begin + application.MessageBox('˻زֵ', 'ʾϢ', 0); + with CDS_Roll do + begin + Edit; + FieldByName('AorddefNote1').Value := mvalue; + Post; + end; + exit; + end; + end; + mvalue := trim(TcxTextEdit(Sender).EditingText); + + with CDS_Roll do + begin + Edit; + FieldByName('AorddefNote1').Value := mvalue; + Post; + end; + + if not SaveMJID() then + begin + with CDS_Roll do + begin + Edit; + FieldByName('AorddefNote1').Value := ''; + Post; + end; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + self.tv3.Controller.EditingController.ShowEdit(); + exit; + end; + +end; + +procedure TfrmProductOrderAnPai.TV5CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); +var + FValue: string; + FBounds: TRect; +begin + if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then + begin + FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1); + FBounds := AViewInfo.Bounds; + ACanvas.FillRect(FBounds); + ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 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 TfrmProductOrderAnPai.TBfindClick(Sender: TObject); +var + mvalue: string; +begin + if ADOQuery_Tp.Active = False then + Exit; + mvalue := SGetFilters(Panel1, 1, 2); + { + if (trim(mvalue)='') and (trim(C_Color.Text)<>'') then + begin + mvalue:=' C_Color='+quotedstr(trim(C_Color.Text)); + end + else + if (trim(mvalue)<>'') and (trim(C_Color.Text)<>'') then + begin + mvalue:=mvalue+' and C_Color='+quotedstr(trim(C_Color.Text)); + end; + + IF not CheckBox_XS.Checked then + begin + IF mvalue=''then + mvalue:=mvalue+' Qty2>H_gs ' + else + mvalue:=mvalue+' and Qty2>H_gs '; + end; } + + SDofilter(ADOQuery_Tp, mvalue); + SCreateCDS20(ADOQuery_Tp, Order_Main); + SInitCDSData20(ADOQuery_Tp, Order_Main); +end; + +procedure TfrmProductOrderAnPai.CheckBox_XSClick(Sender: TObject); +begin + ToolButton10.Click; +end; + +end. + diff --git a/管理系统/U_ProductOrderAnPaiGQX.dfm b/管理系统/U_ProductOrderAnPaiGQX.dfm new file mode 100644 index 0000000..accd869 --- /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 = 1016 + 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 = 1016 + Height = 343 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object cxGrid2: TcxGrid + Left = 2 + Top = 81 + Width = 1012 + Height = 260 + 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 = 1012 + 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 = 1012 + 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 = 1016 + 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 = 1016 + 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..f4f8fde --- /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; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + 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_ProductOrderList.dfm b/管理系统/U_ProductOrderList.dfm new file mode 100644 index 0000000..fbac5d9 --- /dev/null +++ b/管理系统/U_ProductOrderList.dfm @@ -0,0 +1,731 @@ +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 + 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 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 + 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 = 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..1e04c28 --- /dev/null +++ b/管理系统/U_ProductOrderList.pas @@ -0,0 +1,658 @@ +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; + //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,'ָʾ'); + + 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..90ec15f --- /dev/null +++ b/管理系统/U_ProductOrderListSel.dfm @@ -0,0 +1,331 @@ +object frmProductOrderListSel: TfrmProductOrderListSel + Left = 161 + Top = 205 + 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 = 1081 + 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 = 1081 + 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 = 16 + Top = 96 + Width = 1065 + 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_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 + 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 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 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 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 + 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_ProductOrderListSel.pas b/管理系统/U_ProductOrderListSel.pas new file mode 100644 index 0000000..33f1880 --- /dev/null +++ b/管理系统/U_ProductOrderListSel.pas @@ -0,0 +1,150 @@ +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; + v1JGFactoryName: TcxGridDBColumn; + v1DeliveryDate: 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 FormShow(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); + 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 A.*,B.*,A.OrderNo OrderNoM from JYOrder_Main A left join JYOrder_Sub B on A.MainId=B.MainId '); + SQL.Add('where A.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 + ModalResult:=1; +end; + +procedure TfrmProductOrderListSel.OrderNoMKeyPress(Sender: TObject; + var Key: Char); +begin + if Key=#13 then + begin + InitGrid(); + end; +end; + +end. diff --git a/管理系统/U_ProductOrderNewList.dfm b/管理系统/U_ProductOrderNewList.dfm new file mode 100644 index 0000000..9c38434 --- /dev/null +++ b/管理系统/U_ProductOrderNewList.dfm @@ -0,0 +1,982 @@ +object frmProductOrderNewList: TfrmProductOrderNewList + Left = 285 + Top = 154 + 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 + 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 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 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 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 552 + 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 TBcust: TToolButton + Left = 63 + Top = 30 + AutoSize = True + Caption = #20462#25913#23458#25143#21333#20215#20449#24687 + ImageIndex = 54 + OnClick = TBcustClick + 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#22823#36135 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBPrint2: TToolButton + Left = 348 + Top = 30 + AutoSize = True + Caption = #25171#21360#22823#32440#24352 + ImageIndex = 12 + Visible = False + OnClick = TBPrint2Click + end + object TBPrint1: TToolButton + Left = 447 + Top = 30 + AutoSize = True + Caption = #25171#21360#21098#26679 + ImageIndex = 12 + OnClick = TBPrint1Click + end + object ToolButton4: TToolButton + Left = 534 + Top = 30 + AutoSize = True + Caption = #26597#30475#30721#21333 + ImageIndex = 57 + OnClick = ToolButton4Click + end + object Trz: TToolButton + Left = 621 + Top = 30 + AutoSize = True + Caption = #26085#24535 + ImageIndex = 72 + OnClick = TrzClick + end + object TBClose: TToolButton + Left = 684 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ToolButton5: TToolButton + Left = 747 + Top = 30 + AutoSize = True + Caption = #30830#35748 + ImageIndex = 56 + OnClick = ToolButton5Click + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1366 + Height = 63 + 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 = 187 + 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 = 362 + Top = 15 + Width = 47 + 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 = 71 + 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 = 552 + 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 = 187 + 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 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 = 552 + Top = 39 + Width = 47 + 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 Label24: TLabel + Left = 362 + Top = 41 + 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 Label12: TLabel + Left = 760 + 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 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 = 228 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 419 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object JGFactoryName: TEdit + Tag = 2 + Left = 351 + Top = 103 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 375 + Top = 67 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object PRTCodeName: TEdit + Tag = 2 + Left = 605 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 228 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 495 + Top = 95 + Width = 76 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + object PrtColor: TEdit + Tag = 2 + Left = 605 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + object orderType: TComboBox + Tag = 2 + Left = 419 + Top = 37 + Width = 100 + Height = 20 + Style = csDropDownList + Ctl3D = False + ItemHeight = 12 + ParentCtl3D = False + TabOrder = 10 + OnChange = OrderNoChange + Items.Strings = ( + #27491#24120#21333 + #21098#26679#21333) + end + object C_CodeNameZW: TEdit + Tag = 2 + Left = 813 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 11 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 147 + Width = 1366 + Height = 544 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + 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 = v1PRTOrderQty + 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 = #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 v1Column17: TcxGridDBColumn + Caption = #35746#21333#31867#22411 + DataBinding.FieldName = 'orderType' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + 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 = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTRollNum' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PrtOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.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 + object v1Column6: TcxGridDBColumn + Caption = 'M1' + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column7: TcxGridDBColumn + Caption = 'M2' + DataBinding.FieldName = 'SordQty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column9: TcxGridDBColumn + Caption = 'M3' + DataBinding.FieldName = 'SordQty3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column10: TcxGridDBColumn + Caption = 'M4' + DataBinding.FieldName = 'SordQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column11: TcxGridDBColumn + Caption = 'M5' + DataBinding.FieldName = 'SordQty5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column12: TcxGridDBColumn + Caption = 'M6' + DataBinding.FieldName = 'SordQty6' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column13: TcxGridDBColumn + Caption = 'M7' + DataBinding.FieldName = 'SordQty7' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column14: TcxGridDBColumn + Caption = 'M8' + DataBinding.FieldName = 'SordQty8' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column15: TcxGridDBColumn + Caption = 'M9' + DataBinding.FieldName = 'SordQty9' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = 'M10' + DataBinding.FieldName = 'SordQty10' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Filler: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column18: TcxGridDBColumn + DataBinding.FieldName = 'ordFlag1' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + end + object v1Column19: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeNameZW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column20: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object Tv1Column1: TcxGridDBColumn + DataBinding.FieldName = 'BHZDStatus' + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 125 + Width = 1366 + Height = 22 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #19994#21153#36755#20837 + #19994#21153#24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1366 + ClientRectTop = 19 + end + object Panel2: TPanel + Left = 364 + Top = 164 + Width = 497 + Height = 297 + TabOrder = 4 + Visible = False + object Label7: TLabel + Left = 28 + Top = 24 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object Label10: TLabel + Left = 28 + Top = 68 + Width = 24 + Height = 12 + Caption = #20215#26684 + end + object Button1: TButton + Left = 392 + Top = 16 + Width = 85 + Height = 25 + Caption = #20462#25913#23458#25143 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 396 + Top = 232 + Width = 81 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button2Click + end + object cust: TBtnEditA + Left = 60 + Top = 20 + Width = 285 + Height = 20 + TabOrder = 2 + OnBtnClick = custBtnClick + end + object cxGrid2: TcxGrid + Left = 56 + Top = 64 + Width = 289 + Height = 200 + TabOrder = 3 + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DSPrice + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Inserting = False + OptionsView.GroupByBox = False + object V3Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCODEName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object V3Column2: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTCOLOR' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object V3Column3: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPRICE' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##;-,0.##' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = TV3 + end + end + object Button3: TButton + Left = 392 + Top = 112 + Width = 85 + Height = 25 + Caption = #20462#25913#21333#20215 + TabOrder = 4 + OnClick = Button3Click + 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 + 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 = 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 CDSPrice: TClientDataSet + Aggregates = <> + Params = <> + Left = 600 + Top = 296 + end + object DSPrice: TDataSource + DataSet = CDSPrice + Left = 664 + Top = 328 + end + object ADOPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 388 + Top = 288 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 840 + Top = 72 + end +end diff --git a/管理系统/U_ProductOrderNewList.pas b/管理系统/U_ProductOrderNewList.pas new file mode 100644 index 0000000..1aca5d4 --- /dev/null +++ b/管理系统/U_ProductOrderNewList.pas @@ -0,0 +1,1563 @@ +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, cxPC, cxCurrencyEdit, + BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, + 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 + 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; + 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; + v1MPRTCodeName: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label2: TLabel; + JGFactoryName: TEdit; + Label5: TLabel; + OrdPerson1: TEdit; + Label8: TLabel; + PRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1Column8: TcxGridDBColumn; + Label11: TLabel; + OrdDefStr1: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + tchk: TToolButton; + tNochk: TToolButton; + v1EditTime: TcxGridDBColumn; + v1ordderNote1: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + TBPrint1: TToolButton; + v1Column17: TcxGridDBColumn; + v1Filler: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + PrtColor: TEdit; + Label6: TLabel; + orderType: TComboBox; + Label24: TLabel; + TBPrint2: TToolButton; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + Panel2: TPanel; + Label7: TLabel; + Label10: TLabel; + Button1: TButton; + Button2: TButton; + cust: TBtnEditA; + cxGrid2: TcxGrid; + TV3: TcxGridDBTableView; + V3Column1: TcxGridDBColumn; + V3Column2: TcxGridDBColumn; + V3Column3: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Button3: TButton; + TBcust: TToolButton; + CDSPrice: TClientDataSet; + DSPrice: TDataSource; + Trz: TToolButton; + v1Column19: TcxGridDBColumn; + C_CodeNameZW: TEdit; + Label12: TLabel; + ADOPrint: TADOQuery; + RMDB_Main: TRMDBDataSet; + RMDB_MD: TRMDBDataSet; + ToolButton4: TToolButton; + v1Column20: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + ToolButton5: 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 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 OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure tchkClick(Sender: TObject); + procedure tNochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TBPrint1Click(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure TBPrint2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure TBcustClick(Sender: TObject); + procedure custBtnClick(Sender: TObject); + procedure TrzClick(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + private + DQdate: TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + procedure InitGridFH(); + procedure SetStatus(); + { Private declarations } + public + FFInt, FCloth: Integer; + fDParameters1: string; + fCustomerNoName: string; + forderType: string; + fsyrName: string; + { Public declarations } + end; + +var + frmProductOrderNewList: TfrmProductOrderNewList; + +implementation + +uses + U_DataLink, U_Fun, U_OrderInPut, U_ZdyAttachment, U_SysLogHelp; + +{$R *.dfm} +procedure TfrmProductOrderNewList.SetStatus(); +begin + Tchk.Visible := false; + tNochk.Visible := false; + TBEdit.Enabled := false; + TBDel.Enabled := false; + TBPrint.Visible := false; + TBPrint1.Visible := false; + tbPrint2.Visible := false; + tbcust.Visible := false; + + if Trim(fDParameters1) = '' then + begin + TBADD.Visible := false; + case cxTabControl1.TabIndex of + 0: + begin + + TBEdit.Enabled := true; + Tchk.Visible := true; + TBDel.Enabled := true; + end; + 1: + begin + tNochk.Visible := true; + if fOrderType = '' then + TBPrint1.Visible := true + else + begin + TBPrint.Visible := true; + end; + // tbPrint2.Visible:=true; + end; + end; + end + else if Trim(fDParameters1) = '' then + begin + TBADD.Visible := false; + case cxTabControl1.TabIndex of + 0: + begin + TBEdit.Enabled := true; + Tchk.Visible := true; + TBDel.Enabled := true; + end; + 1: + begin + tNochk.Visible := true; + if fOrderType = '' then + TBPrint1.Visible := true + else + begin + TBPrint.Visible := true; + end; + // tbPrint2.Visible:=true; + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0: + begin + TBEdit.Enabled := true; + // Tchk.Visible:=true; + TBDel.Enabled := true; + // tbcust.Visible:=true; + end; + 1: + begin + tbcust.Visible := true; + if fOrderType = '' then + TBPrint1.Visible := true + else + begin + TBPrint.Visible := true; + end; + end; + end; + 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; +end; + +procedure TfrmProductOrderNewList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾбѡJW', Tv1, 'ָʾ'); +end; + +procedure TfrmProductOrderNewList.InitGrid(); +var + strwhere: string; +begin + strwhere := ''; + + if cxTabControl1.TabIndex < 2 then + strwhere := strwhere + ' and isnull(B.status,''0'')=''' + inttostr(cxTabControl1.TabIndex) + ''''; + + if (trim(fDParameters1) <> '') and (trim(fDParameters1) <> '') then + strwhere := strwhere + ' and B.Filler=''' + Trim(DName) + ''' '; + + strwhere := strwhere + ' and B.orderType=''' + Trim(forderType) + ''''; + + if trim(fsyrName) <> '' then + begin + strwhere := strwhere + ' and B.syrName=''' + Trim(fsyrName) + ''''; + end; + + 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 := 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.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('ָʾб10JW', Tv1, 'ָʾ') + else + ReadCxGrid('ָʾбѡJW', Tv1, 'ָʾ'); + + if FCloth = 1 then + begin + v1Column4.Visible := True; + + end + else + begin + v1Column4.Visible := False; + end; + + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime; + + 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 + forderType := self.forderType; + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo := Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + fsyrName := self.fsyrName; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_BanCP_CR A '); + SQL.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('Ѳ,ɾ!', 'ʾ', 0); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_BanCP_PH A '); + SQL.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('Ѳ,ɾ!', 'ʾ', 0); + Exit; + end; +{ 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.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; + 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, PRTCodeName, funit: string; + i, j, k: Integer; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + if Order_Main.IsEmpty then + Exit; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf'; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select *,KCNUm=(case when syrName<>''𻪷֯'' then (select sum(kcRollNum) from CK_BanCP_KC1 X where X.C_CodeName=A.prtCodeName and x.KCQty>0 and X.C_Color = A.PrtColor AND x.CPType not in(''һȴƷ'',''ȴƷ'')) '); + sql.Add(' else (select sum(kcRollNum) from CK_BanCP_KC X where X.C_CodeName=A.prtCodeName and x.KCQty>0 and X.C_Color = A.PrtColor AND x.CPType not in(''һȴƷ'',''ȴƷ'')) end), '); + sql.Add(' tyb=(select Top 1 defstr8 from KH_Zdy_Attachment X where X.zdyName=B.customerNoName and X.Type=''KHName''),'); + sql.Add(' tybTel=(select Top 1 DEFNote3 from KH_Zdy_Attachment X where X.zdyName=B.customerNoName and X.Type=''KHName''), '); + sql.Add(' LXTel=(select Top 1 defstr1 from KH_Zdy_Attachment X where X.zdyName=B.customerNoName and X.Type=''KHName''), '); + // sql.Add(' kw2=(select Top 1 defstr5 from KH_Zdy_Attachment X where X.zdyName=A.prtCodeName and X.defstr3 = A.PrtColor), '); + sql.Add(' m=floor(PrtRollNum / 10),n=PrtRollNum % 10, '); + sql.Add(' RollSum=(select sum(PrtRollNum) from JYOrder_Sub X where X.mainID=A.mainID),'); + sql.Add(' QtySum=(select sum(PrtOrderQty) from JYOrder_Sub X where X.mainID=A.mainID), '); + sql.Add(' C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and X.DEFstr3=A.PrtColor and Type=''CP'') '); +// SQL.Add(',kckw=(select cast(S.kckw as varchar(20))+'','' from(select kckw from CK_BanCP_BH C '); +// SQL.Add(' LEFT join CK_BanCP_CR D on C.CRID=D.CRID and CRFlag='''' where C.mainid=B.bhmainid)S for xml path('''')) '); + SQL.Add(',kckw=stuff((select cast('',''+S.kckw as varchar(20)) from(select distinct kckw from CK_BanCP_BH C '); + SQL.Add('LEFT join CK_BanCP_CR D on C.CRID=D.CRID and CRFlag='''' where C.mainid=B.bhmainid and D.C_Color=A.prtcolor )S for xml path('''')),1,1,'''' )'); + sql.Add('from JYOrder_Sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.MainID '); + sql.Add('where A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); +// ShowMessage(SQL.text); + Open; + end; + SCreateCDS20(ADOQueryPrint, CDS_Print); + + with ADOQueryPrint do + begin + while not eof do + begin + if fieldbyname('m').AsInteger < 1 then + k := 1; + if (fieldbyname('m').AsInteger >= 1) and (fieldbyname('n').AsInteger = 0) then + k := fieldbyname('m').AsInteger; + if (fieldbyname('m').AsInteger >= 1) and (fieldbyname('n').AsInteger <> 0) then + k := fieldbyname('m').AsInteger + 1; + + for i := 1 to k do + begin + CDS_Print.Append; + for j := 0 to FieldCount - 1 do + begin + CDS_Print.fields[j].value := Fields[j].Value; + end; + CDS_Print.Post; + end; + next; + end; + end; + + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(ADOQueryPrint.fieldbyname('mainID').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); + Order_Main.EnableControls; + exit; + end; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RMVariables['customerNoName'] := Trim(Order_Main.fieldbyname('customerNoName').AsString); + RMVariables['OrderNo'] := Trim(Order_Main.fieldbyname('OrderNo').AsString); + RMVariables['Note'] := Trim(Order_Main.fieldbyname('Note').AsString); + RMVariables['FHAddress'] := Trim(Order_Main.fieldbyname('FHAddress').AsString); + RMVariables['LXFS'] := Trim(Order_Main.fieldbyname('LXFS').AsString); + RMVariables['OrdDate'] := Order_Main.fieldbyname('OrdDate').Value; + RMVariables['OrdPerson1'] := Order_Main.fieldbyname('OrdPerson1').Value; + RM1.LoadFromFile(fPrintFile); + // RM1.ShowReport; + RM1.PrintReport; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf'), 'ʾ', 0); + exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdDefDate1=getdate(),OrdFlag1=1'); + sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + ExecSQL; + end; +end; + +procedure TfrmProductOrderNewList.TBRafreshClick(Sender: TObject); +begin + + InitGrid(); +end; + +procedure TfrmProductOrderNewList.TBAddClick(Sender: TObject); +var + maxno: string; +begin + try + frmOrderInPut := TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState := 0; + FMainId := ''; + fCustomerNoName := self.fCustomerNoName; + forderType := self.forderType; + fsyrName := self.fsyrName; + + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmOrderInPut.Free; + 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 + SetStatus(); + 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 + +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 + forderType := self.forderType; + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Enabled := False; + TBSave.Visible := False; + ScrollBox1.Enabled := False; + Tv1.OptionsSelection.CellSelect := False; + fsyrName := self.fsyrName; + 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 + forderType := self.forderType; + PState := 1; + CopyInt := 99; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + fsyrName := self.fsyrName; + if ShowModal = 1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList.ToolButton3Click(Sender: TObject); +begin + ModalResult := 1; +end; + +procedure TfrmProductOrderNewList.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(fDParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end; + 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'; + 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(fDParameters1) <> 'Ȩ' 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.tchkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrder_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('orderNo').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ҵ˳ɹ', 'ʾϢ'); + if Order_Main.fieldbyname('orderType').AsString = '' then + begin + if Application.MessageBox('ȷҪӡҵָʾ', 'ʾ', 32 + 4) = IDYES then + begin + TBPrint.Click; + end; + end; + { IF fCustomerNoName<>'㶫в'then + begin + if Application.MessageBox('ȷҪӡҵָʾ','ʾ',32+4)=IDYES then + begin + IF Order_Main.fieldbyname('orderType').AsString='' then + TBPrint1.Click + else + TBPrint.Click; + end; + end; } + TBRafresh.Click; + except + application.MessageBox('ҵʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmProductOrderNewList.tNochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_PH '); + 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; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from BP_inout '); + sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and cRType =''Ʒ۳'''); + // 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('update JYOrder_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('orderNo').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('˳ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('˳ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmProductOrderNewList.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + + application.ProcessMessages; + initGrid(); +end; + +procedure TfrmProductOrderNewList.TBPrint1Click(Sender: TObject); +var + fPrintFile: string; + Porderno, PRTCodeName, funit: string; + i, j: Integer; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + if Order_Main.IsEmpty then + Exit; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf'; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select *, '); + sql.Add(' RollSum=(select sum(PrtRollNum) from JYOrder_Sub X where X.mainID=A.mainID),'); + sql.Add(' QtySum=(select sum(PrtOrderQty) from JYOrder_Sub X where X.mainID=A.mainID), '); + sql.Add(' C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and X.DEFstr3=A.PrtColor and Type=''CP'') '); + sql.Add('from JYOrder_Sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.MainID '); + sql.Add('where A.mainID=' + quotedstr(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('mainID').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); + Order_Main.EnableControls; + exit; + end; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RMVariables['customerNoName'] := Trim(Order_Main.fieldbyname('customerNoName').AsString); + RMVariables['OrderNo'] := Trim(Order_Main.fieldbyname('OrderNo').AsString); + RMVariables['Note'] := Trim(Order_Main.fieldbyname('Note').AsString); + RMVariables['FHAddress'] := Trim(Order_Main.fieldbyname('FHAddress').AsString); + RMVariables['LXFS'] := Trim(Order_Main.fieldbyname('LXFS').AsString); + RMVariables['OrdDate'] := Order_Main.fieldbyname('OrdDate').Value; + RMVariables['OrdPerson1'] := Order_Main.fieldbyname('OrdPerson1').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf'), 'ʾ', 0); + exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdDefDate1=getdate(),OrdFlag1=1'); + sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + ExecSQL; + end; +end; + +procedure TfrmProductOrderNewList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('OrdFlag1').Index] = 0 then + begin + ACanvas.Brush.Color := clSkyBlue; + end; + if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('BHZDStatus').Index] = 0 then + begin + ACanvas.Brush.Color := clRed; + end; +end; + +procedure TfrmProductOrderNewList.TBPrint2Click(Sender: TObject); +var + fPrintFile: string; + Porderno, PRTCodeName, funit: string; + i, j: Integer; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + if Order_Main.IsEmpty then + Exit; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ָʾֽ.rmf'; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select *, '); + sql.Add(' RollSum=(select sum(PrtRollNum) from JYOrder_Sub X where X.mainID=A.mainID),'); + sql.Add(' QtySum=(select sum(PrtOrderQty) from JYOrder_Sub X where X.mainID=A.mainID), '); + sql.Add(' KCNUm=(select sum(kcRollNum) from CK_BanCP_KC X where X.C_CodeName=A.prtCodeName and x.KCQty>0 and X.C_Color = A.PrtColor AND x.CPType not in(''һȴƷ'',''ȴƷ'')), '); + sql.Add(' CPKW=(select Top 1 zdyCode from KH_Zdy_Attachment X where X.DEFstr1=A.prtCodeName and X.DEFstr2=A.PrtColor)'); + sql.Add(' C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and Type=''CP''), '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and X.DEFstr3=A.PrtColor and Type=''CP'') '); + sql.Add('from JYOrder_Sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.MainID '); + sql.Add('where A.mainID=' + quotedstr(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('mainID').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); + Order_Main.EnableControls; + exit; + end; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RMVariables['customerNoName'] := Trim(Order_Main.fieldbyname('customerNoName').AsString); + RMVariables['OrderNo'] := Trim(Order_Main.fieldbyname('OrderNo').AsString); + RMVariables['Note'] := Trim(Order_Main.fieldbyname('Note').AsString); + RMVariables['FHAddress'] := Trim(Order_Main.fieldbyname('FHAddress').AsString); + RMVariables['LXFS'] := Trim(Order_Main.fieldbyname('LXFS').AsString); + RMVariables['OrdDate'] := Order_Main.fieldbyname('OrdDate').Value; + RMVariables['OrdPerson1'] := Order_Main.fieldbyname('OrdPerson1').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ָʾֽ.rmf'), 'ʾ', 0); + exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdDefDate1=getdate(),OrdFlag1=1'); + sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + ExecSQL; + end; +end; + +procedure TfrmProductOrderNewList.Button1Click(Sender: TObject); +var + str: string; +begin + if Order_Main.IsEmpty then + Exit; + + if trim(cust.Text) = '' then + begin + application.MessageBox('ͻΪգ', 'ʾϢ', 0); + Exit; + end; +{ with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''' and A.status>''0'' '); + open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('Ӧտδˣ޸ģ','ʾϢ',MB_ICONERROR); + exit; + end; } + str := 'ţ' + trim(Order_Main.FieldByName('orderNo').AsString) + ' ͻ' + trim(Order_Main.FieldByName('customerNoName').AsString) + '->' + trim(cust.Text); + + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update JYOrder_Main SET customerNO=''' + trim(cust.TxtCode) + ''', customerNOName=''' + trim(cust.Text) + ''' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + sql.Add('update YF_Money_CR SET factoryName=''' + trim(cust.Text) + ''', comtaiTou=''' + trim(cust.Text) + ''' 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(str))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Panel2.Visible := false; + initgrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('޸쳣', 'ʾ', 0); + end; +end; + +procedure TfrmProductOrderNewList.Button3Click(Sender: TObject); +var + str1: string; +begin + if CDSPrice.IsEmpty then + exit; + cust.SetFocus; +{ with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''' and A.status>''0'' '); + open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('Ӧտδˣ޸ģ','ʾϢ',MB_ICONERROR); + exit; + end; } + if Application.MessageBox('ȷҪ޸ĵ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDSPrice.First; + while not CDSPrice.Eof do + begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select PRTPrice FROM JYOrder_sub X where subID=''' + Trim(CDSPrice.fieldbyname('subID').AsString) + ''''); + open; + end; + if ADOQueryTemp.fieldbyname('PrtPrice').AsFloat <> CDSPrice.FieldByName('PrtPrice').AsFloat then + begin + str1 := trim(CDSPrice.fieldbyname('subID').AsString) + ':' + ADOQueryTemp.fieldbyname('PrtPrice').AsString + '->' + CDSPrice.FieldByName('PrtPrice').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update JYOrder_sub SET PRTPrice=''' + trim(CDSPrice.fieldbyname('PRTPrice').AsString) + ''' where MainID=''' + Trim(CDSPrice.fieldbyname('MainId').AsString) + ''' and subID=''' + Trim(CDSPrice.fieldbyname('subID').AsString) + ''' '); + sql.Add('update YF_Money_CR SET Price=''' + trim(CDSPrice.fieldbyname('PRTPrice').AsString) + ''' where MainID=''' + Trim(CDSPrice.fieldbyname('MainId').AsString) + ''' and subID=''' + Trim(CDSPrice.fieldbyname('subID').AsString) + ''' '); + sql.Add('update YF_Money_CR SET Money=Price*Qty,BBMoney=Price*Qty*HuiLv where MainID=''' + Trim(CDSPrice.fieldbyname('MainId').AsString) + ''' and subID=''' + Trim(CDSPrice.fieldbyname('subID').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(str1))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + end; + CDSPrice.Next; + end; + ADOQueryCmd.Connection.CommitTrans; + Panel2.Visible := false; + //initgrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('޸쳣', 'ʾ', 0); + end; +end; + +procedure TfrmProductOrderNewList.TBcustClick(Sender: TObject); +begin + if order_main.IsEmpty then + exit; +// CDSPrice.EmptyDataSet; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_sub X where MainID=' + quotedstr(trim(order_main.fieldbyname('MainID').AsString))); + open; + end; + SCreateCDS20(ADOQueryTemp, CDSPrice); + SInitCDSData20(ADOQueryTemp, CDSPrice); + cust.Text := ''; + cust.TxtCode := ''; + Panel2.Left := (self.Width - Panel2.Width) div 2; + Panel2.Visible := true; +end; + +procedure TfrmProductOrderNewList.custBtnClick(Sender: TObject); +begin + try + frmZdyAttachment := TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType := ''; + fkhType := self.fsyrName; + if ShowModal = 1 then + begin + cust.Text := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + cust.TxtCode := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + end; + end; + finally + frmZdyAttachment.Free; + end; +end; + +procedure TfrmProductOrderNewList.TrzClick(Sender: TObject); +begin + frmSysLogHelp := TfrmSysLogHelp.create(self); + with frmSysLogHelp do + begin + facction := 'ָʾɾ'; + showmodal; + free; + end; +end; + +procedure TfrmProductOrderNewList.Button2Click(Sender: TObject); +begin + Panel2.Visible := false; +end; + +procedure TfrmProductOrderNewList.ToolButton4Click(Sender: TObject); +var + filepath, fOrderNo: string; + i: integer; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + if Order_Main.IsEmpty then + exit; + + if Order_Main.FieldByName('OrderType').AsString = '' then + begin + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('select A.mainID,A.subID,A.SYRName,A.cust,A.P_CodeName,A.P_Color,A.QtyUnit,B.Sorddefnote1,c.note,C.orderNo,C.customerNoname,C.orddefnote1,C.FHAddress,C.LXFS,C.Filler as xsyg,SUM(A.Qty) as Qty,AVG(A.Price) as Price,SUM(A.money) as Money, '); + sql.Add('customNameAddress=(select Top 1 DEFNote1 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('DEFNote2=(select Top 1 DEFNote2 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('defstr8=(select Top 1 defstr8 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('defstr2=(select Top 1 defstr2 from KH_Zdy_Attachment X where X.ZdyName=A.cust),'); + sql.Add('DEFNote3=(select Top 1 DEFNote3 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('P_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.P_CodeName and Type=''CP'') '); + sql.Add(',P_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.P_CodeName and X.DEFstr3=A.P_Color and Type=''CP'') '); + sql.Add('from BP_INout A '); + sql.Add('left join JYOrder_sub B on B.mainID=A.mainID and B.subID=A.subID '); + sql.Add('left join JYOrder_Main C on C.mainID=A.mainID '); + sql.Add('where A.MainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('group by A.mainID,A.subID,A.SYRName,A.cust,A.P_CodeName,A.P_Color,A.QtyUnit,B.Sorddefnote1,c.note,C.orderNo,C.customerNoname,C.orddefnote1,C.FHAddress,C.LXFS,C.Filler'); + open; + end; + filepath := ExtractFilePath(Application.ExeName) + 'report\뵥Ʒ.rmf'; + + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ[' + filepath + ']ڣ'), 'ʾϢ', MB_IConError); + exit; + end; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(AdoPrint.fieldbyname('orderNo').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; + RMVariables['dtxz'] := FormatDateTime('yyyy-mm-dd', date()); + RMVariables['zdr'] := trim(DName); + RMVariables['Filler'] := trim(Order_Main.fieldbyname('Filler').AsString); + RM1.LoadFromFile(filepath); + RM1.ShowReport; + end + else + begin + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PrintMd10 '); + sql.Add('@mainID=' + quotedstr(trim(Order_Main.fieldbyname('maiNID').AsString))); + sql.Add(',@TblCprk=' + quotedstr(trim(fSYRName))); + sql.Add(',@flag=' + quotedstr(trim('뵥'))); + open; + end; + + filepath := ExtractFilePath(Application.ExeName) + 'report\뵥.rmf'; + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ[' + filepath + ']ڣ'), 'ʾϢ', MB_IConError); + exit; + end; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(AdoPrint.fieldbyname('orderNo').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; + RMVariables['dtxz'] := FormatDateTime('yyyy-mm-dd', date()); + RMVariables['zdr'] := trim(DName); + RMVariables['Filler'] := trim(Order_Main.fieldbyname('Filler').AsString); + RM1.LoadFromFile(filepath); + RM1.ShowReport; + end; + +end; + +procedure TfrmProductOrderNewList.ToolButton5Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrder_main SET BHZDStatus=''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('orderNo').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ȷϳɹ', 'ʾϢ'); +// if Order_Main.fieldbyname('orderType').AsString = '' then +// begin +// if Application.MessageBox('ȷҪӡҵָʾ', 'ʾ', 32 + 4) = IDYES then +// begin +// TBPrint.Click; +// end; +// end; + + TBRafresh.Click; + except + application.MessageBox('ȷʧܣ', 'ʾϢ', 0); + end; +end; + +end. + diff --git a/管理系统/U_ProductOrderNewListSEl.dfm b/管理系统/U_ProductOrderNewListSEl.dfm new file mode 100644 index 0000000..ef563be --- /dev/null +++ b/管理系统/U_ProductOrderNewListSEl.dfm @@ -0,0 +1,676 @@ +object frmProductOrderNewListSEl: TfrmProductOrderNewListSEl + Left = 113 + Top = 117 + Width = 1094 + Height = 600 + Caption = #36873#25321#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 + WindowState = wsMaximized + 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 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 = 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 = 239 + 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 = 239 + 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 = 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 = 453 + Top = 16 + 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 = 693 + Top = 15 + 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 = 453 + 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 = 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 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 = 280 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 280 + Top = 35 + 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 = 507 + Top = 11 + 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 = 722 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object PRTCodeName: TEdit + Tag = 2 + Left = 507 + Top = 35 + 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 + end + object cxGrid1: TcxGrid + Left = 0 + Top = 97 + Width = 1078 + 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 + 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.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.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_TradeManage.Default + Width = 68 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + 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.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 + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + 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 v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.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 + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Footer = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Header = DataLink_TradeManage.cxStyle_fontclBlue + Width = 69 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Footer = DataLink_TradeManage.cxStyle_fontclBlue + Styles.Header = DataLink_TradeManage.cxStyle_fontclBlue + Width = 63 + end + object v1Column6: TcxGridDBColumn + Caption = #37197#36135#21305#25968 + DataBinding.FieldName = 'PH_RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'PH_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.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 + Options.Editing = False + Width = 60 + end + object v1ordderNote1: TcxGridDBColumn + Caption = #20462#25913#22791#27880 + DataBinding.FieldName = 'orddefNote1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + 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_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 cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 640 + Top = 60 + end +end diff --git a/管理系统/U_ProductOrderNewListSEl.pas b/管理系统/U_ProductOrderNewListSEl.pas new file mode 100644 index 0000000..770bbaa --- /dev/null +++ b/管理系统/U_ProductOrderNewListSEl.pas @@ -0,0 +1,454 @@ +unit U_ProductOrderNewListSEl; + +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 + TfrmProductOrderNewListSEl = 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; + PRTCodeName: 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; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + 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 + frmProductOrderNewListSEl: TfrmProductOrderNewListSEl; + +implementation +uses + U_DataLink,U_Fun10; + + +{$R *.dfm} + +procedure TfrmProductOrderNewListSEl.FormDestroy(Sender: TObject); +begin + frmProductOrderNewListSEl:=nil; +end; + +procedure TfrmProductOrderNewListSEl.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderNewListSEl.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmProductOrderNewListSEl.TBCloseClick(Sender: TObject); +begin + + WriteCxGrid(self.Caption+'Tv1',Tv1,'ָʾ'); + Close; +end; + +procedure TfrmProductOrderNewListSEl.InitGrid(); +var + strwhere:string; +begin + strwhere:=''; + + strwhere:=strwhere+' and isnull(B.status,''0'')='''+inttostr(1)+''''; + + strwhere:=strwhere+' and isnull(B.orderType,''0'')<>'''''; + + strwhere:=strwhere+' and isnull(B.CustomerNoName,''0'')=''㶫в'' '; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql,:otherwhere') ; + 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); + Parameters.ParamByName('otherwhere').Value:=''; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; +procedure TfrmProductOrderNewListSEl.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 TfrmProductOrderNewListSEl.InitForm(); +begin + + ReadCxGrid(self.Caption+'Tv1',Tv1,'ָʾ'); + + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp); + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + //InitGrid(); +end; + +procedure TfrmProductOrderNewListSEl.TBFindClick(Sender: TObject); +var + Mwhere :string; +begin + if ADOQueryMain.Active=False then Exit; + Mwhere:=SGetFilters(Panel1,1,2); + SDofilter(ADOQueryMain,Mwhere); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +end; + +function TfrmProductOrderNewListSEl.DelData():Boolean; +begin +end; + +procedure TfrmProductOrderNewListSEl.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + begin + InitGrid(); + end; +end; + +procedure TfrmProductOrderNewListSEl.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 TfrmProductOrderNewListSEl.FormShow(Sender: TObject); +begin + InitForm(); + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewListSEl.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderNewListSEl.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewListSEl.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewListSEl.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 TfrmProductOrderNewListSEl.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 TfrmProductOrderNewListSEl.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 TfrmProductOrderNewListSEl.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 TfrmProductOrderNewListSEl.ToolButton3Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + ModalResult:=1; +end; + +procedure TfrmProductOrderNewListSEl.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 TfrmProductOrderNewListSEl.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton3.Click; +end; + +end. diff --git a/管理系统/U_ProductOrderNewListXH.dfm b/管理系统/U_ProductOrderNewListXH.dfm new file mode 100644 index 0000000..a1cc42b --- /dev/null +++ b/管理系统/U_ProductOrderNewListXH.dfm @@ -0,0 +1,968 @@ +object frmProductOrderNewListXH: TfrmProductOrderNewListXH + Left = -8 + Top = -8 + 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 = 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 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 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 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 489 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 615 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBcust: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #20462#25913#23458#25143#21333#20215#20449#24687 + ImageIndex = 54 + OnClick = TBcustClick + end + object TBExport: TToolButton + Left = 813 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 876 + Top = 0 + AutoSize = True + Caption = #25171#21360#22823#36135 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBPrint2: TToolButton + Left = 963 + Top = 0 + AutoSize = True + Caption = #25171#21360#22823#32440#24352 + ImageIndex = 12 + Visible = False + OnClick = TBPrint2Click + end + object TBPrint1: TToolButton + Left = 1062 + Top = 0 + AutoSize = True + Caption = #25171#21360#21098#26679 + ImageIndex = 12 + OnClick = TBPrint1Click + end + object ToolButton4: TToolButton + Left = 1149 + Top = 0 + AutoSize = True + Caption = #26597#30475#30721#21333 + ImageIndex = 57 + OnClick = ToolButton4Click + end + object Trz: TToolButton + Left = 1236 + Top = 0 + AutoSize = True + Caption = #26085#24535 + ImageIndex = 72 + OnClick = TrzClick + end + object TBClose: TToolButton + Left = 1299 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 63 + 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 = 187 + 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 = 362 + Top = 15 + Width = 47 + 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 = 71 + 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 = 552 + 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 = 187 + 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 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 = 552 + Top = 39 + Width = 47 + 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 Label24: TLabel + Left = 362 + Top = 41 + 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 Label12: TLabel + Left = 760 + 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 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 = 228 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 419 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object JGFactoryName: TEdit + Tag = 2 + Left = 351 + Top = 103 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 375 + Top = 67 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object PRTCodeName: TEdit + Tag = 2 + Left = 605 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 228 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 495 + Top = 95 + Width = 76 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + object PrtColor: TEdit + Tag = 2 + Left = 605 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + object orderType: TComboBox + Tag = 2 + Left = 419 + Top = 37 + Width = 100 + Height = 20 + Style = csDropDownList + Ctl3D = False + ItemHeight = 12 + ParentCtl3D = False + TabOrder = 10 + OnChange = OrderNoChange + Items.Strings = ( + #27491#24120#21333 + #21098#26679#21333) + end + object C_CodeNameZW: TEdit + Tag = 2 + Left = 813 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 11 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 117 + Width = 1366 + Height = 544 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + 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 = v1PRTOrderQty + 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 = #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 v1Column17: TcxGridDBColumn + Caption = #35746#21333#31867#22411 + DataBinding.FieldName = 'orderType' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + 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 = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTRollNum' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PrtOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.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 + object v1Column6: TcxGridDBColumn + Caption = 'M1' + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column7: TcxGridDBColumn + Caption = 'M2' + DataBinding.FieldName = 'SordQty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column9: TcxGridDBColumn + Caption = 'M3' + DataBinding.FieldName = 'SordQty3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column10: TcxGridDBColumn + Caption = 'M4' + DataBinding.FieldName = 'SordQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column11: TcxGridDBColumn + Caption = 'M5' + DataBinding.FieldName = 'SordQty5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column12: TcxGridDBColumn + Caption = 'M6' + DataBinding.FieldName = 'SordQty6' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column13: TcxGridDBColumn + Caption = 'M7' + DataBinding.FieldName = 'SordQty7' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column14: TcxGridDBColumn + Caption = 'M8' + DataBinding.FieldName = 'SordQty8' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column15: TcxGridDBColumn + Caption = 'M9' + DataBinding.FieldName = 'SordQty9' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = 'M10' + DataBinding.FieldName = 'SordQty10' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Filler: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column18: TcxGridDBColumn + DataBinding.FieldName = 'ordFlag1' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + end + object v1Column19: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeNameZW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column20: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 95 + Width = 1366 + Height = 22 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #19994#21153#36755#20837 + #19994#21153#24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1366 + ClientRectTop = 19 + end + object Panel2: TPanel + Left = 364 + Top = 164 + Width = 497 + Height = 297 + TabOrder = 4 + Visible = False + object Label7: TLabel + Left = 28 + Top = 24 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object Label10: TLabel + Left = 28 + Top = 68 + Width = 24 + Height = 12 + Caption = #20215#26684 + end + object Button1: TButton + Left = 392 + Top = 16 + Width = 85 + Height = 25 + Caption = #20462#25913#23458#25143 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 396 + Top = 232 + Width = 81 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button2Click + end + object cust: TBtnEditA + Left = 60 + Top = 20 + Width = 285 + Height = 20 + TabOrder = 2 + OnBtnClick = custBtnClick + end + object cxGrid2: TcxGrid + Left = 56 + Top = 64 + Width = 289 + Height = 200 + TabOrder = 3 + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DSPrice + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Inserting = False + OptionsView.GroupByBox = False + object V3Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCODEName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object V3Column2: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTCOLOR' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object V3Column3: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPRICE' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##;-,0.##' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = TV3 + end + end + object Button3: TButton + Left = 392 + Top = 112 + Width = 85 + Height = 25 + Caption = #20462#25913#21333#20215 + TabOrder = 4 + OnClick = Button3Click + 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 + 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 = 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 CDSPrice: TClientDataSet + Aggregates = <> + Params = <> + Left = 600 + Top = 296 + end + object DSPrice: TDataSource + DataSet = CDSPrice + Left = 664 + Top = 328 + end + object ADOPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 388 + Top = 288 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 840 + Top = 72 + end +end diff --git a/管理系统/U_ProductOrderNewListXH.pas b/管理系统/U_ProductOrderNewListXH.pas new file mode 100644 index 0000000..dc09423 --- /dev/null +++ b/管理系统/U_ProductOrderNewListXH.pas @@ -0,0 +1,1477 @@ +unit U_ProductOrderNewListXH; + +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, BtnEdit, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu; + +type + TfrmProductOrderNewListXH = 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; + v1MPRTCodeName: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label2: TLabel; + JGFactoryName: TEdit; + Label5: TLabel; + OrdPerson1: TEdit; + Label8: TLabel; + PRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1Column8: TcxGridDBColumn; + Label11: TLabel; + OrdDefStr1: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + tchk: TToolButton; + tNochk: TToolButton; + v1EditTime: TcxGridDBColumn; + v1ordderNote1: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + TBPrint1: TToolButton; + v1Column17: TcxGridDBColumn; + v1Filler: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + PrtColor: TEdit; + Label6: TLabel; + orderType: TComboBox; + Label24: TLabel; + TBPrint2: TToolButton; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + Panel2: TPanel; + Label7: TLabel; + Label10: TLabel; + Button1: TButton; + Button2: TButton; + cust: TBtnEditA; + cxGrid2: TcxGrid; + TV3: TcxGridDBTableView; + V3Column1: TcxGridDBColumn; + V3Column2: TcxGridDBColumn; + V3Column3: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Button3: TButton; + TBcust: TToolButton; + CDSPrice: TClientDataSet; + DSPrice: TDataSource; + Trz: TToolButton; + v1Column19: TcxGridDBColumn; + C_CodeNameZW: TEdit; + Label12: TLabel; + ADOPrint: TADOQuery; + RMDB_Main: TRMDBDataSet; + RMDB_MD: TRMDBDataSet; + ToolButton4: TToolButton; + v1Column20: 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 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 OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure tchkClick(Sender: TObject); + procedure tNochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TBPrint1Click(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBPrint2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure TBcustClick(Sender: TObject); + procedure custBtnClick(Sender: TObject); + procedure TrzClick(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure SetStatus(); + { Private declarations } + public + FFInt,FCloth:Integer; + fDParameters1:string; + fCustomerNoName:string; + forderType:string; + fsyrName:string; + { Public declarations } + end; + +var + frmProductOrderNewListXH: TfrmProductOrderNewListXH; + +implementation +uses + U_DataLink,U_Fun, U_OrderInPut, U_ZdyAttachment, U_SysLogHelp; + +{$R *.dfm} +procedure TfrmProductOrderNewListXH.SetStatus(); +begin + Tchk.Visible:=false; + tNochk.Visible:=false; + TBEdit.Enabled:=false; + TBDel.Enabled:=false; + TBPrint.Visible:=false; + TBPrint1.Visible:=false; + tbPrint2.Visible:=false; + tbcust.Visible:=false; + + IF Trim(fDParameters1)='' then + begin + TBADD.Visible:=false; + case cxTabControl1.TabIndex of + 0:begin + + TBEdit.Enabled:=true; + Tchk.Visible:=true; + TBDel.Enabled:=true; + end; + 1:begin + tNochk.Visible:=true; + IF fOrderType='' then + TBPrint1.Visible:=true + else + begin + TBPrint.Visible:=true; + end; + // tbPrint2.Visible:=true; + end; + end; + end + else + IF Trim(fDParameters1)='' then + begin + TBADD.Visible:=false; + case cxTabControl1.TabIndex of + 0:begin + TBEdit.Enabled:=true; + Tchk.Visible:=true; + TBDel.Enabled:=true; + end; + 1:begin + tNochk.Visible:=true; + IF fOrderType='' then + TBPrint1.Visible:=true + else + begin + TBPrint.Visible:=true; + end; + // tbPrint2.Visible:=true; + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + TBEdit.Enabled:=true; + // Tchk.Visible:=true; + TBDel.Enabled:=true; + // tbcust.Visible:=true; + end; + 1:begin + tbcust.Visible:=true; + IF fOrderType='' then + TBPrint1.Visible:=true + else + begin + TBPrint.Visible:=true; + end; + end; + end; + end; + +end; + +procedure TfrmProductOrderNewListXH.FormDestroy(Sender: TObject); +begin + frmProductOrderNewListXH:=nil; +end; + +procedure TfrmProductOrderNewListXH.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderNewListXH.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmProductOrderNewListXH.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾбѡJW',Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderNewListXH.InitGrid(); +var + strwhere:string; +begin + strwhere:=''; + + if cxTabControl1.TabIndex<2 then + strwhere:=strwhere+' and isnull(B.status,''0'')='''+inttostr(cxTabControl1.TabIndex)+''''; + + if (trim(fDParameters1)<>'') and (trim(fDParameters1)<>'') then + strwhere:=strwhere+' and B.Filler='''+Trim(DName)+''' '; + + strwhere:=strwhere+' and B.orderType='''+Trim(forderType)+''''; + + If trim(fsyrName)<>'' then + begin + strwhere:=strwhere+' and B.syrName='''+Trim(fsyrName)+''''; + end + else + begin + strwhere:=strwhere+' and B.syrName<>''˷֯'''; + end; + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.add('exec P_View_order :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 TfrmProductOrderNewListXH.InitForm(); +begin + + if FCloth<>1 then + ReadCxGrid('ָʾб10JW',Tv1,'ָʾ') + else + ReadCxGrid('ָʾбѡJW',Tv1,'ָʾ'); + + if FCloth=1 then + begin + v1Column4.Visible:=True; + + end else + begin + v1Column4.Visible:=False; + end; + + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; + + InitGrid(); +end; + +procedure TfrmProductOrderNewListXH.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 TfrmProductOrderNewListXH.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 + forderType:=self.forderType; + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + fsyrName:=self.fsyrName; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewListXH.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_BanCP_CR A '); + SQL.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('Ѳ,ɾ!','ʾ',0); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_BanCP_PH A '); + SQL.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('Ѳ,ɾ!','ʾ',0); + Exit; + end; +{ 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 TfrmProductOrderNewListXH.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; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderNewListXH.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ָʾб'); +end; + +procedure TfrmProductOrderNewListXH.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno,PRTCodeName,funit:string; + i,j,k:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select *,KCNUm=(case when syrName<>''𻪷֯'' then (select sum(kcRollNum) from CK_BanCP_KC1 X where X.C_CodeName=A.prtCodeName and x.KCQty>0 and X.C_Color = A.PrtColor AND x.CPType not in(''һȴƷ'',''ȴƷ'')) '); + sql.Add(' else (select sum(kcRollNum) from CK_BanCP_KC X where X.C_CodeName=A.prtCodeName and x.KCQty>0 and X.C_Color = A.PrtColor AND x.CPType not in(''һȴƷ'',''ȴƷ'')) end), '); + sql.Add(' tyb=(select Top 1 defstr8 from KH_Zdy_Attachment X where X.zdyName=B.customerNoName and X.Type=''KHName''),'); + sql.Add(' tybTel=(select Top 1 DEFNote3 from KH_Zdy_Attachment X where X.zdyName=B.customerNoName and X.Type=''KHName''), '); + sql.Add(' LXTel=(select Top 1 defstr1 from KH_Zdy_Attachment X where X.zdyName=B.customerNoName and X.Type=''KHName''), '); + // sql.Add(' kw2=(select Top 1 defstr5 from KH_Zdy_Attachment X where X.zdyName=A.prtCodeName and X.defstr3 = A.PrtColor), '); + sql.Add(' m=floor(PrtRollNum / 10),n=PrtRollNum % 10, '); + sql.Add(' RollSum=(select sum(PrtRollNum) from JYOrder_Sub X where X.mainID=A.mainID),'); + sql.Add(' QtySum=(select sum(PrtOrderQty) from JYOrder_Sub X where X.mainID=A.mainID), '); + sql.Add(' C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and X.DEFstr3=A.PrtColor and Type=''CP'') '); + sql.Add('from JYOrder_Sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.MainID '); + sql.Add('where A.mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + + with ADOQueryPrint do + begin + while not eof do + begin + IF fieldbyname('m').AsInteger<1 then K:=1; + IF (fieldbyname('m').AsInteger>=1) and (fieldbyname('n').AsInteger=0) then + k:=fieldbyname('m').AsInteger; + IF (fieldbyname('m').AsInteger>=1) and (fieldbyname('n').AsInteger<>0) then + k:=fieldbyname('m').AsInteger+1; + + for i:=1 to k do + begin + CDS_Print.Append; + for j:=0 to FieldCount-1 do + begin + CDS_Print.fields[j].value:=Fields[j].Value; + end; + CDS_Print.Post; + end; + next; + end; + end; + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('mainID').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); + Order_Main.EnableControls; + exit; + end; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RMVariables['customerNoName']:=Trim(Order_Main.fieldbyname('customerNoName').AsString); + RMVariables['OrderNo']:=Trim(Order_Main.fieldbyname('OrderNo').AsString); + RMVariables['Note']:=Trim(Order_Main.fieldbyname('Note').AsString); + RMVariables['FHAddress']:=Trim(Order_Main.fieldbyname('FHAddress').AsString); + RMVariables['LXFS']:=Trim(Order_Main.fieldbyname('LXFS').AsString); + RMVariables['OrdDate']:=Order_Main.fieldbyname('OrdDate').Value; + RMVariables['OrdPerson1']:=Order_Main.fieldbyname('OrdPerson1').Value; + RM1.LoadFromFile(fPrintFile); + // RM1.ShowReport; + RM1.PrintReport; + end + else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdDefDate1=getdate(),OrdFlag1=1'); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductOrderNewListXH.TBRafreshClick(Sender: TObject); +begin + + InitGrid(); +end; + +procedure TfrmProductOrderNewListXH.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=0; + FMainId:=''; + fCustomerNoName:=self.fCustomerNoName; + forderType:=self.forderType; + fsyrName:=self.fsyrName; + + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmOrderInPut.Free; + end; + + +end; + +procedure TfrmProductOrderNewListXH.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 TfrmProductOrderNewListXH.FormShow(Sender: TObject); +begin + SetStatus(); + InitForm(); +end; + +procedure TfrmProductOrderNewListXH.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible=False then Exit; + ToolButton1.Click; +end; + +procedure TfrmProductOrderNewListXH.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderNewListXH.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewListXH.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewListXH.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + +end; + +procedure TfrmProductOrderNewListXH.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 TfrmProductOrderNewListXH.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 TfrmProductOrderNewListXH.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 TfrmProductOrderNewListXH.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + forderType:=self.forderType; + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Enabled:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + fsyrName:=self.fsyrName; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewListXH.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + forderType:=self.forderType; + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + fsyrName:=self.fsyrName; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewListXH.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderNewListXH.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(fDParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end; + 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'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; } +end; + +procedure TfrmProductOrderNewListXH.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(fDParameters1)<>'Ȩ' 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 TfrmProductOrderNewListXH.tchkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrder_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('orderNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ҵ˳ɹ','ʾϢ'); + IF Order_Main.fieldbyname('orderType').AsString='' then + begin + if Application.MessageBox('ȷҪӡҵָʾ','ʾ',32+4)=IDYES then + begin + TBPrint.Click; + end; + end; + { IF fCustomerNoName<>'㶫в'then + begin + if Application.MessageBox('ȷҪӡҵָʾ','ʾ',32+4)=IDYES then + begin + IF Order_Main.fieldbyname('orderType').AsString='' then + TBPrint1.Click + else + TBPrint.Click; + end; + end; } + TBRafresh.Click; + except + application.MessageBox('ҵʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmProductOrderNewListXH.tNochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_PH '); + 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; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from BP_inout '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and cRType =''Ʒ۳'''); + // 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('update JYOrder_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('orderNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('˳ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmProductOrderNewListXH.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + + + application.ProcessMessages; + initGrid(); +end; + +procedure TfrmProductOrderNewListXH.TBPrint1Click(Sender: TObject); +var + fPrintFile:string; + Porderno,PRTCodeName,funit:string; + i,j:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select *, '); + sql.Add(' RollSum=(select sum(PrtRollNum) from JYOrder_Sub X where X.mainID=A.mainID),'); + sql.Add(' QtySum=(select sum(PrtOrderQty) from JYOrder_Sub X where X.mainID=A.mainID), '); + sql.Add(' C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and X.DEFstr3=A.PrtColor and Type=''CP'') '); + sql.Add('from JYOrder_Sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.MainID '); + sql.Add('where A.mainID='+quotedstr(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('mainID').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); + Order_Main.EnableControls; + exit; + end; + + + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RMVariables['customerNoName']:=Trim(Order_Main.fieldbyname('customerNoName').AsString); + RMVariables['OrderNo']:=Trim(Order_Main.fieldbyname('OrderNo').AsString); + RMVariables['Note']:=Trim(Order_Main.fieldbyname('Note').AsString); + RMVariables['FHAddress']:=Trim(Order_Main.fieldbyname('FHAddress').AsString); + RMVariables['LXFS']:=Trim(Order_Main.fieldbyname('LXFS').AsString); + RMVariables['OrdDate']:=Order_Main.fieldbyname('OrdDate').Value; + RMVariables['OrdPerson1']:=Order_Main.fieldbyname('OrdPerson1').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdDefDate1=getdate(),OrdFlag1=1'); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmProductOrderNewListXH.Tv1CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('OrdFlag1').Index]=0 then + begin + ACanvas.Brush.Color:=clSkyBlue; + end; +end; + +procedure TfrmProductOrderNewListXH.TBPrint2Click(Sender: TObject); +var + fPrintFile:string; + Porderno,PRTCodeName,funit:string; + i,j:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾֽ.rmf' ; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select *, '); + sql.Add(' RollSum=(select sum(PrtRollNum) from JYOrder_Sub X where X.mainID=A.mainID),'); + sql.Add(' QtySum=(select sum(PrtOrderQty) from JYOrder_Sub X where X.mainID=A.mainID), '); + sql.Add(' KCNUm=(select sum(kcRollNum) from CK_BanCP_KC X where X.C_CodeName=A.prtCodeName and x.KCQty>0 and X.C_Color = A.PrtColor AND x.CPType not in(''һȴƷ'',''ȴƷ'')), '); + sql.Add(' CPKW=(select Top 1 zdyCode from KH_Zdy_Attachment X where X.DEFstr1=A.prtCodeName and X.DEFstr2=A.PrtColor)'); + sql.Add(' C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and Type=''CP''), '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and X.DEFstr3=A.PrtColor and Type=''CP'') '); + sql.Add('from JYOrder_Sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.MainID '); + sql.Add('where A.mainID='+quotedstr(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('mainID').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); + Order_Main.EnableControls; + exit; + end; + + + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RMVariables['customerNoName']:=Trim(Order_Main.fieldbyname('customerNoName').AsString); + RMVariables['OrderNo']:=Trim(Order_Main.fieldbyname('OrderNo').AsString); + RMVariables['Note']:=Trim(Order_Main.fieldbyname('Note').AsString); + RMVariables['FHAddress']:=Trim(Order_Main.fieldbyname('FHAddress').AsString); + RMVariables['LXFS']:=Trim(Order_Main.fieldbyname('LXFS').AsString); + RMVariables['OrdDate']:=Order_Main.fieldbyname('OrdDate').Value; + RMVariables['OrdPerson1']:=Order_Main.fieldbyname('OrdPerson1').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾֽ.rmf'),'ʾ',0); + exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdDefDate1=getdate(),OrdFlag1=1'); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductOrderNewListXH.Button1Click(Sender: TObject); +var + str:string; +begin + if Order_Main.IsEmpty then Exit; + + if trim(cust.Text)='' then + begin + application.MessageBox('ͻΪգ','ʾϢ',0); + Exit; + end; +{ with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''' and A.status>''0'' '); + open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('Ӧտδˣ޸ģ','ʾϢ',MB_ICONERROR); + exit; + end; } + str:= 'ţ'+trim(Order_Main.FieldByName('orderNo').AsString)+' ͻ'+trim(Order_Main.FieldByName('customerNoName').AsString)+'->'+trim(cust.Text); + + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update JYOrder_Main SET customerNO='''+trim(cust.TxtCode)+''', customerNOName='''+trim(cust.Text)+''' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('update YF_Money_CR SET factoryName='''+trim(cust.Text)+''', comtaiTou='''+trim(cust.Text)+''' 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(str))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Panel2.Visible:=false; + initgrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('޸쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderNewListXH.Button3Click(Sender: TObject); +var + str1:string; +begin + IF CDSPrice.IsEmpty then exit; + cust.SetFocus; +{ with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''' and A.status>''0'' '); + open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('Ӧտδˣ޸ģ','ʾϢ',MB_ICONERROR); + exit; + end; } + if Application.MessageBox('ȷҪ޸ĵ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDSPrice.First; + while not CDSPrice.Eof do + begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select PRTPrice FROM JYOrder_sub X where subID='''+Trim(CDSPrice.fieldbyname('subID').AsString)+''''); + open; + end; + IF ADOQueryTemp.fieldbyname('PrtPrice').AsFloat<>CDSPrice.FieldByName('PrtPrice').AsFloat then + begin + str1:=trim(CDSPrice.fieldbyname('subID').AsString)+':'+ADOQueryTemp.fieldbyname('PrtPrice').AsString+'->'+CDSPrice.FieldByName('PrtPrice').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update JYOrder_sub SET PRTPrice='''+trim(CDSPrice.fieldbyname('PRTPrice').AsString)+''' where MainID='''+Trim(CDSPrice.fieldbyname('MainId').AsString)+''' and subID='''+Trim(CDSPrice.fieldbyname('subID').AsString)+''' '); + sql.Add('update YF_Money_CR SET Price='''+trim(CDSPrice.fieldbyname('PRTPrice').AsString)+''' where MainID='''+Trim(CDSPrice.fieldbyname('MainId').AsString)+''' and subID='''+Trim(CDSPrice.fieldbyname('subID').AsString)+''' '); + sql.Add('update YF_Money_CR SET Money=Price*Qty,BBMoney=Price*Qty*HuiLv where MainID='''+Trim(CDSPrice.fieldbyname('MainId').AsString)+''' and subID='''+Trim(CDSPrice.fieldbyname('subID').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(str1))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + end; + CDSPrice.Next; + end; + ADOQueryCmd.Connection.CommitTrans; + Panel2.Visible:=false; + //initgrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('޸쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderNewListXH.TBcustClick(Sender: TObject); +begin + IF order_main.IsEmpty then exit; +// CDSPrice.EmptyDataSet; + with ADOQueryTemp DO + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_sub X where MainID='+quotedstr(trim(order_main.fieldbyname('MainID').AsString))); + open; + end; + SCreateCDS20(ADOQueryTemp,CDSPrice); + SInitCDSData20(ADOQueryTemp,CDSPrice); + cust.Text:=''; + cust.TxtCode:=''; + Panel2.Left:=(self.Width- Panel2.Width) div 2; + Panel2.Visible:=true; +end; + +procedure TfrmProductOrderNewListXH.custBtnClick(Sender: TObject); +begin + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType:=''; + fkhType:=self.fsyrName; + if ShowModal=1 then + begin + cust.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + cust.TxtCode:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + end; + end; + finally + frmZdyAttachment.Free; + end; +end; + +procedure TfrmProductOrderNewListXH.TrzClick(Sender: TObject); +begin + frmSysLogHelp:=TfrmSysLogHelp.create(self); + with frmSysLogHelp do + begin + facction:='ָʾɾ'; + showmodal; + free; + end; +end; + +procedure TfrmProductOrderNewListXH.Button2Click(Sender: TObject); +begin + Panel2.Visible:=false; +end; + +procedure TfrmProductOrderNewListXH.ToolButton4Click(Sender: TObject); +var + filepath,fOrderNo:string; + i:integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if Order_Main.IsEmpty then exit; + + IF Order_Main.FieldByName('OrderType').AsString='' then + begin + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('select A.mainID,A.subID,A.SYRName,A.cust,A.P_CodeName,A.P_Color,A.QtyUnit,B.Sorddefnote1,c.note,C.orderNo,C.customerNoname,C.orddefnote1,C.FHAddress,C.LXFS,C.Filler as xsyg,SUM(A.Qty) as Qty,AVG(A.Price) as Price,SUM(A.money) as Money, '); + sql.Add('customNameAddress=(select Top 1 DEFNote1 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('DEFNote2=(select Top 1 DEFNote2 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('defstr8=(select Top 1 defstr8 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('defstr2=(select Top 1 defstr2 from KH_Zdy_Attachment X where X.ZdyName=A.cust),'); + sql.Add('DEFNote3=(select Top 1 DEFNote3 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('P_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.P_CodeName and Type=''CP'') '); + sql.Add(',P_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.P_CodeName and X.DEFstr3=A.P_Color and Type=''CP'') '); + sql.Add('from BP_INout A '); + sql.Add('left join JYOrder_sub B on B.mainID=A.mainID and B.subID=A.subID '); + sql.Add('left join JYOrder_Main C on C.mainID=A.mainID '); + sql.Add('where A.MainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('group by A.mainID,A.subID,A.SYRName,A.cust,A.P_CodeName,A.P_Color,A.QtyUnit,B.Sorddefnote1,c.note,C.orderNo,C.customerNoname,C.orddefnote1,C.FHAddress,C.LXFS,C.Filler'); + open; + end; + filepath:=ExtractFilePath(Application.ExeName) + 'report\뵥Ʒ.rmf'; + + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ['+filepath+']ڣ'),'ʾϢ',MB_IConError); + exit; + end; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(AdoPrint.fieldbyname('orderNo').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; + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + RMVariables['Filler'] :=trim(Order_Main.fieldbyname('Filler').AsString); + RM1.LoadFromFile(filepath); + RM1.ShowReport; + end + else + begin + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PrintMd10 '); + sql.Add('@mainID='+quotedstr(trim(Order_Main.fieldbyname('maiNID').AsString))); + sql.Add(',@TblCprk='+quotedstr(trim(fSYRName))); + sql.Add(',@flag='+quotedstr(trim('뵥'))); + open; + end; + + filepath:=ExtractFilePath(Application.ExeName) + 'report\뵥.rmf'; + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ['+filepath+']ڣ'),'ʾϢ',MB_IConError); + exit; + end; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(AdoPrint.fieldbyname('orderNo').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; + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + RMVariables['Filler'] :=trim(Order_Main.fieldbyname('Filler').AsString); + RM1.LoadFromFile(filepath); + RM1.ShowReport; + end; + +end; + + + +end. diff --git a/管理系统/U_ProductOrderNewList_BH.dfm b/管理系统/U_ProductOrderNewList_BH.dfm new file mode 100644 index 0000000..af1b860 --- /dev/null +++ b/管理系统/U_ProductOrderNewList_BH.dfm @@ -0,0 +1,1301 @@ +object frmProductOrderNewList_BH: TfrmProductOrderNewList_BH + Left = 421 + Top = 131 + Width = 1382 + Height = 828 + 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 = 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 TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object tchk: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #19994#21153#23457#26680 + ImageIndex = 41 + Visible = False + OnClick = tchkClick + end + object tNochk: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 86 + Visible = False + OnClick = tNochkClick + end + object TBNOWBH: TToolButton + Left = 363 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104#25253#36135 + ImageIndex = 41 + OnClick = TBNOWBHClick + end + object TBZDDH: TToolButton + Left = 474 + Top = 0 + AutoSize = True + Caption = #36716#22823#36135 + ImageIndex = 106 + OnClick = TBZDDHClick + end + object TBEdit: TToolButton + Left = 549 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 612 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 675 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 738 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + OnClick = TBDelClick + end + object TBcust: TToolButton + Left = 801 + Top = 0 + AutoSize = True + Caption = #20462#25913#23458#25143#21333#20215#20449#24687 + ImageIndex = 54 + OnClick = TBcustClick + end + object TBExport: TToolButton + Left = 936 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 999 + Top = 0 + AutoSize = True + Caption = #25171#21360#22823#36135 + ImageIndex = 12 + OnClick = TBPrintClick + end + object ToolButton4: TToolButton + Left = 1086 + Top = 0 + AutoSize = True + Caption = #26597#30475#30721#21333 + ImageIndex = 57 + OnClick = ToolButton4Click + end + object Trz: TToolButton + Left = 1173 + Top = 0 + AutoSize = True + Caption = #26085#24535 + ImageIndex = 72 + OnClick = TrzClick + end + object TBClose: TToolButton + Left = 1236 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1366 + Height = 63 + 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 = 187 + 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 = 362 + Top = 15 + Width = 47 + 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 = 71 + 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 = 552 + 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 = 187 + 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 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 = 552 + Top = 39 + Width = 47 + 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 Label24: TLabel + Left = 362 + Top = 41 + 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 Label12: TLabel + Left = 760 + 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 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 = 228 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object CustomerNoName: TEdit + Tag = 2 + Left = 419 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object JGFactoryName: TEdit + Tag = 2 + Left = 351 + Top = 103 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 375 + Top = 67 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object PRTCodeName: TEdit + Tag = 2 + Left = 605 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 228 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 495 + Top = 95 + Width = 76 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + object PrtColor: TEdit + Tag = 2 + Left = 605 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + object orderType: TComboBox + Tag = 2 + Left = 419 + Top = 37 + Width = 100 + Height = 20 + Style = csDropDownList + Ctl3D = False + ItemHeight = 12 + ParentCtl3D = False + TabOrder = 10 + OnChange = OrderNoChange + Items.Strings = ( + #27491#24120#21333 + #21098#26679#21333) + end + object C_CodeNameZW: TEdit + Tag = 2 + Left = 813 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 11 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 117 + Width = 1366 + Height = 376 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnCellClick = Tv1CellClick + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + 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 = v1PRTOrderQty + 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 = #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 v1Column17: TcxGridDBColumn + Caption = #35746#21333#31867#22411 + DataBinding.FieldName = 'orderType' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + 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 = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTRollNum' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PrtOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.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 + object v1Column6: TcxGridDBColumn + Caption = 'M1' + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column7: TcxGridDBColumn + Caption = 'M2' + DataBinding.FieldName = 'SordQty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column9: TcxGridDBColumn + Caption = 'M3' + DataBinding.FieldName = 'SordQty3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column10: TcxGridDBColumn + Caption = 'M4' + DataBinding.FieldName = 'SordQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column11: TcxGridDBColumn + Caption = 'M5' + DataBinding.FieldName = 'SordQty5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column12: TcxGridDBColumn + Caption = 'M6' + DataBinding.FieldName = 'SordQty6' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column13: TcxGridDBColumn + Caption = 'M7' + DataBinding.FieldName = 'SordQty7' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column14: TcxGridDBColumn + Caption = 'M8' + DataBinding.FieldName = 'SordQty8' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column15: TcxGridDBColumn + Caption = 'M9' + DataBinding.FieldName = 'SordQty9' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = 'M10' + DataBinding.FieldName = 'SordQty10' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Filler: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column18: TcxGridDBColumn + DataBinding.FieldName = 'ordFlag1' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + end + object v1Column19: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeNameZW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column20: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 95 + Width = 1366 + Height = 22 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 2 + Properties.Tabs.Strings = ( + #19994#21153#36755#20837 + #19994#21153#24050#23457#26680 + #23436#25104#25253#36135 + #24050#36716#21333 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1366 + ClientRectTop = 19 + end + object Panel2: TPanel + Left = 400 + Top = 148 + Width = 497 + Height = 297 + TabOrder = 4 + Visible = False + object Label7: TLabel + Left = 28 + Top = 24 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object Label10: TLabel + Left = 28 + Top = 68 + Width = 24 + Height = 12 + Caption = #20215#26684 + end + object Button1: TButton + Left = 392 + Top = 16 + Width = 85 + Height = 25 + Caption = #20462#25913#23458#25143 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 396 + Top = 232 + Width = 81 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button2Click + end + object cust: TBtnEditA + Left = 60 + Top = 20 + Width = 285 + Height = 20 + TabOrder = 2 + OnBtnClick = custBtnClick + end + object cxGrid2: TcxGrid + Left = 56 + Top = 64 + Width = 289 + Height = 200 + TabOrder = 3 + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DSPrice + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Inserting = False + OptionsView.GroupByBox = False + object V3Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCODEName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object V3Column2: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTCOLOR' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object V3Column3: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPRICE' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##;-,0.##' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = TV3 + end + end + object Button3: TButton + Left = 392 + Top = 112 + Width = 85 + Height = 25 + Caption = #20462#25913#21333#20215 + TabOrder = 4 + OnClick = Button3Click + end + end + object Panel3: TPanel + Left = 0 + Top = 508 + Width = 1366 + Height = 31 + Align = alBottom + TabOrder = 5 + object Label14: TLabel + Left = 500 + Top = 60 + Width = 36 + Height = 12 + Caption = #21367#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Panel4: TPanel + Left = 1192 + Top = 33 + Width = 173 + Height = 9 + Align = alRight + BevelOuter = bvNone + TabOrder = 0 + end + object Edit1: TEdit + Left = 536 + Top = 56 + Width = 145 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + end + object ToolBar2: TToolBar + Left = 1 + Top = 1 + Width = 1364 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar2' + Flat = True + Images = DataLink_TradeManage.ThreeImgList + List = True + ShowCaptions = True + TabOrder = 2 + Transparent = False + object TBJCSD: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #35299#38500#24211#23384#38145#23450 + ImageIndex = 41 + OnClick = TBJCSDClick + end + object Panel5: TPanel + Left = 111 + Top = 0 + Width = 185 + Height = 30 + BevelOuter = bvNone + TabOrder = 0 + object CheckBox2: TCheckBox + Left = 34 + Top = 3 + Width = 99 + Height = 19 + Caption = #20840#36873 + TabOrder = 0 + OnClick = CheckBox2Click + end + end + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 539 + Width = 1366 + Height = 250 + Align = alBottom + TabOrder = 6 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_PH + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = V2Column5 + end + item + Kind = skCount + Position = spFooter + Column = V2Column9 + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Column = V2Column5 + end + item + Kind = skCount + Column = V2Column9 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Position = spFooter + Column = V2Column4 + end + item + Kind = skSum + Column = V2Column4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V2Column4 + end + item + Kind = skSum + Column = V2Column5 + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.Inserting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object V2Column13: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + end + object V2Column10: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object V2Column1: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object V2Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object V2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object V2C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Column4: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object V2Column5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object V2Column9: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'KCQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object V2Column6: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Column11: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Filler: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Column12: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 221 + end + object TV2Column1: TcxGridDBColumn + Caption = #38145#23450#24211#23384 + DataBinding.FieldName = 'BHFlag' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 74 + end + object TV2Column2: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'PHSL' + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV2Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 66 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object Panel6: TPanel + Left = 48 + Top = 196 + Width = 305 + Height = 217 + Color = clSkyBlue + TabOrder = 7 + Visible = False + object Label18: TLabel + Left = 31 + Top = 20 + Width = 85 + Height = 16 + Caption = #35831#36755#20837#22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Button4: TButton + Left = 72 + Top = 171 + Width = 85 + Height = 38 + Caption = #30830#23450 + TabOrder = 0 + OnClick = Button4Click + end + object Button5: TButton + Left = 188 + Top = 171 + Width = 60 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + Visible = False + end + object note: TMemo + Tag = 2 + Left = 32 + Top = 52 + Width = 241 + Height = 98 + Hint = 'Note/'#22791#27880 + ScrollBars = ssVertical + 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 + 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 = 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 CDSPrice: TClientDataSet + Aggregates = <> + Params = <> + Left = 600 + Top = 296 + end + object DSPrice: TDataSource + DataSet = CDSPrice + Left = 664 + Top = 328 + end + object ADOPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 388 + Top = 288 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 840 + Top = 72 + end + object CDS_PH: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 480 + end + object DS_PH: TDataSource + DataSet = CDS_PH + Left = 352 + Top = 484 + end + object ADO_PH: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 296 + Top = 476 + end +end diff --git a/管理系统/U_ProductOrderNewList_BH.pas b/管理系统/U_ProductOrderNewList_BH.pas new file mode 100644 index 0000000..c9b22e6 --- /dev/null +++ b/管理系统/U_ProductOrderNewList_BH.pas @@ -0,0 +1,1587 @@ +unit U_ProductOrderNewList_BH; + +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, + BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, + cxTextEdit, 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 + TfrmProductOrderNewList_BH = 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; + v1MPRTCodeName: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label2: TLabel; + JGFactoryName: TEdit; + Label5: TLabel; + OrdPerson1: TEdit; + Label8: TLabel; + PRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1Column8: TcxGridDBColumn; + Label11: TLabel; + OrdDefStr1: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + tchk: TToolButton; + tNochk: TToolButton; + v1EditTime: TcxGridDBColumn; + v1ordderNote1: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Filler: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + PrtColor: TEdit; + Label6: TLabel; + orderType: TComboBox; + Label24: TLabel; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + Panel2: TPanel; + Label7: TLabel; + Label10: TLabel; + Button1: TButton; + Button2: TButton; + cust: TBtnEditA; + cxGrid2: TcxGrid; + TV3: TcxGridDBTableView; + V3Column1: TcxGridDBColumn; + V3Column2: TcxGridDBColumn; + V3Column3: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Button3: TButton; + TBcust: TToolButton; + CDSPrice: TClientDataSet; + DSPrice: TDataSource; + Trz: TToolButton; + v1Column19: TcxGridDBColumn; + C_CodeNameZW: TEdit; + Label12: TLabel; + ADOPrint: TADOQuery; + RMDB_Main: TRMDBDataSet; + RMDB_MD: TRMDBDataSet; + ToolButton4: TToolButton; + v1Column20: TcxGridDBColumn; + TBZDDH: TToolButton; + Panel3: TPanel; + Label14: TLabel; + Panel4: TPanel; + Edit1: TEdit; + cxGrid3: TcxGrid; + TV2: TcxGridDBTableView; + V2Column13: TcxGridDBColumn; + V2Column10: TcxGridDBColumn; + V2Column1: TcxGridDBColumn; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + V2C_Color: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + V2Column5: TcxGridDBColumn; + V2Column9: TcxGridDBColumn; + V2Column6: TcxGridDBColumn; + V2Column11: TcxGridDBColumn; + V2Filler: TcxGridDBColumn; + V2Column12: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + CDS_PH: TClientDataSet; + DS_PH: TDataSource; + ADO_PH: TADOQuery; + TBNOWBH: TToolButton; + TV2Column1: TcxGridDBColumn; + ToolBar2: TToolBar; + TBJCSD: TToolButton; + Panel5: TPanel; + CheckBox2: TCheckBox; + Panel6: TPanel; + Label18: TLabel; + Button4: TButton; + Button5: TButton; + note: TMemo; + TV2Column2: 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 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 ConNoKeyPress(Sender: TObject; var Key: Char); + procedure tchkClick(Sender: TObject); + procedure tNochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure Button1Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure TBcustClick(Sender: TObject); + procedure custBtnClick(Sender: TObject); + procedure TrzClick(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure TBZDDHClick(Sender: TObject); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure TBNOWBHClick(Sender: TObject); + procedure TBJCSDClick(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure TV2Column2PropertiesEditValueChanged(Sender: TObject); + private + DQdate: TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + procedure InitPH(); + procedure SetStatus(); + { Private declarations } + public + FFInt, FCloth: Integer; + fDParameters1: string; + fCustomerNoName: string; + forderType: string; + fsyrName: string; + { Public declarations } + end; + +var + frmProductOrderNewList_BH: TfrmProductOrderNewList_BH; + +implementation + +uses + U_DataLink, U_Fun, U_OrderInPut, U_ZdyAttachment, U_SysLogHelp; + +{$R *.dfm} +procedure TfrmProductOrderNewList_BH.InitPH(); +begin + if ADOQueryMain.Active = False then + Exit; + if Order_Main.IsEmpty then + EXIT; + try + ADO_PH.DisableControls; + with ADO_PH do + begin + Close; + sql.Clear; + Filtered := False; + SQL.Add('select case when isnull(PHSL,0)=0 then B.KCQty else phsl end as PHSL ,'); + sql.Add('A.*,B.KCKGQty,B.KCQty,B.KCQtyUnit,B.kcRollNum,B.CPType,B.C_Code,C.kckw,B.C_CodeName,B.C_Spec,B.C_Color,B.RCGangNo,E.MJType,E.apID,B.mjxh,B.BHFlag '); + sql.Add('from CK_BanCP_BH A '); + sql.Add('INNER join CK_BanCP_KC B on B.CRID=A.CRID '); + sql.Add('LEFT join CK_BanCP_CR C on C.CRID=B.CRID and CRFlag='''' '); + sql.Add('LEFT join WFB_MJJY E on A.MJID=E.MJID '); + sql.Add('where A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').asstring))); + sql.Add('and A.subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').asstring))); + sql.Add('order by A.phID '); +// ShowMessage(sql.text); + Open; + end; + SCreateCDS20(ADO_PH, CDS_PH); + SInitCDSData20(ADO_PH, CDS_PH); + finally + ADO_PH.EnableControls; + end; +end; + +procedure TfrmProductOrderNewList_BH.SetStatus(); +begin + Tchk.Visible := false; + tNochk.Visible := false; + TBEdit.Enabled := false; + TBDel.Enabled := false; + TBPrint.Visible := false; + tbcust.Visible := false; + TBZDDH.Visible := false; + TBNOWBH.Visible := false; + TBJCSD.Visible := false; + + if Trim(fDParameters1) = '' then + begin + TBADD.Visible := false; + case cxTabControl1.TabIndex of + 0: + begin + + TBEdit.Enabled := true; + Tchk.Visible := true; + TBDel.Enabled := true; + end; + 1: + begin + tNochk.Visible := true; + if fOrderType = '' then + + else + begin + TBPrint.Visible := true; + end; + + // tbPrint2.Visible:=true; + end; + 2: + begin + TBZDDH.Visible := true; + TBNOWBH.Visible := true; + TBJCSD.Visible := true; + TBEdit.Enabled := true; + end; + end; + end + else if Trim(fDParameters1) = '' then + begin + TBADD.Visible := true; + case cxTabControl1.TabIndex of + 0: + begin + TBEdit.Enabled := true; + Tchk.Visible := true; + TBDel.Enabled := true; + end; + 1: + begin + tNochk.Visible := true; + if fOrderType = '' then + + else + begin + TBPrint.Visible := true; + end; + // tbPrint2.Visible:=true; + end; + 2: + begin + TBZDDH.Visible := true; + TBNOWBH.Visible := true; + TBJCSD.Visible := true; + TBEdit.Enabled := true; + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0: + begin + TBEdit.Enabled := true; + // Tchk.Visible:=true; + TBDel.Enabled := true; + // tbcust.Visible:=true; + end; + 1: + begin + tbcust.Visible := true; + if fOrderType = '' then + + else + begin + TBPrint.Visible := true; + end; + end; + 2: + begin + TBZDDH.Visible := true; + TBNOWBH.Visible := true; + TBJCSD.Visible := true; + TBEdit.Enabled := true; + end; + end; + end; + +end; + +procedure TfrmProductOrderNewList_BH.FormDestroy(Sender: TObject); +begin + frmProductOrderNewList_BH := nil; +end; + +procedure TfrmProductOrderNewList_BH.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmProductOrderNewList_BH.FormCreate(Sender: TObject); +begin + cxgrid1.Align := alClient; +end; + +procedure TfrmProductOrderNewList_BH.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾбѡJW', Tv1, 'ָʾ'); +end; + +procedure TfrmProductOrderNewList_BH.InitGrid(); +var + strwhere: string; +begin + strwhere := ''; + + if cxTabControl1.TabIndex < 4 then + strwhere := strwhere + ' and isnull(B.status,''0'')=''' + inttostr(cxTabControl1.TabIndex) + ''''; + + if (trim(fDParameters1) <> '') then //and (trim(fDParameters1) <> '') + begin + strwhere := strwhere + ' and B.Filler=''' + Trim(DName) + ''' '; + end; + + strwhere := strwhere + ' and B.orderType=''' + Trim(forderType) + ''''; + + if trim(fsyrName) <> '' then + begin + strwhere := strwhere + ' and B.syrName=''' + Trim(fsyrName) + ''''; + end; + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + Filtered := False; + sql.Clear; + sql.add('exec P_View_Order ''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ''',''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''',' + QuotedStr(strwhere) + ' '); +// sql.add('exec P_View_order :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); +// showmessage(SQL.Text); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + InitPH(); + end; +end; + +procedure TfrmProductOrderNewList_BH.InitForm(); +begin + + if FCloth <> 1 then + ReadCxGrid('ָʾб10JW', Tv1, 'ָʾ') + else + ReadCxGrid('ָʾбѡJW', Tv1, 'ָʾ'); + + if FCloth = 1 then + begin + v1Column4.Visible := True; + + end + else + begin + v1Column4.Visible := False; + end; + + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime; + + InitGrid(); +end; + +procedure TfrmProductOrderNewList_BH.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_BH.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 + forderType := self.forderType; + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo := Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + fsyrName := self.fsyrName; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList_BH.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_BanCP_CR A '); + SQL.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('Ѳ,ɾ!', 'ʾ', 0); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_BanCP_PH A '); + SQL.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('Ѳ,ɾ!', 'ʾ', 0); + Exit; + end; +{ 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_BH.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; + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; + +procedure TfrmProductOrderNewList_BH.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + SelExportData(Tv1, ADOQueryMain, 'ָʾб'); +end; + +procedure TfrmProductOrderNewList_BH.TBPrintClick(Sender: TObject); +var + fPrintFile: string; + Porderno, PRTCodeName, funit: string; + i, j, k: Integer; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + if Order_Main.IsEmpty then + Exit; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf'; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select *,KCNUm=(case when syrName<>''𻪷֯'' then (select sum(kcRollNum) from CK_BanCP_KC1 X where X.C_CodeName=A.prtCodeName and x.KCQty>0 and X.C_Color = A.PrtColor AND x.CPType not in(''һȴƷ'',''ȴƷ'')) '); + sql.Add(' else (select sum(kcRollNum) from CK_BanCP_KC X where X.C_CodeName=A.prtCodeName and x.KCQty>0 and X.C_Color = A.PrtColor AND x.CPType not in(''һȴƷ'',''ȴƷ'')) end), '); + sql.Add(' tyb=(select Top 1 defstr8 from KH_Zdy_Attachment X where X.zdyName=B.customerNoName and X.Type=''KHName''),'); + sql.Add(' tybTel=(select Top 1 DEFNote3 from KH_Zdy_Attachment X where X.zdyName=B.customerNoName and X.Type=''KHName''), '); + sql.Add(' LXTel=(select Top 1 defstr1 from KH_Zdy_Attachment X where X.zdyName=B.customerNoName and X.Type=''KHName''), '); + // sql.Add(' kw2=(select Top 1 defstr5 from KH_Zdy_Attachment X where X.zdyName=A.prtCodeName and X.defstr3 = A.PrtColor), '); + sql.Add(' m=floor(PrtRollNum / 10),n=PrtRollNum % 10, '); + sql.Add(' RollSum=(select sum(PrtRollNum) from JYOrder_Sub X where X.mainID=A.mainID),'); + sql.Add(' QtySum=(select sum(PrtOrderQty) from JYOrder_Sub X where X.mainID=A.mainID), '); + sql.Add(' C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and X.DEFstr3=A.PrtColor and Type=''CP'') '); + sql.Add('from JYOrder_Sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.MainID '); + sql.Add('where A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + SCreateCDS20(ADOQueryPrint, CDS_Print); + + with ADOQueryPrint do + begin + while not eof do + begin + if fieldbyname('m').AsInteger < 1 then + k := 1; + if (fieldbyname('m').AsInteger >= 1) and (fieldbyname('n').AsInteger = 0) then + k := fieldbyname('m').AsInteger; + if (fieldbyname('m').AsInteger >= 1) and (fieldbyname('n').AsInteger <> 0) then + k := fieldbyname('m').AsInteger + 1; + + for i := 1 to k do + begin + CDS_Print.Append; + for j := 0 to FieldCount - 1 do + begin + CDS_Print.fields[j].value := Fields[j].Value; + end; + CDS_Print.Post; + end; + next; + end; + end; + + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(ADOQueryPrint.fieldbyname('mainID').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); + Order_Main.EnableControls; + exit; + end; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RMVariables['customerNoName'] := Trim(Order_Main.fieldbyname('customerNoName').AsString); + RMVariables['OrderNo'] := Trim(Order_Main.fieldbyname('OrderNo').AsString); + RMVariables['Note'] := Trim(Order_Main.fieldbyname('Note').AsString); + RMVariables['FHAddress'] := Trim(Order_Main.fieldbyname('FHAddress').AsString); + RMVariables['LXFS'] := Trim(Order_Main.fieldbyname('LXFS').AsString); + RMVariables['OrdDate'] := Order_Main.fieldbyname('OrdDate').Value; + RMVariables['OrdPerson1'] := Order_Main.fieldbyname('OrdPerson1').Value; + RM1.LoadFromFile(fPrintFile); + // RM1.ShowReport; + RM1.PrintReport; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf'), 'ʾ', 0); + exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdDefDate1=getdate(),OrdFlag1=1'); + sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + ExecSQL; + end; +end; + +procedure TfrmProductOrderNewList_BH.TBRafreshClick(Sender: TObject); +begin + + InitGrid(); +end; + +procedure TfrmProductOrderNewList_BH.TBAddClick(Sender: TObject); +var + maxno: string; +begin + try + frmOrderInPut := TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState := 0; + FMainId := ''; + fCustomerNoName := self.fCustomerNoName; + forderType := self.forderType; + fsyrName := self.fsyrName; + + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmOrderInPut.Free; + end; + +end; + +procedure TfrmProductOrderNewList_BH.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_BH.FormShow(Sender: TObject); +begin + SetStatus(); + InitForm(); +end; + +procedure TfrmProductOrderNewList_BH.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible = False then + Exit; + ToolButton1.Click; +end; + +procedure TfrmProductOrderNewList_BH.TBTPClick(Sender: TObject); +var + FQty, FQty1, FMxQty, FPQty, FMxQtyS, FPQtyS: string; +begin +end; + +procedure TfrmProductOrderNewList_BH.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewList_BH.CheckBox2Click(Sender: TObject); +begin + if CDS_PH.IsEmpty then + exit; + with CDS_PH do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value := checkbox2.Checked; + post; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmProductOrderNewList_BH.Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id, id10: Integer; +begin + +end; + +procedure TfrmProductOrderNewList_BH.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_BH.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_BH.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_BH.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmOrderInPut := TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + forderType := self.forderType; + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Enabled := False; + TBSave.Visible := False; + ScrollBox1.Enabled := False; + Tv1.OptionsSelection.CellSelect := False; + fsyrName := self.fsyrName; + if ShowModal = 1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList_BH.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmOrderInPut := TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + forderType := self.forderType; + PState := 1; + CopyInt := 99; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + fsyrName := self.fsyrName; + if ShowModal = 1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList_BH.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(fDParameters1) <> 'Ȩ' 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_BH.tchkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrder_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('orderNo').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ҵ˳ɹ', 'ʾϢ'); + if Order_Main.fieldbyname('orderType').AsString = '' then + begin + if Application.MessageBox('ȷҪӡҵָʾ', 'ʾ', 32 + 4) = IDYES then + begin + TBPrint.Click; + end; + end; + { IF fCustomerNoName<>'㶫в'then + begin + if Application.MessageBox('ȷҪӡҵָʾ','ʾ',32+4)=IDYES then + begin + IF Order_Main.fieldbyname('orderType').AsString='' then + TBPrint1.Click + else + TBPrint.Click; + end; + end; } + TBRafresh.Click; + except + application.MessageBox('ҵʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmProductOrderNewList_BH.tNochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_PH '); + 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; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from BP_inout '); + sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and cRType =''Ʒ۳'''); + // 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('update JYOrder_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('orderNo').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('˳ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('˳ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmProductOrderNewList_BH.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + + application.ProcessMessages; + initGrid(); +end; + +procedure TfrmProductOrderNewList_BH.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('OrdFlag1').Index] = 0 then + begin + ACanvas.Brush.Color := clSkyBlue; + end; +end; + +procedure TfrmProductOrderNewList_BH.Button1Click(Sender: TObject); +var + str: string; +begin + if Order_Main.IsEmpty then + Exit; + + if trim(cust.Text) = '' then + begin + application.MessageBox('ͻΪգ', 'ʾϢ', 0); + Exit; + end; +{ with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''' and A.status>''0'' '); + open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('Ӧտδˣ޸ģ','ʾϢ',MB_ICONERROR); + exit; + end; } + str := 'ţ' + trim(Order_Main.FieldByName('orderNo').AsString) + ' ͻ' + trim(Order_Main.FieldByName('customerNoName').AsString) + '->' + trim(cust.Text); + + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update JYOrder_Main SET customerNO=''' + trim(cust.TxtCode) + ''', customerNOName=''' + trim(cust.Text) + ''' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + sql.Add('update YF_Money_CR SET factoryName=''' + trim(cust.Text) + ''', comtaiTou=''' + trim(cust.Text) + ''' 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(str))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Panel2.Visible := false; + initgrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('޸쳣', 'ʾ', 0); + end; +end; + +procedure TfrmProductOrderNewList_BH.Button3Click(Sender: TObject); +var + str1: string; +begin + if CDSPrice.IsEmpty then + exit; + cust.SetFocus; +{ with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''' and A.status>''0'' '); + open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('Ӧտδˣ޸ģ','ʾϢ',MB_ICONERROR); + exit; + end; } + if Application.MessageBox('ȷҪ޸ĵ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDSPrice.First; + while not CDSPrice.Eof do + begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select PRTPrice FROM JYOrder_sub X where subID=''' + Trim(CDSPrice.fieldbyname('subID').AsString) + ''''); + open; + end; + if ADOQueryTemp.fieldbyname('PrtPrice').AsFloat <> CDSPrice.FieldByName('PrtPrice').AsFloat then + begin + str1 := trim(CDSPrice.fieldbyname('subID').AsString) + ':' + ADOQueryTemp.fieldbyname('PrtPrice').AsString + '->' + CDSPrice.FieldByName('PrtPrice').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update JYOrder_sub SET PRTPrice=''' + trim(CDSPrice.fieldbyname('PRTPrice').AsString) + ''' where MainID=''' + Trim(CDSPrice.fieldbyname('MainId').AsString) + ''' and subID=''' + Trim(CDSPrice.fieldbyname('subID').AsString) + ''' '); + sql.Add('update YF_Money_CR SET Price=''' + trim(CDSPrice.fieldbyname('PRTPrice').AsString) + ''' where MainID=''' + Trim(CDSPrice.fieldbyname('MainId').AsString) + ''' and subID=''' + Trim(CDSPrice.fieldbyname('subID').AsString) + ''' '); + sql.Add('update YF_Money_CR SET Money=Price*Qty,BBMoney=Price*Qty*HuiLv where MainID=''' + Trim(CDSPrice.fieldbyname('MainId').AsString) + ''' and subID=''' + Trim(CDSPrice.fieldbyname('subID').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(str1))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + end; + CDSPrice.Next; + end; + ADOQueryCmd.Connection.CommitTrans; + Panel2.Visible := false; + //initgrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('޸쳣', 'ʾ', 0); + end; +end; + +procedure TfrmProductOrderNewList_BH.TBcustClick(Sender: TObject); +begin + if order_main.IsEmpty then + exit; +// CDSPrice.EmptyDataSet; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_sub X where MainID=' + quotedstr(trim(order_main.fieldbyname('MainID').AsString))); + open; + end; + SCreateCDS20(ADOQueryTemp, CDSPrice); + SInitCDSData20(ADOQueryTemp, CDSPrice); + cust.Text := ''; + cust.TxtCode := ''; + Panel2.Left := (self.Width - Panel2.Width) div 2; + Panel2.Visible := true; +end; + +procedure TfrmProductOrderNewList_BH.custBtnClick(Sender: TObject); +begin + try + frmZdyAttachment := TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType := ''; + fkhType := self.fsyrName; + if ShowModal = 1 then + begin + cust.Text := Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + cust.TxtCode := Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + end; + end; + finally + frmZdyAttachment.Free; + end; +end; + +procedure TfrmProductOrderNewList_BH.TrzClick(Sender: TObject); +begin + frmSysLogHelp := TfrmSysLogHelp.create(self); + with frmSysLogHelp do + begin + facction := 'ָʾɾ'; + showmodal; + free; + end; +end; + +procedure TfrmProductOrderNewList_BH.Button2Click(Sender: TObject); +begin + Panel2.Visible := false; +end; + +procedure TfrmProductOrderNewList_BH.ToolButton4Click(Sender: TObject); +var + filepath, fOrderNo: string; + i: integer; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + if Order_Main.IsEmpty then + exit; + + if Order_Main.FieldByName('OrderType').AsString = '' then + begin + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('select A.mainID,A.subID,A.SYRName,A.cust,A.P_CodeName,A.P_Color,A.QtyUnit,B.Sorddefnote1,c.note,C.orderNo,C.customerNoname,C.orddefnote1,C.FHAddress,C.LXFS,C.Filler as xsyg,SUM(A.Qty) as Qty,AVG(A.Price) as Price,SUM(A.money) as Money, '); + sql.Add('customNameAddress=(select Top 1 DEFNote1 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('DEFNote2=(select Top 1 DEFNote2 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('defstr8=(select Top 1 defstr8 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('defstr2=(select Top 1 defstr2 from KH_Zdy_Attachment X where X.ZdyName=A.cust),'); + sql.Add('DEFNote3=(select Top 1 DEFNote3 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('P_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.P_CodeName and Type=''CP'') '); + sql.Add(',P_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.P_CodeName and X.DEFstr3=A.P_Color and Type=''CP'') '); + sql.Add('from BP_INout A '); + sql.Add('left join JYOrder_sub B on B.mainID=A.mainID and B.subID=A.subID '); + sql.Add('left join JYOrder_Main C on C.mainID=A.mainID '); + sql.Add('where A.MainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('group by A.mainID,A.subID,A.SYRName,A.cust,A.P_CodeName,A.P_Color,A.QtyUnit,B.Sorddefnote1,c.note,C.orderNo,C.customerNoname,C.orddefnote1,C.FHAddress,C.LXFS,C.Filler'); + open; + end; + filepath := ExtractFilePath(Application.ExeName) + 'report\뵥Ʒ.rmf'; + + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ[' + filepath + ']ڣ'), 'ʾϢ', MB_IConError); + exit; + end; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(AdoPrint.fieldbyname('orderNo').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; + RMVariables['dtxz'] := FormatDateTime('yyyy-mm-dd', date()); + RMVariables['zdr'] := trim(DName); + RMVariables['Filler'] := trim(Order_Main.fieldbyname('Filler').AsString); + RM1.LoadFromFile(filepath); + RM1.ShowReport; + end + else + begin + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PrintMd10 '); + sql.Add('@mainID=' + quotedstr(trim(Order_Main.fieldbyname('maiNID').AsString))); + sql.Add(',@TblCprk=' + quotedstr(trim(fSYRName))); + sql.Add(',@flag=' + quotedstr(trim('뵥'))); +// ShowMessage(SQL.text); + open; + end; + + filepath := ExtractFilePath(Application.ExeName) + 'report\뵥.rmf'; + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ[' + filepath + ']ڣ'), 'ʾϢ', MB_IConError); + exit; + end; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(AdoPrint.fieldbyname('orderNo').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; + RMVariables['dtxz'] := FormatDateTime('yyyy-mm-dd', date()); + RMVariables['zdr'] := trim(DName); + RMVariables['Filler'] := trim(Order_Main.fieldbyname('Filler').AsString); + RM1.LoadFromFile(filepath); + RM1.ShowReport; + end; + +end; + +procedure TfrmProductOrderNewList_BH.TBZDDHClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_BanCP_BH A '); + SQL.Add(' where not exists(select * from CK_BanCP_KC X where X.MJID=A.MJID '); + SQL.Add(' and X.BHOrderNo=' + quotedstr(Trim(Order_Main.fieldbyname('mainID').AsString)) + ' and X.BHFlag=1) '); + sql.Add(' and A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').asstring))); + + // showmessage(sql.text); + Open; + end; + +// if not ADOQueryTemp.IsEmpty then +// begin +// Application.MessageBox('ѽת!', 'ʾ', 0); +// Exit; +// end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PH_DH'); + sql.Add('@mainID=''' + trim(Order_Main.fieldbyName('mainID').asstring) + ''' '); + sql.Add(',@Filler=''' + trim(DName) + ''' '); + open; + end; + +// panel6.Visible := True; + + if ADOQueryCmd.FieldByName('intReturn').AsInteger = 0 then + begin + // application.MessageBox('ɳɹ','ʾϢ'); + TBRafresh.Click; + end + else + begin + application.MessageBox(pchar(ADOQueryCmd.FieldByName('ShowMsg').AsString), 'ʾϢ', 0); + end; + +end; + +procedure TfrmProductOrderNewList_BH.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + InitPH(); +end; + +procedure TfrmProductOrderNewList_BH.TBNOWBHClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrder_sub SET substatus=''0'' where mainID=''' + trim(Order_Main.fieldbyName('mainID').AsString) + ''' and subID=''' + trim(Order_Main.fieldbyName('subID').AsString) + ''' '); + sql.Add('update JYOrder_main SET status=''1'' where mainID=''' + trim(Order_Main.fieldbyName('mainID').AsString) + ''' '); + execsql; + end; + application.MessageBox('ɹ', 'ʾϢ'); + InitGrid(); + except + application.MessageBox('ʧܣ', 'ʾϢ'); + end; +end; + +procedure TfrmProductOrderNewList_BH.TBJCSDClick(Sender: TObject); +begin + if CDS_PH.IsEmpty then + exit; + CDS_PH.first; + try + if Application.MessageBox('ȷҪִв', 'ʾ', 32 + 4) <> IDYES then + Exit; + ADOQueryCmd.Connection.BeginTrans; + while not CDS_PH.eof do + begin + if CDS_PH.FieldByName('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CK_BanCP_KC SET BHFlag=0 '); + sql.Add('where CRID=' + quotedstr(trim(CDS_PH.fieldbyname('CRID').AsString))); + sql.Add('delete from CK_BanCP_BH where PHID=''' + trim(CDS_PH.fieldbyname('PHID').AsString) + ''' '); + execsql; + end; + CDS_PH.Delete; + end; + CDS_PH.next; + end; + CDS_PH.first; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!', 'ʾ', 0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +procedure TfrmProductOrderNewList_BH.Button4Click(Sender: TObject); +begin + +// if trim(note.text) = '' then +// begin +// application.MessageBox('עΪ', 'ʾ'); +// exit; +// end; + if trim(note.text) <> '' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add(' update JYOrder_Main set note=''' + trim(note.text) + ''' where mainID=''Z''+''' + trim(Order_Main.fieldbyName('mainID').AsString) + ''''); + ExecSQL; + // showmessage(sql.text); + end; + end; + + Panel6.Visible := False; +end; + +procedure TfrmProductOrderNewList_BH.TV2Column2PropertiesEditValueChanged(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_PH do + begin + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + end; + + if cxTabControl1.TabIndex = 2 then + begin + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPdate CK_BanCP_BH '); + sql.Add(' Set ' + FFieldName + '=' + Trim(mvalue)); +// sql.Add(',Editer=''' + Trim(DName) + ''''); +// sql.Add(',Edittime=getdate() '); + sql.Add(' where MJID=''' + Trim(CDS_PH.fieldbyname('MJID').AsString) + ''''); + ExecSQL; + end; + end + else + begin + + end; + +end; + +end. + diff --git a/管理系统/U_ProductOrderNewList_JD.dfm b/管理系统/U_ProductOrderNewList_JD.dfm new file mode 100644 index 0000000..a2719c4 --- /dev/null +++ b/管理系统/U_ProductOrderNewList_JD.dfm @@ -0,0 +1,869 @@ +object frmProductOrderNewList_JD: TfrmProductOrderNewList_JD + Left = 66 + Top = 125 + Width = 1207 + Height = 642 + 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 = 1191 + 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 TBPrint: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + 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 = 1191 + Height = 69 + 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 = 187 + 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 = 338 + 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 = 337 + 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 = 504 + 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 = 187 + 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 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 = 504 + Top = 40 + 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 = 672 + Top = 19 + Width = 47 + 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 Label24: TLabel + Left = 670 + Top = 41 + 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 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 = 228 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + end + object CustomerNoName: TEdit + Tag = 2 + Left = 383 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object JGFactoryName: TEdit + Tag = 2 + Left = 351 + Top = 103 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 383 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object PRTCodeName: TEdit + Tag = 2 + Left = 557 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 228 + Top = 35 + Width = 77 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 495 + Top = 95 + Width = 76 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + object ISPH: TComboBox + Tag = 2 + Left = 556 + Top = 36 + Width = 77 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + ItemIndex = 0 + TabOrder = 9 + OnChange = OrderNoChange + Items.Strings = ( + '' + #26410#37197#36135 + #24050#37197#36135) + end + object PrtColor: TEdit + Tag = 2 + Left = 725 + Top = 15 + Width = 76 + Height = 20 + TabOrder = 10 + OnChange = OrderNoChange + end + object orderType: TComboBox + Tag = 2 + Left = 725 + Top = 37 + Width = 76 + Height = 20 + Style = csDropDownList + Ctl3D = False + ItemHeight = 12 + ParentCtl3D = False + TabOrder = 11 + OnChange = OrderNoChange + Items.Strings = ( + #27491#24120#21333 + #21098#26679#21333) + end + object CheckBox1: TCheckBox + Left = 832 + Top = 92 + Width = 109 + Height = 17 + Caption = #19981#21547#24191#19996#38376#24066#37096 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 12 + Visible = False + OnClick = CheckBox1Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 123 + Width = 1191 + Height = 410 + 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 + Column = v1SordQtY1 + end + item + Kind = skSum + Column = v1Column2 + 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> + 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 = #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 v1Column11: TcxGridDBColumn + Caption = #35746#21333#31867#22411 + DataBinding.FieldName = 'OrderType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + 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 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 = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1SordQtY1: TcxGridDBColumn + Caption = #32568#25968 + DataBinding.FieldName = 'gangNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTRollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + 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 v1Column8: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.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 + object v1Column6: TcxGridDBColumn + Caption = #37197#36135#21305#25968 + DataBinding.FieldName = 'PH_RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'PH_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FH_RollNum' + HeaderAlignmentHorz = taCenter + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1Column10: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FH_Qty' + HeaderAlignmentHorz = taCenter + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 60 + end + object v1ISPH: TcxGridDBColumn + Caption = #37197#36135#29366#24577 + DataBinding.FieldName = 'ISPH' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Filler: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 101 + Width = 1191 + 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 = 1191 + 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 = 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 +end diff --git a/管理系统/U_ProductOrderNewList_JD.pas b/管理系统/U_ProductOrderNewList_JD.pas new file mode 100644 index 0000000..2e4e6ae --- /dev/null +++ b/管理系统/U_ProductOrderNewList_JD.pas @@ -0,0 +1,533 @@ +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; + +type + TfrmProductOrderNewList_JD = 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; + 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; + Label2: TLabel; + JGFactoryName: TEdit; + Label5: TLabel; + OrdPerson1: TEdit; + Label8: TLabel; + PRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1Column8: TcxGridDBColumn; + Label11: TLabel; + OrdDefStr1: TEdit; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + v1EditTime: TcxGridDBColumn; + v1ordderNote1: TcxGridDBColumn; + v1SordQtY1: 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; + v1ISPH: TcxGridDBColumn; + v1Filler: TcxGridDBColumn; + PrtColor: TEdit; + Label7: TLabel; + orderType: TComboBox; + Label24: TLabel; + v1Column11: 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 TBExportClick(Sender: TObject); + procedure TBPrintClick(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 cxTabControl1Change(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure SetStatus(); + { Private declarations } + public + + fDParameters1:string; + forderType:string; + fsyrName:string; + { Public declarations } + end; + +var + frmProductOrderNewList_JD: TfrmProductOrderNewList_JD; + +implementation +uses + U_DataLink,U_Fun, U_OrderInPut; + +{$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,Tv1,'ָʾ'); +end; + +procedure TfrmProductOrderNewList_JD.InitGrid(); +var + strwhere:string; +begin + strwhere:=''; + + strwhere:=strwhere+' and B.orderType='''+Trim(forderType)+''''; + + If trim(fsyrName)<>'' then + begin + strwhere:=strwhere+' and B.syrName='''+Trim(fsyrName)+''''; + end + else + begin + strwhere:=strwhere+' and B.syrName<>''˷֯'''; + end; + 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.InitForm(); +begin + + readCxGrid(self.Caption+tv1.Name,Tv1,'ָʾ'); + + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp); + 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); + IF CheckBox1.Checked then + begin + IF trim(strwhere)='' then + strwhere:=' CustomerNoName<>''㶫в'' ' + else + strwhere:=strwhere+' and CustomerNoName<>''㶫в'' '; + end; + + SDofilter(ADOQueryMain,strwhere); + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); +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.OrderNoChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmProductOrderNewList_JD.FormShow(Sender: TObject); +begin + IF forderType='' then + begin + v1Column6.Visible:=false; + v1Column7.Visible:=false; + end; + 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.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_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.cxTabControl1Change(Sender: TObject); +begin + application.ProcessMessages; + initGrid(); +end; + +end. diff --git a/管理系统/U_ProductOrderNewList_ZD.dfm b/管理系统/U_ProductOrderNewList_ZD.dfm new file mode 100644 index 0000000..7ebf65c --- /dev/null +++ b/管理系统/U_ProductOrderNewList_ZD.dfm @@ -0,0 +1,992 @@ +object frmProductOrderNewList_ZD: TfrmProductOrderNewList_ZD + Left = 0 + Top = 0 + Width = 1366 + Height = 738 + 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 = 1350 + 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 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 TZDSH: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #33258#21160#23457#26680 + ImageIndex = 41 + OnClick = TZDSHClick + end + object tchk: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #19994#21153#23457#26680 + ImageIndex = 41 + Visible = False + OnClick = tchkClick + end + object tNochk: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #23457#26680#25764#38144 + ImageIndex = 86 + Visible = False + OnClick = tNochkClick + end + object TBEdit: TToolButton + Left = 513 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 576 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 639 + 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 TBcust: TToolButton + Left = 63 + Top = 30 + AutoSize = True + Caption = #20462#25913#23458#25143#21333#20215#20449#24687 + ImageIndex = 54 + OnClick = TBcustClick + 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#22823#36135 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBPrint2: TToolButton + Left = 348 + Top = 30 + AutoSize = True + Caption = #25171#21360#22823#32440#24352 + ImageIndex = 12 + Visible = False + OnClick = TBPrint2Click + end + object TBPrint1: TToolButton + Left = 447 + Top = 30 + AutoSize = True + Caption = #25171#21360#21098#26679 + ImageIndex = 12 + OnClick = TBPrint1Click + end + object ToolButton4: TToolButton + Left = 534 + Top = 30 + AutoSize = True + Caption = #26597#30475#30721#21333 + ImageIndex = 57 + OnClick = ToolButton4Click + end + object Trz: TToolButton + Left = 621 + Top = 30 + AutoSize = True + Caption = #26085#24535 + ImageIndex = 72 + OnClick = TrzClick + end + object TBClose: TToolButton + Left = 684 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1350 + Height = 63 + 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 = 187 + 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 = 362 + Top = 15 + Width = 47 + 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 = 71 + 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 = 552 + 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 = 187 + 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 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 = 552 + Top = 39 + Width = 47 + 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 Label24: TLabel + Left = 362 + Top = 41 + 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 Label12: TLabel + Left = 760 + 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 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 = 228 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 419 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object JGFactoryName: TEdit + Tag = 2 + Left = 351 + Top = 103 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 375 + Top = 67 + Width = 100 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object PRTCodeName: TEdit + Tag = 2 + Left = 605 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 228 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 495 + Top = 95 + Width = 76 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + object PrtColor: TEdit + Tag = 2 + Left = 605 + Top = 35 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + end + object orderType: TComboBox + Tag = 2 + Left = 419 + Top = 37 + Width = 100 + Height = 20 + Style = csDropDownList + Ctl3D = False + ItemHeight = 12 + ParentCtl3D = False + TabOrder = 10 + OnChange = OrderNoChange + Items.Strings = ( + #27491#24120#21333 + #21098#26679#21333) + end + object C_CodeNameZW: TEdit + Tag = 2 + Left = 813 + Top = 11 + Width = 100 + Height = 20 + TabOrder = 11 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 147 + Width = 1350 + Height = 428 + Align = alTop + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + 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 = v1PRTOrderQty + 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 = #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 v1Column17: TcxGridDBColumn + Caption = #35746#21333#31867#22411 + DataBinding.FieldName = 'orderType' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + 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 = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTRollNum' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PrtOrderQty' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_TradeManage.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 + object v1Column6: TcxGridDBColumn + Caption = 'M1' + DataBinding.FieldName = 'SordQty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column7: TcxGridDBColumn + Caption = 'M2' + DataBinding.FieldName = 'SordQty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column9: TcxGridDBColumn + Caption = 'M3' + DataBinding.FieldName = 'SordQty3' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column10: TcxGridDBColumn + Caption = 'M4' + DataBinding.FieldName = 'SordQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column11: TcxGridDBColumn + Caption = 'M5' + DataBinding.FieldName = 'SordQty5' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column12: TcxGridDBColumn + Caption = 'M6' + DataBinding.FieldName = 'SordQty6' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column13: TcxGridDBColumn + Caption = 'M7' + DataBinding.FieldName = 'SordQty7' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column14: TcxGridDBColumn + Caption = 'M8' + DataBinding.FieldName = 'SordQty8' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object v1Column15: TcxGridDBColumn + Caption = 'M9' + DataBinding.FieldName = 'SordQty9' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column16: TcxGridDBColumn + Caption = 'M10' + DataBinding.FieldName = 'SordQty10' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Filler: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column18: TcxGridDBColumn + DataBinding.FieldName = 'ordFlag1' + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + end + object v1Column19: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeNameZW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column20: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 125 + Width = 1350 + Height = 22 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #19994#21153#36755#20837 + #19994#21153#24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1350 + ClientRectTop = 19 + end + object Panel2: TPanel + Left = 324 + Top = 168 + Width = 497 + Height = 297 + TabOrder = 4 + Visible = False + object Label7: TLabel + Left = 28 + Top = 24 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object Label10: TLabel + Left = 28 + Top = 68 + Width = 24 + Height = 12 + Caption = #20215#26684 + end + object Button1: TButton + Left = 392 + Top = 16 + Width = 85 + Height = 25 + Caption = #20462#25913#23458#25143 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 396 + Top = 232 + Width = 81 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button2Click + end + object cust: TBtnEditA + Left = 60 + Top = 20 + Width = 285 + Height = 20 + TabOrder = 2 + OnBtnClick = custBtnClick + end + object cxGrid2: TcxGrid + Left = 56 + Top = 64 + Width = 289 + Height = 200 + TabOrder = 3 + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DSPrice + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.Inserting = False + OptionsView.GroupByBox = False + object V3Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PRTCODEName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object V3Column2: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTCOLOR' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object V3Column3: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PRTPRICE' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.##;-,0.##' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = TV3 + end + end + object Button3: TButton + Left = 392 + Top = 112 + Width = 85 + Height = 25 + Caption = #20462#25913#21333#20215 + TabOrder = 4 + OnClick = Button3Click + 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 + 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 = 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 CDSPrice: TClientDataSet + Aggregates = <> + Params = <> + Left = 600 + Top = 296 + end + object DSPrice: TDataSource + DataSet = CDSPrice + Left = 664 + Top = 328 + end + object ADOPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 360 + Top = 240 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 388 + Top = 288 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 848 + Top = 16 + end + object Timer_Print: TTimer + Enabled = False + Interval = 20000 + OnTimer = Timer_PrintTimer + Left = 1108 + Top = 60 + end + object Timer1: TTimer + Enabled = False + Interval = 20000 + OnTimer = Timer1Timer + Left = 980 + Top = 64 + end +end diff --git a/管理系统/U_ProductOrderNewList_ZD.pas b/管理系统/U_ProductOrderNewList_ZD.pas new file mode 100644 index 0000000..44ea47a --- /dev/null +++ b/管理系统/U_ProductOrderNewList_ZD.pas @@ -0,0 +1,1613 @@ +unit U_ProductOrderNewList_ZD; + +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, BtnEdit,MMSystem, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu; + +type + TfrmProductOrderNewList_ZD = 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; + v1MPRTCodeName: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + ToolButton1: TToolButton; + Label2: TLabel; + JGFactoryName: TEdit; + Label5: TLabel; + OrdPerson1: TEdit; + Label8: TLabel; + PRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1Column8: TcxGridDBColumn; + Label11: TLabel; + OrdDefStr1: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + tchk: TToolButton; + tNochk: TToolButton; + v1EditTime: TcxGridDBColumn; + v1ordderNote1: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + TBPrint1: TToolButton; + v1Column17: TcxGridDBColumn; + v1Filler: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + PrtColor: TEdit; + Label6: TLabel; + orderType: TComboBox; + Label24: TLabel; + TBPrint2: TToolButton; + v1Column15: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + Panel2: TPanel; + Label7: TLabel; + Label10: TLabel; + Button1: TButton; + Button2: TButton; + cust: TBtnEditA; + cxGrid2: TcxGrid; + TV3: TcxGridDBTableView; + V3Column1: TcxGridDBColumn; + V3Column2: TcxGridDBColumn; + V3Column3: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Button3: TButton; + TBcust: TToolButton; + CDSPrice: TClientDataSet; + DSPrice: TDataSource; + Trz: TToolButton; + v1Column19: TcxGridDBColumn; + C_CodeNameZW: TEdit; + Label12: TLabel; + ADOPrint: TADOQuery; + RMDB_Main: TRMDBDataSet; + RMDB_MD: TRMDBDataSet; + ToolButton4: TToolButton; + v1Column20: TcxGridDBColumn; + TZDSH: TToolButton; + Timer_Print: TTimer; + Timer1: TTimer; + 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 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 OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure tchkClick(Sender: TObject); + procedure tNochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TBPrint1Click(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure TBPrint2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure TBcustClick(Sender: TObject); + procedure custBtnClick(Sender: TObject); + procedure TrzClick(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure TZDSHClick(Sender: TObject); + procedure Timer_PrintTimer(Sender: TObject); + procedure Timer1Timer(Sender: TObject); + private + DQdate:TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + procedure SetStatus(); + { Private declarations } + public + FFInt,FCloth:Integer; + fDParameters1:string; + fCustomerNoName:string; + forderType:string; + fsyrName:string; + fsmNo:string; + { Public declarations } + end; + +var + frmProductOrderNewList_ZD: TfrmProductOrderNewList_ZD; + +implementation +uses + U_DataLink,U_Fun, U_OrderInPut, U_ZdyAttachment, U_SysLogHelp; + +{$R *.dfm} +procedure TfrmProductOrderNewList_ZD.SetStatus(); +begin + Tchk.Visible:=false; + tNochk.Visible:=false; + TBEdit.Enabled:=false; + TBDel.Enabled:=false; + TBPrint.Visible:=false; + TBPrint1.Visible:=false; + tbPrint2.Visible:=false; + tbcust.Visible:=false; + + IF Trim(fDParameters1)='' then + begin + TBADD.Visible:=true; + case cxTabControl1.TabIndex of + 0:begin + + TBEdit.Enabled:=true; + Tchk.Visible:=true; + TBDel.Enabled:=true; + end; + 1:begin + tNochk.Visible:=true; + IF fOrderType='' then + TBPrint1.Visible:=true + else + begin + TBPrint.Visible:=true; + end; + // tbPrint2.Visible:=true; + end; + end; + end + else + IF Trim(fDParameters1)='' then + begin + TBADD.Visible:=true; + case cxTabControl1.TabIndex of + 0:begin + TBEdit.Enabled:=true; + Tchk.Visible:=true; + TBDel.Enabled:=true; + end; + 1:begin + tNochk.Visible:=true; + IF fOrderType='' then + TBPrint1.Visible:=true + else + begin + TBPrint.Visible:=true; + end; + // tbPrint2.Visible:=true; + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0:begin + TBEdit.Enabled:=true; + // Tchk.Visible:=true; + TBDel.Enabled:=true; + // tbcust.Visible:=true; + end; + 1:begin + tbcust.Visible:=true; + IF fOrderType='' then + TBPrint1.Visible:=true + else + begin + TBPrint.Visible:=true; + end; + end; + end; + end; + +end; + +procedure TfrmProductOrderNewList_ZD.FormDestroy(Sender: TObject); +begin + frmProductOrderNewList_ZD:=nil; +end; + +procedure TfrmProductOrderNewList_ZD.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmProductOrderNewList_ZD.FormCreate(Sender: TObject); +begin + cxgrid1.Align:=alClient; +end; + +procedure TfrmProductOrderNewList_ZD.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption+tv1.Name+'1',Tv1,'ָʾ'); + Close; + +end; + +procedure TfrmProductOrderNewList_ZD.InitGrid(); +var + strwhere:string; +begin + strwhere:=''; + + if cxTabControl1.TabIndex<2 then + strwhere:=strwhere+' and isnull(B.status,''0'')='''+inttostr(cxTabControl1.TabIndex)+''''; + + if (trim(fDParameters1)<>'') and (trim(fDParameters1)<>'') then + strwhere:=strwhere+' and B.Filler='''+Trim(DName)+''' '; + + strwhere:=strwhere+' and B.orderType='''+Trim(forderType)+''''; + + If trim(fsyrName)<>'' then + begin + strwhere:=strwhere+' and B.syrName='''+Trim(fsyrName)+''''; + end; + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + Filtered:=False; + sql.Clear; + sql.add('exec P_View_order :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); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; +procedure TfrmProductOrderNewList_ZD.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_ZD.InitForm(); +begin + + readCxGrid(self.Caption+tv1.Name+'1',Tv1,'ָʾ'); + + if FCloth=1 then + begin + v1Column4.Visible:=True; + + end else + begin + v1Column4.Visible:=False; + end; + + EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime:=EndDate.DateTime; + + InitGrid(); +end; + +procedure TfrmProductOrderNewList_ZD.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_ZD.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 + forderType:=self.forderType; + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString); + fsyrName:=self.fsyrName; + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList_ZD.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + + + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_BanCP_CR A '); + SQL.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('Ѳ,ɾ!','ʾ',0); + Exit; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_BanCP_PH A '); + SQL.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('Ѳ,ɾ!','ʾ',0); + Exit; + end; +{ 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_ZD.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; + ADOQueryCmd.Connection.CommitTrans; + Result:=True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result:=False; + Application.MessageBox('ɾ쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList_ZD.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ָʾб'); +end; + +procedure TfrmProductOrderNewList_ZD.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno,PRTCodeName,funit:string; + i,j,k:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select *,KCNUm=(case when syrName<>''𻪷֯'' then (select sum(kcRollNum) from CK_BanCP_KC1 X where X.C_CodeName=A.prtCodeName and x.KCQty>0 and X.C_Color = A.PrtColor AND x.CPType not in(''һȴƷ'',''ȴƷ'')) '); + sql.Add(' else (select sum(kcRollNum) from CK_BanCP_KC X where X.C_CodeName=A.prtCodeName and x.KCQty>0 and X.C_Color = A.PrtColor AND x.CPType not in(''һȴƷ'',''ȴƷ'')) end), '); + sql.Add(' tyb=(select Top 1 defstr8 from KH_Zdy_Attachment X where X.zdyName=B.customerNoName and X.Type=''KHName''),'); + sql.Add(' tybTel=(select Top 1 DEFNote3 from KH_Zdy_Attachment X where X.zdyName=B.customerNoName and X.Type=''KHName''), '); + sql.Add(' LXTel=(select Top 1 defstr1 from KH_Zdy_Attachment X where X.zdyName=B.customerNoName and X.Type=''KHName''), '); + // sql.Add(' kw2=(select Top 1 defstr5 from KH_Zdy_Attachment X where X.zdyName=A.prtCodeName and X.defstr3 = A.PrtColor), '); + sql.Add(' m=floor(PrtRollNum / 10),n=PrtRollNum % 10, '); + sql.Add(' RollSum=(select sum(PrtRollNum) from JYOrder_Sub X where X.mainID=A.mainID),'); + sql.Add(' QtySum=(select sum(PrtOrderQty) from JYOrder_Sub X where X.mainID=A.mainID), '); + sql.Add(' C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and X.DEFstr3=A.PrtColor and Type=''CP'') '); + sql.Add(',CPKW=(select max(KCKW) from CK_BanCP_KC X where X.C_CodeName=A.prtCodeName and X.C_Color=A.PrtColor and KCQty>0)'); + sql.Add(',KCKW=dbo.F_Get_KcKw_Now(A.PRTCodeName,A.PRTColor)'); + sql.Add('from JYOrder_Sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.MainID '); + sql.Add('where A.mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + + with ADOQueryPrint do + begin + while not eof do + begin + IF fieldbyname('m').AsInteger<1 then K:=1; + IF (fieldbyname('m').AsInteger>=1) and (fieldbyname('n').AsInteger=0) then + k:=fieldbyname('m').AsInteger; + IF (fieldbyname('m').AsInteger>=1) and (fieldbyname('n').AsInteger<>0) then + k:=fieldbyname('m').AsInteger+1; + + for i:=1 to k do + begin + CDS_Print.Append; + for j:=0 to FieldCount-1 do + begin + CDS_Print.fields[j].value:=Fields[j].Value; + end; + CDS_Print.Post; + end; + next; + end; + end; + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(ADOQueryPrint.fieldbyname('mainID').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); + Order_Main.EnableControls; + exit; + end; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RMVariables['customerNoName']:=Trim(Order_Main.fieldbyname('customerNoName').AsString); + RMVariables['OrderNo']:=Trim(Order_Main.fieldbyname('OrderNo').AsString); + RMVariables['Note']:=Trim(Order_Main.fieldbyname('Note').AsString); + RMVariables['FHAddress']:=Trim(Order_Main.fieldbyname('FHAddress').AsString); + RMVariables['LXFS']:=Trim(Order_Main.fieldbyname('LXFS').AsString); + RMVariables['OrdDate']:=Order_Main.fieldbyname('OrdDate').Value; + RMVariables['OrdPerson1']:=Order_Main.fieldbyname('OrdPerson1').Value; + RM1.LoadFromFile(fPrintFile); + // RM1.ShowReport; + RM1.PrintReport; + end + else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdDefDate1=getdate(),OrdFlag1=1'); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductOrderNewList_ZD.TBRafreshClick(Sender: TObject); +begin + + InitGrid(); +end; + +procedure TfrmProductOrderNewList_ZD.TBAddClick(Sender: TObject); +var + maxno:string; +begin + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + PState:=0; + FMainId:=''; + fCustomerNoName:=self.fCustomerNoName; + forderType:=self.forderType; + fsyrName:=self.fsyrName; + + if ShowModal=1 then + begin + TBRafresh.Click; + end; + end; + finally + frmOrderInPut.Free; + end; + + +end; + +procedure TfrmProductOrderNewList_ZD.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_ZD.FormShow(Sender: TObject); +begin + SetStatus(); + InitForm(); + + Timer1.Enabled:=true; +end; + +procedure TfrmProductOrderNewList_ZD.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible=False then Exit; + ToolButton1.Click; +end; + +procedure TfrmProductOrderNewList_ZD.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrderNewList_ZD.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmProductOrderNewList_ZD.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrderNewList_ZD.Tv1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + id,id10:Integer; +begin + +end; + +procedure TfrmProductOrderNewList_ZD.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_ZD.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_ZD.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_ZD.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + forderType:=self.forderType; + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Enabled:=False; + TBSave.Visible:=False; + ScrollBox1.Enabled:=False; + Tv1.OptionsSelection.CellSelect:=False; + fsyrName:=self.fsyrName; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList_ZD.ToolButton2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + try + frmOrderInPut:=TfrmOrderInPut.Create(Application); + with frmOrderInPut do + begin + forderType:=self.forderType; + PState:=1; + CopyInt:=99; + FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); + fsyrName:=self.fsyrName; + if ShowModal=1 then + begin + + end; + end; + finally + frmOrderInPut.Free; + end; +end; + +procedure TfrmProductOrderNewList_ZD.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrderNewList_ZD.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(fDParameters1)<>'Ȩ' then + begin + Parameters.ParamByName('WSql').Value:=' and A.Filler='''+Trim(DName)+''''; + end; + 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'; + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + finally + ADOQueryMain.EnableControls; + end; + end; } +end; + +procedure TfrmProductOrderNewList_ZD.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 + + Close; + Filtered:=False; + sql.Clear; + sql.add('exec P_View_Order :begdate,:enddate,:WSql') ; + if Trim(fDParameters1)<>'Ȩ' 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_ZD.tchkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update JYOrder_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('orderNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ҵ˳ɹ','ʾϢ'); + IF Order_Main.fieldbyname('orderType').AsString='' then + begin + if Application.MessageBox('ȷҪӡҵָʾ','ʾ',32+4)=IDYES then + begin + TBPrint.Click; + end; + end; + + IF Order_Main.fieldbyname('orderType').AsString='' then + begin + if Application.MessageBox('ȷҪӡҵָʾ','ʾ',32+4)=IDYES then + begin + TBPrint1.Click; + end; + end; + + { IF fCustomerNoName<>'㶫в'then + begin + if Application.MessageBox('ȷҪӡҵָʾ','ʾ',32+4)=IDYES then + begin + IF Order_Main.fieldbyname('orderType').AsString='' then + TBPrint1.Click + else + TBPrint.Click; + end; + end; } + TBRafresh.Click; + except + application.MessageBox('ҵʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmProductOrderNewList_ZD.tNochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_PH '); + 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; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from BP_inout '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and cRType =''Ʒ۳'''); + // 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('update JYOrder_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('orderNo').AsString)))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('˳ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('˳ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmProductOrderNewList_ZD.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + + + application.ProcessMessages; + initGrid(); +end; + +procedure TfrmProductOrderNewList_ZD.TBPrint1Click(Sender: TObject); +var + fPrintFile:string; + Porderno,PRTCodeName,funit:string; + i,j:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select *, '); + sql.Add(' RollSum=(select sum(PrtRollNum) from JYOrder_Sub X where X.mainID=A.mainID),'); + sql.Add(' QtySum=(select sum(PrtOrderQty) from JYOrder_Sub X where X.mainID=A.mainID), '); + sql.Add(' C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and Type=''CP'') '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and X.DEFstr3=A.PrtColor and Type=''CP'') '); + sql.Add(',KCKW=dbo.F_Get_KcKw_Now_YP(A.PRTCodeName,A.PRTColor) '); + sql.Add(',ywy=(select Top 1 defstr5 from KH_Zdy_Attachment X where X.zdyName=B.customerNoname and X.Type=''KHName'' and X.KHType=B.SYRname) '); + sql.Add('from JYOrder_Sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.MainID '); + sql.Add('where A.mainID='+quotedstr(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('mainID').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); + Order_Main.EnableControls; + exit; + end; + + + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RMVariables['customerNoName']:=Trim(Order_Main.fieldbyname('customerNoName').AsString); + RMVariables['OrderNo']:=Trim(Order_Main.fieldbyname('OrderNo').AsString); + RMVariables['Note']:=Trim(Order_Main.fieldbyname('Note').AsString); + RMVariables['FHAddress']:=Trim(Order_Main.fieldbyname('FHAddress').AsString); + RMVariables['LXFS']:=Trim(Order_Main.fieldbyname('LXFS').AsString); + RMVariables['OrdDate']:=Order_Main.fieldbyname('OrdDate').Value; + RMVariables['OrdPerson1']:=Order_Main.fieldbyname('OrdPerson1').Value; + RM1.LoadFromFile(fPrintFile); + RM1.PrintReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdDefDate1=getdate(),OrdFlag1=1'); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + + +procedure TfrmProductOrderNewList_ZD.Tv1CustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('OrdFlag1').Index]=0 then + begin + ACanvas.Brush.Color:=clSkyBlue; + end; +end; + +procedure TfrmProductOrderNewList_ZD.TBPrint2Click(Sender: TObject); +var + fPrintFile:string; + Porderno,PRTCodeName,funit:string; + i,j:Integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if Order_Main.IsEmpty then Exit; + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾֽ.rmf' ; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select *, '); + sql.Add(' RollSum=(select sum(PrtRollNum) from JYOrder_Sub X where X.mainID=A.mainID),'); + sql.Add(' QtySum=(select sum(PrtOrderQty) from JYOrder_Sub X where X.mainID=A.mainID), '); + sql.Add(' KCNUm=(select sum(kcRollNum) from CK_BanCP_KC X where X.C_CodeName=A.prtCodeName and x.KCQty>0 and X.C_Color = A.PrtColor AND x.CPType not in(''һȴƷ'',''ȴƷ'')), '); + sql.Add(' CPKW=(select max(KCKW) from CK_BanCP_KC X where X.C_CodeName=A.prtCodeName and X.C_Color=A.PrtColor and KCQty>0)'); + sql.Add(' C_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and Type=''CP''), '); + sql.Add(',C_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.prtCodeName and X.DEFstr3=A.PrtColor and Type=''CP'') '); + sql.Add(',KCKW=dbo.F_Get_KcKw_Now(A.PRTCodeName,A.PRTColor)'); + sql.Add('from JYOrder_Sub A '); + sql.Add('inner join JYOrder_Main B on B.mainID=A.MainID '); + sql.Add('where A.mainID='+quotedstr(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('mainID').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); + Order_Main.EnableControls; + exit; + end; + + + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RMVariables['customerNoName']:=Trim(Order_Main.fieldbyname('customerNoName').AsString); + RMVariables['OrderNo']:=Trim(Order_Main.fieldbyname('OrderNo').AsString); + RMVariables['Note']:=Trim(Order_Main.fieldbyname('Note').AsString); + RMVariables['FHAddress']:=Trim(Order_Main.fieldbyname('FHAddress').AsString); + RMVariables['LXFS']:=Trim(Order_Main.fieldbyname('LXFS').AsString); + RMVariables['OrdDate']:=Order_Main.fieldbyname('OrdDate').Value; + RMVariables['OrdPerson1']:=Order_Main.fieldbyname('OrdPerson1').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾֽ.rmf'),'ʾ',0); + exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdDefDate1=getdate(),OrdFlag1=1'); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; +end; + +procedure TfrmProductOrderNewList_ZD.Button1Click(Sender: TObject); +var + str:string; +begin + if Order_Main.IsEmpty then Exit; + + if trim(cust.Text)='' then + begin + application.MessageBox('ͻΪգ','ʾϢ',0); + Exit; + end; +{ with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''' and A.status>''0'' '); + open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('Ӧտδˣ޸ģ','ʾϢ',MB_ICONERROR); + exit; + end; } + str:= 'ţ'+trim(Order_Main.FieldByName('orderNo').AsString)+' ͻ'+trim(Order_Main.FieldByName('customerNoName').AsString)+'->'+trim(cust.Text); + + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update JYOrder_Main SET customerNO='''+trim(cust.TxtCode)+''', customerNOName='''+trim(cust.Text)+''' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('update YF_Money_CR SET factoryName='''+trim(cust.Text)+''', comtaiTou='''+trim(cust.Text)+''' 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(str))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Panel2.Visible:=false; + initgrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('޸쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList_ZD.Button3Click(Sender: TObject); +var + str1:string; +begin + IF CDSPrice.IsEmpty then exit; + cust.SetFocus; +{ with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from YF_Money_CR A where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''' and A.status>''0'' '); + open; + end; + IF not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('Ӧտδˣ޸ģ','ʾϢ',MB_ICONERROR); + exit; + end; } + if Application.MessageBox('ȷҪ޸ĵ','ʾ',32+4)<>IDYES then Exit; + try + ADOQueryCmd.Connection.BeginTrans; + CDSPrice.First; + while not CDSPrice.Eof do + begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select PRTPrice FROM JYOrder_sub X where subID='''+Trim(CDSPrice.fieldbyname('subID').AsString)+''''); + open; + end; + IF ADOQueryTemp.fieldbyname('PrtPrice').AsFloat<>CDSPrice.FieldByName('PrtPrice').AsFloat then + begin + str1:=trim(CDSPrice.fieldbyname('subID').AsString)+':'+ADOQueryTemp.fieldbyname('PrtPrice').AsString+'->'+CDSPrice.FieldByName('PrtPrice').AsString; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update JYOrder_sub SET PRTPrice='''+trim(CDSPrice.fieldbyname('PRTPrice').AsString)+''' where MainID='''+Trim(CDSPrice.fieldbyname('MainId').AsString)+''' and subID='''+Trim(CDSPrice.fieldbyname('subID').AsString)+''' '); + sql.Add('update YF_Money_CR SET Price='''+trim(CDSPrice.fieldbyname('PRTPrice').AsString)+''' where MainID='''+Trim(CDSPrice.fieldbyname('MainId').AsString)+''' and subID='''+Trim(CDSPrice.fieldbyname('subID').AsString)+''' '); + sql.Add('update YF_Money_CR SET Money=Price*Qty,BBMoney=Price*Qty*HuiLv where MainID='''+Trim(CDSPrice.fieldbyname('MainId').AsString)+''' and subID='''+Trim(CDSPrice.fieldbyname('subID').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(str1))); + sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + end; + CDSPrice.Next; + end; + ADOQueryCmd.Connection.CommitTrans; + Panel2.Visible:=false; + //initgrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('޸쳣','ʾ',0); + end; +end; + +procedure TfrmProductOrderNewList_ZD.TBcustClick(Sender: TObject); +begin + IF order_main.IsEmpty then exit; +// CDSPrice.EmptyDataSet; + with ADOQueryTemp DO + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_sub X where MainID='+quotedstr(trim(order_main.fieldbyname('MainID').AsString))); + open; + end; + SCreateCDS20(ADOQueryTemp,CDSPrice); + SInitCDSData20(ADOQueryTemp,CDSPrice); + cust.Text:=''; + cust.TxtCode:=''; + Panel2.Left:=(self.Width- Panel2.Width) div 2; + Panel2.Visible:=true; +end; + +procedure TfrmProductOrderNewList_ZD.custBtnClick(Sender: TObject); +begin + try + frmZdyAttachment:=TfrmZdyAttachment.Create(Application); + with frmZdyAttachment do + begin + fkhType:=''; + fkhType:=self.fsyrName; + if ShowModal=1 then + begin + cust.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString); + cust.TxtCode:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString); + end; + end; + finally + frmZdyAttachment.Free; + end; +end; + +procedure TfrmProductOrderNewList_ZD.TrzClick(Sender: TObject); +begin + frmSysLogHelp:=TfrmSysLogHelp.create(self); + with frmSysLogHelp do + begin + facction:='ָʾɾ'; + showmodal; + free; + end; +end; + +procedure TfrmProductOrderNewList_ZD.Button2Click(Sender: TObject); +begin + Panel2.Visible:=false; +end; + +procedure TfrmProductOrderNewList_ZD.ToolButton4Click(Sender: TObject); +var + filepath,fOrderNo:string; + i:integer; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; +begin + if Order_Main.IsEmpty then exit; + + IF Order_Main.FieldByName('OrderType').AsString='' then + begin + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('select A.mainID,A.subID,A.SYRName,A.cust,A.P_CodeName,A.P_Color,A.QtyUnit,B.Sorddefnote1,c.note,C.orderNo,C.customerNoname,C.orddefnote1,C.FHAddress,C.LXFS,C.Filler as xsyg,SUM(A.Qty) as Qty,AVG(A.Price) as Price,SUM(A.money) as Money, '); + sql.Add('customNameAddress=(select Top 1 DEFNote1 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('DEFNote2=(select Top 1 DEFNote2 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('defstr8=(select Top 1 defstr8 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('defstr2=(select Top 1 defstr2 from KH_Zdy_Attachment X where X.ZdyName=A.cust),'); + sql.Add('DEFNote3=(select Top 1 DEFNote3 from KH_Zdy_Attachment X where X.ZdyName=A.cust), '); + sql.Add('P_CodeNameZW=(select Top 1 defnote3 from KH_Zdy_Attachment X where X.ZdyName=A.P_CodeName and Type=''CP'') '); + sql.Add(',P_colorName=(select Top 1 DEFstr6 from KH_Zdy_Attachment X where X.ZdyName=A.P_CodeName and X.DEFstr3=A.P_Color and Type=''CP'') '); + sql.Add('from BP_INout A '); + sql.Add('left join JYOrder_sub B on B.mainID=A.mainID and B.subID=A.subID '); + sql.Add('left join JYOrder_Main C on C.mainID=A.mainID '); + sql.Add('where A.MainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('group by A.mainID,A.subID,A.SYRName,A.cust,A.P_CodeName,A.P_Color,A.QtyUnit,B.Sorddefnote1,c.note,C.orderNo,C.customerNoname,C.orddefnote1,C.FHAddress,C.LXFS,C.Filler'); + open; + end; + filepath:=ExtractFilePath(Application.ExeName) + 'report\뵥Ʒ.rmf'; + + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ['+filepath+']ڣ'),'ʾϢ',MB_IConError); + exit; + end; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(AdoPrint.fieldbyname('orderNo').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; + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + RMVariables['Filler'] :=trim(Order_Main.fieldbyname('Filler').AsString); + RM1.LoadFromFile(filepath); + RM1.ShowReport; + end + else + begin + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PrintMd10 '); + sql.Add('@mainID='+quotedstr(trim(Order_Main.fieldbyname('maiNID').AsString))); + sql.Add(',@TblCprk='+quotedstr(trim(fSYRName))); + sql.Add(',@flag='+quotedstr(trim('뵥'))); + open; + end; + + filepath:=ExtractFilePath(Application.ExeName) + 'report\뵥.rmf'; + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ['+filepath+']ڣ'),'ʾϢ',MB_IConError); + exit; + end; + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(AdoPrint.fieldbyname('orderNo').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; + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + RMVariables['Filler'] :=trim(Order_Main.fieldbyname('Filler').AsString); + RM1.LoadFromFile(filepath); + RM1.ShowReport; + end; + +end; + + + +procedure TfrmProductOrderNewList_ZD.TZDSHClick(Sender: TObject); +begin + fsmNo:=''; + cxTabControl1.TabIndex:=0; + sleep(100); + TBRafresh.Click; + sleep(200); + IF not Order_Main.IsEmpty then + begin + fsmNo:=trim(Order_Main.fieldbyName('mainID').AsString); + IF trim(Order_Main.FieldByName('OrderType').AsString)='' then + begin + tchk.Click; + sleep(200); + TBPrint.Click; + Timer_Print.Enabled:=true; + end + else + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('exec P_Do_YbOut '); + sql.Add('@MainID='''+trim(Order_Main.fieldbyName('mainID').AsString)+''' '); + sql.Add(',@OrderNo='''+trim(Order_Main.fieldbyName('OrderNo').AsString)+''' '); + sql.Add(',@Filler='''+trim(DName)+''' '); + open; + end; + IF ADOQueryCmd.fieldbyName('intReturn').AsInteger=0 then + begin + TBPrint1.Click; + Timer_Print.Enabled:=true; + end + else + begin + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\˴.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\˴.wav'),0, SND_ASYNC); + application.MessageBox(pchar(ADOQueryCmd.fieldbyName('ShowMsg').AsString),'ʾϢ',MB_ICONERROR); + end; + end; + // TBRafresh.Click; + end; +end; + +procedure TfrmProductOrderNewList_ZD.Timer_PrintTimer(Sender: TObject); +begin + Timer_Print.Enabled:=false; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ӡ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ӡ.wav'),0, SND_ASYNC); +end; + +procedure TfrmProductOrderNewList_ZD.Timer1Timer(Sender: TObject); +begin + cxTabControl1.TabIndex:=0; + sleep(100); + TBRafresh.Click; + sleep(200); + IF not Order_Main.IsEmpty then + begin + // IF not Order_Main.fieldbyName('Ordflag2').AsBoolean then + // begin + fsmNo:=trim(Order_Main.fieldbyName('mainID').AsString); + IF trim(Order_Main.FieldByName('OrderType').AsString)='' then + begin + tchk.Click; + sleep(200); + TBPrint.Click; + end + else + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('exec P_Do_YbOut '); + sql.Add('@MainID='''+trim(Order_Main.fieldbyName('mainID').AsString)+''' '); + sql.Add(',@OrderNo='''+trim(Order_Main.fieldbyName('OrderNo').AsString)+''' '); + sql.Add(',@Filler='''+trim(DName)+''' '); + open; + end; + IF ADOQueryCmd.fieldbyName('intReturn').AsInteger=0 then + begin + TBPrint1.Click; + end + else + begin + Timer1.Enabled:=false; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\˴.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\˴.wav'),0, SND_ASYNC); + application.MessageBox(pchar(ADOQueryCmd.fieldbyName('ShowMsg').AsString),'ʾϢ',MB_ICONERROR); + end; + end; + // end; + // TBRafresh.Click; + 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_Ph.dfm b/管理系统/U_ProductOrder_Ph.dfm new file mode 100644 index 0000000..78fff41 --- /dev/null +++ b/管理系统/U_ProductOrder_Ph.dfm @@ -0,0 +1,1371 @@ +object frmProductOrder_Ph: TfrmProductOrder_Ph + Left = 260 + Top = 184 + Width = 1382 + Height = 754 + Caption = #25351#31034#21333#37197#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 = 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 ToolButton7: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25195#25551#37197#36135 + ImageIndex = 57 + OnClick = ToolButton7Click + end + object TBAdd: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 654 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBPrint1: TToolButton + Left = 717 + Top = 0 + AutoSize = True + Caption = #25171#21360#20986#24211#21333 + ImageIndex = 12 + Visible = False + OnClick = TBPrint1Click + end + object TBPrint2: TToolButton + Left = 816 + Top = 0 + AutoSize = True + Caption = #25171#21360#20986#24211#21333#22823#32440 + ImageIndex = 12 + Visible = False + OnClick = TBPrint2Click + end + object TBClose: TToolButton + Left = 939 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 1002 + 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 = 69 + 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 = 203 + 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 Label4: TLabel + Left = 398 + 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 = 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 = 561 + Top = 15 + Width = 39 + Height = 12 + Caption = #19994#21153#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 584 + Top = 107 + 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 = 561 + 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 = 204 + Top = 35 + 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 = 175 + Top = 95 + 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 = 397 + 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 = 441 + Top = 103 + 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 = 801 + 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 = 801 + Top = 95 + 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 Label16: TLabel + Left = 752 + Top = 16 + Width = 39 + Height = 12 + Caption = #24635#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 Label17: TLabel + Left = 752 + Top = 40 + Width = 39 + Height = 12 + Caption = #24635#31859#25968 + 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 = 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 = 260 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 427 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object JGFactoryName: TEdit + Tag = 2 + Left = 347 + Top = 103 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 611 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object PRTCF: TEdit + Tag = 2 + Left = 637 + Top = 103 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object PRTColor: TEdit + Tag = 2 + Left = 610 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object PRTCodeName: TEdit + Tag = 2 + Left = 260 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 216 + Top = 91 + Width = 77 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object PRTSpec: TEdit + Tag = 2 + Left = 426 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 10 + OnChange = OrderNoChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 495 + Top = 99 + Width = 76 + Height = 20 + TabOrder = 11 + OnChange = OrderNoChange + end + object PRTKZ: TEdit + Tag = 2 + Left = 830 + Top = 115 + Width = 56 + Height = 20 + TabOrder = 12 + OnChange = OrderNoChange + end + object PRTMF: TEdit + Tag = 2 + Left = 830 + Top = 91 + Width = 56 + Height = 20 + TabOrder = 13 + OnChange = OrderNoChange + end + object fRoll1: TcxCurrencyEdit + Left = 796 + Top = 12 + ParentFont = False + Properties.DisplayFormat = '0.##' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clRed + Style.Font.Height = -12 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 14 + Visible = False + Width = 70 + end + object fnum1: TcxCurrencyEdit + Left = 796 + Top = 36 + ParentFont = False + Properties.DisplayFormat = '0.##' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clRed + Style.Font.Height = -12 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 15 + Visible = False + Width = 70 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 123 + Width = 1366 + Height = 260 + 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 = v1Column6 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1PRTRollNum + end + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + 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.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 v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 77 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20844#21496#32534#21495 + DataBinding.FieldName = 'OrdDefStr1' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 90 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#21488#22836 + DataBinding.FieldName = 'SYRName' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 90 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1JGFactoryName: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'JGFactoryName' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + 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_TradeManage.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1Column10: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeNameZW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1PRTRollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontBlack + Styles.Footer = DataLink_TradeManage.cxStyle_fontBlack + Styles.Header = DataLink_TradeManage.cxStyle_fontBlack + Width = 60 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontBlack + Styles.Footer = DataLink_TradeManage.cxStyle_fontBlack + Styles.Header = DataLink_TradeManage.cxStyle_fontBlack + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 58 + end + object v1Column6: TcxGridDBColumn + Caption = #37197#36135#21305#25968 + DataBinding.FieldName = 'PH_RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'PH_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 96 + end + object v1orddefNote1: TcxGridDBColumn + Caption = #20462#25913#22791#27880 + DataBinding.FieldName = 'orddefNote1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column5: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #26159#21542#25171#21360 + DataBinding.FieldName = 'OrdFlag2' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object Tv1Column1: TcxGridDBColumn + DataBinding.FieldName = 'OrderType' + Visible = False + Width = 20 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 101 + Width = 1366 + Height = 22 + Align = alTop + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#37197#36135 + #24050#37197#36135 + #24050#21457#36135 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1366 + ClientRectTop = 19 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 417 + Width = 1366 + Height = 231 + Align = alTop + TabOrder = 4 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_PH + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = V2Column5 + end + item + Kind = skCount + Position = spFooter + Column = V2Column9 + end + item + Kind = skSum + Position = spFooter + Column = V2Column7 + end + item + Kind = skSum + Position = spFooter + Column = V2Column8 + end + item + Kind = skSum + Column = V2Column5 + end + item + Kind = skCount + Column = V2Column9 + end + item + Kind = skSum + Column = V2Column7 + end + item + Kind = skSum + Column = V2Column8 + end + item + Kind = skSum + Position = spFooter + Column = V2Column4 + end + item + Kind = skSum + Column = V2Column4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V2Column4 + end + item + Kind = skSum + Column = V2Column5 + end + item + Kind = skSum + Column = V2Column7 + end + item + Kind = skSum + Column = V2Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.Inserting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object V2Column13: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + end + object V2Column10: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object V2Column1: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object V2Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object V2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object V2C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Column4: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object V2Column5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object V2Column9: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'KCQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object V2Column7: TcxGridDBColumn + Caption = #37197#36135#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 70 + end + object V2Column8: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 70 + end + object V2Column6: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Column11: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2PHYG: TcxGridDBColumn + Caption = #37197#36135#20154#21592 + DataBinding.FieldName = 'PHYG' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Filler: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Column12: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = TV2 + end + end + object Panel3: TPanel + Left = 0 + Top = 383 + Width = 1366 + Height = 34 + Align = alTop + TabOrder = 5 + object Label14: TLabel + Left = 500 + Top = 60 + Width = 36 + Height = 12 + Caption = #21367#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 532 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#26085#26399 + end + object ToolBar2: TToolBar + Left = 1 + Top = 1 + Width = 872 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 143 + Caption = 'ToolBar2' + Flat = True + Images = DataLink_TradeManage.ThreeImgList + List = True + ShowCaptions = True + TabOrder = 0 + object ToolButton4: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #36873#25321#24211#23384 + ImageIndex = 49 + Visible = False + OnClick = ToolButton4Click + end + object phwc: TToolButton + Left = 87 + Top = 0 + AutoSize = True + Caption = #37197#36135#23436#25104 + ImageIndex = 22 + OnClick = phwcClick + end + object ToolButton6: TToolButton + Left = 174 + Top = 0 + AutoSize = True + Caption = #20462#25913#37197#36135 + ImageIndex = 54 + Visible = False + OnClick = ToolButton6Click + end + object ToolButton8: TToolButton + Left = 261 + Top = 0 + AutoSize = True + Caption = #20462#25913#24211#23384#21644#37197#36135#25968#37327 + ImageIndex = 87 + Visible = False + OnClick = ToolButton8Click + end + object phok: TToolButton + Left = 408 + Top = 0 + AutoSize = True + Caption = #37197#36135#30830#35748 + ImageIndex = 16 + OnClick = phokClick + end + object fh: TToolButton + Left = 495 + Top = 0 + AutoSize = True + Caption = #25104#21697#21457#36135 + ImageIndex = 41 + OnClick = fhClick + end + object ToolButton9: TToolButton + Left = 582 + Top = 0 + AutoSize = True + Caption = #25171#21360#26631#31614 + ImageIndex = 14 + OnClick = ToolButton9Click + end + object del: TToolButton + Left = 669 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 48 + OnClick = delClick + end + object ToolButton5: TToolButton + Left = 732 + Top = 0 + AutoSize = True + Caption = #25972#21333#25764#38144 + ImageIndex = 86 + OnClick = ToolButton5Click + end + object Tdbchexiao: TToolButton + Left = 819 + Top = 0 + AutoSize = True + Caption = #21333#31508#25764#38144 + ImageIndex = 86 + OnClick = TdbchexiaoClick + end + end + object Panel2: TPanel + Left = 1112 + Top = 1 + Width = 253 + Height = 32 + Align = alRight + BevelOuter = bvNone + TabOrder = 1 + end + object Edit1: TEdit + Left = 536 + Top = 56 + Width = 145 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnKeyPress = Edit1KeyPress + end + object CRdate: TDateTimePicker + Left = 896 + Top = 4 + Width = 90 + Height = 20 + Date = 41557.498293449080000000 + Format = 'yyyy-MM-dd' + Time = 41557.498293449080000000 + TabOrder = 3 + end + object CheckBox2: TCheckBox + Left = 1004 + Top = 11 + Width = 99 + Height = 19 + Caption = #20840#36873 + TabOrder = 4 + OnClick = CheckBox2Click + end + end + object CheckBox1: TCheckBox + Left = 216 + Top = 100 + Width = 99 + Height = 19 + Caption = #20840#36873 + TabOrder = 6 + OnClick = CheckBox1Click + 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 ADO_PH: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 296 + Top = 476 + end + object DS_PH: TDataSource + DataSet = CDS_PH + Left = 352 + Top = 484 + end + object CDS_PH: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 480 + end + object ADOPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 888 + Top = 84 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 924 + Top = 64 + end + object RMGridReport1: 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 = 1004 + Top = 72 + ReportData = {} + end + object RMXLSExport2: 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 + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 440 + Top = 248 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 620 + Top = 244 + end +end diff --git a/管理系统/U_ProductOrder_Ph.pas b/管理系统/U_ProductOrder_Ph.pas new file mode 100644 index 0000000..6d3cd51 --- /dev/null +++ b/管理系统/U_ProductOrder_Ph.pas @@ -0,0 +1,2882 @@ +unit U_ProductOrder_Ph; + +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, cxContainer, + cxTextEdit, cxCurrencyEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxBarBuiltInMenu, 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 + TfrmProductOrder_Ph = 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; + v1JGFactoryName: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1OrdPerson1: 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; + OrdPerson1: TEdit; + Label6: TLabel; + PRTCF: TEdit; + Label7: TLabel; + PRTColor: TEdit; + Label8: TLabel; + PRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1Column8: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + Label10: TLabel; + PRTSpec: TEdit; + Label11: TLabel; + OrdDefStr1: TEdit; + Label12: TLabel; + PRTKZ: TEdit; + Label13: TLabel; + PRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + ComboBox1: TComboBox; + v1Column2: TcxGridDBColumn; + v1PRTRollNum: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolBar2: TToolBar; + TV2: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + del: TToolButton; + V2Column1: TcxGridDBColumn; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + V2Column5: TcxGridDBColumn; + phwc: TToolButton; + phok: TToolButton; + fh: TToolButton; + V2Column7: TcxGridDBColumn; + V2Column8: TcxGridDBColumn; + V2Column9: TcxGridDBColumn; + ADO_PH: TADOQuery; + DS_PH: TDataSource; + CDS_PH: TClientDataSet; + V2Column10: TcxGridDBColumn; + Panel3: TPanel; + Panel2: TPanel; + Edit1: TEdit; + Label14: TLabel; + ToolButton4: TToolButton; + v1PRTColor: TcxGridDBColumn; + V2C_Color: TcxGridDBColumn; + ToolButton5: TToolButton; + TBPrint1: TToolButton; + ADOPrint: TADOQuery; + RMDB_MD: TRMDBDataSet; + RMGridReport1: TRMGridReport; + RMXLSExport2: TRMXLSExport; + Label15: TLabel; + CRdate: TDateTimePicker; + V2Column6: TcxGridDBColumn; + V2Column11: TcxGridDBColumn; + ToolButton6: TToolButton; + v1Ssel: TcxGridDBColumn; + V2Column12: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + V2Filler: TcxGridDBColumn; + V2PHYG: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + CheckBox1: TCheckBox; + TBPrint2: TToolButton; + Label16: TLabel; + Label17: TLabel; + fRoll1: TcxCurrencyEdit; + fnum1: TcxCurrencyEdit; + ToolButton7: TToolButton; + v1orddefNote1: TcxGridDBColumn; + ToolButton8: TToolButton; + V2Column13: TcxGridDBColumn; + CheckBox2: TCheckBox; + ToolButton9: TToolButton; + RMDB_Main: TRMDBDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column9: TcxGridDBColumn; + Tdbchexiao: TToolButton; + v1Column10: TcxGridDBColumn; + Tv1Column1: 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 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 OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Edit1KeyPress(Sender: TObject; var Key: Char); + procedure phwcClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure phokClick(Sender: TObject); + procedure delClick(Sender: TObject); + procedure fhClick(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure TBPrint1Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure TBPrint2Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure TdbchexiaoClick(Sender: TObject); + private + DQdate: TDateTime; + TblCprk: string; + procedure InitGrid(); + procedure InitPH(); + procedure InitForm(); + function DelData(): Boolean; + procedure InitGridFH(); + procedure Query_MJ(mjid: string); + function SaveData(): Boolean; + function YSData(Order_Main10: TClientDataSet): Boolean; + function YSData_other(Order_Main10: TClientDataSet; FYFName: string; fMoney: double): Boolean; + function SaveEjK(FNO, FID, fBCID, fCkNO: string): boolean; + function SaveEjK10(FNO, FID, fBCID, fCkNO: string): boolean; + procedure CreateTable(); + procedure DropTable(); + { Private declarations } + public + fDParameters1: string; + FFInt, FCloth: Integer; + + { Public declarations } + end; + +var + frmProductOrder_Ph: TfrmProductOrder_Ph; + +implementation + +uses + U_DataLink, U_OrderInPut, U_Fun, U_CKProductBCPKCListSel, U_CKSMEdit, U_KCEdit; + +{$R *.dfm} +function TfrmProductOrder_Ph.SaveEjK10(FNO, FID, fBCID, fCkNO: string): boolean; +var + fkcID: integer; + Filler: string; + FillTime: TdateTime; +begin + result := false; + try + + with CDS_PH do + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from WFB_MJJY1'); + sql.Add('where 1=2 '); + open; + end; + // fkcID:=strtoint(RightBStr(trim(FNO),length(FNO)-3)+trim(FID)); + ADOQueryCmd.Append; + + ADOQueryCmd.FieldByName('CRTime').Value := formatdateTime('yyyy-MM-dd', CRdate.Date); + // ADOQueryCmd.FieldByName('CKName').Value:='㶫ֿ'; + // ADOQueryCmd.FieldByName('CRType').Value:='㶫'; + // ADOQueryCmd.FieldByName('CRFlag').Value:=''; + ADOQueryCmd.FieldByName('mainID').Value := trim(fieldbyname('mainID').AsString); + 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('MJTYPE').Value := trim(fieldbyname('MJType').AsString); + ADOQueryCmd.FieldByName('APID').Value := trim(fieldbyname('APID').AsString); + ADOQueryCmd.FieldByName('C_Code').Value := trim(fieldbyname('C_Code').AsString); + ADOQueryCmd.FieldByName('C_CodeName').Value := trim(fieldbyname('C_CodeName').AsString); + ADOQueryCmd.FieldByName('C_spec').Value := trim(fieldbyname('C_spec').AsString); + ADOQueryCmd.FieldByName('C_Color').Value := trim(fieldbyname('C_Color').AsString); + ADOQueryCmd.FieldByName('RCgangNO').Value := trim(fieldbyname('RCgangNO').AsString); + ADOQueryCmd.FieldByName('BCgangNO').Value := trim(fieldbyname('BCgangNO').AsString); + ADOQueryCmd.FieldByName('BCgangNO').Value := trim(fieldbyname('BCgangNO').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('MJLen').Value := fieldbyname('Qty').AsFloat; + ADOQueryCmd.FieldByName('MJQty1').Value := fieldbyname('Qty').AsFloat; + ADOQueryCmd.FieldByName('MJTypeOther').Value := trim(fieldbyname('QtyUnit').AsString); + ADOQueryCmd.FieldByName('Mjstr1').Value := trim(fieldbyname('QtyUnit').AsString); + ADOQueryCmd.FieldByName('Mjstr2').Value := 'δ'; + ADOQueryCmd.FieldByName('Mjstr3').Value := fCkNO; + // ADOQueryCmd.FieldByName('packNo').Value:=trim(fieldbyname('packNo').AsString); + ADOQueryCmd.FieldByName('note').Value := ''; + ADOQueryCmd.FieldByName('Filler').Value := trim(Filler); + ADOQueryCmd.FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp); + // ADOQueryCmd.FieldByName('fromMainID').Value:=trim(fCkNO); + ADOQueryCmd.FieldByName('BCID').Value := trim(fBCID); + // ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + ADOQueryCmd.Post; + end; + + result := true; + except + end; +end; + +function TfrmProductOrder_Ph.YSData_other(Order_Main10: TClientDataSet; FYFName: string; fMoney: double): Boolean; +var + CRID, YFID, Price, PriceUnit, OrderUnit, FComTaiTou, customName: string; +begin + Result := False; + with Order_Main10 do + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(Order_Main10.fieldbyname('CustomerNoName').AsString) + ''''); + sql.Add(' and YFDefFlag1=0 '); + Open; + end; + if not ADOQueryTemp.IsEmpty 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('CustomerNoName').AsString); + FieldByName('ZdyStr1').Value := 'Ӧ'; + Post; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('select * from YF_Money_CR '); + sql.Add(' where MainID=''' + Trim(Order_Main10.fieldbyname('MainID').AsString) + ''''); + sql.Add(' and subID=''' + Trim(Order_Main10.fieldbyname('subID').AsString) + ''''); + sql.Add(' and YFName=''' + trim(FYFName) + ''' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd, YFID, 'CS', 'YF_Money_CR', 4, 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('CustomerNoName').AsString); + FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', CRdate.Date)); + FieldByName('YFType').Value := 'Զ'; + FieldByName('Qty').Value := 0; + FieldByName('Price').Value := 0; + FieldByName('HuiLv').Value := 1; + FieldByName('money').Value := fMoney; + FieldByName('BBmoney').Value := fMoney; + FieldByName('BZType').Value := ''; + FieldByName('QtyUnit').Value := 'M'; + FieldByName('ComTaiTou').Value := Trim(Order_Main10.fieldbyname('CustomerNoName').AsString); + FieldByName('YFName').Value := trim(FYFName); + FieldByName('P_CodeName').Value := Trim(Order_Main10.fieldbyname('PRTCodeName').AsString); + FieldByName('P_Color').Value := Trim(Order_Main10.fieldbyname('PRTColor').AsString); + FieldByName('MainId').Value := Trim(Order_Main10.fieldbyname('Mainid').AsString); + FieldByName('subID').Value := Trim(Order_Main10.fieldbyname('subID').AsString); + FieldByName('SYRName').Value := Trim(Order_Main10.fieldbyname('SYRName').AsString); + FieldByName('YFDefFlag1').Value := 0; + FieldByName('status').Value := '1'; + Post; + end; + end + else + begin + YFID := Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID=''' + trim(YFID) + ''''); + Open; + edit; + FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', CRdate.Date)); + post; + 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; + end; + Result := True; +end; + +procedure TfrmProductOrder_Ph.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 ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; + +procedure TfrmProductOrder_Ph.CreateTable(); +var + strSQL: string; +begin + TblCprk := '[##CP_PH' + 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),' + 'BCID Varchar(20))'#13; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; + +function TfrmProductOrder_Ph.SaveEjK(FNO, FID, fBCID, fCkNO: string): boolean; +var + fkcID: integer; + Filler: string; + FillTime: TdateTime; +begin + result := false; + try + + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update BP_Kcid Set kcid=kcid+1'); + sql.Add('select kcid from BP_Kcid'); + Open; + end; + fkcID := ADOQueryCmd.fieldbyname('kcid').AsInteger; + + with CDS_PH do + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from BP_InOut'); + sql.Add('where 1=2 '); + open; + end; + // fkcID:=strtoint(RightBStr(trim(FNO),length(FNO)-3)+trim(FID)); + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('CRNO').Value := trim(FNO); + ADOQueryCmd.FieldByName('CRID').Value := FID; + ADOQueryCmd.FieldByName('CRTime').Value := formatdateTime('yyyy-MM-dd', CRdate.Date); + ADOQueryCmd.FieldByName('CKName').Value := 'Ʒֿ'; + ADOQueryCmd.FieldByName('CRType').Value := 'Ʒ'; + ADOQueryCmd.FieldByName('CRFlag').Value := ''; + ADOQueryCmd.FieldByName('mainID').Value := trim(fieldbyname('mainID').AsString); + 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('MJType').AsString); + ADOQueryCmd.FieldByName('P_Code').Value := trim(fieldbyname('C_Code').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value := trim(fieldbyname('C_CodeName').AsString); + ADOQueryCmd.FieldByName('P_spec').Value := trim(fieldbyname('C_spec').AsString); + ADOQueryCmd.FieldByName('P_Color').Value := trim(fieldbyname('C_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('packNo').Value := trim(fieldbyname('packNo').AsString); + ADOQueryCmd.FieldByName('note').Value := ''; + ADOQueryCmd.FieldByName('Filler').Value := trim(Filler); + ADOQueryCmd.FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp); + ADOQueryCmd.FieldByName('fromMainID').Value := trim(fCkNO); + ADOQueryCmd.FieldByName('FromSubID').Value := trim(fBCID); + ADOQueryCmd.FieldByName('kcID').Value := fkcID; + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from BP_KC'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('kcID').Value := fkcID; + ADOQueryCmd.FieldByName('CKName').Value := 'Ʒֿ'; + ADOQueryCmd.FieldByName('CRType').Value := 'Ʒ'; + ADOQueryCmd.FieldByName('CRNO').Value := trim(FNO); + ADOQueryCmd.FieldByName('CRID').Value := FID; + ADOQueryCmd.FieldByName('CRTime').Value := formatdateTime('yyyy-MM-dd', CRdate.Date); + 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('C_Code').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value := trim(fieldbyname('C_CodeName').AsString); + ADOQueryCmd.FieldByName('P_spec').Value := trim(fieldbyname('C_spec').AsString); + ADOQueryCmd.FieldByName('P_Color').Value := trim(fieldbyname('C_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('kcID').Value := fkcID; + ADOQueryCmd.Post; + end; + result := true; + except + end; +end; + +function TfrmProductOrder_Ph.YSData(Order_Main10: TClientDataSet): Boolean; +var + CRID, YFID, Price, PriceUnit, OrderUnit, FComTaiTou, customName: string; +begin + Result := False; + with Order_Main10 do + begin + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(Order_Main10.fieldbyname('CustomerNoName').AsString) + ''''); + sql.Add(' and YFDefFlag1=0 '); + Open; + end; + if not ADOQueryTemp.IsEmpty 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('CustomerNoName').AsString); + FieldByName('ZdyStr1').Value := 'Ӧ'; + Post; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('select * from YF_Money_CR '); + sql.Add(' where MainID=''' + Trim(Order_Main10.fieldbyname('MainID').AsString) + ''''); + sql.Add(' and subID=''' + Trim(Order_Main10.fieldbyname('subID').AsString) + ''''); + sql.Add(' and YFName=''۽'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd, YFID, 'CS', 'YF_Money_CR', 4, 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('CustomerNoName').AsString); + FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', CRdate.Date)); + FieldByName('YFType').Value := 'Զ'; + FieldByName('Price').Value := Order_Main10.fieldbyname('PRTPrice').Value; + FieldByName('HuiLv').Value := 1; + FieldByName('BZType').Value := ''; + FieldByName('QtyUnit').Value := 'M'; + FieldByName('ComTaiTou').Value := Trim(Order_Main10.fieldbyname('CustomerNoName').AsString); + FieldByName('YFName').Value := '۽'; + FieldByName('P_CodeName').Value := Trim(Order_Main10.fieldbyname('PRTCodeName').AsString); + FieldByName('P_Color').Value := Trim(Order_Main10.fieldbyname('PRTColor').AsString); + FieldByName('MainId').Value := Trim(Order_Main10.fieldbyname('Mainid').AsString); + FieldByName('subID').Value := Trim(Order_Main10.fieldbyname('subID').AsString); + FieldByName('SYRName').Value := Trim(Order_Main10.fieldbyname('SYRName').AsString); + FieldByName('note').Value := Trim(Order_Main10.fieldbyname('Sorddefnote1').AsString); + FieldByName('YFDefFlag1').Value := 0; + FieldByName('status').Value := '1'; + Post; + end; + end + else + begin + YFID := Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID=''' + trim(YFID) + ''''); + Open; + edit; + FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', CRdate.Date)); + post; + 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(' where A.mainID=YF_Money_CR.mainID and A.subiD=YF_Money_CR.subiD and A.CRType='''' )'); + sql.Add(',PS=(select isnull(count(A.MJID),0) from CK_BanCP_CR 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=cast(Price*Qty as decimal(18,0)),BBMoney=cast(Price*Qty*HuiLv as decimal(18,0)) '); + 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; + +function TfrmProductOrder_Ph.SaveData(): Boolean; +var + phID: string; +begin + Result := false; + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_PH '); + sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + + with CDS_PH do + begin + DisableControls; + first; + while not eof do + begin + if fieldbyname('qty').AsFloat = 0 then + continue; + if GetLSNo(ADOQueryTemp, phID, 'PH', 'CK_BanCP_PH', 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_PH '); + sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('phID').Value := trim(phID); + ADOQueryCmd.FieldByName('conNo').Value := trim(fieldbyname('conNo').AsString); + ADOQueryCmd.FieldByName('MainID').Value := trim(Order_Main.fieldbyname('MainID').AsString); + ADOQueryCmd.FieldByName('SubID').Value := trim(Order_Main.fieldbyname('SubID').AsString); + ADOQueryCmd.FieldByName('PMainID').Value := trim(fieldbyname('PMainID').AsString); + ADOQueryCmd.FieldByName('PSubID').Value := trim(fieldbyname('PSubID').AsString); + ADOQueryCmd.FieldByName('mjID').Value := trim(fieldbyname('mjID').AsString); + ADOQueryCmd.FieldByName('CRID').Value := trim(fieldbyname('CRID').AsString); + ADOQueryCmd.FieldByName('qtyunit').Value := trim(fieldbyname('kcqtyunit').AsString); + ADOQueryCmd.FieldByName('qty').Value := fieldbyname('qty').AsFloat; + ADOQueryCmd.FieldByName('Rollnum').Value := fieldbyname('Rollnum').AsFloat; + ADOQueryCmd.FieldByName('Filler').Value := trim(DName); + ADOQueryCmd.FieldByName('FillTime').Value := date(); + ADOQueryCmd.Post; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where mjid=' + quotedstr(trim(CDS_PH.fieldbyname('mjid').AsString))); + sql.Add('and CRID=' + quotedstr(trim(CDS_PH.fieldbyname('CRID').AsString))); + open; + edit; + fieldbyname('kcstatus').Value := '1'; + post; + end; + next; + end; + first; + EnableControls; + + 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 subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value := '2'; + post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result := true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmProductOrder_Ph.Query_MJ(mjid: string); +begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select A.*,Rollnum=A.kcRollNum,Qty=A.kcQty,B.mjxh,D.mainID,D.subID,D.C_Code,D.C_CodeName,D.C_Spec,F.conNo '); + sql.Add('from CK_BanCP_KC A '); + sql.Add('inner join WFB_MJJY B on B.mjid=A.mjid '); + sql.Add('inner join Contract_Sub D on D.MainId=B.mainID and D.SubId=b.subID '); + sql.Add('inner join Contract_main F on F.MainId=F.mainID '); + sql.Add('where A.mjID=' + quotedstr(trim(mjid))); + open; + if IsEmpty then + begin + application.MessageBox('˾Ų!', 'ʾϢ', MB_ICONERROR); + exit; + end + else if CDS_PH.Locate('mjid', fieldbyname('MjID').AsString, []) then + begin + application.MessageBox('˾Ѽ!', 'ʾϢ', MB_ICONERROR); + exit; + end + else + begin + CDS_PH.Append; + CDS_PH.FieldByName('conNo').Value := trim(fieldbyname('conNo').AsString); + CDS_PH.FieldByName('mjid').Value := trim(fieldbyname('mjid').AsString); + // CDS_PH.FieldByName('mjxh').Value:=trim(fieldbyname('mjxh').AsString); + CDS_PH.FieldByName('C_CodeName').Value := trim(fieldbyname('C_CodeName').AsString); + CDS_PH.FieldByName('C_Spec').Value := trim(fieldbyname('C_Spec').AsString); + CDS_PH.FieldByName('PMainID').Value := trim(fieldbyname('MainID').AsString); + CDS_PH.FieldByName('PSubID').Value := trim(fieldbyname('SubID').AsString); + CDS_PH.FieldByName('kcqtyunit').Value := trim(fieldbyname('kcqtyunit').AsString); + CDS_PH.FieldByName('kcqty').Value := fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('kcRollnum').Value := fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('Qty').Value := fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('RollNum').Value := fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('CRID').Value := fieldbyname('CRID').AsFloat; + CDS_PH.Post; + end; + end; +end; + +procedure TfrmProductOrder_Ph.InitPH(); +begin + if ADOQueryMain.Active = False then + Exit; + if Order_Main.IsEmpty then + EXIT; + try + ADO_PH.DisableControls; + with ADO_PH do + begin + Close; + sql.Clear; + Filtered := False; + sql.Add('select A.*,B.KCKGQty,B.KCQty,B.KCQtyUnit,B.kcRollNum,B.CPType,B.C_Code,C.kckw,B.C_CodeName,B.C_Spec,B.C_Color,B.RCGangNo,E.MJType,E.apID,B.mjxh '); + sql.Add('from CK_BanCP_PH A '); + sql.Add('INNER join CK_BanCP_KC B on B.CRID=A.CRID '); + sql.Add('LEFT join CK_BanCP_CR C on C.CRID=B.CRID and CRFlag='''' '); + sql.Add('LEFT join WFB_MJJY E on A.MJID=E.MJID '); + sql.Add('where A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').asstring))); + sql.Add('and A.subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').asstring))); + sql.Add('order by A.phID '); + Open; + end; + SCreateCDS20(ADO_PH, CDS_PH); + SInitCDSData20(ADO_PH, CDS_PH); + finally + ADO_PH.EnableControls; + end; +end; + +procedure TfrmProductOrder_Ph.FormDestroy(Sender: TObject); +begin + frmProductOrder_Ph := nil; +end; + +procedure TfrmProductOrder_Ph.FormClose(Sender: TObject; var Action: TCloseAction); +begin + + Action := caFree; +end; + +procedure TfrmProductOrder_Ph.FormCreate(Sender: TObject); +begin + cxgrid2.Align := alClient; +// CreateTable(); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate := SGetServerDate(ADOQueryTemp); + + CRdate.DateTime := DQdate; + cxTabControl1.TabIndex := 0; + del.Visible := false; + phwc.Visible := false; + phok.Visible := false; + fh.Visible := false; + Panel2.Visible := false; + ToolButton4.Visible := false; + // TV2.OptionsData.Editing:=false; + ToolButton5.Visible := false; + case cxTabControl1.TabIndex of + 0: + begin + del.Visible := true; + phwc.Visible := true; + Panel2.Visible := true; + ToolButton4.Visible := true; + // TV2.OptionsData.Editing:=true; + end; + 1: + begin + phok.Visible := true; + ToolButton5.Visible := true; + end; + 2: + begin + fh.Visible := true; + ToolButton5.Visible := true; + end; + 3: + begin + end; + end; + application.ProcessMessages; +end; + +procedure TfrmProductOrder_Ph.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth <> 1 then + WriteCxGrid(self.Caption, Tv1, 'ָʾ') + else + WriteCxGrid(self.Caption, Tv1, 'ָʾ'); + + WriteCxGrid(self.Caption + tv2.name, Tv2, 'ָʾ'); +end; + +procedure TfrmProductOrder_Ph.InitGrid(); +var + strwhere: string; +begin + strwhere := ''; + + if cxTabControl1.TabIndex = 0 then + begin + strwhere := strwhere + ' and isnull(substatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + ''''; + + strwhere := strwhere + ' and isnull(OrderType,''0'')<>'''' '; + end; + if (cxTabControl1.TabIndex >= 1) and (cxTabControl1.TabIndex < 3) then + strwhere := strwhere + ' and isnull(substatus,''0'')=''' + inttostr(cxTabControl1.TabIndex + 1) + ''''; + + + // strwhere:=strwhere+' and CustomerNoName<>''㶫в'' '; + + + strwhere := strwhere + ' and B.syrName<>''˷֯'' and isnull(OrderType,''0'')<>'''' '; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.add('exec P_View_Order ''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ''',''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''',' + QuotedStr(strwhere) + ' '); +// Parameters.ParamByName('WSql').Value := strwhere; +// Parameters.ParamByName('begdate').Value := ; +// Parameters.ParamByName('enddate').Value := ; +// ShowMessage(SQL.text); + ExecSQL; + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + TBFind.Click; + finally + ADOQueryMain.EnableControls; + + end; +end; + +procedure TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.InitForm(); +begin + + if FCloth <> 1 then + ReadCxGrid(self.Caption, Tv1, 'ָʾ') + else + ReadCxGrid(self.Caption, Tv1, 'ָʾ'); + + ReadCxGrid(self.Caption + tv2.name, Tv2, 'ָʾ'); + if FCloth = 1 then + begin + v1Column4.Visible := True; + + end + else + begin + v1Column4.Visible := False; + end; + BegDate.DateTime := SGetServerDate10(ADOQueryTemp); + 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 TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + SelExportData(Tv1, ADOQueryMain, 'ָʾб'); +end; + +procedure TfrmProductOrder_Ph.TBPrintClick(Sender: TObject); +var + fPrintFile: string; + Porderno, PRTCodeName, funit: string; + i, j: Integer; +begin + if Order_Main.IsEmpty then + Exit; + if Trim(DParameters1) <> 'Ȩ' then + begin + 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('OrdFlag1').AsBoolean = True then + begin + Application.MessageBox('Ѵӡݣٴδӡ!', 'ʾ', 0); + Exit; + end; + end; + + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf'; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select PRTRollNum=Cast('''' as varchar(200)),PRTOrderQty=Cast('''' as varchar(200)),PRTCodeName,PRTOrderQty2=Cast('''' as varchar(200)),PRTCodeName,PRTOrderQty3=Cast('''' as varchar(200)),PRTCodeName, '); + sql.add('PRTColor=Cast('''' as varchar(200))'); + sql.Add(' from JYOrder_Sub '); + sql.Add(' where 1<>1 '); + Open; + end; + SCreateCDS20(ADOQueryPrint, CDS_Print); + SInitCDSData20(ADOQueryPrint, CDS_Print); + if CDS_Print.IsEmpty = False then + CDS_Print.Delete; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select *,case when PRTRollNum<>0 then ''ƥ'' else OrderUnit end Unit '); + sql.Add(' from JYOrder_Sub '); + sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + Open; + end; + ADOQueryPrint.DisableControls; + CDS_Print.DisableControls; + with ADOQueryPrint do + begin + First; + while not Eof do + begin + if CDS_Print.IsEmpty then + begin + with CDS_Print do + begin + Append; + FieldByName('PRTCodeName').Value := ADOQueryPrint.fieldbyname('PRTCodeName').Value; + FieldByName('PRTColor').Value := ADOQueryPrint.fieldbyname('PRTColor').Value; + FieldByName('PRTRollNum').Value := Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)); + // FieldByName('PRTOrderQty').Value:=Trim(FloatToStr(ADOQueryPrint.fieldbyname('PRTOrderQty').Value)); + if trim(ADOQueryPrint.FieldByName('unit').AsString) = 'ƥ' then + FieldByName('PRTOrderQty').Value := trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty').Value := trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + trim(ADOQueryPrint.FieldByName('unit').AsString); + Post; + i := 1; + PRTCodeName := Trim(ADOQueryPrint.fieldbyname('PRTCodeName').AsString); + funit := Trim(ADOQueryPrint.fieldbyname('Unit').AsString); + end; + end + else + begin + if (Trim(ADOQueryPrint.fieldbyname('PRTCodeName').AsString) = PRTCodeName) and (Trim(ADOQueryPrint.fieldbyname('Unit').AsString) = funit) then + begin + if i < 3 then + begin + with CDS_Print do + begin + Edit; + FieldByName('PRTColor').Value := Trim(FieldByName('PRTColor').AsString) + ',' + Trim(ADOQueryPrint.fieldbyname('PRTColor').AsString); + FieldByName('PRTRollNum').Value := Trim(FieldByName('PRTRollNum').AsString) + ',' + Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)); + // FieldByName('PRTOrderQty').Value:=Trim(FieldByName('PRTOrderQty').AsString)+','+Trim(FloatToStr(ADOQueryPrint.fieldbyname('PRTOrderQty').Value)); + + if i = 1 then + begin + if trim(ADOQueryPrint.FieldByName('unit').AsString) = 'ƥ' then + FieldByName('PRTOrderQty2').Value := trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty2').Value := trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + trim(ADOQueryPrint.FieldByName('unit').AsString); + end; + if i = 2 then + begin + if trim(ADOQueryPrint.FieldByName('unit').AsString) = 'ƥ' then + FieldByName('PRTOrderQty3').Value := trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty3').Value := trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + trim(ADOQueryPrint.FieldByName('unit').AsString); + end; + Post; + end; + i := i + 1; + end + else + begin + with CDS_Print do + begin + Append; + FieldByName('PRTCodeName').Value := ADOQueryPrint.fieldbyname('PRTCodeName').Value; + FieldByName('PRTColor').Value := ADOQueryPrint.fieldbyname('PRTColor').Value; + FieldByName('PRTRollNum').Value := Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)); + // FieldByName('PRTOrderQty').Value:=Trim(FloatToStr(ADOQueryPrint.fieldbyname('PRTOrderQty').Value)); + + if trim(ADOQueryPrint.FieldByName('unit').AsString) = 'ƥ' then + FieldByName('PRTOrderQty').Value := trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty').Value := trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + trim(ADOQueryPrint.FieldByName('unit').AsString); + + Post; + i := 1; + PRTCodeName := Trim(ADOQueryPrint.fieldbyname('PRTCodeName').AsString); + funit := Trim(ADOQueryPrint.fieldbyname('Unit').AsString); + end; + end; + end + else + begin + with CDS_Print do + begin + Append; + FieldByName('PRTCodeName').Value := ADOQueryPrint.fieldbyname('PRTCodeName').Value; + FieldByName('PRTColor').Value := ADOQueryPrint.fieldbyname('PRTColor').Value; + FieldByName('PRTRollNum').Value := Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)); + if trim(ADOQueryPrint.FieldByName('unit').AsString) = 'ƥ' then + FieldByName('PRTOrderQty').Value := trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty').Value := trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + trim(ADOQueryPrint.FieldByName('unit').AsString); + + Post; + i := 1; + PRTCodeName := Trim(ADOQueryPrint.fieldbyname('PRTCodeName').AsString); + funit := Trim(ADOQueryPrint.fieldbyname('Unit').AsString); + end; + end; + end; + Next; + end; + end; + ADOQueryPrint.EnableControls; + CDS_Print.EnableControls; + if FileExists(fPrintFile) then + begin + RMVariables['customerNoName'] := Trim(Order_Main.fieldbyname('customerNoName').AsString); + RMVariables['OrderNo'] := Trim(Order_Main.fieldbyname('OrderNo').AsString); + RMVariables['Note'] := Trim(Order_Main.fieldbyname('Note').AsString); + RMVariables['FHAddress'] := Trim(Order_Main.fieldbyname('FHAddress').AsString); + RMVariables['LXFS'] := Trim(Order_Main.fieldbyname('LXFS').AsString); + RMVariables['OrdDate'] := Order_Main.fieldbyname('OrdDate').Value; + RMVariables['OrdPerson1'] := Order_Main.fieldbyname('OrdPerson1').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf'), 'ʾ', 0); + end; + if Trim(DParameters1) <> 'Ȩ' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdDefDate1=getdate(),OrdPerson1=''' + Trim(DName) + ''',OrdFlag1=1'); + sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + ExecSQL; + end; + + end; + +end; + +procedure TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrder_Ph.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + // if ToolButton1.Visible=False then Exit; +// ToolButton1.Click; + +end; + +procedure TfrmProductOrder_Ph.TBTPClick(Sender: TObject); +var + FQty, FQty1, FMxQty, FPQty, FMxQtyS, FPQtyS: string; +begin +end; + +procedure TfrmProductOrder_Ph.CheckBox1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + with Order_Main do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value := checkbox1.Checked; + post; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmProductOrder_Ph.CheckBox2Click(Sender: TObject); +begin + if CDS_PH.IsEmpty then + exit; + with CDS_PH do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value := checkbox2.Checked; + post; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.ToolButton3Click(Sender: TObject); +begin + ModalResult := 1; +end; + +procedure TfrmProductOrder_Ph.OrderNoKeyPress(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 A.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 TfrmProductOrder_Ph.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 TfrmProductOrder_Ph.Edit1KeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + Query_MJ(Edit1.Text); + end; +end; + +procedure TfrmProductOrder_Ph.phwcClick(Sender: TObject); +var + phRollNum, phQty: double; +begin + if cds_ph.IsEmpty then + exit; + + with CDS_PH do + begin + DisableControls; + first; + while not eof do + begin + if (trim(fieldbyname('C_CodeName').AsString) <> trim(Order_Main.FieldByName('PRTCodeName').AsString)) or (trim(fieldbyname('C_Color').AsString) <> trim(Order_Main.FieldByName('PRTColor').AsString)) then + begin + application.MessageBox('Ʒƻɫһ', 'ʾϢ', 0); + EnableControls; + exit; + end; + next; + end; + first; + EnableControls; + end; + phRollNum := 0; + phQty := 0; + with CDS_PH do + begin + DisableControls; + first; + while not eof do + begin + phRollNum := phRollNum + CDS_PH.fieldbyname('RollNum').AsFloat; + phQty := phQty + CDS_PH.fieldbyname('Qty').AsFloat; + next; + end; + first; + EnableControls; + end; + + if (phRollNum <> Order_Main.FieldByName('PRTRollNum').AsFloat) or (phQty <> Order_Main.FieldByName('PRTOrderQty').AsFloat) then + begin + if Application.MessageBox('δﵽҪȷ', 'ʾϢ', 32 + 4) <> IDYES then + Exit; + end; + + if SaveData() then + begin + application.MessageBox('ɹ!', 'ʾϢ'); + TBRafresh.Click; + end + else + begin + application.MessageBox('ʧ!', 'ʾϢ', 0); + end; +end; + +procedure TfrmProductOrder_Ph.cxTabControl1Change(Sender: TObject); +begin + del.Visible := false; + phwc.Visible := false; + phok.Visible := false; + fh.Visible := false; + Panel2.Visible := false; + ToolButton4.Visible := false; + // TV2.OptionsData.Editing:=false; + ToolButton5.Visible := false; + TBPrint1.Visible := false; + TBPrint2.Visible := false; + ToolButton6.Visible := false; + ToolButton8.Visible := false; + Tdbchexiao.Visible := false; + case cxTabControl1.TabIndex of + 0: + begin + del.Visible := true; + phwc.Visible := true; + Panel2.Visible := true; + if fDParameters1 = 'Ȩ' then + ToolButton4.Visible := true; + // TV2.OptionsData.Editing:=true; + end; + 1: + begin + fh.Visible := true; + ToolButton5.Visible := true; + if fDParameters1 = 'Ȩ' then + begin + ToolButton6.Visible := true; + ToolButton8.Visible := true; + end; + Tdbchexiao.Visible := true; + end; + 2: + begin + TBPrint1.Visible := true; + TBPrint2.Visible := true; + end; + end; + application.ProcessMessages; + initGrid(); +end; + +procedure TfrmProductOrder_Ph.phokClick(Sender: TObject); +begin + if cds_ph.IsEmpty then + exit; + try + 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 subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value := '2'; + post; + end; + application.MessageBox('ȷϳɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ȷʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmProductOrder_Ph.delClick(Sender: TObject); +begin + if cds_ph.IsEmpty then + exit; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_PH '); + sql.Add('where PHID=' + quotedstr(trim(cds_ph.fieldbyname('PHID').AsString))); + execsql; + end; + cds_ph.Delete; +end; + +procedure TfrmProductOrder_Ph.fhClick(Sender: TObject); +var + CKOrdNo, maxno, rkNo: string; + i, fRoll: integer; + fNum: double; +begin + if cds_ph.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; +{ fRoll:=0; + fNum:=0; + with Order_Main do + begin + First; + DisableControls; + while not eof do + begin + if FieldByName('ssel').AsBoolean then + begin + fRoll:=fRoll+ Fieldbyname('PH_RollNum').AsInteger; + fNum:=fNum+ Fieldbyname('PH_Qty').AsFloat; + end; + next; + end; + First; + EnableControls + end; + + IF fRoll<>strtointdef(trim(froll1.Text),0) then + begin + application.MessageBox('ƥȷܷ','ʾϢ',0); + exit; + end; + IF fnum<>strtofloatdef(trim(fnum1.Text),0) then + begin + application.MessageBox('ȷܷ','ʾϢ',0); + exit; + end; } + + ADOQueryCmd.Connection.BeginTrans; + try + Order_Main.First; + Order_Main.DisableControls; + CDS_ph.DisableControls; + while not Order_Main.eof do + begin + if Order_Main.FieldByName('ssel').AsBoolean then + begin + initPH(); + if GetLSNo(ADOQueryCmd, CKOrdNo, 'CK', 'CK_BanCP_CR', 3, 1) = False then + begin + Application.MessageBox('ȡⵥʧ!', 'ʾ', 0); + Exit; + end; + if Order_Main.FieldByName('customerNoName').AsString = 'Ʒ' then + begin + if GetLSNo(ADOQueryCmd, rkNo, 'RK', 'BP_InOut', 3, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + + end; + i := 1; + with CDS_ph do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select P_Status from CK_BanCp_PH where PHID=' + quotedstr(trim(CDS_ph.fieldbyname('PHID').AsString))); + sql.Add('and isnull(P_Status,''0'')>=''1'''); + open; + if not IsEmpty then + begin + Order_Main.EnableControls; + CDS_ph.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('˵Ѿˢݣ', 'ʾ', 0); + Exit; + end; + end; + 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_ph.fieldbyname('CRID').Value; + FieldByName('CRTime').Value := FormatDateTime('yyyy-MM-dd', CRdate.DateTime); + FieldByName('KGQty').Value := CDS_ph.fieldbyname('KGQty').AsFloat; + FieldByName('Qty').Value := CDS_ph.fieldbyname('Qty').AsFloat; + FieldByName('RollNum').Value := CDS_ph.fieldbyname('RollNum').AsFloat; + FieldByName('QtyUnit').Value := CDS_ph.fieldbyname('QtyUnit').Value; + FieldByName('MJID').Value := CDS_ph.fieldbyname('MJID').Value; + FieldByName('MainID').Value := CDS_ph.fieldbyname('MainID').Value; + FieldByName('SubID').Value := CDS_ph.fieldbyname('SubID').Value; + FieldByName('APID').Value := CDS_ph.fieldbyname('apid').Value; + FieldByName('MJID').Value := CDS_ph.fieldbyname('MJID').Value; + FieldByName('MJxh').Value := CDS_ph.fieldbyname('MJxh').Value; + FieldByName('CPType').Value := CDS_ph.fieldbyname('MJType').Value; + FieldByName('kckw').Value := CDS_ph.fieldbyname('kckw').Value; + FieldByName('C_Code').Value := trim(CDS_ph.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value := trim(CDS_ph.fieldbyname('C_CodeName').AsString); + FieldByName('C_spec').Value := trim(CDS_ph.fieldbyname('C_spec').AsString); + FieldByName('C_Color').Value := trim(CDS_ph.fieldbyname('C_Color').AsString); + FieldByName('BCGangNO').Value := trim(CDS_ph.fieldbyname('BCGangNO').AsString); + FieldByName('RCGangNO').Value := trim(CDS_ph.fieldbyname('RCGangNO').AsString); + FieldByName('packNo').Value := trim(CDS_ph.fieldbyname('packNo').AsString); + FieldByName('PHID').Value := trim(CDS_ph.fieldbyname('PHID').AsString); + FieldByName('Filler').Value := Trim(DName); + FieldByName('CRFlag').Value := ''; + FieldByName('CRType').Value := ''; + FieldByName('CPType').Value := trim(CDS_ph.fieldbyname('CPType').AsString); + FieldByName('CKOrdNo').Value := Trim(CKOrdNo); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCp_PH where PHID=' + quotedstr(trim(CDS_ph.fieldbyname('PHID').AsString))); + open; + edit; + fieldbyname('P_Status').Value := '1'; + post; + end; + { if Order_Main.FieldByName('customerNoName').AsString='' then + begin + if not SaveEjK10('','',maxno,CKOrdNo) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + if Order_Main.FieldByName('customerNoName').AsString='Ʒ' then + begin + if not SaveEjK(rkNo,inttostr(i),maxno,CKOrdNo) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + + if Order_Main.FieldByName('customerNoName').AsString='㶫в' then + begin + if not SaveEjK(rkNo,inttostr(i),maxno,CKOrdNo) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; } + i := i + 1; + next; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCp_KC SET kcstatus=null,KCKgQty =A.KCKgQty -B.KgQty,KCQty =A.KCQty -B.Qty,KCRollNum =A.KCRollNum -B.RollNum '); + 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 =' + Quotedstr(trim(CKOrdNo))); + ExecSQL; + end; + + 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 subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value := '3'; + post; + end; + end; + if not YSData(Order_Main) then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ'); + exit; + end; + if Order_Main.FieldByName('GangFee').AsFloat > 0 then + begin + if not YSData_other(Order_Main, '׷', Order_Main.FieldByName('GangFee').AsFloat) then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ'); + exit; + end; + end; + if Order_Main.FieldByName('YunFee').AsFloat > 0 then + begin + if not YSData_other(Order_Main, '˷', Order_Main.FieldByName('YunFee').AsFloat) then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ'); + exit; + end; + end; + if Order_Main.FieldByName('OtherFee').AsFloat > 0 then + begin + if not YSData_other(Order_Main, '', Order_Main.FieldByName('OtherFee').AsFloat) then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ'); + exit; + end; + end; + + end; + Order_Main.Next; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCp_KC SET KCRollNum =1 '); + sql.Add('WHERE (KCQty<>0 or KCKgQty<>0)and KcRollNum=0 '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' update CK_BanCP_KC SET KCQty=0,kcRollNum=0 where KCQty>0 and '); + sql.Add(' exists(select X.MJID from CK_BanCP_CR X where X.MJID=CK_BanCP_KC.MJID and X.CRFlag='''') '); + ExecSQL; + end; + CDS_ph.EnableControls; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + if Application.MessageBox('ȷҪӡⵥ', 'ʾ', 32 + 4) = IDYES then + begin + TBPrint1.Click; + end; + TBRafresh.Click; + CRdate.DateTime := DQdate; + except + CDS_ph.EnableControls; + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ'); + end; +end; + +procedure TfrmProductOrder_Ph.ToolButton4Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + frmCKProductBCPKCListsel := TfrmCKProductBCPKCListsel.create(self); + with frmCKProductBCPKCListsel do + begin + { if Trim(DParameters1)<>'Ȩ' then + begin + v2RollNum.Visible:=false; + v2RollNum.Options.Editing:=false; + v2RollNum.Hidden:=true; + v2Qty.Visible:=false; + v2Qty.Options.Editing:=false; + v2Qty.Hidden:=true; + end; } + + v2RollNum.Visible := false; + v2RollNum.Options.Editing := false; + v2RollNum.Hidden := true; + v2Qty.Visible := false; + v2Qty.Options.Editing := false; + v2Qty.Hidden := true; + + fmainID := trim(self.Order_Main.FieldByName('mainID').AsString); + // C_CodeName.Text:= trim(self.Order_Main.FieldByName('PRTCodeName').AsString); + // C_Color.Text:= trim(self.Order_Main.FieldByName('PRTColor').AsString); + // FCodeName:= trim(self.Order_Main.FieldByName('PRTCodeName').AsString); + // fColor:= trim(self.Order_Main.FieldByName('PRTColor').AsString); + if showmodal = 1 then + begin + {CDS_PH.DisableControls; + CDS_Main.DisableControls; + CDS_Main.first; + while not CDS_Main.eof do + begin + if (CDS_Main.FieldByName('ssel').AsBoolean) and + (not CDS_PH.Locate('mjid',trim(CDS_Main.fieldbyname('mjid').AsString),[])) then + begin + CDS_PH.Append; + CDS_PH.FieldByName('conNo').Value:=trim(CDS_Main.fieldbyname('conNo').AsString); + CDS_PH.FieldByName('mjid').Value:=trim(CDS_Main.fieldbyname('mjid').AsString); + // CDS_PH.FieldByName('mjxh').Value:=trim(fieldbyname('mjxh').AsString); + CDS_PH.FieldByName('C_CodeName').Value:=trim(CDS_Main.fieldbyname('C_CodeName').AsString); + CDS_PH.FieldByName('C_Spec').Value:=trim(CDS_Main.fieldbyname('C_Spec').AsString); + CDS_PH.FieldByName('C_Color').Value:=trim(CDS_Main.fieldbyname('C_Color').AsString); + CDS_PH.FieldByName('PMainID').Value:=trim(CDS_Main.fieldbyname('MainID').AsString); + CDS_PH.FieldByName('PSubID').Value:=trim(CDS_Main.fieldbyname('SubID').AsString); + CDS_PH.FieldByName('kcqtyunit').Value:=trim(CDS_Main.fieldbyname('kcqtyunit').AsString); + CDS_PH.FieldByName('kcqty').Value:=CDS_Main.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('kcRollnum').Value:=CDS_Main.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('Qty').Value:=CDS_Main.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('RollNum').Value:=CDS_Main.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').AsFloat; + CDS_PH.Post; + end; + CDS_Main.next; + end; + CDS_PH.EnableControls; + CDS_Main.EnableControls } + CDS_PH.DisableControls; + CDS_SubSel.DisableControls; + CDS_SubSel.first; + while not CDS_SubSel.eof do + begin + if (not CDS_PH.Locate('CRID', trim(CDS_SubSel.fieldbyname('CRID').AsString), [])) then + begin + CDS_PH.Append; + CDS_PH.FieldByName('conNo').Value := trim(CDS_SubSel.fieldbyname('conNo').AsString); + CDS_PH.FieldByName('mjid').Value := trim(CDS_SubSel.fieldbyname('mjid').AsString); + // CDS_PH.FieldByName('mjxh').Value:=trim(fieldbyname('mjxh').AsString); + CDS_PH.FieldByName('C_CodeName').Value := trim(CDS_SubSel.fieldbyname('C_CodeName').AsString); + CDS_PH.FieldByName('C_Spec').Value := trim(CDS_SubSel.fieldbyname('C_Spec').AsString); + CDS_PH.FieldByName('C_Color').Value := trim(CDS_SubSel.fieldbyname('C_Color').AsString); + CDS_PH.FieldByName('PMainID').Value := trim(CDS_SubSel.fieldbyname('MainID').AsString); + CDS_PH.FieldByName('PSubID').Value := trim(CDS_SubSel.fieldbyname('SubID').AsString); + CDS_PH.FieldByName('kcqtyunit').Value := trim(CDS_SubSel.fieldbyname('kcqtyunit').AsString); + CDS_PH.FieldByName('kcqty').Value := CDS_SubSel.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('kcRollnum').Value := CDS_SubSel.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('Qty').Value := CDS_SubSel.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('RollNum').Value := CDS_SubSel.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('CRID').Value := CDS_SubSel.fieldbyname('CRID').AsFloat; + CDS_PH.Post; + end; + CDS_SubSel.next; + end; + CDS_PH.EnableControls; + CDS_SubSel.EnableControls; + end; + free; + end; + TBRafresh.Click; +end; + +procedure TfrmProductOrder_Ph.ToolButton5Click(Sender: TObject); +begin + if cds_ph.IsEmpty then + exit; + if cxTabControl1.TabIndex = 1 then + begin + if Application.MessageBox('ȷҪִв', 'ʾ', 32 + 4) <> IDYES then + Exit; + + try + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID=''' + Trim(Order_Main.fieldbyname('MainID').AsString) + ''''); + sql.Add(' and subID=''' + Trim(Order_Main.fieldbyname('subID').AsString) + ''''); + sql.Add(' and YFName=''۽'' '); + sql.Add(' and status>=''1'' '); + Open; + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('Ӧտûгˣܳ!', 'ʾ', 0); + exit; + end; + end; + 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 subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value := '0'; + post; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CK_BanCP_KC SET kcstatus=null '); + sql.Add('from CK_BanCP_KC A '); + sql.Add('inner join CK_BanCP_PH B on B.CRID=A.CRID '); + sql.Add('where B.mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and B.subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_PH '); + sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + application.MessageBox('ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; + end; + +{ if cxTabControl1.TabIndex=1 then + begin + try + 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 subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value:='0'; + post; + end; + application.MessageBox('ȷϳɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ȷʧܣ','ʾϢ',0); + end; + end; } +end; + +procedure TfrmProductOrder_Ph.TBPrint1Click(Sender: TObject); +var + filepath, fOrderNo: string; + i: integer; + Txt, fImagePath: 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; + + createTable(); + i := 0; + with Order_Main do + begin + DisableControls; + first; + while not eof do + begin + if Fieldbyname('ssel').AsBoolean then + begin + if i = 0 then + fOrderNo := trim(fieldbyname('OrderNo').AsString); + if (i > 0) and (trim(fieldbyname('OrderNo').AsString) <> fOrderNo) then + begin + application.MessageBox('ѡ˲ͬĶܴӡ', 'ʾϢ', 0); + EnableControls; + exit; + end; + with adoqueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' insert into ' + TblCprk + '(MainID,subID) values( '); + SQL.Add(' ' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + SQL.Add(',' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + sql.add(')'); + sql.Add('Update JYOrder_Main Set OrdFlag2=1'); + sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + execsql; + end; + i := i + 1; + end; + next; + end; + First; + EnableControls; + end; + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PrintMd10 '); + sql.Add('@mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + sql.Add(',@TblCprk=' + quotedstr(trim(TblCprk))); + 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; + + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(AdoPrint.fieldbyname('orderNo').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; + RMVariables['dtxz'] := FormatDateTime('yyyy-mm-dd', date()); + RMVariables['zdr'] := trim(DName); + RMVariables['Filler'] := trim(Order_Main.fieldbyname('Filler').AsString); + RMGridReport1.LoadFromFile(filepath); + // RMGridReport1.ShowReport; + RMGridReport1.PrintReport; + finally + DropTable(); + + end; + +end; + +procedure TfrmProductOrder_Ph.ToolButton6Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + frmCKProductBCPKCListsel := TfrmCKProductBCPKCListsel.create(self); + with frmCKProductBCPKCListsel do + begin + + fmainID := trim(self.Order_Main.FieldByName('mainID').AsString); + // C_CodeName.Text:= trim(self.Order_Main.FieldByName('PRTCodeName').AsString); + // C_Color.Text:= trim(self.Order_Main.FieldByName('PRTColor').AsString); + // FCodeName:= trim(self.Order_Main.FieldByName('PRTCodeName').AsString); + // fColor:= trim(self.Order_Main.FieldByName('PRTColor').AsString); + if showmodal = 1 then + begin + {CDS_PH.DisableControls; + CDS_Main.DisableControls; + CDS_Main.first; + while not CDS_Main.eof do + begin + if (CDS_Main.FieldByName('ssel').AsBoolean) and + (not CDS_PH.Locate('mjid',trim(CDS_Main.fieldbyname('mjid').AsString),[])) then + begin + CDS_PH.Append; + CDS_PH.FieldByName('conNo').Value:=trim(CDS_Main.fieldbyname('conNo').AsString); + CDS_PH.FieldByName('mjid').Value:=trim(CDS_Main.fieldbyname('mjid').AsString); + // CDS_PH.FieldByName('mjxh').Value:=trim(fieldbyname('mjxh').AsString); + CDS_PH.FieldByName('C_CodeName').Value:=trim(CDS_Main.fieldbyname('C_CodeName').AsString); + CDS_PH.FieldByName('C_Spec').Value:=trim(CDS_Main.fieldbyname('C_Spec').AsString); + CDS_PH.FieldByName('C_Color').Value:=trim(CDS_Main.fieldbyname('C_Color').AsString); + CDS_PH.FieldByName('PMainID').Value:=trim(CDS_Main.fieldbyname('MainID').AsString); + CDS_PH.FieldByName('PSubID').Value:=trim(CDS_Main.fieldbyname('SubID').AsString); + CDS_PH.FieldByName('kcqtyunit').Value:=trim(CDS_Main.fieldbyname('kcqtyunit').AsString); + CDS_PH.FieldByName('kcqty').Value:=CDS_Main.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('kcRollnum').Value:=CDS_Main.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('Qty').Value:=CDS_Main.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('RollNum').Value:=CDS_Main.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').AsFloat; + CDS_PH.Post; + end; + CDS_Main.next; + end; + CDS_PH.EnableControls; + CDS_Main.EnableControls } + CDS_PH.DisableControls; + CDS_SubSel.DisableControls; + CDS_SubSel.first; + while not CDS_SubSel.eof do + begin + if (not CDS_PH.Locate('CRID', trim(CDS_SubSel.fieldbyname('CRID').AsString), [])) then + begin + CDS_PH.Append; + CDS_PH.FieldByName('conNo').Value := trim(CDS_SubSel.fieldbyname('conNo').AsString); + CDS_PH.FieldByName('mjid').Value := trim(CDS_SubSel.fieldbyname('mjid').AsString); + // CDS_PH.FieldByName('mjxh').Value:=trim(fieldbyname('mjxh').AsString); + CDS_PH.FieldByName('C_CodeName').Value := trim(CDS_SubSel.fieldbyname('C_CodeName').AsString); + CDS_PH.FieldByName('C_Spec').Value := trim(CDS_SubSel.fieldbyname('C_Spec').AsString); + CDS_PH.FieldByName('C_Color').Value := trim(CDS_SubSel.fieldbyname('C_Color').AsString); + CDS_PH.FieldByName('PMainID').Value := trim(CDS_SubSel.fieldbyname('MainID').AsString); + CDS_PH.FieldByName('PSubID').Value := trim(CDS_SubSel.fieldbyname('SubID').AsString); + CDS_PH.FieldByName('kcqtyunit').Value := trim(CDS_SubSel.fieldbyname('kcqtyunit').AsString); + CDS_PH.FieldByName('kcqty').Value := CDS_SubSel.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('kcRollnum').Value := CDS_SubSel.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('Qty').Value := CDS_SubSel.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('RollNum').Value := CDS_SubSel.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('CRID').Value := CDS_SubSel.fieldbyname('CRID').AsFloat; + CDS_PH.Post; + end; + CDS_SubSel.next; + end; + CDS_PH.EnableControls; + CDS_SubSel.EnableControls; + end; + free; + end; + TBRafresh.Click; +end; + +procedure TfrmProductOrder_Ph.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + if Order_Main.IsEmpty then + exit; + initPH(); +end; + +procedure TfrmProductOrder_Ph.TBPrint2Click(Sender: TObject); +var + filepath, fOrderNo: string; + i: integer; +begin + if Order_Main.IsEmpty then + exit; + + if Order_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + + createTable(); + i := 0; + with Order_Main do + begin + DisableControls; + first; + while not eof do + begin + if Fieldbyname('ssel').AsBoolean then + begin + if i = 0 then + fOrderNo := trim(fieldbyname('OrderNo').AsString); + if (i > 0) and (trim(fieldbyname('OrderNo').AsString) <> fOrderNo) then + begin + application.MessageBox('ѡ˲ͬĶܴӡ', 'ʾϢ', 0); + EnableControls; + exit; + end; + with adoqueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' insert into ' + TblCprk + '(MainID,subID) values( '); + SQL.Add(' ' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + SQL.Add(',' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + sql.add(')'); + execsql; + end; + i := i + 1; + end; + next; + end; + First; + EnableControls; + end; + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PrintMd10 '); + sql.Add('@mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + sql.Add(',@TblCprk=' + quotedstr(trim(TblCprk))); + 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(Order_Main.fieldbyname('Filler').AsString); + RMGridReport1.LoadFromFile(filepath); + RMGridReport1.ShowReport; + finally + DropTable(); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdFlag2=1'); + sql.Add(' where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + ExecSQL; + end; + end; + +end; + +procedure TfrmProductOrder_Ph.ToolButton7Click(Sender: TObject); +begin + try + frmCKSMEdit := TfrmCKSMEdit.Create(Application); + with frmCKSMEdit do + begin + FphRollNum := Order_Main.fieldbyName('PRTRollNum').AsFloat; + FphQty := Order_Main.FieldByName('PRTOrderQty').AsFloat; + FOrderType := Order_Main.fieldbyName('OrderType').asstring; + show; + end; + finally + end; +end; + +procedure TfrmProductOrder_Ph.ToolButton8Click(Sender: TObject); +var + kcQty, num1: double; + i: integer; + isEdit: boolean; +begin + if not CDS_PH.Active then + exit; +{ if CDS_PH.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + } + isEdit := false; + + frmKCEdit := TfrmKCEdit.create(self); + with frmKCEdit do + begin + if showmodal = 1 then + begin + num1 := strtofloatdef(cxCurrencyEdit2.Text, 0); + i := RadioGroup1.ItemIndex; + isEdit := true; + end; + free; + end; + + if isEdit = false then + exit; + CDS_PH.first; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_PH do + begin + while CDS_PH.Locate('SSel', True, []) do + begin + if i = 0 then + kcQty := CDS_PH.fieldbyname('Qty').AsFloat + num1; + if i = 1 then + kcQty := CDS_PH.fieldbyname('Qty').AsFloat - num1; + if i = 2 then + kcQty := strtofloat(format('%.1f', [CDS_PH.fieldbyname('Qty').AsFloat * num1])); + if i = 3 then + kcQty := strtofloat(format('%.1f', [CDS_PH.fieldbyname('Qty').AsFloat / num1])); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' Update CK_BanCP_KC Set ZDYFlote1=KCqty '); + sql.Add(' where CRID=' + CDS_PH.Fieldbyname('CRID').AsString); + sql.Add(' and ZDYFlote1=0 '); + + sql.Add(' Update CK_BanCP_KC Set kcqty=''' + floattostr(kcQty) + ''',ZDYStr1='''' '); + sql.Add(' where CRID=' + CDS_PH.Fieldbyname('CRID').AsString); + sql.Add(' Update CK_BanCP_KC Set kcRollNum=0 '); + + sql.Add(' where CRID=' + CDS_PH.Fieldbyname('CRID').AsString); + sql.Add(' and kcqty=0 and kcRollNum<>0 '); + + sql.Add(' Update CK_BanCP_PH Set Qty=''' + floattostr(kcQty) + ''' '); + sql.Add(' where PHID=' + quotedstr(trim(CDS_PH.Fieldbyname('PHID').AsString))); + ExecSQL; + end; + Edit; + FieldByName('qty').Value := kcQty; + FieldByName('kcqty').Value := kcQty; + FieldByName('SSel').Value := False; + post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + // initGrid(); + Application.MessageBox('ɹ!', 'ʾ', 0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; + +end; + +procedure TfrmProductOrder_Ph.ToolButton9Click(Sender: TObject); +var + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + if CDS_PH.IsEmpty then + Exit; + if CDS_PH.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + CDS_PH.DisableControls; + with CDS_PH do + begin + First; + while not Eof do + begin + if CDS_PH.FieldByName('SSel').AsBoolean = True then + begin + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(CDS_PH.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); + CDS_PH.EnableControls; + exit; + end; + with ADOQueryPrint do //ӢƲҪƷжȡҪڿͻԶжȡnoteֶΡ + begin + Close; + SQL.Clear; + sql.Add('select A.*,kcQty as mjlen,kcQtyUnit as MJTypeother '); + sql.Add(' from CK_BanCP_KC A'); + SQL.Add(' where A.MJID=''' + Trim(CDS_PH.fieldbyname('MJID').AsString) + ''''); + SQL.Add(' and KCQty>0 '); + Open; + end; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨñǩ.rmf'; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RMGridReport1.LoadFromFile(fPrintFile); + // RMGridReport1.ShowReport; + RMGridReport1.PrintReport; + end + else + begin + CDS_PH.EnableControls; + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ǩ.rmf'), 'ʾ', 0); + Exit; + end; + end; + Next; + end; + end; + CDS_PH.EnableControls; + +end; + +procedure TfrmProductOrder_Ph.TdbchexiaoClick(Sender: TObject); +begin + if CDS_PH.IsEmpty then + exit; + CDS_PH.first; + try + if Application.MessageBox('ȷҪִв', 'ʾ', 32 + 4) <> IDYES then + Exit; + ADOQueryCmd.Connection.BeginTrans; + while not CDS_PH.eof do + begin + if CDS_PH.FieldByName('ssel').AsBoolean then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID=''' + Trim(Order_Main.fieldbyname('MainID').AsString) + ''''); + sql.Add(' and subID=''' + Trim(Order_Main.fieldbyname('subID').AsString) + ''''); + sql.Add(' and YFName=''۽'' '); + sql.Add(' and status>=''1'' '); + Open; + if not ADOQueryTemp.IsEmpty then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Ӧտûгˣܳ!', 'ʾ', 0); + exit; + end; + end; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CK_BanCP_KC SET kcstatus=null '); + sql.Add('from CK_BanCP_KC A '); + sql.Add('inner join CK_BanCP_PH B on B.CRID=A.CRID '); + sql.Add('where B.PHID=' + quotedstr(trim(CDS_PH.fieldbyname('PHID').AsString))); + execsql; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_PH '); + sql.Add('where PHID=' + quotedstr(trim(CDS_PH.fieldbyname('PHID').AsString))); + execsql; + end; + end; + CDS_PH.next; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_PH '); + sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + end; + if ADOQueryTemp.IsEmpty then + begin + 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 subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value := '0'; + post; + end; + end; + CDS_PH.first; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ!', 'ʾ', 0); + Exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +end. + diff --git a/管理系统/U_ProductOrder_Ph10.dfm b/管理系统/U_ProductOrder_Ph10.dfm new file mode 100644 index 0000000..0f560a1 --- /dev/null +++ b/管理系统/U_ProductOrder_Ph10.dfm @@ -0,0 +1,1310 @@ +object frmProductOrder_Ph10: TfrmProductOrder_Ph10 + Left = -8 + Top = -8 + Width = 1382 + Height = 754 + Caption = #37197#36135#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 = 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 ToolButton7: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #25195#25551#37197#36135 + ImageIndex = 3 + OnClick = ToolButton7Click + end + object TBAdd: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #26032#22686#37197#36135 + ImageIndex = 3 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 300 + Top = 0 + AutoSize = True + Caption = #20462#25913#37197#36135 + ImageIndex = 54 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 387 + Top = 0 + AutoSize = True + Caption = #21024#38500#37197#36135 + ImageIndex = 17 + OnClick = TBDelClick + end + object Tbcpfh: TToolButton + Left = 474 + Top = 0 + AutoSize = True + Caption = #25104#21697#21457#36135 + ImageIndex = 41 + OnClick = TbcpfhClick + end + object ToolButton2: TToolButton + Left = 561 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 624 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 106 + Visible = False + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 687 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + Visible = False + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 750 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 813 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBPrint1: TToolButton + Left = 876 + Top = 0 + AutoSize = True + Caption = #25171#21360#20986#24211#21333 + ImageIndex = 12 + Visible = False + OnClick = TBPrint1Click + end + object TBPrint2: TToolButton + Left = 975 + Top = 0 + AutoSize = True + Caption = #25171#21360#20986#24211#21333#22823#32440 + ImageIndex = 12 + Visible = False + OnClick = TBPrint2Click + end + object TBClose: TToolButton + Left = 1098 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + object ComboBox1: TComboBox + Left = 1161 + 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 = #37197#36135#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 = 203 + 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 Label4: TLabel + Left = 398 + 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 = 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 = 561 + Top = 15 + Width = 39 + Height = 12 + Caption = #19994#21153#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 584 + Top = 107 + 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 = 561 + 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 = 204 + Top = 35 + 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 = 175 + Top = 95 + 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 = 397 + 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 = 441 + Top = 103 + 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 = 801 + 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 = 801 + Top = 95 + 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 Label17: TLabel + Left = 752 + Top = 40 + Width = 39 + Height = 12 + Caption = #24635#31859#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label16: TLabel + Left = 752 + Top = 16 + Width = 39 + Height = 12 + Caption = #24635#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 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 = 260 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 427 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object JGFactoryName: TEdit + Tag = 2 + Left = 347 + Top = 103 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 611 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object PRTCF: TEdit + Tag = 2 + Left = 637 + Top = 103 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object PRTColor: TEdit + Tag = 2 + Left = 610 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object PRTCodeName: TEdit + Tag = 2 + Left = 260 + Top = 31 + Width = 76 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 216 + Top = 91 + Width = 77 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object PRTSpec: TEdit + Tag = 2 + Left = 426 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 10 + OnChange = OrderNoChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 495 + Top = 99 + Width = 76 + Height = 20 + TabOrder = 11 + OnChange = OrderNoChange + end + object PRTKZ: TEdit + Tag = 2 + Left = 830 + Top = 115 + Width = 56 + Height = 20 + TabOrder = 12 + OnChange = OrderNoChange + end + object PRTMF: TEdit + Tag = 2 + Left = 830 + Top = 91 + Width = 56 + Height = 20 + TabOrder = 13 + OnChange = OrderNoChange + end + object fRoll1: TcxCurrencyEdit + Left = 796 + Top = 12 + ParentFont = False + Properties.DisplayFormat = '0.##' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clRed + Style.Font.Height = -12 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 14 + Visible = False + Width = 70 + end + object fnum1: TcxCurrencyEdit + Left = 796 + Top = 36 + ParentFont = False + Properties.DisplayFormat = '0.##' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clRed + Style.Font.Height = -12 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 15 + Visible = False + Width = 70 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 119 + Width = 1366 + Height = 260 + 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 + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1PRTRollNum + end + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + 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.OnGetContentStyle = Tv1StylesGetContentStyle + Styles.Header = DataLink_TradeManage.Default + object v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1Column3: TcxGridDBColumn + Caption = #37197#36135#26085#26399 + DataBinding.FieldName = 'PHTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1P_NO: TcxGridDBColumn + Caption = #37197#36135#32534#21495 + DataBinding.FieldName = 'P_NO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 72 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20844#21496#32534#21495 + DataBinding.FieldName = 'OrdDefStr1' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#21488#22836 + DataBinding.FieldName = 'OrdDefStr2' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1JGFactoryName: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'JGFactoryName' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + end + object v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 96 + end + object v1PRTRollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontBlack + Styles.Footer = DataLink_TradeManage.cxStyle_fontBlack + Styles.Header = DataLink_TradeManage.cxStyle_fontBlack + Width = 60 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontBlack + Styles.Footer = DataLink_TradeManage.cxStyle_fontBlack + Styles.Header = DataLink_TradeManage.cxStyle_fontBlack + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1Column6: TcxGridDBColumn + Caption = #37197#36135#21305#25968 + DataBinding.FieldName = 'PH_RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'PH_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 60 + end + object v1Column5: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 97 + Width = 1366 + Height = 22 + Align = alTop + Style = 9 + TabIndex = 0 + TabOrder = 3 + Tabs.Strings = ( + #26410#21457#36135 + #24050#21457#36135 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1366 + ClientRectTop = 19 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 417 + Width = 1366 + Height = 231 + Align = alTop + TabOrder = 4 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_PH + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = V2Column5 + end + item + Kind = skCount + Position = spFooter + Column = V2Column9 + end + item + Kind = skSum + Position = spFooter + Column = V2Column7 + end + item + Kind = skSum + Position = spFooter + Column = V2Column8 + end + item + Kind = skSum + Column = V2Column5 + end + item + Kind = skCount + Column = V2Column9 + end + item + Kind = skSum + Column = V2Column7 + end + item + Kind = skSum + Column = V2Column8 + end + item + Kind = skSum + Position = spFooter + Column = V2Column4 + end + item + Kind = skSum + Column = V2Column4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V2Column4 + end + item + Kind = skSum + Column = V2Column5 + end + item + Kind = skSum + Column = V2Column7 + end + item + Kind = skSum + Column = V2Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object V2Column10: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 75 + end + object V2Column1: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object V2Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object V2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object V2C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Column4: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object V2Column5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object V2Column9: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'KCQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object V2Column7: TcxGridDBColumn + Caption = #37197#36135#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 70 + end + object V2Column8: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 70 + end + object V2Column6: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object V2Column11: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object V2PHYG: TcxGridDBColumn + Caption = #37197#36135#20154#21592 + DataBinding.FieldName = 'PHYG' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Filler: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Column12: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object V2defstr2: TcxGridDBColumn + Caption = #36135#36816#31867#22411 + DataBinding.FieldName = 'defstr2' + Options.Editing = False + Width = 60 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = TV2 + end + end + object Panel3: TPanel + Left = 0 + Top = 379 + Width = 1366 + Height = 38 + Align = alTop + TabOrder = 5 + object Label14: TLabel + Left = 500 + Top = 60 + Width = 36 + Height = 12 + Caption = #21367#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 532 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#26085#26399 + end + object ToolBar2: TToolBar + Left = 1 + Top = 1 + Width = 508 + Height = 36 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar2' + Flat = True + Images = DataLink_TradeManage.ThreeImgList + List = True + ShowCaptions = True + TabOrder = 0 + Visible = False + object ToolButton4: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #36873#25321#24211#23384 + ImageIndex = 49 + OnClick = ToolButton4Click + end + object phwc: TToolButton + Left = 87 + Top = 0 + AutoSize = True + Caption = #37197#36135#23436#25104 + ImageIndex = 22 + OnClick = phwcClick + end + object ToolButton6: TToolButton + Left = 174 + Top = 0 + Caption = #20462#25913#37197#36135 + ImageIndex = 54 + Visible = False + OnClick = ToolButton6Click + end + object phok: TToolButton + Left = 257 + Top = 0 + AutoSize = True + Caption = #37197#36135#30830#35748 + ImageIndex = 16 + OnClick = phokClick + end + object fh: TToolButton + Left = 344 + Top = 0 + AutoSize = True + Caption = #25104#21697#21457#36135 + ImageIndex = 41 + OnClick = fhClick + end + object del: TToolButton + Left = 431 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 48 + OnClick = delClick + end + object ToolButton5: TToolButton + Left = 494 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 86 + OnClick = ToolButton5Click + end + end + object Panel2: TPanel + Left = 1112 + Top = 1 + Width = 253 + Height = 36 + Align = alRight + BevelOuter = bvNone + TabOrder = 1 + end + object Edit1: TEdit + Left = 536 + Top = 56 + Width = 145 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnKeyPress = Edit1KeyPress + end + object CRdate: TDateTimePicker + Left = 588 + Top = 8 + Width = 90 + Height = 20 + Date = 41557.498293449080000000 + Format = 'yyyy-MM-dd' + Time = 41557.498293449080000000 + TabOrder = 3 + end + end + object CheckBox1: TCheckBox + Left = 220 + Top = 96 + Width = 99 + Height = 19 + Caption = #20840#36873 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 6 + OnClick = CheckBox1Click + 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 ADO_PH: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 296 + Top = 476 + end + object DS_PH: TDataSource + DataSet = CDS_PH + Left = 352 + Top = 484 + end + object CDS_PH: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 480 + end + object ADOPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 816 + Top = 56 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 848 + 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 = 68 + ReportData = {} + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 944 + Top = 92 + end +end diff --git a/管理系统/U_ProductOrder_Ph10.pas b/管理系统/U_ProductOrder_Ph10.pas new file mode 100644 index 0000000..7935358 --- /dev/null +++ b/管理系统/U_ProductOrder_Ph10.pas @@ -0,0 +1,2164 @@ +unit U_ProductOrder_Ph10; + +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, cxContainer, cxTextEdit, cxCurrencyEdit; + +type + TfrmProductOrder_Ph10 = 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; + v1JGFactoryName: 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; + OrdPerson1: TEdit; + Label6: TLabel; + PRTCF: TEdit; + Label7: TLabel; + PRTColor: TEdit; + Label8: TLabel; + PRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1Column8: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + Label10: TLabel; + PRTSpec: TEdit; + Label11: TLabel; + OrdDefStr1: TEdit; + Label12: TLabel; + PRTKZ: TEdit; + Label13: TLabel; + PRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + ComboBox1: TComboBox; + v1Column2: TcxGridDBColumn; + v1PRTRollNum: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolBar2: TToolBar; + TV2: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + del: TToolButton; + V2Column1: TcxGridDBColumn; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + V2Column5: TcxGridDBColumn; + phwc: TToolButton; + phok: TToolButton; + fh: TToolButton; + V2Column7: TcxGridDBColumn; + V2Column8: TcxGridDBColumn; + V2Column9: TcxGridDBColumn; + ADO_PH: TADOQuery; + DS_PH: TDataSource; + CDS_PH: TClientDataSet; + V2Column10: TcxGridDBColumn; + Panel3: TPanel; + Panel2: TPanel; + Edit1: TEdit; + Label14: TLabel; + ToolButton4: TToolButton; + v1PRTColor: TcxGridDBColumn; + V2C_Color: TcxGridDBColumn; + ToolButton5: TToolButton; + TBPrint1: TToolButton; + ADOPrint: TADOQuery; + RMDB_MD: TRMDBDataSet; + RMGridReport1: TRMGridReport; + RMXLSExport2: TRMXLSExport; + Label15: TLabel; + CRdate: TDateTimePicker; + V2Column6: TcxGridDBColumn; + V2Column11: TcxGridDBColumn; + ToolButton6: TToolButton; + v1Ssel: TcxGridDBColumn; + V2Column12: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + V2Filler: TcxGridDBColumn; + V2PHYG: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + CheckBox1: TCheckBox; + v1P_NO: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Tbcpfh: TToolButton; + TBPrint2: TToolButton; + fRoll1: TcxCurrencyEdit; + fnum1: TcxCurrencyEdit; + Label17: TLabel; + Label16: TLabel; + V2defstr2: TcxGridDBColumn; + ToolButton7: 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 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 OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Edit1KeyPress(Sender: TObject; var Key: Char); + procedure phwcClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure phokClick(Sender: TObject); + procedure delClick(Sender: TObject); + procedure fhClick(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure TBPrint1Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure TbcpfhClick(Sender: TObject); + procedure TBPrint2Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + private + DQdate:TDateTime; + TblCprk:string; + procedure InitGrid(); + procedure InitPH(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + procedure Query_MJ(mjid:string); + function SaveData():Boolean; + function YSData(Order_Main10:TClientDataSet):Boolean; + function SaveEjK(FNO,FID,fBCID,fCkNO:string):boolean; + procedure CreateTable(); + procedure DropTable(); + { Private declarations } + public + fDParameters1:string; + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrder_Ph10: TfrmProductOrder_Ph10; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun,U_CKProductBCPKCListSel10,U_CKProductBCPKCListSel, + U_CKSMEdit; + +{$R *.dfm} +procedure TfrmProductOrder_Ph10.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 ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; +procedure TfrmProductOrder_Ph10.CreateTable(); +var + strSQL:string; +begin + TblCprk := '[##CP_PH' + 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),' + + 'P_NO VARCHAR(20),' + + 'BCID Varchar(20))'#13; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; +function TfrmProductOrder_Ph10.SaveEjK(FNO,FID,fBCID,fCkNO:string):boolean; +var + fkcID:integer; + Filler:string; + FillTime:TdateTime; +begin + result:=false; + try + + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update BP_Kcid Set kcid=kcid+1'); + sql.Add('select kcid from BP_Kcid'); + Open; + end; + fkcID:=ADOQueryCmd.fieldbyname('kcid').AsInteger; + + with CDS_PH do + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from BP_InOut'); + sql.Add('where 1=2 '); + open; + end; + // fkcID:=strtoint(RightBStr(trim(FNO),length(FNO)-3)+trim(FID)); + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('CRNO').Value:=trim(FNO); + ADOQueryCmd.FieldByName('CRID').Value:=FID; + ADOQueryCmd.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRdate.Date); + ADOQueryCmd.FieldByName('CKName').Value:='㶫ֿ'; + ADOQueryCmd.FieldByName('CRType').Value:='㶫'; + ADOQueryCmd.FieldByName('CRFlag').Value:=''; + ADOQueryCmd.FieldByName('mainID').Value:=trim(fieldbyname('mainID').AsString); + 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('MJType').AsString); + ADOQueryCmd.FieldByName('P_Code').Value:=trim(fieldbyname('C_Code').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value:=trim(fieldbyname('C_CodeName').AsString); + ADOQueryCmd.FieldByName('P_spec').Value:=trim(fieldbyname('C_spec').AsString); + ADOQueryCmd.FieldByName('P_Color').Value:=trim(fieldbyname('C_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('KCQtyUnit').AsString); + ADOQueryCmd.FieldByName('note').Value:=''; + ADOQueryCmd.FieldByName('Filler').Value:=trim(DName); + ADOQueryCmd.FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + ADOQueryCmd.FieldByName('gangNO').Value:=trim(fieldbyname('BCgangNO').AsString); + ADOQueryCmd.FieldByName('packNo').Value:=trim(fieldbyname('packNo').AsString); + ADOQueryCmd.FieldByName('defstr2').Value:=trim(fieldbyname('defstr2').AsString); + ADOQueryCmd.FieldByName('fromMainID').Value:=trim(fCkNO); + ADOQueryCmd.FieldByName('FromSubID').Value:=trim(FbcID); + ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + ADOQueryCmd.Post; + + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from BP_KC'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + ADOQueryCmd.FieldByName('CKName').Value:='㶫ֿ'; + ADOQueryCmd.FieldByName('CRType').Value:='㶫'; + ADOQueryCmd.FieldByName('CRNO').Value:=trim(fNo); + ADOQueryCmd.FieldByName('CRID').Value:=fID; + ADOQueryCmd.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRdate.Date); + 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('C_Code').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value:=trim(fieldbyname('C_CodeName').AsString); + ADOQueryCmd.FieldByName('P_spec').Value:=trim(fieldbyname('C_spec').AsString); + ADOQueryCmd.FieldByName('P_Color').Value:=trim(fieldbyname('C_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('KCQtyUnit').AsString); + ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + ADOQueryCmd.Post; + end; + result:=true; + except + end; +end; +function TfrmProductOrder_Ph10.YSData(Order_Main10:TClientDataSet):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou,customName:String; +begin + Result:=False; + with Order_Main10 do + begin + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim('֯')+''''); + sql.Add(' and YFDefFlag1=1 '); + Open; + end; + if not ADOQueryTemp.IsEmpty 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:='֯'; + FieldByName('ZdyStr1').Value:='Ӧ'; + FieldByName('YFDefFlag1').Value:=1; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(Order_Main10.fieldbyname('MainID').AsString)+''''); + sql.Add(' and subID='''+Trim(Order_Main10.fieldbyname('subID').AsString)+''''); + sql.Add(' and YFName=''۽'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'CF','YF_Money_CR',4,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:='֯'; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CRdate.Date)); + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Order_Main10.fieldbyname('PRTPrice').Value; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('QtyUnit').Value:='M'; + FieldByName('ComTaiTou').Value:=Trim(Order_Main10.fieldbyname('CustomerNoName').AsString); + FieldByName('YFName').Value:='۽'; + FieldByName('P_CodeName').Value:=Trim(Order_Main10.fieldbyname('PRTCodeName').AsString); + FieldByName('P_Color').Value:=Trim(Order_Main10.fieldbyname('PRTColor').AsString); + FieldByName('MainId').Value:=Trim(Order_Main10.fieldbyname('Mainid').AsString); + FieldByName('subID').Value:=Trim(Order_Main10.fieldbyname('subID').AsString); + FieldByName('YFDefFlag1').Value:=1; + // FieldByName('status').Value:='1'; + Post; + end; + end + else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(Qty),0) from CK_BanCP_CR A '); + sql.Add(' 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 CK_BanCP_CR A '); + sql.Add(' where A.mainID=YF_Money_CR.mainID and A.subiD=YF_Money_CR.subiD and A.CRType='''' )'); + sql.Add(',CRTime=(select min(CRTime) from CK_BanCP_CR 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; +function TfrmProductOrder_Ph10.SaveData():Boolean; +var + phID:string; +begin + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_PH '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + + with CDS_PH do + begin + DisableControls; + first; + while not eof do + begin + if fieldbyname('qty').AsFloat=0 then continue; + if GetLSNo(ADOQueryTemp,phID,'PH','CK_BanCP_PH',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_PH '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('phID').Value:=trim(phID); + ADOQueryCmd.FieldByName('conNo').Value:=trim(fieldbyname('conNo').AsString); + ADOQueryCmd.FieldByName('MainID').Value:=trim(Order_Main.fieldbyname('MainID').AsString); + ADOQueryCmd.FieldByName('SubID').Value:=trim(Order_Main.fieldbyname('SubID').AsString); + ADOQueryCmd.FieldByName('PMainID').Value:=trim(fieldbyname('PMainID').AsString); + ADOQueryCmd.FieldByName('PSubID').Value:=trim(fieldbyname('PSubID').AsString); + ADOQueryCmd.FieldByName('mjID').Value:=trim(fieldbyname('mjID').AsString); + ADOQueryCmd.FieldByName('CRID').Value:=trim(fieldbyname('CRID').AsString); + ADOQueryCmd.FieldByName('qtyunit').Value:=trim(fieldbyname('kcqtyunit').AsString); + ADOQueryCmd.FieldByName('qty').Value:=fieldbyname('qty').AsFloat; + ADOQueryCmd.FieldByName('Rollnum').Value:=fieldbyname('Rollnum').AsFloat; + ADOQueryCmd.FieldByName('Filler').Value:=trim(DName); + ADOQueryCmd.FieldByName('FillTime').Value:=date(); + ADOQueryCmd.Post; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC '); + sql.Add('where mjid='+quotedstr(trim(CDS_PH.fieldbyname('mjid').AsString))); + sql.Add('and CRID='+quotedstr(trim(CDS_PH.fieldbyname('CRID').AsString))); + open; + edit; + fieldbyname('kcstatus').Value:='1'; + post; + end; + next; + end; + first; + EnableControls; + + 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 subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value:='2'; + post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; +procedure TfrmProductOrder_Ph10.Query_MJ(mjid:string); +begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select A.*,Rollnum=A.kcRollNum,Qty=A.kcQty,B.mjxh,D.mainID,D.subID,D.C_Code,D.C_CodeName,D.C_Spec,F.conNo '); + sql.Add('from CK_BanCP_KC A '); + sql.Add('inner join WFB_MJJY B on B.mjid=A.mjid '); + sql.Add('inner join Contract_Sub D on D.MainId=B.mainID and D.SubId=b.subID '); + sql.Add('inner join Contract_main F on F.MainId=F.mainID '); + sql.Add('where A.mjID='+quotedstr(trim(mjid))); + open; + if IsEmpty then + begin + application.MessageBox('˾Ų!','ʾϢ',MB_ICONERROR); + exit; + end + else if CDS_PH.Locate('mjid',fieldbyname('MjID').AsString,[]) then + begin + application.MessageBox('˾Ѽ!','ʾϢ',MB_ICONERROR); + exit; + end + else + begin + CDS_PH.Append; + CDS_PH.FieldByName('conNo').Value:=trim(fieldbyname('conNo').AsString); + CDS_PH.FieldByName('mjid').Value:=trim(fieldbyname('mjid').AsString); + // CDS_PH.FieldByName('mjxh').Value:=trim(fieldbyname('mjxh').AsString); + CDS_PH.FieldByName('C_CodeName').Value:=trim(fieldbyname('C_CodeName').AsString); + CDS_PH.FieldByName('C_Spec').Value:=trim(fieldbyname('C_Spec').AsString); + CDS_PH.FieldByName('PMainID').Value:=trim(fieldbyname('MainID').AsString); + CDS_PH.FieldByName('PSubID').Value:=trim(fieldbyname('SubID').AsString); + CDS_PH.FieldByName('kcqtyunit').Value:=trim(fieldbyname('kcqtyunit').AsString); + CDS_PH.FieldByName('kcqty').Value:=fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('kcRollnum').Value:=fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('Qty').Value:=fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('RollNum').Value:=fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('CRID').Value:=fieldbyname('CRID').AsFloat; + CDS_PH.Post; + end; + end; +end; +procedure TfrmProductOrder_Ph10.InitPH(); +begin + if ADOQueryMain.Active=False then Exit; + if Order_Main.IsEmpty THEN EXIT; + try + ADO_PH.DisableControls; + with ADO_PH do + begin + Close; + sql.Clear; + Filtered:=False; + sql.Add('select A.*,B.KCKGQty,B.KCQty,B.KCQtyUnit,B.kcRollNum,B.CPType,B.C_Code,C.kckw,B.C_CodeName,B.C_Spec,B.C_Color,B.RCGangNo,E.MJType,E.apID,B.mjxh '); + sql.Add('from CK_BanCP_PH A '); + sql.Add('INNER join CK_BanCP_KC B on B.CRID=A.CRID '); + sql.Add('LEFT join CK_BanCP_CR C on C.CRID=B.CRID and CRFlag='''' '); + sql.Add('LEFT join WFB_MJJY E on A.MJID=E.MJID '); + sql.Add('where A.P_NO='+quotedstr(trim(Order_Main.fieldbyname('P_NO').asstring))); + // sql.Add('and A.subID='+quotedstr(trim(Order_Main.fieldbyname('subID').asstring))); + Open; + end; + SCreateCDS20(ADO_PH,CDS_PH); + SInitCDSData20(ADO_PH,CDS_PH); + finally + ADO_PH.EnableControls; + end; +end; + + +procedure TfrmProductOrder_Ph10.FormDestroy(Sender: TObject); +begin + frmProductOrder_Ph10:=nil; +end; + +procedure TfrmProductOrder_Ph10.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + + Action:=caFree; +end; + +procedure TfrmProductOrder_Ph10.FormCreate(Sender: TObject); +begin + cxgrid2.Align:=alClient; +// CreateTable(); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); + + CRdate.DateTime:= DQdate; + cxTabControl1.TabIndex:=0; + del.Visible:=false; + phwc.Visible:=false; + phok.Visible:=false; + fh.Visible:=false; + Panel2.Visible:=false; + ToolButton4.Visible:=false; + TV2.OptionsData.Editing:=false; + ToolButton5.Visible:=false; + case cxTabControl1.TabIndex of + 0:begin + del.Visible:=true; + phwc.Visible:=true; + Panel2.Visible:=true; + ToolButton4.Visible:=true; + TV2.OptionsData.Editing:=true; + end; + 1:begin + phok.Visible:=true; + ToolButton5.Visible:=true; + end; + 2:begin + fh.Visible:=true; + ToolButton5.Visible:=true; + end; + 3:begin + end; + end; + application.ProcessMessages; +end; + +procedure TfrmProductOrder_Ph10.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth<>1 then + WriteCxGrid(self.Caption,Tv1,'ָʾ') + else + WriteCxGrid(self.Caption,Tv1,'ָʾ'); +end; + +procedure TfrmProductOrder_Ph10.InitGrid(); +var + strwhere:string; +begin + strwhere:=''; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.add('exec P_View_Order_PH ') ; + sql.Add(' @begdate='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+''' '); + sql.Add(',@Enddate='''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+''' '); + sql.Add(',@P_status='+quotedstr(inttostr(cxTabControl1.TabIndex))); + sql.Add(',@WSql='+quotedstr(trim(''))); + Open; + end; + SCreateCDS20(ADOQueryMain,Order_Main); + SInitCDSData20(ADOQueryMain,Order_Main); + TBFind.Click; + finally + ADOQueryMain.EnableControls; + end; +end; +procedure TfrmProductOrder_Ph10.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 TfrmProductOrder_Ph10.InitForm(); +begin + + if FCloth<>1 then + ReadCxGrid(self.Caption,Tv1,'ָʾ') + else + ReadCxGrid(self.Caption,Tv1,'ָʾ'); + + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp); + 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 TfrmProductOrder_Ph10.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 TfrmProductOrder_Ph10.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + frmCKProductBCPKCListsel10:=TfrmCKProductBCPKCListsel10.create(self); + with frmCKProductBCPKCListsel10 do + begin + if Trim(DParameters1)<>'Ȩ' then + begin + v2RollNum.Visible:=false; + v2RollNum.Hidden:=true; + v2Qty.Visible:=false; + v2Qty.Hidden:=true; + end; + fkeyNo:=self.Order_Main.fieldbyname('P_NO').AsString; + fType:=1; + if showmodal=1 then + begin + TBRafresh.Click; + end; + free; + end; + +end; + +procedure TfrmProductOrder_Ph10.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then Exit; + if cxTabControl1.TabIndex=0 then + begin + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CK_BanCP_KC SET kcstatus=null '); + sql.Add('from CK_BanCP_KC A '); + sql.Add('inner join CK_BanCP_PH B on B.CRID=A.CRID '); + sql.Add('where B.P_NO='+quotedstr(trim(Order_Main.fieldbyname('P_NO').AsString))); + execsql; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_PH '); + sql.Add('where P_NO='+quotedstr(trim(Order_Main.fieldbyname('P_NO').AsString))); + execsql; + end; + application.MessageBox('ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; + end; +end; + +function TfrmProductOrder_Ph10.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 TfrmProductOrder_Ph10.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ָʾб'); +end; + +procedure TfrmProductOrder_Ph10.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno,PRTCodeName,funit:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + if Trim(DParameters1)<>'Ȩ' then + begin + 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('OrdFlag1').AsBoolean=True then + begin + Application.MessageBox('Ѵӡݣٴδӡ!','ʾ',0); + Exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select PRTRollNum=Cast('''' as varchar(200)),PRTOrderQty=Cast('''' as varchar(200)),PRTCodeName,PRTOrderQty2=Cast('''' as varchar(200)),PRTCodeName,PRTOrderQty3=Cast('''' as varchar(200)),PRTCodeName, '); + sql.add('PRTColor=Cast('''' as varchar(200))'); + sql.Add(' from JYOrder_Sub '); + sql.Add(' where 1<>1 '); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if CDS_Print.IsEmpty=False then CDS_Print.Delete; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select *,case when PRTRollNum<>0 then ''ƥ'' else OrderUnit end Unit '); + sql.Add(' from JYOrder_Sub '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + ADOQueryPrint.DisableControls; + CDS_Print.DisableControls; + with ADOQueryPrint do + begin + First; + while not Eof do + begin + if CDS_Print.IsEmpty then + begin + with CDS_Print do + begin + Append; + FieldByName('PRTCodeName').Value:=ADOQueryPrint.fieldbyname('PRTCodeName').Value; + FieldByName('PRTColor').Value:=ADOQueryPrint.fieldbyname('PRTColor').Value; + FieldByName('PRTRollNum').Value:=Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)); + // FieldByName('PRTOrderQty').Value:=Trim(FloatToStr(ADOQueryPrint.fieldbyname('PRTOrderQty').Value)); + if trim(ADOQueryPrint.FieldByName('unit').AsString) ='ƥ' then + FieldByName('PRTOrderQty').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + +trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + +trim(ADOQueryPrint.FieldByName('unit').AsString); + Post; + i:=1; + PRTCodeName:=Trim(ADOQueryPrint.fieldbyname('PRTCodeName').AsString); + funit:=Trim(ADOQueryPrint.fieldbyname('Unit').AsString); + end; + end else + begin + if (Trim(ADOQueryPrint.fieldbyname('PRTCodeName').AsString)=PRTCodeName) and (Trim(ADOQueryPrint.fieldbyname('Unit').AsString)=funit) then + begin + if i<3 then + begin + with CDS_Print do + begin + Edit; + FieldByName('PRTColor').Value:=Trim(FieldByName('PRTColor').AsString)+',' + +Trim(ADOQueryPrint.fieldbyname('PRTColor').AsString); + FieldByName('PRTRollNum').Value:=Trim(FieldByName('PRTRollNum').AsString)+','+ + Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)); + // FieldByName('PRTOrderQty').Value:=Trim(FieldByName('PRTOrderQty').AsString)+','+Trim(FloatToStr(ADOQueryPrint.fieldbyname('PRTOrderQty').Value)); + + if i=1 then + begin + if trim(ADOQueryPrint.FieldByName('unit').AsString) ='ƥ' then + FieldByName('PRTOrderQty2').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + +trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty2').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + +trim(ADOQueryPrint.FieldByName('unit').AsString); + end; + if i=2 then + begin + if trim(ADOQueryPrint.FieldByName('unit').AsString) ='ƥ' then + FieldByName('PRTOrderQty3').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + +trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty3').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + +trim(ADOQueryPrint.FieldByName('unit').AsString); + end; + Post; + end; + i:=i+1; + end else + begin + with CDS_Print do + begin + Append; + FieldByName('PRTCodeName').Value:=ADOQueryPrint.fieldbyname('PRTCodeName').Value; + FieldByName('PRTColor').Value:=ADOQueryPrint.fieldbyname('PRTColor').Value; + FieldByName('PRTRollNum').Value:=Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)); + // FieldByName('PRTOrderQty').Value:=Trim(FloatToStr(ADOQueryPrint.fieldbyname('PRTOrderQty').Value)); + + if trim(ADOQueryPrint.FieldByName('unit').AsString) ='ƥ' then + FieldByName('PRTOrderQty').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + +trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + +trim(ADOQueryPrint.FieldByName('unit').AsString); + + Post; + i:=1; + PRTCodeName:=Trim(ADOQueryPrint.fieldbyname('PRTCodeName').AsString); + funit:=Trim(ADOQueryPrint.fieldbyname('Unit').AsString); + end; + end; + end else + begin + with CDS_Print do + begin + Append; + FieldByName('PRTCodeName').Value:=ADOQueryPrint.fieldbyname('PRTCodeName').Value; + FieldByName('PRTColor').Value:=ADOQueryPrint.fieldbyname('PRTColor').Value; + FieldByName('PRTRollNum').Value:=Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)); + if trim(ADOQueryPrint.FieldByName('unit').AsString) ='ƥ' then + FieldByName('PRTOrderQty').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + +trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + +trim(ADOQueryPrint.FieldByName('unit').AsString); + + Post; + i:=1; + PRTCodeName:=Trim(ADOQueryPrint.fieldbyname('PRTCodeName').AsString); + funit:=Trim(ADOQueryPrint.fieldbyname('Unit').AsString); + end; + end; + end; + Next; + end; + end; + ADOQueryPrint.EnableControls; + CDS_Print.EnableControls; + if FileExists(fPrintFile) then + begin + RMVariables['customerNoName']:=Trim(Order_Main.fieldbyname('customerNoName').AsString); + RMVariables['OrderNo']:=Trim(Order_Main.fieldbyname('OrderNo').AsString); + RMVariables['Note']:=Trim(Order_Main.fieldbyname('Note').AsString); + RMVariables['FHAddress']:=Trim(Order_Main.fieldbyname('FHAddress').AsString); + RMVariables['LXFS']:=Trim(Order_Main.fieldbyname('LXFS').AsString); + RMVariables['OrdDate']:=Order_Main.fieldbyname('OrdDate').Value; + RMVariables['OrdPerson1']:=Order_Main.fieldbyname('OrdPerson1').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; + if Trim(DParameters1)<>'Ȩ' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdDefDate1=getdate(),OrdPerson1='''+Trim(DName)+''',OrdFlag1=1'); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + + end; + +end; + + +procedure TfrmProductOrder_Ph10.TBRafreshClick(Sender: TObject); +begin + if FFInt=1 then + begin + InitGridFH(); + end else + begin + InitGrid(); + end; +end; + +procedure TfrmProductOrder_Ph10.TBAddClick(Sender: TObject); +var + maxno:string; +begin + frmCKProductBCPKCListsel10:=TfrmCKProductBCPKCListsel10.create(self); + with frmCKProductBCPKCListsel10 do + begin + if Trim(DParameters1)<>'Ȩ' then + begin + v2RollNum.Visible:=false; + v2RollNum.Options.Editing:=false; + v2RollNum.Hidden:=true; + v2Qty.Visible:=false; + v2Qty.Options.Editing:=false; + v2Qty.Hidden:=true; + end; + fkeyNo:=''; + fType:=0; + if showmodal=1 then + begin + TBRafresh.Click; + end; + free; + end; + +end; + +procedure TfrmProductOrder_Ph10.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 TfrmProductOrder_Ph10.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrder_Ph10.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + // if ToolButton1.Visible=False then Exit; +// ToolButton1.Click; + +end; + +procedure TfrmProductOrder_Ph10.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrder_Ph10.CheckBox1Click(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + with Order_Main do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value:=checkbox1.Checked; + post; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmProductOrder_Ph10.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrder_Ph10.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 TfrmProductOrder_Ph10.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 TfrmProductOrder_Ph10.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 TfrmProductOrder_Ph10.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 TfrmProductOrder_Ph10.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 TfrmProductOrder_Ph10.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 TfrmProductOrder_Ph10.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrder_Ph10.OrderNoKeyPress(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 A.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 TfrmProductOrder_Ph10.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 TfrmProductOrder_Ph10.Edit1KeyPress(Sender: TObject; + var Key: Char); +begin + if key=#13 then + begin + Query_MJ(Edit1.Text); + end; +end; + +procedure TfrmProductOrder_Ph10.phwcClick(Sender: TObject); +var + phRollNum,phQty:double; +begin + if cds_ph.IsEmpty then exit; + + with CDS_PH do + begin + DisableControls; + first; + while not eof do + begin + if (trim(fieldbyname('C_CodeName').AsString)<>trim(Order_Main.FieldByName('PRTCodeName').AsString)) + or (trim(fieldbyname('C_Color').AsString)<>trim(Order_Main.FieldByName('PRTColor').AsString)) then + begin + application.MessageBox('Ʒƻɫһ','ʾϢ',0); + EnableControls; + exit; + end; + next; + end; + first; + EnableControls; + end; + phRollNum:=0; + phQty:=0; + with CDS_PH do + begin + DisableControls; + first; + while not eof do + begin + phRollNum:=phRollNum+ CDS_PH.fieldbyname('RollNum').AsFloat; + phQty:=phQty+ CDS_PH.fieldbyname('Qty').AsFloat; + next; + end; + first; + EnableControls; + end; + + if (phRollNum<>Order_Main.FieldByName('PRTRollNum').AsFloat) or + (phQty<>Order_Main.FieldByName('PRTOrderQty').AsFloat) then + begin + if Application.MessageBox('δﵽҪȷ','ʾϢ',32+4)<>IDYES then Exit; + end; + + if SaveData() then + begin + application.MessageBox('ɹ!','ʾϢ'); + TBRafresh.Click; + end + else + begin + application.MessageBox('ʧ!','ʾϢ',0); + end; +end; + +procedure TfrmProductOrder_Ph10.cxTabControl1Change(Sender: TObject); +begin + TBEdit.Visible:=false; + TBDel.Visible:=false; + Tbcpfh.Visible:=false; + TBPrint1.Visible:=false; + TBPrint2.Visible:=false; + + case cxTabControl1.TabIndex of + 0:begin + TBEdit.Visible:=true; + TBDel.Visible:=true; + Tbcpfh.Visible:=true; + end; + 1:begin + + TBPrint1.Visible:=true; + // TBPrint2.Visible:=true; + end; + end; + + { del.Visible:=false; + phwc.Visible:=false; + phok.Visible:=false; + fh.Visible:=false; + Panel2.Visible:=false; + ToolButton4.Visible:=false; + TV2.OptionsData.Editing:=false; + ToolButton5.Visible:=false; + TBPrint1.Visible:=false; + ToolButton6.Visible:=false; + case cxTabControl1.TabIndex of + 0:begin + del.Visible:=true; + phwc.Visible:=true; + Panel2.Visible:=true; + ToolButton4.Visible:=true; + TV2.OptionsData.Editing:=true; + end; + 1:begin + fh.Visible:=true; + ToolButton5.Visible:=true; + if fDParameters1='Ȩ' then + ToolButton6.Visible:=true; + end; + 2:begin + TBPrint1.Visible:=true; + end; + end; } + application.ProcessMessages; + initGrid(); +end; + +procedure TfrmProductOrder_Ph10.phokClick(Sender: TObject); +begin + if cds_ph.IsEmpty then exit; + try + 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 subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value:='2'; + post; + end; + application.MessageBox('ȷϳɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ȷʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmProductOrder_Ph10.delClick(Sender: TObject); +begin + if cds_ph.IsEmpty then exit; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_PH '); + sql.Add('where PHID='+quotedstr(trim(cds_ph.fieldbyname('PHID').AsString))); + execsql; + end; + cds_ph.Delete; +end; + +procedure TfrmProductOrder_Ph10.fhClick(Sender: TObject); +var + CKOrdNo,maxno,rkNo:string; + fRoll,i:integer; + fNum:double; +begin + if cds_ph.IsEmpty then exit; + + if Order_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + +{ fRoll:=0; + fNum:=0; + with Order_Main do + begin + First; + DisableControls; + while not eof do + begin + if FieldByName('ssel').AsBoolean then + begin + fRoll:=fRoll+ Fieldbyname('PH_RollNum').AsInteger; + fNum:=fNum+ Fieldbyname('PH_Qty').AsFloat; + end; + next; + end; + First; + EnableControls + end; + IF fRoll<>strtointdef(trim(froll1.Text),0) then + begin + application.MessageBox('ƥȷܷ','ʾϢ',0); + exit; + end; + IF fnum<>strtofloatdef(trim(fnum1.Text),0) then + begin + application.MessageBox('ȷܷ','ʾϢ',0); + exit; + end; } + + + ADOQueryCmd.Connection.BeginTrans; + try + Order_Main.First; + Order_Main.DisableControls; + CDS_ph.DisableControls; + while not Order_Main.eof do + begin + + IF Order_Main.FieldByName('ssel').AsBoolean then + begin + + + + initPH(); + if GetLSNo(ADOQueryCmd,CKOrdNo,'CK','CK_BanCP_CR',3,1)=False then + begin + Application.MessageBox('ȡⵥʧ!','ʾ',0); + Exit; + end; + if Order_Main.FieldByName('customerNoName').AsString='㶫в' then + begin + if GetLSNo(ADOQueryCmd,rkNo,'RK','BP_InOut',3,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!','ʾ',0); + Exit; + end; + end; + i:=1; + with CDS_ph do + begin + First; + while not eof 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_ph.fieldbyname('CRID').Value; + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',CRdate.DateTime); + FieldByName('KGQty').Value:=CDS_ph.fieldbyname('KGQty').AsFloat; + FieldByName('Qty').Value:=CDS_ph.fieldbyname('Qty').AsFloat; + FieldByName('RollNum').Value:=CDS_ph.fieldbyname('RollNum').AsFloat; + FieldByName('QtyUnit').Value:=CDS_ph.fieldbyname('QtyUnit').Value; + FieldByName('MJID').Value:=CDS_ph.fieldbyname('MJID').Value; + FieldByName('MainID').Value:=CDS_ph.fieldbyname('MainID').Value; + FieldByName('SubID').Value:=CDS_ph.fieldbyname('SubID').Value; + FieldByName('APID').Value:=CDS_ph.fieldbyname('apid').Value; + FieldByName('MJID').Value:=CDS_ph.fieldbyname('MJID').Value; + FieldByName('MJxh').Value:=CDS_ph.fieldbyname('MJxh').Value; + FieldByName('CPType').Value:=CDS_ph.fieldbyname('MJType').Value; + FieldByName('kckw').Value:=CDS_ph.fieldbyname('kckw').Value; + + FieldByName('C_Code').Value:=trim(CDS_ph.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value:=trim(CDS_ph.fieldbyname('C_CodeName').AsString); + FieldByName('C_spec').Value:=trim(CDS_ph.fieldbyname('C_spec').AsString); + FieldByName('C_Color').Value:=trim(CDS_ph.fieldbyname('C_Color').AsString); + FieldByName('BCGangNO').Value:=trim(CDS_ph.fieldbyname('BCGangNO').AsString); + FieldByName('RCGangNO').Value:=trim(CDS_ph.fieldbyname('RCGangNO').AsString); + FieldByName('packNo').Value:=trim(CDS_ph.fieldbyname('packNo').AsString); + FieldByName('defstr2').Value:=trim(CDS_ph.fieldbyname('defstr2').AsString); + FieldByName('PHID').Value:=trim(CDS_ph.fieldbyname('PHID').AsString); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CPType').Value:=trim(CDS_ph.fieldbyname('CPType').AsString); + FieldByName('CKOrdNo').Value:=Trim(CKOrdNo); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCp_PH where PHID='+quotedstr(trim(CDS_ph.fieldbyname('PHID').AsString))); + open; + edit; + fieldbyname('P_Status').Value:='1'; + post; + end; + + if Order_Main.FieldByName('customerNoName').AsString='㶫в' then + begin + if not SaveEjK(rkNo,inttostr(i),maxno,CKOrdNo) then + begin + ADOQueryCmd.Connection.RollbackTrans; + exit; + end; + end; + i:=i+1; + next; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCp_KC SET kcstatus=null,KCKgQty =A.KCKgQty -B.KgQty,KCQty =A.KCQty -B.Qty,KCRollNum =A.KCRollNum -B.RollNum '); + 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 ='+Quotedstr(trim(CKOrdNo))); + ExecSQL; + end; + end; + if trim(Order_Main.FieldByName('CustomerNoName').AsString)='㶫в' then + begin + if not YSData(Order_Main) then + begin + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ'); + exit; + end; + end; + end; + Order_Main.Next; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCp_KC SET KCRollNum =1 '); + sql.Add('WHERE (KCQty<>0 or KCKgQty<>0)and KcRollNum=0 '); + ExecSQL; + end; + CDS_ph.EnableControls; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + if Application.MessageBox('ȷҪӡⵥ','ʾ',32+4)=IDYES then + begin + TBPrint1.Click; + end; + TBRafresh.Click; + CRdate.DateTime:= DQdate; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ'); + end; +end; + +procedure TfrmProductOrder_Ph10.ToolButton4Click(Sender: TObject); +begin +{ if Order_Main.IsEmpty then exit; + frmCKProductBCPKCListsel:=TfrmCKProductBCPKCListsel.create(self); + with frmCKProductBCPKCListsel do + begin + if Trim(DParameters1)<>'Ȩ' then + begin + v2RollNum.Visible:=false; + v2RollNum.Hidden:=true; + v2Qty.Visible:=false; + v2Qty.Hidden:=true; + end; + fmainID:= trim(self.Order_Main.FieldByName('mainID').AsString); + + if showmodal=1 then + begin + CDS_PH.DisableControls; + CDS_SubSel.DisableControls; + CDS_SubSel.first; + while not CDS_SubSel.eof do + begin + if (not CDS_PH.Locate('CRID',trim(CDS_SubSel.fieldbyname('CRID').AsString),[])) then + begin + CDS_PH.Append; + CDS_PH.FieldByName('conNo').Value:=trim(CDS_SubSel.fieldbyname('conNo').AsString); + CDS_PH.FieldByName('mjid').Value:=trim(CDS_SubSel.fieldbyname('mjid').AsString); + // CDS_PH.FieldByName('mjxh').Value:=trim(fieldbyname('mjxh').AsString); + CDS_PH.FieldByName('C_CodeName').Value:=trim(CDS_SubSel.fieldbyname('C_CodeName').AsString); + CDS_PH.FieldByName('C_Spec').Value:=trim(CDS_SubSel.fieldbyname('C_Spec').AsString); + CDS_PH.FieldByName('C_Color').Value:=trim(CDS_SubSel.fieldbyname('C_Color').AsString); + CDS_PH.FieldByName('PMainID').Value:=trim(CDS_SubSel.fieldbyname('MainID').AsString); + CDS_PH.FieldByName('PSubID').Value:=trim(CDS_SubSel.fieldbyname('SubID').AsString); + CDS_PH.FieldByName('kcqtyunit').Value:=trim(CDS_SubSel.fieldbyname('kcqtyunit').AsString); + CDS_PH.FieldByName('kcqty').Value:=CDS_SubSel.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('kcRollnum').Value:=CDS_SubSel.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('Qty').Value:=CDS_SubSel.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('RollNum').Value:=CDS_SubSel.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('CRID').Value:=CDS_SubSel.fieldbyname('CRID').AsFloat; + CDS_PH.Post; + end; + CDS_SubSel.next; + end; + CDS_PH.EnableControls; + CDS_SubSel.EnableControls; + end; + free; + end; + TBRafresh.Click; } +end; + +procedure TfrmProductOrder_Ph10.ToolButton5Click(Sender: TObject); +begin + if cds_ph.IsEmpty then exit; + if cxTabControl1.TabIndex=1 then + begin + try + 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 subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value:='0'; + post; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CK_BanCP_KC SET kcstatus=null '); + sql.Add('from CK_BanCP_KC A '); + sql.Add('inner join CK_BanCP_PH B on B.CRID=A.CRID '); + sql.Add('where B.mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and B.subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_PH '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + application.MessageBox('ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; + end; + +{ if cxTabControl1.TabIndex=1 then + begin + try + 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 subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value:='0'; + post; + end; + application.MessageBox('ȷϳɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ȷʧܣ','ʾϢ',0); + end; + end; } +end; + +procedure TfrmProductOrder_Ph10.TBPrint1Click(Sender: TObject); +var + filepath,fOrderNo:string; + i:integer; + Txt,fImagePath: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; + + + createTable(); + i:=0; + with Order_Main do + begin + DisableControls; + first; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + IF i=0 then fOrderNo:=trim(fieldbyname('OrderNo').AsString); + IF (i>0) and (trim(fieldbyname('OrderNo').AsString)<> fOrderNo) then + begin + application.MessageBox('ѡ˲ͬĶܴӡ','ʾϢ',0); + EnableControls; + exit; + end; + + with adoqueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' insert into '+TblCprk+'(mainID,subID,P_NO) values( '); + SQL.Add(' '+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + SQL.Add(','+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + SQL.Add(','+quotedstr(trim(Order_Main.fieldbyname('P_NO').AsString))); + sql.add(')'); + execsql; + end; + i:=i+1; + end; + next; + end; + First; + EnableControls; + end; + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PrintMd10 '); + sql.Add('@mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + 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; + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(AdoPrint.fieldbyname('orderNo').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; + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + RMVariables['Filler'] :=trim(Order_Main.fieldbyname('Filler').AsString); + RMGridReport1.LoadFromFile(filepath); + RMGridReport1.ShowReport; + finally + DropTable(); + end; + +end; + + +procedure TfrmProductOrder_Ph10.ToolButton6Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + frmCKProductBCPKCListsel:=TfrmCKProductBCPKCListsel.create(self); + with frmCKProductBCPKCListsel do + begin + + fmainID:= trim(self.Order_Main.FieldByName('mainID').AsString); + + if showmodal=1 then + begin + + CDS_PH.DisableControls; + CDS_SubSel.DisableControls; + CDS_SubSel.first; + while not CDS_SubSel.eof do + begin + if (not CDS_PH.Locate('CRID',trim(CDS_SubSel.fieldbyname('CRID').AsString),[])) then + begin + CDS_PH.Append; + CDS_PH.FieldByName('conNo').Value:=trim(CDS_SubSel.fieldbyname('conNo').AsString); + CDS_PH.FieldByName('mjid').Value:=trim(CDS_SubSel.fieldbyname('mjid').AsString); + // CDS_PH.FieldByName('mjxh').Value:=trim(fieldbyname('mjxh').AsString); + CDS_PH.FieldByName('C_CodeName').Value:=trim(CDS_SubSel.fieldbyname('C_CodeName').AsString); + CDS_PH.FieldByName('C_Spec').Value:=trim(CDS_SubSel.fieldbyname('C_Spec').AsString); + CDS_PH.FieldByName('C_Color').Value:=trim(CDS_SubSel.fieldbyname('C_Color').AsString); + CDS_PH.FieldByName('PMainID').Value:=trim(CDS_SubSel.fieldbyname('MainID').AsString); + CDS_PH.FieldByName('PSubID').Value:=trim(CDS_SubSel.fieldbyname('SubID').AsString); + CDS_PH.FieldByName('kcqtyunit').Value:=trim(CDS_SubSel.fieldbyname('kcqtyunit').AsString); + CDS_PH.FieldByName('kcqty').Value:=CDS_SubSel.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('kcRollnum').Value:=CDS_SubSel.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('Qty').Value:=CDS_SubSel.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('RollNum').Value:=CDS_SubSel.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('CRID').Value:=CDS_SubSel.fieldbyname('CRID').AsFloat; + CDS_PH.Post; + end; + CDS_SubSel.next; + end; + CDS_PH.EnableControls; + CDS_SubSel.EnableControls; + end; + free; + end; + TBRafresh.Click; +end; + +procedure TfrmProductOrder_Ph10.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin +if Order_Main.IsEmpty then exit; + initPH(); +end; + +procedure TfrmProductOrder_Ph10.TbcpfhClick(Sender: TObject); +begin + fh.Click; +end; + +procedure TfrmProductOrder_Ph10.TBPrint2Click(Sender: TObject); +var + filepath,fOrderNo:string; + i:integer; +begin + if Order_Main.IsEmpty then exit; + + if Order_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + + createTable(); + i:=0; + with Order_Main do + begin + DisableControls; + first; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + IF i=0 then fOrderNo:=trim(fieldbyname('OrderNo').AsString); + IF (i>0) and (trim(fieldbyname('OrderNo').AsString)<> fOrderNo) then + begin + application.MessageBox('ѡ˲ͬĶܴӡ','ʾϢ',0); + EnableControls; + exit; + end; + with adoqueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' insert into '+TblCprk+'(mainID,subID,P_NO) values( '); + SQL.Add(' '+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + SQL.Add(','+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + SQL.Add(','+quotedstr(trim(Order_Main.fieldbyname('P_NO').AsString))); + sql.add(')'); + execsql; + end; + i:=i+1; + end; + next; + end; + First; + EnableControls; + end; + + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PrintMd10 '); + sql.Add('@mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + 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(Order_Main.fieldbyname('Filler').AsString); + RMGridReport1.LoadFromFile(filepath); + RMGridReport1.ShowReport; + finally + DropTable(); + end; + +end; + +procedure TfrmProductOrder_Ph10.ToolButton7Click(Sender: TObject); +begin + try + frmCKSMEdit:=TfrmCKSMEdit.Create(Application); + with frmCKSMEdit do + begin + + if ShowModal=1 then + begin + + end; + end; + finally + frmCKSMEdit.Free; + end; +end; + +end. diff --git a/管理系统/U_ProductOrder_Ph_other.dfm b/管理系统/U_ProductOrder_Ph_other.dfm new file mode 100644 index 0000000..df2c0db --- /dev/null +++ b/管理系统/U_ProductOrder_Ph_other.dfm @@ -0,0 +1,1343 @@ +object frmProductOrder_Ph_other: TfrmProductOrder_Ph_other + Left = 144 + Top = 67 + Width = 1151 + Height = 705 + Caption = #25351#31034#21333#37197#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 = 1118 + 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_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 ToolButton7: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #25195#25551#37197#36135 + ImageIndex = 57 + OnClick = ToolButton7Click + end + object TBAdd: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + Visible = False + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 402 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 57 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Wrap = True + Visible = False + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 0 + Top = 30 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 63 + Top = 30 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + Visible = False + OnClick = TBPrintClick + end + object TBPrint1: TToolButton + Left = 126 + Top = 30 + AutoSize = True + Caption = #25171#21360#20986#24211#21333 + ImageIndex = 12 + Visible = False + OnClick = TBPrint1Click + end + object TBPrint2: TToolButton + Left = 225 + Top = 30 + AutoSize = True + Caption = #25171#21360#20986#24211#21333#22823#32440 + ImageIndex = 12 + Visible = False + OnClick = TBPrint2Click + end + object TBClose: TToolButton + Left = 348 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + 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 + end + object Panel1: TPanel + Left = 0 + Top = 62 + Width = 1118 + Height = 69 + 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 = 203 + 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 Label4: TLabel + Left = 398 + 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 = 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 = 561 + Top = 15 + Width = 39 + Height = 12 + Caption = #19994#21153#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 584 + Top = 107 + 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 = 561 + 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 = 204 + Top = 35 + 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 = 175 + Top = 95 + 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 = 397 + 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 = 441 + Top = 103 + 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 = 801 + 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 = 801 + Top = 95 + 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 Label16: TLabel + Left = 752 + Top = 16 + Width = 39 + Height = 12 + Caption = #24635#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 Label17: TLabel + Left = 752 + Top = 40 + Width = 39 + Height = 12 + Caption = #24635#31859#25968 + 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 = 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 = 260 + Top = 11 + Width = 77 + Height = 20 + TabOrder = 2 + OnChange = OrderNoChange + OnKeyPress = OrderNoKeyPress + end + object CustomerNoName: TEdit + Tag = 2 + Left = 427 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 3 + OnChange = OrderNoChange + end + object JGFactoryName: TEdit + Tag = 2 + Left = 347 + Top = 103 + Width = 76 + Height = 20 + TabOrder = 4 + OnChange = OrderNoChange + end + object OrdPerson1: TEdit + Tag = 2 + Left = 611 + Top = 11 + Width = 76 + Height = 20 + TabOrder = 5 + OnChange = OrderNoChange + end + object PRTCF: TEdit + Tag = 2 + Left = 637 + Top = 103 + Width = 76 + Height = 20 + TabOrder = 6 + OnChange = OrderNoChange + end + object PRTColor: TEdit + Tag = 2 + Left = 610 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = OrderNoChange + end + object PRTCodeName: TEdit + Tag = 2 + Left = 260 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 8 + OnChange = OrderNoChange + end + object ConNo: TEdit + Tag = 2 + Left = 216 + Top = 91 + Width = 77 + Height = 20 + TabOrder = 9 + OnChange = OrderNoChange + OnKeyPress = ConNoKeyPress + end + object PRTSpec: TEdit + Tag = 2 + Left = 426 + Top = 35 + Width = 76 + Height = 20 + TabOrder = 10 + OnChange = OrderNoChange + end + object OrdDefStr1: TEdit + Tag = 2 + Left = 495 + Top = 99 + Width = 76 + Height = 20 + TabOrder = 11 + OnChange = OrderNoChange + end + object PRTKZ: TEdit + Tag = 2 + Left = 830 + Top = 115 + Width = 56 + Height = 20 + TabOrder = 12 + OnChange = OrderNoChange + end + object PRTMF: TEdit + Tag = 2 + Left = 830 + Top = 91 + Width = 56 + Height = 20 + TabOrder = 13 + OnChange = OrderNoChange + end + object fRoll1: TcxCurrencyEdit + Left = 796 + Top = 12 + ParentFont = False + Properties.DisplayFormat = '0.##' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clRed + Style.Font.Height = -12 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 14 + Visible = False + Width = 70 + end + object fnum1: TcxCurrencyEdit + Left = 796 + Top = 36 + ParentFont = False + Properties.DisplayFormat = '0.##' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clRed + Style.Font.Height = -12 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 15 + Visible = False + Width = 70 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 153 + Width = 1118 + Height = 260 + 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 + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1PRTRollNum + end + item + Kind = skSum + Column = v1PRTOrderQty + end> + DataController.Summary.SummaryGroups = <> + 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.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 v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1OrderNo: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.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_TradeManage.Default + Width = 68 + end + object v1OrdDefStr1: TcxGridDBColumn + Caption = #20844#21496#32534#21495 + DataBinding.FieldName = 'OrdDefStr1' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 90 + end + object v1Column1: TcxGridDBColumn + Caption = #20844#21496#21488#22836 + DataBinding.FieldName = 'OrdDefStr2' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 90 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'OrdPerson1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1JGFactoryName: TcxGridDBColumn + Caption = #26579#21378 + DataBinding.FieldName = 'JGFactoryName' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1PRTColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1OrdDate: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + PropertiesClassName = 'TcxDateEditProperties' + 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 + OnCustomDrawCell = v1DeliveryDateCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 62 + 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 v1MPRTCodeName: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'PRTSpec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1MPRTCF: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'PRTCF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 69 + end + object v1MPRTMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'PRTMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1MPRTKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'PRTKZ' + Options.Editing = False + Options.Focusing = False + Width = 54 + end + object v1Column8: TcxGridDBColumn + Caption = #22791#27880#21450#35201#27714 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_TradeManage.Default + Width = 96 + end + object v1PRTRollNum: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PRTRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontBlack + Styles.Footer = DataLink_TradeManage.cxStyle_fontBlack + Styles.Header = DataLink_TradeManage.cxStyle_fontBlack + Width = 60 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'PRTOrderQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontBlack + Styles.Footer = DataLink_TradeManage.cxStyle_fontBlack + Styles.Header = DataLink_TradeManage.cxStyle_fontBlack + Width = 60 + end + object v1Column2: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'OrderUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 58 + end + object v1Column6: TcxGridDBColumn + Caption = #37197#36135#21305#25968 + DataBinding.FieldName = 'PH_RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'PH_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Footer = DataLink_TradeManage.cxStyle_fontclFuchsia + Styles.Header = DataLink_TradeManage.cxStyle_fontclFuchsia + Width = 60 + end + object v1Column3: TcxGridDBColumn + Caption = #20215#26684#21333#20301 + DataBinding.FieldName = 'PriceUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 61 + end + object v1Column5: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 131 + Width = 1118 + Height = 22 + Align = alTop + Style = 9 + TabIndex = 1 + TabOrder = 3 + Tabs.Strings = ( + #26410#37197#36135 + #24050#37197#36135 + #24050#21457#36135 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1118 + ClientRectTop = 19 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 451 + Width = 1118 + Height = 231 + Align = alTop + TabOrder = 4 + object TV2: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DS_PH + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = V2Column5 + end + item + Kind = skCount + Position = spFooter + Column = V2Column9 + end + item + Kind = skSum + Position = spFooter + Column = V2Column7 + end + item + Kind = skSum + Position = spFooter + Column = V2Column8 + end + item + Kind = skSum + Column = V2Column5 + end + item + Kind = skCount + Column = V2Column9 + end + item + Kind = skSum + Column = V2Column7 + end + item + Kind = skSum + Column = V2Column8 + end + item + Kind = skSum + Position = spFooter + Column = V2Column4 + end + item + Kind = skSum + Column = V2Column4 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = V2Column4 + end + item + Kind = skSum + Column = V2Column5 + end + item + Kind = skSum + Column = V2Column7 + end + item + Kind = skSum + Column = V2Column8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object V2Column10: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 75 + end + object V2Column1: TcxGridDBColumn + Caption = #20219#21153#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object V2Column2: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object V2Column3: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object V2C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Column4: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'KCRollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object V2Column5: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'KCQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object V2Column9: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'KCQtyUnit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 70 + end + object V2Column7: TcxGridDBColumn + Caption = #37197#36135#21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 70 + end + object V2Column8: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 70 + end + object V2Column6: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object V2Column11: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 60 + end + object V2PHYG: TcxGridDBColumn + Caption = #37197#36135#20154#21592 + DataBinding.FieldName = 'PHYG' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Filler: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object V2Column12: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = TV2 + end + end + object Panel3: TPanel + Left = 0 + Top = 413 + Width = 1118 + Height = 38 + Align = alTop + TabOrder = 5 + object Label14: TLabel + Left = 500 + Top = 60 + Width = 36 + Height = 12 + Caption = #21367#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 532 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#26085#26399 + end + object ToolBar2: TToolBar + Left = 1 + Top = 1 + Width = 508 + Height = 36 + Align = alLeft + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar2' + Flat = True + Images = DataLink_TradeManage.ThreeImgList + List = True + ShowCaptions = True + TabOrder = 0 + object ToolButton4: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #36873#25321#24211#23384 + ImageIndex = 49 + OnClick = ToolButton4Click + end + object phwc: TToolButton + Left = 87 + Top = 0 + AutoSize = True + Caption = #37197#36135#23436#25104 + ImageIndex = 22 + OnClick = phwcClick + end + object ToolButton6: TToolButton + Left = 174 + Top = 0 + Caption = #20462#25913#37197#36135 + ImageIndex = 54 + Visible = False + OnClick = ToolButton6Click + end + object phok: TToolButton + Left = 257 + Top = 0 + AutoSize = True + Caption = #37197#36135#30830#35748 + ImageIndex = 16 + OnClick = phokClick + end + object fh: TToolButton + Left = 344 + Top = 0 + AutoSize = True + Caption = #25104#21697#21457#36135 + ImageIndex = 41 + OnClick = fhClick + end + object del: TToolButton + Left = 431 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 48 + OnClick = delClick + end + object ToolButton5: TToolButton + Left = 494 + Top = 0 + AutoSize = True + Caption = #25764#38144 + ImageIndex = 86 + OnClick = ToolButton5Click + end + end + object Panel2: TPanel + Left = 864 + Top = 1 + Width = 253 + Height = 36 + Align = alRight + BevelOuter = bvNone + TabOrder = 1 + end + object Edit1: TEdit + Left = 536 + Top = 56 + Width = 145 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnKeyPress = Edit1KeyPress + end + object CRdate: TDateTimePicker + Left = 588 + Top = 8 + Width = 90 + Height = 20 + Date = 41557.498293449080000000 + Format = 'yyyy-MM-dd' + Time = 41557.498293449080000000 + TabOrder = 3 + end + end + object CheckBox1: TCheckBox + Left = 216 + Top = 100 + Width = 99 + Height = 19 + Caption = #20840#36873 + TabOrder = 6 + OnClick = CheckBox1Click + 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 ADO_PH: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 296 + Top = 476 + end + object DS_PH: TDataSource + DataSet = CDS_PH + Left = 352 + Top = 484 + end + object CDS_PH: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 480 + end + object ADOPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 888 + Top = 84 + end + object RMDB_MD: TRMDBDataSet + Visible = True + DataSet = ADOPrint + Left = 924 + Top = 64 + 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 RMXLSExport2: 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_ProductOrder_Ph_other.pas b/管理系统/U_ProductOrder_Ph_other.pas new file mode 100644 index 0000000..cc18516 --- /dev/null +++ b/管理系统/U_ProductOrder_Ph_other.pas @@ -0,0 +1,2290 @@ +unit U_ProductOrder_Ph_other; + +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, cxContainer, cxTextEdit, cxCurrencyEdit; + +type + TfrmProductOrder_Ph_other = 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; + v1JGFactoryName: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + v1ConNo: 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; + ToolButton1: TToolButton; + Label2: TLabel; + JGFactoryName: TEdit; + Label5: TLabel; + OrdPerson1: TEdit; + Label6: TLabel; + PRTCF: TEdit; + Label7: TLabel; + PRTColor: TEdit; + Label8: TLabel; + PRTCodeName: TEdit; + Label9: TLabel; + ConNo: TEdit; + v1Column8: TcxGridDBColumn; + v1MPRTKZ: TcxGridDBColumn; + v1OrdDefStr1: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + Label10: TLabel; + PRTSpec: TEdit; + Label11: TLabel; + OrdDefStr1: TEdit; + Label12: TLabel; + PRTKZ: TEdit; + Label13: TLabel; + PRTMF: TEdit; + ToolButton2: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + ToolButton3: TToolButton; + v1Column4: TcxGridDBColumn; + ComboBox1: TComboBox; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1PRTRollNum: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolBar2: TToolBar; + TV2: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + del: TToolButton; + V2Column1: TcxGridDBColumn; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + V2Column5: TcxGridDBColumn; + phwc: TToolButton; + phok: TToolButton; + fh: TToolButton; + V2Column7: TcxGridDBColumn; + V2Column8: TcxGridDBColumn; + V2Column9: TcxGridDBColumn; + ADO_PH: TADOQuery; + DS_PH: TDataSource; + CDS_PH: TClientDataSet; + V2Column10: TcxGridDBColumn; + Panel3: TPanel; + Panel2: TPanel; + Edit1: TEdit; + Label14: TLabel; + ToolButton4: TToolButton; + v1PRTColor: TcxGridDBColumn; + V2C_Color: TcxGridDBColumn; + ToolButton5: TToolButton; + TBPrint1: TToolButton; + ADOPrint: TADOQuery; + RMDB_MD: TRMDBDataSet; + RMGridReport1: TRMGridReport; + RMXLSExport2: TRMXLSExport; + Label15: TLabel; + CRdate: TDateTimePicker; + V2Column6: TcxGridDBColumn; + V2Column11: TcxGridDBColumn; + ToolButton6: TToolButton; + v1Ssel: TcxGridDBColumn; + V2Column12: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + V2Filler: TcxGridDBColumn; + V2PHYG: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + CheckBox1: TCheckBox; + TBPrint2: TToolButton; + Label16: TLabel; + Label17: TLabel; + fRoll1: TcxCurrencyEdit; + fnum1: TcxCurrencyEdit; + ToolButton7: 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 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 OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure Edit1KeyPress(Sender: TObject; var Key: Char); + procedure phwcClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure phokClick(Sender: TObject); + procedure delClick(Sender: TObject); + procedure fhClick(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure TBPrint1Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); + procedure TBPrint2Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + private + DQdate:TDateTime; + TblCprk:string; + procedure InitGrid(); + procedure InitPH(); + procedure InitForm(); + function DelData():Boolean; + procedure InitGridFH(); + procedure Query_MJ(mjid:string); + function SaveData():Boolean; + function YSData(Order_Main10:TClientDataSet):Boolean; + function SaveEjK(FNO,FID,fBCID,fCkNO:string):boolean; + procedure CreateTable(); + procedure DropTable(); + { Private declarations } + public + fDParameters1:string; + FFInt,FCloth:Integer; + + { Public declarations } + end; + +var + frmProductOrder_Ph_other: TfrmProductOrder_Ph_other; + +implementation +uses + U_DataLink,U_OrderInPut,U_Fun,U_CKProductBCPKCListSel_other, U_CKSMEdit_other; + +{$R *.dfm} +procedure TfrmProductOrder_Ph_other.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 ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; +procedure TfrmProductOrder_Ph_other.CreateTable(); +var + strSQL:string; +begin + TblCprk := '[##CP_PH' + 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),' + + 'BCID Varchar(20))'#13; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(strSQL); + ExecSQL; + end; +end; +function TfrmProductOrder_Ph_other.SaveEjK(FNO,FID,fBCID,fCkNO:string):boolean; +var + fkcID:integer; + Filler:string; + FillTime:TdateTime; +begin + result:=false; + try + + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update BP_Kcid Set kcid=kcid+1'); + sql.Add('select kcid from BP_Kcid'); + Open; + end; + fkcID:=ADOQueryCmd.fieldbyname('kcid').AsInteger; + + with CDS_PH do + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from BP_InOut'); + sql.Add('where 1=2 '); + open; + end; + // fkcID:=strtoint(RightBStr(trim(FNO),length(FNO)-3)+trim(FID)); + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('CRNO').Value:=trim(FNO); + ADOQueryCmd.FieldByName('CRID').Value:=FID; + ADOQueryCmd.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRdate.Date); + ADOQueryCmd.FieldByName('CKName').Value:='㶫ֿ'; + ADOQueryCmd.FieldByName('CRType').Value:='㶫'; + ADOQueryCmd.FieldByName('CRFlag').Value:=''; + ADOQueryCmd.FieldByName('mainID').Value:=trim(fieldbyname('mainID').AsString); + 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('MJType').AsString); + ADOQueryCmd.FieldByName('P_Code').Value:=trim(fieldbyname('C_Code').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value:=trim(fieldbyname('C_CodeName').AsString); + ADOQueryCmd.FieldByName('P_spec').Value:=trim(fieldbyname('C_spec').AsString); + ADOQueryCmd.FieldByName('P_Color').Value:=trim(fieldbyname('C_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('packNo').Value:=trim(fieldbyname('packNo').AsString); + ADOQueryCmd.FieldByName('note').Value:=''; + ADOQueryCmd.FieldByName('Filler').Value:=trim(Filler); + ADOQueryCmd.FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); + ADOQueryCmd.FieldByName('fromMainID').Value:=trim(fCkNO); + ADOQueryCmd.FieldByName('FromSubID').Value:=trim(FbcID); + ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from BP_KC'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('kcID').Value:=fkcID; + ADOQueryCmd.FieldByName('CKName').Value:='㶫ֿ'; + ADOQueryCmd.FieldByName('CRType').Value:='㶫'; + ADOQueryCmd.FieldByName('CRNO').Value:=trim(fNo); + ADOQueryCmd.FieldByName('CRID').Value:=fID; + ADOQueryCmd.FieldByName('CRTime').Value:=formatdateTime('yyyy-MM-dd',CRdate.Date); + 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('C_Code').AsString); + ADOQueryCmd.FieldByName('P_CodeName').Value:=trim(fieldbyname('C_CodeName').AsString); + ADOQueryCmd.FieldByName('P_spec').Value:=trim(fieldbyname('C_spec').AsString); + ADOQueryCmd.FieldByName('P_Color').Value:=trim(fieldbyname('C_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('kcID').Value:=fkcID; + ADOQueryCmd.Post; + end; + result:=true; + except + end; +end; +function TfrmProductOrder_Ph_other.YSData(Order_Main10:TClientDataSet):Boolean; +var + CRID,YFID,Price,PriceUnit,OrderUnit,FComTaiTou,customName:String; +begin + Result:=False; + with Order_Main10 do + begin + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YF_Money_KC where FactoryName='''+Trim(Order_Main10.fieldbyname('CustomerNoName').AsString)+''''); + sql.Add(' and YFDefFlag1=2 '); + Open; + end; + if not ADOQueryTemp.IsEmpty 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('CustomerNoName').AsString); + FieldByName('ZdyStr1').Value:='Ӧ'; + FieldByName('YFDefFlag1').Value:=2; + Post; + end; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('select * from YF_Money_CR '); + sql.Add(' where MainID='''+Trim(Order_Main10.fieldbyname('MainID').AsString)+''''); + sql.Add(' and subID='''+Trim(Order_Main10.fieldbyname('subID').AsString)+''''); + sql.Add(' and YFName=''۽'' '); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd,YFID,'CS','YF_Money_CR',4,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('CustomerNoName').AsString); + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CRdate.Date)); + FieldByName('YFType').Value:='Զ'; + FieldByName('Price').Value:=Order_Main10.fieldbyname('PRTPrice').Value; + FieldByName('HuiLv').Value:=1; + FieldByName('BZType').Value:=''; + FieldByName('QtyUnit').Value:='M'; + FieldByName('ComTaiTou').Value:=Trim(Order_Main10.fieldbyname('CustomerNoName').AsString); + FieldByName('YFName').Value:='۽'; + FieldByName('P_CodeName').Value:=Trim(Order_Main10.fieldbyname('PRTCodeName').AsString); + FieldByName('P_Color').Value:=Trim(Order_Main10.fieldbyname('PRTColor').AsString); + FieldByName('MainId').Value:=Trim(Order_Main10.fieldbyname('Mainid').AsString); + FieldByName('subID').Value:=Trim(Order_Main10.fieldbyname('subID').AsString); + FieldByName('SYRName').Value:=Trim(Order_Main10.fieldbyname('SYRName').AsString); + FieldByName('YFDefFlag1').Value:=2; + FieldByName('status').Value:='1'; + // FieldByName('syrName').Value:='в'; + Post; + end; + end + else + begin + YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YF_Money_CR where YFID='''+trim(YFID)+''''); + Open; + edit; + FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CRdate.Date)); + post; + 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_CR1 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 CK_BanCP_CR1 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; +function TfrmProductOrder_Ph_other.SaveData():Boolean; +var + phID:string; +begin + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_PH1 '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + + with CDS_PH do + begin + DisableControls; + first; + while not eof do + begin + if fieldbyname('qty').AsFloat=0 then continue; + if GetLSNo(ADOQueryTemp,phID,'PH','CK_BanCP_PH1',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_PH1 '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('phID').Value:=trim(phID); + ADOQueryCmd.FieldByName('conNo').Value:=trim(fieldbyname('conNo').AsString); + ADOQueryCmd.FieldByName('MainID').Value:=trim(Order_Main.fieldbyname('MainID').AsString); + ADOQueryCmd.FieldByName('SubID').Value:=trim(Order_Main.fieldbyname('SubID').AsString); + ADOQueryCmd.FieldByName('PMainID').Value:=trim(fieldbyname('PMainID').AsString); + ADOQueryCmd.FieldByName('PSubID').Value:=trim(fieldbyname('PSubID').AsString); + ADOQueryCmd.FieldByName('mjID').Value:=trim(fieldbyname('mjID').AsString); + ADOQueryCmd.FieldByName('CRID').Value:=trim(fieldbyname('CRID').AsString); + ADOQueryCmd.FieldByName('qtyunit').Value:=trim(fieldbyname('kcqtyunit').AsString); + ADOQueryCmd.FieldByName('qty').Value:=fieldbyname('qty').AsFloat; + ADOQueryCmd.FieldByName('Rollnum').Value:=fieldbyname('Rollnum').AsFloat; + ADOQueryCmd.FieldByName('Filler').Value:=trim(DName); + ADOQueryCmd.FieldByName('FillTime').Value:=date(); + ADOQueryCmd.Post; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 '); + sql.Add('where mjid='+quotedstr(trim(CDS_PH.fieldbyname('mjid').AsString))); + sql.Add('and CRID='+quotedstr(trim(CDS_PH.fieldbyname('CRID').AsString))); + open; + edit; + fieldbyname('kcstatus').Value:='1'; + post; + end; + next; + end; + first; + EnableControls; + + 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 subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value:='2'; + post; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; +procedure TfrmProductOrder_Ph_other.Query_MJ(mjid:string); +begin + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select A.*,Rollnum=A.kcRollNum,Qty=A.kcQty,B.mjxh,D.mainID,D.subID,D.C_Code,D.C_CodeName,D.C_Spec,F.conNo '); + sql.Add('from CK_BanCP_KC1 A '); + sql.Add('inner join WFB_MJJY B on B.mjid=A.mjid '); + sql.Add('inner join Contract_Sub D on D.MainId=B.mainID and D.SubId=b.subID '); + sql.Add('inner join Contract_main F on F.MainId=F.mainID '); + sql.Add('where A.mjID='+quotedstr(trim(mjid))); + open; + if IsEmpty then + begin + application.MessageBox('˾Ų!','ʾϢ',MB_ICONERROR); + exit; + end + else if CDS_PH.Locate('mjid',fieldbyname('MjID').AsString,[]) then + begin + application.MessageBox('˾Ѽ!','ʾϢ',MB_ICONERROR); + exit; + end + else + begin + CDS_PH.Append; + CDS_PH.FieldByName('conNo').Value:=trim(fieldbyname('conNo').AsString); + CDS_PH.FieldByName('mjid').Value:=trim(fieldbyname('mjid').AsString); + // CDS_PH.FieldByName('mjxh').Value:=trim(fieldbyname('mjxh').AsString); + CDS_PH.FieldByName('C_CodeName').Value:=trim(fieldbyname('C_CodeName').AsString); + CDS_PH.FieldByName('C_Spec').Value:=trim(fieldbyname('C_Spec').AsString); + CDS_PH.FieldByName('PMainID').Value:=trim(fieldbyname('MainID').AsString); + CDS_PH.FieldByName('PSubID').Value:=trim(fieldbyname('SubID').AsString); + CDS_PH.FieldByName('kcqtyunit').Value:=trim(fieldbyname('kcqtyunit').AsString); + CDS_PH.FieldByName('kcqty').Value:=fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('kcRollnum').Value:=fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('Qty').Value:=fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('RollNum').Value:=fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('CRID').Value:=fieldbyname('CRID').AsFloat; + CDS_PH.Post; + end; + end; +end; +procedure TfrmProductOrder_Ph_other.InitPH(); +begin + if ADOQueryMain.Active=False then Exit; + if Order_Main.IsEmpty THEN EXIT; + try + ADO_PH.DisableControls; + with ADO_PH do + begin + Close; + sql.Clear; + Filtered:=False; + sql.Add('select A.*,B.KCKGQty,B.KCQty,B.KCQtyUnit,B.kcRollNum,B.CPType,B.C_Code,C.kckw,B.C_CodeName,B.C_Spec,B.C_Color,B.RCGangNo,E.MJType,E.apID,B.mjxh '); + sql.Add('from CK_BanCP_PH1 A '); + sql.Add('INNER join CK_BanCP_KC1 B on B.CRID=A.CRID '); + sql.Add('LEFT join CK_BanCP_CR1 C on C.CRID=B.CRID and CRFlag='''' '); + sql.Add('LEFT join WFB_MJJY E on A.MJID=E.MJID '); + sql.Add('where A.mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').asstring))); + sql.Add('and A.subID='+quotedstr(trim(Order_Main.fieldbyname('subID').asstring))); + Open; + end; + SCreateCDS20(ADO_PH,CDS_PH); + SInitCDSData20(ADO_PH,CDS_PH); + finally + ADO_PH.EnableControls; + end; +end; + + +procedure TfrmProductOrder_Ph_other.FormDestroy(Sender: TObject); +begin + frmProductOrder_Ph_other:=nil; +end; + +procedure TfrmProductOrder_Ph_other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + + Action:=caFree; +end; + +procedure TfrmProductOrder_Ph_other.FormCreate(Sender: TObject); +begin + cxgrid2.Align:=alClient; +// CreateTable(); + //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; + //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + DQdate:=SGetServerDate(ADOQueryTemp); + + CRdate.DateTime:= DQdate; + cxTabControl1.TabIndex:=0; + del.Visible:=false; + phwc.Visible:=false; + phok.Visible:=false; + fh.Visible:=false; + Panel2.Visible:=false; + ToolButton4.Visible:=false; + TV2.OptionsData.Editing:=false; + ToolButton5.Visible:=false; + case cxTabControl1.TabIndex of + 0:begin + del.Visible:=true; + phwc.Visible:=true; + Panel2.Visible:=true; + ToolButton4.Visible:=true; + TV2.OptionsData.Editing:=true; + end; + 1:begin + phok.Visible:=true; + ToolButton5.Visible:=true; + end; + 2:begin + fh.Visible:=true; + ToolButton5.Visible:=true; + end; + 3:begin + end; + end; + application.ProcessMessages; +end; + +procedure TfrmProductOrder_Ph_other.TBCloseClick(Sender: TObject); +begin + Close; + if FCloth<>1 then + WriteCxGrid(self.Caption,Tv1,'ָʾ') + else + WriteCxGrid(self.Caption,Tv1,'ָʾ'); +end; + +procedure TfrmProductOrder_Ph_other.InitGrid(); +var + strwhere:string; +begin + strwhere:=''; + + if cxTabControl1.TabIndex=0 then + begin + strwhere:=strwhere+' and isnull(substatus,''0'')='''+inttostr(cxTabControl1.TabIndex)+''''; + + strwhere:=strwhere+' and isnull(OrderType,''0'')<>'''' '; + end; + if cxTabControl1.TabIndex>=1 then + strwhere:=strwhere+' and isnull(substatus,''0'')='''+inttostr(cxTabControl1.TabIndex+1)+''''; + + + strwhere:=strwhere+' and syrName=''˷֯'' '; + +// strwhere:=strwhere+' and CustomerNoName<>''в'' '; + + 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:=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); + TBFind.Click; + finally + ADOQueryMain.EnableControls; + + end; +end; +procedure TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.InitForm(); +begin + + if FCloth<>1 then + ReadCxGrid(self.Caption,Tv1,'ָʾ') + else + ReadCxGrid(self.Caption,Tv1,'ָʾ'); + + if FCloth=1 then + begin + v1Column4.Visible:=True; + + end else + begin + v1Column4.Visible:=False; + end; + BegDate.DateTime:=SGetServerDate10(ADOQueryTemp); + 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 TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then Exit; + SelExportData(Tv1,ADOQueryMain,'ָʾб'); +end; + +procedure TfrmProductOrder_Ph_other.TBPrintClick(Sender: TObject); +var + fPrintFile:string; + Porderno,PRTCodeName,funit:string; + i,j:Integer; +begin + if Order_Main.IsEmpty then Exit; + if Trim(DParameters1)<>'Ȩ' then + begin + 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('OrdFlag1').AsBoolean=True then + begin + Application.MessageBox('Ѵӡݣٴδӡ!','ʾ',0); + Exit; + end; + end; + + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select PRTRollNum=Cast('''' as varchar(200)),PRTOrderQty=Cast('''' as varchar(200)),PRTCodeName,PRTOrderQty2=Cast('''' as varchar(200)),PRTCodeName,PRTOrderQty3=Cast('''' as varchar(200)),PRTCodeName, '); + sql.add('PRTColor=Cast('''' as varchar(200))'); + sql.Add(' from JYOrder_Sub '); + sql.Add(' where 1<>1 '); + Open; + end; + SCreateCDS20(ADOQueryPrint,CDS_Print); + SInitCDSData20(ADOQueryPrint,CDS_Print); + if CDS_Print.IsEmpty=False then CDS_Print.Delete; + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select *,case when PRTRollNum<>0 then ''ƥ'' else OrderUnit end Unit '); + sql.Add(' from JYOrder_Sub '); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + Open; + end; + ADOQueryPrint.DisableControls; + CDS_Print.DisableControls; + with ADOQueryPrint do + begin + First; + while not Eof do + begin + if CDS_Print.IsEmpty then + begin + with CDS_Print do + begin + Append; + FieldByName('PRTCodeName').Value:=ADOQueryPrint.fieldbyname('PRTCodeName').Value; + FieldByName('PRTColor').Value:=ADOQueryPrint.fieldbyname('PRTColor').Value; + FieldByName('PRTRollNum').Value:=Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)); + // FieldByName('PRTOrderQty').Value:=Trim(FloatToStr(ADOQueryPrint.fieldbyname('PRTOrderQty').Value)); + if trim(ADOQueryPrint.FieldByName('unit').AsString) ='ƥ' then + FieldByName('PRTOrderQty').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + +trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + +trim(ADOQueryPrint.FieldByName('unit').AsString); + Post; + i:=1; + PRTCodeName:=Trim(ADOQueryPrint.fieldbyname('PRTCodeName').AsString); + funit:=Trim(ADOQueryPrint.fieldbyname('Unit').AsString); + end; + end else + begin + if (Trim(ADOQueryPrint.fieldbyname('PRTCodeName').AsString)=PRTCodeName) and (Trim(ADOQueryPrint.fieldbyname('Unit').AsString)=funit) then + begin + if i<3 then + begin + with CDS_Print do + begin + Edit; + FieldByName('PRTColor').Value:=Trim(FieldByName('PRTColor').AsString)+',' + +Trim(ADOQueryPrint.fieldbyname('PRTColor').AsString); + FieldByName('PRTRollNum').Value:=Trim(FieldByName('PRTRollNum').AsString)+','+ + Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)); + // FieldByName('PRTOrderQty').Value:=Trim(FieldByName('PRTOrderQty').AsString)+','+Trim(FloatToStr(ADOQueryPrint.fieldbyname('PRTOrderQty').Value)); + + if i=1 then + begin + if trim(ADOQueryPrint.FieldByName('unit').AsString) ='ƥ' then + FieldByName('PRTOrderQty2').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + +trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty2').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + +trim(ADOQueryPrint.FieldByName('unit').AsString); + end; + if i=2 then + begin + if trim(ADOQueryPrint.FieldByName('unit').AsString) ='ƥ' then + FieldByName('PRTOrderQty3').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + +trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty3').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + +trim(ADOQueryPrint.FieldByName('unit').AsString); + end; + Post; + end; + i:=i+1; + end else + begin + with CDS_Print do + begin + Append; + FieldByName('PRTCodeName').Value:=ADOQueryPrint.fieldbyname('PRTCodeName').Value; + FieldByName('PRTColor').Value:=ADOQueryPrint.fieldbyname('PRTColor').Value; + FieldByName('PRTRollNum').Value:=Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)); + // FieldByName('PRTOrderQty').Value:=Trim(FloatToStr(ADOQueryPrint.fieldbyname('PRTOrderQty').Value)); + + if trim(ADOQueryPrint.FieldByName('unit').AsString) ='ƥ' then + FieldByName('PRTOrderQty').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + +trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + +trim(ADOQueryPrint.FieldByName('unit').AsString); + + Post; + i:=1; + PRTCodeName:=Trim(ADOQueryPrint.fieldbyname('PRTCodeName').AsString); + funit:=Trim(ADOQueryPrint.fieldbyname('Unit').AsString); + end; + end; + end else + begin + with CDS_Print do + begin + Append; + FieldByName('PRTCodeName').Value:=ADOQueryPrint.fieldbyname('PRTCodeName').Value; + FieldByName('PRTColor').Value:=ADOQueryPrint.fieldbyname('PRTColor').Value; + FieldByName('PRTRollNum').Value:=Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)); + if trim(ADOQueryPrint.FieldByName('unit').AsString) ='ƥ' then + FieldByName('PRTOrderQty').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(IntToStr(ADOQueryPrint.fieldbyname('PRTRollNum').AsInteger)) + +trim(ADOQueryPrint.FieldByName('unit').AsString) + else + FieldByName('PRTOrderQty').Value:=trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'/'+Trim(floattoStr(ADOQueryPrint.fieldbyname('PRTOrderQty').AsFloat)) + +trim(ADOQueryPrint.FieldByName('unit').AsString); + + Post; + i:=1; + PRTCodeName:=Trim(ADOQueryPrint.fieldbyname('PRTCodeName').AsString); + funit:=Trim(ADOQueryPrint.fieldbyname('Unit').AsString); + end; + end; + end; + Next; + end; + end; + ADOQueryPrint.EnableControls; + CDS_Print.EnableControls; + if FileExists(fPrintFile) then + begin + RMVariables['customerNoName']:=Trim(Order_Main.fieldbyname('customerNoName').AsString); + RMVariables['OrderNo']:=Trim(Order_Main.fieldbyname('OrderNo').AsString); + RMVariables['Note']:=Trim(Order_Main.fieldbyname('Note').AsString); + RMVariables['FHAddress']:=Trim(Order_Main.fieldbyname('FHAddress').AsString); + RMVariables['LXFS']:=Trim(Order_Main.fieldbyname('LXFS').AsString); + RMVariables['OrdDate']:=Order_Main.fieldbyname('OrdDate').Value; + RMVariables['OrdPerson1']:=Order_Main.fieldbyname('OrdPerson1').Value; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end else + begin + Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + end; + if Trim(DParameters1)<>'Ȩ' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set OrdDefDate1=getdate(),OrdPerson1='''+Trim(DName)+''',OrdFlag1=1'); + sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + ExecSQL; + end; + + end; + +end; + + +procedure TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmProductOrder_Ph_other.Tv1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); +begin + // if ToolButton1.Visible=False then Exit; +// ToolButton1.Click; + +end; + +procedure TfrmProductOrder_Ph_other.TBTPClick(Sender: TObject); + var + FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String; +begin +end; + +procedure TfrmProductOrder_Ph_other.CheckBox1Click(Sender: TObject); +begin + IF Order_Main.IsEmpty then exit; + with Order_Main do + begin + DisableControls; + first; + while not eof do + begin + edit; + fieldbyname('ssel').Value:=checkbox1.Checked; + post; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmProductOrder_Ph_other.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.ToolButton3Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmProductOrder_Ph_other.OrderNoKeyPress(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 A.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 TfrmProductOrder_Ph_other.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 TfrmProductOrder_Ph_other.Edit1KeyPress(Sender: TObject; + var Key: Char); +begin + if key=#13 then + begin + Query_MJ(Edit1.Text); + end; +end; + +procedure TfrmProductOrder_Ph_other.phwcClick(Sender: TObject); +var + phRollNum,phQty:double; +begin + if cds_ph.IsEmpty then exit; + + with CDS_PH do + begin + DisableControls; + first; + while not eof do + begin + if (trim(fieldbyname('C_CodeName').AsString)<>trim(Order_Main.FieldByName('PRTCodeName').AsString)) + or (trim(fieldbyname('C_Color').AsString)<>trim(Order_Main.FieldByName('PRTColor').AsString)) then + begin + application.MessageBox('Ʒƻɫһ','ʾϢ',0); + EnableControls; + exit; + end; + next; + end; + first; + EnableControls; + end; + phRollNum:=0; + phQty:=0; + with CDS_PH do + begin + DisableControls; + first; + while not eof do + begin + phRollNum:=phRollNum+ CDS_PH.fieldbyname('RollNum').AsFloat; + phQty:=phQty+ CDS_PH.fieldbyname('Qty').AsFloat; + next; + end; + first; + EnableControls; + end; + + if (phRollNum<>Order_Main.FieldByName('PRTRollNum').AsFloat) or + (phQty<>Order_Main.FieldByName('PRTOrderQty').AsFloat) then + begin + if Application.MessageBox('δﵽҪȷ','ʾϢ',32+4)<>IDYES then Exit; + end; + + if SaveData() then + begin + application.MessageBox('ɹ!','ʾϢ'); + TBRafresh.Click; + end + else + begin + application.MessageBox('ʧ!','ʾϢ',0); + end; +end; + +procedure TfrmProductOrder_Ph_other.cxTabControl1Change(Sender: TObject); +begin + del.Visible:=false; + phwc.Visible:=false; + phok.Visible:=false; + fh.Visible:=false; + Panel2.Visible:=false; + ToolButton4.Visible:=false; + TV2.OptionsData.Editing:=false; + ToolButton5.Visible:=false; + TBPrint1.Visible:=false; + TBPrint2.Visible:=false; + ToolButton6.Visible:=false; + case cxTabControl1.TabIndex of + 0:begin + del.Visible:=true; + phwc.Visible:=true; + Panel2.Visible:=true; + ToolButton4.Visible:=true; + TV2.OptionsData.Editing:=true; + end; + 1:begin + fh.Visible:=true; + ToolButton5.Visible:=true; + if fDParameters1='Ȩ' then + ToolButton6.Visible:=true; + end; + 2:begin + TBPrint1.Visible:=true; + // TBPrint2.Visible:=true; + end; + end; + application.ProcessMessages; + initGrid(); +end; + +procedure TfrmProductOrder_Ph_other.phokClick(Sender: TObject); +begin + if cds_ph.IsEmpty then exit; + try + 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 subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value:='2'; + post; + end; + application.MessageBox('ȷϳɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ȷʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmProductOrder_Ph_other.delClick(Sender: TObject); +begin + if cds_ph.IsEmpty then exit; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_PH1 '); + sql.Add('where PHID='+quotedstr(trim(cds_ph.fieldbyname('PHID').AsString))); + execsql; + end; + cds_ph.Delete; +end; + +procedure TfrmProductOrder_Ph_other.fhClick(Sender: TObject); +var + CKOrdNo,maxno,rkNo:string; + i,fRoll:integer; + fNum:double; +begin + if cds_ph.IsEmpty then exit; + + if Order_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; +{ fRoll:=0; + fNum:=0; + with Order_Main do + begin + First; + DisableControls; + while not eof do + begin + if FieldByName('ssel').AsBoolean then + begin + fRoll:=fRoll+ Fieldbyname('PH_RollNum').AsInteger; + fNum:=fNum+ Fieldbyname('PH_Qty').AsFloat; + end; + next; + end; + First; + EnableControls + end; + + IF fRoll<>strtointdef(trim(froll1.Text),0) then + begin + application.MessageBox('ƥȷܷ','ʾϢ',0); + exit; + end; + IF fnum<>strtofloatdef(trim(fnum1.Text),0) then + begin + application.MessageBox('ȷܷ','ʾϢ',0); + exit; + end; } + + ADOQueryCmd.Connection.BeginTrans; + try + Order_Main.First; + Order_Main.DisableControls; + CDS_ph.DisableControls; + while not Order_Main.eof do + begin + IF Order_Main.FieldByName('ssel').AsBoolean then + begin + initPH(); + if GetLSNo(ADOQueryTemp,CKOrdNo,'CT','CK_BanCP_CR1',3,1)=False then + begin + Order_Main.EnableControls; + CDS_ph.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡⵥʧ!','ʾ',0); + Exit; + end; + IF trim(CKOrdNo)='' then + begin + Order_Main.EnableControls; + CDS_ph.EnableControls; + Application.MessageBox('ȡⵥŷ!','ʾ',0); + Exit; + end; + end; + i:=1; + with CDS_ph do + begin + First; + while not eof do + begin + if GetLSNo(ADOQueryTemp,maxno,'CH','CK_BanCP_CR1',4,1)=False then + begin + Order_Main.EnableControls; + CDS_ph.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCp_CR1 where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('BCID').Value:=Trim(maxno); + FieldByName('CRID').Value:=CDS_ph.fieldbyname('CRID').Value; + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',CRdate.DateTime); + FieldByName('KGQty').Value:=CDS_ph.fieldbyname('KGQty').AsFloat; + FieldByName('Qty').Value:=CDS_ph.fieldbyname('Qty').AsFloat; + FieldByName('RollNum').Value:=CDS_ph.fieldbyname('RollNum').AsFloat; + FieldByName('QtyUnit').Value:=CDS_ph.fieldbyname('QtyUnit').Value; + FieldByName('MJID').Value:=CDS_ph.fieldbyname('MJID').Value; + FieldByName('MainID').Value:=CDS_ph.fieldbyname('MainID').Value; + FieldByName('SubID').Value:=CDS_ph.fieldbyname('SubID').Value; + FieldByName('APID').Value:=CDS_ph.fieldbyname('apid').Value; + FieldByName('MJID').Value:=CDS_ph.fieldbyname('MJID').Value; + FieldByName('MJxh').Value:=CDS_ph.fieldbyname('MJxh').Value; + FieldByName('CPType').Value:=CDS_ph.fieldbyname('MJType').Value; + FieldByName('kckw').Value:=CDS_ph.fieldbyname('kckw').Value; + + FieldByName('C_Code').Value:=trim(CDS_ph.fieldbyname('C_Code').AsString); + FieldByName('C_CodeName').Value:=trim(CDS_ph.fieldbyname('C_CodeName').AsString); + FieldByName('C_spec').Value:=trim(CDS_ph.fieldbyname('C_spec').AsString); + FieldByName('C_Color').Value:=trim(CDS_ph.fieldbyname('C_Color').AsString); + FieldByName('BCGangNO').Value:=trim(CDS_ph.fieldbyname('BCGangNO').AsString); + FieldByName('RCGangNO').Value:=trim(CDS_ph.fieldbyname('RCGangNO').AsString); + FieldByName('packNo').Value:=trim(CDS_ph.fieldbyname('packNo').AsString); + FieldByName('PHID').Value:=trim(CDS_ph.fieldbyname('PHID').AsString); + FieldByName('Filler').Value:=Trim(DName); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CPType').Value:=trim(CDS_ph.fieldbyname('CPType').AsString); + FieldByName('CKOrdNo').Value:=Trim(CKOrdNo); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCp_PH1 where PHID='+quotedstr(trim(CDS_ph.fieldbyname('PHID').AsString))); + open; + edit; + fieldbyname('P_Status').Value:='1'; + post; + end; + i:=i+1; + next; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCp_KC1 SET kcstatus=null,KCKgQty =A.KCKgQty -B.KgQty,KCQty =A.KCQty -B.Qty,KCRollNum =A.KCRollNum -B.RollNum '); + sql.Add('FROM CK_BanCp_KC1 A '); + sql.Add('INNER JOIN CK_BanCP_CR1 B on B.CRID=A.CRID '); + sql.Add('WHERE B.CKOrdNo ='+Quotedstr(trim(CKOrdNo))); + ExecSQL; + end; + + + 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 subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value:='3'; + post; + // end; + end; + if not YSData(Order_Main) then + begin + Order_Main.EnableControls; + CDS_ph.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ'); + exit; + end; + end; + Order_Main.Next; + end; + + CDS_ph.EnableControls; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update CK_BanCP_Kc1 SET KCQty=0,kcRollNum=0 where KCQty<0 '); + sql.Add('UPDATE CK_BanCp_KC1 SET KCRollNum =1 WHERE (KCQty<>0 or KCKgQty<>0)and KcRollNum=0 '); + ExecSQL; + end; + if Application.MessageBox('ȷҪӡⵥ','ʾ',32+4)=IDYES then + begin + TBPrint1.Click; + end; + TBRafresh.Click; + CRdate.DateTime:= DQdate; + except + CDS_ph.EnableControls; + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ','ʾϢ'); + end; +end; + +procedure TfrmProductOrder_Ph_other.ToolButton4Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + frmCKProductBCPKCListsel_other:=TfrmCKProductBCPKCListsel_other.create(self); + with frmCKProductBCPKCListsel_other do + begin + if Trim(DParameters1)<>'Ȩ' then + begin + v2RollNum.Visible:=false; + v2RollNum.Options.Editing:=false; + v2RollNum.Hidden:=true; + v2Qty.Visible:=false; + v2Qty.Options.Editing:=false; + v2Qty.Hidden:=true; + end; + + fmainID:= trim(self.Order_Main.FieldByName('mainID').AsString); + // C_CodeName.Text:= trim(self.Order_Main.FieldByName('PRTCodeName').AsString); + // C_Color.Text:= trim(self.Order_Main.FieldByName('PRTColor').AsString); + // FCodeName:= trim(self.Order_Main.FieldByName('PRTCodeName').AsString); + // fColor:= trim(self.Order_Main.FieldByName('PRTColor').AsString); + if showmodal=1 then + begin + {CDS_PH.DisableControls; + CDS_Main.DisableControls; + CDS_Main.first; + while not CDS_Main.eof do + begin + if (CDS_Main.FieldByName('ssel').AsBoolean) and + (not CDS_PH.Locate('mjid',trim(CDS_Main.fieldbyname('mjid').AsString),[])) then + begin + CDS_PH.Append; + CDS_PH.FieldByName('conNo').Value:=trim(CDS_Main.fieldbyname('conNo').AsString); + CDS_PH.FieldByName('mjid').Value:=trim(CDS_Main.fieldbyname('mjid').AsString); + // CDS_PH.FieldByName('mjxh').Value:=trim(fieldbyname('mjxh').AsString); + CDS_PH.FieldByName('C_CodeName').Value:=trim(CDS_Main.fieldbyname('C_CodeName').AsString); + CDS_PH.FieldByName('C_Spec').Value:=trim(CDS_Main.fieldbyname('C_Spec').AsString); + CDS_PH.FieldByName('C_Color').Value:=trim(CDS_Main.fieldbyname('C_Color').AsString); + CDS_PH.FieldByName('PMainID').Value:=trim(CDS_Main.fieldbyname('MainID').AsString); + CDS_PH.FieldByName('PSubID').Value:=trim(CDS_Main.fieldbyname('SubID').AsString); + CDS_PH.FieldByName('kcqtyunit').Value:=trim(CDS_Main.fieldbyname('kcqtyunit').AsString); + CDS_PH.FieldByName('kcqty').Value:=CDS_Main.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('kcRollnum').Value:=CDS_Main.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('Qty').Value:=CDS_Main.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('RollNum').Value:=CDS_Main.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').AsFloat; + CDS_PH.Post; + end; + CDS_Main.next; + end; + CDS_PH.EnableControls; + CDS_Main.EnableControls } + CDS_PH.DisableControls; + CDS_SubSel.DisableControls; + CDS_SubSel.first; + while not CDS_SubSel.eof do + begin + if (not CDS_PH.Locate('CRID',trim(CDS_SubSel.fieldbyname('CRID').AsString),[])) then + begin + CDS_PH.Append; + CDS_PH.FieldByName('conNo').Value:=trim(CDS_SubSel.fieldbyname('conNo').AsString); + CDS_PH.FieldByName('mjid').Value:=trim(CDS_SubSel.fieldbyname('mjid').AsString); + // CDS_PH.FieldByName('mjxh').Value:=trim(fieldbyname('mjxh').AsString); + CDS_PH.FieldByName('C_CodeName').Value:=trim(CDS_SubSel.fieldbyname('C_CodeName').AsString); + CDS_PH.FieldByName('C_Spec').Value:=trim(CDS_SubSel.fieldbyname('C_Spec').AsString); + CDS_PH.FieldByName('C_Color').Value:=trim(CDS_SubSel.fieldbyname('C_Color').AsString); + CDS_PH.FieldByName('PMainID').Value:=trim(CDS_SubSel.fieldbyname('MainID').AsString); + CDS_PH.FieldByName('PSubID').Value:=trim(CDS_SubSel.fieldbyname('SubID').AsString); + CDS_PH.FieldByName('kcqtyunit').Value:=trim(CDS_SubSel.fieldbyname('kcqtyunit').AsString); + CDS_PH.FieldByName('kcqty').Value:=CDS_SubSel.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('kcRollnum').Value:=CDS_SubSel.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('Qty').Value:=CDS_SubSel.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('RollNum').Value:=CDS_SubSel.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('CRID').Value:=CDS_SubSel.fieldbyname('CRID').AsFloat; + CDS_PH.Post; + end; + CDS_SubSel.next; + end; + CDS_PH.EnableControls; + CDS_SubSel.EnableControls; + end; + free; + end; + TBRafresh.Click; +end; + +procedure TfrmProductOrder_Ph_other.ToolButton5Click(Sender: TObject); +begin + if cds_ph.IsEmpty then exit; + if cxTabControl1.TabIndex=1 then + begin + try + 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 subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value:='0'; + post; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update CK_BanCP_KC1 SET kcstatus=null '); + sql.Add('from CK_BanCP_KC1 A '); + sql.Add('inner join CK_BanCP_PH1 B on B.CRID=A.CRID '); + sql.Add('where B.mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and B.subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('delete from CK_BanCP_PH1 '); + sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + application.MessageBox('ɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ','ʾϢ',0); + end; + end; + +{ if cxTabControl1.TabIndex=1 then + begin + try + 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 subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + open; + edit; + fieldbyname('substatus').Value:='0'; + post; + end; + application.MessageBox('ȷϳɹ','ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ȷʧܣ','ʾϢ',0); + end; + end; } +end; + +procedure TfrmProductOrder_Ph_other.TBPrint1Click(Sender: TObject); +var + filepath,fOrderNo:string; + i:integer; + Txt,fImagePath: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; + + + createTable(); + i:=0; + with Order_Main do + begin + DisableControls; + first; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + IF i=0 then fOrderNo:=trim(fieldbyname('OrderNo').AsString); + IF (i>0) and (trim(fieldbyname('OrderNo').AsString)<> fOrderNo) then + begin + application.MessageBox('ѡ˲ͬĶܴӡ','ʾϢ',0); + EnableControls; + exit; + end; + with adoqueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' insert into '+TblCprk+'(MainID,subID) values( '); + SQL.Add(' '+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + SQL.Add(','+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + sql.add(')'); + execsql; + end; + i:=i+1; + end; + next; + end; + First; + EnableControls; + end; + + + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PrintMd10 '); + sql.Add('@mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + 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; + + try + Moudle:=LoadLibrary('MakeQRBarcode.dll'); + @Makebar:=GetProcAddress(Moudle,'Make'); + @Mixtext:=GetProcAddress(Moudle,'MixText'); + Txt:=Trim(AdoPrint.fieldbyname('orderNo').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; + RMVariables['dtxz'] :=FormatDateTime('yyyy-mm-dd',date()); + RMVariables['zdr'] :=trim(DName); + RMVariables['Filler'] :=trim(Order_Main.fieldbyname('Filler').AsString); + RMGridReport1.LoadFromFile(filepath); + RMGridReport1.ShowReport; + finally + DropTable(); + end; + +end; + + +procedure TfrmProductOrder_Ph_other.ToolButton6Click(Sender: TObject); +begin + if Order_Main.IsEmpty then exit; + frmCKProductBCPKCListsel_other:=TfrmCKProductBCPKCListsel_other.create(self); + with frmCKProductBCPKCListsel_other do + begin + + fmainID:= trim(self.Order_Main.FieldByName('mainID').AsString); + // C_CodeName.Text:= trim(self.Order_Main.FieldByName('PRTCodeName').AsString); + // C_Color.Text:= trim(self.Order_Main.FieldByName('PRTColor').AsString); + // FCodeName:= trim(self.Order_Main.FieldByName('PRTCodeName').AsString); + // fColor:= trim(self.Order_Main.FieldByName('PRTColor').AsString); + if showmodal=1 then + begin + {CDS_PH.DisableControls; + CDS_Main.DisableControls; + CDS_Main.first; + while not CDS_Main.eof do + begin + if (CDS_Main.FieldByName('ssel').AsBoolean) and + (not CDS_PH.Locate('mjid',trim(CDS_Main.fieldbyname('mjid').AsString),[])) then + begin + CDS_PH.Append; + CDS_PH.FieldByName('conNo').Value:=trim(CDS_Main.fieldbyname('conNo').AsString); + CDS_PH.FieldByName('mjid').Value:=trim(CDS_Main.fieldbyname('mjid').AsString); + // CDS_PH.FieldByName('mjxh').Value:=trim(fieldbyname('mjxh').AsString); + CDS_PH.FieldByName('C_CodeName').Value:=trim(CDS_Main.fieldbyname('C_CodeName').AsString); + CDS_PH.FieldByName('C_Spec').Value:=trim(CDS_Main.fieldbyname('C_Spec').AsString); + CDS_PH.FieldByName('C_Color').Value:=trim(CDS_Main.fieldbyname('C_Color').AsString); + CDS_PH.FieldByName('PMainID').Value:=trim(CDS_Main.fieldbyname('MainID').AsString); + CDS_PH.FieldByName('PSubID').Value:=trim(CDS_Main.fieldbyname('SubID').AsString); + CDS_PH.FieldByName('kcqtyunit').Value:=trim(CDS_Main.fieldbyname('kcqtyunit').AsString); + CDS_PH.FieldByName('kcqty').Value:=CDS_Main.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('kcRollnum').Value:=CDS_Main.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('Qty').Value:=CDS_Main.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('RollNum').Value:=CDS_Main.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').AsFloat; + CDS_PH.Post; + end; + CDS_Main.next; + end; + CDS_PH.EnableControls; + CDS_Main.EnableControls } + CDS_PH.DisableControls; + CDS_SubSel.DisableControls; + CDS_SubSel.first; + while not CDS_SubSel.eof do + begin + if (not CDS_PH.Locate('CRID',trim(CDS_SubSel.fieldbyname('CRID').AsString),[])) then + begin + CDS_PH.Append; + CDS_PH.FieldByName('conNo').Value:=trim(CDS_SubSel.fieldbyname('conNo').AsString); + CDS_PH.FieldByName('mjid').Value:=trim(CDS_SubSel.fieldbyname('mjid').AsString); + // CDS_PH.FieldByName('mjxh').Value:=trim(fieldbyname('mjxh').AsString); + CDS_PH.FieldByName('C_CodeName').Value:=trim(CDS_SubSel.fieldbyname('C_CodeName').AsString); + CDS_PH.FieldByName('C_Spec').Value:=trim(CDS_SubSel.fieldbyname('C_Spec').AsString); + CDS_PH.FieldByName('C_Color').Value:=trim(CDS_SubSel.fieldbyname('C_Color').AsString); + CDS_PH.FieldByName('PMainID').Value:=trim(CDS_SubSel.fieldbyname('MainID').AsString); + CDS_PH.FieldByName('PSubID').Value:=trim(CDS_SubSel.fieldbyname('SubID').AsString); + CDS_PH.FieldByName('kcqtyunit').Value:=trim(CDS_SubSel.fieldbyname('kcqtyunit').AsString); + CDS_PH.FieldByName('kcqty').Value:=CDS_SubSel.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('kcRollnum').Value:=CDS_SubSel.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('Qty').Value:=CDS_SubSel.fieldbyname('kcqty').AsFloat; + CDS_PH.FieldByName('RollNum').Value:=CDS_SubSel.fieldbyname('kcRollnum').AsFloat; + CDS_PH.FieldByName('CRID').Value:=CDS_SubSel.fieldbyname('CRID').AsFloat; + CDS_PH.Post; + end; + CDS_SubSel.next; + end; + CDS_PH.EnableControls; + CDS_SubSel.EnableControls; + end; + free; + end; + TBRafresh.Click; +end; + +procedure TfrmProductOrder_Ph_other.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); +begin +if Order_Main.IsEmpty then exit; + initPH(); +end; + +procedure TfrmProductOrder_Ph_other.TBPrint2Click(Sender: TObject); +var + filepath,fOrderNo:string; + i:integer; +begin + if Order_Main.IsEmpty then exit; + + if Order_Main.Locate('ssel',true,[])=false then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + + + createTable(); + i:=0; + with Order_Main do + begin + DisableControls; + first; + while not eof do + begin + IF Fieldbyname('ssel').AsBoolean then + begin + IF i=0 then fOrderNo:=trim(fieldbyname('OrderNo').AsString); + IF (i>0) and (trim(fieldbyname('OrderNo').AsString)<> fOrderNo) then + begin + application.MessageBox('ѡ˲ͬĶܴӡ','ʾϢ',0); + EnableControls; + exit; + end; + with adoqueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' insert into '+TblCprk+'(MainID,subID) values( '); + SQL.Add(' '+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + SQL.Add(','+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + sql.add(')'); + execsql; + end; + i:=i+1; + end; + next; + end; + First; + EnableControls; + end; + + with AdoPrint do + begin + close; + sql.Clear; + sql.Add('exec P_Do_PrintMd10 '); + sql.Add('@mainID='+quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + sql.Add(',@TblCprk='+quotedstr(trim(TblCprk))); + 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(Order_Main.fieldbyname('Filler').AsString); + RMGridReport1.LoadFromFile(filepath); + RMGridReport1.ShowReport; + finally + DropTable(); + end; + +end; + + +procedure TfrmProductOrder_Ph_other.ToolButton7Click(Sender: TObject); +begin + try + frmCKSMEdit_other:=TfrmCKSMEdit_other.Create(Application); + with frmCKSMEdit_other do + begin + + if ShowModal=1 then + begin + + end; + end; + finally + frmCKSMEdit_other.Free; + 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_RKSMEdit.dfm b/管理系统/U_RKSMEdit.dfm new file mode 100644 index 0000000..262c33a --- /dev/null +++ b/管理系统/U_RKSMEdit.dfm @@ -0,0 +1,770 @@ +object frmRKSMEdit: TfrmRKSMEdit + Left = 38 + Top = 116 + Width = 1278 + Height = 684 + Caption = #25195#25551#20837#24211#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 = 1370 + 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 + object TBSave: TToolButton + Left = 0 + Top = 0 + Caption = #20445#23384 + ImageIndex = 14 + Visible = False + 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 = 33 + Width = 1370 + 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 = 44 + Top = 16 + 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 = 500 + Top = 12 + 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 PHYG: TBtnEditA + Left = 96 + Top = 52 + Width = 100 + Height = 20 + 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 = [] + 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 = 148 + Top = 12 + Width = 185 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnKeyPress = SmNOKeyPress + end + object kcKw: TBtnEditA + Left = 556 + Top = 8 + Width = 89 + Height = 33 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnBtnClick = kcKwBtnClick + end + end + object Panel2: TPanel + Left = 108 + Top = 109 + Width = 1262 + Height = 464 + Caption = 'Panel2' + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 1260 + Height = 292 + 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> + 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.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_gridHead + object cxGridDBColumn1: TcxGridDBColumn + Caption = #25195#25551#20449#24687 + DataBinding.FieldName = 'SDefNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 220 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26465#30721#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 209 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object V2Column1: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNO' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Width = 121 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 113 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 127 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object cxGrid1: TcxGrid + Left = 1 + Top = 293 + Width = 1260 + Height = 170 + Align = alBottom + 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 + 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 + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 20 + Styles.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_gridHead + object v1Column5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrddefstr1' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column7: TcxGridDBColumn + Caption = #22238#21305#25968 + DataBinding.FieldName = 'HC_ps' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 105 + end + object v1Column8: TcxGridDBColumn + Caption = #22238#25968#37327 + DataBinding.FieldName = 'AOrdQty1' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 105 + end + object v1Column9: TcxGridDBColumn + Caption = #26816#21305#25968 + DataBinding.FieldName = 'JY_ps' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 105 + end + object v1Column10: TcxGridDBColumn + Caption = #26816#25968#37327 + DataBinding.FieldName = 'JY_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 105 + end + object v1Column16: TcxGridDBColumn + Caption = #20837#21305#25968 + DataBinding.FieldName = 'RK_RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 105 + end + object v1Column15: TcxGridDBColumn + Caption = #20837#25968#37327 + DataBinding.FieldName = 'RK_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 105 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 81 + Width = 237 + Height = 548 + Align = alLeft + TabOrder = 4 + 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.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_gridHead + object Tv3Column1: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 191 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object MovePanel1: TMovePanel + Left = 368 + Top = 444 + 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] + 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 = 404 + Top = 216 + 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 = 352 + Top = 312 + end + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + 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 +end diff --git a/管理系统/U_RKSMEdit.pas b/管理系统/U_RKSMEdit.pas new file mode 100644 index 0000000..63174d0 --- /dev/null +++ b/管理系统/U_RKSMEdit.pas @@ -0,0 +1,448 @@ +unit U_RKSMEdit; + +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,MMSystem; + +type + TfrmRKSMEdit = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + 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; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ADOQuery1: TADOQuery; + DataSource1: TDataSource; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridLevel2: TcxGridLevel; + Tv3Column1: TcxGridDBColumn; + ADOQueryTm: TADOQuery; + DSTm: TDataSource; + 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); + private + procedure InitGrid(); + procedure InitMJID(); + function SaveRK():Boolean; + Procedure QueryRk(); + Procedure QueryTM(); + { Private declarations } + public + { Public declarations } + end; + +var + frmRKSMEdit: TfrmRKSMEdit; + +implementation +uses + U_DataLink,U_Fun, U_UserHelp, U_ZDYHelp; +{$R *.dfm} +Procedure TfrmRKSMEdit.QueryTm(); +begin + with ADOQueryTM do + begin + close; + sql.Clear; + sql.Add('select TOP 50 MJID'); + sql.Add('from WFB_MJJY 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(') and A.mjstr2=''δ'' '); + open; + end; +end; +Procedure TfrmRKSMEdit.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(RollNum) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''''),'); + sql.Add('RK_Qty=(select sum(Qty) 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 TfrmRKSMEdit.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',5,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 ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai '); + sql.Add(' where APID='+quotedstr(trim(ADOQueryMain.fieldbyname('APID').AsString))); + open; + IF not ADOQueryTmp.IsEmpty then + begin + mhcTime:=ADOQueryTmp.fieldbyname('ADefDate1').AsDateTime; + end + else + begin + mhcTime:=date(); + end; + 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('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('C_Color').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('BCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('BCGangNO').AsString); + FieldByName('RCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('RCGangNO').AsString); + 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:=Trim(kcKw.Text); + fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('C_CodeName').AsString,ADOQueryMain.fieldbyname('C_Color').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('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('C_Color').AsString); + FieldByName('BCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('BCGangNO').AsString); + FieldByName('RCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('RCGangNO').AsString); + FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=0; + FieldByName('KCQty').Value:=ADOQueryMain.fieldbyname('MJlen').Value; + FieldByName('KCRollNum').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:=Trim(kcKw.Text); + fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('C_CodeName').AsString,ADOQueryMain.fieldbyname('C_Color').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJStr2='''' where MJID='''+Trim(ADOQueryMain.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmRKSMEdit.InitGrid(); +begin + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.* from CK_BanCP_CR A '); + SQL.Add('where 1=2 '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDSMJID); + SInitCDSData20(ADOQueryMain,CDSMJID); +end; + +procedure TfrmRKSMEdit.InitMJID(); +begin + MovePanel1.Visible:=false; + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.* from WFB_MJJY A'); + 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; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + end + else + begin + 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('C_CodeName').Value:=trim(ADOQueryMain.Fieldbyname('C_CodeName').AsString); + CDSMJID.FieldByName('C_Color').Value:=trim(ADOQueryMain.Fieldbyname('C_Color').AsString); + CDSMJID.FieldByName('CPType').Value:=trim(ADOQueryMain.Fieldbyname('MJType').AsString); + CDSMJID.FieldByName('RollNum').Value:=1; + CDSMJID.FieldByName('Qty').Value:=ADOQueryMain.Fieldbyname('MJLen').AsFloat; + CDSMJID.FieldByName('QtyUnit').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.FieldByName('RCGangNO').Value:=trim(ADOQueryMain.Fieldbyname('RCGangNO').AsString); + CDSMJID.FieldByName('BCgangNO').Value:=trim(ADOQueryMain.Fieldbyname('BCgangNO').AsString); + CDSMJID.Post; + QueryRk(); + QueryTm(); + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav'),0, SND_ASYNC); + end + else + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='ʧ'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ʧ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ʧ.wav'),0, SND_ASYNC); + end; + end; + end + else + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='벻'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav'),0, SND_ASYNC); + end; + end; + IF trim(CDSMJID.FieldByName('SDefNote').AsString)<>'ɹ' then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:=trim(CDSMJID.FieldByName('SDefNote').AsString); + end; +end; + +procedure TfrmRKSMEdit.FormDestroy(Sender: TObject); +begin + frmRKSMEdit:=nil; +end; + +procedure TfrmRKSMEdit.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:=cahide; +end; + +procedure TfrmRKSMEdit.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmRKSMEdit.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 TfrmRKSMEdit.SmNOKeyPress(Sender: TObject; var Key: Char); +begin + IF key=#13 then + begin + if trim(smno.Text)='' then exit; + initMJID(); + smno.Text:=''; + smno.SetFocus; + end; +end; + +procedure TfrmRKSMEdit.FormShow(Sender: TObject); +begin + MovePanel1.Left:=(Width-MovePanel1.Width) div 2; + MovePanel1.top:=(Height-MovePanel1.Height-200) div 2; + InitGrid(); +end; + +procedure TfrmRKSMEdit.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 TfrmRKSMEdit.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 TfrmRKSMEdit.Button4Click(Sender: TObject); +begin + MovePanel1.Visible:=False; + SmNO.SetFocus; +end; + +end. diff --git a/管理系统/U_RKSMEdit_Other.dfm b/管理系统/U_RKSMEdit_Other.dfm new file mode 100644 index 0000000..6112333 --- /dev/null +++ b/管理系统/U_RKSMEdit_Other.dfm @@ -0,0 +1,771 @@ +object frmRKSMEdit_other: TfrmRKSMEdit_other + Left = 96 + Top = 59 + Width = 1278 + Height = 684 + Caption = #25195#25551#20837#24211#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 = 1370 + 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 + object TBSave: TToolButton + Left = 0 + Top = 0 + Caption = #20445#23384 + ImageIndex = 14 + Visible = False + 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 = 33 + Width = 1370 + 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 = 44 + Top = 16 + 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 = 500 + Top = 12 + 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 PHYG: TBtnEditA + Left = 96 + Top = 52 + Width = 100 + Height = 20 + 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 = [] + 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 = 148 + Top = 12 + Width = 185 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnKeyPress = SmNOKeyPress + end + object kcKw: TBtnEditA + Left = 556 + Top = 8 + Width = 89 + Height = 33 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + OnBtnClick = kcKwBtnClick + end + end + object Panel2: TPanel + Left = 108 + Top = 109 + Width = 1262 + Height = 464 + Caption = 'Panel2' + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 1260 + Height = 292 + 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> + 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.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_gridHead + object cxGridDBColumn1: TcxGridDBColumn + Caption = #25195#25551#20449#24687 + DataBinding.FieldName = 'SDefNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 220 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26465#30721#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 209 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object V2Column1: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNO' + HeaderAlignmentHorz = taCenter + Width = 120 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Width = 121 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 113 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 127 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object cxGrid1: TcxGrid + Left = 1 + Top = 293 + Width = 1260 + Height = 170 + Align = alBottom + TabOrder = 1 + Visible = False + 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 + 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 + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 20 + Styles.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_gridHead + object v1Column5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column4: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'AOrddefstr1' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column7: TcxGridDBColumn + Caption = #22238#21305#25968 + DataBinding.FieldName = 'HC_ps' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 105 + end + object v1Column8: TcxGridDBColumn + Caption = #22238#25968#37327 + DataBinding.FieldName = 'AOrdQty1' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 105 + end + object v1Column9: TcxGridDBColumn + Caption = #26816#21305#25968 + DataBinding.FieldName = 'JY_ps' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 105 + end + object v1Column10: TcxGridDBColumn + Caption = #26816#25968#37327 + DataBinding.FieldName = 'JY_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 105 + end + object v1Column16: TcxGridDBColumn + Caption = #20837#21305#25968 + DataBinding.FieldName = 'RK_RollNum' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 105 + end + object v1Column15: TcxGridDBColumn + Caption = #20837#25968#37327 + DataBinding.FieldName = 'RK_Qty' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclGreen + Styles.Footer = cxStyle_fontclGreen + Styles.Header = cxStyle_fontclGreen + Width = 105 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 81 + Width = 237 + Height = 548 + Align = alLeft + TabOrder = 4 + 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.ContentEven = cxStyle_fontBlack + Styles.ContentOdd = cxStyle_fontBlack + Styles.Header = cxStyle_gridHead + object Tv3Column1: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 191 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object MovePanel1: TMovePanel + Left = 368 + Top = 444 + 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] + 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 = 404 + Top = 216 + 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 = 352 + Top = 312 + end + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + 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 +end diff --git a/管理系统/U_RKSMEdit_Other.pas b/管理系统/U_RKSMEdit_Other.pas new file mode 100644 index 0000000..91c2008 --- /dev/null +++ b/管理系统/U_RKSMEdit_Other.pas @@ -0,0 +1,426 @@ +unit U_RKSMEdit_Other; + +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; + +type + TfrmRKSMEdit_other = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + 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; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ADOQuery1: TADOQuery; + DataSource1: TDataSource; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridLevel2: TcxGridLevel; + Tv3Column1: TcxGridDBColumn; + ADOQueryTm: TADOQuery; + DSTm: TDataSource; + 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); + private + procedure InitGrid(); + procedure InitMJID(); + function SaveRK():Boolean; + Procedure QueryRk(); + Procedure QueryTM(); + { Private declarations } + public + { Public declarations } + end; + +var + frmRKSMEdit_other: TfrmRKSMEdit_other; + +implementation +uses + U_DataLink,U_Fun, U_UserHelp, U_ZDYHelp; +{$R *.dfm} +Procedure TfrmRKSMEdit_other.QueryTm(); +begin + with ADOQueryTM do + begin + close; + sql.Clear; + sql.Add('select TOP 50 MJID'); + sql.Add('from WFB_MJJY1 A1 '); + // SQL.Add('WHERE exists(select MJID from WFB_MJJY1 X where X.APID=A.APID and X.MJID='+quotedstr(trim(smNO.Text))); + sql.Add('where A1.mjstr2=''δ'' '); + open; + end; +end; +Procedure TfrmRKSMEdit_other.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(RollNum) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''''),'); + sql.Add('RK_Qty=(select sum(Qty) 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 TfrmRKSMEdit_other.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_CRID1 Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID1'); + Open; + end; + CRID:=ADOQueryTmp.fieldbyname('CRID').AsInteger; + if GetLSNo(ADOQueryTmp,MaxCkNo,'JT','CK_BanCP_CR1',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_CR1 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('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('C_Color').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('BCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('BCGangNO').AsString); + FieldByName('RCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('RCGangNO').AsString); + 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:=Trim(kcKw.Text); + // fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('C_CodeName').AsString,ADOQueryMain.fieldbyname('C_Color').AsString); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 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('C_Code').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('C_CodeName').AsString); + FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('C_Color').AsString); + FieldByName('BCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('BCGangNO').AsString); + FieldByName('RCGangNO').Value:=Trim(ADOQueryMain.fieldbyname('RCGangNO').AsString); + FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=0; + FieldByName('KCQty').Value:=ADOQueryMain.fieldbyname('MJlen').Value; + FieldByName('KCRollNum').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:=Trim(kcKw.Text); + // fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('C_CodeName').AsString,ADOQueryMain.fieldbyname('C_Color').AsString); + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY1 Set MJStr2='''' where MJID='''+Trim(ADOQueryMain.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmRKSMEdit_other.InitGrid(); +begin + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.* from CK_BanCP_CR1 A '); + SQL.Add('where 1=2 '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDSMJID); + SInitCDSData20(ADOQueryMain,CDSMJID); +end; + +procedure TfrmRKSMEdit_other.InitMJID(); +begin + MovePanel1.Visible:=false; + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.* from WFB_MJJY1 A'); + 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 + 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('C_CodeName').Value:=trim(ADOQueryMain.Fieldbyname('C_CodeName').AsString); + CDSMJID.FieldByName('C_Color').Value:=trim(ADOQueryMain.Fieldbyname('C_Color').AsString); + CDSMJID.FieldByName('CPType').Value:=trim(ADOQueryMain.Fieldbyname('MJType').AsString); + CDSMJID.FieldByName('RollNum').Value:=1; + CDSMJID.FieldByName('Qty').Value:=ADOQueryMain.Fieldbyname('MJLen').AsFloat; + CDSMJID.FieldByName('QtyUnit').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.FieldByName('RCGangNO').Value:=trim(ADOQueryMain.Fieldbyname('RCGangNO').AsString); + CDSMJID.FieldByName('BCgangNO').Value:=trim(ADOQueryMain.Fieldbyname('BCgangNO').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); + end; +end; + +procedure TfrmRKSMEdit_other.FormDestroy(Sender: TObject); +begin + frmRKSMEdit_other:=nil; +end; + +procedure TfrmRKSMEdit_other.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:=cahide; +end; + +procedure TfrmRKSMEdit_other.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmRKSMEdit_other.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 TfrmRKSMEdit_other.SmNOKeyPress(Sender: TObject; var Key: Char); +begin + IF key=#13 then + begin + if trim(smno.Text)='' then exit; + initMJID(); + smno.Text:=''; + smno.SetFocus; + end; +end; + +procedure TfrmRKSMEdit_other.FormShow(Sender: TObject); +begin + MovePanel1.Left:=(Width-MovePanel1.Width) div 2; + MovePanel1.top:=(Height-MovePanel1.Height-200) div 2; + InitGrid(); + queryTm(); +end; + +procedure TfrmRKSMEdit_other.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 TfrmRKSMEdit_other.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 TfrmRKSMEdit_other.Button4Click(Sender: TObject); +begin + MovePanel1.Visible:=False; + SmNO.SetFocus; +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_SXCKOutListDBCK.dfm b/管理系统/U_SXCKOutListDBCK.dfm new file mode 100644 index 0000000..b4af332 --- /dev/null +++ b/管理系统/U_SXCKOutListDBCK.dfm @@ -0,0 +1,665 @@ +object frmSXCKOutList: TfrmSXCKOutList + Left = 542 + Top = 160 + Width = 1314 + Height = 572 + 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 = 1298 + 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 = 1298 + Height = 60 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 333 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 457 + 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 = 333 + Top = 36 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label12: TLabel + Left = 179 + Top = 36 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object Label6: TLabel + Left = 457 + Top = 36 + Width = 54 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 585 + Top = 104 + Width = 60 + Height = 12 + Caption = #26469#33258#35746#21333#21495 + end + object Label10: TLabel + Left = 585 + Top = 128 + Width = 60 + Height = 12 + Caption = #20986#21040#35746#21333#21495 + end + object Label11: TLabel + Left = 613 + Top = 12 + Width = 60 + Height = 12 + Caption = #26469#33258#21152#24037#21378 + end + object Label13: TLabel + Left = 613 + Top = 36 + Width = 90 + Height = 12 + Caption = #20986#21040#21152#24037#21378'/'#23458#25143 + end + object Label15: TLabel + Left = 787 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#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 = 77 + Top = 33 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 1 + end + object SPName: TEdit + Tag = 2 + Left = 360 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 517 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 3 + OnChange = SPColorChange + end + object SPID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 4 + OnChange = SPIDChange + OnKeyPress = SPIDKeyPress + end + object SPColor: TEdit + Tag = 2 + Left = 360 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = SPColorChange + 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 + #36864#36135#20986#24211 + #38144#21806#20986#24211 + #35843#25320#20986#24211) + end + object SPCF: TEdit + Tag = 2 + Left = 517 + Top = 32 + Width = 80 + Height = 20 + TabOrder = 7 + OnChange = SPColorChange + end + object QCorderNo: TEdit + Tag = 2 + Left = 645 + Top = 101 + Width = 80 + Height = 20 + TabOrder = 8 + OnChange = SPColorChange + end + object CKorderNo: TEdit + Tag = 2 + Left = 645 + Top = 125 + Width = 80 + Height = 20 + TabOrder = 9 + OnChange = SPColorChange + end + object FromFactoryName: TEdit + Tag = 2 + Left = 677 + Top = 9 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = SPColorChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 677 + Top = 33 + Width = 80 + Height = 20 + TabOrder = 11 + OnChange = SPColorChange + end + object FZSPID: TEdit + Tag = 2 + Left = 836 + Top = 8 + Width = 77 + Height = 20 + TabOrder = 12 + OnChange = SPColorChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 93 + Width = 1298 + Height = 440 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + 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 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 v1Column19: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + 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'/'#23458#25143 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 122 + end + object v1Column18: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column22: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'FZSPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + 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/管理系统/U_SXCKOutListDBCK.pas b/管理系统/U_SXCKOutListDBCK.pas new file mode 100644 index 0000000..88be458 --- /dev/null +++ b/管理系统/U_SXCKOutListDBCK.pas @@ -0,0 +1,393 @@ +unit U_SXCKOutListDBCK; + +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, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator; + +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; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column11: 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; + SPColor: TEdit; + CRType: TComboBox; + SPCF: TEdit; + QCorderNo: TEdit; + Label10: TLabel; + CKorderNo: TEdit; + Label11: TLabel; + FromFactoryName: TEdit; + Label13: TLabel; + ToFactoryName: TEdit; + v1Column20: TcxGridDBColumn; + v1Column22: TcxGridDBColumn; + FZSPID: 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 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 SPColorChange(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(' rkNo=(select SPID from CK_SXPB_CR X where X.)); + 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(',MXKCKGQty=(select sum(isnull(kgQty,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; + if Trim(CDS_Main.fieldbyname('CRType').AsString)='۳' then + begin + sql.Add('delete from YF_Money_CR where mainID='''+Trim(CDS_Main.fieldbyname('SPID').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.SPColorChange(Sender: TObject); +begin + TBFind.Click; +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_XsList_other.dfm b/管理系统/U_XsList_other.dfm new file mode 100644 index 0000000..0796024 --- /dev/null +++ b/管理系统/U_XsList_other.dfm @@ -0,0 +1,374 @@ +object frmXsList_other: TfrmXsList_other + Left = 137 + Top = 150 + Width = 1027 + Height = 513 + Caption = #38144#21806#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 = 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 + Visible = False + 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 = 44 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 379 + Top = 16 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 640 + Top = 68 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 28 + Top = 16 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 172 + Top = 16 + Width = 6 + Height = 12 + Caption = '-' + end + object Label5: TLabel + Left = 32 + Top = 52 + 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 = 240 + Top = 64 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object P_CodeName: TEdit + Tag = 2 + Left = 412 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = P_CodeNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 676 + Top = 61 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = P_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 13 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 185 + Top = 13 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object conNO: TEdit + Tag = 2 + Left = 78 + Top = 45 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = P_CodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 86 + Top = 73 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = P_CodeNameChange + end + object KZ: TEdit + Tag = 2 + Left = 240 + Top = 89 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = P_CodeNameChange + end + object MF: TEdit + Tag = 2 + Left = 452 + Top = 88 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = P_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 Edit1: TEdit + Left = 268 + Top = 60 + Width = 113 + Height = 20 + TabOrder = 9 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 77 + Width = 1011 + Height = 398 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + 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 v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'P_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 280 + end + object v1Column6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 159 + end + object v2Column6: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 169 + 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 = 460 + Top = 128 + end +end diff --git a/管理系统/U_XsList_other.pas b/管理系统/U_XsList_other.pas new file mode 100644 index 0000000..a1965eb --- /dev/null +++ b/管理系统/U_XsList_other.pas @@ -0,0 +1,177 @@ +unit U_XsList_other; + +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; + +type + TfrmXsList_other = 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; + P_CodeName: TEdit; + C_Color: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Tv1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + v2Column1: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + Label5: TLabel; + conNO: TEdit; + Label6: TLabel; + MJID: TEdit; + v1Column6: TcxGridDBColumn; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + MovePanel2: TMovePanel; + Label10: TLabel; + Edit1: 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 P_CodeNameChange(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmXsList_other: TfrmXsList_other; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmXsList_other.FormDestroy(Sender: TObject); +begin + frmXsList_other:=nil; +end; + +procedure TfrmXsList_other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmXsList_other.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmXsList_other.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select P_CodeName,SUM(Qty) as Qty,SUM(money) as money from YF_Money_CR '); + sql.Add(' where CRTime>='''+formatdatetime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(' and CRTime<'''+formatdatetime('yyyy-MM-dd',enddate.DateTime+1)+''' '); + sql.Add(' and SYRName=''˷֯'' and CRType=''ӦտǼ'' '); + sql.Add(' group by P_CodeName Order by P_CodeName'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmXsList_other.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmXsList_other.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmXsList_other.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmXsList_other.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + + //InitGrid(); +end; + +procedure TfrmXsList_other.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid2); +end; + +procedure TfrmXsList_other.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 TfrmXsList_other.P_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +end. diff --git a/管理系统/U_YGList.dfm b/管理系统/U_YGList.dfm new file mode 100644 index 0000000..5b25eb3 --- /dev/null +++ b/管理系统/U_YGList.dfm @@ -0,0 +1,53 @@ +object frmYGlist: TfrmYGlist + Left = 428 + Top = 246 + Width = 403 + Height = 200 + BorderIcons = [biSystemMenu] + Caption = #29289#27969#22791#27880 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + OnClose = FormClose + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 12 + object Label1: TLabel + Left = 28 + Top = 48 + Width = 48 + Height = 12 + Caption = #22791#27880#20449#24687 + end + object Button1: TButton + Left = 60 + Top = 108 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 248 + Top = 108 + Width = 75 + Height = 25 + Caption = #21462#28040 + TabOrder = 1 + OnClick = Button2Click + end + object Memo1: TBtnEditA + Left = 96 + Top = 44 + Width = 177 + Height = 20 + TabOrder = 2 + OnBtnClick = Memo1BtnClick + end +end diff --git a/管理系统/U_YGList.pas b/管理系统/U_YGList.pas new file mode 100644 index 0000000..dc9b322 --- /dev/null +++ b/管理系统/U_YGList.pas @@ -0,0 +1,68 @@ +unit U_YGList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, BtnEdit; + +type + TfrmYGlist = class(TForm) + Label1: TLabel; + Button1: TButton; + Button2: TButton; + Memo1: TBtnEditA; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Memo1BtnClick(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmYGlist: TfrmYGlist; + +implementation + +uses U_UserHelp; + +{$R *.dfm} + +procedure TfrmYGlist.FormDestroy(Sender: TObject); +begin + frmYGlist:=nil; +end; + +procedure TfrmYGlist.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure TfrmYGlist.Button1Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmYGlist.Button2Click(Sender: TObject); +begin + ModalResult:=-1; +end; + +procedure TfrmYGlist.Memo1BtnClick(Sender: TObject); +begin + frmUserHelp:=TfrmUserHelp.create(self); + with frmUserHelp do + begin + if showmodal=1 then + begin + Memo1.Text:=trim(ADOQueryHelp.fieldbyname('UserName').AsString); + end; + free; + end; +end; + +end. diff --git a/管理系统/U_YHList_other.dfm b/管理系统/U_YHList_other.dfm new file mode 100644 index 0000000..7e84e31 --- /dev/null +++ b/管理系统/U_YHList_other.dfm @@ -0,0 +1,374 @@ +object frmYHList_other: TfrmYHList_other + Left = 137 + Top = 150 + Width = 1027 + Height = 513 + Caption = #38144#21806#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 = 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 + Visible = False + 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 = 44 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label3: TLabel + Left = 379 + Top = 16 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 640 + Top = 68 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label1: TLabel + Left = 28 + Top = 16 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 172 + Top = 16 + Width = 6 + Height = 12 + Caption = '-' + end + object Label5: TLabel + Left = 32 + Top = 52 + 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 = 240 + Top = 64 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object P_CodeName: TEdit + Tag = 2 + Left = 412 + Top = 13 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = P_CodeNameChange + end + object C_Color: TEdit + Tag = 2 + Left = 676 + Top = 61 + Width = 100 + Height = 20 + TabOrder = 1 + OnChange = P_CodeNameChange + end + object BegDate: TDateTimePicker + Left = 77 + Top = 13 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 2 + end + object EndDate: TDateTimePicker + Left = 185 + Top = 13 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + TabOrder = 3 + end + object conNO: TEdit + Tag = 2 + Left = 78 + Top = 45 + Width = 109 + Height = 20 + TabOrder = 4 + OnChange = P_CodeNameChange + end + object MJID: TEdit + Tag = 2 + Left = 86 + Top = 73 + Width = 109 + Height = 20 + TabOrder = 5 + OnChange = P_CodeNameChange + end + object KZ: TEdit + Tag = 2 + Left = 240 + Top = 89 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = P_CodeNameChange + end + object MF: TEdit + Tag = 2 + Left = 452 + Top = 88 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = P_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 Edit1: TEdit + Left = 268 + Top = 60 + Width = 113 + Height = 20 + TabOrder = 9 + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 77 + Width = 1011 + Height = 398 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + 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 v2Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'P_CodeName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 280 + end + object v1Column6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 159 + end + object v2Column6: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'money' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 169 + 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 = 460 + Top = 128 + end +end diff --git a/管理系统/U_YHList_other.pas b/管理系统/U_YHList_other.pas new file mode 100644 index 0000000..7d210c4 --- /dev/null +++ b/管理系统/U_YHList_other.pas @@ -0,0 +1,177 @@ +unit U_YHList_other; + +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; + +type + TfrmYHList_other = 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; + P_CodeName: TEdit; + C_Color: TEdit; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + Tv1: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + v2Column1: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + Label5: TLabel; + conNO: TEdit; + Label6: TLabel; + MJID: TEdit; + v1Column6: TcxGridDBColumn; + Label8: TLabel; + KZ: TEdit; + Label9: TLabel; + MF: TEdit; + Label7: TLabel; + CPType: TComboBox; + MovePanel2: TMovePanel; + Label10: TLabel; + Edit1: 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 P_CodeNameChange(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmYHList_other: TfrmYHList_other; + +implementation +uses + U_DataLink,U_Fun; + +{$R *.dfm} + +procedure TfrmYHList_other.FormDestroy(Sender: TObject); +begin + frmYHList_other:=nil; +end; + +procedure TfrmYHList_other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=caFree; +end; + +procedure TfrmYHList_other.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); + EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) +end; + +procedure TfrmYHList_other.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered:=False; + Close; + sql.Clear; + sql.Add(' select P_CodeName,SUM(Qty) as Qty,SUM(money) as money from YF_Money_CR '); + sql.Add(' where CRTime>='''+formatdatetime('yyyy-MM-dd',begdate.DateTime)+''' '); + sql.Add(' and CRTime<'''+formatdatetime('yyyy-MM-dd',enddate.DateTime+1)+''' '); + sql.Add(' and FactoryName='''' and CRType=''ӦտǼ'' '); + sql.Add(' group by P_CodeName Order by P_CodeName'); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain,CDS_Main); + SInitCDSData20(ADOQueryMain,CDS_Main); + finally + ADOQueryMain.EnableControls; + TBFind.Click; + end; +end; + +procedure TfrmYHList_other.TBRafreshClick(Sender: TObject); +begin + //BegDate.SetFocus; + MovePanel2.Visible:=True; + MovePanel2.Refresh; + InitGrid(); + MovePanel2.Visible:=False; +end; + +procedure TfrmYHList_other.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + end; +end; + +procedure TfrmYHList_other.TBCloseClick(Sender: TObject); +begin + WriteCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + Close; +end; + +procedure TfrmYHList_other.FormShow(Sender: TObject); +begin + + ReadCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + + //InitGrid(); +end; + +procedure TfrmYHList_other.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then exit; + TcxGridToExcel(self.Caption,cxGrid2); +end; + +procedure TfrmYHList_other.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 TfrmYHList_other.P_CodeNameChange(Sender: TObject); +begin + TBFind.Click; +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_ZdyAttachCP.dfm b/管理系统/U_ZdyAttachCP.dfm new file mode 100644 index 0000000..8783171 --- /dev/null +++ b/管理系统/U_ZdyAttachCP.dfm @@ -0,0 +1,364 @@ +object frmZdyAttachCP: TfrmZdyAttachCP + Left = 263 + Top = 204 + 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 + Position = poScreenCenter + 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 + 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 = 561 + Top = 13 + Width = 24 + Height = 12 + Caption = #31867#22411 + end + object Label4: TLabel + Left = 383 + Top = 13 + Width = 48 + Height = 12 + Caption = #20013#25991#21517#31216 + 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 = 590 + Top = 8 + Width = 81 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 2 + OnChange = ZdyNameChange + Items.Strings = ( + #22383#24067 + #25104#21697 + '') + end + object defnote3: TEdit + Tag = 2 + Left = 433 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 3 + OnChange = ZdyNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1022 + Height = 509 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.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.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 v2Column12: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'defnote3' + HeaderAlignmentHorz = taCenter + Width = 130 + 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 v2Column8: TcxGridDBColumn + Caption = #20013#25991#39068#33394 + DataBinding.FieldName = 'DEFstr6' + HeaderAlignmentHorz = taCenter + Width = 68 + 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 + object Tv2Column1: TcxGridDBColumn + Caption = #25104#21697#36135#21495 + DataBinding.FieldName = 'CPHH' + 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 + 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..fc9e932 --- /dev/null +++ b/管理系统/U_ZdyAttachCP.pas @@ -0,0 +1,228 @@ +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, 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 + 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; + v2Column11: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + defnote3: TEdit; + Label4: TLabel; + Tv2Column1: 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 + fType: string; + 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'' '); + if fType = 'Ʒ' then + begin + sql.Add('and DEFstr5=''Ʒ'''); + end + else + begin + sql.Add('and DEFstr5='''''); + end; + 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, 'ͻԶ'); + if fType = 'Ʒ' then + begin + Tv2Column1.Visible:=false; + end + else + begin + Tv2Column1.Visible:=true; + end; + 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..bd3cd64 --- /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_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 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_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..ba4bcfe --- /dev/null +++ b/管理系统/U_ZdyAttachGYS.pas @@ -0,0 +1,213 @@ +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..02dd504 --- /dev/null +++ b/管理系统/U_ZdyAttachment.dfm @@ -0,0 +1,331 @@ +object frmZdyAttachment: TfrmZdyAttachment + Left = 145 + Top = 43 + Width = 1064 + 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 + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1048 + 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 = 1048 + 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 + 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 = ZdyCodeChange + end + object DEFstr5: TEdit + Tag = 2 + Left = 388 + Top = 9 + Width = 89 + Height = 20 + TabOrder = 2 + OnChange = ZdyCodeChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 70 + Width = 1048 + 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.handBlack + 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' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Width = 127 + 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_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_ZdyAttachment.pas b/管理系统/U_ZdyAttachment.pas new file mode 100644 index 0000000..d2b6684 --- /dev/null +++ b/管理系统/U_ZdyAttachment.pas @@ -0,0 +1,247 @@ +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; + 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 ZdyCodeChange(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 *,zdyNamePY=dbo.getpinYin(zdyName) 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); +var + strFilter,strFilter1:string; +begin + strFilter1:=''; + if ADOQueryMain.Active then + begin + strFilter:= SGetFilters(Panel1,1,2); + IF trim(ZdyName.Text)<>'' then + begin + strFilter1:=strFilter1+' (zdyName like '+trim('%'+trim(zdyName.Text)+'%') ; + strFilter1:=strFilter1+' or zdyNamePY like '+trim('%'+trim(zdyName.Text)+'%') ; + strFilter1:=strFilter1+' )'; + + + end; + IF (strFilter<>'') and (strFilter1<>'') then + begin + strFilter:=strFilter +' and '+strFilter1 + end; + IF (strFilter='') and (strFilter1<>'') then + begin + strFilter:=strFilter1 + end; + SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + // SDofilter(ADOQueryMain,strFilter); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; +end; + +procedure TfrmZdyAttachment.ZdyNameChange(Sender: TObject); +var + strFilter1:string; +begin + strFilter1:=''; + if ADOQueryMain.Active then + begin + + IF trim(ZdyName.Text)<>'' then + begin + strFilter1:=strFilter1+' (zdyName like '+trim('%'+trim(zdyName.Text)+'%') ; + strFilter1:=strFilter1+' or zdyNamePY like '+trim('%'+trim(zdyName.Text)+'%') ; + strFilter1:=strFilter1+' )'; + + + end; + + SDofilter(ADOQueryMain,strFilter1); + SCreateCDS20(ADOQueryMain,CDS_HZ); + SInitCDSData20(ADOQueryMain,CDS_HZ); + end; + +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.ZdyCodeChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +end. + + diff --git a/管理系统/U_iniParam.pas b/管理系统/U_iniParam.pas new file mode 100644 index 0000000..d7106dc --- /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; + SCXFlag:String; // ݴ˱־ȡǰ׺ ܰĸ 1,2 + SCXCount: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'); + 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.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_kcchEdit.dfm b/管理系统/U_kcchEdit.dfm new file mode 100644 index 0000000..bbe1d5b --- /dev/null +++ b/管理系统/U_kcchEdit.dfm @@ -0,0 +1,178 @@ +object frmkcchEdit: TfrmkcchEdit + Left = 350 + Top = 301 + Width = 478 + Height = 246 + ActiveControl = cxCurrencyEdit2 + BorderIcons = [biSystemMenu] + Caption = #24211#23384#25286#20998 + 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 Panel1: TPanel + Left = 0 + Top = 0 + Width = 462 + Height = 181 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object Label1: TLabel + Left = 44 + Top = 12 + Width = 53 + Height = 12 + Caption = #21407' '#21305' '#25968 + 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 = 248 + Top = 12 + Width = 53 + Height = 12 + Caption = #21407' '#25968' '#37327 + 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 = 40 + Top = 80 + Width = 52 + Height = 12 + Caption = #25286#20998#21305#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 184 + Top = 80 + Width = 52 + Height = 12 + Caption = #25286#20998#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 96 + Top = 8 + Width = 121 + Height = 20 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Text = 'Edit1' + Visible = False + end + object Edit2: TEdit + Left = 304 + Top = 8 + Width = 121 + Height = 20 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Text = 'Edit2' + Visible = False + end + object cxCurrencyEdit1: TcxCurrencyEdit + Left = 92 + Top = 76 + ParentFont = False + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0.##' + Properties.NullString = '1' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clRed + Style.Font.Height = -12 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 2 + Width = 81 + end + object cxCurrencyEdit2: TcxCurrencyEdit + Left = 236 + Top = 76 + ParentFont = False + Properties.DecimalPlaces = 2 + Properties.DisplayFormat = '0.##' + Properties.NullString = '0' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clRed + Style.Font.Height = -12 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 3 + Width = 105 + end + object Button1: TButton + Left = 80 + Top = 144 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 4 + OnClick = Button1Click + end + object Button2: TButton + Left = 272 + Top = 144 + Width = 75 + Height = 25 + Caption = #21462#28040 + TabOrder = 5 + OnClick = Button2Click + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 200 + Top = 140 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 248 + Top = 144 + end +end diff --git a/管理系统/U_kcchEdit.pas b/管理系统/U_kcchEdit.pas new file mode 100644 index 0000000..b7ec361 --- /dev/null +++ b/管理系统/U_kcchEdit.pas @@ -0,0 +1,156 @@ +unit U_kcchEdit; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, + cxCurrencyEdit, ExtCtrls, DB, ADODB; + +type + TfrmkcchEdit = class(TForm) + Panel1: TPanel; + Label1: TLabel; + Edit1: TEdit; + Label2: TLabel; + Edit2: TEdit; + Label3: TLabel; + cxCurrencyEdit1: TcxCurrencyEdit; + Label4: TLabel; + cxCurrencyEdit2: TcxCurrencyEdit; + Button1: TButton; + Button2: TButton; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + procedure Button2Click(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button1Click(Sender: TObject); + private + { Private declarations } + public + fBCID:string; + fcriD:string; + { Public declarations } + end; + +var + frmkcchEdit: TfrmkcchEdit; + +implementation +uses + U_DataLink,U_Fun, U_ZDYHelp; +{$R *.dfm} + +procedure TfrmkcchEdit.Button2Click(Sender: TObject); +begin + close; +end; + +procedure TfrmkcchEdit.FormDestroy(Sender: TObject); +begin + frmkcchEdit:=nil; +end; + +procedure TfrmkcchEdit.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure TfrmkcchEdit.Button1Click(Sender: TObject); +var + CRID:integer; + i:integer; + fAPTM:string; +begin + if strtofloatdef(cxCurrencyEdit1.Text,0)=0 then + begin + application.MessageBox('ƥΪ㣡','ʾϢ',0); + exit; + end; + if strtofloatdef(cxCurrencyEdit2.Text,0)=0 then + begin + application.MessageBox('Ϊ㣡','ʾϢ',0); + exit; + end; + if Application.MessageBox('ȷҪ','ʾ',32+4)<>IDYES then Exit; + ModalResult:=1; +{ if GetLSNo(ADOQueryCmd,fAPTM,'C','APTM',4,1)=False then + begin + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC A'); + sql.Add('where BCID='+quotedstr(trim(fBCID))); + sql.Add('and CRID='+quotedstr(trim(fCRID))); + open; + 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').AsInteger; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC A'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + for i:=0 to ADOQueryCmd.FieldCount-1 do + begin + ADOQueryCmd.fields[i].value:=ADOQueryTmp.Fields[i].Value ; + end; + ADOQueryCmd.FieldByName('CRID').Value:=CRID; + ADOQueryCmd.FieldByName('KCROllNum').Value:=strtofloatdef(cxCurrencyEdit1.Text,0); + ADOQueryCmd.FieldByName('KCQty').Value:=strtofloatdef(cxCurrencyEdit2.Text,0); + ADOQueryCmd.FieldByName('oldCRID').Value:=fcrID; + ADOQueryCmd.FieldByName('MJID').Value:=trim(fAPTM); + ADOQueryCmd.Post; + + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC A'); + sql.Add('where CRID='''+trim(fCRID)+''''); + open; + end; + ADOQueryCmd.Edit; + ADOQueryCmd.FieldByName('KCROllNum').Value:=ADOQueryCmd.FieldByName('KCROllNum').AsFloat - strtofloatdef(cxCurrencyEdit1.Text,0); + ADOQueryCmd.FieldByName('KCQty').Value:=ADOQueryCmd.FieldByName('KCQty').AsFloat - strtofloatdef(cxCurrencyEdit2.Text,0); + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCp_KC SET KCRollNum =1 '); + sql.Add('WHERE (KCQty<>0 or KCKgQty<>0)and KcRollNum=0 '); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('ݱɹ','ʾϢ'); + ModalResult:=1; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ݱʧܣ','ʾϢ',0); + end; } +end; + +end. diff --git a/管理系统/U_kcchEdit_other.dfm b/管理系统/U_kcchEdit_other.dfm new file mode 100644 index 0000000..962e839 --- /dev/null +++ b/管理系统/U_kcchEdit_other.dfm @@ -0,0 +1,175 @@ +object frmkcchEdit_other: TfrmkcchEdit_other + Left = 350 + Top = 301 + Width = 478 + Height = 246 + ActiveControl = cxCurrencyEdit2 + BorderIcons = [biSystemMenu] + Caption = #24211#23384#25286#20998 + 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 Panel1: TPanel + Left = 0 + Top = 0 + Width = 462 + Height = 181 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object Label1: TLabel + Left = 40 + Top = 36 + Width = 53 + Height = 12 + Caption = #21407' '#21305' '#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 244 + Top = 36 + Width = 53 + Height = 12 + Caption = #21407' '#25968' '#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 40 + Top = 84 + Width = 52 + Height = 12 + Caption = #25286#20998#21305#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 244 + Top = 84 + Width = 52 + Height = 12 + Caption = #25286#20998#25968#37327 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 92 + Top = 32 + Width = 121 + Height = 20 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + Text = 'Edit1' + end + object Edit2: TEdit + Left = 300 + Top = 32 + Width = 121 + Height = 20 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Text = 'Edit2' + end + object cxCurrencyEdit1: TcxCurrencyEdit + Left = 92 + Top = 80 + Enabled = False + ParentFont = False + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0.##' + Properties.NullString = '1' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clRed + Style.Font.Height = -12 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 2 + Width = 121 + end + object cxCurrencyEdit2: TcxCurrencyEdit + Left = 300 + Top = 80 + ParentFont = False + Properties.DecimalPlaces = 2 + Properties.DisplayFormat = '0.##' + Properties.NullString = '0' + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clRed + Style.Font.Height = -12 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 3 + Width = 121 + end + object Button1: TButton + Left = 80 + Top = 144 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 4 + OnClick = Button1Click + end + object Button2: TButton + Left = 272 + Top = 144 + Width = 75 + Height = 25 + Caption = #21462#28040 + TabOrder = 5 + OnClick = Button2Click + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 200 + Top = 140 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 248 + Top = 144 + end +end diff --git a/管理系统/U_kcchEdit_other.pas b/管理系统/U_kcchEdit_other.pas new file mode 100644 index 0000000..806590a --- /dev/null +++ b/管理系统/U_kcchEdit_other.pas @@ -0,0 +1,160 @@ +unit U_kcchEdit_other; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, + cxCurrencyEdit, ExtCtrls, DB, ADODB; + +type + TfrmkcchEdit_other = class(TForm) + Panel1: TPanel; + Label1: TLabel; + Edit1: TEdit; + Label2: TLabel; + Edit2: TEdit; + Label3: TLabel; + cxCurrencyEdit1: TcxCurrencyEdit; + Label4: TLabel; + cxCurrencyEdit2: TcxCurrencyEdit; + Button1: TButton; + Button2: TButton; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + procedure Button2Click(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button1Click(Sender: TObject); + private + { Private declarations } + public + fBCID:string; + fcriD:string; + { Public declarations } + end; + +var + frmkcchEdit_other: TfrmkcchEdit_other; + +implementation +uses + U_DataLink,U_Fun, U_ZDYHelp; +{$R *.dfm} + +procedure TfrmkcchEdit_other.Button2Click(Sender: TObject); +begin + close; +end; + +procedure TfrmkcchEdit_other.FormDestroy(Sender: TObject); +begin + frmkcchEdit_other:=nil; +end; + +procedure TfrmkcchEdit_other.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure TfrmkcchEdit_other.Button1Click(Sender: TObject); +var + CRID:integer; + i:integer; + fAPTM:string; +begin + if strtofloatdef(cxCurrencyEdit1.Text,0)=0 then + begin + application.MessageBox('ƥΪ㣡','ʾϢ',0); + exit; + end; + if strtofloatdef(cxCurrencyEdit2.Text,0)=0 then + begin + application.MessageBox('Ϊ㣡','ʾϢ',0); + exit; + end; + + if GetLSNo(ADOQueryCmd,fAPTM,'C','APTM',4,1)=False then + begin + Application.MessageBox('ȡˮʧܣ','ʾ',0); + Exit; + end; + + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 A'); + sql.Add('where BCID='+quotedstr(trim(fBCID))); + sql.Add('and CRID='+quotedstr(trim(fCRID))); + open; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID1 Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID1'); + Open; + end; + CRID:=ADOQueryCmd.fieldbyname('CRID').AsInteger; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 A'); + sql.Add('where 1=2 '); + open; + end; + ADOQueryCmd.Append; + for i:=0 to ADOQueryCmd.FieldCount-1 do + begin + ADOQueryCmd.fields[i].value:=ADOQueryTmp.Fields[i].Value ; + end; + ADOQueryCmd.FieldByName('CRID').Value:=CRID; + ADOQueryCmd.FieldByName('KCROllNum').Value:=strtofloatdef(cxCurrencyEdit1.Text,0); + ADOQueryCmd.FieldByName('KCQty').Value:=strtofloatdef(cxCurrencyEdit2.Text,0); + ADOQueryCmd.FieldByName('oldCRID').Value:=fcrID; + ADOQueryCmd.FieldByName('KCStatus').Value:=NULL; + ADOQueryCmd.FieldByName('MJID').Value:=trim(fAPTM); + ADOQueryCmd.fieldbyname('ZDYstr1').Value:=''; + ADOQueryCmd.fieldbyname('ZDYFlote1').Value:= 0; + ADOQueryCmd.Post; + + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC1 A'); + sql.Add('where CRID='''+trim(fCRID)+''''); + open; + end; + ADOQueryCmd.Edit; + ADOQueryCmd.FieldByName('KCROllNum').Value:=ADOQueryCmd.FieldByName('KCROllNum').AsFloat - strtofloatdef(cxCurrencyEdit1.Text,0); + ADOQueryCmd.FieldByName('KCQty').Value:=ADOQueryCmd.FieldByName('KCQty').AsFloat - strtofloatdef(cxCurrencyEdit2.Text,0); + ADOQueryCmd.fieldbyname('ZDYstr1').Value:=''; + ADOQueryCmd.fieldbyname('ZDYFlote1').Value:= ADOQueryCmd.FieldByName('KCQty').AsFloat; + ADOQueryCmd.Post; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('UPDATE CK_BanCp_KC1 SET KCRollNum =1 '); + sql.Add('WHERE (KCQty<>0 or KCKgQty<>0)and KcRollNum=0 '); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('ݱɹ','ʾϢ'); + ModalResult:=1; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ݱʧܣ','ʾϢ',0); + end; +end; + +end. diff --git a/管理系统/U_kw.dfm b/管理系统/U_kw.dfm new file mode 100644 index 0000000..10aa369 --- /dev/null +++ b/管理系统/U_kw.dfm @@ -0,0 +1,51 @@ +object frmkw: Tfrmkw + Left = 326 + Top = 278 + Width = 436 + Height = 262 + Caption = #24211#20301#35843#25972 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 12 + object Label1: TLabel + Left = 44 + Top = 88 + Width = 24 + Height = 12 + Caption = #24211#20301 + end + object kw: TBtnEditA + Left = 72 + Top = 84 + Width = 129 + Height = 20 + TabOrder = 0 + OnBtnClick = kwBtnClick + end + object Button1: TButton + Left = 292 + Top = 48 + Width = 75 + Height = 25 + Caption = #25552#20132 + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 296 + Top = 136 + Width = 75 + Height = 25 + Caption = #21462#28040 + TabOrder = 2 + OnClick = Button2Click + end +end diff --git a/管理系统/U_kw.pas b/管理系统/U_kw.pas new file mode 100644 index 0000000..e880771 --- /dev/null +++ b/管理系统/U_kw.pas @@ -0,0 +1,64 @@ +unit U_kw; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, BtnEdit; + +type + Tfrmkw = class(TForm) + Label1: TLabel; + kw: TBtnEditA; + Button1: TButton; + Button2: TButton; + procedure kwBtnClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure FormDestroy(Sender: TObject); + private + { Private declarations } + public + fc_CodeName:string; + { Public declarations } + end; + +var + frmkw: Tfrmkw; + +implementation + +uses U_CPKWList; + +{$R *.dfm} + +procedure Tfrmkw.kwBtnClick(Sender: TObject); +begin + frmCPKWList:=TfrmCPKWList.create(self); + with frmCPKWList do + begin + defstr1.Text:=trim(fc_CodeName); + if showmodal=1 then + begin + kw.Text:=CDS_HZ.fieldbyname('zdyCode').asstring; + end; + free; + end; +end; + +procedure Tfrmkw.Button1Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure Tfrmkw.Button2Click(Sender: TObject); +begin + ModalResult:=-1; +end; + +procedure Tfrmkw.FormDestroy(Sender: TObject); +begin + frmkw:=nil; +end; + +end. diff --git a/管理系统/U_phYGList.dfm b/管理系统/U_phYGList.dfm new file mode 100644 index 0000000..bb00311 --- /dev/null +++ b/管理系统/U_phYGList.dfm @@ -0,0 +1,59 @@ +object frmphYGList: TfrmphYGList + Left = 428 + Top = 246 + Width = 424 + Height = 225 + BorderIcons = [biSystemMenu] + Caption = #29289#27969#22791#27880 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + OnClose = FormClose + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 12 + object Label1: TLabel + Left = 16 + Top = 44 + Width = 48 + Height = 12 + Caption = #37197#36135#20154#21592 + end + object Button1: TButton + Left = 60 + Top = 132 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 248 + Top = 132 + Width = 75 + Height = 25 + Caption = #21462#28040 + TabOrder = 1 + OnClick = Button2Click + end + object PHYG: TBtnEditA + Left = 80 + Top = 40 + Width = 217 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnBtnClick = PHYGBtnClick + end +end diff --git a/管理系统/U_phYGList.pas b/管理系统/U_phYGList.pas new file mode 100644 index 0000000..b525c84 --- /dev/null +++ b/管理系统/U_phYGList.pas @@ -0,0 +1,73 @@ +unit U_phYGList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, BtnEdit; + +type + TfrmphYGList = class(TForm) + Label1: TLabel; + Button1: TButton; + Button2: TButton; + PHYG: TBtnEditA; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure PHYGBtnClick(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmphYGList: TfrmphYGList; + +implementation + +uses U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmphYGList.FormDestroy(Sender: TObject); +begin + frmphYGList:=nil; +end; + +procedure TfrmphYGList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action:=cahide; +end; + +procedure TfrmphYGList.Button1Click(Sender: TObject); +begin + ModalResult:=1; +end; + +procedure TfrmphYGList.Button2Click(Sender: TObject); +begin + ModalResult:=-1; +end; + +procedure TfrmphYGList.PHYGBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='PHYGFLAG'; + flagname:='Ա'; + if ShowModal=1 then + begin + PHYG.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.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/管理系统/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