ࡱ> A t~JiNO]\rk e D   pPQ{AOuvwxyzI mj~IR  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsuvwxyz{|}~Root Entry FX=@ZWorkbookdETExtData=_VBA_PROJECT_CUR";O=Q=  \pluckin Ba=  ThisWorkbook=G8@"1I{~1[SO1[SO1[SO1Arial1fg1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Calibri1Arial1Arial1Arial1ўSO1Arial1Arial1Arial1@Arial1Arial1Arial1Arial1 Arial1[SO1SimSun1 I{~1I{~1 I{~1 h6I{~ Light1I{~1,6I{~16I{~16I{~1>I{~1?I{~15I{~1 I{~15I{~1I{~1I{~1I{~1<I{~1 I{~18Microsoft Sans Serif1 h6I{~ Light1 -3 000001[SO1I{~1.Times New Roman1[SO1[SO1[SO1Arial1[SO+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ W))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ g+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ /\$#,##0_);\(\$#,##0\)9\$#,##0_);[Red]\(\$#,##0\);\$#,##0.00_);\(\$#,##0.00\)E \$#,##0.00_);[Red]\(\$#,##0.00\)g1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)-0.00_);[Red]\(0.00\)0.00_  0_ !0_);[Red]\(0\)0.000_                   ,   ) * @ @ @ @      ! " #P@ @ $P@ @ % @ @ % & / ' (  )ff7 *`@ @ +a@ 0 ,* -- .+ /0   , /5  / / /7    /3  + / /6    /9 *   0                          * * * * *      / / / / /      + + + + +           /, /, /, /, /, // // // // // / / / / / // // // // // / / / / / / / / / /   #P@ @ #P@ @ #P@ @ #P@ @ #P@ @ $P@ @ $P@ @ $P@ @ $P@ @ $P@ @ % @ @ % @ @ % @ @ % @ @ % @ @ % % % % % 1 1 1 1 1 -- -- -- -- --         2           3  3 ,* ,* ,* ,* ,* +a@ 0 +a@ 0 +a@ 0 +a@ 0 +a@ 0 (  (  (  (  (  )ff7 )ff7 )ff7 )ff7 )ff7 " " " " "           *`@ @ *`@ @ *`@ @ *`@ @ *`@ @  /0 /0 /0 /0 /0 /5 /5 /5 /5 /5 /7 /7 /7 /7 /7 /3 /3 /3 /3 /3 /6 /6 /6 /6 /6 /9 /9 /9 /9 /9 4+ 4+ 4+ 4+ 4+ ' ' ' ' ' & / & / & / & / & / 5                 ``   H  @  P  T  L  @  H  L  H  "X   |`   p`   t`    \ 1 \  1 |@ @   x@ @    x@ @    |@ @    |@ @   1 \   "X  #X  X  \  "X  "X   X 1 \  "P 1 \   x@ @    H  X 1 \  |@ @   H   X  H  @  1 \  |  \  P  T  L  "X  H  #X 1 T 1 T  P 1 \  P  t@ @  1 t@  p@  p@  X 11 \ 1 \ 1 \ 1 \  X 1 \ 1 |@ @   X 1 T 1 t@ 1 D  1 \  H  H   H  P  P  X  @  X 1 \ 1 \ 1 \ 11 \ 1 \  P 1 \  X 1 |@ @  1 |@ @   x@ @  1 \ 1 \ 1 \  H 1 \ 1 \   H  1 \ 1 \  1 X  H  1 \   \ 11 \ 1 X 1 X   X   X   X  X  X  ``   H  X  P  L  "X  H  #X   H   "X   #X 1 X  H  "X  1 |@ @   h@ @    x@ @   H  H   X  1 \  X  X  P  X  P   #X  1 |  x@ @   "x@ @   H  "X  X  \   X   X   X  |@ @   Q x@ @   A x@ @   H  \  H  `@ @  ||p< }-} }}}}}}}}}}}-} }-} }}}  }-} }-} }-} }A} }A}? }A}23 }-} }}  ̙ ??v}}  ??? ????????? ???}}!   }}}" ??? ????????? }A}# }}U}$ }A}% a}A}& }A}' W}A}( }A})ef }A}*L }A}+23 }A}, }A}-ef }A}.L }A}/23 }A}0 }A}1ef }A}2L }A}323 }A}4 }A}5ef }A}6L }A}723 }A}8 }A}9ef }A}:L }A};23 }A}< }A}=ef }A}>L }A}?23 }A}Aef }A}Bef }A}Cef }A}Def }A}Eef }A}Fef }A}Gef }A}Hef }A}Ief }A}Jef }A}Kef }A}Lef }A}Mef }A}Nef }A}Oef }A}Pef }A}Qef }A}Ref }A}Sef }A}Tef }A}Uef }A}Vef }A}Wef }A}Xef }A}Yef }A}Zef }A}[ef }A}\ef }A}]ef }A}^ef }A}_L }A}`L }A}aL }A}bL }A}cL }A}dL }A}eL }A}fL }A}gL }A}hL }A}iL }A}jL }A}kL }A}lL }A}mL }A}nL }A}oL }A}pL }A}qL }A}rL }A}sL }A}tL }A}uL }A}vL }A}wL }A}xL }A}yL }A}zL }A}{L }A}|L }A}}23 }A}~23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }A}23 }-} }A} }A} }A} }A} }A} }A}? }A}? }A}? }A}? }A}? }A}23 }A}23 }A}23 }A}23 }A}23 }-} }-} }-} }-} }-} }-} }-} }-} }-} }-} }A} }A} }A} }A} }A} }-} }-} }-} }-} }-} }-} }-} }-} }-} }-} }-} }-} }-} }-} }-} }-} }A} a}A} a}A} a}A} a}A} a}U} }U} }U} }U} }U} }}   }}}   }}}   }}}   }}}   }}} ??? ????????? }} ??? ????????? }} ??? ????????? }} ??? ????????? }} ??? ????????? }-} }-} }-} }-} }-} }-} }-} }-} }-} }-} }A} }}A} }}A} }}A} }}A} }}}}A} }A} }A} }A} }A} }A} }A} }A} }A} }A} }A} }A} }A} }A} }A} }A} }A} }A} }A} }A} }A}  }A}  }A}  }A}  }A}  }A} }A} }A} }A} }A} }A} e}A} e}A} e}A} e}A} e}} ??? ????????? ???}} ??? ????????? ???}} ??? ????????? ???}} ??? ????????? ???}} ??? ????????? ???}}  ̙ ??v}}  ̙ ??v}}  ̙ ??v}}   ̙ ??v}}!  ̙ ??v}}}#  }}}$  }}}%  }}}&  }}}'  }-} }(}(}(})}(}+}(},}(}-}(}.}(}/}(}0}(}1}(}2}(}3}(}4}(}5}(}6}(}8}(}9}(};}(}<}(}=}(}>}(}?}(}@}(}A}(}B}(}C}(}D}(}F}(}H}(}I}(}J}<}L }<}M }(}N}(}O}A}P }(}Q}<}R }<}S }(}Z}(}[}(}\}(}]}(}^}(}_}(}`}(}a}(}b}(}c}(}d}(}e}(}f}(}g}(}h}(}i}(}j}(}k}(}m}(}n}(}o}(}p}(}q}(}r}(}s}(}t}(}u}(}v}(}w}(}x}(}y}(}z}(}{}(}|}(}}}(}~}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}A} }(}}(}}(}}(}}(}}(}}(}}(}}(}}(}}<} }(}}(}}(}8^ĉ  lʑ lʑ fJTe,g fJTe,g hhʑ'`e,g 5ʑ'`e,g h 1h 1 h 2h 2 h 3h 3 h 4h 4 eQeQ QQ !{{"hgUSCQ40% - :_eW[r 62340% - :_eW[r 6!?60% - :_eW[r 62460% - :_eW[r 6E@ =C:\WINNT35\SYSTEM32\COMMAND.COM%A20% - :_eW[r 1 2%B20% - :_eW[r 1 3%C20% - :_eW[r 1 4%D20% - :_eW[r 1 5%E20% - :_eW[r 1 6%F20% - :_eW[r 2 2%G20% - :_eW[r 2 3%H20% - :_eW[r 2 4%I20% - :_eW[r 2 5%J20% - :_eW[r 2 6%K20% - :_eW[r 3 2%L20% - :_eW[r 3 3%M20% - :_eW[r 3 4%N20% - :_eW[r 3 5%O20% - :_eW[r 3 6%P20% - :_eW[r 4 2%Q20% - :_eW[r 4 3%R20% - :_eW[r 4 4%S20% - :_eW[r 4 5%T20% - :_eW[r 4 6%U20% - :_eW[r 5 2%V20% - :_eW[r 5 3%W20% - :_eW[r 5 4%X20% - :_eW[r 5 5%Y20% - :_eW[r 5 6%Z20% - :_eW[r 6 2%[20% - :_eW[r 6 3%\20% - :_eW[r 6 4%]20% - :_eW[r 6 5%^20% - :_eW[r 6 6%_40% - :_eW[r 1 2%`40% - :_eW[r 1 3%a40% - :_eW[r 1 4%b40% - :_eW[r 1 5%c40% - :_eW[r 1 6%d40% - :_eW[r 2 2%e40% - :_eW[r 2 3%f40% - :_eW[r 2 4%g40% - :_eW[r 2 5%h40% - :_eW[r 2 6%i40% - :_eW[r 3 2%j40% - :_eW[r 3 3%k40% - :_eW[r 3 4%l40% - :_eW[r 3 5%m40% - :_eW[r 3 6%n40% - :_eW[r 4 2%o40% - :_eW[r 4 3%p40% - :_eW[r 4 4%q40% - :_eW[r 4 5%r40% - :_eW[r 4 6%s40% - :_eW[r 5 2%t40% - :_eW[r 5 3%u40% - :_eW[r 5 4%v40% - :_eW[r 5 5%w40% - :_eW[r 5 6%x40% - :_eW[r 6 2%y40% - :_eW[r 6 3%z40% - :_eW[r 6 4%{40% - :_eW[r 6 5%|40% - :_eW[r 6 6%}60% - :_eW[r 1 2%~60% - :_eW[r 1 3%60% - :_eW[r 1 4%60% - :_eW[r 1 5%60% - :_eW[r 1 6%60% - :_eW[r 2 2%60% - :_eW[r 2 3%60% - :_eW[r 2 4%60% - :_eW[r 2 5%60% - :_eW[r 2 6%60% - :_eW[r 3 2%60% - :_eW[r 3 3%60% - :_eW[r 3 4%60% - :_eW[r 3 5%60% - :_eW[r 3 6%60% - :_eW[r 4 2%60% - :_eW[r 4 3%60% - :_eW[r 4 4%60% - :_eW[r 4 5%60% - :_eW[r 4 6%60% - :_eW[r 5 2%60% - :_eW[r 5 3%60% - :_eW[r 5 4%60% - :_eW[r 5 5%60% - :_eW[r 5 6%60% - :_eW[r 6 2%60% - :_eW[r 6 3%60% - :_eW[r 6 4%60% - :_eW[r 6 5%60% - :_eW[r 6 6NormalNormal 2h 1 2h 1 3h 1 4h 1 5h 1 6h 2 2h 2 3h 2 4h 2 5h 2 6h 3 2h 3 3h 3 4h 3 5h 3 6h 4 2h 4 3h 4 4h 4 5h 4 6 h 5 h 6 h 7 h 8 h 9 ] 2 ] 3 ] 4 ] 5 ] 68^ĉ 108^ĉ 118^ĉ 128^ĉ 138^ĉ 148^ĉ 19 8^ĉ 28^ĉ 2 28^ĉ 2 38^ĉ 2 48^ĉ 2 58^ĉ 208^ĉ 21 8^ĉ 3 8^ĉ 48^ĉ 418^ĉ 42 8^ĉ 5 8^ĉ 6 8^ĉ 7 8^ĉ 8 8^ĉ 9 }Y 2 }Y 3 }Y 4 }Y 5 }Y 6 Gl;` 2 Gl;` 3 Gl;` 4 Gl;` 5 Gl;` 6 { 2 { 3 { 4 { 5 { 6hgUSCQ !Q#r gXv?>ڑ)pA04#q8w '1G7Z{#C$eq#2ܝ;Px̥P C;BDnr_0HHx k'ؽvJ#*Zv+ M'NVW*WqΠ=hW4Ep}k̟NQw 罖5ozEAZ7^kW^qRkv7mI=·[̓f|P.Erne9P@$9+p"=DɘLRA;YMS$VT8)d7@.^MC&S~#Olw?Ϗ_ӻWߙNƿ>|_xhlG$"x/3t\\>xof1Jq,P =8h> >u$䩍\E)> sWz<|mj!xiSZLf=<̙M*uF+p|7zwDJljw-:PhbXU(/KB}A;[NC9X=@ӇM\T+:ppMtP9DpN^ O 9^WgJ#E{UAt8;U5ۉ> (ۛ:sI4<$:F$}yH m-~@ lJuVLJXɤz]̻`:33vxjtf]# k$tdt )q9;Uuh4ۋ:T(XX4:[cq\ݲ6V ݰhP 8ßYsG,InmBHM5Ȉ<$jUh5Dso |AV>4rt78Ip$[-*h6=XY){ƗN)Uc"ND3&[*L2)*+-XO!VHB8kթU0VݫT,\LGUTü ,vEb51K^-*空(Eg5xUfn j)nVowxv˳RGZ_Xw lģ_o2Ԭ)lSYkW҆ϙZDFuL ф J06;P ͥӫ-}h7'*EnQw3uCe`%]MP pCs|؜U_$vscޗG8.x-h=Z|Eax#U6Ԗs%@2cNsK(㈒L%1f0@]*L9RCqr n:_6Ax =a0V'3QGa~/Tߪ5L*BReظڰ+S3iob\YaTwT+)s&cFӤ%dI/PK N@_rels/PKN@֧6 _rels/.relsj0 }Q%v/C/}(h"O = C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_6LR7`0̞O,En7Lib/SeеPK N@theme/theme/_rels/PKN@ ѐ'theme/theme/_rels/themeManager.xml.relsM 0wooӺ&݈Э5 6?$Q ,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{P8g/]QAsم(#L[PKN@ $[Content_Types].xmlN0EH-J@%ǎǢ|ș$زULTB l,x\vTU^hd}㨫)*1P'^ח0)T9l#$> `?Cs]7zb$xu-lV{9>DVNj,5(Bȥszҕhhs0U~,}2ToF0,į*=댬o[gv; 9'33y ; oOPKN@ $ [Content_Types].xmlPK N@a_rels/PKN@֧6  _rels/.relsPK N@theme/PK N@ $theme/theme/PK N@h theme/theme/_rels/PKN@ ѐ' theme/theme/_rels/themeManager.xml.relsPKN@}( theme/theme/theme1.xmlPKN@ky} Ntheme/theme/themeManager.xmlPK ? XTableStyleMedium2PivotStyleLight16`&MData page 1(1) CofC page 18Eshipping lot-list page 1&1-MData page 1(2)VV5`, -  C A@. Print_Area;<. Print_Area;@. Print_Area;. Print_Area; Page3/4 MAIN LOT NOResistivity / Ohm-cmOVERALL UCKLC0103Customer spec.1~100 Ohm-cmMinMaxAverageS.DPcsCrystal Orientation / Customer spec. (100)1 Diameter / mmCustomer spec. 300.0 0.2mmNotch Orientation /  Customer spec. <110> 1 7 7Thickness / mCustomer spec.775.0 25 mTTV / m Customer spec.d"5 m7 SFQR / m- Customer spec. d"0.15 m 26mm x 8mm ,PUA 100%7 Bow/ m Customer spec. d"40 m7 Page1/4CERTIFICATE OF CONFORMANCE Customer:,Henan Aomaida Electronic Technology Co., LtdProduct:Polished Silicon WafersMaterial Name: 12inch waferP. O. NoHNAMD2026042104Quantity ordered: 25 WafersQuantity shipped:Date:Manufacture Date: 2026/04/19Additional information: PARAMETERQUALITY APPROVAL SPECIFICATIONGeneral CharacteristicsCrystal Growth Method( x )MCZCrystal Orientation (100)1 Conductivity TypePDopantBoronElectrical Characteristics Resistivity 1~100 Ohm-cm" Wafer Preparation CharacteristicsWafer ID MarkingBackside SEMI T7M12 Mechanical CharacteristicsDiameter300.0 0.2 mm Notch Depth SEMI StandardNotch Orientation <110> 1 Notch Angle Thickness 775 25 mTTV d" 5 m8 SFQR d" 0.15 m(26mm*8mm) 8 Bow d"40 m8 Warp1Front Surface Inspection Characteristics Criteria Front surfacePolished Particles(e"0.12m)   d" 50 ea/wafer8 Surface Metal' Na,Al,Ca,K,Fe,Cr,Cu,Ni,Znd" 1E10atom/cm28 'Back Surface Inspection Characteristics Back surface QA Inspector:LIST OF MANUFACTURING LOTSPage2/41. Details of DeliveryCustomerCustomer spec. noQuantity orderedQuantity delivered 1 Cassettes2. Specification Growth method Type / dopantP/Bo 775.025 m CassettesBox#Main LotLotWafers0011# UCKLC0103A04 Total25 wafers in 1 cassettes6Page4/4Warp/ m Particlese"0.12m/ ea/W 7  Customer spec. d" 50 ea/W7 # Metal Contamination / E10 atoms/cm2"9 Customer spec. d" 1E10atom/cm2: NaAlCaKFeCrCuNiZn    =%   dMbP?_*+%&M&d2?'M&d2?(M&d2?)M&d2?" dXX `? `?&U} +} @T}  U}  V} *} =} .} W}  X}  W}  Y}  *}  *=@,@@@U\    . \\\\\\@@@@@@@+,,,,,,  +,,,,, ,   22222222  34555555= +7 77777   89 : :::::**=   =@**=  D =E,@E,@EEEE**=  D =E!@E!@EEEE**=   D = Erh@ Erh@ EEEE**=   D =  K]? K]? KKKK**=.. D =  G9@G9@ GGGG**=    ( OOOO)  (  E@E@"EEEE E@E@"EEEE E@E@"EEEE  EE EEEED = G9@G9@GGGG  8 8LLLLLL >I =RRRRRR >IQ =E&Sr@E&Sr@EEEE >IQ =Ejtr@Ejtr@EEEE >IQ =EXlr@EXlr@EEEE >I = Kh㈵?Kh㈵?KKKK >I = G9@G9@GGGG >I &= &= E?E? EEEE= E?E? EEEE=Q =E?E?EEEE =\\+ = EEEEEE =\\Dpl& &^>Xff`X::TTTRZ88```VH88RRZ !@"@#@$@%@&@'@(@)@*@+@,@-@.@/.0.1.2.3.4.5)6.7.8.9.:.;.<.    G9@G9@ GGGG= !8!9 !  "="@AAAAAA " #D #=#E-o5@#E-o5@#EEEE # $D $=$E$I6@$E$I6@$EEEE $ %D %=%EQkw5@%EQkw5@%EEEE % &D &= &Ks 7?&Ks 7?&KKKK & 'D '= 'G9@G9@'GGGG '  (8(9: ( ? )=)@AAAAAA ) *D *=*EQ$?*EQ$?*EEEE * +D +=+ED-՘?+ED-՘?+EEEE + ,D ,=,E,?,E,?,EEEE , -D -= -KVx}?-KVx}?-KKKK - .D .= .G9@G9@.GGGG .  /8/9::::::-/ =/ II 0=0@-0 =0 I)I)1D 1=1E>Rˆ?1E>Rˆ?1EEEE-1 =1 I)I)2D 2=2Eb]Jn?2Eb]Jn?2EEEE-2 =2 I)I)3D 3=3E_PY?3E_PY?3EEEE-3 =3 I)I)4D 4= 4K6MN?4K6MN?4KKKK-4 =4 45D 5= 5G9@G9@5GGGG-.=..I 5I5. 68&69<<<<<0)=))>1>? 7=&7@AAAAAA0)=))B1C?8D 8=8ES8p\8ES8p\ 8EEEE0)=))B1C?9D 9=9Eb?9Eb? 9EEEE0)=))B1C?:D :=:Er%4?:Er%4? :EEEE0)=))B1C?;D ;= ;E|?;E|? ;EEEE0)=))F1C?<D <= <G9@G9@ <GGGG0)=))F1C?>f 0R@@hhhhZ@@hhhhZDDllln`88````  $(  $ $ d}Text Box 1"PK N@drs/PKN@('}drs/shapexml.xmlTn0-ҠRUJ~,Ŋ{Icv7}jXV{s\,@םAv蕶 J97IbN`?AhҶ{ptM *i4E ; W՘3ŒP(phwV(uMOQ*vԶUgFF?N2\Ζс4!D>s昢ʏ2BЦS)EIeyz*xJghwtgd)3 (wqpXƓ`@g)vx0ev7S[gqLnmC4(L2|g|k=>yI[z.Ar 3u?EB{Wd0J6RЩ%ܬo߇'4Bs3~,!z2%IGmRc@cA'zPQg{Pph<_^䜹x!z-8s:\RN(l;tc(ʺ{U"̄DXR 6R;Kh"SЉ}P QB6'0ڧdb֡|!^j Ⱦ󁼙[sh)h^BMQlm,]Yz邾oW"QMW}`(b 8$t@ˮ|]r V9l Rj1W*@ŀӚZ7O#KOiPKN@Zf[Content_Types].xmlMO &2WR=cJ`F0iK`#̼vLw 9uSq:w`G ^i ½KI)c/ $oVjTMRc|}042ҥCƔM̏P~*ka/8^DkHbL8e i"K\XN\6rco4y@_;oPKN@Zf c[Content_Types].xmlPK N@J_rels/PKN@]   n_rels/.relsPK N@drs/PKN@I= drs/downrev.xmlPKN@('} "drs/shapexml.xmlPK[]` <!Measurement data<>@<d   ggD   2%  dMbP?_*+%&jZ?'jZ?(~?)~?" dXX BP(? BP(?& U} s} @t} @ u}  v}  v2 @,@@@@@@@ @ @ @ @ @@@@pqqqqrpqqpqqpqq w xx xx y zz y zz y d d y! Z"{ y# Z$ [ y% g$ [ y&~ g@ { y' g( { y) |} ~*  + , - y* y.   / 0 1 2 0 3 4 0 5 6 0 7 y8   9 0 :  y;  < 0 =  y>   ? 0 @ A 0 BDHl&&&&&&&&*.>>>>.:2:.> q! q" q# q$ q% q& q( r) r* r+ r, r- r. r/ r0 r1 r C 0 D  !E !0 !B! "F "0 "G" #H #0 #I# $J $0 $K$ %L %0 %M% &N &0 &M& (O( )P) )Q) *R *0 *S* +T +0 +U+, -yV- .W .0 .Q./0s 1X1&@>>>>>>>$8@>(@>@<d ggD   ,%)+  dMbP?_*+%&ffffff?'ffffff?(?)?" dXX333333?333333?&U} [} [}  [} @[}  \} [} @\}  \} \} \} \} @\} .}  .}  ., J@ ,@ J@ @  @       @  @       @ @  @ @ @ @ Z @ @ @ZZZZ+Z ]Y]]]] ZZZZ+Z ^Z^^^^ __ZZ+Z````a`bbbbbb c[ccccZZZZZ+Z \\ \\\ d.eeffee \] \\\ d +++++++ \! \\\ Z"....... \^ \\\ Z$ ZZZZZZZ \_ \\\ g$ ZZZZZZZ \_ \\\ Z` ZZZZZZZ  ZZZZ+Z ha hhhcZZZZZ+Z \b \\\ [1[[[[[[ \c \\\ [d[[[[[[ \2 \\\ [3[[[[[[ \? \\\ [@[[[[[[ \9 \\\ [:[[[[[[ \F \\\ [e[[[[[[ ZZZZZZ[[[[[[ ZZZZ+Z ZfZZZ+ZZZZZ+Z ig ih ji jjj jkhhhhhk `l `m Z Zn~ l9@mmmmmmn ZZZZZ[[[[[[n Zo[[[[[[[n [[[[[[[n [[[[[[[n Dl66""DDDDDD"BBBBBB""f^,"" @! @" @# @$ @% @& @' @( @) @* @+ @ [ [[[[[[n ![![[[[[[n "["[[[[[[n #[#[[[[[[n $[$[[[[[[n %[%[[[[[[n &[&[[[[[[n '['[[[[[[n (oooooooooooon )oooooooooooon *oooooooooooon +oooooooooooon """"""""$$$>@<d               ggD    r%)YmYuYZ  dMbP?_*+%&M&d2?'M&d2?(M&d2?)M&d2?" dXX `? `?&U} +} @+}  ,}  -} .} /} .} `.}  /}  .}  .r@,@@x(@@@@@ @ @ @ @ ))))@@@@@@@@@@@@@0)1))1111)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ,p0)1))1111)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))222222220)1))1111)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))345555550)1))1111)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))67 777770)1))1111))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) 8q9 : ; <<<<0)=))>1>? =&@AAAAAA0)=))B1C?D =Eos@Eos@ EEEE0)=))B1C?D =E7@E7@ EEEE0)=))B1C? D = E*#X@ E*#X@ EEEE0)=))B1C? D =  E].P? E].P? EEEE0)=))F1C? D =  G9@G9@ GGGG0)=))F1C? 8r 9HHHHHH = I1I1 =s @JJJJJJ..=..  111.D =GGGGGG..=.. 111.D =G?G?GGGG..=.. 111.D =E8@E8@EEEE..=.. 111.D = KF?KF?KKKK. = .1D = G9@G9@GGGG. = .1 8t8LLLLLL M NNNNOPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP Qu=RRRRRR M NNNNOPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP =vSJJE?SJJE?SSSS M NNNNOPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP =wS {z2?S {z2?SSSS M NNNNOPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP =xSj`PK8?Sj`PK8?SSSS M NNNNOPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP =ySAh9?SAh9?SSSS M NNNNOPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP =zSfEe.?SfEe.?SSSS M NNNNOPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP ={S 2?S 2?SSSS M NNNNOPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP =|S])?S])?SSSS M NNNNOPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP =}Sra8M?Sra8M?SSSS M NNNNOPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP =~Sg/?Sg/?SSSS M NNNNOPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP@*D $X8````RBB\\\n`((FFFFFFFFm*n*o*p*q*m+TUUUUUUVm =..WXWYn+TUUUUUUVn =..WXWYo+TUUUUUUVo =..WXWYp+TUUUUUUVp =..WXWYq+TUUUUUUVq =..WXWYhP4444   (     d}Text Box 1"PK N@drs/PKN@('}drs/shapexml.xmlTn0-ҠRUJ~,Ŋ{Icv7}jXV{s\,@םAv蕶 J97IbN`?AhҶ{ptM *i4E ; W՘3ŒP(phwV(uMOQ*vԶUgFF?N2\Ζс4!D>s昢ʏ2BЦS)EIeyz*xJghwtgd)3 (wqpXƓ`@g)vx0ev7S[gqLnmC4(L2|g|k=>yI[z.Ar 3u?EB{Wd0J6RЩ%ܬo߇'4Bs3~,!z2%IGmRc@cA'zPQg{Pph<_^䜹x!z-8s:\RN(l;tc(ʺ{U"̄DXR 6R;Kh"SЉ}P QB6'0ڧdb֡|!^j Ⱦ󁼙[sh)h^BMQlm,]Yz邾oW"QMW}`(b 8$t@ˮ|]r V9l Rj1W*@ŀӚZ7O#KOiPKN@Zf[Content_Types].xmlMO &2WR=cJ`F0iK`#̼vLw 9uSq:w`G ^i ½KI)c/ $oVjTMRc|}042ҥCƔM̏P~*ka/8^DkHbL8e i"K\XN\6rco4y@_;oPKN@Zf c[Content_Types].xmlPK N@J_rels/PKN@]   n_rels/.relsPK N@drs/PKN@I= drs/downrev.xmlPKN@('} "drs/shapexml.xmlPK[] ` <!Measurement data<>@<d ggD   !"#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_abcdefghijklmnopqrstuvwxyz{|}~ &YF A.  A.  A.  A.  Xemx@I p|N*=h8+3qol};F]͈xMEVBAO=Q=RvflZSNkMX}x.O.xME(` %`` `  % `%`p 0@P`p 0@P`p 0@P`p 0@P`p 0@0Pk$*\Rffff*S96c06f1b5 "    ( @P h  x 0008 P`hp x@*X   "   8 (X        *   @H P Xh8 PHh  <     .0 ` h x .   B  ( 8 PX    `   $   P  P `x P  ` 0 0  $  @  0 0P 2        0 00 `  x  j  |  jx  p00  0 2P  4    0Ph(00, (P*x&     8P  h  00P0 * 0 00(X zp   8    N0 00  N8 00   @ 00(X p0088P,"0$ $0$8 PX`hV N( x00  00 P h 2x  8   H! H!0h!0!!!! "0"0#8# P# &`## 8#### ##"$ R($ $$ $$$$$$$"% (%H% h%x%%%%%%%%(% %& &0&8&@&H&P&X&`& h&  p& & && & &&&&''0'H'`' jx' B'0(H( t( NH) )0)0)* 0*  @*  X* h* * ** * x+0+0++ , , ,(P,*x,(,4, l- x-- - - -- r- HX.  ,.    P. J /    p/$/  /  / R/  0 (0  80 H0    X0 h0  0  V0  0 0  1 1  181 @1 X1 h1 x1(1  1 1嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]]]|SELECT PRODUCT_IDCUSTOMER_NAME,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PRODUCT_IDCUSTOMER_NAME,PLAN_SHIP_TIME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'd0WScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲·Qsrcpath = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\" \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xls  @.xls$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xls  H.xlsA@Hd A@ Ʒļ  @.xls  H.xlsA@Hk8d07繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xls$x] ģļ  H.xls %. %.J-----------------------------------------------1-------------------------- B@pCOC$tB@HSELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyyMMdd') PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H;' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO'[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+>ѭsublotidSELECT c.LOT_ID,c.SUBLOT_ID ,ms.SHIP_SUB_LOT_ID SUBLOT_ID1 FROM COCMEASSHIPLISTSTD c INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_name=' H1' GROUP BY c.LOT_ID,c.SUBLOT_IDSHIP_SUB_LOT_ID 'ADODB.recordset$p. t (r1αͣ޷ x (v4αԣ޷Y  ~ B@ !'N'14:14$v %'   N;SELECT CAR_ID FROM F3PRD.DOPE_HIS c WHERE SUBLOT_ID IN (' SUBLOT_ID1 %',' SUBLOT_ID %1') AND OPE_ID in ('PKG','EPKG') GROUP BY CAR_ID ' ADODB.recordset$p. t (r1αͣ޷ x (v4αԣ޷ ~ B@ L!' bSELECT substr(c2.WAF_ID,1,10) wad10,SLOT_NO ,TO_CHAR(miw.PACK_CMP_DTTM,'yyyy/mm/dd') PACK_CMP_DTTM' n,TO_CHAR(add_months(miw.PACK_CMP_DTTM-1,12),'yyyy/mm/dd') PACK_CMP_DTTM2 ,substr(c2.WAF_ID,1,5) wad5,c2.WAF_ID' \ FROM COCMEASDATAINFOS c2 INNER JOIN MES_INTF_WAFRESULT miw ON miw.SUBLOT_ID =c2.SUB_LOT_ID '  WHERE SUB_LOT_ID =' SUBLOT_ID1 %' OR SUB_LOT_ID =' SUBLOT_ID %' ORDER BY SLOT_NO'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'    If S >= 2 Then+ Set ss3 = Range("A11:AU11") ss3.Copy- Cells(a + 10, 1).PasteSpecial End Ifwad10 L%' PACK_CMP_DTTM L%'PACK_CMP_DTTM2 L%'V wad5 L%'X   +>wad10 L%  +>  +> PACK_CMP_DTTM L%  +>PACK_CMP_DTTM2 L%  +> SUBLOT_ID %  +>CAR_ID %  +>SLOT_NO L%  +>wad5 L%  +>OK   +>   $>'  $>' $>'N  $>'L RESISHEAD;RESISTAIL<SELECT MEAS_AVG FROM COCMEASDATASUBSUM c WHERE MEAS_ITEMS =' ' AND SUBLOT_ID =' SUBLOT_ID1 %' AND FILE_NAME =' H' 'ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@ !MEAS_AVG %  +>k  ORIENTATIONXYeNSELECT MEAS_ITEM_227, MEAS_ITEM_228 FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  $>' and SUB_LOT_ID=' SUBLOT_ID1 %''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ MEAS_ITEM_227 % MEAS_ITEM_227 % MEAS_ITEM_228 % MEAS_ITEM_228 % ' ' k $   +>  Na K Al Ca Cr Mg Fe Ni Cu Zne ; $' $ / $' $ / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ COLUMN_NUM %' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ '' ADODB.recordset$p. t (r8αͣ޷ x (v;αԣ޷ ~ B@ COLUMN_NUM %' SELECT MEAS_ITEM_  data1,MEAS_ITEM_ 1 data2 FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  $>' 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ !data1 %$data2 % 0.00000$'   +>data2 %$edata1 % 0.00000$'   +>data1 %data2 %edata1 %data2 % data1 % 0.00000$'   +>ddata2 % 0.00000$'   +>kkk ;e $> SUBLOT_ID1 %  $>$ 0.00000$'   +> /e / $'2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' 'ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@ !data %$  +>dH1Cells(i + irow - 1, wafer_column + 2 + coun) = ""kd2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' ''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@ !SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  $>' and MEAS_ITEM_ COLUMN_NUM % <>' ''ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷  ~ B@ !data %  +>dp 1Cells(i + irow - 1, wafer_column + 2 + coun) = ""k0k(k  L  N   $> N $8LRange("A" & a + 19 * a + xx + teams & ":K" & a + 19 * a + xx + teams).SelectNG   +>  $>B@H ! 9 9999q  $> L $8 eNG   +>  $>B@H ! 9 9999qXkPkH   $>NG   +>  $>B@H ! 9 9999qk LB@  'h ' B@H18:18$B@H | B@v17:17$B@H | B@v16:16$B@H | B@v15:15$B@H | B@vdSheets("COC").Name = Cells(5, 2) & "_" & Cells(4, 4) & "S_" & wpSet.Fields("PLAN_SHIP_TIME") & "A_1";Sheets("COC").Name = "P12_55843286_02-11-0021S_20220814A_1"T7 Code$tB@HySELECT substr(c2.WAF_ID,1,10) wad10,miw.SUBLOT_ID ,ltrim(SLOT_NO,0) SLOT_NOs,c2.WAF_ID,substr(miw.SUBLOT_ID,2) SUBLOT_ID1' f FROM COCMEASDATAINFOS c2 INNER JOIN COCMEASSHIPLISTSTD miw ON substr(miw.SUBLOT_ID,2) =c2.SUB_LOT_ID ' WHERE FILE_NAME=' H!' ORDER BY miw.SUBLOT_ID ,SLOT_NO'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'    A3:I3$v.T T B@  $>B@ kH;SELECT CAR_ID FROM F3PRD.DOPE_HIS c WHERE SUBLOT_ID IN (' SUBLOT_ID1 L%',' SUBLOT_ID L%1') AND OPE_ID in ('PKG','EPKG') GROUP BY CAR_ID ' ADODB.recordset$p. t (r1αͣ޷ x (v4αԣ޷ ~ B@ L!' SUBLOT_ID L%  +>CAR_ID %  +>SLOT_NOs L%  +>wad10 L%  +>MWE3MEAN/1000;MWENTHKA;MLS2TAVE;MWE3MEAN/1000;MWENTHKA;MLS2TAVE SUBLOT_ID1 L%WAF_ID L%$ 0.00000$'   +>kh LB@P2:2$B@H | B@vkSheets("T7 Code").Name = Cells(1, 9) & "_" & Cells(1, 2) & "S_" & wpSet.Fields("PLAN_SHIP_TIME") & "A_1_T7"BSheets("T7 Code").Name = "P12_55843286_02-11-0021S_20220814A_1_T7"%-------------------------------------J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H.xls %. ( (K-----------------------------------------------2---------------------------k <B@ B@ B@ z.   !t B@ !\ !.xlsH , zB@kΪxlsxʽ zB@B رչ B@Bp_workbook.CloseĻˢ´ (rA@ H resļA@JoPH&Attribute VB_Name = "" Sub 0()  '嵥ļ  <'رĻˢ ´d Application.ScreenUpdng False'FileTrim(Cells(1, 2) If $"" Then< MsgBox ("г"I(`Exit rE nd/conn ectDBSet wp= CreateObj("ADODB.records et..Cur@sorTypadOpenSt{c 'αͣ޷ "LoadUseClient!#ԕ#Dim pdsrc As SngkA wpsql '!ƷHss aaARangonumAADoublO True_жǷһb'ȡ@PtrFie`lds("QI'õ˾0" customern#y" ("/ ][儚9ssA5A2Copy ,K>Q=Mult@iLevel (` !2O gMO [U8/1 T"g:ûжӦq7a^`,ȷA$)k@+8C_UkR.RemoveJ(8,xJSdWNothR 3һQ,99s`jG9za!b1PzPC'e1:= %s.)M scat qExcelShe = .as0sX'-1I,i .Activ @").Selu`10u"/(MM/E,+ORDѰO @,_R(9eqlhz!i^A'Tooog ///gu3}.  c4, 8)@e1('@ѭsotidAL&c.LOA,c.SUB ,mls.0_D1@$OM COCMEASSHIPLISTSTD c INNER JOIN MES_pTAG ms ON.CUSTOMER_SUBL@OT =c._ID WHERE c.FILE_name='" & FileN"' GROUP BY'A7,Cr]_ " Set idset1 = CreateObject("ADODB.recor ")5=9.Curso rType"adOpenStatic 'αD(Loc"on*UseClient* *Y*L sql1, csDBConntionlot_id_cou8=.RC CCP 1QAppl i/. A(Range("14:14")SFor A To IG^0l"SELECT CARAFRF3PRD.DOPE_HIS @(BoFields("F1"),Z  ) AND in ('PKG','E|) )H2F2@@s2A"DE?s5 P?P wafOOO A'Asubstr(@c2.WAF1,10) d10,SNO ,TO_CHAR(miw.PACK_CMP_DTTM,'y/mm/dd') j7& "f add_months -2) 2 ,eP5"5,{ a$DATAINFOa2 INTF_%RESULT !"'f=/ dn@1.m ORĀ:o`D`;"kkVk߻$a"  ke= 2 Thess3`_A11:AU>1Vbpy Cells(a + < 1).PasteSp ecialEnd If j0e 'wa@I}cumN?(kbaozYD2zi &5YC18PCCf,PCC2)M ,3!z40Ido=6fAD7v2FCvO}F8F6C 9oO*fQ*Q" 0"Q?p.S0#^%$yA%c= Else %= "ORIENTATIONXY-m" ql}-q*_220:+8 .̣d)JaШxapp/d//"'O- H-0@ |B.recordset") !measx0.CursorType = adOpenStatic 'αͣ޷""LocKon[UseClientZ.Z ql, csDBConne`ction O XYKFields("MEAS_ITEM_22 7") *5et0.-8"RIf S< 0p TheofAbs(T}End IfCells(18 + CC, teamsb)GSqrUEXlse,Bs@"Na" OrRKAl C@ _JCrL Mg Fe Ni" uL Zn"^(bjingshuAN plit(B, ";", , vbTextComparei2FQ(1)/10JeoB:@SELECTeFROM COCAhDAhSSTD W HERE jS @='" & 1(0)"'" Setk Cre@ateObj}("ADODI#ds ;F sߝ)CO8UNT!B ECOLUMN_NUMU! qls "AA2A9 A!e1AA AA g B1?BQ qF  /qqlA ?_Q?(& " data1,T2@2 :EATAINFOS c2dE WAFX_ID4ELl2E E2 E $ErI2$|$?$2_$}RbCou0<>/8IsNull(& "))v< num mFormat2/ 10r0.0O,kϏÏ_/ s/ / et2֦1/ / / $ : @"" A`/ #y$\ >E^K//) _"_!?%./ / / _oĿ'IrG) $z query1(E 7, i1F5SUBLOTcɐ5, 2)!Cg|bA0?ǟ "/#7sstrcit yS1d(team, "/", , vbTextCompare) meassqls = "SELECT * FROM COCMEASDITEMSSTD WHERE &_& ='" & strci@ty1(0) "'"lSet petpCreateObject("ADODB.recordset"C.Curs@orTypeadOpenStatic 'αͣ޷-Loc 'on/UseC lient/<2/U, csDBConnAion Pql2H؆_dEX.Fields("COLUMN_NUM"h data yATAINFOS c2Dz WAF_IDyCells(18 + CC, 2{ and<>' ' ㉁92ODYKɉ2Ifem2D.RjCou@W<> 0 TheLϯ'=s)`NWKaIJ/1XwEXlsew['#iMirow - 1, wafer_columnZ2`c"IESIf ;!& =s]G@#>e ]I , 3@G]s]cql3HL b0woUwd3'/x/x/x?_'oxox"/ t3~.'`&x '3'oV VmV~3|V_ IoM/ OVOVOVV7' xiax- "" Or shangEpOA>= Val(c)opW i'ReQa g19xx3"q7:K).xSelP  QsmNG=EO#a With  `.Inte0rior y.P atp1xlSolidrnColorIndexpUxlAuto>mb255TintA@ndShad0d _Y)Q6&R!) q hen,!4ss3Rangea33:I31 .Copykc~C+ 2, 1)steSpeci|all&r CARnaF3PRD.DOPE_tHIa $Tjc ^(TEE1Ì',O"F4) AND ID inPKGEa) GROUP^ /$ .2C..D 2....A...VD .2.1/// O%, 3)  .*h62,6__7ey9ILr("MWE3`_N/1000;NTHKA;MLS2TAVE ", ";0*<> 0 T9x0(" "P_T7Am.1 '- Cqv1 2t ? A 0'csvļjp_workbook0/WsH(sspي.xlsh*Appli.DisplayAlerts4alseO!MTru0?o93w2 data.Sav4 HC YMyBsActi?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[^_`abcdefghijklmnopqrstuvwxyz{|}j  z8 5xME(` %` % 0 pP````` (%(8HXhx(8HXhx(8HXhx(8HXhx(8HXhxk$*\Rffff*Ry6c06f1b5?"  ( @P h  x 0008 P`h`*x      @ "H p  (        *@ p  8 P@`  <     2( ` h x 2   B ( 0 @ X`   h   &  PX `  p 0 0 (     ((  $P  x   (        0  0P  0 (  z  X p  x 2 2 8 48 .p         (  @   (8@H Xp  000 (0,8h   $((, ,((H($P(2x($$   000`$x `00$ @ 000`$x H0h0$  ((8 `$      (8@ H(X $         ( 8 HX`>h     ( 8 H X hx         , 8    PH J    &  0 H RX           ( @ P  `&h  嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]SELECT CUSTOMER_NAME ,PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME,sum(WAFER_COUNT) WAFER_COUNT,ORDER_NO FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H<' GROUP BY PRODUCT_IDCUSTOMER_NAME,PLAN_SHIP_TIME,ORDER_NO'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'BʱPLAN_SHIP_TIME <%'X ] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k`繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hk0d(7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷ !ݳ嵥ļƷlotidSELECT c.SUBLOT_ID ,ms.SHIP_SUB_LOT_ID,c.WAFER_COUNT ,TO_CHAR(ms.HIS_REGIST_DTTM,'YYYY-MM-DD') HIS_REGIST_DTTM FROM COCMEASSHIPLISTSTD c INNER JOIN MES_SHIPTAG ms ON c.SUBLOT_ID =ms.CUSTOMER_SUBLOT WHERE c.FILE_NAME =' H' '  ~ B@ WAFER_COUNT <%+>ORDER_NO <% +>A5:S5$v. B@ l WAFER_COUNT <%a l $vB@ OK l 8+>'  V !ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷ !ݳ嵥ļƷlotid9SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO' ~ B@  SUBLOT_ID %   +> SUBLOT_ID %   +>HIS_REGIST_DTTM %   +> WAFER_COUNT %   +>WAF_ID %   +> B@OK   8+>( 7. $>' $>'N  $>'L    WaferId  ORIENTATIONXY RRGHEAD;RRGTAIL RESISHEAD;RESISTAIL  MEG2NVORD]]8 ;$''  ]x yk $' ȡ㷽ʽ $' ȡѯsqlֵ$$'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷SELECT WAF_ID,  5 measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' SHIP_SUB_LOT_ID % 'order by SLOT_NO desc '  ~ B@ ]   $>']]] SHIP_SUB_LOT_ID %$'$ $'  B@r  ! WAF_ID %measdata %'  $X',ֵ  $$'k     +> 0.00000$X   +>  'k8 B@ k    ORIENTATIONXYeSELECT WAF_ID ,ROUND(SQRT(MEAS_ITEM_227*MEAS_ITEM_227-MEAS_ITEM_228*MEAS_ITEM_228),4) oox FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@    $>B@@ RRGHEAD;RRGTAILe]select WAF_ID,(MEAS_ITEM_231+MEAS_ITEM_232)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@    $>B@@ RESISHEAD;RESISTAILe]select WAF_ID,(MEAS_ITEM_229+MEAS_ITEM_230)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@    $>B@@  MEG2NVORDeGselect WAF_ID,MEAS_ITEM_109 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@    $>B@@k  N    $> N $8 NG   8+>    <%>B@H ! 9 9999q r( r( r( r( r(kk L    $> L $8 NG   8+>    <%>B@H ! 9 9999q r( r( r( r( r(kk $>VALUE   $>NG   8+>   $>B@H ! 9 9999q r( r( r( r( r(kxp B@   ' H @+> B+> H+>A@ %------------------------------------- B@J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H.xlsx %. (Columns(8).Delete (K-----------------------------------------------2---------------------------kH <B@ B@ B@ رչ B@Bp_workbook.CloseĻˢ´ (rA@ H resļA@Joh`cAttribute VB_Name = "" Sub P() '嵀ļd'رĻˢ´Z Application.ScreenUpdngFalseNFilexTrim(Cells(1, 2)!w If $"" Then< MsgBox (""I(Exit :End/connectDBSet wp= Crea teObj("ADODB.recordset..CursorTypadOpenSt{c 'αͣ޷0 "LoadUseC lient#ԕ#Dim pdsrc As 2Sngk wp8sql v!ƷDss aaARango@SELECT CUSTOMER_NAME ,PRODUCT_ID,to_char(PLAN_SHIP_TIME,'ymmdd') sum(WAFCOUNT) ,ORDAO FROM COCMEASLISTSTD WHERE FILE"='" &G& "' GROUP BY )J0,$EAkyU, cs8DBCCSWh.EOF <> True]жǷΪһ Ga'ȡ3\trFields("0 õ@˾ևcustomern3Cb ("* ʱg +%/> AR UpathMNASԭ #A·һ'ӵ̀繲a+bV\\10.A52.142\0coc\: ServerSV112ģ@vreadministrator`Passw`@&"fthw-829`05028hIFoldersts()(%DQ@ 0 El%t Net k#  Wipt.i8afso!ing.Sypstem# -.MapDriv e "",)2, , ,, %)K]g 1)'%FnaK%S=A\ͻA?\i!u ')K` \ ? & hDDebug.Pri&` .xlsxHo"c%`9汾. c=(isWorkbook.P=P__pZ_a0'U@Cxml_BD=> ^[3ssA5,Copy /$,[@ 8!7Mult@iLevel ( ?!2o !o o 2 /q~D"5ûжӦ2Y`,ȷ$*];0,=O M.RemoveJE8,RydE[MdQNoth@M  'һϲ?-:sp$AeV=+Aua\8u8@=򿪅Q:= %s.A C ExcelShe= z.qsл'-1xxjXa .ActivplotidOOA4u%ïï '$݋ԺQ*|#c@.SUBLO ,ms.R _3,c. ,TO@_CHAR(H@IS_REG_DTTM,'Y-MM-DDp ?3c INNER JOIN MESrTAG ms ON =Pc $c.Fr _' Kset1 UqA35, 8))wA蠓ݓf9ov˨ Set sss = Range("A5:S5"0) .Copy TFor c*count1 To wp.Fields("WAFER_CpOUNT a" &I+ 5).PasteSp`ecial v8C ells(|+ @4, 56)"OK" 0NextiS1$0bs$he= `lotidbRecordCn> wafids!CreateObjectDODxB.r$ .CursorTypeNadOpenStatic 'αͣ޷E'Loc!on)UseClie!)ԝ'ݳ嵥ļƷJ Sql"SELECT @_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT ='aASHIP_ ")@"' ORDER BY S|NOLDTj@', csDBConniion '1K@425 A4 + sS`1, 20A1UBC9ÃJ1"2RHIS_REGIST_DTTvM?3r <}04?3(@@QFMovekz!00}< 6rowitem=t24a5>~;CollcHNothingCche$ck``= #!3,N  !shx Ixia>2| !i/If E<> "" And*WaferIdORIENTATIONX0Y" _o M RRGHEAD;LO RESISC!MEG2NV" The|Dim strResult() As Stvr:2F ;S plit(D+, ";1_ flagסejjUUB`d( KCmeas.1ew 25Exit E$If 2=HjjO  'ȡpʽu2sR(/+ѯsqlN?Aumws@pfind1G28(0)EnumAHv ˃1pu!+ " Adata__W+QWӝ/_bP'er byE desc. ;y;24:p:ieg5@vy0|4':spBP Double y2Yp@R 5( ooʢJϣ%::, OJQuSrg m.QFirs#P24 !=]0`,U:_mP l>|oCDCDbl 1W'd^Oget(0, @wg(2?r)?7 - Ř wafid  $Cells( 5 + y S1, lotrowitem) = CDbl(Format(num, "0.0"))'flagL+ 1#8End If#+m.MoveNext> ElseIf checkID"ORIENTATIONXY@" Then\m@eassqlSELECT WAF_",ROUND(SQRT(MEAS_ITEM_227*J-I88),4) oox FROM COC DATAINFOS c2 WHERE SUB_LOT@ ='" &idSet.Fields("SHIP_G ") "' ORDER BY SANO "8E 9et0:CreateObject("ADODB.recor`dset".CursorTypeadOpenStatic 'αͣ޷_#%LoconUseClientԮ(@ql, cs@DBConn@?ioT - 1).CopyFrxomR&+oOSRRGHEAD; ALSSselES,)R31+hP32)/2 LNNNN`JNNNNYNNe F NNNC NESISN!OO29 O0Oetq/ DNO|'NNOF 'N7'#N"bN'MEG2NVjN Cx&M109MotototuOotot7 ototot ototototy%%%%%%s%%ott>0 CC?1 To 25Тshangx <> ")oU 4`+ > Val(#) 561"NGActiveShe-'y.SpWith,.Interior.PatpxlSol Color Index0xlAutoic0`25.TintAndShad!#d _j'QO Window.S crollum1_ *4__{_Q32/i3wp?0!ҝ#w'رչGq ClozhWenՙ'ĻˢpI JeenUpingS2 '3YcqDB#MsgBox "E5"\ resq$8tSub   :YxME(` %`` `  % `@ ```` @%@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0k$*\Rffff*SN6c06f1b5 "    ( @P h  x 0008 P`hp x@*X   "   8 (X        *   @H P Xh8 PHh  <     20 h p  2   B(0 8 H `h    p   &   P  `  p h  x 0 0  $ *8 (h    0 0   0 8  P p  x  2   > V Z@ 8 2   00 0  @8X64 4 H&X    ^ X0x0   (8 @`hp     80X0Ph$,   ($@(`(, ,((8($ $ ( 8@HPDX h00$(H 000`$x  X0x0$(@ 00(X$p P0p0$ (  0 0!@!$X!!! @"0`"0""$"# # 88# 8p# N# #0$0H$x$$$$ $N$ 8%0X%0%%%%& &N & p&0&0&& ''8' @'N`' '0'0(0(H(h((( X)0x)0)) ,) ) *0*0+H+ `+p+$++$++++$,(,0,8,@, X,.h,,, N, 6- 4P- B- .- 4. :8. *x. @. @. @(/ @h/ @/// /.0,80 Rh0 :0 81 F81 21 81 >1 *02 @`2 @2 @2 @ 3 @`333(3,3*4 84 H4 P4 X4 `4 h4p4 x4 4 4 4 444 44 45*585*P5555 "5 *5  (6 &H6 ,p6    P6 J6    @7&P7  x7  7 R7 7 7  8 8    (8 88  P8  V`8  8 8  8 8 89 9 (9 89 H9&P9  x9 9嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]]]|SELECT PRODUCT_IDCUSTOMER_NAME,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PRODUCT_IDCUSTOMER_NAME,PLAN_SHIP_TIME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'd0WScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲·Qsrcpath = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\" \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hk(d 7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1-------------------------- B@pSELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyy/MM/dd') PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,sum(WAFER_COUNT ) WAFER_COUNT FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H;' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO'[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+>PLAN_SHIP_TIME L%+> WAFER_COUNT L%+>ѭsublotidSELECT ms.SHIP_SUB_LOT_ID ,c.SUBLOT_ID FROM COCMEASSHIPLISTSTD c INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_name=' H+' GROUP BY ms.SHIP_SUB_LOT_ID ,c.SUBLOT_ID 'ADODB.recordset$p. t (r1αͣ޷ x (v4αԣ޷  ~ B@ !'N'   $>!x '~ kx ~  : ~  $v %'   N sql11 = "SELECT CAR_ID FROM F3PRD.DOPE_HIS c WHERE SUBLOT_ID IN ('" & idset1.Fields("SUBLOT_ID1") & "','" & idset1.Fields("SUBLOT_ID") & "') AND OPE_ID in ('PKG','EPKG') GROUP BY CAR_ID "8 Set idset2 = CreateObject("ADODB.recordset")P idset2.CursorType = adOpenStatic 'αͣ޷S idset2.CursorLocation = adUseClient 'αԣ޷1 idset2.Open sql11, csDBConnection, waf_cont = idset.RecordCountASELECT SLOT_NO,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'   SUBLOT_ID % ~    +>SLOT_NO L% ~    +>WAF_ID L% ~    +> LB@D  :AT  $v.T T B@ ~    $>B@  <B@h    ~  $>' ~   $>'L ~   $>'N GSELECT COLUMN_NUM,ITEM_FLAG FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS =' '' ADODB.recordset$p. t  (r6αͣ޷ x  (v9αԣ޷ ~  B@  ! ITEM_FLAG  %' d  ' k     OXYCONCENHEAD;OXYCONCENTAIL 7(ORIENTATIONX*ORIENTATIONX+ORIENTATIONY*ORIENTATIONY) RRGHEAD;RRGTAIL RESISHEAD;RESISTAIL ORGHEAD;ORGTAIL  CHEAD;CTAIL   MTQC](]h ;$''  ] y8 k0 $' ȡ㷽ʽ $' ȡѯsqlֵ$$'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷SELECT WAF_ID,  5 measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' SHIP_SUB_LOT_ID % 'order by SLOT_NO desc '  ~ B@ ] ~    $>']] SHIP_SUB_LOT_ID %$'$ $'  B@r  ! WAF_ID %measdata %'  $X',ֵ  $$'k( 0.00000$X ~     +>  'k B@k 7(ORIENTATIONX*ORIENTATIONX+ORIENTATIONY*ORIENTATIONY)eSELECT ROUND(SQRT(ABS(MEAS_ITEM_227*MEAS_ITEM_227-MEAS_ITEM_228*MEAS_ITEM_228)),4) oox FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ ~    $>B@@ RRGHEAD;RRGTAILeVselect (MEAS_ITEM_231+MEAS_ITEM_232)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ ~    $>B@@ RESISHEAD;RESISTAILeVselect (MEAS_ITEM_229+MEAS_ITEM_230)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ ~    $>B@@ OXYCONCENHEAD;OXYCONCENTAILeVselect (MEAS_ITEM_233+MEAS_ITEM_234)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ ~    $>B@@ ORGHEAD;ORGTAILeVselect (MEAS_ITEM_235+MEAS_ITEM_236)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ ~    $>B@@  CHEAD;CTAILeVselect (MEAS_ITEM_239+MEAS_ITEM_240)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ ~    $>B@@  eselect ROUND(MEAS_ITEM_ COLUMN_NUM  %3,4) DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ ~    $>B@@ MTQC e ; $' 2jingshu2 = Split(jingshu(1), "/", , vbTextCompare)2jingshu1 = Split(jingshu(0), "/", , vbTextCompare)2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ ! COLUMN_NUM %' d8$ / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@ COLUMN_NUM %' /$ ' k 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ '' ADODB.recordset$p. t (r<αͣ޷ x (v?αԣ޷ ~ B@ ! COLUMN_NUM %' d$ / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷  ~ B@ COLUMN_NUM %' /$ ' kxSELECT ROUND(MEAS_ITEM_ ,5)  4 data2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' and MEAS_ITEM_  <>' ' ORDER BY SLOT_NO'ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@kSELECT ROUND(MEAS_ITEM_ ,5)  3 data1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %'and MEAS_ITEM_  <>' ' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ !  ~    $>B@@ !e  ~    $>B@@kd !  ~    $>B@@kkk  N  ~     $> N $8 NG ~     +>H ActiveSheet.Cells(4 + y + S1, lotrowitem).Select/ With Selection.Interior. .Pattern = xlSolid< .PatternColorIndex = xlAutomatic( .Color = 255- .TintAndShade = 04 .PatternTintAndShade = 0$ End With9 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 39 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 1kk L  ~     $> L $8 NG ~     +>L ActiveSheet.Cells(4 + y + S1, lotrowitem).Select3 With Selection.Interior2 .Pattern = xlSolid@ .PatternColorIndex = xlAutomatic, .Color = 2551 .TintAndShade = 08 .PatternTintAndShade = 0$ End With9 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 39 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 1kX kP ~     $>NG ~     +> ~     <%>B@H ! 9 9999q  r( r( r( r( r(k0 (    ' B@ ~  : ~  $B@H | B@v ~  : ~  $B@H | B@v ~ : ~ $B@H | B@v Rows("15:15").Select$ Selection.Delete Shift:=xlUp Rows("2:2").Select Selection.Delete Shift:=xlUp%-------------------------------------J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H.xlsx %. ( (K-----------------------------------------------2---------------------------k <B@ B@ B@ z.   !t B@ !\ !.xlsH , zB@kΪxlsxʽ zB@B0 رչ B@Bp_workbook.CloseĻˢ´ (rA@о H resļA@JoxAttribute VB_Name = "" Sub 0()  '嵥ļ  <'رĻˢ ´d Application.ScreenUpdng False'FileTrim(Cells(1, 2) If $"" Then< MsgBox ("г"I(`Exit rE nd/conn ectDBSet wp= CreateObj("ADODB.records et..Cur@sorTypadOpenSt{c 'αͣ޷ "LoadUseClient!#ԕ#Dim pdsrc As SngkA wpsql '!ƷHss aaARangonumAADoublO True_жǷһb'ȡ@PtrFie`lds("QI'õ˾0" customern#y" ("/QC=MultiLevel ( ?!2o !o {8_A1 ":ÀжӦ7^,ȷ$*˚A0,CUR.Remove K8,y$KaSdvWNothS 3qһ¹/-99s`$12k@H%+zabbPA{eQp'u'A:= %s.) 0G`!{t ExcelShe= .qs '-{1i,y .Activu 1s"ޫ/HMM/E, ORDO,sum(WAFCOUNT ) oooo`,{? g2 9fql({1"iao E///' ' K . ߾ #2, 5)@# %Mw3~ 6S4s("WAFER_COUNT")  'ѭsublotid@ sql1 = "SELECT ms.SHIP_SUB_LOT_ID0 ,c.FROM COCMEASPLISTSTD c INNER JOIN MES_TA"GQ ONWCU0STOMM = WWHERE c.FILE_name='" & `FileN "' GROUP \BYM^"oSet idsetrCreateObject("ADODB.rec|or.CursorTypeadOpenStatic 'αͣ޷`Љ(L$oc"on*UseClient*(*% t, csDBConn:ionC!@_id_cou=DH.RBC SN0For measitem.1 To 18 If Cells( , 3) .ValuP"" The;&E s End IfNex tGQ Appl iW.3A(Range#s + 4:@){I:A8 M | 'E _KE CARBF3PRD.DOPE_HIS@ý @(FieldF1")B,Z ) AND yin ('PK G','E) 'jgg2` gJa!b2gg[ g7g h1/hnwa~fgggB (eBSqNO,FCDATAINFOC? ?E-C$? ORD AF;?;g]aB:ߢ :e ;:?"25O&6@SM1)0 ;UB1u 2.D3' Z 3s+ d.Move;YQ'ss3X"DW12YATm8Ysp]py4).PasteS@pecialActiveSheet+  e5 4qQ check0Y=,us xiaxp #? sh@o_!2ITE\ 0/QF1=  0C12o? ElseaFS"-h11 #<> "" APOXYCONCENHEXAD;tL(ORIENTATIONX* +YY)" _ RRG"p RESIS#OAOTp:CC\  Ir(, "MTQ:C="4Dim strResult(s String2Tf`?Sлt ;O'sfla>gXjjaXUBd(vR 1U1 A)25?6 Exit 1K = strResult(jj) '㷽2plititem1(measIJ@sqlֵcC olumn_find1(t(0)`Set numm:CreateObject("ADODB.recordset"!.Curso rType%adOpenStatic 'αЌj+Loc%opadUseC lient-,-"SELECT WAF_ID, " + DS+idata FROM COCMEASDATAINFOS c WHERE SUB_LOT@( ='iM1.Fields(" SHIP_ ") @"'Ver by SNO desc"DAVl/, csDBCoDnnlionFor y@f0 T0o 24 Dim wafid As String  = CelTlss97yS1, 3ؐspB[*@2)Double)D@(., l|CF1 ,sp pL, #IfDO1 <> "" T ) aCDbl (19L'!get(`,~2@I2(2' End@6C%yA3s)#@Jmat"0.0"aflag +| 1A? (m.dNex[ _Else+checkID"(ORIENTA@TIONX*+eYY)oC 2 Rqlto ROUND(SQR@T(ABS(m_ITEM_227**-88)),4) ooxۏrr2rr&Wr& "' ORDER BYr_rB2et0@//////|///1qlρy_>!{zb).CopyFromaC$?,RRGHEAD;p0L)d Q)sel (31+'32)/2 p&&&0k&_&r &Ruvb&&&&|&&&/&s&&&s 0&RESIS'/' P/'229*'0/'N/'/'/'/' /'/'/'o/'/'/'/'v!/'/'/'o/'/'s/'/'('set meas!p0 ElseIf checkID = "OXYCONCE@NHEAD;4TAIL" TheNnqlselect (MEAS_ITEM _233+ 4)/2 DAT FROM COCAINFOS c2 WHERE SUB_LOT_ID='" & id1.Fields("SHHIP_#")""' ORDER BY S;NO "YS[Cre@ateObj^("ADODB.recor:"){et0.Curs@orType%adOpenStatic 'αͣ޷Ј+Loc%on-UseClient-.-(ql, csDBConn @?ioyCells(zitems + 7S1,).CopyFromRMH9IRGRG56 FS뀢wXMM F Mk MMf MCMC_M79IM40_M???FE@?-/LB?? _M_M F _ME_M_Mf DMAFLAG 0"ROUNDha! SSTDCOLUMN_NUM,4)_uuuuuCNuuuuuu|(uul(ud(uu_( pr(, "MTQC@"> 0r_ ajingshu`,Split;", , vbTextCompare'DF2V(1) /׏10 2Baqls"SELECT< *[58$fS 3u 0Ө2ZrI&sπ|222 2sϧy`ʣCou@<,COUNT#%S/ q4((1Et ''ּ'1('٨(ώ_Z_Z_Z_Z ((( (h _%_%smuq#"/}$P 1End I>f_Q3UBoѴund(jingshu) > 0 Then meassqls1 = "SELECT * FROM COCMEASDITEMSSTD WHE(RE &_& = '" & (1")"'"lSe$t petpCreateObject("ADODB.record`set")D.CursorTypeadOpenStatic 'αͣ޷'.HLoc(on0UseClient/Գ/V, csDBConnioڗQ$If.RCouJ<ACOUNT2@4c.Fields("COLUMN_NUMY`Else'SplitE, "/", , vbTextCompare{B*I-;2(0^I6/Aq_V_V F V?V'NN smnuaJ Hg1@:QE`nd If"ql3(KROUND(F_ᜄ& "X,5) 1A @data2 ATAINFOS c2 SUB_@LOT_IDi1F SHIP_eg"T a <>' ' ORDER BY S NO_sZ/b&et3ZM l YYI Y3YKO3bql\VQbOQQ1((((4((1#0(T_NO (RU_(d2(///|''2'ypUB??ǃ2v@Cells( items + 70S1,#).CopyFroms{F2O w 3  u   P E/< ? gf   _  sFor CC0s1 To 25?q0shangxj ""oT6%+ '&Val()OJQiNGJ'ActiveSheet.#4y0q lotrow1 ).Sel With Sp.Interi or .P atqxlSolidernColorIndexxlAut|om!r 25 .TintAndShad0 oo(Window.Scroll um  4eq32 =o: -ScrollColumn = 1 End If|6If xiax <> "" Then+Cells(measitems H+ 6CCS1, s) < Val(W)RKSQ-1)~"NG" ' ActiveShPeet.+4yNlotrow\).Select'With ion.Inte0riorD.P atxlSolid(orIndexzxlAutomaticG 255 TintAndShade@ 0 6S\CpWindow.]4432b_xDx=߁v vN7v8w waw~ww>Jwo^w9vYov_3~v_Sv_S?`v_STv(Nex`Љ +S1@Y@+ 2Xidset1.MoveRowz2 & ":"P52p 'oD`rte Shift:=xllUp1w1  y"15:15"G_ $]c2:2M - v'1 2t  C P%'cs vļSet p_workPbook.Ws.Open(ss@%FileName%.xlsx")ApplicDisplayAlertsPFalseOMTru0O?b6)Awp`<# data.Sav4 HYMyB$Zv For Each sht In .xsxa .Copyl#2 As e:=$hh1\1HI<",FExcel8'Ϊ! v &, C` %` ` `  % `%`p 0@P`p 0@P`p 0@P`p 0@P`p 0@0Pk$*\Rffff*T=6c06f1fe"  ( @P h  x 0008 P`hpx@*X      "( P h (        *  P px 8 P @ ` <x     2 @ H X 2p   B    8@   Hh   &  P8 @  P 0p 0 ( r p           * 8H  .  ,  .  *  .@  0p       0  08 (h    0 "H(p      0Pp   24 (484p0000H x D  (08@ H X h x " 8 8 H P X ` hp x    "8 P ` h p x            (H`x  . ,  8 D8    P J     &0 X h  R         0 @X ` x     嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]]]~SELECT CUSTOMER_NAME ,PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyy-mm-dd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PRODUCT_IDCUSTOMER_NAME,PLAN_SHIP_TIME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'BʱPLAN_SHIP_TIME <%'X ] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@HkPdH7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷ !ݳ嵥ļƷlotidselect ORDER_NO,c.SUBLOT_ID ,WAFER_COUNT,INVOICE_NO,TO_CHAR(min(ms.PKG_CMP_DTTM),'YYYY-MM-DD') PKG_CMP_DTTM,TO_CHAR(ADD_MONTHS(min(ms.PKG_CMP_DTTM), 12)-1,'YYYY-MM-DD') PKG_DTTM from COCMEASSHIPLISTSTD c INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID where FILE_NAME =' H?' GROUP BY c.LOT_ID,ORDER_NO,INVOICE_NO ,WAFER_COUNT,SUBLOT_ID '  ~ B@Ϣ$tB@H   !A3:M$vB@H B@A   $vB@H <B@ORDER_NO %   +> 2Cells(lots + 2, 3) = lotidSet.Fields("INVOICE_NO") WAFER_COUNT %   +> SUBLOT_ID %   +> PKG_CMP_DTTM %   +>PKG_DTTM %   +> PKG_CMP_DTTM %   +>PLAN_SHIP_TIME <%   +> B@H2:2$!VB@H | B@vADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷ !ݳ嵥ļƷlotidIselect ORDER_NO,c.SUBLOT_ID ,sum(WAFER_COUNT) WAFER_COUNT,INVOICE_NO,TO_CHAR(min(ms.PKG_CMP_DTTM),'YYYY-MM-DD') PKG_CMP_DTTM,TO_CHAR(ADD_MONTHS(min(ms.PKG_CMP_DTTM), 12)-1,'YYYY-MM-DD') PKG_DTTM,ms.SHIP_SUB_LOT_ID LOT_ID1 from COCMEASSHIPLISTSTD c INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID where FILE_NAME =' H>' GROUP BY c.SUBLOT_ID,ORDER_NO,INVOICE_NO,ms.SHIP_SUB_LOT_ID '  ~ B@DZ׼Խб$tB@HA65536$v%! '  ' V !A3:P  $vB@H B@A $vB@H <B@ t   t  $>'  t  $>'  t  $>' ADODB.recordset$p.` t ` (r x ` (vb SELECT MEAS_MAX,MEAS_MIN,MEAS_AVG,MEAS_STDEV,MEAS_PCS FROM COCMEASDATASUBSUM c WHERE SUBLOT_ID ='LOT_ID1 %' AND MEAS_ITEMS =' ' and MEAS_PCS<>0 'b b ~ ` B@ SUBLOT_ID %  t  +> WAFER_COUNT %  t  +>  ` !MEAS_PCS ` % WAFER_COUNT % WAFER_COUNT %  t  +>dP MEAS_PCS ` %  t  +>k MEAS_MAX ` %  t  +>MEAS_MIN ` %  t  +>MEAS_AVG ` %  t  +>OK  t  +>d` NG  t  +>  t  $>  t  $> <%vB@H ! 9 9999q  r( r( r( r( r(k`    t  $> NG  t  +>  t $>  t $> <%vB@H ! 9 9999q  r( r( r( r( r(k0  t  $> NG  t +>  t $>  t $> <%vB@H ! 9 9999qp  r( r( r( r( r(k k k    ' B@A2:q  $vB@H | B@vN:P$B@H r| B@v( Sheets("Sheet1").Name = FileName%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H.xlsx %. (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@ B@ رչ B@Bp_workbook.CloseĻˢ´ (rA@ H resļA@Jo80Attribute VB_Name = "" Sub P() '嵀ļd'رĻˢ´Z Application.ScreenUpdngFalseNFilexTrim(Cells(1, 2)!w If $"" Then< MsgBox (""I(Exit :End/connectDBSet wp= Crea teObj("ADODB.recordset..CursorTypadOpenSt{c 'αͣ޷0 "LoadUseC lient#ԕ#Dim pdsrc As 2Sngk wp8sql v!ƷDss aaARangoparter_n@IntegervariaxnceA "@SELECT CUSTOMER_NAME ,PRODUCT_ID,to_char(PLAN_SHIP_TIME,'y-mm-dd')  FROM COCMEAS LISTSTD WHERE FILE='" &G& "' GROUP BY J', Cp}Y, cpsDBC@DWh.EOF <> TruebжǷΪf'ȡfPtr@Fields("-ɿ'õ˾" customere8=("ʱ',/d.6i !HUpathCU!SԭA!!·һ 'ӵxa+bM\\10.A52.142\coc\D8 Serv8erSN112ģ, vrEadministratorPassw@8"fthw-82905028hIáFoldersts()%N@ 0 Elt Net kWipt.i8Afsoing`AleSystem# -.MapDrive "$",)2, , ,, %)Kg 1 '%FaK %S=A \ʠͻA?\ᇿjh!cs ')K` \  & hDDebug.Pri`ĥ& yN".xlsx?Hod%`9汾 c=(isWorkbook.P=Q_G_!4'pU@xml_BD= \[3ss q2Copy /$,[/8q7MultiLevel ( o !2o !o {2  "5ûж Ӧ2Y,ȷ$*];0,=O M.RemoveJE8,xdEMdQNoth_@M  '!~һ~?-:sp$Ae2S=+Aua\8u8'>Q:= y%s.  ExcelShZe= .qsρ'-1xxjXa .Activ`lotid??A4u%ßà '{ԄQ*#pŰsel ORDO,c@.SUBLOa ,WAFPCOUNT,INVOIC@O,TO_CHAR((ms.PKG_CMP_DTTM),'Y-MM-DDAvADD_M`ONTHS/! `12)-1 fromD c INNER JOIN MESTAG ms 4ONP.F3 = whereƦ ƨc.C,?S cet9 EOȓ#  p Sheets("Ϣ").SelectFor lots = 1 ToidSet.RecordCounZRange("A3:M" 8& 3%gion.Copyo A#>{+ 2EActive.Paste HCells(B, 1)c`Field~ORDER_NOT")' 3INVOICE "6WAF?COXUNT@ 7 SUBLOT_ID8PKG_CMP_DTTM]9Va10> 1p wpAoPLAN_SHIP_TI ME0{MoveNexHKRow2:2@Entire@ǭD@teift:=xlUpG*CreateO bjDODBD.rBset.CursorTypeadOpenStatic 'αͣ޷!#B Loc`onb UseClientG ] 'ݳ嵥ļƷ` QqRl`"sB o,c.&Y ,sumR((c) ,Gn,TO_CHAR(min(ms.Y),'Y-MM-DD') iADD_MONTHSS 12)-v10 ^, O_cp 1 from COCMEASLISTSTD c INNER JOIN MESBWTAG ms ON.C`USTOM! =)# where FIL@AME ='FileName "' GROUP BY (,-'"FNDYql, csDBConnYg'˷DZԽṠбA BA%65536pd(row - 2 itemc`A + 3G>s@3:PA)A Ϳ"AA&ց!A?a`#ā"+ as%14,o25max6 PCREATEDN!PP 5.QQ^oOaOJ SELECT;AS_MAX,a=_MINAVG>EVPCS FROME@DADTA=SUM0@WHERE >{T<'ZmD")s=ANDITEMSDcQand<>0 <=W/=u&#m1ϊX` If2* <> "" Thenp016 p>dRPz =tk^Els\mE)If"8AX u 2aINi X0C]6"OK/>_K NG6yS{;,?:j3)r) Withpdl#.Interior%ptpQxlSolidrnColo rIndenxlAutom!cbm255TintAndSh4ada0Pab _Y6x ActiveWindow.ScrollColumn = 5 8l43l336 2361End If If itemmin <>@ "" OraxThen> Cells('count +%s - 1, 15) %'!7)"NG"HrSheet.Range(@%1),-@3)).Select[ With  ion.Interi or *.Pat AxlSolid orIndex@ExlAutomatic`9@ 25'(TintAndShade 0(kARY8| Y|]8}]}9~v|v6v h?v +?vs?v?v"?v?vw?vo#.?vH.nB?)?vyg?vV?vT;Y (aZ;;;W Nexjx=xyA[VlotidSsMove[#u"A2:@q" & Ap~2 orpDtte Shift:=xlUp`-ps("pN:P"OOEToLef '/bD r1PNamqkFile-W dataworkbook.Save'As sspfn& ".csv", xlCSVwxls xW$Normalw ݠ' 1{2t /c P'PČ) p_%s.OpenN(u0".)Applic``Display@AlertsFals(8).3+oѝmTruPo/Q,I>wp:# O(s=r+A`'رչơGJCloWen'Ļˢ´AeenUpingr 'X3YcqDB#MsgBox" res!$T¡QSub .r&2xME(` %` %0%0@P`p 0@P`p 0@P`p 0@P`p 0@P`p k$*\Rffff*Ss6c06f1fe "  ( @P h  x 0008 P`h* 8H h "   ( 0 H  ` p x  *   < PX  < @ X h x 2    2 0 8 B@          &0 X  Pp   00 (0 X x  `  p 0 0  $ ,0 *`     8 0X 0    , TH  0 0   8 @ X  0 00 ` x  ,*.(,X       0 @ Xp 80X0 $&$0$X$(  0 8 P X hx *  **0` 00Hx <>< <`<***H*x*     (   ,0 `"p D    P J0    $   R @ H  X h x      *  ( 8嵥ļļ\SYرĻˢ´t (rolS$>$'H H M嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· *!\ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd0 A@ Ʒļ  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|pkh   B@.k0жһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@p total_qtySELECT SUM(WAFER_COUNT) WAFER_COUNT FROM(SELECT SUM(WAFER_COUNT) WAFER_COUNT,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' group by SUBLOT_ID)'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ WAFER_COUNT L% +>ORDER_NO ,PLAN_SHIP_TIMESELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyyMMdd') PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,LOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' HB' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,LOT_ID'[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+>%Cells(24, 2) = idset.Fields("LOT_ID")PLAN_SHIP_TIME L%+>ѭsublotidYSELECT LOT_ID,SUM(WAFER_COUNT) WAFER_COUNT FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' GROUP BY LOT_ID ;'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id Dim lotid% lotid = idset.getRows>SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H';'ADODB.recordset$p. t (r2αͣ޷ x (v5αԣ޷  ~ B@'  !select d.SUBLOT_ID SUBLOT_ID,d.SLOT_NO SLOT_NO,d.READ_WAF_ID READ_WAF_ID,RF.MEAS_DATA MEAS_DATA from F3PRD.DWAFER d LEFT JOIN (SELECT * FROM RPTVQUACOCF WHERE MEAS_TITLE not in('Slot NO.') AND sub_lot_Id =' SUBLOT_ID %Z' AND MEAS_ITEM ='MEAS_ITEM_448') rf ON rf.READ_WAF_ID =d.READ_WAF_ID where d.SUBLOT_ID =' SUBLOT_ID %' order by d.SLOT_NO'ADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷  ~ B@Sheet2$tB@H  !A1010060  +> SUBLOT_ID %  +>SLOT_NO %  +> READ_WAF_ID %  +> MEAS_DATA %  +>  ' B@P B@8Sheet1$tB@H  NLOT_ID L%' WAFER_COUNT L%'  '  $>'  +>  +>]SELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUM WHERE LOT_ID =' ' AND MEAS_ITEMS =' ''ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@ !MEAS_AVG % +> MEAS_STDEV % +>MEAS_MIN %  +>MEAS_MAX %  +>MEAS_PCS %  +>dP +> +>  +>  +>  +>k  measset.MoveNext' e yy = 0A19:K39$v. B@A    $vB@    $>'      +>      +>]SELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUM WHERE LOT_ID =' ' AND MEAS_ITEMS =' ''ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@ !MEAS_AVG %     +> MEAS_STDEV %     +>MEAS_MIN %     +>MEAS_MAX %     +>MEAS_PCS %     +>d     +>     +>     +>     +>     +>k  yy = (yy + 1) + (a - 1)'k LB@%------------------------------------- B@  H.csv 0 B@=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H.csv %. ($B@v (K-----------------------------------------------2---------------------------k <B@ B@ B@ رչ B@Bp_workbook.CloseHĻˢ´ (rA@о H resļA@Jo Attribute VB_Name = "" Sub 0о() '嵥`ļ2'رĻˢ´Z Application.ScreenUpdngFalse!'File~Trim(Cells@(1, 2)w If $"" T8hen< MsgBox (""I(Exit c:End/connectDBSet wp= CreateObj("ADODB.reco`rdset..CursorTypadOpenSt{c 'αͣ޷ "LoadUseClient##Dim pdsrc As S ngk wpsqlv!Ʒss aaApRangoSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &G|& "' GROUP BY J@AwO]n9, csDBCCv7Whw.EOF <> TrueAжǷΪ׀һGEa'ȡ@trhFields("* '˾ "Acust`omernB("7p@vpathhAsԭ ā/·һ'ӵ̀繲a+H<\\10.A52.142\0coc\. ServerSh ar‰112ģ @\r%administratorPassw`o."fthw-82905028hIFoldeBrsts()/(%DE@ 0 El%t Net .k# Wip_PkM.RemoveE8,sE[NdRNot~hM zȻQz/-9s`$1eCC=+u@a1]bPKuL 'For!%1 ToFDResistivity@ "sebl`l d.9&,à;NO S `READ_ !h,RF.a_DATA 'from F3PRD.D d LEFT JOIN (d*RPTVQ4UAF# TI@TLE non('ST NO.@') AND!_ _Id C*9")"IT EMf_448 rf ON r$f.i=dwhere&& @`er bya*hB᠈4`li`ap ``jb005Sheetwr2").S,11131s>.2pw7+ 1Q"A1010060</:/) 3$$oo 4oˈ.u  54A@ &LMoveNextkE? :$1?$ #A#1Fx7Pr1;cr[[P_"If he, team_9-39q &, 12#p.omeaseB"`AVG ,EVM`aSMAX4PCS%P4b_rVJ^S ;2`; qW p= o!:_WϯϵkW_WqlWuy*U <> 0 T+*$7&E4"D38("7&?? 9?4) 10/%AX// 1f1AS_0/ pElse_?"/2BZCells(teams, 10) = ""  1End If Next "'measse@t.Movex x0 2ElseIf A >= @2 Then Ryy4Set aaRange("A19:K39 ")aa.Copy " &@+ 19 *xx).PasteSpecialFor W To 2 uۀ B2c~AS: rl.od?2cu&m'sql("SELECT MEAS_AVG ,ABSTDEVM$INEAXDPCS FROM COC DATASUM WHERE LOT_ID ='_@.@a"' ANDITEMSDBJ& "'PASreate@Object@DODB.reco 07rJ7J Fields("bFG0| 8v P {f~9 Z r CMAX l 3S7=4vb1x.x+'-()`I(a - 141K2= i+  '-dataworkbook.Save As ssYFi@leNameqZ.csv", xlhCSV'nfnxlsxWNormYv BG1o2{t C P1 'aPļjpN_`%s.\(%Applid.DisplayAlerts FaДColumns(8).Dpelet8_WTruO1B.wp\. )l+'رչ'Clos8'!Wend'Ļ`´e~ScreenUp8ing0 'ScDBMsgBox "оQ)6res#TQSub (SS S<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}h 0so%@8x%x 0(@8PH`Xphx 0(@8PH`Xphx 0(@8PH`Xphx 0(@8PH`Xphx 0(@8PHHXkxAttribute VB_Name = "1" Bash0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@GlobalSpacFalse CreatablPredeclaIdC@ExposeTemplateDeriv%Cus tomiz E%      !"#$%&'()*+,-./0123456789:;<=>@ABCDEFGHILMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~2bֆPxME(` %` H% $ H` `D`>` %` @% & @` `D`>` %` 8% ( ` a`D`>` %` 0%XHP@ %hXHP@pXHP@XHP@XHP@XHP@XHP@8XHP@`XHP@XHP@XHP@XHP@XHP@(XHP@PXHP@xXHP@XHP@XHP@XHP@XHP@@XHP@hXHP@XHP@XHP@XHP@XHP@0XHP@XXHP@XHP@XHP@XHP@XHP@ XHP@H XHP@p XHP@ XHP@ XHP@ XHP@ XHP@8 XHP@` XHP@ XHP@ XHP@ XHP@ XHP@( XHP@P XHP@x XHP@ XHP@ XHP@ XHP@ XHP@@ XHP@h XHP@ XHP@ XHP@ XHP@ XHP@0 XHP@X XHP@ XHP@ XHP@ XHP@ XHP@ XHP@HXHP@pXHP@XHP@XHP@XHP@XHP@8XHP@`XHP@XHP@XHP@XHP@XHP@(XHP@PXHP@xXHP@@Xk$*\Rffff*S:6c06f1b5" (H "P X x    0 0P @*X   "   8 (X        *   @H P8h P N@`  <     2( ` h x 2   B  ( 0 @ X`    h   &   PX ` p P 0p 0  *   8 R0 N `  8  0X  0     " * 8 P h           ( (H(p((28 8X4 (H h8 00@ X 0h0000080h00 6P0X 8 > ( 8 @ H P X`h  p  > $$$ $($0 8@ HX x > $$$$$  ( 0>P         (@   ,X  8T    P( Jx     >  ( @ RP          ( @ P ` .h  "      8@H P0p0 *   @ "H p  (        *@ p  8 P N@ $ &   < 8! P! `! p! B! ! ! ! B" H" P" BX" "" " " ""    "&# 0# 8# .P# #  P## # $ $0%00%`%*x%8%:%   &@&R8'N'`' @( 0`( 0( ( (  "( *) @) X)  p))) ) )  ) ") "* ,@* "p* "* 2* 2* .0+ "`+ + + +  "+ *+   ,, H, 8X,,,   , , , R, P- X-  h- x- - - -- - - - . 0. @. "H. P. p. .. .  .... .0/0H/x// ///80*P0 00 000 "0 1 01 (P1 x1 1  1 1 1 1 *1 2 82@2 H28`2 P2 N2(83*`3 3 <3 3 4 4  4 J84 4 4 4 J4 5 5 B5 `5h5 p5 5 55    5*5 5 6 26 P6  Ph66 6 6 708088h8B8*8 @8  89X9RP:N:`: X; 0x; 0; ; ;  "< *(< X< p<  << <<< < =   ,= H= h= x=  "= *=   ,= > 8>0P>   > > > R> ? ?  (? 8? P? `? p?? ? ? ? ? 2? @ "@ @ 8@ P@`@ x@  @@@@ @0@0A@AHA `ApAxAB*B HBXB xBBB "B B B (C @C XC  pC C C C *C C DD D8(D P`D NDE E @E <XE E E E E .E F F 0F .HF xF F BF FF F F GG    G8G XG `G $xG G  PGH H  H H0I08IhII"II  IJRKNXK`K L 0(L 0XL L L L   L  M M  ,M M 8M>N   PN `N xN RN N N  N O  O 0O @OXO `O xO O O O O OA@" A@$ A@& A@( оļA@Jo0X嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|kA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'd0WScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hk0d(7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xlsx$x]0 ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pselect sum(WAFER_COUNT) wafcount,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO from COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@PLAN_SHIP_TIME L%+>ѭsublotidSELECT cocd.PRODUCT_ID ,DH.SUBLOT_ID ,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'yyyymmdd') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,12),'yyyymmdd') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh ' DINNER JOIN COCMEASSHIPLISTSTD cocd ON dh.SUBLOT_ID =COCD .SUBLOT_ID ' @INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =COCD.SUBLOT_ID ' .WHERE OPE_ID IN ('EPKG','PKG') AND FILE_name=' H' AND dh.HIS_CAT ='OC''ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@ L!'N I65536$v%!' #Cells(8, 20) = "=COUNTA(I1:I65536)" B = Cells(8, 20) LOTON = B + 11  N    '* A2:U $v.T T B@ * $>B@   OK *   +>$> *   +>$> *   +>$> *   +>$> *   +>$> *   +> SUBLOT_ID L% *   +>HIS_REGIST_DTTM L% *   +>HIS_REGIST_DTTM1 L% *   +> WAFER_COUNT L% *   +> *   $>' *   $>'( *   $>', *   $>', *   $>'.  ̶SELECT TRUNC(MEAS_AVG,4) MEAS_AVG, TRUNC(MEAS_STDEV,4) MEAS_STDEV,TRUNC(MEAS_MIN,4) MEAS_MIN ,TRUNC(MEAS_MAX,4) MEAS_MAX ,TRUNC(MEAS_PCS,4) MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' SUBLOT_ID L%' AND MEAS_ITEMS =' ' AND FILE_name=' H' AND MEAS_PCS <>0 'ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ ! , ave , AVG , Avgmeas_avg % *   +>k0 , max , MAX , MaxMEAS_MAX % *   +>k , min , MIN , MinMEAS_MIN % *   +>k` MEAS_MAX % *   +>MEAS_MIN % *   +> . ĿMEAS_PCS % *   +>d MEAS_PCS % *   +>kp *   $> WAFER_COUNT L%NG *   +>A *   :T *   $vB@H ! 9 9999q k , MEAS_MAX % , NG *   +>A *   :T *   $vB@H ! 9 9999q k ( eMEAS_MIN % ( NG *   +>A *   :T *   $vB@H ! 9 9999qkkdNG *   +>A *   :T *   $vB@H ! 9 9999q0k(d k LOTON = LOTON + B + 1 LB@2: $B@H | B@v%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV $>-eC.O.A Format-$>.xlsx v B@J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ7Set p_workbook = Workbooks.Open(ss & filename & ".csv") (Columns(8).Delete (K-----------------------------------------------2---------------------------kP <B@ B@p_workbook.Save رչ B@Bp_workbook.CloseĻˢ´ (rA@(MsgBox "о" & FileName & "resļ"o`P嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|kA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k`繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[ COA packing list.xls COA packing list.xls$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ COA packing list.xls COA packing list.xlsA@Hd( A@ Ʒļ COA packing list.xls COA packing list.xlsA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|XkP   B@.kжһǷƷļ COA packing list.xls$x]( ģļ COA packing list.xls %. %.J-----------------------------------------------1--------------------------' B@pselect sum(WAFER_COUNT) wafcount,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO from COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@PLAN_SHIP_TIME L% +>Date : PLAN_SHIP_TIME L%+>Quantity(Unit):wafcount L% +>ѭsublotidSELECT cocd.PRODUCT_ID ,DH.SUBLOT_ID ,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'yyyymmdd') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,12),'yyyymmdd') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh ' DINNER JOIN COCMEASSHIPLISTSTD cocd ON dh.SUBLOT_ID =COCD .SUBLOT_ID ' @INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =COCD.SUBLOT_ID ' .WHERE OPE_ID IN ('EPKG','PKG') AND FILE_name=' H' AND dh.HIS_CAT ='OC''ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@ L!'N I65536$v%!' #Cells(8, 20) = "=COUNTA(I1:I65536)" B = Cells(8, 20) LOTON = B + 11  N 13:13$B@H | B@z@  N   +> $>  +> $>  +> SUBLOT_ID L%  +> $>  +> $>  +>HIS_REGIST_DTTM L%  +>HIS_REGIST_DTTM1 L%  +> WAFER_COUNT L%  +> $>  +> LOTON = LOTON + B + 1 LB@@ Rows("2:50").Select$ Selection.Delete Shift:=xlUp%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV COA packing list.xls  B@ (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@p_workbook.Save رչ B@Bp_workbook.Close0Ļˢ´ (rA@)MsgBox "оCOA packing list resļ"oH嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|kA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'd8WScript.Network$p.Scripting.FileSystemObject$p.    B@'k 繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[ shipping check list.xlsx shipping check list.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ shipping check list.xlsx shipping check list.xlsxA@Hdp A@ Ʒļ shipping check list.xlsx shipping check list.xlsxA@Hk d 7繲ûжӦģļ,ǶӦģûзȷ·A@J| k   B@.kX жһǷƷļ shipping check list.xlsx$x]  ģļ shipping check list.xlsx %. %.J-----------------------------------------------1--------------------------' B@pselect sum(WAFER_COUNT) wafcount,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME,to_char(PLAN_SHIP_TIME,'yyyy-mm-dd') PLAN_SHIP_TIME1,CUSTOMER_PRODUCT,ORDER_NO from COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@Delivery Date :PLAN_SHIP_TIME1 L%+>PLAN_SHIP_TIME L% +>:Cells(9, 1) = "Quantity(Unit):" & idset.Fields("wafcount")ѭsublotidSELECT cocd.PRODUCT_ID ,DH.SUBLOT_ID ,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'yyyymmdd') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,12),'yyyymmdd') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh ' DINNER JOIN COCMEASSHIPLISTSTD cocd ON dh.SUBLOT_ID =COCD .SUBLOT_ID ' @INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =COCD.SUBLOT_ID ' .WHERE OPE_ID IN ('EPKG','PKG') AND FILE_name=' H' AND dh.HIS_CAT ='OC''ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@ L!'N I65536$v%!' #Cells(8, 20) = "=COUNTA(I1:I65536)" B = Cells(8, 20) LOTON = B + 11  N 13:13$B@H B@13:13$B@H | B@z  N SUBLOT_ID L%  +> LOTON = LOTON + B + 1 LB@ Rows("2:50").Select$ Selection.Delete Shift:=xlUp%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV shipping check list.xlsx v B@ (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@p_workbook.Save رչ B@Bp_workbook.ClosepĻˢ´ (rA@,MsgBox "оshipping check list resļ"?o?@嵥ļļرĻˢ´ 0 (r$>$'H H嵥ļA@J|P?kH?A@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dp<WScript.Network$p.Scripting.FileSystemObject$p.    B@'k;繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[  ı.xlsx  ı.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  ı.xlsx  ı.xlsxA@Hd9 A@ Ʒļ  ı.xlsx  ı.xlsxA@Hk9dx97繲ûжӦģļ,ǶӦģûзȷ·A@J|(9k 9   B@.k8жһǷƷļ  ı.xlsx$x] ģļ  ı.xlsx %. %.J-----------------------------------------------1--------------------------' B@pSELECT DISTINCT SUBSTR(ORDER_NO,1,INSTR(ORDER_NO,'-')-1) ORDER_NO,CUSTOMER_PRODUCT ,TO_CHAR(IMPORT_TIME,'yyyymmdd') IMPORT_TIME from COCMEASSHIPLISTSTD c WHERE FILE_NAME=' H''ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%' CUSTOMER_PRODUCT L%'D IMPORT_TIME L%'2 ѭsublotidSELECT cocd.PRODUCT_ID ,DH.SUBLOT_ID ,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'mmddyyyy') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,12),'yyyymmdd') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh ' DINNER JOIN COCMEASSHIPLISTSTD cocd ON dh.SUBLOT_ID =COCD .SUBLOT_ID ' @INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =COCD.SUBLOT_ID ' .WHERE OPE_ID IN ('EPKG','PKG') AND FILE_name=' H' AND dh.HIS_CAT ='OC''ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@ L!'N  N12X1  10 D  SUBLOT_ID L%  WAFER_COUNT L%PC HIS_REGIST_DTTM L% +> LB@h2%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV  + D_ 2 .TXT 4 B@ (Columns(8).Delete (K-----------------------------------------------2---------------------------k1 <B@ B@p_workbook.Save رչ B@Bp_workbook.Close0Ļˢ´ (rA@MsgBox "оıļ"o8000aAttribute VB_Name = "" Sub P() ,"1(COA0piDngtxtM sgBoxEnd l1m'26T'رĻˀ´hApplication.Scre enUpdngAFalse'FileTrim(Cells(1, 2)rIf "" Thenk("롁SɇU"$ExitrxIf#connectDBSet wp= CreateObj("ADODB.recordset..Curs orTypad@OpenSt{c 'ͣ޷ " LoOLadUseClientDim pdsrc A8s SEwpsql '!0Ʒ>ss aaARangoSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &G|& "' GROUP BY J?@sO]n9, csDBCCv7Whw.EOF <> TrueAжΪ0һGE'̡@trhFields("* 'õ˾"Acustomern" ("HX3rcpathM4 9ԭAu·0һ'ӵ繲a+HA<\\10.A52.142\co c\. ServerShar–112ģ@\r%administrator`Passw`o."fthw-829`05028hIFoldersts()(%DE@ 0 El%t Net k#  Wipt.)Aafso .System# -.MapDrive H"",)2, ®, ,, %)Kg /a%'%FoaK'`"S=Ax\ͻA?\|^!i ')K` \ ? & hD'ThisWorkbook.PiDebug.Pri &X`".xlsx1S*>汸+[=-" a0'uE'xml_W\[ s(ssA51Copy /, Z/=q9D#a$1If <> "" And̶" The,aqmeasP "SELECT TRUNC(1_AVG,@6sEVMLIN ,AXAXPCS4DATA5SUM 6Z8")ӂᄲ ITEMS4%P' & <>09iae1$ψψψψeq ql- p.0-r0B;"ave"p Or @.v^g/3w;tm1% a_a_A If_ V #Kx MAXax_ &_ _ = ] "4_ _ W iny INK _ _ _ S _ _ rwxAS_9}? %0i"Ŀ$ o/"TY/=9Elseo . c2 pIf Cells(subcout + lotrowitem - 2, 11) <> idset.Fields("WAFER_COUNT") Thenld20) = "NG"GRange("A" & ":T).SelectA5With ion.Interiorv.Pa tnhxlSolidColo@rIndexAutomaticG 255TintAndShade 0 5kpEnd ARAIfmaxs"" easIMEAS_MAX> _s?A?A#!XXY.Y.R,?[![ElseUin[E[IN[< m [ [[ 2[ [%>@[F[[- -- -_] //_)k/))-)( (''?&ߣe &H%%""1NexН;'L0OTONs+ BЮ1;SMove WRowi2:B"D te Shift:=xlUp / '-Gdataworkbook.S(ave'As ss`/filename0.csv", xlCS>Vof95)-eC.O.A For-2.xlsxWd Defaul(gx12_% C P'ļSet p_(Es.Open()ApplicppDisplayA lertsFa Aumns(x8).#'omTruP#o/Q-I=wp.'6o# _,G'-رչClos 1#Wene'Ļˀ´IScreenUpingP '3ScDB'MsgBox "Tо2Fp8Nt8res#ɔD Sub#' COA(#"'$PJ 'رĻˀ´ Application.ScreenUpd8ng = FalseFileName*Trim(Cells(@1, 2))BIf H"" Then4m MsgBox ("嵥ļ "I(Exit Sub:End If conn ectDBSet wp= CreateObj("ADODB.records et..Cur@sorTyphadOpenSt{c 'αͣ޷ "LoadUseClient!#ԕ#Dim pdsrc As Stringk wpsql 'BƷ3ssaaaRang= "SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &G|& "' GROUP BY J"C7O]n9, cs8DBCCvC Whw.EOF <> TrueAжǷΪһ GEA'ȡ3@trhFields("* 'õ`"AcustomernsB("7grcpathqGsԭā/·һ 'ӵx KCx\\10.52.142\coc\.aServerShar_"112ģ@\rD"adminis@tratorP0assw`o."fthw-82905028hI@Foldersts()(%DE@ 0 El%EANet k# Wipt.)Afso v.System# -.MapDrive "", (2,î, ,, %)Kg 1)'%FaK` "S=i z"\@ͻA?\|^}i ')K` \  & hD'ThisWorkbook.Pia Debug.P t @ COA pack@: lZ.xlsTqW'汾 25=]52! e'ƇUFxml_ ?7][w^9ss? q22CoLpy|, "?OJA??Q3>MultiLevel (0  !2 O " go$_cU:? "<ÀжӦ9`,ȷ%+18- E?W [LRemoveLJLzLTêUNothP7 һ1o.;sp N%%O-|`aQdaHg}%I A':= %s./ $'xq@\t Ex@celSheP= .s`@ '-1s'xxpi. Activ `1 "sel sum(WAFCOUNT) wafcoun@t,to_c( PLAN__T@IME,'ymmdd') &!,ORDO fromϮD ߮d@bٮ{(9iQˈ_ HI gu3a,>  2, 3)Pv*!4, 8"D% : ag# 9, 1Quantity(Unit):)'ѭsublotid> /d. ,DH.SU(BLO,D.11dh.HIS_REG _DTTMB1ymmdd') HIS_REGIST_DTTM,to_char(ADD_MONT@HS(DH. -1,12),'y1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_^ dh "  sql1 = & "INNER JOIN WMEASTLSTD cocd ONB.SUBLOTc= "]MESWTAG ms*ms.` ,_ -,WHERE qz^('E@PKG',') ANILE_name='" & FileN"' dhCAT ='OC'dSet ids= CreateObject("ADODB. recor").Curs@orTypeZadOpenStatic 'αͣ޷ЈLoconUseClientA#, cs@DBConn@6ion lot_id_cou=CCt.R=CK KB@)Range("I65536").End(xlU@p).row 'Cells(8,P 20)"UNTA(I1:)fY'AI = B + 11 KFor aA1 To =- 2 ARows("13:135xSelNO `*.Insert Shift:=xlDow -Next+A "G'c"A, 1)A92!12/Y 334aField&f 5 5 6z67k,;819WAF`ER_CO^m ="1cc5 ;'_+`kpMove#O+Q & aJ ^2:\50h^]Datre]Up )'---'dataworkboo@k.SaveG'AnAs ss@fa.csv", xlCSV E"COA packing li@st.xlsE`xcel8G0AppliZ.DisplayAl@Bs@." 'p__R$'رSQqClo Wend'Ļˢ´sScr`eenUp=  'ScDB'MsgBox "о resļ$i SuVb` qpP(CI'䵥qS?_ _ X $ imN(B\PIf= "" TheDh("q 0ɷ IExilQa #cA2$/OO ϓϓϓǓIOOO,Dim pdsrc AStrp3wp 'Ʒ7Hm aaQґpSELECT CUSTOM0aNAME ,PRpODUC ӰF1' GROUP BY D,2 3OQWhUEO0F <>r5pǷΪһW'ȡ,p|tr0"ł ''õ˾0Qcu@stomer^= (" 0Dpath-ԭ :·һ g'ӵxS$\\10.!52.142\\dc ServerS"c\12أprB admin`krator|PassPZd@"fthw-82905028x8 ICFolder?sts(B )D Ġ0kEoBNetb.O@BW[ipt.T fsonS;.QSys8tem.MapDrive%R,, bW, u, ζ Connect = 1  End Ifx'繲π·`srcpathzServerShare & "\ͻ@ģ\"$customern amB(wpstr/"m K \  MOQ TThisWorkb`ook.PBk жǷһ"E'ȡL tr@4CFie`lds("O'õ˾0c cu@stomerb=y("HXA8 ;p8athM4 9ԭ0au·һ'ӵ繲a+H<\\10.A52.142\coc\. ServerPShar_"112X@\rD" admin`ratorPassd."fthw-8290502&8hIfFolder?stsz(B )D "09kEl]BNe^t!cA@BW\i8pt.T fs.onS;.Q0Sypstem.MapDrivXe ",S|, u, 74Z u'#̱%)= `<\@ͻ\A>z/A4G'% \ < "d8"'This.P4a?o 9o 0De bug.PVt uıØ _)s(/_*>𱾵ثQp[t "Wa0'D xml_H=[[|8ssA5Copy?<s;MiLevel# ( < !2 ",/56W "7ûжӦa5[`,ȷ"/ ېp*@S ;HRemBbQ?cH*H!HT= 0Noth 'P2|һ}Я+?808)w1xUDg E:= %s./(9y  ExcelSheetpe).s؄p1W \xxdAvo 01 D INSUBS@TR(ORDQO ,1,IN '-')-1) T ,TO_CHAR(IMPORT_TIME,'ymmdd')  from COCMEASSHIPLISTSTD c WHERE FILE_NAME='" & FileName"'"  Set ids = CreateObject("ADODB@.recor")4<8.CursorType = adOpenStatic 'αͣ޷@PL$oc"on*UseClient)0ԧ)J sql1, csD BConnrionBORDER_ NO<pFiel0ds(" customer_p@roductC USTOM,PR`ODUCT"=}e.-G'ѭsublotpidY?&"SELECT cocd.#_ID ,DH.SUBLOTB@D.WAF,COUNT,to_char(dh.HIS_REG_DTTM,' ADD_MONTHS(L -1,12)ʻL1,$`PLAN_ARFIDA+FROM F3PRD.DOPE_ dh H?& "INNER JOINрF ONHD= bMES+TAG msms.0Z_[b{A 6('E@PKG',') ANDCn}P "$8CAT ='OCU) " g_id_coupRCa'n For Am1 To I  Cells(A, 1)t12X1 f W@10n@%F{")(PC tK cMoveNext)I#'---'dataworkbook.PSaveG'nAs ss f!e".csv", xlCSV EI2v+#1_ɺ@4.TXT urr@PlatformT#!Applip.DisplayAlerts!P"FalsColumns(8).DeletogTru _;_2& End If3wp >. V'p_'رSQqClo Wend'Ļˢ´tScr eenUpingP ',ScDB'MsgBox "о0ɉd SubOtdir?[e K!jWW1 "RUxME(`` (%` `l ` %  ` `D`>`` h%` %X %XXX X@X`XXXXXX X@X`XXXXXX X@X`XXXXXX X@X`XXXXXX X@X`XXXXXX X@X`XXXXX X X@ X` X X X X X X X@ X` X X X X X X X@ X` X X X X X X X@ X` X X  k$*\Rffff*Rs6c06f1b5"" ( H h  .  ( 8  Hhpx 00 08@H P8*P    0 "8 ` x (        *0 `   R8 P8  <   8 H X 2p    2   B hp x         &  8  PP        * (H  p    z B0  x 0 0      @ P h       "  ,  .@  0p            8H 0 0P 00 P,X0  $  8 X$h$p$x$$ $   $0$8$@ HPX` h      , PH J    &    0 R@  J     (@Xp      ( 8H&P  *x      "( 0 P p   .  0 @  Ppx 00 (8@H0*H x   ( "0 X p (        *( X x  R8 P0  <  0 @ P 2h    2   B`h p         &  0  PH     | BP! !0!0!" 0" @"  `"p" " " " " """ (# 28# 4p# 6# # $ $0$H$`$  x$$ X%0x%0%% %&&6(&<`&<&<& '('6@'<x'<'<'8(,@(6p(<(<(<()h)  p)$) ) &) )$*$*$*$*$ * (*0*8*$P* x* &* *$*$*$* ***+ +&(+ P+`+h+p+x+++++ + + ++  ,+ P, JP,    ,&,  ,  , R, P-   X- :x-  -   - - -. . . 0. @..H.  x. .A@ A@ o`XYangtze_River_storage_you嵥ļļرĻˢ´ (r$>$'H$>$'  If Purchaser = "" Then' MsgBox ("дPurchaserD") Exit Sub End If H嵥ļA@J|kA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ]]]0]HSELECT CUSTOMER_NAME ,PRODUCT_ID,SUBSTR(FILE_NAME,-3) BH,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H=' GROUP BY PRODUCT_IDCUSTOMER_NAME,FILE_NAME,PLAN_SHIP_TIME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'BʱPLAN_SHIP_TIME <%'X BH <%' ]` ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'kp繲·Ksrcpath = ServerShare & "\ͻģ\" & customername & "\" & wpstr & "\" \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@HdP A@ Ʒļ  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kPжһǷƷļ  H.xlsx$x]x ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pհɾ6:100$B@H | B@v    $>!xж   $>  $>$vB@H B@kxpѭsublotidqSELECT SUBLOT_ID ,WAFER_COUNT ,to_char(c1.PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD c1 ' WHERE FILE_NAME =' H' ORDER BY SUBLOT_ID 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N1:1$v %' LO = 0 +>A5:FS5$vB@H B@A5:A N $vB@H <B@ zB@  N$>  +> SUBLOT_ID L%  +> WAFER_COUNT L%  +>PLAN_SHIP_TIME L%  +>-  +>    $>'N   $>'L   $>'  $>' MSELECT MEAS_MIN,MEAS_MAX,MEAS_AVG FROM COCMEASDATASUBSUM c WHERE SUBLOT_ID =' SUBLOT_ID L%' AND FILE_NAME =' H' AND MEAS_ITEMS=' ''ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@ L!'N !  Max MEAS_MAX %   +>k  Min MEAS_MIN %   +>k  Max  MinMEAS_AVG %   +>k@Cells(lot + 4, 176) = "OK" L MEAS_MIN % L $8 Cells(lot + 4, 176) = "NG"   $>B@H ! 9 9999qhk` N  eMEAS_MAX % N $8 Cells(lot + 4, 176) = "NG"   $>B@H ! 999q k k d Cells(lot + 4, 176) = "NG"   $>B@H ! 9 9999q k k  LB@ %-------------------------------------J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------xlsxļ  H.xlsx %. ( (K-----------------------------------------------2---------------------------k`  YOK_TK00125K_ X _G6T_$>_1.csv' B@ 0 B@ <B@մͿ3:3$B@H | B@v2:2$B@H | B@v1:1$B@H | B@v رչ B@Bp_workbook.Close Ļˢ´ (rA@ H resļA@JScripting.FileSystemObject$p. %n .l  ֻ l !p r  l (p  ͷFileSystemObjectʵ.l .oYangtze_River_storage_you嵥ļļرĻˢ´ (r$>$'H$>$'  If Purchaser = "" Then' MsgBox ("дPurchaserD") Exit Sub End If H嵥ļA@J|kA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D  ]8]PSELECT CUSTOMER_NAME ,PRODUCT_ID,SUBSTR(FILE_NAME,-3) BH,to_char(PLAN_SHIP_TIME,'yyyy/mm/dd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H=' GROUP BY PRODUCT_IDCUSTOMER_NAME,FILE_NAME,PLAN_SHIP_TIME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'BʱPLAN_SHIP_TIME <%'X BH <%' ]p ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'kx繲·Ksrcpath = ServerShare & "\ͻģ\" & customername & "\" & wpstr & "\" \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@HdX A@ Ʒļ  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kXжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pѭsublotidsSELECT SUBLOT_ID ,WAFER_COUNT ,to_char(c1.PLAN_SHIP_TIME,'yyyy/mm/dd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD c1 ' WHERE FILE_NAME =' H' ORDER BY SUBLOT_ID 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N1:1$v %' LO = 0 +>A5:FS5$vB@H B@A5:A N $vB@H <B@ zB@'   N$>   +> SUBLOT_ID L%   +> WAFER_COUNT L%   +>PLAN_SHIP_TIME L%   +>OK   +>    $>'N   $>'L   $>'  $>' VSELECT MEAS_MIN,MEAS_MAX,MEAS_AVG,MEAS_PCS FROM COCMEASDATASUBSUM c WHERE SUBLOT_ID =' SUBLOT_ID L%' AND FILE_NAME =' H' AND MEAS_ITEMS=' ' AND MEAS_PCS <>0'ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@ L!'N !  Max MEAS_MAX %    +>MEAS_MIN %     +>MEAS_AVG %     +>MEAS_PCS %     +>k  Min MEAS_MAX %    +>MEAS_MIN %     +>MEAS_AVG %     +>MEAS_PCS %     +>k  Max  MinMEAS_MAX %    +>MEAS_MIN %     +>MEAS_AVG %     +>MEAS_PCS %     +>k L MEAS_MIN % L $8 NG   +>    $>B@H ! 9 9999qk N  eMEAS_MAX % N $8 NG   +>    $>B@H ! 999qkkdNG   +>    $>B@H ! 9 9999qpkhk`X   ' LB@0%-------------------------------------J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------xlsxļ  H.xlsx %. ( (K-----------------------------------------------2---------------------------k dataworkbook.Save3 p_workbook.SaveAs ss & filename & ".csv", xlCSV <B@ رչ B@Bp_workbook.CloseĻˢ´ (rA@ H-СresļA@JoxڷAttribute VB_Name = "" Sub kaisx()  L1 End t2B 'Yangtze_River_storage_you <嵥ļ 'Ļˢ@´- Application.Scre enUpdngAFalse'FileTrim(Cells(10, 2)w Purchaser+8 "4'If "" Then MsgBox ("д)D "4Exit IfU2W2/4ɇ443connectDB*Set wp= Crea teObj("ADODB.recordsetE .CursorTypadOpenSt@`c 'αͣ޷0p LoCr@`adUseC lientDim pdsrc As 2S@ng5wpsql '!Ʒss !teamaaARDfsoAMfC&SELECT CUSTOMER_NAME ,PRODUCT_ID,SUBSTR (FILE,-3) BH,to_r(PLAN_SHIP_TI ME,'ymm dd')  FROM COCMEAS LISTSTD WHERE ='" & & "' GROUP BY j,O=D`M2, cpsDBC#Qx"Wh!&cEOF <@> True6жǷһ8 'ȡL `,tz Fiel0ds("'e'õ˾Øc cu0mern" (" ʱl'l0= m.Ǧ7i cidakBH)O^pathLi_a]ԭā%A·һG'ӵ繲a+cl V\\10.A52.142`\coc\<  Ser@Sharb112րģradmin`istraP0assw $"fthw-829005028hIfZFoldersts()S@ 0 El%ˣNet k ˨Wipt.i8ingEleSys8tem# -.M$apDr@ "$",)2, , ,, %)Kg `}j1'#̱%')= D\@ͻ\Fj6A;WO1&AO;b`MO@ '* \ yO "d'Debug.Pri;lU &O0I0.xlsx)s(o"c+>pk1n=0.isWorkbook.P1CP_13'ƵEWxml_I= e[ ps q2j`Copy /$,[@ = 01b7), Z  Clearp7ts90Next$ѭsublotid\1"0LOTG_ID ,WAFER_COUNT ,to_char(c1.PLAN_SHIP_TIME,'ymmdd') h FROM C@OCMEASbLISTSTD c@1 " s@ql1 =  & "WHERE FILE_NAME ='" & FileName "' ORDER BY SUBLOTPSet ids= CreateObject("ADODB.recor9")8.CursorTypeLadOpenStatic 'αͣ޷@(L$oc"on*UseClient)pԧ)J, csDBCon"nrionBlot_id_cou7=.RC  QNAppli*.A(Range("1:1")M 'LO@ 0Cells@(2, 3)PurserG A5:FS5").Sel@1@5"py AJ8+ 4ActiveSheet.`PasteWorkbook.Sav For 31 To?T? ", 1@5A 4 Fields("ͫ5H\10Oy7"-(q!a(teams(Q! O? sh Tx "3,  + 26}xiaU & 1< measnna`4If <> "" ThepzA%A @"SELECT a_MIN,AXAVGıDATAJSUM c CLDPc8AND!ITEMS)'D>aQEE ?? % ⹂ql_@?ܺe KEH >\ 08MIppr(., "Max")J s 9,% UO+oEnd If3 in ' K cZ IN o7  =A oB߰Hi@. pC/ g +'176af"OK?P?YO#ASQP< Val(})-O C NGO /#%# With gInterio t!xlSolid1 uColorIndeqxlAuto~m__P<255Tint-Shad8 _!+ y-\lsep'4*T;*"NT*c*******/0#xlNon?.?o#O'_o# o#[E %O)OON  With Selection.Interior .Patn = xl Solid#^ColorIndexrAutomatic=61255)TintAndShade00.cEnd +If Nextidset.0Move  '-!-#1MZ2 K A  =@'xl@sxļSet p_workbook@sWs.Open(ss & FileName". ")FAppl ic@@DisplayAlerts@False # Tru bGAJFC#ulr@*<"YOK_TK00125K_"=PLAN_SHIP_TIMEB_G6TCells(5, 1)1.csv"data+.Savd '.As b,|CSVwp3U#'մͿ Rows("3:3"\).gDte Shift: =xlUp)2:2?21:1?(1 2'ر` (CloH'(HWen%'Ļˢ´ )UScreenUpq ing@Na @ 'cc aDBMsgBox "#C dresAl<Ʉ@cmfso CreateHObj("ipt .a Systemcemq.Get(G@rCA' ֻ f@.Attribute!s-Or vbRea dOnly3' ͷ-ʵ*Noth'C oSub (1('Yangtze_River_storage_you '嵥, G=j=Ȓb=@ Trim(z1, 2)Pur`chaseK4EA'.If "" Then L1#("дDbExit 2"JP FQ" WE%wuconn)U/wI+ADODB.rpecoru.CursorTyNpp%`eSt 'αͣ޷`:ILoeadUseClientw.3Dim pdPsrc VS0ngwpsqlÐ?AƷ7am teamm aaQR,D_3= "SELECT CUSTOMER_NAME ,PRODUCT_ID,SUBSTR(FILE,-3) BH,to_(r(h,'y/mm/ dd') jFROM COCMEASkLISTSTD WHERE &='}L' GROUP BY Z ,' kO  , cs8DBCc%WhCEOF <> 8ue@жǷΪһ'*'ȡ,pt:Fieldq /'õ˾ֳQcu0Gmern!f= /("Zʱ?<4]ʄcid- BHD`,y@,paŌ, +`Qһ' '繲<30+\\10.!52.142\coc\Dc rZPr>"c\12ģ  ""1&A ]A!X_MIN,A"XAVGPCSZZDATA %SUM c #Y&'$Y'c")' AND_\ŁITEMSs^ P` <>0 ^^^aO_enO_O_O_ k___ `bql?`S[;`z`_  > 0?(e*I0r(/, "Max "߰Rd/G G"sT@<`. PU.mGM8.1 ZOP.KINOkM2O J`:OOb3OOJp6{OGEB"in Cells(lot + 4meascount, teamsH26) = `set.Fields("MEAS_MAX")  1/IN-d2.dAVG-23.2PCS2End IfIf InStr(name, "Max"10 AinThenAM`μxiax <> "" _}J=O{A- < Val(= ) B= 0O >X XXwX! X X XXNoneo . o?$ $_t3&??6/LEx?6)?/K,JXU/J/J .IOO$o #L?O#" xNex e6lT+$ 3;$idQtMo ve* '-o1w_2  cP'xlsxļ'Set p_workbookWs.Open(ss & F0ileN".1Applic s{DisplayAlertsPFa`cO~MTruO_I%Adata.Sav 'qWRAs facsv", xlCSV5wp`.;'sQ'رչ`GClos( Wen'Ļˢ`´ScreenUp8ingS3'X3ScDBMsgBox ""i"- Сres'!Sub;)0JHH "Hd VBAProject@ v=r k J< 9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\System32\e2.tlb#OLE Automation0EOfficEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\@CommonMicrosoft Shared\OFFICE16\MSO.DLL#M 16.0 Ob Lib0raryKADODB>֠ADOB_A75196C-D9EB-4129-B803-931327F72D5C/8R/CW\ado\ms@28W,ActiveX Data-s X2.8M.@.RX>).R-@-By30F010-8D]6DP2EA4-r-RecordsetQ0@)MSFor ms>SFrms$3@1D452EE1-E0D8FA-8-02608C4DX0BB1 sFxM20LB%ͅ/;"1OLQG$B}#0"h#`@00 75E95B28-A4E0-4FF2-9AFD- 4DAE9 1F 1E0$Users\itadmi n\App@\Local\Tem`p\VBE\.xexdH]@.E .`M E`”j‰ThisWorkbookGTTi1W"3kbokT2` TH1› W",gc"" +[Ϻ оG NwmTj2jo `Zm f-!j AG¬Oeeb2o 4n Jk ^GWJģGBGWJ@!jg2 C_ Ww Aģ7!jWW77M/ O5m&d13 1' 1( 1' 1/ do Q+ !Conn @UtilG" CPnnU@c@iU"l2@2ܸ Q#jG1q mLo #2LP~^A"cocModeGEbSccMPdwS$2R{8{'_ s8(2ffPagfPagS92?e$LR1 Ingot!2GT0IgtV2 2 S!1  011P1?!l~Œ>`A)a= b8_6Y'3>3f3_BpuY- 4444p8Y? 5555-Y= [6666? m$洢ăd_lX[P>9kd?&sL ?Ɠ_ bolanal@?n ' 7Ctest~tPEAq~u?6c=R|k@e!NSyOs ?A N{ [ sq lj% sqۓ[[ _z _g[̨xmAYSy5uubxj!s[_3_lu[NPSqlcu@|_lot_idG]fSdsu|_Eo_i`cR\id2annq? n=#%/: jxmlG͑^NVubxml2XH 1`-(,D b! "+ģ GNSzƖb!jg9e'2'IIPُA?lot_ idGKKfNS?lot_idXM2G\G ‹G =̨$HGSy5uF&29z9 Ϸʳ`Tk_I׻a9ͨC9A̐(82HΙ)ϺG NwmZS|BUR75 5sq@ׁ!jWWYYOsqB 'C OCOK @SqlcommonutiVcm`{onuZibNb2\SV/R/0+-_Psub_%n0_tsbpqy 22 um o okA<`оYfkIle!w_#?o?Nfnk!`a*NSR-#I#2/"#6A9charp aharfp2 ~ \H%+E+" ߹݂G^]"-a2fo ,0+/e*-)\reatePolderG19ceteP@GjlPe027? h]Tk 0&(05k9mvfT9m7m45_8G!.]8Tf2hEB1%{|1$s%!k t]Dmx_S VMCy!SV|M?2K; }@̩оsyl SsyOsy3o о -NVE  ?J?s?ն56Ը3I?]? ;7PdQ39e db { GLOB%qCGLOB%Sa?tD?;A8@9_l[R8s'9s??Y;u ԩ ԌsX_ '_l[ eоA.ag|1B's&6ݸ;mg][;O;\.;elƷ sUlYT| Ts{{?{2Q?{; testpromsPpmopXS __[  6v gxml2TkYT TubxmlDlH1k(#$P, R!+ ģ10G!jWW1022 2gd85gE gGRvlf 2[4RO[.܋- [̩о1G l` S1d 2# 83X88_lX[|P888SڍӐ8 jģ 2G Sy5u!jg6292Os)OWKFijɁGǟ 2 "2"k" Ϸʳ"Gİe4 2 O!.O!6K! CfkIlZitQBOFKc SNqNc ec eo f~mL|k H3UmL3nL3mL3b+FqLOAosLq4o9 4 4 4 4 ;}/P+Jļc=eNb>RJdc=eo= o cza ൺоc R\i`c ec Keo 0K@ta9GA9(m2/ |-Wn/'о^]|eeo 4?0'k ɵ·D Nwmb5u"i#Dio-oVwafUtilsOwafUti0~s`5SO=2LauGLOBgGq8GLOB!heu72?eeo!|)v%)vvI`Ӻض֥R:N6Oh9_q%3,3,'3,R1ݻmg]y|wm`bpZQe{#zL#K'2$@:002͑^NV02!$O}3}?N?H3OݑI[QI51<0  Q#Om3WO>Oi71 3ZS05s 18 50b"F!'6s'ܬ37eW3?/??S1KfNSS3?۹?B;>OS11UŻ1Yͨ R(5YO _׼d u4Xu4O1 1@Y q1:m9m?wSs? ^ ;TŃu3(OHP1pIH,!jWW17IÓ 2 O!j9O@K!AA`Gv`fTe2Csǰ e wafercw if ir`iNO/#z+ Ӣ Ga`ޘQb2o j` %` ` `X` `px XP% 8 p ` ``` ` p%p 0@P`p 0@P`pHhP @8 @  `*Htv   @X  ` @H X0 @ ( @ @ @ @ X @  h @` @@ @( @ @ @ @ @ @ @ x p` @H h 0 @ 8  @ e  e   e  s p @Np X @ @ ( @   ` p X (  @     (h @P  8  @L  X @ ( @  @ @x @` @H @0 @ @ @ @ @ @ @ @p @X @@ @( @ @ @ @ (  @ h X X@ @( ( @ @  (8X8r8@  @h P`P x8 hx `p @  @ `( x @  Xx @` @ H 0 @  p X @ @  @ sp su(X @@ w( 0w@ X|h`| ` 8`(( @k$*\Rffff*S>6c06f1b5"  ( 4@dP h  Lx  (0008 P`hpx <FP**h & $  &0 "8 ` x (        ( *(0 D`  8n X P8@R  <   $8 H X 2p     2    BL hp x .    R   & F8 PP   ( 0 0 (8  4`  FX Np 8  Z  2  f  ,  *v 80  .vh D F B( Hp  0v    X B  (0  0P  0 (  4  Fx  N4 (00F   0p8$X  p >@ V Z 88 2p  N (00P0F   &2 6(.` &   $LLL^40 (00F ,(&8 X `p xxh0.8P X hpx 6 8 (000p`F&(v0PX,Z`>   8$<(.( ,0 @,LP(p(2x( $$  D$N@ (0(0XFp $N (x00Fp $0 NP  ( 0!08!Fh!p! $!N! (X"0x"0"F"p",$#N@# (#0$00$F`$px$($$N$ (`%0%0%F%p%($&N@& (&0&0('FX'pp'$'N' (H(0h(0(F(p($)N) ()0)0*F0*pH*$h*x* ((+0H+0x+F+p+D+ V+ 8, 8P, NL, (,0,0(-FX-,p-&- - v-NL- (.08.0h.F.,.&.8. . v/NL / (p/0/0/F/&08(0@0H0 "P0NL`0 (00001F01 ,H1&X1 x1 v1NL1 (1020@2Fp2&28222 (30303F4 ,04 84 (50(50X5F5 "5,5p525p56 6, 6p06P6X6 $`6&p6(666&6 6(6&7$t87 F`7p7x77777 87 87 87 87 8777 8(8&88$t`8 F8 8 8 8 8 88 88 88 88 88 899 9"(9&P9$tx9 F9 9 9 9 9 99 89 89 8: 8: 8 :0:8: @: H: X:h:Jp:@:B: .: ,: ; 8(; D`;    P; J;    H<&X< 4< < 6< R< = =  ~(= 8=  H= 0X= h= = = 6= =   =L=  = =嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]]]]]~SELECT CUSTOMER_NAME ,PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyy-mm-dd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PRODUCT_IDCUSTOMER_NAME,PLAN_SHIP_TIME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'BʱPLAN_SHIP_TIME <%'X ]  ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'kp繲· \ͻģ\ B\ @\'Qsrcpath = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@HdP A@ Ʒļ  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kPжһǷƷļ  H.xlsx$x]8 ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷ !ݳ嵥ļƷlotidselect ORDER_NO ,SUM(WAFER_COUNT) WAFER_COUNT,INVOICE_NO,PLAN_SHIP_TIME from COCMEASSHIPLISTSTD c INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID where FILE_NAME =' H0' GROUP BY ORDER_NO,INVOICE_NO ,PLAN_SHIP_TIME '  ~ B@Ϣ$tB@H   !A3:AU$vB@H B@A   $vB@H <B@ORDER_NO %   +> 2Cells(lots + 2, 3) = lotidSet.Fields("INVOICE_NO") WAFER_COUNT %   +>= Cells(lots + 2, 7) = lotidSet.Fields("SUBLOT_ID")@ Cells(lots + 2, 8) = lotidSet.Fields("PKG_CMP_DTTM")< Cells(lots + 2, 9) = lotidSet.Fields("PKG_DTTM")A Cells(lots + 2, 10) = lotidSet.Fields("PKG_CMP_DTTM")PLAN_SHIP_TIME <%   +> B@2:2$!VB@H | B@vADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷ !ݳ嵥ļƷlotidIselect ORDER_NO,c.SUBLOT_ID ,sum(WAFER_COUNT) WAFER_COUNT,INVOICE_NO,TO_CHAR(min(ms.PKG_CMP_DTTM),'YYYY-MM-DD') PKG_CMP_DTTM,TO_CHAR(ADD_MONTHS(min(ms.PKG_CMP_DTTM), 12)-1,'YYYY-MM-DD') PKG_DTTM,ms.SHIP_SUB_LOT_ID LOT_ID1 from COCMEASSHIPLISTSTD c INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID where FILE_NAME =' H>' GROUP BY c.SUBLOT_ID,ORDER_NO,INVOICE_NO,ms.SHIP_SUB_LOT_ID '  ~ B@DZ׼Խ$tB@HSELECT ms.SHIP_SUB_LOT_ID ,c.SUBLOT_ID FROM COCMEASSHIPLISTSTD c INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_name=' H+' GROUP BY ms.SHIP_SUB_LOT_ID ,c.SUBLOT_ID 'ADODB.recordset$p. t (r1αͣ޷ x (v4αԣ޷  ~ B@ !'N' 2:2$v %'   N sql11 = "SELECT CAR_ID FROM F3PRD.DOPE_HIS c WHERE SUBLOT_ID IN ('" & idset1.Fields("SUBLOT_ID1") & "','" & idset1.Fields("SUBLOT_ID") & "') AND OPE_ID in ('PKG','EPKG') GROUP BY CAR_ID "8 Set idset2 = CreateObject("ADODB.recordset")P idset2.CursorType = adOpenStatic 'αͣ޷S idset2.CursorLocation = adUseClient 'αԣ޷1 idset2.Open sql11, csDBConnection, waf_cont = idset.RecordCountASELECT SLOT_NO,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'   SUBLOT_ID %   +>/Cells(11 + S + S1, 2) = idset.Fields("SLOT_NO")WAF_ID L%   +> LB@OK    +>0      $>'  $>'L  $>'N GSELECT COLUMN_NUM,ITEM_FLAG FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS =' '' ADODB.recordset$p. t  (r6αͣ޷ x  (v9αԣ޷ ~  B@  ! ITEM_FLAG  %' d ' k    OXYCONCENHEAD/2;OXYCONCENTAIL/2 7(ORIENTATIONX*ORIENTATIONX+ORIENTATIONY*ORIENTATIONY) RRGHEAD;RRGTAIL RESISHEAD;RESISTAIL ORGHEAD;ORGTAIL  CHEAD;CTAIL   MTQCOXYCONCENHEAD;OXYCONCENTAIL MNAPRESP1;MNACPTRE1 OXYCONCENTAIL;OXYCONCENHEAD ]X] ;$''  ] yk $' ȡ㷽ʽ $' ȡѯsqlֵ$$'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷SELECT WAF_ID,  5 measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' SHIP_SUB_LOT_ID % 'order by SLOT_NO desc '  ~ B@ ]   $>']]  SHIP_SUB_LOT_ID %$'$ $'  B@r  ! WAF_ID %measdata %'  $X',ֵ  $$'k 0.00000$X    +>  'k8 B@ k 7(ORIENTATIONX*ORIENTATIONX+ORIENTATIONY*ORIENTATIONY)eSELECT ROUND(SQRT(ABS(MEAS_ITEM_227*MEAS_ITEM_227-MEAS_ITEM_228*MEAS_ITEM_228)),4) oox FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@   $>B@@ MNAPRESP1;MNACPTRE1eVselect (MEAS_ITEM_689+MEAS_ITEM_857)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@   $>B@@ RRGHEAD;RRGTAILeVselect (MEAS_ITEM_231+MEAS_ITEM_232)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@   $>B@@ RESISHEAD;RESISTAILeVselect (MEAS_ITEM_229+MEAS_ITEM_230)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@   $>B@@ OXYCONCENHEAD/2;OXYCONCENTAIL/2eZselect (MEAS_ITEM_233/2+MEAS_ITEM_234/2)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@   $>B@@ OXYCONCENTAIL;OXYCONCENHEADeXselect (MEAS_ITEM_233/2+MEAS_ITEM_234/2) DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@   $>B@@ OXYCONCENHEAD;OXYCONCENTAILeVselect (MEAS_ITEM_233+MEAS_ITEM_234)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@   $>B@@ ORGHEAD;ORGTAILeVselect (MEAS_ITEM_235+MEAS_ITEM_236)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@   $>B@@  CHEAD;CTAILeVselect (MEAS_ITEM_239+MEAS_ITEM_240)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@   $>B@@  eselect ROUND(MEAS_ITEM_ COLUMN_NUM  %3,4) DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@   $>B@@ MTQC e ; $' 2jingshu2 = Split(jingshu(1), "/", , vbTextCompare)2jingshu1 = Split(jingshu(0), "/", , vbTextCompare)2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ ! COLUMN_NUM %' dX$ / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@ ! COLUMN_NUM %' /$ ' d$ * $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷  ~ B@ COLUMN_NUM %' *$ ' kk 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ '' ADODB.recordset$p. t (r<αͣ޷ x (v?αԣ޷ ~ B@ ! COLUMN_NUM %' d$ / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷  ~ B@ COLUMN_NUM %' /$ ' k8 SELECT ROUND(MEAS_ITEM_ ,5)  4 data2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %' and MEAS_ITEM_  <>' ' ORDER BY SLOT_NO'ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@k SELECT ROUND(MEAS_ITEM_ ,5)  3 data1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='SHIP_SUB_LOT_ID %'and MEAS_ITEM_  <>' ' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ !    $>B@@ !e    $>B@@k d !    $>B@@k k e   $>    +>H k@   N     $> N $8 NG    +>    <%>B@H ! 9 9999q` r( r( r( r( r(kk L     $> L $8 NG    +>    <%>B@H ! 9 9999q8 r( r( r( r( r(kk    $>NG    +>    <%>B@H ! 9 9999q  r( r( r( r( r(k   ' B@8:10$B@HA10$vB@p | B@v( Sheets("Sheet1").Name = FileName%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H.xlsx %. (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@ B@ رչ B@Bp_workbook.ClosexĻˢ´ (rA@ H resļA@JovAttribute VB_Name = "" Sub 0() '嵥ļ2'رĻˢZ Application.ScreenHUpdngFalseNFilezTrim(Cells(1, 2)w If $"" Then< MsgBo@x ("h"I(E0xit :End/connectDBSet wp= CreateObj("ADODB.recordset..Curs orTypad@OpenSt{c 'ͣ޷ " LoadUseClient#ԕ#Dim pdsrc As Sngk wpsql v!Ʒss aaARang#oparter_n@Integervar`ianceAnumDoublOXY/SELECT CUSTOMER_NAME ,PRODUCT_ID,to_char(PLAN_SHIP_TIME,'y-mm-dd')  FROM COCMEAS LISTSTD WHERE FILE='" &G& "' GROUP BY J', ?C}f, csDBC@Ѓ=Wh.EOF <> TrueoжΪ0һs'̡Ptr KCFields("if'õ˾c customer>=("ʱ',/d.6i N[pathAD \!$ZԭA!·'ӵa+iM \\10.A52.142\coc\D8 SerpverSN112X|radministratorPas sw8"fthw-829050,28hICFolder stsz()%N@ 0 Elt Ntet kkW`ipt.i81fsoing`AleSystem# -.MapDrive H"",)2, ",r ,, %)Kg 1Ł'%FaK%S=A \@ͻA?\jh!cs ' ThisWorkbook.Pa`a w Y+ \  d 'Debug.Prvi0k &PB-S"`.xlsx?*s(od+ ?汾l=._" a0'FCxml_J=> b[卺9ssA5Copy /$,[/O>qC=Multi Level ( ?!2o !o {8  ":û0ӦA8^,ȷ$*?A0,CUR.R`emove K8,?}$KaSdvWNo|thS  'Aһ?-::sp$ABkCS=+{ab~b`KQ{%L'򿪅Q:= %s.) @GRExc elShe= .qs'-19g xxpg:Activ`a Q lotid??Cu%̟̟ '${ݺQ*|#ppsel ORDAO ,SUM(WAFCOUNT) ,INVOICPOܺ fromD c INNER JO@IN MESTAG ms ONP.fSUBLO`T =c.` @ where oe Pʲ xKAetr1 l, csDBConnectio0n hSheets("Ϣ")0.SelDFor lots = 1 ToidSet.RecordCountZRange("A3:AU" &< 3T&h.C8opyB>|+ J2EAve. Paste HCells(!, 1)caFieldORDER_PNO")' 3INVOICE 6WAF?COUNT@'  7 SUBLOT_ID8PKG_CMP_DTTM910 AwpApPLAN_SHIP_TIME0 F|MoveNex#HKRow2:2@Entire@ćD@te Shift:=xlUpGG*CreateObjDODB."rBset.CursorTypeadOpenStatic 'αͣ޷A"F! Loc`onb UseClienBtG ] 'ݳ嵥ļƷ0 Qql)`"s %p,c.fY ,sum()c) ,n,TO_CHAR(m@in(ms.Y),'Y-MM-`DD') iADD_MONTHSS 12)-10 ^, O_p 1 from COCMEASLISTSTD c INNER JOIN MESBWTAG ms ON.CU0STOM! =)# where FILAME ='AFileName"' GROUP BY (,-'"FNDYq̧%̷DZ׼Խ 0sql1ABSELECTa *CFROMS++y+WHERE`&+n)z+p')id@|`#.꿀@@@["aDr"WB_id_cڅ$0QAppliSLA($r\8}Av w ! !"D) CAR`v 'F3PRD.DOPE_HIvS0=# ;a=(9T j1"):2,_("VD) AND ID in ('L','Ea) ?D ' (20(Lh2 2(h(sh/0%/(/(/(  6(1cO(waf (o= r!A!5!S^NO,i!$_DATAINFO!0EbsE1.!!Gq\ xE! 9E ___ 7E0" B25c11 + s0S &ŒyrHBSD2!%}_` s)= .?E  Q "OK<(1Omeas3QcheckM= 8, "axiax.9g11sh10ITEMS>=COLUMN_NUM,_FLpهDaq;&`_Ru & "'l;Ea ??u q.CursorType = adOpenStatic 'αͣ޷ ITEMSSTDset".LoconUseClient-Y jql, csDBConne`ctionfAVRecordCouM> 0 8The#v;FLAGhvFie lds(" _F "):Else# *" "nd If If checkID <> "" AOXYCONCENHEAD/2;TAIL/2 (ORIENTATIONX** +YIY)" _O' #RRG!;RESISA ODCBCiAiHPV+Ir(P, "MTQC")@0BV"S S"A^A>"MNDAP@4P1;@CPTRE1 dG0 רDim strResult() As Stpringd2F Split #;^ flag&SFor jj To UBq|d( PiA aameasitem1cD25|AaExit _"Tsaa=2jj'ȡ㷽ʽ7#2's1 (&] ѯsqlֵw Columspfind1!22(0) Se@t numm@CreateObj("ADODB.rEA'A b @ *2"SELECT WAF_DID + )+ " 4data FROM COCMEASDA@NFOS c WHERE SUB_LOT  ='"@id&1.SHIP_ '`er by SaNO desc%bu /u};y@0so 24$ :wafid:}= Cells(12y0S1, 2':sp"O 2 Doub~lzz`=b1( , _[ s"1`c7[7, OJNucm.MoveFirst= /` 1[?= .3- o0%7/GP h2) > /oACDbl 1oT'aO[OgetՀ(0,Y2$u2(2?Eoo<"Psp$mat "0.0}" Od}b+ 1_' o _P1Nex1~_-+%= "$6Q4>$n ROUND(SQRT(ABS (l__227**-88)),4) oox/q#q2>q!q&V-q& "' ORDER BY6qp"か2et0@ϋϋvϋ|ϋ1 measset0.Open hql, csDBConnect`ion  Cells(12 + S1,v).CopyFromRecord0ElseIf checkID = "MNAP@RESP1; CPTRE1" The9sel (MEAS_ITEM_689+ 857)/2 DAT FRO`M COCAINFOS c2 WHERE SUB_LOT_ID='" & ib1.Fields("SHIP_ ")"' ORDER BY BSNO "S et[Crea teObj^("ADODB.r")!{CursorType%adStatic 'αͣ޷"+LoconUseClientԮARRGHEAD;TAIL231Ș232 fT.LLlWLL F L?BmISaLESISL qJlm"o22i230L:LݤL#LLLOXY@CONCENaM/2;!N/2?'As233/2M4/Mv?t?t?t?t?t?tbM?t?tU!?t?t?t+'?t?t'Y''ss?tz&W'Q(?'N3?'1'_A-___3_q_e '''G!''o!+|u__''F''9''1&{N'R '';NuASNNNNNNr &&&'n___|&&&&* &&U&&&9&OTpt?&B?&5&5:&6?&?&S  Set measset0 = CreateObject("ADODB.record") ~.Curso rTypeadOpenStatic 'αD"WLocKon[UseClientZ.ZQql, csDBConn~ionJCells(12 + S1,).CopyFromR "ElseIf checkIDg"CHEAD;CTAIL" TLhe=qlselR (MEAS_ITEM_239+40)/2 DAT FROM COCAINFOS c2 WHERE SUB_LOT_ID='" & iz1.Fields("SHIP_")"' ORDER BY SNO "SK FR ̭AFLABGkRpOUNDKAC! SSTD`CCOLUMN_NUMCC8,4)NNNT_NfCFCNe F NBI@r(d, "MTQC C> 0jingshu`WSplit ;", , vbTextC@ompare48'2(1) / # 1 0 ds6qls "SELECT *oDƼS c0a  $&sX~~~%|_1~~Y1s?~y`z}Cou@<,COUNT#%u)S/ q((1Et '''1('ɦ(ϦϦI etO(j YdOO?.( ))oO)O)o smu'"/!( U+u,y /-_@%Z*Z/_*bo-o-D/U*Uo- x---h6"#(VVVi&o.o. ******End If f :UBcd(.) cG+R6DOYOYP94 Set meassets1 = CreateObject("ADODB.record") .CursorTypeadOpenStatic 'αͣ޷'\Loc Pon`UseC lient_3_Vqls1, csDBConnion QIf.RCouJ<> 0p The C`OUNT2hFields("COLUMN_NUMElseO1jingshu2@Split((1), "/", , vbTextCompare{B*I-"SELECT * FROM COCMEASDITEMSSTD WHE(RE _ = '" & E$(0)@"'"0I6/@AqJOGN.sN smbJ HG:1@:9End If $K3(KROUN4D(&H_G& ",5) 1I data2 QATAINFOS c2Q SUB_LOT_IDQ i1F SHIP_g"T a <>' ' ORDER BY S NO[ZZ/b&et3ZM l YI Y3YKO3bqlVQbOQQ1?Q?Q/QQC`Q 4QX(ߡ_(d2(///|''2'ySpUBdu)> iD= 25 Cells(12 + S@).CopyFrom2 %A3gssf3e: ߎ e/ / ]/ W4checkID !p"? fFor s@1 To"D 1@"s",cBNo  CC U&@shangxs ~"h  /p6Val()/oH, Q`1) " NGoRActiveSheet.o%.SelPuWith C.Interior.PatpxlSolidrnColorIndex xlAutom1ُb255TintAndShadq0d _Y&QWindow.@Scroll` um1_ :4___Q/N_eZ1 %; End If If xiax <> "" ThenNvVCells(11 + CCS1, meass) < Val(.)GKHQP1) = "NG">ActiveS heet..S elect%With ion.InteriorCA.PatnXxlSolidColorIndexAutomatic 255TintAndShade 0 5kARmWindow.@Scroll3umP\34w321`j{?rq%q` qpqeBjqBqC.jm E?)Eqqq_pqӇqVqmNexL+S1A+ 2hidset1.MoveRows("@8:10")fRange("AB0ateGDpote Shift:=xlUp ^'Rs@r1`NamaFile-dataworkbook.Sav8 'As ss & fn& ".csv", xlxCSVgx(lsxW$No0rmalw w' 12t c P'PļSet8 p_`'%s.Open(u0".)ApplicDisplayAlertsFalsNzs(8).&omTruPo/Q,I:wp6# O(s=r+A`'رչơGJCloWenE'Ļˢ´AeenUpingr 'X3YcqDB#MsgBox" res!$$QSub      !"#$'()*+,-./0123456789:;<=>?@ABCDEFGHJKLMNOPQRSTUVWXYZ[\]^_`abcdefghklmnopqrstuvwxyz{|}~B C QxME0 P<<<<<6 <8<$h@R@T @V0@ZH@@€^xP @b @€f @j @n@(% pp`..`````````````` ` I  ``@ I  ` JJI IH I `p }}I IH I H`( I  ` I  ` I 8IH N@P@H0@`(@X8@\H @€`h @€d  @€hP @l@H0PpHX` `x LH0PpHX` `x h H0PpHX` `x  H0PpHX` `x H0PpHX` `x x H0PpHX` `x ( H0PpHX` `x H0PpHX` `x H0PpHX` `x 8H0PpHX` `x H0PpHX` `x H0PpHX` `x HH0PpHX` `x H0PpHX` `x H0PpHX` `x XH0PpHX` `x H0PpHX` `x H0PpHX` `x hH0PpHX` `x H0PpHX` `x H0PpHX` `x xH0PpHX` `x (H0PpHX` `x H0PpHX` `x H0PpHX` `x 8H0PpHX` `x H0PpHX` `x H0PpHX` `x HH0PpHX` `x H0PpHX` `x H0PpHX` `x XH0PpHX` `x H0PpHX` `x H0PpHX` `x hH0PpHX` `x  H0PpHX` `x H0PpHX` `x x!H0PpHX` `x ("H0PpHX` `x "H0PpHX` `x #H0PpHX` `x 8$H0PpHX` `x $H0PpHX` `x %H0PpHX` `x H&H0PpHX` `x &H0PpHX` `x 'H0PpHX` `x X(H0PpHX` `x )H0PpHX` `x )H0PpHX` `x h*H0PpHX` `x +H0PpHX` `x +H0PpHX` `x x,H0PpHX` `x (-H0PpHX` `x -H0PpHX` `x .H0PpHX` `x 8/H0PpHX` `x /H0PpHX` `x 0H0PpHX` `x H1H0PpHX` `x 1H0PpHX` `x 2H0PpHX` `x X3H0PpHX` `x 4H0PpHX` `x 4H0PpHX` `x h5H0PpHX` `x 6H0PpHX` `x 6H0PpHX` `x x7H0PpHX` `x (8H0PpHX` `x 8H0PpHX` `x 9H0PpHX` `x 8:H0PpHX` `x :H0PpHX` `x ;H0PpHX` `x H<H0PpHX` `x <H0PpHX` `x =H0PpHX` `x X>H0PpHX` `x ?X )?k$*\Rffff*Sf6c06f1fe @H`xFTH"        0  P  ` B     0 8H`  h   2" 08@X .p        @0px  4D:0DpD   8nH 000HPX`h x 8 V Z0         > $ (H  p x       $    , @ X p   0 0  (  8 P p x @ @   ( @0 @p  4   ( H$ P(D`(,0 48B48 40 @4P8Bh4,((04 8 \>&>  ?(?0?8? @@?B ? ?? ???@:@,H@x@@ @ @ @@@@@.hAAXBL(CxC@8DzxD$D E (E8E @E HE XE ,xE E0F 8F .F F G GGG  HHII IL(IxIB8JzJ$K (KHK PKhK >pK :K  K .L L pM xMMMMM:M, NPN`NhN 8OXOxOO LOOBPzP$`Q QQ Q .Q8Q  R 8R XRhR RRR R RR S  S8S.SSJTU$UU8VNVHWBXzPX$XX YY  Y(Y &0YB XY`Y\hY Y0Y0ZHZ `ZxZ"Z ZZ "ZB ZZbZ `[0[0[[ [\* \ P\X\ B `\ h\x\\\\\:\, ]P]`] h] x] ]]]]] `^l^^0_08_4h_&___ _ ,_ j`` ` XaxaJaha.Hbxbbbbb bbb >c :@c c  Pdpdxddd:d,d(e8eJ@ehe.e(fHfhfpf:xf ff f <f gg Xh  xhhhhh:h, iPi`i 2hi i i,ijjj0jp8j jjjjj k 0k @@kk l(ll (l,l0m0@m2pm"m mmmn n]Xcocĵ洢·ms]ǰĿ¼Ϊ]] ֵ]0Ʒ9'!S]ͻ]`ģ·]ģ]Ӧ·µģ]HӦ·µģ]x0,жģǷװҳҳжӦ߼] P?3ҳװҳҳҳӦĿʼsheet Index] ] (r$tB@HB1$v!x'H *!'P z!'R *B@)ļȡoverallûм HA@|ģȡҳ.~ P R H l T  Z X V N ^ ` b n ~B@ҳӦλֵ. X H B@װҳӦλֵ `. R f B@klotҳӦλֵ b. R H h B@k@+lotģҳзҳMData page 1(1)$t!'j l'P'B]     n !$t j   $tB@D5 !$t%vB@H B@C5$vB@H <B@C6$vB@]8 !$!' MData page  ( ) $t(ҳ  !  $t! $ CofC pagePage / !   $t,>  $t!$Ingot-list pageePage / !   $t,>d@Page / !   $t,>kÿһҳlot_no иֵ .8select lot_id from COCMEASSHIPLISTSTD where FILE_NAME =' H !' group by lot_id order by lot_id 'A@z . t (r!αͣ޷ x (v$αԣ޷  ~ B@]P]h]' %b   n MData page ( )$tB@H MAIN LOT NO  MData page ( )$t,>lot_id %  MData page ( )$t,>h  e '  '  n MData page  ( )$tB@H MAIN LOT NO  +>lot_id %  +>k B@  'X B@B ~B@BǰҳOverall λиֵA@z  n MData page 1( )$tB@H K  $>  $>;$'  H$'ADODB.recordset$p. t (r8αͣ޷ x (v;αԣ޷[   ~ B@޵ֵԼǷ񿪱]]O $v!xO $v!x$'N $v!xN $v!x$'޵ֵԼǷ񿪱]]Q $v!xQ $v!x$'P $v!xP $v!x$'-If IsNull(rs1.Fields("meas_way")) = True Then    B $v!xB $v!x' MinKTmn %  MData page 1( )$t,>   >=KTmn %   MData page 1( )$t%>!(k>KTmn %   MData page 1( )$t%>!(kHn@k8   <=KTmn %   MData page 1( )$t%>!(k<KTmn %   MData page 1( )$t%>!(k(n kMaxKTmx %  MData page 1( )$t,>   >=KTmx %   MData page 1( )$t%>!(k(>KTmx %   MData page 1( )$t%>!(k n k   <=KTmx %   MData page 1( )$t%>!(k <KTmx %   MData page 1( )$t%>!(k n k AverageKTag %  MData page 1( )$t,>   >=KTag %   MData page 1( )$t%>!(k >KTag %   MData page 1( )$t%>!(k n k   <=KTag %   MData page 1( )$t%>!(kp <KTag %   MData page 1( )$t%>!(k n k STDKTsted %  MData page 1( )$t,>S.DKTsted %  MData page 1( )$t,>PcsKTct %  MData page 1( )$t,>SndykElsek p overall  !  MData page (3)$tB@HNaB10:B80$v%!'    $>  $>;$'  H$'ADODB.recordset$p. t (r8αͣ޷ x (v;αԣ޷Debug.Print numsql2  ~ B@޵ֵԼǷ񿪱O $v!xO $v!x$'N $v!xN $v!x$'޵ֵԼǷ񿪱Q $v!xQ $v!x$'P $v!xP $v!x$' дagag % +>   >=KTag %  $>!(k>KTag %  $>!(knkx   <=KTag %  $>!(k<KTag %  $>!(knkkÿMAIN LOT NOӦֵtyty &sublot5ѭ Worksheets.Count - 4  !   n MData page ( )$tB@H MAIN LOT NOC4:D5$v%!' 㱾мlot_count ' $>  '(     $>'[  P  $>  $>;$'$$' ''õsql  ǿ  Notchλ Epi ȫ ȫsql  H $'dsql  H $'kADODB.recordset$p. t (r8αͣ޷ x (v;αԣ޷Debug.Print numsql2  ~ B@޵ֵԼǷ񿪱]]O $v!xO $v!x$'N $v!xN $v!x$'޵ֵԼǷ񿪱](]@Q $v!xQ $v!x$'P $v!xP $v!x$'    B $v!xB $v!x' MinKTmn %  +>   >=KTmn %   $>!(k>KTmn %   $>!(k8n0k(   <=KTmn %   $>!(k<KTmn %   $>!(khn`kXMaxKTmx %  +>   >=KTmx %   $>!(k>KTmx %   $>!(khn`kX   <=KTmx %   $>!(k<KTmx %   $>!(knkAverageKTag %  +>   >=KTag %   $>!(k>KTag %   $>!(knk   <=KTag %   $>!(k<KTag %   $>!(knkSTDKTsted %  +>S.DKTsted %  +>PcsKTct %  +>S ndykk '''''''ÿӦlot_id ֵ  ! MData page 1(3)$t!H MData page (3)$tB@HNaB10:B200$v%!' MAIN LOT NOC4:D5$v%!' ' $>  '     $>'[     $>  $>;$'.numsql2 = getsql_type_lotid(item_arr, item_id)ADODB.recordset$p. t (r8αͣ޷ x (v;αԣ޷Debug.Print numsql2  ~ B@޵ֵԼǷ񿪱O $v!xO $v!x$'N $v!xN $v!x$'޵ֵԼǷ񿪱Q $v!xQ $v!x$'P $v!xP $v!x$' дagag %  +>   >=KTag %   $>!(k(>KTag %   $>!(knk   <=KTag %   $>!(kX<KTag %   $>!(knkk ~B@B]X j'  t $tB@HK$B@H B@N$B@H B@O$B@H B@P$B@H B@Q$B@H B@A1$vB@H ! yk  ' ( X ׼ģ.xlsx X ׼ģ.xls N  *B@d N  *B@k{enter}A@ ( P\ RH B@{enter}A@ H.xlsA@ (roh üp '<SELECT COLUMN_NUM FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS = ' ''ADODB.Recordset$p. t (r"αͣ޷ x (v%αԣ޷  ~ B@ ! MEAS_ITEM_ COLUMN_NUM %'kidz컹ȫ /'    $'d 'k JSELECT ITEM_TYPE ||ITEM_FLAG FG FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS = ' ''ADODB.Recordset$p. t (r#αͣ޷ x (v&αԣ޷  ~ B@FG %'i J''õȫsql ,̳(ǿ,notchλ,epi) lot_id and sub_lot_id`   '$/$$'d $$$/  $'$$/ $' $'k(  ûм '  '' k ) SELECT LOT_ID ,mx,mn,ag,ct,sted FROM ( '  SELECT LOT_ID ,MAX(TO_NUMBER(item)) mx ,STDDEV(TO_NUMBER(item))st,avg(TO_NUMBER(item)) ag,min(TO_NUMBER(item)) mn,COUNT(item) ct,STDDEV(TO_NUMBER(item)) sted FROM ( '  SELECT LOT_ID ,to_number(  7) item ,WAF_ID FROM COCMEASDATAINFOS c WHERE lot_id =' Q' AND SUB_LOT_ID in(SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H')'  ) GROUP BY lot_id) ' 'k '''''''''''''''''''2   $ OXYCONCENTAIL$ RESISTAIL$RRGTAIL$ ORIENTATION$ ORIENTATIONX8 SELECT SUB_LOT_ID ,mx,mn,ag,ct,TRUNC(sted,5)sted FROM ('  SELECT dd.SUB_LOT_ID ,MAX(TO_NUMBER(item)) mx ,avg(TO_NUMBER(item)) ag,min(TO_NUMBER(item)) mn,COUNT(item) ct,STDDEV(TO_NUMBER(item)) sted FROM ( '    ' $/ $$'d $ $ $/  $' $ $/ $' $'k( +'''''''''''''''''''''''''''''''''''get type ''''ȥ/ $/ $ $/ $' $'dx $$'kX  SELECT SUB_LOT_ID ,to_number(   ) item ,' y' a ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in( SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME =' H') and lot_id =' ''      union all 'k  ) dd JOIN '$$' SP:COCMEASDITEMSSTDITEM_TYPE_PARENTSP,ȡ|  ( SELECT UPPER(substr(SP_DATA_STATE,INSTR(SP_DATA_STATE,';',-1,1)+1,length(SP_DATA_STATE))) STATE, sub_lot_id,waf_id FROM COCMEASDATAINFOS WHERE SUB_LOT_ID in( SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME =' H ' ) ) cc 'd  ( SELECT UPPER(substr(SP_DATA_STATE,0,INSTR(SP_DATA_STATE,';')-1)) STATE , sub_lot_id,waf_id FROM COCMEASDATAINFOS WHERE SUB_LOT_ID in( SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME =' H' ) 'k M ON dd.waf_id = cc.waf_id AND dd.A = cc.STATE GROUP BY dd.SUB_LOT_ID ) '  ORDER BY SUB_LOT_ID 'Debug.Print numsql2 'ki:''õsql, lot_id ΪȥյûŖֻе   '$/$$'d?$$$/  $'$$/ $' $'kp? ûм '  '' k(?p SELECT SUBLOT_ID ,MX,STED,AG,MN,CT FROM ( SELECT SUBLOT_ID ,LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H')cda '  LEFT JOIN ( SELECT * FROM ( '  SELECT USER_LOT_ID,MAX(TO_NUMBER(measitem)) mx ,TRUNC(STDDEV(TO_NUMBER(measitem)),5)sted,avg(TO_NUMBER(measitem)) ag,min(TO_NUMBER(measitem)) mn,COUNT(measitem) ct FROM ( '  SELECT USER_LOT_ID, TO_char(  ) measitem FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID =' ') ' > ) GROUP BY USER_LOT_ID ORDER BY USER_LOT_ID )us LEFT JOIN ( '  SELECT DISTINCT SUB_LOT_ID,USER_LOT_ID FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID =' ') ' 1 ) uss ON us.USER_LOT_ID=uss.USER_LOT_ID )bbb ON ' k SUBSTR(cda.SUBLOT_ID,0,7)||SUBSTR(cda.SUBLOT_ID,-3)=SUBSTR(bbb.SUB_LOT_ID,0,7)||SUBSTR(bbb.SUB_LOT_ID,-3) '  ORDER BY SUBLOT_ID ' '[  'k: '''''ʱ%'''''''''''''''''''ʵ   $ RESISTAIL$RRGTAIL$ORGTAIL$CTAIL'p SELECT SUBLOT_ID ,MX,STED,AG,MN,CT FROM ( SELECT SUBLOT_ID ,LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H')cda '  LEFT JOIN ( SELECT * FROM ( '  SELECT USER_LOT_ID,MAX(TO_NUMBER(measitem)) mx ,TRUNC(STDDEV(TO_NUMBER(measitem)),5)sted,avg(TO_NUMBER(measitem)) ag,min(TO_NUMBER(measitem)) mn,COUNT(measitem) ct FROM ( '''    $$'  SELECT USER_LOT_ID, TO_char(  ) measitem FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID =' ' ) '      union all 'k66''' > ) GROUP BY USER_LOT_ID ORDER BY USER_LOT_ID )us LEFT JOIN( '  SELECT DISTINCT SUB_LOT_ID,USER_LOT_ID FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID =' ' ) ' 4 ) uss ON us.USER_LOT_ID=uss.USER_LOT_ID )bbb ON ' l SUBSTR(cda.SUBLOT_ID,0,7)||SUBSTR(cda.SUBLOT_ID,-3)=SUBSTR(bbb.SUB_LOT_ID,0,7)||SUBSTR(bbb.SUB_LOT_ID,-3) '  ORDER BY SUBLOT_ID 'Debug.Print numsql2 '''''endk48'''''''''''''''''''OXYCONCENHEAD*1.96;OXYCONCENTAIL*1.96   $ OXYCONCENTAILp SELECT SUBLOT_ID ,MX,STED,AG,MN,CT FROM ( SELECT SUBLOT_ID ,LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H')cda '  LEFT JOIN ( SELECT * FROM ( '  SELECT USER_LOT_ID,MAX(TO_NUMBER(measitem)) mx ,TRUNC(STDDEV(TO_NUMBER(measitem)),5)sted,avg(TO_NUMBER(measitem)) ag,min(TO_NUMBER(measitem)) mn,COUNT(measitem) ct FROM ( '''    ' $* $$'d 2 $ $ $*  $' $ $* $' $'k1  SELECT USER_LOT_ID, TO_char(  ) measitem FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID =' ' ) '      union all 'k0x0 > ) GROUP BY USER_LOT_ID ORDER BY USER_LOT_ID )us LEFT JOIN( '  SELECT DISTINCT SUB_LOT_ID,USER_LOT_ID FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID=' ' ) ' 4 ) uss ON us.USER_LOT_ID=uss.USER_LOT_ID )bbb ON ' l SUBSTR(cda.SUBLOT_ID,0,7)||SUBSTR(cda.SUBLOT_ID,-3)=SUBSTR(bbb.SUB_LOT_ID,0,7)||SUBSTR(bbb.SUB_LOT_ID,-3) '  ORDER BY SUBLOT_ID 'Debug.Print numsql2 'kH. ''''''2ORIENTATIONX;ORIENTATIONY   $ ORIENTATIONX''''''ü     $$'dx- $$'kX-P- K'ss=TO_number ( " & aa1 & " ) TO_number (" & bb1 & " ) b " & filename & "  *  '  *  'oSELECT SUBLOT_ID ,MX,STED,AG,MN,CT FROM ( SELECT SUBLOT_ID ,LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H')cda'  LEFT JOIN ( SELECT * FROM ( '  SELECT USER_LOT_ID,MAX(TO_NUMBER(measitem)) mx ,TRUNC(STDDEV(TO_NUMBER(measitem)),5)sted,avg(TO_NUMBER(measitem)) ag,min(TO_NUMBER(measitem)) mn,COUNT(measitem) ct FROM ( ' ; SELECT qt1.USER_LOT_ID,sqrt(qt1.a+qt2.b) measitem from ( '  SELECT USER_LOT_ID, TO_char(  x) a FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID =' ' ) '  ) qt1 LEFT JOIN ( '  SELECT USER_LOT_ID, TO_char( y ) b FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID =' ' ) ' * ) qt2 ON qt1.USER_LOT_ID=qt2.USER_LOT_ID ' ? ) GROUP BY USER_LOT_ID ORDER BY USER_LOT_ID )us LEFT JOIN( '  SELECT DISTINCT SUB_LOT_ID,USER_LOT_ID FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID =' ' ) ' 3 ) uss ON us.USER_LOT_ID=uss.USER_LOT_ID )bbb ON ' k SUBSTR(cda.SUBLOT_ID,0,7)||SUBSTR(cda.SUBLOT_ID,-3)=SUBSTR(bbb.SUB_LOT_ID,0,7)||SUBSTR(bbb.SUB_LOT_ID,-3) '  ORDER BY SUBLOT_ID ' ' Debug.Print sqss 'k&i&ITEM_TYPE,Wafersight,LNSW 'ESELECT UPPER(ITEM_TYPE) FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS = ' ''ADODB.Recordset$p. t (r"αͣ޷ x (v%αԣ޷  ~ B@Debug.Print sql2 ! UPPER(ITEM_TYPE) %'kH%i@%ITEM_TYPE_PARENTSPWSH 'LSELECT UPPER(ITEM_TYPE_PARENT) FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS = ' ''ADODB.Recordset$p. t (r"αͣ޷ x (v%αԣ޷  ~ B@Debug.Print sql2 ! UPPER(ITEM_TYPE_PARENT) %'k#i#   '$/$$'d #$$$/  $'$$/ $' $'k" ûм '  '' kP" SELECT FILE_NAME,MAX(TO_NUMBER(item)) mx ,STDDEV(TO_NUMBER(item))st,avg(TO_NUMBER(item)) ag,min(TO_NUMBER(item)) mn,COUNT(item) ct,STDDEV(TO_NUMBER(item)) sted FROM ( '  SELECT * FROM ('  SELECT to_number(  6) item ,WAF_ID,sub_lot_id FROM COCMEASDATAINFOS c '  ) meas ' " LEFT JOIN COCMEASSHIPLISTSTD c2 ' ! ON meas.sub_lot_id=c2.SUBLOT_ID '  WHERE c2.FILE_NAME =' H' '  )group BY FILE_NAME ' 'k( %'''''''''''''''''''ʵ   $ RESISTAIL$RRGTAIL$ORGTAIL'! SELECT MAX(TO_NUMBER(measitem)) "= mx ,STDDEV(TO_NUMBER(measitem))sted,avg(TO_NUMBER(measitem)) " ag,min(TO_NUMBER(measitem)) " mn,COUNT(measitem) ct FROM ( '    $$'  SELECT cd.SUBLOT_ID, TO_char(   ) measitem' Y FROM COCMEASDATAINFOS cs LEFT JOIN COCMEASSHIPLISTSTD cd ON cd.SUBLOT_ID =cs.SUB_LOT_ID'  WHERE FILE_NAME=' H' '      union all 'k@8  ) '[  'k8'''''''''''''''''''OXYCONCENHEAD*1.96;OXYCONCENTAIL*1.96   $ OXYCONCENTAIL+ SELECT SUBLOT_ID,MAX(TO_NUMBER(measitem)) "= mx ,STDDEV(TO_NUMBER(measitem))sted,avg(TO_NUMBER(measitem)) " ag,min(TO_NUMBER(measitem)) " mn,COUNT(measitem) ct FROM ( '    ' $* $$'dH $ $ $*  $' $ $* $' $'k  SELECT cd.SUBLOT_ID, TO_char(   ) measitem' Y FROM COCMEASDATAINFOS cs LEFT JOIN COCMEASSHIPLISTSTD cd ON cd.SUBLOT_ID =cs.SUB_LOT_ID'  WHERE FILE_NAME=' H' '      union all 'k + ) GROUP BY SUBLOT_ID ORDER BY SUBLOT_ID '[  'k(6'''''''''''''''''''2ϼȥݵĶ   $ ORIENTATIONX$ RESISTAIL$ORGTAIL$RRGTAIL$ OXYCONCENTAIL SELECT FILE_NAME ,MAX(TO_NUMBER(item)) mx ,avg(TO_NUMBER(item)) ag,min(TO_NUMBER(item)) mn,COUNT(item) ct,STDDEV(TO_NUMBER(item)) sted FROM ('  SELECT * FROM ( '    ' $/ $$'d  $ $ $/  $' $ $/ $' $'k +'''''''''''''''''''''''''''''''''''get type ''''ȥ/ $/ $ $/ $' $'d $$'k  SELECT to_number(   ) item ,' &' a ,WAF_ID FROM COCMEASDATAINFOS c '      union all 'k  ) dd JOIN '$$' SP:COCMEASDITEMSSTDITEM_TYPE_PARENTSP,ȡ|  ( SELECT UPPER(substr(SP_DATA_STATE,INSTR(SP_DATA_STATE,';',-1,1)+1,length(SP_DATA_STATE))) STATE, sub_lot_id,waf_id FROM COCMEASDATAINFOS ) cc 'd z ( SELECT UPPER(substr(SP_DATA_STATE,0,INSTR(SP_DATA_STATE,';')-1)) STATE , sub_lot_id,waf_id FROM COCMEASDATAINFOS ) cc 'kH  ON dd.waf_id = cc.waf_id '  AND dd.A = cc.STATE )meas ' ! LEFT JOIN COCMEASSHIPLISTSTD c2 ' " ON meas.sub_lot_id=c2.SUBLOT_ID '  WHERE c2.FILE_NAME =' H' '  group BY FILE_NAME 'Debug.Print numsql2 'kikAttribute VB_Name = "ģ1" Dim savePat@h As Sng 'cocĵ洢Vcurrent \'¼ TFileu]uȀֵ&product 'Ʒ"customeBr ͻ"modqģm?TH# 'Ӧ$µoL:xNCofCFlag, Ingot12 Boolean 'ж4ǷҳɁDЂJ߼IofcIndex 2mdataAIntegV`' ҳʼsheet/@lotCxounoDM ege Sub Main_Ѐ޸ͨÁ9() AcApplication.ScreenU p,i= FaXlse IS%s(2).Sele ctƟ= Range("B1").Valuɺ= ThisWorkbook. HActive  JS݃C 'ļȡoverallāXûм isCalO@ All CNȡc ҳS5@|MNew AW1c.$ ,K ,&, E=, dv#s, Ia",, `?TGCURpλFpaM= fPaCr+3a Ifw`Fen Tot-"|v1b.-b1BsCEnd Ifc'0#r #Th2-2 "2G2y@c\QaTҳз%Uh= y"MDB 91(1) wiayu( QÏ/ 6$r@8v0iBEFor j1 To yuiJg(+ i - 1).Copy After:=a"s/$ .D5IAA >CSL Nst4Q6Cle@arConts[W4Q^K= G(13).t!" "&+ 1p"(5i) Nexda'ҳQ! 31!6Mid( i + g , 1,h 9) $"aN,"xB[Cellk, 5R1C& /u E q1;-listO P O B 11_ _ -] C8hQ ÿ ҳĠA_no FkbrsbADODB.Re@cordse!s4qls51o_id from COCMEASSHIPLISTSTD where FILE_NAME ='" e"' group byD*connDBSd y rDurs orTypad@OpenStc 'ͣ޷33LopadUseCli>GpOFq `sDBpB @I;Bk!Qtmnpp1Ak tDo While @ EOF() <> Tr@1k <= 57Z>m11FNF[fl<.0P5, k"3"1MAIN LOT NO8LO qo"r c6hFields("1id"xh4aDEk > =pt(k w1k | 6S @gg ^r% 1?>9|LJ1>MPK1-t-LoopClo c5.  'ǰҳOverall и connectDB @L\For j = 1 To mdataMode0Page LTSheets("MD J pD 1(" &?& ")").Selc\5 vkv6v75$If Cells(k, 11) <> "" Then/it@em_arr+S plit(, 0";")Jnumsql2gtql_type_(,, Fil eName$Set rs$Cre@ateObj("ADODB.recordsetGrs.CursorTC%adOpenStatic 'αͣ޷F9LoconUseClientDebug.PriS"^$6  , csDB2CCioM{'޵ֵԼʀǷ񿪱Փ Dim minValue As DoublĂ axChar 4St@7g= IIf(Range("OAk).C, , 0mNj_M'&!d!&@bin& C Qj& ^P j&>'IsNull(rs1.Field`meas_way"))kTrL +i@k + 27sa `KB!i*OCtmpvc=%Uj a Caxse !B"Min"ai, 3A2@f5~ne `+U y0 AndW\B{, i% a _c>=_ L >=9+_.Interior.Col= 6553O EIf_?4/q;.2/1C1?<=" (TIf rs.Fields("mx") >= maxValue Th en3XaSheetVMData page 1(" & j")").Cells(i, 3).Interior.Color = 65535>End IfH`?Cx``C"aAmSeplect`mzminC<> 0 A@Char ""4. ‚woAIC5 3"<uV+ >?)+++u+3wk bAver?7))Ψag|"))% BaxfJE o/.A////'?4+Y#/1oF "" T8hen G_arr"SplitB(, ";\n@umsql2gql_type _R(, Fi@leNameS etCrea teObj`R("ADODB.recordsegCursorT` adOpenStatic 'αͣ޷$% HLoc on UseClie@Bf p 0 'Debug.Pr^i * d, csDBCon2n &io=S '޵ֵԼʀǷ񿪱minValue11!IIf(YO_P)."PD, , 04Cm@axCharm N}  YY'! axc= h Qx ina ,P= 9 д9!ag agU+ ;fC0 A@D=3U |c>=_?QX`Ba >= X?=.Interi$or0iloA\65535O/%r?d__) >O????o1?8\78TG?*9""~ ""P!s + 1 Send For xx C To6 -!item_idMxx)*Debug.Print.  60XF:'A )num2A@_tyHpe_idFA, F@Name,2 BFidTElseD'3@#e:%nd If!%Set rs CreateObject("ADODB.recordsetI!`rs.Curso rT(` adOpe 7atic 'αͣ޷ (Loc oadUseCliepf  ~' z0 a , csDBConn&iou  '޵ֵԼǷDim mminValue As DoublTPaxChara`jing @= IIf(O" & k). ,%j, 0dmm$ N jP''>!'in' 2ax JQXjy'$ P o1_Q11mi@=kw2qm7ba%B i %O]étmpvR/&G]Sel: Case _]""MinCyi,) CFields("mn,_`3%70 A]48i__>=igG >= ?.Interior.С= 65535E_uOѓ1-/Q8wW8Y_88_ "<8@lJ <9u9O#O#O#o6 < &os /End If -nSele ct'v)kCase@ "Max"'_Cells(i, xx) = rs.Fields( "mx")#If maxValue <> 0 ACChar"" Then'(} k%+ ">>=( 6 E >=:/5 _.Interior.Colorb65535;i#vX?XD >WC5?X,a pinpinpJq Eq q?>ax>Sow{*Aow O*_wO#O'𫹞_wO1?Q8%Tǯ_wO8_w"_w9 _wO#O# 3O7 <xo q8cSTDOŴCells(i, xx) = rs.Fields("sted") Case "S.D"#^1IPcs'yxct!*xElsewGoTo nextItem1End SelectBExit Fofr'IfWN'8SO C: ;A kO KC'ÿӦlot_id ֵ G ge1 k(Worksheets.Count - 4) / 3!S("MData pa@" && "(3)").p P 1 rowRange("B10:B200Findp("Na A-column C4:D5 MAIN LOT NOC C= J Whilde f5,@) <> "n + ^Wend -xx#/Z-hi@g5=6Debug.Pri5xx Na_+ +0 Ifd , 11 ThenIC'arrSplit($H, ";'numsql2gLql_type_ id(% , "id;Set` CreateObj("ADODB.record seCursorT` adOpenStatic 'αͣ޷ʎ$$& Loc oVadUseClie@6f  'i?$* d, csD BConn &io >S '޵ֵԼǷminValue11,IIf(OaHL)."Cm, , 04CmaxCharm N} ,,_ 3= 8Q F6? 1[>P 'дeagoQAagqJ` 0 Ap{rr K_j?✴à>=XpBUa >= C"X?N.InterHior}lo\65535_?/?toǏo) >_OOOO1-o9\Z9in9J9_ #<9@9<9u9###/o7 ufs.Open Fil":=curr` a & "\"_d#{cDtenf -"cScreenUpqzing3!ASub 'üπ Func= getItemip(i@) `J= sql2a>SELECT COLUMN_NU@M FROMCMEASDITEMSSTD WHERE a_b`'"! 'dS`rsA Creat0eObj`bDODB.Recor`dset"@.CursorTypPad0St`Wc 'αͣ޷¨#G LoC^`adUs0eCli7Թ?#, ? gy> 0b0"F'_&Fieldg/?"# ~;>컹ȫ?_check@$InStrB, "/ &HLeft$- 1=' Q?A'!%_TY PE ||FLpAG F ((S((2(A(A 02(e(o$38= (0-(:-2H( >s"%FG$C'`'õ# ,!%(ǿ,notch,epi) lot_id apXsub_'_t<id(ByValbG_arr, 'Sid# '𵥸uMrH)4UBsd(1) h- L-=8Mdivp"K 1(0)32@)>meas_c @ ukq 0Righc76 Len = PBmeA6=>9 hPiAH'û3 ju`B(p/+ >03=Abo= ?$#O sRnum P2O wLOT_ID ,mx,mn,ag,ct,stedx( *U e@MAX(TO}BER"#)) mxD ,}DEVs`t,avg/ m in0 COUN:T ) I ? ? ? ,to_ ber(tc17& d>0)G ,WAFATAINFOS cL =dId AND SUB_D@4)SHIPLISTFILE_pNAMEO)w) GROUP BYX)!*2@H Y2"*+'2X\ϔ# ` Xitem_arr) - LBound(> 0 And D(0) <> "OXYCONCENTAIL"DRESIS@Q<@If<' U typLKȥ/(j=K2=! #' G' _@ @aG_b aD=(!G U 4 b#Qto_@be@r(" & e& p@)b ,'!f!' a ,WAF COCMEASDANFOS c WHEREɣ dSHIPL# ` c2$FILE_NAME =FileName"') a! lot_id$` L@LwI)-%,= %@ union allB3Et7Next ) JOIN 1 TEM_TYPE_PAR@YILǗ1)Op 1 "SPt3'X"S SP,ȡ|E(E&UPPrsubspcSP_)_TE,INSTR(;';',-1,1)+1,@length )+pv 0_',w|af'R0u F0/0n 8/0AS/0@4/0(0 )cc s qH '(u`s0)-@#  ,/>wB//D // ZB!O 8C*3ON = cc. AN:DA6`C GROUP BYoe < VEEORDERA 'Debug.Print_]`ߢnq-T V FunctN ~õ ,q c2 ȥյû e check(ByValy, 5iduK'ֻе϶D_U>=0ar /& 00L߫߫ӟZr/ <1 0N-] ߫P/a?ӻmԻP_= '@! !ju nB(p/B+0#QAq"?$rO bCIYe,MX,STED,AG,MN,j(,lV)cda " numsql2 = $& " LEFT JOIN ( SELECT * FROM +| USER_LOT_ID,MAX(TO_NUMBER(measitem)) mx ,TRUNC(STDDEV%,5)sted,avgEag,minmn,COUNT: ct;ml kchar(" & l_columndiv"rw:COCMEASDATAINFOS c WHERE c., hDISTIN &% ='%loti"d"') +s) GROUP BYs ORDERqM)usJ;S|UB=P P) uss ON x=@ |0)bbb MUBSTR(cda.@L0,7)||SN-3)= a,l?GJ&D Q6s#Debug.Pr0int get_type_@check_C_=OEnd If'('ʱ#ʵ`` UBound(A_arr) - LM= 1 A@(0)`"RESAIL" Odr RG`ROWCcThenc\!= " S]"eg=,MX,STED,AG,MN~,d(C {SHIPL#FILE_NAMEFileName_KqX`V D)????)O7 `*-%Po$ii%0 {// ;eunion all" ?RNext O_oayID zgVdQAUI/D,/ooo! Nm!P@|//#D,UB ,0 ' ? 2  pMI)qI_/#71-'uendv1LOXYCONCENHEAD*1.96;&!v" >׿"@ 7%o{ o{N(4o{Po{E o{o{ 1/o{o{/!o{ee)n1o{2/Fo{1tem_arr) - LBound(i div = ""dIf InStrz(iii), "*")d0 Thenlmeas_column%getI|C I);ElseARight Len T+ 1:mesTLef{/$-$}2xnd Ify nu`msql2L& " SELECT USER_LOT_ID, TO_char(" & & N@ ) FROM COCMEASDATAINFOS c WHE RE c.H in(DISTI:N  ' ='%lotid'"' )@< <> ULSNunion all ETa0Next *S) GROUP BYf ORDERM)us LEFT JOIN( $SMcSUBEm?yK 0 T|her g'-Fields(" aOF _PARENTSPWSPAn“ 6 E5FE2G@Yall(ByValz_arr, FileNamev 'ϞT\ebUB`dK) - LM=d adiv]"@ Ir& (0), "/")io meas_colum=$sCi ElseRk8Len !5+ "1mesLeft 5 -8  HL" 'û&UAjubnB~(/ :_8E801A B= uH 1num! " dFILE_NAME,MAX(TO_NUMB )) mx ,rDEVst,avg/ag,minmn,COUNT) ctADsted 2{( 2 & F *#5 to_`ber(рa5& A1)C,WAF_@ID,sub_ ATAINFOS   =OC =a LEFT JOIN5SHIPLIST c2 "ON .=c2.SUBLOT4' =2Xr__X)group BY W$?a0S7%4' `''ʵˀ;?cc= 1 A;I!0_0j_a:RESAIL" OrlRG%AO ,D$w4;Aa #:Q1result_unq"B`D'A= C~DEf F_DVF2oii@`Yo ?>HTw|wiii)a7IuHcdg6, YchaII_FWFoJJ DDd A9 =cs _A__W;?A*'?A  <>ϙبWϰ-p vpNext")0 I٤?Lu` ?K''OXYCONCENHEAD*1.96;&QE"qs If UBound(item_arr) - L H= 1 And (0) = "OXYCONCENTAIL" Then  2numsql2= SELECT SUBLOT_ID,MAX(TO_NUMBER(measq))" & result_unit " mx ,STDDEV2sted,avg&Oag,min&mn,COUNTR ct FROM ( "|For iii00 ToÏ!div7InSt r(5), "|*"݀Nkg\_@columnghetICK)!#Else(Right"Len #W-+ 1Pmebs@*LefW-yTas>@Qc";%=F21onP allQE;Next= ) GROUP BYG ORDERk)Debug.PrintLt_type_AFk '2ϼȥݵĶ @3) > 0!9"ORITIONX"2RESg@QRGCpRxAF9" D&W Lbkn O$ؠEsOE* h\ 9h;?h1"Xh/h5p9YP= p.hmii)oY h# hhhsQ h bh , hh.mDxP J w>p C r/ _Q(P?/Q3._aCp%߀ RQ #_24o#?(>r?)p_ `@@ `N`DX`F@H `J`L`N`P`@R @THh `Vp`@XH [@%`\8 $`%`p @  x@  0X` ` (px x @0H @@0 @2 @4 @6 <J`p>z@p @ @8 @ @ @Hh @ @^ @ @ @0 @H @p  @ @ xn @  n @ x @b` @( H @X 0 @@  @ @ @ @ @ @ @ @ h @0 P @8 @H @ @d @ @ @  H( @f ` @h x H ( ` @p p @ X @ @ @jX( @l` @  ( @n @ x  @ @  @rX *~D:6 @ @tx 8 @ ` @H H    @0 0k$*\Rffff*Q36c06f1b5*\R0*#1d*\R4*#5d*\R0*#2$*\Rffff*TD6c07b697*\R1*#2a3*\R0*#1c*\R0*#1c*\R0*#14*\R0*#17*\R0*#f*\R1*#141*\R1*#409# " (H`x 0H`x      8Ph  8 P`p  08  @X` Jhb P    (08P`h  p    6R 08 X 6` x "R  " "j  @H  P$h X  6X   p   p@  6`X   `:`  @  "jH &p @ . 6z 2h 8h0 0hh 4z 2z     ( 8 P X ` h p x   T Hl  ( (8  P "`  x X  $  T     "2 @0 px(dF 6T  " 8 *TH x "," X  0 @8PX"`8Jx  L 8FH X`h p6 & @.6z2h 8hX0h4z2z08 HP   X  `p xH4Z, * 60 h x  8Z     F<  0  @PLh 8, 2     L8 PX` h  pLx ʾַ]X ƻڬ+(ļ+(ͻ+(ͻƷ+(Ŭ+(ӹƷ+(MAIN LOT+(Ŭ+( +(ע +( +( +( +( ۶Ŭ+(ƱŬ+( Ϊλ]+* ֶж]time+,str+,str+,str+,str+,str+,str+,str+,num +,str +, +,num +,num +,str+,str+,ж]+.@+.@+.@+.@+.+.d+. +.@+.d+.ƻڵԪλ'0'2ļԪλ'4'6 2 0 <%>'8 6 4 <%>$'H]Xp': <!B!!'<'> '@]]]]0]H]`]x]]]'\.X'RСʾʼ'^Сʾ H$$(ΪA@J|k H$. $(ȴ$.޸A@Jk 8$$,time 8$`$( ڸʽA@Jk0k(k   : <Ϊϼʱֹͣѭ  <%>!xϼykΪʱ  <%>!x$  <%>!x'bdH $  <%>!x$  <%>!x' 'Rk R  <%>!x'D R  <%>!x'F H$  <%>!x$  <%>!x'Hk@ L$  <%>!x$  <%>!x$Ʊ  <%>!x'Lk  <%>!xСSQLַеĿͻȫ滻 d Z! d$Z'f f'CUSTOMER_NAME'' '$'f f 'INVOICE_NO'' L'$'f f'CUSTOMER_PRODUCT'' D'$'f f 'ORDER_NO'' F'$'f f'WORK_PRODUCT'' H'$'f f 'PRODUCT_ID'' H'$'f f'h h XB@.ZͻֵΪ''D'F'H'J'\dxLINSERT INTO COCMEASSHIPLISTSTD (INVOICE_NO, CUSTOMER_NAME, WORK_PRODUCT, PRODUCT_ID, CUSTOMER_PRODUCT, ORDER_NO, PLAN_SHIP_TIME, FILE_NAME,LOT_ID,SUBLOT_ID, WAFER_COUNT, MEMO, BOX_COUNT, CASE_COUNT, IMPORT_TIME,IMPORT_TYPE,SHIP_SEQ) VALUES ('INVOICE_NO', 'CUSTOMER_NAME', 'WORK_PRODUCT', 'PRODUCT_ID', 'CUSTOMER_PRODUCT','ORDER_NO','N Nto_timestamp(' 8','YYYY/MM/DD'),' H','N[ N  > @  'j j$(d   <%>!x'l j$* l n$(ΪA@J|kk j$,str l j$. λ j$( j$.޸A@J|kkx $,num l$ l$p l/ j$(Ƿš/Ҳ֣޸A@J|kk $,time l$` j$(ʱʽ޸A@J|kxkp j$,str N''N N l'N N','Nk j$,num l/ l$ Nnull,'Nd N l,'Nkk j$,time Nto_timestamp(' l','YYYY/MM/DD'),'NkHk@con.Execute (sSqlstring) Nsystimestamp,' $>','    ')'N[ N N ZB@kk ݿ $ SQLַеĿͻȫ滻 d Z! d$Z'f f'CUSTOMER_NAME'' '$'f f 'INVOICE_NO'' L'$'f f'CUSTOMER_PRODUCT'' D'$'f f 'ORDER_NO'' F'$'f f'WORK_PRODUCT'' H'$'f f 'PRODUCT_ID'' H'$'f f'h h XB@ k z'rA@*.2select * FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H ' 't t ~ B@ ! $If rs.Fields("RUN_STATE") = "R" Then 0MsgBox "ڴӦݣԺ󵼳COC" Exit SubEnd If!Ѿڸõ,ȷҪô $Jg8 k0 k( 0DELETE FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H''N[ N N$D'r rA@: عA@J|x kp   X! $X'N+ActiveSheet.Cells(1, 10).Value = sSqlstring N$D'r[ N rA@: عA@J| k  A@6A@ɹA@Joh ` Attribute VB_Name = "ģ2" Sub Import_Ship_Click()  'ʾַDim tips(15) As Sng 6.)ƻH2ļ( 3͔ 4Ʒ ~ĶŅ I61ӹ 17 MAIN LOT8 $9 10 ע 1 w v vkwƱR'Ϊλ emptyFieldlIntpeger*1C'ֶжσtypeChe@BCtimeEDCEstrNFQFQQQQQnumN- 1 GG@RA?MACeKd@G"'olen7 B128# b64322 1100 .1cg 'IԪPλÃsD@ateCol3RawKe#filed) ActiveSheet.Cells(el, Fd `T0rim(, ;@)$A|data_Sta¢ End_, A JF ?dG@ UsedRange.Rows.Countc a = $3; 9cu@stomer&Sqlcing_productm/ _order_no workE C6invcoLde tm% _3cu_index ubTotalfp qlist,4 tcL!Ne$w le`+on hasxiaojiABoolea= Fal seCSSet A! CK dB'СBыʼ,r2<8If r4u5} T he 1MsgBoxS& "exDbAExit Subs`4 IfCSLen(> iX^0" &z޸EG) <> ""\P(fw}lIs!L('N )r"qʽh For ip!hCFTo'KC'𓪺ϼʱֹͣѭ JsYi, 4).Valub  Q   ʱ@^b*11Q;v (}E9E5%8AndC31TO&eq%p_X K= i;q?uvU`s(+ 2, k?Ac 4# g݅2N i?p \ p 7%(V $IR HyOs(u^ ?.EmE'SQLеijȫ 滻 For ci = 1 To tempList.C0ountxsS ql^T(ci)PReplace(n, "'CUSTOMER_N AME'"" & customDer "'"+RINVOICE_NOOinvcod0e_no1QRPR ODUCTS_p@roduct.ORDV~_order4ZWORK_Xwork9V_IDAnewAlAddF  NexS etNew Collection'ͻֵΪ Ɵ= ""FR q Pshiphas xiaojFalse.KEr3@string )"INSERT INTO COCMEASSHIPLISTSTD (Im, y, )P, 'G, `LAN_A _TIME, FILE!,LOTN,SUB$ WAF@gCOUNT, MEMO, BOXB_CASEeI`MPORTC eYPE, SEQ) VALUES (', j'N,'{,0I-& "to_timestamp('S@Date,'Y/MM/DD'),FileN am Debug.P;t Dj?data_Start_iq"EndAchecknum j + 4If@ tips()"" Theu SXacel@lvalue A`veShees(i, j)|.V At@yField<8> 0ALe len ! "λq3&8o5޸/ | [ j2 6" And Trim&)4C0IsNu`ic*c4Q/++Ƿš/֣, 2 t&/Z٢Is\_e?Ecum)q+ʽ__?=?-#D;s=m!'_<*ӏ`pbc "'OY,&J??P<;OrB_+nullkzOE 0\?o7/)PW> ϝ 'ܝ,o_g 'con.Execute (sSqlstri@ng) N8extT" = & "systimestamp,'" & Cells(1, 11)"',' i - 3 ')"cDebug.Ptb'tempList.Add(End8 Ifz'ݿIf Trim(customer) <> "@" Then& 'SQLеͻȫ滻For ciA1 To _Cxoun( ciReplace, "'CUSTOMER_NAME'"^E3c"INVOICE_NOinvcode_ nom'PRODUCT'_productmORDnew}KAl G] `ciRetC: nectDB'beginTxSet rs New R$ec@.se[sq@lAlert"sel * FROM COCMEASSHIPLISTSTD WHERE FIL NW=+ FileName +[rs.Open , csDBConion, 3, 2 z"n > 0y'Fields("RUN_STATE")R.'MsgBox "ڴ@Ӧ!Ժ`'Exit Sub8>'/4a ("Ѿ@õ ,ȷҪ@ô~vbOK떀 g iO#"DELET59ہ9&9'D"پReCmd#@$@- `@@ `Nv`%`p 0@P`p 0@P`p 0@P`p 0@P`p 0@0Pk$*\Rffff*Sg6c06f1fe" (H`  ""0&@&h  0"P"x0H` ((@Xx "0Pp (8HXh(@Xp0H`x  8 P h        ( @ X p         0 @ P ` p            0 @ ` $h              $8 .`      Z    8@X `hpx  $ . " @ 6H $   H `x(08@H`@x 8PXp0,8bh "*(X`h p> (8@H4`8HPhp  x       ( 08P`ʾַ]1X Product Name+( Ingot No.+(Quantity Shipped+(ֱ(Diameter)Head+(ֱ(Diameter)Tail+((Thickness)Head+((Thickness)Tail+(!λOffOrientationOrientation+(λOffOrientationX +(λOffOrientationY +(Notch (λ) +( Notch ƫǶȬ +(Notch Depth Head +(Notch Depth Tail+(ֿ(ohm-cm)Head+(ֿ(ohm-cm)Tail+((؝)Head+((؝)Tail+( ORG(%)Head+( ORG(%)Tail+( RRG(%)Head+( RRG(%)Tail+(TTV Head+(TTV Tail+( Warp Head+( Warp Tail+(C ppmaHead+(C ppmaTail+( LTusHead+( LTusTail+(Growth MethodƷ+(Conductivity TypeƷ +( DopantӼ!+(EPD"+( OISF Ring#+(As Concentration$+(Phos Concentration%+(Appearance/ϰ&+(ע'+(ڬ(+(Boron Concentration)+( RRG2(%)Head*+( RRG2(%)Tail++(BOW,+(Swirl-+(.+(߬/+(OISF RingHead0+(OISF RingTail1+( Ϊλ]1+*+*]1str+,str+,num+,num+,num+,num+,num+,num+,num +,num +,str +,num +,num +,num+,num+,num+,num+,num+,num+,num+,num+,num+,num+,num+,num+,num+,num+,num+,num+,num+,str+,str +,str!+,str"+,str#+,num$+,num%+,str&+,str'+,time(+,num)+,num*+,num++,str,+,str-+,num.+,str/+,str0+,str1+,ж]1+.+. +. +. +. +. !+. "+. #+. &+.@'+. ,+. -+. /+. 0+. 1+.]1X&+z]]Scripting.Dictionary$p.'| <!B!!'~'>1'@ z'r rݿⱨA@J|kA@*]  | ~  <%>!x$ (the last column for table, need exit foryhd`2DELETE FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='  <%>!x''N N$D'r rA@: عA@A@J|kkA@6A@*  | ~  <%>!x$ (the last column for table, need exit foryk  <%>!x %d  <%>!x  <%>!x B@INSERT INTO WAFERREVICEROD ('N NPRODUCT_CODE,PRODUCT_LOT_NO,QUANTITY,DIAMETER_H,DIAMETER_T,THICKNESS_MIN,THICKNESS_MAX,ORIENTATION,ORIENTATION_X,ORIENTATION_Y,NOTCH_ORIENTATION,NOTCH_ORIENTATION_DEVIATION,NOTCH_DEEP_H,NOTCH_DEEP_T,RESIS_S,RESIS_T,OXY_CONCEN_S,OXY_CONCEN_T,ORGH,ORGT,RRGH,RRGT,TTVH,TTVT,WARP_H,WARP_T,CH,CT,LTH,LTT,GROWTH_METHOD,PN,DO_PANT,EPD,OISFR,ACONCENT,PCONCENT,APPEARANCE,MEMO,INGOT_TIME,BCONCENT,RRG2H,RRG2T,BOW,SWIRL,INGOT_COUNT,SLIDE_LINE,OISFRH,OISFRT,EVENT_TIME) 'N sSqlstring = sSqlstring & "PRODUCT_CODE,PRODUCT_LOT_NO,QUANTITY,DIAMETER_H,DIAMETER_T,THICKNESS_MIN,THICKNESS_MAX,ORIENTATION,ORIENTATION_X,ORIENTATION_Y,NOTCH_ORIENTATION,NOTCH_ORIENTATION_DEVIATION,NOTCH_DEEP_H,NOTCH_DEEP_T,RESIS_S,RESIS_T,OXY_CONCEN_S,OXY_CONCEN_T,ORGH,ORGT,RRGH,RRGT,TTVH,TTVT,WARP_H,WARP_T,CH,CT,LTH,LTT,GROWTH_METHOD,PN,DO_PANT,EPD,ACONCENT,PCONCENT,APPEARANCE,MEMO,BCONCENT,SWIRL,SLIDE_LINE,OISFRH,OISFRT,EVENT_TIME) " N VALUES ('N  > @   <%>!   <%>!%>'ld@   <%>!x'lk $* l $(ΪA@J| k k $,str l $. λ $( $.޸A@J|@ k8 k0 $,num l l$'lk  l< l<$'lk  l܅ lܹ$'lkp  l l$'lk8  l> l>$'lk  l݅ lݹ$'lk l$p l/ lOK $(ĵ ݡ l'Ƿš/OKҲ֣޸A@J|( k k $,time l$` l$ $(ʱʽ޸A@J|kk $,str $z N''N N lOK$'NPAppearance/ϰ OK滻Ϊ N','Nd N''N N l'N N','Nkk $,num l/ l$ l$OK Nnull,'NdH N l,'Nk(k  $,time l$ Nto_timestamp(' l','YYYY/MM/DD'),'Nd Nnull,'Nkk N systimestamp)'N[ N N$D'r rA@: عA@A@J|kkA@6A@ɹA@JoǵAttribute VB_Name = "ģ3" Sub Import_INGOTing_Click() 'ʾ@ַ Dim tips(49) As Sng6.1)Product /r2Ingoo. 3Quantity Shipped !4!ֱ(Diter)Hea #5#Tai l#6(Thsness-$7$8λOffOrientation >X 10.YNotch н(/) ^ƫǶȊ_Depth ] V1C_MC1_ֿ(ohm-cmU1C_ CNC_i_ NA\ORG(%2׃YM2CVRSTGNCTTTVNR2CRN CPWarp N KC ppmaMo2#%.c$LTus3$B3$Grow@GMethodƷiL3%Con!iv|TypeƷj'DopӼ'EPDC'@OISF R ^'ctrtJc(Phos (A@arance/ϰ)ע4(0'Boron4&M20X^4%PM34%B OW%SwirJ4$ # #".mO!@(h'Ϊ@λGemptyFieldIntegerC(1"&b MChe`׆1strE&C01/numnC/1/101#01C01QG1ek(1_pe1c_PV?T` k(4`^/k(^0 k([time>2`!u[_PV V'0жϓV!UlenUZ30cV15\1_Hn(o43(oo e36-wN4Rib/"okreplacer3data_StaARow, End_Col:lot0ListS Set tCreateObject("ScripBt.Dicary"` .3x PAveSheet.UsedRange.@ s.Coun  = $rS 493SiRetCod1connp DBIf <> 0 Then MsgBox "ݿⱨDDExit G# If'beginTxSsSql=For i`art_Row To data_Endx If Trim(ActiveSheet.Cells(i, 2).Value) = "" Thenr 'the last column for table, need exit 4EFor lse  sSqlstringzDELETE FROM WAFERREVICEROD WHERE P UCT_LOT_NO =`'" & Ҁ"'" :iRetCode9execCmd(C)a<> 0rollbackTx0ع%cl oseDB MsgBox "Y1Sub  IfNextCcommitTxC'beging@n iHBSzt1 BnlotList.sts˽A]Add, INSERT INTO ( # & "%fCODE,g,QUANTITY,DIDAMoR_HGT,THICKNE@SS_MINAX,ORIENTATIONi_*_Y,NOTCH_._D|# c0DEEP T,RESIS_ST,OXY_COpNCEN R4GH@G`!RRA TTVH,T0,WARa T,CH,CT,LTH`T,GROWTH_ !HOD,PN,DO_P $,EPD,OISFR,AcT,PAPPEARA ,MEMO,ING`TIME,FBe`2H,T,BOW,SWIRL$COUNT,SLIDE_L8INE  T,EV,_ ) >'>@$>>c@>A>F>_>E@>>|ET>=<:9E98 VALUE,S ~jColEF Qrj).Merge/n2cvArea1, 1LuENU@O -`%pemptyField(j) |rLen(/* |ti psWΪՌ;i/}|nd}o` typeCheck_1Мu  > len5λa `OOsO"numOQInSt r(+& , "") ?&@2Replace$cP"?1o SQ @< G { <"o o A$ W { `   K W `   > G { >Wo %% W { ` sNumer$ic[YFapd AGR]"/"O" "PTMsgBox tips& "ʱʽ"@Exit Sub! #"strokreplace1asSql*ing'} RDj, "OK"@") 'Appearance/ϰ OK滻ΪlSQ(,)SE=;1:mЌnum܌./" Or @w7nullv?8tr0WX+K..+( wk"to_stamp('" & !j','Y/MM/DD')*M?5)dNext+sys )uDebug.PBt (g) iRetCode]execCmd/w?70t]rollbackTxع+clo0seDB"А3M,+commitTxd)ɹ M*j88xME(<<6 <$8‎0@% P` ( * ,X8 .x@: @< @> `@`N 0%` `PP@ @  @ `N  %`@| @~ @> `@€ @€ @HP0HP0HPXHPHPHPHPHP HPHHPpHPHPHPHPHP8HP`HPHPHPHPHP(HPPHPxHPHPHPHPHP@HPhHPHPHPHP HP0 HPX HP HP HP HP HP HPH HPp HP HP HP HP HP8 HP` HP HP HP HP HP( HPP HPx HP HP HP HP HP@ HPh HP HP HP HPHP0HPXHPHPHPHPHP HPHHPpHPHPHPHPHP8HP`HP @k$*\Rffff*Sh6c06f1fe   "( 0 @ P h $ ( "@h    (@Xp  0@P `     P0 2 0   (P@ 2 0  *(X h x    ,   @ `h  D  ( 08@ H$` .  $          0 8  @  H `  x D J  ( 0 8 @ @X        0 6 8 @  H  P h *x          b x            (0H P X8p           V8       0 8"HPpx  0P hx P 20 08hpx  P 2H 0P  $0X   hx  $  $ 0 68 6p     0 P"X   $ $ $ $ ( 8HP X hp]@Hʾַ] tips(1) = "ͻ"tips(2) = "Ʒ" Ƭ+(+(ͬ+(λì+(tips(5) = "/ȫ/̳"tips(6) = "/ֵ"Ƭ+(tips(8) = "/Ϊ"/ע/˵+(ͬ+( Ϊλ] emptyField(1) = 1emptyField(2) = 1+*ͼ]  str+,str+,str+,str+,num+,str+,str+,ж] `+.+.+.@+.+.+.@+.]'| <!B!!'~'> '@A@z]A@*   WHERE 1=1 '  ?  AND MEAS_TITLE LIKE ' ?_$''`֧? % e  AND MEAS_TITLE LIKE ' ''d(  AND MEAS_TITLE = ' ''kk  ?  AND MEAS_ITEMS LIKE ' ?_$''b֧? % e  AND MEAS_ITEMS LIKE ' ''d  AND MEAS_ITEMS = ' ''kkDELETE FROM COCMEASITEMSTD 'N N$D'r rA@: عA@J|PkHd@ɾѴڵ  | ~ &Debug.Print (Range("B3").Comment.Text)C $v!C $v!d' dC $v!!d' kp.DELETE FROM COCMEASITEMSTD WHERE MEAS_ITEMS=' ''N N$D'r rA@: عA@J|kk  | ~  <%>!x$ (the last column for table, need exit fory@k8INSERT INTO COCMEASITEMSTD ('N NMEAS_TITLE, MEAS_ITEMS, MEAS_TYPE, MEAS_POS, WAFER_COUNT, COMMON,MEAS_WAY, CREATE_TIME, CREATE_USER, UPDATE_TIME, UPDATE_USER,UUID) 'N N VALUES ('N  > @   <%>!x'l  ' $* l $(ΪA@J|kk $,str $.  lȫ l l̳ lλ $(*ֵӦΪ졢ȫ졢ȫ޸A@J|kkd l $. λ $( $.޸A@J|`kXkPkH $,num l$$p l/ l $(Ƿš/Ҳ֣޸A@J|kk $,time l$` $(ʱʽ޸A@J|PkHk@ $,str $.  N''N N l̳T$P$ȫA$R$'N N','Nkpdh N''N N l'N N','Nk0k( $,num l/ l$ Nnull,'Nd N l,'Nkk $,time Nto_timestamp(' l','YYYY/MM/DD'),'NkPH]]8 A' $\'  $'A[ [ $$$ N%systimestamp,null,systimestamp,null,' $$$')'N[ N N$D'r rA@: عA@J|kA@6A@ɹA@JoѯP]]](]@Xp'| <!B!!'~'> '@ A3:L1048576$vB@ A3:L1048576$vB@ <%>!x' <%>!x'  WHERE 1=1 '  ?  AND MEAS_TITLE LIKE ' ?_$''[֧? % e  AND MEAS_TITLE LIKE ' ''d  AND MEAS_TITLE = ' ''k 'k  ?  AND MEAS_ITEMS LIKE ' ?_$'']֧? % e  AND MEAS_ITEMS LIKE ' ''d  AND MEAS_ITEMS = ' ''kx 'kh A@zSELECT MEAS_TITLE, MEAS_ITEMS, MEAS_TYPE, MEAS_POS, WAFER_COUNT, COMMON,MEAS_WAY, CREATE_TIME, CREATE_USER, UPDATE_TIME, UPDATE_USER'N N FROM COCMEASITEMSTD 'N N 'N. N $>'r' r %b %  <%>(x %  <%>(x %C  <%v!B@d 0ActiveSheet.Cells(iRaw, 4).Value = rs1.Fields(2) 0ActiveSheet.Cells(iRaw, 5).Value = rs1.Fields(3) %' P  <%>(x Aeȫ  <%>(x Re  <%>(xd ̳  <%>(xkx  %  <%>(x %  <%>(x %  <%>(x %  <%>(x  ' B@k B@BA@oAttribute VB_Name = "ģ4" ' PrivapCustomer, pMeasId tem As Sng  Sub ImportCheck_Click()> 'ʾ0ַDim tips(1L0) R/ ')aͻ2aƷ, 1 3$͉ 4 λÄ J5 /«́ 6/ֵCV!Ƭ8Ϊ݉+/ע/(7 h'Ϊλ^emptyFieldE`Intehger'1U '"A^cC}ypeQ~t2str8F~"QtQtQbn|umC[ YG'жG9len 9 WBV|28 CP74 B66MB5f200,%c4data_Start_Raw, 1EndCo>lyI owz3 G ActiveSheet.UsedRange.Rows.Count& 2 != 1connectDBsSql9ing be ginTxIf <> "" OrCThenawherB WHERE 1=1 $N D$In(1"?") > 0 a& " AND MEAS_TITLE LIKE '" & Replace(@ , "_ @ '֧?çaElsep%7f-+ac = v ="'1nd IfG _&65>?"*6aEITEMS6 6 ~# 5s P% @/ 6+R h?`DELETE FROM COC1TD3&S$ iRetCodexecCmd($A A?: rollbackTxP΀عKMsgBox "*xit G;'ɾڵхG`For i8ZT2o_ow'D ebug.`nt (Z("B3")Zmment.Text(A+@tCQHi Is NothYMm*i= ,Qk&ge("L? |Aq$$MS$_X&=W N &&11':heo_'_'' 5uE'6N` cu'_  '$@Trim(قCells(i, 2)@.Value£"^q'the last column fP/table, need e @ "P 7  INSER@T INTO}E(X "ȫ" And  "MsgBox "λ" & tipsy& "ֵӦΪ5Rd/@޸"2ExitP SubE~If Else!Len() >쓁-HBPҎQHG?L @Ctypea"numU IsNumeric`(TrimSFa_P/YQǷŀ/Ҳ֜S&)"time:)Date)R= (WP"ʱʽ!toa &Istrx _oo5A@f sSql@ing @s'8Repl0ace(, "A`T")P"A·R")s"',=a W&"y 1_Wa UO3P` #" MOr [X_["4 '֧?Al `%    rF5OALE = '" & measId"'" @End If "" Then>InStr(1,P, "?"`) > 0 ,w0here& " AND MEAS_ITEMS LIKEReplace({W_\8P' ֧?ElseJ%JF;B"ujdցׁCconnectDBCsSqlstring`"SELECT ^TITLE,aTYPPOS, WAFER_COUNT, COMMON",oWAYREATE_TIM CUSER, UPDGAJ&@D FROMCTD >Set rs1?New ADODB.Reco rdsetiR etCodexecQuery($,) aw3C;Do While.EOF()TrueCActiveSheet.Cells(iRaw, 2).Valu%0.Fields(0D"Ek a 3r 1l )Range("CA).AddComment.Text (1)j'u42 53"'P) 9J"Pm. "xV Aǟ Bh&"ȫ U "R 0+Oa" "Q#, U k?B6I4Iu75}86Aq:+ 1"9`MoveN9L8oopIcClosHccQSub   [xME(<6 <<$% `//`l``@ 8Ph(@Xp0H`x 8Ph(@Xp0H`x 8Ph(@Xpk$*\Rffff*Si6c06f1fe0"  ( @HPX `  0  ^p  " 0 P p          0 @]" ѯij嵥еlot]p]] COCļ$tB@HB1$v!x' *B@ z!' *!\COC\  -.xls'N *!'A@z.3select * from COCMEASSHIPLISTSTD where FILE_NAME ='  ' order by user_lot_id '  ~ B@ t!$t tB@ LOT !$( ! Debug.Print (rs.RecordCount)'  ! USER_LOT_ID %'   t!$t,>  A@  ' B@PkH ( N  *B@ ( \ H B@  -.xlsA@o4Attribute VB_Name = "ģ5" Dim row As Integer Sub LotFamily() ' ij嵥еlot@N .Count excelBSng openfile !Sheets("COCļ").S elect!pa"rterRange("B1# ValueThisWorkbook.Sav I= ActivesPath, ! & "\H\" & A -.xlss9q= #4co$nnkDBSet rs>NeDODB.Rec ordse}sql"s * from JMEASSHIPLISTSTD where FILE_NAME ='" +H-+ "' Qby user_s_id0Prs.Oi ,@ csDBCC*ion, 3, 2,k.Add Af@d:=o.BwD[swD.1ELOTS!IfGDA> 0Ten 'Debug.Pri@(@.oL =.For i@S2 ToM+ 1 @G id Field@USER_,_ID"8A QA.Cells(!, 1)K@Group ,Z1A)MoveNexEaEnd If#Applicat:.DisplayAlertaPpFalsiEe,P xlEA}8_ Trtc@AtMFA:=ganm"weD `te,q ' %!jWW6 H!jWW7_!jWW8)4!jWW9D$mxME(0 <6 <$ H% `@ `N % % %  %@ `r@| @~ @> `@ % % % 0% P%`````````J````T` @ @ ` `  % @%` x%` %``@ %` ` `` % ` i` `@%H H H H H H H8 HX Hx H H H H H H8 HX Hx H H H H H  H8  HX  Hx  H  H  H  H  H  H8  HX  Hx  H  H  H  H  H  H8  HX  Hx  H  H  H  H  H  H8  HX  Hx  H  H  H  H  H  H8  HX  Hx  H  H  H  H  H H8 HX Hx H H H H H H8 HX Hx H H H H H H8 HX HHxxk*\R0*#1d$*\Rffff*Sj6c06f1fe" (08@Pp"*&0Pp$0H`x$     &0 Xx***Hx z0 8 H Xhx         (8 @Phx       .J( @P h         ( 0P X` h x     4 08 h x  $      ( @ H `  x           0 H h               0 H  X  `                 8  H P X x  *       ( 8 @P(@ X p      @ `  "@h (8 P p        $ @ P p   "   $ 8 H h      $  ( H ` x    $   ( @ X  h   p*  @Xp x     ( @ P X ` h p x      ~   (H Xhpx          * 8   6@ x         0H `p x     ( @ X h x           8  P  ` x          !  ! 8!P!X!"h!! ! ! " # $ % & ' `( @) * + + , - . / `0 H1 82 (3 4 64 5 05$@5(P5, p50Z5,5025, 6,(6,@6, P6)`6) h6)x6$6 6 6$ 6(86$6(6$7 77 7 7 0787@7 H7P7 X7h7(8H8X8p8x888   8  8 88 88 99  9(9 @9 X9p9 9 99 9 9 : : : 0: H: X: h: x: : :: : : : ; ; 8; P;h; ; ;; ; ;;<< < 8< @< 8= 0> (? @ A B B C D E hF `G HH 0I J J K L M N 6pO "O O O$O(P,2 P,XP,pP, P)P) P)P$P PP  P P PP P P (Q 8Q XQ xQ Q  QQQQR R8RXRhR pR xR R R :RVR @S`S S SSSS SS T( THTXThTpT  T T >T \T &HU pU U U U U U U V  V 8V (HV pV V (V V  V V W (W @W PW 4pW W WWW WB W WX X(X0Xt8XX8X2Y8Y*PYYYY Y Y YYY Y]H ]xms]]]]](@]Xp&;>](ļӦlot](infoάļlist](infoҪʾļλlist](summaryάļlist]8(lot list]X( info ]p( infoʾλ](summary ](ļ]( info mfg name]( info part](summary Date ʱ]]]0(]DH(Ʊ]`(ͻ]x(Ʒ]]] ʼlotid]+һξݵļ](]H]`(ݼlist]( id]+ݼʾֵlist]+ʾֵid]]''' <%>!x') ȡֵƱ $뷢ƱţA@JgkScripting.FileSystemObject$p. <%>!x'. ȡļA@z.Cselect CUSTOMERPRODUCT from COCMEASSHIPLISTSTD where FILE_NAME ='  ' 'eļҿͻƷ  ~ B@'.. ! %b %' %'T'    T'k     B@ T B@k B@ !'   $' $'Tģȡ *!'(sName = spath & "\" & "GTIͨģ.xlsx" \ͻģ\ \ T\ T.xlsx' T.xlsx'[   % H B@dx ļڣA@JgXkP .xlsm$nB@p'''  t! $t!summary'k $t!info'k summary$tB@H r!tB@vkX info$tB@H r!tB@vk t!$t tB@/summary sheetsummary <( t!$t tB@/info sheetinfo <( COCļ$B@HWorkbooks.Open filename:=sNamesummary ģȡ[summary.. T.xlsx$nB@p$B@H'| <!B!!'~  | ~  <%>!x' $Debug.Print (sumItem)  B@k <%>!x' <%>!x' info ģȡDebug.Print ("info")ϸ$B@H'|....... <!B!!'~  | ~  <%>!x' $  B@k  <%>!x' $  B@kP  <%>!x' $  B@k  <%>!x' $  B@k <%>!x' <%>!x'#Workbooks("GTIͨģ.xlsx").Close .xlsm$nB@p COCļ$B@H....A@z.Sselect user_lot_id,plan_date,WAFER_COUNT from COCMEASSHIPLISTSTD where FILE_NAME ='  ' and PRODUCT=' T ' order by user_lot_id 'ļҳ  ~ B@ %'  ! %'  B@ %'  B@ B@@summary ⸳ֵsummary$B@H A1:P1048576$vB@H B@Ship #$>(xDate$>(x Mfg Name$>(xPart #$>(x PS number$>(xRev #$>(xLot #$>(xLot Qty$>(x Parameter $>(x alpha value $>(xmean $>(xs $>(xn $>(xmin$>(xmax$>(xuom$>(x''J[ !  ! ijξݵļ  ! B@` $' $' $' copy T.xlsx$nB@p$tB@HE2:E ! $vB@H B@ .xlsm$nB@psummary$tB@HI $vB@H <B@ mfgname Part psnumber REV T.xlsx$nB@p$tB@HA2:D ! $vB@H B@ .xlsm$nB@psummary$tB@HC $vB@H <B@ Part T.xlsx$nB@p$tB@HG2:G ! $vB@H B@ .xlsm$nB@psummary$tB@HJ $vB@H <B@ psnumber T.xlsx$nB@p$tB@HH2:H ! $vB@H B@ .xlsm$nB@psummary$tB@HP $vB@H <B@summary$B@H  ! $'[ A@z.gselect MEAS_AVG,MEAS_STDEV,MEAS_PCS,MEAS_MIN,MEAS_MAX,MEAS_FLAG from COCMEASDATASUM where USER_LOT_ID='  ' and MEAS_ITEM='  ' '  ~ B@  J$>(x  J$>(x  YYYY-MM-DD$ J$>(x ! % J $>(x % J $>(x %A  J $>(xd % J $>(xk` % J$>(x % J$>(xk  J$>(x J 'J J 'J  !  ' info] ]8]P'' ' info$tB@H A1:ZZ1048576$vB@H B@  !]h' $' $'.7select MEAS_DATA from COCMEASDATAINFO where UP_LOT_ID='  ' and MEAS_ITEMS='  ' order by MEAS_DATA '  ~ B@  $>(x !  !' k !   ! %  $>(x  ' B@k  'p ݼ ȫּ. ȡilotidǰĸ $' ' HA HX HZ]/ǰĸHA,HZ,HXѯiε A@  !  %'A@z.SELECT substr(d.USER_LOT_ID,0,nvl(length(d.USER_LOT_ID),0)-nvl(length(d.ESTIMA_WT_LOT_ID),0)) lotid,d.USER_LOT_ID FROM waha.DLOT d WHERE USER_LOT_ID ='  ' AND lot_stat = 'N' '  ~ B@ ! %'k  ! 'k  !' $'id  ! B@ ORGHKORGTKTORGH B@ORGT B@RTRHKRTRTKTRTRT B@RTRH B@RRGTKRRGHKTRRGH B@RRGT B@PCKTPC B@OOYKTOOY B@ACKTAC B@APPRKTAPPR B@BCKTBC B@CCHKCCTKTCCH B@CCT B@CSNKTCSN B@LTHKLTTKTLTH B@LTT B@OGCHKOGCTKTOGCH B@OGCT B@OONKOOXKTOON B@OOX B@n $'     $>(x  !A@zSELECT PRODUCT_LOT_NO,'λ(OffOrientation)X' MEAS_ID,'λ(OffOrientation)X' MEAS_ITEM,ORIENTATION_X DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'OOX' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'λ(OffOrientation)Y' MEAS_ID,'λ(OffOrientation)Y' MEAS_ITEM,ORIENTATION_Y DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'OOY' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'ֿ(ohm-cm)Head' MEAS_ID,'ֿ(ohm-cm)Head' MEAS_ITEM,RESIS_S DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'ohm-cm' UNIT,'RTRH' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'ֿ(ohm-cm)Tail' MEAS_ID,'ֿ(ohm-cm)Tail' MEAS_ITEM,RESIS_T DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'ohm-cm' UNIT,'RTRT' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'(؝)Head' MEAS_ID,'(؝)Head' MEAS_ITEM,OXY_CONCEN_S DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'OGCH' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'(؝)Tail' MEAS_ID,'(؝)Tail' MEAS_ITEM,OXY_CONCEN_T DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'OGCT' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'ORG(%)Head' MEAS_ID,'ORG(%)Head' MEAS_ITEM,ORGH DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'%' UNIT,'ORGH' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'ORG(%)Tail' MEAS_ID,'ORG(%)Tail' MEAS_ITEM,ORGT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'%' UNIT,'ORGT' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'RRG(%)Head' MEAS_ID,'RRG(%)Head' MEAS_ITEM,RRGH DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'%' UNIT,'RRGH' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'RRG(%)Tail' MEAS_ID,'RRG(%)Tail' MEAS_ITEM,RRGT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'%' UNIT,'RRGT' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'' MEAS_ID,'' MEAS_ITEM,INGOT_COUNT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'CSN' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'Appearance/ϰ' MEAS_ID,'Appearance/ϰ' MEAS_ITEM,TO_NUMBER(APPEARANCE) DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'APPR' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'C ppmaHead' MEAS_ID,'C ppmaHead' MEAS_ITEM,CH DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'ppma' UNIT,'CCH' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'C ppmaTail' MEAS_ID,'C ppmaTail' MEAS_ITEM,CT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'ppma' UNIT,'CCT' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'LTusHead' MEAS_ID,'LTusHead' MEAS_ITEM,LTH DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'us' UNIT,'LTH' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'LTusTail' MEAS_ID,'LTusTail' MEAS_ITEM,LTT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'us' UNIT,'LTT' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'As Concentration' MEAS_ID,'As Concentration' MEAS_ITEM,ACONCENT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'AC' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'Boron Concentration' MEAS_ID,'Boron Concentration' MEAS_ITEM,BCONCENT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'BC' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'Phos Concentration' MEAS_ID,'Phos Concentration' MEAS_ITEM,PCONCENT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'PC' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'RRG2(%)Head' MEAS_ID,'RRG2(%)Head' MEAS_ITEM,RRG2H DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'%' UNIT,'RRG2H' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'RRG2(%)Tail' MEAS_ID,'RRG2(%)Tail' MEAS_ITEM,RRG2T DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'%' UNIT,'RRG2T' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO''N N'PRODUCT_LOT_NO'' '$'N N $>'r r %b $ %   %    ! %     $>(xd  %     $>(xk  % B@  ' B@d B@k x kp  !      ! %  B@d  B@kk   ' kdA@z.SELECT substr(d.USER_LOT_ID,0,nvl(length(d.USER_LOT_ID),0)-nvl(length(d.ESTIMA_WT_LOT_ID),0)) lotid,d.USER_LOT_ID FROM waha.DLOT d WHERE USER_LOT_ID ='  ' AND lot_stat = 'N' '  ~ B@ ! %'k ! 'kh  !' $' $'id  ! B@ ORGHKORGTKTORGH B@ORGT B@RTRHKRTRTKTRTRT B@RTRH B@RRGTKRRGHKTRRGH B@RRGT B@PCKTPC B@OOYKTOOY B@ACKTAC B@APPRKTAPPR B@BCKTBC B@CCHKCCTKTCCH B@CCT B@CSNKTCSN B@LTHKLTTKTLTH B@LTT B@OGCHKOGCTKTOGCH B@OGCT B@OONKOOXKTOON B@OOX B@n $' $'  !A@zSELECT PRODUCT_LOT_NO,'λ(OffOrientation)X' MEAS_ID,'λ(OffOrientation)X' MEAS_ITEM,ORIENTATION_X DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'OOX' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'λ(OffOrientation)Y' MEAS_ID,'λ(OffOrientation)Y' MEAS_ITEM,ORIENTATION_Y DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'OOY' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'ֿ(ohm-cm)Head' MEAS_ID,'ֿ(ohm-cm)Head' MEAS_ITEM,RESIS_S DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'ohm-cm' UNIT,'RTRH' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'ֿ(ohm-cm)Tail' MEAS_ID,'ֿ(ohm-cm)Tail' MEAS_ITEM,RESIS_T DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'ohm-cm' UNIT,'RTRT' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'(؝)Head' MEAS_ID,'(؝)Head' MEAS_ITEM,OXY_CONCEN_S DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'OGCH' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'(؝)Tail' MEAS_ID,'(؝)Tail' MEAS_ITEM,OXY_CONCEN_T DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'OGCT' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'ORG(%)Head' MEAS_ID,'ORG(%)Head' MEAS_ITEM,ORGH DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'%' UNIT,'ORGH' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'ORG(%)Tail' MEAS_ID,'ORG(%)Tail' MEAS_ITEM,ORGT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'%' UNIT,'ORGT' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'RRG(%)Head' MEAS_ID,'RRG(%)Head' MEAS_ITEM,RRGH DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'%' UNIT,'RRGH' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'RRG(%)Tail' MEAS_ID,'RRG(%)Tail' MEAS_ITEM,RRGT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'%' UNIT,'RRGT' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'' MEAS_ID,'' MEAS_ITEM,INGOT_COUNT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'CSN' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'Appearance/ϰ' MEAS_ID,'Appearance/ϰ' MEAS_ITEM,TO_NUMBER(APPEARANCE) DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'APPR' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'C ppmaHead' MEAS_ID,'C ppmaHead' MEAS_ITEM,CH DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'ppma' UNIT,'CCH' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'C ppmaTail' MEAS_ID,'C ppmaTail' MEAS_ITEM,CT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'ppma' UNIT,'CCT' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'LTusHead' MEAS_ID,'LTusHead' MEAS_ITEM,LTH DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'us' UNIT,'LTH' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'LTusTail' MEAS_ID,'LTusTail' MEAS_ITEM,LTT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'us' UNIT,'LTT' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'As Concentration' MEAS_ID,'As Concentration' MEAS_ITEM,ACONCENT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'AC' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'Boron Concentration' MEAS_ID,'Boron Concentration' MEAS_ITEM,BCONCENT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'BC' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'Phos Concentration' MEAS_ID,'Phos Concentration' MEAS_ITEM,PCONCENT DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'' UNIT,'PC' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'RRG2(%)Head' MEAS_ID,'RRG2(%)Head' MEAS_ITEM,RRG2H DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'%' UNIT,'RRG2H' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO' UNION ALL 'N NSELECT PRODUCT_LOT_NO,'RRG2(%)Tail' MEAS_ID,'RRG2(%)Tail' MEAS_ITEM,RRG2T DATA_VALUE,PRODUCT_LOT_NO LOTNO,INGOT_TIME,'%' UNIT,'RRG2T' ITEM FROM WAFERREVICEROD WHERE PRODUCT_LOT_NO ='PRODUCT_LOT_NO''N N'PRODUCT_LOT_NO'' '$'N     $>(x N $>'r r %b  % %     $>(x % B@  ' B@dh/ B@kP/H/k@/8/0/   ' k/k/ info ǰ5иֵManufacturersName$>(xPart$>(xLot$>(xQty$>(xNo$>(x      $>(x  $>(x  $>(x  $>(x  $>(x  ' -k- ( info save *!'3sName1 = spath1 & "\" & lotId & "+" & part & ".csv" \ͻģ\ \ T\ + .csv'" + .csv' .xlsm$nB@p >B@H B@& rB@$ !!.( z!$nB@p <B@& rB@$ (* "H !.!0,2 zB@ $B@B  '+ $B@B summary save *!' 7sName2 = spath2 & "\" & ship & "-" & part & "-ECOA.csv" \ͻģ\ \ T\ -  -ECOA.csv'4 -  -ECOA.csv'6summary$B@H .xlsm$nB@p >B@H B@& rB@$ !!.( z!$nB@p <B@& rB@$ (* 4H !.!0,2 zB@ 6$B@B رģļ "Workbooks(product & ".xlsx").Close summary info sheetsummary$tB@H r!tB@v SendKeys "{enter}", Trueinfo$tB@H r!tB@v SendKeys "{enter}", True zB@!#As sName2, excel.XlFileFormat.xlCSV SendKeys "{enter}", True ( (k(o(lotidѯ]A@z]0'`8select * from waha.DERP_WAFCREATE where USER_LOT_ID = ' '' and USER_LOT_ID != org_user_lot_id_01'  ~%.ORG_USER_LOT_ID_0 `  %ORG_USER_LOT_ID_0 `  %' $' HA HX HZ ` '`  B@dX& ` '` A@k0&(&i &&Attribute VB_Name = "ģ6" Dim lotidCollection As New D Sub Meas_Search_Click`() ,@ sSqlsngSHrsADODB.Recordset  15oneRaiRaw, iRetCode&IntegerBdata_Sta`rt_RoEnd, 'List 'ļӦCDinfo'άļl3 act  ʾDλsum! B'mary"wPafer'@= @O0itemNCLB0 >=IB <:? 1 9parter)xGpmfgn@Q5 5@  ( A timeBDak0rowdnumb#NxqtyHPC=g s0hip A' Ʊus- 'ͻproduc''Ʒfil1&Obj hasA , EpBooleanaoldL+'@ʼB}idcrs 'һξb݀vc !mAY a<@:A9dۀQ/ 4'b"?!!{ֵ _)3@`id''ctm, BAcE@False`F= d0= 2b= A`veSheet.Cells(1, 5).Value 'ȡֵ dIf Trim() " Thet) MsgBox " s`Pn If!Set 1= CrepDc1("Scripting.F3Sys W~"HNQ r 2av ȡpcconn7DBW}^=? 4!se4 CUSTOMERPRODUCT from COCMEASSHIPLISTSTD where FILE_NAME ='" + + "' " 'BS sFC" .Open , csDBC , 3,{ 1 $/$ !"&=SCount > 0Do W h EOF() <>#u)a uU=4Fields(0T,1(- - For Each ~In24! =!,4yTr ,Next"` 3A0.Add [ @ aSMoveQsLxoopC.indexQ# ToB8  (/ U'ģȡ! sPathThisWorkbook.1''sDsp& "\" PGTIͨӂ1.xlsxeH`6 ""Source x}Debug.Pri`4(O0#2QOExsO4P(/$ sgBASa:=Evb05\΀Àڣ\0';M)W0%ows("1m").2g^gnp J130=pm,1,}bms.c(n).t"Qm4 A / w > " 6).S?m7sed).Dt&] End If If hasinfo = True Th en|Sheets("").@Select DActiveWinHdow@edn.D^te^ 0Add Afte(r:=(Count) 'summarxy sB/.PName"*"3h21WorkCOCļ'books.Open filenb:=se~ģȡ Debug.Print (}B)Set ListGNothingew Col|io |s(product & ".xllsx:ba~ EPCdata_Start_Row@(2DzUsedRange.@ s.B`For i T "" 'j߅ K! @Ak.D # MNexmfg22, 1p/2G'BeORĈBB= BYZ>Z actYE _`jqj '"EH ^,=ik_ ti/i5ik, 4NJ^%iZi'Aaa'fef+,ր3@$;@O1@"Ship #HV@QD0;?\1Mfg Ïv}P/ uaRS numbergRev (b7 LotOA8LQty, 9_h S40alpha vaEa meanO@ysՀa?1Ŏi?1maxEpquom8ro\2  Debug.Print (lotList.Count) For j = 1 To F'ijξݵļ PcrsR Collection} /\ $Remove 1a 'Next ifdg(jց*rDodqty w0afer!'copy:Wind ows(p/uct & ".xl@sx").Arvate Sheets("Se Range("E2:E""(sum + 1). R"'m'@mary(I'XrowS$@e<.PasMB'mfgname Part psnumber REV D?YYA2:D?Y} E)?YAÁC?:YW)_V_V@VG2:G) _V_VEj_V@J)XVT?*?*?*H2:H?*?* S?*@P?*7* )orksi'+ AItem(iláDconnDB Set rs1 New ADODB.RecordLseqla"sB MEAS_AVG,STDDEVCPCSM$INAXFLAG from COCDATASUM where USER_LOT_ID='"cp+ "' and#ITEMcDp"'" .@Open s , csDBC@g@, 3, 2OC ells(], 7).Value 8y 2!mat(times, "Y-MM-DD"/ Ifa > 0 Thevn/+1x Fields(0_  1 5)"A" 1%]3bEEls_ H 2 E@%IfO 4W m3 54ship $= ЗK?/ Q+  7'infoaDim QS*As Integer_Qcouttr otd/Q= 6=m? = 0kz!2įA1:ZZ1048576؃learHtentsϫ!d acHѻD@nTh (s?,}iksg2@%gg[zgqcdINFOdPdrb{dSd foPbyfeX2e2ee<1,td<q^2^C+o_dR-rs_Pcfra*ooP otr, infotd).Value = rs2.Fields(`0) rc^+ 1XMoveNextJEnd If1sd|d | N @'ݼ ȫ Set lotidCollection@Nothing 'ȡ i%ǰ$ĸ prMid(, 1, 2 oldLHCG If )"@HA" OrXJZ" ThenDim rowcCAs N8ew GN'DHA,HZ,HXѯNεŢgetDI iPϲFor A!R1 Toz.Counson@_IBa@.item(AconrnDB!AAr s4@#TADODB.RecordDse!Sql "SELECT substr(d.USER_LOT_ID,0,nvl(lengthA),0)-ESTIMA_WT+!)", FROM waha.D d WHERE  ='"t&%+ "' AND _stat'N'"R! @.Open !, csDBCc'@p, 3b ^A&7 > 0[A.a8u= E$2xm 7`p`rodList_ o !cg 0;@(pkAb'idϹmeasI@vRom " Ez7j 0Rem?9!sh {$SeA Cased s"ORGH", qT_8 .AddHtH "xRTR p/    RGTROM  PC=nsSOOYoo##0"A  _SPPR SA;B OsCCB6CCO#A/ SNw?4CsLTBLT AOOC OG#p Ob  ONhOXO@  sv_act?_Ce0lls(T+ p - 1yՌȯQn.Count  connectDBsSqlstring = "SELECT PRODUCT_LOT_NO,'λ(OffOrientation)X' MEAS_IDTEM,ORIENTATION_X DATA_@VALUE, i #poINGxTIME,'' UN@IT,'OOpI% FROM WAFERREVICEU WHERbE [ ='.%ON ALL "u&*Y Y?4IiIU(ohm-cm)HeadHHRESIS_SFőRTRXH' HH eHTailVH'$T?$hl.$T?$*_m_m (H$OXY_CON(CENI,ґGC?H$$ ,' I$I$?I$Nm'$$ORG(%G"RGHkk% E?!#S~_GU~CL"O/!o|'5! |OD|EQ|R_!,'OP_!'V˜o%)l! P3Io!B h22x cPCOUNBCSNwoعoooooAppearance/ϰTO_NUMBER(A@PPEARAw)T5/DR???'CO3O3K3C ppmxa1C_D##V#ƈDDDq////#D'DT"'+DD 44/LT,us."o_,LNTH DATA_VALUE,PRODUCT_LO T_NO 0NO,ING8TIME,'us' UNIT,'LTH' ITEM FROM WAFERREVICE WHERE =' ON ALL " sSqlstri ng =  & "SELECT ousTail' MEA0S_IDd,LtTT6TAs ConcentrationEACONCENkFACEEBoronVFXGB9GB?G?G#PhoFA#P_#ϋFP_#NI_#E ,'RRG2(%)Head(i! %E!Bh ?z!! a`$!!_ != Re@place(", ""a" &@ lotid"'")iRetCode`exe@cQuery rs5 If ( 0 Then@Do While .EOF() <> True_#measItemCollTecf(!i ) Fieldsx(7) Ap > 1 Cells(rowc . (p + (A - 2) * rodList.Count)20@c, infotd p1).Valu 3xEls dۂ 2 ( End%o _crs' .Addr%$o=1 oMoveNext_ /OLoop 4;Q0;C06/:07I9#p:/;/;(;7o; ?oo,=?"7>NrP/ IQ=qTI_ !tconnfDBSetG4-New ADODB.Record|se@! sub(d.US ERR0,nvl(lengthA),0)-E"SpA_W#ID5),ZSwaha.Dp d$ p"^oldL+0 AND _statp'N'ύ rs4.Open , csDBneɳction, 3@, 2 If rs4.RecordCount > 0 Th enoldL@otid =vFields(0)`End If{={lxson Id-s For p1 To rodList.$}3cπ#n-(pSm,7h 'id0ϛ)QmeasItemRomSColleaV,PRem ove 1["NeLxt[[SeA* CaseL "ORGH", IT" 7AtddH"RTR_ORGT!,R!-?,6O4%PC?9AyOOY M AD PPRAvBCClCCF ^/.+9J+CSNt'sLTBLTOnAO  OG#p/-?o b ?  $'OONhOXN@ qsv_actO ?t?<ՋiЋconnectDB sSqls tring`"SELECT PRODUCT_LOT_NO,'λ(OffOr ientaA)X' MEAS_ID@TEM,ORIENTATION_X DATA_VALUE, INGTIME,'' UNIT,'O OI FROM WAFERR EVICE WHEREl ='ON ALL6 ) & ooeYojmYoohooooo$o$ֿ(ohm-cm)Head8RESIS_S$su$' E$6KTailT6T6*OD WHERE PRODUCT_LOT_NO =' ' UNION ALL " sSqlstring = & "SELECT ,'()Head' MEAS_IDTEM,OXY_CONCEN_S DATA_V`ALUE, N O,INGTIME,'lT,'OGCH' I% FROM WAFERREVICEʏTail  T5T?IWORG(%G͏DRGH*B%@BB`B CBRG_Bf)!eB _g` ,'RBBBr!!B_!_!_!_!PdBD!BU!_WBB( ! COUN! !CSN" Appearance/ϰyTO_NUMBER(APPEARAw)Tw%R?w"??Ê_e` wC ppma!C_D%CƈD//1?///),'D&O4/Ǚ+DOX#OO,'LT,us."o_,LT"us Ъ3333O!!!U!o!Q!!!!As CoVntration9VFVA3ϟE"AC?"?"?"?"?"ookBoronB@߷vUBTNI4B?# /?/_Ph~o!!%%P-INGOT_TIME,'' UNIT,'PC' ITEM FROM WAFERREVICEROD WHERE PA(UCT_LN0O =' ON ALL "  sSqlstring =  & "SELECT o,'RRG2(%)Head' MEAS_ID ,,H DATA_VALUEF, bNO,%Tail TT~C-Replace(, " "" & lotiBd"'")_Cells(1, infotd + p - 1). Value@actrodiRetCod exe@cQueryJ,rDs5#If H0` ThenDo While .EOF() <> TrueaaFields(7)aj*` countm*27,h 3?$ crsCollection.Add j =G8+ 1'MoveNext?&Els4 g(End IfA0Loop?? _!  cYO>{CbQ?jA7 p' ǰ5иֵ &"Manuf@urersNamel2'"Part3Lob4hQtyCS5hNo\  > _N For QHoY?PPttr,y\mfgnpoooldic (ooaxql8=`ZN;- Ap plicaRXDiszyAlert2sFaMc0sav.OsPath1@ThisWorkbook.A f'0sp2\uI+.csv) 'c!ͻ ģus,erp0buct5= ; O&O Windows(".xlsm").AovatR%.SeqSqrCopye.SmallScru Down:=6t w sx u 1 A*1SheeztP s2o =&-~ CupyMS* S0+0As F` := #$,Jmat:=excel.XlQ3`CSV, Cre@Backup:=6B(Closnr0um` ~3 __#Ps):98 0?< ""7-Q=I p  aZp`"= Mid, 1, b2 If AHA" A#XZ" Then  b=GK$$E˭W oU ^W^] %      !"#$%&'(*+,-./0123456789:;<=>?@ABCEFGHIJKL\QRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~IHd1xME(0'H H嵥ļA@J Ϊոݳ嵥ѯӦdA@zdselect sum(wafer_count) count,product,customer,plan_date from COCMEASSHIPLISTSTD where FILE_NAME =' H%' GROUP BY product,plan_Date,customer'  ~ B@CUSTOMER %'  ! xmlļ]]]]] ]8]P &ÿһβͬƷϴεļ. ƷҵڵģļExcel.Application$p.RPRODUCT %'d *!\ͻģ\ \ d\ d.xlsx R!%. ȡģļsheet %.ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷ !ݳ嵥ļƷlotidselect user_lot_id,to_char(plan_date,'yyyy-mm-dd') plan_date,wafer_count,to_char(to_date(substr(memo,0,8),'yyyy/mm/dd'),'yyyy-mm-dd') memo,to_char(add_months(to_date(substr(memo,0,8),'yyyy/mm/dd'),12),'yyyy-mm-dd') memo1 from COCMEASSHIPLISTSTD where FILE_NAME =' H' and PRODUCT = ' d''  ~ B@ ½һexcelļ !!.\ ½excelļsheet \%. xmlͷڵMSXML2.DOMDocument$p.Shipment %.  / xDoc.Load xmlFilexml/version='1.0' encoding='UTF-8' standalone='yes' %.  % B@ ģļͷ   %>  %> B@    %>   ,>   d  ,>  %> d B@k  count %  ,>  %>count % B@k0(  % B@'' )ӵ15пʼѭΪʱlotж''  %>  '  'p /ӵlotrowпʼѭΪʱcheckж  '  %>  %> B@  ' ģļͷÿlotidı  !LOT %.  !%. user_lot_id %   ,> wafer_count %   ,> user_lot_id %   ,>memo %   ,>memo1 %   ,> plan_date %   ,> %> user_lot_id % B@ %> wafer_count % B@ %> user_lot_id % B@ %>memo %memo %$ B@ %>memo1 %memo1 %$ B@ %> plan_date % B@  ڵ ȫּ'.  %>   ,>  %>   ,>     %> %.   !!%%.   %>' ORGH ORGT RTRH RTRT RRGT RRGH PC OOY AC APPR BC CCH CCT CSN LTH LTT OGCH OGCT OON OOX ȡilotidǰĸ user_lot_id %$' HA HX HZ user_lot_id %A@dP user_lot_id % B@k  ORGHKORGTKRTRHKRTRTKRRGTKRRGHKCCHKCCTKLTHKLTTKOGCHKOGCTKOONKOOXKT !'PCKOOYKACKAPPRKBCKCSNKT !'n ^select meas_min,meas_max,meas_avg,meas_item,meas_stdev from cocmeasdatasum where user_lot_id=' user_lot_id$' and meas_item=' ''ADODB.recordset$p.   ~ B@meas_avg$     ,> meas_stdev$     ,>meas_max$     ,>meas_min$     ,>MINmeas_min$  B@MAXmeas_max$  B@SD meas_stdev$  B@MEANmeas_avg$  B@     ,>+lotidѯsum,ݼѭ NULLe    ,>    ,>    ,>    ,>    ,>MIN B@MAX B@SD B@MEAN B@d /select * from cocmeasdatainfo where up_lot_id=' user_lot_id %' and meas_item=' '' ^select meas_min,meas_max,meas_avg,meas_item,meas_stdev from cocmeasdatasum where user_lot_id=' user_lot_id$' and meas_item=' ''ADODB.recordset$p.   ~ B@ADODB.recordset$p.  ~ B@ !'      ,>meas_avg$     ,> meas_stdev$     ,>meas_max$     ,>meas_min$     ,>MINmeas_min$  B@MAXmeas_max$  B@SD meas_stdev$  B@MEANmeas_avg$  B@d     ,>MIN B@MAX B@SD B@MEAN B@kkN  B@k     %>   ,>  %>   ,>  %>   ,>  %>   ,>  %>   ,>k  ' B@..]h $' *!\ͻģ\ \ d\ PLAN_DATE %/.$- %>- %>-  %>.xml A@.. *!\ͻģ\ \ d\ PLAN_DATE %/.$- %>- %>-  %>.csvA@ *!\ͻģ\ \ d\ PLAN_DATE %/.$- %>- %>-  %>.csvH \B@ \( \( PLAN_DATE %- %>- %>-  %> ( \B@ \B@B B@B B@A@kolotidѯ]A@z]'`8select * from waha.DERP_WAFCREATE where USER_LOT_ID = ' '' and USER_LOT_ID != org_user_lot_id_01'  ~%.ORG_USER_LOT_ID_0 `  %ORG_USER_LOT_ID_0 `  %' $' HA HX HZ ` '`  B@d@ ` '` A@kiʽxml,(]]Msxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'i( utf8BOMʽ]h .B@ 0 .(lutf-8 .(2 8 .B@4 , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:] > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@BiPHAttribute VB_Name = "ģ7" Dim lotidCollection As New D Sub click_1() 'xmlģ".ȡ嵥0jFi,lecSng "dataE@xcel,  workbook addW #'ƷĀsqlproductS ""ǁ}+ 1   Wend AC BcheckCRC >EY?IdCollection.Add8PE@gGZ'ģļͷ ÿ=id@ı For ite01 ToRecor@5, @>/@ newaccreateElement("L|OTq}S B puaD .appDo>(d) /l15Cu"$"ub__idM 6_ "wafer_k֡M 7_ "18_ "memo?X(19 b 1 (20 "plan:_ e 15, =Ag 6 ? 7# 18IIf(>!:Null,@b1 &D3:N o/T19o.P% ,oqr20(#4WyEW5QW^J'\0ڵO'ȫּ?1w,@\ lothing ?a,U@=Tv(2a02?Р*>46BEoho( z - 1$ v1R2}q.%c:r&)osde1/s*ID!_ _ 6Q"ORG@H" Or ;Tq=RTR~0RFG??"PC^O Y-ANAPPR%]B^CC CCn CSNLTLTOG0OOOX"-'0?!'@ȡi6p= MidezAA20"HA";%ZYgetLot o j O5Else/ *0KiM2p@oj?9Se!` Case%8@ Case "@ORGH",TqRTR< 0/W=R-c  /{/-o#o/  o^R3OJO? BO A ϘQqR ϘOf.5m tNode1.setAttribute "MIN", $""5AX9|SD:|EA%oEndx IfMnu˙(If lotrowitem =% + 1@5 ThenUaddsheet.@Cells( + rodcoun t, 3)dataExcelS/ GA 44)U556677SN? ?FI Next#CidSJMo|veSo` new@NothingObj kDim xmlStr As = PrettyPrintXm@l(xDoc,,Wr`mUtf8WithoutBomlisWorkbook.Path & "\ͻģ\"@customerp,uctNamefReplace(d)Fields("PLAN_DATE")/h.")!- u3W"yW4_9E.? %%, -5ro~o1a*:+ On Error 0Resu$/FKill00000(0(0csv,b.Save\FileAJ:=ThRp)))))& )fo~fo.o&$FDis yAlerts@(FalseAo.Visible_Qs;= ; ;%/8w.? !Clo!wM^;:cDBgqSub Function getLotIdColle"(eG[X'ݲѯc_RecorbdObj0c8onnE sqlgSp0A= "se * frp_waha.DERP_W AFCREY where USER_LOT_I:D@'Y q ' aP!= org_user_`_id_01d>S = csDBC3 p.ExecM( Wh @ S.5dORG_i_0 (~)) <> p. (2pA0= MidC , 1, 2X!HA" ArXZ"^2 =  i%.AddhE@/ *n .AWend ./'ʽt,`(1m`ldoc)*,rxead_.wQ%4= C te("Ms2.SAXXMLRr.6.0"t4MrrC.indent%TruWomit Declara2A= W .;tH040\p4Parse (v.OutpuЬ uPBOMpom(w, 'T)st mNew ADODB.3 .Op.HTyp1iadTCh" -8dDp PteText " @vbCrLfPstream.Wricontent 'Ƴǰڣ0xEF ,0xBBF&GPosita = 3Dim newSj As New ADODB.A.Type adBinary1 ModRe ad`Open  QCopyToH Flush lose QSaveToFile NameP, ad CteOJCEnd FuncP 0-BxMEX<6 <`<<< <(<0<8<@BJHx @ @ H0h @P  p8 @ @ @ @  @@ @ @x @` pH @0 @ ( @  x k$*\Rffff*Su6c06f1fe">(( @P B X`hpx "..  <8> *8.h< * & l&`$r( P  .X<x & l&`$r.  <@>X>p> $. &` & l :@8  .: T .xH& l * $r     $  08  "@  h  pB (.&.   ( "8H  PB hp 2x &"8  &H  p       2 8     "      0 ]XAI1$v' .xml'$ A@ o(p]]]]0]HMSXML2.DOMDocument$p.coa %.  /xml version='1.0' encoding='Unicode' %.  % B@#cells = Sheets(1).Range("A2:AB200")head %.  !%.$tNode.setAttribute "type", "program"  $> %.  !!%%. $> % B@ description %.  !%.  $> %.  !!%%. $> % B@products %.  !%.AI2$v'hAI3$v'AI4$v''  hproduct %.  !!%%.  $> %.    !!%!%%.    $> % B@@ parameters %.    !!%!%%.              parameter %.    !!%!%!%%.  $> %.             !!%!%!%!%%.  $> % B@  '  ..]` $'  A@..MsgBox xmlFile & ""iʽxml,x]]Msxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'i utf8BOMʽ ] .B@ 0 .(lutf-8 .(2 8 .B@4 , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:] > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@BiIAttribute VB_Name = "ģ8" Sub о_createxml() !Dim 8File As S ng4,_pathRange(`"AI1"nf=zL& ".rEXCiXml^ ` End ] Functiotn '(R DocObjectrootN od] headernew&A6Set xB=X6("MSXM@L2.DOMumentOE.Ele("coa 2.%$ p -ProcessingInstru Y("e, "vers]='1.0' encodA@ ='Unie'.A:.ertBefore ,@.ChildAPs(0i 'cells@*Sheets(1).E2:AB200EE`EI e F.append$($' .set"type"BprogramCDor t/1 To 7YZ+CA>(1, t)D8-GP.itemQ119 (hQTex(2N/descrips0Yu@F*8*18 @*dR*@PC*\*) _)`Ld ps(_B@M8YeJsublotcouvnT&24H3m1F40a5s`h $`2)xI J19!J2 2OK!K` '- N/ y(D * '<+ | ()Op/-hpaPPetaSoocbmh^6o5 d,G Bi'2 + (-1@)'/1'* + <1 !agnt("6# Tq!s#?o/ s?U/2i2i@ j4TLj_/P_ _ i(emKm)) ?5/rtdeti&rTq3 T!1&0)ar 1#isPaS![NothU`q`&Q= PrettyPrintдb !Wr Utf8WithoutBoml?Ȩ h wc'MsgBox5 03  ' ʽ , mldoc)w_A@1Ns2P.SAXRr.6.4M rC.ind3Trueomit DecflpV= W .contHandl= 4ParsebTOutpu') u"ހBOMs$m(V, 7(st mNew ADpODB.3# .6O0 T` adg!Cha"} -aq:r 1 "AvbCrLfZ w 'Ƴǰֽڣ0xE@F,0xBBAF c Posi}#30_0>eam As New ADODB.stream !newSp.Type = ad Binary ModDRea@dWrite JO8pen&,.CopyTo m  Flush .losWSaveToFile `Name,CteOver 1'C3End Functio\  8 nxME(6 <<< j `` `l t `` `l h P%H`x 8Ph(@Xp0H`x 8Ph(@Xp0H`x 8Ph k$*\Rffff*T86c06f1fe&"* @LH     8Pp  x "* L H` x ]XScripting.FileSystemObject$p.]p7C:\Users\chentaiyu\Desktop\E_VP8_02_250118160139507.csv %n .l  ļǰǷΪֻ l !p r  Ƴֻ l !p r  l (p ֻƳA@Jd ֻ l !p r  l (p ֻԡA@Jk ͷFileSystemObjectʵ.l .oP]Scripting.FileSystemObject$p.]7C:\Users\chentaiyu\Desktop\E_VP8_02_250118160139507.csv %n .l  ֻ l !p r  l (p  ͷFileSystemObjectʵ.l .oPHAttribute VB_Name = "ģ9" Sub ModifyReadOnly () Dim fso As Object,Set,= Create6("Scripting.FileSystem"PV! W=^.GetG("C:\Users\chentaiyu\Desktop\E_VP8_02_250118160139507.csv t' ļǷΪIIf f<.s And vb T=' Ƴԇ "d+Not-Msg Box "+2:Else' 1AOrZ GCIfC' ͷhzʵ‰?@@?@ABCDEFGHIJKLMNOPQRSTnWXYZ[ _`abcdefghijklmnopqrstuvwxyz{|}~46jxME@(v T6  LPLL"  LL<<<<<0  `(kVV`D`>` %``X` `p x8% ` H` @ H8``(``8 %X+,H,,,,0,,@- X x ) >Jzptx@@ @ @( @@ @ @p @h @HP @8 @ @< ~x*Htv@@ @B @ @h @P @H8 @ @ @ @ @h @ @P @x @ @` @H @0 @ @ @ @ @( @8 @ @ @h @0P @ 8 @L @  @  @( @ b@  P ( b ( i@N @ @ x @` @ H {@( 0 @ {@  @P h ( @P  h P ( @ @( @,  @ @p @X @ @ @ 8 @ P @ ` x @ @ ` @x 0 @`@  P P @ @ x @h X @ @@ @h @(P @8 @0  @ h@ @\X @` @  8@H ` @ pHH@ p @b X @h @ @ ( @* `  @  8 @x   @ @8 @ x@@ X@L x h @N P @0 @  @ @h @@8 Ph8 8@ @ @ @ x @f ` @`H @`0 x8+@ `+@ @ H @  7@`87@x @H ` @@ph H@@P p@@8 M@0`M@8 (X@``PX@ x8c@``cpm`ohp@h  v y@ 0@@ X@h @@x h@` @j H @l 0 @ (@ @P @h @ @   @ @2 h @0P H@x8 X0h0@ x@ @ @@`0@x X@`h@@ x@`@ @x 0@@` X@H h@x@@`0 `@ `p  8Px@x @ x`@` @( `@P`@` @x h(`@P`P @ x @   @p   @(X @  @x@ h(`@8`P @ x`@(`8%@P @*@`h(* @x P8 @` Px8xXx p  0 @h`hx;@x "@ Xx p  0 @h`@ X`>@ x>@ C@ x` C@P ` 0 O @x X`@  O h xW@ @ P \@x!8` x \@ j @! j ! m@(! @!!p@P! h!(!p@! !P!u@!`!x!u@" !! @("`!! "(!@P" @""@#x`h"("@x"` "P" @"H "x" "x"@"0 #"@# $(#"@$ 8##'#@ `p  "#@'`@H' '! $($0$@ `p  8 #H#@ `p  8 #H#"%%@ `p  8#H#$@ `p  8#H#%&&&('$@p'`8'' `'"@' 'H'@(`'p'@' -@&'''@( (' (('@8(p P((@`(X x(8(@(@ (`(@(8`((@) ((@8)`)( ()8(@`) P))@P*`x)8)@) )`)@) ))  ))@* *)@(* @**@x* h*(* @*x`*P* @*` *x*@+X`** **@,@ +*$@@-8`-+$@  @ @ @  @ X+ @  @  @ (+x @ @+` @ +H @ 0 @+ @+ @t , @v p+ @x, @P @x + @z p p @-X 0-,@X-@ p--@`,( @- -X-@-`--@ . .-@.`p0!-.-8.-@H. `. .@p. .H.@. .p.@.`..@ / /.@/x`/.8/H.@H/` `/ /@/H p/H///`x,@/0 @/(`//@(0 0/@X0`0/H0H/@ .0(0@`00X00$@'H0h k$*\Rffff*SM6c06f1b5*\R1*#2a3*\R1*#40a*\R0*#9*\R0*#18*\R0*#10*\R0*#1a$*\Rffff*TL6c07b88c*\R1*#43*\R1*#2a2*\R1*#12*\R1*#135*\R1*#14a*\R1*#14b*\R0*#12*\R1*#14a$*\Rffff*TK6c07b88c$*\Rffff*TE6c07b76b*\R4*#7*\R4*#1$*\Rffff*TD6c07b697*\R0*#17*\R0*#f*\R1*#2a3*\R1*#130*\R1*#141*\R1*#409V"  ( 4@dP h  Lx  (0008 P`hpx<F**  P&` $ "   (  H `  x    ( *( D  8n0 Ph N@R( H <`  $   2  ( 0 @ 2X    BL   .  (    0RP p x & F  P  ( V8 >P Jp 4 (h 0 0 F  & .^ $dP dx        RN X 0 rF  (  0  0P  F    2 *  ( $@  &X  2  4  8  8(  $`^xpp  " @R (80X0F ,  L b0 $ L b $x L b $X6866(  `4p & L( F$$ $($0$8 @H $P4` & L( F$$$$ $( 08@ H&PL(x F    0  8 H$U Vh0ThThUhhU T VU$~PBx V > J & .^$d0 dXx   2 tL PT NF H (X 0x 0 F 8 2 0P 4 &   ( 0 0H Jx L  DF F` x   s $P".ph$T^^P V  \ .( @ $ H    6  8 ( 08 0V ^V Fh  2$$.$$$2$>$\ $ 8$ H(,X(&( F,,,,($ $  (  (8( ,<@ 0 8` 4. 4 8 8L 4 48 4 0!8 "@!<&P!< Fx!@!@!@!@!<!8!4!4 !8 "!<&!< F"@"@ "@("@0"<8"8@"4H"0 P"4,X"4&"4 F"8"8"8"8"4"0"0 ",#, #(#$ # (#0#8#@# H#P#X#`#h# x# #  (# 0# 0# J$ L `$ DF$ F$ %   % 8(%".@% (h%0%0%`0%FH& `&$p&T&^&^& &p& (P'0p'0'0'F(,( @($"q$>p(6p0*p(p$p$ q ) ) 2)$ 0)(.@),,p),&), F)0)0)0)0),)(*$*$ *(. *,,P*,&*, F*0*0*0*0*,*(*$* * * 8+ R>8+ F+ F+$+$+$+$, ,, o (@k0`k0kv0oF l,8l @Hl$Bk$> p(6@p0*Xp(l$p$ k hl pl 2l$ l(.l,,l,&m, F0m0@m0Hm0Pm0Xm,`m(hm$pm$ xm(.m,,m,&m, Fn0 n0(n00n08n,@n(Hn$Pn Xn `n 8hn R>n Fn F@o$Po$Xo$`o$ho poxo(, (@,0`,0,v0,F8-,P- @`-$^-$ 8r - <- (. 28.$ P.(.`.,,.,&., F.0.0/0/0/,/( /$(/$ 0/(.@/,,p/,&/, F/0/0/0/0/,/(0$0 0 0 8 0 R>X0 F0 F0$1$1$1$ 1 (101,@x (s0s0t0pxF0t,Ht @Xt$^xt$ t t <t 0u 2@u$ Xu(.hu,,u,&u, Fu0v0v0v0v, v((v$0v$ 8v(.Hv,,xv,&v, Fv0v0v0v0v,w(w$w w w 8(w R>`w Fw Fx$x$x$ x$(x 0x8xx\ (W0W0Wv0XFxX,X @X$^X$ Hr  Y <(Y hY 2xY$ Y(.Y,,Y,&Z, F(Z08Z0@Z0HZ0PZ,XZ(`Z$hZ$ pZ(.Z,,Z,&Z, F[0[0 [0([00[,8[(@[$H[ P[ X[ 8`[ R>[ F[ F8\$H\$P\$X\$`\ h\p\\ (\0\0]v0@]F],] @]$^^$ Xr `^ <h^ ^ 2^$ ^(.^,,_,&@_, Fh_0x_0_0_0_,_(_$_$ _(._,,_,& `, FH`0X`0``0h`0p`,x`(`$` ` ` 8` R>` F0a Fxa$a$a$a$a aaa (a0b00b0pfF`b,xb @b$^b$ hr c <c Pc 2`c$ xc(.c,,c,&c, Fd0 d0(d00d08d,@d(Hd$Pd$ Xd(.hd,,d,&d, Fd0e0e0e0e, e((e$0e 8e @e 8He R>e Fe F f$0f$8f$@f$Hf PfXfDj (g0(g0Xg0sFg,g @g$Bxr$ g g <r g 2g$ h(. h,,Ph,&h, Fh0h0h0h0h,h(h$h$ h(.i,,0i,&`i, Fi0i0i0i0i,i(i$i i i 8i R>j Fpj Fj$j$j$j$j jj81 J2 882 8p2 NL2 (2030H3Fx33,3 &3 3 v3 NL3 (@4 0`4 04 F4 ,4$&4$85  5$ v(5$NLH5$ (5$05$05$F6$,06(&@6(8`6$ x6( v6(NL6( (6(07(0@7(Fp7(,7,&7,87( 7, v7,NL7, (H8,0h8,08,F8,&8,89(9$ 9 (909 "89 NLH9 (9 09 09 F: 0: ,8:$&H:  h:$ vp:$NL:$ (:$0;$00;$F`;$,x;$&;$8;$ ;( v;(NL;( (8<(0X<(0<(F<(,<,&<,8=( =, v =,NL@=, (=,0=,0=,F>,,(>0&8>08X>, p>0 vx>0NL>0 (>00?008?0Fh?0&?08?,?(?$? ? ?$?$ (x@$0@$0@$F@  A$z^A$ (A$0A$0A$FB 0B p^8B (B 0B 0B F(C 4@C HC XC (C 0D 08D FhD D z^D (E 0(E 0XE FEEp^E (F08F0hFFF "F 4F$$F$2G(  G,.0G0&`G0 vG0 FG4G4G4G4G0G,G(G( G,.H0,0H0&`H0 FH4H4H4H4H0H,H(H$H :H$$H$2 I( 8I,.HI0,xI0&I0 FI4I4I4I4I0J,J(J( J,.(J0,XJ0&J0 FJ4J4J4J4J0J,J(J$J K K 8K$$0K$2XK( pK,.K0,K0&K0 FL4L4 L4(L40L08L,@L(HL( PL,.`L0,L0&L0 FL4L4M4M4M0M, M((M$0M  8M$XN@M$FM FM$M$M$N$N N N N(N0N8N@N PN `N $~hNBN ,N N @N r8O    PO JP    PP >`P 4P P 6P RP 0Q 8Q  HQ XQ pQ 0Q Q Q Q 6Q Q  Q(^y Q0y嵥ļļرĻˢ´ĺ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]]]]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dhWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hkhd`7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xlsx$x]  ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@p$t!' lot data $tB@Hkxselect sum(WAFER_COUNT) wafcount,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO from COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@'  d $>total quantity of waferwafcount L% +> $>e ' Exit ForkH@ѭsublotid ?INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =dh.SUBLOT_ID ' JINNER JOIN COCMEASSHIPLISTSTD cocd ON ms.CUSTOMER_SUBLOT =COCD .SUBLOT_ID ' .WHERE OPE_ID IN ('EPKG','PKG') AND FILE_name=' H)' AND dh.HIS_CAT ='OC' ORDER BY SHIP_SEQ'ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@ L!'N  :  $v %' #Cells(8, 20) = "=COUNTA(I1:I65536)" B = Cells(8, 20) LOTON = B + 11  NOK    +> SUBLOT_ID L%   +> WAFER_COUNT L%   +>HIS_REGIST_DTTM L%   +>HIS_REGIST_DTTM1 L%   +>    $>'   $>'(   $>', gz = Cells(itemdyg, B)itemtype = Cells(itemdyg, B)  ̶ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@ !F If gz = "ave" Or gz = "AVG" Or gz = "Avg" Then\ Cells(subcout + lotrowitem - 2, 10) = measset.Fields("meas_avg") End IfF If gz = "max" Or gz = "MAX" Or gz = "Max" Then\ Cells(subcout + lotrowitem - 2, 10) = measset.Fields("MEAS_MAX") End IfF If gz = "min" Or gz = "MIN" Or gz = "Min" Then\ Cells(subcout + lotrowitem - 2, 10) = measset.Fields("MEAS_MIN") End IfMEAS_AVG %    +> MEAS_STDEV %    +>MEAS_MAX %    +>MEAS_MIN %    +> , MEAS_MAX % , NG    +>    $>    $>$vB@H ! 9 9999q k ( eMEAS_MIN % ( NG    +>    $>    $>$vB@H ! 9 9999qkkdNG    +>    $>    $>$vB@H ! 9 9999qkdk  ' LB@ :  $B@H | B@v$t!'  wafer data $tB@Hk'  d $>total quantity of waferwafcount L% +> $>e ' Exit Fork80  :  $v %'lSELECT SHIP_SUB_LOT_ID,WAFER_COUNT ,SUBLOT_ID,c2.WAF_ID,c2.SLOT_NO,C2.READ_WAF_ID FROM COCMEASSHIPLISTSTD c ' >INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID ' EINNER JOIN COCMEASDATAINFOS c2 on c2.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' WHERE FILE_NAME =' H!' ORDER BY SHIP_SEQ,c2.SLOT_NO '[ ADODB.recordset$p.\ t \(r-αͣ޷ x \(v0αԣ޷  ~ \B@ \!'N  \! SUBLOT_ID \%   +>SLOT_NO \%   +> READ_WAF_ID \%   +>OK    +> \B@ADODB.recordset$p. t (r-αͣ޷ x (v0αԣ޷Bselect c2.SUBLOT_ID,ms.SHIP_SUB_LOT_ID from COCMEASSHIPLISTSTD c2 'b b >INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c2.SUBLOT_ID 'b b  WHERE c2.FILE_NAME =' H' ORDER BY SHIP_SEQ 'b b ~ B@ !'h   af  $>'L  $>'N item $(]H]] ;$'0'  yp]y *  hwafcou' SHIP_SUB_LOT_ID %' To sub (kX $' ȡ㷽ʽ0 $' ȡѯsqlֵg = $$' ADODB.recordset$p. t (r?αͣ޷  ~ B@ect("A !'f et")  f  ]    $> $']8]P  $'ounts $ $' ;$' ' Fo afcoNG    +>   $>B@H  ! 9999 $>' Foqk @ B@r   !tt WAF_ID %@measdata % measdata %'ior  $X'8ֵ  $$' k 0.00000$X   +> N   N m.Fi   $>B@H ! 9999qkk L   L    $>B@H  ! 9999qkkdNG    +>   $>B@H ! 9999qk  'iok B@ kkkd'h k f ' B@ ADODB.recordset$p. t (r-αͣ޷ x (v0αԣ޷Bselect c2.SUBLOT_ID,ms.SHIP_SUB_LOT_ID from COCMEASSHIPLISTSTD c2 'b b >INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c2.SUBLOT_ID 'b b  WHERE c2.FILE_NAME =' H' ORDER BY SHIP_SEQ 'b b ~ B@ !'h'  *  !SHIP_SUB_LOT_ID %' ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷9SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' 'order by SLOT_NO '  ~ B@ !'f    $>'  $>'L  $>'N  cMNAPRESP1;MNAPRESP2;MNAPRESP3;MNAPRESP4;MNAPRESP5;MNACPTRE1;MNACPTRE2;MNACPTRE3;MNACPTRE4;MNACPTRE5ADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷SELECT MEAS_ITEM_689,MEAS_ITEM_857,MEAS_ITEM_859,MEAS_ITEM_860,MEAS_ITEM_861,MEAS_ITEM_862,MEAS_ITEM_867,MEAS_ITEM_868,MEAS_ITEM_869,MEAS_ITEM_870 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j !   j ! 8 j B@B  f  N    $>$8 N NG    +>   $>B@H ! 9999q@k8k0 L    $>$8 L NG    +>   $>B@H ! 9999q`kXkPHd@ 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999q0k( OXYCONCENHEAD;OXYCONCENTAILeADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷NSELECT MEAS_ITEM_233,MEAS_ITEM_234 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j !   j ! MEAS_ITEM_233 j % MEAS_ITEM_234 j %D   +>X 5Cells(21 + wafcount, itemcount).CopyFromRecordset res j B@B  f  N    $>$8 N NG    +>   $>B@H ! 9999q k k L    $>$8 L NG    +>   $>B@H ! 9999q@ k8 k0 ( d 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999q k MTQC MMCL  METK  MER2  MEPC  MMK3  MFMM  QMK3  MNA @3839e ; $' 2jingshu2 = Split(jingshu(1), "/", , vbTextCompare)2jingshu1 = Split(jingshu(0), "/", , vbTextCompare)2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷  ~ B@' ! COLUMN_NUM %' dp$ / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@ ! COLUMN_NUM %' /$ ' d$ - $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ ! COLUMN_NUM %' -$ ' d$ * $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rKαͣ޷ x (vNαԣ޷  ~ B@ ! COLUMN_NUM %' *$ ' dh$ + $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rOαͣ޷ x (vRαԣ޷  ~ B@ COLUMN_NUM %' +$ ' k kkk 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ '' ADODB.recordset$p. t (rDαͣ޷ x (vGαԣ޷ ~ B@' ! COLUMN_NUM %' d$ / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ ! COLUMN_NUM %' /$ ' dx?$ - $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rKαͣ޷ x (vNαԣ޷  ~ B@ ! COLUMN_NUM %' -$ ' d >$ * $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rOαͣ޷ x (vRαԣ޷  ~ B@ ! COLUMN_NUM %' *$ ' d<$ + $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rSαͣ޷ x (vVαԣ޷  ~ B@ COLUMN_NUM %' +$ ' k;kx;kp;kh;  SELECT ROUND(MEAS_ITEM_ ,5)  4 data2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO'ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@d(:SELECT MEAS_ITEM_ 4 data2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO'ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@k9SELECT COUNT(MEAS_ITEM_ 6) count2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' 't ADODB.recordset$p.v t v (rDαͣ޷ x v (vGαԣ޷ t ~ v B@k7  SELECT ROUND(MEAS_ITEM_ ,5)  3 data1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO 'ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@d6SELECT MEAS_ITEM_ 3 data1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO 'ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@k5SELECT COUNT(MEAS_ITEM_ 6) count1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' 'x ADODB.recordset$p.z t z (r@αͣ޷ x z (vCαԣ޷ x ~ z B@ count1 z % f    $>B@@  f  N    $>$8 N NG   +>  $>B@H ! 9999q`3kX3kP3 L    $>$8 L NG    +>   $>B@H ! 9999q2kx2kp2h2count2 v % f e   $>B@@  f  N    $>$8 N NG    +>   $>B@H ! 9999q81k01k(1 L    $>$8 L NG    +>   $>B@H ! 9999qX0kP0kH0@0k80d00count1 z %   $>B@@  f  N    $>$8 N NG    +>   $>B@H ! 9999q/k.k. L    $>$8 L NG    +>   $>B@H ! 9999q .k.k..d.NG   $>  f   $>+v  $> f  $>$vB@H ! 9999q(-k -k-k-k- f ' B@, :  $B@H | B@v%------------------------------------- dataworkbook.Save: 'dataworkbook.SaveAs ss & filename & ".csv", xlCSVk dataworkbook.SaveAs ss & Cells(2, 5) & "-eC.O.A Format-" & Cells(2, 2) & ".xlsx", xlWorkbookDefaultJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ7Set p_workbook = Workbooks.Open(ss & filename & ".csv") (Columns(8).Delete (K-----------------------------------------------2---------------------------k* <B@ B@p_workbook.Save رչ B@Bp_workbook.Close)Ļˢ´ (rA@o))gSELECT MEAS_AVG, MEAS_STDEV, MEAS_MIN , MEAS_MAX , MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' SUBLOT_ID1 L%' AND MEAS_ITEMS =' ' AND FILE_name=' H' AND MEAS_PCS <>0 '8WSELECT cocd.PRODUCT_ID ,COCD.SUBLOT_ID ,dh.SUBLOT_ID SUBLOT_ID1,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'yyyymmdd') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,18),'yyyymmdd') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh 'VVV  '  $>  N  $>$v !%(    +>  $>  N  $>$v !%4    +>  $>  N  $>$v !%(    +>  $>  N  $>$v !%4    +>@U  XX   kXX MFP5 MWE3 cMNAPRESP1;MNAPRESP2;MNAPRESP3;MNAPRESP4;MNAPRESP5;MNACPTRE1;MNACPTRE2;MNACPTRE3;MNACPTRE4;MNACPTRE5 x (vBαԣ޷SELECT WAF_ID,  C measdata,SP_DATA_STATE FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' 'order by SLOT_NO 'ESTExADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷NSELECT MEAS_ITEM_235,MEAS_ITEM_236 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j !   j ! MEAS_ITEM_235 j % MEAS_ITEM_236 j %D   +>n 5Cells(21 + wafcount, itemcount).CopyFromRecordset res j B@B  f  N    $>$8 N NG    +>   $>B@H ! 9999qmkmkm L    $>$8 L NG    +>   $>B@H ! 9999qlklklldl 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999qkkk ORGTAIL;ORGHEADek RRGHEAD;RRGTAILeADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷NSELECT MEAS_ITEM_231,MEAS_ITEM_232 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j !   j ! MEAS_ITEM_231 j % MEAS_ITEM_232 j %D   +>t 5Cells(21 + wafcount, itemcount).CopyFromRecordset res j B@B  f  N    $>$8 N NG    +>   $>B@H ! 9999qrkrkr L    $>$8 L NG    +>   $>B@H ! 9999qrkqkqqdq 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999qpkpp CHEAD*5;CTAIL*5eADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷ l ~ j B@ j !   j ! MEAS_ITEM_239 j % MEAS_ITEM_240 j %D   +>8y 5Cells(21 + wafcount, itemcount).CopyFromRecordset res j B@B  f  N    $>$8 N NG    +>   $>B@H ! 9999qxkwkw L    $>$8 L NG    +>   $>B@H ! 9999q wkwkwwdw 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999qukuunSELECT MEAS_ITEM_239*5 MEAS_ITEM_239,MEAS_ITEM_240*5 MEAS_ITEM_240 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l ADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷ l ~ j B@  j !   j ! 21 + j B@ itemc( j B@Brdset   f  N    $>$8 N NG    +>   $>B@H ! 9999q|k|k| L    $>$8 L NG    +>   $>B@H ! 9999q{k{k{{d{ 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999qzkz 7(ORIENTATIONX*ORIENTATIONX+ORIENTATIONY*ORIENTATIONY)eADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷ j B@TEM_68 MEAS_ITEM_689 j % MEAS_ITEM_857 j %D'k l ~ j B@ j !   j ! w j B@B  f  N    $>$8 N NG    +>   $>B@H ! 9999q vkvkv L    $>$8 L NG    +>   $>B@H ! 9999q@uk8uk0u(ud u 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999qtkt MNAPRESP1;MNACPTRE1eNSELECT MEAS_ITEM_689,MEAS_ITEM_857 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l h 2   2$MEAS 2$   +>  2  rr)EA 2$ 2$   +>nS_ITk0t(t j B@ MEAS_ITEM_689 j % MEAS_ITEM_857 j % MEAS_ITEM_859 j % MEAS_ITEM_860 j % MEAS_ITEM_861 j % MEAS_ITEM_862 j % MEAS_ITEM_867 j % MEAS_ITEM_868 j % MEAS_ITEM_869 j % MEAS_ITEM_870 j %D ' j B@862 j B@ MEAS j B@ j % j B@ MEAS_ITEM_DATA j %$    +>_240 F 5Cells(21 + wafcount, itemcount).CopyFromRecordset res c W{SELECT (MEAS_ITEM_227*MEAS_ITEM_227+MEAS_ITEM_228*MEAS_ITEM_228) MEAS_ITEM_DATA FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l BY S' ADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷ l ~ j B@x j j !   j ! SELE MEAS_ITEM_233 j % MEAS_ITEM_234 j %D   +> S j B@'l @ 5Cells(21 + wafcount, itemcount).CopyFromRecordset res j B@BTEM_23  f  N    $>$8 N NG    +>omRe   $>B@H ! 9999qkk L NG   $>$8 L NG    +>   $>B@H !r 9999q(k kd 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+vq  $> f  $>$vB@H !NG 9999qk OXYCONCENHEAD/2;OXYCONCENTAIL/2e nSELECT MEAS_ITEM_233/2 MEAS_ITEM_233,MEAS_ITEM_234/2 MEAS_ITEM_234 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l 'Ӣ H resļA@JȆӢ H resļA@JROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l '@8CHEAD*5;CTAIL*5eADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷ l ~ j B@ j !   j ! MEAS_ITEM_239 j % MEAS_ITEM_240 j %D   +>8y 5Cells(21 + wafcount, itemcount).CopyFromRecordset res j B@B  f  N    $>$8 N NG    +>   $>B@H ! 9999qxkwkw L    $>$8 L NG    +>   $>B@H ! 9999q wkwkwwdw 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999qukuunSELECT MEAS_ITEM_239*5 MEAS_ITEM_239,MEAS_ITEM_240*5 MEAS_ITEM_240 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l ADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷ l ~ j B@  j !   j ! 21 + j B@ itemc( j B@Brdset   f  N    $>$8 N NG    +>   $>B@H ! 9999q|k|k| L    $>$8 L NG    +>   $>B@H ! 9999q{k{k{{d{ 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999qzkz 7(ORIENTATIONX*ORIENTATIONX+ORIENTATIONY*ORIENTATIONY)eADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷ j B@TEM_68 MEAS_ITEM_689 j % MEAS_ITEM_857 j %D'k l ~ j B@ j !   j ! w j B@B  f  N    $>$8 N NG    +>   $>B@H ! 9999q vkvkv L    $>$8 L NG    +>   $>B@H ! 9999q@uk8uk0u(ud u 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999qtkt MNAPRESP1;MNACPTRE1eNSELECT MEAS_ITEM_689,MEAS_ITEM_857 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l h 2   2$MEAS 2$   +>  2  rr)EA 2$ 2$   +>nS_ITk0t(t j B@ MEAS_ITEM_689 j % MEAS_ITEM_857 j % MEAS_ITEM_859 j % MEAS_ITEM_860 j % MEAS_ITEM_861 j % MEAS_ITEM_862 j % MEAS_ITEM_867 j % MEAS_ITEM_868 j % MEAS_ITEM_869 j % MEAS_ITEM_870 j %D ' j B@862 j B@ MEAS j B@ j % j B@ MEAS_ITEM_DATA j %$    +>_240 F 5Cells(21 + wafcount, itemcount).CopyFromRecordset res c W{SELECT (MEAS_ITEM_227*MEAS_ITEM_227+MEAS_ITEM_228*MEAS_ITEM_228) MEAS_ITEM_DATA FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l BY S' HtCT (MEAS_ITEM_227*MEAS_ITEM_227+MEAS_ITEM_228*MEAS_ITEM_228) MEAS_ITEM_DATA FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l BY Ss'l DEsT_NO "ems ' ORDER BY SLOT_NO 'l XsRessql = "SELECT (MEAS_ITEM_227*MEAS_ITEM_227+MEAS_ITEM_228*MEAS_ITEM_228) vule1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='" & sublotid & "' ORDER BY SLOT_NO "emr Array(res.Fields("MEAS_ITEM_689"), res.Fields("MEAS_ITEM_857"))`r8Attribute VB_Name = "Ӣ" Sub 0() '嵥ļ2'رĻˢZ Application.ScreenHUpdngFalseNFile|Trim(Cells(1, 2)w If $"" Then< MsgBo@x ("h"I(E0xit :End/connectDBSet wp= CreateObj("ADODB.recordset..Curs orTypad@OpenSt{c 'ͣ޷ " LoadUseClient#ԕ#Dim pdsrc As Sngk wpsql v!Ʒss aaARangCoitem nuDoubl sotid %SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" && "' GROUP BY JCboK, csDBC@JWh.EOF <@> TrueTжǷһX'ȡ@tr@{Fie`lds("*ɱ'õ˾0"AcustomernyB("7Há7Dp8ath1 $Cԭ0~·һ'ӵ繲a+R<\\10.A52.142\coc\. Server0Shar112ģ,erEadministratorPasswx."fthw-82905028hICFolder sts()%DE@ 0 Elt Net kkW`ipt.)Afsoing.ASys u# -!.MapDrive "",)2$, ", ,, w%)Kg 1'%FaK%S=Ax\A?\|^!7i ')K` \  & hD'ThisWorkbook.PiDebug.Pri &X`".xlsx1SU'汾+`=-" a0'uEC'xml_bI=> W\[Ł9ssA51Copy /,[/=q 0/, t6).Sel/091 "s sum(WAFPCOUNT) wafcoun@t,to_c( PLAN_Q_T@IME,'ymmdd') f!$,ORDO fromD lY,Bq)iA OAq.6 ؿ؇u3!6 _ dyQl!For 1 To 10?a*C, 1)%total quantity of wafer" Then Cells(dyg, 2) = idset.Fields("count")ElseIf 1D"yitemws'Exit Fornd IfNext 'sublotidsql1J"SELECT cocd.PRODUCT_ID ,COCD.SUBLOYdh 1WAFER_COUNT,to_char(HIS_REGIST_D@TTM,'ymmdd') ADD_MONT@HS(DH.-`1,18)$PLAN_SHIP_TIME,RFIDA5FROM F3PRD.DOPE_ dh "EBG& "INNER JOIN MESBTAG@ ms ON@.˂@C_I =I"@ZMEASLJSTDBcDCUSTOM@W\ =f bWHERE 9t@0('EP KG','A) AND FILE_name='" & FileNc@"' BqCAT ='OC' ORDDBY >EQ Set@CreateObject("ADODB.recorލCursorTypeadOpenStatic 'αͣ޷Z Loc on UseC lient \  B, csDBCon2n io̎@m_i\d_cRC/GMABAp(plic.A(@Range(%+ 53:5h)'Õ8 0GsA(I1:I65536)7a''@\^= B` + 11 A 1 To _G' c g8 A, BOKL4°#,ed`}-LT+ 3   4 1- K+c!32row-@44 A4B!2check=d3,9À>mins +B1_ maxQ2_ 'gzM# ' tE: sq1~<> "" Aw̶o measpB ucAS_`AVG, 0^E4V,MYAX PCS jaDATA-SUM c].`Y@*"\^af_ITEMSDe n'``&1 <>0ys Q`B`%``.aaaakaaa3 Rbbq~lb' b '0:3z2"ave"p Or (v~g-c4@ ntӐ[F- ;1f uY_a`D:/$~EODF 0Dh MAXaxO mO tuOO 4AO O G ini INO O =JC @O I d"d~"!e`R"* {jem0tXWti y ?(! + "oF0&bwmOul!6) >3|om/"Ҥa"NG\_  Range(Cells(itemdyg + 8A, lotr owX<1), !4)).Sel@ect With ,ion.Interior8W.Pat/n = xlSolid+7Colo@rIndex AutomaticG"255TintAndShade0$spEnd 3A IfElseIf mins <> "" Then easset.Fields("MEAS_MIN") <Ay BB@Q"NG"#AÿA6sǿor,\$.Uq\!\e`A`wL?T9T?S ?S ‚,-E4A`?P .?O ?N ?M;L5KFF=+:b3NexlidMove#E+F{sss 4 To B[0\8< B_}/7,B + 2) A`pplictp}Worksheet Funct~Max(/9U3r`_id_count))    3  in   + 3) ě 4$@C /- /+  !'=U #m6/Row& @":" & 2 ?gDЭte Shift:=xlUp/Nam塞S/s(P 6InStr(f, "wafer dataP> 08@`5sW }= AAA= 1AA10lG s5@, 14"total quantity of !e/.J="(T "W'Exit +$yWB0CIAC%0@&}&pAwsql1@"SELECT SHIP_SUB_LOT_ID,WAFER_COUNT ,pqdc2.SANO,C2.READ_ FROM COCaLISTSTD @NAPRESP1;M$2&3&4&5!CPTRE""""""""5" Thela$a +Adfindt;) aDim strResult() As $ing "" Th en#numm.MoveFirstFsql1 To $RecordCoun%C1waf id@Fields("WAF_ID")5measdataAK KM+OgR@AUBOd(strResult2) > X/ju*2*CDblH(1)))'ֵ7Oget(`",AH2, G(2?Ao?hCells(itemdyg + 4``ScZ@y, a)*amat"0.0"@shangx?z + >=   ?$'$.SeleczA  @ion.InilorO=.$"Index :xlAuto9ic? > B ] ٟ,E _ 'p9 /<2xia77<= "7/7+ II77er7o77O77ϩ/7_3 ElseV/1-1BP{1z"NG"O/O7em766/665?55_44,?4?0? 0flagb+ 1*OOpNexO / Next End IfC6Elsebsad = 1"PwafcouLntK +  s^sublot.Move( 0Set '>CreateObject("ADODB.record`set")BCursorType adOpenStatic 'αͣ޷@&L$oc on(Us`eClieGʈ#sql"sel4 c2.SUBLOT_ID,ms.SH(IP_@_ from COCMEASLISTSTD "+CB& "INNER JOIN MES_ATAG@ ms ON@.CUSTOMER3@ =$f WHERE3FILE_NAME ='" & Fil eName"' ORD@#BY !_SEQS.Am1, csDBConnMionב>DRBCAK #K= 0KFor 1 To#.Aid<$Fields("#UBd;Wa_numm?_h.__d __ @ 92"SELECT WAFA _ FROM\DATAINFOS cJaAJ+0`,+ "'`er by SafNO JmCJDJA m>EitemP3EB J a Cells(dyg, !xiax + 1?shang%q2If <> "" TheLoe= "MNAPRESP1;%2&3&4&5!CPTRE""""""""5ǽ!ires&s@kOeOe?6ff&9Res66ad_ITE@M_689,8L5760612Z68:70????bqddvU midD?_?2e3??-x_ > a0_ Ay0v0!Am-/arr0Array(AEe"), OAS 85960127}8 Б 7_ T?aQLRBPd( )1U5 "0)R?Ja]40&+ y[ $o oo1' r,Clo6w{54ron/Val(@) >= $?u/B1)!"NGlV`(.SB'O`With .InteriorOO.PatnColorInde!xlAutom`2551 .TintAndShade `= 0 <.Pattern;End With3'1If#/)+If xiax <> "" ThenIVal(Cells(itemdyg + 4wafcount1y, ))x <=8+5˟3B 71)"NG"c#1.Sele,ct+{ ion.In@ior+A*EColor Index 1 For y00 |TobiJo  arr0Array(Fiel0ds("7"),")o'K aLBd() U? 0@ߛ_o+ p$o AsMove, __ Cl~oy'Jq  shxϐ>=%/?"="?(em(~O~eri1_߁/1>Q/_A?1* Then $If Val(Cells(itemdyg + 4wafcounty, 6)) <= xi\ax,gBn1) = "NG"'#\b.Select+0With ion.Int`erior+"T.PatnColorIndexxxlAutoma8tic(%"255pTintAn@dShade04{End AY3A If NeBx\Else'MsgBox sublotid & "RESIS HEAD;BTAILû!`Range, h, myzs - 1e?nVaasqpF.n.c,A^jc] 4"OXYCONCENXaY" t res CreateObj@("ADODB.recordset");l@.CursorTypadOpenSt! 'αͣ޷F_ C Loc onadUseClie@ Կ 2Ressql "SELECT MEAS_ITEM_233,4 FROM HCOCDA@,NFOS c WHERE SUB_LOT_ID = '"I' ORDER BY SANO E !1 # , csDBConnoO+"RC> 1 For By 0 To!.ipJo Na*omArray(A Fields("3"),234"))/ aMoveOe F __ ']21@ \YWIpyFromS4 ? ClomO *eo "shlx <> "oC?oo9) >= $?%??+ %m+qOro s`4?ttu//v??w1o5?o5+ ZLs/O5oO5O5em#O5OO5O5oO5_9 .Color = 255 ( .TintAndShade00Pattern;IEnd With'1IfNext(Else9'MsgBox sublotid & "RESISHEAD;TAILûP!"*Range(Cells(itemd@yg + 4wafcount, B@1), C  s - 1 )@}"NG%" ).Sel\ec_  i on.In@io6rP.DBIndex?xlAutomaticd.4څ+/A^jc]If 4DOXY@CONCENX/ 2;Y/2" Then[(Set res Cre@ateObj>("ADODB.recordset ")@.Cur@sorTyp!adOpenSt8 'ͣ޷#_ C Loc onadUseClient Կ NgRessql "SELECT MEAS_ITEM_233T/2,44 FROM COCDA0NFOS c WHERE SUB_LOT_ID ='"`ɑ' ORDE@R BY SN\O |A.a, C, csDBConn7q*HR;C > 1E' Fy@&0 ToG.`[e/9y,\ Array(Fields("i13" q4")We!Mxove!Q'921(_ pyFromS61?DZ9 Cloo| ibgo  "shnx "oE?V= $?L%+ UsyP%vm ?ttertuuϭ?wwo/x?y1xiao5o5() <= O5O5O5+ 1O5O5O5o O5O5oO5O5O5O5O5/a/Qe2/y}: Range(Cells(itemdyg + 4 wafco@unt, B18), J 6Ls - 1V) = "NG" B$/).SelectCWith ion.Int`erior.PatnColorIndexxlAutoma8tic"255TintAn@dShade0$+oEnd AJA IfEls0eIf i-"ORGTAIL;HEAD" Then[Set res@CreateObj@y("ADODB.recordset").CursorTypPadO penStm 'αͣ޷@L$ocon+adUseClienBtGmR essql@"SELECT MEAS_ITEM_235,I6 FROM COCDA@-NFOS c WHERE SUB_LOT_ID ='" & sublotid@"' ORDER BY SNO |zA*a( C, csDBCo|nn3k&BR7C > 1AAbFor y@"0 ToC.`[B9y,V Array(Fields("i/5" 6")Se!MoveNex?  ' 21Hi.CopyFrom(ia*(aClose_? 6AEshx <> "߆agVal:=) >= D 灞o# J_ + E*m ?qR_qqrr*`wPs?._p_% uv1xia?o5o5() <= O5Z}/O5?O5em`O5OOOo O5O5oO5O5O5//a/2/y}!_o]'MsgBox )RESIS q;û!ߚ= C4p'1 8??y/8888O7?66F .PatternTintAndShade =0 0 ,End WithRJIfFElseI@f itemv"RRGHEAD;TAIL" ThenaSet res=CreateObject("ADODB.recordset")#!.CursorTypadOpenStatic 'αͣ޷%-Loc 'onVadUseClient.ԭ.Ressql("SELECT MEAS_ITEM_231,2 FRO M COCADAXNFOS c WHERE SUB_LOT_ID ='" & sublotid"' ORDER BY S NO, "=P (, csDBConngioudRoCouI> 1AFor yD0( To.- 1-Cells(dyg + B4wafc#+X y,)A rray(-Fi@elds("^1"),"2")$MoveNXext_1c '21i.CopyFrom(iaClose_ 69e,s _5"Eshangx <> "߆)Val(=aA=) >=N D ? B`11J"NGl + V.Selq74 x.Inior-ColorIndexhxlAut|om? . B 255MN]1xiao5o5oTlT) <= O5O5}/O5?O5emAO5OO5erO5O5O5o_9O5? .O5o% a/QA?2?/y}!? ]'M@sgBox )RpESIS!od= R tepzC4,4l<{, ol}y?@g9)98888O7?6?? 5o!/51C!+*5;C+*5 ?@9*5\_ITEM_23@9,MEAS40*5 x FR@OM COCTDATAINFOS c WHERE SUB_LOT_ID ='" & sublotid"' ORDER BY SHNO " res.Open Ressql, csDBConnection 1 The8HFor y @= 0 To#- 1=iCells(itemdy g + 4wafcF+ y, )6Array(ZFields("39"),E40"))I/MoveNe,xtc ':2176.CopyFromcset2_*Close 3 lXs j@shangx <> ""z@Val({) >= _Bb1Ax"NG  V.8Selq4 With x.Interior!a.Pat`nColorIndexhxlAutomatic? . B 1255TintAndShade0_ND? -End ,!If @cxiaj'jjQ) <= jMjjm  gj jQO5,O5_9PO5?.0_% a/O52/y} Els= 'M@sgBox )RESISHEAD;Lû!od^R tepzC4, 1<{, ol }y?@+ <w9)98n88O7?6߹? 5oo!/51.Pfap"(ORIENTATIONX**+YY);/} PCreateObj("ADODB.vr"bursorTypa$adQSt! 'αͣ޷zLocon adUseClie-c"SEL ECT (27**+88)XQooooo Aoo&ooo7KVmSqrOu res.MoveNext #J'Cells(21 + wafcount, item ).CopyFromRecordset }Close*For y @= 0 ToAs0 - 1If shangx <> "" Th enVal({dyg4y) >=9+684B1)@Dp"NG"g2#vSpelec`With ion.Interiork).PatnColorIndex {D%:W&U5= vbTextCompare)  meassqls = "SELECT * FROM COCMEASDITEMSSTD WHPERE &_& ='" & jingshu1(0")"'"tSe$t xetxCreateObject("ADODB.record0set"%K.CursorTypegadOpenStatic 'αͣ޷$1HLoc+on3UseClient3:3], csDBConnionW$IfFX.RRCou(<> 0 T heACOUN T19k.Fields("COLUMN_NUMahsmuA"/J1wElse<@,Split(, "-", ,?ɫʡkf9ee & _f_f F fU_ge ggEh~-_hdh[i*_i l5iοί_jϯ jj h]c _k5Oo?5_io/6ioo6_j_j6*66o/7k+/7s/bo7ϞϞϞϞ77OOO61/8d&o8o8333=3+3En0d If? _??_ S9MUBd) /O:r4D(1_I9دe*11>E/pٿ J71/_ P12p"q1 COUNT2 = meassets1.Fields("COLUMN_NUM") ElseJljingshutSplit((1), "/", , vbTextComp8are }Wqls"SELECT * FROM COCMEASDITEMSSTD WHERE  _ ='" D& L(0)"'"#hSet>CreateObject("ADODB.reco 0 xTheN4AlsmI1$iS-a hh|h j_i_i \ii bl _j_jv  jf_k~ _l aEm-1% m%Dn1Nn0*_n 8׿2n߯7_l_l ZllllO61/8_m_m$_&o8m8_n8?/%9*/9o990+9?yO9ϥϥϥϥ /:/:/:6,o:o:o:o:<::::f::555=5+5End IfOB ""?O1ql3zeROUND(_1& ",5) data2 ATAINFOS c2 SUB_LOT_IDsublotid= ORDE@R BY SANO (> Get32orType = adOpenStatic 'αͣ޷  measset3.CursorHLoconUseClienta>j xql3, csDBConnectionElse(n1f"SELECT MEAS_ITEM_" & COUNT2" data2@ FROM CDATAINFOS c2 WHERE SUB_LOT_ID=' sublotid!' ORDER BY SNO"#TSetVCreateObj("ADODB.recordj")(?GvTrW} nd IfQcountsql2傌() >aFetF+" d?FN E  bE 9ߍ m[GEKO smu1 <> ""p TheEQRPOUNDQ1,L5)b & c1_Z- _U ț?UߛE2U=de TTQ I2Tq #ppr#p"ppp"_3} "ppLM__<"]f"ߓIR1?o"4o1ϓ#?##D ! et nO /D o!o!o!o!y72!ql1C ?If UB`d(jingshu) > 0k97 Fie lds("1")%wafCells(itemdyg + 40u, q").CopyFromRCfc,0or y@ o - 1shangx~/Val(_6+6 y= d_21Cc`1"NGo:tshS "" ThenOVal(Cells(itemdyg + 4wafcount1y, ))x <=:/7ܟ5B 1)}"NG"3#3.Sele,ct/ ion.In@ior/A,EColor Index?xlAutomatict@255t͉7cpaijG+NexG 0Else@mhset2.Fields(""2"]msxyiiv.CopyFromRecord@ me4as3?C For y@I0 To '- 1 shang%  >=  f  ^ /TJOO JDJ?G`4O/o8O~+m8O?2+fHO8 O8%O8erOOO83OO8O8O8o 1O8O5Os Ûx;11`}]22??g  ?s ??(?ҙ) ??HN NoNN, .PatternColorIndex = xlAutomatic 2.2554TintAndShad:eH04F޿&End WithC IfIf xiax <> "" ThenOVal(Cells(itemdy g + 4wa@fcounty , )) <_@AB1)}"NG"3#3.Select / ion.Inior/A,?A?.fp"cp j+#NexG Else_C Ran$geq, c, ` %`p %  `pJP @ @ @ @ `X `@ x @ @x @` @H @0 @ @ @ @ @   @ @h pP X8 @ ( @ @ xl l( @ sx s` @, H @( 0 @ @ 0 ( 0  @ `((r( @P`hxx 0 p`8p8h8p`PHPxp8h8p`PHPx ( k$*\Rffff*S<6c06f1b5"  ( 4@dP h  Lx  (0008 P`<hF** 8&H h$ "   ( 0 H  ` p  x ( *( D  8np P Nh@R  < P $h x  2     2 @  H BLP  .     R   ( &@ Fh  P  H4X (008Fh$d$d  L X VF (P  0p  0  F   "  $(  J  @  fP $ 2p ,,x,H, 8 8( , ,P,,,, Lx L` L j @   ( 0 0 F0 ,H 0X 0 0 2 8 0@ p4x@4 j @ FP$`$h$p$x$ 4 j @ F$($0$8$@$H PX` h jp@ F      2    \ B8 JPBP   ,h  8 D    P( Jx     > 4 ( 6@ RP       0   ( 6@ P  `(^x h  嵥ļļ&lرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲·JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hkdx7繲ûжӦģļ,ǶӦģûзȷ·A@J|(k    B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ & Filѭsublotid JINNER JOIN COCMEASSHIPLISTSTD cocd ON ms.CUSTOMER_SUBLOT =COCD .SUBLOT_ID ' #WHERE OPE_ID ='PKG' AND FILE_name=' H' AND dh.HIS_CAT ='OC''ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@ L!'NA65536$v%!' '   N B@A $vB@  SUBLOT_ID1 L%   +>  $>!x   +> HIS_REGIST_DTTM L%   +>HIS_REGIST_DTTM1 L%   +> )$>', &$> '$>' OK   *+>  ̶cSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' SUBLOT_ID L%' AND MEAS_ITEMS =' ' AND FILE_name=' H' AND MEAS_PCS <>0'ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !MEAS_AVG %   +>MEAS_MIN %   +>MEAS_MAX %   +> MEAS_STDEV %   +>MEAS_PCS % MEAS_PCS %   +>d` WAFER_COUNT L%   +>k ,  ( MEAS_MAX % , NG   *+>Z   :AD   $vB@H ! 9 9999qH k@ MEAS_MIN % ( NG   *+>Z   :AD   $vB@H ! 9 9999q kx kp dh NG   *+> ! 9 9999q k d k    ' LB@x 2: $B@H | B@v r| B@v%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ7Set p_workbook = Workbooks.Open(ss & filename & ".csv") (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@p_workbook.Save رչ B@Bp_workbook.CloseXĻˢ´ (rA@o H resļA@J( wafcount L%+>XXORDER_NO L% +>xA2:al $v.p total_qtytselect sum(WAFER_COUNT) wafcount,PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO from COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO'h$>!x   +> $>!x   +> $>!x   +>x $>!x   +>$>$>!x   +> $>!x   +>08 $>!x   +>  $>!x   +>  ($>'( 'Z   :AD   $vB@H $>!x   +>AM:AO$B@H \ͻģ\ B\ @\' >INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =dh.SUBLOT_ID 'SELECT cocd.PRODUCT_ID ,DH.SUBLOT_ID ,cocd.SUBLOT_ID SUBLOT_ID1,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'yyyy/mm/dd') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,24),'yyyy/mm/dd') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh 'ZAttribute VB_Name = "" Sub 0() '嵥ļ2'رĻˢZ Application.ScreenHUpdngFalseNFile|Trim(Cells(1, 2)w If $"" Then< MsgBo@x ("h"I(E0xit :End/connectDBSet wp= CreateObj("ADODB.recordset..Curs orTypad@OpenSt{c 'ͣ޷ " LoadUseClient#ԕ#Dim pdsrc As Sngk wpsql v!Ʒss aaARango@SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHER@E FILE ='" &G|& "' GROUP BY J@AwO]n9, cpsDBCCv7Whw.EOF <> TrueAжǷΪGE'ȡf@trhFields("* 'õ˾"AcustomernB("7p@vpathhAsԭā/·һ 'ӵxa+H<\\10.A52.142\coc\. ServerShar112ģ@\radminist ratorPassw`o."fthw-82905X028hIF oldersts()(%DE@ 20 El%t Net k# Wipt.)Acafsoing.System# -.MapDrive H"",)2, ®,r ,, %)Kg 1)'%FaK%S=Ax\@ͻA?\|^!i ')K` \  & hD'ThisWorkbooxk.PiDebug.Pri; &X`".xlsx1SU'汾K03=[ @a0'uE'xml_bI= W\[}9ssA51`Copy /,[@ .=Q GZhaaC@ E2:alzBdaa.CopyK  1 + bb).PasteSpecialK  ,tea= 2-3@Cells(;+ - 1, 1 0).Fields("1| 1a 2@ 1).Valueo2k2o3k@>b/"4k45ak+!},5n6 _6?7! G67k8k8o9k9n2BYfOa2KXnKX~2GXaN`pBP, 39%omaxs41in.04 "ONKPi Q If"* <> "" And̶" 8The<] qme as0 "SELECTAS_APVG ,z_ zEVMSMAX14PCS}DATALSUM 3yLuaVN҄")3yA{ITEMS42?}@;} <>0|yc~~$~~~~eq ql߀`'؀Q(0'r.p2P%p (Z'M-P,w i3MAX2R[7/P4< 25/ob?"no `  El~srKAWAF@COUNT7 If/ qZQOr mY_Qw_"(OP> `oms]NG/JNtZGT;bQS:AD)p.Sel W0ith .Interior7n txl`Solid  uColorIndex0hxlAutom1__P255Tint`rSha:dq0oo`PabQ*y,( If measset.Fields("MEAS_MIN") < mins T`hen Cells(bb + teams - 1, 42) = "NG"Range("Z0" & G":AD).Select\With ,ion.InteriortP.Patnex@lSolidColorIndex Automa8tic"255TintAn@dShade0$9oEnd AX3A IfElseW7?‚B.- 3.J.AI >GBBOBNexku=BidMove G'kRow2Z:aBϗ'Dte Shift:=xlUp'8umn AM:A O"  ToLe&f ! '---'dataworkbook.Sa vu'nAs ssfilename.csv", xlCSV CbxlsxWDNormal) @_K!17# 2+ M'$ļ(Set8 p_e/e s.Open(3-)ApplichpqDisplayA lertsFazW'&8).*oumTru!?/Q7?wp.9# *&'+رչCloGiWen%'Ļˢ´IScreenUpingP '3%ScDBMsgBox "PAFF06N46res# Sub3')] R1xME(<6 <<$& `  p%%@ 0@P`p 0@P`p 0@P`p 0@P`p 0@P`pk$*\Rffff*Sl6c06f1fe "   8 @``Z 0@H X1. ADOߚ2. Ӷ]X3. ݿ XDriver={Oracle in instantclient_19_9};Data Source=zhongxin12;Uid=zoomly;Pwd=zoomly;QTO=F'  B@ ӳɹ 8 ݿ״̬ ! 8 ݿ汾 !A@J B@B.onAttribute VB_Name = "test" Sub Oracleݿ () '1. AD O(2. h*Dim conn As New dDB.C"ection;(3. 9fcCstr,Driver={ instantclient_19_9};Data Source=zhongxin12;Uid=zoomly;Pw QTO=FvjR.Open 9@MsgBox ("Iɹ" & vbCrLf"Y״̬ #Sta¾VersAClose=Set= Nothing End NwmZSȉ  ^J NwmT R:N ]>nSNqN ;  O7xME(6  ,` %%`H`< `.`0 `2`4`@` ```6`8 `: <%`R % % @ %` `B`D `F `H`J```B`>`@`B @L `N``D````` ` `F`*%P 0@P`p 0@P`p 0@P`p 0@P`p  0 @ P ` p p k$*\Rffff*Rt6c06f1b5&"  (08@HPX`hpx    0PX ` h00  p *   @P p   00 H     ( @(P x.     & 008  Ph    " (  @  (`            *  (  H P X 8p ,    <  P ` 2x     2    " H  BP                 *0  `  x J :  0 PX p x  J    & @ B`   00( X dx 0 & ,8  ,h 4 H L h ,(  <X < < >   X  0$@$h$$& ( 0 @ X h  F   $ ( H h00 `h  00 8X  00@.p2 * 08@ P Xh<p <    0 @ P     ` p  x    (x]X]p]]]]]]]]0]H]`]x]]]]]](]@]X]p]]]]]嵥ļļ$>$'H H嵥ļA@J|kA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]ƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'>jwpsql = "SELECT PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME='" & filename & "' GROUP BY PRODUCT_ID" > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'BļƷlotidADODB.recordset$p. t (r+αͣ޷ x (v.αԣ޷ lotIdsql = "SELECT LOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME='" & filename & "'AND PRODUCT_ID='" & wpstr & "' GROUP BY LOT_ID,CUSTOMER_NAME"USELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID W FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID  WHERE c.FILE_NAME=' H'AND PRODUCT_ID=' @' order BY LOT_ID'[   ~ B@  ! 'LOT_ID %''6d 6,'LOT_ID %''6kH B@0]]0]H]` Ʒѯʱ䣬ͳVSELECT PLAN_SHIP_TIME,sum(WAFER_COUNT) wpsum FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H5'GROUP BY PLAN_SHIP_TIME ORDER BY PLAN_SHIP_TIME desc'@ADODB.recordset$p.B t B(r0αͣ޷ x B(v3αԣ޷ @ ~ BB@óʱʱ B%'L ó B%'N]x]]]]]]D] ]8ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'd(WScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'F%Debug.Print srcpath & wpstr & ".xlsx" F @.xlsx$x 汾· *!\ͻģ\ B\ @\' $x Ʒļ F @.xlsx  @1.xlsxA@HdH A@ Ʒļ F @.xlsx  @1.xlsxA@HkExcel.Application$p.Rd7繲ûжӦģļ,ǶӦģûзȷ·A@J|`kX   B@.k жһǷƷļ  @1.xlsx$x 򿪹  @1.xlsx R!%. %. %.@ C--------------------------1---------------------------------------- 4жǷгʱ䣬гʱʾûоͲʾ L: L  ,>d:  ,>k ʾ: N ,> D---------------------------2----------------------------------------]P' 18пʼѭжǷһ  %>b;жMǷпͻԼõļоִûоͲִM  %v.< <ADODB.recordset$p.0 t 0(r8αͣ޷ x 0(v;αԣ޷üѯһ] sheet1sql = "SELECT COLUMN_NUM FROM COCMEASQAITEMCONFIG where MEAS_ITEMS = '" & rangeM & "'") sheet1set.Open sheet1sql, csDBConnection columnNUM = sheet1set.Fields(0)% measItem = "MEAS_ITEM_" & columnNUM&ֵСֵƽֵ. Set AMMSset = CreateObject("ADODB.recordset")B AMMSset.CursorType = adOpenStatic 'αͣ޷E AMMSset.CursorLocation = adUseClient 'αԣ޷ AMMSsql = "SELECT AVG(" & measItem & ") avg,MIN(" & measItem & ") min,MAX(" & measItem & ") max ,STDDEV(" & measItem & ") stdev FROM COCMEASDATAINFOS where LOT_ID IN(" & lotIdstr & ")"% AMMSset.Open AMMSsql, csDBConnection6 dataExcelSheet.Cells(item, 7) = AMMSset.Fields("avg")5dataExcelSheet.Cells(item, 8) = AMMSset.Fields("min")5dataExcelSheet.Cells(item, 9) = AMMSset.Fields("max")8dataExcelSheet.Cells(item, 10) = AMMSset.Fields("stdev")uselect MEAS_PCS pcs MEAS_AVG avg, MEAS_MAX max,MEAS_MIN min,MEAS_STDEV stdev from COCMEASDATASUM where FILE_NAME =' H#' AND LOT_FLAG='T' and meas_items=' <''2 2 ~ 0B@ 0!pcs 0%  ,>avg 0%  ,>min 0%  ,>max 0%  ,>stdev 0%  ,>k k  '   dataWorkbook.Save رչ  dataWorkbook.Closedp <һǷжӦƷļкļǷƷģA@J| k жϴӵ10е5пʼж'B '' B @%>b B @%>ADODB.recordset$p.D t D(r5αͣ޷ x D(v8αԣ޷üѯһ<SELECT COLUMN_NUM FROM COCMEASDITEMSSTD where MEAS_ITEMS = ' B @%>''H H ~ DB@ COLUMN_NUM D%'4 MEAS_ITEM_ 4' ADODB.recordset$p.F t F(r5αͣ޷ x F(v8αԣ޷üѯһselect K MEAS,SUB_LOT_ID,SLOT_NO,READ_WAF_ID FROM COCMEASDATAINFOS WHERE LOT_ID IN( 6) ORDER BY SUB_LOT_ID, SLOT_NO'J J ~ FB@ F!   F!  SUB_LOT_ID F%   @,>SLOT_NO F%   @,> READ_WAF_ID F%   @,>k MEAS F%  B @,>  ' FB@k  'k B 'B  @%>E11E F!  @,v  @%>F11F F!  @,vM:M %vB@8:8 @%vB@ B@ رչ B@B <B@===============================================================================================================================================A@oAttribute VB_Name = "Ϻ" Option Explicit Sub shtemp()  Dim File~As S ng6wpSet 0Objechexcelpath 5she0et1s9ql9columnNUMwpstrlotidT 6i&IntegLeryId4A8MMSk 3rahngeiR5dataED workbookWS\X 1T measisenmAJ_s@{M0F2Xqfl$ԐqlMr,ow#nRcustomernALJ'嵥ļC= Trim(Cells(1, 2) If" Th enMsgBox ("AгG" Exit SubEnd If!CconnDB^s= CreateOt("ADODB.rec8ordUe .CursorTypadOpenStatic 'αͣ޷`L oc= adUseClient Gzf '!h%s+SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILEb='" &G6& "' GROUP BY ܣ* @4'fR.4 B, csD|BCcA A%Wh @C.EOFH <>Vue*жǷһ,A+'ȡ.=D Fields(" IZ'õ r$ ("-c'craDE G bBcAeccp dd a' JbLO///'AND/2s),1t S D@8INq;ASEA0N ms. IS NULL T HEN cUELGE  " ~_Df ?@4@c LEFT JOIN MES_ATAG O 6 SUB =c.?Eoa#Fc.OF0'O&@4 Zer!H? Debug.PriU5!."C_C  For iP1 TogRbdCoun䟅IfncRWet.%Ct)X"'Else ? =,!Iu uU MovexNexgltimeAndSumS`0̆LOEoЮ09u CbRQѯa䣬ʀͳƷ#[ lLAN1_TIME,sum(WAFvCOUNT)*vvyv'gv ORDERw{desc!1] ^0?o^oog1or^//#2" 909w1vB#(= 71a.src/ pdٽServerShare/@QrPass>d4NetC Qq fson6ԭđ;A· һ'ӵ 繲a pdsrc = "\\10.52.142\coc\" ServerShareb12ģ zUserNamtadminis@trator 'Passwordbfthw-829`05028'If FileFo@lderExTs() Then Connect-0 ElseSet NetCkObjCreate("WS@cript.") fso4 ing.ZSys8tem) ?.MapDrive "", , $Fab, , K1End If'繲跾nD@5&}\" & customernA|Awp|"I'Debug.Print 0path .x8lsx~|&&  '汸 6ą=isWorkbook.P#"\8?GQA1 ѭ 'ƷpļCPopy B,V1m+a aXMultiLevelm\ (o_e_cAS X+A|dataExcelt.Applications/$MsgBox "gûжba6,ȷQ[ t Subs'HyНkRemoveʈJTrueg A)ᱡNoth  F 'һ\diBOgG  'LAa@BC.s.Open^1# IShe=  B ss(1ی t12'-1 ʱ䣬ʾ!.Ͳ/<0p`i<> Null+A.Cell@3, 3)`": 1e,: }E +B'|4 kumW2/r DDim iP As Integer = 18|'18пʼ0ѭ="һMDo Wh,.twQ@""R (MQԼõļpִ|) 1?r`angeM$6G7.Rq("M&q 6/0 2 o.qg2B@1sBKADODB.recPU.CursorTyp$ad1KSt`lc 'αͣ޷O 3Lo3qadaClieʸԿ'ѯpһ"[ q{"SELECT COLUMN_NUM FROMCMEASQAITEMCONFIG whe0a_QS ';'/& %et_, csDBw ' coPlumn =Fields(0$B measIA8V _  'ֵСqƽֵྷ)AMMSo)("o)2_)en_)_)_)' {O)O)O)o' Z&AVG(0#) avgP,MIN ,MAX max ,STDDEV stdev,DATAINFOST,LOT_ID TlotIdT)?,@ AMMSsql, csDBConnection T' dataExcelSheet.Cells(item, 7) = 0Fields("avg")'K8Kmin1K9K$ax%10&stdev'~ s1܀"sel MEAS_PCS pcsPAVG ,MAX max,0MIN STDEV - fr@om COCA DATASUM where FILE_NAME ='" & Fil eName"' AND LOT_FLAG='T' and me(as_s rangeM "<<Open F@IfE RecordCount <> 0 TheԼ6~G&@`~B bg g h/ ZhE`KIf0EGPe+ 1LLoopL'kWorkbook.SaveرչZCloshEl+MsgBox "һǷжӦƷļкaģlmExit Sub &*'жϴ10еڀ5пʼ@ 'coPlunm-5grow1H/n`Do Wh`L1Yd10`} )v"o@|+u8}Setg1 Cre@ateObj("ADODB.rqBset{fX ursorType adAStatic 'α?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[^_`abcdefghijklmnopqrstuvwxyz{|}~$%ZZf-xME@` %``X` `p x8% xX  ```` %P$ @ @ @ @ @   @h @P @8 @ (  @ b bPi`p @ @x ` @H x{0 {( @   @(  P @ (p X @@ 8 `8    `0 @  X h `    `    ( @ 0 @   @ @h @P @8 @ 0   @  0   @   @       p X X @h@ ((  @     ` p p @  @h @P  8 (8 @ (  @ @ P` @Px @` @H @0 `(X ( @2 @ h x   (8x`P`` xX`@ 8` (8 P` x     8H``pp h`P H` 0 8X Hp      `  8X`Hp% *`*p 8X 8 ;0@ H>X( p> C`C O`O W0 H\X`p\ j jm ph p0P HuXH`pu0 (` ` 0 Hh X   ` 0p Hhh`XP H`0  0@ Xh  ` `0@ Xh``ppp @X @@ @ (  @  X @  @   @  h P @t 8 p 0( 0 @x   @  (x @` X`(@ @`8`Px   `( @``Px    x` ( ` @ ` X`P x  @  8`  H hp  ` p k$*\Rffff*SA6c06f1b5i"  ( 4@dP h  Lx  (0008 P`hpx<F**  P&` $ "   (  H `  x    ( *( D  8n0 Ph N@R( H <`  $   2  ( 0 @ 2X    BL   .  (    0RP p x & F  P  ( V8 >P Jp 4 (h 0 0 F  & .^ $dP dx         N X @ rF  (  00  0`  F    2 *   8$P  &h 2 4 8 88  $p^pp  " @(H (00P0F ,  L b( $ L b $p L b $P6x866   X4h & L( F$$$ $($0 8@ $H4X &x L( F$$$$$  (08 @&HL(p F    (  0 @$H `hphh@h   ($~0BX Vp > J & .^$d d8X ` px 2 tL 0T NF ( (8 0X 0 F 8 2 00 4` &   ( 0 0( JX L  DF F@  X    v t"tth t  u      !!  ! (!$8! @! H! X! p! ! ! ! 0! 0" u 0" H" X"$p"$.x"$"$"$"$"$"$ #$ #(, #(&P#( x#,#,#,#,#(#$#$ #( #(#,#0 $40$4P$8`$ p$8$4$48$4 $8 $<&%< (%@8%@@%@H%@P%<X%8`%4h%4 p%8 %<&%< %@%@%@%@%<%8%4%0&4,&4&8&4 `&8p&8x&8&8&4&0&0&,&, &(&$& &&&&&'''' (' 8'  (@' 0`' 0' J' L ( DF`( F( (  ( 8(".( ()08)0h)`0)F) *$ *T8*^P*^h* *p* (+0 +0P+0+Fh,,, @,$",$>-(6-0*.(@.$H.$ P. `. h. 2x.$ .(..,,.,&/, F(/08/0@/0H/0P/,X/(`/$h/$ p/(./,,/,&/, F0000 00(0000,80(@0$H0 P0 X0 8`0 R>0 F0 F81$H1$P1$X1$`1 h1p1 x1 (10101v02F2,2 @2$B2$> 3(6@30*X3(3$3$ 3 3 3 23$ 3(.3,,4,&H4, Fp404040404,4(4$4$ 4(.4,,4,&(5, FP50`50h50p50x5,5(5$5 5 5 85 R>5 F86 F6$6$6$6$6 66(; ;0x;0H;v::: :$^(:$ : : <9 9 9$ 9(.h9,,89,&9, 908080808,8(8$8$ 8(.8,,X8,&08, 808080808,7(7$7 77 87 RH7 F7 6$6$6$6$6 66,z 0v0Pv0vzzvv v$^v$ Xw hw <pw w w$ w(.w,,x,&Hx, px0x0x0x0x,x(x$x$ x(.x,,x,&(y, Py0`y0hy0py0xy,y(y$y yy 8y Ry F8z z$z$z$z$z zz; (<00<0`<v0<F=, = @0=$^P=$ = = <= > 2>$ 0>(.@>,,p>,&>, F>0>0>0>0>,>(?$?$ ?(. ?,,P?,&?, F?0?0?0?0?,?(?$? ? ? 8@ R>8@ F@ F@$@$@$@$A AAA (8A0XA0Av0AF0B,HB @XB$^xB$ B B <B 0C 2@C$ XC(.hC,,C,&C, FC0D0D0D0D, D((D$0D$ 8D(.HD,,xD,&D, FD0D0D0D0D,E(E$E E E 8(E R>`E FE FF$F$F$ F$(F 0F8F@F (`F0F0F0FFxG,G @G$^G$  H 0H <8H xH 2H$ H(.H,,H,&I, F8I0HI0PI0XI0`I,hI(pI$xI$ I(.I,,I,&I, FJ0(J00J08J0@J,HJ(PJ$XJ `J hJ 8pJ R>J FK FHK$XK$`K$hK$pK xKKDK (K0K0 L0PLFL,M @ M$B@M$ M M <M M 2M$ N(.N,,HN,&xN, FN0N0N0N0N,N(N$N$ N(.N,,(O,&XO, FO0O0O0O0O,O(O$O O O 8O R>P FhP FP$P$P$P$P PPBq JP 8Q 8HQ NLQ (Q0Q0 RFPRhR,pR &R R vR NLR (S 08S 0hS FS ,S$&S$8S  S$ vT$NL T$ (pT$0T$0T$FT$,U(&U(88U$ PU( vXU(NLxU( (U(0U(0V(FHV(,`V,&pV,8V( V, vV,NLV, ( W,0@W,0pW,FW,&W,8W(W$W XX "X NL X (pX 0X 0X FX Y ,Y$& Y  @Y$ vHY$NLhY$ (Y$0Y$0Z$F8Z$,PZ$&`Z$8Z$ Z( vZ(NLZ( ([(00[(0`[(F[(,[,&[,8[( [, v[,NL\, (h\,0\,0\,F\,,]0&]080], H]0 vP]0NLp]0 (]00]00^0F@^0&X^08x^,^(^$^ ^ ^$^$ (P_$0p_$0_$F_  _$z^_$ (p`$0`$0`$F` a p^a (a 0a 0a Fb 4b  b 0b (b 0b 0c F@c Xc z^`c (c 0d 00d F`dxdp^d (d0e0@eFpe "e 4e$$e$2e( e,.f0&8f0 v`f0 Ff4f4f4f4f0f,f(f( f,.f0,g0&8g0 F`g4pg4xg4g4g0g,g(g$g :g$$g$2g( h,. h0,Ph0&h0 Fh4h4h4h4h0h,h(h( h,.i0,0i0&`i0 Fi4i4i4i4i0i,i(i$i i i 8i$$j$20j( Hj,.Xj0,j0&j0 Fj4j4j4k4k0k,k( k( (k,.8k0,hk0&k0 Fk4k4k4k4k0k,k(l$l  l$XNl$Fpl Fl$l$l$l$l l ll qH0q ((r0Hr0xrZr,r vs (r 0r 0(s FXs ,ps$$pt  s 8s ssmmmm (m 8m $~@mBhm ,m m @m rn    Pn Jn    (o >8o 4xo o 6o Ro p p   p 0p Hp 0Xp hp p p 6p p  p .p p p{嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]]]]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dhWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hkhd`7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xlsx$x]  ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@p$t!' lot data $tB@Hkxselect sum(WAFER_COUNT) wafcount,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO from COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@'  d $>total quantity of waferwafcount L% +> $>e ' Exit ForkH@ѭsublotidSELECT cocd.PRODUCT_ID ,COCD.SUBLOT_ID ,dh.SUBLOT_ID SUBLOT_ID1,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'yyyymmdd') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,18),'yyyymmdd') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh ' ?INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =dh.SUBLOT_ID ' JINNER JOIN COCMEASSHIPLISTSTD cocd ON ms.CUSTOMER_SUBLOT =COCD .SUBLOT_ID ' .WHERE OPE_ID IN ('EPKG','PKG') AND FILE_name=' H)' AND dh.HIS_CAT ='OC' ORDER BY SHIP_SEQ'ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@ L!'N  :  $v %' #Cells(8, 20) = "=COUNTA(I1:I65536)" B = Cells(8, 20) LOTON = B + 11  NOK    +> SUBLOT_ID L%   +> WAFER_COUNT L%   +>HIS_REGIST_DTTM L%   +>HIS_REGIST_DTTM1 L%   +>    $>'   $>'(   $>', gz = Cells(itemdyg, B)itemtype = Cells(itemdyg, B)  ̶gSELECT MEAS_AVG, MEAS_STDEV, MEAS_MIN , MEAS_MAX , MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' SUBLOT_ID1 L%' AND MEAS_ITEMS =' ' AND FILE_name=' H' AND MEAS_PCS <>0 'ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@ !F If gz = "ave" Or gz = "AVG" Or gz = "Avg" Then\ Cells(subcout + lotrowitem - 2, 10) = measset.Fields("meas_avg") End IfF If gz = "max" Or gz = "MAX" Or gz = "Max" Then\ Cells(subcout + lotrowitem - 2, 10) = measset.Fields("MEAS_MAX") End IfF If gz = "min" Or gz = "MIN" Or gz = "Min" Then\ Cells(subcout + lotrowitem - 2, 10) = measset.Fields("MEAS_MIN") End IfMEAS_AVG %    +> MEAS_STDEV %    +>MEAS_MAX %    +>MEAS_MIN %    +> , MEAS_MAX % , NG    +>    $>    $>$vB@H ! 9 9999q k ( eMEAS_MIN % ( NG    +>    $>    $>$vB@H ! 9 9999qkkdNG    +>    $>    $>$vB@H ! 9 9999qkdk  ' LB@      $>  N  $>$v !%(    +>  $>  N  $>$v !%4    +>  $>  N  $>$v !%(    +>  $>  N  $>$v !%4    +>  'k :  $B@H | B@v$t!'  wafer data $tB@Hk@'  d $>total quantity of waferwafcount L% +> $>e ' Exit Fork  :  $v %'lSELECT SHIP_SUB_LOT_ID,WAFER_COUNT ,SUBLOT_ID,c2.WAF_ID,c2.SLOT_NO,C2.READ_WAF_ID FROM COCMEASSHIPLISTSTD c ' >INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID ' EINNER JOIN COCMEASDATAINFOS c2 on c2.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' WHERE FILE_NAME =' H!' ORDER BY SHIP_SEQ,c2.SLOT_NO '[ ADODB.recordset$p.\ t \(r-αͣ޷ x \(v0αԣ޷  ~ \B@ \!'N  \! SUBLOT_ID \%   +>SLOT_NO \%   +> READ_WAF_ID \%   +>OK    +> \B@(ADODB.recordset$p. t (r-αͣ޷ x (v0αԣ޷Bselect c2.SUBLOT_ID,ms.SHIP_SUB_LOT_ID from COCMEASSHIPLISTSTD c2 'b b >INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c2.SUBLOT_ID 'b b  WHERE c2.FILE_NAME =' H' ORDER BY SHIP_SEQ 'b b ~ B@ !'h   af  $>'L  $>'N item $(]@]] ;$'0'  yp] 8yk $'st ȡ㷽ʽg5;MN $' ȡѯsqlֵm st$$'ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷  ~ B@ !'f H  f  ]   $> $']0]H  $'.Open $ $' ;$' ' wa mm.RNG    +>   $>B@H ! 9999qPkH  B@r   ! WAF_ID % measdata % measdata %'  $X'8ֵ@  $$' k0 0.00000$X   +> N   N 55   $>B@H  !X 9999qhk`kX L ta")  L    $>B@H  ! 9999q8k0kpdhNG    +>   $>B@H=  ! 9999q0kp  ' kX B@e = 0@kph`kXkPdh'h kXp f ' B@ HADODB.recordset$p. t (r-αͣ޷ x (v0αԣ޷Bselect c2.SUBLOT_ID,ms.SHIP_SUB_LOT_ID from COCMEASSHIPLISTSTD c2 'b b >INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c2.SUBLOT_ID 'b b  WHERE c2.FILE_NAME =' H' ORDER BY SHIP_SEQ 'b b ~ B@ !'h'  *  !SHIP_SUB_LOT_ID %' ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷9SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' 'order by SLOT_NO '  ~ B@ !'f    $>'  $>'L  $>'N  cMNAPRESP1;MNAPRESP2;MNAPRESP3;MNAPRESP4;MNAPRESP5;MNACPTRE1;MNACPTRE2;MNACPTRE3;MNACPTRE4;MNACPTRE5ADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷SELECT MEAS_ITEM_689,MEAS_ITEM_857,MEAS_ITEM_859,MEAS_ITEM_860,MEAS_ITEM_861,MEAS_ITEM_862,MEAS_ITEM_867,MEAS_ITEM_868,MEAS_ITEM_869,MEAS_ITEM_870 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j !   j ! MEAS_ITEM_689 j % MEAS_ITEM_857 j % MEAS_ITEM_859 j % MEAS_ITEM_860 j % MEAS_ITEM_861 j % MEAS_ITEM_862 j % MEAS_ITEM_867 j % MEAS_ITEM_868 j % MEAS_ITEM_869 j % MEAS_ITEM_870 j %D ' 2   2$ 2$   +>k80 j B@ j B@B  f  N    $>$8 N NG    +>   $>B@H ! 9999q kk L    $>$8 L NG    +>   $>B@H ! 9999q@k8k0(d  2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999q k MNAPRESP1;MNACPTRE1eADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷NSELECT MEAS_ITEM_689,MEAS_ITEM_857 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j !   j ! MEAS_ITEM_689 j % MEAS_ITEM_857 j %D' 2   2$ 2$   +>k  j B@ j B@B  f  N    $>$8 N NG    +>   $>B@H ! 9999q k k L    $>$8 L NG    +>   $>B@H ! 9999qkkd 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999qkk(q 999 9 !t$  $> f  $>$vB@H=NG   $> f   $>+vSDATAI 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"dkkq999 9 !X   $>B@H NG    +>   $>$8 L un L ).Cok kq999 9 !   $>B@HNG    +>    $>$8 N  N   f  j B@B 5Cells(21 + wafcount, itemcount).CopyFromRecordset res  j B@ MEAS_ITEM_233 j % MEAS_ITEM_234 j %D   +>  j ! j ! l ~ j B@NSELECT MEAS_ITEM_233,MEAS_ITEM_234 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l x j (v=αԣ޷ t j (r:αͣ޷ADODB.recordset$p.j OXYCONCENHEAD;OXYCONCENTAILe ORGTAIL;ORGHEADeADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷NSELECT MEAS_ITEM_235,MEAS_ITEM_236 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j !   j ! MEAS_ITEM_235 j % MEAS_ITEM_236 j %D   +> j B@ 5Cells(21 + wafcount, itemcount).CopyFromRecordset res j B@B  f  N    $>$8 N NG    +>   $>B@H ! 9999q?kx?kp? L    $>$8 L NG    +>   $>B@H ! 9999q>k>k>>d> 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999qp=kh= RRGHEAD;RRGTAILeADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷NSELECT MEAS_ITEM_231,MEAS_ITEM_232 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j !   j ! MEAS_ITEM_231 j % MEAS_ITEM_232 j %D   +> j B@; 5Cells(21 + wafcount, itemcount).CopyFromRecordset res j B@B  f  N    $>$8 N NG    +>   $>B@H ! 9999qX:kP:kH: L    $>$8 L NG    +>   $>B@H ! 9999qx9kp9kh9`9dX9 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999qH8k@8 CHEAD*5;CTAIL*5eADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷nSELECT MEAS_ITEM_239*5 MEAS_ITEM_239,MEAS_ITEM_240*5 MEAS_ITEM_240 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j !   j ! MEAS_ITEM_239 j % MEAS_ITEM_240 j %D   +> j B@H6 5Cells(21 + wafcount, itemcount).CopyFromRecordset res j B@B  f  N    $>$8 N NG    +>   $>B@H ! 9999q5k5k5 L    $>$8 L NG    +>   $>B@H ! 9999q04k(4k 44d4 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999q3k2 7(ORIENTATIONX*ORIENTATIONX+ORIENTATIONY*ORIENTATIONY)eADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷{SELECT (MEAS_ITEM_227*MEAS_ITEM_227+MEAS_ITEM_228*MEAS_ITEM_228) MEAS_ITEM_DATA FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j !   j ! MEAS_ITEM_DATA j %$    +> j B@0 5Cells(21 + wafcount, itemcount).CopyFromRecordset res j B@B  f  N    $>$8 N NG    +>   $>B@H ! 9999q/k/k/ L    $>$8 L NG    +>   $>B@H ! 9999q.k.k..d. 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@H ! 9999q-k- ; $' 2jingshu2 = Split(jingshu(1), "/", , vbTextCompare)2jingshu1 = Split(jingshu(0), "/", , vbTextCompare)2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷  ~ B@' ! COLUMN_NUM %' d*$ / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@ ! COLUMN_NUM %' /$ ' d)$ - $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ ! COLUMN_NUM %' -$ ' dH($ * $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rKαͣ޷ x (vNαԣ޷  ~ B@ ! COLUMN_NUM %' *$ ' d&$ + $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rOαͣ޷ x (vRαԣ޷  ~ B@ COLUMN_NUM %' +$ ' k%k%k%k% 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ '' ADODB.recordset$p. t (rDαͣ޷ x (vGαԣ޷ ~ B@' ! COLUMN_NUM %' dX$$ / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ ! COLUMN_NUM %' /$ ' d#$ - $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rKαͣ޷ x (vNαԣ޷  ~ B@ ! COLUMN_NUM %' -$ ' d!$ * $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rOαͣ޷ x (vRαԣ޷  ~ B@ ! COLUMN_NUM %' *$ ' dP $ + $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rSαͣ޷ x (vVαԣ޷  ~ B@ COLUMN_NUM %' +$ ' kkkk  SELECT ROUND(MEAS_ITEM_ ,5)  4 data2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO'ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@dSELECT MEAS_ITEM_ 4 data2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO'ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@kSELECT COUNT(MEAS_ITEM_ 6) count2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' 't ADODB.recordset$p.v t v (rDαͣ޷ x v (vGαԣ޷ t ~ v B@k  SELECT ROUND(MEAS_ITEM_ ,5)  3 data1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO 'ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@d@SELECT MEAS_ITEM_ 3 data1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO 'ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@k SELECT COUNT(MEAS_ITEM_ 6) count1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' 'x ADODB.recordset$p.z t z (r@αͣ޷ x z (vCαԣ޷ x ~ z B@ count1 z % f    $>B@@  f  N    $>$8 N NG   +>  $>B@H ! 9999qkk L    $>$8 L NG    +>   $>B@H ! 9999qkkcount2 v % f e   $>B@@  f  N    $>$8 N NG    +>   $>B@H ! 9999qkk L    $>$8 L NG    +>   $>B@H ! 9999qkkkdcount1 z %   $>B@@  f  N    $>$8 N NG    +>   $>B@H ! 9999qkkx L    $>$8 L NG    +>   $>B@H ! 9999qkkdNG   $>  f   $>+v  $> f  $>$vB@H ! 9999qkkkk f ' B@` :  $B@H | B@v%------------------------------------- dataworkbook.Save: 'dataworkbook.SaveAs ss & filename & ".csv", xlCSVk dataworkbook.SaveAs ss & Cells(2, 5) & "-eC.O.A Format-" & Cells(2, 2) & ".xlsx", xlWorkbookDefaultJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ7Set p_workbook = Workbooks.Open(ss & filename & ".csv") (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@p_workbook.Save رչ B@Bp_workbook.Close Ļˢ´ (rA@(MsgBox "о" & FileName & "resļ"o MTQC MMCL  METK  MER2  MEPC  MMK3  MFMM  QMK3  MNA exsdPs2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' ''ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷  ~ B@ !ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@ !dp$1Cells(i + irow - 1, wafer_column + 2 + coun) = ""kpkxpppSELECT MEAS_ITEM_ COLUMN_NUM %3 data FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO 'hv   $>B@@v *  hwafcouSHIP_SUB_LOT_ID %' out = ' $>' MFP5 MWE3 cMNAPRESP1;MNAPRESP2;MNAPRESP3;MNAPRESP4;MNAPRESP5;MNACPTRE1;MNACPTRE2;MNACPTRE3;MNACPTRE4;MNACPTRE5SELECT WAF_ID,  C measdata,SP_DATA_STATE FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' 'order by SLOT_NO 'r P^' ADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷ l ~ j B@er by j !   j ! <> MEAS_ITEM_233 j % MEAS_ITEM_234 j %D   +>CP j B@ 5Cells(21 + wafcount, itemcount).CopyFromRecordset res8 j B@B   f  N ")   $>$8 N o NG    +>   $>B@H ! 9999qkk L    $>$8 L  NG    +>   $>B@Hit !em1) 9999q؅kЅkȅd 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG   $> f   $>+v  $> f  $>$vB@Hio !ent 9999qk OXYCONCENHEAD/2;OXYCONCENTAIL/2eID, RSELECT MEAS_ITEM_233/2,MEAS_ITEM_234/2 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l XOXYCONCENTAIL/2eID, RSELECT MEAS_ITEM_233/2,MEAS_ITEM_234/2 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l X wafid = Left(Cells(itemdyg + 4 + wafcount + y, 3), 10)H spdata = spdatafind(wafid, sublotid)P Column1 = spfind(strResult2(0), spdata)H strResult3 = Split(spdata, ";")8 If counttayp = 0 ThenX Cells(itemdyg + 4 + wafcount + y, B + 1) = "NG"` Cells(itemdyg + 4 + wafcount + y, itemcount).SelectP .PatternColorIndex = xlAutomatic@ .TintAndShade = 0H .PatternTintAndShade = 00 End With8 If Column1 <> "" Then8 numm.MoveFirstH For sqlnum = 1 To numm.RecordCountP If wafid = numm.Fields("WAF_ID") ThenP num = numm.Fields("measdata")P If UBound(strResult2) > 1 ThenP num2 = CDbl(strResult2(1))` num = getnum(num, num2, strResult2(2)) Cells(itemdyg + 4 + wafcount + y, itemcount) = CDbl(Format(num, "0.00000"))H If shangx <> "" Thenp Cells(itemdyg + 4 + wafcount + y, itemcount).SelectX With Selection.Interior` .PatternColorIndex = xlAutomaticP .Color = 255X .PatternTintAndShade = 0H End With@ End If8 End IfH If xiax <> "" ThenP If num <= xiax Thenp Cells(itemdyg + 4 + wafcount + y, itemcount).Select` .PatternColorIndex = xlAutomaticP .Color = 255P .TintAndShade = 0X .PatternTintAndShade = 0H End With8 End If8 Elseh Cells(itemdyg + 4 + wafcount + y, B + 1) = "NG"h Cells(itemdyg + 4 + wafcount + y, itemcount).SelectX .PatternColorIndex = xlAutomaticH .Color = 255H .TintAndShade = 0P .PatternTintAndShade = 08 End If@ flag = flag + 10 End If8 numm.MoveNext( End If( Next Next End If Else sadsadsad = 1 Next0 wafcount = wafcount + wafcounts sublot.MoveNextP^' r9Attribute VB_Name = "Ϻо" Sub 8() '嵥ļ 2'Ļˢ@´Z Application.Scre enUpdngAFalse'FileTrim(Cells(1, 2)w If $"" Then< MsgBox (""I(Exit End/con@nectDBS et wp= CreateObj("ADODB.recordset..CursorTypadOpenSt{c 'α3 "LoadUseClienBt#ԕ#Dim pdsrc As Sngk wpsqlCv!Ʒs$s aaARa ngoitem  nuDoub l sotid %SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHER@E FILE ='" && "' GROUP BY JCboK, cpsDBC@JWh.EOF <> TrueTжǷΪX'ȡf@tr@{Fields("*ɱ'õ˾"AcustomernB("7Há7Dpath1 $Cԭ~·һ 'ӵxa+R<\\10.A52.142\coc\. ServerSharb112ģerŚadminist ratorPasswx."fthw-82905X028hICF older sts()%DE@ 20 Elt Net kkW`ipt.)Acfsoing.ASys u# -.MapDrive "",)2, ", ,, %)Kg 1'%FaK%S=Ax\пͻA?\|^!i ')K` \  & hD'ThisWorkbook.PiDebug.Pri &X`".xl 0/, t6).Sel091 "s sum(WAFPCOUNT) wafcount,to_c(PLAN_Q_TIME,'ymmdd') f$,ORD@O fromD lY,Bq)iA OAq.6 ؇u3!6> _ dyQlFor 1 To 10?a*, 1) = "total quantity of wafer" Then Cells(dyg, 2)idset.Fields("count")ElseIf 1D"yitemws'Exit Fornd If Next  'ѭsublotidBsql1J"SELECT cocd.PRODUCT_ID ,COCD.SUBdLOdh 1WAFER_COUNT,to_ char(HIS_REGIST_DTTM,'ymmdd')  ADD_MONTHS(DH.-1,18)$PLAN_SHIP_TIME,RFIDA5FROM F3PRD. DOPE_ dh "EBG& "INNER JO@IN MESBTAG ms ON-@.@C_I =I"@ZMEASbLJSTDBcDC`USTOM@W\ =f bWHE8RE 9t@0('EPKG','A) AND FILE_name='" & FileN@"' BqCAT ='O@C' ORDDB$Y >EQ Se t @CreateObject("ADODB.recorލCursorTypeadOpenStatic 'αͣ޷Z HLocon UseClient  B, csDBConn io̎@m_id_czRCGMABAApplic.A(Range(%+ 53:5Uh)'Õ8 0GsA(I1:I65536)7a''@\^= B + 11 A 1 To G' c g28 A, BOKL4°#,ed`}-LOT+ 3_   4 1- K+!32rowk-@44A4B!2check=d3,9>mins +1_ ma xQ2_ 'gzM# ' tE: sq1~<> "" Aw0̶o measpB ucAS_AVG, 0^EV,MYAX PCS jaDATA-SUM c].`Y@?*"\^af_IpTEMSDe n'``& <>0ys Q`B`%``.aaaakaaa3 Rbbqlb' b '0:?3z2"ave" Or (vg-c4@ nt[F- ;1f uY_a`D:/$EODF #0Dh MAXaxO mO tuOO 4AO O G ini INO O =JC @O I d"d~"!e`R"7* {jem0}XWti y R(! + oF0&bwmOul!6) >3|om/"Ҥa" NG\\ Range(Cells(itemdyg + 8A, lotrowX<1), !4)).Select  With ,ion.Interi or8S.Pat/n = xlSolid+7ColorIndex Automatic"255TintAndShade0$sEnd 3A IfElseIf mins <> "" Then easset.Fields("MEAS_MIN") <AyBB@Q"NG"#AÿA6ǿor,\$.Uq\!\e`A`wL?T9T?S ?S ‚,-E4A`?P .?O ?N ?M;L5KFF=+:3NexlidMove#+F=sss 4 To B[0\q< B_}/7, + 3) Applictp}Workshee@tFunct~Max(/9Wq`_id_count))    4  in   !  4 + @C  /ԥ   {"(=T\2m6/Row& ":"h & 2?gDЭte Shift:=xlUp'/NamS/s(P 6@InStr(f, "wafer dataP> 08@`5sW }9= AAA= 1AA10l s5@, 14"total quantity of C2J="(T " W'Exit _+$yWB:C}IA9%0@&}&3CiAsql1@"SELECT SHIP_SUB_LOT_ID,WAFER_COU0NT ,pdc2..SANO,C2.READ_ FROM COCaLISTSTD c Xb1INNER JOIN MES_aTAG ms ONP.CU0STOM  =c.F   DATAINFOS c2 onPd =ms.@` WHERE FILE_NAME ='1>0FileR9' ORD BY4EQ,Debug.Pr0 Setza= CreateObj("ADODB.recor1y--pNP.CursorTypBadO pe@ 'αͣ޷p7,LowP$adUse@Clientֵԣ޷@ lotSet.Open sql1, csDBConnectionZ_id_count = xRec0ordC(\For iF1 To(Cells(itemdyg + 3i, 1)dFields("SUBLOT`_ID") C2S! NO 3 READ_WAFCBig"OK"\MoveNext subCreateObj("A@DODB.rs et mC .CursorTypeadA}Static 'ӀαJLoc@onBUseClie@^"sel4 c2.z,ms.SH(IP_@_ from COCMEASLISTSTD WI& "INNER JOIN MES_ATAG ms ON@.CUSTOMER@ =$f WHERE3FILE_NAME ='" & FileName"' ODRD@#BY !_SEQSꂁ@L;u.uK!qwaf% 0} B~c k id=C.{@NAPRESP1;M$2&3&4&5!CPTRE""""""""5" Thela$a +Adfindt;) aDim strResult() As $ing "" Th en#numm.MoveFirstFsql1 To $RecordCoun%!1waf id@Fields("WAF_ID")5measdataAK KM+OgR@AUBOd(strResult2) > X/ju*2*CDblH(1)))'ֵ7Oget(`",AH2, G(2?Ao?hCells(itemdyg + 4``ScZ@y, a)*amat"0.0"@shangx?z + >=   ?$'$.SeleczA  @ion.InilorO=.$"Index :xlAuto9ic? > B ] ٟ,E _ 'p9 /<2xia77<= "7/7+ II77er7o77O77ϩ/7_3 ElseV/1-1BP{1z"NG"O/O7em766/665?55_44,?4?0? 0flagb+ 1*OOpNexO 2 Next @End If6Elsebsad = 1"PwafcountK +  s^sublot.Move( aSet '>CreateObject("ADODB.recordset")BCursorType adOpenStatic 'αͣ޷&HLoc on(UseClieG#sql!"sel4 c2.SUBLOT_ID,ms.SPHIP_@_ from COCMEASLISTSTD "+CB& "INNER JOIN MES_ATAG ms ON@.CUSTOMEfR@ =$f WHERE3FILE_NAME ='" & Fi@leName" ' ORD@#BYB !_SEQS.Am1, csD BConnMion>DRBCAGK K= 0KFor 1 T:o#.id<$Fields("#UBd;Wa_numm?_h.__d _/_ @ 92"SELECT WAF _ FROM\DATAINFOS cJaAJ+0!`,+ "'`er by SafNO JmCJDJAm>EitemP3EB J a Cells(dyg, Cxiax + 1?shanJgq2If <> "" TheLoe= "MNAPRESPT1;%2&3&4&5!CPTRE""""""""5!ires&s@kOeOe??6ff&9Res66ad_ITEM_689,857604612Z68:70????bqddvU midD?_?2e3?-x_ \> a0_ Ay00!Am-/arr0Array(AEe"), AS 85960m1278 Б 7 T?aQLBPd( )1U5 "0~)R?Ja]40&+ y[ $o oo1' r,Clo6w{54ron/Val(@) >= $?u//B1)!"NGlV`(.SB'OWith .InteriorOO.PatnColorInde!xlAutom1`2551 .TintAndShade `= 0 L.Pattern;End With3'1If#/)+If xiax <> "" ThenIVal(Cells(itemdyg + 4wafcount1y, ))x <=8+5ɟ3B 71)"NG"1#1.Sele,ct+{ ion.In@ior+A*EColor Index 1 For y00 |TobiJo  arr0Array(Fiel0ds("7"),")o'K aLBd() U? 0@ߛ_o+ p$o AsMove, __ Cl~oy'Jq  shxϐ>=%/?"="?(em(~O~eri1_߁/1>Q/_A?1+> "" Then $If Val(Cells(itemdy g + 4wa@fcounty , 6)) <= xiax,gBn1) = p"NG"'#\b.@Select+0With ion.Interior+"T.PatnColorIndexxxlAutomatic(#%@255pTintAndShatde04{E8nd AYA If# Nex\Else'MsgBox sublotid & "RESISHEAD;BTAILû`!`Range, h, myzs - 1e?nVaasqpF.n.c,A^jc] 4"OXYCONCENX aY t res CreateObj@("ADODB.recordset");l@.CursorTypadOpenSt! 'αͣ޷`_ C L$oc onadUseClie@a Կ 2R essql "SELECT MEAS_ITEM_233,4 FROM COCDA@,NFOS c WHERE SUB_LOT_ID ='"F' ORDER BY SANO /E !1 # , csDBConnoO"RC> 1O For y 0 To!.ipJo> Na*omArray(A Fie lds("3" ),234"))/ MovfeOe __ ']21@ \YWIpyFromS4 ? Clo?mO *eo "shlx = $?%?+ %m+qOro s`4?ttu//v??w1ٟo5?o5+ ZLs/O5oO5O5em#O5OO5O5oO5_ : .Color = 255 $@.TintAndShade00Pattern;IEnd With'IfNext(Else9'MsgBox sublotid & "RESISHEAD;TAILûP!"*Range(Cells(itemd@yg + 4wafcount, B@1), C  s - 1 )@}"NG%" ).Sel\ec_  i on.In@io6rP.DBIndex?xlAutomaticd.4څ+/A^jc]If 4DOXY@CONCENX/ 2;Y/2" Then[(Set res Cre@ateObj>("ADODB.recordset ")@.Cur@sorTyp!adOpenSt8 'ͣ޷#_ C Loc onadUseClient Կ NgRessql "SELECT MEAS_ITEM_233/2,4/2 FROM COC DA-NFOS c WHERE SUB_LOT_ID ='"I' ORDER BY SNO. |*( , csDBConn_`4m'ERb8Ca > 1B#Fy"0 ToD~.[+ y,BY# Array(Fields("/3"84")\Te!Move!'21h] PpyFromS51?c9 Clo?n > heo "sh mx <>< "C?Valp) >|= $J%+ UwP%tO}C}m r?ser?sssu??v/v?w1xiao5o5N() <= O5O5O5+ 1?קO5O5O5o O5O5oO5O5O5O5O5/a/Qe2/y}____E Range(Cells(itemdyg + 4wafcou nt, B41),  lLs - 1V) = "NG" !$/).SelectWith ion.Interior!k.PatnColorIndexxlAutomatic"255TintAndShade0$WoEndN AJA IfElseIf i-"ORGTAIL;HEAD" Then[Set res@Cre@ateObj@y("ADODB.recordset ").Cur@sorTypPadOpenStm 'ͣ޷Locon+adUseClientGԁmRessql@"SELECT MEAS_ITE@M_235,I6 FROM COCADAZNFOS c WHERE SUB_LOT_ID ='" & sublotid@"' ORDER BY SNO |zA*a( C, csDBConn3k&BR7C > 1AbFor y@"0 ToC.?`[B9y,V Array(Fieldsd("i/5" 6")Se!MoveNex?  2'21Hi.CopyFrom(ia*(aClose_ 6AEshx <> "߆agVal:=) >= D 灞o# J_ + E*qqo rr*`wPs?._p_% uv1xiao5o5() <= O5Z}/O5?O5em`O5OO5O5oO5_O5O5O5//a/Qe2/y}!? ]'MsgBox )RES4ISq;û!ߚ= C4p'1 8??y/88*OO766? .HPatternTintAndShade = 0  End WithRJIfFElseIf itemv"RRG HEAD;TAIL" ThenaSet res=CreateObject("ADODB.recordset")F!.CursorTypadOpenStatic 'αͣ޷"%-Loc'onVadUseClient.ԭ.Ressql("SELECT MEAS_ITEM_231,2 FROM C$OC DANFOS c WHERE SUB_LOT_ID ='" & sublotid"' ORDER BY S NO "=P (, csD BConngioudRoCou1I> 1For yD0 To.- 1-@Cells(d@yg + 4wafc#+ y, )Array(-Fields("^1"),"2")$MoveNext_1c '21i.CopyFro>m(iaCl8ose_ 6e,s _5"Eshangx <> "߆)Val(=aA=) >= D ? B`11J"NGl + V.Selq4 F x.Ini,or-.ColorIndexhxlAutom? . B 255MN]1xiao5o5oTlT) <= O5oO5}/O5?O5emAO5OO5erO5O5O5o_9O5? .O5o% a/QA?2/y}!? ]'MsgBox )RESISûp!od= R tepzC4,4l<{, ol}y?@g9)98888O7?6?? 5o!/_51C+*5;C+*5 @9*5940*S5 MEAS_ITEM_240 FROM COCDATAINFOS c WHERE SUB_LOT_ID ='" & sublotid"' ORDER BY SHNO "  res.Open Ressql, csDBConnectiDon 1 T he8For y = 0 To1#- 1=iCells(itemdyg + 4wafcF+ y,, )6Array(ZFie lds("39"),E40" ))I/MoveNext': 2176.Cop yFromcset2_*Close lXs j@shangx

""z@Val({) >= _Bb1A"NG #V.Selq4 `With x.Interiora.Pat`nColorIndexhxlAutomatic? . B 255TintAndShade0_ND? -End ϡ,!If @cxiaj'jj˨) <= jMjjm  j jj_9O5_ .0o% a/O52/y}Els= 'MsgBox )RESISHEA D;Lûp!od^R tepzC4, 1<{, ol }y?@+ <w9)n8n83_mO76߹? 5oo!/51.Pfap"(ORIENTATIONX*+YY)/} PCreateObj("ADODB.r"bursorTypaadQSt! 'ͣ޷GzLocon adUseClie->c"SELECT (ʨ27*+88)XQooooo Aoo&ooo?7KVmSq>rOZl res.MoveNext $#'Cells(21 + wafcount, item).CopyFromRecordset }Close*For y = 0 To`s - 1;}If shangx <> "" ThenValF({dyg4 y) >=/9+684B81)ဈ"NG"d#vSelec` With ion.Interi ork).PatnColorIndex 0 The !qCOUNT19XFields("COLUMN0_NUMahsmRuA"/J1wExlse<@,S`plit(, "-", , vbTextCompare`?ɫAr ( _f_f F fU_ge ggEh-_hdh[i*_i l5i߿ί_jϯ j h]c _k_k5_i/6ioo6_j_j6*66o/7k+/7k/bo7ϞϞϞϞ77OOO61/8d&o8o8333{3+3E`nd If? _??_ 9MUBd) /O:r4D(1_I9دe*11>E/pٿ J71/_ P12p"q1=AW =") Elsejingshu2 = Split( (1), "/", , vbTextCompare WmeassqlsW"SELECT * FROM COCMEASDITEMSSTD WHERE _ ='" &" (0) "'B"#Set >et>CreateObject("ADODB.recordset")f'.Curso rTypekadOpenStatic 'α][3Loc -on5UseC lient5<Ծ0L@k, csDBConnKion-IfF\D.RVCou*<> 0 The`COUNTAFields("COLUMN_NUrMelsmI1{ϟ-пha v_i_i ;iil _j_j9 jf_k~ _l_l aEm-M1% mW%d1 S0*_n 8׿2R_o76*7lllo/8_m_m$_&o8m8_n8oo/%9*/9o990+9?yO9ϥϥϥϥ /:6,o:o:o:o:<::::f::555{5+5End IfOB ""?Ocql3zeROUND(_1& ",5) data2 ATAINF OS c2 SUB_LOT_IDsublotid= ORDER BY SANO (> 䏿et3 measset3.CursorLocation = adUseClient 'αԣ޷ʂ,Open xql3, csDBConnecyKElse(q1f"SELECT MEAS_ITEM_" & COUNT2" data2 FROM CDATAINFOS c2 WHERE SUB_LOT _ID=' su@blotid!' ORDER BY SNO"q#TSetVCreateObj("ADODB.record ")(~GvTypeIadA_St@ycu;uݫŒ4}nd IfQcountsq\l2N()> >(et(> d?F.: F bE 9ߍ7 m[GEKO smu1 <> "" ThenQ_AQROUNDQ11,5)b & ]c1_Z- _U /ț?UߛE2U_>- kd TT I2Ti #_LTr#p"ppp".Y "pp]iM?p<"v]f"ߓIR1?o"4o1ϓ###D ! et ?nO /DenߑߑO o!o!o!o!Y72!ql1C ?If UB`d(jingshu) > >0k;7 Fi@elds("1")%wafCells(itemdyg + 40u, q").CopyFromRCfca,or y@ o - 1shangx~/Val(m_+6 y=> d_21+Cc`1"NG:tshxSelP/W8ith.InteriorC.PatnColorIndex xlAutom_? )q255.TintAndShhad0oFڲ .PatternTintAndShade =0 0 4End With+r5 If'3-/If xiax <> "" ThenOVal(Cells(itemdy g + 4wa@fcounty , )) <^=:/75B91)"NG"g#3.Select / ion.In@ior/A,EColorIndex?xlAutomatict@255t͉7?aypNexG Else@mhset2.Fields(""2"]msxyiiv.CopyFromRecordA@ meas3?C For y@I 0 To '- 1 shang%  >=  f  ^ /Tw .F JG?`4O/o8O+m8O?2+fHO8 O8?O8erOOO83OO8O8O8o 1jO5Os ÿ ;11`}]2?2??  ?s ??(?ҙ) ??HN NoNN/NNzmatic 0.Color = 2554TintAndShadeH04FPattern?MEnd` WithCIfIf xiax <> ""` ThenOVal(Cells(itemdyg + 4waf county, )) <=/B1)}"NG"3#3.Select/ ion.Ibn@ior/A,.DBIndex?xlAuto???pwp cpj+NexG Else_C Rangeqd, c,  3߯%%%% e05%%%O! )&$+&}&3&sp+ ug)jP\pyFrom,@߿ O'0irowxer_column20y(X.]w?qP='s8.MoveRowg& ":Eac2)'Dte Shift:=xlUp |'-pGworkbook.SavP''QIAAs ssFfilenameG.csv", xlCSV#2, 5O-eC.O.A For--2.x(lsxW De0faulh  /u-1T 'Mp24 2   'csvļSet p_workbook = W s.Open(ss & filenameI ".C")AApplication.DisplayAlertsAKFalse6Columns(8).Delet #TruEnd If Rwp.Mov`eNext data.Sav \' رC`qJClo HWend'Ļˢ`´IOScreenUp8ing@aO `' Cc A DB'MsgBox "T"@{F~N~res" OSubSNrR1xME@`` %`p` @% H%HXhx(8HXhx H*HvX  @X  h @H @0 X @ ( @ @ @ @ Xp @h P @H @( @ @ @ @ @ @ @ @h ` H @0 @ @ ( @    ( @ r0 `rp(p @X y@ y ( @L  @ @ p X @ ( x @`  H  0   @ @ @ @ @ @ (p X 0 @ X@ h (( @ @ X h   X @ @  h x h P @8  0rx   `   ! ` !  0 ,@ `X ,h  5 ` 5 ?AX p 8 X (pk$*\Rffff*S66c06f1b5 "  ( H 4`dpd  L   L  ((0H0x <F** &( H$`  && "   (0 X p      ( *( D   (8n@ Xx P@ R@ ` <x  $   2  @ H X 2p    BL  .  8@    HRh   & F  P8  @  P p N  JFX  ( 0 0 F(  @ pP  p L @  2  f  ,  2 $  ,v  .vH  *vx  .v  0v  $  L L8 TP  h  x L ^ H ,J8J4 (( 0H 0x Z8$ ($0$0($FX&p .<, 4@ HX&`v0*0<,8<x 6 6 N( *x < 6 68 Np * < 6H 6 N * 8PX*`$ ($0$0$F&  .H<,x 4 2J(2HV` v NL ( 0 0@ Zp   ( 0 0 F  , #20  h p   NL ( 0 0@ Fp  ,$$ ($0$0$F 0$,( (&v8 $ ` h $     2 J NL  (0!0P!0!Z! (! ("0"0#FH# ,,`#2p# # ## #H0# (($0H$0x$Z$,$$ (%0%0(&FX& ,,p&$8& & &&&& &"'f0' FP' `' h' p' x' ''v'f' F' ' ' ' ' ((( $("((fP( Fp( ( ( ( ( ((v(f( F( ) ) ) )  )()0)8)@) H) P)`)  ,h) P) J)    8*&H*  4p*  6* R* * R* H+*X+  p+ J+B+J+B+J+B+J,B(,J@,BX,Jp,B,J,B,  , 0, , - - 6(- 8-  H-*^P- *(- (- -6- -. . (. 8.Yangtze_River_storage_you嵥ļļرĻˢ´ (r$>$'H$>$' дPurchaserDA@J|(k H嵥ļA@J|kA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]]SELECT CUSTOMER_NAME ,PRODUCT_ID,SUBSTR(FILE_NAME,-3) BH,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H=' GROUP BY PRODUCT_IDCUSTOMER_NAME,FILE_NAME,PLAN_SHIP_TIME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'BʱPLAN_SHIP_TIME <%'X BH <%' ] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dXWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'Qsrcpath = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@HkPdH7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pѭsublotidSELECT c.SUB_LOT_ID ,c1.WAFER_COUNT ,SLOT_NO ,READ_WAF_ID,to_char(c1.PLAN_SHIP_TIME,'yyyy/mm/dd') PLAN_SHIP_TIME,WAF_ID FROM COCMEASDATAINFOS c ' ?INNER JOIN COCMEASSHIPLISTSTD c1 ON c.SUB_LOT_ID =c1.SUBLOT_ID ' WHERE FILE_NAME =' H' ORDER BY SUB_LOT_ID,SLOT_NO 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N1:1$v %' LO = 0 +>A2:EK2$vB@H B@A7:A N $vB@H <B@ zB@  N SUB_LOT_ID L%  +> WAFER_COUNT L%  +>SLOT_NO L%  +> READ_WAF_ID L%  +>PLAN_SHIP_TIME L%  +>   $>'N  $>'L  $>'  $  SUB_LOT_ID L%WAF_ID L%$ 0.00000$'   +> ORIENTATIONX;ORIENTATIONY RESISHEAD;RESISTAIL RRGHEAD;RRGTAIL MER2AVG*1.3945;MER2AVE*1.3945e ; ; $' ','$ ' k(4SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS in(' ')'ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@  !SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='WAF_ID L%' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ ORIENTATIONX;ORIENTATIONYdata %X   +> RESISHEAD;RESISTAIL RRGHEAD;RRGTAILedata %X   +>k B@ ORIENTATIONX;ORIENTATIONY=SQRT(EL  *EL  +EM  *EM  )  +>  $>X  +> ' RESISHEAD;RESISTAIL RRGHEAD;RRGTAILeEN  $v!xEO  $v!x EO  $v!x   +>EN  $v!x   +> =AVERAGE(EO  :EN  )  +>  $>X  +> AAAAAAA = 11EN  $v!xEO  $v!x eEN  $v!x   +>EO  $v!x   +> =AVERAGE(EN  :EO  )  +>  $>X  +> AAAAAAA = 11EN  $v!xEO  $v!xeEN  $v!x   +>EO  $v!x   +> =AVERAGE(EN  :EO  )  +>  $>X  +> AAAAAAA = 11kk MER2AVG*1.3945;MER2AVE*1.3945SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='WAF_ID L%' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ ORIENTATIONX;ORIENTATIONYdata %X   +> RESISHEAD;RESISTAIL RRGHEAD;RRGTAILedata %X   +>k B@k ;e ; $'   $/ $/ $'2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='WAF_ID L%' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rBαͣ޷ x (vEαԣ޷  ~ B@ !data %$  +>d$Cells(meas, teams) = ""khd`2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' $''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@ ! SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='WAF_ID L%' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ !data %  +>d(Cells(meas, teams) = ""kpkhk`X /e / $'2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='WAF_ID L%' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@ !data %$  +>dPCells(meas, teams) = ""k(d 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' ''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@ !SELECT ROUND(MEAS_ITEM_ COLUMN_NUM %4,3) data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='WAF_ID L%' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷  ~ B@ !data %000.###$  +>d@ Cells(meas, teams) = ""kkk L   $> L $8  $>B@H ! 9 9999qp  $>e  $>B@H ! 9 9999qk N e  $> N $8  $>B@H ! 9 9999qP  $>e  $>B@H ! 9 9999qkkk LB@%-------------------------------------J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------xlsxļ  H.xlsx %. ( (K-----------------------------------------------2---------------------------k  T0907840008_ X _TP_$>_ .csv' B@ 0 B@ <B@6:6$B@H | B@v5:5$B@H | B@v4:4$B@H | B@v3:3$B@H | B@v2:2$B@H | B@vEN:EO$B@H r| B@vEL:EM$B@H r| B@v رչ B@Bp_workbook.CloseĻˢ´ (rA@Ӻض֥ H resļA@JScripting.FileSystemObject$p. %n .l  ֻ l !p r  l (p  ͷFileSystemObjectʵ.l .oAttribute VB_Name = "Ӻض֥" @ Sub @() 'Yangtze_River_storage_you>'嵀ļ 2'رĻˢ´Z Application.ScreenUpdngFalse'FileTrim(Cells(1, 2)Purchas,er8 "4"If %"" Then0mMsgBox ("дD"3Exit End If1U03ɇ3con@nectDB*S et wp= CreateObj("ADODB.recordset..CursorTyp~adOpenSt@_c 'α3o LoCq@_adUseClienBtDim pdsrc As Sng5wpsql '!Ʒss teamaaARD@SELECT CUSTOMER_NAME ,PRODUCT_ID,SUBST@R(FILE,-3) BH,to_@r(PLAN_SHIP_T@IME,'ym@mdd')  FROM COCMEAS LISTSTD WHERE ='" & Ɣ& "' GROUP BY &,,(?ACn=F+, csDBCJ`qC+WhnJ.EOF <> True@0жΪ0һ2 'lL`,tasCFields("'^'õ˾c cumernc" (" `ʱ'l0=7i cid [9kBH)aU@XpathmNaVԭā%!·һG'ӵ繲a+e V\\10.A52.142`\coc\<  Ser Shar"112րģ`yradmin`istraP0assw$"fthw-829005028hIfZFoldersts()S@ 0 Elćt Net kC +Wipt.i8fso!ing.qSypstem# -.HMapDr H"",)2, ,r ,, %)Kg 1Iρ'%FaK%S=AD\@ͻ\FZ6A;G'WThisWorkbook.P10<M 'Y+ \  < "d'Debug.Prii &0@-p".xlsx?*s(od+ ?汸 k=.}_"_13'pFxml_J= ge[9ss q2a2Copy /$,[/O>qC=MultiLevelD ( o !2o !o _{8W "g:ÀжӦ7a^,ȷ!$)+ @+8C_UkR.RemoveJ(8,J{SdWNothR8 p3һr1,99s$j C ""p Ther!fPindt@( )x num $mat(query 1b,{LmE9), "0.02 R!s<`oaElsee = "ORIENTATIONX;Y" Or#%@RESISH M;!"TAILRG RGnMER2AVG*1.3945;E90 I r(";")!701`strPcity`2S`t', , vbTextCompareNae 2 `Join(3','y3End If0 measi"SELECT * FROM COCMEASDITEMSSTD WHERE aj_b '&` "')" SHet etCreateObj`("ADODB.r e __e <zzz7o`.|Bql~sM|s aRccc"h Z}U!v_!DCOLUMN_N UM1p da(ta $A9NFOS c2$ F< =${pUH|"' a,?"s.?4<>' 7uw?,x,0,,0,ooo|,,,( >0:-bb\jQ2kCDbl(e%,f/,mjjljO 2 sP10V1  obOs.MoveNkEv"=SQRT(EW 6a=*+EMLԸ3m_ms$~aE11/'ߑٓݑ'J`ENX).Value > O+ 1۲_2O A Cells(lot + 6, teams) = "=AVERAGE(EO" & ":EN ")" *РCDbl()TL'A11.ElseIf Ra nge(" a).Value < yThenHd1=6,2 ,[3,H{:΄ѡI`=  - ?@ N fEnd IfWbMER2AVG*1.3945;E" meassqla SELECT MEAS_ITEM_A+ets.Fields("COLUMN_NUM") data FROM COCDATAINFOS c2 WHERE WAF_ID =' idsetF C 8' a#k<>' #SUB_LOT@ 1  ?Ƣ6PSet $!0@%CreateObject("ADODB.recor"߅b .CursorType@ adOpenStatic 'αͣ޷ HLoc` onb UseClientG _ "F a&ql, csDBConn% io׸-ORIENTATIONXz;Y-|>Qpccc!E> -y,")[8RESISHEAD;p/L" OrC "RRGR>G/9 2u sP40f4  EOs.MoveNext&EKI,r(, ";p7<> 0IwstrcitySplit, , vbT0 CompareFor oo0o UBound(ofP(Cc (oo) / j1f  G qls@" [*W[SSTDWTSWe (0\'?P= OOO> &OOOO<OOOf9OsMO, 3 ??OyOyOyOyOyOyOyq~OyOyGOyIDOy("Oy)0((Dxxxx $((( x xW@PRCTt [lteams) = measset.Fields("data") / strcity1@(1) ElseJ'Cells(, t&e"" dnd8 If'#qls 0 8TheEql1A"ďF_MCOLUMN_NUM& "  ATAINFOS c2ĝ WAF_IDiF' aC <>' #SUB_LOT@ [+  ]$ (^A%?^$+1^^9 ?_?_ F _1__aa'b1*b<_biClot + 6f1 ?I˩nEh']́ }Next[ "6Ir(!, "/s6fSplit, , vbT Compareh*ssss1(0sf_s_s_sLD6rrrr B_r_r5qq, 3 _ Gql2mEMmAmmDmmwmms6E>mIDm("m(m?z$2_l(((/(2j i2i| iZ2ioϟ ?i}h) 4bG ;!Yad9 XXX;$XXXX ///(5XXOd}7-s?-?-uBql3ROUND(RR'ȼ",3) data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='" & idset.Fields("4")0"' and _ITEMB_Zmeas^s`COLUMN_NUM4 <>' 9SUB_LOTjim" B Set }3 = CreateObject("ADODB.recorg")%#.CursorType)adOpenStatic 'αͣ޷"/Loc)on1UseClient161Yql3, csDBConnE8ion)M[[ If_.RBZCou1<> 0 The$Cells(lot + 6, @teams)@FFormat(fE"), "00 0.###vElse='!A !"EIfCVxiax ""S P< Val()1 r0.Sel G'With @L.InterioraM0.Pat``xl`SolideColorIndex4xlAutoiEic?.B255.TintAndShad0_E? nA!) !Y==E AA) #`ZA #Ao#5#A_##O% ##Atd __o___5______% __AS NextìfMove '-{o1_2'  sP!'xlsxļ'Sp_workbook)Ws.1(ss@FileName.1AAppli3.DisplayA lertsPFa O1MTru@_i$1ulr "T@090784з8PLAN_SHIP_TIMEq_TPD2, F12cidcsvE.SavĺBAs @, xlCSVC iSwpp.K+Row6:6") zjDte Shift:=xlUp5:5c.4:4?"3:3"2:2 Select ion.Dte Shift:=xlUp Columns("EN:EO").p|ToLeft L:EM2 J'رչdataworkbook.Clo$se0p_Wend'Ļˢ ApplicaScr eenUp4ing = Tru1`'c @DBMsgBox "Ӻ֥" & FileName"resļ"vSet fso7CreateO$bj("Gip tD.$System ")!5C #.Get(ulr3' ֻ(f.AttributesALOr vbReadOnlyi' ͷM&ʵVH%Not>h1B; End Subr+|xME(` %` %. 0%0@P`p 0@P`p 0@P`p 0@P`p 0@P`p k$*\Rffff*Rx6c06f1b5"  ( @P h  x 0008 P`h* 8H h "   ( 0 H  ` p x  *   8 PP N 0 <H     2   ( 2@ x  B         @ ` h &   P  ( 0 08 h $    R N `h   0  0  H  ` 4p  $       "  8  H  &`  (  ,  ,   (@X p p00 *8,h** *H.P  2 $ $($0$8$@ HP Xh  2 $$$$$  (082X          @   ,X  8 D    P Jh     >   0 R@          0 @ P*X  嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hkdx7繲ûжӦģļ,ǶӦģûзȷ·A@JExit Subk   B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@ptselect sum(WAFER_COUNT) wafcount,PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO from COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+>ѭsublotidSELECT cocd.PRODUCT_ID ,DH.SUBLOT_ID ,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'yyyy/mm/dd') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,24),'yyyy/mm/dd') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh ' DINNER JOIN COCMEASSHIPLISTSTD cocd ON dh.SUBLOT_ID =COCD .SUBLOT_ID ' @INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =COCD.SUBLOT_ID ' .WHERE OPE_ID IN ('EPKG','PKG') AND FILE_name=' H' AND dh.HIS_CAT ='OC''ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@ L!'N- b = Range("P65536").End(xlUp).row=COUNTA(P1:P65536)+>$>'  '0   NA10:M  $v.T T B@ 0 $>B@  SUBLOT_ID L% 0 +> WAFER_COUNT L% 0 +>HIS_REGIST_DTTM L% 0 +>HIS_REGIST_DTTM1 L% 0 +>    $>'  $>',  $>'(  ̶cSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' SUBLOT_ID L%' AND MEAS_ITEMS =' ' AND FILE_name=' H' AND MEAS_PCS <>0 'ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !OK  0 +>meas_avg % 0  +> MEAS_STDEV % 0  +>MEAS_MAX % 0  +>MEAS_MIN % 0  +>MEAS_PCS % MEAS_PCS % 0  +>d WAFER_COUNT L% 0  +>kx , MEAS_MAX % , NG  0 +>B 0  :F 0  $vB@H ! 9 9999q k ( eMEAS_MIN % ( NG  0 +>B 0  :F 0  $vB@H ! 9 9999q k k d NG  0 +>B 0  :F 0  $vB@H ! 9 9999q0 k( d k  0   '0 LB@ 10:  $B@H | B@v%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ7Set p_workbook = Workbooks.Open(ss & filename & ".csv") (Columns(8).Delete (K-----------------------------------------------2---------------------------k` <B@ B@p_workbook.Save رչ B@Bp_workbook.CloseĻˢ´ (rA@ණ H resļA@JophcAttribute VB_Name = "ණ" Sub 8() '嵥ļ 2'Ļˢ@´Z Application.Scre enUpdngAFalse'FileTrim(Cells(1, 2)w If $"" Then< MsgBox (""I(Exit End/con@nectDBS et wp= CreateObj("ADODB.recordset..CursorTypadOpenSt{c 'α3 "LoadUseClienBt#ԕ#Dim pdsrc As Sngk wpsqlCv!Ʒs$s aaARango@SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILEA ='" &G|& "' GROU P BY JAwO]n9, csDBCCv97Whw.EOF <> TrueAжǷΪ`һGE'ȡ@trhFields("* 'õ˾"AcustomernB("7p@vpathhAsԭ/·0һ'ӵ繲a+HA<\\10.A52.142\co c\. ServerShar112ģ@\readministrator`Passw`o."fthw-829`05028hIFoldersts()(%DE@ 0 El%t Net k#  Wipt.)Aafso!ing.Sypstem# -.MapDriv e "",)2, ®, ,, %)K]g 1)'%FnaK%S=Ax\ͻA?\|^!i ')K` \ ? & hD'ThisWorkbook.PiDebug.Pri &X`".xlsx1SU'汸K03=[ @a0'puE'xml_bI= W\[}9ssA51Copy /,[@ .=Q1 $10Aitem-22Bm#=check k@<0+6l2mXaxs U8Qi~nXS! aIf <> "" And*̶" The,mameas"SELECT _AVG ,"4EVdM MAXdPCS FROMDATAGSUM FI!ZM#AITEMSd`'Fa<>0 y!ob _ RD aK ߲߲) q^lP Q0+N2 uK5="OK?f W9\5 L_avg'/owAB, r3/("1OOTa+_G, S} B5///r/AS_P;!?eD3") < 25' ^ ElseqOJFi` Ifq^3WU# > Bcomh[3NG_3~BX3?4AX:F0).8SelMWith p.Interior txlS0olid uColorIndexPmxlAutom__Pq255TintwShad0oo`Pab*y,\5),,,INBm, +,`,o ,V,3,,,,_!,,P°0,(eȲ End Wipth `IfF>ElserCells(lotrowitem + LOTON, 15) = "NG"=Range("B" &6>K& ":F).Select- ion.Interior.Patn\xlSolidColorIndexAutomatic255TintAndShade 0 1g AבՇÆ" KNexk4+ B@1idset.Move mG Rows("10:B0ϋD@te Shift:=xlUp A '-!"dataworkbook.Sav'As ssfilename".csv", xlCSV bxlsxWDNormal)F_K!v17#&2+ /4'$(Set p_e/@Le s.Op(en(3-)'Ap0plicxDisplayAleHrts` Fa'yumns(8).ITruB?J-$Y&$"Wvwp!hhCT'MWرչF* Clo'#H HWen'Ļˀ´ 0ScreenUp ing0' 'cc!DBMsgBox "ණFl"NlresG$ 'SubN^]| "TeNbR }mg][ !#>mg]ywm  r?cxME(` %` %0%0@P`p 0@P`p 0@P`p 0@P`p 0@P`p k$*\Rffff*S06c06f1b5Y "  ( @P h  x 0008 P`h* 8H h "   ( 0 H  ` p x  *   8 PP  < 8 P ` p 2    2 ( 0 B8         &( P Ph   00 (( P p  X  h 0 0  $ ,( *X   j   08 0h    , T(  0 0   2  X D XH \ @ *@ p <x 8 N L@ P X *8 ,h  $  0    @H"Px          & . H 2h     @ 0(0X $&$$(PhH &  $0$8$@$H$P X`hpx& (08@HP X p * 8  *0*`* . .   008h <><<P*, H VP , $$$$ $     ( $0 $X $ $ $  !!!  ! (!8! &@! h!  ,x! !"! D!   $(" *P" $" *" $" *# $0# *X# .#  P# J$    X$  h$ x$ $ R$ $ %  %   % 0%  H%  XX%  % %  % % %& & & 0&  @&*H&  x& &嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H1.xlsxA@Hd8 A@ Ʒļ  @.xlsx  H1.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|xkp   B@.k8жһǷƷļ  H1.xlsx$x] ģļ  H1.xlsx %. %.J-----------------------------------------------1--------------------------' B@p total_qtySELECT SUM(WAFER_COUNT) WAFER_COUNT FROM(SELECT SUM(WAFER_COUNT) WAFER_COUNT,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' group by SUBLOT_ID)'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ WAFER_COUNT L% +>ORDER_NO ,PLAN_SHIP_TIMESELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyy/MM/dd') PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,LOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' HB' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,LOT_ID'[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+>%Cells(24, 2) = idset.Fields("LOT_ID")PLAN_SHIP_TIME L%+>ѭsublotidSSELECT lot_Id,subLOT_ID,WAFER_COUNT FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H''ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id Dim lotid% lotid = idset.getRows>SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H';'ADODB.recordset$p. t (r2αͣ޷ x (v5αԣ޷  ~ B@', For subs = 1 To sublots.RecordCount Resistivity = "select d.SUBLOT_ID SUBLOT_ID,d.SLOT_NO SLOT_NO,d.READ_WAF_ID READ_WAF_ID,RF.MEAS_DATA MEAS_DATA from F3PRD.DWAFER d LEFT JOIN (SELECT * FROM RPTVQUACOCF WHERE MEAS_TITLE not in('Slot NO.') AND sub_lot_Id ='" & sublots.Fields("SUBLOT_ID") & "' AND MEAS_ITEM ='MEAS_ITEM_448') rf ON rf.READ_WAF_ID =d.READ_WAF_ID where d.SUBLOT_ID ='" & sublots.Fields("SUBLOT_ID") & "' order by d.SLOT_NO"> Set Resistivitys = CreateObject("ADODB.recordset")R Resistivitys.CursorType = adOpenStatic 'αͣ޷U Resistivitys.CursorLocation = adUseClient 'αԣ޷9 Resistivitys.Open Resistivity, csDBConnection# Sheets("Sheet2").Select5' For Resi = 1 To Resistivitys.RecordCount2' Cells(wafsum + 1, 1) = "A1010060"H' Cells(wafsum + 1, 2) = Resistivitys.Fields("SUBLOT_ID")F' Cells(wafsum + 1, 3) = Resistivitys.Fields("SLOT_NO")J' Cells(wafsum + 1, 4) = Resistivitys.Fields("READ_WAF_ID")R' Cells(wafsum + 1, 5) = Round(Resistivitys.Fields("MEAS_DATA"), 6)$' wafsum = wafsum + 1&' Resistivitys.MoveNext' Next' sublots.MoveNext Next)Sheets("Sheet2").Name = filename & "-res"Sheets("Sheet1").Select''XI65536$v%!'H H  'J   N subLOT_ID L%' WAFER_COUNT L%'  subLOT_ID L%+>' Set aa = Range("A15:H"& BC) aa.Copy+ Range("A" & a + 1).PasteSpecial  H  $>'  $>'L  $>'N  Cells(teams, 1) = lot Cells(teams, 2) = cumcSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE subLOT_ID =' ' AND MEAS_ITEMS =' ' and FILE_NAME=' H' AND MEAS_PCS <>0'ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !MEAS_AVG % +> MEAS_STDEV % +>MEAS_MAX % +>MEAS_MIN % +>  +>OK  +> L  N MEAS_MIN % L $8 MEAS_MAX % N $8 A :G $vB@HNG  +> ! 9 9999qkkd +> +> +> +> +>A :G $vB@H ! 999qk measset.MoveNext eA15:L H $v. B@A J  X $vB@  subLOT_ID L% J  X +>  J  J   X $>' J   X $>'L J   X $>'N 'Cells(a + 19 * a + xx + teams, 1) = lot'Cells(a + 19 * a + xx + teams, 2) = cumcSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE subLOT_ID =' ' AND MEAS_ITEMS =' ' and FILE_NAME=' H' AND MEAS_PCS <>0'ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !MEAS_AVG % J   X +> MEAS_STDEV % J   X +>MEAS_MAX % J   X +>MEAS_MIN % J   X +>  J   X +>OK J   X +> L  N MEAS_MIN % L $8 MEAS_MAX % N $8 A J   X :G J   X $vB@HNG J   X +> ! 9 9999qkkd J   +> J   +> J   +> J   +> J   +>k X 'X'k LB@  H1.xlsx %. B@%------------------------------------- B@  H.csv 0 B@=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormal Columns("I:I").Select# Selection.ClearContents Columns("J:J").Select# Selection.ClearContents Columns("K:K").Select# Selection.ClearContents Columns("L:L").Select# Selection.ClearContents( Sheets("Sheet1").Name = filenameJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@ z.   !t B@ !\ !.xlsxH v , zB@uΪxlsxʽ zB@B8 رչ B@Bp_workbook.CloseĻˢ´ (rA@о H resļA@JoxAttribute VB_Name = "о" @ Sub @() '嵥`ļ 2'رĻˢ´Z Application.ScreenUpdngFalse!'FileTrim(Cells@(1, 2)w If $"" T8hen< MsgBox (""I(Exit coEnd/connectDBSet wp= CreateObj("ADODB.reco`rdset..CursorTypadOpenSt{c 'αͣ޷ "LoadUseClient##Dim pdsrc As S ngk wpsqlv!Ʒss aaApRangoSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &G|& "' GROUP BY J@AwO]n9, csDBCCv7Whw.EOF <> TrueAжǷΪ׀һGEa'ȡ@trhFields("* '˾ "Acust`omernB("7p@vpathhAsԭ ā/·һ'ӵ̀繲a+H<\\10.A52.142\0coc\. ServerSh arB112ģ @\radministratorPassw`o."fthw-82905028hIFoldeBrsts()/(%DE@ 0 El%t Net .k# Wip1=8Q7MultiLevel (  !2 !  3_1@ ċ"'5ÀжӦ2!Y,ȷ$8*ۍ};P,=P+M.RemovejE8,rsEkMdQNoth`M + 'yһd!z_-/:s D%,qu a]18u8 v򿪕a:= %s.q  ExcelhShe= .=s'-w1xxka .Act iv'total_qty7 1@"4SUM(WAF@COUNT) a(,SUBLO?Qc?bV' group by )5iA ~OA"T 'u3) Q 9, 3)@Ux'ORDO,PLAN__TIME?"A,to_c (,'y/MM/dd') ʴ,,#B&ɿɿj D< ,O% ql86'CU?x13= adOpenStatic 'αͣ޷  idset.CursorLo"con UseClient0' sql1, csDBConnectionCells(6, 3){Fields("ORDER_N(O")7'824, 2LOT_,ID87PLAN_SHIP_TIME D'sublotidi"SELECTa_Id,O,WAFpCOUNFROM CO CMEASBLISTSTD c WHERE FILE_name='" & FileN@"'"a%Set QCreateObj_("ADODB.recor~8`ÄType??K)(^id_(cou=CG.RACO'''  ' ! Dim idO*getRowsSUB ; A s _ADA? K a BBqwafsum@"1 7ForA%1 TofDj@Resistivity "sell d.G9&,;NO S READ_ @ h,RF.a_DATA 'from F3PRD.D d LEFT JOI(N (*GRPTVQUAF# TITLE nBo@n('ST NO.') ANDA_ ` C%+s")"ITEMf_448 rf ON Hrf.i=dw0here&& "' er bya*_*4A4`Ua =(R@= ?_$/~9~ measset.Open `ql, csDBConnectipon  2IfRecordCount <> 0 TheCells(teams, 3) =HFields("MEAS_AVG") E4ESTDEV#5#(MAX"6"INE"7"cum$12"OK"lxiaxi"" Or shang_[mA|jM5 @< Val()K Q >B )\ER@*e("`A" & Ž":G).SelW?EJMNGMWith C.Interior_.Pat nxlSolid ColorIndexBAutomaticd1 255?TintAndShade0iEnd !,  IfwElse7B’"xBDhh`-;_Non0.Ge? %DMHNext H'Move!NA >= 2Set aa lE315:LBCaa.CopyX ;3 +@ a * A yy)steSpecial-}zidu]sub@LOT_IDm For[=o - 2 o- aC 5ǀ 2/, 9)n= +T+ yy, 10gr 11'S 19 axx@ q{lo%@+ RROQ+ql0"SELECT | ,"}AXPCS FR@OM COCDATASUBSUM WHERE q! =', z' ANDITE\MSaa`FILE_NAMEFileName!<>0Y zt%#reat0eObjDODB.rP,?+B=CursorHTypapadAStw 'αLocoadUse0Clie5s?qhRo7k7߿߿ ?¥?ªoÆoÙz ^#bXo_q'or_oOiugs`\yyIɎ= "Ҵ vSelection.Interi or .Patn = x@lSolid+nColorIndexAAutoma8tic$E>9255$1TintAn@dShade80$6sEnd With3If!ElseCells(aaa * A + 5teams, 3R)""45567UXNedxtOHyyN+t 1xidset.Move KSet p_workbook Ws.Open(ss & FileName"1.xlsx").SaBv '---G datae NAs .csv",CSV 'vfnE Normal )'嘠umns("I:I").c ClearConts1J:JK:KL:L`Sheet"1H= E. )@_EKI17K*2W+ :'Lļ''ApplicDisplay@Alerts`kF aʪ'>8).D`thgTru &! V wp@ j&AFMyBFA ve566 For Each s@ht In .$x .Cop>ylD`BK:=$whL\"PM5@P:=xl Default 'Ϊ1Qʽ P i.Clo1vZ 'ձ1 'YWenu'Ļˢ´9'Scr eenUping+C'$ K3Yc DB#MsgBox "о#res!4Ԃ'Sub5 1 cxME( %N @L @Xp0H`x 8Ph(@Xp0H`x 8Ph(@Xp0H`x k$*\Rffff*SH6c06f1b5= " ( 0 H P h p  00    4   $X (   (   4 Hhx    L 0  8 H X hpx ]  ԭʼļ·]p] ¼ļ]]Ʒ]$>'HxA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'Bԭʼļ· *!\ͻģ\ B\ @'N Уԭʼļ·Ŀļ· N ԭʼļ·Ϊգȷϣ P A@J|@k8 (r COCļ$%>'H H N \ H -.xlsx !% H -.xlsx$nB@p5<!>B@H@ (ļ z.   !t B@ !\ !H Z , zB@tΪxlsxʽ zB@B (r zB@ zB@BqkļѾֲ!A@Jo`XrAttribute VB_Name = "ļ" Public OriginFilePath As Sng 'ʼ^· Sub ()  Dim ?'ccc -pds rc wpsql 'ƷHdataworkbookW(M= Cells(1, 2o`connectDBSet wpreateObj("ADODB.recordset"".CursorTypadOp@enStat'αͣ@޷j: "Loc onadUseClient #OSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" & FQ& "' GROUP BY JXC5BT&, csDBC\ion>E@str< Fields("G['õ փcustomernB(" %lA B = Th4is.A\ͻ\AI AtrУ Ŀއ If t""eMMsgBox " Ϊȷ", vbCdriPalE0xit ~#En0d IfcAppP.ScrePenUpmi`= False!! C= $sheet6`Kax").o!  "aWiexcel.0s.J( 5E. -.xlsx HG ndows(5.Act?@ABCDEFGHIJKLMPQRSTUVWXYZ[\]^_`abcdefghijklmnopqtuvwxyz{|}~rV.;xME(` %` %P 0%0@P`p 0@P`p 0@P`p 0@P`p 0@P`p k$*\Rffff*S16c06f1b5 "  ( @P h  x 0008 P`h* 8H h "   ( 0 H  ` p x  *   8 PP  < 8 P ` p 2    2 ( 0 B8          &( P  Ph    00 H $`  2   z  ` 0 0     0  H  `  p      0 P p     D 8 6X 4 & & ( &@ *h 0 *   0H`x X0x0 00@0p  $  $$$$ $( 08@ H$X  $$$$$    (08@HP X x    ( 0 @P   ,X    P J    (&8  `  p R    d h( H X h    *   嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd8 A@ Ʒļ  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|xkp   B@.k8жһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@p <B@R SELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyyMMdd') PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H;' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO'[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L% +>,Cells(1, 1) = idset.Fields("PLAN_SHIP_TIME")ѭsublotid=SELECT substr(c.subLOT_ID ,1,12) LOT_ID1,c.subLOT_ID,SUM(c.WAFER_COUNT) WAFER_COUNT,TO_CHAR(miw.PKG_CMP_DTTM,'yyyy/mm/dd') PACK_CMP_DTTM,TO_CHAR(add_months(miw.PKG_CMP_DTTM,24),'yyyy/mm/dd') PACK_CMP_DTTM2 FROM COCMEASSHIPLISTSTD c INNER JOIN MES_SHIPTAG miw ON MIW.CUSTOMER_SUBLOT =C.SUBLOT_ID WHERE c.FILE_name=' H(' GROUP BY c.subLOT_ID,miw.PKG_CMP_DTTM;'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N'7:7$v %'  NA8:AV10$v.T T B@   $>B@  subLOT_ID L%' WAFER_COUNT L%' PACK_CMP_DTTM L%'V PACK_CMP_DTTM2 L%'X    +>    +>    +>    +>    +> V   +> X   +>> Range("A" & A + 13 + B & ":A" & A + 13 + B + 2).Select With Selection/ .HorizontalAlignment = xlCenter- .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0" .AddIndent = False .IndentLevel = 0$ .ShrinkToFit = False) .ReadingOrder = xlContext# .MergeCells = False End With   $>' $>'L $>'N cSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID ='LOT_ID1 L%' AND MEAS_ITEMS =' ' and FILE_NAME=' H' AND MEAS_PCS<> '0''ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@  !MEAS_MAX %   +>MEAS_MIN %   +>MEAS_AVG %   +> L MEAS_MIN % L $8   $>B@H ! 9 9999q k k N MEAS_MAX % N $8   $>B@H ! 9 9999q k k d   $>B@H ! 9 9999q   $>B@H ! 9 9999qH   $>B@H ! 9 9999q k k   ' LB@ %-------------------------------------J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H.xlsx %. ( (K-----------------------------------------------2---------------------------k <B@ B@ Wafer-$> -100004V0-$>-001.xlsx Z B@13:13$B@H | B@v12:12$B@H | B@v11:11$B@H | B@v8:10$B@H | B@v^ ` b <B@\  رչ B@Bp_workbook.ClosexĻˢ´ (rA@ݸо H resļA@JoTAttribute VB_Name = "ݸо" @ Sub @() '嵥`ļ 2'رĻˢ´Z Application.ScreenUpdngFalse!'FileTrim(Cells@(1, 2)w If $"" T8hen< MsgBox (""I(Exit coEnd/connectDBSet wp= CreateObj("ADODB.reco`rdset..CursorTypadOpenSt{c 'αͣ޷ "LoadUseClient##Dim pdsrc As S ngk wpsqlv!Ʒss aaApRangoSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &G|& "' GROUP BY J@AwO]n9, csDBCCv7Whw.EOF <> TrueAжǷΪ׀һGEa'ȡ@trhFields("* '˾ "Acust`omernB("7p@vpathhAsԭ ā/·һ'ӵ̀繲a+H<\\10.A52.142\0coc\. ServerSh arB112ģ @\radministratorPassw`o."fthw-82905028hIFoldeBrsts()/(%DE@ 0 El%t Net .k# Wip,_ǮV9*fql(!i[&6ƯƯƧ ooogu3q.>  2, 10)P%-'f1K 'ѭsublotidE 1+ Pstr($c.LO,1 ,12) 1,!,SUMWAF`*COUNT) ,TO_CHAR(miw.PKG_CMP_DTTM0/mm/130ACKEadd_months24)0ֵyyy/mm/dd') PACK_CMP_DTTM2 FROM COCMEASSHIPLISTSTD c INNER JOIN MES_:TAG miw O$IW.CUSTOMER_SUBL@OT =C._ID WHERE c.FILE_name='" & FileN "' GRO UP BY'subD:,b.PKG;" Set ids= CreateObject("ADODB.recor")4.CursorType = adOpenStatic 'αͣ޷Ј(Loc"on*UseClient)ԧ)J sql1, csDBCoDnnrionBlot_id_coJu7=.RC B&0cAppli..B A(Range(@"7:7")QFor A@ 1 To  AZhss3 DA8:pAV10MdpyKCells(@A + 13B, 1).PasteSpecial!uFie`lds("ƑcDum WAFCOUNT baoz I zi n2 7AAH4@V5^Q2)`w% d3a %y4waA$5"# | 'pB=:Al+ 2).Sel`_ Wit '0'h.Yrssa?t?t?t?t kttt tbql/udfIf)"" Theowp w `0_S/in/)m('idDcqINGf`3oeb(#((((( (_u((o(.$/ !$O&y&_*=3EB? O"O"z!erior .Pattern = xlSolid#Colo@rIndexrAutomaticGz61255)TintAndShade00.'5End With+Cells(A + 14B, teams).Select+ ion.In .?bœ?bb5?bK>EProt DrawingObjs:=", Co@rntSce >P 8 $ ***@,p  N@3 (00F   d8 (00F ,<(<h<@ 4$, $,P$ F((((($  4$,$,$ FH(X(`(h(p(x$  ***,0V` F     H~0,40 : `hp  x       \B JB   ,0 ` 8p D    P J@     > 4  6 R p x     0    6   (,^0 `"h p  4d   L  (080h <FX**p & $ " 8 P (p        ( *( D8 X` h8n P N@XRx  <  $   (  6@   x     2     BL 8!@! H! .X! p!x!    !R! ! ! *! F"  P("  x" " "4" (`#0#0#F#$d#*d $  P$p$L %X %`F8& (& 0& 0& F' 0' "@' $h' J' '  ~' @'' N' 01 $( "tX1  &d( (d@( ,dh( ,d( &d( P1$( L)L )L8)LP)  N 2 (h)0)0)F) d*h* (8+0X+0+F+ ,+$d+$d,$d0, X,L`,Lx,L,,H~,,,d(1 :-H-P-X- `-Jp-B- - N-*-   ,-  . P0. J.    . >. 4 / 0/ 6H/ RX/ / /  / / 0/  / 0 60 (0  80,^@0 p0 h4A@ A@ o`X嵥ļļرĻˢ´ (rH$>$'H H嵥ļA@J|@k8A@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'd`WScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hk`dX7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xlsx$x]0 ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@p total_qtytselect sum(WAFER_COUNT) wafcount,PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO from COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+>PLAN_SHIP_TIME L% +>ѭsublotidSELECT cocd.PRODUCT_ID ,MS.CUSTOMER_SUBLOT SUBLOT_ID,DH.SUBLOT_ID SUBLOT_ID1,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'yyyy/mm/dd') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,24),'yyyy/mm/dd') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh ' >INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =dh.SUBLOT_ID ' IINNER JOIN COCMEASSHIPLISTSTD cocd ON cocd.SUBLOT_ID =ms.CUSTOMER_SUBLOT ' .WHERE OPE_ID in ('PKG','EPKG') AND FILE_name=' H' AND dh.HIS_CAT ='OC''ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@ L!'NB65536$v%!''   NA3:M $v. B@A   $vB@  SUBLOT_ID L%    +> WAFER_COUNT L%    +>HIS_REGIST_DTTM L%   +>HIS_REGIST_DTTM1 L%   +> SUBLOT_ID L%   +>       $>'     $>',     $>'( OK     +>ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷ ~ B@  ̶   NOTCHλ 淽λ cSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' SUBLOT_ID1 L%' AND MEAS_ITEMS =' ' AND FILE_name=' H' AND MEAS_PCS <>0 'ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !MEAS_AVG %     +>MEAS_MIN %     +>MEAS_MAX %     +> ,  ( MEAS_MAX % , NG     +>     $>B@H ! 9 9999qH k@ MEAS_MIN % ( NG     +>     $>B@H ! 9 9999q kx kp dh     +>     +>     +>NG     +>H     :I     $vB@H ! 9 9999q k !ddh SUBLOT_ID1 L% A@Jk k   ' d   ' k LB@3: $B@H | B@vK:M$B@H r| B@v%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ7Set p_workbook = Workbooks.Open(ss & filename & ".csv") (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@p_workbook.Save رչ B@Bp_workbook.CloseĻˢ´ (rA@ݻ H resļA@Jo P嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|kxA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k 繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H -.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|Hk@   B@.kжһǷƷļ  H.xlsx$x]( ģļ  H -.xlsx %. %.J-----------------------------------------------1--------------------------' B@p total_qtytselect sum(WAFER_COUNT) wafcount,PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO from COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+>PLAN_SHIP_TIME L% +>ѭsublotidSELECT cocd.PRODUCT_ID ,MS.CUSTOMER_SUBLOT SUBLOT_ID,DH.SUBLOT_ID SUBLOT_ID1,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'yyyy/mm/dd') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,24),'yyyy/mm/dd') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh ' >INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =dh.SUBLOT_ID ' IINNER JOIN COCMEASSHIPLISTSTD cocd ON cocd.SUBLOT_ID =ms.CUSTOMER_SUBLOT ' .WHERE OPE_ID in ('PKG','EPKG') AND FILE_name=' H' AND dh.HIS_CAT ='OC''ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@ L!'NB65536$v%!'  NA1:M $v. B@ < tB@A1$vB@ Sheet1$tB@HB@  N SUBLOT_ID L%+> WAFER_COUNT L% +>HIS_REGIST_DTTM L% +>HIS_REGIST_DTTM1 L% +> SUBLOT_ID L%+>    $>'  $>',  $>'( OK  +>ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷ ~ B@  ̶   NOTCHλ 淽λ cSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' SUBLOT_ID1 L%' AND MEAS_ITEMS =' ' AND FILE_name=' H' 'ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !MEAS_AVG % +>MEAS_MIN % +>MEAS_MAX %  +>d +> +>  +>k8   NOTCHλ 淽λ e ! SUBLOT_ID1 L% A@Jkhk`X LB@H:M$B@H r| B@vSheet1$tB@H N $tSheet1$tB@ %------------------------------------- B@J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ7Set p_workbook = Workbooks.Open(ss & filename & ".csv") (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@ رչ B@B Ļˢ´ (rA@ݻ H -ļA@Jo@ 8 3   NOTCHλ 淽λ e34  %     +>+33  % +> 3HSheet  $tB@HD L3$>  SUBLOT_ID L%Sheet  $t(* ActiveWindow.SelectedSheets.DeleteP3p34SELECT DISTINCT CONDUCTIVITYTYPE ,AVG(NOTCHBEAR) NOTCHλ,AVG(RESERVED5) 淽λ,DOPANT FROM CUST_COCINFOENTITY@bip cp WHERE lotid IN (SELECT DISTINCT RESERVE01 FROM F3PRD.DWAFER d WHERE SUBLOT_ID =' SUBLOT_ID1 L%%') GROUP BY CONDUCTIVITYTYPE,DOPANT ' SELECT DISTINCT CONDUCTIVITYTYPE ,AVG(NOTCHBEAR) NOTCHλ,AVG(RESERVED5) 淽λ,DOPANT FROM CUST_COCINFOENTITY@bip cp WHERE lotid IN (SELECT DISTINCT RESERVE01 FROM F3PRD.DWAFER d WHERE SUBLOT_ID =' SUBLOT_ID1 L%%') GROUP BY CONDUCTIVITYTYPE,DOPANT ' 3PAttribute VB_Name = "ݻ" Sub 8() , <1 82 End b  p1r'嵥ļ  D'رĻˢ ´XApplication.ScreenHUpdngFalse'FileTrim(Cells(1, D2)If $"" Then<kMsgBox ("SɇU"$ExiNtsyIf#connectDBSet wp= CreateObj("ADODB.reco`rdset..CursorTypadOpenSt{c 'αͣ޷ "LoadUseClient#Dim pdsrc As S ng5wpsq"l '!ƷDss aaARangoSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &G|& "' GROUP BY J@sO]n9, csDBCCv7Whw.EOF <@> TrueAжǷһGE'ȡ@trhFie`lds("* 'õ˾0"AcustomernyB("7p@vp8athM4 9ԭ0Au·һ'ӵ繲a+H<\\10.A52.142\coc\. Server0SharB112ģ,@\radministratorPassw`o."fthw-82905028hIFoldersts()(%DE@ 0 El%t Net k# Wipt.)Aafsoing.System# -.MapDrive "",)2, ®, ,, %)Kg ā%'%FaK' %S=Ax\ʠͻA?\|^!i ')K` \  & hD'ThisWorkbook<.PiDebug.Pri &X`".xxlsx1SU'汾ط+[=-" a0'uE'xmlr_bI= W\[ s(ssA51Copy /,[/=q<MultiLevelC ?!2o !o "81@ Đ"':ûжӦ7!^,$*ے}@BU+R.RemovejJ=,rxJ[RdVNoth`R ~һ/-*q*`$1jBC=+QzaabFzF 'uA:= %s.Q?) 0G؃1Yt ExcelShZe= .qsρ '-1 xx`pfY.Activ'total_qty71@"sel` su m(WAFCOUNT) wafcount,PLAN__TIM E,v4,ORDO fromD /aI!)X7ai  HooogI ///7u3}+ ao c8, 3)@ݑw13, 7  'ѭsublotid>1'pd.Cq,MS.6&SUBLOT c0,DH.g1, D.+,to_c(dh.HIS_REGIST_DTTM,'y/mm/dd') HIS_REGIto_char(ADD_MONTHS(DH. -1,24)1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_` dh "  sql1 = & "INNER JOIN MESQTAG@ ms ON.bSUB_LOT`=dh. "WWMEAS$LSTD cocd0'=ms.CUSTOMER_2]WHERE r|in ('P@KG','E) ANILE_name='" & FileNq"' gCAT ='OC'hSet ids= CreateObject("ADODB.recor")WAY .Curso rType[adOpenStatic 'αDLoconUseClientA#€, csD BConn@6ion lot_idP_cou=CC.R=CK GB@(Range("B65536").End(3).row bb 0 For A1 To GZh aa@ DA3:MAzBdaa.Copy   *@+ 1 - bb).PasteSpecialK KCells(B! + 5, 3)@@Fields("fE082WAFbCOUNT 10] 11 TM1? 12, 7<# + "" And̶,Q,'|'LQ(" T he\m meas+1_p/ ,4EVMp*SMA"X4PCS.OC!DATA`)SUM?*B?*5*RITEMS-R'Fogq <>0Q-_-OO"$---/eq--- .., ,%X -0'g/^0s rU)?F8cAS_.)T 9("R ? 3!wAOr m!to<* > }oi1CxNG?c9).SelP* W0ith `.Interior7 t0xlSolidColorIndex0xlAutom!Ο"8255__TTintcShad(/e@  End If XIf measset.Fields("MEAS_MIN") < mins` ThenSCells(B * A - bb + teams 2, 10) = "NG"AM8).Select#& With ion.Interi or#m.PatnaxlSolidColor Index"Automatic$#!255TintAndShade0=sA^aElse[7§\89?m!Z Range("H" & v":Ip! onemo#.lH._cBE?)_idc "`" OrNOTCHλ Nӆ" ycocRecordCount <> 0u t ֡)WMsgBox idISUBL@OT_ID1& "Aab(1TNexL@+ZA 2(@w=w+ 1k/%A MoveG 7Row3.:D_CyD@}te Shift:=pxlUpG:umnK:M"ToLefO '-dataworkbook.Savg'As ssUfilenameU.csv", xlCSVg ".xlsxW$Normalw 71 2t t& O'PļSet p_L5s.Open(8BApplicЗРDisplayAlertsFa'&0)ogTru!/QREwp.8# * 6'+ر8CloWenE'Ļˢ´Scr eenUpingP# '3ScDB["ݻTAFFP6NT6res$Z Sub @ 2(0"R'dS'? %v = Trim(n1, 2))^H"v $("q гɷ "Exit b]connE5$CreateObj("ADODB.r|q.CursorT$ypad7StA 'α걆޷0 ILo8adUseCliePv3Dim p dsrc RStr $wpsql 'AƷ7Cm aaQpSELECT CUSTOMER_NAME ,PRODUCA FROM COCSHIPLISTSTD WHERE FI$LE2='*' GROUP BY2 T,wpSet.Open wpsql, csDBConnection WhileEOF <> True 'жǷΪҀƷjar'ȡ $tr =Fields("PRODUCT_ID")>õ customernameI("CUSTOMER_NAME EDim srcpath As StringMcԭ_ļ· i'ӵ0pd5J"\\10.52.142\ coc\"ServerSharc12@ģUserN"administratorPasswordJfthw-829050 28%If F{FolderExs(5) T|hew0a6ElseK@ Net@"kObj Create("WScrixpt.D pf\so C t.-SystemM.MapDrive "", Hd, Fa1, Y\, ER 6@1End If'E\E= & "\␿ͻ~\"ʽABHI \ I& hD'ThisWorkbook.PiDebPug.Pqt&t& X! .xlsx1S'U'汾K0K\ssJ0"|'pG4xHml_’= &n!zH/rss cCopy7-,A0-0A{yMultiLevel (lb Qp #aMsgBox "tûжӦo, pȷIT`t Sub'YЪ Removejꔁ񤕫,!J `\Noth '!$һa-O:s$,zdataAbQFzG 'sN/%S@QID in ('PK G','Ea) 8AND#B/B' CAT ='xOC'o@o@ 31/@n/@/@-@????? ap6_id_r[v?ROrdCount  B = Range("B65536").End(3).row$For a1l1 To lot_id_cSet aaA1:M"` & B)K'aa.Copy  Sheets.Add After:=Active' *A1PasteSpecial%Nex "" And̶LL&MMM" TheimeasA_MEAS_ \ ,"STDEVdFM RMAXdP$CSdZOCDATAPSUMQ)AQ AND "IpTEMS$,RM'FILE_nO-FileP****%u$/+/+!%0o+o++R ++ +Rr=2,0o&gZRqb'B81_@,*s(%s, 9("2 .Els"*?   "G J= "sHOrJXHX5H(H%UI%= @K:2%4%V  MsgBoxsTKΑv1uʜw_If?c1}MoveColumnUHp`j Shift:=xlToLefp w:Pοa ?5"'-dataworkbook.Sav9_?f1 2?VA 1 P'csvΘļkp_e %Ws.\(ss'fpqq1(.0AIKApplic.DisplayAlertFaLr'$8)ogT|ru/-b- P @End If`wpSet.Mov`eNextLdataworkbook.Save,'رչ`( ^Clos`:Wend''Ļˢ´Application.ScreenUpOing = Tru{'K3chDB MsgBox "ݻ" & FileName"-ļH" Sub !jWW10 4O:EfkIlZitQ s`m3WO %'N(u!jg 25ExME@` %`p %~ 0%0@P`p 0@P`p X p @h @P @8 @ p 8*Htv8 (  @ Xh @P (8 @ @ @ @ X @  @ @x @` @H @0 @ @ @ @ @ `X `@ @ @h @P PY(`8 Yp @ ( `  @  d( ( @ @ o` x P o t p` H @0   @   @ P ( @ h x   ( 8Z     (p @X 0 @  p(  @   @  @  `   0  ``@ ( x  k$*\Rffff*SC6c06f1b5 "  ( 4@dP h  Lx  (0008 P`<hF** 8&H h$ "   ( 0 H  ` p  x ( *( D  8n PP@R  < 8 $P ` p 2     2 (  0 BL8  .     R   &( FP Bh B  PH P  N` & L z `  (p 0 0 F  , d    N  <4  ( 0( 0X F   $  ,v  .v  *v(  X h "Np " `4  ( 0@0pF $ $ *  2P6`B4     "d  H 2Ph "p$ L L L L z (00@Fp ,$d$d$d$d@8HP&v " F      (0  8&v@ "h F   J  0 8@$x   &  4  6 R P X  h$Tx z  N J@BX"NpJBNJB  &0 X &x   0    6   *^  H X嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd8 A@ Ʒļ  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|xkp   B@.k8жһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.< Set dataExcelSheet = dataworkbook.Worksheets(2)< Set dataExcelSheet = dataworkbook.Worksheets(3)J-----------------------------------------------1--------------------------' B@p׼Խб$tB@H  $>' ISELECT MEAS_MAX,MEAS_MIN,MEAS_AVG FROM COCMEASDATASUM c2 WHERE LOT_ID=' H' AND FILE_NAME=' H' AND MEAS_ITEMS=' ' AND MEAS_PCS <>0'[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!MEAS_MAX L%MEAS_avg L%MEAS_min L% +>kxpб$tB@Hѭsublotid%SELECT cocd.SUBLOT_ID,cocd.WAFER_COUNT,to_char(dh.mindttm,'yyyy-mm-dd')mindttm FROM COCMEASSHIPLISTSTD cocd INNER JOIN (SELECT SUBLOT_ID,MIN(HIS_REGIST_DTTM) mindttm FROM F3PRD.DOPE_HIS dh WHERE OPE_ID IN ('PKG','EPKG') GROUP BY SUBLOT_ID)dh ON dh.SUBLOT_ID =cocd.SUBLOT_ID WHERE FILE_name=' H' 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'   SUBLOT_ID L%  +> WAFER_COUNT L%  +>mindttm L%  +> LB@DZ׼Խб$tB@HA65536$v%!'9SELECT LOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_name=' H' group by lot_id'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N'   N   N N   :   $B@H B@   :   $B@H | B@zkHLOT_ID L%    +> LB@ LB@rdLOT_ID L% +>k  N  'A65536$v%!'   $>'L $>'N $>'  $>' {SELECT round(MEAS_AVG,5) MEAS_AVG,round(MEAS_MAX,5) MEAS_MAX,round(MEAS_MIN,5) MEAS_MIN FROM COCMEASDATASUM WHERE LOT_ID =' ' AND FILE_NAME =' H' and MEAS_ITEMS=' ' AND MEAS_PCS <>0'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!MEAS_AVG L% +>MEAS_MAX L%  +>MEAS_MIN L%  +>MEAS_AVG L%  +> L  N MEAS_MIN L% L $8MEAS_MAX L% N $8H :K $vB@HCells(10 + a, teams).Select ! 9 9999q k k d H :K $vB@HCells(10 + a, teams).Select ! 9 9999q0 k(  C--------------------------2---------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV  H1.xlsx Z B@csvļ  H.xlsx %. ( (K-----------------------------------------------2---------------------------k <B@ B@  H.xlsx Z B@t p_workbook.SaveAs ss & "Wafer-" & Cells(5, 4) & "-100004V0-" & Cells(1, 1) & "-001" & ".xlsx", xlOpenXMLWorkbook׼Խб$tB@HD:D$B@H | B@vDZ׼Խб$tB@HL:R$B@H r| B@vб$tB@HC:C$B@H r| B@v Rows("2:2").Select Selection.Delete Shift:=xlUp Rows("1:1").Select Selection.Delete Shift:=xlUp رչ B@B B@B(Ļˢ´ (rA@ʿ H resļA@Jo?Attribute VB_Name = "ģ10" Sub ʿ() '嵥ļ  2'رĻˢ ´Z Application.ScreenUpdng False'FileTrim(Cells(1, 2)w If $"" Then< MsgBox ("г"I(`Exit E nd/conn ectDBSet wp= CreateObj("ADODB.records et..Cur@sorTypadOpenSt{c 'αͣ޷ "LoadUseClient!#ԕ#Dim pdsrc As Sngk wpsqlv!!Ʒss aaARango@SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &G|& "' GROUP BY J?@AwO]n9, csDBCCv7Whw.EOF <> TrueAжΪ0һGE'̡@trhFields("* 'õ˾"AcustomernB("7Áp@vpathhAsԭā/·'ӵa+H< \\10.A52.142\coc\. ServerShar112`ģ@\readminis@tratorP0assw`o."fthw-82905028hI@Foldersts()(%DEe@ 0 El%t Net k# Wipt.)Aafsoing.Sys8tem# -.MapDrive "",)2, ®, ,, %)Kg .1)'%F7aK%S=Ax\̀ͻA?\|^!i ')K` \  & hDDebug.Pri&y` .xlsxHqK'汾 &)=QisWorkbook.P{&B)&4ƥ*xml_BD= 7W[w3ss '1A,Copy /",[@`87MultiLevel ( o !2o !o o 2є1q~D"5ûж Ӧ2Y,ȷ$*];0,=O M.RemoveJE8,RsdE[MdQNoth?@M yһdy/-9s&+1ua\7u8 'uA:= %s.1  ExcelShe= .qs' 6uF2at3P '-17xx si Activ׼Խ").Sel:For A` To 9G mpeasiPyA, 41Ч1"tQ_MAX, INAVG DATASUM c2 LOo' ANP2cITEMS# PCSp 5*rqlH%i!q//eqׯ߯ӯKG :  HC RCou;0Vb#3)S"AX")qp_av>g:`]pW@ If N`ext xHSheets("б").Selecx'ѭsublotidsql1 = "SELECT cocd.SUBLOT_ID,WAFER_COUNT,to_char(dh.mindttm,'y-mm-dd') FROM COCMEASSHIPLISTSTD_ INNER JOIN (wrMIN(H@IS_REG_@DTTM) +F3PRD.DOPE_ dh WHERE  ID/ ('PK G','E) GROUP BY 3)ONv =~*FILE_name='" & FileNC"' "e t ids= CreateObj("ADODB.recor").CursorTypedadOpenStatic 'αͣ޷sLoc onUseC lient,A% , csDBConn1@9ionO5_id_cou@=H4.RBC For A(1 To LCells(A + 2, 1) OFieldyMZ 2H=3D &Mo|vegK7DZ׼ʠԽ{s  Range@L65536End(3).row l| c{ vt^' group by @;`t``#%``- `` c `DF d$` x :07Abc@3Bb! $If > ghepdk5c  d < T %Rows(cqx:%`.Copyca( + d d? ' Insert Shift:=xlDow&`i?*aeCA- 1, 7m͂CIσkB_Firs~Else R 2nd)x $ P?M= B]oJoJq*team/Ak xia/1 q_4tsh{P^6\ 07a,12<\UQW_AVG,5) MAXsIN)DATASUMYC& & AND NAME ˊa`B ITEMS4' PCS <>08]qS# s.]0 ]%a 3]PR㸌P 0 R&8oBp#B >9$10sIN_"// C :<> "" Or 9BDG <= Val()a#AX") >c)? JHkBH05:Ke'10`Ra, asith )jterior?*.PatxlSolid??3Col@orIndeSxlAutomR255TintAndShade zW/ 5} t" ""!m! ̲ With Selection.Interior .Pat|n = xlSolidColorIndexbAutomaticj.)255!TintAndShade(0&q-End# If Next  '-2  (dataworkbook.S(ave6' As ss & fi@lename"@.csv",CSVFN@1.xlsxOpenXMLWD"@'ļGSet p_0fEs.(+)FApplicDisplayAlerts@FalsHF# Tru lRlqnIwpA.MoveËσ(aGL߂|uIuf'"Wafer-"@Cells(5, 4)-104V01, 1001a"8BCSheets("׼Խбp").czumnD:DLGDte Shift:=xlUpk ǿ L:R ToLefzC(ιC:C 4Row 2:2 hx1:1-((!'رչRCloik#K(Wen%'Ļˀ´ wScreenUp ingwCq 'c%cDBMsgBox "ʿơRbres!Ɏ"#ArqSubAerFKxME(` %` %" 0%0@P`p 0@P`p 0@P`p 0@P`p 0@P`p k$*\Rffff*T56c06f1fe "  ( @P h  x 0008 P`h* 8H h "   ( 0 H  ` p x  *   8 PP N 0 <H     2   ( 2@ x  B       8 X ` &x   P   0 00 8 *P $     0 0   ( 8 P ,p          (  8 P h        0 0  0$@$h$& ( @$P$X$`$h$p x  $$$$$  0 P h$x$$$$   $$$$ $( 08@HPXp& $$$$$    ( 0 H `p 2 0H6`6 p00 HH`HJ@Xh 8 $$$$$  88 p$$$$$ 8 $$$  (0@ 8` $$$$$  8 H$X$`$h$p$x 8 $$$ 66P66n h$x$$$$   * 0H`x00  00@ XBhBBD@ 2  $ $ $( $0 $8  @ H P `  2  $ $ $ $ $    !2! @!$P!$X!$`! h!p!x!! 2! !$!$!$"$"$" " "("8" 2X" "$"$"$"$"$" """2" #$(#$0#$8# @#H#P#X#0`#0#0#0#b $ $$$$$$$$$$$ $$$ $ $ $% % %  ,0% `% 8p% D%    P% J@&    & >& & & ' R' p' x'  ' ' ' ' '' ' ( ( ((*0(  `( p(嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hkdx7繲ûжӦģļ,ǶӦģûзȷ·A@J|(k    B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@p total_qtyZselect sum(WAFER_COUNT) wafcount,PLAN_SHIP_TIME from COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' GROUP BY PLAN_SHIP_TIME'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@PLAN_SHIP_TIME L%+>wafcount L%+>ѭsublotidSELECT SUBLOT_ID,SUM(WAFER_COUNT) WAFER_COUNT,substr(subLOT_ID ,1,5)||'01'||substr(subLOT_ID ,6,5) sublotid1 FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' GROUP BY SUBLOT_ID ;'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id Dim lotid% lotid = idset.getRows''  N sublotid1 L%' SUBLOT_ID L%'$ WAFER_COUNT L%'    $>' $>'& $>'( $>'* $>', $ +>  +>cSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' ' AND MEAS_ITEMS =' ''ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@ !MEAS_MAX % +>MEAS_MIN % +>MEAS_AVG %  +> MEAS_STDEV %  +> ,  (  * >=MEAS_MAX % ,  $>B@H ! 9 9999qkx * >eMEAS_MAX % , $>B@H ! 9 9999qkk & <=MEAS_MIN % (  $>B@H ! 9 9999qXkP & <eMEAS_MIN % ( $>B@H ! 9 9999qkkkd +> +>  +>  +>G :J $vB@H ! 9 9999q k  measset.MoveNext  e yy = 0A6:J15$v. B@A       $vB@    $>'  $>'&  $>'(  $>'*  $>', $        +>         +>cSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE subLOT_ID =' ' AND MEAS_ITEMS =' ''ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !MEAS_MAX %        +>MEAS_MIN %        +>MEAS_AVG %        +> MEAS_STDEV %        +> ,  (  * >=MEAS_MAX % ,         $>B@H ! 9 9999q k * >eMEAS_MAX % ,        $>B@H ! 9 9999qPkHd@        $>B@H ! 999qk & <=MEAS_MIN % (         $>B@H ! 9 9999q(k  & <eMEAS_MIN % (        $>B@H ! 9 9999qxkpdh        $>B@H ! 999qkkd        +>        +>        +>        +>G        :J        $vB@H ! 9 9999qXkPH  ' eA6:J15$v. B@A     $vB@    $>'  $>'&  $>'(  $>'*  $>', $       +>        +>cSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE subLOT_ID =' ' AND MEAS_ITEMS =' ''ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !MEAS_MAX %       +>MEAS_MIN %       +>MEAS_AVG %       +> MEAS_STDEV %       +> ,  (  * >=MEAS_MAX % ,        $>B@H ! 9 9999qk * >eMEAS_MAX % ,       $>B@H ! 9 9999qkd       $>B@H ! 999qk & <=MEAS_MIN % (        $>B@H ! 9 9999qk & <eMEAS_MIN % (       $>B@H ! 9 9999q0k(d        $>B@H ! 999qkkd       +>       +>       +>       +>G       :J       $vB@H ! 9 9999q8k0(  'k LB@K:Q$B@H B@%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ7Set p_workbook = Workbooks.Open(ss & filename & ".csv") (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@p_workbook.Save رչ B@Bp_workbook.CloseĻˢ´ (rA@人 H resļA@Jo6Attribute VB_Name = "" @ Sub @() '嵥`ļ 2'رĻˢ´Z Application.ScreenUpdngFalse!'FileTrim(Cells@(1, 2)w If $"" T8hen< MsgBox (""I(Exit coEnd/connectDBSet wp= CreateObj("ADODB.reco`rdset..CursorTypadOpenSt{c 'αͣ޷ "LoadUseClient##Dim pdsrc As S ngk wpsqlv!Ʒss aaApRangoSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &G|& "' GROUP BY J@AwO]n9, csDBCCv7Whw.EOF <> TrueAжǷΪ׀һGEa'ȡ@trhFields("* '˾ "Acust`omernB("7p@vpathhAsԭ ā/·һ'ӵ̀繲a+H<\\10.A52.142\0coc\. ServerSh arB112ģ @\radministratorPassw`o."fthw-82905028hIFoldeBrsts()/(%DE@ 0 El%t Net .k# Wip(Object("ADODB.recordset"P) i`.CursorType = adOpenStatic 'αͣ޷"LocDonTUseClientS'S sql1, csDBConnionlot_id_cou7= rRC ''' 'Dim id  s5getRoTws3B 0 ;yAFor A 1 To2_10Fields("sub=1 1N SUBLOT_IDI cum WAFER_CO8UNT @C"If+he_2teams6315 TKA @ Cells(, 11Pminf 4 KK5 axO6 O7 )+c= 6 cum 0meas"SELECT MEAS_AVG ,ABSTDEVM$INEAX$PCS FROM COCDATA`ASUM WHERE C ='" &O"' AND ITEMSAb5& "'"oSet = Create!@f?? % ql'j <> 0 Tm% I7IcDMAXy %*87IN?s,< 96V? 10V](axs!&"" Or ( #A">="-&Aset., >= me ,8.Sel CWith .Interior.PatyxlSolamuColor IndexIxlAutom! .25a.TintAndShadat?_ /En%/%% %%5!%?u%%O%%~/0,4%% %_'7a$" 0oHr(>+t?f,"yFie lds("%MAX_, r|P,*NO8-3@2ms>5>7axs |""cQcw AN">="_43 >= mOooߐߐerߐߐ_2 uߐߐxAߐO// ߐ \ໟY'O'_O'hC >?'/?'?'?'?'?'?'?'?'_?'??'?'??'O_?'?'=/o!o!o!]o!o!j!Non6 .TintAndShade `= 0  .Pattern/zEnd Withg!IfIf minf"<=" Then,0easset.Fields("MEAS_MIN") <='s#%Cells(A * 10 - A1 + te(amsy, 8).Selec.tL( ion.IniorÀxlSolidColo@rIndexBAutomaticd@255d _Q]ElseI?<TN$iN-NN? ?VgN!Nsej_ 1__M%Non3 3393z76557)'""olnl9kO  pr{Range("G" & u u":J=xx_/erxZ/x_uPxO.P6/ P3-q4Nex y@-y2yA >= 4oSet aa&A6:J15")o aaPpy'+ B)steSpecialFor{=3To 2O qP s6E5, 11o 4s5ax61 7_44=-aR1Elot1_hI6cum%mql`"S@ELECT AVG ,STDEVPĕAXPCS FROM COCDATASUBSUM WHERE subLOT_ID ='% M' ANDITEMSR & "'a t 2 P.= CreateObj("ADODB.record//B$.Cur@sorTypadOpenSta 'ͣ޷GLoconadUseC lient| ql, csDBConn`PHRCou0 <> 0?Fr''R~%+AX{8- Cells(A * 10 +@ B - 1teams,, 9) = measset.Fields("MEAS_AVG") '"10[STDEV]If maxs <> "" Or mina Thenfj">=" eMAX") >>D#%7).Select`$With ion.Inte0rior.Pat nAxlSolid ColorIndexBAutomaticd@255d TintAndShade0 9oEnd AXA IfElseI?>{MEbMFMM.M.?F,?M!Mse;V__Bf_BFe%yxlNon?3O ?3?32!inb<@rIN`<`u@ >8?g? Q?g?g ?g?u?@?gO?@&ߎ? ?@& &\4g'?g_'CM'& &>&F?F&|&&O&&&?&_&&=1?gY/Hm/!]/!/!*!N?g_S;A 7A""e9/w/-b//?7Range("G" & ?5":J?ivW--Oj< .PatternColorIndex = xlAutomatic 0.|r255$bTintAndShad:e80$6/=End With3If Next BVB + 1  idset.Mxove ##umns("K:Q").Selec>ion.ClearContents '-!G dataworkbook.S(ave'As ss & fi@lename"@.csv",CSVxlsxW NormalI D:C1WFM2 K%^ )@A'@IļHSet p_^@s.OPpen(SZ)GA`pplicDisplayAlertsFalsr8).DJthTru J-$Y&$ewp!d#T'MWرչ%q* Clo $H HWend'Ļˢ`´'ScreenUp 8ing0' 'cc!DBMsgBox "人P"@kFlNlresG"#(!(SubAai7xME(` %` H%  ` {`D`>` %` @%XP %`XPXPXPXPXPXP XP@XP`XPXPXPXPXPXP XP@XP`XPXPXPXPXPXP XP@XP`XPXPXPXPXPXP XP@XP`XPXPXPXPXPXP XP@XP`XPXPXPXPXPXP XP@XP`XPXPXPXPXP XP XP@ XP` XP XP XP XP XP XP XP@ XP` XP XP XP XP XP XP XP@ XP` XP XP XP XP XP XP XP@ P`` k$*\Rffff*SB6c06f1b5a" " ( H `p    00 PX p (*8 hx  "   (8 ` x      *   ( 08H P N @ ` <x     2 @ H X 2p   B    8@    Hh   &   P  8 @Php "      ( 8   0 0H x  ,  ,  0 P R N0 V    0  08  h   "      ( 8  ,X * * 8  @ ,H .x   ,($@2h( *  @ Xp 8 00( @$P$x$  $($0$8$@$H PX`  $$$$$  &8 `px . . . .@p x   , 4@H(8F.0`<h4>  &8`x 8 00( @8P88N H X ` hp x ( $$$$$   (@ h$x$$$$ &&&N8       @ @ @X @    J lp h RH! ! 0! 0!  " 8" *P" *" ." ""  "#0#H#`#   ,x# # 8# D#    P8$ J$    $ >$ (% 8% P% R`% % %  % % % & &0& 8& P& `& p& 2x& & "& & & &' '  0'P'X'`' h'0'0''' (( ((*( ()  )8)X) "`) ) ) () ) *  * (* 0* 8* *X* * ** *8* P+ NX+++ + <, @, X, h, x, 6, , , , 2, 0- 8- B@--- - - --    -- . . *0. `.  Px. F./  / (/8/P/X/ "p/ // / /// 0 0 0000 1P1 ,h1  11R2N2V83 3 03 03 4 (4 "84 `4 x4 4 4 44 45 5(5   .H5,x55$525 6@6(H6 .p6*6 @67 (7@7X7 8p77 x808088 9$ 9$H9$p9999999 .9 .(: .X: .:: : : : : ;  ; 8;  @;   ,H; x; P; J;    (< >8< x< < < R< = =  = 0= @= P= X= p= = =&= = =A@ A@ o`X嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|@k8A@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@[ > <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dPWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@HkPdH7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xlsx$x]0 ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pRFID$tB@H' B1$B65536$v%!'   B $v'  [ kRFID$tB@v total_qtykselect sum(WAFER_COUNT) wafcount,PLAN_SHIP_TIME,CUSTOMER_PRODUCT from COCMEASSHIPLISTSTD WHERE FILE_NAME=' H*' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT'[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ Wafer (1)$tB@HCUSTOMER_PRODUCT L%+> Source Lot$tB@HCUSTOMER_PRODUCT L%+>ѭsublotid}SELECT cocd.PRODUCT_ID ,DH.SUBLOT_ID ,COCD.WAFER_COUNT,DH.HIS_REGIST_DTTM,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh ' DINNER JOIN COCMEASSHIPLISTSTD cocd ON dh.SUBLOT_ID =COCD .SUBLOT_ID ' @INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =COCD.SUBLOT_ID ' #WHERE OPE_ID ='PKG' AND FILE_name=' H' AND dh.HIS_CAT ='OC''[ ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@ L!'N Wafer (1)$tB@HA65536$v%!'  N Source Lot$tB@HA2:M2$v. B@A  $vB@  SUBLOT_ID L%  +>RFID_ID L%  +>[  $> $   $> $   $>!(k PRODUCT_ID L%  +> WAFER_COUNT L%  +>  Wafer (1)$tB@H yyyy/MM/dd $>( HIS_REGIST_DTTM L% +>NA +>RFID_ID L%+> $> $ $>!(k8 WAFER_COUNT L%+> yyyy/MM/dd$>( PLAN_SHIP_TIME L%+>   $>' $>', $>'(   δʶ  ݱcSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' SUBLOT_ID L%' AND MEAS_ITEMS =' ' AND FILE_name=' H' 'ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !MEAS_AVG % +>MEAS_MAX % +>MEAS_MIN %  +> ,  ( MEAS_MAX % , $>B@H ! 9 9999q k MEAS_MIN % (  $>B@H ! 9 9999q( k k d +> +>  +>G :I $vB@H ! 9 9999q` kX dP ( Cells(teams, 6) = ""( Cells(teams, 7) = ""( Cells(teams, 8) = ""( Cells(teams, 9) = ""k  e Wafer (1)$tB@HA1:Q $v. B@A    $vB@  yyyy/MM/dd    $>( HIS_REGIST_DTTM L%    +>NA    +>RFID_ID L%    +>     $> $     $>!(k WAFER_COUNT L%    +> yyyy/MM/dd    $>( PLAN_SHIP_TIME L%    +>       $>' $>', $>'(   δʶ  ݱcSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE subLOT_ID =' SUBLOT_ID L%' AND MEAS_ITEMS =' ' AND FILE_name=' H' AND MEAS_PCS <>0 'ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !MEAS_AVG %     +>MEAS_MAX %     +>MEAS_MIN %     +>F     :I     $vB@H ! 999q ,  ( MEAS_MAX % ,     $>B@H ! 9 9999qkMEAS_MIN % (     $>B@H ! 9 9999qXkPkHd@     +>     +>     +>G     :I     $vB@H ! 9 9999q8k0d(: Cells((a - 1) * b + teams, 6) = "": Cells((a - 1) * b + teams, 7) = "": Cells((a - 1) * b + teams, 8) = "": Cells((a - 1) * b + teams, 9) = ""k k LB@Wafer$tB@HBSELECT ms.RFID_ID,c.READ_WAF_ID,c.SLOT_NO FROM COCMEASDATAINFOS c ' ]INNER JOIN COCMEASSHIPLISTSTD cocd ON c.SUB_LOT_ID =cocd.SUBLOT_ID AND c.LOT_ID =cocd.LOT_ID ' ZINNER JOIN MES_SHIPTAG ms ON ms.LOT_ID =cocd.LOT_ID AND ms.SHIP_SUB_LOT_ID=cocd.SUBLOT_ID ' WHERE cOCD.FILE_name=' H!' ORDER BY ms.RFID_ID ,c.SLOT_NO 'ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@  L!RFID_ID L%  +>SLOT_NO L%  +> READ_WAF_ID L%  +> LB@ Wafer (1)$tB@HR:S$B@H r| B@vC:C$B@H r| B@v%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ7Set p_workbook = Workbooks.Open(ss & filename & ".csv") (Columns(8).Delete (K-----------------------------------------------2---------------------------k@ <B@ B@p_workbook.Save رչ B@Bp_workbook.CloseĻˢ´ (rA@,MsgBox "о" & filename & "resļ"oHP嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|kA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'kH繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H -.xlsxA@Hd0 A@ Ʒļ  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|pkh   B@.k0жһǷƷļ  H.xlsx$x]( ģļ  H -.xlsx %. %.J-----------------------------------------------1-------------------------- Introduction Source LotWaferͻD$tB@H r!tB@v' B@pRFID$tB@H' B1$B65536$v%!'   B $v'  [ kRFID$tB@v total_qtykselect sum(WAFER_COUNT) wafcount,PLAN_SHIP_TIME,CUSTOMER_PRODUCT from COCMEASSHIPLISTSTD WHERE FILE_NAME=' H*' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@CUSTOMER_PRODUCT L%+>ѭsublotidSELECT cocd.PRODUCT_ID ,DH.SUBLOT_ID ,COCD.WAFER_COUNT,TO_CHAR(DH.HIS_REGIST_DTTM,'yyyy/mm/dd') HIS_REGIST_DTTM ,TO_CHAR(COCD.PLAN_SHIP_TIME,'yyyy/mm/dd') PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh ' DINNER JOIN COCMEASSHIPLISTSTD cocd ON dh.SUBLOT_ID =COCD .SUBLOT_ID ' @INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =COCD.SUBLOT_ID ' #WHERE OPE_ID ='PKG' AND FILE_name=' H' AND dh.HIS_CAT ='OC''ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@ L!'NA65536$v%!'  NA1:S $v. B@ < tB@A1$vB@  Wafer (1)$tB@H r!tB@v  NSheet $tB@H(Cells(10, 4).NumberFormat = "yyyy/MM/dd"HIS_REGIST_DTTM L% +>NA +>RFID_ID L%+> $> $ $>!(k WAFER_COUNT L%+>(Cells(20, 4).NumberFormat = "yyyy/MM/dd"PLAN_SHIP_TIME L%+>$>-$>Sheet $t(   $>' $>', $>'(   δʶ  ݱcSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' SUBLOT_ID L%' AND MEAS_ITEMS =' ' AND FILE_name=' H' 'ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !MEAS_AVG % +>MEAS_MAX % +>MEAS_MIN %  +>d` +> +>  +>kd( Cells(teams, 6) = ""( Cells(teams, 7) = ""( Cells(teams, 8) = ""( Cells(teams, 9) = ""k@8 LB@R:S$B@H r| B@vC:C$B@H r| B@v[%------------------------------------- B@J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ7Set p_workbook = Workbooks.Open(ss & filename & ".csv") (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@ رչ B@BĻˢ´ (rA@о HļA@Jo80XAttribute VB_Name = "о" Sub 8() , <1 82 End b 2 r1t'嵥ļ +'Ļˢ´hApplication.Scre enUpdngAFalse'FileTrim(Cells(1, 2)If $"" Then<6 MsgBox ("SгɇU"$pExitszIf &connectDB Set wp= Cre@ateObj("ADODB.recordset1.CursorTypadO penSt~c 'αͣ޷` "LoadUse@Client#Dim pdsrc Asd S@ng5wpsql '!!Ʒss aaARangDqSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &}& "' GROUP BY J?AuO]n9, csDBCCv7ebug.Pri@S/Wh@ |.EOF <> TrueGжǷΪ׀һKa'ȡtr@nC$Fields("/I'˾ "Acust`omernB("=[!;>path-7 <ԭ x·һ'ӵ̀繲a+K>\\10.A52.142\0coc\1 ServerSh ar112ģ  _readministratorPassw@r."fthw-82905028hIFoldeBr`sts()/Ȍ%$H@ 0 Elřt Net .kWipx1S*>汾+`]=-" a0'ƇuE'xml_bI\= ][ s(ssA51`Copy /,?[/=qCa%H' BARange)65536vEnd(3).row For A1 To IG'O>A "" And aAThe3.Interior,l== 255 &B If(8o!ǭ(9/(I#$R!!c!10aA.NumbDer^matR"y/MM/ddHe)#{%(ȏ 1w"NAO D7*y' #'1{'#O#N#Q#8? 0 CT2z }< (QRteapv 42RB/, !c , 3C_maxs18in9 @G q!G HδCIݱ" Hqmeas~ Ea_AVGL ,EVM#SMAX4PC S DATA[SUM cV\Ab9")cqITEMS4 o@k;An|= $.no___12ql)e*0' 67g[b (O@Z8_("R*__@C, pAS_/_WASOr m?_8w  > 2GomLOWith> e `t1xlSo8lidwCoAPIndexHx lAutoic__Po.TintAndShade = 0 .Pa ttern/End With%If#If measset.Fields("MEAS_MIN") < mins 0ThenFvCells(teams, 9).Selectd @ion.Ini= 2t Sheet`Wafer (1)"TSet aal!]A1:Q[B)maaEpye(A - 1) * B +@@steSpeci "" P\ pMid(,B @ Len(@)x> x%26uA5+8q*AFER_COUNT + 2!q! uPLAN_SHIP_TIMEO +`)b99o BOad+, 3(r pmaxsh8A=9_ q&P&1δʶ(ݱ"HBEql "SE LECT AVG ,STDENV`AXPCS FROM COCDATASUBSUM WHERE subLOT@4 ='qH & "' AND#ITEMS4 FIL@E_nameFileN <>0 @1VVreateObjp("ADODB.recor!I&V&Curs orTypQad@OpenSt 'αͣ޷ .LoconadUse@Client S ql, csDB0Conn` /) RCou Q0o'Ev6v62~̀)vAXs(o) qDzFOzw=s; er?ٟ e xlNonN UϨm Y,[C|Or <> "" T@hen If measset.Fields("MEAS_MAX") > maxs Cells((A - 1) * B + teams, 8).SelectEWith ,ion.Int`erior8<.Pat/n = xlSolidColorIndex Autompatic"255TintAndShade0$sEnd gAXA IfIN< min?< 9??rn?or?E3cGMG!GlseN7) (""+ 9 Range("G0" & P":Iaa0pߏe_B.B /.?W E?)!UyYEX' iHa%b'6H&`8 o ~/N ex  idMoveW? Sheet`Wafer"?3sql1>SELECT ms.RFID_ID,c.RE@AD_WAFSLOT_NO FROM COCDATAINFOpS c FDb& "INNER JOINuSHIPLISTSTD cocd ON c.SUB_ApID =QAzN.oo MES_1TAG D q=_?5WHERE cOCD.FILE_name='LFil eN1M' ORD BY 51SetCPCreateObj("ADODB. recorA!")^"CursorTypadOpenStA 'αͣ޷ t.QLocoaadUseClient)t. , csDBConn FpAP1 To0RCXoun39AD1,!=t.mj2Q@e$o3o4/=/=BC= (1)> eumn@R:S D te Shift:=xl`ToLef8C:C p '-dataworkbook.Sav'As ss6f787.csv",CSVg ".xlsxW$Normalw 12t  $'PļqHp_085sb<(8IAppliC.DisplayAlertsFa" '&c)ogTru!w -2|  End IfwpSet.MoveNext& dataworkbook.Save,@'p_رչ . IClosCJWend@'Ļˢ´ Application.Scr eenUp4ing = Tru1`'c @DB'MsgBox "о" & filename"resĀ"D Sub   2() '嵲 !'QhFalF@'NA'9im(Cells(1, 2)#@gIf  "" Then/!>(")4*"D Ex8it ;Bco`nnectR@ “@`CreateObj("ADODB.reco`rdsetE .CursorType adOpenStvc 'αͣ޷ LoCUseClientDim pdsrc As Str@Lwpsql '!Ʒ"ss aaaARang= "SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILEb='V&>& "' GROUP BY * Y'.`7, csDBC#;kWhN@<.EOF <>bl жǷΪ"E'ȡfL tr@4CFields("O'õ˾c customert=("HXA8 ;pathM4 9ԭAu·һ 'ӵxa+H<\\10.A52.142\coc\. Serv@erShar_"112`ģ@\rD"administratorPPass d."fthw-829`05028hIFoldersts()(%DE@ 0 El Neta# W@ipt.)Aqfso v.`System# C-.MapDrive "",I)2, ®, ,, %)Kg 1r'%FaK%S=Ax\ͻA?\|^oA4G'% \  "d8"'ThisWEP4ao 9o 0Debug.PVt u&р+[u " a0'uEC'xml_bI= &v{[9|ssA51Copy $,[!-}=QrFields<(" lEG'ѭsublotidI=ŌSELE@~cocd._ID ,DH.SUBLOTBD.Ȕ,TO_CHAR( HIS_REG_DT TM,'y/mm/dd') L> F̊ RFID#FROM F3PRD.DOPE_@ dh ȕ6& "INNER JOINcѶA> ON<=A' bMESB@TAG msms.ۀR_Rb݁82='PKG' ANDpno#p"dh..CAT ='OC'ntnmmew~wm?ml&a_id_BFlRbC)jBRange`65536").End(3).rowm'For a1 To Oi g1aa 1:SBlaa.Copheets.Add After:=ActiveS 1 PasteS@pecialNxext' Wafer (1) SBgWindow.ed.D`Iקa$A@3\$'("b #A) a? '0.NumbDermat"BMM@Hf )cNEm1E"tNA 7$P If txt <> "" And Mid(, Len(`))ThePhGy.In@&ior(l-= 2|551p8? % 2?l ce  s-(X{ g-*d10teapb2BBK/ ! , 3!maxs18in9?' ( (δʶ)" (baDmeas| "!_AVG ,ӒPEVM~SMAX4PCS }DATA@ySUMz­=9")ӮqxITEMSPv oz@۲?aO"u$ { |ql})e~*0'*67!_b (?DˇZ8_("R*__@C, 9_UIN_SEls"*F?   _dtݲ '[6PBf  ˗GMove Columns("R:S").Select   Lion.Dtte Shift:=xlT0oLef ZC:C6Nex` Debug.Prin('-!(dataworkbook.Save "41: &2 JZ9 'c@svļS et p_k = WD8s.Open(ss & filename$".")GAp@plicatisplayAlertsFals@I'ŀ8)TruZZLC@End IfwpD.MoveCF6رչ  CloBCWend 'Ļˢ´IUScr eenUpingUC' CcDBMsgBox "оj"@pFsNs͐" !!SubcH      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  OvQ)xMEH """" > <<0<8<@Jp`21[@ 4 3H2o71 0pP`0` 4 4o1 0pP`0` 2 0pP`0` @6 @" @P @ x @4p 244z@?h 54z@4P @58 66 4 0pP`0` @ 4@ @84 @ @ 6 @6 @5 0pP`0` 7 6@P4 5@8h 076@7` 87 6X''I>h>II&XII(>" 5h-7I('4PJ(;6@ 8X 887 @`8P H8 8 8`87@x8H @8@ 8x8 @X98 88 8 6 @9 98 H997@09 @h: p909 @9 9X9 @9 99 @9 h899@: :9" @0: p9H::0@: X:0:=:9U@: :h:X@; ::X;:]p9@: @; 8;:j@H;x =h:`;;|@;p p;H;;:@;X ;;@<@ ;;@<8 :<;@(<0 H<<@X<( ;p<(<@<  <X<<;@< <<@P= =<;@= 0=<@? <@==h=<@x= =P= @= =x= =x==4?<= 4@> >=#@> >>#@5h P=@P @h48 @P> @ @> =>>F@`? ?>F@0? P??G@ P>x?0?G@? ?`?Z@?x ??Z@A` x@>@?]@@X (@?a @8@P P@@n @`@H @8@| @@@ PA(?@`@@@8 @@@A0 @@ @A?@(A @AA@`A xA(AA@@B A`A @A AA @A BA @B D@(BA@8B PBB @`B xB8B @C B`B B(ABB$ PA@B @D BB$8CC)XB@ C @HCx `C C6 @pCp CHCE @Ch CpCR pB@C` CCe @`DX CCr (DB@8D@ DCPDD@ E( xD8D@D  D`D@D DD @D HFxCED@xE ED@E8D@PE pDhE E@F EPE@E ExE@E DEE@E FE@ F 8FE @XF pF F F(E@F FXF FPE0@F FF3IE@Gx GF3@Gp 0GF8@HGh `GGE HF@pG` GHGW @HX GpGd GFv@G@ GGzHGzF@`H( @(H  @HH @ PH(HHG@H PGH`H@I HHHHH0? H>H0I>@@ @@I XII@_ pI@IpHJ@I@H @J5 @&0>p @(6X H@J@ 0JI@( @JJJ 2pIp@6k$*\Rffff*SG6c06f1b5$*\Rffff*TM6c07d7ed$*\Rffff*TN6c07d7ed$*\Rffff*TO6c07d7ed$*\Rffff*TP6c07d7ed*\R4*#5d*\R1*#14b*\R1*#6d*\R0*#14*\R0*#17*\R4*#40*\R4*#7*\R4*#1$*\Rffff*TD6c07b697$*\Rffff*TE6c07b76b*\R1*#14a$*\Rffff*TK6c07b88c*\R0*#f*\R1*#2a3*\R1*#135*\R1*#130*\R1*#141*\R1*#409> @H`xFTH" 4  Nl 0 B   0( *X  h B   0   8 @0Ph  p >  2"b&(8@$H.` .x  2 @ , @    @8x  ^4D:8Dx D   @n4P   00F8 PX`h*p . 8 V Z8         . > $T( (lP  x           $     V4( b 0 0 FH ` *h .x  "8   d4 Z0 &P  p   &    ,t   P Hhp@(x@(  @((@(h  ZNFv06P$@p"86l Z  $ ((J8(&,0 4 >@8B4  40 (4 >8BX4,((&04 8 >p4ȕ8B4 40 4 >x8B4@,H(P(&X0p4 x8 >h88B84 40 4 >8B4,((&004 88 >H(hX8B8 8 0 , ($ ,J ,& 0!4 !8 >(! @Bx"<"8 "< >X"@B"<@#4H#,P#( $X#,Lh#( $#,L#( $$,8($( `$, h$$p$  x$( $ $ $ $"8$ 2$$l$( "%,J%,&`%0x%4 %8 >!%"@B&<('8 0'< >&@B`'<'4','('("l',8'((((&l0(,JX(,&(0(4 (8 >&(@'@B(*<p*8 x*< >*@B*<*4*,+(+(D+,LX+(+$ +, +$+ +">+ 2+$l,( "0,,J@,,&,0,4 ,8 >X),*@B.<X.8 `.< >-@B.<.4.,.(.("l.,8 /(X/(&l`/,J/,&/0/4 /8 >@-0p.@BX1<18 1< >81@B1< 24(2,02(82(D@2,L2(2$ 2, 2$2 2&>3 2(3$l@3( "`3,Jp3,&3034 38 >031@B@5<58 5< > 5@B5<545,5(6("l6,806(h6$ p6, x6$6 6">6 26$l6( "6,L7(P7("lX7,87(7$ 7, 7$7 777778 88 8 (8 08 @8  P8 p8.x8(8"8H8 @8  9 (90890h949pP8:F:,:&: ::: ;  ;0 ;0P;pb;F;*< "8< @<bP<Z<&< =  (=&0= P= .X= p=>=P=  >8>@>@(H>@(> >>>@(>@(8?  x?ZN?F?2@6 @ l@@$Z`@$@( @,b@,&A0A4  A8 >h0A(y@ZB<C8 C< >B@ZHC<C4C,C( $C,bC,&8D0PD4 XD8 >AhD(C@ZE<HF8 PF< >E@ZF<F4F,F($F,bG,&pG0G4 G8 >EG`F@Z I<I8 I< >I@ZI<J4 J,(J( $0J,d@J( $J,dJ( $ K,P0K( K, K(K  K( K KK KxK 6K$lL(Z L(@L, HL0bXL0&L4L8 L< >8H@ZM<pM <8 xM< >L@ZM<N4N0N0& N88N< @N@ >IDZpN@N< N@ >PNDZO@hO8pO0xO, $O0bO0&O4P8 P< >M@ZHP<P <8 P< >(P@ZP<@Q4HQ0PQ0&XQ8pQ< xQ@ >NDZQ@R< R@ >QDZ@R@R8R0R,$R0bR0&0S0HS4 PS8 >P`S RDZT@@U< HU@ >TDZxU@U8U0U, $U0dV, $hV0dxV, $V0PV, @W/ HW(PW$ XW( `W$hW pW xW "8W W$JW(2W,lW0"lX4d@X4&X8X< X@">DZX@XY @< `Y@">DZY@Y8Y4Z4&Z< Z@ (ZD">(HZXZDZ@ ZD">PHZZDP[<X[4`[/ h[4 "p[8b[8&[<\@ \D >SHZ8\D\ D@ \D >XHZ\D0]<8]8@]8&H]@`]D h]H >XULZ]H]D ^H >8ZLZ0^H^@^8^4^0^0"l^4P^00_0&l8_4b`_8&_<_@ _D >pYHZ`Dx` D@ `D >\HZ`Da<a8 a8&(a@@aD HaH >ZLZxaHaD aH >x]LZbHpb@xb8b0b0Db4db0@c, Hc0 Pc,Xc(`c$ hc pc$2c(lc, "c0bc0&0d<Hd@ PdD >\HZdDd D@ dD >_HZeDxe<e0e0&e@eD eH >^LZeH@fD HfH >XaLZxfHf@f0f,f,"lf0P g,pg,&lxg0bg0&h< h@ (hD >`HZXhDh D@ hD >`dHZhDPi<Xi0`i0&hi@iD iH >aLZiHjD  jH >eLZPjHj@j0j,j,Dj0dk,k( k, k(k$k$k ">k k$Jk(2l,l(l0"lHl4dpl4&l<l@ lD">ؔHZ(mDm D@ mD">HZmD n<(n40n4&8nHPnL XnP">xTZnPnL nP">TZ oPoHo4o0 o4 "o8bo8&p<0p@ 8pD >dHZhpDp D@ pD >8hHZqD`q<hq8pq8&xqHqL qP >XfTZqP(rL 0rP >iTZ`rPrHr8r4r0r 00"lr4Ps0`s0&lhs4bs4&s<t@ tD >hHZHtDt D@ tD >mHZtD@u<Hu4Pu4&XuDpuH xuL >0jPZuLvH vL >hnPZ@vLvDv4v0v0Dv4dw0pw, xw0 w,w(w$ w w(2w,lw0 "w4bw4&`x<xx@ xD >mHZxDy D@ yD >HpHZHyDy<y4y4&yDyH yL >oPZzLpzH xzL >qPZzLzDz4z0{0"l{4P0{0{0&l{4b{4&|<0|@ 8|D >pHZH|D| D@ |D >(tHZ|D }<(}40}4&8}DP}H X}L >@rPZh}L}H }L >uPZ}L@~DH~4P~0X~0D`~4d~0, 0 ,((0$8 $ &>@$2h(l, "0b0&<0@ 8D >tHZHD D@ D >xHZD <(000&8@PD XH > vLZhHȁD ЁH >yLZH@@H0P,X,"l`0P,؂( , ($ ">$2((l@, "`0dp,؃,"l0P,X( `, h(p$x  $8L ȄЄ ؄     08  @H6PR`Jp 2J 2J 2؅J 2J 2(@8HP `hp  4    NtȆ  xH p V Ȉ RP (0 0P F,d ؊H$L  x0H  V  XRP (80X0 FȎ,d    .|H~hpPT x2 А (0(0X FLLБLLL0LP h^x$@ ^  2.0h  6  Г 4 6 0 ]pcocĵ洢·]ǰĿ¼]] ֵ]0Ʒ6]ͻ]`ģ·]0ģ]Ӧ·µģ]`Ӧ·µģ]0,жģǷװҳҳжӦ߼] P?3ҳװҳҳҳӦĿʼsheet Index] ] (r$tB@HB1$v!x$'H *!'P z!'R *B@)ļȡoverallûм HA@|ģȡҳ.~ P R H l T  Z X V N ^ ` b n ~B@ҳӦλֵ. X H B@װҳӦλֵ `. R f B@klotҳӦλֵ b. R H h B@k8+lotģҳзҳMData page 1(1)$t!'j l'P'B]     n !$t j   $tB@D5 !$t%vB@H B@C5$vB@H <B@C6$vB@]8 !$!' MData page  ( ) $t(xҳ  !  $t! $ CofC pagePage / !   $t,>  $t!$Ingot-list pageePage / !   $t,>d8Page / !   $t,>kÿһҳlot_no иֵ .8select lot_id from COCMEASSHIPLISTSTD where FILE_NAME =' H !' group by lot_id order by lot_id 'A@z . t (r!αͣ޷ x (v$αԣ޷  ~ B@]P]h]' %b   n MData page ( )$tB@H MAIN LOT NO  MData page ( )$t,>lot_id %  MData page ( )$t,>`  e '  '  n MData page  ( )$tB@H MAIN LOT NO  +>lot_id %  +>kx B@  'P B@B ~B@BǰҳOverall λиֵA@z .COCMEASDATASUBSUM/select * from COCMEASDATASUM where FILE_NAME =' H ' AND LOT_FLAG='T' '\sql = "select * from COCMEASDATASUBSUM where FILE_NAME ='" + filename + "' AND LOT_FLAG='T'" t (r!αͣ޷ x (v$αԣ޷  ~ B@d'B %b  n MEAS_TYPE %A .NSELECT sum(wafer_count) WAFER_COUNT FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' H ' '  ~ B@ WAFER_COUNT %'  B@BdxMEAS_PCS %' kP MData page 1( )$tB@H  BK $v!xK $v!x MEAS_ITEMS %޵ֵԼǷ񿪱]H ]O $v!xO $v!x$'N $v!xN $v!x$'޵ֵԼǷ񿪱]]Q $v!xQ $v!x$'P $v!xP $v!x$' .0select * from COCMEASITEMSTD where meas_items =' meas_items % ' '  ~ B@[K $v!x[meas_way %[meas_way %$meas_way %$    B $v!xB $v!x' MinKTMEAS_MIN %  MData page 1( )$t,>   >=KTMEAS_MIN % X  MData page 1( )$t%>!(k >KTMEAS_AVG % X  MData page 1( )$t%>!(kX nP kH   <=KTMEAS_MIN % X  MData page 1( )$t%>!(k <KTMEAS_MAX % X  MData page 1( )$t%>!(k( n k MaxKTMEAS_MAX %  MData page 1( )$t,>   >=KTMEAS_MAX % X  MData page 1( )$t%>!(k >KT  MData page 1( )$t%>!(k n k   <=KTMEAS_MAX % X  MData page 1( )$t%>!(k <KTMEAS_AVG % X  MData page 1( )$t%>!(kh n` kX AverageKTMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG % X  MData page 1( )$t%>!(kX>KTMEAS_MIN % X  MData page 1( )$t%>!(knk   <=KTMEAS_AVG % X  MData page 1( )$t%>!(k(<KTMEAS_MIN % X  MData page 1( )$t%>!(knkSTDKT MEAS_STDEV %  MData page 1( )$t,>S.DKT MEAS_STDEV %  MData page 1( )$t,>PcsKT   MData page 1( )$t,>Snxdpyhk`XdPB $v!x    B $v!xB $v!x' MinKTMEAS_MIN %  MData page 1( )$t,>   >=KTMEAS_MIN % X  MData page 1( )$t%>!(k>KTMEAS_MAX % X  MData page 1( )$t%>!(kHn@k8   <=KTMEAS_MIN % X  MData page 1( )$t%>!(k<KTMEAS_MAX % X  MData page 1( )$t%>!(knkMaxKTMEAS_MAX %  MData page 1( )$t,>   >=KTMEAS_MAX % X  MData page 1( )$t%>!(k>KTMEAS_AVG % X  MData page 1( )$t%>!(knkx   <=KTMEAS_MAX % X  MData page 1( )$t%>!(k<KTMEAS_AVG % X  MData page 1( )$t%>!(kXnPkHAverageKTMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG % X  MData page 1( )$t%>!(kH>KTMEAS_MIN % X  MData page 1( )$t%>!(knk   <=KTMEAS_AVG % X  MData page 1( )$t%>!(k<KTMEAS_MIN % X  MData page 1( )$t%>!(knkSTDKT MEAS_STDEV %  MData page 1( )$t,>S.DKT MEAS_STDEV %  MData page 1( )$t,>PcsKT   MData page 1( )$t,>Sxpnhd`yXkPHd@MEAS_WAY %Min    B $v!x  MEAS_MIN %  MData page 1( )$t,>   >=KTMEAS_MIN % X  MData page 1( )$t%>!(k>KTMEAS_AVG % X  MData page 1( )$t%>!(k`nXkP   <=KTMEAS_MIN % X  MData page 1( )$t%>!(k<KTMEAS_AVG % X  MData page 1( )$t%>!(k0n(k kB $v!xPcs   MData page 1( )$t,>kB $v!xAverageMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG % X  MData page 1( )$t%>!(k>KTMEAS_MAX % X  MData page 1( )$t%>!(knk   <=KTMEAS_AVG % X  MData page 1( )$t%>!(kh<KTMEAS_MAX % X  MData page 1( )$t%>!(knkkB $v!xSTDB $v!xS.D MEAS_STDEV %  MData page 1( )$t,>k0d(y kMEAS_WAY %Maxe    B $v!x  MEAS_MAX %  MData page 1( )$t,>   >=KTMEAS_MAX % X  MData page 1( )$t%>!(k>KTMEAS_AVG % X  MData page 1( )$t%>!(k0n(k    <=KTMEAS_MAX % X  MData page 1( )$t%>!(k<KTMEAS_AVG % X  MData page 1( )$t%>!(knkkB $v!xPcs   MData page 1( )$t,>kB $v!xAverageMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG % X  MData page 1( )$t%>!(kh>KTMEAS_AVG % X  MData page 1( )$t%>!(knk   <=KTMEAS_AVG % X  MData page 1( )$t%>!(k8<KTMEAS_AVG % X  MData page 1( )$t%>!(k n k k B $v!xSTDB $v!xS.D MEAS_STDEV %  MData page 1( )$t,>k d y k  MEAS_WAY %Averagee    B $v!x  MEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG % X  MData page 1( )$t%>!(k >KTMEAS_MIN % X  MData page 1( )$t%>!(k n k   <=KTMEAS_AVG % X  MData page 1( )$t%>!(kP <KT  MData page 1( )$t%>!(k n k k B $v!xPcs   MData page 1( )$t,>kP dH y@ k8 0 MEAS_WAY %STDe    B $v!x   MEAS_STDEV %  MData page 1( )$t,>khB $v!xPcs   MData page 1( )$t,>kdykkkkk B@ B@B ~B@BÿlotӦֵA@z  l '  '  MData page  (1)$t%>!x' OVERALL HLOT . t (r&αͣ޷ x (v)αԣ޷SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN ms.CUSTOMER_LOT ELSE ms.LOT_ID END LOT_ID FROM MES_SHIPTAG ms WHERE ms.CUSTOMER_LOT ='  ' ' Sand CUSTOMER_SUBLOT IN (SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H')'  ~ B@ ! LOT_ID %'d 'k B@B . t (r%αͣ޷ x (v(αԣ޷,select * from COCMEASDATASUM where LOT_ID ='  "' AND LOT_FLAG='F' AND FILE_NAME=' H''  ~ B@ %b MEAS_TYPE %A .MSELECT sum(wafer_count) WAFER_COUNT FROM COCMEASSHIPLISTSTD WHERE lot_id = '  ' and FILE_NAME =' H ' '  ~ B@ WAFER_COUNT %'  B@BdMEAS_PCS %' kh  n  B MData page  ( )$tB@HK $v!xK $v!x MEAS_ITEMS %޵ֵԼǷ񿪱](]O $v!xO $v!x$'N $v!xN $v!x$' ޵ֵԼǷ񿪱]]@Q $v!xQ $v!x$'"P $v!xP $v!x$'$ .0select * from COCMEASITEMSTD where meas_items =' meas_items % ' '  ~ B@meas_way %$    B $v!xB $v!x' MinKTMEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_MIN % "X   MData page  ( )$t%>!(k>>KTMEAS_MAX % "X   MData page  ( )$t%>!(kp=nh=k`=  $ $<=KTMEAS_MIN % X   MData page  ( )$t%>!(k<<KTMEAS_MAX % X   MData page  ( )$t%>!(k<n<k<MaxKTMEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "X   MData page  ( )$t%>!(k:>KTMEAS_AVG % "X   MData page  ( )$t%>!(k8:n0:k(:  $ $<=KTMEAS_MAX % X   MData page  ( )$t%>!(kp9<KTMEAS_AVG % X   MData page  ( )$t%>!(k8n8k8AverageKTMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "X   MData page  ( )$t%>!(k7>KTMEAS_MIN % "X   MData page  ( )$t%>!(k7n6k6  $ $<=KTMEAS_AVG % X   MData page  ( )$t%>!(k86<KTMEAS_MIN % X   MData page  ( )$t%>!(k5n5k5STDKT MEAS_STDEV %   MData page  ( )$t,>S.DKT MEAS_STDEV %   MData page  ( )$t,>PcsKT    MData page  ( )$t,>S8404n(4d 4y4k44d4B $v!x    B $v!xB $v!x' MinKTMEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_MIN % "X   MData page  ( )$t%>!(kH2>KTMEAS_MAX % "X   MData page  ( )$t%>!(k1n1k1  $ $<=KTMEAS_MIN % X   MData page  ( )$t%>!(k0<KTMEAS_MAX % X   MData page  ( )$t%>!(kP0nH0k@0MaxKTMEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "X   MData page  ( )$t%>!(k/>KTMEAS_AVG % "X   MData page  ( )$t%>!(kx.np.kh.  $ $<=KTMEAS_MAX % X   MData page  ( )$t%>!(k-<KTMEAS_AVG % X   MData page  ( )$t%>!(k-n-k-AverageKTMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "X   MData page  ( )$t%>!(k+>KTMEAS_MIN % "X   MData page  ( )$t%>!(k@+n8+k0+  $ $<=KTMEAS_AVG % X   MData page  ( )$t%>!(kx*<KTMEAS_MIN % X   MData page  ( )$t%>!(k)n)k)STDKT MEAS_STDEV %   MData page  ( )$t,>S.DKT MEAS_STDEV %   MData page  ( )$t,>PcsKT    MData page  ( )$t,>Sx(p(nh(d`(yX(kP(H(d@(MEAS_WAY %Min candy start $H    B $v!xB $v!xHead MEAS_HEAD %   MData page  ( )$t,> "  >=KTMEAS_MIN % "X   MData page  ( )$t%>!(k`&>KTMEAS_AVG % "X   MData page  ( )$t%>!(k%n%k%  $ $<=KTMEAS_MIN % X   MData page  ( )$t%>!(k%<KTMEAS_AVG % X   MData page  ( )$t%>!(kh$n`$kX$dP$  MEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_AVG % "X   MData page  ( )$t%>!(k #>KTMEAS_MIN % "X   MData page  ( )$t%>!(k"n"kx"  $ $<=KTMEAS_AVG % X   MData page  ( )$t%>!(k!<KTMEAS_MIN % X   MData page  ( )$t%>!(k(!n !k!k!k!B $v!xPcs    MData page  ( )$t,>k B $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_MIN % "X   MData page  ( )$t%>!(k@>KTMEAS_AVG % "X   MData page  ( )$t%>!(knk  $ $<=KTMEAS_MIN % X   MData page  ( )$t%>!(k<KTMEAS_AVG % X   MData page  ( )$t%>!(kHn@k8k0B $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>kxdpyhk`XdP candy end    B $v!x  MEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_AVG % "X   MData page  ( )$t%>!(k>KTMEAS_MAX % "X   MData page  ( )$t%>!(k@n8k0  $ $<=KTMEAS_AVG % X   MData page  ( )$t%>!(kx<KTMEAS_MAX % X   MData page  ( )$t%>!(knkkB $v!xPcs    MData page  ( )$t,>kHB $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_MAX % "X   MData page  ( )$t%>!(k>KTMEAS_AVG % "X   MData page  ( )$t%>!(khn`kX  $ $<=KTMEAS_MAX % X   MData page  ( )$t%>!(k<KTMEAS_AVG % X   MData page  ( )$t%>!(knkkB $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>k8d0y(k kMEAS_WAY %Maxe candy start $H    B $v!xB $v!xTail MEAS_TAIL %   MData page  ( )$t,> "  >=KTMEAS_AVG % "X   MData page  ( )$t%>!(k0>KTMEAS_MAX % "X   MData page  ( )$t%>!(knk  $ $<=KTMEAS_AVG % X   MData page  ( )$t%>!(k<KTMEAS_MAX % X   MData page  ( )$t%>!(k8n0k(d   MEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "X   MData page  ( )$t%>!(k>KTMEAS_AVG % "X   MData page  ( )$t%>!(kXnPkH  $ $<=KTMEAS_MAX % X   MData page  ( )$t%>!(k <KTMEAS_AVG % X   MData page  ( )$t%>!(k n k k k B $v!xPcs    MData page  ( )$t,>kX B $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "X   MData page  ( )$t%>!(k >KTMEAS_AVG % "X   MData page  ( )$t%>!(kx np kh  $ $<=KTMEAS_AVG % X   MData page  ( )$t%>!(k <KTMEAS_AVG % X   MData page  ( )$t%>!(k n k k B $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>kHd@y8k0(d  candy end    B $v!x  MEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_AVG % "X   MData page  ( )$t%>!(k>KTMEAS_MIN % X   MData page  ( )$t%>!(knk  $ $<=KTMEAS_AVG % X   MData page  ( )$t%>!(kH<KT   MData page  ( )$t%>!(knkkB $v!xPcs    MData page  ( )$t,>kB $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KT   MData page  ( )$t%>!(k>KT   MData page  ( )$t%>!(k8n0k(  $ $<=KT   MData page  ( )$t%>!(kp<KT   MData page  ( )$t%>!(knkkB $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>kdykkMEAS_WAY %Averagee    B $v!x  MEAS_AVG %   MData page  ( )$t,> "  >=KT   MData page  ( )$t%>!(kP~>KT   MData page  ( )$t%>!(k}n}k}  $ $<=KT   MData page  ( )$t%>!(k|<KT   MData page  ( )$t%>!(kX|nP|kH|k@|B $v!xPcs    MData page  ( )$t,>k{d{y{k{{MEAS_WAY %STDe    B $v!x   MEAS_STDEV %   MData page  ( )$t,>kzB $v!xPcs    MData page  ( )$t,>k@zd8zy0zk(z zdz-ȷMEAS_WAY: Max,Min,Average,STD,PcsA@Jkykyky B@Bkyyyy B@y B@Bkhy`y]X j'  t $tB@HK$B@H B@N$B@H B@O$B@H B@P$B@H B@Q$B@H B@A1$vB@H ! y8xk0x  'x (жǷӰװʱ$B@H$>Dateȡʱp SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date FROM F3PRD.DOPE_his 'H H: where OPE_ID in('PKG','EPKG') and his_cat IN ('OC','LO') 'H H and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c 'H HG LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL 'H Hz THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT 'H H WHERE FILE_NAME =' H#' )) order by his_regist_dttm ASC 'HADODB.recordset$p.J t J(r/αͣ޷ x J(v2αԣ޷[ H H ~ JB@MANUFACTURE_DATE J%+>ds <%B@zManufacture Date:+>ȡʱp SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date FROM F3PRD.DOPE_his 'H H: where OPE_ID in('PKG','EPKG') and his_cat IN ('OC','LO') 'H H and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c 'H HG LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL 'H Hz THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT 'H H WHERE FILE_NAME =' H#' )) order by his_regist_dttm ASC 'HADODB.recordset$p.J t J(r/αͣ޷ x J(v2αԣ޷[ H H ~ JB@MANUFACTURE_DATE J%+>ko "㽭ˮԲ뵼Ƽ޹˾ *!t! *%tB@H < tB@ySELECT c.SUBLOT_ID,c2.WAF_ID,c2.ROD_USER_LOT_ID,c2.SLOT_NO,c2.PROD_ID,SUBSTR(ROD_USER_LOT_ID,1,3) lt FROM MES_SHIPTAG ms 'H HT INNER JOIN COCMEASSHIPLISTSTD c ON c.SUBLOT_ID =ms.SHIP_SUB_LOT_ID AND FILE_NAME =' H' 'H HE INNER JOIN COCMEASDATAINFOS c2 ON c2.SUB_LOT_ID =ms.CUSTOMER_SUBLOT 'H H# ORDER BY c.SUBLOT_ID ,c2.SLOT_NO 'HADODB.recordset$p.J t J(r'αͣ޷ x J(v*αԣ޷[ H H ~ JB@ Sub_lot_No+>Wafer_ID+> ͶBlock+>SLOT_NO+>PROD_ID+>¯̨Ŭ+> J!'& J$>B@@ ( & ( $>Y05 ( $>Y06NG ( +>kkkkk ~B@B X ׼ģ.xlsx X ׼ģ.xls N  *B@dk N  *B@kj{enter}A@ ( P\ RH B@{enter}A@ H.xlsA@ (rohj`jMEAS_MIN % XMEAS_MIN % "X MEAS_HEAD % "X MEAS_HEAD % "X MEAS_TAIL % "X MEAS_TAIL % "X MEAS_HEAD % X MEAS_HEAD % X MEAS_TAIL % X MEAS_TAIL % X MEAS_MAX % Xj If minValue1 <> And minChar1 <> "" Theni% "X MEAS_HEAD % X MEAS_HEAD % X MEAS_TAIL % X MEAS_TAIL % X heAttribute VB_Name = "ͨģ" Dim savePath As "Sng 'cocĵ@·Vc@urrent \'ǰ@Ŀ¼ TFilex]uֵ&product '"customer ͻ"modqm?TH# 'Ӧ$µoL:xNCofCFlag, Ingot12 Boolean 'ж4ǷҳɁDЂJ߼IofcIndex 2mdataAIntegV`' ҳʼsheet/@lotCxounoDM ege Sub Main() `Application.ScreenUp@)i= False IS!s(2).Select= Trim(Range("B1").ValueD hisWorkbook. Active A} TIS@ۃC 'ļȡover allVûм isCalO@ All C c ҳ-S 4`{M New A0c.$Z , ,&,r e<, uCr,^ i`",Ə, `SFC$T!QλᇓGpaL= fPaCr+#` Ifv Then @Uot-B{1bn.-b1brCE`nd Ifc'~0Cq C2-2 "2G2y@\Q aTҳL%U= Dz"MD 91(1)@wiyu( / 6zr@80ibEFor j1 To yuijg(+ i - 1).Copy After:=aB~s$ .D5  CSL NstU6ClearConts[AX4]OK= G(1).t!" &+ 1p"(i)pq Nexa'ҳQ! 316Mid(a i + 0h ,@ 1, 9) $";aN,"xB[Cell l, 3R1C& / Eq315;-lxistO P O B 11_ _ -] C}8hQ  ÿһҳĠA_no Fkb rsbADODB.RecordDse!sqls51o_id from COCMEASSHIPLISTSTD where FILE_NAME ='" e"' group byD*conn`DBAe rEursorTyp1adOpenSt`c 'αͣ޷`3Lo×adUseCli>GnOFq @sDBB ISBkJ!Qtmp0p1Ak` uDo While EOF() 4<>uM2k <= 58?mO11MGG{&m q=.15, k#@MAIN LOT NOLO rmo"sc6hFields("q2xid"8iW5aFk\ >=0t(k Gx1k 6S @gh o_r% 1?>9L}LHK1MK1-at-LoopCTloc5.Y P'ǰҳOverall λֵcon@nectDB8Set rs = New ADODB.RecordsetB'COCMEASDATA@SUBSUM.sqll"selN * from  +M where FILE_NAME ='" + FileName "' AND LOT_FLAG='T'"v_+bf1n1rs.CursorTypeeadOpenStatic 'ͣ޷#R Locon"UseClient""; x, csDBCion25-100Do Whq.EOF() <> Tr ueFor j To mdataModePLag IfFields("Az_TYPE")"A" The!A ÍPc @7C "SELECT sum(wafer_count) WAFER_COUNT FROMSHIPLISTSTD WpHEREďr:s.YY, 3, 2N''CCJH+")O Clos[ElM .cPCS@End IfSPheetA8D`= p= 1(" &@& ")").SbuDk6Drk!CRange("Ka k). ValueM"", A=JITEMIA '޵ֵ񿪱կDim minAs StringxaxChar \F = IIfJ(O, q,l "Am N j ''!c'ax',' C Qj'in P j Ec1b)?"_meas_item@}g+ " rs1ƙ1OcDebug.P 2t E-=OLbzq way")IsEmpt|y(/"GIsNull0_QoOEE1Nik2qN7IwOzB&i{OOqtmpvR=BM[ Case _]""Mi>npd dCells(irс+bMINO&CЋd >)O>~=yo >= CDbl( R)+.Interior.Col= 65535??S_12!>(>|/>j>o %<>?PPP <>4>/L&age 1(" & j0")").Cells(i, 3).Interior.Color = 65@535 4E nd If3~Ca@se "<"7}If rs.Fields("MEAS_MIN") < CDbl(minValue)` Then3Sheet2Dat8a pgSeplectg?tpM "" ACharD}U ?$nCO>=F >=__I?6#qQ7?m1111 11#1a?  /EI|in_| | _'{q CK<_}cK<}O&ooo ??O<_MrUoo?O? qO=3Averp?_AVG"xGO:Ga?G/0///(, ֎΢* >1_H!>du?j>% 2If rs.Fields("MEAS_AVG") <= CDbl(minValue) Then 35SheetfData page 1(" & j")").Cells(i, 3).Interior.Color = 655357End IfCase "<">YIY SelectgYpSTDhqj@EV")#4(.?(Tj8oPcs?(?(h~wafercoun@b bElse,eGoTo nextitemR Exi`t For{[ z 7NRange("B!k).¿ 3""_  ik + 2 ,7E"i<> tmpv@ a BK ?!a"MindE?e+emMINFPmaxA@r Char )>=P >54?_????C??4//_, >ԑ? qC5?eD@bAinoAjA #' @"" AndCharThen+UhSelect~ 1'/"$>>=,r >= CDbl() 3v jq.Interior.Coloru655,35sJA!EoIfshh >hIgh?4m?4sj4) in΂in߂ *ʂ q CN<߂cւ<łd ߂ %N߂*@ $-{V-{,(,,?Q? q=?sAverAVG@#ey:Hax1_O__V?H*94./%Oϣ??L?mbiAA'/?''o˟O(O(O(O(!O?O_AVG") < CDbl(minValue) Th en <Sheets("MData page 1(" & j")").Cells(i, 3).Interior.Color = 65535;End If3CSelect9Case "S8TD"3rs@.FieldEAS_8EV");'*.?*?* q*PcsT׫*wafercounCh&Else+{GoTo nextitemIExit Fora ; N7@If rs1_WAY= "Min"@ i>k 1k + Range(D"Bi).¬ <> "B` D_+ ȱ 8MIN߅kmaxA @Char #C} Hu >=5 KKb% >=d v 8?%=4/?(,, >Onoo?? q?aAD@bAinoAA3o'_}' "" And!$Char"Th en+Select CaseO/DHA">="3!r >= CDbl() 3v2SheetData page 1(" & j".Interior.Color655357uEoIfshh >hIghhYAvj)?B'cin΂in߂ .Jc _ CO<߃V "" T@hen 0Select Cacr% >ed  %88*?Y 44`/_, >_www? q_?eDbAooA3o''o''oO(O(O(O(!O?OoƏO@??PoueaSTD" Or .?5vp ` EVo/lse/MExit For__`۟Nex_jE "8"1;WAY0= " f For i @= k To+0 5 6If Range("B" & i).Value <> "" Then?#OK*6:Sheets("MData page( 1(j")").Cells@(i, 3)srs.FieldEAS_AVG"F)TVmaxvAnd Char*Select Case'+M$ ">="3dJ >= CDbl(@),{(jq.Interi@or.Col@=` 6553QEoIfJshh >h$?4l?40x?4j4) # fmin΂in߂ .Jc _ CO<߃V0 CG!t mp(i /, 6DP1`i `Mod 6Cpi6d@o( + 1(16, +1OVERALL" And lotid <> "" Then $'H LOTHSet rsh = New ADODB.RecordsetLD.CursorTypeZadOpenStatic 'αͣ޷ FLoc:onJUse@ClientIʈIsql"SELECT @DISTINCASE WHEN ms.t_ID IS NULL T CUSTOMER_ ELCEND FROM MES_SHIPTAG(b -RE ."='" ++ "'"yT aSUBAIN (dZ?COCPMEAS@LqSTD@FILE_NAME=& FileName &@)Anj  , csDBConnectioIf~Coub> 0L˜1lFields(" CK")G=O? >= CDbl( L//.Interi@or.Col= 65535_yr. > Sheets("MData page " & tmp + 1)$"(l)").Cells(j,B1D3).Interior.Color = 65535 End If/?7Select+;7If minValue1 <> "" A[ Char Thencc Cas>e4*$&"<="=rs. FieldAEAS_MIN") <= CDbl(D) >A#qccccf1R1ak#>Max> _.].౮DpAX")_ axax j  ,>cq% >e  %;?j?j-1ϯ_MP__p___/ qP?0&__Din_3)_/))__)))???#?BO_ﻏ?C??Averpoooi_AVGo&mg9OsN "Case "`>=" #JIf rs.Fields("MEAS_AVG") >= CDbl(maxValue1) Then7iA{SheetgData pag & tmp +D 1 "("l )").Cells(j,13).Interior.Color = 655357KEnd IfRmmm %m Selectknmin <> "" AChar1 I ;cR<6<%E"?; S,?F[ 111111,1W ak#>STD>/ atou& "ou+ 3)ptm`EV")D; .  OI _ O Pcs wafercounOi Else?GoTo nextItem1?0_ Exit For]4 N u RRange("B14k).{ &{z jk2 V7O  jӃ??v?u#yE 5Min5o666AJMINM!axBS@a?///)G  Case "0>" %LIf rs.Fields("MEAS_MIN") > CDbl(maxValue1)` Then;lSheetjDat a pag & tmp + 1Q "("l )").Cells((j,13).Interior.Color = 65535;MEnd If!Select;mminf <>` "" A0Cphar1l4 sHEì<=<<=DG/ *?I33^ 33 303 s#AMax?A00`AX|")PFaxj 5 =.>7_M >Q_}/ Q|_}& "_}+ _}_}//4T_?S _ Ф @inGR3+++++++++$?E_Z??F?F= Case "Average" LSheets("MData p " & tmp + 1)"(l)").Cells(j,!1"3) = rs.FieldGEAS_AVG")/If maxValue1 <> "" AndChar!Thenselect 2("󁤃>=0t >= CDbl() 3wEx.Interior.Color@|`65535O$EuIfsDn?nκ >mEm66S"p?7-'sinin3 c ? cT<c<# %VʿV2?I 3^ 3d3?~~~~`_O?F  _ STD ooo_ZyEVT ._ _ _ _ _ _ _ S Pcs?_ _ _ \ wafercount_ ElseooGoTo nextItem1o2 Exit F|or_o7?N`_ "W1!WAY"1"M8in"߶o'candy starMid(lotid, 1 )H/I jk k_Ran ge("Bqj).?3= "Head//999/F*FpHEADF/ D?o$Zaxꌲ 6Case "`>=" 7rIf rs.Fields("MEAS_HEAD") >= CDbl(maxValue1) Then?rxSheet8Data pagg & tmp + 1"("l)").Ce@lls(j,13).Interior.Color = 65535?OEnd If# xx2Vx?xP?x?x'=xSelectxuminq <> 0"" AU`Char1DtT# P  Z< w?O??????/?/1^_NzNinNZN.3//N/ Then HSheets("MData page " & tmp + 1"(l)").Cells(j ,!1"3).Interior.Color = 65535GEnd IfCOCas p<"NIf rs.FieldEAS_MIN") < CDbl(minValue1)oooSelectn" Range("Bj).k"Pcs"IV5_~]~wafercoun1_"sX"Aver`"3 ""NAVG")V max <> "" A`Char1D k  >== ǀ!-+ >=DE%_)_C]C?64_TOoO_D?ϑ?@o?1/u_NinNZN.3/ ~"q"2?MIN2maxC1CA@Char7Select Case 'p ">=~"_ U!* >= CDbl( C%)(_B}.Interior.Color D6553d %_5} >> >> 8>>>_4>_ a#>   @w minMinMZM3.= CDbl(maxValue1) Th0en #JSheetsData page " & tmp + R1 "(l )").Cells((j,!1"3).Interior.Color = 65535CEnd If%"Cas>"G}?|~||(| Selectj#smin <> "" A`Char1Dwz7{c R ?? C "<=\ $]<&-]??8?N %c<7_ $7䔿7 577787?K???? Range("Baj).N@"STD" Or ue.O?O OO`C EV")?_S?Else?Exit For__? Nexq_oB1WAY= "M8ax"O'candy star_ Mid(lotid, 1 )rvH/  jP"k To k//so/?6Tail//555i5_TAIL5/ @ 6“axϓ6Cw>OoJ!!!/__I/odG 'If rs.Fields("MEAS_TAIL") > CDbl(maxValue1) Th0en (*SheetsData page " & tmp + R1 "(l )").Cells((j,!1"3).Interior.Color = 65535CEnd If%!Select#Avminn <>` "" A4Char1tx: Case {PM"<="W<=S ſŷ*S -<;_ ,;; ?";? ;?) w sEl\se߅q@Fjk?3>}>MAX")  }aaxa?*a_ SB>o`o >_O_!OO`OO/7_TaoO_25????O?/1^_0inNN/30111 111111*?No If rs.Fields("MEAS_MAX") < CDbl(minValue1) Then <(Sheet~Data page " & tmp + 1) "(l )").Cells(j,!1"3).Interior.Color =@ 65535OE`nd If+'Select)I o9@Range("Bj).x"Pcs"!wafercoun0p5QDAverϿEq"q"AVG")?max <>` "" Ap`Char1Dp Case ?ý ">="_ ] !R+ >=E% )e4i_ %_5} >> >> ?y@yy{yy?1x_?pMinM?ND._ S"lse?]Q Exit F0or  6End If'fNexBt#-Else)'candy end#U_r j = k To+ 5If Range("B" & j).Value <> "" Then')I2!Sheets("MData page Otm p + 1T"(lA)").Cells(j, %@13)Drs@.FieldEAS_MAX")34maxF1FA@CharKSelect Case s,I">="V >= CDbl(@.J)t /.Interior.ColorD6553f5%_5} >> >> 8>]>6> a#> w:min/in? 7* ? 3/"GIf rs.Fields("MEAS_AVG") > CDbl(maxValue1)` ThenC:Sheet9Data pagj''| SeplectM uminn <> "" ACha|r1tr9 ?Ec^<=^% _<=_E(_1`??<?Q_ )99 (99 ? 999<9_ %a  _ p| Range("B1!j).2R"STD" Oro.S_! oOA@z0 EV")V?ElseExit For Nex_v/o_? 1rG1KWAY@= "Aver" jk To ~k-ue~ߟO/O/P`1O/ ֬"ax/ #s>/or_/!/!/!A/_ToOޏ????j, tmp1 + 3).Interior.Color = 65535 @End If;CSelect/G5If minValue1 <> "" Ae Char pThenmm Case:0*,)"<="C'Frs.Fields("MEAS_AVG") <=@ CDbl(M) GASheetData page " &1@"(lA)").Cells(j,M"uooo71(77_87 !s o`ARange("bBfj)."Pcs"wO <<wafercxoun_  0ElseiExit For Nex?y"1 WAY= p"STD7W jPk To kTO$C$3s`u'babp nEV")/ o9_????Is09o o_99O/9PDoMsgBox "ȷR;: Max,Mi@n,Aver,',XO?Ϻ5rs1.C\loRnLItem1:/  -7MovekLoop WSDim shet As ge[B= mdIndexQPEach@l 4Q 5).m~Pumn@KionearContsN teOl PQ A1 WorkP`I?^ @!=!+ 1#App licataDisplayAlertsPFa>'жǷӰ ʱ { (^I nStr(S14, 1), "ep|s'a 8dttmsql " SELECT SUBLOT_ID,CUR_WAF_CNT,to_char(his_regist_dttm,'y/MM/dd') manufacture_date FROM F3PRD.DOPE_| "  sql = & " where lID in('PKG','E) and cat IN ('OCLO&aCSUBSTR(LOT_ID,0,7)||ES -3)B SELECT HIP__ !( #DISTIN'CASE WHEN S IS NULL$ TUB4 ELEND8COCMEASL9STD cĀLEFT JOY F.,0CUSTOMERE+0eC:A;; MES_(TAGs ON c.@jO= ms.f(jRE FILE_NAME ='" & Fil eName"' )) ord`er byB ASC_Set@Cre@Object("ADO@DB.rec@set").CursorTypeadOpenStatic 'αͣ޷ Lo@ionb Use@ClientG _ Debug.Pri$}, csDBConn@!OCells(1`4, 2)`A .Fields("MANUFACTURE_DATE!E'Else# ActiveShee t.Row ).Insert 1 "Mǜ D4:F'ȡx"#(cQ,CUee_WAF_CNT,to_!%! t,%SᱫAO ƕD IP.D,2EVT " VVV)VV VvV*VVdV-VVVVVVV_GVlOrVVRBV.mVVEPIf_If custom@s= "㽭ˮԲ뵼Ƽ޹ˀ" Then TOWorkbook.]s(?ount).Sel e.Add After:=ag"Ԡp,c2.Q\ROD_US^ SNOqP'POM1,0lt65ɃA=INNERCϟPAФ?9(F__!0xAINFOS c2B2Q| =`_BVBOAORD BYG/?/?-?a>>>>x/>/>/>7(=O=r/=/= <, Sub_lopt_No6ҕ"`Wafer, +;ͶB@lockO, 4R, 5G1, 6̨p7CONTS5RC> 2.CopyFrom^2For cs11 To 5GPK#3+ 1% Y0`5" Ord"8Y06MLL 792NGTQNex$۳.Cloc mod#P׼ģ.0xlsxR ׼ģ.xls" Then ThisWorkbook.SaveAs sPath, xlExcelB8^Else4rnd If;SendKeys "{enter}", TruYApplication.DisplayAlerts =%Is.Open FileName:=curr[ & "\" EDeleteSheeB+ZScr@eenUpdbn g [ESub  _lX[P &*rR\i`  2l S )+l Gbolan                          ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j m n o p q r s t u v w x y z { | } ~  rSxME(` %` % 0%0@P`p 0@P`p 0@P`p 0@P`p 0@P`p k$*\Rffff*SO6c06f1b5 " @ ` x   008hp (*@ p  "    (@ h       *  (0 88P P  <0 p    6    :( h p Bx       "( P X *p   P ( 0@ 0 0P  $ 2 *  ( ^H  d ^0 R  0 08 h      "   0  P 0`            "("P"x"""""@"h""  ,(8 ` hx    Xp.0j  2( 08,@^pd^XR 000`     60h08XpJx  0 0 Hh$ x$0$0$  $F8 $@  @p0<J<8x  N P 0p 0     0  0@  p   $2 $0 (D!$lH!(D!$" "" N" h" 0" 0" "  # $ 0($ 0X$ $  $$2$$0$(8%$lP%(8%$% &&&& &8&NX& &0&0&(' H' @(0`(0(( (D(0)8)P)Np) )0)0*@* `* X+0x+0++ +D,H,P,HX, ,0,0, -@-P- H.0h.0.. . 8.(/0/8/ @/P/"h// ////////"080 X0h0p0x0000000 0111 1(10181X1`1 h1 p11  ,1 P1 J2    X2*h2  2  2 R2 3 3  (3 83$H3  p333333  *3 ,(4 $X4 "4 &4  4 &4 5 &85 `5 &5  5 5 55 5 6 6  6*(6  X6 h6Imports System.IOYangtze_River_storage_you嵥ļļ>$رĻˢ´ (rx$>$'H H嵥ļA@J|(k A@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dHWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H -У.xlsxA@Hd A@ Ʒļ  @ -У.xlsx  H -У.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|8k0   B@.kжһǷƷļ  H -У.xlsx$x] ģļ  H -У.xlsx %. %.J-----------------------------------------------1--------------------------Sheets("Sheet2").Select' B@pSELECT ORDER_NO,SUM(WAFER_COUNT ) WAFCOUNT,TO_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H"' GROUP BY PLAN_SHIP_TIME,ORDER_NO' ADODB.recordset$p. t (r5αͣ޷ x (v8αԣ޷ ~ B@ORDER_NO %+>+Cells(1, 2) = counfwaset.Fields("WAFCOUNT")PLAN_SHIP_TIME %+>ѭsublotidUSELECT CUSTOMER_SUBLOT subLOT_ID,SLOT_NO ,WAF_ID ,SUB_LOT_ID FROM COCMEASDATAINFOS c ' INNER JOIN ( ' VSELECT SHIP_SUB_LOT_ID,CUSTOMER_SUBLOT FROM MES_SHIPTAG ms WHERE CUSTOMER_SUBLOT IN ( ' ?SELECT c.SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H') ' D) ms ON ms.SHIP_SUB_LOT_ID=c.SUB_LOT_ID ORDER BY SUB_LOT_ID,SLOT_NO 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N NWAFCOUNT %嵥A@J|(k O65536$v%!'   N A2:S $v.T T B@     $>B@ kh`'D    N       'D k     $>  D +>$>  D +>$>  D +>$>  D +>$>  D +>$>  D +>$>  D +>$>  D +> $>  D +> $>  D +> $>  D +>kOK  D +> SUBLOT_ID L%  D +>WAF_ID L%  D +> LB@L:M$B@H (* tB@  Sheet1!R3C1B ͸ӱ1D F < : -Wafer COA template by piece!R1C12:R1048576C13>  z!6 %8 B@@ Sheet1$tB@H$>B@HLot No ͸ӱ1 <%H %J  N 9L 9:q0T7 code ͸ӱ1 <%H %J  N 9L 9:q  T7 code ͸ӱ1 <%H %J :T7 code R ͸ӱ1 <%H B@P  z(T   ' 'V   N  $>    $>A@J| k  Wafer COA template by piece$tB@HUSELECT CUSTOMER_SUBLOT subLOT_ID,SLOT_NO ,WAF_ID ,SUB_LOT_ID FROM COCMEASDATAINFOS c ' INNER JOIN ( ' VSELECT SHIP_SUB_LOT_ID,CUSTOMER_SUBLOT FROM MES_SHIPTAG ms WHERE CUSTOMER_SUBLOT IN ( ' ?SELECT c.SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H') ' D) ms ON ms.SHIP_SUB_LOT_ID=c.SUB_LOT_ID ORDER BY SUB_LOT_ID,SLOT_NO 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@'D   N     'D k dataworkbook.Save   0If idset.Fields("SUBLOT_ID") = "WB3E903A07" Then $>'N $>'L $>' ; RESISTAIL;RESISHEAD RRGTAIL;RRGHEAD  CTAIL;CHEAD ORGTAIL;ORGHEAD OXYCONCENTAIL/2;OXYCONCENHEAD/2 3ORIENTATIONX;ORIENTATIONX;ORIENTATIONY;ORIENTATIONY / ; $' /$ ' / $' ','$ ' d ; $' ','$ ' k4SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS in(' ')'ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@  !SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ ! /data %X0.#####$  D  +>dxdata %X0.#####$  D  +>k0k( B@ 3ORIENTATIONX;ORIENTATIONX;ORIENTATIONY;ORIENTATIONY=SQRT(X  D *X  D +Y  D *Y  D )  D +>  D $>X0.#####$  D +>d =AVERAGE(X  D :Y  D )  D +>  D $>X0.#####$  D +>kdx ; $'   $/ $/ $'2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %? data,SP_DATA_STATE FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rBαͣ޷ x (vEαԣ޷  ~ B@ ! SP_DATA_STATE %; $' $  ITEM_TYPE % data %$0.#####$  D +> ITEM_TYPE %SP5 ITEM_TYPE %SP7 ITEM_TYPE %SP3edata %$0.#####$  D +>kkd2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' $''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %? data,SP_DATA_STATE FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@ ! SP_DATA_STATE %; $' $  ITEM_TYPE % data %0.#####$  D +> ITEM_TYPE %SP5 ITEM_TYPE %SP7 ITEM_TYPE %SP3edata %0.#####$  D +>kkkk /e / $'2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ !data %$0.#####$  D +>k *e * $'2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%'' ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷ ~ B@ !data %$0.#####$  D +>kd2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' ''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ !SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@ !data %0.#####$  D +>kkk End If L  N   D $> N $8  D $>B@H ! 9 9999qNG  D +>  D $> L $8 e  D $>B@H ! 9 9999qhNG  D +>  D $>e  D $>B@H ! 9 9999qNG  D +>kk LB@x%-------------------------------------J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H -У.xlsx %. ( (K-----------------------------------------------2---------------------------k <B@Ϊ B@  H.xlsx Z B@V:AA$B@H | B@vO:O$B@H | B@vSheet1$tB@H r!tB@v# Dim fileInfo As New IO.fileInfo& fileInfo (ss & FileName & ".xlsx") fileInfo.IsReadOnly = True Columns("AK:AK").Select Selection.Delete Shift:=xlUp Rows("3:3").Select Selection.Delete Shift:=xlUp Rows("2:2").Select Selection.Delete Shift:=xlUp Rows("1:1").Select Selection.Delete Shift:=xlUp رչ B@Bp_workbook.Close Ļˢ´ (rA@洢 H resļA@Jo cAttribute VB_Name = "洢" 'Imports System.IO Sub A() 'Yangtze_River_storage_you>'嵥ļ 2'رĻˢ- Application.ScreenHUpdngFalse'FileTrim(Cells(1, D2)If $"" Then<^MsgBox ("SɇU"$Exi t End IfconnectDBSet wp= CreateObj("ADODB.recordset..Curs orTypad@OpenSt{c 'ͣ޷ " LoadUseClient#ԕ#Dim pdsrc A3~ng5wpsql '!Ʒss aaAR@o@SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &G|& "' GROUP BY JAwO]n9, csDBCCv7Whw.EOF <@> TrueAжǷһGE'ȡ@trhFie`lds("* 'õ˾0"AcuamernB("7p@vpathh 9ԭ Au·һ'ӵ̀繲a+H<\\10.A52.142\0coc\. Ser@Shar112ģ@\radmini0straPassw`o."fthw-82905X028hIF oldersts()(%DE@ 20 El%t Net k# Wipt.)Acafsoing.ឣ# -.MapDr@ "",)2, ®, ,, %)Kg .1)'%F7aK%S=Ax\̀ͻA?\|^!i ')K` \  & hDDebug.Pri&y` .xlsxHqK'汾 &)=QisWorkbook.P{?&B)_a0'8U@xml_BD= 7W[qX3ssA5,Copy /",[@`"-}8Q7MultiLevel# ( < !2 W!(   53 vnE"5ûж Ӧq3Y,ȷq%+M< ->PM.Remove:Fx9,BtTFNdRNoth?0N zһdz.:s -qv a^19v9' Q':= %s.q? 9  ExcelShe =% z.s0(p'-1W 'Br2").Sel@xxnxe.ActivcountwPafid`"4ORDO,SUM(WAFCOU`NT ) ,TO_cp(PLAN__TIME,'ymmdd')  c /)  x91 q fwap [ّ%5_1 T ". C5s2, 1)h-'_q!}2ü*'ѭsublotpidUA 10 5,ֽSUBLOT @`p,SqpNO , qP.B_:*DATAINFOlS c " sql1 = 0& "INNER JOIN (SELECT SHIP_SUB_LOT_ID,CUSTOMER&$ FROM MES_PTAG ms WHE8RE )p oc.lk[COCMEAS^LISTS TDaFILE_NAME ='" & FileName"')m)RON.+ o=?v ORDQBY SNNO.Set ids= CreateObject("ADODB. recor").Curs@orTypeadOpenStatic 'αͣ޷Ј(LoconUseClientA%‘, cs@DBConn@9ion!lot_id_cou=CGt.RACO CIDf <> fwaW.Fields("WAFCOUNT") TheMsgBox "嵥ʀExit SubEnd If CQIRange("O655 36").@(3).rowCAo For A@ 1 = 2*Ass3A2:S QP .CopyCells((A - 1) * (Q#+ 2, .PasteSpeciale aNexti'LO 0wafsXb ( atea"+o Q?8e`/3 Or b = @Fi)+ LO'?b)e2)]29a33 44Z5566k77889910 ??$F@p`BrAF1pZo 0I "OK+'OeESvu_h /1R(+pW0B0pMoveC C olumn]L:bMVSeldApplikqt1OModqFalseCSheets.AddDctiveWorkbook.PivotCaches.sy(Sourceqv:=xlData2be, s:= _ "Wafer COA templ} by piece!R1C12:R1048576C13", Versq:=6). @Table RD estin"z:=" 1!R3C1ጐ͸ӱ DefaultW (3P").)With ~A"b ))%Lot No1i!.OrxlRow.Posit0R1c1A1 rT70deS 2 (a$??1"i" , ":%p, xls/Show&Lis>t3.|25GasdadAWawsub_/ 25`xgD'Uq, JtsA ĜP`?EV4I3??4qD"Tӽ03,,T , DATAINFOGsOT Jcb R _ܲk/C[ܓ t?@(޷  idset.Open sql1, csDBConnectionLO = 0.For MEAS*1 To lot_id_coHunt zIf(>= 2 The\(N- 1) *0 (Q  IEn0d If 'dataworkbook.Save #UteamsVAo Q'QFields("SUBLOT_ID")"WB3E903A07"`shangx@Cells(6,0 22)4Vxi:a3"(15_InStr;, ";Z<> 0*! "RESISTAIL;BHEAD" O$r RGCRGCBCO XYCONCEN/2;OA D/2ORI TIONX;YIYUhA=D> K/Kstrcityd Split[, , vbTextComparei1@Joi|n(n@#O3!4"2 3 ','"ElslaI ;"K   0meas"S ELECT FR@OM COCDITEMSSTD@ WHERE_b 6'" & & "')"7!Set etCreateObj("ADODB.recor0` .CursorType@.adaStatic 'αͣ8e t Loc on Use@Client "ӥ3m, S3-8ccce-.R*C BaA>_A>& COLUMN_NUM`I@  JIANFOS c2!I WAF@ =I + LO, 13)L"' a_K<>' l_ln '/,h,0o,o,0,em,?&_!Ov&u,,?qlߖz8, ~_ ?o)<23p*607mat(CDbl( 10")) / 20[0.#M?f? e??s.MoveN_%D՚OT~A_19=SQRT(XqQ!sKaK*?t"+Й&x?"tDRi(  )o'MAVERAGE ":= ?*W_ u_SP oo0o UBydŰ:&M(oo!߼Zc :MB=qloons#ze (0?y= l CreateObject("ADODB.recordset") measTs.CursorType = adOpenStatic 'αͣ޷Ј.cLocWongUseClientf:f] lqls, csDBConnion, 3 $[qlS"SELECT MEAS_ITE M_" &0ets.Fields("COLUMN@_NUM")" data,SP_DATA_STATE FROM COC& INFOS c2 WHERWAF_ID ='1Cells(teams + LO, 13-' and.H<>' CSUB_LOT@=iF2GC2'"KSetDL?ľSEI' IfX.RBCou@g<> 0 Then4a!"XTYPE4Spplit(e%YJV"), ";", , vbTextCompareK"`I@r((UBd) Dçi")) b 0g9)Forma/!u`]/ strcity1(10.#?#Elseg4r 5"SP5" Ax$7?$3"@($ $aæ$ eEIf?U ~ -? ,@?%*˰aMSSTDdSİB(ooߡ ȡs|'&Ezz<Qzzfzzz#Qxql1zz zz|zzzzzIDz("z )1)?> 1z???eo5))) )1zg`1zzVp-z1ǚzzP zz{dnEzh1zt'h`yyV y_wy?3y ooeo "ov?;N31Ds)p/_#Q3 R.q#EM|1(04OO[ meassets.CursorType = adOpenStatic 'αͣ޷  LoconUseClientZ.Z hqls, csDBConnection, 3 ql2G"SELECT MEAS_ITE`M_" &+Fields("COLUMN_NUM")" data FRO M COCDATAINFOS c2 WHERE WAF_ID ='*Cells(teams + LO, 13A&' and.A<>' SUB_LOT44idN.]]'"SES et>AFCrea teObj@T("ADODB.reHcor")XVet2??Ϊ42. 2 IfL.RBGCou<> 0 TheNnI9)Format(s&&A5ql3?OOO?OOOPO.O$oW " ?OIDO("?O/(Oz3O_)_)_)/) [t )3))Ǘ"Pet3P/ _PW8 'Oxiax* "" Or shangsS pq> Val(S)r.SelOWith C .Inter8iorq.P atpxlSolidrnColorIndexHxlAutoyPicb2 55TintAndShaqde = 0  .PatternTintAndShaEnd WithCells(teams + LO, 21)"NG"5ElseIf 819) < Val(xiax)` Then)x.Selectf ion.IniorkxlSolidColorIndexAutompatic255'1Aƍ= ""}'F}}}3.}K~>F/a IFfZNexlxidset.Movej  '--- 1 &2+ ! $''csvļ'Set p_workb(ook`9WDs.Open(ss & FileName@"-У.xlsx") Applic@@DisplayAlerts@ Q'رչpA+Cxlos++Wen'Ļˢ0>Sc@reenUpi ng 'X3ScDBMsgBox "戴"LGresaKpɤ!<;S ub12bsKxME@` %` ` ` hx% V `J$$A`D`>` 8%` ` ` h%+ `PJ ei XR p%XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXP   p(x (@ Jzptx8 @ @ @ @ ( @h P @8 @ ( *H v8 p @X  xp @X xX@ @( x( @ @ @ @ X @ x @p @P @8 @ @ @ @ @ @ @ ` `pp @X @ @( @ @ Pa` a( @ cX @ (x @f ` Xlh@H @V0 @ p p p(t8r w  8wH xy( p (X @@ (   @ @ @ @  @ @N h @L P @ 8  @ 8H``p ` `( @p p @ X @ (h @ P @X k$*\Rffff*S=6c06f1b5r"    " ( H 4`dp   L  (00 PX p<F`**x &  $   & @ "H p  (        (  *(@ Dp  8n P@@R`  <  $   2(  ` h x 2    BL ( 0 .@ X`   hR   & F PX `  (p 0 0 ( f4  F 2  & L    ( $8 H P `  h 8p   b  D  8  ,v@  p  v * L   6 &d $H 2X "d $  (     N F < ,d0$` *dx$8(d  $(@(tH(tp(t*tT F ^X T   0  (@ ` p<F ,  : :0 :p  6  *l *l *lH  &hx  8,.l,>( 0,*l8,:h(   $N$*t$T$.8$ Fh(x(((($$ 8$ 8$ 8$ 8$ 8   $N$*t@$Tp$.$ F((((($$ 8$ 8$ 8 $ 80$ 8@ PX %2`  Fx F F FP B*tT.0$ F`(p(x((($$ 8$ 8$ 8$ 8$ 8    JP0LPLhX   ,     P J8    & 4  6 R P X  h x   0    6    *^  8 "@ H h 4d   L  (00@px <F **  &  $! 0! &@!`! "h! ! ! (! ! "   " 0"  8" (@" *(`" D" "" "8n" P#@`#R# # <# # $$  $ 0$ 4H$  $ $ $ 2$ $  $ BL$@%H% P% .`% x%%   %R% % % (% F& P(&x& &  (& 0& 0& (' f48' F' 2' &'L( (((@(H((X($p(((( ( ((8(  R( 2) $r) ,@) *P)Lh)))2)$).)$*  ((* H* X*Nh*F0+ 8H+$+ 6+$+ 4+, , $(, @,PP, 2,$p, ,,,,(t,(t -(tH-&pp-  -  (- - -<-F(/ ,@/  6X/ 6/ 6/  20  880$:X0  0$60 0  0 $N0$&p1$F@1$ F1(1(1(1(1(1$1$ 81$ 81$ 81$ 81$ 82 2 2 (2 $N82$&p`2$F2$ F2(2(2(2(2(3$3$ 83$ 8 3$ 803$ 8@3$ 8P3 `3h3 %2p3&p3F3$ F3(4(4(4( 4((4$04$ 884$ 8H4$ 8X4$ 8h4$ 8x4 4  44 4  4 R4B4 .4 , 5 P5 8`5 D5    P5 J06    6(6 46 6 66 R6 H7 P7  ~`7 p7  7 07 7 7 7 67 7   7*^8  08B 88 @84P8 h8x88:8:8&888 8A@T A@V o`X嵥ļļ (رĻˢ´$ (rH$>$'H H嵥ļA@J|@k8A@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ]]]0~SELECT CUSTOMER_NAME ,PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyy/mm/dd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PRODUCT_IDCUSTOMER_NAME,PLAN_SHIP_TIME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'BʱPLAN_SHIP_TIME <%'X ]H ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k`繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hk0d(7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xlsx$x]` ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷ !ݳ嵥ļƷlotidPselect LOT_ID,SUBLOT_ID ,WAFER_COUNT from COCMEASSHIPLISTSTD where FILE_NAME =' H' '  ~ B@ ,ҵparameter-namevarianceжӦĸ ( $>'Z Z parameter-nameKT '  $ '\ varianceKT '  $ '^ n V ! ½excelļsheet !!.sheet1$t%>_ SUBLOT_ID$ ( \ 65536sheet1$t%v%!'A1:AZ sheet1$t%v. B@a1 !$t%vB@     $>'Z Z Lot_NoKT SUBLOT_ID % sheet1$t,> SUBLOT_ID % +>batch-noKTLOT_ID % sheet1$t,>LOT_ID % +>Manufacture_DateKTADODB.recordset$p.` t ` (r x ` (vSELECT to_char(DH.HIS_REGIST_DTTM,'yyyy/mm/dd') HIS_REGIST_DTTM from F3PRD.DOPE_HIS dh WHERE OPE_ID IN ('PKG','EPKG') AND HIS_CAT ='OC' AND SUBLOT_ID =' SUBLOT_ID %''b b ~ ` B@HIS_REGIST_DTTM ` % sheet1$t,>HIS_REGIST_DTTM ` % +>delivery_numberKTPLAN_SHIP_TIME <% +>QuantityKT wafer_count % sheet1$t,> wafer_count % +>n  .    sheet1$t%>'    sheet1$t%>'N    sheet1$t%>'L OK    sheet1$t,>OK    +>@ If addsheet.Cells(lotrowitem, 33) = "/" ThenW addsheet.Cells(lotrowitem, 33) = lotIdSet.Fields("wafer_count")N Cells(lotrowitem, 33) = lotIdSet.Fields("wafer_count") End If ADODB.recordset$p.  t (r x (vselect meas_pcs,Round(meas_min,5) meas_min ,Round(meas_max,5) meas_max,Round(meas_avg,5) meas_avg,MEAS_ITEMS,Round(meas_stdev,5) meas_stdev from COCMEASDATASUBSUM csum where csum.SUBLOT_ID=' SUBLOT_ID$' and csum.MEAS_ITEMS=' %' and MEAS_PCS <>'0' and FILE_NAME =' H' '  ~ B@ !1meas_avg %    sheet1$t,>meas_MIN %    sheet1$t,>meas_max %    sheet1$t,> meas_stdev %   sheet1$t,>meas_avg %    +>meas_MIN %    +>meas_max %    +> meas_stdev %   +>meas_pcs % wafer_count %    +> wafer_count %    sheet1$t,>d meas_pcs %    +>meas_pcs %    sheet1$t,>kP N meas_max % N $8 NG    sheet1$t,>NG    +> \ : ^   <%vB@H ! 9 9999qX  r( r( r( r( r(k k L meas_min % L $8 NG    sheet1$t,>NG    +> \ : ^   <%vB@H ! 9 9999q r( r( r( r( r(kk !0e@ Cells(lotrowitem, variance - 4) = ""@ Cells(lotrowitem, variance - 3) = ""@ Cells(lotrowitem, variance - 2) = ""@ Cells(lotrowitem, variance - 1) = ""< Cells(lotrowitem, variance) = ""NG    sheet1$t,>NG    +> \ : ^   <%vB@H ! 9 9999q` r( r( r( r( r(kk B@1:1$B@H |  B@z B+> @+> !+>A@d X%------------------------------------- B@J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H.xlsx %. (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@ B@ رչ B@Bp_workbook.Close8Ļˢ´ (rA@ൺо H resļA@Jo嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J| kA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ] ]@]X~SELECT CUSTOMER_NAME ,PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyy/mm/dd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PRODUCT_IDCUSTOMER_NAME,PLAN_SHIP_TIME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'BʱPLAN_SHIP_TIME <%'X ]p ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k@繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hdx A@ Ʒļ  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kxжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷ !ݳ嵥ļƷlotidPselect LOT_ID,SUBLOT_ID ,WAFER_COUNT from COCMEASSHIPLISTSTD where FILE_NAME =' H' '  ~ B@ ,ҵparameter-namevarianceжӦĸ ( $>'Z Z parameter-nameKT '  $ '\   $ '^ varianceKT '  $ 'f n`X \ 65536$v%!' V !A1:AZ $vB@H B@A  V $vB@H <B@    $>'Z Z Lot_NoKT SUBLOT_ID %  V +>batch-noKTLOT_ID %  V +>Manufacture_DateKTADODB.recordset$p.` t ` (r x ` (vSELECT to_char(DH.HIS_REGIST_DTTM,'yyyy/mm/dd') HIS_REGIST_DTTM from F3PRD.DOPE_HIS dh WHERE OPE_ID IN ('PKG','EPKG') AND HIS_CAT ='OC' AND SUBLOT_ID =' SUBLOT_ID %''b b ~ ` B@HIS_REGIST_DTTM ` %  V +>delivery_numberKTPLAN_SHIP_TIME <%  V +>QuantityKT wafer_count %  V +>n    A  V   : ^   V   $vB@H B@A  V  $vB@H <B@k.    sheet1$t%>'    sheet1$t%>'N    sheet1$t%>'L OK  V    +> ADODB.recordset$p.  t (r x (vselect meas_pcs,Round(meas_min,5) meas_min ,Round(meas_max,5) meas_max,Round(meas_avg,5) meas_avg,MEAS_ITEMS,Round(meas_stdev,5) meas_stdev from COCMEASDATASUBSUM csum where csum.SUBLOT_ID=' SUBLOT_ID$' and csum.MEAS_ITEMS=' %' and MEAS_PCS <>'0' and FILE_NAME =' H''  ~ B@ !1meas_avg %  V    +>meas_MIN %  V    +>meas_max %  V    +> meas_stdev %  V   +>meas_pcs % wafer_count %  V    +>d`meas_pcs %  V    +>k  N meas_max % N $8 NG  V    +> \  V  : f   V   <%vB@H ! 9 9999q8 r( r( r( r( r(k k L meas_min % L $8 NG  V    +> \  V  : f   V   <%vB@H ! 9 9999q  r( r( r( r( r(k k !0eNG  V    +> \  V  : f   V   <%vB@H ! 9 9999q  r( r( r( r( r(kp kh ` B@H A1:AK $vB@H | B@v( Sheets("Sheet1").Name = FileName%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H.xlsx %. (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@ B@ رչ B@Bp_workbook.Close@Ļˢ´ (rA@ൺо H resļA@Jo  @  $6'   e  '   '@  $6' @  $6'   ' k iwAttribute VB_Name = "о" Sub 8() 0 D < End jT |z'嵀ļH'رĻˢ´\Application.ScreenUpd ngFalsBe'FileTrim(Cells(1, 2)!w If $"" ThenMsgBox ("S U"$Exit't{If#connectDB@Set wp= CreateObj("ADODB.recor0dset..CursorTypadOpenSt{c 'αͣ޷f "LoadUseClient#Dim pdsr@c As S@ng5wpsql '!Ʒ"ss aaaARangoparter_n@Integervarian TruebжǷΪһ f'ȡ3`(trDCFields("_ õ@˾customerB92=C("  ʱg 1} .&*9 JWpxath!F XA$V`#һ'繲va Q lotidòCu///'% ' պQ*#ưsel LO¼SUBA ,WAFCOUNT fromD where ' hB1etb( ︇qҵ-͕2LĂFor s$` To 4Y "s1PS3`Case D Case "parameter-n8" 8_P = sVZM1@ZM( h)1varipance"|2|.vEnd S elect INexFor sheet.1 To lotidSet.Recor dCoun '½excelļ8! add,dataworkbo0ok.W s.Add.NEHSLs("1").Cells(2, 4) &0 "_"E,("SUBLOT_I,D"LGKAQRa0nge(x65536@T(3)p.rowKKA;sssW"A1:AZ*A & .Copy =JC).C("aAPasteSpecialM|+{ YNAME ]1, s/ >   Lopt_NoBs)@%FieldD? iHVbatch-n?@lY3X"w!cManufacture_Dat !SCREATEDsCreObj ("ADODB.rMqn& .Curs@orType;adOpenStaxticI g$L$oconUs`eClieql"SELECT to_char(DH.HIS_REGIST_DTTM,'y/mm/dd')  from F3PRD.DOPE_ dh @WHERE ID IN ('P@KG','E) AND" CAT ='OC'"Z`ɝ.^a'j%!, ql, csDBConn9ion.wBZ $>Ce 2G.delivery_numberoukCwpS`r PLAN_SHIP_TIME5 CR"QuantityO_Z.Pwafer_cQ{? OPC'E11hC uitem 72=A`cColэ)Nothing/!check@6= , 5p + 1m xP44xia捿 ce5/ / ' 3s"OK'C!'LIfV3/" TheE/v3PI*W///If'fðE*<> "EV1R`{AxxyxxMrxxi&Scxs meas_ pcs,R`Md(min,5) axhavgMEAS_ITEMS `stdevv 3}COC!DAT"ApySUM sum@ where.9z='zbz acsum.G3bK& "'RPCS <>'0#FILE_ӹrFileBB=v.Bo) U.)IT">1o/_u Sheets("s81").Cells(lotrowitem, variance - 4) = checkDataset.Field~meas_avg") . +3sMINOs29max9ʄHstdevI?{woOkϟ Ifpcs") > 25 Then_:(1idSwafer_c0ountQi ߐElse_#_#wb2 #n# xEnd8 If Tshangx <> |""?QZZVal(c ) ) )+ ‘"NG"? XC FActive.R (e(ZM1 & #":"ZM2).SelectWith ion.InteriorCs _.Pat0nЁxlSolid_Colo@rIndexRAutomatic"255__TTintAndShade0dO5 Window.Scrollum1/'4_?{_Y3///)2///)1/-?MO??0JxiaMMminz< qM_M_MH_MF߿S(_M_M _M_M_M_M_M%_MExl_M._M?.?I_ 3_M/I_M/_M//eUU_M_W_M//^_M. K. 7  ElseIf checkDataset.RecordCount = "0" Then 'fCells(lotrowitem, variance - 4)f"9B3?!:2?!1/ueжǷΪ!+'ȡf,ptrP"Fpieldw /'õ˾ֳQ ("Zʱ= Z!*pa* )ԭġG¶һ 'ӵļ pdsrc = "\\10.52.142\coc\" VServerShareb12 ģ =Us erNam:administrator 'Passwordbfthw-829050 28'If FileFoldeHrEx*s(j) Then`Connect-0 ElseSet NetDkObjCreate("WScriHpt.") fso5 ing.[System) ?.MapDrive "", , Fa1, Y, ER%@1End If'Ea@path@5I&ͻ~\" & customerng}Awp@}" ' \ IFȈDebug.Print E-& F .xlgss C AYCopy7-, A@܍0!OqchMultiLevel} (@ !•4y$f #aMsgBox "GjûжӦAe7,AIhTt Su~b'vX{0kR`emoveʊHq, True,Noth''B G'ж`πǷЯZRts Io5WDim` dataAp xAs q#:'5  j =F s.OpenSe^ tExcelSheU=.ss(1@'-1 xxJa .Activ plotid= oADO@DB.rec}s etnu.Cur@sorTypadqStatic 'ͣ޷#Loc0on ad0rClieÐa&/+'ݳ 嵥;q*!/dSql0"selALOT_I D,SUB ,WAFER_COUNT from COCMEASSHIPLISTSTD whe@FILE_NA`ME ='qy/'^ B ql, csDB4B ioҵpar{ter-q|varianceRLĸFor Ao1 TXo 4̖ Yc Cell-a1PS3Case Kq1" q_= soZM1ZM(K  ZM2P- Q;f u? %/ VZM3 acpNextARange(q65536").`(3).row L v)R@Coun0 @"A1:AZ.Ad). 3P,.C/e("A * S +P MeW0Q}9Z-k-/ -V!Lot_\No!b#4A824@Fieldxs("fGWbatch-ncCN="Manufacture_DeoafCREATED0e0?g?gIgengfqfbSELECT to_c (DH.HIS_REG0`_DT TM,'y/mm/dd') QTTM from F3PRD.DOPE_HIS dh WHERE @ID IN ('PKG','E) AND _CAT ='OC'"SUBLOT_b='" & lotidSet.FieldHs("@")<" '" CR@EATEDs9Open ql, csDBConnection?Uells(A * sheet + 2, s) =/TnREGIST_D"))ase "delivery_nu0mberjJwp PLAN_SHIP_TIMEGQuantityD-:lwafer@_countEnd Sel@cOpNextAO|Forrowitem@a2 To A If > heTRange("AAI|7(- 1:ZM2 ).8@.Copy1 &AveS.Paste9fIf@Tid8Col7 0No thingScheckA{ "yh`1").C"kg+, variancJel1Tgsh`4x 4 xia Mj5 A 3"OKT~!>e*[+<> ""| TZ 9Datt*CreateObj s`DODB.recxorda .CursorTy$pe@ adSt0aticwLoc`onbUseClien"oFSql`"s meas_pcHs,Rd(m`in,5)C` 9jaxg`avgFaMEAS_ ITEMS stXdev COCADATA@SUMum whereB.&+ O a csum.c n& "'PCS <>'0CFILE`_NAMEFileName!.,vvv E.).R(C1e1_/_};_IPI- 4;?5r%@!O2 rB@TM|IN2 max-cer3 }"*?P5?R  ~1A ϏElsx  w ##B=${jy/w( > Val()??0+ CzNGOzZMY43?Ħ? With InteriorOPt0wxlSolid@orIndeQxlAutomP|l0= 255o.TintAndSha:dQ0Pab12 C"Windo`w.Scr`um1/l&4_?_Y3/- ActiveWindow.ScrollColumn = 2 .  1En0d If'!#If xiax <> "" Then{checkDataset.Fields("meas_min") < Val( ,)$*Cells(A * sheet + lotrowitem, varian$ce 3)"N\G"V+S).Range(ZM01 & 4 ":b"ZM3).Select# With  ion.Interi or#A0.Pat xlSolid@orIndexOxlAutomatich@255h TintAndShade0=sA^d;Y4GU33_]! z  ElsemRecordCount@N"0 ߏߏ(ߎ@ߎߎ ߎpߎeߎw#.ߎP.BE?-oG6oG_/'oG// oG//*oG//*oG*BI {  N'11Jr1" ).Nam1{File- d@workbook.Save'As ssP fn& ".csv", xlxCSVwx(lsxW$No0rmalw w' 12_t ( 'Pļ% p_@p%s.Open(ug.)7Applic@@DisplayAlertsFa`w'@Zs(8).#&omTru !Oqry9wp/6# o(s+A`'رGJpClos/Wene'Ļˢp`eenUpingr '3YcqDB#MsgBox "ൺо#C res%tq!Sub PrivaDFunon ZM(cs 8!ger)Str CqC<6ZMp Chr(6>4P(E> 2i\EiModS1 i/S2- ZM = S1 & S2  End If 8Funct ion  od 3oxME(`h` %@f  P%P`p 0@P`p 0@P`p 0@P`p 0@P`p 0 @k$*\Rffff*Sv6c06f1fe%"   8 P` x   00@H `p* @P p "   ( 8 P  h x   *   8  *X  <    ( 8 2P    2   BHP X h        &  0 PP    0 0  P    0  8  0H  x " * $   0  H 0X    $ , ( .8  h  x      <   "   0 H ` x         (    ( H ` h x &          ( @ X(h$($ 080h| 0P:h@ " " "8 "` " $(> +040 (+4h+4+4+6(H( P$ `% p%(0(! $ :@X " " " " "8` x$> '(4 ''4'4@'4x'6$$  !   $( P ` h x    D8X$x "  D@       ( 8 HXhx          R      ( 8 H P h x&   B   ( (p]嵥ļļp]رĻˢ´ (rp]$>$'H Hx嵥ļA@J|PkHA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]DJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dxWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'j#Debug.Print Share & wpstr & ".xlsx" j @.xlsx$x 汾· *!\ͻģ\ B\ @\'h Ʒļ h H' h$x Ʒļ j @.xlsx h H.xlsxA@Hdp hA@ Ʒļ j @.xlsx h H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kpжһ±ǷƷļ h H.xlsx$x] ģļ h H.xlsx %. %. Range("C11") = Fields("")J-----------------------------------------------1--------------------------һҳ %tB@H'ADODB.recordset$p.0 t 0(r0αͣ޷ x 0(v3αԣ޷  SELECT DISTINCT FILE_NAME,SUBLOT_ID,WAFER_COUNT,to_char(PLAN_SHIP_TIME,'yyyy/MM/dd') PLAN_TIME,ORDER_NO,CUSTOMER_PRODUCT, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H''2 2 ~ 0B@ ݵκ] 0!' f#A¶ 0! ORDER_NO 0%C7+vCUSTOMER_PRODUCT 0%C8+v PLAN_TIME 0%G6+v 0! ' 'дʽB31:C31$vB@H  B31C $v l B@kpд  0!  WAFER_COUNT 0% ' SUBLOT_ID 0%  +>SHIP_SUB_LOT_ID 0% +f WAFER_COUNT 0%  +> 0B@ д C11+vdH|@2ļûе嵥ȵECOCA@Jkҳÿһμ %tB@H 'Ϊٸ ȡҪ ɾһйOK&NGO8+v J8$v%!'P  $B@v$> P $>$vB@ P'R T  R $>!VB@  R P  'R һ If n = 1 Then Application.CutCopyMode = False End If$!B@zk 2B5$v'B6$v'''X ѭθ l  l  l$fB X +v 25B X +vd@  l$fB X +v 25B X +vkADODB.recordset$p.n t n(r8αͣ޷ x n(v;αԣ޷2select * from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''p p ~ nB@Debug.Print sheet3sql l)Ϊ1  P 9ѭһζټidJ  X $v!xNULLQ idдլE  X +vF  X +vG  X +vH  X +vI  X +vd!Ϊ޵ļid n!   n!J  X $v!x MEAS_ITEMS n%MEAS_PCS n%E  X +vMEAS_MIN n%F  X +vMEAS_MAX n%G  X +vMEAS_AVG n%H  X +v MEAS_STDEV n%I  X +vk nB@  nB@rdx &ûмݣԺڵECOCA@J|@ k8 k0 'ѯһεм d41  P 8ѭһζټidJ  X $v!xNULLQ idдլE  X +vF  X +vG  X +vH  X +vI  X +vd!Ϊ޵ļid  n!J  X $v!x MEAS_ITEMS n%MEAS_PCS n%E  X +vMEAS_MIN n%F  X +vMEAS_MAX n%G  X +vMEAS_AVG n%H  X +v MEAS_STDEV n%I  X +vk nB@  nB@rk'ѯһεм k ж'ʼλ l X 'd@ X 'k(  P    $>    $>    $>'    $>'      %'Debug.Print pd3     $>(^    $>'     +>СΪ NG    $>    $>NG    +>kPdHNG    +>k   ж P  'X  ' lж $B@v $B@v $B@v $B@v $B@vk`K-----------------------------------------------2--------------------------- <B@  B@ رչ B@BĻˢ´ (rA@ SVMļ HA@Jκȱʧ:;MsgBox ("κȱʧݣµκܼ") (o{Attribute VB_Name = "о" Sub 8() Application.DisplayAlertsnFalse '嵥ļ  .رĻˢ&  RScreenUdpdangS'FileTrim(Cells(10, 2) If $"" Thend$MsgBox ("ɇU"$Exit End/con@nectDBS et wp= CreateObj("ADODB.recordset..CursorTypadOpenSt{c 'α3 "LoadUseClienBt#ԕ#Dim pdsrc As S@ng5wpsql '!ƷllPathrKCSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &x& "' GROUP BY J?sLY@k5, csDBCrC4Whs.EOF <> True@>жΪ0һA'̡@treFields("*'õ˾"AcustomernB("7{mrpcsAp`ā/һ'繲 0 Then \Range("C 7") =AFields("ORDER_NO")?8?CUSTOMBPRODUCTGG6#PLAN_TIME _c c + 30b''дʽrB31:C31").Spelecޅnion.AutoFill Destina2t:=e", "C" &A7), Type:=xlDefaul"End If4'д볈ɏForD>iR O?sumqtyA`+PWAFCOUNCells(30 i, 2ӧSUBLOT_I.D؅C1iTHIP__%3S`9*MoveNe>x81O.8Oz1U1ElseExi t Sub/MsgBox "ļûеIaECOC" R'ҳÿһμ `  dataworkbook.SDq''Ϊٸ 'ȡˠҪ@*'ɾpһj,O"OK&NGcopy_row+/J.(xlDown). u Columns(1).Dtl7C #T5, 1`3)).Ck c_agcp`bn - 1,  !@tireRow.PasteSpeciale b'Ȗ3'B= O'Applic!".Cut Mode Fa/a'Tgeh0Ena.`Inserw'2K!aktitl"Bv5LpU_Mrx6x;yXo'6 "`ubts+ p l5]yySub RnZO6W& "25GOf4o xo ?)7o  $WSetsa3@CreateObjp("ADODB.rRqh1rsoradOpenSt2c 'αͣ΀޷~S3 Lo7UseClientԿ?'$ql"s *@ from fMEASDATA|SUM where FILE_NAME ='' eName"' AND P-qFLAG='F'%"uql, csDBConnP'Debug.Pri 8en 'Ϊ12> i>X8 'ByQtSyidv $/JU+ 84 .ValuN"NULL" 'idAEE25??}rF??tG???4H???:I???pFo 'Ϊij'!Cf "" Or 2Qw1lowChar+ 3qU up_d\5_Vpd3c@pd.SVM(4 RH, 'Debug.Print@3G 7).mxula VU@ Va'Ϊ |NG(J- %=(n B+o(uNGDʦñ If Next pditemrow '@ Xyy = (copy_d - 1) * xx JxxcJ+ 1 0psubcountkColumns(10).Deletew< End '  t'-+25wpSet.Move C!'dataworkbook.Sav['رչ 0Clos CWend 'ĻˢApplication.ScreenU"p ingTrRu cADBMsgBox "SVMļ" & FileName""C Wκȱʧ :'("µC")@P/DisplayAlerts/1ASubA1  7xME(6 <<<` X` `X%XXXX(X@XXXpXXXXXXXX0XHX`XxXXXXXXX X8XPXhXXXXXXXX(X@XXXpXXXXXXXX0XHX`XxXXXXXXX X8XPXhXXXXXXXX(X@XXXpXXXXXXXX0XHk$*\Rffff*Sk6c06f1fe" " 0 80X0^ 0Pp   opX A@zADODB.recordset$p. t (r&αͣ޷ x (v)αԣ޷>SELECT Sub_Lot_ID,SLOT_NO FROM COCMEASDATAINFOS WHERE LOT_ID=' $>''  ~ B@ Sub_Lot_ID %'SLOT_NO %' +> +> oH@±Attribute VB_Name = "bolan" Sub Բ3_Click() End p1:   For i2 To 3&connectDBSet test= Cre@ateObj!("ADODB.recordset"yU..Cur@sorTypadOpenStatic 'αͣ޷y FLoc onVadUs"euent$Dԙ$sql"@SELECT_Lot_ID,SLOT_NO FROM COCMEASDATAINFOS WHERE ID='" & Cells(i, 1)"'z1.r, csDBC1ionkidsField8s("Mno/ . C&3B&= C4DCCNext iEƎt gGWJ!jg (0 }SVM!jg  e-NVE9e -/ aR:N1 = Mz=_WwxME('H|< Hr_ms嵥ļA@J Ϊոݳ嵥ѯӦd0 HA@L HA@N HA@Pko FLTģp]0]H]` lotidж]һlotidж,ʱ]ͬһfilenameжproduct]ʼƷԼģļ]mһlotidȡֵ,Ϊijһlotidһ5һ6ȡļ]ʼCOCMEASSHIPLISTSTD]ʼCOCMEASDATAINFO]&Ϊ˻ȡʱĶŪһ](ʼϲѯĽʼLDPMEAS_ITEM]@ADODB.recordset$p.h t h(r*αͣ޷ x h(v-αԣ޷ADODB.recordset$p.b t b(r-αͣ޷ x b(v0αԣ޷'`A@zBselect DISTINCT PRODUCT from COCMEASSHIPLISTSTD where FILE_NAME=' H''| | ~ bB@ͬһ嵥ܴڶƷ  b!PRODUCT b%'d2select * from COCMEASSHIPLISTSTD where FILE_NAME=' H' and PRODUCT=' d''  ~ hB@ƷҵڵļExcel.Application$p.R *!\ͻģ\CUSTOMER h%\ d\ d.xlsx R!%.TSet Workbook = dataExcel.Workbooks.Open(ThisWorkbook.Path & recordSet1.Fields("CUSTOMER") & "\" & productName & "\" & productName & ".xlsx")ȡһsheet:FLTҳ T%.V½һexcelļ !!.\½excelļsheet \%.X@ *!\ͻģ\CUSTOMER h%\ d\ d -FLT.xlsxA@ *!\ͻģ\CUSTOMER h%\ d\ d -FLT.xlsxH \B@lKill ThisWorkbook.Path & recordSet1.Fields("CUSTOMER") & "\" & productName & "\" & productName & "-FLT.xlsx"addExcel.SaveAs fileName:=ThisWorkbook.Path & recordSet1.Fields("CUSTOMER") & "\" & productName & "\" & productName & "-FLT.xlsx" \( \(@Part No. X,>)Ʒ Ship Date X,>*ʱWarehouse Date X,>.ʱ Ship Lot No. X,>.lot_id Ingot Lot No. X,>.lot_id Wafer No. X,>.ƷĵSHIP_QTY X,>.Ʒжٸ sheetΪLPDLPD X('Z Z V%> Z 'Zx Z 'Z Աͷֵ  Z   V%>  X,>  V%>'n  h!'fٽ6ѭݸֵ  ZADODB.recordset$p.l t l(r<αͣ޷ x l(v?αԣ޷   V%>'n0select * from COCMEASDATAINFO where MEAS_ITEMS=' n' and UP_LOT_ID=' USER_LOT_ID h%''  ~ lB@ f l! l!'fk0  l! MEAS_DATA l% `    X,> INSTOCK_TIME l% `    X,>PRODUCT h% `    X,> PLAN_DATE h% `    X,> USER_LOT_ID h% `    X,> USER_LOT_ID h% `    X,>  `    X,> f `    X,> lB@   ` l! '` hB@  hB@B lB@B TB@B \B@ \B@BA@ bB@ A@o LPDģX]]0]H lotidж]hһlotidж,ʱ]ͬһfilenameжproduct]ʼƷԼģļ]mһlotidȡֵ,Ϊijһlotidһ5һ6ȡļ]ʼCOCMEASSHIPLISTSTD]ʼCOCMEASDATAINFO]&Ϊ˻ȡʱĶŪһ]ʼϲѯĽʼLDPMEAS_ITEM](ADODB.recordset$p.h t h(r*αͣ޷ x h(v-αԣ޷ADODB.recordset$p.b t b(r-αͣ޷ x b(v0αԣ޷'`$>'HA@zBselect DISTINCT PRODUCT from COCMEASSHIPLISTSTD where FILE_NAME=' H''| | ~ bB@ͬһ嵥ܴڶƷ  b!PRODUCT b%'d2select * from COCMEASSHIPLISTSTD where FILE_NAME=' H' and PRODUCT=' d''  ~ hB@ƷҵڵļExcel.Application$p.R *!\ͻģ\CUSTOMER h%\ d\ d.xlsx R!%.TSet Workbook = dataExcel.Workbooks.Open(ThisWorkbook.Path & recordSet1.Fields("CUSTOMER") & "\" & productName & "\" & productName & ".xlsx")ȡڶsheet:LPDҳ T%.V½һexcelļ !!.\½excelļsheet \%.X *!\ͻģ\CUSTOMER h%\ d\ d -LPD.xlsxA@ *!\ͻģ\CUSTOMER h%\ d\ d -LPD.xlsxH \B@lKill ThisWorkbook.Path & recordSet1.Fields("CUSTOMER") & "\" & productName & "\" & productName & "-FLT.xlsx"addExcel.SaveAs fileName:=ThisWorkbook.Path & recordSet1.Fields("CUSTOMER") & "\" & productName & "\" & productName & "-FLT.xlsx" \( \(Part No. X,>*Ʒ Ship Date X,>+ʱWarehouse Date X,>/ʱ Ship Lot No. X,>/lot_id Ingot Lot No. X,>/lot_id Wafer No. X,>/ƷĵSHIP_QTY X,>/Ʒжٸ sheetΪLPDLPD X('Z Z V%> Z 'Z Z 'Z Աͷֵ  Z   V%>  X,>  V%>'n  h!'fٽ6ѭݸֵ  ZADODB.recordset$p.l t l(r=αͣ޷ x l(v@αԣ޷   V%>'n0select * from COCMEASDATAINFO where MEAS_ITEMS=' n' and UP_LOT_ID=' USER_LOT_ID h%''  ~ lB@ f l! l!'fk  l! MEAS_DATA l% `    X,> INSTOCK_TIME l% `    X,>PRODUCT h% `    X,> PLAN_DATE h% `    X,> USER_LOT_ID h% `    X,> USER_LOT_ID h% `    X,>  `    X,> f `    X,> lB@   ` l! '` hB@  hB@B lB@B TB@B \B@ \B@BA@ bB@ A@o SMPģ@]]]0 lotidж]Pһlotidж,ʱ]hͬһfilenameжproduct]mһlotidȡֵ,Ϊijһlotidһ5һ6ȡļ]ʼƷԼģļ]ʼCOCMEASSHIPLISTSTD]ʼCOCMEASDATAINFO]]ʼLDPMEAS_ITEM]ADODB.recordset$p.h t h(r*αͣ޷ x h(v-αԣ޷ADODB.recordset$p.b t b(r-αͣ޷ x b(v0αԣ޷$>'HA@zBselect DISTINCT PRODUCT from COCMEASSHIPLISTSTD where FILE_NAME=' H''| | ~ bB@ ݿͬһ嵥ܴڶƷ  b!PRODUCT b%'dWselect CUSTOMER,USER_LOT_ID,PLAN_DATE,PRODUCT from COCMEASSHIPLISTSTD where FILE_NAME=' H' and PRODUCT=' d''  ~ hB@ƷҵڵļExcel.Application$p.R *!\ͻģ\CUSTOMER h%\ d\ d.xlsx R!%.TSet Workbook = dataExcel.Workbooks.Open(ThisWorkbook.Path & recordSet1.Fields("CUSTOMER") & "\" & productName & "\" & productName & ".xlsx")ȡsheet:SMPҳ T%.V½һexcelļ !!.\½excelļsheet \%.XP *!\ͻģ\CUSTOMER h%\ d\ d -SMP.xlsxA@ *!\ͻģ\CUSTOMER h%\ d\ d -SMP.xlsxH \B@lKill ThisWorkbook.Path & recordSet1.Fields("CUSTOMER") & "\" & productName & "\" & productName & "-FLT.xlsx"addExcel.SaveAs fileName:=ThisWorkbook.Path & recordSet1.Fields("CUSTOMER") & "\" & productName & "\" & productName & "-FLT.xlsx" \( \(PPart No. X,>*Ʒ Ship Date X,>+ʱWarehouse Date X,>/ʱ Ship Lot No. X,>/lot_id Ingot Lot No. X,>/lot_idSHIP_QTY X,>/Ʒжٸ sheetΪSMPSMP X('Z Z V%> Z 'Z Z 'Z Աͷֵ  Z   V%>  X,>  V%>'n  h!ٽмѭݸֵ'f  ZADODB.recordset$p.l t l(r=αͣ޷ x l(v@αԣ޷   V%>'nTselect MEAS_MAX,MEAS_MIN,MEAS_AVG,INSTOCK_TIME from COCMEASDATASUM where MEAS_ITEM=' n' and USER_LOT_ID=' USER_LOT_ID h%''  ~ lB@ INSTOCK_TIME l% INSTOCK_TIME l%   X,>kΪ l!ADODB.recordset$p.j t j(rAαͣ޷ x j(vDαԣ޷8select UP_LOT_ID from COCMEASDATAINFO where MEAS_ITEMS=' n' and UP_LOT_ID=' USER_LOT_ID h%''  ~ jB@ f j! j!'fk$ѭжȡֵСֵƽֵ   V%>MaxHeadKTMEAS_MAX l%    X,>MinTailKTMEAS_MIN l%    X,>AvgKTMEAS_AVG l%    X,>nh lB@kP PRODUCT h%   X,> PLAN_DATE h%   X,> USER_LOT_ID h%   X,> USER_LOT_ID h%   X,> f   X,> hB@  TB@B \B@ \B@B hB@B lB@B jB@BA@ bB@ A@o(B:B$B@Hyyyy/m/d h:mm:ss (C:C$B@Hyyyy/m/d h:mm:ss (oAttribute VB_Name = "GWJģ" '< Sub p_Click() 'ʼ嵥ļ.Dim FilBeAs Sngdȡ`(= Cells (1, 2_IfF" Then4| MsgBox ("ʈ "B .'Ϊ ո&ѯӦElse0creFLTTem (R*LPDSMPEnd If  5;=< AdataExcel, Workbook, sheeth, S1gtotalcolumn&IntegeraddA'lotidжIdRowH , tempͬһf nproductDNumSetObjeF ƷԼA_I1˲2һ2ȡAֵ,ΪijF  56ȡC 7getVsA6q6COCMEASSHIPLISTSTDHrecord$1$d DATAINFO 2 'ΪʱĶŪ+ 3@ϡyd> M& DisplayAlerts10(Tru7VVisiblFaI͗/)()s-.f1)"Part No|."VWh:2Ship D0!4L3BWarehouse'(et14Loe _i "" = + 11endd- 2%'Ա@ͷֵ%For i1 T^o  S11, 7 + li) {i 1)Next imeas_item 2, 2߇>dj&drecordSet1.RCou nt+getRhows0 'ٽ6 ѭ| !x_!l E@) +3@CreateObject("A DODB.set"OG.CursorTypeadOpenStatic 'αͣ޷`V)L$oconUseClient1x=insto ckSql""selM * from COCMEASDATAINFO where _ITEMS@='" & & "' and UP_LOT_IDCF?1.Fields("USERd")"' |/'A1 G, csDBConnion/If %V "~ #k+ 1GWenXO - P ԱͷPֵF`Xi 1 To 2@!7 + i=i@0] imeas_itemI2, 'in/ ? -! j% hGRҕCo "c V + 1dWend3- L'Աͷւ For ij1 To .n + iMzi 1)N`ext imeas_itemÀ? "2, 2  -j-recordSet1.RCount 'ٽмѭ0݋C getRows0OxLE- F03CreateObject("ADODB.set"EEG.CursorTypadOpenStatic 'αͣ޷)QNLoc@oAadUseClient)D1`MxSEe" instockSql`."sel- MEAS_MA$X,INAVG,INSTOCK_TIME from COCDATASUM where#ITEM='" & G& "' and USER_L`OT_IDc&+1.Fields("h")"'+/(3= ', csDBConn1ion!7IfS! b TheX `*j#3!/HE + E@*If7'xW 0 |2|WA>%2?}?}! m. }}3 RpUPclINFO]6So6e6uO6O6O6 H66/$e<52k/%j( p/4'sжֵСƽI 0"VCas{xu@?/m"Max" Or "HeadQG@xGsX`AXwd inc Tailo oo o et3vWc INo c Avgq{&Sv/+3.Moveq_+ rx7=:zPRODUCT?/3n2&hLANZ_E 4+ , 5"HU1 jGWorkbook. ClosewaddExcel.Savol8^3?udformaproductNumP~W ( Ec cADB 1ub @ Sub ( tCBB:B"\).Y4P.ber@` qzy/m/d h:m0m:ssD@C:Cc! ! 3                          ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c g h i j k l m n o p q r s t u v w x y z { | } ~  IK;xME@`h`p %@f(  P%P`p @X (@ @( @ @ @ p X @  @ @h @P @8 @ @ @ @ @ @   @p X@X @2@ @ @ ( @ i  8iX Hiop @h (P @8 @  8H( @ `p  0 @ p @ x (p @TX @@ X x ( h    X X X @ X  @l @ 0 @   Xh (P @8 @      (  @ P  h   x     x  `  ( H @ p 0 P `   X P ( @ @      @ @p XX @ @(  HXp @ ( @ @ p= =h =B@  k$*\Rffff*Rv6c06f1b5d"  4 ( H 4`dp   L  (00 PX p<F**  P&` $ "   (  H `  x    ( *( D  8h0 *hL  <  $(  8 H 2~`     2~    BLX` h .x     R   & F( @ P` L  ( 0 00 v` FH  ` p      0  , "` *` $`8 .` x @   0   8 $8 ,v8 (<h .v      H    <L P  X  `  L  $  (  0  0 X4@ F ,$(~nn n@n`n  88 . .8 .h . 0    0  8  H DLP J "   L   (  H8 P p J (  2 r 2   ( &@ h Xx   > >    $ ($~@ h(p$~ (00nHFH `:2@ "~ "~@ "~h "~ "~  ,$8(>  +04` (+4+4+4+6@(x( $ % % (0L(! $ ( 8:2H@ "~ "~ "~ "~@ "~h  8$> '(4 ''48'4p'4'6$$   0! @P $X           2D nhn$H "vnn0 PDp n  n     ,0   H  X h Jx J J J J     L  (! 0 ! 0P! X!  ! !  " " " (# : P# 0F# , # # |$  & F(& ,@&8P&,vh&*v&.v& & ' '    R 'x' '  ' ' ' 0'  ' ' 6'  (&^(   60(@( P( '2022.6.21 (enx嵥ļļ/spرĻˢ´/ (rmai$>$'H H嵥ļA@J|@k8A@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]DJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dhWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'j#Debug.Print Share & wpstr & ".xlsx" j @.xlsx$x 汾· *!\ͻģ\ B\ @\'h Ʒļ h H' h$x Ʒļ j @.xlsx h H.xlsxA@Hd` hA@ Ʒļ j @.xlsx h H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.k`жһ±ǷƷļ h H.xlsx$x] ģļ h H.xlsx %. %. Range("C11") = Fields("")J-----------------------------------------------1--------------------------һҳ %tB@H'ADODB.recordset$p.0 t 0(r0αͣ޷ x 0(v3αԣ޷  SELECT DISTINCT SHIP_SEQ,FILE_NAME,SUBLOT_ID,WAFER_COUNT,to_char(PLAN_SHIP_TIME,'yyyy/MM/dd') PLAN_TIME,ORDER_NO,CUSTOMER_PRODUCT, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'2 2 ~ 0B@[ 2 ݵκ] 0!' f#A¶ 0! ORDER_NO 0%C7+vCUSTOMER_PRODUCT 0%C8+v PLAN_TIME 0%G6+v 0! ' 'дʽB31:C31$vB@H  B31C $v l B@kд  0!  WAFER_COUNT 0% ' SUBLOT_ID 0%  +>SHIP_SUB_LOT_ID 0% +f WAFER_COUNT 0%  +> 0B@ д C11+vd2ļûе嵥ȵECOCA@J|kڶҳļļ %tB@H B7$v%! 'ADODB.recordset$p. t (r0αͣ޷ x (v3αԣ޷2select * from COCMEASDATASUBSUM where FILE_NAME =' H' AND LOT_FLAG='T''  ~ B@ !   J  $v!xNULL E  +vF  +vG  +vH  +vI  +vdΪ޵ļid  !J  $v!x MEAS_ITEMS %MEAS_PCS %E  +vMEAS_MIN %F  +vMEAS_MAX %G  +vMEAS_AVG %H  +v MEAS_STDEV %I  +vk B@  B@rk d9ļOVERALLûмϣԵȼECOCA@J|`kX $B@vҳÿһμ %tB@H 'Ϊٸ ȡҪ ɾһйOK&NGO8+v J8$v%!'P  $B@v$> P $>$vB@ P'R T  R $>!VB@  R P  'R һ If n = 1 Then Application.CutCopyMode = False End If$!B@zkh 2B5$v'B6$v'''X ѭθ l  l  l$fB X +v 25B X +vd  l$fB X +v 25B X +vk8 ADODB.recordset$p.n t n(r8αͣ޷ x n(v;αԣ޷select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''p p ~ nB@Debug.Print sheet3sql l)Ϊ1  P 9ѭһζټidJ  X $v!xNULLQ idдլE  X +vF  X +vG  X +vH  X +vI  X +vd!Ϊ޵ļid n!   n!J  X $v!x MEAS_ITEMS n%MEAS_PCS n%E  X +vMEAS_MIN n%F  X +vMEAS_MAX n%G  X +vMEAS_AVG n%H  X +v MEAS_STDEV n%I  X +vk nB@  nB@rdH&ûмݣԺڵECOCA@J|kk'ѯһεм d41  P 8ѭһζټidJ  X $v!xNULLQ idдլE  X +vF  X +vG  X +vH  X +vI  X +vd!Ϊ޵ļid  n!J  X $v!x MEAS_ITEMS n%MEAS_PCS n%E  X +vMEAS_MIN n%F  X +vMEAS_MAX n%G  X +vMEAS_AVG n%H  X +v MEAS_STDEV n%I  X +vk nB@  nB@rk'ѯһεм kh ж'ʼλ l X 'd X 'k  P    $>    $>    $>'    $>'      %'Debug.Print pd3     $>(^    $>'     +>СΪ NG    $>    $>NG    +>k dNG    +>k  ж P  'X  ' lж $B@v $B@v $B@v $B@v $B@vҳѯۺźT7code %tB@HADODB.recordset$p. t (r0αͣ޷ x (v3αԣ޷PSELECT SUBLOT_ID ,SLOT_NO,READ_WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN' ('  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT '  FROM MES_SHIPTAG ' + ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' ' ) order by SUBLOT_ID,SLOT_NO ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( B)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO'[   ~ B@ !   ! SUBLOT_ID %  +>SLOT_NO %  +> READ_WAF_ID %  +> B@ kK-----------------------------------------------2---------------------------k <B@  B@ رչ B@B(Ļˢ´ (rA@ SVMļ HA@J (o}Attribute VB_Name = "SVMģ" Sub 4() ''2022.6.21 Application.Display@Alerts|False '嵥ļ .رĻˢ´ RScr@eenUpdangS'FileTrim(Cells(1, 2)C If $"" Thend$MsgBox ("SɇU"$Exit End/connectDBSet wp= Crea teObj("ADODB.recordset..CursorTypadOpenSt{c 'αͣ޷0 "LoadUseC lient#ԕ#Dim pdsrc As 2Sng5wpsql '!PƷllPathrKCELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &x& "' GROUP BY JsLY@k5, csDBCrC4Whs.EOF <> True@>жǷΪ׀һAa'ȡ@treFields("*'˾ "Acust`omernB("7mrpcsApԭs·0һ'ӵ繲a+FA<\\10.A52.142\co c\. ServerSharB112мd%Zradminist rator Passwm."fthw-82905X028hI#F older~sts()hDE@ 0 ElNet kcKW@ipt.)Acfsoing.!System# -.MapDrive H"",)2, , ,, %)Kg /ai'%FaK'?iAx\@ͻ?\A|^!iG 'Debug.Prvi &{n .xlsxH?=1@'汾.a=@GisWorkbook>."*EvAxml2_"~=   vo'q1a(Copy o,/ L4a3MultiLevel: (G 1/ Q2/ pDe""/ G/ //o T"2û`жӦ10V,0ȷ'(-k! 8h;M BRemoveB:,pB;OO= NothJx ßDwһA7w/0,s!O.qs@a[a;1%< '<%:= %s.q_ 1h} Zt ExcelShe`=E :.sp'Range11")peՈrc'-1@'ڰһҳ." .Selr Csumqty uQ2 1kt 8 ߶߶߶׶E 1S "SDIN0Ѱ_SEQ,F,SUBLOa,WAFдCOUNT,to_c@(PLAN_RT@IME,'y/MM/dd') #rORDO,d, CASEN UB_ IS NULL0 THEe ELENDocc LEFT JOIN MES TAG ms"< _Y ON. 3 =c:. Q` A msDT$c. _<' 24' asEQ(_a (sD.ql_Iǒ4t sheet1@sql ' Dim s@ubitem 0n =et.RecordCount LRe(1 To n) 'Az¶ 0 Then .Range@("C7") Fields("ORDER_NO" )8CUSTOM!PRODU$CT#G6#PLAN_TIME _c + 30b'' ʽrB31:C31").SelecLoETbn]o]ion.AutoFill Destindat:=e", "C" &7), Type:=xlDefaul"End If4'дɏFor}điR Y>s`umqtyA`+#ȤEWAFCOUNCells(30li, 2ӧSUBLOT_ID؅(THIP__33 H#MoveNex8i8Oz1U1Else/MsgBox "ļ@ûеH嵥a@ECOC" Exit Sub+U'ڶҳaļ0dataworkbook.S!s(23uRow"%m.(xlDown).row -$ 1K Sed2s = CreateObj`("ADODB.rQO.Curs orxadOpenSt c 'αͣ޷8 Loc‡ UseClientg 6 2 ߀"s * from @:MEASDATAeSUM where FILE_NAME ='eName`"' AND ajFLAG='T>',Bg ], csDBConn@+@+Eݢ)XÚ~2B%@ (t!J Wh2H7).ValueNULL"OurE_RdFl25/,G/ %}TH//$I// E 'Ȫ;id/ _Q1B0""}"d 7i!._ITEMSp_ !H*PC/Dm   MINo D"OCAXOODǭ$OBAVGOOD&OBSTDEVok&fymyq{Firs}O bBĀ>2o|m|ĀOVERALL|!vϑ|ȼ?| G|\ Columns(10h).D0etQP~S~ÿһ#v~  }}''΀ٸ'ȡҪQnu'ɾһZ)O3"OK&NGmcopy_1=AJJ̀  Ré5, 1 e03)).CP ; c_wVuWcpXn d@+ 3 tireu.PasteSpeciaUb ., '@'^Qb_'ApXpliӑЗtqM$od`FaN۴ 'End If Columns(1).E ntire@.I`nsert '2 Rsub_title = Range("B5") $(qty$6 $xxB1 8yy0 'ѭŀθ For count' To n Ifhem" & 5 `+ yy)/~&&item(?; &6&& "25"[Else ,4)s<)A(Set sh eet3s@= CreateObject("ADODB.recoD$``kaGFLAG='F'T\fC.a9%=ql, csDBConn&iou'Debu`g.Pri4D qlSfq 'Ϊ14wl ro w81acopy_- 8 'Baһ㔶ټxid P$J!- + b.Valu\"NULLH" T 'a idд \ E 25dF!sdG~H~Is! 'Ϊ 0:_ޥPgo 'm!-'wFie`lds("DBL") / #?,y Nd $ /1/ Ip^/ o3AX5pg82l?ow.MoveNexly s#KFirs_MsgBox "ûмiԺڵEyExit xSub.. ??''ѯva0 vTuoa\'\ ZZ7en]EU4P?4lN??>L??>I??%}҉+S If Range("J" & itemrow + 7 yy).Value = sheet3set.Fields("MEAS_ITEMS") Then &(EPC OFFMIN")F2G-2AX/2H,AVG/I, STDEVEn0d If#WMoveNext A s Firs\a.''ѯһм?X%- S1'жuomc olumnp8 'ʼλ KsubcPount1i! + yyElse+A1B@For pd= @o copyb_- 8 `C ells(+ i, - 1) <> "" O4r 2{lo`wChar`!< +d 3upa7+D 5pd3cpd.SVM#(d! ",,%X 'Debug.PriB /0 7).* xxxxP@+ 1g5O"wCTs(10).DeletO  W'ҳahۺź@T7cod Ydataworkb ook.Ss(P4).S c|pS4etä4CreateObject("ADODB.recordmRv.Cur@sorTypadOpenStatic 'αͣ޷8 & Lo c@o1madUs`eClieI6?<ql1 "SELECT SUBLOT_ ID ,SNO,READ_WAFA FROM f3prd.D0ER dh WHERE @o`s& "(L8r p DISTIN` CASEaN SHIP__d IS NUL`L THE ELEND COCL @p c ? % LEFT JOIN (B ,W CUSTOMER [ , ? =  MES_TAGo k ) ms ON c.=0.#FILE_NAME ='aFileName"'/*) 07er by'++'ship_seq(4ql/5&*-('_SEQ#UB?(?(?(D?(0(9&O$q:O$O$1O$E }YO$T j" D9ms ORD`DBY9EQ) c " _C" & " LEFT JOIN (" & sql1"" _  ,)pkg ON c.SHIP_SUB_LO@T_ID =2.ORDER BY NEQ,S12NO" W dDebug.PrinBtship sheet4se@t.Open$, csDBConnection 4If6RecordCou1> 00 The tFor4 = 1 `h`p % J @ @f @ H %H(8HX` (@   `  Jzptxp  @ @ @ @ ` @h 0P @8 @ ` (*H vp  (  @ Xp @X (@ @( @ @ @ p X @  @ @h @P @8 @ @ @ @ @ @ p @p @X (@  @ (    ( @   @ P (p @X h  @ x  @  P (  @  @ ( @T @ h p x x  ( p` @H ` (0 `  @ ( 8  P `   ( @    ` hp pp @dX @h(  @ (    ( @  pX (h @P @8   ( @ 0H8 @ Hh(`( @ x ` @H @0 @ @ @ @ 0 (  ( p xk$*\Rffff*SQ6c06f1b5R" 4  8 4Pd` x  L  (00@H `<pF** @&P p$ "   ( 8 P  h x   ( *( D  8h  *XL  <  $  ( 8 2~P     2~    BLHP X .h     R   & F  P0   X (00( FX $dp &d $d *d   X(  ( 0 0H Fx (d 4  (P 0p 0 F , (d  L(H4P (X0x0F ,(d (L0P  Xx&x &2$z0X` hX (80X0F     (@`(2r2    X8 (0 0PF  8 2 2  40h  p , $   (00@vp  F( 00 @ p$ (<  6 $(  (@0`0n  F,2   08H  0`$6(0(8,6( P,0X((2(0(0 (( @$H P ` $ p    2L ,     $8 P h THp ^ ^ 6 ! h0!^P!^h! &! !8!^" " (" 0"@8":P" h"H"H"T"  "H" "R## #  (#J8#JH#JX#Jh#Jx#J# #J# # @# R$`$ h$  x$ $ $ 0$  $ $ 6$  $*^$   % B8%  6%% % (嵥ļļ[رĻˢ´ (r$>$'H Hx嵥ļA@J|PkHA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]DJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dxWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'j#Debug.Print Share & wpstr & ".xlsx" j @.xlsx$x 汾· *!\ͻģ\ B\ @\'h Ʒļ h H' h$x Ʒļ j @.xlsx h H.xlsxA@Hdp hA@ Ʒļ j @.xlsx h H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kpжһ±ǷƷļ h H.xlsx$x] ģļ h H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pORDER_NO ,PLAN_SHIP_TIMESELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyy-mm-dd') PLAN_SHIP_TIME,SHIP_NO,CUSTOMER_NAME,ORDER_NO,INVOICE_NO FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @O' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,INVOICE_NO,SHIP_NO'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+> INVOICE_NO L%+>SHIP_NO L%+>PLAN_SHIP_TIME L%+>ship-qtySELECT SUM(WAFER_COUNT) WAFER_COUNT FROM(SELECT SUM(WAFER_COUNT) WAFER_COUNT,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' group by SUBLOT_ID)'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ WAFER_COUNT L%+>kSELECT vgoldtaxcode FROM so_saleinvoice@bip WHERE csaleinvoiceid IN (SELECT DISTINCT csaleinvoiceid FROM so_saleinvoice_b@bip WHERE VSRCCODE IN (SELECT SUBSTR(U8_BILL_NO, 1, LENGTH(U8_BILL_NO)-1) U8_BILL_NO FROM MES_PACK mp WHERE BILL_CODE IN (SELECT BILL_CODE FROM MES_PACK_DETAIL WHERE SUBLOT_ID IN (SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME=' H')))) ORDER BY ts desc 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L! vgoldtaxcode L%+>dûƱŬ+>kSELECT TRACKING_NO FROM CCMC_INVOICE_TRACKING WHERE PARENT_ID IN (SELECT DELIVER_CODE FROM MES_PACK WHERE BILL_CODE IN ( SELECT BILL_CODE FROM MES_PACK_DETAIL WHERE SUBLOT_ID IN (SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME=' H')))'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L! TRACKING_NO L%+>dû˵Ŭ+>kѭ̶ʽ]  $>  +J8ظдUд U1$v%!'l  n l  $J n +>ѭsublotidHSELECT SHIP_SEQ,SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' AND PRODUCT_ID =' @1' GROUP BY SUBLOT_ID,SHIP_SEQ ORDER BY SHIP_SEQ 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id] L!f' sublotid-1ȡҪ U1$v%!'P V1$v%!' $> P$$>$vB@ P'R T N R $>!VB@  R P  'R 'X''ɳϸκU SELECT SHIP_SEQ,SUBLOT_ID,WAFER_COUNT FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' AND PRODUCT_ID =' @=' GROUP BY SUBLOT_ID,WAFER_COUNT,SHIP_SEQ ORDER BY SHIP_SEQ 'ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷  ~ B@[   !  P lot_no SUBLOT_ID %  X  +>lot_qty WAFER_COUNT %  X  +> B@  ' P  'X'''''''sublot_id(  κADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT SHIP_SEQ,FILE_NAME,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN mes_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'd[ d d ~ bB@]0 b!'h hfh1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@(k /'''''''''''''''''''''''''''''''''''''''''''''''''X l hADODB.recordset$p.n t n(r8αͣ޷ x n(v;αԣ޷select MEAS_ITEMS, ROUND(MEAS_MIN,3)MEAS_MIN ,ROUND(MEAS_MAX,3) MEAS_MAX,ROUND(MEAS_AVG,3) MEAS_AVG,ROUND(MEAS_STDEV,3) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''p"select MEAS_ITEMS, ROUND(MEAS_MIN,2)MEAS_MIN ,ROUND(MEAS_MAX,2) MEAS_MAX,ROUND(MEAS_AVG,2) MEAS_AVG,ROUND(MEAS_STDEV,2) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME ='" & filename & "' AND SUBLOT_ID ='" & subitem(subcount) & "' AND LOT_FLAG='F'"[ p p ~ nB@ n!   P nB@r'ѭ  n!*Debug.Print sheet3set.Fields("MEAS_ITEMS")  X $> MEAS_ITEMS n%MEAS_AVG n%  X +>MEAS_PCS n% MEAS_PCS n%  X +>dMEAS_PCS n%  X +>kp MEAS_STDEV n%  X +>MEAS_MIN n%  X +>MEAS_MAX n%  X +>( '''дyk nB@   '''''dh(ûмݣԺڵECOCA@J|(k P  l'X lж A1$v%!'  жǰһ 27'   $>   $>   $>   $>'   $>'     %'Debug.Print pd3    $>(^   $>'x x   +> min: uomcolumn-2,max:uomcolumn-1СΪ NG   $>   $>NG   +>kkW:W,Y:AA$vB@H0.00 (  xmlļ AI1+v NAI2+v P AI3+v P  AI4+v P  e P  AI4+vkAɾid$B@v$B@v$B@v$B@v$B@v$B@v$B@vNoData:9MsgBox "ûݣҪܸļ嵥"K-----------------------------------------------2---------------------------k <B@  B@ رչ B@B@Ļˢ´ (rA@о H xmlļA@Jκȱʧ:;MsgBox ("κȱʧݣµκܼ") (oh`Attribute VB_Name = "ʸ"@ Sub @() Application.DisplayAlertsrFalse '嵥0 .Ļˢ@´&  RScreenUpdangS!'FileTrim(Cells(1, 2)  If $"" pThend$MsgBox ("ɇU"$Exit cEnd/connectDBSet wp= CreateObj("ADODB.reco`rdset..CursorTypadOpenSt{c 'αͣ޷ "LoadUseClient##Dim pdsrc As S ng5wpsq"l '!ƷllPa True@>жǷΪһA0'ȡ@treFields ("*'õ˾"Acusto0mernCB("7mrpcsApԭā/s·'ӵa+F< \\10.A52.142\coc\. ServerShar!112瀍XZradministratorPas swm."fthw-829050,28hI#Folder~stsz()h%DE@ 0y ElNtet kcKW@ipt.)A1fsoing.!System# -.MapDrive "$",)2, , ,, %)Kg 1i'%FaK?iAx\пͻ?\A|^!iG 'Debug.Pri &{n .xlf6o,OI'ship-q tyosql1 = "SELECT SUM(WAFER_COUNT) ` FROM( ,SUBLOT_IDd COCMEASSHIPLISTSTD WHERE FILE_NAME='" & Fil eName "' AND PRODUCJ"wpstr grou0p byo)" Set ids= CreateObject("ADODB.recor ").CursorTypeadOpenStatic 'αͣ޷(Loc "on*UseC lient),ԧ)J , csDBConnrionBCells(2, 5)=8Fields<("|DLvgoldtaxcodeso_saleinvoice@bipDc@id IN EDINA _bHVSRCCODESTR(U8_BILL_NO, 1, @LENGTHH)0-1)  .MES_PACK m?,(E _DETAILD;!:BPc2) ORDER BY ts desc ?Kiaa* aa c a$IfÃ.RCou`p> 0 Thepgg2g_h0Elseh "ÀƱŰ8Enef^qTR@WING`^YCCMC_INVOIC E_KPARENpELIVvD &ba oa`aM1a "'a_?2eiU??NC˟___oH00L0308(0 0K0˵00 'ѭʽ@Dim GD_item(17) As StringaFor q s1 To 18?r- e@vA? Next'ظдUд/ copycRJ= Range("U1").p(xlDown).row  ?qwte- 21`+ +W'sublotidN RE _XSEQcn=Ш=᫹GROUPxfN,EzJ oooJ oooJpadooqJor_id_/X{%'''C<@@0idbPgetR(owsg'E(-1'ȡҪ?5_:P<<# PuۄV?@?@U1), 5, 36)).C`F_ c_wϰ Ccp "RP +1Ltire.PasteSpecial {u _Fyy 0xx{s''ɳϸκų/S502" IID,?IILISUBLOT_ID,WAFER_COUNT,SHIP_SEQ ORDER BY D" Set t = CreateObject("ADODB.record set")vt.CursorTypeBadOpenStatic 'αͣ޷OHLocConSUseClientaR&RI sql2, cs@DBConnqionADebug.Pri6 For sS1 $To.RCoxunt 'i'copy_ro w - 1'l`ot_noACells(i + yy1, 1 9)@~.Fields("Sœ{#-qtyl20NȬNex,Q4Movexx@>+UH= (^@) * xx<'subAcid` $'pκ1SB,Wtt?' uua tA"SELECT DISTINE,FILE_NAME,U,CAS@E WHEN$UB_ IS N`ULL T[ ELC gENDFROM COCMEASLSTD c LEFT JOIN mes_aTAG ms" _O9'A& " O s.CUSTOM` =c. a A@m !  'RE c.!&+ ='" Fi@leName! ' PRODUCDwpstr߯͐/#Ut0~YeDim spitem/ vcOl Reh (") 'Aܾ¶IfaF> 0 ThePGbFx1_Q11(#iZFaf2Z A3WW YEnd If EUOSr]tryy0sT5CSi BXheet30OX?= sXϒϒϒX__qlP"se l aP_ITE MS, RD(MIN,3)d ,AXMAVG9 VEVPC@S from5YDATARSUM where OLMLoUcNH0")NSFLAG='F'LmB'2d_2)AS_f]n]bA|T_"E]0ql&w,]]yTet TaAiцA× !NFirsj''ѭpѠ P6I ĵ '/PL5~I "P" Or23ThenelowCharO4 upy 33 pd3c`pd.(' 1(, i 3 'Debug.Prixnt "6).@Cmula  ValueTs DH+ 'min:J-2,max:L-1СΪ` NGs3W- S=WAwRGt$"NGG'{Eg ySB$?W:W,Y:AA?SelectEion.NumHberAatA0p.00 rD'xmlxļFIG@_path2"xlot_id_HPA93T_Qɦ= 1 540i}>| -_/1K"[Ca`о_create@'ɾidЯC^s(2P8).D%tw ?????????' 9u'NoData: 'QqҪñ2`嵥ӇP6'-2D qy wpS0 'Pd workbook.Sav'رչ1CloEWend'ĻˢasApplicatqHSP)enU"p0ing@CTrucDBs-" & Fi@leName"à-ɔLPȱʧp ("Qµ?qb? DisplayAlerts& " 9rb9_xME(` %` % 0%0@P`p 0@P`p 0@P`p 0@P`p 0@P`p k$*\Rffff*T:6c06f1fe; "  ( H `p   00 PX p0*H x  " ( @ (`        * ( HP X8p P 8 <P     2   0 2H   B        @ ` h &   P   (HNJ0  0 0    (  H X  p      ,  .  *8  .h  0       <( h  0 0P   * 0 08 @Xp  N 8 0X 0     0 0  P  h#2x    N 8 0X 0   $$ $0$0($X 0$p(&$ $  N( x00 $ 000` (2  H( p00  0@0p ( 8  (08 @"Px        ( 0 8 @ HPX `"p     ( 8 @ H P X`hp x N  , P Jh    &     R h p  n    0 H ` x        ! !(! 0! H! X! h!*p!  ! !Yangtze_River_storage_you嵥ļļ (رĻˢ´$ (rH$>$'H H嵥ļA@J|@k8A@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]bSELECT CUSTOMER_NAME ,PRODUCT_ID,SUBSTR(FILE_NAME,-3) BH FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H.' GROUP BY PRODUCT_IDCUSTOMER_NAME,FILE_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'BBH <%' ] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'd(WScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hkxdp7繲ûжӦģļ,ǶӦģûзȷ·A@J| k   B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pѭsublotidSELECT c.SUB_LOT_ID ,c1.WAFER_COUNT ,SLOT_NO ,READ_WAF_ID,to_char(c1.PLAN_SHIP_TIME,'yyyy/mm/dd') PLAN_SHIP_TIME,WAF_ID FROM COCMEASDATAINFOS c ' ?INNER JOIN COCMEASSHIPLISTSTD c1 ON c.SUB_LOT_ID =c1.SUBLOT_ID ' WHERE FILE_NAME =' H' ORDER BY SUB_LOT_ID,SLOT_NO 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N1:1$v %' LO = 0A2:EH2$vB@H B@A7:A N $vB@H <B@ zB@  N SUB_LOT_ID L%  +> WAFER_COUNT L%  +>SLOT_NO L%  +> READ_WAF_ID L%  +>PLAN_SHIP_TIME L%  +>   $>'N  $>'L  $>' RESISHEAD;RESISTAIL RRGHEAD;RRGTAILMSELECT MEAS_AVG,MEAS_MIN,MEAS_MAX FROM COCMEASDATASUBSUM c WHERE SUBLOT_ID ='  $>' and MEAS_ITEMS=' '' ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷ ~ B@ ! MEAS_AVG %  +>MEAS_MIN %   +>MEAS_MAX %   +>kteams = teams + 2 ;e ; $'   $/ $/ $'2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='WAF_ID L%' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rBαͣ޷ x (vEαԣ޷  ~ B@ !data %$  +>dH$Cells(meas, teams) = ""k d2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' $''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@ ! SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='WAF_ID L%' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ !data %  +>dP (Cells(meas, teams) = ""k( k k  /e / $'2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='WAF_ID L%' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ !data %$  +>dCells(meas, teams) = ""kd2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' ''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ !SELECT ROUND(MEAS_ITEM_ COLUMN_NUM %4,3) data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='WAF_ID L%' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@ !data %000.###$  +>dCells(meas, teams) = ""kkk L   $> L $8  $>B@H ! 9 9999q(  $>e  $>B@H ! 9 9999qk N e  $> N $8  $>B@H ! 999q  $>e  $>B@H ! 9 9999qkk LB@ =AVERAGE(BE  :BF  )  8+>%-------------------------------------J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------xlsxļ  H.xlsx %. ( (K-----------------------------------------------2---------------------------k <B@ B@  T0907840008_ Ryyyymmdd$_TP_$>_ .csv 0 B@6:6$B@H | B@v5:5$B@H | B@v4:4$B@H | B@v3:3$B@H | B@v2:2$B@H | B@v رչ B@Bp_workbook.CloseĻˢ´ (rA@Ӻض֥ H resļA@JoXPAttribute VB_Name = "Ӻض֥1" Sub D () 'Yangtze_River_storage_you>'ļ 2'رĻˢ´Z Application.ScreenU$pdngFalse'FileTrim(Cells(1, 2")If $"" Then<MsgBox (" U"$Exit End IfconnectDBSet wp= Cre@ateObj("ADODB.recordset..CursorTypadO penSt{c 'αͣ޷` "LoadUse@Client#ԕ#Dim pdsrc Asd Sng5wpsql '!!Ʒss aaAR@oSELECT CUSTOMER_NAME ,PRODUCT_ID,SUBST@R(FILE,-3) BH FROM COCMEASSHIPLISTSTD W HERE ='" &G& "' GROUP BY J ,?Xe@wA, csDBC~C@Wh.EOF <> True@JжΪ0һM'̡HtrqFields(",'õ˾" Acumern3CB("J:Icird BH)@Cp8ath< DBԭ0}·һ'ӵ繲a+#QD\\10.A52.142\coc\3 SerSh ar112ģ drEadministra@`Passww$"fthw-829`05028hIcFolder@sts()%˄I@ 0 Elt Net k Wipt.i8fso!ing.aSypstem# -.HMapDr H"",)2, B,r ,, %)Kg 1'%FaK%S=A@~\@ͻA?\*c!#n ')K` \  & hDDebu`g.Pri&! ~` .xlsxHqK'汾 &) =QisWorkbook.P=P?__U_a0'8U@xml_BD= Y[0v[3ssA5,Copy /",[@ 8!7MultiLevel ( ?!2o !o o 2 "4ûжӦ!2X,!$) :+x=OL.RemoveD(8,uEAMdVQNothL t{һϲ±{,9s$eteams2Q Oshxd5, L\сxia 6 3 If "RESISHQ;BTAIL" $OrRGCRGThenO+SmeasitemsqlSELECT MEAS_AVG,MINAX FROM COCADATASUM c WHERE  ='ϵ& " ' andITEMS JA"*0Set += CreateObj@DODB.recor-Fa aH.Curso rTypeadOpenStatic 'α)vC Loc on UseClie >Կ C !!ql, csDBCo|nnMI R(C> 0 7J;a8say) %IJ53 @1z T fb` 2{ AXu REWIf)' = "ts Else%.I`Mr(, @";") <-s@trcityISplit, , vbTextCompare0+3aoo`;o UB@=d($ AC(oo)/e1 _ c!NA"Ę*JFSTDJ(2Je (hH5IzIIB etsIIII#_ 4/J/J/J_- JJ, q3??asPp#%F_f6%GCOLUMN_NUM*0 data {!PlINFOS c2! St!{l?><>' #pr4#pt 'q  )P((. ((((((adss__W(Os_(@Pur[smsi9.,*/ I~1?Z!f n' 5&p. ?ql[Ӗ[S_[yh9 ~2[AϤ 4![__o,f,5[[[! [?O 4s. qlaT MEAS_ITEM_" & meassets.Fields("COLUMN_ NUM")|" data FROM COC|DATAINFOS c2 WHERE WAF_ ID ='id4' anBd.<>' 9SUB_LOTjiCm" Set1 = CreateObject("ADODB.recork"))1.CursorType-adOpenStatic 'αͣ޷@3L$oc-on5UseClient5pԾ0Lql1, csDBConnKion'-Iec Ifh.RBcCou6<> 0 The(Cells(lot + 6, teams)@LlE%|Else>' A+ @ "dE@If }Next . o 2IYr(aa(, "/o2s@trcitymSplitG, , vbT Com0pareTm4qls%SELECT * SSTDfSe(0'.肁 p! ~~ F |s|, 3@_Pǡ  ql28&5ӿӿ޿=C0NA#ND82gg|_'ff Y'2eߟ_Wd2_d_d7 _cZc2Sc / fF1L?c ?b) 2J?asir %|T TãTa_8T#T d!s,|,,,_&OTT w*s/**V3hUROpUND(U,3&,߿I߿ ߿?U0*ooUID߿("Uux)q?V)3))))I)))/%9* }߼I ,3,,eyWWFormat( 000.###O_ 5oZZZ<osxiax 9""CQ If Cells(lot + 6, teams) < Val(xiax) Then .SelectArWith (ion.Interior4.Pat+n = xl Solid'3ColorIndexAutomatic 255TintAndShade0 kEnd /Else= ""yV &yyy=9.y`yIfSDshangx <>|E># ߃ S߃`-߃2AʃNoneWc%8% ?@I8uii.4.ue .H< E``X`D` %@f  `h @@ ( `l ``(X`n P`H@x  P0` 8```` %.pv~ (  @ Xh @P (8 @ @ @ @ @ ( @ @ @x @` @H @0 @ @ @ @  p @@ @ h (h h P @8 ` `  ` g h  @ @ @ 8 @x @J` 8 H @0 }   }8  ( }Rh x ( @     @P @Rp 0 X @V@ x @( @ @ @Z 0 ( H  @ d   0 h   pP X8  @d  0 @ p @d @h x x @` X x H h   X (  @   @ @h @@ @8 ( @ 8( @ ( 8 P ` x  x ` X (P @)PH hDx@ U8 n0 ( @x p0 HX p  (8p @ @ h @P P`8 x  @X @ @ @ 0 x@ @` @H 0  HXp @ @ @ @ p2 2 2(p @X ;P`(;88 PF`0`xF Q`Q \ `\ ep P( @  @ @x m` m@ H m((0 @ @nP n @@  @B  @ H( `p @X 0@ p X0 ( @ @  (8@  @h P `P x 8  ( @ (  8 H ` `pp( @  `Xhx( @  `k$*\Rffff*S;6c06f1b5"  ( 4@dP h Lx  (00 0<HF** &(  H$`    "   ( ( @  X  h p  (x *( D   8n RH@R  <  8 H2`   2     BL@H  P .` x   R   & FL L8LP Jh 2X (00F (  H 8X p 0v  .v ,v  0 @  H  &X  x @  8 V H  xh(  &  (000F`  x8 2v  " \$xL^L^ L^ L ^8 LP^h L^ L^ *   (X000F0 H,X&h8^   ,L^  (^8 LP^h L^ L^   \ H (`00vFp  0  $ (< 0@H \P      "   ,$( X 8x     .0^`   ^n (00 @FP,h  xL Tf  8X`fhf @  (4 8 p F 8 , !68 $$p (F (  ,t 04 , ! R!06p! !(&!,!0 !4<!4 "8. "8^P"4p" 40 x"3<"3 "8."8^"4#,#(#(&#00#4 8#7<H#7 h#8.p#8^#4#4 #8<#8 #8.$8^0$4P$0X$(`$,h$ ,(p$ ( (( $$(t$04$, $06$ (%(&H%,`%0 h%4<x%4 %8.%8^%4% 40 %3<&3 (&8.0&8^`&4&,&(&(&&0&4 &7<&7 &8.&8^ '4@'4 H'8<X'8 x'8.'8^'4'0'(',' (('( $((t(040(, h(06p( ((&(,(0 (4<(4 )8. )8^P)4p) 40 x)3<)3 )8.)8^)4*,*(*(&*00*4 8*7<H*7 h*8.p*8^*4*4 *8<*8 *8.+8^0+4P+0X+(`+,h+(p+( $+(t+04+, +,8+0<,, P,06X,,,(,(,( $,,b,,$|,(-( -(b-,$|0-(X- (h-p- ($ x-! -  - #t-$- -F-0 .04(.0`. 00 $p.04.0. 00 $.04.0/ 00 $ /040/0h/ 00 $x/04/0/ 00 /0b/04/ 0(0 00@0  $ X0!p0! x0!.0! 0!0 00 0 01    1 &1  ^`c @1 X1 (`10121 ( 1 3,3  6F@6 8X60p6 ,6 6 (7 <7 .88 ,h8 :8 &8 ,9 209 h9 89 89 89 80: 8h: : ::: :J:J:J; ;(; 0;^H; `; p;Xx; ; ; ;2; ; ;;b<<$ <p8<X<`<p< :x< (< 0< 2=  X@= =  0> P> J > Rh(? 2 ?  ? V @ h@ P A A  FD D 8D"&D<D:(E$|hE:E6E jF&(F FPF`FhFpFxFFFF(F jF&F FGG G(G0G8G@GHG(PG jxG&G FGGGGGGGH(H j0H&PH FxHHHHHHHH H H  XH (xI 0I 0I FI J 8J&0JjHJb (hJ0J2JP] a K Xa pLH LD^L, M^ PMFM6b$N (N08N2hNP@K N `O OH PD^`P, P^ PF8Q6M$` (p]0]2]$0c H^ _ _ JH KD^@`, K^ `F`6`DPQ ~hQ LQ8R@RhHR`R.hRR R  RRR R6R R8R (S00S0`SpSF T&8T PT .XT T T T &ZT >T T$ T$8U(<U,.8U,XU0hU xU0LU,U,BU zU TxV xV NHW LW ZW FHX LX RX >8Y 8xY, Y(Y( Y$Y YYY&Y.Z n@Z ,`Z FZ$Z$Z$Z$Z$Z ZZZZZ Z [ [ [  [J8[ 0P[:[J[ 0[:[2[J\ \ (\ @\X\  x\\J\ \  \ \ \ 0\ \ \ 6]  ]: ]`] c嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]XƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]p]]]ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'Ksrcpath = ServerShare & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' $x Ʒļ  @.xlsx  H.xlsxA@Hd` A@  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kxжһ±ǷƷļ  H.xlsx$x] 򿪹  H.xlsx %. %. @+> B+> H+> C--------------------------1----------------------------------------+Ʒѯʱ䣬ͳSUBLOT_IDVSELECT PLAN_SHIP_TIME,wafer_count ,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'@ADODB.recordset$p.B t B(r8αͣ޷ x B(v;αԣ޷ @ ~ BB@Debug.Print timeAndSumSql B!'D  B!óʱʱPLAN_SHIP_TIME B%  +> ó wafer_count B%  +> SUBLOT_ID B%  +> BB@ B!'F ѯHIS_REGIST_DTTM дװʱp SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date FROM F3PRD.DOPE_his 'H H2 where OPE_ID in('PKG','EPKG') and his_cat = 'OC' 'H H and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c 'H HG LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL 'H Hz THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT 'H H WHERE FILE_NAME =' H' AND PRODUCT_ID =' @*' )) order by SUBLOT_ID, his_regist_dttm 'H '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( H:)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'ADODB.recordset$p.J t J(r/αͣ޷ x J(v2αԣ޷  ~ JB@[   J!manufacture_date J%  +> JB@д̶ʽcountrow_formate U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' L F$>'N N L +>$>'P P L +>$>'R R L +>$>'T T L +>$>'V V L +>$>'X X L +> $>'  L +>#'''''''''''''''''''''''''''''''''''ADODB.Recordset$p.I SELECT SUBLOT_ID ,ORDER_NO FROM COCMEASSHIPLISTSTD cd WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ,ORDER_NO'Z t (r.αͣ޷ x (v1αԣ޷ Z ~ B@[ Z !ORDER_NO %'kp  \ !  \ +>8 %''''''''''''''''''''''''''''''''''''' $>'^ ^ L +> F'` ` L +> $>'b b L +>$>'d d L +>$>'f f L +> U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' κADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT FILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'd d ~ bB@[ d] b!'h hf(1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@k U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ȡ]0]H'h'j3:3$v % ' ־λжּ l h('''ѭ2,18Ϊwaferinfo2 If Cells(2, 18) = "WaferInfo" Then j = 21 Else j = 18 End If( ӵ22пʼȡֵ$>MAX'dp'k`OK l +>select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASdataSUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷[   ~ B@ !  $> $> WaferInfobNѭĿ޵ֵԼǷ񿪱]`]x $>'  $>'l޵ֵԼǷ񿪱]]  $>'  $>'n'hѭмݴж ~ $> $>$v%!'pZǰЬ' p  '+  r$>$>$v%!'p p 'p p  'kh@'''''ĿĿ '''Format(numm.Fields("ag"), "0.00000") B@r t !%Debug.Print numm.Fields("MEAS_ITEMS") $>$ MEAS_ITEMS %$    h %>MAXKT  h $>  h $> l    +>d0KCells(6 + subcount, j + i - 1) = Format(numm.Fields("MEAS_MAX"), "0.00000")MEAS_MAX % l    +>2'жǻɫ l  >=KTMEAS_MAX % ld l    $>!(NG l +>k>KTMEAS_MAX % l dP l    $>!(NG l +>knk n  <=KTMEAS_MAX % nd l    $>!(NG l +>k8<KTMEAS_MAX % n d l    $>!(NG l +>knkk h 'hMEANKT  h $>  h $> l    +>dMEAS_AVG % l    +>2'жǻɫ l  >=KTMEAS_AVG % ld` l    $>!(NG l +>k>KTMEAS_AVG % l d l    $>!(NG l +>kxnpkh n  <=KTMEAS_AVG % nd l    $>!(NG l +>k<KTMEAS_AVG % n d l    $>!(NG l +>k(n kk h 'hMINKT  h $>  h $> l    +>dMEAS_MIN % l    +>2'жǻɫ l  >=KTMEAS_MIN % ld l    $>!(NG l +>k>KTMEAS_MIN % l dP l    $>!(NG l +>knk n  <=KTMEAS_MIN % nd l    $>!(NG l +>k8<KTMEAS_MIN % n d l    $>!(NG l +>knkk h 'hNKT  h $>  h $> l    +>dMEAS_PCS % MEAS_PCS % l    +>dMEAS_PCS % l    +>khk` h 'hUNITKT  h $>'v v l    +> h 'hS  h $>'x x l    +> h 'hn h'h dp$''''·ֵ  h $>  'ֵ  h %>MAXKT  h $> l    +> h 'hMEANKT  h $> l    +> h 'hMINKT  h $> l    +> h 'hNKT  h $> l    +> h 'hUNITKT  h $> l    +> h 'hS(  h $>'x  h $> l    +>n k'ֵ$''''·ֵk B@   yXkP t   'ѭĿݽ ݽk l '''''''''''''''''''''''''''''''' FOSB_ID 10'zADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷' SELECT DISTINCT RFID_ID, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,RFID_ID,`CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG= ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' order BY SHIP_SUB_LOT_ID' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( @)pkg ON c.SHIP_SUB_LOT_ID =pkg.SHIP_SUB_LOT_ID ORDER BY SHIP_SEQ'Debug.Print sqlship  ~ B@  !RFID_ID %  z +>& bzsj = pkgsj(Cells(6 + i, 17)) If Mid(Cells(6 + i, wafer_column + 1), 1, 1) <> Sheets("Sheet3").Cells(1, 2).Value Or Mid(Cells(6 + i, wafer_column + 1), 2, 2) <> Sheets("Sheet3").Cells(2, 2).Value Or Mid(Cells(6 + i, wafer_column + 1), 4, 2) <> Mid(bzsj, 3, 2) Then" Cells(6 + i, Q) = "NG"5 Cells(6 + i, wafer_column + 1).Select' With Selection.Interior& .Pattern = xlSolid4 .PatternColorIndex = xlAutomatic .Color = 255% .TintAndShade = 0, .PatternTintAndShade = 0 End With1 ActiveWindow.ScrollColumn = 51 ActiveWindow.ScrollColumn = 41 ActiveWindow.ScrollColumn = 31 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 1 End If B@kɾ3$B@v$B@v$B@vȡ'Debug.Print sql2 $>  'h  +> irow = 13ʼ  '    '] $>!VB@'     $>!VB@    'h$> AREA_COUNT'$>MAXADODB.recordset$p. t (r+αͣ޷ x (v.αԣ޷'PSELECT SUBLOT_ID ,SLOT_NO,READ_WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN'  (SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' wSELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ' # ) order by SUBLOT_ID,SLOT_NO desc 'select to_char(dw.RECEIVE_DTTM,'YYYY/MM/DD') RECEIVE_DTTM ,substr(c.ROD_USER_LOT_ID,1,3)||substr(c.ROD_USER_LOT_ID,5,1)||substr(c.ROD_USER_LOT_ID,7) ROD_USER_LOT_ID,c.WAF_ID,c.SUB_LOT_ID from COCMEASDATAINFOS c '8 8 GINNER JOIN F3PRD.DBLK_RCV_INFO dw ON c.ROD_USER_LOT_ID =dw.USER_LOT_ID '8 8 XWHERE c.SUB_LOT_ID IN (SELECT c2.SUBLOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ) '8 8 AGROUP BY c.ROD_USER_LOT_ID,c.WAF_ID,dw.RECEIVE_DTTM,c.SUB_LOT_ID '8 o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( ))pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID  LEFT JOIN ( 8 l) c ON c.SUB_LOT_ID =pkg.SUBLOT_ID AND c.WAF_ID =substr(pkg.READ_WAF_ID,1,10) ORDER BY SHIP_SEQ,SLOT_NO desc'  ~ B@[   !ROD_USER_LOT_ID %': SLOT_NO %$8    z +> READ_WAF_ID %    z +> :    z +> RECEIVE_DTTM %    z +> :     z $>NG    +>    z $>B@H ! 9 9999qP9kH9    z $>NG    +>    z $>B@H ! 9 9999q8k8    z $>NG    +>    z $>B@H ! 9 9999q7k7    z $>NG    +>    z $>B@H ! 9 9999q(7k 7 B@7VSELECT PLAN_SHIP_TIME,wafer_count ,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'< ADODB.recordset$p.> t > (r5αͣ޷ x > (v8αԣ޷ < ~ > B@'   > !   z   $>' ADODB.recordset$p.@ t @ (r9αͣ޷ x @ (v<αԣ޷' B INNER JOIN ( 'B to_c B ) coc ON coc.WAF_ID=d.WAF_ID 'B LOT_GSELECT FNC_EQPID,to_char(HIS_REGIST_DTTM,'yyyy/mm/dd') FNC_TIME FROM ( 'B B :SELECT SUB_LOT_ID ,WAF_ID,SLOT_NO FROM COCMEASDATAINFOS c 'B B LEFT JOIN F3PRD.DOPE_HIS dh ON SUBSTR(d.SUBLOT_ID,0,7)||SUBSTR(d.SUBLOT_ID,-3) = SUBSTR(dh.SUBLOT_ID,0,7)||SUBSTR(dh.SUBLOT_ID,-3) 'B B INNER JOIN ( 'B B :SELECT SUB_LOT_ID ,WAF_ID,SLOT_NO FROM COCMEASDATAINFOS c 'B B WHERE SUB_LOT_ID =' SUBLOT_ID > %' 'B B ) coc ON coc.WAF_ID=d.WAF_ID 'B B PWHERE dh.HIS_CAT ='OC' AND dh.OPE_ID ='FNC')WHERE rn = 1 ORDER BY SLOT_NO DESC 'B B ~ @ B@ @     z   $>B@@ ׹̨eADODB.recordset$p.@ t @ (r9αͣ޷ x @ (v<αԣ޷' B SELECT d.WAF_ID,dh.HIS_REGIST_DTTM,PROD_ID,dh.EQP_ID FNC_EQPID ,ROW_NUMBER() OVER(PARTITION BY d.WAF_ID ORDER BY dh.HIS_REGIST_DTTM DESC) rn,coc.slot_no FROM F3PRD.DWAFER d 'B B LEFT JOIN F3PRD.DOPE_HIS dh ON SUBSTR(d.SUBLOT_ID,0,7)||SUBSTR(d.SUBLOT_ID,-3) = SUBSTR(dh.SUBLOT_ID,0,7)||SUBSTR(dh.SUBLOT_ID,-3) 'B B INNER JOIN ( 'B B :SELECT SUB_LOT_ID ,WAF_ID,SLOT_NO FROM COCMEASDATAINFOS c 'B B WHERE SUB_LOT_ID =' SUBLOT_ID > %' 'B B ) coc ON coc.WAF_ID=d.WAF_ID 'B B PWHERE dh.HIS_CAT ='OC' AND dh.OPE_ID ='CMP')WHERE rn = 1 ORDER BY SLOT_NO DESC 'B B ~ @ B@ ;ex num = Format(querynum1(team, Cells(i + irow - 1, 17), Left(Sett.Fields("READ_WAF_ID"), 10)), "0.000")E Cells(i + irow - 1, wafer_column + 2 + coun) = num]] ;$''  ]X y@+k8+ $' ȡ㷽ʽ $' ȡѯsqlֵ$$'ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷SELECT WAF_ID,  5 measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' SUBLOT_ID > % 'order by SLOT_NO desc '  ~ B@ ]p    z $> $']]]  SUBLOT_ID > %$'$ $'  B@r  ! WAF_ID %measdata %'  $X'0ֵ  $$'k0( 0.000$X     z   +>s If Cells(counts + sqlnum + irow - 1, wafer_column + 2 + coun) = "" ThenM Cells(i + irow - 1, Q) = "NG"r Cells(counts + sqlnum + irow - 1, wafer_column + 2 + coun).SelectG With Selection.InteriorF .Pattern = xlSolidT .PatternColorIndex = xlAutomatic@ .Color = 255E .TintAndShade = 0L .PatternTintAndShade = 08 End With2 End If  'k$ B@$k### D   D  z   $>NG  D  +>  D  z   $>B@H ! 9 9999q#k##k""   ' > B@"k" ڸʽA:A$B@H)Selection.NumberFormatLocal = "yyyy-m-d "e/m/d (G:G$B@H)Selection.NumberFormatLocal = "yyyy-m-d "e/m/d (   $B@v! xmlļ ޸xmlϺ $>+>A kX!$B@v <B@ B@ رչ B@B Ļˢ´ (rA@ ̨ H H .xmlļA@Jox p ADODB.recordset$p.@ t @ (r9αͣ޷ x @ (v<αԣ޷'GSELECT to_char(HIS_REGIST_DTTM,'yyyy/mm/dd') FNC_TIME,FNC_EQPID FROM ( 'B B SELECT d.WAF_ID,dh.HIS_REGIST_DTTM,PROD_ID,dh.EQP_ID FNC_EQPID ,ROW_NUMBER() OVER(PARTITION BY d.WAF_ID ORDER BY dh.HIS_REGIST_DTTM DESC) rn,coc.slot_no,LAST_CLN_DTTM FROM F3PRD.DWAFER d 'B OPE_HI B LEFT JOIN F3PRD.DOPE_HIS dh ON SUBSTR(d.SUBLOT_ID,0,7)||SUBSTR(d.SUBLOT_ID,-3) = SUBSTR(dh.SUBLOT_ID,0,7)||SUBSTR(dh.SUBLOT_ID,-3) 'B B B INNER JOIN (SELECT CAR_ID,MAX(LAST_CLN_DTTM) LAST_CLN_DTTM FROM F3PRD.DCLN_CAR_HIS GROUP BY CAR_ID) dch ON dch.CAR_ID =dh.CAR_ID 'B B WHERE SUB_LOT_ID =' SUBLOT_ID > %' 'B _CAT @     z   $>B@@ B ~ @ B@  Ƭϴʱe[ B PWHERE dh.HIS_CAT ='OC' AND dh.OPE_ID ='FNC')WHERE rn = 1 ORDER BY SLOT_NO DESC 'B 3P B INNER JOIN (SELECT CAR_ID,MAX(LAST_CLN_DTTM) LAST_CLN_DTTM FROM F3PRD.DCLN_CAR_HIS GROUP BY CAR_ID) dch ON dch.CAR_ID =dh.CAR_ID 'B B SELECT d.WAF_ID,dh.HIS_REGIST_DTTM,PROD_ID,dh.EQP_ID FNC_EQPID ,ROW_NUMBER() OVER(PARTITION BY d.WAF_ID ORDER BY dh.HIS_REGIST_DTTM DESC) rn,coc.slot_no,LAST_CLN_DTTM FROM F3PRD.DWAFER d 'B b e  ϴʱ @     z   $>B@@ 0eSELECT LAST_CLN_DTTM FROM ( 'B `d$> AREA_COUNTxccc%Attribute VB_Name = "Ͼ̨"@ Sub @C lick1() '嵥0 .Ļˢ@´& Appation.Scre enUpdngAwFalse'FileTrim(Cells(10, 2)wH If $"" Th en<MsgBox ("г"C(`Exit qE nd,conn ectDBSet wp= CreateObj("ADODB.records et..Cur@sorTypadOpenStxc 'αͣ޷ "Locon adUseent#ԕ#aDimasql 0As S '!AƷwp@SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &k& "' GROUP BY J@g?AM., csDBCf@,Wh@g.EOF <> True 'жǷΪG:'ȡf@trXFields("*Iõ˾ևcustomern("K:Hhs 2, 3)>m 3@4AyU5|'-1'!ѯ!ʱ@䣬ͲSUBLOѫ timeAndSumSAPLAN__TIME,waf@er_cou@],= ϰϰϰ' hANDx #6W' ORDERѲRSEQ=B @% b oor ˟˯˧˙orio y37/'zql_"sublot_Xall2RC!For i 1 To et. ,, 7i + 6, 1Q7 6̚," 'ó  Cells(i + 6, 16) = timeAndSumSet.Fields("wafer_count" )7GSUBL`OT_IDE zMoveNextm#rowRecordC\$)'ѯHIS_REGIST_DTTM дװ#dttmsqlU" S@ELECT ,CUR_WAF_CNT,to_char(his_regist_!,'y/MM/dd') manufacture_date FROM F3PRD.DOPE_ "Y#%& " @where ID in('PK G','E) and A#cat@1'OC'g80STR(C,0,7)||S8-3)HIHIzPH_ BB(J DrIN@]CASE WHEN SK IS N`ULL T EL ENDBCOCMEAS LSTD cILEFT JOXIN G.,0CUSTOMEŎ>Q># M mM MES_aTAGRs ON c.S'= m55OInvoiceNo6oohRȖOMingSi=0&88Q OM8rial]99teo:_ersSeSeKW0p ,n_NOC? cd }}Qy^uu pppp!pppp0prHp)Print sq l0 If rsS.Rec@ordCou<> 0 Thenp =\Fields("ORDER_NO")V@End If.F or poH1 To |.Cell s(6 +4, (10)9p&Nelxt!'"$ShelfLifeTimeJT4Q1ccrow_formate'!\ShipQty) * 25=2TbppecNoC;3;3upplierID::44TSMCFab55D ⮣m '׀κSeˆSublota"reXObject("ADODB.r"setq`.Curs orTypAgadOpenStatic 'αЌ Loc onadUseC`G - ta"SELECT DISTINFILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN UB_# IS NULL T EL#mENDFROM COCMEASLSTD c LEFT JOIN MES_aTAG ms" _&& " ON.CUSTOM =c. a A@ms ! ' RE c.F, ='" FileNFa ' P`RODUCa.dwpstrA' ӈ BYd(EQ"GAPi>, csDBConn[ioDebug.E Dim subitem0iB VYHReh (" r) ' Af¶p "{i }߱_1(aR5,_(4oE;.MoveoUP V<ȡ_! As I@ntegeroa&rLx= Lco1LQ AAxU.A(Range("3:3"):)1A(־λж G_t& & ! ѭj  '2,18Ϊ@wafepf~oxC4d@02%8("WInfo"İN j 2@Else n18 'ӵ22 пʼ ֵ   3, 27 MAX e 7 ?  3C P>, Q OKXP num @2"selWlAS_ITEMS, R OUND(o_M IN,5) ,yAX0A 10 Then 73, 2000)E89Lef8 GP< @\ If 'ĿA !Format(numm.Fields("aDg"`"0.00"\T bMoveFirstŠ Ss :1 ToRecordCW'Debuhg.PtcMEAS_ITEMS>| GTrim]2])@b%})M ! co_Select Case dataExcelSheet.rT~jg8% "MAX"O4 % <> "^"?# f#6 sub" i -'_ Els'=.q/ob >=וg?)?"3.InteriorQzor465535O, QqaS"NG? mO  @.     1cB `UMľMM/ #-<N-s-<= /N-&----?'?K If numm.Fields("MEAS_MAX") < upValue T`hen *Else7zCells(6 + subcount, j i - 1).Interior.Color = 65535KnQ)+"NG"3+End IfSelect5 g$l_itemQ+ 1' OCase Nu;4C4> ""[@N3NgFA@/AVG ")2''ǻɫ? % 4lowÖ<> 0 Ao Char ?4o p "Fd ?YM>=M0 , >= _ C{Dߴy p ߴ ߠAmAA\vA_A1 : /CK{{_, o 1z`MupM_M,#-<N-d <=ߨ_-?&-Ϩ-?'?KOO qL??H= 3.MIOOP-O/o!(O֏,ɲ Else  4Cells(6 + subcount, ji - 1) = numm.Fields("MEAS_MIN")/ ''жǻ'IIf lowValue <>@ 0 AndChar"" Then+MSelect Case%+ ">="/l >=Jy?/nEۈ.Interior. Color65535sBQ("NG4XEIf$o D*ق ?A>?A?A l?A ,?AO aÄA >upLup? _Q CZ<bZ<= e_ [x [[ [ ?'/?K <OKOolol, ol1oL??`_itemP+ 1oJ+N+o*4 )o_ & 3^?_099PCS") > 26_Sǯí3/ 2? ?/h1= ?232UNITo2o!+2 //D%dapdam count_item = `+ 1 8REnd Sele|ct6r(o#)N ext i +El\seR'·"If Cells(4, j +) <> "" Then4 For i1 To '' /t Case dataExcelSheetz.,3,\)yB"MAX"M6LsubB$i - 1)@CUԱ΅?p:`"MEANI`$) :$-II$cEIc'$n $6$M$$O$ $6Mc$UNITn$$ $o?b?uodaZ?5?ON?vemo ߐ/{q?{k  __ _ ~numm.Mo|ve!PcovϐExi|t P . sj-?1Loop 'ѭsĿݽ' f r hOO$518"AREA_COUNT'FOSB_ID 10A hwafer_@column1"8Set`tt`CreateObj0("ADODB.recordset"(;0ursorTypeadOpenStatic 'αͣ޷8uLo co adUseClientԯ'G sql2 "SELECT D ISTINRFID,PCASE WHEN SHIP_SUB_LOTIS N ULL TUBdELEND FROM COCpSLSTD c LEFT JOIN (" _8 $R& " ,  CUSTOMER P |-<!MES_ TAG) ms `ON c.d= 0.]RE FILE_NAME ='" & FileName"'pAPRODUCCwps trp,er BY-q8ship_seq%%5*#(&CT SHIP_SEQ,CASE WHENUB_LOT_ID IS NULL TpUBXEL#|VEND~FROM COCMEAS^LISTSTD c LEFT JOIN ( SELEPCUSTOMER_S  1   N MES_MTAG ) ms ON c.5= . RE FILE_NAME ='" & FileName"'  APRODUCwpstrORDER BYEQ)c " _  & 5sql2")pkge= ^. Sheet3").2).Value Or2, 2w44A, 3ThedFH #Q+"NG?N#.Sel>/aaWith<A.Interior0.Pa tn7xlSolidColo@rIndexBAutomaticG@255UT ]AndShad:e 0D EXnd 4 A eveWindow.Scrolla]l= y4 3n2n1lA# If~zMove8Nexȁ'@3GRows(4).D@Rte'@ȡirowB+AUa "EWh ku 7|"$ + `#en _#= - B`8e'ʼppYsYsqsaW'qHDim sLss# sqS.@Entirep.PCopyGc1__qty2.  s6 f +aLPasteSpecial'+$} 'Pbs T18RAREA_COUNT" @C 39MAX"> W qp.PQttCreateObjT("ADODB.r2qset!m|t.Curs orTypIad wStQO 'αͣ޷G,4LocoqWadUseCl ie~='2= &",SNO,D_WAFf3prd.D30dh IN3Adb(DIN аD# ? 26 [,7 [̟ T O γ寳DmsⷘOJ) er byw%5) des`-&K3P3 "s to_char(dw.RECEIVE_DTTM,'Y/MM/DD')  ,sDub`(c._ US,1,3)||5,1Oe c.5,CBͅ/fromDATAINFOSo+b5INNP9rF3PRD.DBLK_RCV_1 dw, =8%lE sqt0c2R(7 xc2 $$$}$) GROUPvm! *['&P&*cGnN3SN@THEN SUBLOT_ID ELSE SHIPJ__NDLFROM COCMEAS^LISTSTD c LEFT JOIN ( SELECTQ x,CAWCUSTOMERnm IS NULL   1E   MES_TAG ) ms ON c.5=. KRE FILE_NAME ='" & FileName"' A;PRODUCAwpstrORDER BY}EQ)c " _  & 50sql2")pkge= o 73)@oEH~LA=c.WAF=(sub<(READ_,1,1H0) N@,SNO desc"OBKSett.Open Cship, csDBConnection Debug.P0rint For i = 1 To RecordCount ]gP@=C Fields("|_US3ID")Cells(i + irow - 1, wafer_coluDmn16)"V8al("DH")s21AJe*"!7CEIVE_DTTMIf Len() > 10 Or + """ TheD%oQx"NG0S.8SelS$!With`IW.InteriorP.Pat`n Ex@lSolidColorIndexAutoma8tic8B25 5T kAndShade0X?End !# !If`C1 bNϟ@t@={7)@D@@!gF@ .O -./_ O UO O oV+ cV_ gp$, _  /H]o H@@:7@8o @o o ^eo Co @ o o + sqo ?0o o oo Ho o :o Qo o J@o o )@j@@"MoveNex̜CtimeqmumSql15"DPLAN_TIME,Т ,'s\OOĔH?K̉p  et CreateObj("ADODB.rset͖.CursorT$yp1~adSt 'αͣ޷OD0 TLocoadUse0Clieкԏ( o#qcѾsPlot2œ?x22k measitempsg2b@LBOH"ϴʱes"fnc@ D"ʴject("ADODB.recordset") D fnc.CursorType = adOpenStatic 'αͣ޷"$LocMon]UseClient\\']qlN"SELECT to_char(HIS_REGIST_DTTM,'y/mm/dd') FNC_TIME,EQPID FROM ( N"5:& :d.WAF_ID,dh. 9,ROW_NUMBER () OVPARTITION BY + ORD ER0 DESC) rn,coc.slot_no,LA>CLN?6F3PRD.D@*d,:LEFT JOIN !OPE_: dh +SUBSTR(d.LOT<0,7)||bS -3)lh I fINN9E,(ĆCAR&MAX(G) KP :GROUPAaa) dc?. =@+3TR_^ ,SNO?COCMEASDATAINFpOS c 4]W HERE ='" & timeAndSumSet1.Fields("")"' ) Y!KZ=a_+= DsCAT ='O@C' ANDW.X='@')cr1 n)amet., csDBConn@ion׋Cells(counts + 1`irow - 1, wafer_col8umn).CopyFrom&Ret ElseIf mea sitem ."׹̨" The;D CreateOb͡2$9 ̷ I=FE_,?)cqaڄffftfpf ef ee deF,eB+e4  "e@2h8TZ`Z"ZZZDZW@ZZ9 "s ZZCMPZZ ZӯZ Z ZZZRZ1Z"ƬϴʱZ ZZo; "Zooo`Zooo&7 ?X ?XYM,?Xfb (੿W?XrY "YYYYYYYt  YV0ӼD dߏ,d,uOCOCMEASDATAINFOS c " fncsql =  & "WHERE SUB_LOT_ID ='" & timeAndSumSet1.Fields("NL")H"',) coc ON.WAFo=d2dh.HIS_CAT[OC' AND  OPEeFNC$')qrn|1 ORDER BY SeNO DESC>et.Open, csDBConnectionCells(count s + 1irow - 1, wafer_coplumn  ).CopyFromRecords$et;et3ElseIf InStr(measitem, ";i<> 0 TheE('numFFormat(query@1(tea/i-17), Left(tƆREAD_u""10)@"0.000")C.Q F2G))&SAA6Dim strResult() As Ding 2 #Spl itL]Wflag 0Wa jj@ To UB@d~(QPqB@1Ͽ@G25HEExit End If{%=(7jj'ȡXʽ; f'2*s+5c1F61_ ȡѯ ֵ{ CCy@pfindr172(ai [qCreateObj("ADODB.reiS3 b.Curso rTypeadaStatic 'αͣ޷{d Loc oadUseClient   ,5"SELECT ㉀@!++ " Fdata FROM ++) "'Aer byFdescB#bĤ7ĉ~y`5o <240a}id>y=[Wiyi~i21\? 1 spWQ0q Double$2? 9 :(,o!ގOB)10s??, Yy{""OY.`m.MoveFir~s'P7=PgRC %&Bue p ?P u2) >A@ JCDbrl1)OO'?le@get(0,`2&u2(2 {D%+ !EF "(!2 uO M6__cśQ"NGc?  v .Sel OO`With `.Interior .Pat!xlSoli>do`Qor Index0#xlAuto#icoO plor8255/ .TinthadOݲ End With 'HlIf )fflag = + 1'<-lnumm.MoveNext#f!D$For y10 To 24]If Cells(counts ++ irow, wafer_column  - 1)"" ThenFWQNG"9(.Selec n  ion.Interior$A.Pat nDxlSolid ColorIndexBAutompaticd@255d TintAndShade0 9o]#|]bO^53d\= + 2'timea$umSet1t G)'ȀڸʽC6is("A:A") U'QNumberyBLoc$al5"y-m-d dfe/m/d G:GreD=bM1@Rows(4).D`u te# +'xmlļA'޸`ϺË2, 74, 9)Call Ͼ̨_create 5B2K6c06f1fe" (@LX   B ""(P `x     D0 x B&&&@&h&&&&&0&X&&&X    PpLx  8X"p    Th&&&& ,  P p 0( 4X                ( 0 8 P  X B x   ( &      0  8 B P X  `  p     &0  X h  p           ]X$>'@$>'B$>'H *!\ͻģ\ B\ @\ H.xml' A@o@p]]]]0]H]`]xMSXML2.DOMDocument$p. WaferShipment %.  /sublot''õ $>  '0  '  ' дڵ For q = 1 To 15= rootNode.setAttribute Cells(4, q), Cells(rowItemi, q) Next q $>.xsd' xsi:$6 noNamespaceSchemaLocation B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> B@ $> $> B@ $> $> B@ $> $> B@ $> $> B@ $> $> B@xmlns:$6 xsi )http://www.w3.org/2001/XMLSchema-instance B@h waferinfo仯'xml/version='1.0' encoding='UTF-8' standalone='yes' %.  % B@ SYMBOLICS %.  !%.  $> %.  %.@ VALUE $> @ B@`' 'ѭsublot   ӽڵlotLot %. MSet tNode = xDoc.DocumentElement.ChildNodes.item(ii - 1).appendchild(newNode) !%.$> $> B@$> $> B@$> $> B@$> $> B@$>Defect_LLS_gt_0.200umӽڵwaferinfo 6 $>VALUE $> %.  %.  RAW %.  %. WaferId  $> B@VALUE   $> B@hk`X  ' k@   '   ' ..] $'  A@.. A@Jiʽxml,] ]8Msxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'i utf8BOMʽP] .B@ 0 .(lutf-8 .(2 8 .B@4 , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:] > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@BiuAttribute VB_Name = "xml" Sub 4_createP() B Dim 8File As Sng4 wpstrCells (1, 3rcustomernڽ4R5q= ThisWorkbook.Path & "\ͻģ\" l! 7./0{pbC{Xmlv End  Function (QG]DocO`bject0 rootNod @headernew Ll5ASet x-=9(("MSXM@L2.DOM@ument": 4=B.Ele ("WaferShip . @L'sublot rowItemi 5l '@ WhA , 1) <> "CE+ 1end-G(- 5) / 2(A 'дڵ,'B For q@11 To 1  @<Í0.setG34, q), F6F Next qCxsd@@ 5 2)j.  %1k"xsi" + Chr(58) "noxspaceSchemaLocaex",  #1_$Lf2i2u( 3ie 4wi|5i|6i67i7a8i8a9i9a10?A!AKA1 b A1AVsA1A"`ns_b, "http://www.w3.org/`2001/@b-instance #!'h winfoġa仯hv3AjProcessingIi@ ru(aq"versl='1.0' encod='UTF-8' dalone='yes'%^bZertBefore =[.CPUdis(0d A ukant("SYMBOLI?-DEIdEA + 4 pF/" K? 0MY!If_ b+ ph 2+ & iiCSNothPq%mla`&Q= PrettyPri4nt0(1STKWrRUtf8WithoutBo0uRM azcMsgBoxV䜲" End Function'ʽxml,  PrettyPrintXml(Ndoc) APs St(g Dim reader2Object2writSet3= C =te8("Msg2.SAXXMLRW.6.0"^)S9S9M8Wv 8.indent = True) omit9Declaraq.cont Handlk= $Parse>  ,:Outpu utf8BOM͂oUWithoutBom(FileName, WSQmst+mNew ADODB.,.Ope@zType0adTexD{D,ChA?AX"0-8- "vbCrLf 9%DL@'Ƴǰڣ0xEF ,0xBBF D?Posi3[new,ea[.JXBi0naryCModaB0M n4opyTo F AFlushloseSav(eToaN O, adz@;h &C ` -                          ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  *Yz xME@`xJII`>``X`D8 %@f@  `hp H@@ 0 `l ` x`n p`xh@ <% 0@P`p 0@~v (  @ xXp @X x(@ @( @ @ @ `@ `( @ @ @ @h @P @8 @ @ @ @ x xp @@ x@ (p X @@ 0^@( X^x h^P e`  @ @ @ @ @Jh P @8 x {  {  {  ( @  (  H X  @P @Rx ` @VH @0 @ @ @Z (  @ p    p 0 @ pX @ X@ ( @d   p @d @h  @h  P H X @  @ p   p @ @ @` @X @(@ @( 8( @       8 H ` px p $h =` LX (c8P hrx(8 @x     p @ @  @p X @ hxX( @ @ @  @ @ @h @P 0Xh8    $ 0$P @$(( @ 2x 240 k$*\Rffff*SD6c06f1b5I"  ( 4@dP h Lx  (00 0<HF** &(  H$`   "   (   8  P  ` h  (p *( D    X8n`@R  <  0 @2X   2     BL8@  H .X px   R   & FLL0LH J` 2X (00F  @ 8P h 0v  .v ,v  ( 8  @  &P  xx @  0 V @  xh  $  (00(FX  p8 2v  " \$pL^L^ L^ L^0 LH^` Lx^ L^ *   (X(00F( @,P&`8^   ,L^  ^0 LH^` Lx^ L^   \ @ (X0x0vFh  0  $ (< (8@ \H         ,$ ( 8H     .^0P  X` hnp (p00 F,  (L8 Tf ff0H P@ p 4  0@ FH 8 , !6$$ (F8 ( X ,th 04 , R 06 ! X!(&x!,!0 !4<!4 !8.!4" 40 "3<"3 8"8.@"4p",x"("(&"0"4 "7<"7 "8."4#4 #8<(#8 H#8.P#4#0#(#,# ,(# ( (( $#(t#04#, $06 $ X$(&x$,$0 $4<$4 $8.$4% 40 %3<%3 8%8.@%4p%,x%(%(&%0%4 %7<%7 %8.%4&4 &8<(&8 H&8.P&4&0&(&,& ((&( $&(t&04&, '06 ' X'(&x','0 '4<'4 '8.'4( 40 (3<(3 8(8.@(4p(,x((((&(0(4 (7<(7 (8.(4)4 )8<()8 H)8.P)4)0)(),)()( $)(t)04), *,8 *0<@*, *06*,*(*(*( $*,b*,$|+(0+( @+(bH+,$|`+(+ (++ ($ +! +  + #t+$+ ,F(,0 H,04X,0, 00 $,04,0, 00 $,04-0@- 00 $P-04`-0- 00 $-04-0- 00 .0b.04 . 0X. `.p.  $ .!.! .!..! .!. .. /  /0/    8/ &H/  ^p/ / / (/0/20 ( 80  2*82 h4F4 8404 445 5J5J(5J85 H5X5 `5^x5 5 5X5 5 5 525 6 6(6b06H6$P6ph6666 :6 ,6 7 (07 0P7 27 7 8  @9 `9 J 9 Rh8: 2 : :2: = F(=  8@= 6X= := := >  > (>  (0> 0P> 2> X> ?  ? ? J P@ Ph@ 2 @ (A4@A FxC C 8C 6C :C 0D @D HD PDJhD 0D:DJD 0D:E2(EJ@EPE XE pEE EEJE E  E E E 0F F  F 68F  HF:PFF F嵥ļļcroرĻˢ´f (rpre$>$'H Hma嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]XƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]p]]ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲·Qsrcpath = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\" \ͻģ\ B\ @\'[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' $x Ʒļ  @.xlsx  H.xlsxA@Hdh A@  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһ±ǷƷļ  H.xlsx$x] 򿪹  H.xlsx %. %. @+> B+> H+> C--------------------------1----------------------------------------+Ʒѯʱ䣬ͳSUBLOT_IDVSELECT PLAN_SHIP_TIME,wafer_count ,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'@ADODB.recordset$p.B t B(r8αͣ޷ x B(v;αԣ޷ @ ~ BB@Debug.Print timeAndSumSql B!'D  B!óʱʱPLAN_SHIP_TIME B%  +> ó wafer_count B%  +> SUBLOT_ID B%  +> BB@ B!'F ѯHIS_REGIST_DTTM дװʱp SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date FROM F3PRD.DOPE_his 'H H2 where OPE_ID in('PKG','EPKG') and his_cat = 'OC' 'H H and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c 'H HG LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL 'H Hz THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT 'H H WHERE FILE_NAME =' H' AND PRODUCT_ID =' @*' )) order by SUBLOT_ID, his_regist_dttm 'H '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( H:)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'ADODB.recordset$p.J t J(r/αͣ޷ x J(v2αԣ޷  ~ JB@[   J!manufacture_date J%  +> JB@д̶ʽcountrow_formate U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' L F$>'N N L +>$>'P P L +>$>'R R L +>$>'T T L +>$>'V V L +>$>'X X L +> $>'  L +>#'''''''''''''''''''''''''''''''''''ADODB.Recordset$p.I SELECT SUBLOT_ID ,ORDER_NO FROM COCMEASSHIPLISTSTD cd WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ,ORDER_NO'Z t (r.αͣ޷ x (v1αԣ޷ Z ~ B@[ Z !ORDER_NO %'kx  \ !  \ +>@ %''''''''''''''''''''''''''''''''''''' $>'^ ^ L +> F'` ` L +> $>'b b L +>$>'d d L +>$>'f f L +> U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' κADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT FILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'd d ~ bB@[ d] b!'h hf1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@k U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ȡ]]0'h'j־λжּ l h('''ѭ2,18Ϊwaferinfo2 If Cells(2, 18) = "WaferInfo" Then j = 21 Else j = 18 End If( ӵ22пʼȡֵ$>MAX'd'kselect MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷[   ~ B@ !  $> $> WaferInfobNѭĿ޵ֵԼǷ񿪱]H]` $>'  $>'l޵ֵԼǷ񿪱]x]  $>'  $>'n'hѭмݴж ~ $> $>$v%!'pZǰЬ' p  '+  r$>$>$v%!'p p 'p p  'k@'''''ĿĿ '''Format(numm.Fields("ag"), "0.00000") B@r t !%Debug.Print numm.Fields("MEAS_ITEMS") $>$ MEAS_ITEMS %$    h %>MAXKT  h $>  h $> l    +>d80KCells(6 + subcount, j + i - 1) = Format(numm.Fields("MEAS_MAX"), "0.00000")MEAS_MAX % l    +>2'жǻɫ l  >=KTMEAS_MAX % ld0 l    $>!(k>KTMEAS_MAX % l d l    $>!(knkx n  <=KTMEAS_MAX % nd  l    $>!(k<KTMEAS_MAX % n d l    $>!(kxnpkhk` h 'hMEANKT  h $>  h $> l    +>dMEAS_AVG % l    +>2'жǻɫ l  >=KTMEAS_AVG % ld0 l    $>!(k>KTMEAS_AVG % l d l    $>!(knkx n  <=KTMEAS_AVG % nd  l    $>!(k<KTMEAS_AVG % n d l    $>!(kxnpkhk` h 'hMINKT  h $>  h $> l    +>dMEAS_MIN % l    +>2'жǻɫ l  >=KTMEAS_MIN % ld0 l    $>!(k>KTMEAS_MIN % l d l    $>!(knkx n  <=KTMEAS_MIN % nd  l    $>!(k<KTMEAS_MIN % n d l    $>!(kxnpkhk` h 'hNKT  h $>  h $> l    +>dMEAS_PCS % MEAS_PCS % l    +>dxMEAS_PCS % l    +>k8k0 h 'hUNITKT  h $>'v v l    +> h 'hS  h $>'x x l    +> h 'hn` h'h d@$''''·ֵ  h $>  'ֵ  h %>MAXKT  h $> l    +> h 'hMEANKT  h $> l    +> h 'hMINKT  h $> l    +> h 'hNKT  h $> l    +> h 'hUNITKT  h $> l    +> h 'hS  h $>'x  h $> l    +>n k'ֵ$''''·ֵkX B@   y(k  t   'ѭĿݽ ݽk l ''''''''''''''''''''''''''''''''$> WaferInfo FOSB_ID 10'zADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷' SELECT DISTINCT RFID_ID, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,RFID_ID,`CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG= ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' order BY SHIP_SUB_LOT_ID' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( @)pkg ON c.SHIP_SUB_LOT_ID =pkg.SHIP_SUB_LOT_ID ORDER BY SHIP_SEQ'Debug.Print sqlship  ~ B@  !RFID_ID %  z +> B@ k ɾ3$B@v$B@v$B@vȡ'Debug.Print sql2 $>  'X  +> irow = 13ʼ  '    '] $>!VB@'     $>!VB@ p   'X $> WaferInfo$>MAX&ѯ WaferInfo2ֶΣSlot_ID codeSLOT_NO, 'codeADODB.recordset$p. t (r+αͣ޷ x (v.αԣ޷'SELECT DISTINCT SUBLOT_ID ,SLOT_NO,READ_WAF_ID,bl.USER_LOT_ID FROM f3prd.DWAFER dh LEFT JOIN f3prd.DLOT dl ON dh.SINGLE_NO = dl.SINGLE_NO LEFT JOIN f3prd.DBLK_RCV_INFO bl ON dl.KEMLOT_ID = bl.USER_LOT_ID WHERE SUBLOT_ID IN'  (SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' wSELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ' # ) order by SUBLOT_ID,SLOT_NO desc ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( G)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO desc'[   ~ B@  !SLOT_NO %$8    z+> READ_WAF_ID %    z +> USER_LOT_ID %    z +> B@dADODB.recordset$p. t (r+αͣ޷ x (v.αԣ޷'PSELECT SUBLOT_ID ,SLOT_NO,READ_WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN'  (SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' wSELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ' # ) order by SUBLOT_ID,SLOT_NO desc ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( G)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO desc'  ~ B@[   !SLOT_NO %$8    z+> READ_WAF_ID %    z +> B@;k; ڸʽA:A$B@H)Selection.NumberFormatLocal = "yyyy-m-d "e/m/d (G:G$B@H)Selection.NumberFormatLocal = "yyyy-m-d "e/m/d (   $B@v: xmlļ ޸xmlϺ $>+>AkH:$B@v <B@ B@ رչ B@B9Ļˢ´ (rA@ ̨ H H .xmlļA@Joh9`9Attribute VB_Name = "̨ģ"@ Sub @C lick1() '嵥0 .Ļˢ@´& Appation.Scre enUpdngAsFalse'FileTrim(Cells(10, 2)wH If $"" Th en<MsgBox ("г"C(`Exit oE nd,conn ectDBSet wp= CreateObj("ADODB.records et..Cur@sorTypadOpenStxc 'αͣ޷ "Locon adUseent#ԕ#aDimasql 0As S '!8Ʒwp@SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &k& "' GROUP BY J@g?AM., csDBCf@,Wh@g.EOF <> True 'жǷΪG:'ȡf@trXFields("*Iõ˾ևcustomern("K:Hh55OInvoiceNo6oohBOMingSi=0&8{8QOM8rial99teo?:_ers~SeSeKW0p ,n_NO3/ cd }~'1y>uu ppppppppp0pRHlp0IfBqordCount <> 0 Then p = rsS.Fields("ORDER_NO")@End If.F or po1 ToReco.Cells(6 +4, 10)9p&Next !'"$ShelfLifeTimeJT4Q1ccrow_formate'!\ShipQty) * 25=2%bpecNoC;3;3upplieXrID:44TSMCFab55D| ⮣m #'κSet sqlSubl$ota"reXObject("AD ODB.rysetq.Curs orTypAgadOpenStatic 'αЌ Loc onadUseC`G  'ta"SELECT DISTINFILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN UB_# IS NULL T ELmENDFROM COCMEA SLSTD c LEFT JOIN MES_aTAG ms" _&-& " ON.CUST OM =c.W a A@m~s ! 'RE c.F, ='" FileNa ' PRODUCA.Dwps$tr!' BYD(EQ"yG!PI>, csDBCo$nn[ioDebug.PriKfPtDim subitem0iO"VgYReh ( r) '@Ae¶ If{aE "{i }_1(QR%q,_(3_E;.Move_UP V<ȡ._! As Intege2roarLx= 0 co1B!p%־λжֽ GT#bo#t ѭ·g '2,18Ϊwafep7fot'Wf -S28a%"WInfo" N j 21 aElseo18 $ӵ22пʲwֵp  3, 21 MAX   ?j 2 & ]num:2"selQfAS_ITEMS, ROUND(i_MINH,5) ,AX@ AVGϦX nEVPCS froBm5qDATABSUM where OdMdticfxI2+)dfqFLAG='F'd 0mCqo?oooqie o &rt$t};R8ohF/'ӂn1Do Wh50Aj)1"" A 7BTB'!INĿpF '޵ֵԼǷ񿪱\lowValue\Do0 G94Char!StPgoi B=6, j lowValue = Cells(6, j + 1) $'޵ԼǷ񿪱lDim upqAs Double!2Char 1String1up- 2K 3count_Pitem0H'ѭмݴж_havacolumn*Range(1),).End(xlToRight).C'h1i+@wcoH!-@'/If > 10 Then 73, 2000F89Lef8 P< @\H If 'ĿԂA AFormat(numm.Fields("ag"<"0.?00" MoveFirst! Bs@t1 ToCRecordCW'Debug.P ntcMEAS_ITEMS>| CGTrim]2])@b%)M ! co_Select Case dataExcelSheet.rTg8% "MAX"O4 %  <> ""?# f#6 sub i -'_ Els'=.q/ob >=Sg)?"3.Int eriorQzor465535O_h?d_(OD?////o/O17OuB䳿BB/ ' "" Then'*6(sub/i - 1)3:+5Else?'nt 'numm.Fields(ATS_AVG")o ''ǻ ɫghlowValued0 AC@@CharvhSelect B6Û>=hE6Y >= @%< CuX.Interior.ColorY655<35(  ?m66661 j_6Y_6_6 h_6 ao6 3upup _Q cO<_ b(AY <= OCO(O(eCC!_@OO\_O q/A??=߰O(MI'oo_#Y#ϡ/- Q oFďhm*o& obD/!O?"9"hhoEoCase ">" /If numm.Fields("MEAS_MIN") > lowValu@e Then2Else28Cells(6 + subcount, j i - 1).Interior.Color = 6553537End IfSelect3up<> 0 ASupChar ""4̓-> >Þ<=3A<= >6??!- $11911 ?1߁߁ h?1 _?k o k_item+ 1E CLN_Lf@J64')ߗ;A@3 UMrhPCS26 /|3/ 2/ sz ?/?h1= ?232UNITo2o!+2 //D%da@) ϯda+cc/"O\ Next i&'·ֵOO OI_f"fFiP'1 To@@a'' V3ödataExcelSheet.c)j<GMAXG11_Io ,3??TEA_ooo oo2   @Case "MIN"0vells(6 + subcou nt, j i - 1) = C  4 _ite&C4++p)pkgt+=.E 'Debug.PriN%'bVqU! ', csD BConnZioxw 1{zoR]t.R[CqgGi<, aafFields("TG`AoWr'ɾ3Row@s(4).D0tx#Cq'ȡKeirow%*4'\2Wh@D$pv7) "XbWendz2! - i"= 137'ʼ'pp x=ssq-s'qHDim sh ss Cells(sq, 1).EntireRow.Copycount_qty = 25\For sss*1 To LBapp +P PasteSpecial2Next := ?] *4(If x2q8)"WaferInfo" And3, 21) <> "MAX" Then"'ѯ 2ֶΣSlot_ID xdeSLOT_NO, 'coC Set tFCreateObject("ADODB.recordset")(t.Curs@orTypeadOpenStatic 'αͣ޷Ј%LoconUseClient ԏ'sql2"SELECT DISTINXSUBAB@H,DREAD_WAFM,bl.USER_ FROM f3prd.DER dh LEFT JOINE@ dl ON@.SINGLEZ2 dl BLK_RCV_INFO bl.K4EM=#WHERE^G1IN">?& " (M@ CASE N `SHIP_E;IS NULL THEJEL ENDKCOCPMEAS L]S`TD c (F(\,gCUSTOM 8C$ k ?"-!m MES_TAG) msAc.!rz=`. V7=FIIAME ='" & FileName@"' A 1PRODUCT Bwpstr/) {er by ec de s7'ship_seq+NA u!n d4*gOc7EQ6CUBQENQIPQ)MIIgI+ "E EGBBORDB"YD)EQ)@< __:&AO%S")pkg_lm= aJN6& Debug.Pri`&++ !l.g , csDBConnliosKqi`+RRnCqs{iirow - 1, w{_c olumn|Val(RFields("Df")sP2jx3n}tt.pMoveElsx[ υυυeυυυυυυυυɅ9WE,^,?M< 7W |3,2\||T|VTD3J|| =73 V_smWk?Xar|WOT w* ||Bms|{/[||p| Pd|jU|5p |R|"^|h;/((q|N (-$R$${$T|G|"T|||&;||6|:'<+lOzEzI on Debug.Print sqlship For i = 1 To Sett.RecordCount TCells(i + irow - 1, wafer_columnB)Val(EFields("SLOT_NO")6)+Le2P LREAD_WAF_I D" O'Move8Nex[?End If'ڸ4ʽ Cf]A:A").Sele c('ion.@NumbermatLocal~"y-m-d "%e/m/d ;G:G;(de/v4/Rows(4).2D@teW'xml@'޸āϺŃ aÌ2, 7sC4, 9CoCall ̨_createK i!2!wp@|. |C@'F dataworkbook.S av2'رչ Clos WendD 'Ļˢ´ApplPicatAS@4enUp@ing@XXTru cDBMsgBox "ATD" & FileNameр"M.K^0@sALSub I5xME(``D %@ @f H @ ` `>``D @%@ @f x X%XXXX8XXXxXXXXXX8XXXxXXXXXX8XXXxXXXXXX8XXXxXXXXXX8XXXxXXXXXX8XXXxXXXXX X8 XX Xx X X X X X X8 XX Xx X X X X X X8 XX Xx X X X X X X8 XX Xx X  k$*\Rffff*S46c06f1b5" " ( H `p   00  Ph* 8H h "   ( 8 P  h x   *   8  ,X  <   0 2H 2   2 2 X  ` Bh         8 @ &X     h x00   8 ,P .      0Z  X &p  00 (@2X.  &  000` ,0` x  0 ( 0 8H P0p0X(@ P p      0@$0p$$$$$,0 404P8(X4 40 338(4,((04 707P8(X44 888(40(  0 8H P`p P  &8 `p      0@2pr 0H,`.  0 8  H 0h 2 (  " " $$$$ *% @% P%X%        `% p% %%%%% %%%& & &   (& 8@& Lx& P& ' ' <' d' D`) <) )H* P, 0X, ", ,, 6, :- X- x-  --h../`/80T80(000h0H11`18X2T2(23 3h83304`P484T4(@5h5x5P5P5T06R6678f89(9 90:00: `:p: : : ::::;; ;0;H;X; `;,x;*;*;(<&0<X<.x<2<(<4=,@=$p=$= == =   R= P>`>p> x>  > > > > > >> > ? ? ?@? "H? P? p? ?? ?  ???? ?0@0H@ x@@A*0A `ApA AAAA "A B B (8B `B xB  B B B B *B C  C(C 0C8HC ,CC C <C (D HD XD :pD BDD E E :(E BhEE  E BEFF  F (F @FHF    PF&pF F F .F F G G  G8G G G0H00H`H xHHHHH2H4 I&XI IIII I I0ZI  8M&PM  xO0O0O OP P(P8@P4xP PPP &P Q Q00Q0`QQ S,0S`U xU U U0U UU(U V0V 8VHV PV0pV0VXV(W@W PW pWW W WWWX X XXY 0(Y$6XY$6Y$6Y FZ$6HZ$Z$Z$Z$Z$Z,Z0 [4[40[8.8[8 h[4[ 40 [3[3[8.[8 [4\, \((\(0\0H\4 P\7`\7\8.\8 \4\4 \8\8]8.]8 H]4h]0p](x] ]]]] ]] ]]] ]]^^ P ^ p^ &^ "^ H^ 0(_ *X_ ._ _ _ (_ (` $0` "X` ` ` &` 8` La PXa a 0b ,Pb ,b 8b :b ,(c ,Xc (c &c c c d 8(d L`d Pd e(&e &0gFXg "i 0i *i ,(j 8Xj j j j j j j j k k k k  k $8k `k xk (k k k k l $(l Pl hl l l l l l :l Nm R`m m @n >`n dn Fp <Pp pJp s 0s "8s ,`s 8s <s t (t @t &Ht bpt bt @u :u v Vv rv F`w .w 6w bx xx :y @y Vy r z Fz .z 6{ bH{ { :8| x| V} rX} F} .~ .H~ Xx~ F~ @ VX X * 88 ,p  4 6 2 BP  ,  ( *0 ,`   8 F D8 B @ȃ ( 0 $P   Rx Є    ( @ P `x  Ѕ A@A@o`X嵥ļļficرĻˢ´e (r015$>$'H H嵥ļA@J|@k8A@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]ƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]]ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dxWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'F%Debug.Print srcpath & wpstr & ".xlsx" F @.xlsx$x 汾· *!\ͻģ\ B\ @\'жϱǷӦļ $x Ʒļ F @.xlsx  H.xlsxA@H F @.xlsx  T7_code.xlsxA@Hd@ A@ Ʒļ F @.xlsx  H.xlsxA@H F @.xlsx  T7_code.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|Hk@   B@.kжһ±ǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %. B@p$tB@H  KSELECT WAFER_COUNT ,SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ '[ ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@ \!'N  \!   +> SUBLOT_ID \%  +> WAFER_COUNT \%  +> \B@8]ǰ73İװʱ 'ǰ73λ  SELECT SUBLOT_ID,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyy/MM/dd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG') and his_cat = 'OC' and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) J in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN (x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOTN FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' order BY SHIP_SUB_LOT_ID ( )) order by SUBLOT_ID, his_regist_dttm ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( :)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'ADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷[   ~ B@  !manufacture_date %  +> expiry_date %  +> B@('ȡдÿһƽֵ ADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT FILE_NAME,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SUBLOT_ID'd '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( d@)pkg ON c.SHIP_SUB_LOT_ID =pkg.SHIP_SUB_LOT_ID ORDER BY SHIP_SEQ'  ~ bB@[ ]0 b!'h hfh1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@ bB@Bk ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷2select * from COCMEASDATASUBSUM where FILE_NAME =' H' AND LOT_FLAG='F''  ~ B@ ! Hó嵥A@JExit Subkx B@B15:15$v %' l hselect MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''  ~ B@[  !    $>  $> MEAS_ITEMS %MEAS_AVG % l  +>  $>'l  $>'  $>'n  $>' l  >=KTMEAS_AVG % ld l  $>!(kx>KTMEAS_AVG % l d@ l  $>!(knk n  <=KTMEAS_AVG % nd l  $>!(kx<KTMEAS_AVG % n d@ l  $>!(knkkdk B@ B@B$B@v$B@v$B@v$B@vJ-----------------------------------------------1--------------------------Thickness/G16$v'v''ļThickness  T7_code.xlsx %. ( %tB@v ( ȡù̶A2$v'B2$v'E2$v'I2$v'$B@vLot No.Slot NumberADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷'JSELECT SUBLOT_ID ,WAFER_COUNT FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ '[   ~ B@  ! SUBLOT_ID %  +> WAFER_COUNT %  +>   +>   +>   +>   +> B@ ''FOSB_IDADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷' SELECT DISTINCT RFID_ID, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,RFID_ID,`CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG= ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' order BY SHIP_SUB_LOT_ID' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( @)pkg ON c.SHIP_SUB_LOT_ID =pkg.SHIP_SUB_LOT_ID ORDER BY SHIP_SEQ'[   ~ B@ !   !RFID_ID %  +> B@k  B@pȡ' $>  '8ʼ  '    ']p ƺT7 Code2 Set Sett = CreateObject("ADODB.recordset")F Sett.CursorType = adOpenStatic 'αͣ޷J Sett.CursorLocation = adUseClient 'αԣ޷'z sql1 = "SELECT SUBLOT_ID ,SLOT_NO,SUBSTR(READ_WAF_ID,1,10) READ_WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN" sql1 = sql1 & "("6 sql1 = sql1 & " SELECT SHIP_SUB_LOT_ID from( "] sql1 = sql1 & " SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT "> sql1 = sql1 & "WHERE FILE_NAME='" & filename & "') "5 sql1 = sql1 & ") order by SUBLOT_ID,SLOT_NO " ''''ship_seqO"5 sqlship = " SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME ='" & filename & "' ORDER BY SHIP_SEQ)c "' & " LEFT JOIN (" & sql1 & ""' & ")pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO") Sett.Open sqlship, csDBConnection Debug.Print sqlship% For i = 1 To Sett.RecordCount0 Cells(i + 1, 6) = Sett.Fields("SLOT_NO")4 Cells(i + 1, 7) = Sett.Fields("READ_WAF_ID") Sett.MoveNext Next'''''ThicknessԭʼSELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,WAF_ID,max(ITEM) ITEM,SHIP_CAR_ID,ROD_USER_LOT_ID,SUBSTR(ROD_USER_LOT_ID,1,3) opeid,s1.EPI_EQPID,os,oc,PARENTLOTLOCATION,s.RFID_ID,INVENTORYCODE,PARENTLOTID FROM ( ' YSELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,WAF_ID,ITEM,SHIP_CAR_ID,ROD_USER_LOT_ID,RFID_ID FROM ( ' SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,cos.WAF_ID ,(MEAS_ITEM_003/1000) ITEM,SHIP_CAR_ID,COS.ROD_USER_LOT_ID,ms.RFID_ID FROM MES_SHIPTAG ms '  INNER JOIN ( ' CSELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' ' )) cd ON cd.SUBLOT_ID=ms.CUSTOMER_SUBLOT ' FINNER JOIN COCMEASDATAINFOS cos ON cos.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' ORDER BY SHIP_SEQ,SLOT_NO ' ) '  UNION ALL ' YSELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,WAF_ID,ITEM,SHIP_CAR_ID,ROD_USER_LOT_ID,RFID_ID FROM ( ' SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,cos.WAF_ID ,MEAS_ITEM_391*1 ITEM,SHIP_CAR_ID,COS.ROD_USER_LOT_ID,ms.RFID_ID FROM MES_SHIPTAG ms '  INNER JOIN ( ' CSELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' ' )) cd ON cd.SUBLOT_ID=ms.CUSTOMER_SUBLOT ' FINNER JOIN COCMEASDATAINFOS cos ON cos.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' ORDER BY SHIP_SEQ,SLOT_NO ' ) '  UNION ALL ' YSELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,WAF_ID,ITEM,SHIP_CAR_ID,ROD_USER_LOT_ID,RFID_ID FROM ( ' SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,cos.WAF_ID ,MEAS_ITEM_415*1 ITEM,SHIP_CAR_ID,COS.ROD_USER_LOT_ID,ms.RFID_ID FROM MES_SHIPTAG ms '  INNER JOIN ( ' CSELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' ' )) cd ON cd.SUBLOT_ID=ms.CUSTOMER_SUBLOT ' FINNER JOIN COCMEASDATAINFOS cos ON cos.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' ORDER BY SHIP_SEQ,SLOT_NO ' ) ' ) s ' BLEFT JOIN CUST_COCINFOENTITY@bip cb ON cb.lotid=s.ROD_USER_LOT_ID ' ALEFT join (SELECT d.WAF_ID WAF_ID1 ,PROD_ID,dh.EQP_ID EPI_EQPID ' E,max(CASE WHEN dh.HIS_CAT IN('OS') THEN dh.HIS_REGIST_DTTM END) os ' D,max(CASE WHEN dh.HIS_CAT IN('OC') THEN dh.HIS_REGIST_DTTM END) oc ' FROM F3PRD.DWAFER d LEFT JOIN F3PRD.DOPE_HIS dh ON SUBSTR(d.SUBLOT_ID,0,7)||SUBSTR(d.SUBLOT_ID,-3) = SUBSTR(dh.SUBLOT_ID,0,7)||SUBSTR(dh.SUBLOT_ID,-3) ' qWHERE dh.HIS_CAT IN ('OC','OS') AND D.WAF_ID IN (SELECT c2.WAF_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID IN ( ' SELECT MS2.SHIP_SUB_LOT_ID FROM MES_SHIPTAG ms2 WHERE CUSTOMER_SUBLOT IN (SELECT C.SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H' ) ' X)) AND dh.OPE_ID ='EPI' GROUP BY d.WAF_ID,PROD_ID,dh.EQP_ID ) s1 ON s.WAF_ID=s1.waf_id1 ' GROUP BY SHIP_SEQ,SLOT_NO,WAF_ID,SUBLOT_ID,SHIP_CAR_ID ,ROD_USER_LOT_ID,s1.EPI_EQPID,os,oc,PARENTLOTLOCATION,RFID_ID ,INVENTORYCODE,PARENTLOTID ' ORDER BY SHIP_SEQ,SLOT_NO 'ADODB.recordset$p. t (r0αͣ޷ x (v3αԣ޷[   ~ B@ B@p $>!VB@ !'    $>!VB@   ' ''ɾԭʼ $B@v  ! SUBLOT_ID %  +>RFID_ID %  +>SLOT_NO %  +>WAF_ID %  +>ITEM %  +>FH  +> PARENTLOTID %  +>ROD_USER_LOT_ID %  +>opeid %  +>PARENTLOTLOCATION %  +> EPI_EQPID %  +>os %  +>oc %  +> B@(ThicknessendK-----------------------------------------------2--------------------------- B@p$B@vk <B@  B@ B@ رչ B@B B@BĻˢ´ (rA@ɺϷʾļA@Jo嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|kA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]ƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]]ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dP=WScript.Network$p.Scripting.FileSystemObject$p.    B@'k<繲· \ͻģ\ B\ @\'F%Debug.Print srcpath & wpstr & ".xlsx" F @.xlsx$x 汾· *!\ͻģ\ B\ @\'жϱǷӦļ $x Ʒļ F @.xlsx  H-С.xlsxA@H <FileCopy network & wpstr & ".xlsx", srcpath & "T7_code.xlsx"d; A@ Ʒļ F @.xlsx  H-С.xlsxA@H <FileCopy network & wpstr & ".xlsx", srcpath & "T7_code.xlsx"kH:d@:7繲ûжӦģļ,ǶӦģûзȷ·A@J|9k9   B@.k9жһ±ǷƷļ  H-С.xlsx$x]( ģļ  H-С.xlsx %. %. B@p$tB@H  KSELECT WAFER_COUNT ,SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ '[ ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@ \!'N15:15$v %''  \!    +> SUBLOT_ID \%   +> WAFER_COUNT \%   +>OK    +> \B@  'X6]Hǰ73İװʱ 'ǰ73λ  SELECT SUBLOT_ID,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyy/MM/dd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG') and his_cat = 'OC' and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) J in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN (x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOTN FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' order BY SHIP_SUB_LOT_ID ( )) order by SUBLOT_ID, his_regist_dttm ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( :)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'ADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷[   ~ B@'  !manufacture_date %   +> expiry_date %   +> B@  '(/'ȡдÿһƽֵ ADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT FILE_NAME,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SUBLOT_ID'd '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( d@)pkg ON c.SHIP_SUB_LOT_ID =pkg.SHIP_SUB_LOT_ID ORDER BY SHIP_SEQ'  ~ bB@[ ]` b!'h hf1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@) bB@Bk)ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷2select * from COCMEASDATASUBSUM where FILE_NAME =' H' AND LOT_FLAG='F''  ~ B@ ! Hó嵥A@JExit Subkx( B@B' l hselect MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''  ~ B@[  !    $>  $> MEAS_ITEMS %MEAS_AVG % l   +>MEAS_MIN % l   +>MEAS_MAX % l   +>$?Cells(subcount + 23 + dx, i + 5) = Cells(subcount + 20 + dx, 3)MEAS_PCS % l   +>  $>'l  $>'  $>'n  $>' l  >=KTMEAS_MIN % ld$ l   $>!(NG l  |+>kp$>KTMEAS_MIN % l d8$ l   $>!(NG l  |+>k#n#k# n  <=KTMEAS_MAX % ndx# l   $>!(NG l  |+>k #<KTMEAS_MAX % n d" l   $>!(NG l  |+>k"n"k"kx"dp"kh"`" B@H" B@B  ' "$B@v$B@v$B@v$B@vJ-----------------------------------------------1--------------------------Thickness/ Thickness = Range("G16") '''ļThicknessA Set p_workbook = Workbooks.Open(srcpath & "T7_code.xlsx")) Application.DisplayAlerts = False# p_workbook.Sheets(1).Delete( Application.DisplayAlerts = True 'ȡù̶! Nexchip_Fab = Range("A2")! Material_No = Range("B2") Spec_No = Range("E2") Maker = Range("I2") Rows(2).Delete 'Lot No.Slot Number2 Set Sett = CreateObject("ADODB.recordset")F Sett.CursorType = adOpenStatic 'αͣ޷J Sett.CursorLocation = adUseClient 'αԣ޷' sql2 = "SELECT SUBLOT_ID ,WAFER_COUNT FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME ='" & filename & "' ORDER BY SHIP_SEQ " Debug.Print sql2& Sett.Open sql2, csDBConnection% For i = 1 To Sett.RecordCount2 Cells(1 + i, 3) = Sett.Fields("SUBLOT_ID")4 Cells(1 + i, 6) = Sett.Fields("WAFER_COUNT")% Cells(1 + i, 1) = Nexchip_Fab% Cells(1 + i, 2) = Material_No! Cells(1 + i, 5) = Spec_No Cells(1 + i, 9) = Maker Sett.MoveNext Next '''FOSB_ID2 Set Sett = CreateObject("ADODB.recordset")F Sett.CursorType = adOpenStatic 'αͣ޷J Sett.CursorLocation = adUseClient 'αԣ޷'Pt  sql2 = "SELECT DISTINCT RFID_ID, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ("' & " SELECT SHIP_SUB_LOT_ID,RFID_ID,"' & "CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT"' & " FROM MES_SHIPTAG"' & " ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME ='" & filename & "' order BY SHIP_SUB_LOT_ID" ''''ship_seqO"3 sqlship = " SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME ='" & filename & "' ORDER BY SHIP_SEQ)c "' & " LEFT JOIN (" & sql2 & ""' & ")pkg ON c.SHIP_SUB_LOT_ID =pkg.SHIP_SUB_LOT_ID ORDER BY SHIP_SEQ" Debug.Print sqlship) Sett.Open sqlship, csDBConnection$ If Sett.RecordCount > 0 Then% For i = 1 To Sett.RecordCount1 Cells(1 + i, 4) = Sett.Fields("RFID_ID") Sett.MoveNext Next End If ' p_workbook.Activate 'ȡ irow = 2" While Cells(irow, 1) <> "" irow = irow + 1 Wend 'ʼ pp = irow - 1 For S = 1 To irow - 2 sq = S + 1 ' Dim sss 'ƺT7 Code3' Set Sett = CreateObject("ADODB.recordset")G' Sett.CursorType = adOpenStatic 'αͣ޷K' Sett.CursorLocation = adUseClient 'αԣ޷'{' sql1 = "SELECT SUBLOT_ID ,SLOT_NO,SUBSTR(READ_WAF_ID,1,10) READ_WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN"' sql1 = sql1 & "("7' sql1 = sql1 & " SELECT SHIP_SUB_LOT_ID from( "^' sql1 = sql1 & " SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT "?' sql1 = sql1 & "WHERE FILE_NAME='" & filename & "') "6' sql1 = sql1 & ") order by SUBLOT_ID,SLOT_NO "' ''''ship_seqN 8' sqlship = " SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME ='" & filename & "' ORDER BY SHIP_SEQ)c "'' & " LEFT JOIN (" & sql1 & ""'' & ")pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO"'*' Sett.Open sqlship, csDBConnection' Debug.Print sqlship&' For i = 1 To Sett.RecordCount1' Cells(i + 1, 6) = Sett.Fields("SLOT_NO")5' Cells(i + 1, 7) = Sett.Fields("READ_WAF_ID")' Sett.MoveNext ' Next ''''''Thicknessԭʼ[ sqlship = "SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,WAF_ID,max(ITEM) ITEM FROM ( "[ sqlship = sqlship & "SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,WAF_ID,ITEM FROM ( " sqlship = sqlship & "SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,cos.WAF_ID ,(MEAS_ITEM_003/1000) ITEM FROM MES_SHIPTAG ms "3 sqlship = sqlship & "INNER JOIN ( "{ sqlship = sqlship & "SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME='" & filename & "' "O sqlship = sqlship & ") cd ON cd.SUBLOT_ID=ms.CUSTOMER_SUBLOT "l sqlship = sqlship & "INNER JOIN COCMEASDATAINFOS cos ON cos.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID "@ sqlship = sqlship & "ORDER BY SHIP_SEQ,SLOT_NO "( sqlship = sqlship & ") "0 sqlship = sqlship & "UNION ALL "[ sqlship = sqlship & "SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,WAF_ID,ITEM FROM ( "} sqlship = sqlship & "SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,cos.WAF_ID ,MEAS_ITEM_391*1 ITEM FROM MES_SHIPTAG ms "3 sqlship = sqlship & "INNER JOIN ( "{ sqlship = sqlship & "SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME='" & filename & "' "O sqlship = sqlship & ") cd ON cd.SUBLOT_ID=ms.CUSTOMER_SUBLOT "l sqlship = sqlship & "INNER JOIN COCMEASDATAINFOS cos ON cos.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID "@ sqlship = sqlship & "ORDER BY SHIP_SEQ,SLOT_NO "( sqlship = sqlship & ") "0 sqlship = sqlship & "UNION ALL "[ sqlship = sqlship & "SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,WAF_ID,ITEM FROM ( "} sqlship = sqlship & "SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,cos.WAF_ID ,MEAS_ITEM_415*1 ITEM FROM MES_SHIPTAG ms "3 sqlship = sqlship & "INNER JOIN ( "{ sqlship = sqlship & "SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME='" & filename & "' "O sqlship = sqlship & ") cd ON cd.SUBLOT_ID=ms.CUSTOMER_SUBLOT "l sqlship = sqlship & "INNER JOIN COCMEASDATAINFOS cos ON cos.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID "@ sqlship = sqlship & "ORDER BY SHIP_SEQ,SLOT_NO "( sqlship = sqlship & ") "( sqlship = sqlship & ") "Q sqlship = sqlship & "GROUP BY SHIP_SEQ,SLOT_NO,WAF_ID,SUBLOT_ID "@ sqlship = sqlship & "ORDER BY SHIP_SEQ,SLOT_NO ": Set numm = CreateObject("ADODB.recordset")O numm.CursorType = adOpenStatic 'αͣ޷R numm.CursorLocation = adUseClient 'αԣ޷$ Debug.Print sqlship2 numm.Open sqlship, csDBConnection& p_workbook.Activate. Cells(sq, 1).EntireRow.Copy0 count_qty = numm.RecordCount, For sss = 1 To count_qty< Cells(3 + sss, 1).EntireRow.PasteSpecial Next& pp = 3 + count_qty Next! '''ɾԭʼ# For de = 1 To 2& Rows(2).Delete Next2 For th = 1 To numm.RecordCount? Cells(th + 1, 3) = numm.Fields("SUBLOT_ID")= Cells(th + 1, 6) = numm.Fields("SLOT_NO")< Cells(th + 1, 7) = numm.Fields("WAF_ID"): Cells(th + 1, 8) = numm.Fields("ITEM")! numm.MoveNext Next 'ThicknessendK-----------------------------------------------2--------------------------- B@p$B@vk{ <B@  B@p_workbook.Save رչ B@Bp_workbook.ClosezĻˢ´ (rA@ɺϷʾļA@Jo(z z'Attribute VB_Name = "Ϸʾϸ"@ Sub @() 4$1 End 9L ^Z'嵥`ļ v'رĻˢ´OApplication.Scr@eenUpdngFalse'FileTrim(Cells( 1, 2)If $"" Then<MsgBox ("SгɇU"$pExitpwIf#connectDBSet wp= Cre@ateObj("ADODB.recordset..CursorTypadO penSt{c 'αͣ޷` "LoadUse@Client#ԕ#0Dim0sql As &S@_ 'AƷdwpSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &l& "' GROUP BY Jd?AM., csDBCfs,Wh@@g.EOF <> True 'ǷΪһG:'ȡ@ trXFiel0ds("*I'õ˾"AcustomernCB("7ȠesrcppathfGpdBoԭ A6·@һg'ӵ繲 A # >\\10.A52.142\coc\1ServerSh ar112ģ @WradministratorPassw`j`1"fthw-82905028IFoldeBrzsts()/(%$H@ 0HElGŐ}Netk} Wipt.CfsoCing.System# -.MapDrive "", 1$, b, ,, ( aş'ÉJ'nC"IA@{\@ͻ>\ja!cl 'Debug.Prvia&~q`.xlsxh?>@'汾\ E=FisWorkbook.PsA_V a!鐶ӦAsЇ D1['Eh&Copy _", ?[q "T7_code/75MultiLevel= (57 q 2 pjY)57 "8û"!6",ȷ-2a /@@'BT [IRemoveIA,xIU= NothQHXA!4һ•50O5s&̊+6QyaabAyBg '򿞪:= %s.A? e7+ `at ExcelShe=% z.sy.Activ 0.Sel'š Bp1d"WAFPCOUNT ,SUBLOR occ ' ANDH$g' `ORDER!_pSEQ (3 ziqls lotet¯§IüDq( )Q_idp_u}= RCo@O For iP!1 4Tot20 + i, 1)i_[2Q' 3"+ MRRxo TI_ AFss 'ǰ73İװʱN ''ǰ73λ  sql2 = " SELECT SUBLOT_ID,to_char(his_regist_dttm,'y/MM/dd') manufactur@e_datelADD_MONTHS A-1, 12) HexpiryC FROM F3PRD.DOPE_ where ID in('PKG','E) anDd cat'0OC' hST R(k0,7)||S -3)퀂_&: HIP_SUB_. 1m(" 4DISTINˀBCASE W HEN S+ IS NULL Tc EL E ND\COCM(EASA LSTD c LEFT JOIN f-,G.CUSTOMERL@LF..5?0 0^S] MES_&TAGs ON c.ncn@ms.M\RE FILE_NAME ='" & FileNaTme"AUP`RODUCwpstrord`er BYN^^.)D) by *,B "׭7'ship_seq_ "*s(S=EQ=Cb_Tdh QT"8TSfsHOO&VOgK > ?L9LLK ORDERLEQ)c*z& BrQ)pkgdes>= hRoLSet lotset"tCre@Object("ADODB.rec` ")e.CursorTypeUadOpenStatic 'αͣ޷ ~ Lo ion Use@Client  Debug.PriDkx3!p, csDBConn" For ss! 1 To*.RAB'Count?Cells(20 +, 4)Fields("}? 5 }? ' MovehNex S ''ȡдÿһƽֵ'8o(`Sub@((r((((QM(((vt"\n,3J߇Z߇Bp߇`]D3e]J{ msJ"KKQKy?} =YA| 1XዐăTqD^c.luV }) }u}^}P!q}!}STSXj}#}lkoOT Ο }p=0)Q#w}}.1I>.p}}O~E.ll Q?rpDim subitem]cAp`] qw Re8(Rux) 'A¶2If &> 0 Then|"hi }?% 5(C i!xlot.Fields("SHIP_SUB_LOT_ID") sqlSubMoveNextV2Close>End IfSet numm = CreateObject("ADODB.recordset7.Curso rTypeBadOpenStatic 'αЌE'Loc!on)UseClient)$)2#"sell * from COCMEA SDATASUM where FILE_NAME ='" & FileName"' AND FLAG='F<'"bAAU, csDBConnion If`D.R[Cou@:= 0 TheP @MsgBox 'ó嵀ݐ&A'Exit @/!ec@UAp(plij..A(Range("1@5:15")PFor subc91 To&-! ro_ITEMS, ROUND(BMIN,5) ,AX AVGSTDEVCPCS@OM"item(#)N#d5_O(BDebug.PriN,s0Wh@dXEOF <> Tru0?i@G>cs e cCells(16, i + 5) ""xce=cŴB9H") 4 20&1 J9 lowValu=8E %Char`,7e|upG9?e6F I0 ~A`e? dSCase d ">=t ":'! >=Q co_El?"/-@7.Interior@^l[= 65535f?4/AS_&H1#7JfBupG_BB/ ' 0 Thenqqh4e1W%qEm d+eE`nd If  ?7a 'Ƨ .Ac8tivȡ irow '2G4Wh , p{<> "8Tb+ 1'dʼ ppr-?yaḂ8 sqPsDim ss>sprT7 C 'a1}obIy~oroPY1,"S{NO,dSTR(READ_~1,10) Kf3prd.DQ dhH IN!2E(F1Xfrom(Ole?e?e?e?ek_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT _SUB_LOT,CASE WHEN CUSTOMER:8 IS NULL T8 l ELcl bENDE MES_CTAG ) ms ON c. =. O" ' 0sql1%& "RE FILE_NAME='" & fil ename"')  ) order by B,SFNO'ship_seqGKM"*yJ(DINEQ UB タH |{ | ORD ER BYEQ)c " _Pm@IE )pkg@I@=@Ȳ!ŕ#Sett.O0pen , csDBConn@ection Debug.Pri ntE HFor i@P1 To Rec[CountCells(i + 1, 6) FieldHs("_")U7NREAD_WAF@ Move8Nex)g %l''ThicknessԭD%@"Xd,al,,max(I`TEM) CARROD_US#m,`STR"(1,3peid,s1.EPI_EQPID,os,oc,PARENT LOCATION,s.RFID INV`ORYCODE'(aeoU~D!cos. , (_a_003 /1000/COS.m-m'#Iǀh%%INNipzCÒ:FN,,) cdd=! ( DATAINFOS  0/Ԁ =eH@8*oOd8 N)rUNP6 AЉ ;BRL,3,B3(l4;?FRdJ33391*1K3D,3G3Q =F36ZeO@A 33p3Ut3ID3T""3333q!"33f 0 3+guv3q!oD~C3~_4153D,33?gX h# `O 33ϟ3r G33J3p333333 3)ܧ 333) siii{_wQwAITY@bcbwb.loti|d= [f{ "LEFT join (SELECT d.WA F_ID 01 ,PROD@,d h.EQPhEP I_( "  sqlship = & ",max(CASE WHEN HIS_CAT IN('OS') TREGIST_DTTM END) os ElClc5FROM F3PRD.DER d JOIN OP E_x{ ON SUBSTR(d".LOT0,P7)||S -3) h S%̀cREc dC',CeAND Dgń@4ʼnc2B@COCMEASDATAINFOS c2Az._9z (&VģMS2.`SHIP_BMES_TAG msECUSTOxMER @DC-N ,LSTD c-FILE_NAME ='" & FileName"' )&1)) PA ='' GROUP BYPP) s1AsZ=s1.waf_id19_SEQ,SbNO,F,*ID,"CAR|,A~US(@~,os,oc,PARENT LOxION,RFI ,INV@ORYCOD>ERORD i#1Set nummdCreateObject("ADODB.record`set").CursorType`adOpenStatic 'αͣ޷ HLocon UseClientag  Debug.Pri?0c%, csDBConn!ion p_workbook.Activ(Cells(sq, 1).EntireRow.Copy count_qty"i6.R3C3F@or sss18 To3 +aPasteSpecialNext3p ? '''ɾԭʼۓAdaP"2 `,s(2).DeletevthU P`+ 1, jFields("E7, 4n $E, 6N, 73R, 8ITEM#, 9"FHQ[10XIDP11>_p2~opeid#Ne#j5= s'oc-Move9  'Thicknessend<'-2sdata'aH16,HEnd Ifwpy.'SavXMj'رչ0mCl\osnW''Ļ@ˢ´~Appli|.Sc@reenUp ingSTru cDBMsg Box "!ʾɰ>Sub ` 1(1'@嵥~S  F alF= Trim(sE[2)If= "" xTheD T ("q Ƀ y/Exit a!cu" ___W?I3SDim` As SBtg 'qȷ3wpOʒ"UC STɨsqfёdfwpdSet.Open wpsql, csDBConnection WhileEOF <> True 'жǷһ`Ʒjr'ȡ $tr =Fields("PRODUC@T_ID")>õ˾customernameI("CUSTOMER_NAME EDim srcpath As StringM pd'ԭālļ·@һ!'ӵ繲 0= "\\10.52.142\coc\" ServerSharo12ģUserN"adminis@tratorPassword@P"fthw-82905028 %If FFol derExs(5) TheD:D0Else @ Neta!kObj@ C reate("WScript.D u fso C y.-Sys8temM.MapDrive0 "",c, $Fa1, Y, Q 6@1End( If'ŋ̻nD@5&ͻ}\" & ABHDebug.P@t&C ".xlsxh?>@'汾 A6Eq=FisWorkbook.PsA_V a!ӦAsЇ2ZD1['E@A!MCopy $,.t`-`Сm0' "T7_codeM omMultiLevelC{| (&"-sW,nG'#MsgBox "sûСGn!H,8ȷ]hht Sub 6m+Remove},"ĕIqNothJqJ'tһ6/2Ds&00o8!{dataqcC `}3D 'x5a:= %s e';؋jaExcelSheetP]y.Qss(1uA vq .Sel t'š* @1 "SELECT WAFCOUNT @,SUBLO1 FROM COCMEASSHIPLISTSTD c WHERE FILE ='Y' AND $Fj' ORDER BY _SEQ H4r kqlhu Hlot= [ADODB.recqset=.CursorTypadStatic 'αͣH޷Џ " LocPon adЃClientGOFq u`_id0au=U RCo@OcP Appli3 .bA(Range("15:15")s*dx4For i1 T otCell@s(20 +p+ dx, 1)i 2Ɠ, ? 3?"1__@ c X"OK-M\x@P+ 3$Ne/ Qss'ǰ73İװ0ʱO''YsλB2 " BV,to_c(his_reg_dttm,'y/MM/dd') manufacture_MefADD_M ONTHS-1 2)expi ry2IF3PRD.DOPE_0` wheID in('PK G','Ea) a`x . 'OC@H1 STR(`O,0,7)||Sj-!" _/aQS_SUB_@1}rW(epUDPYIN`\`CASEYN4UF IS NULL THEN SUBLOT_ID ELSE SPHIP__NDL FROM COCMEASbLISTSTD c LEFT JOIN (" _ & " SELECT _,CAWHEN CUSTOM ER IS NULL T 2E o MES_1TAG) ms ON c.= .6 [RE FILE_NAME ='" & Fil eName"' AIPROD UCwpstrorder BY\)) by U, his_regist_dttm "W'ship_seqO sqlT =u*É(yDIN{EQzrzyȧ9ɗ f!ݗ ORDEREQ)c6ut*z& =2TrQ)pkgdel= hRoLSet lotsett2MCreateObject("ADODB0.rec` ")e.Curso rTypeadOpenStatic 'αD~ Locon UseClient  Debug.PriDkx3!p, csDBConn"ion)dx0For ss`1 To-.RB*CountoCells (20 +A+ dx, 4)`f-Fields("manufacture_d64 5 expiry MoveNex0 + 3C''ȡдÿһƽֵ''Y:Sub%?Y_Y_YM,,,vtt"`r,k'a "aϋawN@~NORms.=IU"яo`^.Dc.olooeZ o) o2oboP!ըoUnB5(o,omoe}_ToGoOTohoo.oL@>.p߁Ӂ,?EE.opop7 Q/vpDim subitem]crN ?tw Re8(wx) 'A¶dIf &> 0 The?~"hi }% (C iy~|W~ #.zW |Close End Ifxnumm?xߤ qwwww C"sel @* fromDATASUBSUM where FILE_NAME ='" & Fi@leName("' AND LOT_FLAG='@F'" numm.Open sql2, csDBConn@ectiondIf+m.RecordCount = 0 The-oMsgBox ó9'Exit SubEnd If hClosfe dx] For subcn1 Tolot V("sel MEAS_ITEMS, R OUND(MIN,5) , lAX M AVG STDEVCPCS from COCDATm IDĘEitemz(G)&H- Debug.PriY`SWhƃEOF <> Truiq}c Cells(16, i + 5)""/X=*Fields("r|") 4 2r0dx K"); 1 `_ {# 2 f ' 3 Oe(3$  =vlow`ValueUC 18<8ACha:r7Cup209gF {0 A _eq dSCase d )">=@m.g >=Q cwElOr-?.Interior.Colt= 65535o124)+"NG τO t! _! T!O!?!/?!?!?!?!?!?q$C_!' WNup"TNO/ -M&#` %FOSBAk+&^^^o/o/o/a/O 2% / D@-IBN@0RFID, CASE1.N+UB_1IS NULL THE9f3ELs.END O5F5 LEFT JOIN (" _I ep_ e;09_+ ,  CUSTOM>0  "-!<MES_TAG) ms OpN c.# ms.}II Ya?IiIq0'sAkseq$$u* (%!EQ,%%%%ZZX%#R_h ./!E /!TD/ x DP7ǯf)c %A{3z6&Ap)Xpkgd(=.oovo$%No'o[If>o > 0 Then(WOrOrq i4fett.UrEn heheX)B'ƠXActivpPȡirow$r2hWh, y<> "tqb+ 1Җ'ʼ pp -S2 sqSB'Dim sss&%T7 C v {ctAYor{{ԣ޷' '' sql1 = "SELECT SUBLOT_ID ,"S NO,$STR(READ_WAF6,1,10) " FROM f3prd.DJER dh WHEREhBUIN"}& " ( HIP_Q_Rfrom( !9DISTIN!rCASENN S &IS NUL`L THEELENDCOCMEASL9STD c LEFT JOIPN ( e,KCUSTOMERts K ZNNACi MES_'TAG ) ms ON c.i=.XyFILE_NAME='" & filename"') h) order byE 'ship_seq{ij Y*=(@_SEQ]UBރSHAPAA%Rc>F> p> ORDBYdEQ)c " _6IdG7)pkgWLb= (ZeKZSett.OpenI, csDBConnectionDebug.Print For iQ1 To  Rec\ Count Cells(i + `1, 6)@Fields("$")v7n" MoveNex` EiAm''ThicknessԀʼ(wneYe,lʄmax(ITEM) Dtb} {E l `cos.# ,(_ _003/100魠aN_@INNgdƿA##Hdz[[7o =/) cd"9d7=msdipX DATAINFOS @\ f B   )UNIwA  O)/   /w/391*1 ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~   ) =sǰxME(``D X% x ````@`\ %8(8HXhx(8HXhx(8HXhx(8HXhx(8HXhxk$*\Rffff*S86c06f1b5""  (   0 P hx   00( Xp*( Xh  "   (0 X p      *    (8@ Xx ,   <8 x   6 B@ H X 6p B   BHP  X h     "   * ( @ P `   0 0   h  @ $X          "  8  H ` 4 $   4 $@ h p  x 6 $     0@ 0p \ L DP      8 HX`h  $       0 0P 0 x ( @ P$h$p$$$$$ ( (,0 (4H4h8x 844204 0 0(,8, @(P$X `hpx    " 080hx (8P h x 00  (8 8@ Lx 00@p  8H LP 00zH    L(x, 000   @P LX( 00(X 8  H  h x  L    0!0H!x!!"  " @"P" LX""" "0"0#H#$ $8$@$ P$$h$(2x$$$(2$$$$ $ % %  % 8%$ X%$0x%$0%$%$&$'$j($Z($tP)$v)$@@*$*$*$ * * *$ *$0+$0@+$Xp+$+$|,$j@-$X-$b.$@p.$.$.$ . ./ L/X/0`/ /0/0/ 0v00f01v102H2 X2 x22 L222 30 30P3 3v3f44v(555 55 L5@6H6 h60606678  080P80889H:: ; ; R8; ;; L;;< < 8< 8= N@= =0=0=>(>0> @>`> h> N> > 0> 0(? X? p?$?$? ?$ ?$N?$ 0@$0P@$0@$@$@$@ AA A N A pA 0A 0A A B B$ B @B$ HB$NhB$ B$0B$0C$8C$PC$`C$C$C( C(NC( D(00D(0`D(D(D(D$D D D$E$ E$0E$0E$F (F$z0F$ F$0F$0G$0G HG pPG G 0G 0H @H 4XH `H pH I 0 I 0PI II zI J 0@J 0pJ JJpJ 0K0PK0KK K K$K L$8L XL`L hL$L L$LL MMMM M(M 8M HM PM`M PpM   RM N (N@N HN  XN hN xN N N NN N N NO O 0O]X]p]]]嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|8k0A@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]ƷgSELECT CUSTOMER_NAME ,PRODUCT_ID,sum(WAFER_COUNT) WAFER_COUNT FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]](ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dXWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'FQnetwork = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"%Debug.Print srcpath & wpstr & ".xlsx" F @.xlsx$x 汾· *!\ͻģ\ B\ @\'жϱǷӦļ $x Ʒļ F @.xlsx  H -.xlsxA@H <FileCopy network & wpstr & ".xlsx", srcpath & "T7_code.xlsx"d A@ Ʒļ F @.xlsx  H -.xlsxA@H <FileCopy network & wpstr & ".xlsx", srcpath & "T7_code.xlsx"kd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kpжһ±ǷƷļ  H -.xlsx$x]@ ģļ  H -.xlsx %. %. B@p$tB@H3:3$v %'ADODB.recordset$p. t (r-αͣ޷ x (v0αԣ޷select c2.SUBLOT_ID,d.SLOT_NO ,d.WAF_ID,SUBSTR(d.RESERVE01,1,3) Pullar,d.RESERVE01,doh.EQP_ID,SUBSTR(D.WAF_ID,6,3)*1.1+SEGMENTSTART SEGMENTSTART,ms.SHIP_SUB_LOT_ID from COCMEASSHIPLISTSTD c2 'b b INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c2.SUBLOT_ID INNER JOIN F3PRD.DWAFER d ON d.SUBLOT_ID =ms.SHIP_SUB_LOT_ID AND EXIST_FLG ='Y' 'b b INNER JOIN F3PRD.DWAF_OPE_HIS doh ON doh.WAF_ID =d.WAF_ID AND OPE_ID ='EPI' LEFT JOIN CUST_COCINFOENTITY@bip cp ON cp.lotid=d.RESERVE01 WHERE c2.FILE_NAME =' H' ORDER BY SHIP_SEQ,d.SLOT_NO 'b b ~ B@ If sublot.RecordCount > 1 Then $>B@@ End IfA:A$v %'OK  +>CJ4$vB@H B@CJ4:CJ  $vB@H <B@ d   $>Y22 $>450 $>1300  ¯ָNG   +>k $>Y21e $>300 $>1300  ¯ָNG   +>kk0 For SLOTID = 1 To sublot.RecordCount If 1 = 1 Then End If NextADODB.recordset$p. t (r-αͣ޷ x (v0αԣ޷Tselect DISTINCT c2.SUBLOT_ID,ms.SHIP_SUB_LOT_ID,SHIP_SEQ from COCMEASSHIPLISTSTD c2 'b b >INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c2.SUBLOT_ID 'b b  WHERE c2.FILE_NAME =' H' ORDER BY SHIP_SEQ 'b b ~ B@'  *  ! $>'    $>' MFP5 MWEN  $]`] ;$''  ] y@k8 $' ȡ㷽ʽ $' ȡѯsqlֵ$$'ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷SELECT WAF_ID,  5 measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' 'order by SLOT_NO '  ~ B@ !'f   f  ]  $>']](  $'$ $'  B@r  ! WAF_ID %measdata % measdata %'  $X'8ֵ  $$'k@ 0.00000$X  +>d    +>k  'k B@ k   k k dx 'h kh ` f ' sublot.MoveNext0 '  *  !SHIP_SUB_LOT_ID %' ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷SELECT WAF_ID,  5 measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' 'order by SLOT_NO '  ~ B@ !'f    $>'  RESISHEAD;RESISTAILADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷FSELECT MEAS_ITEM_229-(MEAS_ITEM_229-MEAS_ITEM_230)*SUBSTR(WAF_ID,6,3)/ WAFER_COUNT <%2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j ! j  $>B@@ j B@Bd 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG  $> f   $>+vk0 RRGTAIL;RRGHEADeADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷XSELECT (MEAS_ITEM_231+MEAS_ITEM_232)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j ! j  $>B@@ j B@BdNG  $> f   $>+vkX MTQCBMD*1000000000eADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷QSELECT MEAS_ITEM_220*1000000000 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j ! j  $>B@@ j B@BdNG  $> f   $>+vk OXYCONCENTAIL/2;OXYCONCENHEAD/2eADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷LSELECT MEAS_ITEM_233/2-(MEAS_ITEM_233/2-MEAS_ITEM_234/2)*SUBSTR(WAF_ID,6,3)/ WAFER_COUNT <%2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j ! j  $>B@@ j B@BdNG  $> f   $>+vkP OXYCONCENTAIL;OXYCONCENHEADeADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷FSELECT MEAS_ITEM_233-(MEAS_ITEM_233-MEAS_ITEM_234)*SUBSTR(WAF_ID,6,3)/ WAFER_COUNT <%2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j ! j  $>B@@ j B@BdNG  $> f   $>+vk( ORGTAIL;ORGHEADeADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷XSELECT (MEAS_ITEM_235+MEAS_ITEM_236)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j ! j  $>B@@ j B@BdNG  $> f   $>+vkP MNA eADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷}SELECT DISTINCT SUBLOT_ID FROM F3PRD.DWAF_OPE_HIS d2 WHERE WAF_ID IN (SELECT WAF_ID FROM F3PRD.DWAFER d WHERE SUBLOT_ID IN (' '') AND EXIST_FLG='Y') AND OPE_ID ='CPI''l l ~ j B@ j !` `]h j !  r  j ! r j ! ' SUBLOT_ID j %', r +` dH' SUBLOT_ID j %' r +` k j B@ j B@B ` $ ' MNAPRESP1;MNACPTRE1ADODB.recordset$p.j t j (rBαͣ޷ x j (vEαԣ޷SELECT mins+slot*(maxs-mins)/CUR_SUBLOT_WAF_CNT sub_Res,SUBLOT_ID,WAF_ID FROM (SELECT DISTINCT d.SUBLOT_ID,d.SLOT_NO, dh.WAF_ID,dch.COLUMN_NUM ,dch.MEAS_ITEMS,MOD(SUBSTR(d.WAF_ID,6,3),25) slot,dch.maxs,mins,CUR_SUBLOT_WAF_CNT FROM F3PRD.DWAF_OPE_HIS dh 'l l mINNER JOIN (SELECT SUBLOT_ID, WAF_ID,d.SLOT_NO,WAF_SEQ_NO,SINGLE_NO FROM F3PRD.DWAFER d WHERE SUBLOT_ID IN (' o') AND EXIST_FLG='Y' ) D ON dh.WAF_SEQ_NO =d.WAF_SEQ_NO AND dh.SINGLE_NO =d.SINGLE_NO AND dh.WAF_ID =d.WAF_ID 'l l INNER JOIN ( SELECT d.SUBLOT_ID ,CS.COLUMN_NUM,CS.MEAS_ITEMS ,MAX(dch.MEAS_DATA) maxs,min(dch.MEAS_DATA) mins,CUR_SUBLOT_WAF_CNT FROM F3PRD.DMS_C_HIS dch 'l l [INNER JOIN COCMEASDITEMSSTD CS ON dch.MEAS_ITEM = cs.MEAS_ITEMS AND ITEM_TYPE IN('NC-120') 'l l and SUBLOT_ID IN ( -) AND MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') 'l l fINNER JOIN F3PRD.DOPE_HIS d ON d.SUBLOT_ID =dch.SUBLOT_ID AND d.HIS_CAT IN ('OS') AND OPE_ID ='CPRI' 'l l hGROUP BY d.SUBLOT_ID ,CS.COLUMN_NUM ,CS.MEAS_ITEMS,CUR_SUBLOT_WAF_CNT ORDER BY CS.COLUMN_NUM DESC) dch 'l l 2ON dch.SUBLOT_ID =dh.SUBLOT_ID ) ORDER BY SLOT_NO 'l l ~ j B@ j  $>B@@ j B@Bk0 MNAPRESU;MNACREUNADODB.recordset$p.j t j (rBαͣ޷ x j (vEαԣ޷OSELECT DISTINCT avgs,d.SUBLOT_ID, dh.WAF_ID,SLOT_NO FROM F3PRD.DWAF_OPE_HIS dh 'l l mINNER JOIN (SELECT SUBLOT_ID, WAF_ID,d.SLOT_NO,WAF_SEQ_NO,SINGLE_NO FROM F3PRD.DWAFER d WHERE SUBLOT_ID IN (' o') AND EXIST_FLG='Y' ) D ON dh.WAF_SEQ_NO =d.WAF_SEQ_NO AND dh.SINGLE_NO =d.SINGLE_NO AND dh.WAF_ID =d.WAF_ID 'l l mINNER JOIN ( SELECT SUBLOT_ID ,CS.COLUMN_NUM,CS.MEAS_ITEMS ,avg(dch.MEAS_DATA) avgs FROM F3PRD.DMS_C_HIS dch 'l l [INNER JOIN COCMEASDITEMSSTD CS ON dch.MEAS_ITEM = cs.MEAS_ITEMS AND ITEM_TYPE IN('NC-120') 'l l and SUBLOT_ID IN ( +) AND MEAS_ITEM IN ('MNAPRESU','MNACREUN') 'l l SGROUP BY SUBLOT_ID ,CS.COLUMN_NUM ,CS.MEAS_ITEMS ORDER BY CS.COLUMN_NUM DESC) dch 'l l 1ON dch.SUBLOT_ID =dh.SUBLOT_ID ORDER BY SLOT_NO 'l l ~ j B@ j  $>B@@ j B@BkdNG  $> f   $>+vk MPMC MMCLTAVG eADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷SELECT MEAS_DATA FROM ( 'l l hSELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_mclt MMS 'l l IINNER JOIN COCMEASDATAINFOS c ON C.WAF_ID =MMS.WAF_ID AND C.SUB_LOT_ID =' ' 'l l XINNER JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM =' 5' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c 'l l gINNER JOIN COCMEASDATAINFOS s ON s.SUB_LOT_ID =c.SUB_LOT_ID AND s.WAF_ID =c.WAF_ID ORDER BY s.SLOT_NO 'l l ~ j B@ j ! j  $>B@@ j B@Bdp NG  $> f   $>+vk MSPV eADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷SELECT MEAS_DATA FROM ( 'l l gSELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_SPV MMS 'l l IINNER JOIN COCMEASDATAINFOS c ON C.WAF_ID =MMS.WAF_ID AND C.SUB_LOT_ID =' ' 'l l XINNER JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM =' 5' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c 'l l gINNER JOIN COCMEASDATAINFOS s ON s.SUB_LOT_ID =c.SUB_LOT_ID AND s.WAF_ID =c.WAF_ID ORDER BY s.SLOT_NO 'l l ~ j B@ j ! j  $>B@@d NG  $> f   $>+vk MTTMSTRC eADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷SELECT DISTINCT min(TO_CHAR(OPE_CMP_DTTM,'yyyy-mm-dd hh24')) minDTTM,max(TO_CHAR(OPE_CMP_DTTM,'yyyy-mm-dd hh24')) maxDTTM FROM F3PRD.DWAF_OPE_HIS d2 WHERE 'l l @WAF_ID IN (SELECT WAF_ID FROM F3PRD.DWAFER d WHERE SUBLOT_ID = ' '' AND EXIST_FLG='Y') AND ope_id='THFT' 'l l ~ j B@ADODB.recordset$p.n t n (r;αͣ޷ x n (v>αԣ޷SELECT MEAS_DATA FROM (SELECT ROW_NUMBER() OVER (PARTITION BY MEAS_ITEM ORDER BY HIS_REGIST_DTTM DESC ) row_num,dch.* FROM F3PRD.DMS_C_HIS dch WHERE SUBLOT_ID IN (SELECT DISTINCT SUBLOT_ID FROM F3PRD.DOPE_HIS dh 'p p 3WHERE TO_CHAR(HIS_REGIST_DTTM,'yyyy-mm-dd hh24')>='minDTTM j %3' AND TO_CHAR(HIS_REGIST_DTTM,'yyyy-mm-dd hh24')<='maxDTTM j %' 'p p tAND (PROD_ID LIKE '%03839%' OR PROD_ID LIKE '%01289G%') AND OPE_ID='TTMC') AND MEAS_ID ='M_TTMS_02' AND MEAS_ITEM =' ') WHERE row_num=1 'p p ~ n B@ n ! MEAS_DATA n %'r MEAS_DATA n % $> f  $>+v n B@BdXNG  $> f   $>+vk MTQC MMCL  METK  MER2  MEPC  MMK3  MFMM  QMK3 e ; $' 2jingshu2 = Split(jingshu(1), "/", , vbTextCompare)2jingshu1 = Split(jingshu(0), "/", , vbTextCompare)2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷  ~ B@' ! COLUMN_NUM %' d$ / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@ ! COLUMN_NUM %' /$ ' d@$ - $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ COLUMN_NUM %' -$ ' k>k> 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ '' ADODB.recordset$p. t (rDαͣ޷ x (vGαԣ޷ ~ B@' ! COLUMN_NUM %' d=$ / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ ! COLUMN_NUM %' /$ ' d`<$ - $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rKαͣ޷ x (vNαԣ޷  ~ B@ COLUMN_NUM %' -$ ' k;k;  SELECT ROUND(MEAS_ITEM_ ,5)  4 data2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO'ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@d9SELECT MEAS_ITEM_ 4 data2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO'ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@k8SELECT COUNT(MEAS_ITEM_ 6) count2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' 't ADODB.recordset$p.v t v (rDαͣ޷ x v (vGαԣ޷ t ~ v B@k7  SELECT ROUND(MEAS_ITEM_ ,5)  3 data1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO 'ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@d`6SELECT MEAS_ITEM_ 3 data1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO 'ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@k@5SELECT COUNT(MEAS_ITEM_ 6) count1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' 'x ADODB.recordset$p.z t z (r@αͣ޷ x z (vCαԣ޷ x ~ z B@ count1 z %  $>B@@count2 v %e  $>B@@k3d3count1 z %  $>B@@dP3NG  $> f   $>+vk2k2k2k22 f ' B@2$B@v$B@vJ-----------------------------------------------1--------------------------K-----------------------------------------------2--------------------------- B@pRows(16).Deletek1 <B@  B@p_workbook.Saves رչ B@Bp_workbook.Close01Ļˢ´ (rA@ɺϷʾļA@Jo00Attribute VB_Name = "Ϸʾ"@ Sub 0() Dim item As S~ng(subloHtid0nuXD o@eXarrD`ata()FInteger-'嵀ļ'رĻˢ´ Application.ScreenHUpdngFals'File|Trim(Cells(1, 2)v If "" Then2MsgBo@x ("ShɇU"$E0xit End/connectDBSet wp= CreateObj("ADODB.recordset..Curs orTypad@OpenSt{c 'ͣ޷ЅM  LoOLadUseClientp0Awpsqlx 'AƷSELECT CUSTOMER_NAME ,PRODUCT_ID,sum(WAFCOUNT)  FROM COCMEASSHIPLISTSTD WHERE FILE='" &s& "' GROUP BY !nGT@f@5, csDBCm4Whn.EOF <@> True>жǷһA'ȡ@Gtr`Fie`lds("*'õ˾0"Acustomern9B("7Ta6srcpath6 pdB;ԭ!at·һg'ӵ̀繲A # B\\10.A52.142\coc\1ServerShar112ģZradministratorPasswn`1"fthw-82905028 IFolder`~sts(^)ȇ%$H@ 0HEleNet.kc KW@ip\ja!cl ' ThisWorkbook.Pba w Debug.Priem&@@O".xl|sxJI L'汾ط&!*E=0)/" 0O1Oa?Gv:3$ _3TeFhQ,Copy _, `-a9 '? 9"T7_codeO= 1 The*FCells(4, 1).CopyFrobmset% 8'@End If BApplica^%;A(Range("A:A"))Y%c +c&"OKLQCJ4").SelMR5:CJAsBAcveSheet. PasteFor lt(4 Txo B AX@d3B, 4)2Y22"c 7) < "450" A]> "130vA R2¯ָNGLUE xElse41+4-YNext z o'P #1 Sq CreateObj^kDODB.r} v" mčCurs@orTypeadStuc 'αͣ޷+Z Lo}" UseClie & '"sx DISTINCTSUBID,ms.UB_D f MEASL STDC;MES_TAG msa`a OMER_# =† !3 ȈH+9wafc= 0+]<? W]SaCCidAct4 , 8R!itemz81Tcq1f2, 6?i InStr(A, "MFP5") OrlWEN`S1; En KpS+ " Adata FROMEnDATAIPS c$ehdq+X@'er by Oɍ Bbʐ Oʿ_s@X/1Ey0!E- 1!E` U3C= ly,< 35sp2PDoPlHb:( , (spbGG>0Zt Then $numm.MoveFirst'܀For sql| = 1 To RecordCoun(KIf `wafidMHFields("WAF_ID"),~+ 'measdata(<> "++,V/ )WUBd(strResult2) >*2*CDblH0(1)))'`ֵ7OgTet(,2$, >(25(End If&Cel@ls(4 +Acy, item)Rmat."0.0",Else?+f+\? a:i_(-flag$+ 1?c@GCNexE#? ; u7GsadC10 S`K=bs<'subl|otBO /+ 0n BubtAa? c"eSHIP_SUB_L OTN SetCreateObject("ADODB.r0set"SCursorType@adOpenStatic 'αͣ޷`o L$oc`onb UseClient'// |!b"SELECT sw,r+ Column@P" n FROM COCMEASDATAINFOS c WHERE 0 ='"+ "'er by SNO " BQa , cs@DBConnpio/)s =pQ$]8q$c!q ajvgb !"2E "RESIS`HEAD;@L)reQ)o) ._*_*_*_*[+++_?p"+1)_ITEM_229-(30)**STR(.6,3)/" & wpP.HER_COhUNT&@111O0O0EB0& F0' ORDER BYV0o0_11`&Q(1oِ.CopyFromPP ?Clon'MsgBox:R44û8!OG~Rapnge(0M18), fq - 1A"NG_?Z_yK CRGQB;RRGqBBll~?m?mBBBBB'GBA31+A2)/2 >nPDă>"> >/>o[ If res.RecordCount > 1 Then Cells(4 + wafcx@, item).CopyFromset Close*El!Range(c1), gs - 1, ) = "NG"Knd['MTQCBMPD*10"S CreateObject("ADODB.r")Uurs@orType@adOpenStatic 'αͣ޷ЈLoconUseCl ieFԁmRessql@"SELECT MEAS_ITE M_220S data1 FRO M COC DATAINFOSuWHERE SUB_LOT_ID ='" & sublotid"' ORDER BY S NO UQ )sDBConnhio~D?r?r?r?r?r E?re(rOXYCONCENDL/2;HEAD/2sd srds.Css-" H ss s33/2-(u4/2)*`rSTR(WAFr,6,3)/!swp`+.Fields("ER_COUNT")u}}}}#Oq1 9x^>.xxUxx>q Px>>>>x>~2>xxx>xx~>x33>-j>O>O>O> "O>S?}C?}?}?}Q?}?}O>_O>__R!?}mO>O>O>O>O>O>M>RG|;ORGQ|====~r=========:{5+<6)/2_9_9*O9O9JO9O9O9O9O9O9mO9O9N9hells(4 + wafcountPs - 1, cH1)) = "NG" End IfFElseIf InStr(item, "MNA") > 0 Then_Set resCreateObject("ADODB.recordset ")FB.CursorType& adOpeJatic 'αD%-Loc'on/UseClie.ԭ.@Ressql("SELECT D ISTINSUBLOT_ID FROM F3PRD.DWAF_OPE_HIS d2 WHERE  IN ("DLER d GA '" & su@blotid"') AND EX@#_FLG='Y='CPI'Aea C9@sDBConnxio\ReDim arrData (1 To.RMCA(s ingpC7s A A/H!For@SuQ-*su <<`%s'su}<Fields("@u& "',:e ~$]" ]MovepNexte C0lose O= Join("@ @Aa PRESP1; CPTRE1"_Bb bSH M?6C  mins+s*(maxs-)/CUR_$fCNT ;_,i,)sƱd.'`N@O, dh.,dch.COLUMN_NUM MEAS_ITEMS,MOD(  STR(dE6,3),25) 1 ,1 ,/ ddh 7CINNeJO(h` 5k,i,SEQ_SINGL>E j$nj) j ) D ON =S!n'0___QuY z@~8,CS ,0MAX(!2DATA) ~+BT*MS_Ccc/ "8 CO C D*STD |CS -2 qPLc4s.S_TYPE IN('NC-120o O "aP'@ (sW BU','UO r1ƛ@/&pG '.`_CAT" 'OSq8RI'o;  "GROUP B|Y _('H@)_%T ORD:`+ DESC) +w   l 0 OrLMCLTAVGThe9Sc2`CreateObj?("ADODB.r6")+5ursorType adaKStatic 'αͣ޷(_ CB Loc on Use@Client ʸԿ "$wz!c(i$ cšt_ ,cB{w,`5 ,MONITOR_EPI_mclt ~M\K0e`I@NFOS cAC = e!rC =yo@r҄mpODCH# P Ba 2B \bZc _ _ ~sqs: sfU (e A8]][7@FZC\F1 D _Qo`o`/`].]j?]l]] ][]]SPV[[[0w[b[[[[[d[>[az= [Rƿ[R:[Ͽ[ rHc[[}  ׯ[[E[ zoE _[h[.[[d[[[o=#q[=[['[O 18[[[[DCopyFromRecordset res aElsexRange(Cells(4 + wafcount, c1), 6A&s - 1+) = "NG"`nd If#If InStr(item, "MTTMSTRC") > 0 Th4en2SHCreateObject("ADODB.r")#.CursorType&adOpeLatic 'αͣ޷@%-L$oc'on/UseClient.ԭ.Ressql@"SELECT DISTINmin(TO_CHAR(OPE_CMP_DW,'y-mm-dd hh240')) max( ax FROM F3PRD@.DWAF_AHIS d2 WHERE \1& "ID I8N (6D ER dDSUBLOT_@ = '" & sublotid"' AND EX@G_FL@G='Y')ope_id='TpHFT'* *sDBConrnio1@9?Y@1_Y_YQ h YYM *! YMEAS_DATA LeAROW_NUMBER() OV@(PARTITION BY ITEM ORD@R_REG?VDESC ) row_num,dch.**Y MS_C_Xch.LRnOiTah`Ay!`hxPy >=B_ 5.Fields("d{@ ` E< ~ {aq(PRODuLIKE '%03839%' 6 -1289G%v*IDvTMCD=D ='M__02@͢)$:?=1~ *1.hB\@ b #C1y >= 1o2Data0C"ba3oo?2ρρ  Cloo M C EjQEOr<8MCL6ETKER2PMK3_SFMMQW0 jingshuP,Split;", , vbTextCom0pare_y '-2("/ K 001   mea!`s p4i(COCA=D1mSSTDK>2O! bNY12et1uooo/ tsc^qlsO smu""Z@_ _<_zCOUNT_COLUMN_TD%O0O0O0O B .."ï.SC1(0)..  meassets.CursorLocation = adUseClient 'αԣ޷   Open  qls, csDBConnefcuGIf<RecordCou<> 0 Th enBLCOUNT1rD&Fields("COLUMN_NUM"")%smu$"/" & jing@shu1(1E8lse1+XSplit((0), "-", , vbTextCompare]?b"SELECT * FROM COCMEASDITEMSSTD WHERE E_ =' <0")?"'"#4SetrCreateObj("ADODB.rw%brTypeadStcDZAge^-^"End IfD ;UBde) %.bzbbb b?bEG1$aߺN a a1ȭ W2"TF1.boͱ ťÁS1b/bb bbbb2k1?bbb2enbb|?2/iN *.bo߯//./~;0+3o/40]//!o4o4o4o4o4444?l.foo/5/5/5/5o5o5O?1?1?1u1??C 0""OOcRql3ydROUND(F_ᦁ& ",5) data2 ATAINF OS c2$ SUB_LOT_ID#sublotid4 ORDER BY SANO h5 et3jj͟  measset3.CursorLocation = adUseClient 'αԣ޷   *jOpen  ql3, csDBConnecyKElse(qc"SELECT MEAS_ITEM_" & @COUNT2" data2 PFROM CDATAINFOS c2 WHERE SUB_LOT_ID=' sublotid!' ORDE@R BY SNO"#TSetVCreateObj("ADODB.recor2d")(~Ty$peadA_St@ycu;u]Œ4}nd IfQcountpsql2N() >(et(> d?F.: F bE 9ߍ m[GEKO smu1 <> "" ThenQ_QROUNDűQ1,5)b t& c1_Z- _U ț?UߛE2U_>- kd TT I2Ti " #_LTr#p"ppp".Y "pp]iM?p<"v]f"ߓIR1?o"4o1ϓ###D ! et nO /DenߑߑO o!o!o!o!Y72!q|l1C ?If UB`d(jingshu) > 0k;7 Fields("1")oCells(4 + wafB, item).CopyFromR?AVbMT 2. 2  ?< a? !01u Range(1`#1), ÿ$s - 3)ONGOI.~ ?;Next1 "3$counts  sublot.MoveNext DzFRows(1).DelHete.'-+1o.e -`2G+dataworkbook.ActiTvaq'{6 |E nd IfwpSe ' 6Sav8'p_C 'رչ¡%Clos%Wend'Ļˢ@´Application.ScreenUp,ing `= Tru c DBMsgBox "Ϸʾļ" KSub o J0y0ѻxME@`D`` Xp h(% !hH `("`H$p`x h` !``X`H#`p( @) p x+`% `JVVC`>`D8` pp%@ @f  X|%XX(XHXhXXXXXX(XHXhXXXXXX(XHXhXXXXXX(XHXhXXXXXX(XHXhXXXXX X( XH XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXpXXXXXX)@ J  @ @ @ @ p @h P @8 @ 0Hx @)Jzptx @ @ @ @ 8 @h (P 8 @ @ 8 *H vX (  @x XX` @H X(0 @ @ @ @ p X @ @ x @X @@ @( @ @ @ @ @ @  Px @` @H P@0 P( P @ ( @T @ p  pX@sPXh xP @8 @ h x ( @   @HX@  @x p `  H  0 phxp @d @h  @   ((p @X  @ xX( ( @ @   ( @   0 @h X`hx((P @8     @ @ @ @ @ @x X` H @0  /+)(,%0+`++(*,P'8'+x%&)X)Jzptxh @ @ @ @  @h (P 8 @ @  *Hv<hX X( X @x X` @H (0 @ @ @ @ Pp PX @ @ hx @P @8 @ @ @ @ @ @ @  ` p @X @@ ` ( ` p @ @ ` ( `  @ |  | @x @` @H   0 (  H  8 p  p X !( @T @  ! @P!`!@ @p @X x! !@ !!(( @ ! " !"@X"h"@ " @ " " ""( @h " "P (#H#(8 H# 8#(x##( @ # # ##( @ $ $ x$ $Xx $(` $H @0 $ $ @% P% x%X @ %( @ @ h% x%x %%@@ 8'( @ % % & & P& `&( `& x&`&`&&&@''@ 8' @x (' 8'` ((HH ((@0 ((( (( @ @ @ @ @ @p (XX (@@ @( ( (3)X ( @ ) )c(H)dX)( @ p)w )h *w)@P H*(8 `* p"* * (*`H*`8*X**@ *( @ )`+x @` * +H H+`+@0 `+( `+ +),` (,( (, @ @ , ,p , ,h ,(H @0 @ @ @ , ) , k$*\Rffff*SP6c06f1b5"d  L0HP X `h"p x  4dd   L ( 0 (80X0 < XFp** & $ ( "0 X p (        ( *(( DX x  X8h ,0&L`  <    H( $p   H $  BLHP  X .h    ,b   4 F@  PX  2X   ( 08 0h F $d 4 $d L8  P 44p    ( 0 0 F8  P L` <x H @ D@ D   , $8L`*x .L  ( 0 $@(XL ,  $(L( ,x  " (  2 r 2  8  @ H $P 2h 6 6( (H(p((24 (X((((( (H(p(8     ,0 $Hpx$$ ( 0 0 r0 F p   ,0$8P$X Tp   ~ L(x\.   6  88 (P0p0F`&x(">  (88 <P$.p$( (L$$0$"( p@( v`( F,,,,,($$    2J(2H4`V v \ v (8NL@ (00Z .0  (!08!0h!F! ,!p! L! 0" 8"X" `"NLh" ("0"0#F8# ,P#`# (8$0X$0$F$ ,$ p$ % %(%0%8%@% (TH%,p%J% %2%J% %&NL& (X&0x&0&Z& .& ('0(00(F`( ,x(p( ( ((  (H0( (()0H)0x)Z),)) (*0*0+F8+ ,P+p`+ + +++ + + +++   +H,H,T0, H, h, , , ,    , ,$,-^-L0-^H- `-  (p-$^- -- -  (-$^.  .(. 0.jP.^p.. p.,. F..//// / 8(/ 88/ 8H/ 8X/ 8h/ x/ / R// J/J/J0J0J(0J80JH0JX0Jh0Jx0J0J0J0 0 0 0 00  0 1 1 6(1 81@1$.H1 p1 1 (1010142F22 20 2 3$3"<(3 P3&h3 &3&3 3 &3 &3 4 *L4H4   P4`4h4 p4  4 4 <4 5 5 5(5 05  H5 h5 $p5 5 5<5 06&RP6x6 6.6F6 6 6^7 (7 87  @7,lH7x7 7 7@7 7tH8 8F8 8 99^9 09 @9 H9&NP9"Vx9$Z9 29   9 09 :  : L:H(:  @:  P: @X: @p: 2^:   : 8: ;  ; ; ";  ; @; 4X;dh;d; ;  L;;; ; (;0<00< `<<x< =F=**(= X=&h= =$=== "= = > (0> X> p>  > >  > (> *(> D> ? ? (?8h@? ,x?$L? ? <? (@ H@ X@ >~p@ $@ @ @ >~@ $A(A 0A BL8AAA  A .A AA    A$RA B B ,0B F`B  PxBB B 2B4C D ((D0HD0xDFD$dDLD,dE$d0E  XEj4xE E (E0F0HFFxF F FF F F F G ( G HG 2PG rhG 2G G  G G  &GG H XI I JJ J0FJ6 K (PK0pK0KFK K $L 2L 0L8HL L4L(L(L( M(HM(pM(M(M(M(N(8N(`N(N(N(NO  O O  (O,8O $POxO OOO O 4O (XP0xP0PFP P $Q 2 Q  8Q2HQ4Q Q  Q Q  Q,Q $R0R $8R `R hR (R0R0RfTS  hTFTT T0 T T$T (<U 8UHUPU 6XUUU$U  (U0U0Vn8V 8WFHW,`W2pW W W8W  0W$6W R0X(0X(0X(0X( Y 0Y( HY("zPY,4xY,4Y,4Y, Z((Z$0Z 8Z HZ $ XZ hZ   xZ2LZZZ ,Z Z  ZH[H [T8[ P[ p[ [ [ [    [ [$[\TH\ ^p\ ^\ 6\ \ h\^\^] &(] P]8p]^]] ] ] R]8^ @^JP^J`^Jp^J^J^J^ ^ ^ ^ 0^  ^ ^ 6_  _ D(_  p_ B_  _ _$>$' so PoitemA@J|0k(A@A@oX嵥ļļرĻˢ´ (r$>$'H$>$' H嵥ļA@J|kA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]ƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'>Debug.Print wpsql > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]]ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'kx繲·Qnetwork = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\" \ͻģ\ B\ @\'F%Debug.Print srcpath & wpstr & ".xlsx" F @-by wafer.xlsx$x 汾· *!\ͻģ\ B\ @\'жϱǷӦļ $x Ʒļ F @-by wafer.xlsx  H @-by wafer.xlsxA@H  H'dx A@ F @-by wafer.xlsx  H @-by wafer.xlsxA@H  H'kd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kp]жһ±ǷƷļ  H @-by wafer.xlsx$x] ģļ  H @-by wafer.xlsx %. %.J-----------------------------------------------1--------------------------' B@p+ORDER_NO ,PLAN_SHIP_TIME,customer_productSELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyymmdd') shiptime,CUSTOMER_NAME,ORDER_NO ,customer_product FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @L' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,customer_product'[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+>.Cells(3, 5) = idset.Fields("customer_product")shiptime L% +> +>ѭsublotid SELECT SHIP_SEQ,SUBLOT_ID,WAFER_COUNT,MS.SHIP_SUB_LOT_ID,TO_CHAR(MS.PKG_CMP_DTTM,'YYYYMMDD') PKG_CMP_DTTM1,TO_CHAR(MS.PKG_CMP_DTTM+364,'YYYYMMDD') PKG_CMP_DTTM2 FROM COCMEASSHIPLISTSTD c INNER JOIN MES_SHIPTAG MS ON MS.CUSTOMER_SUBLOT =C.SUBLOT_ID WHERE FILE_name=' H' ORDER BY SHIP_SEQ '[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N N+>5 SUBLOT_ID = idset.Fields("SUBLOT_ID")A SHIP_SUB_LOT_ID = idset.Fields("SHIP_SUB_LOT_ID")9 WAFER_COUNT = idset.Fields("WAFER_COUNT")= PKG_CMP_DTTM1 = idset.Fields("PKG_CMP_DTTM1")= PKG_CMP_DTTM2 = idset.Fields("PKG_CMP_DTTM2")''lot_id Dim lotid% lotid = idset.getRowsCells(1, 1) = "=count(AB:AB)"$>'AK65536$v%! '  "A1ԪõһA@J|k sublotid-1 ȡҪ'waf = 3   $> $$>$vB@    $>   $>$vB@H <B@   %$> )$>$vB@    $>   $>$vB@H <B@p T65536$v%!'P$> P$>$vB@ P'R T N R $>!VB@  R P  'R 'X'  N  P manufacture-date PKG_CMP_DTTM1 L%  X  +> expiry -Date PKG_CMP_DTTM2 L%  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +> SUBLOT_ID L%  X  +> WAFER_COUNT L%  X  +> $>  X  +> $>  X  +> $>  X  +> $>  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +>SHIP_SUB_LOT_ID L%  X  $+> LB@''''  ' P  'X'''''''sublot_id ' l N  ADODB.recordset$p.n t n(r0αͣ޷ x n(v3αԣ޷9SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='  $$>' ORDER BY SLOT_NO 'p p ~ nB@ n  $>B@@  '%B = Range("Z65536").End(xlUp).row - 2'  N'   %$>'   $x num = Format(querynum1(team, Cells(i + irow - 1, 17), Left(Sett.Fields("READ_WAF_ID"), 10)), "0.000")E Cells(i + irow - 1, wafer_column + 2 + coun) = num]0]p ;$''  ] y k $' ȡ㷽ʽ $' ȡѯsqlֵ$$'ADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷SELECT WAF_ID,  5 measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='   $$> 'order by SLOT_NO desc '  ~ B@ ]   $> $']]]   $$>$'$ $'  B@r  ! WAF_ID %measdata %'  $X'(ֵ  $$'k 0.000$X   +>   $>NG   +>   $>B@H ! 9 9999q@k8  'k  B@k ;e ; $'   $/ $* $/ $/ $'/' $*e $* $'*'k2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM % $2 data FROM COCMEASDATAINFOS c2 WHERE MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID='  $$>' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !   $>B@@FWorksheets("ԭʼݽ").Range(Cells(4, c + 2).CopyFromRecordset rs2dCells(meas, teams) = ""kd2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' $''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@ ! SELECT MEAS_ITEM_ COLUMN_NUM %2 data FROM COCMEASDATAINFOS c2 WHERE MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID='  $$>' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷  ~ B@ !   $>B@@d Cells(meas, teams) = ""kkk / *e / / $'/' *e * $'*'k2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM % $2 data FROM COCMEASDATAINFOS c2 WHERE MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID='  $$>' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷  ~ B@ !   $>B@@dPCells(meas, teams) = ""k(d 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' ''ADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷  ~ B@ !SELECT ROUND(MEAS_ITEM_ COLUMN_NUM %5,3) data FROM COCMEASDATAINFOS c2 WHERE MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID='  $$>' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ !   $>B@@dxCells(meas, teams) = ""kPkHk@k8  '  xmlļ AH1+v NAH2+v P AH3+vDebug.Print Range("AH1")Debug.Print Range("AH2")Debug.Print Range("AH3")A''''ж A1$v%!'  'OK   +>  $>'   $>'    $>$8 $8NG   +>k@k8    $>$8 $8NG   +>kkСΪ NG   $>NG   +>kh   $>NG $>  $> <%vB@H ! 9 9999q r( r( r( r( r(kxK-----------------------------------------------2---------------------------k$B@v$B@v$B@v$B@v$B@v$B@v$B@v$B@v$B@v$B@v$B@v$B@v$B@v B@ رչ B@B <B@Ļˢ´ (r](]@scripting.dictionary$p.ƷļƷADODB.recordset$p. t (r1αͣ޷ x (v4αԣ޷JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'  ~ B@]X !' ,A¶     PRODUCT_ID % +ƷӦĿͻ PRODUCT_ID %' CUSTOMER_NAME %'   B@  CUSTOMER_NAME %' PRODUCT_ID %'d + PRODUCT_ID % 'k B@ k 1ϲƷprosum  жϱǷӦļ *!\ͻģ\ \ \' $xd A@k ½Ʒļ'һļʼ'   ƵһƷļ *!\ͻģ\ \$\ H$.xlsx  -by wafer.xlsxA@Hжһ±ǷƷļ  -by wafer.xlsx$x] ļ  -by wafer.xlsx %. %. B@pһļ $>  'dļ   .xlsxδҵA@Jkdx'ͬƷӦĿͻ $$'{Debug.Print ThisWorkbook.Path & "\ͻģ\" & customername & "\" & proitem(p) & "\ " & filename & proitem(p) & ".xlsx" *!\ͻģ\ \ $\ H $-by wafer.xlsx %.򿪶Ʒļ %. B@p' $>  'ѡA2:AC   %vB@ $    ,>     %>B@     ' B@ B@Bk AD1+v AE1+vxmlAAD1$vB@ AE1$vB@ ɺϷʳζƷļ A@Jd8Ϸʳ H H xmlļA@JkA@o嵥ļļرĻˢ´ (r$>$'H$>$' H嵥ļA@J|0k(A@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]ƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'>[ > > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B](]@ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dXWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'F%Debug.Print srcpath & wpstr & ".xlsx" F @ -by lot.xlsx$x 汾· *!\ͻģ\ B\ @\'жϱǷӦļ $x Ʒļ F @ -by lot.xlsx  H -by lot.xlsxA@H  H'd8? A@ F @ -by lot.xlsx  H -by lot.xlsxA@H  H'k>d>7繲ûжӦģļ,ǶӦģûзȷ·A@J|x>kp>   B@.k8>жһ±ǷƷļ  H -by lot.xlsx$x]X ģļ  H -by lot.xlsx %. %.J-----------------------------------------------1--------------------------' B@p+ORDER_NO ,PLAN_SHIP_TIME,customer_productSELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME+1,'yyyymmdd') shiptime,CUSTOMER_NAME,ORDER_NO ,customer_product FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' HL' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,customer_product'Debug.Print sql1ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+> +>customer_product L%+>shiptime L% +>ѭsublotid?SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' GROUP BY SUBLOT_ID ;'[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id]x L!f' sublotid-1 ȡҪ T1$v%!'P$> P$$>$vB@ P'R T N R $>!VB@  R P  'RX8'X'װʱ䣬sublot_id,wafer_count SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyyMMdd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyyMMdd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG')and his_cat = 'OC' ' { and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' ' ( ) )order by SUBLOT_ID, his_regist_dttm 'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@Debug.Print sql1  N  P manufacture-datemanufacture_date \%  X  +> expiry -Date expiry_date \%  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +> $>  X  +> $>  X  +> $>  X  +> $>  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +>0 \B@''''  ' P  'X'''''''sublot_id0''''''X''ɳϸκL SELECT SUBLOT_ID,wafer_count FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H6' GROUP BY SUBLOT_ID,wafer_count ORDER BY SUBLOT_ID ; 'ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷  ~ B@Debug.Print sql2  N  P lot_no SUBLOT_ID %  X  +> wafer_count %  X  +>@. B@''''  ' P  'X'''''''sublot_id-''һβsublot_id,'' κADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT FILE_NAME,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN mes_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H'ORDER BY SUBLOT_ID'dDebug.Print sqlSublottt d ~ bB@] b!'h hf1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@*k*/'''''''''''''''''''''''''''''''''''''''''''''''''X l hADODB.recordset$p.n t n(r8αͣ޷ x n(v;αԣ޷select MEAS_ITEMS, TRUNC(MEAS_MIN,5)MEAS_MIN ,TRUNC(MEAS_MAX,5) MEAS_MAX,TRUNC(MEAS_AVG,5) MEAS_AVG,TRUNC(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''p[ p p ~ nB@ n!   P nB@r'ѭ  n!*Debug.Print sheet3set.Fields("MEAS_ITEMS")  X $> MEAS_ITEMS n%(LCells(it + 1 + yy, 26) = Format(sheet3set.Fields("MEAS_AVG"), "0.00000") * 1MEAS_AVG n%  X +>MEAS_MIN n%  X +>MEAS_MAX n%  X +>y1 д˳( '''дd&  X $>$p  X $>  X +>  X $>  X +>  X $>  X +>y%k%k% nB@   '''''d%(ûмݣԺڵECOCA@J|@%k8% P  l'X l xmlļ AH1+v NAH2+v P AH3+vDebug.Print Range("AH1")Debug.Print Range("AH2")Debug.Print Range("AH3")A''''ж A1$v%!'  '   $>   $>   $>   $>'   $>'     %'Debug.Print pd3    $>(^   $>'x x   +> min: uomcolumn-2,max:uomcolumn-1СΪ NG   $>   $>NG   +>k0"k(" "K-----------------------------------------------2---------------------------k! <B@$B@v$B@v$B@v$B@v$B@v$B@v B@ رչ B@B!Ļˢ´ (rA@>MsgBox "Ϸʳ" & FileName & "" & FileName & "xmlļ"κȱʧ:;MsgBox ("κȱʧݣµκܼ")o( Attribute VB_Name = "Ϸʳθ"@ Sub 0() PoitemTrim(Cells(2 3, 7)@If F"" Thenr MsgBox ("h."? E0xit y2En0d If ģ  )6 *,'l嵥0 Ļˢ´ BApplication.Scre enUpdngA~FalseFile1, >2" fconn ectDB\Set wpA= CreateObj("ADODB.records etE .Cur@sorTypAadOpenStFc 'αͣ޷U LoX@TadUseClienta0Dim0sql As S@g 'AƷwp@SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" & l& "' GROUP BY J@'Debug.Pri@:&E)@b.AS4, csDBClC Wh EOF <> True 'ǷΪһcG@ȡ@tr`/C2Fields("J'˾ c cust`omern" ("({5pdsrc5g @path:ԭ!w· һ'ӵ繲A A\\10.A52.142\pcoc\4ServerSharb112ָa@ZrŪadminist ratorPassw`m`1"fthw-82905028IfO@Foldersts()%$H@ 0HEl J NetkÀ Wipt.ǩCfsoing.!fSys# -.MapDrive "H", 1, , ,, ( .1ʁ'E3J'nc"ThisWorkbo0ok.PT \̀ͻ?\Jb!Cmg G L i&@@O".xlsfxJ$s( h-by wafer&'汸5=)"p 0!P1aP鐶Ӧ?G3$ 3pUFh,Copy ", UzcF {xml_BQ=_D /=;MultiLevelC ( b) rc" 1&  4 R' : t";ûA8,ȷQ*80 q w 2EWKT.RemoveL>,{L7X= NoFields("ORDER_NO")7'858customer_product @x0@shipPtime2P`oitemOR'ѭsublotpidw"SELECT SHIP_SEQ,SUBLOT_@ID,WAF~COUNT,MS.UB_TO_ CHAR( PKG_CMP_DT TM,'YMM DD') 1,!+3642 FROM COCMEAS LISTSTD c INNER JOI@N MES_TAG MS O@S.CUSTOMC04 =C.F7 WHERE FILE_name='" & Fil eN@"'  BYFG "XDebug.PriASGSet XCreateObj("ADODB.recorQwCCurs@orTypeadStaticaGgL|oc)h@_@id_cou@K=CG.RACOycx\ @3~:e Ex&a-^fZ`-#rdh_rc22& '''+!P+Dim idpgetRo B0 TheMsgBox ("A1Ԫõaһ)AExit Sub If'%-1'ȡҪSwafY 25Ka'C3+ForASTIE@= 1 To A#+0, 28), 36)).CopRy((A*)@ - 24)@52M@9F + ).SelPTA} veShePaste+Next?q, 37, 41A0yHwt  c%_!3= C "T4xlUp"5 ?!0A c_w0+e_cp)Ec- =s(>)?tireH." Special0+ 5[_)yy0 0;xx>&s~ ;iO AU'manufacture-di8 R&8/hEy'expiry -Dt9kyDr)2v2/g33O=Tp 4wrv 5r6q ulB I!7_ [_1f 11ρ1+??gK1_?(k116?"1n7%1B8?ЃM) ds("SHIP_SUB_LOT_ID") a NextTDidset.Mov:eb'V xx = + 1 yy(copy_row - 2x) *!?sublot_id$oWAF_MEASR0For 6 count1 To C_yAitmesA Set sh0eet3sCreateObject("ADODB.recor .Curso rType!adOpenStatic 'αЌF (Loc"on*UseCl iex) )ql"SELECT ATID FROM COCWDATAINFOS c WHERE  ='" & Cells0(3 + , 36)@"' ORDER BY SNO "6AG]ql, cs@DBConn\i onK 26).CFromRfGq + 25'G G'B@KRange("Z65536").End(xlUp).ĴH@@aG"measitem@ EBa"7LIf f<> "" The,+A`findt`V(5)'Adlnu@mat(query 1(team,DDi@Dic$1, 17), Left(mt.FielREAD_a'0)"0.000lQ waferlumn2`A)`%g,Dim strResult() As @String\2{F Splitaf+, "; flagDGALjjaUBd( 91a@25PDAeExit #!@c Ifs=(.jj'ȡ㷽ʽk3 f 2#s,b1F-1Y ѯsqlֵs Co"H@pc1.2(@TȠLsE*a) 8ododod`d- 7+ "Hdata_f_fbRf+_fSSf0'`xer byFfdesc|f5f$ fyA70y1724O6@GidO6=cPKyty, pmrP?1spRJEv Do@e22Q2( _8=#1r<=6,  L5nV0m"Firs_Ϻ .a= |cCO  poWZUqe_d2) > >C@Q@CDbl9R1)o'q^XG@get(i0, @2`"|2(2?k/;$;72"B e/  /8 "N>GOS .ScbP)25H.TintAndShadq/?e[g 0 $End With#ZIf#Vflag = + 14%\numm.MoveNextV8 ElseIf InStr(measitem, ";") <> 0 ThenRstrcity Split, , vbTnCo@mpare) F`or oo0o UBound(*A) (oo)@*/E*Or1*[2ř]AEf1E!/"E fh"/"OOE Jo_=A.*4.*.!Qsqls SELECT * FROM COCMEASDITEMSSTD @WHERE a_b ='" & (0)"'Set etCreateObject("ADODB.recordset"S(e.CursorTypeadOpekatic 'αͣ޷7=l Loc on UseClient c a!/, csDBConn@!@ion, 3@ ql"63_2 Fields("COLUM N_NUMt& fhI71B7 data ?ATAINFOS c2@ G@? !B' ' a QSUB_L OT_IDcGCells(3 + WAF_!6H ORDER BY SANO _Ks G`"?K'2*&KK- K JJ) _JJIPY%R"8C=bti] , 27).CopyFrom#D-'Workshe`B("ԭʼݽ").RangeZ(4#2t rs2OE\* , teams) 6/(V_ f@.27qlOq[[[" ZSDZZRs.OaBa"ZZZ'Zo2z8(AZ1((((((G((/ t1.(1[_Y7)1:)YCOx\x\oO'VVV;! ~Ё"D? JnĘO fh = "0/"  ElseIf InStr(measitem, "*") <> 0 Then|str city1Split , , vbTextCompare)M*nd IfE!sqlsSELECT * FROM COCMEASDITEMSSTD WHE(RE _ = '" & d(0)"'BSet 4et4CreateObject("ADODB.recordset"u.CursorTypeAWadOpeatic 'αͣ޷8|G)Loc#onUse@ClientxԪ&=@W, csDBConn End If  'Ϊ NGIf Cells(i, uomcolumn - 2) = "" Thenr#t:+ 5:NG~"714RActiveSheet.Range"([1),)).SelectGA|With ion.Interior.Pa tnxlSolidColo@rIndexAutomaticG\ @ 255\ TintAndShade 0 1g |ALhWindow.Scrolfl/= X/ 4s3 2 1 # CNexR'-)2$E /s(28).D`atemn9b '%a~dataworkbook.Sav(A'չaCloswpSMoveA Wen'Ļˢ´ ApplicAkeenUp`iDng~Tru Dim promulti As0 Strdi c_cusername_sXObj¥ = Create#("script .t`ary") 'ƷļB'>! asql+ ADODB.recordxset #.CursorTypadOpenSt 'αͣ޷f*: Lo.@adUseClient ԟ  1 "SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE2='" & F0ileN`"' GROUP BdY } !d , csDBConn!p?a&item%umRCou"nx Re(1 ToBum)p8@AP¶/T> 0&For pd !`1Q(pd1 Fields("g)I /Ӧ`Ŀͻ?<s=k `:;@ros.Add!us/ )t炙)I1 ? trEly[_v+ "+" +E5邛+;gho 0-1ϲ-!>u@ 9P7 'жϱʀǷQ2qc  @sm=`>isWuyhAP\!6`ģ\!R%& "R "_UFolderE@xists()F#b@SmMxLevelc ½cuKfirstrow0/1 'һQʼǀqpdssLQFX 3= ' A=kCopy___XY1)Rq.xlsx",L$&LC -by waferSb*һ*M^$ulti & p rostr"-by wafer.xlsx") Then Dim Firstdataworkbook As W~ 'D,Setl=ks.Open(-m jfkEx@celShe==>.sss(1)).Acti@vate 'һWhile @Cells(erow, 1) <0> "" =" + 1endElsBMsgBox "A@"Cy®δҵ8End If"!''ͬƷӦĿͻScustomername1yyQdic_I_Aitem(p)'Debug.Print@isE.PathA\"\AFBKD f@D! CSp}.pTh@a$& "KBFN@)獖SA7G%~} {Z's# vGn}|SXata |W|'<ѡ *.Range("A2X:ACP-.pCopy.K + pdse~=Y 1msteSpecial3 ,+bD!- G5s%+.SavTCloA_QSQ NextED1{[Ep'xmCall Ϸʳ_cre0u@pDW I.ClearO)A 5h%E,`Ph;eEAO" qLS3cDB Sub?`6 e(jP' 嵥SqرĻˢ´Applica@tion.SenUp(ing 1 Fa6= Trim(=1, 29qPosts(R v $0(\ xNetS@KAWPPipt.T!qfsonS`S.RSym.MapDri$ve`Q, Share, Fals`UserNamHPassword Connect = 1`End If'·D0netkzServer & "\ͻģ\"customern!`wpstr mDebug.Print srcpa th#+.xlsx"/If FileFolderExists(L& -by lot) Then9汾\؋o@=isWorkbooxk.PJt/AжρAǷӦļvQ j'ƷAMCopy K,?Ha mJTxml_m= E CreateMultiLevelCu (8K 0 0ʏ4MsgBox "ûwe,8ȷAHt Sub*MGbh{]!CNcwObj.Removed@Drive Hz, Tru`g 0Set J Nothingg''aһ…a/X~D`STodDim data!{ As |g i'^%8"j =F s.OpenYZ ExcelSheU/=*.ss(1) '-)1 xx`=Ɓ).Activ@y'ORDER_NO',PLAN_SHIP_TIME,_productsql1 "SELECT PRODUCT_ID,to_ c`(K +1,'ymmdd') shipti@CUSTOMA F. FROM COCMEASLISTSTD WHERE F ILE_N@='L' GROUP BY =~'!g#LidsAy("ADODB.rec=" +1.CursorType@ad)Static 'αͣ޷WorLdoc@onB0Clie|6^??C Q , csDBtMio|ECells(`2, 1)Fields("E) v2qPoitemV5-,_X10*'ѭsub@0id)L2 SUBLOQ2,,|c -Q--;߸))u))r+o c)n))) ))) C ))pp_id_cTou0=DR":CG1+'''#/{l0iLAb&1g@etRows'!%-1΋'ȡ?c@_rowRange(@"T1").@(xlDown).K41),$8, 36)).sc_eF or cpp1 ToѾ- 1+ 1B ti repsteS@pecial= S5 Nex(l[yy0 0;t8'װʱ䣬SP ,wafer${@ Ts;,CUR_WAF_CNTvthis_reg_dttm ctMMbtmanufacture_`~eFADD_M@ONTHS(- A2)jexpi ryIF3PRD.DOPE_ where ID in('P@KG','Ea)a1e'OC|' Ha QSTR(`CQ,0,7)||Sj-3)QXQSUB_0!( 2l %D0YINЍCAdSEaYN G IS NULL THE]ELD END SHIP_SUB_LOT_ID FROM COCMEASlLISTSTD c "  sql1 =  & " LEFT JOIN (!\SELECT ,CASE WHEN CUST0OMER IS NULL T EL6 1  Ȃ MES_2TAG) ms `ON c.= .0.mRE FILE_NAME ='" & FileName"') )order by J, his_regist_dttm$Set lot= CreateObject("ADODB.recset")}C.Curs@orType@adOpenStatic 'αͣ޷Ј\Loc@onBUseClient(%, cs@DBConn:ion!'Debug.PriAGFor s(1 ToS_id_count icopy_row - 1 'manufacture-dn Cells(i + yy1, 8)DoFields("h _a >expiry -D9z /1 2, 1Ra22$%33445510 AcA1L**H1*d*1*f +1?+&K+1+&6k+622z7+7?%Bt]8q0Nexa}MoveH'6lxx@A@+G= (II) * xx@`sub`OC'c A= 0''ɳκœ1>3Y2` "  pwaf|erXόƌExnPw?x' GROU0P BYq^ ORDER ;v vvt vvWqvvvvvvv"UvY_v7]v2/_v_vo_v_v'-no_fBu&/u#OrCJ,b6cRb@'99@@@'&'@@ @CһβЦC,0sI@ !SGo5/C5555Oor6666 t!D"$ODLINvĞ,GMUB?ӽmese" _? ms=wA` 7Tac.l_o Oc(t}..U!]Dim 6it em/7count = sqlSublot.RecordCo ReDim subitem(1 To0lc^) 'A¶@If t > 0 Then(For-i w3Mi)Fields("SHIP_SUB_LOT_ID")'MoveNext End If̓',xxyy0́ ESet sheet3s@= CreateObject("ADODB.rBF.CursorType!adOpenStatic 'αͣ޷Î@S' LoconUseCl ie ql"sel< MEAS_ITEMS, TRUNC(BMINH,5) ,A6XMAVGSTDEVCPCS from COC!DATASUM where FILE_NAME ='" & FileName"' AND CDw& DFLAG='F'"30Debug0.Pri,1ql5>Jql, csDBConn@,|io4Pi a_i!copy_row - 1_JxFirsy'ѭ mesIÖ7'P0et.?ŗFBV9I~ -Cells(&+ 1 + yy, 2~9£  e' 6 `%mat(0 e"), "0.0") *?9M / 27x'?3 8 AX ExP*'д˳Qks_Else_*IsNumeric(=*)( 2(! ?T!? 22!!?9 V _Uri_ Co_/0qMsgBox "ûмԺڵEp{o!( vqYЅR3+ uxmlļ_ Range`H1 @`= _pat6h2_id_ A93 x    0Call Ϸʳ_c0,1Ss'ж P= 0. %(xlDown).f2qcuom colum1293wW, 7) <> "" Or O 2 3?o 1gqlowCharP1aup+ 3A(pd3@ c pd:.c( , uomcolumn, i)  'Debug.Print pd3*Cel@ls(i,  + 6).For@mula =PValue B*oFN4'min:P-2,max:X-1СΪ NGIf c- 2)M"" And1Then-Gؔ-NG"Ey9IfCNext '-+2 DwpSet.Move5¦s(29).DeleteCB 'D/@(dataworkbook.Sav'.'չa Clos CWend 'Ļˢ ´Application.ScreenDUp ingzT,ru cDB'MsgBox "Ϸʳ" & Fi@leName@"-xmlG@κȱʧ: % ("ܼ˔"  @Subsr6xME(` %` %F 0%0@P`p 0@P`p 0@P`p 0@P`p 0@P`p k$*\Rffff*Sy6c06f1fe "  ( @P h  x 0008 P`h* 8H h "   ( 0 H  ` p x  *   8 PP  < 8 P ` p 2    2 ( 0 B8         &( P Ph   00 (( P p  X  h 0 0  $ ,( *X   j   08 0h    , T(  0 0   2  X D XH \ @ *@ p <x 8 N L@ P X *8 ,h  $  0    @H"Px    *    0 P  8p   ***  .P .  h00 <>P<<*,@ pH,V X h p x  $$$$($P,xV  (08@ H P `p  Hx   *  "  DH       P0 J         R p x            *  P ` 嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H1.xlsxA@Hd8 A@ Ʒļ  @.xlsx  H1.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|xkp   B@.k8жһǷƷļ  H1.xlsx$x] ģļ  H1.xlsx %. %.J-----------------------------------------------1--------------------------' B@p total_qtySELECT SUM(WAFER_COUNT) WAFER_COUNT FROM(SELECT SUM(WAFER_COUNT) WAFER_COUNT,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' group by SUBLOT_ID)'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ WAFER_COUNT L% +>ORDER_NO ,PLAN_SHIP_TIMESELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyy/MM/dd') PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,LOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' HB' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,LOT_ID'[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+>%Cells(24, 2) = idset.Fields("LOT_ID")PLAN_SHIP_TIME L%+>ѭsublotidSSELECT lot_Id,subLOT_ID,WAFER_COUNT FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H''ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id Dim lotid% lotid = idset.getRows>SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H';'ADODB.recordset$p. t (r2αͣ޷ x (v5αԣ޷  ~ B@', For subs = 1 To sublots.RecordCount Resistivity = "select d.SUBLOT_ID SUBLOT_ID,d.SLOT_NO SLOT_NO,d.READ_WAF_ID READ_WAF_ID,RF.MEAS_DATA MEAS_DATA from F3PRD.DWAFER d LEFT JOIN (SELECT * FROM RPTVQUACOCF WHERE MEAS_TITLE not in('Slot NO.') AND sub_lot_Id ='" & sublots.Fields("SUBLOT_ID") & "' AND MEAS_ITEM ='MEAS_ITEM_448') rf ON rf.READ_WAF_ID =d.READ_WAF_ID where d.SUBLOT_ID ='" & sublots.Fields("SUBLOT_ID") & "' order by d.SLOT_NO"> Set Resistivitys = CreateObject("ADODB.recordset")R Resistivitys.CursorType = adOpenStatic 'αͣ޷U Resistivitys.CursorLocation = adUseClient 'αԣ޷9 Resistivitys.Open Resistivity, csDBConnection# Sheets("Sheet2").Select5' For Resi = 1 To Resistivitys.RecordCount2' Cells(wafsum + 1, 1) = "A1010060"H' Cells(wafsum + 1, 2) = Resistivitys.Fields("SUBLOT_ID")F' Cells(wafsum + 1, 3) = Resistivitys.Fields("SLOT_NO")J' Cells(wafsum + 1, 4) = Resistivitys.Fields("READ_WAF_ID")R' Cells(wafsum + 1, 5) = Round(Resistivitys.Fields("MEAS_DATA"), 6)$' wafsum = wafsum + 1&' Resistivitys.MoveNext' Next' sublots.MoveNext Next)Sheets("Sheet2").Name = filename & "-res"Sheets("Sheet1").Select'X'I65536$v%!'H H  'J   NA15:L H $v. B@A J   $vB@   '   N subLOT_ID L%' WAFER_COUNT L%' subLOT_ID L% J  X +>  J  J   X $>' J   X $>'L J   X $>'N 'Cells(a + 19 * a + xx + teams, 1) = lot'Cells(a + 19 * a + xx + teams, 2) = cumcSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE subLOT_ID =' ' AND MEAS_ITEMS =' ' and FILE_NAME=' H''ADODB.recordset$p. t (r2αͣ޷ x (v5αԣ޷  ~ B@ !MEAS_AVG % J   X +> MEAS_STDEV % J   X +>MEAS_MAX % J   X +>MEAS_MIN % J   X +>  J   X +>OK J   X +> L  N MEAS_MIN % L $8 MEAS_MAX % N $8 NG J   X +>A J   X :G J   X $vB@H ! 9 9999qhk`kXdP J   +> J   +> J   +> J   +> J   +>NG J   X +>A J   X :G J   X $vB@H ! 9 9999qk X 'X LB@A Set p_workbook = Workbooks.Open(ss & filename & "1.xlsx") p_workbook.Save$------------------------------------ B@  H.csv 0 B@=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalI:I$B@H B@J:J$B@H B@K:K$B@H B@L:L$B@H B@J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@ رչ B@B p_workbook.Close Ļˢ´ (rA@о H resļA@JoAttribute VB_Name = "о1" Sub D() '嵥ļ 2'رˢ´Z Application.ScreenUpd ngFalsBe'FileTrim(Cells(1, 2)w If $"" pThen< MsgBox (" "I(Exit oEnd/connectDBSet wp= CreateObj("ADODB.recordset..CursorTypadOpenSt{c 'αͣ޷ "LoadUseClient#ԕ#Dim pdsrc As Sngk wpsqlv!Ʒ"ss aaARangoSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &G|& "' GROUP BY J@AwO]n9, csDBCCv7Whw.EOF <> TrueAǷΪһGE'ȡ@ trhFiel0ds("* 'õ˾"AcustomernB<("7p@vpathhAsԭā/·һ'ӵ繲a+H<\\10.A52.142`\coc\. ServerSharb112ģ@\rőadministratorPassw`o."fthw-82905028 hIFoldersts(^)(%DE@ 0 El%t Net] k# Wixpt.)Aaf soing.System# C-.MapDrive "",I)2, ®, ,, %)Kg 1)r'%FaK%S=Ax\ͻA?\|^!oi ')K` \  & hDDebug.Pri&y` .xlsxHqK'汾\ &)=QisWorkbook.P{&B)&4ƥ*xml_BD= 7W[w3ss '1,Copy /",[@`|"1=8Q7MultiLevel (  !2 !  31@ ċ"'5ûжӦ2!Y,$8*ۍ};P,=P+M.RemovejE8,rsEkMdQNoth`MW  'yȻ!z_-/:~s D%,qu a]18u8 v򿪕a:= %s.q  ExcelShe= z.s'-1xxka .Activ'total_qty71@"4SUM(WAF@COUPNT) a(,SUBLOQc?bV' group by )5iA ~OA"T 'u3) Q 9, 3)@Ux'ORDO,PLAN__TIME?",to_c "(,'y/MM/dd') ʴ,,#B&ɿտ D< ,O% ql86'CUx13 = adOpenStatic 'αͣ޷  idset.CursorL$oconUseClient0' sql1, csDBConnectionCells(6, 3){Fields("ORDER_N(O")7'824, 2LOT_,ID87PLAN_SHIP_TIME D'sublotidi"SELECTa_Id,O,WAFpCOUNFROM CO CMEASBLISTSTD c WHERE FILE_name='" & FileN@"'"a%Set QCreateObj_("ADODB.recor~8`ÄType??K)(^id_(cou=CG.RACO'''  ' ! Dim idO*getRowsSUB ; A s _ADA? K a BBqwafsum@"1 7ForA%1 TofDj@Resistivity "sell d.G9&,;NO S READ_ @ h,RF.a_DATA 'from F3PRD.D d LEFT JOI(N (*GRPTVQUAF# TITLE nBo@n('ST NO.') ANDA_ ` C%+s")"ITEMf_448 rf ON Hrf.i=dw0here&& "' er bya*_*4A4`U P=~ Oo{ͣ޷  measset.CursorLocation = adUseClient 'α)Open bql, csDBConneccIfARecordCou<> 0 ThenGCells(aaa *@ A + 5teamsyy, 3)q~Fields("MEAS_AVG")3*4*STDEV5+5+MAX5*6IN57cum O12"OK"ӇAxiax "" Or shangWҁMA < Vatl()S Aa >B )X]YDCNGXCR@:e("A" & ջ@":G9).Sels7/a Wit h .Int`erior.Pat`xlS0olideColorIndex@vxlAutom5c?.B255.TintAndShade>0_E? eEnd !) !IfuElse36MĠ>"4L"l, Bd=p?oyy?o;o?n)K`ER,6R96655e4?8 1041 Next1p= @+ 2 idMove#K 'Set p_workPbook@Ws".(ss fi@lename 1.xlsxv6.SavH` %` % 0%0@P`p 0@P`p 0@P`p 0@P`p 0@P`p k$*\Rffff*SK6c06f1b5 "  ( @P h  x 0008 P`h* 8H h "   ( 0 H  ` p x  *   8 PP N 0 <H     2   ( 2@ x  B       8 X ` &x   P   0 00 8 BP <   @ L8 P   0 0   0 H ,h "   2 2  4X    N    >8 @x D .D0 x  00(X p<<<Ph x$,$ ((((($   $,@$ p((((($  $,$ (0(8(@(H(P$X `h x$,$ ((((($  V(    * 0 H `  ,p  8 D    P0 J     >  0 H RX        ( 0 H X h*p   嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hkdx7繲ûжӦģļ,ǶӦģûзȷ·A@J|(k    B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@p total_qtyZselect sum(WAFER_COUNT) wafcount,PLAN_SHIP_TIME from COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' GROUP BY PLAN_SHIP_TIME'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@< Cells(2, 7) = idset.Fields("PLAN_SHIP_TIME")6 Cells(2, 8) = idset.Fields("wafcount")ѭsublotid8SELECT SUBLOT_ID,WAFER_COUNT,SHIP_SUB_LOT_ID,HIS_REGIST_DTTM,HIS_REGIST_DTTM1 FROM ( SELECT c2.SHIP_SEQ,c2.SUBLOT_ID,c2.WAFER_COUNT,mg.SHIP_SUB_LOT_ID,TO_CHAR(DH.HIS_REGIST_DTTM ,'YYYY/MM/DD') HIS_REGIST_DTTM,TO_CHAR(ADD_MONTHS(DH.HIS_REGIST_DTTM -1,12),'yyyy/mm/dd') HIS_REGIST_DTTM1 FROM COCMEASSHIPLISTSTD c2 ' >INNER JOIN MES_SHIPTAG mg ON c2.SUBLOT_ID =mg.CUSTOMER_SUBLOT ' AINNER JOIN F3PRD.DOPE_HIS dh ON dh.SUBLOT_ID =mg.SHIP_SUB_LOT_ID ' WHERE FILE_NAME =' H' AND dh.HIS_CAT ='OS' ) GROUP BY SUBLOT_ID,WAFER_COUNT,SHIP_SUB_LOT_ID,HIS_REGIST_DTTM,HIS_REGIST_DTTM1,SHIP_SEQ ORDER BY SHIP_SEQ 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id Dim lotid% lotid = idset.getRowsF65536$v%!'   '   N+ lot = idset.Fields("sublotid1"), lot1 = idset.Fields("SUBLOT_ID")- cum = idset.Fields("WAFER_COUNT")7:  $B@H B@     :     $B@H <B@  N SUBLOT_ID L%    +> WAFER_COUNT L%    +>HIS_REGIST_DTTM L%    +>    $>HIS_REGIST_DTTM1 L%    +>k    $>'  $>'&   $>'(   $>'*   $>', cSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID ='SHIP_SUB_LOT_ID L%' AND MEAS_ITEMS =' ' AND MEAS_PCS <>0'ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@  !MEAS_MAX %    +>MEAS_AVG %    +>MEAS_MIN %    +> ,  (  * >=MEAS_MAX % ,     $>B@H ! 9 9999q k * >eMEAS_MAX % ,    $>B@H ! 9 9999qP kH k@ & <=MEAS_MIN % (     $>B@H ! 9 9999q k & <eMEAS_MIN % (    $>B@H ! 9 9999q k k k d B    :D    $vB@H ! 9 9999q@ k8 k0 ( LB@ 7:    $B@H (* | B@vi:m$B@H B@%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ7Set p_workbook = Workbooks.Open(ss & filename & ".csv") (Columns(8).Delete (K-----------------------------------------------2---------------------------kH <B@ B@p_workbook.Save رչ B@Bp_workbook.CloseĻˢ´ (rA@人 H resļA@JoXPUAttribute VB_Name = "人" Sub @() '嵀ļ 2'رĻˢ´Z Application.ScreenUpdngFalse'FileTrim(Cells(1, 2)!w If $"" Then< MsgBox (""I(Exit oEnd/connectDBSet wp= Crea teObj("ADODB.recordset..CursorTypadOpenSt{c 'αͣ޷0 "LoadUseC lient#ԕ#Dim pdsrc As 2Sngk wp8sqlv!ƷDss aaARango@SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &G|& "' GROUP BY J@AwO]n9, csDBCCv7Whw.EOF <@> TrueAжǷһGE'ȡ@trhFie`lds("* 'õ˾0"AcustomernyB("7p@vp8athhAsԭ0ā/·һ'ӵ繲a+H<\\10.A52.142\coc\. Server0Shar112ģ,@\radministratorPassw`o."fthw-82905028hIFoldersts()(%DE@ 0 El%t Net k# Wipt.)Aafsoing.System# -.MapDrive "",)2, ®, ,, %)Kg 1)'%FaK%S=Ax\пͻA?\|^!i ')K` \  & hD'ThisWorkbook.PiDebug.Pri &X`".xlsA51Copy /,[@ .=Q0q1qrrr/!rrrr!o_s_s_s s |qls9P;<|> O9pu `0< OA 4pQ4"Q%ulb&F 4`V3qG.\"X?3axsOr PDORwA">=?_UGQo >= m /=/mQo/With ǁInterior/?}t01xlSolќColorIndexPRxlAutomѲ?_P 255__TTintAndShad0PabrOuElse)**?1*S_@ >*o***?**?*_**tomatic  $.Color = 255(TintAndSPhadex0(tP@attern3AEnd WithoIfIf minfr"<=" Then>easset.Fields("MEAS_MIN") <=)s%Cells(m)1 * a1 + item, 4).Select_(AR  @ion.Ineilor#.rGxlSolidŸ IndexBAu&.[)lse?Tc ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  JyANxME@``p %@( @fp  h%@( @ @ @ X @  @ @ @h @P @8 @ @ @ @ @  h @ @p hXX h@@ h( @P @ ( @T @ } }x @` @H @0 @ H @ @  xp @d @hX @ @(   0 X X ( X  @ H X   ( @h  P    (8 @ 8 H   X  @  ( 8k$*\Rffff*SI6c06f1b5/"  ( 4@dP h  Lx  (0008 P<`F** 0&@ `$x "   ( ( @  X h  p (x *( D  8n@HRh  8n  $   2(  ` h x 2    BL ( 0 .@ X`    hR   & F  PX ` pX (P0p0F(d  X0  8  (H 0h 0 F $d "d *d0  ` X  0  (@ 0` 0 F        0  LH  L`  x  ^        2  ( @ 2Hr`2      &  P  J Ph6 0 h x&  (00F8 P $`2x84:   ` p , $  \ 8 (P0p0vF` x 0  $(<  0 8H (P0p0X4F(,@ LPpx $  n F *$0*t ,tP*t*t80 0*t8hpx   ,  ^^ L8P X h$p0 B L L >0  P Vh L L &  B L@!X!  `!h!p! x!J!J!J!J!J! !"! D"    PX" J"    "$# 40#J@# 6P# R`# # #  # # # 0$ $ ($ 0$ 6H$ X$  h$8p$  $ $嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'[  @.xlsx  @.xlsx$x 汾· \ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hk0d(7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@p total_qtySELECT SUM(WAFER_COUNT) WAFER_COUNT FROM(SELECT SUM(WAFER_COUNT) WAFER_COUNT,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' group by SUBLOT_ID)'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ WAFER_COUNT L%+>ORDER_NO ,PLAN_SHIP_TIMESELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyyMMdd') PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,LOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @B' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,LOT_ID'[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L% +>LOT_ID L%+>PLAN_SHIP_TIME L%+>ѭsublotidHSELECT SHIP_SEQ,SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' AND PRODUCT_ID =' @0' GROUP BY SUBLOT_ID,SHIP_SEQ ORDER BY SHIP_SEQ '[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id] L!f' sublotid-1 ȡҪ+>demo+>' $> 'P  'H Cells(29, 1) = ""[ P +copy_row = Cells(st + 5, 1).End(xlDown).row$> P $>$vB@ P'R T N R $>!VB@  R P  'R`'X'װʱ䣬sublot_id,wafer_count SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyyMMdd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyyMMdd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG')and his_cat = 'OC' ' { and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ' ( ) )order by SUBLOT_ID, his_regist_dttm '[  '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( :)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@[   N SUBLOT_ID \% X  +>manufacture_date \% X  +> expiry_date \% X  +>CUR_SUBLOT_WAF_CNT \% X  +> \B@'''' P  'X'''''''sublot_id8 '''''U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' κADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT SHIP_SEQ,FILE_NAME,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'd d ~ bB@[ d] b!'h hf(1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@ bB@BkADODB.recordset$p. t (r#αͣ޷ x (v&αԣ޷2select * from COCMEASDATASUBSUM where FILE_NAME =' H' AND LOT_FLAG='F''  ~ B@ ! Hó嵥A@J|k B@B'X l hselect MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''  ~ B@ !  P  X $> MEAS_ITEMS %MEAS_AVG %  X +> MEAS_STDEV %  X +>MEAS_MAX %  X +>MEAS_MIN %  X +>MEAS_PCS % MEAS_PCS %  X +>dMEAS_PCS %  X +>kk B@h P  l'X B@B8ж A1$v%!'' $> $>demo +>k  '   $> $>item  $>  $>  $>  $>'  $>'    %'Debug.Print pd3   $>(^  $>'x x  +> min: uomcolumn-2,max:uomcolumn-3СΪ NG $> $> $>NG  +>kkkɾid$B@v$B@v$B@v$B@v$B@v B@  H.csv 0 B@=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H.csv %. ($B@v (K-----------------------------------------------2---------------------------k@ <B@ B@ B@ رչ B@Bp_workbook.CloseĻˢ´ (rA@ H H resļA@JoPHAttribute VB_Name = ""@ Sub @() '嵥`ļ 2'رĻˢ´Z Application.ScreenUpdngFalse!'FileTrim(Cells@(1, 2)w If $"" T8hen< MsgBox (""I(Exit coEnd/connectDBSet wp= CreateObj("ADODB.reco`rdset..CursorTypadOpenSt{c 'αͣ޷ "LoadUseClient##Dim pdsrc As S ngk wpsqlv!Ʒqss  SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &w& "' GROUP BY JrCJWi3, csDBCq@2Whq.EOF <> True<жǷΪ׀һ@a'ȡ@tr@cFields("*ə'˾ "Acust`omernCB("7HAkqpathMcADnԭ ā/A·һ 'ӵ̀繲a+F<\\10.A52.142\0coc\. ServerSh ar112ģ YradministratorPasswl."fthw-82905028hICFoldeBr }sts()/%DE@ 0 Elt Net .kkW`ip@'𱾵k`_ _a e'Euxml_"}= \4ssQ &Copy "3,[?Z2 1MultiLevel ( o !2o o o M-17/"2ûж0V,ȷa', /h;MJ.RemoveB[,pB1KdFONothJ? Dwһdwo0 m copy_rtow`jKA j + 1 enm$' [e 'H) st@5.End(xlDown).+Range(2,DE `3)).C9Kc_!kFor cp#1 ToC'N--"%! &tire@E.PasteSpecial ! `+ e - 2a.Nextyy0kxxk'װʱ䣬W,waxferj C'CUR_WAF_CNT,to_char(his_regist_dttm,'yMMdd') manufacture_dADD_MONTHS-12)expiry"F3PRD.DOPE_ where ID in('PKG','E)and a@ %'OC'H" & " QSTR(`e,0,7)||Sj-uPX"`UB_0!bkz( ~ D pmINPpCASEmN hF IS NULL THfErELE?o=tt??" LEFT JOIN _  = !E' CUSTOM0S k "?!= R MDESTAG-s ON c.ms.m(NAME;OqGHO N ) )@er by V ,1;' 9w'ship_se^qoE"52*s<(,'М/-t4/-Ҩ+/-DߡС*(Ѡ,(dQ(5 (OT (& &D&@F@ŭ=$e߭Rޭ/)cP__!;)-p " )pkg{d3:=4~-  apa= j,ۏ// ?ad??d 5 0 ThFeForiy`b1  (i!vAVDe .L,CloseOEnd Ifnumm` a_[h?7@2 "sel@YfromeDATA{SUM wh0ere nxFLAG='F'Dj"h g`M"h[ N@MsgBox}ó嵀(yExit iYy0s,e7,?"#`X_ITEMS, ROUND(MINH,5) ,AXZAS_MAVGp^EVPCS OBOETT7^T;4E bCW" _TWh] BEOF <> Tru8 G3"|o k50&ài , 8F2F2")Nr"߯`Jg;4|___, 5_Q$??36?2IN?75<(> 257_Q/ 2_El[t& o)E5g#kWend'J098(N{'жallVRange1"). (xlDown)~.Sr}9$,v :"W6= "demo"/ ie[hv;14v;@ 3a? A TAM ~G 9)H"r 0_ UOa 6 jlowChar 9?'Vup}11pd3c@ pd.determine( , U, i_ 'YC13).p mula Y Value = Cells(i, 13) ?H JhxZ'min: uomcolumn-2,Pmax:3:СΪ NG/If6)"" An d51) <> Then.C}|"NG"Ey` 8%@X8 @f 0 @  %H(8HXhx(8HXhxXH @0 @  *vH( H (( ( @ Xp @X (@ @( @ @ @ @ ( @ @ @x @` @H @0 @ @ @ (   ( p @* @ ( (h @ P @8 ( 0 @ @ @ @ @ X @ @Lh P r ( p @ ` ( @T @ @ y`  P y | @ @ @p ~ X  ~ (@ @( 8 H  `   p    ( @      P ` ( @h x  ``   H  0   ( 8  P p ``   p @d @h 0 @h 0P X8 ( @l @  ( @ 0 x x` @nH @0 @  @  @ # (#8 , @ @p (X @ @( F F(pK@ @ @ d di  ph `P @8  @   @  @   x ` @ H 0 @  @  0@ Xh    ( @h 6``6HDX(H @0 pF F FHK X@ @t @v @6 @p (X @@ @(  @ m m@ 0mps( @  x (8@` @H @0 P` @ @ @  0@( @p XxX h@ (   H @ ( 8 @ h P 0@(8 @ Xh  ( @  p Xx h` @H 0 x@k$*\Rffff*S76c06f1b5"  0 4HdX p L  (008@<XF** (&8 X$p  "   (   8  P `  h (p *( D  8h<@@L  <  f0 v  BL`h  p .  L ,&. >8>H X`4p (00 FP2lh      D RP    D R `  h  DLp    0t     F68  F  P    L  48    ( 0 0P F           (0 X 2` fx   $ & (00F( @8X2p4 *v  B8    ( $x   "8 H X  6`   &(,x  | ((0H0x  F 8 "     2v0.vh ^2^d F0@HPX`h 8p 8 8 8 8     ( @PX(`  |  (0(0XF  8 "    2v .vH  x ^ 2 ^ d! F !0!8!@!H!P!X! 8`! 8p! 8! 8! 8!!  !  ! !  ! ! " ("08"0h"T"  H$FX$p$ x$0 $ $$$$ <$  %(%0%  8%P%X%`% h%$x%$% n% n% D% (0&0P&0&L&F@'X'@`'z' ( ( (*(( X(x( (( "x(b(^()^)`) 4H*4*4* .*4 + X+n`++J+ 2+ $+ (+0+0 ,LP,F,,@-B -Lh-- --(-l.hp.h.j@/ 4/4/4 0 .X040 0n00J0 21 $1 (810X101L1FH2`2@h2B2L2 3 (383(@3lh3h3h@4j4 454P545 .545 (6n06P6JX6 2p6 2$6 (60607L87F78@8B08Lx88 88(8b9^x9^9`8: 4:4:4; .@;4p; ;n;;J; 2; P~<H4P< (<0<0<Z=,8=6H= (>0>0>F?@?,8?8H?? ? 8?? ???"x?b@^@^@`@A 4A4A4B .HB4xB BnBBJB 2B 0C:8CxCC>CVC vC vC NLD (PD0pD0DFD &D NLE (XE0xE0EFE &E F (F0F0(GFXG@pG,G^Gh0HhH pH 8xHH HHjHl@IhIhJjJ 4J4(K4`K4K .K4L 8Ln@L`LJhL 2L LVL NLL (M0(M0XMFM &M M (PN0pN0NFN@N,O^OxO O 8OO OO"xObP^pP^P`0Q 4Q4Q4R.8R4hR RnRRJR 2RR "$S4(S  `S (hS0S0S.S UF8U,PU0`U0U2U0U0(V XV 8`VHV FVVVWWWW 8 W 80W 8@W 8PW 8`WpW xWW^W<W 4X8X@X  PX  `XpX  PX JX 0Y ,HY>xY 0YLY >Y>Y Y8Z 4HZ.XZ 6pZ Z  (Z0Z2Z > [" `[BF[ [F[ \L\L0\LH\&d`\  \\  \ (\0\2](v8] _ |_  (aF8a PaL`a$da aa  a a a b b^b 0b @b Hb Xb2hb b bbbbb$bpbccc  c28c JPc`c hc (c0c2cXd hd xd e 0e" e: e0F f, Pf f |fFh h h8h0h.v(i Xihi pi i iVi*i (i0j0@j (xpj B2hl l|l  Fn n    n8o&v o HoXo `o o>oLoo RoJ p 0p HpJXphp pp$p $ppTHp ^ q ^8q 6Pq pq hq^q^q &q rN0 r^prr r r \r\r\r\r  s @s Xs  hs xs s s 0s s  s s 6s  sLt t 0t]X嵥ļļرĻˢ´ (rĻˢ$>$'H H嵥ļA@J|XkPA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]ƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'F *!\ͻģ\ B\ @\'[  @.xlsx F @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ_FileCopy network & wpstr & ".xlsx", srcpath & Vendor_Code & "_" & PLAN_SHIP_TIME1 & "_001.xlsx"oFileCopy network & wpstr & ".xlsx", srcpath & Vendor_Code & "_" & Part_No & "_" & PLAN_SHIP_TIME1 & "_001.xlsx"d7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kX F @.xlsx$x%ģļ,ȡverder_code po F @.xlsx %.& &%B@pF5$v'(F7$v'* ȡʱJSELECT PLAN_SHIP_TIME,FILE_NAME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' H''ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@PLAN_SHIP_TIME \%yyyyMMdd$'  &B@ &B@B ƷļжϱǷӦļ $x F @.xlsx  (_  _001.xlsxA@H F @.xlsx  (_ *_  _001.xlsxA@HdP A@ F @.xlsx  (_  _001.xlsxA@H F @.xlsx  (_ *_  _001.xlsxA@Hkd:繲ģļûзڶӦλãӦ·ûģļA@J|@k8жһǷƷļ  (_  _001.xlsx$x] ģļ  (_ *_  _001.xlsx %. %.J-----------------------------------------------1--------------------------' B@p %B@pѭlotidcSELECT DISTINCT LOT_ID FROM (SELECT LOT_ID ,SHIP_SEQ FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H@' GROUP BY LOT_ID,SHIP_SEQ ORDER BY SHIP_SEQ ) ORDER BY LOT_ID '[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id] L!f'lot_id-1 ϱ ȡҪ D1$v%!'P$> P$>$vB@ P'R T N R $>B@  R P 'RP'X  N SUBLOT_ID,,PO_NO,Ship_dateiSELECT SUBLOT_ID,WAFER_COUNT ,PLAN_SHIP_TIME ,ORDER_NO,LOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' H' and LOT_ID='  $' 'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@Debug.Print Sql1  \! SUBLOT_ID \%  X +> WAFER_COUNT \%  X +>PO No.ORDER_NO \% X +> Shipping DatePLAN_SHIP_TIME \%yyyyMMdd$ X +> \B@h Batch No.  $ X +>Batch Quantity \! X +>'''''''lot_id P 'X  ' /''ѯHIS_REGIST_DTTM дװʱ----- MFG Exp'X' װʱ䣬sublot_id,wafer_count  SELECT * FROM ( SELECT LOT_ID ,CUR_SUBLOT_WAF_CNT,manufacture_date,expiry_date ,ROW_NUMBER() OVER (PARTITION BY LOT_ID ORDER BY manufacture_date,LOT_ID ) rn FROM (  SELECT LOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyyMMdd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyyMMdd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG')and his_cat = 'OC' and LOT_ID in( F SELECT DISTINCT LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H'  )))WHERE rn =1 ' '''ship_seq  SELECT DISTINCT c.LOT_ID ,CUR_SUBLOT_WAF_CNT,MANUFACTURE_DATE,EXPIRY_DATE FROM (SELECT LOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( )pkg ON c.LOT_ID =pkg.LOT_ID 'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷[   ~ \B@  \!'''''''lot_id'MFG,EXP \!',manufacture_date \% X +> expiry_date \% X +>OK X +> X $> X $> KNG X +> X  <%>B@H ! 9 9999q r( r( r( r( r(k8 \B@ P 'X  'Debug.Print sql1 "''lot_idб²װʱ N ,'X'  RSELECT DISTINCT t1.LOT_ID,CUR_SUBLOT_WAF_CNT,manufacture_date,expiry_date FROM ( SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H'  ) t1 JOIN (  SELECT SUBLOT_ID,LOT_ID ,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyyMMdd') manufacture_date, to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyyMMdd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG') and his_cat = 'OC' and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H*' )) order by SUBLOT_ID, his_regist_dttm , )t2 ON t1.lot_id=t2.lot_id ORDER BY LOT_ID ') '''ship_seq  SELECT DISTINCT c.LOT_ID ,CUR_SUBLOT_WAF_CNT,MANUFACTURE_DATE,EXPIRY_DATE FROM (SELECT LOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( )pkg ON c.LOT_ID =pkg.LOT_ID'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@[   \!'''''''lot_id'MFG,EXP \!',manufacture_date \% X +> expiry_date \% X +> \B@OK X +> X $> X $> KNG X +> X  <%>B@H ! 9 9999q r( r( r( r( r(kH P 'X  ' Debug.Print sql1kϵͳκADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT FILE_NAME, ms_lotid,LOT_ID FROM ( SELECT DISTINCT FILE_NAME,ship_seq,ms.LOT_ID ms_lotid ,CASE WHEN ms.LOT_ID IS NULL THEN CUSTOMER_LOT ELSE ms.LOT_ID b END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN mes_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H&'ORDER BY ship_seq ) ORDER BY LOT_ID 'd[ d d ~ bB@] b!'h hfP1A¶ h  j h & filename & 'XLOT_ID b% j+f bB@k ''ѭ''X'. P 't l h  t . X  $>' . X  $>'  7(ORIENTATIONX*ORIENTATIONX+ORIENTATIONY*ORIENTATIONY)ADODB.recordset$p.n t n(r4αͣ޷ x n(v7αԣ޷KSELECT MEAS_ITEM_227,MEAS_ITEM_228 FROM COCMEASDATAINFOS c WHERE LOT_ID = ' l$f'' GROUP BY MEAS_ITEM_227,MEAS_ITEM_228 'p p ~ nB@'   n! MEAS_ITEM_227 n% MEAS_ITEM_227 n% MEAS_ITEM_228 n% MEAS_ITEM_228 n% ' ' k $  . X  +>OXYLIST(OXYS) = Sqr(OXY) ' nB@h n! . X  +> =AVERAGE(Q . X  :Q . X  ) . X  +>=MIN(Q . X  :Q . X  ) . X  +>=MAX(Q . X  :Q . X  ) . X  +>=STDEV(Q . X  :Q . X  ) . X  +> . X  $> . X  +> . X  $> . X  +> . X  $> . X  +> . X  $>!d#DIV/0! . X  $> . X  +>d . X  +>kxQ:U$B@H B@  RESISHEAD;RESISTAILeADODB.recordset$p.n t n(r4αͣ޷ x n(v7αԣ޷KSELECT MEAS_ITEM_229,MEAS_ITEM_230 FROM COCMEASDATAINFOS c WHERE LOT_ID = ' l$f'' GROUP BY MEAS_ITEM_229,MEAS_ITEM_230 'p p ~ nB@'   n! MEAS_ITEM_229 n%$8 . X  +> MEAS_ITEM_230 n%$8 . X  n! +> ' nB@( n! . X  +> =AVERAGE(Q . X  :Q . X  n! ) . X  +>=MIN(Q . X  :Q . X  n! ) . X  +>=MAX(Q . X  :Q . X  n! ) . X  +>=STDEV(Q . X  :Q . X  n! ) . X  +> . X  $> . X  +> . X  $> . X  +> . X  $> . X  +> . X  $>!d#DIV/0! . X  $> . X  +>d8 . X  +>kQ:U$B@H B@  RRGHEAD;RRGTAILeADODB.recordset$p.n t n(r4αͣ޷ x n(v7αԣ޷KSELECT MEAS_ITEM_231,MEAS_ITEM_232 FROM COCMEASDATAINFOS c WHERE LOT_ID = ' l$f'' GROUP BY MEAS_ITEM_231,MEAS_ITEM_232 'p p ~ nB@'   n! MEAS_ITEM_231 n%$8 . X  +> MEAS_ITEM_232 n%$8 . X  n! +> ' nB@ n! . X  +> =AVERAGE(Q . X  :Q . X  n! ) . X  +>=MIN(Q . X  :Q . X  n! ) . X  +>=MAX(Q . X  :Q . X  n! ) . X  +>=STDEV(Q . X  :Q . X  n! ) . X  +> . X  $> . X  +> . X  $> . X  +> . X  $> . X  +> . X  $>!d#DIV/0! . X  $> . X  +>d . X  +>k Q:U$B@H B@  %OXYCONCENHEAD*1.96;OXYCONCENTAIL*1.96eADODB.recordset$p.n t n(r4αͣ޷ x n(v7αԣ޷qSELECT MEAS_ITEM_233*1.96 MEAS_ITEM_233,MEAS_ITEM_234*1.96 MEAS_ITEM_234 FROM COCMEASDATAINFOS c WHERE LOT_ID = ' l$f'' GROUP BY MEAS_ITEM_233,MEAS_ITEM_234 'p p ~ nB@'   n! MEAS_ITEM_233 n%$8 . X  +> MEAS_ITEM_234 n%$8 . X  n! +> ' nB@ n! . X  +> =AVERAGE(Q . X  :Q . X  ) . X  +>=MIN(Q . X  :Q . X  ) . X  +>=MAX(Q . X  :Q . X  ) . X  +>=STDEV(Q . X  :Q . X  ) . X  +> . X  $> . X  +> . X  $> . X  +> . X  $> . X  +> . X  $>!d#DIV/0! . X  $> . X  +>dP . X  +>k(Q:U$B@H B@  MEPCDIA  MEPCVH  MEG2NVORD  MEPCVANGe2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='  ''ADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷  ~ B@ !SELECT MEAS_ITEM_ COLUMN_NUM %2 data FROM COCMEASDATAINFOS c2 WHERE LOT_ID = ' l$fQ' AND SUB_LOT_ID IN (SELECT c.SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE LOT_ID =' l$f' AND FILE_NAME=' H') GROUP BY MEAS_ITEM_ COLUMN_NUM %'ADODB.recordset$p.n t n(r8αͣ޷ x n(v;αԣ޷  ~ nB@  n! n!data n%$8 . X  +> ' dp1Cells(i + irow - 1, wafer_column + 2 + coun) = ""k0 nB@k n! . X  +> =AVERAGE(Q . X  :Q . X  ) . X  +>=MIN(Q . X  :Q . X  ) . X  +>=MAX(Q . X  :Q . X  ) . X  +>=STDEV(Q . X  :Q . X  ) . X  +> . X  $> . X  +> . X  $> . X  +> . X  $> . X  +> . X  $>!d#DIV/0! . X  $> . X  +>dH= . X  +>k =Q:U$B@H B@ . X  $>atom/cm2e . X  $>Na (E10 atom/cm2) ' kx<  ;  ; $' $ / $' $ / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ COLUMN_NUM %' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ '' ADODB.recordset$p. t (r8αͣ޷ x (v;αԣ޷ ~ B@ COLUMN_NUM %' SELECT MEAS_ITEM_ /10 data1,MEAS_ITEM_ 5/10 data2 FROM COCMEASDATAINFOS c2 WHERE LOT_ID = ' l$f' GROUP BY MEAS_ITEM_  , MEAS_ITEM_ 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@  ! !data1 %$data1 %$$8 . X  +>data2 %$data2 %$$8 . X  ! +> ' d71Cells(i + irow - 1, wafer_column + 2 + coun) = ""kH7 B@07=COUNT(Q . X  :Q . X  ! ) . X  +> =AVERAGE(Q . X  :Q . X  ! ) . X  +>=MIN(Q . X  :Q . X  ! ) . X  +>=MAX(Q . X  :Q . X  ! ) . X  +>=STDEV(Q . X  :Q . X  ! ) . X  +> . X  $> . X  +> . X  $> . X  +> . X  $> . X  +> . X  $> . X  +> . X  $>!d#DIV/0! . X  $> . X  +>d3 . X  +>k3Q:v$B@H B@dh3  / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ COLUMN_NUM %' SELECT MEAS_ITEM_ 4/10 data1 FROM COCMEASDATAINFOS c2 WHERE LOT_ID = ' l$f' GROUP BY MEAS_ITEM_ 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@  ! !data1 %$data1 %$$8 . X  +> ' dx01Cells(i + irow - 1, wafer_column + 2 + coun) = ""k80 B@ 0 ! . X  +> =AVERAGE(Q . X  :Q . X  ) . X  +>=MIN(Q . X  :Q . X  ) . X  +>=MAX(Q . X  :Q . X  ) . X  +>=STDEV(Q . X  :Q . X  ) . X  +> . X  $> . X  +> . X  $> . X  +> . X  $> . X  +> . X  $>!d#DIV/0! . X  $> . X  +>dX- . X  +>k0-Q:v$B@H B@k- Brightness (gloss) (%)e . X  $> . X  +>d,ADODB.recordset$p.n t n(r4αͣ޷ x n(v7αԣ޷select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUM where FILE_NAME =' H' AND LOT_ID =' l$f#' AND LOT_FLAG='F' and MEAS_ITEMs='  ' AND MEAS_PCS <>'0' 'pDebug.Print sheet3sql p ~ nB@ n! MEAS_AVG n% . X  +>MEAS_PCS n% . X  +> MEAS_STDEV n% . X  +>MEAS_MIN n% . X  +>MEAS_MAX n% . X  +>d)1MsgBox "ûмݣԺڵECOC"G . X  :J ^  . X   <%vB@H ! 9 9999q( r( r( r( r( r(k(k(x(=MAX(F . X :F . X  ) . X  +>   . X  $> . X +>' P l'X l'''' D1$v%!'4J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------pͲԹƬ%ȡģ3̶id1ThicknessF13$v'` ThicknessD1D80$v%!'t t$>'vF5$v'6F7$v'*''ļTickness  (_  _001.xlsx %. ( %tB@v ( ,Lot_No. QuantityADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷'5SELECT SHIP_SEQ,SUBLOT_ID ,WAFER_COUNT,LOT_ID FROM '  COCMEASSHIPLISTSTD '  WHERE FILE_NAME= ' H' ORDER BY SHIP_SEQ'Debug.Print sql2  ~ B@ !'  ! 6 +> * +> SUBLOT_ID % +> B@`#FOSB_IDADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷' SELECT DISTINCT RFID_ID, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,RFID_ID,`CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG= ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' order BY SHIP_SUB_LOT_ID' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( @)pkg ON c.SHIP_SUB_LOT_ID =pkg.SHIP_SUB_LOT_ID ORDER BY SHIP_SEQ'[   ~ B@ !'  ! RFID_ID % +> B@@''''''''''''''''''''ȡ B@p' $>  'ʼ  '    ']X $>!VB@'     $>!VB@    ' ''ɾԭʼ   $B@vдSlot ID T7 CodeADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷'PSELECT SUBLOT_ID ,SLOT_NO,READ_WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN' ('  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT '  FROM MES_SHIPTAG ' + ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' ' ) order by SUBLOT_ID,SLOT_NO ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( B)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO'  ~ B@[  !'4  !SLOT_NO %$8  +> READ_WAF_ID %  +> B@ '';ŲThickness B@p'''''Thicknessԭʼ v;$'  H %'ADODB.recordset$p. t (r0αͣ޷ x (v3αԣ޷ *SELECT qwe.SHIP_SUB_LOT_ID,qwer.* FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c  LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT  WHERE FILE_NAME =' H' ORDER BY SHIP_SUB_LOT_ID  )qwe LEFT JOIN ( '  . )qwer ON qwe.SHIP_SUB_LOT_ID=qwer.SUB_LOT_ID ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( ;)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUB_LOT_ID ORDER BY SHIP_SEQ'  ~ B@[  B@p  !ITEM %  +> B@Thicknessend  : 4 : :+>8K-----------------------------------------------2--------------------------- $B@v''ɾ B@p$B@vkжA1:A9999$v !%'   '   $>   $>   $>   $>'   $>'     %'Debug.Print pd3    $>(^   $>'x x   +> min: uomcolumn-2,max:uomcolumn-1СΪ NG   $>   $> $>NG   +>kh k` X  $B@v  $B@v  $B@v  $B@vNoData:9MsgBox "ûݣҪܸļ嵥" <B@  B@ B@ رչ B@B B@B0 Ļˢ´ (rA@ɸļA@Jo Attribute VB_Name = "ģ"@ Sub @Click() Dim OXYLIST() As Integer '嵥ļ  .رĻˢ& Appation.ScreenHUpdngFalse'FileTrim(Cells(1, 2)H If $"" Then<MsgBox ("4"!Exit xEnd,connectDBSet wp= Cre@ateObj("ADODB.recordset..CursorTypadO penStxc 'αͣ޷` "L$oconadUseent#0ԕ#pd(srcS@ng5wpsql '!ƷSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPSTD WHERE FILE ='" &o& "' GROUP BY JAlDRc., csDBCCk,Whl.EOF <> True6ǷΪһG:'ȡ@ tr]Fiel0ds("* 'õ˾"AcustomernCB<("7e@kpa\| _!/j ]=5isWorkbook<.Pa`A_ V Debug.Pri &O".xlsxJQIEK'汾~K&)?'r `'ŀ+'AALCopy , gVendor_Code_Q PLAN_]_TIME1r001art_No);$"7,ûж Ӧ)P,ȷ ;2/#5G hEe -s(O!1-ȡ`W_c"po1 m`aExcelSheE=F.is 0s(1)'- +1xx = 1IX.Activate*  'ѭloti dGsql1@"SELECT DISTINLOT_ID FROM ( D,BSEQCOCMEASLSTD c WHERE FILE_name='jN@An' GROUP BYORDER) D!Debug.Print A47AidsxCreRObject("ADODB.rehcor"zD .CursorTypeJadStatic 'αͣ޷0IY Locon Use0Clief t B, csDBConrniow@_@id_cou =uR Ca''''8O!`idO)getRows'``-1 ϱ 'ȡ`Ҫ-copy_rowRange("D1").End(xlDown). Cell~, 1),  `6)).C` +c_ kFor cp1 To d/-~a- + 1!.PasteSpecialrb3Nextikyy0gasCQG'SUBm,,PO_NO,Ship_蒥EL 'WAFER_CO UNT ,K ,?{A {BPNAME  a@.id(0, s .)Ïe`= #CC#CCCT A(rv/C/C`' VS cO$i$OE%t/i .0yy, 2)0TFields(^"$?Zso3o"' 'PO No. 10 z6"+p2p`ing Dj| 4F13mat(|3"I"ypMMddMove@!_QO'Batch/{#28q DQuantit>y_e&) * 25r@@o"㓀jRT(W!= 75 The`L NGpBActiveSheet...Sel`M/A`With Q.InteriorÓ.Pat`!jxlSolidColorIndex:xlAut v"rP @1#"SELECT DISTDIN t1,CUR_SUBxWAF_CNT,P,hM FROM| (1ACASE WHEN ms~IS N`ULL TaELGEND rCOCMEASL STD cB 'MES_TAGqCUSTOMEU =cN.@ REЈFILE_NAME ='qߌ)_t! T , ?T,to_char(his_regist_dttm,'yMMdd') ~ UADD_@MONTHS -1, 12)zF3PRD.DOPE_ wh0ere in('PKG','Ea) aLa &'OC' 2p0STR(`s,0,7)||Sj-3) @§UB_0!)e.'!.$ *(` 2((=/)ST#) h L -* 112- =: X10#s^=A91o1l )) er by , 8+_1qY1)t2 I3Q=t2.Ȅ^~_se~qoDS^$J:T,MANUFACTURE_DATbEIRYC(? ,#EQ_MRpIQJ)|w`ڏڏڅڏڏQڏڏODו ܼotoO -1؏إp ,EXP timecount = lot Set.R@rdC(!Cells(11 + yy, 6)Fields("manufacture_date")XF2FexpiryAMoveNext1311U"OK"If 7H- R>= 75 Then""9NG9ActiveSheĎ@.SeleclWith ion.Int`erior% .(Patnkxl Solid ColorIndexB AutomaticX @ 255X TintAndShade 0 Ä-c End AFC[Window.@Scroll+umDT+ 4o3 2 1O#IfQ kyy1(copy_row) * xx+xbAxj 'Debug.Pr`; sql+t'ϵͳ<WA SuFb~ CreObjc("ADODB.rset.Curs orTypOad@OpenStZ 'αͣ޷Q Loc oIadUseClieC@ 't" SELECT DISTINFILE_NAME, ms_ "id,LOT_ID FROM (8ship_seq,ms.de ,CASE 0WHEN IS NULL TCUSTOMERb_@ EL" _O$7i& "` END DCOCMEASSHIPL@STD c LEFT JDOI@es_aTdAG OSUBa=c.# ?@!A  $RE c.1 ='" & FileName@"'ORDER BY . ) ~  /)kYtW)-$, csDBConn`3PcODim subitem&'gRe8(18 Tou' A6¶pPz)> 0xFor~iB}O!f n$_Q1 ( i%JE  V`'''ѭx_T_t{b9 !sd - 1u$E iP"measARiit, 5Yna_?y44<`'"(ORIENTATIPONX*+YY)"*2 bm~3`komomrsomomomomQMomOomomxql"4m__ITEM_227,8laDATAINFOSajWS= BW X7%)W GROUPWU8 W7ZA.3TcqlT 9OXY1  ,SbPTq2Dݚ "?=-228y0 2 "#DIV/0!" ThenW1CZElse30And IfColumns("Q:U").Selecpion.ClearContents A*meassRESISHEADB;"TAIL'Set sheet3s = Cre@ateObj("ADODB.r"C.CursorType`adOpenStatic 'αͣ޷`# L$oc on Us0eCli %ql "SELECT MEAS_ITE@M_229,30 FROM C$OCDA(NFOS c WHERE LOT_ID@ 'sub!*(c)A' GROUP BY G )', csDB@n 4B'0rdl1pQ For  To! et.R - 1 lӀ ”Val(Fie ld\*29")I?  (?;3~06&sMoveN6Q] 0 * 2)CC/C ?\"+O*5#oB2    Ro%o%e%oݨoooooص ooAoo^ Eoo`doo nRGCRG/ ///A////wXC///t/#31*2///ub/+~/x//1/// //`Pa@./231$op!/ ώ̎32y rdl1 2=` sheet3set.MoveNext*Cells(item_row + yyit0, 6)RecordCoun`t * 2_I18J"=AVERAGE(Q" & r":+~LH& ")"*I9IMIN7G1Gd20GAXG21#STDEV$æTlp7(Zi¨X9)iW{D If 1).T { <> "#DIV/0!" Then 7 1M: O Els.e K 0 nd IfColumns("Q:U").SelecPion.ClearConte8nts *meass "OXYCONCENHEAD*1.96;aFTAILB*Set F Cre@ateObj("ADODB.r""PECursorTypeadOpenStatic 'αͣ޷0% Loc on UseCli" J %ql "SELECT MEAS_ITEM_233b%K, 44 FROM COCDA@.NFOS c WHERE LOT(_ID'sub(cA)' GROUP BYY %-@, csDBGn8IO,$pX For= 0 ToDž `- 1 s#``, 1›Val(Field13")&D}P a234rdfEOKr9')C$&oO 61oo#ߐ f߇ooW, O_t7?5 !ubC+0X E0^ MEPCDIA" Or AVH=G2NVORDVANG2qlrwv*sxSйsaS\ =tS H'p ьet!όόs T.p<fp}, 3 }p.e 0q|l3V uuCOLUMN_NUM" data 2 COCMEASDATAINFOS c2 WHERE LOT_ID = '" & subitem(count)L"' AND SUB_XIN (SELECT c..,FROMSHIPLISTSTD c&=iFILE_NAME)Fil eName) GROUP BY _ITEM_meassets.Fields("COLUMN _NUM""  Set s`heet3CreateObject("ADODB.recor2d")" .CursorType%adOpenStatic 'αͣ޷@#,L$oc&on.UseClient-ԯ-A) Pql3, csD BConn@@ion&For rdBl!0 ToGP. RJC - 1SaIfT <> heTpCells(A_row + yyit&, 17)@'0Val(Ggņdapta")s@1@1ElseW=A')&)D, wafer_column2 ,"ԩEnd If9MoveNext 3 ,, 6(?18=AVER`AGE(Qy:&h ":u+bQ )'X9CMIN=5M1@<T, 20AXAC3h21EV??,>t, sX38sbH 9 9, B 7 ox1).T r "#DIV/`0!" T7 1G: oJcTT݂0BCLwQ:U").Seldse.Clearft0ls Isr(? 5 4), "atom/cm2p~cuMS c, Na (E10 U)o6jinshubiW S w` ;fgSplit(, , vb&Compare/;R2 #(1/"dr{0BaQr qlsP "* DqSclS C (@,pa'aџϟϟrI|>s}_COUNT!_   AS 2   1  ?K !1!y? qF /qqlA ?7B(?/\Q1,T2!2 EA?L??v7 ,NIb)1((rI1set2.CursorType = adOpenStatic 'αͣ޷ B measL$oconUseClient.Z hql2, csDBConnectionFor rdl0 To<RecordCouJ- 1sIf<> ( he;Cells(item_row + yy itK, 17)MVal(IIf(IsNull(Fields("data1")), "",G )cGE@$HG(2((D1CC2Else:'D:4iA]x, wafer_column2c _""Xnd IfLMoveN8extS We, 22&=COUNT(Q" & БP& ":+1o:F) )18AVERAG~EU_Eh9MIN__?%W20DAX_/__$X1CSTDEVbW6!82W[), Ba8 9j, X7 @Js@x 1).TJ l"#DIV/0!" Tm?la.21B\b 0OqEZAC_tQ:v").S|elo`.Clear`tsO 1jingshulSpl,itc} |/0|, vbCompa|reRa\qlsr"SELECT * FROM COCMEASDITEMSP> WHERE 1b_2 ='qd (``'o`SetņCreateObjP("AD`ODB.rr"/ 2gsB@|;s? ?_Qb| COLUMN_NUMOqx _a$/10 B{"ATAINF OS c2" L`OT_ID "s4ubQ`(pt)@"' GROUP BY % % %20%%rI̦|%%% sr HcHXsX``X 4`eY1  f:yUp? ǵow + yy@it, 18) = "=AVERAGE(Q" & item_r P":l+ rdl1D)" Cells(E9MINn{2R0=AX=1=STDEV>7$j8)mmGWtSIf X 1).Text <> "#DIV/0!" Then'1ZEls^eS0nd IfColumns("Q:v").Sele ctScion.ClearContentsE /measnaeaBrightness (gloss) (%) -ч6WV6, 6 V,Set sh eet3s = CreateObj"("ADODB.record "p`.Cur@sorTypadOpenStatic 'αͣ޷o) Loc on (adUs0eCli0 %qlA1s> MEAS_ITEMS, R`OUND("`,$5)E ,IAX@M`HAVGFaH PCS from COCDATASUM where FILE_N@AME ='FileName!' AND LOT_IDsubAE(count)FLAG='pF' aU!s;C Ts<>'0' 'Debug.Prin9Hql9B0, csDB@jnM@lW/ggARPC > 0., b^'Fieldp@.}?H5B8LRTb#??;h/".O hAX  GA'MsgBox "ûݣڵE2o( ActiveSL.Range("Gߜ+Н.:JZM2Ua"DWith WaI`rior+E.PatterKxlSolidjorIndexJxlAutomT"X255_VT:AndShadaZs e &oAWindow.Scroll x b/'4w__[3//+2//+1/o0~NFF@g(F-+ jins'ȡ (ActivwitWh` s<> "TbJwWЧ'dʼ{ pp @r-z}Q1q}24sqPs}VDim ssG# sq, E0reRow.(Copc1_qty25  7V +@,PasteSpeci|al; P ɾԭ4ʼ ! @= O) s(2 дSlot ণT7 × 6?ooonooooo'?5q,SqNO,READ_Qrif3prd.Dq" dhVFIN1dbS(evonߏߏUnD pom |,_r_$j_rE q1 =  suD@ Fӯ"'t) cby &))aQ`qmH sqlship = " SELECT * F ROM (pDISTIN\SHIP_SEQ,CASE WHEN $UB_LOT_ID IS NULL T8UB,EL` VEND?xCOCMEAS/L{STD c LEFT JOpIN ( PCUSTOMER_S NN  MES_=TAG ) ms ON c.55= . RE FILE_NAME ='" & FileName"' ORD ER BYEQ)c_ ^& $1"" )pkgTN=@H/!,SAqNO"!Sett. Open , csDBConn@ection Debug.Pri nt id_r owRecordCount For i@1 To Cells(i + 1, 6) Val( Fields("1))G 7  READ_WAF@u"H MovpeNex*Kk''';ŲThi@cknessp_workbook.AMvate@F ԭʼ0it@em_arr=S plit( , "; .E numn2qlcommonutil_sub_lot_i@d.get_`_checkall`_data ,d ,FW" 4 ` m CreObjC("ADODB.br=setq.CursorTy$pe`adaMStatic 'αͣ޷0# Locon Use0ClieSf dq `!"d qwe.`r.wuͨD IP ˻Tߨ$G )6 H=1>>&!H2]"r! M@=`ra x!_seqS o$w{,w-o# 3Xo#E wT o#wwt#"www"N4wPw%"?w^) $ ??Oozozzp P@_oXo&thP8e.? }P8!}UITEMogC}S3~g `'vye ndX51 = 2   ID, 1 ID'- 2 Columns(9) .Deleч Kɾq%5'End If 'жЄ0Ap x.WPsheePtFun.R( RangeP1:A9"caa<20qCuo,mc p9gIfb i, ') <> "" Ojrn023TheȯDgYlowCha? ߕaup+ 3QApd3c pd.c( (, i_ ')E`_Q_QO@6).mula q0u/"qpOA 'min:%-2 ,max:&-1obСΪ NGDZ+p; - )" A6 BD- @.a" Then  Cells(i, uomcolumn + 6) = "NG"End If6F .*Next J !Cas( l1).Deletey& 'NoData:MsgBox "ûݣҪܸļ嵥wpSet.pMovem @ 'd:workboo k.Savp_ 'رչ $Clos%HWendD'Ļˢ´Application.ScreenUp-ingTru cADBQɸMJSub      !"#$%&'()*+,-./023456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnOrstuvwxyz{|}~r22ydxME0 P<<<<<6 <8<$0R@T @V00@Z`@@€^P @b @€f @j @n@(%  ```````````` `"`$`N@P@H0@`(@X8@\H @€`h @€d  @€hP @l@ 0pP`0`   0pP`0`  0pP`0`  0pP`0`  0pP`0`  0pP`0`  0pP`0` ( 0pP`0`  0pP`0` 8 0pP`0`  0pP`0` H 0pP`0`  0pP`0` X 0pP`0`  0pP`0` h 0pP`0`  0pP`0` x 0pP`0`  0pP`0`  0pP`0`  0pP`0`  0pP`0`   0pP`0`  0pP`0` 0 0pP`0`  0pP`0` @ 0pP`0`  0pP`0` P 0pP`0`  0pP`0` ` 0pP`0`  0pP`0` p 0pP`0`  0pP`0`  0pP`0`  0pP`0`  0pP`0`  0pP`0`  0pP`0` ( 0pP`0`  0pP`0` 8 0pP`0`  0pP`0` H 0pP`0`  0pP`0` X 0pP`0`  0pP`0` h 0pP`0`  0pP`0` x 0pP`0`  0pP`0`  0pP`0`  0pP`0`  0pP`0`  ! 0pP`0` ! 0pP`0` 0" 0pP`0` " 0pP`0` @# 0pP`0` # 0pP`0` P$ 0pP`0` $ 0pP`0` `% 0pP`0` % 0pP`0` p& 0pP`0` & 0pP`0` ' 0pP`0` ( 0pP`0` ( 0pP`0` ) 0pP`0` ) 0pP`0` (* 0pP`0` * 0pP`0` 8+ 0pP`0` + 0pP`0` H, 0pP`0` , 0pP`0` X- 0pP`0` - 0pP`0` h. 0pP`0` .px/k$*\Rffff*T?6c06f1fe @H`xFTH"        0( X  h B      8 @Ph  p   2"(8@H` .x         @8x  4D:8DxD   @nP  008PX`hp  8 V Z8         > $( (P  x        $    V( b 0 0 H ` h x  ,   P ( H P @X @   @@H  Z0$P"x  $ (J(h,0 48B4 40 48B84,((04 8h=P=  => >@(>@h> >>>@>@?  X?Zh???@  @$@@$`@( h@,bx@,@0@4 A8A  $t!$Ingot-list pageePage / !   $t,>d8Page / !   $t,>kÿһҳlot_no иֵ .8select lot_id from COCMEASSHIPLISTSTD where FILE_NAME =' H !' group by lot_id order by lot_id 'A@z . t (r!αͣ޷ x (v$αԣ޷  ~ B@]P]h]' %b   n MData page ( )$tB@H MAIN LOT NO  MData page ( )$t,>lot_id %  MData page ( )$t,>`  e '  '  n MData page  ( )$tB@H MAIN LOT NO  +>lot_id %  +>kx B@  'P B@B ~B@BǰҳOverall λиֵA@z .COCMEASDATASUBSUM/select * from COCMEASDATASUM where FILE_NAME =' H ' AND LOT_FLAG='T' '\sql = "select * from COCMEASDATASUBSUM where FILE_NAME ='" + filename + "' AND LOT_FLAG='T'" t (r!αͣ޷ x (v$αԣ޷  ~ B@P'B %b  n MData page 1( )$tB@H  BK $v!xK $v!x MEAS_ITEMS %޵ֵԼǷ񿪱]]O $v!xO $v!x$'N $v!xN $v!x$'޵ֵԼǷ񿪱]]Q $v!xQ $v!x$'P $v!xP $v!x$' .0select * from COCMEASITEMSTD where meas_items =' meas_items % ' '  ~ B@[K $v!x[meas_way %[meas_way %$meas_way %$    B $v!xB $v!x' MinKTMEAS_MIN %  MData page 1( )$t,>   >=KTMEAS_MIN %   MData page 1( )$t%>!(k>KTMEAS_MIN %   MData page 1( )$t%>!(kxnpkh   <=KTMEAS_MIN %   MData page 1( )$t%>!(k <KTMEAS_MIN %   MData page 1( )$t%>!(kH n@ k8 MaxKTMEAS_MAX %  MData page 1( )$t,>   >=KTMEAS_MAX %   MData page 1( )$t%>!(k8 >KTMEAS_MAX %   MData page 1( )$t%>!(k n k   <=KTMEAS_MAX %   MData page 1( )$t%>!(k <KTMEAS_MAX %   MData page 1( )$t%>!(k n kx AverageKTMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(kx >KTMEAS_AVG %   MData page 1( )$t%>!(knk   <=KTMEAS_AVG %   MData page 1( )$t%>!(kH<KTMEAS_AVG %   MData page 1( )$t%>!(knkSTDKT MEAS_STDEV %  MData page 1( )$t,>S.DKT MEAS_STDEV %  MData page 1( )$t,>PcsKTMEAS_PCS %  MData page 1( )$t,>Sndxypkh`dXB $v!x    B $v!xB $v!x' MinKTMEAS_MIN %  MData page 1( )$t,>   >=KTMEAS_MIN %   MData page 1( )$t%>!(k>KTMEAS_MIN %   MData page 1( )$t%>!(kPnHk@   <=KTMEAS_MIN %   MData page 1( )$t%>!(k<KTMEAS_MIN %   MData page 1( )$t%>!(k nkMaxKTMEAS_MAX %  MData page 1( )$t,>   >=KTMEAS_MAX %   MData page 1( )$t%>!(k>KTMEAS_MAX %   MData page 1( )$t%>!(knk   <=KTMEAS_MAX %   MData page 1( )$t%>!(k<KTMEAS_MAX %   MData page 1( )$t%>!(k`nXkPAverageKTMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(kP>KTMEAS_AVG %   MData page 1( )$t%>!(knk   <=KTMEAS_AVG %   MData page 1( )$t%>!(k <KTMEAS_AVG %   MData page 1( )$t%>!(knkSTDKT MEAS_STDEV %  MData page 1( )$t,>S.DKT MEAS_STDEV %  MData page 1( )$t,>PcsKTMEAS_PCS %  MData page 1( )$t,>Sh`nXdPyHk@8d0MEAS_WAY %Min    B $v!x  MEAS_MIN %  MData page 1( )$t,>   >=KTMEAS_MIN %   MData page 1( )$t%>!(k>KTMEAS_MIN %   MData page 1( )$t%>!(kPnHk@   <=KTMEAS_MIN %   MData page 1( )$t%>!(k<KTMEAS_MIN %   MData page 1( )$t%>!(k nkkB $v!xPcsMEAS_PCS %  MData page 1( )$t,>kB $v!xAverageMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(kp>KTMEAS_AVG %   MData page 1( )$t%>!(knk   <=KTMEAS_AVG %   MData page 1( )$t%>!(k@<KTMEAS_AVG %   MData page 1( )$t%>!(knkkB $v!xSTDB $v!xS.D MEAS_STDEV %  MData page 1( )$t,>kdykMEAS_WAY %Maxe    B $v!x  MEAS_MAX %  MData page 1( )$t,>   >=KTMEAS_MAX %   MData page 1( )$t%>!(k>KTMEAS_MAX %   MData page 1( )$t%>!(knk   <=KTMEAS_MAX %   MData page 1( )$t%>!(kX<KTMEAS_MAX %   MData page 1( )$t%>!(knkkB $v!xPcsMEAS_PCS %  MData page 1( )$t,>k@B $v!xAverageMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(k(>KTMEAS_AVG %   MData page 1( )$t%>!(knk   <=KTMEAS_AVG %   MData page 1( )$t%>!(k<KTMEAS_AVG %   MData page 1( )$t%>!(kxnpkhk`B $v!xSTDB $v!xS.D MEAS_STDEV %  MData page 1( )$t,>k d y k  MEAS_WAY %Averagee    B $v!x  MEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(k@ >KTMEAS_AVG %   MData page 1( )$t%>!(k n k   <=KTMEAS_AVG %   MData page 1( )$t%>!(k <KTMEAS_AVG %   MData page 1( )$t%>!(k n k kx B $v!xPcsMEAS_PCS %  MData page 1( )$t,>k d y k  MEAS_WAY %STDe    B $v!x   MEAS_STDEV %  MData page 1( )$t,>k B $v!xPcsMEAS_PCS %  MData page 1( )$t,>kdykxpkhk`kXkPH@8 B@  B@B ~B@BÿlotӦֵA@z  l '  '  MData page  (1)$t%>!x' OVERALL HLOT . t (r&αͣ޷ x (v)αԣ޷SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN ms.CUSTOMER_LOT ELSE ms.LOT_ID END LOT_ID FROM MES_SHIPTAG ms WHERE ms.CUSTOMER_LOT ='  ' ' Sand CUSTOMER_SUBLOT IN (SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H')'  ~ B@ !   !LOT_ID %'H B@d0 'k  B@B . t (r%αͣ޷ x (v(αԣ޷,select * from COCMEASDATASUM where LOT_ID ='  "' AND LOT_FLAG='F' AND FILE_NAME=' H''  ~ B@ %b MEAS_TYPE %A .MSELECT sum(wafer_count) WAFER_COUNT FROM COCMEASSHIPLISTSTD WHERE lot_id = '  ' and FILE_NAME =' H ' '  ~ B@ WAFER_COUNT %'  B@BdMEAS_PCS %' k  n  B MData page  ( )$tB@HK $v!xK $v!x MEAS_ITEMS %޵ֵԼǷ񿪱]]O $v!xO $v!x$'N $v!xN $v!x$' ޵ֵԼǷ񿪱](]@Q $v!xQ $v!x$'"P $v!xP $v!x$'$ .0select * from COCMEASITEMSTD where meas_items =' meas_items % ' '  ~ B@meas_way %$    B $v!xB $v!x' MinKTMEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_MIN % "   MData page  ( )$t%>!(kh>>KTMEAS_MIN % "   MData page  ( )$t%>!(k=n=k=  $ $<=KTMEAS_MIN %    MData page  ( )$t%>!(k=<KTMEAS_MIN %    MData page  ( )$t%>!(kp<nh<k`<MaxKTMEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "   MData page  ( )$t%>!(k0;>KTMEAS_MAX % "   MData page  ( )$t%>!(k:n:k:  $ $<=KTMEAS_MAX %    MData page  ( )$t%>!(k9<KTMEAS_MAX %    MData page  ( )$t%>!(k89n09k(9AverageKTMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k7>KTMEAS_AVG % "   MData page  ( )$t%>!(k`7nX7kP7  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k6<KTMEAS_AVG %    MData page  ( )$t%>!(k6n5k5STDKT MEAS_STDEV %   MData page  ( )$t,>S.DKT MEAS_STDEV %   MData page  ( )$t,>PcsKT    MData page  ( )$t,>S44n4d4yx4kp4h4d`4B $v!x    B $v!xB $v!x' MinKTMEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_MIN % "   MData page  ( )$t%>!(k2>KTMEAS_MIN % "   MData page  ( )$t%>!(k2n2k2  $ $<=KTMEAS_MIN %    MData page  ( )$t%>!(kH1<KTMEAS_MIN %    MData page  ( )$t%>!(k0n0k0MaxKTMEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "   MData page  ( )$t%>!(kp/>KTMEAS_MAX % "   MData page  ( )$t%>!(k.n.k.  $ $<=KTMEAS_MAX %    MData page  ( )$t%>!(k.<KTMEAS_MAX %    MData page  ( )$t%>!(kx-np-kh-AverageKTMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k8,>KTMEAS_AVG % "   MData page  ( )$t%>!(k+n+k+  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k*<KTMEAS_AVG %    MData page  ( )$t%>!(k@*n8*k0*STDKT MEAS_STDEV %   MData page  ( )$t,>S.DKT MEAS_STDEV %   MData page  ( )$t,>PcsKT    MData page  ( )$t,>S((n(d(y(k((d(MEAS_WAY %Min candy start $H    B $v!xB $v!xHead MEAS_HEAD %   MData page  ( )$t,> "  >=KT MEAS_HEAD % "   MData page  ( )$t%>!(k&>KT MEAS_HEAD % "   MData page  ( )$t%>!(k(&n &k&  $ $<=KT MEAS_HEAD %    MData page  ( )$t%>!(k`%<KT MEAS_HEAD %    MData page  ( )$t%>!(k$n$k$d$  MEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_MIN % "   MData page  ( )$t%>!(k#>KTMEAS_MIN % "   MData page  ( )$t%>!(k"n"k"  $ $<=KTMEAS_MIN %    MData page  ( )$t%>!(k "<KTMEAS_MIN %    MData page  ( )$t%>!(k!n!kx!kp!kh!B $v!xPcs    MData page  ( )$t,>k B $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k>KTMEAS_AVG % "   MData page  ( )$t%>!(knk  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k@<KTMEAS_AVG %    MData page  ( )$t%>!(knkkB $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>kdykd candy end    B $v!x  MEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_MIN % "   MData page  ( )$t%>!(k8>KTMEAS_MIN % "   MData page  ( )$t%>!(knk  $ $<=KTMEAS_MIN %    MData page  ( )$t%>!(k<KTMEAS_MIN %    MData page  ( )$t%>!(k@n8k0k(B $v!xPcs    MData page  ( )$t,>kB $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k`>KTMEAS_AVG % "   MData page  ( )$t%>!(knk  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k<KTMEAS_AVG %    MData page  ( )$t%>!(khn`kXkPB $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>kdykxkpMEAS_WAY %Maxe candy start $H    B $v!xB $v!xTail MEAS_TAIL %   MData page  ( )$t,> "  >=KT MEAS_TAIL % "   MData page  ( )$t%>!(k>KT MEAS_TAIL % "   MData page  ( )$t%>!(knk  $ $<=KT MEAS_TAIL %    MData page  ( )$t%>!(k0<KT MEAS_TAIL %    MData page  ( )$t%>!(knkd  MEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "   MData page  ( )$t%>!(kP>KTMEAS_MAX % "   MData page  ( )$t%>!(knk  $ $<=KTMEAS_MAX %    MData page  ( )$t%>!(k <KTMEAS_MAX %    MData page  ( )$t%>!(kX nP kH k@ k8 B $v!xPcs    MData page  ( )$t,>k B $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(kp >KTMEAS_AVG % "   MData page  ( )$t%>!(k n k  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k <KTMEAS_AVG %    MData page  ( )$t%>!(kx np kh k` B $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>kdykd candy end    B $v!x  MEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "   MData page  ( )$t%>!(k>KTMEAS_MAX % "   MData page  ( )$t%>!(kpnhk`  $ $<=KTMEAS_MAX %    MData page  ( )$t%>!(k<KTMEAS_MAX %    MData page  ( )$t%>!(knkkB $v!xPcs    MData page  ( )$t,>kxB $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k0>KTMEAS_AVG % "   MData page  ( )$t%>!(knk  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k<KTMEAS_AVG %    MData page  ( )$t%>!(k8n0k(k B $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>khd`yXkPHk@MEAS_WAY %Averagee    B $v!x  MEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k~>KTMEAS_AVG % "   MData page  ( )$t%>!(k~n~k~  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(kP}<KTMEAS_AVG %    MData page  ( )$t%>!(k|n|k|k|B $v!xPcs    MData page  ( )$t,>k |d|y|k||MEAS_WAY %STDe    B $v!x   MEAS_STDEV %   MData page  ( )$t,>k {B $v!xPcs    MData page  ( )$t,>kzdzyzkzzdxz-ȷMEAS_WAY: Max,Min,Average,STD,PcsA@Jk8zk0zk(z B@Bkzzzy B@y B@Bkyy]X j'  t $tB@HK$B@H B@N$B@H B@O$B@H B@P$B@H B@Q$B@H B@A1$vB@H ! yxkx  'xx (жǷӰװʱ$B@H$>Dateȡʱp SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date FROM F3PRD.DOPE_his 'H H: where OPE_ID in('PKG','EPKG') and his_cat IN ('OC','LO') 'H H and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c 'H HG LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL 'H Hz THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT 'H H WHERE FILE_NAME =' H#' )) order by his_regist_dttm ASC 'HADODB.recordset$p.J t J(r/αͣ޷ x J(v2αԣ޷[ H H ~ JB@MANUFACTURE_DATE J%+>d t <%B@zManufacture Date:+>ȡʱp SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date FROM F3PRD.DOPE_his 'H H: where OPE_ID in('PKG','EPKG') and his_cat IN ('OC','LO') 'H H and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c 'H HG LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL 'H Hz THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT 'H H WHERE FILE_NAME =' H#' )) order by his_regist_dttm ASC 'HADODB.recordset$p.J t J(r/αͣ޷ x J(v2αԣ޷[ H H ~ JB@MANUFACTURE_DATE J%+>ko ~B@B X ׼ģ.xlsx X ׼ģ.xls N  *B@do N  *B@k`o{enter}A@ ( P\ RH B@{enter}A@ H.xlsA@ (ronndAttribute VB_Name = "ͨģ1" Dim savePath AsD Sng 'cocĵ洢·Vcurrent \'ǰˀĿ¼ TFiley]uֵ&product 'Ʒ"cus tomer Ļ"modqmTH# 'Ӧ$µāL:xNCofCFlag, Ingot1 2 Boolean 'жρ4ǷװҳɁԈЂJ߼IofcIndex  2mdataAIntegV'@ҳĿʼsheet/@lotCounoDMege Sub Main() `Application.ScreenUp@)i= Fal,se IS!s(2).Select= Trim(Range("B1").Va8lueD hisWorkboo C@ȡc ZS 4`{M@Nxew A0c.$ , ,&, e<, uCr, i`",Ə, `SFC$T!Qλ'ᇡGpaL= fPa?Cr+#` Ifv Then @Uot-B{1b.-b1brCEnd Ifc'~0Cq CZ2-2 "2G2y@\Q@aTИз%U= Dz("MD 91(41)@wiyu( / 6ezr@80ibEFor j1 To yuijg(+ i - 1).Copy After:=aBs$ .D5 A CSLs NstU6ClearConts[AX4]K= G>(1).#t!" &+ R1p"(i)p Nexa'ҳQ! 316Mid( i + 0h , 1, 9) $v"aN,"xB[Cell l, 3R[1C& / Egq15;-listO P O B 11_ _ -] C8hQ ÿһҳĠA_no FkbrsbADODB.Recordse!sqls51o_id from COCMEASSHIPLISTSTD where FILE_NAME ='" e"' group by?D*conn`DBAe  rEursorTypAadOpenSt`c 'αͣ޷3 Lo×adUs0eCli>GOFq @sDBB IqBkq!Qtmpp1Ak DuDo While @ EOF() 4<> uL1k <= 5<8>m1d1FFl =.C15, kP#@MAIN LOT NOLO 2rmo"1sc6hFields("2xid"h4aEk\ >=Аt(k w1k ` 6S @gLh o_r% 1?>9|LJ1MK1-at-LoopCTloc5. 'ǰҳOverall λֵcon@nectDB8Set rs = New ADODB.RecordsetB'COCMEASDATA@SUBSUM.sqll"sel * from  +M where FILE_NAME ='" + FileName "' AND LOT_FLAG='T'"v_+bf1n1rs.CursorTypeeadOpenStatic 'ͣ޷#R Locon"UseClient""; x, csDBCion2*80Do Whn.EOF() <> TrueFor j 1 To mdataModePag Sheet s("MD p 1(" && ")").SWvGEk@6ArIf Ran ge("Kk)@.Value)"" And=4`FieldA$_ITEMS") 8TheA'޵ֵԼʀǷ񿪱O% Dim min#As DoublD axChar Stri ng= IIf(?O?,E>p, 0)NCj, "" '&%! d!&@bin& maxC Qj& P j&4#1@bVg)# }s ^TDmeas_item`@dgd+ "E rs1.%1SMDebug.P^t EZyTKj way")? (IsEmpty(4T@IsNul~l`4AX i@k27?&BMiWtmpvB=j Z Cas|e _=""Minw?ccCells(i,8 3)+_MINJoC o0dFeoO>=  >=7R .Interior.Col= 65535E~If_?S3* >12Q=%W=|_==_ 3%<=>%<>>%%%%_?4;/%'_5 End Select : fIf#^Case@ "Max"'_Sheets("MData page 1(" & j")").Cells(i, 3) = rs. Field2EAS_MAX")'nIf maxValue <> 0 AChar"" Then'( %+ ">=lx >=G<6j.Interior@.Color@n65535EA )I,vb?bʨ >a6a0# 0aO zinzinz*{ Iq {<{c6|< |?| #K| ?? d,vVW, m?,7+?,?,P q dtmpv  "_ ?$"MinfEߎ@,͎MINf*a max< -0 A Char _/ )( ( >=)b@KR% >=?[ 7$_r, >/}? q4pmin@in@@ &<@&&<@@&&&&_?4</% %_?"7wIf rs.Fields("MEAS_MAX") > maxValue Then0Sheet/Data page 1("{tSelectk?#amin[<>0 0 A@Char ""a0 BrÚ<=?<= &s?F?wd,_,Vy/ߎc?1_ >`GOn On*?./? qOK?p&x@in@@3&_3'''ψ''''?!4>O/%ωo???SSTD__EV? . ? s("MData page 1( " & j")").Cells(i, 3) = rs.FieldEAS_STDEV") $Case "Pcs"'fZSheDet8PCS.ElseRGoTo nextitem#End Se0lect+HExit For+ If [N=W.If1˗WAY""Min" pThen < ik ck + 5 Ran ge("BAi).Value <> " ,Dž }MINi max0 AB Char!t[ ~ 1q Æ|>=4B2B% >= `?L 7(.Interior.ColorV6553U?y 3q33 P33 33?$33?o o@in@in@@3_3'<A'_SAO/% mX???p=s_v@rbϽ/RAver@OOOAVGo P ]axb]F@!OO\\/,ڲ %Case "0>" & PIf rs.Fields("MEAS_AVG") > maxValue Then7ap Sheet_Data page 1(" & j")").Cells(i, 3).Interior.Color = 65535@End IfSelect7min<> 0 A-@Chadr ""a1 BoCÜ<=8<= (+| y!q #7"<_.nW.?. ?.}?Ty?.a~k7Range("Bai).d= "STD" Or . ?gMEV")_9_"GElse?  Exit F/u@7 >toA];ows,O55OOR?3v?p@in@@3&_3'O''O''''?!4>O/%Oo۲ "Sheets("MData page 1(" & j ")").Cells(i, 3).Interior.Color = 65535 #%End If3C;Select+?9If Range("Bi). Value"Pcs" ThenXӀ3rs.FieldvEAS_PCS")?< 0 A@Char "1 Cas|e kB">="ACB% >=aTA y?V5_Xy ?3333 33?$33o o0min-in?o .c ) cNO/% '???sSTD" OrtS.v/_` EVOo/8lseoLExit For__ _Nex[E 71kWAY")`"_ ipk To k + O$g$ů_%_%_%rb??_ `uaxu_u #^@0ɏ/O " & j0")").Cells(i, 3).Interior.Color = 65535 4End If7~39Case ">"7wIf rs.Fields("MEAS_AVG") > maxValue Th en0Sheet/Data page 1(ztSelectk?#amin[<>0 0 A@Char ""a1 BsÜ<=8]<= (wO?% /?B #7"<_.W.?.?.?.?.y?.a~k7Range("Bai).d= "Pcs 44MPCS")5% Else?  xit F|orQNex_ 51{tWAYptSTDO* ik To k + /!!c$$~6$_EV%__/4#?///ז/4/4E/4//4}_un 2Q1O"LOT_ID") Next rsh.Move dElse Nlotid1 = 6End IfClo|@Set rs Tru IfFields("0_TYPE")8A" TheŋCmPcn *C "SELECT sum(wafer_count) WAFER_COUNT FROMSSHIPLISTSTD WHEREQ_id (GUUa@P]Q+ QE&rs&.ST, 3, 2VB//@"CQ2A …A . kPCSFor 1 To mdataModePaVgAek`6araSheetFD@ p "Ttmp 11V(l!)").SBes @PRange("Kak).ValueU"" A `:=WITEM?!tVa!'޵ֵԼǷ񿀪WDim min1 As Dou=?p >= DLy.Interi@or.Colp= 655354//_. >/  qS7?ǔC{C/CDO (<D)_MIN") <= minValue1 Then  <Sheets("MData page " & tmp + 1)"(l)").Cells(j,!1"3).Interior.Color =@ 65535;E nd If7CCasd<"BIf rs.FieldEAS_MaaaSelectkazMaxl{·AX")#;@maxD<>0 0 A@Char1 @""t}/ "$ C,>=,Ji% > ߚ :___Z 6d6_6W6 I ?6?6?6(?6 o ?瀇CinCCD((<D)_MBDo)pГ "OoAOo??/"ooB??Averoooi_AV~Go&fgNaxoN*N/N?5/ O444_o-o4o1/%/ets("MData page " & tmp H+ 1H"(xl$)").Cells(j,13).Interior.Color = 65535 4End If/?7Select+;1oIf minValue1 <> 0 ACZ Char"" Then/cc Case3*$&#"<="7!O?0 >@O?ſſG3t3o_B0 > '-________9?`F r GinGO Case "`<=" "4If rs.Fields("MEAS_MIN") <= minValue1 Then?kSheetiData pag & tmp + 1 "("l )").Cells(j,13).Interior.Color = 65535?OEnd If#ZePee%eSel8ectvÀMaxpaazAX")/@max$<> 0 A d@@Char1 ""? C2 %  .>_ѡ' >!ߡ =__?,_^_ 8u8_g8 @M 888 _S _ whmyFinF G**+_MG?o+ q& "+ O/$?oDo#=oEoE?3 AverPƟ ?_AVGP(kQaxQjQoQ??6/ Oo6o6o6_52 , -^Case ">"3zAIf rs.Fields("MEAS_AVG") > maxValue1 Then7b3Sheet0Data pag[ & tmp + 1"("l)").Cells(j,13).Interior.Color = 655357KEnd IfSelect@iminDc<> 0 A@/Char1 @""|i4 B/8z<=xV<= +LV$33^ 32 2߈߈02 ߊsc@STD@00@EV"). CW"Pcs_ tu& "u+ 3)waferco/ >   ϏK?o/_21 & "("Pl)").Cells(j, tmp1 + 3).Interior.Color = 65535  <End If7G?Select3C9If minValue1 <> 0 Af Char"" pThen7oo Case7.(*'"<="?%Brs.Fields("MEAS_HEAD") <=HICSheetData page @jjXj5&545_ arElse?xQ@jk?_;];MMIN")#@maxaxU  = }>> `!+ >ಆ$Y?!Y?6/]o_4 > '1?/1]_ߦ{OMoMin.._//$?o/o/o/o/o/o / /'OoJ?roKͲ End If< <5v57If Range("B" & j).Value = "Pcs" Then3Sheets("MData@ page 0t@mp + 15" (l)").Cells(j,J 13)Bwafercount/BPAverd~rs.FieldWEAS_AV8G")iAmax~1 <> 0 AChar B"<Select Case 7-E">="BRW >=-Ib _e]e.Interior.Color g`65535_" i%?} == == 2===4=_ a}=  ;minin M.lseZExit For Nex?/ E_  'candy end %  jpk To kϤo?)bxŏ_****&EAS_MIN") ,If maxValue1 <> 0 And$Char""" Then/ Select Case\;Q]Np">="?%'rs.Fields("M >=Z?5Sheet6Data page " & tmp + 1"(l)").Cells(j ,13).Interior.Color = `65535D(EIf{{# {{{{T=Da}= - 9minin    c"< %6\<&?+\8_M %Ò<ߒ_ $7 ]6hhhjhhqoJ ?_??P Range("B11j)."N~"Pcso OOOwafercountOO?oofAver _ϗJ˗-AVGP?lkax/ko_P  3OOoo_B4 >OPOPOPoo/ End Select P vIf/nIf minValue1 <> 0 A!Char"" Then/Z  Cases0*Á2)"<="C')rs.Fields("MEAS_AVG") <=CSheetAData page " & tmp + 1)@"(lA)").Cells(j,A13).Interior.Color = 65535F(Dn?nnm?I.m6_ 6!ߔs o@Range("Bej).Ba"STD" Otr .{o > @w͎EV<")w)&El se? * xit xFor Nex !b"1WAY= 0"Max?c 'candy starB Mid(lotid, 1@d> "H/#'_ jP"k To k_]/ue~?6Tail/_5pppsp5_TAIL5/ max ax6v>oJ >@VT!!!??H/o4 > G1?/1_? ߁L/Min.S//0%0& 5Sheets("MData page " & tmp + 1)"(l)").Cells(j,B1D3).Interior.Color = 65535 68End IfKWCasx<"VIf rs.FieldEAS_TAIL") < minValue1 Then=P?v?vr?vKSelectV#Elsesj>k>yVMAxX"):@max]<> 0 Ax@Char1 "" => y  Ã>== `!+ >=  .B4m_ %=} == == 2|||||O1]_7|GMinOMo N// 0 And Char "9w}Select Case.3X'">="?%ǁBRV >=-I~..Interior.Color65535D(EIf{{ ==-==6= a}= w :minin 7 ? #]< )^<'/__?/(oK?/s < G0OOFoLOk_oM _ m_SSTD" Or_TS.#_?!!!0 EV???>lse\Exit For Next?#_ o 'candy end_@ jpk To k@ϦK))Ɵ0$ +++++MAXo+"<١ߌZax ?3o_S_ٯ  ,Sheets("MData page " & tmp + 1)"(l)").Cells(j,B1D3).Interior.Color = 65535 -/End If#CK"Cas>"GIf rs.FieldEAS_MAX") > maxValue1 ThenC7?W{{y{ SelectM# @tminDn<>0 0 AChar1 @""tP9 B ]<=] y^<= ^ 6_<_P_ )$99 (֗<8 :888<8_ %a ߚ Tx!Range("Bj).=Ё"Pcs_PЊ0@wafercoun_b/O /ue!AverooooAVG")?/e? Wpaxp:p S>oo >0o O4/ro_4 / /1p_?LinL/JMDO._ɲ Case "`<=" &DIf rs.Fields("MEAS_AVG") <= minValue1 ThenKwSheetuData pagp & tmp + 1"("l)").Cells(j,13).Interior.Color = 65535KUEnd If)fq\q?q(qSelect"g)|Range("BAjj)."{f"STD" Or: . C|M`EV")/'Else? . xit F " D?^>O/sy1max|0 Am Char1 P m r>_oߎю>ЎFNP #!X_& "_+ __A?oĭ> *$1???o?/1_ _ XGLinOLL--/..#?o.o.o.o.o.o /&?oI}MEAS_AVG") < minValue1 T@hen HSheets("MData page " & tm p + 1 "(l )").Cells(j,!1"3).Interior.Color = 65535GEnd If'#Select%AIf Range("B1]j).B~U"P8cs"4?y wafercounO!AElse+hExit Forg $8Nex` " Dߏ O] rs*)EV")_> >)@:?r $"" ?r ?r ?r.F?rA MsgBox "ȷw: Max,Mi@n,Aver, O,!?_O, }U FCloR#nLItem1:/  -!7MovekLoop i WSDim she t As geC[B= mdI0ndexQEach@lTEQ 35).m~um:n0YK ion.ClearCbontsNe teOl P{QA1 Work࣐`PZ? @!=!p#ApplicataDisplayAlertsPFa&'ǷӰװʱd  (^InStr(s14, 1), "бep|'ȡa 8dttmsql " SELECT SUBLOT_ID,CUR_WAF_CNT,to_char(his_regist_!,'y/MM/dd') manufa@cture_2e FROM F3PRD.DOPE_ " &pwhere aID in('PKG','Ea8) a YP I@N ('OCLO` 10STR(`0,P7)||Sj-3)AHIP}_0!( eDISTINCASE WHEN S[ IS NULL T1E ELENDCOC1cL Pb c  LEFT J.Oa , CUSTOME5$ ol=AC' MES_1 TAG)s ON c.S \s.   RE FILE_NAME ='FileName!' )) order0 by *x3 A|SCg*p9CreateObj("ADODB.recset.Curso rType adOpeBpIc 'α@ͣG޷pO9qLoM2UseClient 'αԣ޷  Debug.PrixdttmsqlH0.Open D, csDBConnectiondCells(14, 2) =7.Fields("MANUFACTURE_DATE")?PElse AUveSheet.RowH).InsXert ^1^"Manufacture Date:"'ȡʱ ~eN" SELECT SUBLOT_ID,CUR_WAF_CNT,to_char(his_regist_!,'y/MM/dd')$ mD_dD FROM F3PRD.DOPE_ NFK& " whehID in('PKG','E) and Fcat I@N ('OCLO!f:STR(D?0,7)||S-3)!HKHIPJ_' BD( DISTIN@_CASE WHEN SK IS NULL Ti ELc ENDBC@OCMEAS LASTD cgbLEFT JOYF.,0CUSTOMEŐ0eC:A;;N MES"_aTAGSs @ON c.S'=0 ms.M?ql AS5RE FILE_NAME ='"FileNameA' )) order by"Uf ASbC/SetrCDre hObj("ADODB.rec seth.CursorTHype@adS@tatic pͣ Lol b Use$}S) EIfck0.CloIf mod<= "׼ģ.xlsx" Or" ThehTWorkbook.SaveAs sPath, xlExcel8cg?(SendKeys "{er}" , Truppli<.DisplayAlerts>s4^:=curr` a`\bd#{c@Deletes^  -DuAScreenUpgingl Sub !] xME@``p % J@  @x @f p  %  0@P`p 0@P`px @ @ @ @ @h P @8 @ @ *Hv @ (  @ xXp @X x(@ @( @ @ @ X @  @ @ @h @P @8 @ @ @ @ @ @ @p X p@ @ (  @  @ uT  ux wP 0 (` @PH @@ (( @T @     @ @ @ @h P @8 @    ( @    8 H  `   p @    @x ` @H   0 8 H  `   p  hp @d @h P @p 0PX @(@ @(  (X P( @ @ @P ( @h P 8 @X h@ Hh( @ 8 P8` @ @ @ `Xx 8` @H x0 O p 8@ @  h @ w (w8 w@pp HXX H@@ H(( @   X @ (0 pX X80 8k$*\Rffff*SR6c06f1b5" ( 0 4HdX p  L  (008@ X<hF** 8&H h$ "   ( 0 H  ` p  x ( *( D  8n@PRp  <   B FP    2 6  0 8 H 2` 6    BL(0 8 .H `h    pR   & F  P` h xX (X 0x 0 F (d & 8 XX  (` 0 0 F "& $d *dH *dx    ^     $ $0 jH `   h X  (80X0F       8 P pXx     2 (  2 r( 2H `  h p  &x    J XPh6  0$H (p00F  $ 20 H  X@x > :( h$$~ ~     ,  $8` hx  X (X0x0F  $ 2  08@ x     , $  (000`v   F0H P0 ` $ (<  68@$H  (`00n  F ,!2! 0! @!8X! 0p!$<!(6! ((8",<8"( x",6"(" ((8"(6"(60# h#( #$# # # $ # #   #2L#$$ , $ 8$  H$ `$Hx$H$T$H$H$x$H%  (% 0%    @% P%$p% %TH% ^% ^& 6 & @& hX&^x&^& && &N0&^@'`' h' p' x' :' *' (\(\((\@(\X(\p(\(\(  P( J)     X)*x) 4).) 6) )L* (* (@*0`*0*4*FP+h+8p+ &+ &+ + (+ 0, &8, 0P, X, H- Fh-  8--*d-2-$d . H. (`.0.0..F/"d/  / / 0  0   0 00 R800 0  0 0 0 00 0 0 1 61 (1  81<@1  1 B1  11!嵥ļļ ''''ship_seqرĻˢ´ (rG{[$>$'H H嵥ļA@J|XkPA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ ' ;FileCopy srcpath & wpstr & ".xlsx", ss & filename & ".xlsx" ?FileCopy srcpath & wpstr & ".xlsx", ss & filename & "-res.xlsx" $x Ʒļ  @.xlsx  H.xlsxA@H  @.xlsx  H -res.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@H  @.xlsx  H -res.xlsxA@Hk(d 7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@p total_qtySELECT SUM(WAFER_COUNT) WAFER_COUNT FROM(SELECT SUM(WAFER_COUNT) WAFER_COUNT,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' group by SUBLOT_ID)'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ WAFER_COUNT L%+> WAFER_COUNT L%' ORDER_NO ,PLAN_SHIP_TIMESELECT PRODUCT_ID,PLAN_SHIP_TIME,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME1,CUSTOMER_NAME,ORDER_NO FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @;' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@PLAN_SHIP_TIME1 L%' ORDER_NO L%+>PLAN_SHIP_TIME L%+>PLAN_SHIP_TIME L%+>ѭ̶ʽ'  $>  '   '] J8   $> +JѭsublotidHSELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' AND PRODUCT_ID =' @/' GROUP BY SUBLOT_ID,SHIP_SEQ ORDER BY SHIP_SEQ'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N[ ''lot_id]@ L!f' sublotid-1 ȡҪ'   $> 'P  'h[ P +copy_row = Cells(st + 5, 1).End(xlDown).row$> P$$>$vB@ P'R T N R $>!VB@  R P  'R'X'װʱ䣬sublot_id,wafer_count SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyyMMdd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyyMMdd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG')and his_cat = 'OC' ' { and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ' ( ) )order by SUBLOT_ID, his_regist_dttm ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( :)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@[   N  P lot-qtyOn Error GoTo NoData:CUR_SUBLOT_WAF_CNT \%  X   +>manufacture-datemanufacture_date \%  X   +> expiry -Date expiry_date \%  X   +>''1-15ȡ̶ֵ   $J  X +>[  X $> \B@''''  ' P  'X'''''''sublot_id''''''X''ɳϸκI SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' AND PRODUCT_ID =' @0' GROUP BY SUBLOT_ID,SHIP_SEQ ORDER BY SHIP_SEQ 'ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷  ~ B@[   N  P lot_no SUBLOT_ID %  X   +> B@''''  ' P  'X'''''''sublot_id κADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT FILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN mes_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'd[ d d ~ bB@]X b!'h hf1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@k/'''''''''''''''''''''''''''''''''''''''''''''''''X l hADODB.recordset$p.n t n(r8αͣ޷ x n(v;αԣ޷select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''p[ p p ~ nB@ n!   P nB@r'ѭ  n!*Debug.Print sheet3set.Fields("MEAS_ITEMS")  X  $> MEAS_ITEMS n%MEAS_AVG n%  X  +>MEAS_PCS n% MEAS_PCS n%  X  +>dMEAS_PCS n%  X  +>k@ MEAS_STDEV n%  X  +>MEAS_MIN n%  X  +>MEAS_MAX n%  X  +>( '''дyxkp nB@   '''''d((ûмݣԺڵECOCA@J|k P  l'X l''ƫǰλ xmlļ AI1+v NAI2+v P AI3+v AI4+v AI5+vH2$vAI6+v AI7+vA''''ж A1$v%!'    '   $>   $>   $>   $>'   $>'     %'Debug.Print pd3    $>(^   $>'x x   +> min: uomcolumn-2,max:uomcolumn-1СΪ NG   $>   $> $>NG   +>kkRҵRESISTIVITY3th_row = Range("A1", "X50").Find("RESISTIVITY").row$RESISTIVITY = Cells(th_row, st + 14)ɾid  $B@v  $B@v  $B@v  $B@v  $B@v  $B@v  $B@vJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------''ļRESISTIVITY  H -res.xlsx %. ( %tB@v (Maker_Plant ,Lot_No.$>' !жٸlotԼÿlotcountADODB.recordset$p.\ t \(r)αͣ޷ x \(v,αԣ޷_SELECT SUM(WAFER_COUNT) WAFER_COUNT,SUBLOT_ID,lot_Id FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' group by SUBLOT_ID,lot_id'  ~ \B@'   \! lotidҰװʱexpire_time SUBLOT_ID \%'excelļADODB.recordset$p. t  (r0αͣ޷LOT_ID \%' x  (v3αԣ޷_SELECT END_SLOT_NO,END_SUB_LOT_ID,END_LOT_ID,MEAS_AVG FROM COCEQPRESDATA WHERE END_SUB_LOT_ID=' ' AND END_LOT_ID='  0' ORDER BY END_LOT_ID,END_SUB_LOT_ID,END_SLOT_NO' Debug.Print lotResSql  ~  B@    !$>  +>END_SUB_LOT_ID  %  +># END_SLOT_NO  %X  +>MEAS_AVG  %  +> wafer_idADODB.recordset$p. t  (r3αͣ޷ x  (v6αԣ޷ASELECT waf_id,slot_no,sublot_id FROM F3PRD.DWAFER WHERE SLOT_NO=' END_SLOT_NO  %' AND SUBLOT_ID='END_SUB_LOT_ID  %' order by sublot_id,slot_no'  ~  B@waf_id  %  +>   '  B@   \B@ |K-----------------------------------------------2---------------------------kh <B@ B@ B@ رչ B@B B@BĻˢ´ (rA@ H HresxmlļA@Jκȱʧ:;MsgBox ("κȱʧݣµκܼ")oAttribute VB_Name = ""@ Sub @() '嵥 ļ 'ship_seqHرĻˢ´& Application.ScreenHUpdngyFalse'FileTrim(Cells(1, 2)H If $"" Then<$MsgBo@x ("h"IE0xit uEnd/connectDBSet wp= CreateObj("ADODB.recordset..Curs orTypad@OpenSt{c 'ͣ޷ " LoadUseClient#ԕ#Dim pdsrc As Sng5 wpsql B'!Ʒssp SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILEA ='" &w& "' GROU P BY JrCJWi3, csDBCq@92Whq.EOF <> True<жǷΪ`һ@'ȡ@tr@cFields("*ə'õ˾"AcustomernB("7HAkqpath rADnԭ/·0һ 'ӵ繲a+FA<\\10.A52.142\co c\. ServerSharB112ģYradministrator`Passwl."fthw-829`05028hICFolder }sts()%DE@ 0 Elt Net k kW`ipt.)Afso!ing.ASypstem# -.MapDriv e "",)2, ", ,, %)K]g 1'%FnaK%S=Ax\ͻA?\|^!i Debug.Pri@ &A|@o@.xlsx?Q>@'汾\k`=GisWorkbook.PqB*pvgAxml_}= ss K'AFCopy ,@ f`G; "-res[ {:9ss'_1-! Eߏpki BqAMultiLevel (P?!2  v"4t Aak dt"'Gûж ӦD!k,ȷ;A COb+_.RemovejWHp,rW_dcNoth`_ ԋȻПDoQ~s'ܖ"8Qa=nb`O%P 1 'u'A:= %s./Q  Ex@celShe`= .qspĸp'-1sW xx`}sY.`Activ'total_qtVy71@"S@UM(WAFC@OUNT) (,SUBLOAkaGT' AND #{' group by )H8QiA O !$9.'uC , Q_ 2, 3)@xwafercouɐ= R_"'ORDOJ ,PLAN_SHIP_TI0ME sql1 = "SELECT PRODUCT_ID ,to_char"( ,'ymm dd') 41,CUSTOMER_NAME,ORD O FROM COCMEASLISTSTD WHERE FILE1='" & FileName "' AND "wpstrGROUPX BYȓJ"S@et ids= CreateObject("ADODB.recor").CursorTypeadOpenStatic 'ͣ޷(Loc"on*UseClient)ԧ)A% , csDBConn@9ion!Lv9Fiel0ds("FCells(2, 1) 2 Z4i@'ѭ̶ʽ coun_j65Wh =) <> "H#F+ 1endGst - Dim GD_item() As StringGReI1 To stWFor  g (Next#')sublotid ] SUBLO"–SEQc inx0"Teae c ;_id_aUaVRC eDEDebug.PVtb'G%''' p% \`>ihfe[Cge`tRowsSR-1k'ҪشƯ~2kIj,`m + 5Necopy_rowj! jȂWJ!I(E >'c< E AY.End(xlDown).Range(?1),M, 36)).C c_q eaGcp`BG G#M R tirep.PasteSpecial= S5 K)[yy0 0;xx;'װ`䣬S%P ,wafer1{ O THCUR_WAF_CNThis_regist_dttm MMmanufacture_dFADD_M@ONTHS(-1@2)jexpiryWF3PRD.DOPE_ where ID in('PKG','Ea)and 1 'OC' HSaa& " QSTR(``0,7()||Sj-3)QXASUB_0!( ^ H DIBNвCASEgN caF IS NULL THEl ELE07=/#co o LEFT JOIN _ 0 = !E' P@ k#!= R MESTAG) ms ON c.pms.Q&1m'/? > ) )er |by(1;c n'ship_seq_B "%/*c9()$EQ,*d1**!*DO c '%%TN%5 3%T$# #D#-!_x); ~_O8*p" Q)pkgD07=1E SHIP_SE Q" Se t lot= CreateObject("ADODB.recordset")zr.CursorType = adOpenStatic 'αͣ޷ЈQLocEonUUseClientT(TK sqlship, csD BConnuionDDebug.xPri8For sT1 To_id_counticopy_rowp - 1 % 'a-qtyO n Err-Go,NoData: Cells(i + yy1, st2)@,DFields("CUR_SUBLOT_WAF_C NT-manufacture-d3_Vexpiry -'vb~."Ǐa_no {[1qBe[S3q4B>>6>fo>''>> 'l: SRB.p>.???PM/oWovt1="IDPGIN0JFNAM EJ,CCASEQINģUB_A}GIS NULL 8THE~`ELNE0K=_PUPLEFT JOI@N mes_qTAG ms" _ 9& " Os.CUSTOME =c.v @TVmoDX.\c.&Z]]]^[O[n |K*t{0.UQQ-Dim vA@x¯06-RCORe8(Px) ' A4¶3If &> 0 The/B [@xA_@1(#iVVBxV2 8\U'ZaEnd If uSp=zԑT5S H2Xheet3@?X?X sXXXEXXXH qlP"se l _ITEMS, ND(MIN,5)d ,AXMAVG]EAS_STDEV,5) MPPCS from COC@DATASUBSUM where FILE_NAME ='" & Fi@leName"@' AND \L OT_IDBsu@bitem(c`ount)*'FLAG='F'" Debug.Print sheet3sql*et.Open-, csDBConnectionIf RecordCW > 0 The For it = 1 To copy_rowp - 13qTMoveFirst''ѭ*DmesD17f%'[CFi@elds("ITEMS")TCells(H+H+ yy, st 4)@*)]0AVGe3=A ʓJ7")26,8998/ 2g/Elseey3sI E End If?%11*Ge  2 MIN  13y AX g 'д`,%Ex?!= gNexv  ?a i yA$''[ rMsgBox "мݣԺڵE~?w1 2SuboBSNyy^(q) * 3+/ ƫǰλQq sD'xm`lļ_Range("AI1`Z= _pa,th2lot_id_ 3A94f5bwafero6^HP o A7PLAN_SHIP_TIMErbPall _create`4r!wE!'жЙ,= % `.-(xlDown).i+2cuomcolumn, P) <> "" Or` `?`\/ug lowChar ?dh o_Qup+ 3AOQRpd3@ c pd.c(  , i_ `?_Q_QO@7).0 mula q0Value/"q`OA'min:%-2,max:!-8Q 'Ϊ ` %` % 0%0@P`p 0@P`p 0@P`p 0@P`p 0@P`p k$*\Rffff*T26c06f1feu "  ( H `p   00 PX p*( Xh  "   (( P h      *    88 Pp  < X p   2    2 H P BX        ( 0 &H p  P   00 P $h 2 *   ^ x d ^ R`  0 0 8  P "`     0     (  @ P  p x         ,((X 60HhJ  08 0h $ $0$0$H` p$F $@   (8@@p<0J8< 0 NP  0 0    @ @ 0` 0   $2$0 (DP$l(D$P X` Nh  0 0 8  X X 0x 0   $2$08(8h$l(8$H PX`hpN 00Hx  0 0 ! (!D8!!!!N! "00"0`"" " #0#0#($ @$DP$$$H$ $0%0@%p%%% &0&0&' 0' 8@'x''' ''"'' ((( (((0(8(@("`(( (((((((()() H)X)`)h)p)x))))) ) ))  ,) P* JX*    *&*  *  * R+ X+ `+  p+ P+  ++,(, "@, &h,  , &, , &,  - &@-  h- x- -- - - - -*-  . (.Yangtze_River_storage_you嵥ļļ (رĻˢ´$ (rH$>$'H H嵥ļA@J|@k8A@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'd`WScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|XkP   B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------Sheets("Sheet2").Select' B@pSELECT ORDER_NO,SUM(WAFER_COUNT ) WAFCOUNT,TO_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H"' GROUP BY PLAN_SHIP_TIME,ORDER_NO' ADODB.recordset$p. t (r5αͣ޷ x (v8αԣ޷ ~ B@ORDER_NO %+>+Cells(1, 2) = counfwaset.Fields("WAFCOUNT")PLAN_SHIP_TIME %+>ѭsublotidUSELECT CUSTOMER_SUBLOT subLOT_ID,SLOT_NO ,WAF_ID ,SUB_LOT_ID FROM COCMEASDATAINFOS c ' INNER JOIN ( ' VSELECT SHIP_SUB_LOT_ID,CUSTOMER_SUBLOT FROM MES_SHIPTAG ms WHERE CUSTOMER_SUBLOT IN ( ' ?SELECT c.SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H') ' D) ms ON ms.SHIP_SUB_LOT_ID=c.SUB_LOT_ID ORDER BY SUB_LOT_ID,SLOT_NO 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'NO65536$v%!'   N A2:S $v.T T B@     $>B@ k'D   N     'D kdataworkbook.Save    A2:M2$v.T T B@ $>B@ kOK  D +> SUBLOT_ID L%  D +>WAF_ID L%  D +> 0If idset.Fields("SUBLOT_ID") = "WB3E903A07" Then $>'N $>'L $>' ; RESISTAIL;RESISHEAD RRGTAIL;RRGHEAD  CTAIL;CHEAD ORGTAIL;ORGHEAD OXYCONCENTAIL/2;OXYCONCENHEAD/2 3ORIENTATIONX;ORIENTATIONX;ORIENTATIONY;ORIENTATIONY / ; $' /$ ' / $' ','$ ' dx ; $' ','$ ' k84SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS in(' ')'ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@  !SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ ! /data %X0.#####$  D  +>d( data %X0.#####$  D  +>k k B@ 3ORIENTATIONX;ORIENTATIONX;ORIENTATIONY;ORIENTATIONY=SQRT(X  D *X  D +Y  D *Y  D )  D +>  D $>X0.#####$  D +>d =AVERAGE(X  D :Y  D )  D +>  D $>X0.#####$  D +>k0 d( ; $'   $/ $/ $'2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %? data,SP_DATA_STATE FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rBαͣ޷ x (vEαԣ޷  ~ B@ ! SP_DATA_STATE %; $' $  ITEM_TYPE % data %$0.#####$  D +> ITEM_TYPE %SP5 ITEM_TYPE %SP7 ITEM_TYPE %SP3edata %$0.#####$  D +>kkd2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' $''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %? data,SP_DATA_STATE FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@ ! SP_DATA_STATE %; $' $  ITEM_TYPE % data %0.#####$  D +> ITEM_TYPE %SP5 ITEM_TYPE %SP7 ITEM_TYPE %SP3edata %0.#####$  D +>kkkk /e / $'2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ !data %$0.#####$  D +>kx *e * $'2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%'' ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷ ~ B@ !data %$0.#####$  D +>k`dX2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' ''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ !SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@ !data %0.#####$  D +>kkxkp End If L  N   D $> N $8  D $>B@H ! 9 9999qNG  D +>  D $> L $8 e  D $>B@H ! 9 9999qNG  D +>  D $>e  D $>B@H ! 9 9999qxNG  D +>kPkH@ LB@(%-------------------------------------J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H.xlsx %. ( (K-----------------------------------------------2---------------------------k <B@ dataworkbook.SaveI p_workbook.SaveAs ss & FileName & "_by wafer.xlsx", xlOpenXMLWorkbookV:AA$B@H | B@vO:O$B@H | B@v Columns("AK:AK").Select Selection.Delete Shift:=xlUp Rows("3:3").Select Selection.Delete Shift:=xlUp Rows("2:2").Select Selection.Delete Shift:=xlUp Rows("1:1").Select Selection.Delete Shift:=xlUp رչ B@Bp_workbook.CloseXĻˢ´ (rA@洢 H resļA@JoiAttribute VB_Name = "洢1" Sub D () 'Yangtze_River_storage_you>'ļ 2'رĻˢ´Z Application.ScreenU$pdngFalse'FileTrim(Cells(1, 2")If $"" Then<MsgBox (" U"$Exit End IfconnectDBSet wp= Cre@ateObj("ADODB.recordset..CursorTypadO penSt{c 'αͣ޷` "LoadUse@Client#ԕ#Dim pdsrc Asd Sng5wpsql '!!Ʒss aaAR@oSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &G|& "' GROUP BY J@AwO]n9, cs8DBCCv7Whw.EOF <> TrueAжǷΪһ GE'ȡ3@trhFields("* 'õ`"AcumernB<("7p@vpathhAsԭAu·һ'ӵ繲a+H<\\10.A52.142`\coc\.  Ser@Sharb112րģ@\rŕadmin`istraP0assw`o."fthw-82905028hI@Foldersts()(%DEe@ 0 El%t Net k# Wipt.)Aafsoing.Sys8tem# -.M$apDr@ "$",)2, ®, ,, %)Kg 1)'%FaK %S=Ax\ʠͻA?\|^!i ')K` \  & hDDebug.Pri&ᆃy` .xlsxHqK'p &)=QisWorkbook.P{&B)&rU@Cxml_BD=~ 7W[qX3ss '1,Copy /",[@`87MultiLevel ( o !2o !o o 2і1q~D"5ûж2Y,ȷ$*];0,=O M.RemoveJE8,RsdE[MdQNoth@M yһϲy/-9s߼&+1ua\7gu8 'uA:= %s.1  ExcelhShe= .=qsp'-w1W 'B`r2").Selxx`mcy.Activcountwa(fid`"ORDqO,SUM(WAFCOUN0T ) ,TO_c(PLAN_Q_TIME,'ymmddh')  occ  8q fwaPp ˁ_RA%5ooog_1 T }- Co52, 1)h-'H_! >23*'ѭsublotidA @10 5,FSUBLOTN @`,SqN8O , P.B_:*DATAINFOS c %tb`INNER JOIN @( " s@ql1 = 0& "SELECT SHIP_SUB_LOT_ID,CUSTOMERLH FROM MES_PTAG ms WHERE RIN c.lk[COCMEAS^LIS@TSTD caFILE_NAME ='" & FileName ("'))ONm.+o=?v ORDER BYJ SNNO.S@et ids= CreateObject("ADODB.recor").CursorTypeadOpenStatic 'ͣ޷(Loc"on*UseClient)A%‡, csDBConn@9ion!lot_id_cou=CG.RARC Q@&Range("O65536").End(3).rowCKFor A@ 1 To  If@ >= `2 The'kss3A2:SQg .CopyCells((A - 1) * (QC+ 2,@.PasteSpecialK@8 IfNextGLO@&0=A= >(B ?K-A aa'dataworkbook.Savecatea`/o Q! `5 3 AndASc78M2k788b6# / + LO, 2D= "OKg2)"Fields("O13OWAF; ' 2V "WB3E903A07"ksh zx`2kxia34- 15I`r(!, ";") <> 0t:@ "RES!AIL;"HEAD" Or HRGTRGnCu"COdoXYCONCENa0/2;O!/2jORITIONX;Y)Y54w$/}s@trcity0Split, , vbT MCompareOJoin(1\C1gy2 31','6ElsPy O O M ? IKmeass * ҝDITE\MSAd_2 P ')XN\etϓϓ <///OGfRqls,: )3yccc@F;X!v_!iCOLUMN_NUMSDp 1 $ANNFOS c2} hllQ% >a$'/q.<>' '#Þn '/,h,0o,o,0,,,,|,,,(30.)-įz 8,~O ?o)2306Q07mat(CpDbl( 10")) /A"0.#e?f?  Vmeasset0.Fields("data"))@, "0.#") End8 IfN!Fs.MoveNextRIf team = "ORIENTATIONX; Y Y" ThenfCells(2s + LO, 19)7=SQRT(X" &A"* N+5 )"FFormat(CDbl(X#ElseCAVERAGEQD::]:B٨[AstrcitySplit;", , vbTComparFe@1 oo0 To UBou8nd(D\ြInStr (oow/") <>  d 1 G(zqls "SELECT * FROM COCMEASDITEMSSTD WHERE a_b ='!i(0) Ai'aSet CreateObject("ADODB.record? f .CursorType adOpe.atic 'αͣ޷;ha#d Loc on UseClient ? k a3, csDBConn@$ion, 3@  ql;8_7 ECOLUMN_NUMS & " ,SP_DATA_SE +DINF OS c2D W`AF_ID$D39cE a` <>' '"SUB_LOT CQiF#?S (S@&S8*+RR+o)o)o)o$UY)M)7(/) ;.RR>CTtP!H_TYPEpS]5 ,*+"W___{\f(`a$s6(P ^3u / 6Y1at `4`k"SP5" A<7 03 ??et????4nzzzzႏz/zzz"z_zzzEszadzz_8zϏzz.qlѝzzz-z("zzߜӟz=  "=zz("zi )1߯z?> )1z???#6#5zz?ԣ޷ measset1.Open ql1, csDBConnect ion If>LRecordCount <> 0 TheDITEM_TYPE = Split(Fields("SP_DATA_STATE"), ";", , vbTextCompar e)X7f InStr(;(UB5[d)0As.ÅA")) p;Cells(teams + LO , 19)xFormaydataQt0.#"$oExlsef/hT5`" AndpY 7f 3"(~E##Ei@:If_E NSUmå@/")]strcixty1gFc/ ?qls "SELECT * FROM COCMEASD^SSTD WHERE a_b ='" D& e(0)"'"3Set&M CreateObj("ADODxB.rB@u:FrCursorType@ adStatic 'αІͿ ets. HLoc` onb UseClieF  Fs8, 3@Ubql2e40_A0 ECOLUMN_NUM`H& " ;INFOS c2d; WAF_ID;3C< ad_K<>' '"SUB_LOT #Hid`>ƬcJt!#Jf2'2?J J?F J2{_8a2.{{Up 1ket2vk /B1q{l8 RR "*"RwU*߃uRRRRR RRR!L,R+|,RW)RبRr D2ql4RRRRRRR//"~RRSRY%Rw4Re w__|%% %4RR4R/!5RRet4 R*RwRR/ LLLLQKsQKKK!K@|&&&* KKo &s&&A5p ssql3 = "SELECT MEAS_ITEM_" & meassets.Fields("COLUMN_NUM")|" data FRO M COC|DATAINFOS c2 WHERE WAF_ID ='Cells(teams + LO, 13AM' and.<>' 9SUB_LOTihid'" QSet~3CreateObject("ADODB.recor0")#3.CursorType'adOpenStatic 'αͣ޷@-L$oc'on/UseClient/2/*C, csDBConnBion I(IfP.RBKCou$<> 0 xThe_9)@8Format(WŧA"), "0.#fEIf/' ? xiax ;"" Or shang@ => Vhal(C)\PR.SelmlWit h ;.Int`erior5.Pat!OxlS0olidColorIndex :xlAuto:ic 255<TintAndShadn0?S?!& 021W"NGElsze@<@J?n9)??e?k?.?.9$??e wf ?"~m> o?o? ;o?5o? ?o~B o?;1h  Next+GMove '-o1_~2a!1  P1'csv0ļp_workbook%)Ws.(ssFileNameQ.xlsxApplis.Display@AlertsPF>a:OtMTrue $"wp`.+!qA.Sav 'q7RAs _by wafer#, xl!xXML5cY>umnV:AA" KhDte Shift:=xlUp3O:O=C.2A AK:AK"4Row 3:3W B 2<:21:>1Q'رչGz Clos  Wenŝ'Āˢ´Ε3ScreenUping 3/3`'Sc DBMsgBox "0洢q);resA?Ʉ10Sub1rI` %` % 0%0@P`p 0@P`p 0@P`p 0@P`p 0@P`p k$*\Rffff*T@6c06f1fe "  ( H `p   00 PX p*( Xh  "   (( P h      *    88 Pp  < X p   2    2 H P BX        ( 0 &H p  P   00 P $h 2 *   ^ x d ^ R`  0 0 8  P "`           0( X `  h (x .  2 H ` h p        ,8(h @X`J  0 0@ p$ $0$0$ 8 H$F` $@  @pX<J<`  N( x 0 0     08 0h   $2$0(D($lp(D$( 08 N@  0 0  ( 0 0 0P 0  ( $2$0(8@$lx(8$  (08@H`N 00 P $p  h!0!0!! ("D"X"`"x"N" "0#08#h# $# $0$0$% (%D(%p%x%H% %0%0&H&h&x& p'0'0'' (( 8(P(X(`(h("(( (((((())"()P) p)))))))))) * *(*0*8*@*H*P*p*x* * **  ,* P* J +    p+&+  +  + R+  , (,  8,,H,  x,,,, ", &-  (- &H- p- &- - &-  . .  .8. @. X. h. x.*.  . .Yangtze_River_storage_you嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|@k8A@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'd`WScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|XkP   B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------Sheets("Sheet2").Select' B@pSELECT ORDER_NO,SUM(WAFER_COUNT ) WAFCOUNT,TO_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H"' GROUP BY PLAN_SHIP_TIME,ORDER_NO' ADODB.recordset$p. t (r5αͣ޷ x (v8αԣ޷ ~ B@ORDER_NO %+>+Cells(1, 2) = counfwaset.Fields("WAFCOUNT")PLAN_SHIP_TIME %+>ѭsublotidUSELECT CUSTOMER_SUBLOT subLOT_ID,SLOT_NO ,WAF_ID ,SUB_LOT_ID FROM COCMEASDATAINFOS c ' INNER JOIN ( ' VSELECT SHIP_SUB_LOT_ID,CUSTOMER_SUBLOT FROM MES_SHIPTAG ms WHERE CUSTOMER_SUBLOT IN ( ' ?SELECT c.SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H') ' D) ms ON ms.SHIP_SUB_LOT_ID=c.SUB_LOT_ID ORDER BY SUB_LOT_ID,SLOT_NO 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'NO65536$v%!' A2:M2$v.T T B@A2:A $vB@    N  A2:S $v.T T B@      $>B@ k B@! For A = 1 To lot_id_count If A >= 2 Then( Set ss3 = Range("A5:P5") ss3.Copy, Cells(A + 4, 1).PasteSpecial End If idset.MoveNext Next'D   N     'D k  OK  D +> SUBLOT_ID L%  D +>WAF_ID L%  D +> $>'N $>'L $>' ; RESISTAIL;RESISHEAD RRGTAIL;RRGHEAD  CTAIL;CHEAD ORGTAIL;ORGHEAD OXYCONCENTAIL/2;OXYCONCENHEAD/2 3ORIENTATIONX;ORIENTATIONX;ORIENTATIONY;ORIENTATIONY / ; $' /$ ' / $' ','$ ' d ; $' ','$ ' k`4SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS in(' ')'ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@  !SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ ! /data %X0.#####$  D  +>dP data %X0.#####$  D  +>k k B@ 3ORIENTATIONX;ORIENTATIONX;ORIENTATIONY;ORIENTATIONY=SQRT(X  D *X  D +Y  D *Y  D )  D +>  D $>X0.#####$  D +>d =AVERAGE(X  D :Y  D )  D +>  D $>X0.#####$  D +>kX dP ; $'   $/ $/ $'2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %? data,SP_DATA_STATE FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rBαͣ޷ x (vEαԣ޷  ~ B@ ! SP_DATA_STATE %; $' $  ITEM_TYPE % data %$0.#####$  D +> ITEM_TYPE %SP5 ITEM_TYPE %SP7 ITEM_TYPE %SP3edata %$0.#####$  D +>kkd2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' $''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %? data,SP_DATA_STATE FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@ ! SP_DATA_STATE %; $' $  ITEM_TYPE % data %0.#####$  D +> ITEM_TYPE %SP5 ITEM_TYPE %SP7 ITEM_TYPE %SP3edata %0.#####$  D +>kkkk /e / $'2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ !data %$0.#####$  D +>k *e * $'2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%'' ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷ ~ B@ !data %$0.#####$  D +>kd2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' ''ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ !SELECT MEAS_ITEM_ COLUMN_NUM %1 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='  D $>' and MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID=' SUB_LOT_ID L%''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@ !data %0.#####$  D +>kkk L  N   D $> N $8  D $>B@H ! 9 9999qNG  D +>  D $> L $8 e  D $>B@H ! 9 9999qPNG  D +>  D $>e  D $>B@H ! 9 9999qNG  D +>kkx LB@`%-------------------------------------J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H.xlsx %. ( (K-----------------------------------------------2---------------------------k <B@ B@  H_by wafer.xlsx Z B@V:AA$B@H | B@vO:O$B@H | B@v Columns("AK:AK").Select Selection.Delete Shift:=xlUp Rows("3:3").Select Selection.Delete Shift:=xlUp Rows("2:2").Select Selection.Delete Shift:=xlUp Rows("1:1").Select Selection.Delete Shift:=xlUp رչ B@Bp_workbook.CloseĻˢ´ (rA@洢 H resļA@JoH@iAttribute VB_Name = "洢" Sub AH() 'Yangtze_River_storage_you>'嵥ļ 2'رĻˢZ Application.ScreenHUpdngFalse'FileTrim(Cells(1, D2)If $"" Then<MsgBox ("ɇU"$Exi t End IfconnectDBSet wp= CreateObj("ADODB.recordset..Curs orTypad@OpenSt{c 'ͣ޷ " LoadUseClient#ԕ#Dim pdsrc As Sng5 wpsql B'!Ʒss aaAR@o@SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHER@E FILE ='" &G|& "' GROUP BY J@AwO]n9, cpsDBCCv7Whw.EOF <> TrueAжǷΪGE'ȡf@trhFields("* 'õ˾"AcumernyB("7p@vp8athhAsԭ0Au·һ'ӵ繲a+H<\\10.A52.142\coc\. Ser@Sh ar112ģ @\radministra`Passw`o."fthw-829`05028hIFoldersts()(%DE@ 0 El%t Net k#  Wipt.)Aafso!ing.Sypstem# -.HMapDr@ H"",)2, ®,r ,, %)Kg 1)'%FaK%S=Ax\@ͻA?\|^!i ')K` \  & hDDebu`g.Pri&y` .xlsxHqK'汾 &)=QisWorkbook.P{&B)&rƇU@xml_BD= 7W[qX3ss '1A,Copy /",[@`87MultiLevel ( o !2o !o o 2і1q~D"5ûж Ӧ2Y,ȷ$*];0,=O M.RemoveJE8,RsdE[MdQNoth?@M yһdy/-9s&+1ua\7u8 'uA:= %s.1  ExcelShe= z.qsp'-1W 'B`r2").Selxx`mcy.ActivcountwPafid`"ORDqO,SUM(WAFCOU`NT ) ,TO_c(PLAN_Q_TIME,'ymmdd')  occ  8q fwaPp ˁ_RA%5ooog_1 T - Co52, 1)h-'H_! }23*'ѭsublotpidA @10 5,FSUBLOT @`,SqpNO , P.B_:*DATAINFOS c %tb`INNER JOIN ⵀ ( " sql1 = 0& "SELECT SHIP_SUB_LOT_ID,CUSTOM ERLH FRO@M MES_PTAG ms WHERE RIN!c.lk[COCMEAS^LIS@TSTD caFILE_NAME ='" & FileName ("'))ONm.+o=?v ORDER BYJ SNNO.S@et ids= CreateObject("ADODB.recor").CursorTypeadOpenStatic 'ͣ޷(Loc"on*UseClient)A%‡, csDBConn@9ion!lot_id_cou=CG.RARC Q@&Range("O65536").End(3).rowCYss3 `A2:M2ET@.pCopy D@AQ).PasteSpecialCFor wafs1 To '-CiIf >= 2 The <&~SK)AC@ells((!- 1) * (Q B+ 2,@/#J IfNextCdataworkbook.Save 'A {;A:fA O5:P>51NN#A + 4e'a#hMove g"LO0c$A!!eF@#tAa" (9?+ 7B +atea@Oo QbO,+ LO, 2`L= "OK 42)%-Fields("%qO13OWAF sh@.x` 2Шxi:a3!- 15K=Ir(!, ";") <>< 0e@ "RESAIL;"HEAD" Or" RGTRGnC"COdoXYCONCENa/2;O!D/2jORIT IONX;TAYY"_Er/strcity0Split, , vbTMCompa' '^q{4ij '/,h,0o,o,0,,,,|,,,(30.)-Ok 8,~O?o)23а6a07mat(CpDbl( 10")) /!"0.#e7f] Cells(teams + @LO, 23 ccc) = Format(CDbl(measset0.Fields("data")), "0.#!") Enpd If'!#s.MoveNextRIf }u"ORIENTA@TIONX;Y Y" Thenf19"=SQRT(X" &A"* +5 )"F zR,yElseCAVERAGEQD::]:٨[AstrcitySpl it;", , vbTCo`mpare@1 oo0 To UBound(D\@^InStr(oo;/") x<> ^Z d 1 (zqls "SELECT * FROM COCMEASDITEMSSTD WHERE a_b ='!i(0)Ai'a0Set CreateObject("ADODB.record ? f .CursorType adOpe.atic 'α<;had Loc on Use@Client  k a3, csDBConn@$ionx, 3@_b ql@E<8_!8fCOLUMN_NUM T& " ,SP_DATA_S@E DINFOS c2E WAF_IDˤD03E aA <>' '"SUB_LOT Q>iF#S S@&S8))))/)ad))__W))(}PURBC YtU}L_TYPEaE0j/"[cc_`f(d$sv,П /c7yc / ]1a?1y7 E 9o"SP5"| A@@_g7ߟ 03 ??et??????T< a/"M_L ޏ rqlѤ___10_$__1_A@  "?__("_(,1o6et") measset1.CursorType = adOpenStatic 'αD.LocWongUseClientf :f ql1, csDBConnectionW3If3RecordCoue<> 0 The$6ITEM_TYPESplit(Fields("SP_DATA_STATE"), ";", , vbTextCompare K6@-Ivr((UB-d)@ s. ")) k8Cells(teams + LO, 19)@< Forma' '"SUB0_LOT LidBFcNtO'O'E+2uO'__ I'2_Gf2.8o#1pet2p /F11q8 oZV "*$oV|pZ*rVVVVV VVVD$s////|///)* VV 1" ql4VVVVVVV//"VVXVH'VV!4O'O'O'O'|O'O'O' I'4V_V4VG)VVet4V*VowV/ PPPPѮoPs  Set meassets = CreateObject("ADODB.record")  ~.CursorTypeadOpenStatic 'αͣ޷"WLoc Kon[UseC lientZ.ZQqls, csDBConnion, &3NIf.RCouG<> 0 Thenql3d"SELECT MEAS_ITEM_" &,Fields("COLUMN_NUM")" data FROM COCDATAINFOS c2 WHERE WAF_ID ='*Cells(teams + LO, 13B' and <>' CSUB_LOT@ui..G.'v"WFH3@GrFXet3AD?IKPK {W G3?X PJ9)7Format(F%eAV"), p"0.#5 Ey`RIfu@xiax s"" Or shanguS> Va4l()}2.S el3With .Inte0riora&.P atAxlSolidColorIndex7@xlAuto7ic 255<TintAndShada0?a?!& 021AU"NGElsze@<@J?ή9)??e?k.O.e __;Us"NpDC1+o?o?N;o?5 ?B| _;1g   Next+GMove '-{o1_2 u  'csv p_wo@rkbook)Ws.(ssЬFileName.xlsxX Appli.DisplayAlerRFaZOtMTrue "wzp`.+!# .xSavBAs ~_by wafer, xlXMLY>umnV:A?@ABCDEFGHIJKLMNSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ mLƓxME(``D % J@ @f 0 @ 8%H(8HXhx(8HXhx(8HXhx(8HXhx(8HXhxxk$*\Rffff*Rw6c06f1b5"  ( @P h  x 00 0H* ( H` "   (  0  H X ` h *   8 ,8h  <    2( D`   2 DX ` Bh          8 @ &X   P   0@Xx    P 0p 0       ( @  X  (x                0 08 h   &   0 0   ( @ X0h    (2H *  2@  H Xh $  $  000`  0H P0`  (  68@H  `00   0 H Xp  0$6 ((  <(H@(,6(,0((2 (0X(0 ($   $     2(`h p  P J ,8 h 0    $ ( 8HPh T ( @ X x  & N(x        ( H8`     0 2@ (x & f  0! @! X!h!!&! !! ! " " "0"8"P"`" h"x""" """""# #(#8# @#X# p## #  #0#2#T0$$$0%P%"%:&0@&,p& & &  (( (() 0)@) H) h) x) )) )) +0,08, h,x, ,,&, ,,  , R- p-- -- - - - -  . . <(.&h.. . . . . @.  / (/8/ @/ X/ h/  Np// /嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]XƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]p]ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'F%Debug.Print srcpath & wpstr & ".xlsx" F @.xlsx$x 汾· *!\ͻģ\ B\ @\'жϱǷӦļ $x Ʒļ F @.xlsx  H.xlsxA@H F @.xlsx  H_Thickness(um)_Data.xlsxA@HdP A@ Ʒļ F @.xlsx  H.xlsxA@H F @.xlsx  H_Thickness(um)_Data.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|Hk@   B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@p B@pѭ̶ʽ]   $>  +JѭsublotidHSELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' AND PRODUCT_ID =' @/' GROUP BY SUBLOT_ID,SHIP_SEQ ORDER BY SHIP_SEQ'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id] L!f'lot_id-1 ȡҪ R1$v%!'P$> P%$>$vB@ P'R T N R $>!VB@  R P  'R'X total_qtySELECT SUM(WAFER_COUNT) WAFER_COUNT FROM(SELECT SUM(WAFER_COUNT) WAFER_COUNT,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' group by SUBLOT_ID)'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ WAFER_COUNT L%'Z SUBLOT_ID,,PO_NO,Ship_dateiSELECT SUBLOT_ID,WAFER_COUNT ,PLAN_SHIP_TIME ,ORDER_NO,LOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@[   N  P PO No.ORDER_NO \%  X  +> Total Q'ty Z  X  +> Invoice No$>'^ ^  X +> Shipping DatePLAN_SHIP_TIME \%'` ` yyyy/mm/dd$  X +>''5-16ȡ̶ֵ   $J  X +>'''Lot_No SUBLOT_ID \%  X +> \B@'''' P  'X  ''''''''sublot_id@'''''''һβsublot_id, κADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT FILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN mes_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'd[ d d ~ bB@] b!'h hfP1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@ k /'''''''''''''''''''''''''''''''''''''''''''''''''X l hADODB.recordset$p.n t n(r8αͣ޷ x n(v;αԣ޷select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''pselect MEAS_ITEMS, ROUND(MEAS_MIN,2)MEAS_MIN ,ROUND(MEAS_MAX,2) MEAS_MAX,ROUND(MEAS_AVG,2) MEAS_AVG,ROUND(MEAS_STDEV,2) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME ='" & filename & "' AND SUBLOT_ID ='" & subitem(subcount) & "' AND LOT_FLAG='F'Debug.Print sheet3sql p ~ nB@ n!   P nB@r'ѭ  n!*Debug.Print sheet3set.Fields("MEAS_ITEMS")  X $> MEAS_ITEMS n%[ p(5Cells(it + 1 + yy, 23) = sheet3set.Fields("MEAS_AVG")MEAS_AVG n%0.00000$  X +>MEAS_PCS n% MEAS_PCS n%  X +>dMEAS_PCS n%  X +>k MEAS_STDEV n%  X +>MEAS_MIN n%  X +>MEAS_MAX n%  X +>( '''дy(k  nB@   '''''d(ûмݣԺڵECOCA@J|k P  l'X lJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------%ȡģ3̶id1ThicknessRҵThickness ThicknessR1R80$v%!'t t$>'v$J'xж 'Сֻһsublotid ȡѡ N (*kAA:AA$B@H ~|  B@z A1$v%!'  '   $>   $>   $>   $>'   $>'     %'Debug.Print pd3    $>(^   $>'x x   +> min: uomcolumn-2,max:uomcolumn-1СΪ NG   $>   $> $>NG   +>k`kXP  $B@v  $B@v  $B@v  $B@v  $B@vpͲԹƬļ2''ļTickness  H_Thickness(um)_Data.xlsx %. ( %tB@v (Maker_Plant ,Lot_No.ADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷'SELECT SUBLOT_ID ,LOT_ID FROM '  COCMEASSHIPLISTSTD cd '  WHERE FILE_NAME= ' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ '[   ~ B@ !'  ! x +> SUBLOT_ID % +> B@ ''''''''''''''''''''ȡ B@p' $>  'ʼ  '    ']X $>!VB@'     $>!VB@    ' ''ɾԭʼ   $B@vxдSlot ID T7 CodeADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷'KSELECT SUBLOT_ID ,SLOT_NO,WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN' ('  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT '  FROM MES_SHIPTAG ' + ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' ' ) order by SUBLOT_ID,SLOT_NO ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( B)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO'[   ~ B@  !WAF_ID %  +> B@'';ŲThickness B@p'''''Thicknessԭʼ v;$'  H %' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( ;)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUB_LOT_ID ORDER BY SHIP_SEQ'ADODB.recordset$p. t (r0αͣ޷ x (v3αԣ޷[   ~ B@ B@p  !ITEM %  +> B@ThicknessendK-----------------------------------------------2--------------------------- B@p$B@v1:1$B@H |  B@z B@ B@ رչ B@B B@B  H.xlsx  H_ж.xlsxA@H  H.xlsx %.$B@v B@ B@B 'ûNoData:9MsgBox "ûݣҪܸļ嵥"k <B@Ļˢ´ (rA@HMsgBox "ɳ洢" & filename & "" & filename & "Thicknessļ"o80]Attribute VB_Name = "洢" Sub Yangtze_River_storage_you() '嵥ļ .رĻˢ ´& Application.Scr@eenUpdng{False'FileTrim(Cells(`1, 2)uIIf $"" Then<# MsgBox ("B"IExit vEnd IfconnectDBSet wp= CreateObj("ADODB.recordset..CursorTypadOpenSt{c 'αͣ޷ "LoadUseClient#Fԕ#aDimasql As S @_ 'AƷwpSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILEA ='" &l& "' GROU P BY ?Jg?AM., csDBCf,Wh@@g.EOF <> True 'жǷΪһG:0'ȡ@trXFields ("*I'õ˾&"Acu@mernB("7ȠesrcpathfGpdBoԭA6·һ'繲A # > \\10.A52.142\coc\1Ser@0Shar"112ģ,@WradministraPassw`j`1"fthw-82905028IFoldeBrzsts()/(%$H@ 0HElGŐ}Netk} Wipt.CfsoCing.System# -.MapDr "", 1, b, ,, ( 1ɟ'ÉJnC"IA@{\>\ja!cl 'Debu`g.Pria&~q`.xlsxh?>@'汾 E=FisWorkbook.Ps?A_SA@Ӧ!q~Ї bX$Y'%K Copy ",  ZQ_Thickness(um)_pData 7C6MultiLevel (^Q rkh' m x9_0"W$"7:û1%7q%,ȷ1/4;q@w@7CU JRemoveKC,bz4K7W= NothSχe  ?һ±84Es'0"l-C"9a{acD{D' q 򿪟%Q:= %s.Q? e'4  ExcelShe=% .s p'-;1W xxeh .Acti>v '̶ʽGD_iw(11)Ca'For p 5 To 16a- 5)@2,BNext' sublotpid%Q! 1"4 SUBLOQ,_SEQ c !A' ANDȸ #fR ORDERѼE+iaoo5///'3GK 7 a _id_coup= CRC1/'''C=,,0idbgetRL@ows 'lot_id-1|'ȡҪ copy_row = Range("R1").End(xlDopwn).: fPCells(2, 01),  L, 37)).C[ m_h& For cp1 To _count 8- 1 +7&+ 1@XtireRow.PasteSpecialc>A-NexRtyyJ0 'total_qtBy sql1"SELECT SUM(WAFER_COUNT)  FROM( ,SUBLOT_ID COCMEASSHIPLISTSTD WHERE FILE_NAME='" & Fil eName"' AND PRODUCwpstrgroup by-)"6Set ids@= CreateObject("ADODB.recor") Ħ.CursorType@HadOpenStatic 'αͣ޷਻ϪB"LoconUseClie@aA% Aq, csDBConn@9ionO5@$Fields("HyC't,,PO_NO,Ship_dWOLGi,iJ,PLAN_AC_TIME ,xORDO@ 0 TheB `քxA__@1(#iXg1Y ?W'Rp I>fPQpS/ [`r]u-CrWheet3(ٵ"ADODB.recordset ") sheet3.CursorType = adOpenStatic 'αͣ޷#HLocLon\UseClient![,[qlL"select MEAS_ITEMS, ROUND(MIN,$5) , AX M AVG  STDEV/PCS from COCDATASUBSUM where FILE_NAME ='" & FileName"' AND LOT_IDsubitem(count)FLAG='HF'"'s^F2WF2)VFRFyFJf@FnFF'FDebug.Prisql  F , csDBConnionSIfE et.RCr > 0 The For it@1 To copy_rowp - 1G*MoveFirst''ѭ5x mes%g W7'P0@$Fields("jyi -Cells(&+ 1 + yy, 19)@ 0 wL-'23q%G `>mat(& , "0.0") *RJ*b1ী > 26?2  =o / 29e Else)._ nd If 24$7\% 25yo"A.X'дoEx G03 EOo7q\Nex\v PZ&_ri!''c/5qMsgBox "мݣԺڵESubo!yye(yP3''-f1 2g s 'ȡģ3̶id1ThicknessRҵ th= Range ("R1" cR80") Ond("V?|gMaker_Pla = GD_6Sc''СC33p%plotid ȡѡqPk_id_r Appl&iStC`Mo2dFac&Column0AA:AASR3 .Insert Shift:=xlToRight, QOrigina{F`Lef`tOrAb'̡al A1P (xlD`own). zi2Qc#1uomc 7wZ, 70) <> "" Orz z 1gqlowChar 1gaup+< 3Apd3@ c pd.c( 8, i_  `V Cells(i, uomcolumn + 6).Formula = pd3tValue?@*oFN4'min:-2,mHax:-16СΪ NGIf !c- 2)M"" And1 <> Then8Д8NG"EDIf  C@Next GC ws(Iz1).Delete &G']'pͲԹƬļ2 '''ATicknessSet p_workbook@aWs.Open(srcpath & FileName"_ThD(um)_Data.xlsx")GApplication.DisplayAlertsFals_ .Sheets(PUTru 'Maker_Plant ,Lot_No. !`tCreateObject("ADODB.recordseti.Curs orTypad $Stc 'αͣ޷jt Loc$adUs`eClieF hO 'g 'sql2"SELECT SUBLOT_ID FROM l$& " COCMEASSHIPLISTSTD cd 9WHERE FILE_NA@ME= '"lE' AND PRO(DUC=BwpstraI' ORDER BY _SEQGDebug.Pr~i@#''31 !, csDBC8onn:`Pf_Xall$RA-iE%* B(=&!EQ#&&E)&D&& %_#_#g_#20_#E _#T ! P=P! _)c`_Oј," *)pkg*=+N$H3 $\5oji)i2+ti}, 3AX Sett.MoveNext   h''';ŲThickness\p_workbook.Activate8zjԭʼp@)}item_arr = Split(<, ";")1numsql20qlcommonutil_sub_lot_id.get_#_checkall_d atas(5, FileName/Zship_s` %` H% V ``D`>` %` @%XP %`XPXPXPXPXPXP XP@XP`XPXPXPXPXPXP XP@XP`XPXPXPXPXPXP XP@XP`XPXPXPXPXPXP XP@XP`XPXPXPXPXPXP XP@XP`XPXPXPXPXPXP XP@XP`XPXPXPXPXP XP XP@ XP` XP XP XP XP XP XP XP@ XP` XP XP XP XP XP XP XP@ XP` XP XP XP XP XP XP XP@ P`` k$*\Rffff*T96c06f1feM"  " ( H `p   00 PX pP*h    0 "8 ` x (        *0 `  8 P0P p <     2 P X h 2   B  0 HP   Xx   &  PH P  ` 0 0 ( f  p       D  2  ,X       6 &8 ` 2p "       (  < ,H x 8 (    ""@"h$ F ^ Tx       0 @P h  4 4 4  6(  $` $ $  &  ,* ,:P(,$,4(   $$$8$`$,x$ ((((($$ $ $ $ $ ( 8@ H $X$$$$,$ ((((( $($ 0$ @$ P$ `$ p  % , $ P(`(h(p(x($$ $ $ $ $      t  $ * $ * $8 *` . ,  8 D8    P J     &0 X h  R         0 @X ` x   *   "   ( @  Ppx 00 (8@*  P`    "   0  (P  x          *  ! 8!@! H!8`! P!!" (" <@" " " " " 4" # #  # 28# p# x# B### # # $$   $0$ P$ X$ (p$ $ P$% %  % 08% 0h% (% f% (& "@&h&  & & $& & &'' '20'h'.x''  ' ' '(( 8( ) 4()`)h) p) )J) )$) *0*8*@*X*p* *  *  * * * *,  ,  08, 0h, 0,  2,  -,6 -(X-,0`-(-  - $-$ -$D-$ 8.(H.(P.(X.(`.(h.$p.$ x.$ .$ .$ .$ . .. . $.$ /$D0/$ x/(/(/(/(/(/$/$ /$ /$ /$ /$ / 00 %0 00H0`0x00D0$ 0(1(1(1(1( 1$(1$ 01$ @1$ P1$ `1$ p1 1  11 1  1 11 .1 ,2 H2 8X2 D2    P2 J(3    x3(3 3 3 3 R3 @4 H4  X4 h4  x4 4 44 4 4 4  4*4  (5 85A@T A@V o`X嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|@k8A@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ]|SELECT CUSTOMER_NAME ,PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PRODUCT_IDCUSTOMER_NAME,PLAN_SHIP_TIME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'BʱPLAN_SHIP_TIME <%'X ] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'kp繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hk@d87繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xlsx$x]0 ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷ !ݳ嵥ļƷlotidPselect LOT_ID,SUBLOT_ID ,WAFER_COUNT from COCMEASSHIPLISTSTD where FILE_NAME =' H' '  ~ B@ V ! ½excelļsheet !!.sheet1$t%>_ SUBLOT_ID$ (X65536sheet1$t%v%!'A1:AE sheet1$t%v. B@a1 !$t%vB@    $>'Z Z Lot_NoKT SUBLOT_ID % sheet1$t,> SUBLOT_ID % +>batch-noKTLOT_ID % sheet1$t,>LOT_ID % +>Manufacture_DateKTADODB.recordset$p.` t ` (r x ` (vSELECT to_char(DH.HIS_REGIST_DTTM,'yyyy/mm/dd') HIS_REGIST_DTTM from F3PRD.DOPE_HIS dh WHERE OPE_ID IN ('PKG','EPKG') AND HIS_CAT ='OC' AND SUBLOT_ID =' SUBLOT_ID %''b b ~ ` B@HIS_REGIST_DTTM ` % sheet1$t,>HIS_REGIST_DTTM ` % +>QuantityKT wafer_count % sheet1$t,> wafer_count % +>n  . !sheet1$t%>' $sheet1$t%>'N %sheet1$t%>'L OK #sheet1$t,>OK #+>@ If addsheet.Cells(lotrowitem, 33) = "/" ThenW addsheet.Cells(lotrowitem, 33) = lotIdSet.Fields("wafer_count")N Cells(lotrowitem, 33) = lotIdSet.Fields("wafer_count") End If ADODB.recordset$p.  t (r x (vselect meas_pcs,Round(meas_min,5) meas_min ,Round(meas_max,5) meas_max,Round(meas_avg,5) meas_avg,MEAS_ITEMS,Round(meas_stdev,5) meas_stdev from COCMEASDATASUBSUM csum where csum.SUBLOT_ID=' SUBLOT_ID$' and csum.MEAS_ITEMS=' ' '  ~ B@ !1meas_avg % sheet1$t,>meas_MIN % sheet1$t,>meas_max % sheet1$t,> meas_stdev %  sheet1$t,>meas_avg % +>meas_MIN % +>meas_max % +> meas_stdev %  +>meas_pcs % meas_pcs % +>meas_pcs % sheet1$t,>dh meas_pcs % +>meas_pcs % sheet1$t,>k N meas_max % N $8 NG #sheet1$t,>NG #+>w :AE  <%vB@H ! 9 9999q  r( r( r( r( r(k k L meas_min % L $8 NG #sheet1$t,>NG #+>X :AF  <%vB@H ! 9 9999q  r( r( r( r( r(kx kp !0e +> +> +> +>  +>w :AE  <%vB@H ! 9 9999qp r( r( r( r( r(kk B@ *!\ͻģ\ B\ @\ !.xml coa_ӳ z% B@ x Columns("I:I").Select# Selection.ClearContents Columns("J:J").Select# Selection.ClearContents Columns("K:K").Select# Selection.ClearContents( Sheets("Sheet1").Name = FileName%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H.xlsx %. (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@ B@ رչ B@Bp_workbook.CloseĻˢ´ (rA@ൺо H resļA@Jo(P嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|kA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ]|SELECT CUSTOMER_NAME ,PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PRODUCT_IDCUSTOMER_NAME,PLAN_SHIP_TIME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'BʱPLAN_SHIP_TIME <%'X ] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'd8WScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|0k(   B@.kжһǷƷļ  H.xlsx$x]( ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷ !ݳ嵥ļƷlotidPselect LOT_ID,SUBLOT_ID ,WAFER_COUNT from COCMEASSHIPLISTSTD where FILE_NAME =' H' '  ~ B@X65536$v%!' V !A1:AK $vB@H B@A  V $vB@H <B@   $>'Z Z Lot_NoKT SUBLOT_ID %  V +>batch-noKTLOT_ID %  V +>Manufacture_DateKTADODB.recordset$p.` t ` (r x ` (vSELECT to_char(DH.HIS_REGIST_DTTM,'yyyy/mm/dd') HIS_REGIST_DTTM from F3PRD.DOPE_HIS dh WHERE OPE_ID IN ('PKG','EPKG') AND HIS_CAT ='OC' AND SUBLOT_ID =' SUBLOT_ID %''b b ~ ` B@HIS_REGIST_DTTM ` %  V +>QuantityKT wafer_count %  V +>n    A  V   :W  V   $vB@H B@A  V  $vB@H <B@k. !$>' $$>'N %$>'L OK  V  #+> ADODB.recordset$p.  t (r x (vselect meas_pcs,Round(meas_min,5) meas_min ,Round(meas_max,5) meas_max,Round(meas_avg,5) meas_avg,MEAS_ITEMS,Round(meas_stdev,5) meas_stdev from COCMEASDATASUBSUM csum where csum.SUBLOT_ID=' SUBLOT_ID$' and csum.MEAS_ITEMS=' ' '  ~ B@ !1meas_avg %  V  +>meas_MIN %  V  +>meas_max %  V  +> meas_stdev %  V  +>meas_pcs % meas_pcs %  V  +>dmeas_pcs %  V  +>kh N meas_max % N $8 NG  V  #+>X  V  :AF  V   <%vB@H ! 9 9999q r( r( r( r( r(k0k( L meas_min % L $8 NG  V  #+>X  V  :AF  V   <%vB@H ! 9 9999qH r( r( r( r( r(kk !0e +> +> +> +>  +>X  V  :AF  V   <%vB@H ! 9 9999q r( r( r( r( r(kxkph B@PA1:AK $vB@H | B@v( Sheets("Sheet1").Name = FileName%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ  H.xlsx %. (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@ B@ رչ B@Bp_workbook.CloseH Ļˢ´ (rA@ൺо H resļA@Jo jAttribute VB_Name = "о1" Sub <()` D  End jT |z'ļH'رĻˢ´\Application.ScreenUpdngFalse'FileTrim(Cells(1, 2)Cw If $"" ThenMsgBox ("SɇU"$ExiNtt{If#connectDBSet wp= CreateObj("ADODB.reco`rdset..CursorTypadOpenSt{c 'αͣ޷ "LoadUseClient#Dim pdsrc As S ng5wpsq"l '!ƷDss aaARangoSELECT CUSTOMER_NAME ,PRODUCT_ID,to_char(PLAN_SHIP_TIME,'ymmdd')  FROM COCMEAS LISTSTD WHERE FILEB='" &Lj& "' GROUP BY  &, @_Am@I, cpsDBCHWh@@.EOF <> TrueRжǷΪU'ȡf@PtrxFields("-I'õ˾c customerfnc" ("ʱ',/=j6i ILppathE!dK`A!һ'繲Q:= %s.) @GȳRExcelShep= .qs'-;1g xxjXa:Activ@a Q lotidCuϾϾϾǾ% '[ЄQ*#PselpΈ LObSUB ,WAFCOUNT fromϹD whereǹ ߹' hB1etb( ç For 2'1!X Tod@RC0ount'½eq,M+!add_.aR..Add{5.$b2P1").Ac2, 4)@7"_ase("6=S A = Sheets("s81").Range("X65536 "EVq.RnptOkOkykkMrll+i&Sclsmeas_pcs,R Id(min,, ax1havgMEAS_ITEMS stdevv" 3qCOC!DADTApmSUMgum where.n='n("")bn and#G3bH& "' 9& .rq@q& +&4.RCb`'"1,_}KҬ@:v@28Ky"!l} qB29TMIN? > 30maxߑ22/  =//3,<Dataset.Fields("meas_pcs") > 25 Then (Cells(lotrowitem, 31) = check/ 2+hSheetBs1").byE8lsebsgEn0d If [If shangx <> ""@ maxBVal(-)a5"N MTSnd If  ;_MsgBox "繲жӦ健,ȷ·"ot SubB>Connect}1qNetworkObj.RemoveDrive ServerShar@e, Tru@FadSet Nothing' GG 'жһǷ@jϯDim dataA?book As W@B##T'j AA=s.Open'ż)ExcelSheUW=+.+ssL(1@'-+1sxx!G.Activp'%"lotid = vcM("ADODB.recordset"L .CursorTHype ad(Static 'αͣ޷`k L$oc`onb UseClientG ] 'ݳ儵wT0 Qql!`"selrLOT_ID,SUB# ,WAFER_COUNT from COCMEASSHIPLISTSTD where FILE_NAME ='" K' a1 ( ql, csDBdioHGARange("X65536").End(3 ).rowFo\r "R`o et'GGC$UI")E"'O EE_Q(/%(l( |S7Quantit~y@  /8$8wafer_cN< Sp_Ne~x0R aI``Witem02 To< Ao> OsRTa+?- 1 :WV0Wh\? = _+QH idC|olqhcheck8`[0, 33bshopv&:6?2xiaemP7',5) "OK>I''<> ""6!Rb do_o_y__Mr//`/`/Smeas_pcs,R Bd(min,0 axqhavg1_ITEMS,Round(meas_stdev,5) h from COCMEASDATASUBSUM csum@ where.,LOT_ID='" & lotidSet("0")."' an6dd_3ch eckID%" +Dataset.OpenB Sql,`DBConnectionKIf-6RecordCt = "1" The0d2Cells(A * sheet +rowitem, 28)7{Fields("Aavg")>29MIN?30max232B#̀ ^pcs> 25dz|310/ 2JElseg _>=+d#If ;5shangx <> "scz
Vhal(c )=e g<(NG\ A@veSA.Rpe("XA:AF).Sel{*With .Interior.Pa t`n`xlSolidmColorIndexAutomatic? & B255TintAn@dShade0_F?%Eb!/ DWindow.Scrolluma.r/}'4_2L/'3// /'/O/'1_=H}?ExiaII~min@g<IHHКv3HHHqHHHHHO!߲DHH."H.D /H/8'8H_/'H//JQH//*H//*H.F. ??.]H0_9H)H"iTzj s(|{C//UUUmU With Selection.Interior  6.Patfn = xl Solid/vColorIndexEAutomatic(IB=255(5TintAndShade0({ End 7AveWindow.Scrolrlwumv4!321[dIf[A[NextlotidSet.MoBR`charpd%CommonAC|;EGLOB!jg_      !"#$&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz}~*&(-XxME`(v T> <0<< <(<0<8<@` %` H%  `J`D`>` %` @%PX %`PXPXpPX0PXPXPXPXPXPXxPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPX@PXPXPXPXPXPXPXPXPXPXzpPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXPXh 8 > @@ @ @ @ @ @P @h @HP @`Xx8 P H>Jzptx@ @h @ @ @ @ @ h @HP @ 8 @` @< ~x*Htv@@ @B @p @ @h @ P @8 @X @0 @H @ @ @ @ @ @x @` @H @ 0 @8 @P @h @ @X @ @( @ @0h @LP @N 8 @ @ @@ @  @ @ r@8 Pr@T x @ ` @H @`0 x8@P h` @  @L ( @N  @ X @ @  @ pp @X X @ 0@ @ ( @t  @  @ @x @ @ @  @h @ 8r@P P@H`@ 0 @  `@8`(  @ P`@p``8 p` @ H @ @ -@ -/@( @@ @x @p` @H @0 @  @ l@ l @H `l8< @ Hq@`pq~@ @ `@`x 8@p`x 0 zZ @X `@P` @8 @(0`@P @@x`h(@ P @`x@ @`@p 0@`@  @  @h p@`  @X 8r@P (@Ho 8(0 @ ` `  8 H`` p ` @  @h (-HP 8-/H @@ @8 @ @ x ( x  @ 0l@ Xlh lx qp`q~( X 0P`HX8 p0` `  `8H `p`( zZ  `   ( `@ P x h x p`  @X @ @ @(   ! ! 8!H! `!o p!x!P` k$*\Rffff*Rz6c06f1b5*\R1*#2a3*\R1*#40a*\R1*#6d*\R1*#2e*\R1*#33*\R1*#a5*\R1*#6a*\R1*#43*\R1*#29f*\R0*#10*\R1*#12*\R1*#135*\R1*#14a*\R1*#14b*\R0*#12*\R1*#14a$*\Rffff*TK6c07b88c$*\Rffff*TE6c07b76b*\R4*#7*\R4*#1$*\Rffff*TD6c07b697*\R0*#17*\R1*#130*\R0*#f*\R1*#2a3*\R1*#141*\R1*#409"d"  @ H PX` "h p  4d   L  (080h <FX**p & $ " 8 P (p        ( *( D8 X` h X8n P@`R  <  $   0 2H     2    BL@H P .` x    R   & F ( N@ PX    D x f  ( * 0   8 z X x ~ P 8 VF  ` $ x 0 F  (p00F  ($0$XJp (  lN (8 0X 0 F "84d 0 8 $XLpLL &&& & &8 &X&x&"&00080h0000(0X&v&v&v&v0(&vX&v 4&v&v D0 Dx D D DP D D  ( Z0 @H 8 d  @ D@ \ ^ >H  6 V X  V@ Vx V @ ( @H bؐ 2 0 >@ * 0 6 " $   :0 p  dH ( @ D \8 ^ >  68! Vp! X! Vx V " Vx" @" # @Ќ b0 20# 0h# > *# 0 6ȕ "# $ (  #z$ ($0$0 %FP% ,h%8x%:%8%8(&8`&(v& &(v&P& F@'P'X'`'h'p'x''' '@'0'(v'P( "X( F(((((((0((v(P) Fh)x)))))))) )  ))   ,) \*> *B8* "P*@x*** $*^** P* JH+ N+*^+n+F-R .D /J H/r /, 0 (@00`000F0,0^0 1 1(1014^81p1~2F4R 4D 5J h5r 5. 06 (`60606F6,6^7 7 (7H7P74^X77~`8F:R (;D ;J ; <. < (<0<0(=FX=,p=^= = ===8=L=,>L0>,H> Fx>>>>>> > 8> 8> 8> 8> 8>??$r?X@?XX?Tp??????T??????X?X@T @8@@@H@P@X@T`@x@@@@@T@@@@@@T@@AAAAT A8A@AHAPAXAT`AxAAAAA \A NB :PB 0B 8B  B &C0C 0CZ @C 6C 2C JCC  C   C FD PD 0XD D .D RD E  E  0E BHE  "E &E "E &F "0F &XF    F F F F F 6F F  G*^G  8G "@G HG hG 4GdG G  LGGG G (G0H0@HpHxH HH<HF0I**HI xI&I I$II "I J (J (HJ pJ J  J J  J (J *(J DK 0K8K @K XXK8nK PK@8LRXL xL <L L $L L M 2 M  XM `M pM 2M M  M BLMN N (N .8N PNXN    `NRN N N &N FN O NO P0OO O   OOD PPf P Q* Q0 Q Rz 0Rx R~ (S8 SVFS 8T$ PT0 xTFT (HU0hU0UFU UUUV$V$0VJHV hV(xV  lNV (W 00W 0`W FW "8W4dW X X $0XHX`XxX &X&X&X &X &Y &0Y&PY&pY"&Y0Y0Y0Z0@Z0pZ0Z0Z0[00[&v`[&v[&v[&v[0\&v0\&vX\ 4\&v\&v\0] D8] D] D] D^ DX^ D^ D^  0_ Z8_ @H 8 d_ H @` D@` \` ^` >Ha a 6a Va X b Vxb VX Vb @(c hc @ bP 2c 0c >c * 0 6 "0d $  :@ 0 d Xd @x D`e \e ^f >hf  6f V8 Xf V8g V Vg @g  @(h b 2hh 0h >h *P 0 6 " $i  0 z8i (j0(j0XjFj ,j8j:j8(k8`k8k(vk k(vlP(l Fxlllllllll l@l0l(vmP@m "m Fmmmmmmm0m(v(nPPn Fnnnnnnnnn n  no   ,o \@o>XoBpo "o@o"o $o^p p P(p Jxp Np*^pnqF(sR sD 0tJ xtr t, @u (pu0u0uFu,v^v 0v 8vXv`v4^hvv~0wFHyR yD PzJ zr z. `{ ({0{0{F|,(|^8| P| X|x||4^||~}FR XD J  H. ؁ (0(0XF,^ Ȃ Ђ8L,0L`,x FȃЃ؃  8 8 8 8 8(8@$rHXpXTȄЄ؄TX X8TPhpxTȅTЅT(08@HTPhpxTȆ \І N0 : 0 8  ( &80H `Z p 6Ј 2 J     ( F8  0  . R H P  ` Bx  " & " &8 "` &      ؋  6  0*^8  h H$>$'H H*F-HTN0163CAW*A@ d0A@ k oX嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|kA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲·Qsrcpath = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\" \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hdx A@ Ʒļ  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kxжһǷƷļ  H.xlsx$x]0 ģļ  H.xlsx %. %. ѡCOA ģҳCOA ģ$tB@HJ-----------------------------------------------1--------------------------' B@pѭsublotidSELECT c.ORDER_NO,c.SUBLOT_ID ,substr(c.SUBLOT_ID ,1,7) subid,TO_CHAR(c.PLAN_SHIP_TIME ,'yyyy-mm-dd') PLAN_SHIP_TIME ,c.sublotid,c.WAFER_COUNT,' 5TO_CHAR(miw.PKG_CMP_DTTM,'yyyy-mm-dd') PACK_CMP_DTTM,' XTO_CHAR(add_months(miw.PKG_CMP_DTTM,24)-1,'yyyy-mm-dd') PACK_CMP_DTTM2 ,ROD_USER_LOT_ID ' FROM (select ORDER_NO ,PLAN_SHIP_TIME ,SUBLOT_ID ,substr(subLOT_ID ,1,5)||'01'||substr(subLOT_ID ,6,5) sublotid,FILE_NAME,WAFER_COUNT from COCMEASSHIPLISTSTD) c ' INNER JOIN MES_SHIPTAG miw ' "ON c.sublotid=miw.SHIP_SUB_LOT_ID '  INNER JOIN (' lSELECT s.SUB_LOT_ID ,LISTAGG(ROD_USER_LOT_ID,',') WITHIN GROUP (ORDER BY SUB_LOT_ID )ROD_USER_LOT_ID FROM (' jselect SUB_LOT_ID ,ROD_USER_LOT_ID,row_number() over(PARTITION BY SUB_LOT_ID ORDER BY ROD_USER_LOT_ID ) rn' p FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN (SELECT SHIP_SUB_LOT_ID FROM MES_SHIPTAG WHERE CUSTOMER_SUBLOT IN (' )SELECT SUBLOT_ID from COCMEASSHIPLISTSTD ' WHERE FILE_name=' H)' )) GROUP BY ROD_USER_LOT_ID,SUB_LOT_ID ' ) s ' group by s.SUB_LOT_ID' !) DR ON DR.SUB_LOT_ID=C.sublotid ' WHERE c.FILE_name=' Hn' GROUP BY c.ORDER_NO,c.SUBLOT_ID ,c.sublotid,c.WAFER_COUNT,miw.PKG_CMP_DTTM,c.PLAN_SHIP_TIME,ROD_USER_LOT_ID 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N'''AN65536$v%!'   NB3:AMC $v.T T B@    $>B@ Dselect MIN(SLOT_NO) SLOT_NO from COCMEASDATAINFOS where SUB_LOT_ID='sublotid L%''ADODB.recordset$p. t (r-αͣ޷ x (v0αԣ޷  ~ B@SLOT_NO %001 SUBLOT_ID L%δ25öA@Jk If a = 1 Then  ($>' )$>'L *$>'N ORDER_NO L%' sublotid L%' SUBLOT_ID L%' PLAN_SHIP_TIME L%' PACK_CMP_DTTM L%'X PACK_CMP_DTTM2 L%' WAFER_COUNT L%' subid L%'t ROD_USER_LOT_ID L%' $>     +>$>     +>$>     +>$>     +>$>     +>$>     +>$>     +> $>     +> $>     +>     +>     +>     +>     +>$>     +> X     +>     +>.Cells(A * (bb - 2) + teams, 27) = Cells(3, 27)     +> t     +>> Cells(A * (bb - 2) + teams, 30) = Cells(3, 30)> Cells(A * (bb - 2) + teams, 31) = Cells(3, 31)> Cells(A * (bb - 2) + teams, 32) = Cells(3, 32)> Cells(A * (bb - 2) + teams, 33) = Cells(3, 33)> Cells(A * (bb - 2) + teams, 34) = Cells(3, 34)> Cells(A * (bb - 2) + teams, 35) = Cells(3, 35)> Cells(A * (bb - 2) + teams, 36) = Cells(3, 36)S Cells(A * (bb - 2) + teams, 28) = rlotset.Fields("ROD_USER_LOT_ID")] meassql = meassql & "AND HIS_REGIST_DTTM IN ( SELECT HIS_REGIST_DTTM FROM ( "AS_M meassql = meassql & "SELECT WAF_ID ,max(HIS_REGIST_DTTM ) HIS_REGIST_DTTM FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN ('" & SUBLOT_ID & "')) ": meassql = meassql & "GROUP BY WAF_ID ))) "= Set measset = CreateObject("ADODB.recordset")U measset.CursorType = adOpenStatic 'αͣ޷MEASX measset.CursorLocation = adUseClient 'αԣ޷SU8 measset.Open meassql, csDBConnectionD 0 If measset.RecordCount <> 0 Then6P Cells(A * (bb - 2) + teams, 25) = measset.Fields("MEAS_AVG")R Cells(A * (bb - 2) + teams, 26) = measset.Fields("MEAS_STDEV")P Cells(A * (bb - 2) + teams, 28) = measset.Fields("MEAS_MIN") P Cells(A * (bb - 2) + teams, 29) = measset.Fields("MEAS_PCS") Else : Cells(A * (bb - 2) + teams, 40) = "NG"+ With Selection.InteriorH* .Pattern = xlSolid$ .Color = 255 aaaaa = 1] meassql = meassql & "AND HIS_REGIST_DTTM IN ( SELECT HIS_REGIST_DTTM FROM ( "AS_M: meassql = meassql & "GROUP BY WAF_ID ))) " Else] meassql = meassql & "AND HIS_REGIST_DTTM IN ( SELECT HIS_REGIST_DTTM FROM ( "('MN: meassql = meassql & "GROUP BY WAF_ID ))) " Else '= Set measset = CreateObject("ADODB.recordset")U measset.CursorType = adOpenStatic 'αͣ޷MEASX measset.CursorLocation = adUseClient 'αԣ޷SU8 measset.Open meassql, csDBConnectionD 0 If measset.RecordCount <> 0 ThenP Cells(A * (bb - 2) + teams, 25) = measset.Fields("MEAS_AVG")R Cells(A * (bb - 2) + teams, 26) = measset.Fields("MEAS_STDEV")P Cells(A * (bb - 2) + teams, 28) = measset.Fields("MEAS_MIN")P Cells(A * (bb - 2) + teams, 29) = measset.Fields("MEAS_PCS"): Cells(A * (bb - 2) + teams, 40) = "OK" Else + With Selection.Interior+>* .Pattern = xlSolid$ .Color = 255 End With cSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' ' AND MEAS_ITEMS =' ' and FILE_NAME = ' H' and MEAS_PCS<>'0' 'ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@ !MEAS_AVG %     +> MEAS_STDEV %     +>MEAS_MAX %     +>MEAS_MIN %     +>MEAS_PCS %     +>OK     (+>dNG     (+>Y     :AC     $vB@H ! 9 9999q ' kk L  N      $> N $8 NG     (+>Y     :AC     $vB@HCells(10 + a, teams).Select ! 9 9999q     $> L $8 eNG     (+>Y     :AY     $vB@H ! 9 9999qkk LB@%-------------------------------------3: $B@H& rB@$ | B@vB65536$v%!' A2$vB@HA2:A $v l B@   +>J-----------------------------------------------1--------------------------C--------------------------2---------------------------------------- Sub Wafer$tB@H$>RESISTAIL;RESISHEADSELECT 'COA ģ$t%>' S,'COA ģ$t%>D' T,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM,s.sublot_id,'$>O' y,c2.SLOT_NO,C2.WAF_ID ,substr( D.KEMLOT_ID ,1,3) KEMLOT,d.KEMLOT_ID,TO_CHAR(TO_DATE(TS,'YYYY-MM-DD HH24:MI:SS'),'yyyy-mm-dd') TS,d.KEMLOT_ID KEMLOT_ID1,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM1,(AVG(c2.MEAS_ITEM_233)+AVG(c2.MEAS_ITEM_234))/2 date1,(AVG(c2.MEAS_ITEM_229)+AVG(c2.MEAS_ITEM_230))/2 date1 FROM MES_SHIPTAG ms ' XINNER JOIN (SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD zc WHERE FILE_NAME LIKE ' H:' ORDER BY SHIP_SEQ) s ON ms.CUSTOMER_SUBLOT =s.SUBLOT_ID ' DINNER JOIN COCMEASDATAINFOS c2 ON c2.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' 5INNER JOIN F3PRD.DLOT d ON d.SINGLE_NO =c2.SINGLE_NO ' <INNER JOIN CUST_COCINFO@bip cus ON cus.COLUMN65=d.KEMLOT_ID ' dGROUP BY ms.PKG_CMP_DTTM,s.sublot_id,c2.SLOT_NO,C2.WAF_ID ,D.KEMLOT_ID ,d.KEMLOT_ID,cus.ts,SHIP_SEQ ' ORDER BY SHIP_SEQ ,c2.SLOT_NO 'ADODB.recordset$p. t (r&αͣ޷ x (v)αԣ޷  ~ B@ ! $>B@@dCells(meas, teams) = ""kpkh$>RESISTAIL*1000;RESISHEAD*1000SELECT S,T,PKG_CMP_DTTM,SUBLOT_ID,Y,SLOT_NO,WAF_ID,KEMLOT,KEMLOT_ID,TS,KEMLOT_ID1,PKG_CMP_DTTM1,TRUNC(DATE1,5),TRUNC(DATE2,5) FROM ( ' SELECT 'COA ģ$t%>' S,'COA ģ$t%>D' T,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM,s.sublot_id,'$>M' y,c2.SLOT_NO,C2.WAF_ID ,substr( D.KEMLOT_ID ,1,3) KEMLOT,d.KEMLOT_ID,TO_CHAR(TO_DATE(TS,'YYYY-MM-DD HH24:MI:SS'),'yyyy-mm-dd') TS,d.KEMLOT_ID,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM,(AVG(c2.MEAS_ITEM_233)+AVG(c2.MEAS_ITEM_234))/2 date1,(AVG(c2.MEAS_ITEM_229*1000)+AVG(c2.MEAS_ITEM_230*1000))/2 date2 FROM MES_SHIPTAG ms ' UINNER JOIN (SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD zc WHERE FILE_NAME = ' H:' ORDER BY SHIP_SEQ) s ON ms.CUSTOMER_SUBLOT =s.SUBLOT_ID ' DINNER JOIN COCMEASDATAINFOS c2 ON c2.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' 5INNER JOIN F3PRD.DLOT d ON d.SINGLE_NO =c2.SINGLE_NO ' <INNER JOIN CUST_COCINFO@bip cus ON cus.COLUMN65=d.KEMLOT_ID ' dGROUP BY ms.PKG_CMP_DTTM,s.sublot_id,c2.SLOT_NO,C2.WAF_ID ,D.KEMLOT_ID ,d.KEMLOT_ID,cus.ts,SHIP_SEQ ' ORDER BY SHIP_SEQ ,c2.SLOT_NO) 'ADODB.recordset$p. t (r&αͣ޷ x (v)αԣ޷  ~ B@ ! $>B@@dxCells(meas, teams) = ""kPkH$>MNAPRESP1*1000;MNACPTRE1*1000SELECT S,T,PKG_CMP_DTTM,SUBLOT_ID,Y,SLOT_NO,WAF_ID,KEMLOT,KEMLOT_ID,TS,KEMLOT_ID1,PKG_CMP_DTTM1,TRUNC(DATE1,5),CASE WHEN TO_NUMBER(nvl(c,0)) > TO_NUMBER(nvl(w,0)) THEN c ELSE w END DATE1 FROM ( ' SELECT 'COA ģ$t%>' S,'COA ģ$t%>D' T,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM,s.sublot_id,'$>X' y,c2.SLOT_NO,C2.WAF_ID ,substr( D.KEMLOT_ID ,1,3) KEMLOT,d.KEMLOT_ID,TO_CHAR(TO_DATE(TS,'YYYY-MM-DD HH24:MI:SS'),'yyyy-mm-dd') TS,d.KEMLOT_ID KEMLOT_ID1,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM1,(AVG(c2.MEAS_ITEM_233)+AVG(c2.MEAS_ITEM_234))/2 date1,TO_NUMBER(MEAS_ITEM_689)*1000 c,TO_NUMBER(MEAS_ITEM_857)*100 w FROM MES_SHIPTAG ms ' TINNER JOIN (SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD zc WHERE FILE_NAME =' H:' ORDER BY SHIP_SEQ) s ON ms.CUSTOMER_SUBLOT =s.SUBLOT_ID ' DINNER JOIN COCMEASDATAINFOS c2 ON c2.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' 5INNER JOIN F3PRD.DLOT d ON d.SINGLE_NO =c2.SINGLE_NO ' <INNER JOIN CUST_COCINFO@bip cus ON cus.COLUMN65=d.KEMLOT_ID ' GROUP BY ms.PKG_CMP_DTTM,s.sublot_id,c2.SLOT_NO,C2.WAF_ID ,D.KEMLOT_ID ,d.KEMLOT_ID,cus.ts,SHIP_SEQ,MEAS_ITEM_689,MEAS_ITEM_857 ' ORDER BY SHIP_SEQ ,c2.SLOT_NO) 'ADODB.recordset$p. t (r&αͣ޷ x (v)αԣ޷  ~ B@ ! $>B@@dCells(meas, teams) = ""kk  !OK +> $> $>NG +> $> $> <%vB@H ! 9 9999q r( r( r( r( r(kA2:N ! $vB@H % ( % (  %  9 9 9 9 q? %  9 9 9 9 q? % ( % (  %  9 9 9 9 q@? %  9 9 9 9 q? %  9 9 9 9 q> %  9 9 9 9 q> %  9 9 9 9 q@> %  9 9 9 9 q>V OriginFilePath = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstrH With excel.Workbooks.Open(OriginFilePath & "\" & FileName & ".xlsx")4 Windows(FileName & ".xlsx").Activate) .ActiveSheet.Cells.Select1 Selection.NumberFormatLocal = "@"ļ z.   !t B@ !\- H !H Z , zB@Ϊxlsxʽ (r zB@ zB@B; End Withcsvļ@ Set p_workbook = Workbooks.Open(ss & FileName & ".xlsx")) Application.DisplayAlerts = False( Application.DisplayAlerts = TrueK-----------------------------------------------2---------------------------k: <B@dataworkbook.Save<p_workbook.SaveAs ss & FileName & ".xlsx", xlOpenXMLWorkbook Columns("AM:AM").Select Selection.Delete Shift:=xlUp Columns("AL:AL").Select Selection.Delete Shift:=xlUp Columns("AK:AK").Select Selection.Delete Shift:=xlUp رչdataworkbook.Closep_workbook.Close8Ļˢ´ (rA@̩о H resļA@Jo`8P嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|7k7A@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]]Ʒ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'd4WScript.Network$p.Scripting.FileSystemObject$p.    B@'k`4繲·Qsrcpath = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\" \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd@2 A@ Ʒļ  @.xlsx  H.xlsxA@Hk1d17繲ûжӦģļ,ǶӦģûзȷ·A@J|1kx1   B@.k@1жһǷƷļ  H.xlsx$x]( ģļ  H.xlsx %. %. ѡCOA ģҳCOA ģ$tB@HJ-----------------------------------------------1--------------------------' B@pѭsublotidSELECT c.ORDER_NO,c.SUBLOT_ID ,substr(c.SUBLOT_ID ,1,7) subid,TO_CHAR(c.PLAN_SHIP_TIME ,'yyyy-mm-dd') PLAN_SHIP_TIME ,c.sublotid,c.WAFER_COUNT,' 5TO_CHAR(miw.PKG_CMP_DTTM,'yyyy-mm-dd') PACK_CMP_DTTM,' XTO_CHAR(add_months(miw.PKG_CMP_DTTM,24)-1,'yyyy-mm-dd') PACK_CMP_DTTM2 ,ROD_USER_LOT_ID ' FROM (select ORDER_NO ,PLAN_SHIP_TIME ,SUBLOT_ID ,substr(subLOT_ID ,1,5)||'01'||substr(subLOT_ID ,6,5) sublotid,FILE_NAME,WAFER_COUNT from COCMEASSHIPLISTSTD) c ' INNER JOIN MES_SHIPTAG miw ' "ON c.sublotid=miw.SHIP_SUB_LOT_ID '  INNER JOIN (' lSELECT s.SUB_LOT_ID ,LISTAGG(ROD_USER_LOT_ID,',') WITHIN GROUP (ORDER BY SUB_LOT_ID )ROD_USER_LOT_ID FROM (' jselect SUB_LOT_ID ,ROD_USER_LOT_ID,row_number() over(PARTITION BY SUB_LOT_ID ORDER BY ROD_USER_LOT_ID ) rn' p FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN (SELECT SHIP_SUB_LOT_ID FROM MES_SHIPTAG WHERE CUSTOMER_SUBLOT IN (' )SELECT SUBLOT_ID from COCMEASSHIPLISTSTD ' WHERE FILE_name=' H)' )) GROUP BY ROD_USER_LOT_ID,SUB_LOT_ID ' ) s ' group by s.SUB_LOT_ID' !) DR ON DR.SUB_LOT_ID=C.sublotid ' WHERE c.FILE_name=' Hn' GROUP BY c.ORDER_NO,c.SUBLOT_ID ,c.sublotid,c.WAFER_COUNT,miw.PKG_CMP_DTTM,c.PLAN_SHIP_TIME,ROD_USER_LOT_ID 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N'''AN65536$v%!'   NB3:CB $v.T T B@    $>B@ Dselect MIN(SLOT_NO) SLOT_NO from COCMEASDATAINFOS where SUB_LOT_ID='sublotid L%''ADODB.recordset$p. t (r-αͣ޷ x (v0αԣ޷  ~ B@SLOT_NO %001 SUBLOT_ID L%δ25öA@Jk' If a = 1 Then  )$>' *$>'L +$>'N ORDER_NO L%' sublotid L%' SUBLOT_ID L%' PLAN_SHIP_TIME L%' PACK_CMP_DTTM L%'X PACK_CMP_DTTM2 L%' WAFER_COUNT L%' subid L%'t ROD_USER_LOT_ID L%' $>     +>$>     +>$>     +>$>     +>$>     +>$>     +>$>     +> $>     +> $>     +>     +>     +>     +>     +>$>     +> X     +>     +>.Cells(A * (bb - 2) + teams, 27) = Cells(3, 27)     +> t     +>($>     (+>> Cells(A * (bb - 2) + teams, 30) = Cells(3, 30)> Cells(A * (bb - 2) + teams, 31) = Cells(3, 31)> Cells(A * (bb - 2) + teams, 32) = Cells(3, 32)> Cells(A * (bb - 2) + teams, 33) = Cells(3, 33)> Cells(A * (bb - 2) + teams, 34) = Cells(3, 34)> Cells(A * (bb - 2) + teams, 35) = Cells(3, 35)> Cells(A * (bb - 2) + teams, 36) = Cells(3, 36)S Cells(A * (bb - 2) + teams, 28) = rlotset.Fields("ROD_USER_LOT_ID")] meassql = meassql & "AND HIS_REGIST_DTTM IN ( SELECT HIS_REGIST_DTTM FROM ( "AS_M: meassql = meassql & "GROUP BY WAF_ID ))) "= Set measset = CreateObject("ADODB.recordset")ECT U measset.CursorType = adOpenStatic 'αͣ޷ FROX measset.CursorLocation = adUseClient 'αԣ޷D 8 measset.Open meassql, csDBConnection0 If measset.RecordCount <> 0 ThencoP Cells(A * (bb - 2) + teams, 25) = measset.Fields("MEAS_AVG")R Cells(A * (bb - 2) + teams, 26) = measset.Fields("MEAS_STDEV")P Cells(A * (bb - 2) + teams, 27) = measset.Fields("MEAS_MAX")>P Cells(A * (bb - 2) + teams, 29) = measset.Fields("MEAS_PCS") : Cells(A * (bb - 2) + teams, 41) = "OK" Else + With Selection.Interior * .Pattern = xlSolid8 .PatternColorIndex = xlAutomatic End With meassql = meassql & "SELECT WAF_ID ,max(HIS_REGIST_DTTM ) HIS_REGIST_DTTM FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN ('" & SUBLOT_ID & "')) "= Set measset = CreateObject("ADODB.recordset") HISU measset.CursorType = adOpenStatic 'αͣ޷D INX measset.CursorLocation = adUseClient 'αԣ޷8 measset.Open meassql, csDBConnection0 If measset.RecordCount <> 0 ThenR Cells(A * (bb - 2) + teams, 26) = measset.Fields("MEAS_STDEV")P Cells(A * (bb - 2) + teams, 27) = measset.Fields("MEAS_MAX")P Cells(A * (bb - 2) + teams, 29) = measset.Fields("MEAS_PCS"): Cells(A * (bb - 2) + teams, 41) = "OK": Cells(A * (bb - 2) + teams, 41) = "NG"+ With Selection.Interior * .Pattern = xlSolid8 .PatternColorIndex = xlAutomatic aaaaa = 1cSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' ' AND MEAS_ITEMS =' ' and FILE_NAME = ' H' and MEAS_PCS<>'0' 'ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@ !MEAS_AVG %     +> MEAS_STDEV %     +>MEAS_MAX %     +>MEAS_MIN %     +>MEAS_PCS %     +>OK     )+>dpNG     )+>Y     :AC     $vB@H ! 9 9999q' kk L  N      $> N $8 NG     )+>Y     :AC     $vB@HCells(10 + a, teams).Select ! 9 9999qx     $> L $8 eNG     )+>Y     :AY     $vB@H ! 9 9999qkkx LB@`%-------------------------------------3: $B@H& rB@$ | B@vB65536$v%!' A2$vB@HA2:A $v B@   +>H J-----------------------------------------------1--------------------------C--------------------------2---------------------------------------- Sub Wafer$tB@H$>RESISTAIL;RESISHEADSELECT 'COA ģ$t%>' S,'COA ģ$t%>D' T,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM,s.sublot_id,'$>O' y,c2.SLOT_NO,C2.WAF_ID ,substr( D.KEMLOT_ID ,1,3) KEMLOT,d.KEMLOT_ID,TO_CHAR(TO_DATE(TS,'YYYY-MM-DD HH24:MI:SS'),'yyyy-mm-dd') TS,d.KEMLOT_ID KEMLOT_ID1,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM1,(AVG(c2.MEAS_ITEM_233)+AVG(c2.MEAS_ITEM_234))/2 date1,(AVG(c2.MEAS_ITEM_229)+AVG(c2.MEAS_ITEM_230))/2 date1 FROM MES_SHIPTAG ms ' XINNER JOIN (SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD zc WHERE FILE_NAME LIKE ' H:' ORDER BY SHIP_SEQ) s ON ms.CUSTOMER_SUBLOT =s.SUBLOT_ID ' DINNER JOIN COCMEASDATAINFOS c2 ON c2.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' 5INNER JOIN F3PRD.DLOT d ON d.SINGLE_NO =c2.SINGLE_NO ' <INNER JOIN CUST_COCINFO@bip cus ON cus.COLUMN65=d.KEMLOT_ID ' dGROUP BY ms.PKG_CMP_DTTM,s.sublot_id,c2.SLOT_NO,C2.WAF_ID ,D.KEMLOT_ID ,d.KEMLOT_ID,cus.ts,SHIP_SEQ ' ORDER BY SHIP_SEQ ,c2.SLOT_NO 'ADODB.recordset$p. t (r&αͣ޷ x (v)αԣ޷  ~ B@ ! $>B@@d8Cells(meas, teams) = ""kk$>RESISTAIL*1000;RESISHEAD*1000SELECT S,T,PKG_CMP_DTTM,SUBLOT_ID,Y,SLOT_NO,WAF_ID,KEMLOT,KEMLOT_ID,TS,KEMLOT_ID1,PKG_CMP_DTTM1,TRUNC(DATE1,5),TRUNC(DATE2,5) FROM ( ' SELECT 'COA ģ$t%>' S,'COA ģ$t%>D' T,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM,s.sublot_id,'$>M' y,c2.SLOT_NO,C2.WAF_ID ,substr( D.KEMLOT_ID ,1,3) KEMLOT,d.KEMLOT_ID,TO_CHAR(TO_DATE(TS,'YYYY-MM-DD HH24:MI:SS'),'yyyy-mm-dd') TS,d.KEMLOT_ID,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM,(AVG(c2.MEAS_ITEM_233)+AVG(c2.MEAS_ITEM_234))/2 date1,(AVG(c2.MEAS_ITEM_229*1000)+AVG(c2.MEAS_ITEM_230*1000))/2 date2 FROM MES_SHIPTAG ms ' UINNER JOIN (SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD zc WHERE FILE_NAME = ' H:' ORDER BY SHIP_SEQ) s ON ms.CUSTOMER_SUBLOT =s.SUBLOT_ID ' DINNER JOIN COCMEASDATAINFOS c2 ON c2.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' 5INNER JOIN F3PRD.DLOT d ON d.SINGLE_NO =c2.SINGLE_NO ' <INNER JOIN CUST_COCINFO@bip cus ON cus.COLUMN65=d.KEMLOT_ID ' dGROUP BY ms.PKG_CMP_DTTM,s.sublot_id,c2.SLOT_NO,C2.WAF_ID ,D.KEMLOT_ID ,d.KEMLOT_ID,cus.ts,SHIP_SEQ ' ORDER BY SHIP_SEQ ,c2.SLOT_NO) 'ADODB.recordset$p. t (r&αͣ޷ x (v)αԣ޷  ~ B@ ! $>B@@dCells(meas, teams) = ""kk$>MNAPRESP1*1000;MNACPTRE1*1000SELECT S,T,PKG_CMP_DTTM,SUBLOT_ID,Y,SLOT_NO,WAF_ID,KEMLOT,KEMLOT_ID,TS,KEMLOT_ID1,PKG_CMP_DTTM1,TRUNC(DATE1,5),CASE WHEN TO_NUMBER(nvl(c,0)) > TO_NUMBER(nvl(w,0)) THEN c ELSE w END DATE1 FROM ( ' SELECT 'COA ģ$t%>' S,'COA ģ$t%>D' T,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM,s.sublot_id,'$>X' y,c2.SLOT_NO,C2.WAF_ID ,substr( D.KEMLOT_ID ,1,3) KEMLOT,d.KEMLOT_ID,TO_CHAR(TO_DATE(TS,'YYYY-MM-DD HH24:MI:SS'),'yyyy-mm-dd') TS,d.KEMLOT_ID KEMLOT_ID1,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM1,(AVG(c2.MEAS_ITEM_233)+AVG(c2.MEAS_ITEM_234))/2 date1,TO_NUMBER(MEAS_ITEM_689)*1000 c,TO_NUMBER(MEAS_ITEM_857)*100 w FROM MES_SHIPTAG ms ' TINNER JOIN (SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD zc WHERE FILE_NAME =' H:' ORDER BY SHIP_SEQ) s ON ms.CUSTOMER_SUBLOT =s.SUBLOT_ID ' DINNER JOIN COCMEASDATAINFOS c2 ON c2.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' 5INNER JOIN F3PRD.DLOT d ON d.SINGLE_NO =c2.SINGLE_NO ' <INNER JOIN CUST_COCINFO@bip cus ON cus.COLUMN65=d.KEMLOT_ID ' GROUP BY ms.PKG_CMP_DTTM,s.sublot_id,c2.SLOT_NO,C2.WAF_ID ,D.KEMLOT_ID ,d.KEMLOT_ID,cus.ts,SHIP_SEQ,MEAS_ITEM_689,MEAS_ITEM_857 ' ORDER BY SHIP_SEQ ,c2.SLOT_NO) 'ADODB.recordset$p. t (r&αͣ޷ x (v)αԣ޷  ~ B@ ! $>B@@dzCells(meas, teams) = ""kxzkpz  !OK +> $> $>NG +> $> $> <%vB@H ! 9 9999qy r( r( r( r( r(k0y(yA2:N ! $vB@H % ( % (  %  9 9 9 9 qx %  9 9 9 9 qPx % ( % (  %  9 9 9 9 qw %  9 9 9 9 qw %  9 9 9 9 q`w %  9 9 9 9 q w %  9 9 9 9 qv %  9 9 9 9 qvV OriginFilePath = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstrH With excel.Workbooks.Open(OriginFilePath & "\" & FileName & ".xlsx")4 Windows(FileName & ".xlsx").Activate) .ActiveSheet.Cells.Select1 Selection.NumberFormatLocal = "@"ļ z.   !t B@ !\- H !H Z , zB@Ϊxlsxʽ (r zB@ zB@Bht End Withcsvļ@ Set p_workbook = Workbooks.Open(ss & FileName & ".xlsx")) Application.DisplayAlerts = False( Application.DisplayAlerts = TrueK-----------------------------------------------2---------------------------k s <B@dataworkbook.Save<p_workbook.SaveAs ss & FileName & ".xlsx", xlOpenXMLWorkbook Columns("AM:AM").Select Selection.Delete Shift:=xlUp Columns("AL:AL").Select Selection.Delete Shift:=xlUp Columns("AK:AK").Select Selection.Delete Shift:=xlUp رչdataworkbook.Closep_workbook.ClosexqĻˢ´ (rA@̩о H resļA@JoqpP Cells(A * (bb - 2) + teams, 27) = measset.Fields("MEAS_MAX") M: Cells(A * (bb - 2) + teams, 40) = "NG"8 .PatternColorIndex = xlAutomatic')P Cells(A * (bb - 2) + teams, 28) = measset.Fields("MEAS_MIN")_H: Cells(A * (bb - 2) + teams, 41) = "NG"$ .Color = 255HERE S aaaaa = 1: If team = "MNAPRESP1*1000;MNACPTRE1*1000" Then meassql = "SELECT min(MEAS_DATA) MEAS_MIN,max(MEAS_DATA) MEAS_MAX,avg(MEAS_DATA) MEAS_AVG,STDDEV(MEAS_DATA) MEAS_STDEV,count(MEAS_DATA) MEAS_PCS FROM ( " meassql = meassql & "SELECT TRUNC(TO_NUMBER(MEAS_DATA)*1000,2) MEAS_DATA FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN ('" & SUBLOT_ID & "')) "P Cells(A * (bb - 2) + teams, 27) = measset.Fields("MEAS_MAX"): Cells(A * (bb - 2) + teams, 40) = "OK"[ Range("Y" & A * (bb - 2) + teams & ":AC" & A * (bb - 2) + teams).Select8 .PatternColorIndex = xlAutomatic) .TintAndShade = 00 .PatternTintAndShade = 0 End With End If4 ElseIf team = "MNAPRESP1;MNACPTRE1" Then meassql = "SELECT min(MEAS_DATA) MEAS_MIN,max(MEAS_DATA) MEAS_MAX,avg(MEAS_DATA) MEAS_MIN,STDDEV(MEAS_DATA) MEAS_STDEV,count(MEAS_DATA) MEAS_PCS FROM ( " meassql = meassql & "SELECT ROUND(TO_NUMBER(MEAS_DATA),10) MEAS_DATA FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN ('" & SUBLOT_ID & "')) " meassql = meassql & "SELECT WAF_ID ,max(HIS_REGIST_DTTM ) HIS_REGIST_DTTM FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN ('" & SUBLOT_ID & "')) "[ Range("Y" & A * (bb - 2) + teams & ":AC" & A * (bb - 2) + teams).Select) .TintAndShade = 00 .PatternTintAndShade = 0 aaaaa = 1 End If: If team = "MNAPRESP1*1000;MNACPTRE1*1000" Then meassql = "SELECT min(MEAS_DATA) MEAS_MIN,max(MEAS_DATA) MEAS_MAX,avg(MEAS_DATA) MEAS_AVG,STDDEV(MEAS_DATA) MEAS_STDEV,count(MEAS_DATA) MEAS_PCS FROM ( "  meassql = meassql & "SELECT TRUNC(TO_NUMBER(MEAS_DATA)*1000,2) MEAS_DATA MEAS_DATA FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN ('" & SUBLOT_ID & "')) " meassql = meassql & "SELECT WAF_ID ,max(HIS_REGIST_DTTM ) HIS_REGIST_DTTM FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN ('" & SUBLOT_ID & "')) "[ Range("Y" & A * (bb - 2) + teams & ":AC" & A * (bb - 2) + teams).Select) .TintAndShade = 00 .PatternTintAndShade = 0 End If4 ElseIf team = "MNAPRESP1;MNACPTRE1" Then meassql = "SELECT min(MEAS_DATA) MEAS_MIN,max(MEAS_DATA) MEAS_MAX,avg(MEAS_DATA) MEAS_MIN,STDDEV(MEAS_DATA) MEAS_STDEV,count(MEAS_DATA) MEAS_PCS FROM ( " meassql = meassql & "SELECT ROUND(TO_NUMBER(MEAS_DATA),10) MEAS_DATA FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN ('" & SUBLOT_ID & "')) "P Cells(A * (bb - 2) + teams, 25) = measset.Fields("MEAS_AVG")P Cells(A * (bb - 2) + teams, 28) = measset.Fields("MEAS_MIN")[ Range("Y" & A * (bb - 2) + teams & ":AC" & A * (bb - 2) + teams).Select$ .Color = 255) .TintAndShade = 00 .PatternTintAndShade = 0 End With End If Elsea ElseIf team <> "" Then ElsehaAttribute VB_Name = "о1" Sub <() FileTrim(Cells(1, 2")JIf HLike "*F-HTN0163CAW*" Then Qe2Else1nd If E 1'嵥ļA'رĻˢ*Application.ScreenU$pdngFa?H} u5MsgBox ("BSɇU"Exit sy}connectDB*Set wp= CreateObj("ADODB.recordset..Curs orTypAad@OpenSt=c 'ͣ޷ЅM  LoOLadUseClientDim pdsrc As Sng5 wpsql B'!Ʒs$s aaARangeSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILEA ='" &G& "' GROU P BY J@pO]n9, csDBCCv97Whw.EOF <> TrueAжǷΪ`һGE'ȡ@trhFields("O'õ˾c customernc" ("HXA8 ;pathM4 9ԭAu·0һ'ӵ繲a+HA<\\10.A52.142\co c\. ServerSharb112ģ@\rŦadministrator`Passw`o."fthw-829`05028hIcFoldersts(){DE@ 0 KAANtet k# Wipt.)Afsoing.System# -.MapDriv`",)2$, ®, ,, %)Kg $ā)'Y%FaK''ES=+isWorkb`ook.PUy\ͻ!@\a}_!jg G )M 'l \ A'Debug.Pri[U & G-M".xlsx?*s(od+ ?汾\hQpa0'FWxml_J= \[p^9ssA5a2`Copy /$,[-O>QC=MultiLevel ( ?!2o !o {8_1 d":ÀжӦ7^,ȷ$*{A0,CU JRemove{ K8,y$KW= NothS 3qһ¹/-99s`$12k@H%+za=bbPA{eQ 'u'A:= %s.) 0Gx1bt ExcelSheP= .qs 'ѡ COA a ҳK ").Sel `'-1Gxxt8k .ActivP ѭsublotidWŹ@1P"c.ORDѮO,c@.SUBLO,!str(:1,7) id,T@O_CHARPLAN__TI 'y-mm- dd') c.GR WAFCOUNT,: bP)miw.PKG_CMP_DTTM,ACKadd_mo nths(24)-12 ,p_US r(s# Ō1,5)||'01'||`s`6, fromD) c  sql1 = `& "INNER JOIN MES_SHIPTAG miw p "  ON c.sublotid=X.p_SUB_LOTX_IDvq(aSELECT s.!S,LISG(ROD_USERl,',') WITH GROUP (ORD(BY @)  FROM Bsel(ect !,=row_number () ovPARTITI>HaB) rnRCOCMEASDATAINFOS c WHEREM}~( t CUSTOMRIn Ad yfrom D&AgSTFILE_name='" & `FileN@"' ))p@O [) sgro`up by<) DR rDRH=CX:c.Z;C:c.‡_NO,ccXـWAFkCOUNT,APKG_CMP_DTTMPLAN_TI ME*Set ids= CreateObj@]("ADODB. recor").Curs@orTypeadOpenStatic 'αͣ޷Ј Locon UseClientg j .b, csDBConbnion`_@id_cou =R Ca#B3Cc@0CsGbb`Range`)N65536").End(3).A)For A1 To GG%.5ss3' B 3:AMCgbb04`.Copy/ Cells(A * ( - 2) + 3,.PasteSpec`ial K"AMIN(S!TNhO)  wphereC~CHFields("%\")Bq fU֟Ue& 1?U?U TT T If9cR1.&/&<> "001" TheP[MsgBox (UBCFc΀25ö}?,K! ' @ a,a.team123.bbk1), 40A- xiax1 sh082~ X;oQ 1.^-Nfv chuhuo> ` zibaPACKdo @zhiy2 `ulilpubi&dNid -[2/ QQ(PRprSRo3) 3(QYe0455667788:991011B&>&E4 |sh:K&1_&5@+ .1b&I&I'2)3lE//("Mtp1)3rxԴ+ teams, 31) = C@ells(3p  ' xA * (bb - 2)  2)-3 3.@4 @4.@5 5. 6 6 ,28+rlotset.Fields("ROD_USER_LOT_ID"VIf"MNAPRESP1* 1000;CPTRE" Then$meassqlSELECT min(MEAS_DATA) MIN,maxAX,avgAVG,STDDEVEV, countPCS FROM ( "*E-& "D-TRUNC(TO_NUMBERC,@5F3PRD.DMS_C_HIS dch@ WHERE 0ua2b ED_.Z R  27A MAX_ Q S IN/G29_ ("Z//~40!"OK_^ Else"Ro g 4NG? Range("Yq@msaW:AC).Sel, With ..InteriorP.Pat@7xlSol idColo@rIndex`;xlAutomAǧ2255ogTintAndShadF0 /1End [a 1 9If"P17 IS_dr0`@S_A3? R<hND,15aoxNAD#"5i B????"???&?!{?) _oyP?f Cells(A * (bb - 2) + teams, 26) = measset.Fields("MEAS_STDEV") ' 7T(MAX3R8RINE3R9)PCS2)4B0)"OK"Else0)NG)Range("`Y" & ":AC).Select&With Cion.InteriorT #.Pat nxlSolid ColorIndex Autompatic 255 TintAndShade@ 0 . End GTa@1 "" Then  ql"SELECT wAVG ,ydMIN% AX$] FRO M COCDATASUBSUM WHERE LOT_ID ='H& "' ANDCITEMSd!O' a$FILE_NAME  FileName<>'0' ]-SetECre@ateObjW("ADODB.record@w%CursorTypABadOpenStN 'αͣ޷`/ Loc@ o!`adUseClienta' ? F!ql, csDBConn@_rsIR%CouK0tKa:5vO0: .`!m? ? + chF_ǂhh놡>hֈh Vhhh1oheh}.Zh_.e?hdk 'h hhy?CpCxiaxThOr sh0_i5p$`9> Val()OHr)QJ))))KGD' 10p a,#O- --rn..yO.?.e __1*30lse_'Ϡ[A2YeAutoFiestinatio7:A" & l), Type.Default O Fo@r jisu18 To1Cells(+ 2p, 1)NDex$ '-+1i &2%3nSheets("Sub WaferIf nj4k"RESISTAIL;HEAD@" Then;m@eassql@"SELECT 'AXCOA ģ@3, & "' S, 7)@k T,TO_CHAR(MS.PKG_CMP_DTTM,'Y-MM-DD') s.sublot_idC65y,c2.SLOT_NO,C2.WAF_ID , str( `D.KEM1,3) ,dF&@(DATE(T5% HH24:MI:SS'),'y-mm-dd@+@  1p;1,(AVG(3MEAS_ITEM_233)+P4))/2 dateR 29R 0G FROM MES_SHIPTAG ms " BEC=INNER J OIN (DSU B#+,a_SEQ COC!LOSTD zc WHERE FILE_NAME 0LIKECMweName#EORD BY ) s ON.CUST OMER_C =|s.=AINFOS c2# HUB_DE=m? # e##F3 PRD.D d d.SINGO =   _@bip cu!.COLUMN65=P GROUP +Vm!KjJi ,ts@; xE80Set BO= Cre\Obj("ADODB.recordset")hVet.C`ursoradOpenSt@c 'αͣ޷bLocB UseClient' = !ql, csDBConnc D.RCou <8> 0!1).CopyFromC !%& Els6e#'# , teams) @ "0z Ifdwd*1000deeS,T,&f;,Y,[[,ZcT,@V1j`V RUNC(Q[1,P5),T2 }BN(A opM/o("/o/oDx, /o/o/op/o|/o/o/o/oT2x/oqx/oy/o0wIDn_}]}Oononoon2.q2n9'nps0er2 o1 =:ho G+iS$eAoo=n' nnsn z nsnpO\dnnonnn :n_61 ,nq/nRҏn)nt@YnnnnnnUsnnnSf nn nFa9nn?Qڰn1 n n onMNAP)P1D;CPTREnn8ΗCnToYSnnCASEqN p\NUMBER(n vl(c, >\wRTHEN c ELSE w END DATE1 FROM @( " meassql = $& "SELECT '" & Sheets("COA ģ").Cells(3, 4)@"' S,T7*T,TO_CHAR(MS.PKG_CMP_DTTM,'Y-MM@-DD') s.sublot_ idi2, 5Vy,c2.SLOT_NO,C2.WAF_ID ,7str( D0.KEM 1,3) ,d L3P(TkJ HH24:MI:S@S'),'y-mm-ddV$ -@1v1,(AVG(gMEAS_ITEM_233)+ 4))/@2 date4N0UMBE689)*1000 FcA"857 wMES_SHIPTAG msڈINNER J OIN (ċSU BX,_SEQ1CCOC2LISTSTD zc WHERE FILE_NAME =FileNameCORD@BY E) s ON'.CUS@TOMER_ x=s. e.D&@{AINFOS c2#AUB_ċ=m?@EYHFF3 PRD.D dd.SING 0 The1opyFr Each sht In.dsL.Copy 8.SaveAs ):=L. "-7 1,:=xlOpenXMLgF'Ϊʽ'pplicat_ScreenUpdngJTruv4"?ClosNexNEnd With @&'csvH }p_wy@3Hs.M(ssHAGDisplayAlertsFal3' CS -+2 @IFIfwp>.pMoveUH#'@;aE""Q%S#, nNC Columns("AM`:AM")~'}Dte ShiftYUp/L:AL?9K:AK?)%*'!'աk* L\'H+HWend$'Ļˢ´)O:s',cclDBMsgBox "̩" resgĬ! ISub)A  2(`Ā'嵥 $ʌhA)kTrim((1, 2) IfF"" ThenC("g܁aExit hconn(GjCre`O bj\DODB.records et .CursorType$adStc 'αͣ޷e@ UseClientDim pdsrc gStri ngwpsq"l 'AƷ7@m aaQRangD]0{SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE2=' +' GROUP BY , A , cs8DBCo WhASEOF < > ZpжǷΪһW"0'ȡ,ptr FieldP ''õ@˾Xcustomern塙= (" 0ADpԭ :·һ#P'ӵS$ \\10.!52.142\coc\dServerShar/"c\12ģ .rҩadministrator|Pass md@"fthw-82905028x8 ICFolder?sts(B )D "0kElmBNetuA@BWP\ipt.T fsonS;.QSystem.MapDrive "", , u, 71e '#̱%'e)=is5׮̀ͻ R/&c5&AO95bO ' \ IM d'Debug.PpWt U &=-p"ׇ ?*|s(od+ ?!\3__X >'F Axml_J= &|[}9ss q2a2؟ $,[/O>qC=Mult@iLevel HY?o !o k8Ú  MsgBox "繲ûӦģļ,@pȷ·" Exit Sub"nd IfIf Connect = 1` ThenFNetworkObj#.RemoveDrive ServerShare, TruAFalse FSet JnNothing(E N 'жһǷpƷmFileFoldersts(ss & Name".xlsx")|Dim data~book pAs W1  '/ )=)s.0Open'Ex@celSheW=J+.*ss(1)L'ѡCOA )ҳKBs("").SLel~ '-+1s xxA H.Activat G'ѭsublotidBsql1@"SELECT c.ORDER_NO,c.SUBLOT_ID ,str(1,7) id,TO _CHARPLAN_SHIP_TIME ,'y-mm-dd') Mc.B%WAF@COUNT,HD(& "E miw.PKG_CMP_DTTbM- ACKg add_months(. 24)-1 2 ,ROD_US$&7FROPM (s"G - ,M#/@%11,5)||'01'||s@363+FILE_NAME,, from COCMEAS5LISTSTD) c wINNER JO@IN MES "001"/r4(.e\cδ25öm?q 'w@ a,>Q.team!23 To b), 4xia!2/0 sh 83^ 7e@5"|P/_Q x!1]-  chuhuo>_ zibaPo @Xzhiy2 1`uliWAFER_COUNT")  subid = idset.Fields("TROD_USLOT_IDp >Cells(A * (bb - 2) + teams, =  3 =3)=V3445U5667U78J8l9J9l10k|D11ORD@NO= chu8huollotidshu`liang 1m1Lzibar1"LzhiOz'j2S)3"<̊_J= B 4S ' 3  /C  b2t_(3 3 ^3^ 3ѫ ++j+2"rI0If "MNAPRESP1* 1000;CPTRE" ThenPmeassqlSELECT min(MEAS_DATA) BMIN,maxAX,avg~AVG,STDDEV`EV, countPCS FROM (4 " & "T TRUNC(TO_NUMBER,+F 3 F3PRD.DMS_C_HIS dch WHEREITEM IN ('&',') AND~ !q$  C OC1INFOS cSUB_ԏ"" & 0$ '))`C _REGIST_DTT $ I "!-) O???0,????"?c?0GRO UP BY))Set+p`reateObject("ADODB.recor?NH1CursorType:adOpenStatic 'αͣ޷_4au ".sLoconUseClientԯ1 sql, csDBConnioqH L RCAB <> 0KBh^UȂ@ JoT/H_/SMOOrO@MAX///d/!IN//// [//.4"OK^ Else"R4,NG? Re(L"YV#ms!A: AC).Sel, With ..IntepriorP.Pat@7xlStIf 0ElseIf team6"MNAPRESP1; CPTRE1" ThenOme assql6SELECT min(MEAS_DATA)  MIN,maxAX,avgSTDD EV EV,count PCS FROM ( F"UZ& "ZROUND(TO_@NUMBER-,10bh/F3PRD.DMS_C_HIS dch@ WHEREwITEM IN (2'',') AND WAFx_ID !D0C OCNINFOS cDSUB_LOT'" & @4'))?"@0_REGIST_DTTC. $WD6) /XXgXGP $BYE|))hSe t "S= CreateObject("ADODB.recordset")[A.CursorTypadOpenStatic 'αͣ޷ Loc` on~adUseClientG ?_ `Eaql, csDBConnio!`R"#C <> 0aCells(A * (bb - 2) +s, 25) Fields(b"AVG.Z 6/V 7 MAX_ Q 8W IN_ =Q 9V `_ P 41A "OK1X94d NGq !FRange("YaF@":AC).SelYT| ..Inior2*xlSolidColorIndexbAutomA2255og  "G PC"eϱ@ZA ,<AXh}@{SUMW}|=f'S 3  aFILE@_NAME  BFileNam:e)'B2<>'0'Q?h?h8hS/h/h/h"ho> qmhhh h h /i-i Iipet.i?i5ni_ _ zsh5hhhh 1hhFhhh h 2hhh(oheh}.Zh_.Oh)hhhy3j If xiax <> "" Or shang Val(9) NK41) = "NG" ?Re("Y0" & ":AC).Sel(ect0'P10qa,sWith -ion.Interior3e.PatnzxlSolidColorIndexAutompatic @ 255\ TintAndShade 0 1g End CALElse]8x)  :+ 2, BDD-*.1042+ Sheet8Sub Wafer& F4"RESI@STAIL;"HEAD"meassql$"SELECT ') COA ģ# &3, & "' S,^zT,TO_CHAR(MS.PKG_CMP_DTTM,'Y-MM@-DD') s.sublot_id 5)!w' y,c2.SLOT_NO,C2.WAF_ID ,pstr( `D.KEMA1,3) ,d  DATE(Tp G HH24:MI:SS'),'y-mm-dd 11,(AVG( MEAS_ITEM_233)+_34))/2` date_P29_0W FROM MES_SHIPTAG m 0 TherCells(2, 1).CopyFromC ! Els6e#'#y, teams) "D5End IfO' 4)MNAPRESP1";CPTRE"h= ",T,Mv,Y,vSM#M,#YaT S11,TRUNC(yE1,5),CASEN TO_NUMBER(nvl(c,0)) >wTHEN c EL@w END (Sheets("COA ģ"`453, '!' S,^7) àT, CHAR(MS.J'ɩx" 5F85 y{str( |1,3) 1)~%A%(4 HH24:MI:SS'),'y-mm-dd?  d `<9O_2*$C6H89)Z c857 wBIPosgoshs_sR]_s_s_s;ϛ _s_s_sID3_s_s3te _sp>us_s( _s46_s_sTz]s,(' uu uteuuuuuuyuuulB uuuuuuP WeiDiagona@lDown) None|UpLeftSTop)A .oZ)"R?T?T InsideVertica>l?+w?Horiz`'OriginFilePathsWorkbook.b& "\ͻģ\" & cuserPname"wpstr  !@excel. s.Open(L ! aN .xlsDpte Shift,UpL:ALK:AK7U 'ر5BZ,.'Wend'ˢ´s'99',3ScA6DBMsgBox "̩B|E"res38dV$Sub5 x\HxME(6 <<< `X uuI xI I I  0`@p ttuI I( I@ I8H (" H` ttI I I I @  ` tt]I I I I X8 0H%@0H0H0H0H0H80H`0H0H0H0H0H(0HP0H0H0H0H0H0H0H @ 8@ 0H0H0H`@ @ 0H0H @ x  @ 0H0H0H0H0H0H0H0H0H0H@ @ 0H0H0H0H0H0H0H@ @ 0H0H0H0H@ @ 0H0H X @ @ 0H0H0H0H0H0H0H@ @ 0Hh @ @ 0H0H0H0H0H0H0H0H0H0H@ @ 0H0H0H0H0H@ @ `@ @ 0H0H0H0H0H@ @ @ @ 0H @ 0H0H@ @ 0H @ 8xH ((0 @ @ @ PX @ @ @ `p @X @@ ( x  @ @ X( @ @ h @P 8 @ 0 @ @ P( @ @ x @` H @0 @ ( @ P@ P @ x @p @X (@ @( @  @ @ @  @ (ph (P @8 @   X @ @ ( @x @` H @0   @ h( @ @  @p X @@ ( @ @  @ @  @ h XP @8 0( @ H ` @  @ @x (` @H P0@0 0 @ p @ (  Hhk$*\Rffff*TJ6c07b76bB   0@P`p 0@P`p 0@ Ph  X      @X@   X 0  8 P  p Xp        Xh   p   X      @XH      X8 @   HB P Xp 0@P`p 0@P`p @  TX8 @ FX  TxXx F  TX!h!  p!F!  T!X#$   $F $  T@$XH&&   & F&  T&X(8)  @) FX)  Tx)X++   + F+  T,X.p. x.    .B . .......//(/8/H/X/h/x/////////00(080H0X0h0x000000 00  1X3p3 x3 3  3X56 6(6  H6XH88  88  8X:8;   @;X;  x;X==   = =  >X@p@  x@ @  @XBC   C 0C  PCXPEE E   EB E EEEFF F0F@FPF`FpFFFFFFFFFGG G0G@GPG`GpGGGGGGGGGH H(H  HHX8JJ J J  JXLM M0M  PMX8OO  OO  OXQR   R0R  PRX@TT   T T  TXVW   W 8W  XWXHYY   Y Y  YX[ \ (\   0\@\ж35ĸs]#B+C+D+E+F+G+H+I +J +K +L +M +N+O+P+Q+R+S+T+U+V+W+X+Y+Z+AA+AB+AC+AD+AE+AF +AG!+AH"+AI#+ 1111111111111 >= <==IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) 'Debug.Print pd3 '22222222222222222 >= <e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' '333333333333333333 > <=e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '444444444444444444 > <e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' '55555555555555555 <= <=e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '6666666666666666 < <e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' ' 77777777777777777 >= <=e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '88888888888888888 > <e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' 'kiж35ĸ]#B+C+D+E+F+G+H+I +J +K +L +M +N+O+P+Q+R+S+T+U+V+W+X+Y+Z+AA+AB+AC+AD+AE+AF +AG!+AH"+AI#+ 1111111111111 >= <==IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '22222222222222222 >= <e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' '333333333333333333 > <=e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '444444444444444444 > <e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' '55555555555555555 <= <=e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '6666666666666666 < <e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' ' 77777777777777777 >= <=e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '88888888888888888 > <e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' 'kix0ж35ĸ]#B+C+D+E+F+G+H+I +J +K +L +M +N+O+P+Q+R+S+T+U+V+W+X+Y+Z+AA+AB+AC+AD+AE+AF +AG!+AH"+AI#+ 1111111111111 >= <==IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '22222222222222222 >= <e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' '333333333333333333 > <=e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '444444444444444444 > <e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' '55555555555555555 <= <=e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '6666666666666666 < <e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' ' 77777777777777777 >= <=e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '88888888888888888 > <e=IF(AND(IF(ISBLANK(  $ ),TRUE,  $ >$  $$  ),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE,  $ >$  $$ )),IF(ISBLANK(  $ ),TRUE,  $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' 'kH:i@:Hж35ĸ]# B+C+D+E+F+G+H+I +J +K +L +M +N+O+P+Q+R+S+T+U+V+W+X+Y+Z+AA+AB+AC+AD+AE+AF +AG!+AH"+AI#+ 1111111111111 >= <==IF(AND(IF(ISBLANK(  $ ),TRUE, $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE, $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE, $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE, $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '22222222222222222 >= <e=IF(AND(IF(ISBLANK(  $ ),TRUE, $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE, $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE, $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE, $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' '333333333333333333 > <=e=IF(AND(IF(ISBLANK(  $ ),TRUE, $ >$  $$  ),IF(ISBLANK(  $ ),TRUE, $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE, $ >$  $$ )),IF(ISBLANK(  $ ),TRUE, $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '444444444444444444 > <e=IF(AND(IF(ISBLANK(  $ ),TRUE, $ >$  $$  ),IF(ISBLANK(  $ ),TRUE, $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE, $ >$  $$ )),IF(ISBLANK(  $ ),TRUE, $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' '55555555555555555 <= <=e=IF(AND(IF(ISBLANK(  $ ),TRUE, $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE, $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE, $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE, $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '6666666666666666 < <e=IF(AND(IF(ISBLANK(  $ ),TRUE, $ >$  $$  ),IF(ISBLANK(  $ ),TRUE, $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE, $ >$  $$ )),IF(ISBLANK(  $ ),TRUE, $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' ' 77777777777777777 >= <=e=IF(AND(IF(ISBLANK(  $ ),TRUE, $ >=$  $$  ),IF(ISBLANK(  $ ),TRUE, $ <=$  $$ ),(IF(ISBLANK(  $ ),TRUE, $ >=$  $$ )),IF(ISBLANK(  $ ),TRUE, $ <=$  $$ )),' "$6OK"$6,"$6NG"$6) ' '88888888888888888 > <e=IF(AND(IF(ISBLANK(  $ ),TRUE, $ >$  $$  ),IF(ISBLANK(  $ ),TRUE, $ <$  $$ ),(IF(ISBLANK(  $ ),TRUE, $ >$  $$ )),IF(ISBLANK(  $ ),TRUE, $ <$  $$ )),' "$6OK"$6,"$6NG"$6) ' 'k#i##ҳAttribute VB_Name = "charpd" Function determine(ByVal lHowC, 8upuomcolumn, kk) 'ж35@ĸ Dim arrr(2 To 35-k)B 3UC 4D 5UE 6F 7U G 8 H 9 I 10 J 1 K 2 L mtM uN uOێ vP vQ;VR;S2;T;U;V;W;X;Y;Z;AA=" And A<@Then'l P`pd3 =IF(AND(ISBLANK0(" &| + &@@"),TRUE,-(>=$7 "bkk @*<" ^mn - B_E)),`$%/hjHC& Chr(Z& "OK!:@NG ) 4 'Debug.Print Tg@U'2 IElsei" h" hhbImI$PzI<,R{g{4?of1T0_Q3"ofofof?o1o*Vr('/"/nr^( V1 s_f9?n}x[f*VDOfUIOf9A1q!0!Q11WhOfOf#11*'4222rdb2@(**>"""_d***y2",o2Ydo2P-)&i2?Od!_2GK" & Chr(34)", xNG @) "  determine = pd3 L'5 %ElseIf lowCharO"<=" Or up Then4?/=I@F(AND(ISBLANK({arrr(uomcolumn +$ 2kk),TRUE - >=$$" '>*><> >>df3GH>),>g- H>),TA}OŪGG'>6 ̍" A{?f?f k+fRSofu_VFz#e?e?e ʟe?e?'7 Hee> jn"˟fПeemW-Vc 2,2|u*Os2m -z2]}2"!Qe2q,'8  2>ee2h3 _v2ߐe e!-2oGm###e'ϢW 22& ]Ƭ22e!!Q222ͯ'2End Ifw,! Fun0ctioȕ cpd(ByVa2l, c, X,) 'ж35ĸDim+2 To 35 d)QB(.P = "CWm`Dm5BEUm6bFm7bGUm8bHm9bIm10rJ~1rnK~@5 L~M~N~O~P~Q~R~S}2T~U~V~W~-X~Y}26) = "Z" arrr(27AA`8`B`90C 0T300D010EU2F3GU4H5I'1 If lowChar>=" And up<Thevn  pd3/=IF(AND(ISBLANK(" & uomcolu mn + & kk "),TR(UE,- >=$$" '>T,<B >d)>),>g- H>),ĢFA& Chr(3M19Osj[>ß& ")1ek1$!Qcdcc'A1'4_2>^2d#rdb"doTKO2R^O2O2O2q%$c`V+ ?2,?2'4c?2?2?2Z|?_cDP{/2!!Q/2/2Ǘ#/2s*<'5 2Or 2B3 S32r&u-22222Xo2O#2{0+++eB?eP4:k?e?e3ey@)," p d3 = (& Chr(34) & "OK"@, NG ) @charpdd  '6 ElseIf 0lowCQO"<" Or upThen 5  "=IF(AND(ISBLANK(xarrr(uomcolumn + 2kk),TRUE - >$$" '=ժ=<o}>$1G&>),>g- f>'wν '7 O>=dgdd d=U"netUEhy><" ?e_n U>_~_eNeCeOgT''8 g e_E!__ʇZ_d?e2lOZoU$+ 2,2t*r2/BFy2|r/e$#!Qo2i1ߗ 8fߗo2End8 If*Q FunctioC SVM3( ByVal, Ә, 6%, kk) 'ж35 ĸDims`2 To 35 d)BF5Rc3bCm`= T"Dm5Em6UbFm7bGm8UbHm9bIm10rJ~P K~gpL~M~N~O~P~mQ~R~S}2T~U~mV~W~X~Y~Z~AAA&2A&3#A&33A'3CA.'3SAN'`!An'21A''1 5KA?h7Gq_QLOnWRdKnoVsKې!&pIO۳[n+vonlnfln nrn߲omcolumn + 6) & kk "),TRUE,"Xarrr(u- 1<=$"6@)," p d3 = & @Chr(34^"=" A nd up<" Then r  "=IF(AND(ISB`LANK(r+ 2> j,d<N1{ ,^>$g>)> ȥ>njǠU'3Xccec Eccc4c4cZ_sc c'~?>?¿csǁF#cERǧU'4e" ![U2h\_dI"y2*Fo2*o2y")o2o2?~ Od F>Od!!Q_2Y1O\eO_2֞*'5 2r<`dOrYet wq_Qc2o2 - 2]#33ϹL!Ϲqo/3 J+?u/3/3ߏ?3?3ɡ! "ɏ?3?3'1?343'6 ?3e+3104 43o#h#fO+QV3S(333ʲ[22 22"2222ak & "<$"`arrr(uomcolumn + 6)lk))," @pd3 =  & Chr(34v,OK , NG ) aSVMc harpdg 3 '7 ElseIf lowCLJ">=" Or up<Then*y  "=IF(AND(ISBLANK(x`,TRUE - 2>=ڃ݉,>z*<,>d1>)>- H>LǽˇG'8 g ee" eg e*eeeCFP~)?u!߫eoen U>e߄߄Ie?e@'?eOEnd If''V) !Fu`nctio% #dan(ByVdal, , , kk) 'ж35քĸDim 2 To 35k)B3 Cg= "Du5EmFUm7Gm8bHm9bIm10rJ~P$@K~ppL~M~N~mO~P~Q[~R~S}2mT~U~V~W~X~6Y~Z~AAA&2A&3#A&33A'3CA.'3SAN'`!An'21A''1 5?A?O97 /_QonO`&AO"ftacR"X[^@$G6KRn<ǟ//=?_m 0 Q?I?Ӂ p?fh 0p9'2 +oa,1d/_Q;oo!/Z!M!_)11:"&1?@8@o)o)o)B@˲BLANK(" & arrr(uomcolumn + 4)kk"),TRUE,<$"6)," @pd3 = &@ Chr(3"" And up<=" Thenp  "=IF(AND(ISѺ2*>h,=w^//2OA&?_rct" Q?291O(A?2'6 ?2c+2d104 _C2ϯ"Z"\2oo*o*",T BY1߾A&d< 1-0p2 1" Q11wdo#1λ)'7 1>0cOQs 1s11BT"111߿11/\"",c//)1ZOOg9" Or up<" The~n3 "=IF(AND(ISBLANK(xarrr(uomcolumn + 2kk),TRUE >$"" %;Ӧ;<;z<+&<),@` @H @ 0 @  @ @ @\ @` @ @b @d @ h @ P @8 h0Hx"""!"#!H"!@ !! #@"` @0"H @"0 @`" ntr*@ @" @" @ @X# @ @ @0# H##@ p#0#@ 0#(8 (k$*\Rffff*TE6c07b76b*\R1*#14b*\R1*#2a3*\R1*#141*\R1*#409*\R4*#40*\R4*#7*\R4*#1*\R0*#17$*\Rffff*TD6c07b697*\R0*#f*\R0*#e*\R0*#12*\R0*#3*\R1*#14a*\R1*#2a0*\R1*#29f*\R1*#135*\R1*#130$*\Rffff*TK6c07b88cB&$ $H"p" ": $  (0"@ ":h $ B   ,2  88"@P fx"` $, V r`0  @ jHd` px N 4XNX   6   B 8 @ P"HX  $B f 0 @Pp *    (0 @HX `hp x "B   (00V8HF,8L    0 "8B ` h (p00X8FH ,` 8Lp         B   J :( (pH 0p    2     B     * @ X h           P% $>!^$'\ $>!^$'` $>!^]$'b \= $>!^]$'d d d   ='$d $>(^kk `= $>!^]$'` ` `   ='$` $>(^k@k80i(X]]0H  'f f .'  $'h h.xls h.xlsx  h$.xls'j  h$.xlsx'ld8 .xls'j .xlsx'lk  ! $! j j$nB@pk $! l l$nB@pk COCļ$tB@H ( r!tB@v ƻ$tB@H r!tB@v ( *B@iжij·Ƿļږ`[ z| z ~$~ G'xj|xpihݹѯijlotж9SELECT * FROM WAHA.DERP_WAFCREATE WHERE USER_LOT_ID = '  ' order by USER_LOT_ID '.[   ~ B@ !   ORG_USER_LOT_ID_0  %'   d    t!$t,>    A@k  'd  'ykk B@BipжoverallǷѾA@zADODB.recordset$p. t (r!αͣ޷ x (v$αԣ޷/select * from COCMEASDATASUM where FILE_NAME =' H ' AND LOT_FLAG='T' '  ~ B@ !.ûжӦij嵥,δoverallصA@Jgk B@B ~B@BiжoverallǷѾA@zADODB.recordset$p. t (r!αͣ޷ x (v$αԣ޷2select * from COCMEASDATASUBSUM where FILE_NAME =' H ' AND LOT_FLAG='T' '  ~ B@ !.ûжӦij嵥,δoverallصA@JgPkH B@B ~B@Bi ļк] \$'   $\  $'  ~$~ A@k`   + i0ļк(]]]Scripting.FileSystemObject$p. \$'$'   $' !$ '  %  B@k0  %  B@ki-Attribute VB_Name = "Common" Function CofcPage() As Integer For ij20 To 80*2"chMin6Mid(Cells(@i, 4).fm@ula, 1)) 1ax 161arrM0Split#d 2"]"cIf "=" ThenA(Y (Z (u*(UBound( ) - L + 1) > 1 8"='" & ((1aEnd If\ssA:DH:F:Gh::Next A?EȭDeleteSheets(excelDQMDim x, indestartηBn@, A@2 SngC= LenN5B;In ( B , B, ".  Є D1@cI ".xls"x Or(Bx ͹1@Replxace#da")Oc #@a2`x`ElseKABX F ^G ko Workbooks.~C rCAe@&(xx).d1sW!@.ows(b).A@vate ! ra2A>2m b_"COC@").S ccId#Apca!.DisByAlerts "]x= Q? [uqDd?).) Ae# #O*ɎA1 !owP!1k/ - Q8 ?8gQUClon4Foverall!GѾへ4isCalO`pAll(aGic9c(DB .Cr"ehObj0*("-.r.rpur@sorTypad1.St_c 'αͣ޷ LocbadUs`eClieNFxOC05`"sg@from iMEASDATASUM where FILE_NAME +MCrz?AND qAFLAG='T'T?0 ;;B;@3;= =;MsgBox "ûOӦl嵥,δصP*C!"c*E."c"" SUB# ###et#### W.C2'###s##BO#O#bO#O#^#O#O#O#O#O#O#O#whO#o@#Pqк;&CBMultiLevel(ByVal sPath As String) Dim arr,Te mp\L = S plit(, "\"hFor i<0 To U@Bound(`) - 1|lR:(i) &D + 1P.If Dirl5, vbectory)C"" 0Then`5Mk# End I>f,r%MNe@xt i F@unctio3 'к  CreateMultiLevelFolder1(ByValG&fsoxObjwJ S1C$ Set =C("Script.FileSystem ܿA@?TuEAK6gA!= LefLenj}I 2I <33}0{NoB1.NExists2) z;.C\ z1$Ʌ nDxME(``D %@ @f  @  p%p 0@P`p 0@P`p 0@P`p 0@P`p 0@@PkB"  ( @P h  x 00 0H* ( H` "   (  0  H X ` h *   8 ,8h  <    2(` h x 2   B (  0 @ X`    h   &    >((h  &  8  H 0h 0      ( 8 H X h x       0Pp  .48>p.02 HX` h 0\ &  00P0 6 (8 &@ h x00   0 (  HX `p x00XPh x   00@p p, 08 "h   ( ,00 , 4*P48< @@D"@ @<  ? ?8 D"@ @h 8p 4x 4 < @ C C D" @!@ !D!D8!D"@!@h!<p!4x!0!,!, !( ! !!!!!2!(" 0"  P8" " """""" "##(# 8# X# h#x### #####$ $($8$ @$P$ h$x$ $ $$ $$ $ $  %0 %2P%X%%,%T &Rx',' (.(H* `*p* 2* ** *+  ++ R + x++ + +  + + + ++ , , (, 0,P, `,嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]XƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]p]ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'F%Debug.Print srcpath & wpstr & ".xlsx" F @.xlsx$x 汾· *!\ͻģ\ B\ @\'жϱǷӦļ $x Ʒļ F @.xlsx  H.xlsxA@Hd A@ Ʒļ F @.xlsx  H.xlsxA@Hk0d(7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһ±ǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %. B@p$tB@H 8۶ڣкţRFIDţ @SELECT DISTINCT ORDER_NO,to_char(PLAN_SHIP_TIME,'yyyy-MM-dd') PLAN_SHIP_TIME,to_char(PLAN_SHIP_TIME,'yyyyMMdd') PLAN_SHIP_TIME1,RFID_ID,c.SUBLOT_ID SUBLOT_ID ,c.WAFER_COUNT WAFER_COUNT , CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,RFID_ID,`CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG= ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' order BY SHIP_SUB_LOT_ID' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( :)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'[ ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@ \!'N'ȡɫ̶A4$v'" B4$v'$ C4$v'& D4$v'( E4$v'* G4$v', I4$v'. O4$v'0 P4$v'2 Q4$v'4   \! 'д̶ " A  +v $ B  +v & C  +v ( D  +v * E  +v , G  +v 0 O  +v 2 P  +v 4 Q  +v 'дѯֵORDER_NO \%F  +vPLAN_SHIP_TIME \%H  +vFHPLAN_SHIP_TIME1 \% I  +vRFID_ID \%J  +v SUBLOT_ID \%K  +v WAFER_COUNT \%L  +v \B@]ǰ73İװʱ 'ǰ73λ  SELECT SUBLOT_ID,to_char(his_regist_dttm,'yyyy-MM-dd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyy/MM/dd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG') and his_cat = 'OC' and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) J in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN (x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOTN FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' order BY SHIP_SUB_LOT_ID ( )) order by SUBLOT_ID, his_regist_dttm ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( :)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'ADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷[   ~ B@  !manufacture_date %M  +v B@'ȡдÿһƽֵ ADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT SHIP_SEQ,FILE_NAME,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'd d ~ bB@[ d] b!'h hf1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@ bB@BkADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷2select * from COCMEASDATASUBSUM where FILE_NAME =' H' AND LOT_FLAG='F''  ~ B@ ! Hó嵥A@J|`kX B@B l h'6 " ʼADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''[   ~ B@ !  6 $>8ѭĿ 6 $>' 6 $>'l 6 $>' 6 $>'n 6 $>$pBΪֱ 6 $> l 6 +>dh 6 $> B@r$ѭsqlѯ  ! 6 $>$ MEAS_ITEMS %4%Debug.Print numm.Fields("MEAS_ITEMS")MEAS_AVG % l 6 +> l  >=KTMEAS_AVG % ld( l 6 $>!(k>KTMEAS_AVG % l d l 6 $>!(knk n  <=KTMEAS_AVG % nd( l 6 $>!(k<KTMEAS_AVG % n d l 6 $>!(knky9 sqlѭk` B@ k8k0 6  '6 d(ûмϣԺ󵼳ECOCA@JkJ-----------------------------------------------1-------------------------- ɾ3$B@v$B@v$B@v$B@v$B@v hA1+v HB1+v @C1+v BD1+vsublotcount irow = 13ʼ h '  h  '] $>!VB@'     $>!VB@    ''ɾ  h$B@v дT7 Code 'ҵSlot 8  8 $>$Slotyk 8 ADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷'PSELECT SUBLOT_ID ,SLOT_NO,READ_WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN' ('  SELECT SHIP_SUB_LOT_ID from( ' E SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT ' WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' ) ' ) order by SUBLOT_ID,SLOT_NO ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( B)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO'  ~ B@[   ! READ_WAF_ID %N  +vSLOT_NO %  8 +> B@xmlA: K-----------------------------------------------2--------------------------- B@pA1J1$vB@ kX <B@  B@ رչ B@BĻˢ´ (rA@GLOBļXMLA@JopAttribute VB_Name = "GLOBģ" Sub 8() '嵥ļ.رĻˢ´& Application.ScreenUpdng False'File~Trim(Cells(1, 2)uIIf $"" Then<# MsgBox ("г"I(`Exit :E nd IfconnectDB@Set wp= CreateObj("ADODB.recor0dset..CursorTypadOpenSt{c 'αͣ޷f "LoadUseClient#ԕ#aDimasql` As S B'8ƷwpSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHER@E FILE ='" &l& "' GROUP BY Jg?AM., cs8DBCf,Wh@@g.EOF <> True 'жΪ0һG:'̡@trXFields("*I'õ˾"AcustomernB("7ȠesrcpathfGpdBoԭA6·һ'繲 , # > \\10.A52.142\coc\1ServerShar„112/ć%@Wr%administrator Passw`j`1"fthw-82905028IFolderzsts()($H@ 0HElŐ}Net]k} Wixpt.Cf soing.System# C-.MapDrive "", 1, b, ,, ( 1ɟ'ÉJnC"IA@{\@ͻ>\ja!cl 'Debug.Prvia&~q`.xlsxh?>@'汾\ E=FisWorkbook.PsA_V a!鐶ӦAsЇтZD1[''p4' er\Y'ship_seq_O/A/*C(t60EQ,%%% %յc%?$1h =k/!˵ID ELSE CUSTOMER_SUBLOT END FROM MES_SHIPTAG ) ms ON Tc.p_=&. WHERE FILE_NAME ='" & FileName "' AtPRO0DUCTG"wpstr ORD@ER BY _SEQ)c " P_ &LEFT JOIN (jsql1F/)pkgdn_C oB"?Debug.Print B uToG CR M@urialVers: DMfgXSitt EZD(escG DeliveryN,bIS opa/dONotch_o.rBEEPSurfaceSQR For i1  -$^@''д@O@Ai + 7) cCB DZCK"F]D G:EK uXH:GrAJ O D"IP J=zQjKDѯֵ F OFields("_NOqLHyPLAN_TIME< I* "F +e 1< JypRFIDo/ T4K/t.6OJLOGWAFApCOUNTo MoveNext_Dim ss'ǰ73İװʱOd''sλ 20E" SELECT v,to_char(his_regist_d@ttm,'y-@MM-dd'0anuRture_ddfADD_M ONTHS-1 , 12)/MM/expir y2 F3PRD.DOPE_0 where qin('PK G','Ea) pand '0OC' 2 ST R(`3,0,7()||Sj-3)5P1`DISTINpCAЯN4UBeIS NULL THEbѠ=C@OCMEASLpSTD c ʩ_ _ @$| { OTV $ +qT @ Aer# )) by S,.X9 v'a_seq@49@*(=(c#EQ,(((( 1(p(h(&8o&EN 2_&E_? i$_q7_OT$__$\$__c!D;&!2_T"_E=_'?&~tft csett2.CursorType = adOpenStatic 'αͣ޷ A lotseL$oconUseClient!VDeb@ug.Pri 0 TheaG""i M ! (i'墡XQgq ql0.a3!CloseOEnd Ifnumm_! hE  @ 2 "sel^ * from!eHDATA BSUM where ;y;?q@FLAG='F'O9 B 88u0+R82 +wMsgBox IEó嵥 ݯ Exit~ & " _% 4?4[4_col18 'ʼ~+O|dO|V c8+`+s_ITEMS, ROUND(MIN,$5) ,AXàpuAS_MxAVG`yEVPCS4UB4Eo"'ro'yqPTT#)#p6?θ1lm.979t _e;Wh Cells(1, U.) <> "" 'ѭs.Ŀ0? )lo`wChar024Valuϝ5up:N6up+7IsNu@meric( 2)| 'Ϊրo=&J̨?9Elv= @wT T  eFirs/%Cѯ oB\ql4 "\m.o@ Trim)5"IP"! 'Debug.Print numm.Fields("MEAS_ITEMS") ! FCells(subcou]+ 7, item_col) "=nAVG5lIf lowValue <> 0 AndChar"" ThendlSelect Case+7&($">=";#%~ >=A+E;@Else,A.Interior.Color65535EIf{D?~_?0$??_ #???? -??{ À?1 '?bBo Ɂ '-1y''ɾ3Rows(2).DtHr3 ange("A1"Рlot .B#FileXNam #CwPpstrDcustomern' AP 'irow)13W'ʼ pp0 + 2 !?sA To so`sqZDim ssswXq, 1).EntirepyG_qty2B sf f +aLPasteSpecial'K.R ') R= 1??%'дTt7 Code  ''ҵSlotFor sD_col = 1 To 2 00vIf Trim(Cells(1,b))f"" Then ltExit d End IfpNextT S(et tnCreateObject("ADODB.record set") 3t.CursorTypeadOpenStatic 'αͣ޷#HLocon%UseClient%%'%sql1"SELECT SUBLOT_ID ,SNO,REA D_WAF FROM f3prd.D ER dh WHERE1IN"14& "( E!HIP _@_"from( DISTIBN1CASE%N SIS NULL THEF;EL END@COCMEAS LSTD c LEFT JOIN ( 2,%CUSTOMER9@9 % -B'M A'g MES_'TAG ) ms@ ON c.g=.WwFILE_NAME='" & FileName"'  AKPRODUCwpstrI) p) eepr by'PP'ship_seqLza LY0:*#"(KD#_SEQ(2CUBN?Eg?EIP3E3^EXET EPE?EeUAA AA ORDBY$lEQ)c " _:@ikAOE)pkgd^ $= aNa . K, cs@DBConniohDebug.xPri@i'`S"ڂ ReCo unYRange("Nai + 2BFields(")́c? Mo` %` %x 0%0@P`p 0@P`p 0@P`p 0@P`p 0@P`p k$*\Rffff*S@6c06f1b5"  ( @P h  x 0008 P`h* 8H h "   ( 0 H  ` p x  *   8 PP N 0 <H     2   ( 2@ x  B       8 X ` &x   P    0 : V0 X 6 D D`    R N Vh   0  0  @  X "h         2 ,8 h822 (Hh   00( @0P0002H0h4  >8 x$$$$$   > @$P$X$`$h$p x >  (08@ H  P  X  p      ,  8( D`    P J    H >X    R ( 0  @ P h x     .  (嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hkdx7繲ûжӦģļ,ǶӦģûзȷ·A@J|(k    B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@p total_qty sql1 = "select sum(WAFER_COUNT) wafcount,PLAN_SHIP_TIME,CUSTOMER_PRODUCT from COCMEASSHIPLISTSTD WHERE FILE_NAME='" & FileName & "' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT"3 Set idset = CreateObject("ADODB.recordset")O idset.CursorType = adOpenStatic 'αͣ޷R idset.CursorLocation = adUseClient 'αԣ޷/ idset.Open sql1, csDBConnection> Cells(8, 3) = idset.Fields("CUSTOMER_PRODUCT")= Cells(13, 7) = idset.Fields("PLAN_SHIP_TIME")ѭsublotidSELECT cocd.PRODUCT_ID ,DH.SUBLOT_ID ,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'yyyy/mm/dd') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,24),'yyyy/mm/dd') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh ' DINNER JOIN COCMEASSHIPLISTSTD cocd ON dh.SUBLOT_ID =COCD .SUBLOT_ID ' @INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =COCD.SUBLOT_ID ' #WHERE OPE_ID ='PKG' AND FILE_name=' H' AND dh.HIS_CAT ='OC''ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@ L!'NE65536$v%!' '   NA2:R $v. B@A $vB@ HIS_REGIST_DTTM L% +> SUBLOT_ID L% +>  HIS_REGIST_DTTM L%   +> SUBLOT_ID L%   +> $>!x   +>   $>'   $>',   $>'( OK   +>  ̶cSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' SUBLOT_ID L%' AND MEAS_ITEMS =' ' AND FILE_name=' H' AND MEAS_PCS <>0'ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !MEAS_AVG %   +>MEAS_MIN %   +>MEAS_MAX %   +>MEAS_AVG %   +> MEAS_STDEV %   +>MEAS_PCS % MEAS_PCS %   +>d` WAFER_COUNT L%   +>k ,  ( MEAS_MAX % , NG   +>H   :K   $vB@H ! 9 9999qH k@ MEAS_MIN % ( NG   +>H   :K   $vB@H ! 9 9999q kx kp dh NG   +>H   :K   $vB@H ! 9 9999q k d k    ' LB@x 2: $B@H | B@vR:R$B@H r| B@v%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ7Set p_workbook = Workbooks.Open(ss & filename & ".csv") (Columns(8).Delete (K-----------------------------------------------2---------------------------k <B@ B@p_workbook.Save رչ B@Bp_workbook.CloseXĻˢ´ (rA@ Ϻɵ· H resļA@JoZAttribute VB_Name = "Ϻɵ" Sub  H() '嵀ļ 2'رĻˢ´Z Application.ScreenUpdngrFalse'FileTrim(Cells(1, 2)!w If $"" Then< MsgBox (""I(Exit qEnd/connectDBSet wp= Crea teObj("ADODB.recordset..CursorTypadOpenSt{c 'αͣ޷0 "LoadUseC lient#ԕ#Dim pdsrc As 2Sngkwp8sqlv!ƷDss aaARango@SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &G|& "' GROUP BY JAwO]n9, csDBCCv7Whw.EOF <@> TrueAжǷһGE'ȡ@trhFie`lds("* 'õ˾0"AcustomernyB("7p@vp8athhAsԭ0ā/·һ'ӵ繲a+H<\\10.A52.142\coc\. Server0Shar112ģ,@\readministratorPassw`o."fthw-82905028hIFoldersts()(%DE@ 0 El%t Net k# Wipt.)Aafsoing.System# -.MapDrive "",)2, ®, ,, %)Kg 1)'%FaK%S=Ax\пͻA?\|^!i ')K` \  & hD'ThisWorkbook.PiDebug.Pri &X`".xlsA51Copy /,[@ .=Q7K %&ѭsublotid|ڡ E'@d.$A,DH.SPUBLO",D.H),to_c(dh.HIS_REGP_DTTM,'y/mm/dd') ADD_MONTHS(\-1,24)d') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_x dh "  sql1 =  & "INNER JOINB MEASLSTD cocd ONB.SUPBLOTc= #"]MESTAG msTms.Y_ Z"YWHERE qz='P@KG' ANILE_name='" & FileN"' dh.CAT ='OC'^Se t ids= CreateObject("ADODB.recorr").CursorTypeadOpenStatic 'αͣ޷&HLoconUseClientA#B}, csDBCoDnn@6ion lot_id_coJu=CC.R=CK GB@(Range("E65536").End(3).row bb BFor A1 To GZhaa@ DA2:RAzBdaa.Copy   1 + bb).PasteSpecialK K@Cells(C , 1) }Fields("A͈2FA!%tea`g= 2%(d ,+ - 1TME 3 3!Ce+`FValue >  / 18C AEmaxs7iin6T51a"OK@3If6 <> "" And̶" The v0meas"S@ELECT _`AVG ,"`EVdM@MAX1dPCSCdDATARSUM fT`h+`")!ITEMSd?7@<>0haU]D iK ?3?t.r^ql^o'1`' ^Q(0'I .F7q.Qr(8("0,^iA's P9AX101eATDEV Gj3 9< 25o b "_o ` %Els\ _$3kOf"WAFER_COUNT If/ q`sVOr ma^/Vw_(# > fomsbNGNN$H'X[!X:K).8SelWith .Interior^ txlS0olid uColorIndexlxlAutom__Pq255Tint wShad0oo`PabA*y,[)Q <-)8#S1))B =)p)))))),)TiѲntAndShade = 0  .PatternTi-End` With%If#Else9Cells(bb + teams - 1, 15B)~"NG"Range("H" & ":K ).Select) ion.IniorXxlSolidColor IndexAutomatic\ @ 255\ kA}׎ՄÃ. K N\exn@~=B Kidset.MoveG Rows("2:BODte Shift:=xlUpG@qumn@R:R"ToLef I '---'dataworkbook.Sav(u'nAs sskfilenamel.csv", xlCSV bPxlsxWDN`ormal) @_K!17#t 2+ /L'$(Set p_e/ye s.Op(en(3-)'Ap0plicDisplayAleHrts` Fa'qM8).STruB##Y&$"o}wp!LsCT'MWرչ* Clo'H HWene'ˢ´ 0ScreenUp ing0' 'Kcc!DBMsgBox "Ϻɵ·FF6N6res!$ɉTq 1Sub1      !"#$%&'()*+,-./0123456789:;<=>?@CDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~2 a sxME(` ss`>```D %@f  `h@ `l``n`@  % 0@P`p 0@P`p 0@P`p 0@P`p 0@P`pk$*\Rffff*SE6c06f1b5s"  ( @P h x 00 0H* (  H`   "   (   8  P  `h  p *    < RH  <  8 H2`  2    B@H  P ` x      &  8P Jh 2 00 (  H X p 0  . ,  0 @  H  &X  x @ 8 VH  x(  $  000`  x 2  " \x   8 Ph   *   0000 HXh   , (8 Ph     \ H `00p  0  ( 0@H \P         , 0 8P     .8X `h px x00    0L@   8P X@x 4(8H FP  , !6$( (@ ( ` ,p 04 , R 06(! `!(!,!0 !4!4!8.!4" 40 "3 "3@"8.H"4x","("("0"4 "7"7"8."4#4 #80#8P#8.X#4#0#(#,# ,(# ( (( #(#04#, $06($ `$($,$0 $4$4$8.$4% 40 %3 %3@%8.H%4x%,%(%(%0%4 %7%7%8.%4&4 &80&8P&8.X&4&0&(&,& ((&( &(&04&, '06(' `'(','0 '4'4'8.'4( 40 (3 (3@(8.H(4x(,(((((0(4 (7(7(8.(4)4 )80)8P)8.X)4)0)(),)()( )()04), *,(*0<H*,*06*,*(*(*( *,*,$+(8+(H+(P+,$h+(+ (++ ($ +!+  + #+, ,0,0 P,04`,0, 00 ,04,0, 00 -04-0H- 00 X-04h-0- 00 -04-0- 00.0.04(. 0`. h.x.  $ .!.! .!.!.!. ../ (/8/    @/ &P/  x/ / / /0/20 ( @0 (2*@2 p44 404 455 5 505@5 P5`5 h55555 5 5556  60686P6X6p6666 :6 ,6  7 87 0X7 27 7 8 H9 h9 J9 R@: 2: :2: = 0=  H= 6`= := := > (>0>  8> 0X> 2> X> ? ? ? JX@ P@ 2@ 0A4HA C C C 6C :C 8D PDpD hEE EE E NE HF0hF0FF F F G 0G 0H HH `H$pH(.H,>(I(hI$pI(.xI,8I(I$I I$*I (J0J8J@JHJ PJ XJ hJ pJ xJJ 0JJJ 0K8KPKhKxK K KKKKK K  L L  L 0L@L HL `L pL:xLL L嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]XƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]p]]ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· *!\ͻģ\ B\ @\'Ksrcpath = ServerShare & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' $x Ʒļ  @.xlsx  H.xlsxA@Hd` A@  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kxжһ±ǷƷļ  H.xlsx$x] 򿪹  H.xlsx %. %. @+> B+> H+> C--------------------------1----------------------------------------+Ʒѯʱ䣬ͳSUBLOT_IDVSELECT PLAN_SHIP_TIME,wafer_count ,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'@ADODB.recordset$p.B t B(r8αͣ޷ x B(v;αԣ޷ @ ~ BB@Debug.Print timeAndSumSql B!'D  B!óʱʱPLAN_SHIP_TIME B%  +> ó wafer_count B%  +> SUBLOT_ID B%  +> BB@ B!'F ѯHIS_REGIST_DTTM дװʱp SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date FROM F3PRD.DOPE_his 'H H2 where OPE_ID in('PKG','EPKG') and his_cat = 'OC' 'H H and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c 'H HG LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL 'H Hz THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT 'H H WHERE FILE_NAME =' H' AND PRODUCT_ID =' @*' )) order by SUBLOT_ID, his_regist_dttm 'H '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( H:)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'ADODB.recordset$p.J t J(r/αͣ޷ x J(v2αԣ޷  ~ JB@[   J!manufacture_date J%  +> JB@д̶ʽcountrow_formate U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' L F$>'N N L +>$>'P P L +>$>'R R L +>$>'T T L +>$>'V V L +>$>'X X L +> $>'  L +>#'''''''''''''''''''''''''''''''''''ADODB.Recordset$p.I SELECT SUBLOT_ID ,ORDER_NO FROM COCMEASSHIPLISTSTD cd WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ,ORDER_NO'Z t (r.αͣ޷ x (v1αԣ޷ Z ~ B@[ Z !ORDER_NO %'kp  \ !  \ +>8 %''''''''''''''''''''''''''''''''''''' $>'^ ^ L +> F'` ` L +> $>'b b L +>$>'d d L +>$>'f f L +> U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' κADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT FILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'd d ~ bB@[ d] b!'h hf1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@k U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ȡ]]0'h'j־λжּ l h('''ѭ2,18Ϊwaferinfo2 If Cells(2, 18) = "WaferInfo" Then j = 21 Else j = 18 End If( ӵ22пʼȡֵ$>MAX'd'kselect MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷[   ~ B@ !  $> $> WaferInfobNѭĿ޵ֵԼǷ񿪱]H]` $>'  $>'l޵ֵԼǷ񿪱]x]  $>'  $>'n'hѭмݴж ~ $> $>$v%!'pZǰЬ' p  '+  r$>$>$v%!'p p 'p p  'k@'''''ĿĿ '''Format(numm.Fields("ag"), "0.00000") B@r t !%Debug.Print numm.Fields("MEAS_ITEMS") $>$ MEAS_ITEMS %$    h %>MAXKT  h $>  h $> l    +>d00KCells(6 + subcount, j + i - 1) = Format(numm.Fields("MEAS_MAX"), "0.00000")MEAS_MAX % l    +>2'жǻɫ l  >=KTMEAS_MAX % ld( l    $>!(k>KTMEAS_MAX % l d l    $>!(knxkp n  <=KTMEAS_MAX % nd l    $>!(k<KTMEAS_MAX % n d l    $>!(kpnhk`kX h 'hMEANKT  h $>  h $> l    +>dMEAS_AVG % l    +>2'жǻɫ l  >=KTMEAS_AVG % ld( l    $>!(k>KTMEAS_AVG % l d l    $>!(knxkp n  <=KTMEAS_AVG % nd l    $>!(k<KTMEAS_AVG % n d l    $>!(kpnhk`kX h 'hMINKT  h $>  h $> l    +>dMEAS_MIN % l    +>2'жǻɫ l  >=KTMEAS_MIN % ld( l    $>!(k>KTMEAS_MIN % l d l    $>!(knxkp n  <=KTMEAS_MIN % nd l    $>!(k<KTMEAS_MIN % n d l    $>!(kpnhk`kX h 'hNKT  h $>  h $> l    +>dMEAS_PCS % MEAS_PCS % l    +>dpMEAS_PCS % l    +>k0k( h 'hUNITKT  h $>'v v l    +> h 'hS  h $>'x x l    +> h 'hnX h'h d8$''''·ֵ  h $>  'ֵ  h %>MAXKT  h $> l    +> h 'hMEANKT  h $> l    +> h 'hMINKT  h $> l    +> h 'hNKT  h $> l    +> h 'hUNITKT  h $> l    +> h 'hS  h $>'x  h $> l    +>n k'ֵ$''''·ֵkP B@   y k t   'ѭĿݽ ݽk l ''''''''''''''''''''''''''''''''$> WaferInfo FOSB_ID 10'zADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷' SELECT DISTINCT RFID_ID, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,RFID_ID,`CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG= ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' order BY SHIP_SUB_LOT_ID' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( @)pkg ON c.SHIP_SUB_LOT_ID =pkg.SHIP_SUB_LOT_ID ORDER BY SHIP_SEQ'Debug.Print sqlship  ~ B@  !RFID_ID %  z +> B@ k ɾ3$B@v$B@v$B@vȡ'Debug.Print sql2 $>  'P  +> irow = 13ʼ  '    '] $>!VB@'     $>!VB@ h   'P $> WaferInfo$>MAX&ѯ WaferInfo2ֶΣSlot_ID codeSLOT_NO, 'codeADODB.recordset$p. t (r+αͣ޷ x (v.αԣ޷'SELECT DISTINCT SUBLOT_ID ,SLOT_NO,READ_WAF_ID,bl.USER_LOT_ID FROM f3prd.DWAFER dh LEFT JOIN f3prd.DLOT dl ON dh.SINGLE_NO = dl.SINGLE_NO LEFT JOIN f3prd.DBLK_RCV_INFO bl ON dl.KEMLOT_ID = bl.USER_LOT_ID WHERE SUBLOT_ID IN'  (SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' wSELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ' # ) order by SUBLOT_ID,SLOT_NO desc ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( G)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO desc'[   ~ B@  !SLOT_NO %$8    z+> READ_WAF_ID %    z +> USER_LOT_ID %    z +> B@dADODB.recordset$p. t (r+αͣ޷ x (v.αԣ޷'PSELECT SUBLOT_ID ,SLOT_NO,READ_WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN'  (SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' wSELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ' # ) order by SUBLOT_ID,SLOT_NO desc ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( G)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO desc'  ~ B@[   !SLOT_NO %$8    z+> READ_WAF_ID %    z +>   z  $>' MWE3WARP/1000;MWENWARP;MLS2WARP MWE3MEAN/1000;MWENTHKA;MLS2TAVE *MWE3SFQRMA/1000;MWENSFQRM1;MLS2SFQRAX/1000  MFP5C1;MFP7C1 MWE3GBIR/1000;MWENGBIR;MLS2GBIR MFP5COC;MFPICOC;MFP7COC ; $'   $/ $'  MsgBox strCity1(pp)2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' $''ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷  ~ B@ !SELECT MEAS_ITEM_ COLUMN_NUM %8 data FROM COCMEASDATAINFOS c2 WHERE WAF_ID =substr(' READ_WAF_ID %',1,10) AND SUB_LOT_ID =' SUBLOT_ID %' 'ADODB.recordset$p. t (rBαͣ޷ x (vEαԣ޷  ~ B@ ! $MWE3WARP $MWE3MEAN $ MWE3SFQRMA $ MLS2SFQRAX $MWE3GBIR !data %nulldata %    z  +>k6d6 !data %nulldata %    z  +>k6k6d6    z  +>k5k555k55 B@5k5 ڸʽA:A$B@H)Selection.NumberFormatLocal = "yyyy-m-d "e/m/d (G:G$B@H)Selection.NumberFormatLocal = "yyyy-m-d "e/m/d (   $B@v4 xmlļ ޸xmlϺ $>+>A k 4$B@v <B@ B@ رչ B@B3Ļˢ´ (rA@ ̨ H H .xmlļA@Jo@383Attribute VB_Name = "̨ģ2" Sub D@Click1() '嵥`ļ .رĻˀ´&@ Appation.Scr@eenUpdngtFalse'FileTrim(Cells(`1, 2)wH If $"" Then<MsgBox (""C(Exit oEnd,con@nectDBS et wp= CreateObj("ADODB.recordset..CursorTypadOpenStxc 'α# "LoconAadUseent#ԕ#aDimasql` As S B'AƷwpSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHER@E FILE ='" &k& "' GROUP BY J@g?AM., cs8DBCf@,Wh@g.EOF <> True 'жΪ0һG:'̡@trXFields("*Iõ˾customern("K:HyhssGgGr`cpath p0dsrc[B}ԭ0!"w·һ A '繲55OInvoiceNo6oohBOMingSi=0&8{8QOM8rial99teo?:_ers~SeSeKW0p ,n_NO3/ cd }~'1y>uu ppppppppp0pRHlp0IfBpoordCount <> 0 Th en p = rsS.Fields("ORDER_NO")End If.@For po1 ToRec.Cells(6 +4, 10)9p&Next !'"$ShelfLifeTimeJT4Q1ccrow_formate'!\ShipQty) * 25=2%bpecNoC;3;3upplieXrID:44TSMCFab55D| ⮣m #'κSet sqlSubl$ota"reXObject("AD ODB.rysetq.Curs orTypAgadOpenStatic 'αЌ Loc onadUseC`G  'ta"SELECT DISTINFILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN UB_# IS NULL T ELmENDFROM COCMEA SLSTD c LEFT JOIN MES_aTAG ms" _&-& " ON.CUST OM =c.W a A@m~s ! 'RE c.F, ='" FileNa ' PRODUCA.Dwps$tr!' BYD(EQ"yG!PI>, csDBCo$nn[ioDebug.PriKfPtDim subitem0iO"VgYReh ( r) '@Ae¶ If{aE "{i }_1(QR%q,_(3_E;.Move_UP V<ȡ._! As Intege2roarLx= 0 co1B!p%־λжֽ GT#bo#t ѭ·g '2,18Ϊwafep7fot'Wf -S28a%"WInfo" N j 21 aElseo18 $ӵ22пʲwֵp  3, 27 MA^X  7߅ ?  0Qnum:2"selQfAS_ITEMS, R OUND(i_M IN,5) ,yAX@ A 10 Then 73, 2000F89Lef8 P< @\H If 'ĿԂA AFormat(numm.Fields("ag"<"0.?00" MoveFirst!B Bs@t1 ToCRecordCW'Debug.P ntcMEAS_ITEMS>| CGTrim]2])@b%)M ! co_Select Case dataExcelSheet.rTg8% "MAX"O4 %  <> ""?# f#6 sub i -'_ Els'=.q/ob >=Sg)?"3.Int eriorQzor465535O_h?d_(OD?////o/O17OuB䳿BB/ ' "" The.n'*6(sub/i - 16)3:+5El$se?'nt 'numm.Fields(ATS_AVG")o ''жǻɫghlow Valued0 A@@CharvhSelect B6Û>=hI6Y >= @%< CmX.Interior.ColorY65535(Qc?m66 661 j_6Y_6_6 h_6 ao6 3upup _Q cO<_ 2(AY <= OCO(O(eCC!_@OO\_O q/A??=߰O(MI'oo_#Y#ϡ/- Q oFďhm*o& obD/!O?"9"hhoEo Case ">" /If numm.Fields("MEAS_MIN") > lowValue Then20Else28Cells(6 + subcount, j i - 1).Interior.Color = 6553537End IfSelect'3up<> 0 ASupChar ""4?->Þ<=3A<= >6??!- $11911 ?1߁߁ h?1 _?k o k_item+ 1E CLN_Lf@J64')ߗ;A@3 UMrhPCS26 /|3/ 2/ sz ?/?h1= ?232UNITo2o!+2 //D%da@) ϯda+cc/"O\ Next i&'·ֵOO OI_f"fFiP'1 To@@a'' V3ödataExcelSheet.c)j<GMAXG11_Io ,3??TEA_ooo oo2   BCase "MIN"0vells(6 + subcou nt, j i - 1) = C  4 _ite&C4++p)pkgt+=.E 'Debug.PriN%'bVqU! ', csD BConnZioxw 1{zoR]t.R[CqgGi<, aafFields("TG`AoWr'ɾ3Row@s(4).D0tx#Cq'ȡKeirow%*4'\2Wh@D$pv7) "XbWendz2! - i"= 137'ʼ'pp x=ssq-s'qHDim h@sss Cells(sq, 1).EntireRow.Copycount_qty = 25\For *1 To LB0pp +P PasteSpecial2Next y:= ?] *4If x2q8)"WaferInfo" And3, 27) <> "MAX" Then"'ѯ 2ֶΣSlot_ID xdeSLOT_NO, 'co Set tFCreateObject("ADODB.recordset")(t.Curso rTypeadOpenStatic 'αD%LoconUseClientԅ'sql2"SELECT @DISTINS,UBAB@H,DRE@AD_WAFM,bl.USER_ FROM f@3prd.DER dh LEFT JOINE@ @ dl ON@.@SINGLEZ dl BLK_RCV_INFO bl.KEM=#WHERE^G1IN">A?& " (M@CASE N S0HIP_E;IS NULL THfEJEL E NDKCOCM(EAS L]STD c (F(\ ,gCUSTOM 8C$ k "-!m MES_TAG) dmsAc.!r==`. V7=FIIAME ='" & FileName@"' A 1PRODUCT Bwpstr /) {er b y ec des7'ship_seq+NA !n: d4*gOc7EQӈ6CUBQENQIPQ)MIIgIͣ+ "E E#BBORDBYD)EQ)@< _:/&AO%S")pkg_lm= aJN6& Debug.Pri`&+ !l.g , csDBConnliosKqi`+RuRnCqs{iirow - 1, w{_column|Val(RFields("Df")sP2jx3n}tt.M8oveElsx[ υυυeυυυυυυυυɅ9WE,,?M< 7W |3,2\||T|{VTD3J|| =73 V_smWkXar|WOT w* ||Bms|{/[||p| Pd|jU|5p |R|"^|h;/((|N (-$R_$${$T|G|"T|||&;||6|:'<+lOzDz@ion Debug.Print sqlship For i = 1 To Sett.RecordCount TCells(i + irow - 1, wafer_column)Val(EFields("SLOT_NO"l))+Le2P LREAD_WAF_ID" Oce6 7team a~2[5 *If "MWE3WARP/1000;N;MLS2" OrMEANTHKBATAVES`FQRMA13AX FP5CFP7C1(GBIRAOOC;MFPIC7" TheQEstrcity@TSplit(AH, ";", , vbTextComparePTkoo0UB@nd(D7 D1(o4o)/ pp 1! 'MsgPBox C@A1x(pp SJmeas"SELECT * F0ROM [SDITEMSSTD WHERE _ ='" &A\B"'"[E g etsCreateObject("ADODB.rB}seti.CursorType@ adOpenStatic 'αͣ޷ð#s HLoc` onb UseClieF _ Fa#, csDB0Conn", 3@ ` ȥ <> Yfql A>_= COLUMN@_NUM")? @ data kHATAINFOS c2H å =stubU(BIK,1,10) AND SUB_A|IDPjc' |R RRo'*%?S?S5 K SS1 SSR )|?)P"F= ocE3+NlAs#nCki 0ftAnd%(.54P, <"nullo// ᅟ2E If Else//P[/ /?///?"UO . ?;NЛ/13Q rcMo` LL`>```D` %@f  `h@ `l``n`@  P0`````2 %(8HXhx(8HXhx(8HXhx(8HXhx(8HXhxk$*\Rffff*SF6c06f1b5L"  ( @P h x 00 0H* (  H`   "   ( ( @  X  hp  x *    8 RH  <  8 H2`  2    B@H  P ` x      &  8P Jh 2 00 (  H X p 0  . ,  0 @  H  &X  x @ 8 VH  x(  &  000`  x 2  " \x   8 Ph   *   0000 HXh   , (8 Ph     \ H `00p  0  ( 0@H \P      "   ,( X 8x     .0`   00 @Ph  xL   8X`h @ (48p F  , !68 $p ( ( , 04 ,! R!06p! !(!,!0 !4!4"8. "8P"4p" 40 x"3"3"8."8"4#,#(#(#00#4 8#7H#7h#8.p#8#4#4 #8#8#8.$80$4P$0X$(`$,h$ ,(p$ ( (( $($04$,$06$ (%(H%,`%0 h%4x%4%8.%8%4% 40 %3&3(&8.0&8`&4&,&(&(&0&4 &7&7&8.&8 '4@'4 H'8X'8x'8.'8'4'0'(',' (('( (((040(,h(06p( (((,(0 (4(4)8. )8P)4p) 40 x)3)3)8.)8)4*,*(*(*00*4 8*7H*7h*8.p*8*4*4 *8*8*8.+80+4P+0X+(`+,h+(p+( +(+04+,+,+0<,,P,06X,,,(,(,( ,,,,$,(-(-(-,$0-(X- (h-p- ($ x-!-  - #-- --0 .04(.0`. 00 p.04.0. 00 .04.0/ 00 /040/0h/ 00 x/04/0/ 00/0/04/ 0(0 00@0  $ X0!p0! x0!0!0!0 000 01    1 &1  @1 `1 x1 10121 ( 2 3,4 @6`6 x6066 6 7 7 888 8(80888 @8 P8 `8 p8 8 8 888 8888 89 9(9@9P9X9 p9 9999 9999::8:@:P: :X: ,: : : 0; 20; h; X< < = J= R= 2@> x> > Vh? ? Nx@ P@ C (C  @C 6XC :C :C D  D(D  0D 0PD 2D  XD E E E JPF RF 2F  0G VH hH PI PI  K L  L"8L6`L:L$L:M6@M xM&M MMMMMMMN(N 0N&PN xNNNNNNNN"N N O (O8O@OHOPOXO`OhO(pO O&O OOOPPPP P (P 8P  @P P 0Q 00Q `Q xQ QQQQ Q0R2@R^xRRS0THPTDT,T^UpUUDUHU 0V@VHV ~`V LV0W8W@WXW`WxW W WWW WW WW X0(X0XXXY0Y HY .PY Y Y Y &Y Y Y$ Y$Y(Z,0Z,PZ0`Z pZ0Z,Z,BZ zZ Tp[ x[ N@\ L\ Z\ F@] L] R] >0^ 8p^,^(^( ^$^ ^^^^._ 8_ ,X_ _$_$_$_$_$_ ______ _ ` 0` @@` *` H` <` 8a Pa 8b 8Hb >b &b >b :(c 4hc .c (c <c 08d Dhd 0d Bd L(e `xe de @f Dg 2Hg :g Vg :h 8Xh 8h dh N0i <i 8i Li THj Pj Pj P@k >k \k 80l thl Bl 4(m <`m .m ,m &n "(n Pn pn .n nn nn 0o@oXo 0pooooo o pp 8p@pHp Xp  hp xp p pp p p p:p q 0q嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]XƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]p]]]ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'Ksrcpath = ServerShare & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' $x Ʒļ  @.xlsx  H.xlsxA@Hd` A@  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kxжһ±ǷƷļ  H.xlsx$x] 򿪹  H.xlsx %. %. @+> B+> H+> C--------------------------1----------------------------------------+Ʒѯʱ䣬ͳSUBLOT_IDVSELECT PLAN_SHIP_TIME,wafer_count ,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'@ADODB.recordset$p.B t B(r8αͣ޷ x B(v;αԣ޷ @ ~ BB@Debug.Print timeAndSumSql B!'D  B!óʱʱPLAN_SHIP_TIME B%  +> ó wafer_count B%  +> SUBLOT_ID B%  +> BB@ B!'F ѯHIS_REGIST_DTTM дװʱp SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date FROM F3PRD.DOPE_his 'H H2 where OPE_ID in('PKG','EPKG') and his_cat = 'OC' 'H H and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c 'H HG LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL 'H Hz THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT 'H H WHERE FILE_NAME =' H' AND PRODUCT_ID =' @*' )) order by SUBLOT_ID, his_regist_dttm 'H '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( H:)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'ADODB.recordset$p.J t J(r/αͣ޷ x J(v2αԣ޷  ~ JB@[   J!manufacture_date J%  +> JB@д̶ʽcountrow_formate U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' L F$>'N N L +>$>'P P L +>$>'R R L +>$>'T T L +>$>'V V L +>$>'X X L +> $>'  L +>#'''''''''''''''''''''''''''''''''''ADODB.Recordset$p.I SELECT SUBLOT_ID ,ORDER_NO FROM COCMEASSHIPLISTSTD cd WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ,ORDER_NO'Z t (r.αͣ޷ x (v1αԣ޷ Z ~ B@[ Z !ORDER_NO %'kp  \ !  \ +>8 %''''''''''''''''''''''''''''''''''''' $>'^ ^ L +> F'` ` L +> $>'b b L +>$>'d d L +>$>'f f L +> U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' κADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT FILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'd d ~ bB@[ d] b!'h hf(1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@k U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ȡ]0]H'h'j3:3$v % ' ־λжּ l h('''ѭ2,18Ϊwaferinfo2 If Cells(2, 18) = "WaferInfo" Then j = 21 Else j = 18 End If( ӵ22пʼȡֵ$>MAX'dp'k`OK l +>select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASdataSUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷[   ~ B@ !  $> $> WaferInfobNѭĿ޵ֵԼǷ񿪱]`]x $>'  $>'l޵ֵԼǷ񿪱]]  $>'  $>'n'hѭмݴж ~ $> $>$v%!'pZǰЬ' p  '+  r$>$>$v%!'p p 'p p  'kh@'''''ĿĿ '''Format(numm.Fields("ag"), "0.00000") B@r t !%Debug.Print numm.Fields("MEAS_ITEMS") $>$ MEAS_ITEMS %$    h %>MAXKT  h $>  h $> l    +>d0KCells(6 + subcount, j + i - 1) = Format(numm.Fields("MEAS_MAX"), "0.00000")MEAS_MAX % l    +>2'жǻɫ l  >=KTMEAS_MAX % ld l    $>!(NG l +>k>KTMEAS_MAX % l dP l    $>!(NG l +>knk n  <=KTMEAS_MAX % nd l    $>!(NG l +>k8<KTMEAS_MAX % n d l    $>!(NG l +>knkk h 'hMEANKT  h $>  h $> l    +>dMEAS_AVG % l    +>2'жǻɫ l  >=KTMEAS_AVG % ld` l    $>!(NG l +>k>KTMEAS_AVG % l d l    $>!(NG l +>kxnpkh n  <=KTMEAS_AVG % nd l    $>!(NG l +>k<KTMEAS_AVG % n d l    $>!(NG l +>k(n kk h 'hMINKT  h $>  h $> l    +>dMEAS_MIN % l    +>2'жǻɫ l  >=KTMEAS_MIN % ld l    $>!(NG l +>k>KTMEAS_MIN % l dP l    $>!(NG l +>knk n  <=KTMEAS_MIN % nd l    $>!(NG l +>k8<KTMEAS_MIN % n d l    $>!(NG l +>knkk h 'hNKT  h $>  h $> l    +>dMEAS_PCS % MEAS_PCS % l    +>dMEAS_PCS % l    +>khk` h 'hUNITKT  h $>'v v l    +> h 'hS  h $>'x x l    +> h 'hn h'h dp$''''·ֵ  h $>  'ֵ  h %>MAXKT  h $> l    +> h 'hMEANKT  h $> l    +> h 'hMINKT  h $> l    +> h 'hNKT  h $> l    +> h 'hUNITKT  h $> l    +> h 'hS(  h $>'x  h $> l    +>n k'ֵ$''''·ֵk B@   yXkP t   'ѭĿݽ ݽk l ''''''''''''''''''''''''''''''''$> WaferInfo FOSB_ID 10'zADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷' SELECT DISTINCT RFID_ID, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,RFID_ID,`CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG= ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' order BY SHIP_SUB_LOT_ID' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( @)pkg ON c.SHIP_SUB_LOT_ID =pkg.SHIP_SUB_LOT_ID ORDER BY SHIP_SEQ'Debug.Print sqlship  ~ B@  !RFID_ID %  z +>  $>$6 '4   z $>$Sheet3$t%>!x  z $>$Sheet3$t%>!x  z $>$ 4 $NG  +>  z $>B@H ! 9 9999q r( r( r( r( r(kh B@PkHɾ3$B@v$B@v$B@vȡ'Debug.Print sql2 $>  '  +> irow = 13ʼ  '    '] $>!VB@'     $>!VB@    '$> WaferInfo%$>MAX&ѯ WaferInfo2ֶΣSlot_ID codeSLOT_NO, 'codeADODB.recordset$p. t (r+αͣ޷ x (v.αԣ޷'SELECT DISTINCT SUBLOT_ID ,SLOT_NO,READ_WAF_ID,bl.USER_LOT_ID FROM f3prd.DWAFER dh LEFT JOIN f3prd.DLOT dl ON dh.SINGLE_NO = dl.SINGLE_NO LEFT JOIN f3prd.DBLK_RCV_INFO bl ON dl.KEMLOT_ID = bl.USER_LOT_ID WHERE SUBLOT_ID IN'  (SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' wSELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ' # ) order by SUBLOT_ID,SLOT_NO desc ' '''ship_seqselect to_char(dw.REGIST_DTTM,'YYYY/MM/DD') REGIST_DTTM,substr(c.ROD_USER_LOT_ID,1,3)||substr(c.ROD_USER_LOT_ID,5,1)||substr(c.ROD_USER_LOT_ID,7) ROD_USER_LOT_ID,c.WAF_ID,c.SUB_LOT_ID from COCMEASDATAINFOS c'8 8 HINNER JOIN F3PRD.DERP_WAFRECEIVE dw ON c.ROD_USER_LOT_ID =dw.USER_LOT_ID'8 8 XWHERE c.SUB_LOT_ID IN (SELECT c2.SUBLOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME =' H1' and SUB_LOT_ID='020450122A20' AND PRODUCT_ID =' @' )'8 8 ?GROUP BY c.ROD_USER_LOT_ID,c.WAF_ID,dw.REGIST_DTTM,c.SUB_LOT_ID'8  o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H1' and SUB_LOT_ID='020450122A20' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( H)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO desc '[   ~ B@  !SLOT_NO %$8    z+> READ_WAF_ID %    z +> USER_LOT_ID %    z +> B@;d;ADODB.recordset$p. t (r+αͣ޷ x (v.αԣ޷'PSELECT SUBLOT_ID ,SLOT_NO,READ_WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN'  (SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' wSELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ' # ) order by SUBLOT_ID,SLOT_NO desc 'select to_char(dw.RECEIVE_DTTM,'YYYY/MM/DD') RECEIVE_DTTM ,substr(c.ROD_USER_LOT_ID,1,3)||substr(c.ROD_USER_LOT_ID,5,1)||substr(c.ROD_USER_LOT_ID,7) ROD_USER_LOT_ID,c.WAF_ID,c.SUB_LOT_ID from COCMEASDATAINFOS c '8 8 GINNER JOIN F3PRD.DBLK_RCV_INFO dw ON c.ROD_USER_LOT_ID =dw.USER_LOT_ID '8 8 XWHERE c.SUB_LOT_ID IN (SELECT c2.SUBLOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ) '8 8 AGROUP BY c.ROD_USER_LOT_ID,c.WAF_ID,dw.RECEIVE_DTTM,c.SUB_LOT_ID '8 o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( ))pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID  LEFT JOIN ( 8 l) c ON c.SUB_LOT_ID =pkg.SUBLOT_ID AND c.WAF_ID =substr(pkg.READ_WAF_ID,1,10) ORDER BY SHIP_SEQ,SLOT_NO desc'  ~ B@[   !ROD_USER_LOT_ID %': SLOT_NO %$8    z+> READ_WAF_ID %    z +> :    z +> RECEIVE_DTTM %    z +> :     z $>NG    +>    z $>B@H ! 9 9999q2k1    z $>NG    +>    z $>B@H ! 9 9999qH1k@1    z$>NG    +>    z$>B@H ! 9 9999q0k0    z $>NG    +>    z $>B@H ! 9 9999q/k/ B@/VSELECT PLAN_SHIP_TIME,wafer_count ,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'< ADODB.recordset$p.> t > (r5αͣ޷ x > (v8αԣ޷ < ~ > B@'   > !   z  $>'  ϴ̨ADODB.recordset$p.@ t @ (r9αͣ޷ x @ (v<αԣ޷'VSELECT WAF_ID,FNC_EQPID,to_char(HIS_REGIST_DTTM,'yyyy/mm/dd') FNC_TIME,SLOT_NO FROM ( 'B B SELECT d.WAF_ID,dh.HIS_REGIST_DTTM,PROD_ID,dh.EQP_ID FNC_EQPID ,ROW_NUMBER() OVER(PARTITION BY d.WAF_ID ORDER BY dh.HIS_REGIST_DTTM DESC) rn,coc.slot_no FROM F3PRD.DWAFER d 'B B LEFT JOIN F3PRD.DOPE_HIS dh ON SUBSTR(d.SUBLOT_ID,0,7)||SUBSTR(d.SUBLOT_ID,-3) = SUBSTR(dh.SUBLOT_ID,0,7)||SUBSTR(dh.SUBLOT_ID,-3) 'B B INNER JOIN ( 'B B :SELECT SUB_LOT_ID ,WAF_ID,SLOT_NO FROM COCMEASDATAINFOS c 'B B WHERE SUB_LOT_ID =' SUBLOT_ID > %' 'B B ) coc ON coc.WAF_ID=d.WAF_ID 'B B PWHERE dh.HIS_CAT ='OC' AND dh.OPE_ID ='FNC')WHERE rn = 1 ORDER BY SLOT_NO DESC 'B B ~ @ B@  @ ! FNC_EQPID @ %     z  +>FNC_TIME @ %     z   +> @ B@) ;ex num = Format(querynum1(team, Cells(i + irow - 1, 17), Left(Sett.Fields("READ_WAF_ID"), 10)), "0.000")E Cells(i + irow - 1, wafer_column + 2 + coun) = num]] ;$''  ]X yh(k`( $' ȡ㷽ʽ $' ȡѯsqlֵ$$'ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷SELECT WAF_ID,  5 measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' SUBLOT_ID > % 'order by SLOT_NO desc '  ~ B@ ]p    z $> $']]]  SUBLOT_ID > %$'$ $'  B@r  ! WAF_ID %measdata %'  $X'0ֵ  $$'kX% 0.000$X     z  +>s If Cells(counts + sqlnum + irow - 1, wafer_column + 2 + coun) = "" ThenM Cells(i + irow - 1, Q) = "NG"r Cells(counts + sqlnum + irow - 1, wafer_column + 2 + coun).SelectG With Selection.InteriorF .Pattern = xlSolidT .PatternColorIndex = xlAutomatic@ .Color = 255E .TintAndShade = 0L .PatternTintAndShade = 08 End With2 End If  'k@! B@(!k !!! D   D  z  $>NG  D  +>  D  z  $>B@H ! 9 9999q8 k0 ( k    ' > B@* A = Range("T65536").End(3).row9 For sublots = 1 To timeAndSumSet1.RecordCount# For coun1 = 1 To 16A measitem = Cells(2, wafer_column + 2 + coun1)5 If InStr(measitem, ";") <> 0 Then} ' num = Format(querynum1(team, Cells(i + irow - 1, 17), Left(Sett.Fields("READ_WAF_ID"), 10)), "0.000")J ' Cells(i + irow - 1, wafer_column + 2 + coun) = num1 Dim strResult() As String2 Dim strResult2() As String8 strResult = Split(measitem, ";") flag = 07 For jj = 0 To UBound(strResult)3 Dim measitem1 As String- If flag = 25 Then( Exit For" End If5 measitem1 = strResult(jj)) 'ȡ㷽ʽ> strResult2 = splititem1(measitem1)* 'ȡѯsqlֵ; Column = spfind1(strResult2(0))F Set numm = CreateObject("ADODB.recordset")Z numm.CursorType = adOpenStatic 'αͣ޷] numm.CursorLocation = adUseClient 'αԣ޷ numsql2 = "SELECT WAF_ID, " + Column + " measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='" + timeAndSumSet1.Fields("SUBLOT_ID") + "'order by SLOT_NO desc"= numm.Open numsql2, csDBConnection+ For y = 0 To 243 Dim wafid As StringP wafid = Left(Cells(y + 8, wafer_column + 2), 10)4 Dim spdata As String1 Dim num As Double2 Dim num2 As Double^ spdata = spdatafind(wafid, timeAndSumSet1.Fields("SUBLOT_ID"))G Column1 = spfind(strResult2(0), spdata)5 If Column1 <> "" Then2 numm.MoveFirstF For sqlnum = 1 To numm.RecordCountM If wafid = numm.Fields("WAF_ID") ThenI num = numm.Fields("measdata")J If UBound(strResult2) > 1 ThenJ num2 = CDbl(strResult2(1))7 'ֵV num = getnum(num, num2, strResult2(2))2 End Ifn Cells(subcount + x + y + 7, item_col) = CDbl(Format(num, "0.000")); flag = flag + 1. End If5 numm.MoveNext( Next& End If Next Next End If Next' timeAndSumSet1.MoveNext Nextk  ڸʽA:A$B@H)Selection.NumberFormatLocal = "yyyy-m-d "e/m/d (G:G$B@H)Selection.NumberFormatLocal = "yyyy-m-d "e/m/d (   $B@v xmlļ ޸xmlϺ $>+>AF k$B@v <B@ B@ رչ B@BPĻˢ´ (rA@ ̨ H H .xmlļA@Jo&Attribute VB_Name = "̨ģ3" Sub D@Click1() '嵥`ļ .رĻˀ´&@ Appation.Scr@eenUpdngtFalse'FileTrim(Cells(`1, 2)wH If $"" Then<MsgBox (""C(Exit oEnd,con@nectDBS et wp= CreateObj("ADODB.recordset..CursorTypadOpenStxc 'α# "LoconAadUseent#ԕ#aDimasql` As S B'AƷwpSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHER@E FILE ='" &k& "' GROUP BY J@g?AM., cs8DBCf@,Wh@g.EOF <> True 'жΪ0һG:'̡@trXFields("*Iõ˾customern("K:HyhssGgGr`cpath pdsrcteam' "Bԭ ġ%z·һ 'ӵ繲a+cI\\10.A52.142\coc\<" ServerSh ar112pA@bradminis@tratorP0assw`u`<"fthw-82905028hI#@Foldersts()ldT 0El%A ANet k#@ W@ipt. Q fsoing.!Sys8tem# -.MapDrive "", (4, , ., %+ '!1A'H!NY^=)"\ͻB\!Jnoz ' rHGDebug.Pri` &.xlsxKMN'汸ث%A)=TisWorkbook.P!A _&q?/a0 s( ss '%El)Copy "c, ` _dk6 4{MultiLevel<  N .W "0ûж(V,ȷQ %?wPx:MARemoveAAwB7aAJJNot~hImA}Ҙ/!~П%));!b9+t}aY4As4w  !'= s.A( B(@Pt ExcelShe= .qs` 2, 3~)>m 3R@4AyU5|'-1A'ݡѯʱͲSUBLO1 timeAn`dSumS`gPLAN_Q_TIME,waferP_cou@], //`/' ANDد #6W' `ORDER1RSEQ=B @% b r ˧˙orOiO y3M'zql_"sublot_all2RrC! For i 1 To et. /,, 7i + 6, 1Q7 ˚,- 'ó  Cells(i + 6, 16) = timeAndSumSet.Fields("wafer_count" )7SUBL`OT_IDE zMoveNextm#rowRecordC\$)'ѯHIS_REGIST_DTTM дװ#dttmsqlU" S@ELECT ,CUR_WAF_CNT,to_char(his_regist_!,'y/MM/dd') manufacture_date FROM F3PRD.DOPE_ "Y#%& " @where ID in('PK G','E) and A#cat@1'OC'g80STR(C,0,7)||S8-3)HIHIzPH_ BB(J DrIN@]CASE WHEN SK IS N`ULL T EL ENDBCOCMEAS LSTD cILEFT JOXIN G.,0CUSTOMEŎ0>Q># M mM MES_aTAGRs ON c.S'= m55OInvoiceNo6oo_hRȖOMingSi=0&88QOM8rial.99teo:_ersSeSeKMW0p ,n_ NOC? cd }}Qy^uu pppp!pppp0/prHp0. If rsS.RecordCount <> 0 Then ! p =Fields("ORDER_NO")VEnd If.@For poH1 To |.Cel@ls(6 +4,P 10)9p&Next!'"$ShelfLif`eTimeJT4-Q1ccrow_formate'!\Shi0pQty) * 25=2TbpecNoC;:3;3upplierID:u44T@SMCFab55D m 'κSet sql@Sublota"reXObject("ADODB.br"setq.CursorTypAgadOpenStatic 'αͣ޷ HLoc onadUseC`G P 'ta"SELECT DISTINFILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN UB_# IS NULL T ELmENDFROM COCMEASLSTD c LEFT JOIN MES_aTAG ms" _&-@& " ON.CUSTOMp =c. a A@ms !  'RE c.!F, ='" Fi0leNa '  PRODUCa.dwpstrAD' BYd(EQ"GAPi>, csDBConn[ioDebug.PriKPtDim subitem0iB VYHReh (" r) 'Af¶ʸO  "{i }_1(aR5,_(4oE;.MoveoUP V<ȡ_! As In tegeroar#Lx= 0 co1LQ AAxU.A(Range("3:3"):)1A(־λж G_t& & ! ѭj  '2,18Ϊ@wafe:f~oxC4d@02%8("WInfo"İN j 2@Else n18 'ӵ22 пʼ ֵ   3, 27 MAX e 7 ?  3C P>, Q OKXP num @2"selWlAS_ITEMS, R OUND(o_M IN,5) ,yAX0A 10 Then 73, 2000)E89Lef8 P< @\ $If 'ĿAA AFormat(numm.Field@s("ag"`"D0.00"\T bMoveFir\stŠ Ss! :1 ToRe`cordCW'Debug.PtcMEAS_ITEMS>| GTrim]2])@b%)M g! co_Select Case dataExcelSheet.rTjg8% "MAX"oO4 % <> ""?# f#6 sub" i -'_ Els߱'=.q/ob >=3g)?"3.InteriorQzor465535O#, QaS"NG? mO  @.     1cB `UMľMM/ #-<N-s-<= /N-&----?'?KIf numm.Fields("MEAS_MAX") < upValue Then 4Else7zCells(6 + subcou nt, j i - 1).Interior.Color = 65H535KnQ)+"NG"3+End IfSele|ct5 g$l_0itemQ+ 1' ϮCase NuIf 4C4> ""[@N3NgFA@/AVG")2''жǻɫG? % 4lowÖ<`> 0 Ao Cphar ?4o }p "Fd ?M>V=M0 , >= _ C{Dߴy p ߴ ߠAmAA\vA_A1 : /CK{{_, o 1z`MupM_M,#-<N-d <=ߨ_-?&-Ϩ-?'?KOO qL??H|= 3.MIOOP-O/o!(O/Dz Else ,Cells(6 + subco@unt, ji - 1) = numm.Fields("MEAS_MIN")/ ''жǻɫ'IIf lowValue <> 0 AndChar"" Then+MSelect Case%+ ">="/l >=Jy/nEۈ.Interior.Color655\35sBQ"NG4XEIf$o D*ق>?A?A ?A ,?AO aÄA >upLup?ߩ _Q CZ<bZ<= e_ [x [[ [ ,?'/?K <OolOolol, ol1oL???_itemP+ 1oJ+N+ې*4 )o_ & 3^?_099PCS") > 26_Sí3/ 2? ?/h1|= ?232UNITo2o!+2 //D%dapdan count_@item = +` 1 $REnd Selec>t6(}#)Next i +Els.eR'ֵ"If Cells(4, j +) <> "@" Then4For i1 To ''/t Case dataExcelSheet.=,3,\)yB"MXAX"M6Ls ubB$i - 1)@CUԱ?p:`"MEANI`$) :$-II$cEIc'$n $6$M$$O$ $6Mc$UNITn$$ $ ob?uodaZ??5?ON?vemo ߐ/{q?{k f  __ ~ _ ~numm.Move!PcovϐExit P . sj-?1Loop 'sĿ@ݽ' f r hO$A52, 18"WaferInfo'FOSB_ID 101 XwQ_colu$mn18SetPtt`Cre@ateObj ("ADODB.recordset";0urso rTypeadOpenStatic 'αހuLoco adUseClient 'G sql2 "SELECT DISTIBNRFID,@CASE WHEN SHIP_SUB_LOTIS NULL TUBdELEND FROM COC` SLSTD c LEFT JOIN (" _8 s$R& " ,  CUSTOMER P |-<MESb_ TAG) ms ON c.d=0.]RE FILE_NAME ='" & FileNHame"'pAPRODUCCwpstrp,er BY-a8ship_seq_%%*#(&EQ,CA׶SE WHEN SHIP_SUB_LOT_ID IS NULL TpUBXEL END~FROM COCMEAS^LISTSTD c LEFT JOIN ( @SELECT <,CACUSTOMER  1   MES_TAG ) ms ON c.v= . RE FILE_NAME ='" & FileName"'  APROD UCwpstrORDER BY}EQ)c `" _  & 5sql2"a)pkge=] .y ""G!'Debug.Print shipGSett.Open, csDBConnec0tion G For i = 1 To RecordCount Cells(6 + i, wafer_colum2n@1)Fields("RF$ID")bzsj ;sj(J17) ZIf MidK , 1) <> Sheet3").2).Va@lue Or2, 24#4AA, 3Th.ecėEQ*"N6Gh? #.Sel=G/With@< A.Int`erior.(Patn`6xl SolidColorIndex"Automatic 2554T\AndShade0End ! AcveWindow.Scroll@[= 4Y4 3_M2_M1K"IfgxMovpeNex'ɾ3GRows(4).2DPte'ȡirowAH+m!Whe@7{N"i$ + H#Wen]mC= <- B@H8'ʼpph s sqsPV%'qHDi`m sss# sqR.Entirep.CopyGBc!^_qty2{H. s6 f +aLPasteSpecial'+$ '`a18QWhInfo" BU3 MAX" V'ѯ 2ֶΣSlot cod+'SNO,< 'aR3 Utt CreateObjW("ADODB.rtsetptt.Curs orTypNad q{StAS 'αͣ޷ãK1LocoQ[adUseCliep'7Ҍ= "DINAF,%READ_WAF`,bl.US#f3prd.D dh dldh.SHINGQO dltBLK_RCV_INFO bl.KEM=@S ǤINubQ(g-߹R߹߹D߹й? 26  ,E OT TO =oDmsn_?_?P8 ) er byg%1 desġ5'q_seq63 "s" to_char(dw.REGp7_DTTM,'Y/MM/ DD') sub(c._7,1,3)||a1,5,1;,sS c.d>EfromEDATAq8S cQ0+31QINN@F3PPRD.PQDRECEIVE dw@N =pH_Y T0c2X峯2 _$_$aPE4='020450122A20.'9&){ sql3 =`& "GROUP BY c.ROD_USER_LOT_ID,c.WAF dw.REGIST_DTDTM.SUBH"x  0ship" SELECT * FROM (DXINSHIP_SEQ,CASE WHEN m IS NULL$ TUB EL0 +END?xCOCMEASL=STD c LEFT JOI8N (S (KCUSTOMA KcYNN  MES_=TAG ) ms ON5ms. RE FILE_NAME ='" & Fil eName"'` and #n='020450122A20' AeKPUCAwpstrCORD ERAEEQ)c " _|@S! @2A )pkgk9LO=@.>!,SNO des#O# Debug.PrintAAK Sett.Open, csDBConnection For ib1 To BRecordCount Cells(i + irow - 1, wafer_c@olumn)Val(BFields("5"))+@2 REAtD_"  3 MoveNex +Els>eK *#CreateObj1("ADODB."r-setCursorType ad;Static 'α$nt.c Locon Use0ClieJ t ' b=\ "䠇\eZ,6  bf3prd.fD`9`qdh~ z`ID INl? As߭߭D ߭IPǭ|['ˆ,g KȬ4 b5) 7߼n'] 2p-") Ler byw%/V}4~-3"sel; to_char(RCEI$VEc'Y/MM/DD') RE ,subpg(?1,3)||/,5,1pz7pOOBcQfq from tDATAINFO^SP3mI NNP9BF3PRD.DBLK_RCV_ dw#n| =U%  I@t0c2rR(aߎ c2 $ /A() ϥϥm! {&'r沈>鹿7e異RASh#Za y/KR_4A/K8 /KOTXO II_d= HE"2/Yt/D4/l//U,?PU8ga.E=)!V =Iq{,1,10) . +/ҕ1p__pPTB"ժ,M=!___[NO^?o`O O K 01Ⱆ ; 14/o If Len(v) > 10 Or? 6 "" Th+ en Cells(i + irow - 1, Q) = "NG"'wafer_column13).SelectWith  ion.Interior,P.Pat#nx@lSolid+ColorIndex5Automa8tic255TintAn@dShade0[End ' If If 4" ThƐ#l$.t=@ ?e B.? EE?i!2@?M_ 2@@)@ @!@ ?@F@aSett.MoveNexl/kGtimelumSql1p"SELECT PLAN_SHIP_TIME,Dunt ,SUBLOT_ID FROM COCMEASLISTSTD WHERE FILE_NAME='" & FileNa$me"'p AND PRODUCCwpstrORDER BYb rSEQWAF <,FNC_EQPID,to_char(HIS_REG<_DTTM,'y/mm/`dd') "AS1@NO3@( ¶ & 5d.Tdh.mA   ,ROW_NUMBER() OV`PARTITIONCu &D DESC) rn,cocD.s/_no F3PRD.D Gd "LEFT JOIN B tOPE_ dh SSTR(d.cT,0,P7)||S-3{h/UB"?1 INNp" v r_ ,!$bDATAINFOS cO = ehb_.Fie`lds("p")d@!! =%4v 'CAT ='OxC' o@!Pt=R'@5')3rb1~ +*_et.Ba`?nection  For i = 1 To fncset.RecordCou ntCells(cPs +row - 1, wafer_@column2))lgFields("FNC_EQPID") Oo;19TIME9UMoveNexElseIf InStr(measitem, ";") <> 0 Theb'nummat(query1(tea" iri17), Left(Sett.EYREAD _WAF_Y, 10) "0.000AQv&pDim strResult() As Ding 2 MSplitL]Wflag f0WjjUBd(ܯ?1a?%25PExit @*1AEnd IfK{=(7jj'ȡ㰷ʽ; f'2*Vs5c1F61_ ѯsql4ֵ{ C@pfind172(ai [qCre@ateObj("ADODB.r=a.CursorType adOpeatic 'αЌ{h Loc on UseClient ~ FJ ,5"SELECT ㉇ ++ " Fdata FROM COCMEASDATAINFOS c WHERE SUB_LOT ='"@timeAndSum-1F  'er by SNO desc"_#.,8, csDBConn~a~y`)ox 24{ a}id|c=#y#/ภ_! sprWGQa Double$2? 9 9(, _!_bX!?B)1 s??, X{""?Y.`m.Firs'*TR? &BU Op ?P t2) >?@ JCDbl1)OO~'le@gTet(0,G2&e2(2 {D% "(2 e? MÀÿ6__cQq"NGc  ).Sel9 OOWith @.Interior .PatxlSolido`QorIndex0#xlAuto#icoO .255/ .TinthadO;q ??`Xg = flag + 1 $@End If'numm.MoveNext#l#)!IFor y10 To 24]If Cells(counts+ irow, wafer_column 2)."" Th,en.Q#NG"9"(.Selec nWith  ion.Inte0rior$.Pat nDxlSolid ColorIndexBAutomaticd@255d TintAndShade0 9oAX53d\= + 2'timea$umSet1t  'A,Range("T655 36").(3).kvsublo`p= 1AwRecordCt?l16!measit,emcs2}1)tInStr( , ";") <> B!!`@ ](query 1(teham,di! - 1, 17), Left(1t.Fields("READ_W@AF_ID"10)"0.000"K  Dim strResult( ) As "ingc2 `'SplitL/ b<= `}! Gjj@ bUBLd(ߵ@B A1_ s`H$25dD Exit _rUAh =(jjH'㷽ʮ&2sa716 ѯsql>`z pfind12(175 .rAre@ateObjt("ADODB.rGset5A.CursorTypafadOpeBm 'α_ zLocowadUse@Client"SELECT #FN@I+ " #data FROM COCMEASDATAINFOS c WHERE SUB_LOT@J ='" \]LpcPT'^er by SaNO desc/- a , csDBConna@yU@g ?Sido?=C]Xy8h]o sp?XaP Dowe42O 9A 9(b, !m!/I7)s??, Y| DFirsзOO] *qm. %R6f?P1??P u2) >!w?` !JCDbl91)O'mf`0get(0, 'p(2/ |K Cells(subcountP + x y 7, item_col) = CDbl(Format(num, "0.000")) ' flaFgO+ 1(=E`nd If(0m.MoveNext$E%/timeAndSumSet1yc'ڸʽ Columns("A:A").SelecQB ion.NumberÅLoc$alv"y-m0-d " e/0m/d  G:~G,)(@0 de/1 To irow - 4/Rows(4)d.D@teR'xmlļ@'޸ĀϺà C2, 7p4, 9T Call ̨_create2j#2#?@ABCDEFGHIJKLMNQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~R  5}PxME(``>```D` %@f  `h@ `l``n`@ J % 0@P`p 0@P`p 0@P`p 0@P`p 0@P`pk$*\Rffff*T76c06f1fe"  ( @P h x 00 0H* (  H`   "   ( ( @  X  hp  x *    8 RH  <  8 H2`  2    B@H  P ` x      &  8P Jh 2 00 (  H X p 0  . ,  0 @  H  &X  x @ 8 VH  x(  $  000`  x 2  " \x   8 Ph   *   0000 HXh   , (8 Ph     \ H `00p  0  ( 0@H \P      "   ,( X 8x     .0`   00 @Ph  xL   8X`h @ (48p F  , !68 $p ( ( , 04 ,! R!06p! !(!,!0 !4!4"8. "8P"4p" 40 x"3"3"8."8"4#,#(#(#00#4 8#7H#7h#8.p#8#4#4 #8#8#8.$80$4P$0X$(`$,h$ ,(p$ ( (( $($04$,$06$ (%(H%,`%0 h%4x%4%8.%8%4% 40 %3&3(&8.0&8`&4&,&(&(&0&4 &7&7&8.&8 '4@'4 H'8X'8x'8.'8'4'0'(',' (('( (((040(,h(06p( (((,(0 (4(4)8. )8P)4p) 40 x)3)3)8.)8)4*,*(*(*00*4 8*7H*7h*8.p*8*4*4 *8*8*8.+80+4P+0X+(`+,h+(p+( +(+04+,+,+0<,,P,06X,,,(,(,( ,,,,$,(-(-(-,$0-(X- (h-p- ($ x-!-  - #-- --0 .04(.0`. 00 p.04.0. 00 .04.0/ 00 /040/0h/ 00 x/04/0/ 00/0/04/ 0(0 00@0  $ X0!p0! x0!0!0!0 000 01    1 &1  @1 `1 x1 10121 ( 2 3*4 86X6 p6066 6 7 7 7888 8(808 88 H8 X8 h8 x8 8 888 8888 89 9 989H9P9 h9 x9999 99999:0:8:H: :P: ,: : : 0: 2(; `; P< < = J= R= 28> p> > V`? ? NP@ 2@ B B  C 6C :PC :C C CC  C 0D 2@D  XxD D hE E JF P`F 2F  F XG H NH I  K K K6K: L`LxLL L0L2MP@MRMnMXNNO>OBP XP`P DxP $P @P ((Q\PQ*QQ Q Q R R R(R 0@RpRR 0RRRSS S 0SHS hSpSxS S  S S S SS S S T:TPT `T嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]XƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]p]]]ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'Ksrcpath = ServerShare & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' $x Ʒļ  @.xlsx  H.xlsxA@Hd` A@  @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kxжһ±ǷƷļ  H.xlsx$x] 򿪹  H.xlsx %. %. @+> B+> H+> C--------------------------1----------------------------------------+Ʒѯʱ䣬ͳSUBLOT_IDVSELECT PLAN_SHIP_TIME,wafer_count ,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'@ADODB.recordset$p.B t B(r8αͣ޷ x B(v;αԣ޷ @ ~ BB@Debug.Print timeAndSumSql B!'D  B!óʱʱPLAN_SHIP_TIME B%  +> ó wafer_count B%  +> SUBLOT_ID B%  +> BB@ B!'F ѯHIS_REGIST_DTTM дװʱp SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date FROM F3PRD.DOPE_his 'H H2 where OPE_ID in('PKG','EPKG') and his_cat = 'OC' 'H H and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c 'H HG LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL 'H Hz THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT 'H H WHERE FILE_NAME =' H' AND PRODUCT_ID =' @*' )) order by SUBLOT_ID, his_regist_dttm 'H '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( H:)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'ADODB.recordset$p.J t J(r/αͣ޷ x J(v2αԣ޷  ~ JB@[   J!manufacture_date J%  +> JB@д̶ʽcountrow_formate U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' L F$>'N N L +>$>'P P L +>$>'R R L +>$>'T T L +>$>'V V L +>$>'X X L +> $>'  L +>#'''''''''''''''''''''''''''''''''''ADODB.Recordset$p.I SELECT SUBLOT_ID ,ORDER_NO FROM COCMEASSHIPLISTSTD cd WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ,ORDER_NO'Z t (r.αͣ޷ x (v1αԣ޷ Z ~ B@[ Z !ORDER_NO %'kp  \ !  \ +>8 %''''''''''''''''''''''''''''''''''''' $>'^ ^ L +> F'` ` L +> $>'b b L +>$>'d d L +>$>'f f L +> U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' κADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT FILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'd d ~ bB@[ d] b!'h hf(1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@k U''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ȡ]0]H'h'j3:3$v % ' ־λжּ l h('''ѭ2,18Ϊwaferinfo2 If Cells(2, 18) = "WaferInfo" Then j = 21 Else j = 18 End If( ӵ22пʼȡֵ$>MAX'dp'k`OK l +>select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASdataSUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷[   ~ B@ !  $> $> WaferInfobNѭĿ޵ֵԼǷ񿪱]`]x $>'  $>'l޵ֵԼǷ񿪱]]  $>'  $>'n'hѭмݴж ~ $> $>$v%!'pZǰЬ' p  '+  r$>$>$v%!'p p 'p p  'kh@'''''ĿĿ '''Format(numm.Fields("ag"), "0.00000") B@r t !%Debug.Print numm.Fields("MEAS_ITEMS") $>$ MEAS_ITEMS %$    h %>MAXKT  h $>  h $> l    +>d0KCells(6 + subcount, j + i - 1) = Format(numm.Fields("MEAS_MAX"), "0.00000")MEAS_MAX % l    +>2'жǻɫ l  >=KTMEAS_MAX % ld l    $>!(NG l +>k>KTMEAS_MAX % l dP l    $>!(NG l +>knk n  <=KTMEAS_MAX % nd l    $>!(NG l +>k8<KTMEAS_MAX % n d l    $>!(NG l +>knkk h 'hMEANKT  h $>  h $> l    +>dMEAS_AVG % l    +>2'жǻɫ l  >=KTMEAS_AVG % ld` l    $>!(NG l +>k>KTMEAS_AVG % l d l    $>!(NG l +>kxnpkh n  <=KTMEAS_AVG % nd l    $>!(NG l +>k<KTMEAS_AVG % n d l    $>!(NG l +>k(n kk h 'hMINKT  h $>  h $> l    +>dMEAS_MIN % l    +>2'жǻɫ l  >=KTMEAS_MIN % ld l    $>!(NG l +>k>KTMEAS_MIN % l dP l    $>!(NG l +>knk n  <=KTMEAS_MIN % nd l    $>!(NG l +>k8<KTMEAS_MIN % n d l    $>!(NG l +>knkk h 'hNKT  h $>  h $> l    +>dMEAS_PCS % MEAS_PCS % l    +>dMEAS_PCS % l    +>khk` h 'hUNITKT  h $>'v v l    +> h 'hS  h $>'x x l    +> h 'hn h'h dp$''''·ֵ  h $>  'ֵ  h %>MAXKT  h $> l    +> h 'hMEANKT  h $> l    +> h 'hMINKT  h $> l    +> h 'hNKT  h $> l    +> h 'hUNITKT  h $> l    +> h 'hS(  h $>'x  h $> l    +>n k'ֵ$''''·ֵk B@   yXkP t   'ѭĿݽ ݽk l ''''''''''''''''''''''''''''''''$> WaferInfo FOSB_ID 10'zADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷' SELECT DISTINCT RFID_ID, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,RFID_ID,`CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG= ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' order BY SHIP_SUB_LOT_ID' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( @)pkg ON c.SHIP_SUB_LOT_ID =pkg.SHIP_SUB_LOT_ID ORDER BY SHIP_SEQ'Debug.Print sqlship  ~ B@  !RFID_ID %  z +>  $>$6 '4   z $>$Sheet3$t%>!x  z $>$Sheet3$t%>!x  z $>$ 4 $NG  +>  z $>B@H ! 9 9999q r( r( r( r( r(kp B@XkPɾ3$B@v$B@v$B@vȡ'Debug.Print sql2 $>  '  +> irow = 13ʼ  '    '] $>!VB@'     $>!VB@    '$> WaferInfo%$>MAX&ѯ WaferInfo2ֶΣSlot_ID codeSLOT_NO, 'codeADODB.recordset$p. t (r+αͣ޷ x (v.αԣ޷'SELECT DISTINCT SUBLOT_ID ,SLOT_NO,READ_WAF_ID,bl.USER_LOT_ID FROM f3prd.DWAFER dh LEFT JOIN f3prd.DLOT dl ON dh.SINGLE_NO = dl.SINGLE_NO LEFT JOIN f3prd.DBLK_RCV_INFO bl ON dl.KEMLOT_ID = bl.USER_LOT_ID WHERE SUBLOT_ID IN'  (SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' wSELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ' # ) order by SUBLOT_ID,SLOT_NO desc ' '''ship_seqselect to_char(dw.REGIST_DTTM,'YYYY/MM/DD') REGIST_DTTM,substr(c.ROD_USER_LOT_ID,1,3)||substr(c.ROD_USER_LOT_ID,5,1)||substr(c.ROD_USER_LOT_ID,7) ROD_USER_LOT_ID,c.WAF_ID,c.SUB_LOT_ID from RPTVQUACOCF c'8 8 HINNER JOIN F3PRD.DERP_WAFRECEIVE dw ON c.ROD_USER_LOT_ID =dw.USER_LOT_ID'8 8 XWHERE c.SUB_LOT_ID IN (SELECT c2.SUBLOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' )'8 8 ?GROUP BY c.ROD_USER_LOT_ID,c.WAF_ID,dw.REGIST_DTTM,c.SUB_LOT_ID'8  o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( H)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO desc '[   ~ B@  !SLOT_NO %$8    z+> READ_WAF_ID %    z +> USER_LOT_ID %    z +> B@<d<ADODB.recordset$p. t (r+αͣ޷ x (v.αԣ޷'PSELECT SUBLOT_ID ,SLOT_NO,READ_WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN'  (SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' wSELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ' # ) order by SUBLOT_ID,SLOT_NO desc 'select to_char(dw.REGIST_DTTM,'YYYY/MM/DD') REGIST_DTTM ,substr(c.ROD_USER_LOT_ID,1,3)||substr(c.ROD_USER_LOT_ID,5,1)||substr(c.ROD_USER_LOT_ID,7) ROD_USER_LOT_ID,c.WAF_ID,c.SUB_LOT_ID from RPTVQUACOCF c '8 8 IINNER JOIN F3PRD.DERP_WAFRECEIVE dw ON c.ROD_USER_LOT_ID =dw.USER_LOT_ID '8 8 XWHERE c.SUB_LOT_ID IN (SELECT c2.SUBLOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ) '8 8 @GROUP BY c.ROD_USER_LOT_ID,c.WAF_ID,dw.REGIST_DTTM,c.SUB_LOT_ID '8 o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( ))pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID  LEFT JOIN ( 8 l) c ON c.SUB_LOT_ID =pkg.SUBLOT_ID AND c.WAF_ID =substr(pkg.READ_WAF_ID,1,10) ORDER BY SHIP_SEQ,SLOT_NO desc'  ~ B@[   !SLOT_NO %$8    z+> READ_WAF_ID %    z +>   z  $>' ϴ̨ADODB.recordset$p.@ t @ (r9αͣ޷ x @ (v<αԣ޷'GSELECT WAF_ID,FNC_EQPID,to_char(HIS_REGIST_DTTM,'yyyy/mm/dd') FNC_TIME 'B B DFROM (SELECT d.WAF_ID,dh.HIS_REGIST_DTTM,PROD_ID,dh.EQP_ID FNC_EQPID'B B `,ROW_NUMBER() OVER(PARTITION BY WAF_ID ORDER BY dh.HIS_REGIST_DTTM DESC) rn FROM F3PRD.DWAFER d 'B B LEFT JOIN F3PRD.DOPE_HIS dh ON SUBSTR(d.SUBLOT_ID,0,7)||SUBSTR(d.SUBLOT_ID,-3) = SUBSTR(dh.SUBLOT_ID,0,7)||SUBSTR(dh.SUBLOT_ID,-3) 'B B xWHERE dh.HIS_CAT ='OC' AND dh.OPE_ID ='FNC' AND d.WAF_ID in(SELECT WAF_ID FROM COCMEASdataINFOS c WHERE WAF_ID =SUBSTR(' READ_WAF_ID %', 1, 10)) )WHERE rn = 1 'B B ~ @ B@ FNC_EQPID @ %    z  +>FNC_TIME @ %    z   +>  ͶϾeROD_USER_LOT_ID %    z  +> ݵCOCe REGIST_DTTM %    z  +> ;e7findtype(team)     $> READ_WAF_ID % $$ 0.000$'     z  +>k.. B@-k- ڸʽA:A$B@H)Selection.NumberFormatLocal = "yyyy-m-d "e/m/d (G:G$B@H)Selection.NumberFormatLocal = "yyyy-m-d "e/m/d (   $B@v, xmlļ ޸xmlϺ $>+>AF k,$B@v <B@ B@ رչ B@B ,Ļˢ´ (rA@ ̨ H H .xmlļA@Jo++&Attribute VB_Name = "̨ģ4" Sub D@Click1() '嵥`ļ .رĻˀ´&@ Appation.Scr@eenUpdngtFalse'FileTrim(Cells(`1, 2)wH If $"" Then<MsgBox (""C(Exit oEnd,con@nectDBS et wp= CreateObj("ADODB.recordset..CursorTypadOpenStxc 'α# "LoconAadUseent#ԕ#aDimasql` As S B'AƷwpSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHER@E FILE ='" &k& "' GROUP BY J@g?AM., cs8DBCf@,Wh@g.EOF <> True 'жΪ0һG:'̡@trXFields("*Iõ˾customern("K:HyhssGgGr`cpath pdsrcteam' "Bԭ ġ%z·һ 'ӵ繲a+cI\\10.A52.142\coc\<" ServerSh ar112pA@bradminis@tratorP0assw`u`<"fthw-82905028hI#@Foldersts()ldT 0El%A ANet k#@ W@ipt. Q fsoing.!Sys8tem# -.MapDrive "", (4, , ., %+ '!1A'H!NY^=)"\ͻB\!Jnoz ' rHGDebug.Pri` &.xlsxKMN'汸ث%A)=TisWorkbook.P!A _&q?/a0 s( ss '%El)Copy "c, ` _dk6 4{MultiLevel<  N .W "0ûж(V,ȷQ %?wPx:MARemoveAAwB7aAJJNot~hImA}Ҙ/!~П%));!b9+t}aY4As4w  !'= s.A( B(@Pt ExcelShe= .qs` 2, 3~)>m 3R@4AyU5|'-1A'ݡѯʱͲSUBLO1 timeAn`dSumS`gPLAN_Q_TIME,waferP_cou@], //`/' ANDد #6W' `ORDER1RSEQ=B @% b r ˧˙orOiO y3M'zql_"sublot_all2RrC! For i 1 To et. /,, 7i + 6, 1Q7 ˚,-  'ó  Cells(i + 6, 16) = timeAndSumSet.Fields("wafer_count" )7SUBL`OT_IDE zMoveNextm#rowRecordC\$)'ѯHIS_REGIST_DTTM дװ#dttmsqlU" S@ELECT ,CUR_WAF_CNT,to_char(his_regist_!,'y/MM/dd') manufacture_date FROM F3PRD.DOPE_ "Y#%& " @where ID in('PK G','E) and A#cat@1'OC'g80STR(C,0,7)||S8-3)HIHIzPH_ BB(J DrIN@]CASE WHEN SK IS N`ULL T EL ENDBCOCMEAS LSTD cILEFT JOXIN G.,0CUSTOMEŎ0>Q># M mM MES_aTAGRs ON c.S'= m55OInvoiceNo6oo_hBȖOMingSi=0&88QOM8rial.99teo:_ersSeSeKMW0p ,n_ NO3/ cd }'1y>uu ppppppppp0/pRHlp0. If rsS.RecordCount <> 0 Then # ,p =Fields("ORDER_NO")VEnd If.@For poH1 To |.Cel@ls(6 +4,P 10)9p&Next!'"$ShelfLif`eTimeJT4-Q1ccrow_formate'!\Shi0pQty) * 25=2TbpecNoC;:3;3upplierID:u44T@SMCFab55D m 'κSet sql@Sublota"reXObject("ADODB.br"setq.CursorTypAgadOpenStatic 'αͣ޷ HLoc onadUseC`G P 'ta"SELECT DISTINFILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN UB_# IS NULL T ELmENDFROM COCMEASLSTD c LEFT JOIN MES_aTAG ms" _&-@& " ON.CUSTOMp =c. a A@ms !  'RE c.!F, ='" Fi0leNa ' PRODUCA.ADwpstr!'" BYD(EQ"yG!PI>, cs@DBConn[ioDebug.XPriKfPtDim subitem0i"VgY(Reh ( r) 'Ae¶O  "{i }_1(QR%}q,_(3_E;.Move_UP V<ȡp_! As IntegeroarLx= 0 co1kLQ A1xU.rA(Range("3:3"))1A(λж G/t& & !ѭj '2,18Ϊ wafe:fox'f@0s2И8("WInfLo"N j 2@Else n18 'ӵ22Аʼ ֵ  3, 27 MAX  7 ?  3C P>H, Q OKX (num @2"s elWlAS_ITEMS, ROUND(o_MIN,5) , 10 Then 73, 2000)E89Lef8 P< @\ $If 'ĿAA AFormat(numm.Field@s("ag"`"D0.00"\T bMoveFir\stŠ Ss! :1 ToRe`cordCW'Debug.PtcMEAS_ITEMS>| GTrim]2])@b%)M g! co_Select Case dataExcelSheet.rTjg8% "MAX"oO4 % <> ""?# f#6 sub" i -'_ Els߱'=.q/ob >=3g)?"3.InteriorQzor465535O#, QaS"NG? mO  @.     1cB `UMľMM/ #-<N-s-<= /N-&----?'?Km.Fields("MEAS_MAX") < upValue T@hen 4Else7zCells(6 + subcount, j i - 1).Interior.Color = 65535KnQ)+"NG"3+End IfSelect5g$l_itemQ+ 1' ϮCase NuIf 4C4> ""[@N>3NgFA@num,AVG")2''ж䱀ǻɫ? #% 4lowÖ<>0 0 Ao Char ?4o p> "Fd ?M>=+M0 , >= _ C{Dߴy p ߴ ߠAmAA\vA_A1 : /CK{{_, o 1z`MupM_M,#-<N?-d <=ߨ_-?&-Ϩ-?'?KOO qL??H=> 3.MIOOP-O/o!(O֏/3Dze ,Cells(6 + subcount, ji - 1) = numm.Fields("MEAS_MIN")/ ''жɫ'IIf lowValue <> 0 AnBdChar"@" Then+MSelect Ca<="/l >>=Jy/nElsEۈ.Interior.Color6553.5sBQ"NG4XEIf$o D*ق ?A>?A?A l?A ,?AO aÄA >upLup?ߩ _Q CZ<bZ<= e_ [x [[ [ ,N/??K/ <OKOolol, ol1oL??_itemP+ 1oJ+N+*4 )o_ & 3^?_099PCS") > 26_Sí3/ 2? ?/h1=> ?232UNITo2o!+2 //D%dapϟdacoount_item = co+ 01 $REnd Select?6 (}#)Next i +Els.eR'ֵ"If Cells(4, j +) <> "@" Then4For i1 To ''/t Case dataExcelSheet.=,3,\)yB"MXAX"M6Ls ubB$i - 1)@CUԱ?p:`"MEANI~$) :$-II$cEIc'$n $6$M$$O$ $6Mc$UNITn$$ $ ob?uodaZ??5?ON?vemo ߐ/{q?{k f  __ ~ _ ~numm.Move!PcovϐExit P . sj-?1Loop 'sĿ@ݽ' f r hO$A52, 18"WaferInfo'FOSB_ID 101 XwQ_colu$mn18SetPtt`Cre@ateObj ("ADODB.recordset";0urso rTypeadOpenStatic 'αހuLoco adUseClient 'G sql2 "SELECT DISTIBNRFID,@CASE WHEN SHIP_SUB_LOTIS NULL TUBdELEND FROM COC` SLSTD c LEFT JOIN (" _8 s$R& " ,  CUSTOMER P |-<MESb_ TAG) ms ON c.d=0.]RE FILE_NAME ='" & FileName"' APRODUCr3wpstr`,er BYQ8ship_seqp%%*(&EQ,ɶEN SHIP_SUB_LOT_ID IS NU LL THUB!XELSEEND&FROM C@OCMEASLISTSTD c LEFT JOIN ( SELECT x,CAeWyCUSTOMER  1    MES_TAG ) ms ON c.v= . KRE FILE_NAME ='" & FileName"' APRODUCAwpstrORDER BY|EQ)c " _ & 40sql2")pkgd= .x E"G!'Debug.PrintB shipGSett.Open, csDBConnection G For i = 1 To RecordCount Cells(6 + i, wafer_@column@1)Fields("RFID@")bzsj ;sj(J17) [If Mid#K , 1) <> SheetÀ3").2).Value Or2, 2w44AA, 3ThecDŊEQ*"NGh? #.Sel=G/With@< A.Interi or.Patn`6xlSolidColor Index"Automatic 2554T\AndShade=0En,d s A dveWindow.S`crolla\= Y4 3_mM2_M1K"Ifg"yMoveNex('ɾ 3GRows(4).D Q te' irefrom RPTVQUA+F c_*b3AINNp@F3PRD.pPDRECEIVE dw@ =  ?_Y 0c2(t2 $$$ $) GROUPuT_ID,c.WAFdw.REGIST_DTTMSUB_LO"  40sqlship = " SELECT * FRO(M (DIN.SHIP_SEQ,CASE W0HEN m IS NULL TUB EL01 +END?xCOCMEAS/L{STD c LEFT JOIN ( (KCUSTOMER_A KcYNN  MES_=TAG ) ms OpN c.5m s. RE FILE_NAME ='" & FileName"' APRODUCwpstrORDER BYEQ)c@m_u&LAy2A" )pkvg2G=@H7!,SAyNO des#O# Debug.Print ěK Sett.Open, csDBConnection For i[1 To BRecordCount Cells(i + irow - 1, wafer_c@olumn)Val(BFields("5"))+@2 REATD_"3UfS[.ID MoveNex +ElseK *#CreateObj1("ADODB.r-setCursorTHypead;Static 'αͣ޷ nt.c Locon UseClieJ ' b $GxeZ,6 f3prd.D`9`qdh{ IN OAs.D I~P|['ˆ,gMĬ- b5i? 7|) er byJ^-3@2"sel: to_chHar(\'Y/MM/DD') A ,sub0g(c.h_F,1,03)||H,5L,1vJ,7`OD &s4 from RPTVQUAF!5b3AmINN8ҁF3PRD.prPVRECEIVE dwm =@}O%li 0c2Xr' c2 $`) GROUP?__%ooT o_No@\_NIDYo Jo߯V1MoTdcH5o_@ =oHEoo ooo8Moo%o5lP=)e!12, =DI8{K10) ?9E /1pp߫߫߫1YNOޫq X 11 c琷g16;11team0#2a<If "ϴ̨" ThedyfncЪ߬߬_ oԣ޷' fncsql = "SELECT WAF_ID,FNC_EQPto_char(HIS_REGIST_DTTM,'y/mm/ dd') ^TI0ME " kt& "FROM (zDd.|dh. mPROD q+q,ROW_NUMBER() OVPARTITION BY ORDERE DESC) rn ^F3PRD,.D]dLEFT JOIN B #OPE_~ dh HSUBS TR(d.LOT0,7)||ŀS -3) h I OWHE RE@'BhCAT ='OC' ANDA/IDqu inyCyCOCOCMEASdataINFOS ,c C =3'" & Sett.Fields(" READ_C ")A"', 100)) )h= 1det.Open C, csDBConnectionCells(i + irow -Awafer_colum n2coun?f/H")@1r ԀElseIf teamͶ" The _ B 7OD_USER_Z aݵ Hڟ5~ 5MI nStr(,, ";`V<> 0B, 'findtype8B nu4Format(query 1 Q17), Lexft(,gf0.0009((`t"nd Ifo/0NextbMo\ve#GEH 'ECCuA:A").SelC'.Number.LocaB1!-m-e/ őG:G?=rT^ dBep>1 ToK4Rows(4)d.D te3'xmlļ'޸Ϻ!2, 7H04, 9-BCall ̨_create]@22w:p.{ 9'( 1eworkbook.S av ;'رչ!ClosWendT'ĻˢsApplicab.S enUpingTrucDBMsgBo8x "anFi@leNameAm.@Sub TkyrkFJqN(u!jHrPpZcocModeIKt1GLOB!jge֋  F\'xME(`D``  %  P0``````` @  X% %0 0@P`p 0@P`p 0@P`p 0@P`p 0@P`ppk"  ( @P h  x 00 0H * 0(@ h "   ( 8 P  h x   *    X 8x ,  < X x  8   8 8HP BX       $ 8 @ ,X   P  2@ 8  H 0h 0  $ 4 $@  h 2   0 0 P  h x < H @ DX D   ,  $Px    (L X h p(L   " (@ h p         6  X6p(((( (H2p4(((0(X((((( 8H     $  8 0X 0 r 0 H hx ,    ~0 L(0H P`hp   00(X( HPX"`   $$(( 8(H$h$0p$"( ( ( ,, ,(,0,8(@$H$P ` hx 4  @ `p  N 080h  00 8 H Lh     N  @!0`!0!! $!! "0"0#@# 4X# h## ##### (##$ 0$@$X$ x$$N$ $0%00%`% ,% h&0&0&& 0''0' 8'X' `'Hh' '0'0(0(P(`( @)0`)0)) 0))* *0*8* @* H*P*`*h*   p**** * * +0+ 8+    H+ X+x++T+ + ,  , @, X,x,, &, ,8,(-H- P- X- R`-- ----.. .0.@.P.`. p. . . .  .. . . ..$/ (/ @/ P/0p/0//X0p0 x000 00"0 1 1 @1`1 x1 1 11 *12   22 2 (2  H2 X2 <x2 22 22 2  3  3 (3 @3 P3xh3 34 4 (4&@4h4 4 4444 4,45 5 (5H5 `5l5 X6p6 6 66666 6&6"7$87 `7   x7 7 7  7 77  7 7 7 8 2 8  X8 8`8 8 8 8 8嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]XƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'>Debug.Print wpsql > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%-'@ õ˾ CUSTOMER_NAME$<'B]p]ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dxWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲·Qnetwork = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\" \ͻģ\ B\ @\'F%Debug.Print srcpath & wpstr & ".xlsx" F @.xlsx$x 汾· *!\ͻģ\ B\ @\'жϱǷӦļ $x Ʒļ F @.xlsx  H @.xlsxA@H  H'd A@ F @.xlsx  H @.xlsxA@H  H'kd7繲ûжӦģļ,ǶӦģûзȷ·A@J|XkP   B@.k]жһ±ǷƷļ  H @.xlsx$x] ģļ  H @.xlsx %. %.J-----------------------------------------------1--------------------------' B@p+ORDER_NO ,PLAN_SHIP_TIME,customer_productSELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyymmdd') shiptime,CUSTOMER_NAME,ORDER_NO ,customer_product FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' HM' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,customer_product'[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+>.Cells(3, 5) = idset.Fields("customer_product")shiptime L% +>ѭsublotid SELECT SHIP_SEQ,SUBLOT_ID,WAFER_COUNT,MS.SHIP_SUB_LOT_ID,TO_CHAR(MS.PKG_CMP_DTTM,'YYYYMMDD') PKG_CMP_DTTM1,TO_CHAR(MS.PKG_CMP_DTTM+364,'YYYYMMDD') PKG_CMP_DTTM2 FROM COCMEASSHIPLISTSTD c INNER JOIN MES_SHIPTAG MS ON MS.CUSTOMER_SUBLOT =C.SUBLOT_ID WHERE FILE_name=' H' ORDER BY SHIP_SEQ '[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N N+>5 SUBLOT_ID = idset.Fields("SUBLOT_ID")A SHIP_SUB_LOT_ID = idset.Fields("SHIP_SUB_LOT_ID")9 WAFER_COUNT = idset.Fields("WAFER_COUNT")= PKG_CMP_DTTM1 = idset.Fields("PKG_CMP_DTTM1")= PKG_CMP_DTTM2 = idset.Fields("PKG_CMP_DTTM2")''lot_id Dim lotid% lotid = idset.getRowsCells(1, 1) = "=count(AB:AB)"$>' sublotid-1 ȡҪ'   $> $$>$vB@    $>   $>$vB@H <B@   %$> )$>$vB@    $>   $>$vB@H <B@ T65536$v%!'P$> P$>$vB@ P'R T N R $>!VB@  R P  'R8'X'  N  P manufacture-date PKG_CMP_DTTM1 L%  X  +> expiry -Date PKG_CMP_DTTM2 L%  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +> SUBLOT_ID L%  X  +> WAFER_COUNT L%  X  +> $>  X  +> $>  X  +> $>  X  +> $>  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +>SHIP_SUB_LOT_ID L%  X  $+>x LB@''''  ' P  'X'''''''sublot_id ' l N  ADODB.recordset$p.n t n(r0αͣ޷ x n(v3αԣ޷9SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='  $$>' ORDER BY SLOT_NO 'p p ~ nB@ n  $>B@@  ' x %B = Range("Z65536").End(xlUp).row - 2'  N'   %$>'   $x num = Format(querynum1(team, Cells(i + irow - 1, 17), Left(Sett.Fields("READ_WAF_ID"), 10)), "0.000")E Cells(i + irow - 1, wafer_column + 2 + coun) = num]] ;$''  ]X yk $' ȡ㷽ʽ $' ȡѯsqlֵ$$'ADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷SELECT WAF_ID,  5 measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='   $$> 'order by SLOT_NO desc '  ~ B@ ]p   $> $']]]   $$>$'$ $'  B@r  ! WAF_ID %measdata %'  $X'(ֵ  $$'k 0.000$X   +>   $>NG   +>   $>B@H ! 9 9999qk  'k B@kxph ;e ; $'   $/ $* $/ $/ $'/' $*e $* $'*'k82SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM % $2 data FROM COCMEASDATAINFOS c2 WHERE MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID='  $$>' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !   $>B@@FWorksheets("ԭʼݽ").Range(Cells(4, c + 2).CopyFromRecordset rs2d@Cells(meas, teams) = ""kd2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' $''ADODB.recordset$p. t (r;αͣ޷ x (v>αԣ޷  ~ B@ ! SELECT MEAS_ITEM_ COLUMN_NUM %2 data FROM COCMEASDATAINFOS c2 WHERE MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID='  $$>' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷  ~ B@ !   $>B@@dp Cells(meas, teams) = ""kHk@k80 / *e / / $'/' *e * $'*'kp2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$''ADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷  ~ B@SELECT MEAS_ITEM_ COLUMN_NUM % $2 data FROM COCMEASDATAINFOS c2 WHERE MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID='  $$>' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷  ~ B@ !   $>B@@dCells(meas, teams) = ""kd2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' ''ADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷  ~ B@ !SELECT ROUND(MEAS_ITEM_ COLUMN_NUM %5,3) data FROM COCMEASDATAINFOS c2 WHERE MEAS_ITEM_ COLUMN_NUM % <>' ' and SUB_LOT_ID='  $$>' ORDER BY SLOT_NO 'ADODB.recordset$p. t (r7αͣ޷ x (v:αԣ޷  ~ B@ !   $>B@@dCells(meas, teams) = ""kkkk  ' xmlļ AH1+v NAH2+v P AH3+vDebug.Print Range("AH1")Debug.Print Range("AH2")Debug.Print Range("AH3")A''''ж A1$v%!'  '   $>   $>   $>   $>'   $>'     %'Debug.Print pd3    $>(^   $>'x x   +> min: uomcolumn-2,max:uomcolumn-1СΪ NG   $>   $>NG   +>kkK-----------------------------------------------2---------------------------k@$B@v$B@v$B@v$B@v$B@v$B@v$B@v$B@v$B@v$B@v$B@v B@ رչ B@B <B@8Ļˢ´ (r]]scripting.dictionary$p.ƷļƷADODB.recordset$p. t (r1αͣ޷ x (v4αԣ޷JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'  ~ B@] !' 8,A¶     PRODUCT_ID % +ƷӦĿͻ PRODUCT_ID %' CUSTOMER_NAME %'   B@  CUSTOMER_NAME %' PRODUCT_ID %'d0 + PRODUCT_ID % 'k B@ k 1ϲƷprosum  жϱǷӦļ *!\ͻģ\ \ \' $xd0 A@k ½Ʒļ'һļʼ'   ƵһƷļ *!\ͻģ\ \$\ H$.xlsx  .xlsxA@Hжһ±ǷƷļ  .xlsx$x]@ ļ  .xlsx %. %. B@pһļ $>  ' d ļ   .xlsxδҵA@Jk d 'ͬƷӦĿͻ $$'{Debug.Print ThisWorkbook.Path & "\ͻģ\" & customername & "\" & proitem(p) & "\ " & filename & proitem(p) & ".xlsx" *!\ͻģ\ \ $\ H $.xlsx %.򿪶Ʒļ %. B@p' $>  ' ѡA2:AC   %vB@ $    ,>     %>B@     ' B@ B@Bk`X AD1+v AE1+vxmlAAD1$vB@ AE1$vB@ ɺϷʳζƷļ A@JdϷʳ H H xmlļA@Jk`A@oPHAttribute VB_Name = "Ϸʳ" Sub  H() '嵀ļ .رˢ´& Application.ScreenU$pdngrFalse'FileTrim(Cells(1, 2)wH If $"" Then<$MsgBox ("4"I(Exit qEnd/connectDBSet wp= Cre@ateObj("ADODB.recordset..CursorTypadO penSt{c 'αͣ޷` "LoadUse@Client#ԕ#aDimasql As &S 'AƷdwpSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &l& "' GROUP BY Jg'Debug.Pri@:7&E)@b.AS4, csDBClC Wh@ EOF <> True 'жǷΪ`һG@̡@tr^dFields("0")9"-Dõ`C%customerns("K@Hnpdsrcn0pathwԭ08·һ'ӵ繲7A  C\\10.A52.142\coc\5Server0SharB112ģ,[radministratorPasswn2"fthw-82905028I#Foldersts()h%dI@ 0HEl`K Netk Wipt.fsoing.System# -.MapDrive ""$, 1, , y,, ( 1 'ÉJ'nc"ThisWorkbooXk.PT`\dͻ?\!Jb!ng G L w *i&@O{.xlsxJI L'汾ܵ؋&!*E=`R& & e(4a1qPӦa?Gv:3$ _3UeFhAQ,Copy _", b6 -1 xml_O=$a;3:Multi Level ( `P' K# 5 M7 "8û5A,ȷ(h- w 0HB?T{Q.RemoveI;,yI7/V= No, csDBConbn@9ionO5_@id_cou=iCG.RACO Cells(1, 2)@+ '6GuFields("FZ _FH_NJ22#&'''+@P+Dim idpgetRowsO9'f91a9"=@(AB:AB)(j]A@ H 'E-1 'ҪOawaf D25For@ASTIE= 1` To AkRange(!`S8), 36)).Copy((a*) - 24) + 2p, 19F %)0.Sel`n ActiveSheet.PasteKNext+?!34!371!41?!|;!~2,4! ?!?! c 7_rowE"T65536").End(xlpUp).'"3G7! , 3!c_A 2cp Sm- 1kP + tire@9# Special[0+p([S"yy0 0;xx>&s~ ;!i3'manufacture-dyoai8 6>8KaZ='expiry -D9\yDr)rwv233ORp 4r55r6q~rB^I!7_L[_10sa0 "1Bu11+!?1Kbmk1q  1??w26B17B8ЃM)?HZ/Move''S_[@d^(V) * xx@SjC2_Qp4c`ub_av_tmecܚsa3\_ 4qlIDDATAINFOS c WHERE SUB_LOT_ID ='" & Cells(3 + WAF_MEAS, 36)d"' ORDER BY SfNO@ " sheet3set@.Open ql, csDBConnection 5s26).CopyFromR`ecordUPeft @ =2b5%Nex3'BRange("Z65536").End(xlUp).row X- 2!00For sublot"1 To _id_coun}5aitmesA measitemO7) If <> ""0 Thefindtype() 'Anu*mat(query@1(teaTm,i@XiH1, 17), Left(Sett.Fields(@"READ_NIDD"10)@"0.000"3 ?JwaferXlumn2A[)J'GA4Dim strResult() As @String 2 SplitaV, "; 6Uflag ELjjUBd(|5s1Y5 25e Exit #`nd Ifs= (.jj'㷽ֽ3 f 2#s,b 1F-1Y ѯ sqlֵs Co+"H@pc1.2(7@T[ Lsre@ateObj("ADODB.r?'a.Cur0sorTqadStatic 'αͣ޷sh Locon UseClient  '/"SELECT cx[@n'+ "data FROM COCDAT+` '@er bydesc~mC !Any%0an24s+midl=à× 'y, ڠ0Wesp*!`Doe@2w2Q2( _ #1s66,  L5nVm.MoveFirsx #  |cC| poWpZUqE_d2) > >@Q@CDbrlI1)o'?q^X@get(0,H2`"|2(2?k/;$;72"B e  8 "NGOS .SelpnEWith C.Interior.PatplxlSolidpCorIndex0%xlAutoicb25H.TintAndShade/?e_o0 2_Db+ 15[ڏ_Elsre;InƧs h UcitA", , vbT0Compare?Da oo#ߋQ N c (oo/") Or I0nStr(strcity(oo), "*") <> 0 Then If I/#z1 =@ Split /", , vbTextCompare)PfhJ"/"%ElseW${ \*4\*\nd Iflmea ssqlsSELECT * FROM COCMEASDITEMSSTD WHE(RE _ = '" & Ec(0)@"'#Set etCreateObject("ADODB.recordset"l.CursorTypeA/adOpe@atic 'αͣ޷8D'LoconUse@ClientxԲ*C@_, csDBConnBion, 3)+ql'"o h_AgJFields("COLU@MN_NUM&( fhp1p data KATAINFOS c2= GA? !C' ' a RSUB_@LOT_IDcHCells(3 +` WAF_!6I ORDER BY SANO _Ls H`"?Lrp&LL K KK) o KKJ `%u.RBrCou^927).CopyFromC a4\ 'Worksher("ԭݽ").Range(4 `H2 rs2 \# , teams) nXQEX"!Ao+_f$B 0?3OYOYOY$DO3OYOY %OYHYy_95/qlA'^^^" ]SDg]o]Ts.dd"o]o]o]'o]4zȃA]σt1*******$/ t1.9+1^ 9w,1a T~aa1/ yT_ '?\?\\;N+ ! #0itemPvOrtǧ P_J~j O?=_U/#_y/ ͔# WoooSo|CQB {ooJ  meassets.CursorLocation = adUseClient 'αԣ޷Open qls, csDBConnece, 3 ql2"SELECT MEAS_ITEM_" &~qFields("COLUMN_NUM")fhstrci ty1(1 " data FR@OM COC(DATAINFOS c2 WHEREK4" <>' ' and SUB_LOT_ID='RCells(3 + WA,F_+6F' ORDER BY SNO "1SetuCreateObj("ADODB.@record|"")Ret2ĂTyLpepStc(Â2.ɗ2͗8'CWO IfT.RBOCou<> 0 ThenQs27).CopyFrombFElseS'AA, teams) EIf b*t h* `!j0SSTD_f_S CCX!itemi"'Ts T 5"T?/F TwDNsNql3(8ROUND(&5a7,3I? )@K H ?L'&(et3ߠߠ __ F M`D Q)3)/Q!5oQ, oQhQ3/LqQQ/R ??{`8+ 25 Nextd 'xmlļ_Q Range~H1 p= _path2lot_id_cm  3cl_row0 - 1'Debug.Prir   0Call Ϸʳ_cP'1Ss'ж = P.$(xlDo0wn).For i#3 To cuomcolum127w#P95i, 7+ 𬰊"" Or 2)P T+ `= 1gqlowChar 1?aup1 _QS_Qpdac pd.cdan( x, i j._Q_Qp6). mulaq0Valu/"qpOA'min:7%-2,max:6&-?Q 'СΪ NG/+.- )=)AP G) +)2De"NGR^g yS3\'-2CR?s(28).De8letDelete Columns@(28).D)9^l. 'dataworkbook.Sav'չaCloswpSet.Mov eNext Wend'Ļˢ Application.ScreenUpMing = Tru3 Dim promulti As S tr dic_customername_s`ObjecCJ = Create("scri4pt,.A%ary") 'Ʒļ4'|A7Osql!1KADODB.recordsetC.CursorTypeadOpenStJc 'αͣ޷0ЁUZLo\BUseClient!AYql@"SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" & `FileNq"' GROUP HBY J"_DPLA, csDBConn@@ DitemYaum`$ R7Coun\).Reh (1 Toum)pA4¶OIf > 0 0ThenoFor pd@ 3eC(pd)'Fields(",QSE'a_ӀĿͻ~s k{@t .Add,Cus[2,1 =I1aPtr ?6 Elu + "+" + D_E End If+kM)'ڀ1ϲ[}!u@ 9P7 'жϱǷQ2qc  @sm ohisWuyPathAP\!6ģ\!R%& "R "_ UFolderExists()F#b@SmMxLevel=c PcuKfir strow0/1 'һQ8ʼЀqpdss0QFX 3=' q=akCopy_"__ Y1)!q.xlsx",L$&LC C)һ* 0Q#_$ QrF!֨q0 ['#!= s.т+'Ae++ExcelSheetP%>.ss(1?;ActivD 'c+ į Wh Cells( 7, (<> "@+ 1OjIWMsgBox< "52δҵ?K ''5 @yypOroB[)#r'Debug.P tH-H_" 1f "QHpJS2 ! 1Z>7To`mo}x10o _S( 1Eļ Set dataworkShe4= "";2"+7end+' ..Range("A2:AC" &u-Z .Copy"firstExcel.x + p ds}= proitem(p d CA.PasteSpecial'S%q+;) EVSava Clos )E`nd IfO KN8extKG}D1")ACromultiEstr#G'xmL`Call Ϸʳ_cre G  !.Cl  2"b&(8@$H.` .x  2 @ , @    @8x  ^4D:8Dx D   @n4P   00F8 PX`h*p . 8 V Z8         . > $T( (lP  x           $     V4( b 0 0 FH ` *h .x  "8   d4 Z0 &P  p   &    ,t   P Hhp@x@(  @(@(h  ZNFv06P$@p"86l Z  $ ((J8(&,0 4<8B4  40 (4<88BX4,((&04 8<+ 2,$l0,( "P,,J`,,&,0,4 ,8<, 3 2H3$l`3( "3,J3,&3034 48<46 26$l7( "07,L@7(7("l7,87(7$ 8, 8$8 8 8(80888@8 H8P8 X8 h8 p8 8  8 8.8(8"8H8 @89  X9 ,h9 L9 N9 8: : ,p; *; ,; < < 8< P<  h<0x<0<<F=rP@>\P>F?*0? "8@? h?bx?Z@& @ @@  P@&X@ x@ .@ @>@P@  @A`AhA@pA@(A ABB@ B@(`B  BZNBFC2(C6HC lhC$ZC$C( C,bC,&(D0@D4 HD8<XDn o$Jo(28o,lPo0"lpo4do4&p<p@  pD <0pHZPpDp D@ pD <pHZpDHq<Pq4Xq4&`qHxqL qP <qTZqPrL rP <(rTZHrPrHr4r0 r4 "r8br8&@s<Xs@ `sD<psHZsDs D@ sD<tHZ(tDt<t8t8&tHtL tP<tTZtPPuL XuP<huTZuPuHu8u4v0v 00"lv4P8v0v0&lv4bv4& w<8w@ @wD<PwHZpwDw D@ wD<wHZxDhx<px4xx4&xDxH xL<xPZxL0yH 8yL<HyPZhyLyDy4y0y0Dy4d0z0z, z0 z,z(z$ z z(2z,lz0 "{4b {4&{<{@ {D<{HZ{D8| D@ @|D<P|HZp|D|<|4|4&|D}H }L<}PZ8}L}H }L<}PZ}L0~D8~4@~0H~0"lP~4Px~0~0&l~4b~4&`<x@ D<HZD D@ D<(HZHD<44&D؀H L<PZLpH xL<PZLD40 0D(4dp0؂, 0 ,($ $ &>$20(lH, "h0bx0&<@ D<HZ0D D@ D<HZȄD(<0080&@@XD `H<pLZHD H<LZ(H@0,,"l0PІ, ( (, 0(8$@ ">H$2p(l, "0d, ,"l(0PP,( , ($  Ȉ$8LЈ   08@ H P ` hx  6RJ 2ЉJ 2J 2 J0 2HJX 2p@H Ȋ  4Њ    Nt  0x@H  V  hRP (H0h0 ȎF؎,d H($L@ hxxH  8V H RP( (00В F,d( X  ` 2.p ȓ 6  0 4H 6` p ]pcocĵ洢·]ǰĿ¼]] ֵ]0Ʒ]ͻ]`ģ·]0ģ]Ӧ·µģ]`Ӧ·µģ]0,жģǷװҳҳжӦ߼] P?3ҳװҳҳҳӦĿʼsheet Index] ] (r$tB@HB1$v!x$'H *!'P z!'R *B@)ļȡoverallûм HA@|ģȡҳ.~ P R H l T  Z X V N ^ ` b n ~B@ҳӦλֵ. X H B@װҳӦλֵ `. R f B@klotҳӦλֵ b. R H h B@k8+lotģҳзҳMData page 1(1)$t!'j l'P'B]     n !$t j   $tB@D5 !$t%vB@H B@C5$vB@H <B@C6$vB@]8 !$!' MData page  ( ) $t(xҳ  !  $t! $ CofC pagePage / !   $t,>  $t!$Ingot-list pageePage / !   $t,>d8Page / !   $t,>kÿһҳlot_no иֵ .8select lot_id from COCMEASSHIPLISTSTD where FILE_NAME =' H !' group by lot_id order by lot_id 'A@z . t (r!αͣ޷ x (v$αԣ޷  ~ B@]P]h]' %b   n MData page ( )$tB@H MAIN LOT NO  MData page ( )$t,>lot_id %  MData page ( )$t,>`  e '  '  n MData page  ( )$tB@H MAIN LOT NO  +>lot_id %  +>kx B@  'P B@B ~B@BǰҳOverall λиֵA@z .COCMEASDATASUBSUM/select * from COCMEASDATASUM where FILE_NAME =' H ' AND LOT_FLAG='T' '\sql = "select * from COCMEASDATASUBSUM where FILE_NAME ='" + filename + "' AND LOT_FLAG='T'" t (r!αͣ޷ x (v$αԣ޷  ~ B@P'B %b  n MEAS_TYPE %A .NSELECT sum(wafer_count) WAFER_COUNT FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' H ' '  ~ B@ WAFER_COUNT %'  B@BdxMEAS_PCS %' kP MData page 1( )$tB@H  BK $v!xK $v!x MEAS_ITEMS %޵ֵԼǷ񿪱]]O $v!xO $v!x$'N $v!xN $v!x$'޵ֵԼǷ񿪱]]Q $v!xQ $v!x$'P $v!xP $v!x$' .0select * from COCMEASITEMSTD where meas_items =' meas_items % ' '  ~ B@[K $v!x[meas_way %[meas_way %$meas_way %$    B $v!xB $v!x' MinKTMEAS_MIN %  MData page 1( )$t,>   >=KTMEAS_MIN %   MData page 1( )$t%>!(k >KTMEAS_MIN %   MData page 1( )$t%>!(kX nP kH   <=KTMEAS_MIN %   MData page 1( )$t%>!(k <KTMEAS_MIN %   MData page 1( )$t%>!(k( n k MaxKTMEAS_MAX %  MData page 1( )$t,>   >=KTMEAS_MAX %   MData page 1( )$t%>!(k >KTMEAS_MAX %   MData page 1( )$t%>!(k n k   <=KTMEAS_MAX %   MData page 1( )$t%>!(k <KTMEAS_MAX %   MData page 1( )$t%>!(kh n` kX AverageKTMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(kX>KTMEAS_AVG %   MData page 1( )$t%>!(knk   <=KTMEAS_AVG %   MData page 1( )$t%>!(k(<KTMEAS_AVG %   MData page 1( )$t%>!(knkSTDKT MEAS_STDEV %  MData page 1( )$t,>S.DKT MEAS_STDEV %  MData page 1( )$t,>PcsKT   MData page 1( )$t,>Snxdpyhk`XdPB $v!x    B $v!xB $v!x' MinKTMEAS_MIN %  MData page 1( )$t,>   >=KTMEAS_MIN %   MData page 1( )$t%>!(k>KTMEAS_MIN %   MData page 1( )$t%>!(kHn@k8   <=KTMEAS_MIN %   MData page 1( )$t%>!(k<KTMEAS_MIN %   MData page 1( )$t%>!(knkMaxKTMEAS_MAX %  MData page 1( )$t,>   >=KTMEAS_MAX %   MData page 1( )$t%>!(k>KTMEAS_MAX %   MData page 1( )$t%>!(knkx   <=KTMEAS_MAX %   MData page 1( )$t%>!(k<KTMEAS_MAX %   MData page 1( )$t%>!(kXnPkHAverageKTMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(kH>KTMEAS_AVG %   MData page 1( )$t%>!(knk   <=KTMEAS_AVG %   MData page 1( )$t%>!(k<KTMEAS_AVG %   MData page 1( )$t%>!(knkSTDKT MEAS_STDEV %  MData page 1( )$t,>S.DKT MEAS_STDEV %  MData page 1( )$t,>PcsKT   MData page 1( )$t,>Sxpnhd`yXkPHd@MEAS_WAY %Min    B $v!x  MEAS_MIN %  MData page 1( )$t,>   >=KTMEAS_MIN %   MData page 1( )$t%>!(k>KTMEAS_MIN %   MData page 1( )$t%>!(k`nXkP   <=KTMEAS_MIN %   MData page 1( )$t%>!(k<KTMEAS_MIN %   MData page 1( )$t%>!(k0n(k kB $v!xPcs   MData page 1( )$t,>kB $v!xAverageMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(k>KTMEAS_AVG %   MData page 1( )$t%>!(knk   <=KTMEAS_AVG %   MData page 1( )$t%>!(kh<KTMEAS_AVG %   MData page 1( )$t%>!(knkkB $v!xSTDB $v!xS.D MEAS_STDEV %  MData page 1( )$t,>k0d(y kMEAS_WAY %Maxe    B $v!x  MEAS_MAX %  MData page 1( )$t,>   >=KTMEAS_MAX %   MData page 1( )$t%>!(k>KTMEAS_MAX %   MData page 1( )$t%>!(k0n(k    <=KTMEAS_MAX %   MData page 1( )$t%>!(k<KTMEAS_MAX %   MData page 1( )$t%>!(knkkB $v!xPcs   MData page 1( )$t,>kB $v!xAverageMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(kh>KTMEAS_AVG %   MData page 1( )$t%>!(knk   <=KTMEAS_AVG %   MData page 1( )$t%>!(k8<KTMEAS_AVG %   MData page 1( )$t%>!(k n k k B $v!xSTDB $v!xS.D MEAS_STDEV %  MData page 1( )$t,>k d y k  MEAS_WAY %Averagee    B $v!x  MEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(k >KTMEAS_AVG %   MData page 1( )$t%>!(k n k   <=KTMEAS_AVG %   MData page 1( )$t%>!(kP <KTMEAS_AVG %   MData page 1( )$t%>!(k n k k B $v!xPcs   MData page 1( )$t,>kP dH y@ k8 0 MEAS_WAY %STDe    B $v!x   MEAS_STDEV %  MData page 1( )$t,>khB $v!xPcs   MData page 1( )$t,>kdykkkkk B@ B@B ~B@BÿlotӦֵA@z  l '  '  MData page  (1)$t%>!x' OVERALL HLOT% Set rsh = New ADODB.RecordsetE rsh.CursorType = adOpenStatic 'αͣ޷H rsh.CursorLocation = adUseClient 'αԣ޷ sqlh = "SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN ms.CUSTOMER_LOT ELSE ms.LOT_ID END LOT_ID FROM MES_SHIPTAG ms WHERE ms.CUSTOMER_LOT ='" + lotid + "'"} sqlh = sqlh + "and CUSTOMER_SUBLOT IN (SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME='" & FileName & "')"% rsh.Open sqlh, csDBConnection# If rsh.RecordCount > 0 Then% lotid1 = rsh.Fields("LOT_ID") Else lotid1 = lotid End If rsh.Close . t (r%αͣ޷ x (v(αԣ޷select MEAS_ITEMS,min(MEAS_MIN) MEAS_MIN,max(MEAS_MAX) MEAS_MAX,avg(MEAS_AVG) MEAS_AVG,avg(MEAS_STDEV) MEAS_STDEV,sum(MEAS_PCS) MEAS_PCS,MEAS_TYPE from COCMEASDATASUM where LOT_ID IN (' SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN ms.CUSTOMER_LOT ELSE ms.LOT_ID END LOT_ID FROM MES_SHIPTAG ms WHERE ms.CUSTOMER_LOT ='  ' ' Sand CUSTOMER_SUBLOT IN (SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H') ' ") AND LOT_FLAG='F' AND FILE_NAME=' H' GROUP BY MEAS_ITEMS,MEAS_TYPE'  ~ B@ %b MEAS_TYPE %A .MSELECT sum(wafer_count) WAFER_COUNT FROM COCMEASSHIPLISTSTD WHERE lot_id = '  ' and FILE_NAME =' H ' '  ~ B@ WAFER_COUNT %'  B@Bd?MEAS_PCS %' k?  n  B MData page  ( )$tB@HK $v!xK $v!x MEAS_ITEMS %޵ֵԼǷ񿪱]]O $v!xO $v!x$'N $v!xN $v!x$' ޵ֵԼǷ񿪱](]@Q $v!xQ $v!x$'"P $v!xP $v!x$'$ .0select * from COCMEASITEMSTD where meas_items =' meas_items % ' '  ~ B@meas_way %$    B $v!xB $v!x' MinKTMEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_MIN % "   MData page  ( )$t%>!(k ;>KTMEAS_MIN % "   MData page  ( )$t%>!(k:n:kx:  $ $<=KTMEAS_MIN %    MData page  ( )$t%>!(k9<KTMEAS_MIN %    MData page  ( )$t%>!(k(9n 9k9MaxKTMEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "   MData page  ( )$t%>!(k7>KTMEAS_MAX % "   MData page  ( )$t%>!(kP7nH7k@7  $ $<=KTMEAS_MAX %    MData page  ( )$t%>!(k6<KTMEAS_MAX %    MData page  ( )$t%>!(k5n5k5AverageKTMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k4>KTMEAS_AVG % "   MData page  ( )$t%>!(k4n4k4  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(kP3<KTMEAS_AVG %    MData page  ( )$t%>!(k2n2k2STDKT MEAS_STDEV %   MData page  ( )$t,>S.DKT MEAS_STDEV %   MData page  ( )$t,>PcsKT    MData page  ( )$t,>SP1H1n@1d81y01k(1 1d1B $v!x    B $v!xB $v!x' MinKTMEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_MIN % "   MData page  ( )$t%>!(k`/>KTMEAS_MIN % "   MData page  ( )$t%>!(k.n.k.  $ $<=KTMEAS_MIN %    MData page  ( )$t%>!(k.<KTMEAS_MIN %    MData page  ( )$t%>!(kh-n`-kX-MaxKTMEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "   MData page  ( )$t%>!(k(,>KTMEAS_MAX % "   MData page  ( )$t%>!(k+n+k+  $ $<=KTMEAS_MAX %    MData page  ( )$t%>!(k*<KTMEAS_MAX %    MData page  ( )$t%>!(k0*n(*k *AverageKTMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k(>KTMEAS_AVG % "   MData page  ( )$t%>!(kX(nP(kH(  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k'<KTMEAS_AVG %    MData page  ( )$t%>!(k&n&k&STDKT MEAS_STDEV %   MData page  ( )$t,>S.DKT MEAS_STDEV %   MData page  ( )$t,>PcsKT    MData page  ( )$t,>S%%n%dx%yp%kh%`%dX%MEAS_WAY %Min candy start $H    B $v!xB $v!xHead MEAS_HEAD %   MData page  ( )$t,> "  >=KT MEAS_HEAD % "   MData page  ( )$t%>!(kx#>KT MEAS_HEAD % "   MData page  ( )$t%>!(k"n"k"  $ $<=KT MEAS_HEAD %    MData page  ( )$t%>!(k"<KT MEAS_HEAD %    MData page  ( )$t%>!(k!nx!kp!dh!  MEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_MIN % "   MData page  ( )$t%>!(k8 >KTMEAS_MIN % "   MData page  ( )$t%>!(knk  $ $<=KTMEAS_MIN %    MData page  ( )$t%>!(k<KTMEAS_MIN %    MData page  ( )$t%>!(k@n8k0k(k B $v!xPcs    MData page  ( )$t,>kB $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(kX>KTMEAS_AVG % "   MData page  ( )$t%>!(knk  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k<KTMEAS_AVG %    MData page  ( )$t%>!(k`nXkPkHB $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>kdykxpdh candy end    B $v!x  MEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_MIN % "   MData page  ( )$t%>!(k>KTMEAS_MIN % "   MData page  ( )$t%>!(kXnPkH  $ $<=KTMEAS_MIN %    MData page  ( )$t%>!(k<KTMEAS_MIN %    MData page  ( )$t%>!(knkkB $v!xPcs    MData page  ( )$t,>k`B $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k>KTMEAS_AVG % "   MData page  ( )$t%>!(knxkp  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k<KTMEAS_AVG %    MData page  ( )$t%>!(k nkkB $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>kPdHy@k80k(MEAS_WAY %Maxe candy start $H    B $v!xB $v!xTail MEAS_TAIL %   MData page  ( )$t,> "  >=KT MEAS_TAIL % "   MData page  ( )$t%>!(kH>KT MEAS_TAIL % "   MData page  ( )$t%>!(knk  $ $<=KT MEAS_TAIL %    MData page  ( )$t%>!(k <KT MEAS_TAIL %    MData page  ( )$t%>!(kP nH k@ d8  MEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "   MData page  ( )$t%>!(k >KTMEAS_MAX % "   MData page  ( )$t%>!(kp nh k`  $ $<=KTMEAS_MAX %    MData page  ( )$t%>!(k <KTMEAS_MAX %    MData page  ( )$t%>!(k n k k k B $v!xPcs    MData page  ( )$t,>kp B $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k(>KTMEAS_AVG % "   MData page  ( )$t%>!(knk  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k<KTMEAS_AVG %    MData page  ( )$t%>!(k0n(k kB $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>k`dXyPkH@d8 candy end    B $v!x  MEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "   MData page  ( )$t%>!(k>KTMEAS_MAX % "   MData page  ( )$t%>!(k(n k  $ $<=KTMEAS_MAX %    MData page  ( )$t%>!(k`<KTMEAS_MAX %    MData page  ( )$t%>!(knkkB $v!xPcs    MData page  ( )$t,>k0B $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k>KTMEAS_AVG % "   MData page  ( )$t%>!(kPnHk@  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k~<KTMEAS_AVG %    MData page  ( )$t%>!(k}n}k}k}B $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>k }d}y}k}}k|MEAS_WAY %Averagee    B $v!x  MEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(kh{>KTMEAS_AVG % "   MData page  ( )$t%>!(kznzkz  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(kz<KTMEAS_AVG %    MData page  ( )$t%>!(kpynhyk`ykXyB $v!xPcs    MData page  ( )$t,>kxdxyxkxxMEAS_WAY %STDe    B $v!x   MEAS_STDEV %   MData page  ( )$t,>kwB $v!xPcs    MData page  ( )$t,>kXwdPwyHwk@w8wd0w-ȷMEAS_WAY: Max,Min,Average,STD,PcsA@Jkvkvkv B@Bkvvvv B@v B@Bkvxv]X j'  t $tB@HK$B@H B@N$B@H B@O$B@H B@P$B@H B@Q$B@H B@A1$vB@H ! yPukHu  '0u (жǷӰװʱ$B@H$>Dateȡʱp SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date FROM F3PRD.DOPE_his 'H H: where OPE_ID in('PKG','EPKG') and his_cat IN ('OC','LO') 'H H and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c 'H HG LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL 'H Hz THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT 'H H WHERE FILE_NAME =' H#' )) order by his_regist_dttm ASC 'HADODB.recordset$p.J t J(r/αͣ޷ x J(v2αԣ޷[ H H ~ JB@MANUFACTURE_DATE J%+>dp <%B@zManufacture Date:+>ȡʱp SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date FROM F3PRD.DOPE_his 'H H: where OPE_ID in('PKG','EPKG') and his_cat IN ('OC','LO') 'H H and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c 'H HG LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL 'H Hz THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT 'H H WHERE FILE_NAME =' H#' )) order by his_regist_dttm ASC 'HADODB.recordset$p.J t J(r/αͣ޷ x J(v2αԣ޷[ H H ~ JB@MANUFACTURE_DATE J%+>kl ~B@B X ׼ģ.xlsx X ׼ģ.xls N  *B@d8l N  *B@kl{enter}A@ ( P\ RH B@{enter}A@ H.xlsA@ (rokkjAttribute VB_Name = "ͨģ" Dim savePath As Sng 'coc洢·Vcurrent \'ǰĿ¼ TFile|]u@ֵ&p@roduct 'Ʒ"customer! ͻmodqmTH# 'Ӧ$µāL: xNCofCFlag, Ingot12 Boolean 'жρ4װҳɁB%߼IofcIndex 2`mdataAIntegV' ҳĿsheet/@lotCoun/oDMege Sub Main() `Application.ScrePenUp@)i= False IS!s(2).S`elect= Trim(Range("B1").ValueD hisWorkbook. Active׆ A} TIS@ۃC 'ļȡoverallVûм isCalO@ All Cȡc ҳS 4`{MNew AW0c.$ ,K ,&, e<, uCr, i`",Ə, `?SFC$T!QpλᇡGpaL= fPaCr+#` Ifv Then @Uot-B{1b.- b1brCEnd Ifc'~0Cq C2-2 "2G2y@\QaTҳз%U= Dz"MD B 91(1)@wiyu( Q/ 6zr@8v0ibEFor j1 To yuijg(+ i - 1).Copy After:=aBs/$ .D5 A >CSL NstU6Cle@arConts[AX4]K= G(13).t!" "&+ 1p"(5i)p Nexa'ҳQ! 31!6Mid( i + 0h , 1,h 9) $"aN,"xB[Cell l, 3R1C& /u Eq15;-listO P O B 11_ _ -] C8/hQ ÿ@һҳĠA_no FkbrsbADODB.Recordse!hsqls51o_id from COCMEASSHIPLISTSTD where FILE_NAME ='" e"' group byCD*conn`D^BAe rEursorTypqadOpenSt`c 'α3Lo×adUseCli>GOFq @sDBB߁ ISBkJ!qQtmp0p1Ak` uDo @While EOF() <>uM2k <= 58?mO11MGG{&mq=.a15, k#@MAIN LOT NOLO ro"s c6hFields("q2id"8iW5aFk > =0t(k Gx1k | 6S @gh _r% 1?>9L}LHK1>MK1-t-LoopCloc5.Cdlose P'ǰҳOverall λиֵconnectDB8Set rs = New ADODB.RecordsetB'COCMEASDATASUBSDUM.sql6"selN * from +M where FILE_NAME ='" + Fil eName "' AND LOT_FLAG='T'"v_1f1n1rs.CursorTypeeadOpenStatic 'αͣ޷0R Locon"Use@Client"X"; x,@ csDBCion25-80`Do Whqn.EOF() <>0 TruFor j 1 To mdataMo`dePag IfFields("z_TYPE")"A" T=BMZ Case _]""MinpccCells(ir+BMINJC0d>eoO>=`yo >=7R .Interio r.Col0= 65535?ϏS_12Q=%W=|_==_ 3%<=@OO <>>%%Cells(i, 3).Interior.Color = 655 35 4End If3~Cas e "<"7}If rs.Fields("MEAS_MIN") < minValue Then0 Sheet/Data page 1(" & j")").߁Select~isCoMaxojRw0AX")3max<> 0 A@@Char ""pT ?g$siO>=ѽF >= $? _5^"V Pc?m$11 10 00"q0a `.zinz*{ ?'{q cJ<{cK< |_ %mσσ?4;/_MBTσ?3X<AverД?_AVG "tFaxF?jFoF///(O,2* >1GQ=%t> o=?3%>s("MEAS_AVG") <= minValue Then 8SheetData page 1(" & j")").Cells(i, 3).Interior.Color = 655357End If3?Case "<">If rs.Field AfSelectWisCoSTDo w@EV")#4(.?(?(_Pcs?(?(}wafercoun@b a&Else,eGoTo nextitemR Exit For{[ 7N Range("Bak).0= "" i8k + 2 ,]7E"i<>etmpv=  ~ BK ?!a"MindE?e+eqmMIN?* max< -0 A Char >=% >`oooOw_B?_r, >)_? q4?p&@in@@ &<@&&/&&&&?4</%/?<?SM 0 And!"Char""` Then+TSelect Ca<="3!r >>=M~3s/ShHeetDa.Interior@.Color6P55357rEnI>fsDg?gα >fGgffoXa:iyg Ac!in-in?o ** q cMO/%ωo65535 8End If3vSelect+?-sCase "STD"+gSheets("MData page 1@(" & j")").Cells(i, 3) = rs.FieldEAS_8EV")':T.Tc\*PcsTZTwafercounCh&Else+{GoTo nextpitem+$Exit For!;[N7If_1_WAY"b"Min" Then{AN@ i ik 1k + "URange("Bsi).Value <> "B` D_+ MIN߅kmax0 A Char} i 7 "">=_bmB% >= `?L 77.Interior.Col|orV?y 3_/xxo q?pmin@in@@3&_3'<A''O/% '???p= "_v@r/_?_SQPAverp?AVGϝo 捠ϝ  \˲Case maxChar 0a">="3|qIf rs.Fields("MEAS_AVG") >=Value` Then7bfSheet`Data page 1@(" & j")").Cells(i, 3).Interior.Color =@ 65535@End IfRfAeffoXtSelectmin<> 0 A@A ""ȃ Ed ?7+cN 0 A Char "!cS ?Q Ê|>=bR% >߸ 7_$_X5?33b3 F#S3 33_ qO^?p&@in@@3_3'<A'_Tϝϝ'ϝϝϝO!4>O/%ϝo???ϝ STD" Or .\v/_` EVOo/8lseoLExit For___ٟNexjE 71WAY?_o ik To k + $$_%_%Q%i, 3) = rs.Fields("MEAS_AVG") (If maxValue <> 0 And"Char "" Th en+Select CaseO/DHA">="3>!r >=M~3s/SheetData page 1(" & j")").@Cells(.Interior@.Color6P55357rEnI>fsDg?gα >fGgffoXtOA'#%!in-in?o .c ? cN0> CG!tmp@@(i X/ 6P1`i Mod 6Cplid@o( a+$ 1a(16, +c1"OVERAL|L"gL'HLOT ' Se th New ADODB.RecordsepUvrsh.Curs@orTypeadOpenStatic 'αͣ޷wLoc onUseC lientԯsqlq "SELECT @DISTINCASE WHEN m s.LOT_ID IS NULL THEN ms.CUSTOMER_| ELSECPEND (FROM MES_SHIPTAGJ WHERE ` ='" + lotid"' " ' sq lh = + "and ;SUBm IN (SELECT COCMEASLISTSTDFILE_NAME{& FileName & "') rsh.Open@, csDBConne ctionSIf RecordCount > `0 Theq1gFields$("")&El|seIFf+Clo b SetN:New ADODB.SsetrursorTypead=Static 'αͣ޷ЈPLoc@onBUseCl ieEԇ@|"selZ@AS_ITEM@S,min(Au_0MIN)@,m$axAXAX,avgAVGτ@EV,sumC PCS @,TYPE@ from DATASUM wherež_/C2A@DIN@CA@C +nnn) ADFLAG0='F'w GROUP BYiF?7]{ze7Do Whg.EOF() <> TrusE.z )AXA"Ā)arPcsZs`H "HaUwafer_cA) WAF@COUNT ;2@_@ A>&, `%=?pN5>= DLy.Interior.Colp= 65535 0Case ">"3If rs.Fields("MEAS_MIN") > maxValue1 Then7bfSheet`Data pag & tmp + 1 "("l)").Cells(j,13).Interior.Color = 655357KEnd IfSelect7@gminDa<> 0 A@-Char1 @""xg1 B/Dw<=xV<= )#E_EH$1110 0߃߃,0W a߄kc=Max= _.].@NAX")? LGax_ʛ  ,>_ϑci% >?o uv& "v+ vv/-?4o1/_M#/?/o qOO?瀇CinCCD(())o)o)o)o)o) "oAOoooB??Averoooi_AVG@ If maxValue1 <> 0 AndHCharD"" Then 4Select CxaseP/EZB"8>="3>Bsrs.Fields("MEAS_AVG") >=N3t/Sheet0Data page " & t@mp + 1" (l)").Cells(j,13).Interior.Color = 6P55357}EIfslllllll#ul ClO inin / 5 Q<";If rs.Fields("MEAS_MIN") > maxValue1 Then;fASheet2Data pag_ & tmp +D 1"("l)").Cells(j,13).Interior.Color = 65535;MSelect @lminDf<> 0 AChar1 @""|l4 B;Y9<=|V<= +VL#_H? $33^ 32.2߉߉02 ߊsc@Max@00NAX")? PGax_ʢDO C>/QO_7_M >P|F {|& "|+ ||///t3oeo__o_S _ hmFinF G**++!o+o+o+o+o+ /$oD?hE )End If )Case "Average"+vgSheets("MData pD " & tmp + 1 "(l )").Cells(j ,!1"3) = rs.FieldGEAS_AVG")/If maxValue1 <> 0 A! Char"" Then0select (">=9RL >=@3:v.Interior.Colorz65535sN$ ll >l??6q?6 _ ?6Sn6-sinin C  <c<#? #UU0_H $3߆^ 3r < mO}}O}`C}oD_/OoEL?3 STD_ ooo翕EVߕT ._ _ _ _ ?_ _ _ S Pcs_ _ _ \ wafercou=";hIf rs.Fields("MEAS_HEAD ") >=Value1 Then?l8Sheet5Data page " & t@mp + 1" (l)").Cells(j,13).Interior.Color = 65535?OEnd If#{wv2vvrvv%v3w@tminq<> 0\ AU@" ""t $ʔinߔ> Y<_ !ו<$ߕ 'Z__?4K_ !D5 85 Y5 '555?1H_? ElseO׏p j zkJo oc@MIN")o o Y$Y_ Y? S_o ?!?!?!߹6/O]>]o/44 >/1]_AMߦߦ_M_/Nalue1 Th en HSheets("MData page " & tmp + 1"(l)").Ce@lls(j,!1"3).Interior.Color = 65535GEnd I"f'Casp<"NIf rs.FieldEAS_MIN") < minV "m2mSelectwm" @Range("B1j).Bk"Pcs"5}}wafercou>n1_"sX"Aver"3 ""AVG")V maxć<> 0 A@Char1 "_ }j ¢  >~=߬= `!M+ >= $ 'B}B64o___p__/1_t_?7GMinOMoM.. "" Then"?MINQFmaxC1C0 ACharBrH9Select Case \-  ">=~"_ m`!* >=$E 'A.Interior.Color@C6553c %4} == == 2===4=_ a}= minNLinOLL-lax?lkkP_p{AS_AVG") >= maxValue1 Th en DSheets("MData page " & tmp + 1 "(l )").Ce@lls(j,!1"3).Interior.Color = 65535CEnd IFf%"Cas>"GIf rs.FieldEq& "{{  SelectGoi@rmin<`> 0 AC har1 @"")C "Q ?1 C "<=[ $6\<&+8_M %Ò<7_ $7 N 266686 !ߔOq P Ran ge("B1j).~"STD" Or ue.=?O Ј?0u EV")R?pElse?Exit For__? NexOp_oA"1{WAY`= p"Maxn'candy stopJ_߿  !!!__ߏH/Oo4 >H1s DSheets("MData page " & tmp + R1"(l)").Cells((j,!1"3).Interior.Color = 65535 BEnd If;K!Select#AIf minValue1 <>0 0 Ah Char"" Then;q : Ca|seI"x<="Krs.FieldEAS_TAIL") <=HRL &R -D;?;_ ,8;; >;? ;?) w sEl\se_qEjk_3>}>MpAX")@max.ax?U  Z`O A>_o >^F^?! 6`/o_4 > '1?/1]_oa}?OMo Nin//o00_&o1o1o1o1o1 )oMoO Sheets("MData page " & tmp + 1)$"(1 <> 0 Ap@Cha:r""~p Case  ">="_ _ @ 2+ >=$_b 'd?4h_ %4} == @_== 2===o1?w_?LinLinL/JMDO._ R"lse\Exit For 1Nex۲ Else  8'candy0 endxFor j = k To+ 5'vCIf Range("B" & j).Value <> "" Th|en+OS2!Sheets("MData page Otmp + 1T"(l)").Cells(j, 13)rs.Field#EAS_`MAX")/gimax10 And CharSelect Case3,I">="ǁRV >=-I-.Interior.Col= 6553l˕'EIfW == == 2==_6= a}= w :minin 7 ? #]< )^<'_/oooo/N/(oK/s < G0I_oM /YO!= "PcsOwafercountSs /b"Avero?ooolAVGp:pax/S_  ?R?RO4o Ѳ2  )LCase ">"?uIf rs.Fields("MEAS_AVG") > maxValue1 ThenCn9Sheet6Data pagg & tmp + 1"("l)").Cells(j,13).Interior.Color = 65535CQEnd If%!Select @tminDn<> 0 A@4Char1 @""tr9 B;O<=IwT<= 1J____!_P)$99 (֗<8 :888<8_ %a ߚ sCRange("B!j)."{"STD" Or . C!;n@ y0 EV")U_ElseExit Fo~r Nexu/o/? 1G1WAY= "Ave>ru jk To ko--?~/~ aqO/ #a7& "+ 3)O/ӨTax_ڏ r>_o?2ЎO OOOA/o/O/?1_ End If $@If minValue1 <> 0 A!$Char"""` Then/ Select Ca|ses`?U2)"8<="C')rs.Fields("MEAS_AVG") <=C7Sheet8Data page " & tm p + 1"(l)").Cells(j,A13).Interior.Color = 65535F(Dn?nnmI.mmA6cyJ- - o@Range("bBej).Ba"Pcs?/ ! 4Q 5).m~umnK#ionearCopntsN te]Ol PQA10 Work``I_ @!=!³#ApplicataDisplayAlerdtsPFa&'жǷӰװʱ = (p^InStr(14,@ 1), "Pep|w'ȡa 8dttmsql " SELECT SUBLOT_ID,CUR_WAF_CNT,to_c(his_regist_!,'y/MM/dd') manufa@cture_2e FROM F3PRD.DOPEj_ _ &gwhere aID in('P@KG','Ea) aP IN ('OCLO?`2ST R(`0,7)||SUBSTR(`LOT_ID,-3) in( SELECT `S|HIP_,_0,7 8FROM ( DISTINCASE WHEN S j IS @NULL TUbBi EL0 +E ND?qCOCM(EAS/LrSTD c "  dttmsql = & " LEFT JOIN\ =,`CUSTOMERV`&7t w -w Ax MES_QTAG) ms ON c.= . PjRE FILE_NAME ='" & FileName"' )) order by his_regist_V ASC1_Set^_CreateObject("ADOD B.rec@set")n.CursorTypeadOpenStatic 'αͣ޷Loc onUseC lientԡDebug.Priė., csDBConnBion Cells(140, 2)(.Fields("MANUFACTURE_DATENElseCActiveSheet.Row).I`nsert 1 "Manufacture D4:F'ȡxIk"#(cQ,CUee_WAF_CNT,to_char(F,'y/MM/dd'Z_d B_F3PRD.DOPE_|}1|wheIDA'PKG','E) andXE A 'OCL~Of ! a@pS KDc0CB%$D,22EP'?$ hV=VVVVAVVV_G}VlOrVV ]VmVVEPDIfS].ClouYIf modcu= "׼ģ.xls`x" Or"P ThebTPWorkbook.SaveAs s`Path, xlExcel83 ?a1 SendKeys "{rer}", TruUgpplicu.DisplayAl gs0bWu s.ru:=curr1 A\Q?4E3Deletsps:AX ScreenUpgingl `Sub       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]`abcdefghijklmpqrst{|}~ 0u' p@Ju}*=h8+3q@TAKOKbZx@TAKOKbZ@Ju}ME@SS S6"LLLL L <<<<<<<<<<<<<$N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}H `(xkX8IP xIR IH Il IT( I0 IZX8 8IX@ XIVH xINP I^X I`` Ib8h Inp `X `0% %80(@`xx X p ztx~Jxp@ @( @@ @ @ @xp @xX @` P @X8 @ @ @ @ @ @ @ @p @pX @@ 0@( @ @ @ @ @\ @ @ t @x @` @H x@ 0 @  @0 @H @ @ @H @ @ @_ 0 @ @x 00xx@8 k$*\Rffff*TM6c07d7ed*\R4*#5d*\R0*#f*\R1*#135*\R1*#14a*\R1*#14b*\R1*#141*\R1*#409*\R0*#12*\R0*#2$*\Rffff*TE6c07b76b*\R4*#40*\R0*#17*\R4*#7*\R4*#1$*\Rffff*TD6c07b697`"  X `~8h 00(FX ,p8 0 0PF $8 8 ` 0p 0 F$> 8  0 0 F(0,8LHh p x& &       (0H`(h       ( *( D   (  0 8HHJ$8p0 h " *(* H $X 0^p 4 J $ 0^ <lH <Z   4J $8 >8  $NP  x  6  $N   <Z   "8( 2JP   *  2L      >  $N  @  6H  $Nh  0 *  4       L0P X`hpx6""d *j *j  P.X $  n  .  QݽļȡͻƷȻȡӦͻģļcopycocļA@z=select IMPORT_TYPE from COCMEASSHIPLISTSTD where FILE_NAME =' H ,' and IMPORT_TYPE <>' ' group by IMPORT_TYPE '. t (r"αͣ޷ x (v%αԣ޷  ~ B@ !Qselect lot_id,product_id,customer_name from COCMEASSHIPLISTSTD where FILE_NAME =' H *' group by lot_id,product_id,customer_name '. t (r%αͣ޷ x (v(αԣ޷  ~ B@d` IMPORT_TYPE %STselect SUBLOT_ID,product_id,customer_name from COCMEASSHIPLISTSTD where FILE_NAME =' H -' group by SUBLOT_ID,product_id,customer_name '. t (r)αͣ޷ x (v,αԣ޷  ~ B@ IMPORT_TYPE %LeQselect lot_id,product_id,customer_name from COCMEASSHIPLISTSTD where FILE_NAME =' H *' group by lot_id,product_id,customer_name '. t (r)αͣ޷ x (v,αԣ޷  ~ B@kk !ûжӦij嵥A@Jgd !'l PRODUCT_ID %'T CUSTOMER_NAME %'k0 B@B ~B@Bӵ繲ļ \\10.10.152.142\coc\12ģ' administrator' fthw-82905028'] \\10.10.152.142\coc\12ģ' $x'dPWScript.Network$p.Scripting.FileSystemObject$p.    B@'k currentPath2ݿͻѡӦģ,ȷɵcocĵĴ洢· \ͨÿͻģ\ \ T\ T.xls'Z \ͨÿͻģ\ \ T\ T.xlsx'\ T.xlsx'X  \ͨÿͻģ\ \ T'VDebug.Print (modePathName)Debug.Print (modePathNamex)Debug.Print (modePath)Scripting.FileSystemObject$p. Z % \ͨÿͻģ\ \ T\ T.xls'Z T.xls'X \ͨÿͻģ\ \ T'V \ %e \ͨÿͻģ\ \ T\ T.xlsx'Z T.xlsx'X \ͨÿͻģ\ \ T'V  \׼ģ\׼ģ- T.xlsx %e&ûҵӦͻģ壬ʹñ׼ģ $Jg0k(  \׼ģ\׼ģ- T.xlsx'Z ׼ģ- T.xlsx'X P\COC$x P\COC\ H.xls'Nd P\COC B@ P\COC\ H.xls'Nk0d(&ûҵӦͻģ壬ʹñ׼ģ $Jgk ׼ģ- T.xls'X \׼ģ\׼ģ- T.xls'Z[ Z Z %dP(û繲ҵӦı׼ͻģA@J|kk P\COC$x P\COC\ H.xls'Nd P\COC B@ P\COC\ H.xls'Nkh)ѶӦģCopyҪexcel Z % ZH B@ \ %e \H B@d[ ZģļA@Jk'n'^'`'b'  t  R$%t B@ $t! CofC page 1 '^ $t!Ingot-list page 1(1)e'` $t!Ingot-list page 2(1)e'b $t! $ MData pagee n 'nk`  'H X$B@B   B@.ko7Attribute VB_Name = "cocMode" Basx0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpac False dCr@eatablPredecla IdCExposeTemplateDeriv%CustomiBz ESub (currentP ath, Fi$lep, lotCount, @producc.er, m  , saveCofCFlag, Ing(ot12mdPage)  'ļȡͻƷȻAӦģ copy@>connectD"Bsqlsel IMPORT_TYPE from COCMEASSHIPLISTSTD where FILE_NAME =0'" +M"' and<>' ' group8 by@A;Se t rsS"New ADODB.RecordsetC*.Curs orTypadOpenStatic 'αDLoc onadUseC liGYA N@sDBbCTionCIf41@0 T__id,_nd/ $222rs22_3W3 =3EAa4Fi@elds("(`") "S",66SUBLOT_ID7ii7 h7j7!8}k* 88 {998L8oor|71qQQQ/R/ROfREbf2SSMsgBox "û!p嵥@?UY X4%BPRODUC>"zZCUSTOxMERrIpClP3cd.CY'ӵ繲g~Server Sh "\\10.!52.142\ \12ppr!administrator`Passw@yfthw-82905028Dim srcp As S@ng epc s qFolderEx@ s()YGy 0_ SNet0kObRj!= e("WScript.T) fsokSing. System#.MapDa "", , , 5 1(S'8Ѩѡ6a#,ȷɵB洢·@i)& "\0ͨa\"L &er"%8.xls'ix:~qx2_Z 'Debug.Print (iu7! x(*&s +pt+ct+`9f"-d9 9??! " a8oO"ڿH.ox?;K_[)2A軳mer & "\"Pproductx.xlsx" modeName = j!JPathJServerShareͨÿ@ģ|cpustosElseIf fi les.FEx ists( ] \׼Z- ) Then1m-MsgBox("û@ӦT ʹ)", vbOK) <> 1 &End, If5` (&"z>SFolderUcurrentpCOC" Lsave = w'A^Ht!VBA.MkDir ( K |ndeK"ȕan߁\ LcDebug.Print S'-!n_)B'*k k繲 emW%nRt SubH 7G"n\\\ "\\7d\ l(%'aᣴCopyҪexcel#(_?gWorkbooks.Open&:=J3;xK? x #]ETA#A$ļDQ J mdataMPag1CofCFlagFaIngot12c3AftAeets 2 For EHachvSh In s#!G(b.< " :=(S#).(l) ? ).EL p1 "LqA TruBgP2-lT(1) 2q ßMid(w H, 1 0)"MD% _ &+ ' R$NextC7#1%).ClosdConne`=NetwBObj.Remove4Driv$e l, q, ø3! Set jNothing: 1c  eoxME(``D %@ @f  ```  x ```` x%xx(8HXhx(8HXhx(8HXhx(8HXhx(8HXHhk$*\Rffff*Pt6c06f1b5"  ( @P  h x  00 0H * ( H`  " (0  H X` h *    8 68p  <    20 h p 2   B (0  8 H `h    p   &   8 H h      ( >8(x     0 0@ X h  8Hh (H h.4>.(0X2,2*( Xhp x 0\ &  @0`0 B hp  &  00 P   0  P`(x   00 XP   00P0    ( 0 .P ,          0!$@!((X!,.!(!$! !%!(!(!( " F",X",`",h" ",","0"0 "4"0"0" "0# #00#0 H#00h#00#0x#0@$ X$0p$ .$4$$4$4$4$4$4%4 (%8 8%8H%=`%@%@%D% %D%@%>8%@0&DH&H P&L `&P*p&T&&P&L&P.&P&'L0'H 8'L H'P*X'T&'P'L'P.'P&'L(D (@((@0(DH(H P(L `(P*p(T&(P(L(P.(P&)L0)H 8)L H)O*X)T&)P)L)P.)P&)L*D *@(*>0*=@*= H*8X*4`*0h*,p*(x*, *,0*,0*,"+,(,,@,,`,0$x,1,4,8 ,< ,@*,D&-@8-<@-@.H-@&x-<-8 -< -@*-D&-@ .<(.@.0.@&`.<.4.0.0.4.8 .< .@*.D&/@8/<@/@.H/@&x/</8 /< /?*/D&/@ 0<(0@.00@&`0<04000,0(0 20 V0 F@1 @1 R1 r 2 n2 D3 >P3 z3 j4 @4 >4 P5 rP5 n5 D86 >6 z6 j@7 @7 <7 408 Th8 D8 @9 PH9 r9 n: D: >: z; j; @; >8< Px< r< n@= D= >= z8> j> @(? <h? 4?%? ? ?@ @@(@20@h@p@ x@@@"@@@ A A (A,8A*hAAAA AA     PA @B PB`BpBBBBBBBBB C  C 0C @C PC`C RhC CC C C  D D  D 0D@D HD `D pD xDD D嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]XƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]p]ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'F0Debug.Print srcpath & wpstr & ".xlsx"ServerShare F @.xlsx$x 汾· *!\ͻģ\ B\ @\' жϱǷӦļ $x Ʒļ F @.xlsx  H.xlsxA@Hd A@ Ʒļ F @.xlsx  H.xlsxA@Hk(d 7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһ±ǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %. B@pR:R$vB@H !B@z ҵslotڵек 8  8 $>$SlotyXkP 8  ȡĩβ  $>$yk $tB@H 8۶ڣкţRFIDţ @SELECT DISTINCT ORDER_NO,to_char(PLAN_SHIP_TIME,'yyyy-MM-dd') PLAN_SHIP_TIME,to_char(PLAN_SHIP_TIME,'yyyyMMdd') PLAN_SHIP_TIME1,RFID_ID,c.SUBLOT_ID SUBLOT_ID ,c.WAFER_COUNT WAFER_COUNT , CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,RFID_ID,`CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG= ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' order BY SHIP_SUB_LOT_ID' '''ship_seq  SELECT c.* ,pkg.*,d.waf_id,d.SLOT_NO,d.READ_WAF_ID FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( y)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID LEFT JOIN F3PRD.DWAFER d ON c.SHIP_SUB_LOT_ID = d.SUBLOT_ID ORDER BY SHIP_SEQ'[ ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@ \!'N'ȡɫ̶A4$v'" B4$v'$ C4$v'& D4$v'( E4$v'* G4$v', I4$v'. O4$v'0 P4$v'2 Q4$v'4   \! 'д̶ " A  +v $ B  +v & C  +v ( D  +v * E  +v , G  +v 0 O  +v 2 P  +v 4 Q  +v 'дѯֵORDER_NO \%F  +vPLAN_SHIP_TIME \%H  +vFHPLAN_SHIP_TIME1 \% I  +vRFID_ID \%J  +v SUBLOT_ID \%K  +v WAFER_COUNT \%L  +vwaf_id \%R  +v READ_WAF_ID \%N  +vslot_no \%  8 +> \B@ ]ǰ73İװʱ 'ǰ73λ  SELECT SUBLOT_ID,to_char(his_regist_dttm,'yyyy-MM-dd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyy/MM/dd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG') and his_cat = 'OC' and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) J in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN (x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOTN FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' order BY SHIP_SUB_LOT_ID ( )) order by SUBLOT_ID, his_regist_dttm ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( :)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'ADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷[   ~ B@'   ! manufacture_date %M    +v ' B@h'ȡдÿһƽֵ ADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT SHIP_SEQ,FILE_NAME,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'd d ~ bB@[ d] b!'h hf1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@H bB@Bk0ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷2select * from COCMEASDATASUBSUM where FILE_NAME =' H' AND LOT_FLAG='F''  ~ B@ ! Hó嵥A@J|k B@B' l hADODB.recordset$p. t (r3αͣ޷ x (v6αԣ޷select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''[ l  ~ B@ ! For j = 0 To 24'6 * ʼ]]0 l  $>''wafid = Cells(subcount + 7 + j + x, 18) 6 $>;ѭĿ 6 $>' 6 $>'l 6 $>' 6 $>'n 6 $>$pFΪֱ  l    6 $> 6 $> l    6 +>kH@d8 6 $>]H 6 $>'  $,@num = CDbl(Format(querynum(measitem, sublot, wafid), "0.00000"))]`] ;$',ѭĿ'  ] y(k  $'0 ȡ㷽ʽ $'0 ȡѯsqlֵ$$'ADODB.recordset$p. t (rOαͣ޷ x (vRαԣ޷SELECT WAF_ID,  5 measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='  'order by SLOT_NO '  ~ B@0ѭֵ 4(sublot = Cells(subcount + 7 + y + x, 11) l   $>']]](  $'$ $'  B@r  ! WAF_ID %measdata %'  $X'Dֵ  $$'k 0.00000$X l    6 +> l  >=KT  l l    $>NGOK l    +>k0d( l    6 $>!(NG l    +>k>KT  l l    $>NGOK l    +>kHd@ l    6 $>!(NG l    +>knk n  <=KT  n l    $>NGOK l    +>k0d( l    6 $>!(NG l    +>k<KT  n l    $>NGOK l    +>kHd@ l    6 $>!(NG l    +>knk  'k B@kdADODB.recordset$p. t (rKαͣ޷ x (vNαԣ޷select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f%' AND LOT_FLAG='F' and MEAS_ITEMS = '  ' '  ~ B@MEAS_AVG %X'   l    6 +> l  >=KT  l l    $>NGOK l    +>kd l    6 $>!(NG l    +>kX>KT  l l    $>NGOK l    +>kd l    6 $>!(NG l    +>kpnhk` n  <=KT  n l    $>NGOK l    +>kd l    6 $>!(NG l    +>kX<KT  n l    $>NGOK l    +>kd l    6 $>!(NG l    +>kpnhk`XkP(+Cells(subcount + x + j + 7, item_col) = numO If lowValue <> 0 And lowChar <> "" Then? Select Case lowChar9 Case ">="K If num >= lowValue Thenl If Cells(subcount + x + j + 7, end_col) <> "NG" Theng Cells(subcount + x + j + 7, end_col) = "OK"> End If8 Elset Cells(subcount + x + j + 7, item_col).Interior.Color = 65535c Cells(subcount + x + j + 7, end_col) = "NG": End If8 Case ">"J If num > lowValue Thenl If Cells(subcount + x + j + 7, end_col) <> "NG" Theng Cells(subcount + x + j + 7, end_col) = "OK"> End If8 Elset Cells(subcount + x + j + 7, item_col).Interior.Color = 65535c Cells(subcount + x + j + 7, end_col) = "NG": End If6 End Select. End IfM If upValue <> 0 And upChar <> "" Then> Select Case upChar9 Case "<="J If num <= upValue Thenl If Cells(subcount + x + j + 7, end_col) <> "NG" Theng Cells(subcount + x + j + 7, end_col) = "OK"> End If8 Elset Cells(subcount + x + j + 7, item_col).Interior.Color = 65535c Cells(subcount + x + j + 7, end_col) = "NG": End If8 Case "<"I If num < upValue Thenk If Cells(subcount + x + j + 7, end_col) <> "NG" Theng Cells(subcount + x + j + 7, end_col) = "OK"> End If8 Elset Cells(subcount + x + j + 7, item_col).Interior.Color = 65535c Cells(subcount + x + j + 7, end_col) = "NG": End If6 End Select. End Ifkk 6  '6 ?Next  'd?(ûмϣԺ󵼳ECOCA@Jk??$tB@H' B1$B65536$v%!'  B $v '  [ $tB@H A65536$v%!J $v $ J $v!(NGAL +vk(> k>J-----------------------------------------------1-------------------------- ɾ3$B@v$B@v$B@v$B@v$B@v$B@v hA1+v HB1+v @C1+v BD1+vsublotcount irow = 13ʼxmlA: K-----------------------------------------------2--------------------------- B@pA1J1$vB@ k< <B@  B@ رչ B@B;Ļˢ´ (rA@GLOBļXMLA@Jo`;X;Attribute VB_Name = "GLOBģ"@ Sub @() '嵥0 4Ļˢ@´,Application.ScreenUpdngr False'FileTrim(Cells(1, 2){'If *"" ThenMsgBox ("4"I(Exit rEnd Ifcon@nectDBS et wp= CreateObj("ADODB.recordset1.CursorTypadOpenSt~c 'α3 "LoadUseClient#ԕ#aDimasql 0As S` '!AƷwpSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &l& "' GROUP BY Ji?AM., csD True 'жΪ0һ;A'̡Atr@Z Fields("+I'õ˾"AcustomernCB("K9ȣgsrcpathgGpd Bsԭ8· 繲< @@\\10.A52.142\coc\3ServerShar12(Wradministratorh`Passw@j0"fthw-829`05028hgIFolder@{sts()G 0'El%Aa}Netkc} KWipt.ǤBfsoing.!Sys8tem# -.MapDrive "", 0, ©, +, ({1(''DaIn#IA |\ͻ>\a!l Debu`g.Prib&r`.xlsx~"G@e.C'汾!%=IisWorkbook.Pu!?6 aa!鐶Ӧu ?«j_ <Ba)Co(py ", ]5!4MultiLevel ( _ 'O 5O M#O p&%L /0Wo "1ûqq/, ȷ&L1 /9a0.HNocCells(BE, s;#0llE#noosMoveNext)_Dim ss'73İװʱO''sλ 20R",to_char(his_regist_dttm,'y-MM-dd' anu_ture_dqfADD_MONTHS-1, 12)/MM/exp8iry2ԬOPE_0 where ~in('PKG','Ea) and 㰍 'OC01*0STR(`,0,7)||Sj-3)5qP 1˟ 7远2= ov X , OOOV qѿDP#msDme & "' AND PRODUCT_ID ='"wpstrorder BY SHIP_SUB_LO" _  )) xby nl, his_regist_dttm "E'ship_seq%sql = " SELECT * FROM (DISTINEQ,CAS@E WHENgIS NULL TUBrEL }E =@7!̞ϘSet lotsett2@GCreateObject("ADODB.rec@").CursorTypeadOpenStatic 'ͣ޷LoconUseClienBtԡDebug.Pri/Dkx , csDBConn"ionff0For ss!`1 To-.RB*CountojA 24Range("M!Hs + + 2j7)3Fields("manufactur8e_d@=q: NexTB24B pMoveO''ȡдÿһƽֵ''8!Z6Sub`@ _ZhZZ ZZa tt`"¦,'D IPqi|ms(AP= A]h`T AvPcc.clxc:s&[{EQqH,.eIttIulO3Dim subitem}6c1L'-M Re8(BQx) 'Apa¶@If &> 0 TheYrXAi _}% (C i!U5U̎/U sQW SClose End IfqQnumm/Q_~ qP~~~P}} 1"selpzfrom $DATAOSUM whereq@FLAG='F'O9C88J{0+m+wM@sgBox ɨó嵀ݯ Exit >" _%xq t5U@5[(dFs c8)))`\)_ITEMS, ROUND(@MIN,5) ,AX AVGEV"PCS 1B1Qq&XR )?4X jubB7  If numm.RecordCount > 0 Then  ,'For j =Po 24Rjitem_col^19 'ʼ8Dim sublot As String1`wafid%0/= Cells(c+ 7 + @x, 11)9'+7 j"8"WhileB1, ) <> "" 'ѭĿ0Ilo`wCharm4*bValue5up6,7j@IsNumeric(>2) 'ΪֱEV @&#Hx8\|[?% "e En0d IfNext?Else(i$d%B!measl_)c/f~) ) findtype(oE T?" '`!uDbl(Smat(`query , D, ), "0.0")MtrResulxt()( 2c sE@ Splith";" BŭC_1flag0ObUB`d~(?i ba+%J1407$ 25_Exit PoG ="(jj'ȡ㷽ʽ v2!s*aG>1V*" ѯsqlֵ? ColumnH1&2(0@cSet CreateObject("ADODB.rset8`Lm.Cu`rsorTR adOpenStatic 'αͣ޷xLoc0oadUseClie &///.""SELECT WAF_IDGPZ+ "b-data FROM COCMEASDATAINFOS c WHERE SUB_LOBT ='" s s 'er by SNO" s m.!1 , csDBConn@io(/-1Ty!?'tyOŸ tp!@0qcDo# `2sC p\K(5?] c510#spBsAP3_pm.MoveFi|rsoP2 sqlnum = 1 To m.RecordCount 9If wafidFields("WAF_ID") ThenB_a2aCDbl2(1)_/'֎?+*get@-(,2, G(2?. End If,Cell@s(subcA (+ xy7, item_col)^FormaBt5"0.0"2 1 lowValue <> 0 A7@Charr""?fSelect Ca|seA~ ">="_ E$@I >=$ /y1YBend#B4"N>G25S"O~K-,k_ -ElseB +$x.Interior.Colory65535 ĉfG= AG'6 )x%o5b<_SBqOK?Z  ElsekCIitem.Interior@.Color@65535#i# 6La Select$ =0flag6+ ~1 `m.MoveNex$ U3??)| SetAm ~=! >=  著6Aoooo("l/gog1OA?t3o3Oe3_3O_3_3? z= "OK"  <End If!;Else?Cells(subcount + xy7, item_col).Interior.Color =@ 65535>end>6"NG<9Select/xIf upValue <> 0 AupChar"" Th en_2 Cas>e"<=|g@;num <==7IٷFX8Ual)[- L ? ;..<.ao"q >= 0#og6(MoOor_?OO/~u/o/@?Go/o/_o/?o/& Cells(subcountP + x j 7, item_col).Interior.Color = 65535 '*venduf"NG"4eEnd If,<Select(4If upValue <> 0 AUupChar"" Th en\Z Cas>e.%, lB"<=\6num <=7p2 bQ1NeOKuIA Elsepw9_~_~ +l)_~ *^:^^^ã^ $3c3^Y3^Y 9^^+^ *Anof O5B+ 1 Wp'Nexp~x24/);MsgBox "ûмϣԺ󵼳ECOCG oD  Sheets(82).ftxt"Г IsEmpty("B1"YFagTvrow= R0ange`q6").`(3).+? FPip1 To S1# %" & i)@`? iDebug.Pri0^15 j 8{ 4 Ao/`M(id(Jj), 1, Len(0 ))a5v[25P^ALs 3?=rj?7'-;1''ɾ3Row8D@t@ r2 spumns(18l).>:A#>l  'hd`ļ   .xlsxδҵA@Jk(d {Debug.Print ThisWorkbook.Path & "\ͻģ\" & customername & "\" & proitem(p) & "\ " & filename & proitem(p) & ".xlsx" *!\ͻģ\ B\ $\ H $.xlsx %.򿪶Ʒļ %. B@p $>  'ѡA2:AC   %vB@ $  ,>   %>B@  B@ B@Bk 3MsgBox "ɺϷʳζƷļ" & prostr & ""d>MsgBox "Ϸʳ" & filename & "" & filename & "xmlļ"kpA@AoXP;Attribute VB_Name = "testpro" Sub ss() File|2022-9-1-1 F-HTP01@55GAW-CAWxcustomernμ()洢޹˾0onnectDB Dim multi As Sng 'Ʒļ 'x Set sqlICreateObjc("ADODB.recordset"q .CursorTypadOpenStatic 'αͣ޷G(Loc"onMadUseClient*!*n+""SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" & |& "' GRO@UP BY ~J@pTPLs),@ csDBCCzi onH~items:um:.RoCount Re(1 To!um)A@i¶$OIfD > 0 The,=For pd&OIH0A9(pd)G4Fields("Y/D%.str + "+=Else_;@ +u. aEnd I>f[ MMoveNexPM3'1`ϲu] O`J7'ϱԄӦ K  é=XisWorkbook.Path}"\ͻ\ ?aC 0FolderExists(%)gWECMLevel  ' /-½-f"bdata(row]1k fir S# '҂ʼ+9cAp'Ɓ Copy8{81)?^.xlsx",1P#&P# )һ)o % u  #1_$ `Fqw$// ['ݯ#ц= s.p+O4OK)ExcelSthe=7* .ss(1?; .Activ_D '3S+_ While Cells(56, (<> "?e4+ ;/end?jI MsgBox "402δҵ?K'Debug.PriУTh]] ](?pcA f8+Q a* 7>0o eh)i !qC_ K/0=ĂI 76?695)'fI4l?4^ 44W4$'ѡ? W2.Range@װ2:AC-?.lOAB>N.oC` 7 OOtL1psteSpecial% bSavQ jCloq_Q_@Q =YO'%J`ɺϷʱ/ļ" & prostr""  Else Dp'MsgBox "Ϸfil enameq "xml End If closeDB Call [_create@ 1Sub       !"#$%&'()*+,-./0123456789:;<=>?@ABCEFGHJKLMNPQRSTUVXYZ\]^_abcdeghjkmnoqrsuvxy{|~xME(6 <<< ` %` 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p`k$*\Rffff*Sm6c06f1fe "  (0Xp A@z1230-1 F-HTP0068BAW'HMWE3MEAN/1000;MLS2TAVE;MWENTHKC' ;$'[  H %'[ A@oXPAttribute VB_Name = "testsql" Sub ss() connectDB File1230-1 F-HTP0068BAWzitemMWE3MEAN/1000;MLS2TAVE;A,NTHKC)_arr-Split(:, ";"zqlcommonutil_sub_lot_id.get_"_checkall_datasAR, JDebug.Print 3 closBehEnd v rU@@@~~~~nEC){S5oqy0c%g      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~@K*XX&&;;::  ]]cc88**DDTT00//99CC  VVhhZZ  ##66AA@@BBRRGG!!==EEffOO77dd''  [[JJ,,))44YYaa??""ee``FFPPLLUUWWggiiHHKK    IIMM<<bb>>..33$$SS--55\\%%QQNNrU1@@~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~ ~ ~ ~ ~ ~ ~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~ ~ ~ ~ ~~8~~~~~~~~~~~~ ~~~~~~ ~~~~~~ ~ ~~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~~ ~ ~ ~ ~~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~~ ~8~ ~ ~ ~ ~~ ~ ~ ~ ~ ~ ~ ~ ~~~~~~8~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~ ~ ~ ~~8~~~~~~~~~~~~ ~ ~ ~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~~ ~ ~ ~~ ~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~8~~~~~ ~~ ~ ~ ~ ~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~8~~~~ ~~ ~ ~~ ~~ ~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~~~ ~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~ ~ ~ ~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~ ~ ~~ ~~~8~~~~~ ~~ ~ ~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~ ~~ ~ ~ ~ ~ ~~~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~ ~ ~~8~~~~ ~~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~8~~~~~~ ~~~~~~ ~ ~ ~ ~~ ~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~8~~~~~~ ~ ~ ~ ~ ~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~ ~ ~ ~~8~~~~~ ~~ ~ ~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~8~~~~~~ ~~ ~ ~ ~ ~ ~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~ ~8~~~~ ~~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~ ~~~ ~ ~ ~ ~~ ~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~ ~~ ~ ~ ~8~~~~~~~~~~~~ ~ ~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~ ~~ ~ ~ ~ ~ ~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~ ~ ~~8~~~~~ ~~ ~ ~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~~ ~ ~ ~ ~~ ~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~ ~ ~~ ~~~8~~~~ ~~ ~ ~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~~ ~ ~~ ~~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~ ~ ~ ~8~~~~~~~~~~~~ ~ ~ ~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~~ ~ ~ ~~ ~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~8~~~~~~ ~~~~~ ~ ~ ~ ~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~ ~ ~ ~ ~ ~ ~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~ ~ ~~ ~~8~~~~ ~~ ~ ~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~~ ~ ~~ ~~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~ ~~~~~~~~ ~ ~ ~ ~ ~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~8~~~~ ~~ ~ ~~ ~~ ~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~ ~ ~~ ~~8~~~~ ~~ ~ ~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~~ ~ ~~ ~~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~ ~ ~ ~ ~ ~ ~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~ ~ ~~8~~~~ ~~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~ ~~~ ~ ~ ~ ~ ~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~8~~~~~~ ~~~~~~~ ~ ~ ~ ~ ~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~ ~~~~~ ~ ~ ~ ~ ~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~ ~~ ~ ~ ~ ~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~ ~ ~~~8~~~~ ~~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~ ~~~~~~~ ~ ~ ~ ~ ~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~8~~~~~ ~~ ~ ~ ~~ ~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~ ~ ~~8~~~~~~ ~~~~~ ~ ~ ~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~~ ~ ~ ~~ ~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~8~~~~ ~~ ~ ~~ ~~ ~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~ ~ ~ ~ ~ ~ ~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~ ~ ~~ ~~8~~~~ ~~ ~ ~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~~ ~ ~~ ~~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~8~~~~~~ ~~~~~ ~ ~ ~ ~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~ ~~~ ~ ~ ~ ~~ ~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~ ~ ~~ ~~~8~~~~ ~~ ~ ~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~~ ~ ~~ ~~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~ ~ ~ ~8~~~~~~~~~~~~ ~ ~ ~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~ ~ ~ ~ ~ ~ ~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~8~~~~~~ ~~ ~ ~ ~ ~ ~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~8~~~~ ~~ ~ ~~ ~~ ~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~ ~ ~ ~ ~ ~ ~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~ ~ ~ ~ ~8~~~~~~~~~~~~ ~ ~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~8~~~~~~~~ ~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~ ~ ~ ~~~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~ ~8~~~~ ~~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~ ~~ ~ ~ ~ ~ ~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~ ~ ~ ~~8~~~~~~ ~~~~~ ~ ~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~ ~~~~~~~ ~ ~ ~ ~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~8~~~~ ~~ ~ ~ ~ ~~ ~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~8~~~~~~ ~~~~~ ~ ~ ~ ~~~~~~~~~~~~~~8~~~~~~~~~~~~~~~~~~~8~~~~~8~~~~~~~ ~~~~8~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8~~~~~~~~~~~ ~~ ~ ~ ~ ~ ~"QN51o@)Ģ^ ja&aD@H DDaBpC 1z1z `O 1'a'''( (O 'A((( (P A))))1*q**+1az(0[ 2/A2q22213Q3q333Qa`[ +4A44445Q5aR&a4&a&a&!!anA AQ Q 1+q p,R q++ R q, x(R ,A(a1F   bS ,- $0S A-Aaf`K $a H`S - ZS --((. 6[ ))q**556q66 S A.-((!a,G !Q O !aH $a2pN #$!%a`I aT B A [ +6A7q ?\ ))q**778a8 X@\ ))q**556q668aK $! @T .-((Q p\ 89A9 @T .-(( pT   lT /-((Aa|G A!!!a!q T A/-((avE  U aN Q% a&N %A  "0U !q    `U /-((  ~U  1 aG a a  FU /  hU -   V 0-(( a*H #! a B A A a F a a a  PV  a\I $  V Q0-((.  V 0-((A  LV q q aJ@F  aN0I $  /W 0-((.  @W $1 a^A$0K a a aC  "#A#  VpW 1Q1 aF  aH  au] A5111a1111!aA QQ W  "# W aPB ad0G   X 1-((A @X %q PpX apH a##a pF  X 1-((a8K q 1aB !aaA  X a=N arC  Z !aD QaC "1"Q""a@N aL 1 Z a aajB !a`G  !!a`M a@C " :[ -((.a; qq1!1 VBAProject ThisWorkbookSheet5Sheet2GWJģģ7ģ1ConnectionUtilCommoncocModecocfPage IngotPage2 IngotPage1ģ2ģ3ģ4ģ5ģ6bolan 洢test testsql ̨xmlSqlcommonutil_lot_idxmlģģlot_id ̨ģ ϷʳθͨģϺ ģsql SqlcommonutilSqlcommonutil_sub_lot_id人оģxmlcharpd人оxmlģ8Ϸʳxml createPolder Ϸʾϸ1SVMģ̩о оʸ ģlot_idGLOBģ GLOBģxml о1ݸоϷʳζƷtestproϷʳζƷxmlģ10 ̩о1 洢1 ̨ģ2ģ9̨xml2 Ϸʳxml人ණ ̨ģ3̨xml3 ̨ģ4ļൺоо Ϻɵ·wafUtils GLOBģ ൺо1 Ӻض֥1Ӻض֥ݻ ൺоxml 0021ооxml 人 ģ ͨģ1оо 洢 sublotͨ subcocfPage Ϸʳо洢 ණͨģ ģ1111111 Ϸʾ ϷʾwaferӢ Ͼ̨FBC:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLLVBA A qPF9C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXEExcel  p0FC:\Windows\System32\stdole2.tlbstdole 1aL-[DR.E .`M C:\WINDOWS\system32\FM20.DLL?C:\Program Files\Common Files\Microsoft Shared\OFFICE16\MSO.DLLOffice alu*)A'-\4C:\Program Files\Common Files\System\ado\msado28.tlbADODB Qm.5C:\Program Files\Common Files\System\ado\msador28.tlbADOR aMSForms 6qJA[5xz3C:\Users\itadmin\AppData\Local\Temp\VBE\MSForms.exd 0 Import_Ship_Clickkaisx1shtempMain nn (08@HPhSVMYangtze_River_storage_you ̩о2 ݻ1 ݻ2 ϷwaferϷϷϷ1 Clickо1оCOAоpingоtxtϾ̨Click1111 ൺо ൺоZM о1 о2ʿ̨Click1111 人о Ϸʳ ϷʳģоFы@?{k F@bֺ4OBW[ `DF Worksheetew x GWJ_Click creFLTTem creLPDTem creSMPTemclick_1 dateformatgetLotIdCollectionPrettyPrintXmlWriteUtf8WithoutBom Main_޸ͨģ getItemColumngetItemColumn_checkgetsql_type_lotidgetsql_type_check_lotidgetItem_item_typegetItem_ITEM_TYPE_PARENTgetsql_type_allImport_INGOTing_ClickImportCheck_Click Search_ClickCofcPage &&@0 LotFamilyMeas_Search_ClickԲ3_Click 1_ClickOracleݿss̨_createxml CreateXml getcount_qty_createxml_createxml人о_createxmlϷʳ_createxmlо_createxmlGLOB_createxmlϷʳζƷģbeginTxϷʳ_createxmlprǫ_createxml1Ϸʳ_createxml̨_createxml2ModifyReadOnlyAttributeModifyReadOnlyAttribute1qingdao_createxml_createxml connectDBfrontstrcommitTx rollbackTx execQueryVm.execCmdcloseDBPRINTSQLPRINTLogWritXml  DeleteSheetsFileFolderExistsLotGroup isCalOverAllSUBisCalOverAllCreateMultiLevelFolderCreateMultiLevelFolder1getsql_full_inspectiongetsql_spot_check "getsql_process_sampling_inspectiongetsql_crystal_barget_sql_checkall_datasgetsql_all_check_mullot_overall  getsql_spot_check_mullot_overall getsql_typegetsql_type_checkgetsql_all_check_mullot_idgetsql_spot_check_mullot_idget_sql_number determine SVMcharpd charpddanFFq99&m9F B65536 beMO&t a;VBE7.DLLQ= > a eQQwnUSeN TQ=S @ Select(~ ADODB.recordsetQ= AB"hCursorTypeCursorLocationEOF( SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' F' GROUP BY PRODUCT_ID CUSTOMER_NAMEPm.Open PRODUCT_ID Fields CUSTOMER_NAME (\\10.10.152.142\coc\DFWorkbook 6\\10.10.152.142\coc\12[-N#k!jg administrator fthw-82905028 WScript.Network 4Scripting.FileSystemObjectMapNetworkDrive \yrk[7b!jg\ \ .xlsx F2jT@^Y^FP3Ap&tAKQ=@ M a 8Q~qQNvl g[^!jgeN,b/f[^!jgl g>e(Wcknx_ $RemoveNetworkDriveFO&mAKF.W f' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO A&mAK< select sum(WAFER_COUNT) wafcount,PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO from COCMEASSHIPLISTSTD WHERE FILE_NAME=' ORDER_NO PLAN_SHIP_TIME cBg *SELECT cocd.PRODUCT_ID ,MS.CUSTOMER_SUBLOT SUBLOT_ID,DH.SUBLOT_ID SUBLOT_ID1,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'yyyy/mm/dd') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,24),'yyyy/mm/dd') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh " |INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =dh.SUBLOT_ID & INNER JOIN COCMEASSHIPLISTSTD cocd ON cocd.SUBLOT_ID =ms.CUSTOMER_SUBLOT  \WHERE OPE_ID in ('PKG','EPKG') AND FILE_name=' .' AND dh.HIS_CAT ='OC'RecordCount:9FF A3:M SUBLOT_ID WAFER_COUNT HIS_REGIST_DTTM HIS_REGIST_DTTM1 OK notcheMO` zSELECT DISTINCT CONDUCTIVITYTYPE {|W,NOTCHBEAR notcheMO,RESERVED5 beMO,DOPANT cBg FROM CUST_COCINFOENTITY@bip cp WHERE lotid IN (SELECT DISTINCT RESERVE01 FROM F3PRD.DWAFER d WHERE SUBLOT_ID =' SUBLOT_ID1 ')  V[ {|W4 SELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' &' AND MEAS_ITEMS =' "' AND FILE_name=' &' AND MEAS_PCS <>0  MEAS_AVG MEAS_MIN MEAS_MAX NG H&t9InteriorPattern "PatternColorIndex ColorTintAndShade &PatternTintAndShade :I & team & yb!k  gMoveNext 3: Shift Delete K:MFAK mg]ywm res;`eN[bq9 m.zF. Driver={Oracle in instantclient_19_9};Data Source=zhongxin12;Uid=zoomly;Pwd=zoomly;QTO=Fm..|  &team&Q=  a$f| -USv.xlsx A1:M AfterMove -USveN[bT(W A1 Sheet1 Sheet  Name '  H:M` zSELECT DISTINCT CONDUCTIVITYTYPE {|W,NOTCHBEAR NOTCHeMO,RESERVED5 beMO,DOPANT cBg FROM CUST_COCINFOENTITY@bip cp WHERE lotid IN (SELECT DISTINCT RESERVE01 FROM F3PRD.DWAFER d WHERE SUBLOT_ID =' NOTCHeMO ,l g{[kP[yb!kpenc zT(W[QECOC AG1&m9&t a;&tAK NSzƖbO&mAK.W&mAK:9 (' AND PRODUCT_ID =' ,' GROUP BY SUBLOT_ID getRowsEntireRowPasteSpecial AB1 AB2T(W(t9FAK _ _CCMC" ~SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' AB3getnumT DSELECT CUSTOMER_NAME ,PRODUCT_ID,ORDER_NO,BILL_CODE FROM COCMEASSHIPLISTSTD CD INNER JOIN MES_DELIVER_DETAIL MDD ON MDD.SUBLOT_ID =CD.SUBLOT_ID WHERE FILE_NAME=' l' GROUP BY PRODUCT_ID CUSTOMER_NAME,ORDER_NO,BILL_CODE BILL_CODE, SELECT SUBLOT_ID,SHIP_SEQ,WAFER_COUNT FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' &' AND PRODUCT_ID ='" |' GROUP BY SUBLOT_ID,WAFER_COUNT,SHIP_SEQ ORDER BY SHIP_SEQ Z t  SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 24),'yyyy/MM/dd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG')and his_cat = 'OC'   NP&{Sspfind1@ and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( t)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ manufacture_date expiry_date $R[~gD  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c   LEFT JOIN (  P ) )order by SUBLOT_ID, his_regist_dttm  .' ORDER BY SHIP_SEQ)c Formula> SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT v FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT & WHERE FILE_NAME =' '   LEFT JOIN (  SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME ='^ rSELECT DISTINCT SHIP_SEQ,FILE_NAME,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN mes_SHIPTAG ms H ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID  AG3 N, AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' &' ORDER BY SHIP_SEQ SHIP_SUB_LOT_IDMoveFirst MEAS_ITEMS MEAS_PCS MEAS_STDEVQ=1 0ģ11\ jselect MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' $' AND SUBLOT_ID =' $' AND LOT_FLAG='F' AG2 TxmleN[b J') GROUP BY CONDUCTIVITYTYPE,DOPANT &m9&t a; g~mQesetAttributef SELECT DISTINCT CONDUCTIVITYTYPE {|W,AVG(NOTCHBEAR) NOTCHeMO,AVG(RESERVED5) beMO,DOPANT cBg FROM CUST_COCINFOENTITY@bip cp WHERE lotid IN (SELECT DISTINCT RESERVE01 FROM F3PRD.DWAFER d WHERE SUBLOT_ID =' Ͼ̨xml "CopyFromRecordset&tAK&mAK.WO. SELECT PLAN_SHIP_TIME,wafer_count ,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' (' ORDER BY SHIP_SEQ wafer_count& LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL ADODB.Recordset <: SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date FROM F3PRD.DOPE_his  d where OPE_ID in('PKG','EPKG') and his_cat = 'OC' $ )pkg ON c.SHIP_SUB_LOT_ID =pkg.SHIP_SUB_LOT_ID ORDER BY SHIP_SEQ  and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c @ THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT  T' )) order by SUBLOT_ID, his_regist_dttm *' AND PRODUCT_ID =' ,' ORDER BY SHIP_SEQ)c  /& SELECT SUBLOT_ID ,ORDER_NO FROM COCMEASSHIPLISTSTD cd WHERE FILE_NAME=' :' ORDER BY SHIP_SEQ,ORDER_NO:9 CountA >^ rSELECT DISTINCT FILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms 3:3 MAX MIN UNIT FOSB_ID\ jselect MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASdataSUBSUM where FILE_NAME =' WaferInfo Cells >= <= MEANR <SELECT DISTINCT RFID_ID, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( @ SELECT SHIP_SUB_LOT_ID,RFID_ID,Copy AREA_COUNT - *2 CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT " FROM MES_SHIPTAG z ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' 4' order BY SHIP_SUB_LOT_ID RFID_IDspfind* SELECT SUBLOT_ID ,SLOT_NO,READ_WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID INF  (SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c RECEIVE_DTTM> SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT  F ) order by SUBLOT_ID,SLOT_NO desc ( INNER JOIN F3PRD.DBLK_RCV_INFO dw ON c.ROD_USER_LOT_ID =dw.USER_LOT_ID l select to_char(dw.RECEIVE_DTTM,'YYYY/MM/DD') RECEIVE_DTTM ,substr(c.ROD_USER_LOT_ID,1,3)||substr(c.ROD_USER_LOT_ID,5,1)||substr(c.ROD_USER_LOT_ID,7) ROD_USER_LOT_ID,c.WAF_ID,c.SUB_LOT_ID from COCMEASDATAINFOS c  READ_WAF_IDϾ̨_createxml1. WHERE c.SUB_LOT_ID IN (SELECT c2.SUBLOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME =' ' ) " GROUP BY c.ROD_USER_LOT_ID,c.WAF_ID,dw.RECEIVE_DTTM,c.SUB_LOT_ID  R)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID  LEFT JOIN ( ;8 ) c ON c.SUB_LOT_ID =pkg.SUBLOT_ID AND c.WAF_ID =substr(pkg.READ_WAF_ID,1,10) ORDER BY SHIP_SEQ,SLOT_NO desc ROD_USER_LOT_ID SLOT_NOQ=E ! Z&t9 g~mQ:gSS4 SELECT WAF_ID,FNC_EQPID,to_char(HIS_REGIST_DTTM,'yyyy/mm/dd') FNC_TIME,SLOT_NO,LAST_CLN_DTTM FROM ( Q=i 16P e/m/d ` vSELECT d.WAF_ID,dh.HIS_REGIST_DTTM,PROD_ID,dh.EQP_ID FNC_EQPID ,ROW_NUMBER() OVER(PARTITION BY d.WAF_ID ORDER BY dh.HIS_REGIST_DTTM DESC) rn,coc.slot_no,LAST_CLN_DTTM FROM F3PRD.DWAFER d  ,'order by SLOT_NO desc "NumberFormatLocalD LEFT JOIN F3PRD.DOPE_HIS dh ON SUBSTR(d.SUBLOT_ID,0,7)||SUBSTR(d.SUBLOT_ID,-3) = SUBSTR(dh.SUBLOT_ID,0,7)||SUBSTR(dh.SUBLOT_ID,-3)  :) coc ON coc.WAF_ID=d.WAF_ID  j measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' e/m/d TB INNER JOIN (SELECT CAR_ID,MAX(LAST_CLN_DTTM) LAST_CLN_DTTM FROM F3PRD.DCLN_CAR_HIS GROUP BY CAR_ID) dch ON dch.CAR_ID =dh.CAR_ID  INNER JOIN ( tSELECT SUB_LOT_ID ,WAF_ID,SLOT_NO FROM COCMEASDATAINFOS c  &WHERE SUB_LOT_ID ='* WHERE dh.HIS_CAT ='OC' AND dh.OPE_ID ='FNC')WHERE rn = 1 ORDER BY SLOT_NO DESC  FNC_EQPID FNC_TIME bIQ:gS. SELECT WAF_ID,FNC_EQPID,to_char(HIS_REGIST_DTTM,'yyyy/mm/dd') FNC_TIME,SLOT_NO FROM ( SELECT WAF_ID, X ZSELECT d.WAF_ID,dh.HIS_REGIST_DTTM,PROD_ID,dh.EQP_ID FNC_EQPID ,ROW_NUMBER() OVER(PARTITION BY d.WAF_ID ORDER BY dh.HIS_REGIST_DTTM DESC) rn,coc.slot_no FROM F3PRD.DWAFER d querynum querynum1 splititem1 resultitem spdatafindpkgsj +* WHERE dh.HIS_CAT ='OC' AND dh.OPE_ID ='CMP')WHERE rn = 1 ORDER BY SLOT_NO DESC  GrvmQe LAST_CLN_DTTMQ= 4(~findtype"h WAF_ID measdata 0.000Q= 8(~ A:A G:G&mAKFAK ubSy5u .xmleN[b2 SELECT 'MEAS_ITEM_'||COLUMN_NUM CULOMN,ITEM_TYPE FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS = ' ' CULOMN hSELECT * FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' AND WAF_ID =' SP_DATA_STATE ITEM_TYPE 8SELECT LAST_CLN_DTTM FROM ( & SELECT ,to_char(HIS_REGIST_DTTM,'yyyy/mm/dd') FNC_TIME,FNC_EQPID FROM ( & SELECT FNC_EQPID,to_char(HIS_REGIST_DTTM,'yyyy/mm/dd') FNC_TIME FROM (  Rhttp://www.w3.org/2001/XMLSchema-instance& SELECT to_char(HIS_REGIST_DTTM,'yyyy/mm/dd') FNC_TIME,FNC_EQPID FROM (  .xml $MSXML2.DOMDocument WafercreateElementDocumentElement :xsi:noNamespaceSchemaLocation _V0_E.xsd xmlns:xsi yyyy/MM/dd xml ^version='1.0' encoding='UTF-8' standalone='yes'6createProcessingInstructionChildNodesInsertBefore LotappendChild T7Code Clean_ID Clean_Time Thickness ,FOSB_LATEST_CLEAN_DATE GBIR PULLER_DATE PULLER_ID Particle_01 Particle_02 Particle_03 Polish_ID Polish_Time SFQR Slicing_DATE Slicing_Tool Slot_ID WARP Wet_CLEAN_DATE Wet_CLEAN_Tool code .Msxml2.SAXXMLReader.6.0 ,Msxml2.MXXMLWriter.6.0 indent $omitXMLDeclarationcontentHandler Parse Outputfm.em.aUU:U&mU utf-8 ?>  &mU <?xml version=Q=` Q\` a 1.0  encoding= UTF-8&tU&m U&t U$fU&m9&t a; PACK_CMP_DTTMO&mAK.W&mAKB SELECT SUM(WAFER_COUNT) WAFER_COUNT FROM(SELECT SUM(WAFER_COUNT) WAFER_COUNT,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' *' group by SUBLOT_ID)& SELECT SHIP_SEQ,SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name='H SELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyyMMdd') PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,LOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME='$ ' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,LOT_ID LOT_ID `' GROUP BY SUBLOT_ID,SHIP_SEQ ORDER BY SHIP_SEQ  demo:9 $CUR_SUBLOT_WAF_CNT reseN[b *F-HTN0163CAW*r  SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyyMMdd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyyMMdd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG')and his_cat = 'OC'  yb!k*gn25g Y^ rSELECT DISTINCT SHIP_SEQ,FILE_NAME,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms (' ORDER BY SHIP_SEQ Close e!NSy dselect * from COCMEASDATASUBSUM where FILE_NAME =' QwnUSepenc item .csvSaveFAKAK&tAK COA !jgJ SELECT c.ORDER_NO,c.SUBLOT_ID ,substr(c.SUBLOT_ID ,1,7) subid,TO_CHAR(c.PLAN_SHIP_TIME ,'yyyy-mm-dd') PLAN_SHIP_TIME ,c.sublotid,c.WAFER_COUNT,Sheet14 jTO_CHAR(miw.PKG_CMP_DTTM,'yyyy-mm-dd') PACK_CMP_DTTM,. TO_CHAR(add_months(miw.PKG_CMP_DTTM,24)-1,'yyyy-mm-dd') PACK_CMP_DTTM2 ,ROD_USER_LOT_ID  INNER JOIN ( *group by s.SUB_LOT_ID B) DR ON DR.SUB_LOT_ID=C.sublotid  001T DFROM (select ORDER_NO ,PLAN_SHIP_TIME ,SUBLOT_ID ,substr(subLOT_ID ,1,5)||'01'||substr(subLOT_ID ,6,5) sublotid,FILE_NAME,WAFER_COUNT from COCMEASSHIPLISTSTD) c  8INNER JOIN MES_SHIPTAG miw  DON c.sublotid=miw.SHIP_SUB_LOT_ID 8 SELECT s.SUB_LOT_ID ,LISTAGG(ROD_USER_LOT_ID,',') WITHIN GROUP (ORDER BY SUB_LOT_ID )ROD_USER_LOT_ID FROM (8 select SUB_LOT_ID ,ROD_USER_LOT_ID,row_number() over(PARTITION BY SUB_LOT_ID ORDER BY ROD_USER_LOT_ID ) rn sublotidSheet71: FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN (SELECT SHIP_SUB_LOT_ID FROM MES_SHIPTAG WHERE CUSTOMER_SUBLOT IN ( RSELECT SUBLOT_ID from COCMEASSHIPLISTSTD "WHERE FILE_name=' R' )) GROUP BY ROD_USER_LOT_ID,SUB_LOT_ID  ) s &WHERE c.FILE_name=': ' GROUP BY c.ORDER_NO,c.SUBLOT_ID ,c.sublotid,c.WAFER_COUNT,miw.PKG_CMP_DTTM,c.PLAN_SHIP_TIME,ROD_USER_LOT_ID  AN65536 B3:AMC$ select MIN(SLOT_NO) SLOT_NO from COCMEASDATAINFOS where SUB_LOT_ID=' PACK_CMP_DTTM2 subid :MNAPRESP1*1000;MNACPTRE1*1000H SELECT min(MEAS_DATA) MEAS_MIN,max(MEAS_DATA) MEAS_MAX,avg(MEAS_DATA) MEAS_AVG,STDDEV(MEAS_DATA) MEAS_STDEV,count(MEAS_DATA) MEAS_PCS FROM ( d SELECT ROUND(TO_NUMBER(MEAS_DATA),5)*1000 MEAS_DATA FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN (' '))  .SELECT COUNT(MEAS_ITEM_Sheet10 nAND HIS_REGIST_DTTM IN ( SELECT HIS_REGIST_DTTM FROM ( &t9 &MNAPRESP1;MNACPTRE1 &RESISTAIL;RESISHEAD SELECT ' ' S,' f SELECT WAF_ID ,max(HIS_REGIST_DTTM ) HIS_REGIST_DTTM FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN (' (GROUP BY WAF_ID )))  :ACSheet61H SELECT min(MEAS_DATA) MEAS_MIN,max(MEAS_DATA) MEAS_MAX,avg(MEAS_DATA) MEAS_MIN,STDDEV(MEAS_DATA) MEAS_STDEV,count(MEAS_DATA) MEAS_PCS FROM (  :AY A2 A2:ADestinationTypeAutoFill Sub Wafer 3839b SELECT ROUND(TO_NUMBER(MEAS_DATA),5) MEAS_DATA FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN (' *' and FILE_NAME = ' (' and MEAS_PCS<>'0' $ ' T,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM,s.sublot_id,'. INNER JOIN (SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD zc WHERE FILE_NAME LIKE ' t' ORDER BY SHIP_SEQ) s ON ms.CUSTOMER_SUBLOT =s.SUBLOT_ID  Nx ' y,c2.SLOT_NO,C2.WAF_ID ,substr( D.KEMLOT_ID ,1,3) KEMLOT,d.KEMLOT_ID,TO_CHAR(TO_DATE(TS,'YYYY-MM-DD HH24:MI:SS'),'yyyy-mm-dd') TS,d.KEMLOT_ID KEMLOT_ID1,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM1,(AVG(c2.MEAS_ITEM_233)+AVG(c2.MEAS_ITEM_234))/2 date1,(AVG(c2.MEAS_ITEM_229)+AVG(c2.MEAS_ITEM_230))/2 date1 FROM MES_SHIPTAG ms $ INNER JOIN COCMEASDATAINFOS c2 ON c2.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID  jINNER JOIN F3PRD.DLOT d ON d.SINGLE_NO =c2.SINGLE_NO xINNER JOIN CUST_COCINFO@bip cus ON cus.COLUMN65=d.KEMLOT_ID Q=  wafcount4 GROUP BY ms.PKG_CMP_DTTM,s.sublot_id,c2.SLOT_NO,C2.WAF_ID ,D.KEMLOT_ID ,d.KEMLOT_ID,cus.ts,SHIP_SEQ  <ORDER BY SHIP_SEQ ,c2.SLOT_NO  :RESISTAIL*1000;RESISHEAD*1000 >ORDER BY SHIP_SEQ ,c2.SLOT_NO)  Weight SheetsSheet9D SELECT S,T,PKG_CMP_DTTM,SUBLOT_ID,Y,SLOT_NO,WAF_ID,KEMLOT,KEMLOT_ID,TS,KEMLOT_ID1,PKG_CMP_DTTM1,TRUNC(DATE1,5),TRUNC(DATE2,5) FROM ( , INNER JOIN (SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD zc WHERE FILE_NAME = 'Path l S ' y,c2.SLOT_NO,C2.WAF_ID ,substr( D.KEMLOT_ID ,1,3) KEMLOT,d.KEMLOT_ID,TO_CHAR(TO_DATE(TS,'YYYY-MM-DD HH24:MI:SS'),'yyyy-mm-dd') TS,d.KEMLOT_ID,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM,(AVG(c2.MEAS_ITEM_233)+AVG(c2.MEAS_ITEM_234))/2 date1,(AVG(c2.MEAS_ITEM_229*1000)+AVG(c2.MEAS_ITEM_230*1000))/2 date2 FROM MES_SHIPTAG ms d SELECT S,T,PKG_CMP_DTTM,SUBLOT_ID,Y,SLOT_NO,WAF_ID,KEMLOT,KEMLOT_ID,TS,KEMLOT_ID1,PKG_CMP_DTTM1,TRUNC(DATE1,5),CASE WHEN TO_NUMBER(nvl(c,0)) > TO_NUMBER(nvl(w,0)) THEN c ELSE w END DATE1 FROM ( BordersLineStyleColorIndex : ' y,c2.SLOT_NO,C2.WAF_ID ,substr( D.KEMLOT_ID ,1,3) KEMLOT,d.KEMLOT_ID,TO_CHAR(TO_DATE(TS,'YYYY-MM-DD HH24:MI:SS'),'yyyy-mm-dd') TS,d.KEMLOT_ID KEMLOT_ID1,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM1,(AVG(c2.MEAS_ITEM_233)+AVG(c2.MEAS_ITEM_234))/2 date1,TO_NUMBER(MEAS_ITEM_689)*1000 c,TO_NUMBER(MEAS_ITEM_857)*100 w FROM MES_SHIPTAG ms , INNER JOIN (SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD zc WHERE FILE_NAME ='B GROUP BY ms.PKG_CMP_DTTM,s.sublot_id,c2.SLOT_NO,C2.WAF_ID ,D.KEMLOT_ID ,d.KEMLOT_ID,cus.ts,SHIP_SEQ,MEAS_ITEM_689,MEAS_ITEM_857  Range A2:NZ&m9&t a; .total quantity of wafer&tAK&mAK.WO&mAK lot dataN .select sum(WAFER_COUNT) wafcount,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO from COCMEASSHIPLISTSTD WHERE FILE_NAME=' SELECT cocd.PRODUCT_ID ,COCD.SUBLOT_ID ,dh.SUBLOT_ID SUBLOT_ID1,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'yyyymmdd') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,18),'yyyymmdd') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh " ~INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =dh.SUBLOT_ID ( INNER JOIN COCMEASSHIPLISTSTD cocd ON ms.CUSTOMER_SUBLOT =COCD .SUBLOT_ID  \WHERE OPE_ID IN ('EPKG','PKG') AND FILE_name=' MFMM QMK3 MNA = R' AND dh.HIS_CAT ='OC' ORDER BY SHIP_SEQ:9$ INNER JOIN COCMEASDATAINFOS c2 on c2.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID  MMK36 SELECT MEAS_AVG, MEAS_STDEV, MEAS_MIN , MEAS_MAX , MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID ='&t9 wafer dataQ=Y Q  MMCL8 SELECT SHIP_SUB_LOT_ID,WAFER_COUNT ,SUBLOT_ID,c2.WAF_ID,c2.SLOT_NO,C2.READ_WAF_ID FROM COCMEASSHIPLISTSTD c " |INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID $WHERE FILE_NAME =' B' ORDER BY SHIP_SEQ,c2.SLOT_NO $ select c2.SUBLOT_ID,ms.SHIP_SUB_LOT_ID from COCMEASSHIPLISTSTD c2 " |INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c2.SUBLOT_ID  , WHERE c2.FILE_NAME =' (' ORDER BY SHIP_SEQ  MFP5 MWE3 MER2 MEPC4 MNAPRESP1;MNAPRESP2;MNAPRESP3;MNAPRESP4;MNAPRESP5;MNACPTRE1;MNACPTRE2;MNACPTRE3;MNACPTRE4;MNACPTRE5$ measdata,SP_DATA_STATE FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' $'order by SLOT_NO  0.00000 MEAS_ITEM_234 ] rSELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' MEAS_ITEM_857 MEAS_ITEM_859 MEAS_ITEM_860 MEAS_ITEM_861 MEAS_ITEM_862 MEAS_ITEM_867 MEAS_ITEM_868 MEAS_ITEM_869 MEAS_ITEM_870 METKb |SELECT MEAS_ITEM_689,MEAS_ITEM_857,MEAS_ITEM_859,MEAS_ITEM_860,MEAS_ITEM_861,MEAS_ITEM_862,MEAS_ITEM_867,MEAS_ITEM_868,MEAS_ITEM_869,MEAS_ITEM_870 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' (' ORDER BY SLOT_NO  MEAS_ITEM_689 B a 6OXYCONCENHEAD;OXYCONCENTAIL* SELECT MEAS_ITEM_233,MEAS_ITEM_234 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' &' ORDER BY SLOT_NO  MEAS_ITEM_233 MTQC dSELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS =' COLUMN_NUM .SELECT ROUND(MEAS_ITEM_ ,5) h data2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' &' ORDER BY SLOT_NO "SELECT MEAS_ITEM_ l) count2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' f data1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' l) count1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' count1 count2FAK&ma;&m9&t a;&mAK6 SELECT CUSTOMER_NAME ,PRODUCT_ID,sum(WAFER_COUNT) WAFER_COUNT FROM COCMEASSHIPLISTSTD WHERE FILE_NAME='&tAK T7_code.xlsxO.W&mAK 15:15 >OXYCONCENTAIL/2;OXYCONCENHEAD/2 :9&t9 &RESISHEAD;RESISTAIL f SELECT SHIP_SUB_LOT_ID,WAFER_COUNT ,SUBLOT_ID,c2.WAF_ID ,to_char(PKG_CMP_DTTM,'yyyy/MM/dd') manufacture_date,to_char(ADD_MONTHS(PKG_CMP_DTTM-1, 12),'yyyy/MM/dd') expiry_date FROM COCMEASSHIPLISTSTD c  MWEN& SELECT MEAS_ITEM_229-(MEAS_ITEM_229-MEAS_ITEM_230)*SUBSTR(WAF_ID,6,3)/ d data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' CHEAD*5;CTAIL*5, SELECT MEAS_ITEM_220*1000000000 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='2 SELECT ((MEAS_ITEM_239*5)+(MEAS_ITEM_240*5))/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' CHEAD;CTAIL0 SELECT ((MEAS_ITEM_239)+(MEAS_ITEM_240))/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' RRGTAIL;RRGHEAD P. SELECT (MEAS_ITEM_231+MEAS_ITEM_232)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ORGHEAD;ORGTAIL. SELECT (MEAS_ITEM_235+MEAS_ITEM_236)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' $MTQCBMD*10000000000 SELECT (MEAS_ITEM_233/2+MEAS_ITEM_234/2)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' 6OXYCONCENTAIL;OXYCONCENHEAD. SELECT (MEAS_ITEM_233+MEAS_ITEM_234)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ORGTAIL;ORGHEAD@ SELECT DISTINCT SUBLOT_ID FROM F3PRD.DWAF_OPE_HIS d2 WHERE WAF_ID IN (SELECT WAF_ID FROM F3PRD.DWAFER d WHERE SUBLOT_ID IN (' P') AND EXIST_FLG='Y') AND OPE_ID ='CPI'  ',Q= [P JW KEk] a8 INNER JOIN (SELECT SUBLOT_ID, WAF_ID,d.SLOT_NO,WAF_SEQ_NO,SINGLE_NO FROM F3PRD.DWAFER d WHERE SUBLOT_ID IN (' dON dch.SUBLOT_ID =dh.SUBLOT_ID ) ORDER BY SLOT_NO |v b@J%a5x SELECT maxs-slot*(maxs-mins)/CUR_SUBLOT_WAF_CNT sub_Res FROM (SELECT DISTINCT d.SUBLOT_ID,d.SLOT_NO, dh.WAF_ID,dch.COLUMN_NUM ,dch.MEAS_ITEMS,MOD(SUBSTR(d.WAF_ID,6,3),25) slot,dch.maxs,mins,CUR_SUBLOT_WAF_CNT FROM F3PRD.DWAF_OPE_HIS dh ]Әz@;uvӿ: ') AND EXIST_FLG='Y' ) D ON dh.WAF_SEQ_NO =d.WAF_SEQ_NO AND dh.SINGLE_NO =d.SINGLE_NO AND dh.WAF_ID =d.WAF_ID 0 INNER JOIN COCMEASDITEMSSTD CS ON dch.MEAS_ITEM = cs.MEAS_ITEMS AND ITEM_TYPE IN('NC-120') $and SUBLOT_ID IN ( QP 4INNER JOIN ( SELECT d.SUBLOT_ID ,CS.COLUMN_NUM,CS.MEAS_ITEMS ,MAX(dch.MEAS_DATA) maxs,min(dch.MEAS_DATA) mins,CUR_SUBLOT_WAF_CNT FROM F3PRD.DMS_C_HIS dch  Z) AND MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') ˨@m<ٿ^vFCϨEFiV k6 INNER JOIN F3PRD.DOPE_HIS d ON d.SUBLOT_ID =dch.SUBLOT_ID AND d.HIS_CAT IN ('OS') AND OPE_ID ='CPRI' 6 GROUP BY d.SUBLOT_ID ,CS.COLUMN_NUM ,CS.MEAS_ITEMS,CUR_SUBLOT_WAF_CNT ORDER BY CS.COLUMN_NUM DESC) dch "MNAPRESU;MNACREUN O~ SELECT (maxs-slot*(maxs-mins)/CUR_SUBLOT_WAF_CNT)*1000 sub_Res FROM (SELECT DISTINCT d.SUBLOT_ID,d.SLOT_NO, dh.WAF_ID,dch.COLUMN_NUM ,dch.MEAS_ITEMS,MOD(SUBSTR(d.WAF_ID,6,3),25) slot,dch.maxs,mins,CUR_SUBLOT_WAF_CNT FROM F3PRD.DWAF_OPE_HIS dh  NSELECT avgs FROM F3PRD.DWAF_OPE_HIS dh 8 INNER JOIN ( SELECT SUBLOT_ID ,CS.COLUMN_NUM,CS.MEAS_ITEMS ,avg(dch.MEAS_DATA) avgs FROM F3PRD.DMS_C_HIS dch  V) AND MEAS_ITEM IN ('MNAPRESU','MNACREUN') ]"ہDq}^.y8A\p,|QG;, GROUP BY SUBLOT_ID ,CS.COLUMN_NUM ,CS.MEAS_ITEMS ORDER BY CS.COLUMN_NUM DESC) dch & ON dch.SUBLOT_ID =dh.SUBLOT_ID GROUP BY avgs,SLOT_NO ORDER BY SLOT_NO  MPMC MMCLTAVG 0SELECT MEAS_DATA FROM ( $l^NY@U9P =MVu@6 SELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_mclt MMS & INNER JOIN COCMEASDATAINFOS c ON C.WAF_ID =MMS.WAF_ID AND C.SUB_LOT_ID =' l"(ORIENTATIONX*ORIENTATIONX+ORIENTATIONY*ORIENTATIONY). left JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM =' j' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c  f' AND TO_CHAR(HIS_REGIST_DTTM,'yyyy-mm-dd hh24')<=' maxDTTMXЉHJ@B7zVF&G?9n6 INNER JOIN COCMEASDATAINFOS s ON s.SUB_LOT_ID =c.SUB_LOT_ID AND s.WAF_ID =c.WAF_ID ORDER BY s.SLOT_NO  MSPV6 SELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_SPV MMS  MCUNI K8 SELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_BULKCN MMS  MTTMSTRC N' AND EXIST_FLG='Y') AND ope_id='THFT'  fWHERE TO_CHAR(HIS_REGIST_DTTM,'yyyy-mm-dd hh24')>=' minDTTMR <SELECT DISTINCT min(TO_CHAR(OPE_CMP_DTTM,'yyyy-mm-dd hh24')) minDTTM,max(TO_CHAR(OPE_CMP_DTTM+2,'yyyy-mm-dd hh24')) maxDTTM FROM F3PRD.DWAF_OPE_HIS d2 WHERE " WAF_ID IN (SELECT WAF_ID FROM F3PRD.DWAFER d WHERE SUBLOT_ID = '-)HXA2l SELECT MEAS_DATA FROM (SELECT ROW_NUMBER() OVER (PARTITION BY MEAS_ITEM ORDER BY HIS_REGIST_DTTM DESC ) row_num,dch.* FROM F3PRD.DMS_C_HIS dch WHERE SUBLOT_ID IN (SELECT DISTINCT SUBLOT_ID FROM F3PRD.DOPE_HIS dh dvM"@vf |IC}G<׿SCC0 AND (PROD_ID LIKE '%03839%' OR PROD_ID LIKE '%01289G%') AND OPE_ID='TTMC') AND MEAS_ITEM =' (') WHERE row_num=1  MEAS_DATA FW:FW G16 B2 E2 I2 X' and IMPORT_TYPE <>' ' group by IMPORT_TYPE( SELECT SUBLOT_ID ,WAFER_COUNT FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME ='Activate. SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,WAF_ID,ITEM,SHIP_CAR_ID,ROD_USER_LOT_ID,RFID_ID FROM (  R) cd ON cd.SUBLOT_ID=ms.CUSTOMER_SUBLOT ,kYgKa$'tf SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,WAF_ID,max(ITEM) ITEM,SHIP_CAR_ID,ROD_USER_LOT_ID,SUBSTR(ROD_USER_LOT_ID,1,3) opeid,s1.EPI_EQPID,os,oc,PARENTLOTLOCATION,s.RFID_ID,INVENTORYCODE,PARENTLOTID FROM ( t#YO9mk^ơ膵EO2c~@~.0gCe v*F SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,cos.WAF_ID ,(MEAS_ITEM_003/1000) ITEM,SHIP_CAR_ID,COS.ROD_USER_LOT_ID,ms.RFID_ID FROM MES_SHIPTAG ms $ SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' ubCOCeN1S vIzfMSheet8& INNER JOIN COCMEASDATAINFOS cos ON cos.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID  4ORDER BY SHIP_SEQ,SLOT_NO  )  UNION ALL $ ,max(CASE WHEN dh.HIS_CAT IN('OS') THEN dh.HIS_REGIST_DTTM END) os  E12 CassettesD SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,cos.WAF_ID ,MEAS_ITEM_391*1 ITEM,SHIP_CAR_ID,COS.ROD_USER_LOT_ID,ms.RFID_ID FROM MES_SHIPTAG ms " LEFT join (SELECT d.WAF_ID WAF_ID1 ,PROD_ID,dh.EQP_ID EPI_EQPID  E10 E11  CassettesD SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,cos.WAF_ID ,MEAS_ITEM_415*1 ITEM,SHIP_CAR_ID,COS.ROD_USER_LOT_ID,ms.RFID_ID FROM MES_SHIPTAG ms $ LEFT JOIN CUST_COCINFOENTITY@bip cb ON cb.lotid=s.ROD_USER_LOT_ID Q=W 1YpASheet41$ ,max(CASE WHEN dh.HIS_CAT IN('OC') THEN dh.HIS_REGIST_DTTM END) oc N 0FROM F3PRD.DWAFER d LEFT JOIN F3PRD.DOPE_HIS dh ON SUBSTR(d.SUBLOT_ID,0,7)||SUBSTR(d.SUBLOT_ID,-3) = SUBSTR(dh.SUBLOT_ID,0,7)||SUBSTR(dh.SUBLOT_ID,-3)  {enter}: WHERE dh.HIS_CAT IN ('OC','OS') AND D.WAF_ID IN (SELECT c2.WAF_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID IN (  oc&m9 D' AND LOT_FLAG='F' AND FILE_NAME='F SELECT MS2.SHIP_SUB_LOT_ID FROM MES_SHIPTAG ms2 WHERE CUSTOMER_SUBLOT IN (SELECT C.SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME ='. )) AND dh.OPE_ID ='EPI' GROUP BY d.WAF_ID,PROD_ID,dh.EQP_ID ) s1 ON s.WAF_ID=s1.waf_id1  osJ GROUP BY SHIP_SEQ,SLOT_NO,WAF_ID,SUBLOT_ID,SHIP_CAR_ID ,ROD_USER_LOT_ID,s1.EPI_EQPID,os,oc,PARENTLOTLOCATION,RFID_ID ,INVENTORYCODE,PARENTLOTID  ITEM FH PARENTLOTID opeid "PARENTLOTLOCATION EPI_EQPID )FAK ubTvfTeN[b "SELECT MEAS_DATA*  FROM ( "SELECT MEAS_DATA/ $ MEAS_DATA FROM ( &t a;&tAK&mAK hQ!jg.xlsO.W&mAK&t a;:9&t9 Xselect * from COCMEASDATASUM where LOT_ID ='FAK&m9 Y06 hQ!jg.xlsx&tAK&mAK.WO&mAK:9 B' group by lot_id order by lot_id lot_id&t9FAKQ=. ;@@ SELECT * FROM COCMEASDITEMSSTD c WHERE ITEM_TYPE IN ('Wafersight','LSW2','LNSW','SP3','SP5','SP7','lNSW') and MEAS_ITEMS ='&t9Q=x /p@ Value&m9&t a;&tAK PROD_IDO&mAK.W&mAK:9&t9 MEAS_ITEM_240 MData page 1(1) index&ma;FAK MEAS_ITEM_239 Y05* SELECT MEAS_ITEM_235,MEAS_ITEM_236 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='* SELECT MEAS_ITEM_689,MEAS_ITEM_857 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' MEAS_ITEM_235 MEAS_ITEM_236 RRGHEAD;RRGTAIL beBlockS* SELECT MEAS_ITEM_231,MEAS_ITEM_232 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' MEAS_ITEM_231 MEAS_ITEM_232: SELECT MEAS_ITEM_239*5 MEAS_ITEM_239,MEAS_ITEM_240*5 MEAS_ITEM_240 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='Class> SELECT (MEAS_ITEM_227*MEAS_ITEM_227+MEAS_ITEM_228*MEAS_ITEM_228) meas_data FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='Q=f `#^ ferdsIngotPage2< SELECT (MEAS_ITEM_227*MEAS_ITEM_227+MEAS_ITEM_228*MEAS_ITEM_228) measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='@ SELECT (MEAS_ITEM_227*MEAS_ITEM_227+MEAS_ITEM_228*MEAS_ITEM_228) MEAS_ITEM_DATA FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =': SELECT (MEAS_ITEM_227*MEAS_ITEM_227+MEAS_ITEM_228*MEAS_ITEM_228) 1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='< SELECT (MEAS_ITEM_227*MEAS_ITEM_227+MEAS_ITEM_228*MEAS_ITEM_228) vule1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='\tM$:" SELECT MEAS_ITEM_227 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' MEAS_ITEM_DATA;H'1~72JG0)6[Lu( Ϻ΢&m9t"9D#qIngotPage1SHbP7)}&t a;.W B1 + 1+7cocModeu,2B ayS (:9۽}JE4dEKz./H^B,Բ&tAKcocfPagejԛPWG|@*B&mAK&mAK+=h8+3q925~:K~*=h8+3q;Y#MA"!=h8+3qPgv3+3o VBInternalc|E4jcI.;r &mW D5&t9 C5 Paste C6 MData page  OVERALL pSS$o CofC page Page Ingot-list page5m.13 pselect lot_id from COCMEASSHIPLISTSTD where FILE_NAME =' MAIN LOT NO (1)$f| ^select * from COCMEASDATASUM where FILE_NAME =' $' AND LOT_FLAG='T' MEAS_TYPE `select * from COCMEASITEMSTD where meas_items =' meas_items* SELECT sum(wafer_count) WAFER_COUNT FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' MData page 1(Q= 9@$o meas_way MEAS_WAYSheet6Z  Q=0 A=0AZ  Min Max Average STD S.D PcsSheet31F SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN ms.CUSTOMER_LOT ELSE ms.LOT_ID END LOT_ID FROM MES_SHIPTAG ms WHERE ms.CUSTOMER_LOT =', and CUSTOMER_SUBLOT IN (SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' ')Sheet4( SELECT sum(wafer_count) WAFER_COUNT FROM COCMEASSHIPLISTSTD WHERE lot_id = ' $' and FILE_NAME =' Head MEAS_HEAD Tail MEAS_TAIL NMncknxvMEAS_WAY: Max,Min,Average,STD,PcsClearContents DateSheet21 t where OPE_ID in('PKG','EPKG') and his_cat IN ('OC','LO')  F' )) order by his_regist_dttm ASC MANUFACTURE_DATERows Insert "Manufacture Date: "Ym_l=N4l-N#kvfWJS[SOyb gPlQS F ORDER BY c.SUBLOT_ID ,c2.SLOT_NO T(W$ INNER JOIN COCMEASDATAINFOS c2 ON c2.SUB_LOT_ID =ms.CUSTOMER_SUBLOT Sheet3> SELECT c.SUBLOT_ID,c2.WAF_ID,c2.ROD_USER_LOT_ID,c2.SLOT_NO,c2.PROD_ID,SUBSTR(ROD_USER_LOT_ID,1,3) lt FROM MES_SHIPTAG ms , INNER JOIN COCMEASSHIPLISTSTD c ON c.SUBLOT_ID =ms.SHIP_SUB_LOT_ID AND FILE_NAME =' Sub_lot_No Wafer_IDAK a .xls?EqC&2S5BpDȶ'.&m9 $=COUNTA(A1:A65536) A11:L :AD AM:AO LO&t a;&tAK&mAK OeeO.W&mAK" INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =COCD.SUBLOT_ID  SN 2select sum(WAFER_COUNT) wafcount,TO_CHAR(PLAN_SHIP_TIME,'dd/mm/yyyy') PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO from COCMEASSHIPLISTSTD WHERE FILE_NAME='$ INNER JOIN COCMEASSHIPLISTSTD cocd ON dh.SUBLOT_ID =COCD .SUBLOT_ID  R:R Zz SELECT cocd.PRODUCT_ID ,DH.SUBLOT_ID ,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'yyyy/mm/dd') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,24),'yyyy/mm/dd') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh :9 meas_avg :F&t9 10: :gFAK SNqN0|z SELECT cocd.PRODUCT_ID ,DH.SUBLOT_ID ,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'dd/mm/yyyy') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,24),'dd/mm/yyyy') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh  c&m9&t a;&tAK 2:O&mAK.W&mAK:9&t9 A2:al $' AND MEAS_PCS <>0 :KFAK T' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT FWHERE OPE_ID ='PKG' AND FILE_name=' A65536$f| 6l g[^vQ'nUS,b*g{[overallvsQvpenc$f| zselect IMPORT_TYPE from COCMEASSHIPLISTSTD where FILE_NAME ='* select lot_id,product_id,customer_name from COCMEASSHIPLISTSTD where FILE_NAME =' T' group by lot_id,product_id,customer_name IMPORT_TYPE. select SUBLOT_ID,product_id,customer_name from COCMEASSHIPLISTSTD where FILE_NAME =' Z' group by SUBLOT_ID,product_id,customer_name l g[^vQ'nUS \(u[7b!jg\ \(u[7b!jgFileExists  \hQ!jg\hQ!jg- &l g~b0R[^[7b!jg O(uhQ!jgT hQ!jg- \COC \COC\ \hQ!jg\hQ!jg- (l g(WQ~qQNv N~b0R[^vhQ[7b!jgSheet1&m9 Sb_!jgeNQ.O MData page B13 0shipping lot-list page 1O&mAK.W CofC page 1 (Ingot-list page 1(1) (Ingot-list page 2(1)FAKV NsMVer;\98D ]$3 AsoC& fO kP[,C\Xg!bGW!` CofC page 2 F49 @4 SELECT * FROM COCMEASDATASUM c WHERE MEAS_ITEMS = 'MOQCBVAUA' AND LOT_FLAG = 'T' AND lot_id = ' MEAS_Min4 SELECT * FROM COCMEASDATASUM c WHERE MEAS_ITEMS = 'MOQCBVADA' AND LOT_FLAG = 'T' AND lot_id = ' F48 D494 SELECT * FROM COCMEASDATASUM c WHERE MEAS_ITEMS = 'MOQCBVWUA' AND LOT_FLAG = 'T' AND lot_id = '4 SELECT * FROM COCMEASDATASUM c WHERE MEAS_ITEMS = 'MOQCBVWDA' AND LOT_FLAG = 'T' AND lot_id = ' D47 F47 D484 SELECT * FROM COCMEASDATASUM c WHERE MEAS_ITEMS = 'MOQCBCAVE' AND LOT_FLAG = 'T' AND lot_id = ' D46:9 F46f SELECT FILE_NAME ,ORDER_NO CUSTOMER_ORDER_NO,SUM(WAFER_COUNT) SHIP_QTY,SUM(WAFER_COUNT) ORDRE_QTY,PLAN_SHIP_TIME PLAN_DATE,CUSTOMER_NAME,CUSTOMER_PRODUCT FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME = ' ORDRE_QTY B12 PLAN_DATE( ' GROUP BY FILE_NAME ,ORDER_NO,PLAN_SHIP_TIME,CUSTOMER_NAME,CUSTOMER_PRODUCT nSELECT * FROM COCMEASSHIPLISTSTD C WHERE FILE_NAME = ' "' order by lot_id "CUSTOMER_ORDER_NO B10 SHIP_QTY  Wafers B11&t9 Merge &HorizontalAlignment "VerticalAlignment B6 CUSTOMER_PRODUCT B8 B9 ='i\=B;Ja\ARLl}MJeEm \Sheet51&m9&t a;&tAKO&mAK.W&mAK:9&t9FAK&m9&t a;&tAK&mAKO.W&mAK&t a;:9&t9AKFAK B3:CB&m9&tAK&mAK.WO&mAK:9f SELECT ROUND(TO_NUMBER(MEAS_DATA),10)*1000 MEAS_DATA FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN ('&t9FAKb SELECT ROUND(TO_NUMBER(MEAS_DATA),10) MEAS_DATA FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN ('AK&m9&t a;&tAKO&mAK.W&mAK:9&t9d SELECT TRUNC(TO_NUMBER(MEAS_DATA)*1000,2) MEAS_DATA FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN (' systimestamp,' ','   ')AKFAKϺо&m9&t a;&tAK&mAKO.W&mAK&ma;:9&t9 null, ','YYYY/MM/DD'), [eQbREndFAK f data FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' N/f&{S0/0_N N/fpeW[ O9e  N/feC"a :3Bi˷&mAK&mAK&mW9tCL7.&t9$f| vselect SUBLOT_ID from COCMEASSHIPLISTSTD where FILE_NAME ='ïiDI]M$YE;j~T(W4 `1J۪dvC;M`GsubcocfPage~*XGB<ժ'NV pXGJeSheet16AKOV PSELECT DISTINCT CASE WHEN ms.SHIP_SUB_LOT_ID IS NULL THEN ms.CUSTOMER_LOT ELSE ms.SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM MES_SHIPTAG ms WHERE ms.CUSTOMER_SUBLOT =' dselect * from COCMEASDATASUBSUM where SUBLOT_ID ='乸C뙂Sheet81* SELECT sum(wafer_count) WAFER_COUNT FROM COCMEASSHIPLISTSTD WHERE SUBLOT_ID = 'cM  FMiH2bDُf M]F/֤;ET0~h ȸ5I$<cYI* ոGIHqnC,y G/hJŬh+a8.CknN<1( o6GM:a_ mjEkÇUQ֜~L c% H3O꤁&m9&t a;.W:9&tAK_uH֧l#'M(i,OEF,Wٷ6DۧSheet15&mAK&mAK&mWKG0Xf&t9$f|&t a;ʀjwKcsSheet13T(W(m9AKO.W:9˵*HHep_CK2C_9&Up^YÍK/ϵ&tAK&mAK&mAK.O{O]l&mW&t9$f|^+aC#E.OXYCONCENHEAD/2;OXYCONCENTAIL/2i}@}y+Ni, SELECT MEAS_ITEM_233/2,MEAS_ITEM_234/2 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='FAKYH#?X2Sheet12: SELECT MEAS_ITEM_233/2 MEAS_ITEM_233,MEAS_ITEM_234/2 MEAS_ITEM_234 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ޘQـ0"E(u|+04O˓]MG.Mmd9Ex"HopU6îA=T={GN8$`*K+,J`39@7x*=:AK*`¿6JFHlZ&m9&t a;.W:9&tAK>@ #u9~JMj킖DyiOD3DC&mAK&mAK&mW.DNE4&t9$f|&t a;FCOҤkT(W(m9AKO.W:9~X6I_B_3|9X@ 5>_y&-[=Hv4&tAK&mAK&mAK)j>A0PRu{f&mW&t9$f|ѭ1kJC;=T(W(m9AKO&t a;.W&mAK:9&tAK\\>POt&EB,I?@FV@HUR R]"4K +&֔pdWHV&mAK&mW&t9LJ,yK=Bt$f|T(W XAKO&m9&t a;.W:9&tAK簃>r@ǃ2-_KeF2E%@C (F-O*lhA" W&mAK&mAK&mW:2qO\X&t9$f|0G2|#&m9 VT(Wqo!Lw {QcELG6pv{1XEu]2LzTNT=!66EA1kQ BHoowí3A"@eAKO&t a;.W&mAK:9&tAK+|ۿIyz8ھc'sOFusAWZK]3Czԇ c^> I&mAK&mW&t9$ bAxW$f|T(W GAKO&m9&t a;.W:9&tAK to_timestamp(' "','YYYY/MM/DD'),' F&mAK&mAK&mW O9e&t9$f|&m9 Ǐ^ 1T(W}~hEѷ0S<{~Od{J/F .UUSS ShyS time str numAKO&t a;.W&mAK:9z"_=POu~I5WD@@7:w&tAK vpe {pe E&mAKYSDX= ŤB3ł gV'Di^h?=E_@C.D/'@c@=M$dD/$KOp$jyJ这S$0a^EMyjv8&mW&t9$f| [7b T [7bT T USS R]T T MAIN LOT ybS Qwpe YlT(W+c9O_.]u(uL.8lyn\J 'O?ުp M%EvbIF RQ'eg eN T JAKO&m9UsedRange CountgĤIx8<gĤIx8<!  N:Nzz ^'YN  O9eQ=- Ap 'PRODUCT_ID' hMOZ  N/feg'0' and FILE_NAME ='b ~select meas_pcs,Round(meas_min,5) meas_min ,Round(meas_max,5) meas_max,Round(meas_avg,5) meas_avg,MEAS_ITEMS,Round(meas_stdev,5) meas_stdev from COCMEASDATASUBSUM csum where csum.SUBLOT_ID=' .' and csum.MEAS_ITEMS=' meas_MIN 0&t9 meas_min 1:1CopyOrigin:9 A1:AKFAK R\i` ;`.xlsx SaveAs C1 D1 b1 coa GLOBXMLeN CAK:U&mU&mU&tU&m U&t U$fUV^NZ_o)|8fAú@<JiGGkq4}O2 uW40$fHW&~M_$>K8ۏvę+KΑy%qbKњكY&mWHq.2+F _ogގѵ#OVKP~N5`jOr;gsA-kEqXXHJP.=sɝ Gv_CQL)7A'W60Je*~&mW&t9$f|&m9T(Wd诠)s FqG P׷L?УH2C-JXSp5qo2jB>׶AKO&m!&t!.!.|&m|&m .|. $f|&t a;0W:90v!CؤVo5XpkDOsӕ$&tAK&mAK&mAKXpKw 4bXIڠпzPCXrl.Lw0AE O!D/`R9_XoC5KOu`k4fDy#'W2TyAz,&mW&t9&m9T(WTA;AtZSH&0Dle24f̳vsJM@H^OjJԜkOPAKO&t a;.W&mAK:9 ׻~CQj`aCIpd&tAK&mAK|5gLԘշyjIK-gQ\|N-C],BJtB<vT@nXt3{ywMruD(c~O9 ayF#w5{&mW&t9$f|&m9T(Wg4.Ge\{-t"LܫS|AKO&t a;/x| GKkQ5K`bf[&tAK" SELECT SLOT_NO,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='O&mAK.W C7 :) order by SUBLOT_ID,SLOT_NO ~'DN@5ދZLI@rpW= U SELECT DISTINCT SHIP_SEQ,FILE_NAME,SUBLOT_ID,WAFER_COUNT,to_char(PLAN_SHIP_TIME,'yyyy/MM/dd') PLAN_TIME,ORDER_NO,CUSTOMER_PRODUCT, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms:9 C8 PLAN_TIME G6 B31:C31 B31 B5 25 *l g{[P[yb!kpenc zT(W[QECOC&t9 C11 6勇eN Tl g[eQQwnUSh HQ[eQ(WubECOCpenc B7 NULL D勇eN TvOVERALLl g{[k zI{QR(WubECOCpenc OK&NG O8 J8 EntireColumnF  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c & FROM MES_SHIPTAG  V ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT *NL$ )pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO&mAK0|FAK SVMubeN [bZ J$ٳ?D@CXPL8l*@r=n=dtENd OEpBd㳛S KB_T&mW$f|&m9T(W! SFZЩ(PkL0܂<@OEPttbw@AK&t a;.W&mAK:9lV Lu:wDW͝w&tAK&mAK'I"c 2.UQ8F:! O0Lj;.2.Mb~ qP=ύvG"X(P2B6jKA?[/crv`rPIv"yS*UACA j&mW&t9$f|&m9T(Wc92@(O-%2)HL& F/>4hP@k{X7rFS_DAKO&m!&t!.!.|&m|&m .|.  @version='1.0' encoding='Unicode' headitem$f|&t a;0W:9$BĒ^W,5 bI"&tAK&mAK&mAKq)BJ`YWBQ8LQGM-gu ;J)M戾@[+ 12DG_,(tzCE*E O aC'/>MOgDUc &mW&t9&m9T(W:VF T>a5Nn,WEeؘC4oc /O>V<9;6OJ @ylt>&AKO&t a;.W&mAK:9G| ID(yK@ҙQDh9&tAK&mAKi#FO8VAEP}`j5V8APY~DVI~LH3hNa_ \Ně`Qb Cŝ`(``J:\ p&mW&t9$f|&m9T(WqʄD8lK uyDr^Nq|$,9Ӆ I=Ր.xoaJ$ description&mAKX SGtg7$jvvNJHxsO f21#2 IxNqcDvxWN *VgLbDEp _K͖S&mW&t9$f|&m9 U1 MT(WcmA܊έe/L=3eIx&E[ML@ TRACKING_NO lЏUSSAKO&t a;.W&mAK:9qP C'nfE57L~*&tAK lShyS '))) R&mAK k/JA\q>ukFu;Li~^XggOPlƎ&(h.sk F^.E;jij3@Cml BPNQՖGvY>6]a'OG&mW&t9$f|&m9 vgoldtaxcodeT(W90zk@BUZВO^vF hC' GMl .')))) ORDER BY ts desc AKO&t a;~tDh*Ev7DMwg Dm4~&tAK INVOICE_NO SHIP_NO ,' group by SUBLOT_ID)O&mAK.W&mAKP 4SELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyy-mm-dd') PLAN_SHIP_TIME,SHIP_NO,CUSTOMER_NAME,ORDER_NO,INVOICE_NO FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=', ' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,INVOICE_NO,SHIP_NO SELECT vgoldtaxcode FROM so_saleinvoice@bip WHERE csaleinvoiceid IN (SELECT DISTINCT csaleinvoiceid FROM so_saleinvoice_b@bip WHERE VSRCCODE IN (SELECT SUBSTR(U8_BILL_NO, 1, LENGTH(U8_BILL_NO)-1) U8_BILL_NO FROM MES_PACK mp WHERE BILL_CODE IN (SELECT BILL_CODE FROM MES_PACK_DETAIL WHERE SUBLOT_ID IN (SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME='z SELECT TRACKING_NO FROM CCMC_INVOICE_TRACKING WHERE PARENT_ID IN (SELECT DELIVER_CODE FROM MES_PACK WHERE BILL_CODE IN ( SELECT BILL_CODE FROM MES_PACK_DETAIL WHERE SUBLOT_ID IN (SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME=' T:9 b' GROUP BY SUBLOT_ID,SHIP_SEQ ORDER BY SHIP_SEQ  V1 AI3 AI4 )),IF(ISBLANK( )),, SELECT SHIP_SEQ,SUBLOT_ID,WAFER_COUNT FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' z' GROUP BY SUBLOT_ID,WAFER_COUNT,SHIP_SEQ ORDER BY SHIP_SEQ &t9 AI2\ jselect MEAS_ITEMS, ROUND(MEAS_MIN,3)MEAS_MIN ,ROUND(MEAS_MAX,3) MEAS_MAX,ROUND(MEAS_AVG,3) MEAS_AVG,ROUND(MEAS_STDEV,3) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' W:W,Y:AA 0.00 NumberFormat AI1 DFAK -NVE xmleN[b >=$ ),IF(ISBLANK( <=$ ),(IF(ISBLANK( <$.| AA AB AC AD AE AF AG AH AI &=IF(AND(IF(ISBLANK( ),TRUE, $:U&mU J SELECT SUB_LOT_ID ,to_number( TRIM( ) )&mU&tU&m U&t U$fU$f| &m!&t!.!&m|.|~,yN>')¿F2H!haI uJkkR{Dձ5#G]?@rdhEMqBe\. &m PERS0E A<,-40[N5/$9 x GTGyh٪LL!Dhՠ5mHx M&mWV(WAK&m9&t a;jGb|Mex$sdQADpAꌇ" v)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUB_LOT_ID ORDER BY SHIP_SEQ&tAK&mAK.WO&mAK:9 \ )qwer ON qwe.SHIP_SUB_LOT_ID=qwer.SUB_LOT_ID &t9FAKAK.|$f|(m!&t!.!&m|.|.  h,3) data FROM COCMEASDATAINFOS c2 WHERE WAF_ID ='&m yFw;@FkKDA1!uvUA^Xeܒa@~JWC}SOi݄424=%K6HrE&m9&t a;.W:9b=[cI2;Xp:"ț M-&tAK&mAK&mAK$xIROD%}AKO&m9&m!&t![#ώM'.!.|mBy/tX@zr[iaE p)i`J\[6'Xw O8IuR&m|.|&t a;. &m &f|.W:9[=Q@LOnTm)VNS,Z&tAK&mAK&mAKdd2UAzVR &mW&t9&m9T(WșsҚeb{ dE \`W@Y\F1<1] $|C@4<e 5:5&mW&t9&m9 000.###T(W+oRAZ֪$i I@Ǜ:!2JG|O;- Lܡ@'eMF EN EO 6:6AK&t a;.W&mAK:9נ>Cԇ%@ضN ۝N&tAK +EM *EM&mAKwqAVBkgH"2He'FV7z+/F)Cې7ܙESY '"ٌjG!ړ:#Q;5D3w8"HlNͻ_zHPGY,z&mW&t9$f|&m9 *ELT(WFBAKPz^zeOل} >D.eFȩiEsa菀 . <>' ' and SUB_LOT_ID='AKO&t a;.W&mAK:9}~ )mK;t,OhvA&tAK ' and MEAS_ITEM_&mAKHud8Lɬƞuk+#@ REd ÷DN-F tFLOHGNyHPVylKmJj^[qLHRTz@k" hHf:&mW&t9$f|&m9 =SQRT(ELT(W)#LYAD:(PK<|Dz{Bq gdU11GH%:^= :MER2AVG*1.3945;MER2AVE*1.3945AKO&t a; kXQPurchaser(WDhC[~OY2&tAK <' ORDER BY SUB_LOT_ID,SLOT_NO  ','L (SELECT CUSTOMER_NAME ,PRODUCT_ID,SUBSTR(FILE_NAME,-3) BH,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' x' GROUP BY PRODUCT_ID CUSTOMER_NAME,FILE_NAME,PLAN_SHIP_TIME BHu;CݑH,d 03 O&mAK.W&mAKJ SELECT c.SUB_LOT_ID ,c1.WAFER_COUNT ,SLOT_NO ,READ_WAF_ID,to_char(c1.PLAN_SHIP_TIME,'yyyy/mm/dd') PLAN_SHIP_TIME,WAF_ID FROM COCMEASDATAINFOS c " ~INNER JOIN COCMEASSHIPLISTSTD c1 ON c.SUB_LOT_ID =c1.SUBLOT_ID  2ORIENTATIONX;ORIENTATIONY:9 A2:EK2&t9 A7:A SUB_LOT_IDFAK R:NGetFileAttributes" SELECT waf_id,slot_no,sublot_id FROM F3PRD.DWAFER WHERE SLOT_NO='.| SELECT $f| `' ORDER BY END_LOT_ID,END_SUB_LOT_ID,END_SLOT_NOmޣDMBI:U&mU (7KyF 71bBSq-#2D7&mU&tU&m U:?XFpPJ&t U$fU4{K9/ /juK#=E!.'V˨ Ek}NT5noCFegCkqrW(saBfu=(I=:kOV5U )B{BU&mWV(WAK&m9&m!&t!.!.|radn3A-PR$]q*IcbE\ZU >' GROUP BY MEAS_ITEMS,MEAS_TYPE&m|.|&t a;. &m &f|&tAK&mAK.WO&mAK:9A#F8/av8%eY8G={g#k@NБU@d&G~r56&t9FAKt9f^F]oI[Bt@;_(AK:U&mUt@@}YaHNU(Ag,KқN@};4N}KGŝ?HN&mU&tU&m U)0w;H60GR&t U$fU& )pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO desc USER_LOT_IDt SELECT DISTINCT SUBLOT_ID ,SLOT_NO,READ_WAF_ID,bl.USER_LOT_ID FROM f3prd.DWAFER dh LEFT JOIN f3prd.DLOT dl ON dh.SINGLE_NO = dl.SINGLE_NO LEFT JOIN f3prd.DBLK_RCV_INFO bl ON dl.KEMLOT_ID = bl.USER_LOT_ID WHERE SUBLOT_ID INd;$HUU2&mWV(W&m9&t a;.W:9UћD9:4FŵA&tAK&mAK&mAK< EGk:+9/L7 NuXe`W0BO\PZ cFY]#hM`(P>;H5Bm2/{5 !QKwWm&mW&t9$f|T(WS!AW[l2_M56aޚsD=b}]KfTAKO&m9&t a;.W:9<K^%7ZڙC<q&tAK&mAK&mAKD\XrMJ<Ѡzq[ðA>5-U omM҈m+n[Ma=?qNBY_$: Q@rS" +߮@7u+&mW&t9$f|T(WadO@F46M ;5H}19':qC*uN7V>AKO&m9&t a;.W:9 bîE9IPk@ pEE3nfn)&tAK&mAK&mAKx.^/Dod@V4DG; L8my5Mlnd;kBu/X^O=fpQ C =402ElN%Z PAgO!{ʭƌ=UI0Hģħ&mW&t9$f|T(WݷtDKg:B'"L= mH=ؗ5G4^6J= AKO&m9&t a;.W:90DTSF@ LtQDZ0Kgekl&tAK&mAK&mAK:>}J{ƍKSK*/ 3 :KZ` 5G~:?h@ZLGہd@l &mW&t9$f|T(We2Lk2a!T@P GGܬEMb7ǔ6FpaG5rbsCh+P @AKO&m9&t a;.W:9F A1 @|F%X &tAK&mAK&mAK:G8O_L@e|EZJ2Fuj6$F>fp)O1*}ȡ{D# ƂifTd1JcD[s F4 g9XJK$ kΟh&mW&t9$f|T(Wqf O1(9ɡlFF[# %F TJKO´9AKO&m9&t a;.W:90,ږ8qJ= v`QMoI+&tAK&mAK&mAK"EFIph dL->- O._BQ|i>baݼ5;aI%0#w E9\tB1ee CS9ԣZ"#ݛN2 BWDI&mW&t9$f|T(W~sLGj@_GEx5N2,4*NnkOT&K-B?*JIyU 8' order by sublot_id,slot_noAKO&m9&m!&t!.!.|1dNhtIH(~ "' AND SUBLOT_ID=' waf_id&m|.|&t a;. &m &f|&tAK -res.xlsx&mAK ^' GROUP BY SUBLOT_ID,SHIP_SEQ ORDER BY SHIP_SEQ END_SLOT_NOO.W&mAK& SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD c WHERE FILE_name='L *SELECT PRODUCT_ID,PLAN_SHIP_TIME,to_char(PLAN_SHIP_TIME,'yyyymmdd') PLAN_SHIP_TIME1,CUSTOMER_NAME,ORDER_NO FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' v' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO PLAN_SHIP_TIME1 #:9& SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' $' AND END_LOT_ID=' END_SUB_LOT_ID^ rSELECT DISTINCT FILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN mes_SHIPTAG ms AI5 H2 AI6 AI7ځL 2 SELECT SUM(WAFER_COUNT) WAFER_COUNT,SUBLOT_ID,lot_Id FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' 6' group by SUBLOT_ID,lot_id2 SELECT END_SLOT_NO,END_SUB_LOT_ID,END_LOT_ID,MEAS_AVG FROM COCEQPRESDATA WHERE END_SUB_LOT_ID='mHnK-]4cFAK ͑^NV resTxmleN[b  e-COA format- g.xml-WxCSX4)NW>H[vUHō$%&:U&mU?N?H28K6n+&A9_aFH܍AAXJ=[aM"M-&mU&tU&m Uڅ[&mW&t9$f|T(W4dgME͌9) A8!) GmEki CŋNI(AKO&m9&t a;.W:9BiquH$(6E^6RR&tAK&mAK&mAKrjXH}7iխCfK}D?C&{ E_B]oSC`OMn.e27mJ8IԽ뎐@cbC{gNpKKH|\hs/vo=B ףhM&mW&t9$f|E IfԪ}7T(WL_vQIu.U^奄/BNϱ ̽H1]4 $HF ^hQKmՋ~gRh L:RAKO&m9&m!&t! mindttm.!.|)@FPyA,, l/Gy&mWV(W.OY\@"ugja1E.$&m9 TSELECT qwe.SHIP_SUB_LOT_ID,qwer.* FROM ( &m!&t!.!.|&m|&m .|.  jSELECT SHIP_SEQ,SUBLOT_ID ,WAFER_COUNT,LOT_ID FROM $f|&t a;0W:9'_Y_nD9:jB%A~&tAK&mAK&mAK9 8G=C,|TMÍJsdK/tE2JK9b oPEIYO 4|TacK%Лw CuCy&mW&t9&m9T(W$W H_%e5|rSMF @ hW=&XbA)#klTLpAs ( )qwe LEFT JOIN ( AKO&t a;.W&mAK:9=BAxlZtcC &tAK & WHERE FILE_NAME= '&mAKgĐM@u%aNȄ}^J×IAP`#DAFߗ?Eq5W3rA~fד228IȢM+\!O,u0jJ C𾴱&mW&t9$f|&m9T(W8FܳN -+={VwA1a‚@z΢d3'Oܵ_CU ( COCMEASSHIPLISTSTD AKO&t a;.W&mAK:9qzoE@UGbqpK+&tAK *' AND MEAS_PCS <>'0' &mAK 0KWIRV~%wESLȉ$]cpF17lRљ"M,~`Q؋iiMqo/GB]֎L-J9gl U %L^BM1SN8{2R&mW&t9$f|&m9T(WkĊNIC8Nx DC EM ,Brightness (gloss) (%)AKO&t a;y# GSH`OTu?En *U&tAKWorksheets F5 :Q~qQNv!jgeNl g>e(W[^MOn b[^_l g!jgeNO:9 F7( SELECT PLAN_SHIP_TIME,FILE_NAME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' yyyyMMdd _001.xlsx&mAK.W&mAK4 SELECT DISTINCT LOT_ID FROM (SELECT LOT_ID ,SHIP_SEQ FROM COCMEASSHIPLISTSTD c WHERE FILE_name='" ' GROUP BY LOT_ID,SHIP_SEQ ORDER BY SHIP_SEQ ) ORDER BY LOT_ID  h/10 data1 FROM COCMEASDATAINFOS c2 WHERE LOT_ID = ' :J6 SELECT SUBLOT_ID,WAFER_COUNT ,PLAN_SHIP_TIME ,ORDER_NO,LOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' ' and LOT_ID=' $ SELECT * FROM ( )))WHERE rn =1  d data FROM COCMEASDATAINFOS c2 WHERE LOT_ID = 'N 2SELECT LOT_ID ,CUR_SUBLOT_WAF_CNT,manufacture_date,expiry_date ,ROW_NUMBER() OVER (PARTITION BY LOT_ID ORDER BY manufacture_date,LOT_ID ) rn FROM ( & SELECT DISTINCT LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' F13v  SELECT LOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyyMMdd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyyMMdd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG')and his_cat = 'OC' and LOT_ID in(  D80L $ SELECT DISTINCT c.LOT_ID ,CUR_SUBLOT_WAF_CNT,MANUFACTURE_DATE,EXPIRY_DATE FROM (SELECT LOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' :)pkg ON c.LOT_ID =pkg.LOT_ID  JOXYCONCENHEAD*1.96;OXYCONCENTAIL*1.96 data1&t9, SELECT DISTINCT t1.LOT_ID,CUR_SUBLOT_WAF_CNT,manufacture_date,expiry_date FROM (  X )t2 ON t1.lot_id=t2.lot_id ORDER BY LOT_ID  Q:v =MAX(Fb ~ SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME ='  ) t1 JOIN (  8)pkg ON c.LOT_ID =pkg.LOT_IDb  SELECT SUBLOT_ID,LOT_ID ,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyyMMdd') manufacture_date, to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyyMMdd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG') and his_cat = 'OC' and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME ='V N SELECT DISTINCT FILE_NAME, ms_lotid,LOT_ID FROM ( SELECT DISTINCT FILE_NAME,ship_seq,ms.LOT_ID ms_lotid ,CASE WHEN ms.LOT_ID IS NULL THEN CUSTOMER_LOT ELSE ms.LOT_ID  N' GROUP BY MEAS_ITEM_231,MEAS_ITEM_232  ,' GROUP BY MEAS_ITEM_4 END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN mes_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID  L'ORDER BY ship_seq ) ORDER BY LOT_ID  & filename & Text #DIV/0! Q:U data2 =COUNT(Q( SELECT MEAS_ITEM_227,MEAS_ITEM_228 FROM COCMEASDATAINFOS c WHERE LOT_ID = ' N' GROUP BY MEAS_ITEM_227,MEAS_ITEM_228  MEAS_ITEM_227 MEAS_ITEM_228 =AVERAGE(Q :Q =MIN(Q =MAX(Q =STDEV(Q( SELECT MEAS_ITEM_229,MEAS_ITEM_230 FROM COCMEASDATAINFOS c WHERE LOT_ID = ' N' GROUP BY MEAS_ITEM_229,MEAS_ITEM_230  MEAS_ITEM_229 MEAS_ITEM_230( SELECT MEAS_ITEM_231,MEAS_ITEM_232 FROM COCMEASDATAINFOS c WHERE LOT_ID = ': SELECT MEAS_ITEM_233*1.96 MEAS_ITEM_233,MEAS_ITEM_234*1.96 MEAS_ITEM_234 FROM COCMEASDATAINFOS c WHERE LOT_ID = ' N' GROUP BY MEAS_ITEM_233,MEAS_ITEM_234  MEPCDIA MEPCVH MEG2NVORD MEPCVANG , MEAS_ITEM_* ' AND SUB_LOT_ID IN (SELECT c.SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE LOT_ID =' ,') GROUP BY MEAS_ITEM_ atom/cm2 "Na (E10 atom/cm2) (/10 data1,MEAS_ITEM_ j/10 data2 FROM COCMEASDATAINFOS c2 WHERE LOT_ID = '\ dselect MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUM where FILE_NAME =' ' AND LOT_ID =' F' AND LOT_FLAG='F' and MEAS_ITEMs='b  LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT  6' ORDER BY SHIP_SUB_LOT_ID  A1:A9999&ma;FAK uby^KfNSeN[b.| x SELECT dd.SUB_LOT_ID,slot_no,item FROM ( SELECT * FROM ( "h  item ,'l  LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME ='  )sb1 LEFT JOINB (SELECT UPPER(substr(SP_DATA_STATE,0,INSTR(SP_DATA_STATE,';')-1)) STATE , sub_lot_id,waf_id,slot_no FROM COCMEASDATAINFOS )C l ON sb1.SHIP_SUB_LOT_ID=c.SUB_LOT_ID ) cc LEFT JOIN (Q=k 0e UPPER(ITEM_TYPE) ' a ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME ='j ') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' ' )  union all * ) dd ON dd.waf_id = cc.waf_id AND dd.A = cc.STATE ORDER BY SUB_LOT_ID,SLOT_NO xSELECT COLUMN_NUM FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS = ' MEAS_ITEM_& SELECT UPPER(ITEM_TYPE) FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS = '$f|&m!&t!.!&m|&m .|. ǵo5 OLȮhizBl,בcBmYWuDu3B SELECT CUSTOMER_NAME ,PRODUCT_ID,to_char(PLAN_SHIP_TIME,'yyyy-mm-dd') PLAN_SHIP_TIME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' A3:AU" |' GROUP BY c.SUBLOT_ID,ORDER_NO,INVOICE_NO,ms.SHIP_SUB_LOT_ID  ^hQKmՋ~gh5NC#\ fselect ORDER_NO ,SUM(WAFER_COUNT) WAFER_COUNT,INVOICE_NO,PLAN_SHIP_TIME from COCMEASSHIPLISTSTD c INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID where FILE_NAME =' `' GROUP BY ORDER_NO,INVOICE_NO ,PLAN_SHIP_TIME  W,gOo` select ORDER_NO,c.SUBLOT_ID ,sum(WAFER_COUNT) WAFER_COUNT,INVOICE_NO,TO_CHAR(min(ms.PKG_CMP_DTTM),'YYYY-MM-DD') PKG_CMP_DTTM,TO_CHAR(ADD_MONTHS(min(ms.PKG_CMP_DTTM), 12)-1,'YYYY-MM-DD') PKG_DTTM,ms.SHIP_SUB_LOT_ID LOT_ID1 from COCMEASSHIPLISTSTD c INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID where FILE_NAME ='L $SELECT ms.SHIP_SUB_LOT_ID ,c.SUBLOT_ID FROM COCMEASSHIPLISTSTD c INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_name=' V' GROUP BY ms.SHIP_SUB_LOT_ID ,c.SUBLOT_ID :Q*u|@6J }Kz~R +M9߮~^eTG&lK& SELECT COLUMN_NUM,ITEM_FLAG FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS =' ITEM_FLAG bhD SELECT ROUND(SQRT(ABS(MEAS_ITEM_227*MEAS_ITEM_227-MEAS_ITEM_228*MEAS_ITEM_228)),4) oox FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='. select (MEAS_ITEM_689+MEAS_ITEM_857)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='. select (MEAS_ITEM_231+MEAS_ITEM_232)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' 8:10 A10UI -J&[1Ml"WQl+kdI; . select (MEAS_ITEM_229+MEAS_ITEM_230)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='0 select (MEAS_ITEM_233/2+MEAS_ITEM_234/2)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' 'and MEAS_ITEM_ 0 <>' ' ORDER BY SLOT_NO . select (MEAS_ITEM_233/2+MEAS_ITEM_234/2) DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='. select (MEAS_ITEM_233+MEAS_ITEM_234)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' f,4) DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='. select (MEAS_ITEM_235+MEAS_ITEM_236)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='. select (MEAS_ITEM_239+MEAS_ITEM_240)/2 DAT FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' .select ROUND(MEAS_ITEM_ . <>' ' ORDER BY SLOT_NOAK&mWV(W&m9&t a;.W:9[fA YOU@`&tAKYsAL*0H;|zA]G &mAK&mAK&'FG]Ap:@Mc&^cAݲMB~I݉2 Q]D޿UB6)(Nʐ p,&0+NdG휎-` F+a&mW&t9$f|7MVkH,X^ pselect MEAS_ITEMS,min(MEAS_MIN) MEAS_MIN,max(MEAS_MAX) MEAS_MAX,avg(MEAS_AVG) MEAS_AVG,avg(MEAS_STDEV) MEAS_STDEV,sum(MEAS_PCS) MEAS_PCS,MEAS_TYPE from COCMEASDATASUM where LOT_ID IN ( D) AND LOT_FLAG='F' AND FILE_NAME='>̘GeFWKAKO&m9&t a;.W:9:I([j7HV&N}&tAK&mAK&mAK4@zJdkjA縫4AꔈDCChAJn_} }L9oKOK0hE @Q;N6;7LIlmh}d\z99DjA&mW&t9$f|T(WT>iFY4͵$HF|o=AKO.|.OFAKϒ,e3Lni6DgA7?M&m9&t a;.W&mAK:9|bB|WqB%KM@&tAK&mAK2DFOkHSyYPA|GyEᇢTB]kϒJ,נHM3 /1G͞઻M:BpISc m]wIYy*_ikC@m;B&mW&t9$f|&m9T(WW'(Is5Q?\uO<^p!z=A3vp߫eq}C7AKO&t a;.W&mAK:9;`\ZnA.ƁEX(.,ZHpc&tAK&mAKuWC{K&HqtGʼn>y%FMx[kOЄ?B BU}[GY=vERbOGp<Ct' /H^2dMFwW&mW&t9$f|&m9T(WKy4wjz0F_:`id]+NǓX6.viGS<AKO&m!&t!.!.|&m|&m .|. $f|&t a;0W:9<}CJ`Niٖ!d&tAK&mAK&mAKv. osCyhǭ'!9HN_4I8FFOU1VTc{F׀mEDxFJ-j~s[O\D(WQ ֹKy` 1 X@;Y8ϐi-I66 $Ax^q>F$M=?dQ@+daJ15A9Zc&mW&t9$f|&m9T(W 5}`E ?r`ojZD~iye5rjJݗ1G:DkBq[}K2 :JuSWOEп5n'`FؘAKO&m!&t!.!.|&m|&m .|. s@N N݇MH_U4K(FiX 5D}ωSXAo=c8r(Gx[olFaJ "!&mAK&mAK$B%+jFHͯ2{,KX./B;^''lgK/ R/*9ƀ$kK$|~E`,}J>tOCnr3F.MI˄7J#d{&mW&t9&m9 E1T(W>KbMS` t絆@by&νeZa9/mBF|M; H1W%I\J}ΐ[DT!ӲAKO&m!&t!.!.|&m|&m .|.  j,3) data FROM COCMEASDATAINFOS c2 WHERE MEAS_ITEM_$f| eQPoitem&t a; -by lot.xlsxYE|-p~G NotchOrientation UCL&tAK&mAK.WO&mAKL $SELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME+1,'yyyymmdd') shiptime,CUSTOMER_NAME,ORDER_NO ,customer_product FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' InspCharac( ' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,customer_product customer_product shiptime ,' GROUP BY SUBLOT_ID ; T1 l' GROUP BY SUBLOT_ID,wafer_count ORDER BY SUBLOT_ID ;  AE1 RAW:9( SELECT SUBLOT_ID,wafer_count FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' ]ubTkYT TeN Tk -by wafer.xmlZ `SELECT DISTINCT FILE_NAME,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN mes_SHIPTAG ms &'ORDER BY SUBLOT_ID PKG_CMP_DTTM1 PKG_CMP_DTTM2\ jselect MEAS_ITEMS, TRUNC(MEAS_MIN,5)MEAS_MIN ,TRUNC(MEAS_MAX,5) MEAS_MAX,TRUNC(MEAS_AVG,5) MEAS_AVG,TRUNC(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' AH1 AH2 AH3 $hKmpeϑNA1USCQPLTo f1|ga=ERX7 &tAK"O&mAK.W&mAK:9&t9&ma;FAK.|$f|(m!&t!.!&m|.|. &m 7>7KZJW MNAwY" {HBP5uk߇יIc `򝩅aD۱6EIzߚQu*\/M;FAAKO&m9&t a;.W:9W;~A4x>1"Ǟ+NV@ `&tAK&mAK&mAKǵ uO3 tْIxc]CjVDIw?ځB5E;zj2o?)/KƎyIniD_fNK(axzVDi.]{;>]NQ&mW&t9$f|T(WO!*H$3ydsE}r9!^L3mCXAKO&m9&t a;.W:9חkID0Bg;YHnj.&tAK&mAK&mAKY,Ap,Vw)6b^sN\!hu# Ku fLw/\ÔnVGB.-Au>9VJަ^uٍJKwFDDw>i9FC3&mW&t9$f|T(Wq=SAY`k V ݭAg*4]CsO)EӲHa&mW&t9$f|T(W T2?D%0a!:6/VaOeqq&cE*!*գGd]\AKO&m9&t a;.W:9PaD*}5PX`sCruJ&tAK&mAK&mAKM8;LվIH_u,=H :5տ;`űWOq[ް"Od3Gl{K+/IF̾xՈk>XFDHnE|IYtM@ 8~CUE&mW&t9$f|T(WbI$OqUG̙H6AKO.|&m!&t!.!&m|&m .|. FAK&mU:U&mU&tU&m U&t U$fU+#59/C(JM3}&mAKp?4MС@s7WK Q((w2Y0E@z*6E&]BadN;Z\IEATJS,3R'C%NK>S EFj&mW&t9V(WAKO&m9&t a;.W:9&/s]Kt(:/܇ns[Kb&tAK&mAK&mAK-+m׳E2tw;o |`"Kur3MHM FoFZI-vjA:g^0H.x~~s(D$Ǩ^;Ύy%hB}P2aB V,&mW&t9$f|T(WudT4G KTkOm8G*A.ح+p ]J3Bsee|FihOAKO&m9&t a;.W:9|Q$HO!H[fjL&tAK&mAK&mAK=Q F.e%kSVjFLM:7 G:+0xYAa~tӷ:Gau-[I~8!u G`nDhb2&mW&t9$f|T(W" b x>6{IbtX2 KER, ?Ez}[&mW&t9$f|T(WEC*N+"*x7tL=\ZC;?CbYdjF% Hn\AKO&m9&t a;<hEM|uAh(.!&m|&m .|. ©Dܐ\q,Q:mGɻ\ pOI- ()JP" jJxx1I&mWV(WAK&m9&t a;.W:9c#ZKq|cP˷9 FK&tAK&mAK&mAKIAK-ML(qn{'aEquI<@ubfi70ND5S=Jwt>Hc+9J_&mW&t9$f|T(WeVS.BFR/xnꖮ&KƲs a,E 5}n8<8SuIn ZAKO&m9&t a;.W:90*KISZGI2Bۄv&tAK&mAK&mAKR:n Bbg2|.J- kQT'M)a&Eңi=TIuPc=}FSE]p'U>F>.=v?F+T9L7Fy&mW&t9$f|T(W,}Cd@% ^޿NtCme\DKjB 6azO>hpAKO&m9&t a;.W:9mRnJ?vf9 L(oqW&tAK&mAK&mAK$D#P8@":78KL)ظOUHN[ub$A~0""[0@x-:ÙwfC@~GP@CLVJ*l;;X[IS&mW&t9$f|T(W=uNV3jk5B\bѨ=1@= DRrq7BWހ1gnAKO&m9&t a;.W:9c9eFeE^Rbwf&tAK&mAK&mAKӵ=)}*@'I7r GE'G/j.+J!4ø!MAߎE0\Dc _qq3@XaV4QrTDlt}~,Ggv"J&mW&t9$f|T(W;OSl,@mPsh|wD'Ho=K]@ sIؐI[OAKO&m9&m!&t!)~MVOԚK.!.|9'!UGF]GWXaOAb~u|HK:c`UuI)O  N S?珞&m|.|&t a;. &m &f|.W:92c[=yH' {켬*p5| I{̜T #H 9W &tAK&mAK&mAK@>{MBNq&mW&t9&m9T(W\Ka_DF59%7 0H0NDG-ǴCblV`g,NBT>?AKO&t a;.W&mAK:9[tgGt~ۙU+Kn#,'|&tAK&mAK =Ao|&HW5K2(/MM]f^T@!1eG8-53HU8d ^A=MNEg3O)B~/L/;&mW&t9$f|&m9T(W#:U&mUU^^U_AQ8[.A LJirK`fҾPaH7I&mU&tU&m U'|YL{ɲ}&t U$fU$f|EY;qB:,D'BM9uQ&mWV(WAK&m9&t a;.W:9~sHYri-I*>u9LPd&tAK&mAK&mAK#GL1UL X]LsDfW|}c%(VO|]J#v19{A}bu W!kKge"^ eTOAcڭ6ebiB (CC&mW&t9$f|T(Wb-NH KFnW OcFFO@t߉OFʹ].cKWjIAKO&m9&m!&t!`6E:.!.|'[ NfP|2KԠ`ɲM{-' N}TF*U>5HJHI<&m|.|&t a;. &m &f|.W:9 FM0fסpŽ]0@rJ}"ZL)z^Ş&tAK&mAK&mAKA^D2@< (&mW&t9&m9T(WrnrI xG&M`QjL5 A3plJF?wA{,8wAAKO&m!&t!.!.|&m|&m .|. $f|&t a;"/&eLU_)WjPG^v8$fU&tAK&mAK.WO&mAK:9&t9FAK:U&mUOIXzԘOlo\KIEة"OSBe㗈?&mU&tU&m U:ݿC)AB]W|&t U$fUJhC{C1Iҩ¬Px.Hʎ?&Z&JK,v?Z/Dx/^*mJMO!,ǡ,&yFD1G1B#_?E&mWV(WAK&m9&m!&t!FF*@coME.! 2 GK&x/-KVD\OE.|i@yVJE߱^S NB+ x2Aa3GA&m|.|&t a;. &m &f|.W:9(Ih\KAP"V歈!N^~zZjH( &tAK&mAK&mAK[i3eGTt/Q&mW&t9.OT(WiFIHOEdImvQ@)AKOFAK&mU:U&mU&tU&m U&t U&ma;T$yZ5ItJ&1_M$zİq&m9"&t a;.W&mAK:9T+-F1ђȠ-|lM,w&tAK&mAKo-K+/UIʥORc2C r\pMD`څ 㵝B[8S)3D۪uaD|'>S" OhQ1r ,OXCxӨ@c &mW&t9$f|&m9T(W=K+&mW&t9&m9T(W=b9Bm ,<hDMO BE3H:L[N~2Db&1AKO&t a;U=?/J/W];mO5JW6&tAK"O&mAK.W&mAK:9&t9&ma;FAK.|&m!&t!.!&m|&m .|. z ZOWhξI%B;kN BN'>CJ-+y7)$f|:UU8|bNݻRB|5[Lv.f9/@/fwmlLc#V>P@m2Fw&mU&mU&tUcBaדM.'&m U&t U$fU //wIg\g .&mWV(WAK&m9&t a;6ϧzJܤGqwEKNV"&tAK&mAK.WO&mAK:9FAK.|:U&mUV c,FDA`I[/Ee/yϑ&mU&tU&m U\HF&t U$fU$f|>+&ƳC?!| h>C/U&t9&m!&t!ؔ*7EX:G.!&m|&m .|. ۘ0lL j?bPpN~G_oiGU`Ogn;mVHWli`{JvoiV&mWV(WAK&m9&t a;.W:9W1H#9^$B 23T&tAK&mAK&mAKbS) HG I'v.HY7儼zM5KmAFz5LE?ρr'IN"QGeHE5 0GFCo|YeK̽ Q&mW&t9$f|T(WJ6J-YhBRBݵP=A " HhF2kXDVHAKO&m9&t a;lwOIjL,AIBKAE"&tAK&mAK.WO&mAK:9&t9FAK.|:U&mU&mU&tU&m U&t U$fU$f|):z@w VFY5t-EUK5Yl7fH"01lGv"'aCaCI* GOCmCyY2͕A}fs.%-;Gc4\](mWT(WbK*N#GBL/%`@ ӀA3"Lε;SN*nƪTqDatAK&m9&m!&t!.!.|G9]bC3U>9DڙA 8&m|.|&t a;. &m &f|&tAK&mAK.WO&mAK:9&t9&ma;&mWFAK@Ju}@TAKOKbZMTwIGT2.K!{RMvXKՈhQK1A9dp>Y 'K@yI 0n8gDdh>AKT(W19~oi@pʓbBTL9o .O&mOF &mW [eQQ'RNI[7-3U>YA m}w'#Gi+  ]MKO._WteQ!9<ska;counts q&FileNamelotidxmldoccontentitemitem_arrxmlFilestrstrSql !30rs sSqlstringsStringexcel strFullPathrowcolsPathnumlowCharupChar uomcolumnkk GPmeasitem measitemssublotwafid strResultcharspstateAB "*p currentPathcurrentFileNamelotCountproductcustomer modePathNamemodeNamemodePathsavePathCofCFlag Ingot1Flag Ingot2Flag mdataModePageModeFile Ingot1Index Ingot2IndexZrU@@@~x aS "a  Z__SRP_2NRD8__SRP_3Ij__SRP_4QSO__SRP_5W $hrU@@@8`@a`P@`aOP`PPbrU@@@~xHiHiXHi aS S SPrU@@@8`8a`8`brU@@@~x a0 0 0 __SRP_6L\[__SRP_7`T__SRP_8UWf__SRP_9irU@@@P`P`P`brU@@@@~x  aS4rU@@@8`brU@@@ 8 `8a `8 `b__SRP_aVZU__SRP_bl__SRP_cY[p__SRP_dtrU@@@~x  = a z9a|a?zAQM AQQQQ! z3?aAaCCDaE0[ AFFCqFFFAGHHHAII1JJJJK\ NqO?aQaєa1aAa!!aѢfhq1?a1Qia]^eaioprrArQjrQttt!uQuuvwqwAw;Aaaaq!QAqAqa!|&ggdZhhPg"Plg gg gg{@P&h~KIgg4p Z8gdZhhPgPKgL 8hI(h8 g{gg  g( aggg<POOh`hgF@  @!U" g*#\fHg&$%g$&g'g(g)g*hg gPgg(+ 8ag(,  agD @ @h @8-gPggn.OOh/O8O /O` h8 g@qO0Ohb^1hgRqO0Oh`  hg 2Z3` .PqOh/O8O /O` h8 g$qPOg gqPO80O aqO0Oha 8h gggqPO80O aqO0Oha 8h g ggL 8h4I(h8 g{ggPKjg. @85g8ggRqPO0Oh`  h@Hg 0H`xqPO0OhaZehgFegN6Zp7gg `g8hg h9Ohg h:Ohg h;Ohg h<Ohg h=Ohg h>Ohg h?Ohg h@Ohg hAOhg hBOhgFhCOPOhDO8hhg hEOhg hFOhg hGOhgFhHOPOhIO8hhg( PagPgPgFh @  @P!U" gPJ8g gggKZ@VLhlhg$8)gJMOZ@exgxNgh8ZO8gNPQP%OhRO8hhg( `ag`g`gFh @  @`!U" g8S`%T\gd 8UP%VOh( h8 gg$H)gLH @(ZgLH @)ZgLH @*Zg&WP%g&QP%g&UP%g&XP%pg&YP%Xg&ZP%@g&[P%(g&\P%g&]P%ghH8Z Z8 ghH8Z Z8 ghH8Z Z8 ghH8Z Z8 ghH8Z Z8 ghH8Z Z8 ghH8Z Z8 ghH8  Z Z8 ghH8  Z Z8 gvhH8  @Z8gvhH8 p @Z8gvhH8  @Z8gvhH8( @Z8ghH8Z Z8 gvhH8X @Z8gvhH8@ @Z8gvhH8 @Z8gvhH8  @Z8g\#gz^O_OhO8`O POaO h8 g( agggF @  @!U" g,J\!ghH8b %Z8 ghH8c %Z8 ghH8d %Z8 ghH8e %Z8 ghH8f %Z8 gvhH8(gZ8#ggvhH8(hZ8gihH8O jOHOhZ@ 8 hgF Z`kHPPHgHlgHmgHngHogHpgHg0ggg@TTh+8l)ghH8Z an8 &gvhH8(hZ8gihH8O jOHOhZ@ 8 hgF Z`kHglgmgngogpg)ghH8Z an8 )gvhH8(hZ8gihH8O qOHOhZ@ 8 hgF Z`kHglgmgngogpggggHgPrg^ g\sOZH878g>Z $gB Z`tugvZ@VLhlhg@wZ@gxOZ@erh Z`yz{hg$,g^ @Zg<,gN|Zp7g^Z}K0gn~6ZpOhO8`0x6Zp OOxZxOHOh xh8 gFOPOhO8hg Og Og Og Og Og( agggF @  @!U" g,J\0g^ @Zhh0gggg^ZK5gg~~O6ZphO8O `0x6ZpOOxZxOhHO0 xh8 hgFOPOhO8hg Og Og Og Og Og( agggF @  @!U" g,J\5g^ @Zhh 5gggg^ZK.9gg~~O6ZphO8O `0x6ZpOOxZxOhHO0 xh8 hgFOPOhO8hg Og Og Og Og Og( agggF @  @!U" g,J\"9g^ @Zhh(9gggg8J=gL @gZg @ ZCh @Z8xC +l8=gL @hZg @Z @ZhZ 7h gF Z`kHglgmgngogpgg8Zg8Zg8Zg8Zg8Zggl9grJhO8Z@h8gX Z`gX Z`gT Z`HgggogggT  Z`HxxpgpgpgpogpgpgX Z`gX Z`gT Z`HXXPgPgPgPogPgPgT Z`H880g0g0g0og0g0gT  Z`HgggogggT  Z`HgggogggT  Z`HgggogggT  Z`Hgggoggg&Zeg0HhhH@HgNg  0H`x3/OhO8PO OZ h8 g6 Z8g2 Z0gJ ZgHXFggrg g6 Z8g g^ 8POOh( h8 g{ IJH`0PxX8hhpHx@X`8(8  PP0Phzxh8 h0HiP a S  S  SPrU@@@@~x  Hi a S4rU@@@ 8 `brU@@@@~x__SRP_eX`w__SRP_fz NwmNSR_5uP[]_KNSzƖb!jg9ea aS4rU@@@8`brU@@@@~xHi      !"#$%&'()*+,-./0123456789:;<=>?BCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy|}~9VdxME@` %`p %  `J( (  @ Xh @P (8 @ @ @ @ X @  @ @x @` @H @0 @ @ @ @ @   @ @h pP X8 @ ( @ @ l  hlx@ @ @x w` wH `0 @(  H( H @ @ (  @p X   (P`  xp0`0hX@  r 8  ( 0`@ P  h   `x xp0`0hX@ xp0`0hX@ xp0`0hX@  @`   0  `( 8  P `` p ( k$*\Rffff*S?6c06f1b5"  ( 4@dP h  Lx  (0008 P`<hF** 8&H h$ "   ( 0 H  ` p  x ( *( D  8nH P Nh@R  < P $h x  2     2 @  H BLP   .     R ( 0 &H Fp  P  4P (00@Fp$d$d *d@  R N `Fp  (  0  0  FP  h 4x  $L  L   $  "^  @  TP  &dh  .v 2v 2v  2 p8pXp pxp @ (  (0(0XF , p0200 80 04@8 @ @$4P( p(>( F,,,,,($ $X#4' p(>( F ,0,p,x,,($8 $p x$4( p(>( F(,,8,@,H,($ $#4' p(>( FP,`,h,p,x,($P X p>P F`px      Fx   JB nB   , 8 8H D    P J    h >x 4  6 R H P  ` p  0    6   0^  嵥ļļ1-5رĻˢ´7 (r035$>$'H H90嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲·JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""GThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\"[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hkdx7繲ûжӦģļ,ǶӦģûзȷ·A@JExit Subk   B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+>ѭsublotidSELECT cocd.PRODUCT_ID ,DH.SUBLOT_ID ,COCD.WAFER_COUNT,to_char(dh.HIS_REGIST_DTTM,'dd/mm/yyyy') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH.HIS_REGIST_DTTM-1,24),'dd/mm/yyyy') HIS_REGIST_DTTM1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_HIS dh ' DINNER JOIN COCMEASSHIPLISTSTD cocd ON dh.SUBLOT_ID =COCD .SUBLOT_ID ' @INNER JOIN MES_SHIPTAG ms ON ms.SHIP_SUB_LOT_ID =COCD.SUBLOT_ID ' .WHERE OPE_ID IN ('EPKG','PKG') AND FILE_name=' H' AND dh.HIS_CAT ='OC''ADODB.recordset$p.L t L(r,αͣ޷ x L(v/αԣ޷  ~ LB@ L!'N- b = Range("P65536").End(xlUp).row=COUNTA(A1:A65536) +> $>'  '0   NA11:L  $v.T T B@ 0 $>B@  SUBLOT_ID L% 0 +>HIS_REGIST_DTTM1 L% 0  +>GIST_D  0  $>'(  0  $>', $  ̶cSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' SUBLOT_ID L%' AND MEAS_ITEMS =' ' AND FILE_name=' H' AND MEAS_PCS <>0 'ADODB.recordset$p. t (r:αͣ޷ x (v=αԣ޷  ~ B@ !MEAS_MAX %  0  +>MEAS_MIN %  0  +>MEAS_PCS % dkx MEAS_MAX % ,  <=KT 9NG  0  +> ! 9 99 eMEAS_MAX % , NG  0  +> ! 0 999k d  ! 9 9999q0 k( d k  LB@ H:L$B@H$ r| B@vB@v%------------------------------------- B@1dataworkbook.SaveAs ss & filename & ".csv", xlCSV=dataworkbook.SaveAs ss & filename & ".xlsx", xlWorkbookNormalJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------csvļ7Set p_workbook = Workbooks.Open(ss & filename & ".csv") (Columns(8).Delete (K-----------------------------------------------2---------------------------k` <B@ B@p_workbook.Save رչ B@Bp_workbook.CloseĻˢ´ (rA@ophwafcount L% +>xselect sum(WAFER_COUNT) wafcount,TO_CHAR(PLAN_SHIP_TIME,'dd/mm/yyyy') PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO from COCMEASSHIPLISTSTD WHERE FILE_NAME=' H3' GROUP BY PLAN_SHIP_TIME,CUSTOMER_PRODUCT,ORDER_NO'PLAN_SHIP_TIME L%+>  0   '0 0 WAFER_COUNT L% 0  +>HIS_REGIST_DTTM L% 0  +>0   8  0  $>'  0  $>'  0  $>' lsmeas_avg %  0  +> MEAS_STDEV %  0  +>MEAS_PCS %  0  +> WAFER_COUNT L%  0  +>99qkNG  0  +>c  0  :g 0   $vB@Hc  0  :g 0   $vB@Hc 0   :g 0   $vB@H MEAS_MAX % , 1ֹNG  0  +>c  0  :g 0   $vB@H !ִ 9nx>=KT h>KT 9999qk9q0k(<KTMEAS_MAX % , NG  0  +>c  0  :g 0   $vB@H ! 9 9999qXkPnH@OK  0  +>8 | B@v11:  $B@HϺ΢ H resļA@Jx \ͻģ\ B\ @\'KAttribute VB_Name = "Ϻ΢" Sub P() '嵥ļ 2'رĻˢZ Application.ScreenHUpdngvFalse'FileTrim(Cells(1, 2)w If $"" Then< MsgBo@x ("h"IE0xit rEnd/connectDBSet wp= CreateObj("ADODB.recordset..Curs orTypad@OpenSt{c 'ͣ޷ " LoadUseClient#ԕ#Dim pdsrc As Sngkwpsqlv!Ʒss aaARango@SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHER@E FILE ='" &G|& "' GROUP BY J@AwO]n9, cpsDBCCv7Whw.EOF <> TrueAжǷΪGE'ȡf@trhFields("* 'õ˾"AcustomernB("7p@vpathhAsԭā/·һ 'ӵxa+H<\\10.A52.142\coc\. ServerShar112ģ@\radminist ratorPassw`o."fthw-82905X028hIF oldersts()(%DE@ 20 El%t Net k# Wipt.)Acafsoing.System# -.MapDrive H"",)2, ®,r ,, %)Kg 1)'%FaK%S=Ax\@ͻA?\|^!i ')K` \  & hD'ThisWorkbooxk.PiDebug.Pri; &X`".xlsx1SU'汾K03=[ @a0'uE'xml_bI= W\[}9ssA51`Copy /,[@ .=Q O C8, 3)@yw10 e# T5:''ѭsublotide 'e-d.g ,DH.SUBLO%,D.h/,to_c(dh.HIS_REG _DTTM/ص/y') HIS_REGIST_DTTM,to_char(ADD_MONTHS(DH. -1,24),'dd/mm1,COCD.PLAN_SHIP_TIME,RFID_ID FROM F3PRD.DOPE_` dh "  sql1 = & "INNER JOINB WMEASTLSTD cocd ONB.SUPBLOTc= #"]MESWTAG ms*ms.`,_ -,WHE8RE qz^('EPKG',') ANILE_name='" & FileN#"' dhCAT ='OC'dSet ids= CreateObject("ADODB@.recor") .CursorTypeZadOpenStatic 'αͣ޷Loc onUseC lientA#, csDBConn@6ion lot_@id_cou=iCC.R=CK . UĘb)Range("P65536").End(xlUp).rowKCells(15, 12 )"UNTA(A1:A)g}B@ J =@ B + 2For A@1 Tdo 8 s s3 D1A11:6LA1 }@ .Cxopy").PasteSp`ecial j3A IFields<("oM@1, WAFER_CO *2i[3_TM1a%!32 CitemE4B - 15%?check`sbGIh+ ?+ I8L5aminsf@ c'594101ax 1-K@2%!If %<> "" And*̶"p Thelemeas "SE LECT _A0VG ," EVdM`MAXdPCS$DATAZSUM ù\?AmV`cITEMSd`'Fa<>0)iaAb -2$/b/b/b/btccc3[9t.cR qld1(ud (0_'I ?:=1N"OKa) V_avgoi4!\mW2-tPL5("6oooaR6oeINa 5") < 25/g 7  B ElseqkHt IfQ"aYWSelP Case m-">=1% >=b?;NG _cb{0r5a:guz5<).OWith C`.InteriortpxlSpolidColorIndexxxlAuto~mb25.TintShad0e__5 8__2( = ]AS_MAX") > maxs Then #Cells(lotrowitem + LOTON5, 13) = "NG"& Range("c" & W":gj '5).Select'sWith ion.Inte0rior' .PatnxxlSolidColorIndex$Automatic&# 255TintAndShade0AwEnd AdA If ݄ElseIf minsf <> ""` Case!c "<=ā$easset.Fields("MEAS_M<= ?ivv4mv-vv.v.m4Alvvaee\e?ejeۋ eeeke"am2m2?2e 2O221?!{os?0 ?/9?.?-?,?,?+??*?*?)? _q"Q s"?Nex+;=$B1 H- 1`X`Dh %@ @f  P% ( Jzptx8  @ @ @ @ h @h 8P @8 @ h 0*H v8  @ @B  @x X` @H (0 @ @ @ @ X @ @ @ @p @X @@ @( @ @ @ @ @ p H P @x @` @H @0 p  @ @ (  @ p ( @Th @P P ip 8 ` i l p @ @  @  }  P }` ( @x x @ `    @H 0 @  (  @ P  h p  x    p @d @hp X X @@ 8 X ( H X  ( @   0 X X ( @ @ H X h  (P @8   8` (8@ (` 0  @  p @x @` X @@ @( -x  h -xX  @  p k$*\Rffff*S56c06f1b5R"  ( 4@dP h  Lx  (00 0<HF8**P && $ " @ X (x        ( *( D@ `h p8h ,L  <( h X      2~8 p (x  2~    BL@H  P .` x     R   & F  P(  xj  X  ( 0 0 F(  @ P h  p  ,      (  (  20  rH  2h    X  (h 0 0 F     ` $8 0P 2h 4    ,   $@  &Hp `   J 0Rh6  &( (P0p0F  $ 0  88P 4   ,  $@  H X ` (x00v  F 0  $ (<  HX` 6h$  (00nH HFX,p2  8  0$6(0@(8p,6( ,0((2(0@(0p(  $  ("x N bh b b8, ($   $     2L 8 @ ,H  `  p &   H H H  ! ! (! 8!JH! X!    h!<!!x! ^ " ^8" 6P" p" h"^"^" &" #bL #^## # # \#\#\#\$ R $ x$ @$ $ $ $ $  % 0%  @ %@8%@P% h%  % 6%   %,^%% %嵥ļļmicرĻˢ´o (r/sp$>$'H H2/嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]XƷSELECT CUSTOMER_NAME ,PRODUCT_ID,ORDER_NO,BILL_CODE FROM COCMEASSHIPLISTSTD CD INNER JOIN MES_DELIVER_DETAIL MDD ON MDD.SUBLOT_ID =CD.SUBLOT_ID WHERE FILE_NAME=' H7' GROUP BY PRODUCT_IDCUSTOMER_NAME,ORDER_NO,BILL_CODE'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ BILL_CODE <%' õ˾ CUSTOMER_NAME$<'B]p]ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'F%Debug.Print srcpath & wpstr & ".xlsx" F @.xlsx$x 汾· *!\ͻģ\ B\ @\' 湲· Rsrcpath = ServerShare & "\ɱ\" & customername & "\" & wpstr & "\" & BILLCODE ƷļжϱǷӦļ $x Ʒļ F @.xlsx  H.xlsxA@Hd !CreateMultiLevelFolder1 (srcpath) A@ F @.xlsx  H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kxжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1-------------------------- B@p $>_$>_ORDER_NO <%_CCMC'pFileNameѭsublotid?SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' AND PRODUCT_ID =' @' GROUP BY SUBLOT_ID 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id] L!f'&counts = Range("P65536").End(xlUp).row sublotid-1 ȡҪ A1$v%!'P$> P$>$vB@ P'R T N R $>!VB@  R P  'Rx дlotno , lorqtyTSELECT SUBLOT_ID,SHIP_SEQ,WAFER_COUNT FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' AND PRODUCT_ID =' @>' GROUP BY SUBLOT_ID,WAFER_COUNT,SHIP_SEQ ORDER BY SHIP_SEQ 'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@[ 'X'$> '  N  P  SUBLOT_ID L%  X  +> WAFER_COUNT L%  X  +>  LB@ P  'X  ' '''''''sublot_idװʱ䣬sublot_id,wafer_count SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 24),'yyyy/MM/dd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG')and his_cat = 'OC' ' { and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ' ( ) )order by SUBLOT_ID, his_regist_dttm ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( :)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@[ 'X'  N  P  manufacture-datemanufacture_date \%  X  +> expiry -Date expiry_date \%  X  +> \B@ P  'X  ' '''''''sublot_id ''''''' κADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT SHIP_SEQ,FILE_NAME,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN mes_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'd[ d d ~ bB@] b!'h hf1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@k/'''''''''''''''''''''''''''''''''''''''''''''''''X l hADODB.recordset$p.n t n(r8αͣ޷ x n(v;αԣ޷select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''p[ p p ~ nB@ n!   P nB@r'ѭ  n!*Debug.Print sheet3set.Fields("MEAS_ITEMS")   X $> MEAS_ITEMS n%MEAS_AVG n%   X +>MEAS_PCS n% MEAS_PCS n%   X +>d0MEAS_PCS n%   X +>k MEAS_STDEV n%   X +>MEAS_MIN n%   X +>MEAS_MAX n%   X +>y1 д˳( '''дd($жNitem̶ֵ   X $>$pG Cells(it + y + yy, 15) = 25[ Cells(it + y + yy, 16) = Cells(it + y + yy, 14)[ Cells(it + y + yy, 17) = Cells(it + y + yy, 14)[ Cells(it + y + yy, 18) = Cells(it + y + yy, 14)yXkPkH nB@   '''''d(ûмݣԺڵECOCA@J|k P  l'X l''ƫǰλRange("D" & i).Formula = Left() xmlļ AG1+v NAG2+v PAG3+vA'''' ɾ B@p$B@vж A1$v%!'   '   $>   $>   $>   $>ж   $>'   $>'     %'Debug.Print pd3    $>(^   $>'x x   +> min: uomcolumn-2,max:uomcolumn-1СΪ NG   $>   $> $> ޷NG   +>kPkH@  $B@v  $B@v  $B@v  $B@vK-----------------------------------------------2---------------------------NoData:9MsgBox "ûݣҪܸļ嵥"k0 <B@  B@ رչ B@BAB1$vB@ AB2$vB@ AB3$vB@ Ļˢ´x (rA@ H xmlļA@Jo( eAttribute VB_Name = "ģ" Sub P() '嵀ļ .رˢ´& Application.ScreenU$pdngFalse'FileTrim(Cells(1, 2F)uIIf $"" Then<# MsgBox ("4"I(Exit nEnd Ifconn ectDBSet wp= CreateObj("ADODB.records et..Cur@sorTypadOpenSt{c 'αͣ޷ "LoadUseClienta#ԕ#aDimasql As S 'AƷwpSELECT CUSTOMER_NAME ,PRODUCT_I D,ORDO,BILL_CODE FROM COCMEASSHIPLISTSTD CD INNER JOIN MES_DELIVDETAIL@ MDD O@DD.SUBLO =CI WHE"RILE"='" && "' GROUP BY )J0P-@AZhH, cs8DBCCGWh.EOF <> True 'жΪ0һU'̡ZtrsFields(". YX=D B_I 'õ˾C. customern(" $Esrcpath'F pdJԭ ·һg'繲|A Q\\10.A52.142\coc\D7aServe`rShar112 @jradministratorPassw`}7"fthw-82905028hIFoldeBrsts()/(%M@ 0HElGţNetkÐ Wipt.:fsoCing.System# -.MapDrive "", 1$, b, ,, ( 1ɲ'EaJnC"IA@\пͻ>\Ja!r 'Debug.Pria&pC ".xlsxh?>@'汾. E=FisWorkbook.PsA_VB18Mɱ_rXLSeB QUUӦABs( O6 5A/Copy t, g ] ?;':Mult@iLevel#A1 ( D * 0 'E7nHd"8û1q6q,ȷ-H3{! M?/whB_T IRemoveI8,,{I7OV= NothQo 17@(-һ‘-/O-F-P4j.y0aQbBgazeC' '1:= %s.,? @RbExcelShe0= z.s@P '-1GActivL xml_r=@A2, 4)"_V617wqv u"CCMC8" '7'ѭsublotidq10pr"$ 7c. '`ND 3]'X>iA MOԝ"` 5 7;0 QOąu_id_couЅ= 3 RC1/'''C/?0idbgetRows 'counts = Range("P65536").End(xlUp).rowp'sublot@id-1 'ȡҪ copy_MmA1iDown kCells(2, 1),  L, 31)).C[ m_w4 For cpA1 To g_id_ - 1Nj7&+ 1@tire.PasteSpecialc>A-0Next'дVno ,Zrqty !sql1m"S ELECT@SUBLOT_ID,SHIP_SEQ,WAFER_COUNT FROM COCMEASLISTSTD c WHERE FILE_name='" & FileN@"' AND @PRODUCA Awpstr GROUP BY !$ ORDER D) "7Set ids@= CreateObject("ADODB.recor").CursorType@IadOpenStatic 'ͣ޷pOZ L$oconUseClient7.% r, csDBConn9ion5 Debug.xPri Oyy 0xxl` Ccb25)[$ 0o!nopb $ iy_m c$ i + $, 8) #=Fields("&YL#i 9o ha ψMove)BF(ə) * xx_7I@'`ʀ/ ok!'װʱ䣬 ,wafercg/h>" d'CUR_7_CNT,to_char(his_regist_dttm,'y/MM/dd') manufacture_dADD_MONTHS--!k4) expirybCF3PRD.DOPE_@ where ID in('PKG','Ea)and q J 'OC'OV bGaR& " Q@STR(`d0,7()||Sj-3)Q"]UB_0!Bi( %$DPkINnCAdSEkN nF IS NULL THEEq ELE`m=rrj>LEFT JOIN _ @*'&' CUSTOM@|S k#!= R MES"_TAG-s ON c.#ms. 89mNAMEGO N ) )`er by V ,1(<' qKship_seqC C*S:(}*%+T2+R++D(&&O&5 4&p$ $D$ D=="eP)cN__1PA+p " )pkg{D18=2N+ Apa__L6ooooODua4 Amyrx 瘝 \- r'؃-уCells(i + yy@, 10) = lotSet.Fields("manufacture_date") 'expiry L-DXTCe1P|NextowMove != (copy_row - Z* xxxxQ+ 1 'subF_id0( r 3# '8κńـ sqlS&CrekObject("ADODB.recordset|.Curso rTypeadOpenStatic 'αЌO% LoconUseClienttt"SELECT DISTINSHIP_SEQ,FILE_NAME,SUBLOT_ID,CASE WHEN UB_C IS NULL T EL  ENDFROM COCMEA S L#STD c LEFT JOIN mes_TAG ms" _MM& " O@s.CUST OMER_C3 =\c.5 A@m? ! 'RE c.&+ ='" & FileName@"' PRODUCA.D wpstrOR@DER BYD(E Q" /Debu`g.Pri@F&Kt0NWbtt, csDBConnbion im vitemy(cou = .R"kCReDg `(1 To ) 'A h O IfI > 00 TheaHForid a!d"(C i,%![S$jˇʹ gˣEnd If#%d¿0&e<&C#bheet3`@.-sXXX1qBlP"sel5 QP_ITEMS, ROUND(@MIN,5) ,AXMAVGVEVPCS from%YDATARSUM where ?L=LU7SNH0")NSFLAG='F'LKcql@LKLaBIwC/iuR/2o w% "" Or2) 3Adk Aa!" T8henGHlo`wChar@ 1Ode upy 3 H pd3c`pd.(@  H!,`{) 'Debug.Print s_1O6iDValue."q1`OA'min:'-2,madx:*-1obСΪ NG?.q - ,=!.* \?]/a(޷,A7oe"NG?kigySf$J@=Jooooomn1R0-;2NoD [:5֑ӁҪ@ܸÁp嵥pT)wpS ' cSavH`G'رչfCloe_B`Cle.a$vx.ABwy 'ĻˢƒQw WendApplicat ion.SPvenDUpingɀ5TkYT T^bAp!jWWYYOsql{5YfkIle!jg9eac-LR\i`xml+," Q uQ{xME(`D` %@ @f  `` @ ` %d % 0@P`p 0@P`p 0@P`p 0@P`p 0@P`pk$*\Rffff*Sz6c06f1fe"  ( @P h  x 00 0H * 0@ `x "   ( 0 H  ` p x  *   8 ,P  <   ( 8@ x  8  B@H  P ` x    $   ,    P8  2  0 0P  $ , $   8   0 0H x          (  H  P  h          &   XJR6@ x&  00H ` x 8 4(0(X((((( (H(p(((((8`  h x  $     008h     24 @  H X hx $ $   0(0X &( P`x 0  (  ( 60hpx  00  ! !8!H! `! p!!  0!$6! R"(0`"(0"(0"(" #( #("(#,4P#,4#,4#,#($$$ $ $ $ 0$ @$  P$2X$$$ $ $  $$$% (% H% h%% %    % %%%T% H& `& x& & &&& &' ('8H''' ' ' R'( (((8(H(X(h( x( ( ( (  (( ( ( ()$) 0) H) X)0x)0))`*x* *0* **"* +(+ H+h+ + + ++ *+,   , ,(, 0,  P, `, <, ,, ,, ,  - (- 0- H- X-xp- -.(. 0.&H.p. . .... .,. /(/ 0/P/ h/l/ `0x0 0 00000 0&0"1$@1 h1   1 1 1  1 11  1 1 1 2 2(2  `2 8h2 2 2 2 2嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]XƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'>Debug.Print wpsql > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]p]ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'F%Debug.Print srcpath & wpstr & ".xlsx" F @.xlsx$x 汾· *!\ͻģ\ B\ @\'жϱǷӦļ $x Ʒļ F @.xlsx  H @.xlsxA@H  H'dp A@ F @.xlsx  H @.xlsxA@H  H'kd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kxжһ±ǷƷļ  H @.xlsx$x] ģļ  H @.xlsx %. %.J-----------------------------------------------1--------------------------' B@p+ORDER_NO ,PLAN_SHIP_TIME,customer_productSELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME+1,'yyyymmdd') shiptime,CUSTOMER_NAME,ORDER_NO ,customer_product FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @L' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,customer_product'[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+>customer_product L%+>shiptime L% +>ѭsublotidHSELECT SHIP_SEQ,SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' AND PRODUCT_ID =' @2' GROUP BY SUBLOT_ID,SHIP_SEQ ORDER BY SHIP_SEQ '[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id] L!f' sublotid-1 ȡҪ T1$v%!'P$> P$$>$vB@ P'R T N R $>!VB@  R P  'RX'X'װʱ䣬sublot_id,wafer_count SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyyMMdd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyyMMdd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG')and his_cat = 'OC' ' { and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ' ( ) )order by SUBLOT_ID, his_regist_dttm ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( :)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'[ ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@  N  P manufacture-datemanufacture_date \%  X  +> expiry -Date expiry_date \%  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +> $>  X  +> $>  X  +> $>  X  +> $>  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +>$>  X  +> \B@''''  ' P  'X'''''''sublot_id ''''''X''ɳϸκU SELECT SHIP_SEQ,SUBLOT_ID,wafer_count FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' AND PRODUCT_ID =' @<' GROUP BY SUBLOT_ID,wafer_count,SHIP_SEQ ORDER BY SHIP_SEQ 'ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷  ~ B@[   N  P lot_no SUBLOT_ID %  X  +> wafer_count %  X  +> B@''''  ' P  'X'''''''sublot_id@''һβsublot_id,'' κADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT FILE_NAME,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN mes_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SUBLOT_ID'd '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( d:)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'[   ~ bB@] b!'h hf1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@k/'''''''''''''''''''''''''''''''''''''''''''''''''X l hADODB.recordset$p.n t n(r8αͣ޷ x n(v;αԣ޷select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''p[ p p ~ nB@ n!   P nB@r'ѭ  n!*Debug.Print sheet3set.Fields("MEAS_ITEMS")  X $> MEAS_ITEMS n%(LCells(it + 1 + yy, 26) = Format(sheet3set.Fields("MEAS_AVG"), "0.00000") * 1MEAS_AVG n%  X +>MEAS_MIN n%  X +>MEAS_MAX n%  X +>y1 д˳( '''дd  X $>$p  X $>  X +>  X $>  X +>  X $>  X +>ykk nB@   '''''d(ûмݣԺڵECOCA@J|hk` P  l'X l xmlļ AH1+v NAH2+v P AH3+vDebug.Print Range("AH1")Debug.Print Range("AH2")Debug.Print Range("AH3")A''''ж A1$v%!'  '   $>   $>   $>   $>'   $>'     %'Debug.Print pd3    $>(^   $>'x x   +> min: uomcolumn-2,max:uomcolumn-1СΪ NG   $>   $>NG   +>kXkPHK-----------------------------------------------2---------------------------k$B@v$B@v$B@v$B@v$B@v$B@v B@ رչ B@B <B@0Ļˢ´ (r]]0scripting.dictionary$p.ƷļƷADODB.recordset$p. t (r1αͣ޷ x (v4αԣ޷JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'  ~ B@]H !' ,A¶     PRODUCT_ID % +ƷӦĿͻ PRODUCT_ID %' CUSTOMER_NAME %'   B@  CUSTOMER_NAME %' PRODUCT_ID %'d( + PRODUCT_ID % 'k B@k 1ϲƷprosum  жϱǷӦļ *!\ͻģ\ \ \' $xd( A@k ½Ʒļ'һļʼ'   ƵһƷļ *!\ͻģ\ \$\ H$.xlsx  .xlsxA@Hжһ±ǷƷļ  .xlsx$x] ļ  .xlsx %. %. B@pһļ $>  'dļ   .xlsxδҵA@Jkd'ͬƷӦĿͻ $$'{Debug.Print ThisWorkbook.Path & "\ͻģ\" & customername & "\" & proitem(p) & "\ " & filename & proitem(p) & ".xlsx" *!\ͻģ\ \ $\ H $.xlsx %.򿪶Ʒļ %. B@p' $>  'ѡA2:AC   %vB@ $    ,>     %>B@     ' B@ B@BkXP AD1+v AE1+vxmlAAD1$vB@ AE1$vB@ ɺϷʳζƷļ A@Jd Ϸʳ H H xmlļA@JkX A@oH @ Attribute VB_Name = "Ϸʳζ" Sub Pģ() '嵥`ļ .رĻˀ´& Application.ScreenUpd ngzFalsBe'FileTrim(Cells(1, 2)w!H If $"" Then<$MsgBox (" "IExit tEnd/connectDBSet wp= CreateObj("ADODB.recordset..CursorTypadOpenSt{c 'αͣ޷ "LoadUseClient#Fԕ#aDimasql As S9@_ 'AA|wpSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &l& "' GROUP BY Jg'Debug.Pri@:&E)@b.AS4, csDBClC Wh@ EOF <> True 'ǷΪһcG@ȡ@tr^dFields("0I'˾ "Acust`omernCB("=ȦkpdsrckpathBuԭA6· һG'ӵ繲A A\\10.A52.142\pcoc\4ServerShar112ָ!@Zreadminist ratorPassw`m`1"fthw-82905X028IF older}sts()(%$H@ r0HElœ J NetkÀ Wipt.Ccfsoing.System# -.MapDrive "", 1, b, ,, (] 1ɢ'ÉJnC"IA@~\ͻ>\ja!cl jE^&~q`.xlsxh?>@'汸 E=FisWorkbook.P!pA_V a! ӦAsZD1[',BsD7oP= NothKo 17yһ0_+/>s!*1atpa\q Q 1 25SEQ,SUB LOsTSTD c WHERE FILE_name='" & Fil eN4("' AND PRODU@CT_ID wpstr>GROUP BY SUBLOF,SHIP_SEQ OR0DER 8$ " Debug.Print sql1Set ids= CreateObject("ADODB.recor9")4V8.CursorType = adOpenStatic 'ͣ޷(Loc"on*UseClie_)ԧ)J}, csDBCoDnnrionBlot_id_coJu7=.RCG '''!Dim id,& `ORDER D+ V"6m t7CreateObject("ADODB.recor`dset"І .CursorTypeadOpenStatic 'αͣ޷""tLoconUseClieVԦ$ q, csDBConn8ion Debug.P?3pp)pkg |=2'rEQ' |x&(} .~qO~q 9Dim ^itemO_s=\.RCORe8(x)4A`9If ~#> 0 The "fxA_@1(#iQ' }'oaEnd If H?S=zԿT5S H}heet30}? s~ϳϳϳE_~__H ql_selMAS_ITEMS, @ND(π_MIN,5)d ,AXMAVG9EVPC@S fromDATAySUM `whereoSeԱv|SSH0")zFLAG='F'?KBzKcql@KKLaBeJt.RecordCount > 0 Then  For it = 1 To copy_row0 - 1`sheet3set.MoveFirstX''ѭTmesc='Debug.Pri*Fields("MEAS_ITE0MS")"If Cells(++ yy, 29)]/É0'363mat(6AVG"), "0.0") *YsMVNő7NMINef8AXEx@}'д˳>' ElsegIsNumeric(-9))_Q)j1 QS  qB qbB %Be End I~f gsANex6  @o?a i ]''۾[ aMsgBox "ûмݣԺڵECOC"7b;Sub8 4yy( subcc"*K 'xm`lļRange("AH1@`= _pa\th2lot_id_ 3 x    0Call Ϸʳ΀_create0,1Ss'ж P= 0.>(xlDown).fi#2cuom@column93wW, 7) <> "" Ore 2 3_ 1gqlowpChar tW{1aupx+ 3Apd3@ c pd.=c(  , i_ *+`_Q_QO + 6).mula q0Value/"q`OA'min:%-2,max:&-_Q 'Ϊ 1sqlp` ADODB.recordset")  sqlpro.CursorType = adOpenStatic 'αͣ޷ЈLocEonUUseClientT!TE"SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE='" & FileName"' GROU P BY '-4"w S, csDBConn@ectionDimitemY"umuRCountRe% (1 ToBum) 'A@i¶OIfD > `0 The,For pd&O3A9(pd)G4Fields("Y'ƷӦĿ͔s9cuP҉+dic_@@tomern_at.AddYu~s0dYc  1> `tr(Else{ + "+" <+ D_E(BEnd If MoveNexq3'1ϲ[A uIsnA'жϱǷdļ K  multi@;ThisWorkbook.Path\Alģ\AKK& "D @0BFolderExists(E)7FCreateMLevtel ' /.8½!-##fi@rstrow#1@ 'һpʼ)A'epds09cz'ƁeCopy`)8_ Y1)!q.xlsx",L$&LC )һ* 0Q#q+_$  QrF!datawT/ As 0 ['#Set/$=s.т+'Ae++ExcelSThe=?. sqs(1?;.:Av7D '0c+ While Cells( 7, (<> "4+ 1OjWend/*I MsgBox "52δҵ??K''0ͬ5g @yyp?r6oB[)#r'Debug.Prip/eb/eus1/e" !f "HpJS2 ! 17bn7o o =A !_S( 1EQD > ?>W='-oTrg=T=W=='ѡ `b.Range("A2:AC1-@I.vOAGgX.M󂽲=!s#tԇpsteS@pecial )` @ pdsrow =  + dataH8- 1)*workbook.Save< &Clos')fEnd If1 NextRange(" AD1")romultiEstr'xmlCall Ϸʳ΀_create(pro B.Clea0BMsgBox "@9Ʒļ" & @."" !El_BFileNameM7AjcAzDB SubCxME(6 <<<x `X ffI xIH `@ @ @  @  R`h CCI IH T` ffI IH P%hx8Xx8Xx8Xx8Xx8Xx8Xx 8 X x      8 X x      8 X x      8 XX k$*\Rffff*TG6c07b76bB  ( 0@`h:,( 0 @ P`hpx (tH0048&p  , 6  ( J(hx.0PX` x < T@    @X:`, 2  0 ,P     x 0 P p x    @    8 (@ ,h 0 0 2 "0 X x   " B      0:8,x   "t   P`h  &p x"`  :,0`p 2x  , (@pH 3    B  0 PXx:,   0 @PX`hHh     ,     0 Hh p > ^ 0    8 @ ` x : ,  !! "8"X"`"h" "" " ."8" # 0# P#`# x### # # ##D$ %&(&H& `&p'4''' '' '   ( (]]]]]   etm'$/x$$'dX$$$/  $'$$/ $' $'k ûм '  '' k SELECT FILE_NAME,MAX(TO_NUMBER(item)) mx ,STDDEV(TO_NUMBER(item))st,avg(TO_NUMBER(item)) ag,min(TO_NUMBER(item)) mn,COUNT(item) ct,STDDEV(TO_NUMBER(item)) sted FROM ( '  SELECT * FROM ('  SELECT TO_NUMBER(TRIM(  9) ) item ,WAF_ID,sub_lot_id FROM COCMEASDATAINFOS c '  ) meas ' " LEFT JOIN COCMEASSHIPLISTSTD c2 ' ! ON meas.sub_lot_id=c2.SUBLOT_ID '  WHERE c2.FILE_NAME =' H' '  )group BY FILE_NAME ' 'kX %'''''''''''''''''''ʵ   $ RESISTAIL'! SELECT MAX(TO_NUMBER(measitem)) "= mx ,STDDEV(TO_NUMBER(measitem))sted,avg(TO_NUMBER(measitem)) " ag,min(TO_NUMBER(measitem)) " mn,COUNT(measitem) ct FROM ( '    $$'  SELECT cd.SUBLOT_ID, TO_char(   ) measitem' Y FROM COCMEASDATAINFOS cs LEFT JOIN COCMEASSHIPLISTSTD cd ON cd.SUBLOT_ID =cs.SUB_LOT_ID'  WHERE FILE_NAME=' H' '      union all 'k  ) 'Debug.Print numsql2 'kX6'''''''''''''''''''2ϼȥݵĶ   $ ORIENTATIONX$ RESISTAIL SELECT FILE_NAME ,MAX(TO_NUMBER(item)) mx ,avg(TO_NUMBER(item)) ag,min(TO_NUMBER(item)) mn,COUNT(item) ct,STDDEV(TO_NUMBER(item)) sted FROM ('  SELECT * FROM ( '    ' $/ $$'d $ $ $/  $' $ $/ $' $'k +'''''''''''''''''''''''''''''''''''get type ''''ȥ/ $/ $ $/ $' $'dh $$'kH  SELECT TO_NUMBER(TRIM(   ) ) item ,' &' a ,WAF_ID FROM COCMEASDATAINFOS c '      union all 'k  ) dd JOIN '$$' SP:COCMEASDITEMSSTDITEM_TYPE_PARENTSP,ȡ|  ( SELECT UPPER(substr(SP_DATA_STATE,INSTR(SP_DATA_STATE,';',-1,1)+1,length(SP_DATA_STATE))) STATE, sub_lot_id,waf_id FROM COCMEASDATAINFOS ) cc 'd z ( SELECT UPPER(substr(SP_DATA_STATE,0,INSTR(SP_DATA_STATE,';')-1)) STATE , sub_lot_id,waf_id FROM COCMEASDATAINFOS ) cc 'k  ON dd.waf_id = cc.waf_id '  AND dd.A = cc.STATE )meas ' ! LEFT JOIN COCMEASSHIPLISTSTD c2 ' " ON meas.sub_lot_id=c2.SUBLOT_ID '  WHERE c2.FILE_NAME =' H' '  group BY FILE_NAME 'Debug.Print numsql2 'kxip''õȫsql overall   '$/$$'d$$$/  $'$$/ $' $'k@ ûм '  '' k SELECT FILE_NAME,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5) st,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,TRUNC(STDDEV(TO_NUMBER(item)),5) sted ,COUNT(item) ct FROM ( '  SELECT * FROM ( '  SELECT TO_NUMBER(TRIM(  9) ) item ,LOT_ID ,sub_lot_id FROM COCMEASDATAINFOS c '  ) meas ' u LEFT JOIN COCMEASSHIPLISTSTD c2 ON meas.sub_lot_id=c2.SUBLOT_ID AND meas.lot_id=c2.LOT_ID WHERE c2.FILE_NAME =' H' )group BY FILE_NAME '[  'Rk '''''''''''''''''''2   $ OXYCONCENTAIL$ RESISTAIL$RRGTAIL$ ORIENTATION$ ORIENTATIONX $CTAIL$MTQCGUB/ SELECT FILE_NAME,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5) st,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,TRUNC(STDDEV(TO_NUMBER(item)),5) sted ,COUNT(item) ct FROM ( '  SELECT * FROM ( '    ' $/ $$'d $ $ $/  $' $ $/ $' $'k +'''''''''''''''''''''''''''''''''''get type ''''ȥ/ $/ $ $/ $' $'d $$'k  SELECT TO_NUMBER(TRIM(  6)) item ,LOT_ID ,sub_lot_id FROM COCMEASDATAINFOS c '      union all 'k   ) meas ' t LEFT JOIN COCMEASSHIPLISTSTD c2 ON meas.sub_lot_id=c2.SUBLOT_ID AND meas.lot_id=c2.LOT_ID WHERE c2.FILE_NAME =' H' )group BY FILE_NAME '[  'Rk i ''õsqloverallֻе   '$/$$'dh$$$/  $'$$/ $' $'k ûм '  '' k SELECT TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5) st,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,TRUNC(STDDEV(TO_NUMBER(item)),5) sted ,COUNT(item) ct FROM ( '  SELECT TO_NUMBER(TRIM(  ) ) item FROM COCMEASDATAINFOS c WHERE USER_LOT_ID in( SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( SELECT DISTINCT LOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME ='11.30̨ F-HTP0068BAW') )'  ) 'Debug.Print numsql2 'TkP '''''ʱ%'''''''''''''''''''ʵ   $ RESISTAIL$RRGTAIL$ORGTAIL$CTAIL' SELECT TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5) st,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,TRUNC(STDDEV(TO_NUMBER(item)),5) sted ,COUNT(item) ct FROM (' ''    $$'  SELECT TO_NUMBER(TRIM(  ) ) item FROM COCMEASDATAINFOS c WHERE USER_LOT_ID in( SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( SELECT DISTINCT LOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME =' H') )'      union all 'k'''  ) 'Debug.Print numsql2 'T''''endkp8'''''''''''''''''''OXYCONCENHEAD*1.96;OXYCONCENTAIL*1.96   $ OXYCONCENTAIL$OXYCONCENTAIL*1.96 SELECT TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5) st,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,TRUNC(STDDEV(TO_NUMBER(item)),5) sted ,COUNT(item) ct FROM ('''    ' $* $$'d $ $ $*  $' $ $* $' $'k  SELECT TO_NUMBER(TRIM(  ) ) item FROM COCMEASDATAINFOS c WHERE USER_LOT_ID in( SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( SELECT DISTINCT LOT_ID FROM COCMEASSHIPLISTSTD c2 WHERE FILE_NAME =' H') )'      union all 'k  ) 'Debug.Print numsql2 'TkP ''''''2ORIENTATIONX;ORIENTATIONY   $ ORIENTATIONX''''''ü     $$'d $$'k`X  *  '  *  ' SELECT TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5) st,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,TRUNC(STDDEV(TO_NUMBER(item)),5) sted ,COUNT(item) ct FROM ( ' 6 SELECT qt1.USER_LOT_ID,sqrt(qt1.a+qt2.b) item from ( '  SELECT USER_LOT_ID, TO_char( ) a FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in(SELECT LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME ='11.30̨ F-HTP0068BAW') ) '  ) qt1 '  LEFT JOIN '  ( '  SELECT USER_LOT_ID, TO_char( ) b FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in(SELECT LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME ='11.30̨ F-HTP0068BAW') )'  ) qt2 ' & ON qt1.USER_LOT_ID=qt2.USER_LOT_ID '  ) ' ' [  'TkiCAttribute VB_Name = "ģsql" Function getD_type_all(ByVal item_arr, File) Dim div As Sng$meas_@column sIjuasW  'If UBound() - L = 0 Theq; R|v1In`0(0), "/")+׈tIC|%;ElsewAWRightILen ,\+ 1;mes@+Lef U-XFz?@= nd IfS>'ØЕFju.nB(_u p^0S%A"ԐE5 num@2 SELECT FILE_NAME,MAX(TO_NUMBERBw)) mx ,S TDDEVst,avg ag,minmn,COUNTC ct sted FROM ( H& " * TRIM(" & a/!c) ) " ,WAF_ID,sub_lot_i$ COCMEASDATAINFOS cG? 1!"!LEFT JOINeSHIPLISTa: c2 O Nb .'=c2.SUBLOT  WHERE.&P ='-, "' )group BYZ--? b.oEi' 'ʵx1 A`x@uRES7AIL"mEH F[|Z! ))!/result_unit/GtL ACf@CA42For iiiV~ozzTU>=ӑtr(@)^O78cd3,QFcharEҌpc?/,]SG0 cs ?A9Ad C@>9 =cs _3>__W>===p2A<>0 P-PE sNext?"ap'Debug.Print5KOͯ,t % G''2Sȥ@ݵĶߌ __ >@MI"ORIENTATIONX"nKK#VW{a?m4`DN玒 σ 1V_J?k?^ 3JOtoOoOq# ó!_ `1mP^B`8 tP rȥ/ _Q7Q3a0_aii !s_2( a) Elseget_t@ype = (I`tem_i&(arr(iii)nd If numsql2\ & " SELECTTO_NUMBER(TRIM(" & meas_column div@") )  ,'$M' a ,WAF_ID FROM COCMEASDATAINFOS @c " QIf l <> U Boundw) - L Thensrunion Xall>ENext20) dd JOINo0OITEM_TYPE_PARENnT|G~1}f "SP" M`'EjSSTD SP,ȡ,|OG(UPPsubstr(SP_A_STATE,INSTR';',-1,1)+1,length ))) C _lot_id,wafcN) c΁lpse '4D40u)-`9 ,?/dg7*X?2y ONV.d%="etCm#: ANDaAWcc.1 )mLEFTCgD5SHIPLISTP c2 A !.A=c2.SUBLOT!? A% WHERE`.FILE_NAME =FileName'' group BY p,'Debug.Printo9_=WFunct '''õȫ @over x Aa _check_mulkd(ByVal"_, %$ d'$Ku)K0ta != "P*@ InS&0), "/y = I&C{g0v Righty, L,TRUNC(MAX(')),5mx $NDEV_Pst4avgaagminmn@sted ,COUNT( gt ~(N"]X*  )& @,_~,`C/u UP) 0n Y"w nn Qy)_l4 !w!n kk"' iO ?3_l2dl@ge@8Y @l.2ufϔ Pi >aAQ$_Pm(0)!"OX YCONCAIL" / "RES0RRG RITION "OX@1 "C MTQCGUB/*LKKAKDKsEKaGKKhKcK4!`_:3GK k%For„og&Nem_arr) - LBound(it div = ""dIf InStrz(iii), "/")d0 Thenlmeas_column%getI|C I);ElseARight Len T+ 1:mesTLef{/$-$}2xnd Ify' 0 typȥx/OQ}Sz<> UzACO6_6_zQADPinumsql2,E& " SELECTTO_NUMBER(TRIM(" & & @ )) : ,LOT_ID ,sub_lot_id FROM COCMEASDATAINFOS c %@`@{ =UL4a!union allE+Next )*!3LEFT JOIN*SHIPLISTSTD c2)`ONb .0=c 2.SUB4AND4$ WHERE.FILE_NAME ='A?FileName@"' )group B Y q$Debug.Print /O#\Q_,_check_mulaovera/=W m0 !Funct 7 õ @  P@ublic  spW(By(Val]_, E#gp'ֻ$@UT8'Wߡp`l0?ӿ 0)l la*p p1jLqa?ӀpqmԀP(q'@! !ju nB(Rp/nB+0#QA[?$B@oO pGJ"cTRUNC(MAX(GdA)),5) mx ,#0KDEV_Pst4avgaagminmnsted @,COUNTrz) ct k(M0!WsssVť?s__rXUSxER_%ZDyp_INz)Owc]q]5eba11.30̨ F-HTP0068BAW') )~ ]/!'d2/-o\d.Q'\'pʱ'[ʵ>(0=a1 A#_`h(01c"RES AIL0" Or6jRGW@?OrTC3 CA%@R6@D@S:@1d<@@h@@)0dFoiiPYo ?1YwDwII@J@IPIIIERE LOT_ID in( SELECT DI0STIN@ FROM COCMEASSHIPLSTD c2 WHFILE_NAME ='" & FileName"') )" If iii <> UBound(item_arr) - L ThenCRnumsq l2 =  & " union all zEnd IfNNext ' ;) 7 'Debug.`PrintS) gete_spot_check_mullovereqN'end p OXYCONCENHEAD*1.96;TAILGYkai= 1 AWQr(0)e"J"0 Or " O|$%|=|įTRUNC(MAX(TO_NUMBERB)),5a@hmx ,D$EVR stavgagDmnD sted ,COUNT) ct( OoN yE ߌaa1x+*s& x; bbyyO 27+"A_w_wyp y_w{_w}_w?_w?VwT:@Uqt1.XQ,sqrt(Aa+qt2.b)Wfrom (//d( pchar^qp) a]]c9 !-Y8 ]D^`h` % J@ @f H d%H(8HXhx(8HXhx(8HXhx(8HXhx(8HXhxxk$*\Rffff*SJ6c06f1b51"   8 P` x   00@H `p* @P p "   ( 8 P  h x   *   8  *X  <    ( 8 2P    2   BHP X h        &   P0     0 08 h $ & $ H *@  p   P 0p 0  (    0 @ X x     $    @   0(0X     (0X`x     000 H X p 2 4  0@ $X    000   0 0@ (X  6  0 0P     0 $6P(0(,6(,0(H(2P(0(0 ($   $ 0 @  P2X     (T0     ( &@ h8   (@ X  `p  RH P ` p      *   B   hx  (hem嵥ļļmatرĻˢ´d (rml/$>$'H Hx嵥ļA@J|PkHA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]DJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dxWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'j#Debug.Print Share & wpstr & ".xlsx" j @.xlsx$x 汾· *!\ͻģ\ B\ @\'h Ʒļ h H' h$x Ʒļ j @.xlsx h H.xlsxA@Hdp hA@ Ʒļ j @.xlsx h H.xlsxA@Hkd7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kpжһ±ǷƷļ h H.xlsx$x] ģļ h H.xlsx %. %.J-----------------------------------------------1--------------------------' B@pORDER_NO ,PLAN_SHIP_TIMESELECT PRODUCT_ID,to_char(PLAN_SHIP_TIME,'YYYY-MM-DD') PLAN_SHIP_TIME,SHIP_NO,CUSTOMER_NAME,ORDER_NO,INVOICE_NO FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @N' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO,INVOICE_NO,SHIP_NO'[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+> INVOICE_NO L%+>SHIP_NO L%+>BCells(2, 6) = Format(idset.Fields("PLAN_SHIP_TIME"), "yyyy-MM-dd")PLAN_SHIP_TIME L%+>ship-qtySELECT SUM(WAFER_COUNT) WAFER_COUNT FROM(SELECT SUM(WAFER_COUNT) WAFER_COUNT,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' group by SUBLOT_ID)'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ WAFER_COUNT L%+>ѭ̶ʽ]  $>  +JظдUд U1$v%!'l  n l  $J n +>ѭsublotidHSELECT SHIP_SEQ,SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' AND PRODUCT_ID =' @1' GROUP BY SUBLOT_ID ,SHIP_SEQ ORDER BY SHIP_SEQ'Debug.Print sql1ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id] L!f' sublotid-1ȡҪ U1$v%!'P$> P$$>$vB@ P'R T N R $>!VB@  R P  'RH'X''ɳϸκU SELECT SHIP_SEQ,SUBLOT_ID,WAFER_COUNT FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' AND PRODUCT_ID =' @=' GROUP BY SUBLOT_ID,WAFER_COUNT,SHIP_SEQ ORDER BY SHIP_SEQ 'ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷  ~ B@[   !  P lot_no SUBLOT_ID %  X  +>lot_qty WAFER_COUNT %  X  +> B@  ' P  'X'''''''sublot_idx '''ֵ κADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT SHIP_SEQ,FILE_NAME,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN mes_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'd[ d d ~ bB@]0 b!'h hfh1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@h k` /'''''''''''''''''''''''''''''''''''''''''''''''''X l hADODB.recordset$p.n t n(r8αͣ޷ x n(v;αԣ޷select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''pDebug.Print sheet3sql p ~ nB@ n!   P nB@r'ѭ  n!*Debug.Print sheet3set.Fields("MEAS_ITEMS")  X $> MEAS_ITEMS n%MEAS_AVG n%  X +>MEAS_PCS n% MEAS_PCS n%  X +>dMEAS_PCS n%  X +>k MEAS_STDEV n%  X +>MEAS_MIN n%  X +>MEAS_MAX n%  X +>( '''дyk nB@   '''''d(ûмݣԺڵECOCA@J|hk` P  l'X lж A1$v%!'  жǰһ 27'   $>   $>   $>   $>'   $>'     %'Debug.Print pd3    $>(^   $>'x x   +> min: uomcolumn-2,max:uomcolumn-1СΪ NG   $>   $>NG   +>kk xmlļ AH1+v NAH2+v P AH3+vApɾid$B@v$B@v$B@v$B@v$B@v$B@v$B@vK-----------------------------------------------2---------------------------k <B@  B@ رչ B@BXĻˢ´ (rA@人о H xmlļA@Jκȱʧ:;MsgBox ("κȱʧݣµκܼ") (oxAttribute VB_Name = "оģ" Sub P() Application.DisplayAlertszFalse 'ļ .رĻˢ´D RScreenUpdangS'FileTrim(Cells(1, 2) If $"" Thend$MsgBo@x ("ShɇU"$E0xit End/connectDBSet wp= CreateObj("ADODB.recordset..Curs orTypad@OpenSt{c 'ͣ޷ " LoadUseClient#ԕ#Dim pdsrc As Sng5 wpsql B'!ƷllPathrKCSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &x& "' GROUP BY JsLY@k5, cs8DBCrC4Whs.EOF <> True@>жǷΪһ A'ȡ3@treFields("*'õ`"AcustomernCB("7mrpcsApԭs·һ'ӵ繲a+F<\\10.A52.142`\coc\. ServerShar"112Zradministrator`Passwm."fthw-829`05028hI#Folder~sts()h%DE@ 0 ElNet kc KW@ipt.)Afso!ing.!Sypstem# -.MapDriv e "",)2, ɂ, ,, %)K]g 1i'%F>aK?iAx\̀ͻ?\A|^!iG 'Debug.Pri &{n .xlsxH?=1@'汾\a=@GisWorkboo|k."*8EvAxmdl_"~=   vo'q1a(Copy o,/ L4a3MultiLevel: (G 1/ Q2/ pDe""/ G/ ///o T"2ûжӦ10V`,ȷ'(-k! 8h;M BRemoveB=:,pB;OO= NothJx DwһA7w/0,s!O.qs@a[a;13%< 'x%:= %s.q_ 1h}Zt ExcelShe`=E .spp '-19Wxxix`.Apctiv9H'(ORDAOP ,PLAN_!_TIME@1P"$,to_cEЄ(,'Y-MM-DD') NO,,,INVOIC //`/' ANDب #k/|  , @%qO)iɐk euI ̟̟3}A6 ! 2, 1)@!;-z2$ 3-@'v6qFormat( [/"), "&yQ1dd̵ Cells(2, 6) = idset.Fields("PLAN_SHIP_TIME")  "'shipp-qty$lsql1"SELECT SUM(WAFER_CO UNT)  FROM( (,SUBLOT_ID2 COCMEASLISTSTD WHERE FILE_NAME='" & FileName"' AND P`RODUC%wpstr group byZ7)"pSetsCreateObject("ADODB.recorCurs@orType!adOpenStatic 'αͣ޷F (Loc "on*UseC lient,A% s, csDBConn@9ion!F5O|'ѭ̶ʽODim GD_item(17) As String For @E1 To 18 - 115CNextG'ظд UдQjco pycoud= Range("U1").End(xlDown).xrow'!0 wt9 - 2 u+ B !K E '';sublotid1$l SEQt cJn~{_ IGROUP BYG , ORxDER'Debug.P`Qtg/'/____#8__eAc _aD_id_fRBCh('''̼ӹ`id _ getRow s'%W-1'ȡҪS!r_ | !1), E , 36)).C@c_w qCcp QP + 1,CS`LtireP.PasteSpecial =u Fyy 0xx{s''ɳϸκųS5H2" HID,mIIωIIOJS _J G0b//yt.q"oF`m <[r >A3s!23IK 4i/1TsiNnoHS:i + 3+:9 %ƵX203F;o? " MoveA@pO 0BE() * xxf"a`Sq<3  A浐IHp& S!o:o::Ư/l@Q ;adzt!IDTINQ ,,CASENOUB_IS NULL THE6EL{CE=DLEFT JO@IN mesTAG ms" _"9& " Os.CUSTOMER_38 =c~.8@rm̵ =c.LOT_ID AND ms.CUSTOMER_ WHERE c.FILE_NAME ='" & Fi@leName"'PRODUCDwpstr> ORDER BY SHIP_SEQ" Debug.Print sqlSublottt(A.Open +, csDBConnectiondim subitem,9cou@=+.RecordC ReD)(1 To0]#) 'A¶H%If  > 0 ThebFori =~ ;. SAD(3.i)YFi@elds("sUfB@")p.MoveNexqSEnd IfC',C xxEyy0DMxM' 'Seheet3s@= CreateObj("ADODB\.rBFs.CursorTy$pe@'adStatic 'αͣ޷Î@S' LoconUseCl ieZf ' d ql "sel MEAS_ITEMS, @ROUND("M IN,5)E ,IAX@M`H8AVGFaHST8DEV PCS from COCDATASUBSUM where c3`w& FLAG='F'$' "" Or < `0W%gqlowCharx oa_Qup+ 3A a(pd3@ c pdz.c( 8, i:`_Q_QO@6).!mula q0Valu/"qpOA 'min:%-2 ,max:!-19 'Ϊ NGIf Cells(i, uomcolumn - 2) = @"" And@1@ThenZ[+ 6:NG"7ErIf# 0NextxmlļRange(`"AH1"J_Ppath2lot_id_co,unC.3co@py_row10a Call 人о_createV 'ɾi(dЏCxs(27).Delete#'(<8<'-+2 OwpSet.Move '\dataworkbo@ok.Savb'رչ Clos!#Wendd'Ļˀ´Applicat ion.SHenDUp`ing}Tru Cc DBMsgBox "%P" & FileName @"@Qalz 'ȱʧ(: '("µ ɣܼ")@diDisplayAlertsFA1Sub!gZ0!$@xMEh<6 > >0L@  B "..0 H Xp &^ ^  $^  H P `:p $  ::  6 `8 (Px^   .< .( l@ (` $tx .<2 l ( $t0X$.`<2 l ( $t . <@$X .p ( .l($t  ( 08@ H$X hp "x &    B (.&.0 X h x "  B  2    "  &       (  28 8H  X  h "x       ]XC1$v'@D1$v'Bb1$v' *!\ͻģ\ B\ @\ .xml' A@oXp]]]]0]H]`]x]]]]MSXML2.DOMDocument$p.coa %.  /sublot GLOBXMLļ'H  (  $>batch-no  ' k0  $>Lot_No  '  $>+>k  $>parameter-name  '   ' @ $6'  e '  '@  $6' @  $6'   ' k=COUNTA(  :  )+>$> ' "A = Range(ZM & "65536").End(3).rowk  $>variance  ' kPHӽڵcoa_headcoa_head %.  !%.'ѭӽڵ1~6    $> %.  %.@  $> % @ B@X coa_content %.  !%.    $> %.  %.@  $> % @ B@supplier_content %.  !%.     $> %.  %.@  $> % @ B@ parameters %.  !%.   parameter %.  %.@      $> %.  @ %.  $> % B@..] $'  A@.. Range("E1", "H1").Clear MsgBox xmlFile & ""i0ʽxml,]]Msxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'iP utf8BOMʽ]H .B@ 0 .(lutf-8 .(2 8 .B@4 stream.WriteText "" & vbCrLf , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:]h > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@BiH@ӵAttribute VB_Name = "оxml" Sub qingdao_c reate\() Dim File Asd Sng4 wpstrRange("C1"rcustomervntDbm= ThisWorkbook.Path & "\ģ\" h! 5...xlCtXmlo End k Function (L# DocOb0jectro`otNod h eadernew Ll5batch_noIntegerA/Lot_Nvarianc5 par|ter_~KSet x K=WF("MSXML2.DOM@umentŒ R=B.Ele ("coaI >. @9'sublotĦ "GLOB$D or @counts@1 To 40CIf Cells(2,D ) "B[-no"en ; Fb=D IfTk9/ 01, 1a3,~ cD\b?-߁?C1'x+ 1'""<0= 26p-ZM` Chr(64 + ,aEls*e > i1 .\Ka iQModS!i tS2iQ" & S2M< YC5;=COUNT\A( :G)A"a6'!c 65536").`(3).rowg`2U?lON Nex''ӽڵ_AEb% d.appendChil d( ?''ѭ1~6FJ1&BJVF-3 Vi)|'O % r? deLtَ (B[s]T1p(cI`(  apa_conGeoc-c fp`V`o!Ж%l V 4~O!rode  "suppli0_ "/.{__0Z S 8qE1%#"s/EX/E/EC!C3qA 666 )  o,%|B%6VC@ \ ? 4/PcLw 6 a1t ii, {MA  Nothe Tہ`&@Q= PrettyPrint@XWriteUtf8WithoutBo&, v'$E1", "H.CleaȁMsgBoxU!Sr'ʽ ,ݝmldoc)ߍ w1/`Qݾs2.(SAXRr.6|.0%24MrC.indҐTrue*.omitXMLDeclaration = Tr ue reader.contentHandlerwriter Parse (xmldoc)4PrettyPrintXmln.Output End Fu ncw1 ' utf8BOMH ! WuU WithoutBom(FileName As Stig, Dim stmNew ADpODB. Y.Open Type`adTex^Ch~t"`-8"[ vbCrLfsG"E&&T55'Ƴǰֽڣ0xE@F,0xBBF PosiD3bnewYleac. `B`inaryCModhRVM v(CopyT o  Flush losA @SaveTo ť, adCxteOv%CK YcocfPageTt-sublot(uRwafUtilsegX__SRP_10} 3 A $LpMTwIGT2*=h8+3q.K!{Rx.K!{RMTwIGT2MExSS S6"  LL<$tN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}p `hkX8I xIH `@( @ @ @X @ @ @( @  p%H %x(X@x P8tZz~vtx@h |@ @ @ @ @ @Hp @X @@@ @h @P @X8 @ |@ @ @ > @ @ @0 @` @p @xX @@ x@( @ @ `Hppx@8`k$*\Rffff*TN6c07d7ed*\R4*#5d*\R1*#12*\R4*#7*\R4*#1*\R1*#2a3$*\Rffff*TD6c07b697*\R0*#f$*\Rffff*TE6c07b76b*\R1*#135*\R1*#141*\R1*#409`"   N  0(8N` px 2H2 x8Z,&&  x8Z, 4 &  4 &( HP X  hx8xZ, &  &@` h  xx8Z,  &0 &Pp x  x8Z,0 &@ &` NHHHHHH H8HPh Np *8F ^ "8  ` ^8p 0 0 F0  H  X 2`h 6t 8t *`  @ 4P N  6t 8t *h 8 <@  ^       N   ^(  N@  :P  N`  &  &  :  & &8  `  p N* 2,  N2P(XN,`.`0`6t 8tX*`  ]Dim arr$tB@HA@Z$t!$ CofC page 2$tB@HA@ZkA@z  ׼ģ.xlsx  ׼ģ.xls](@X.bSELECT * FROM COCMEASDATASUM c WHERE MEAS_ITEMS = 'MOQCBVAUA' AND LOT_FLAG = 'T' AND lot_id = ' H ' '  ~ B@ ! MEAS_MAX %'MEAS_Min %'k B@B.bSELECT * FROM COCMEASDATASUM c WHERE MEAS_ITEMS = 'MOQCBVADA' AND LOT_FLAG = 'T' AND lot_id = ' H ' '  ~ B@ ! MEAS_MAX % MEAS_MAX %'k MEAS_MIN % MEAS_MIN %'kk B@B.bSELECT * FROM COCMEASDATASUM c WHERE MEAS_ITEMS = 'MOQCBVWUA' AND LOT_FLAG = 'T' AND lot_id = ' H ' '  ~ B@ ! MEAS_MAX %'MEAS_Min %'k B@B.bSELECT * FROM COCMEASDATASUM c WHERE MEAS_ITEMS = 'MOQCBVWDA' AND LOT_FLAG = 'T' AND lot_id = ' H ' '  ~ B@ ! MEAS_MAX %'MEAS_Min %'k B@B.bSELECT * FROM COCMEASDATASUM c WHERE MEAS_ITEMS = 'MOQCBCAVE' AND LOT_FLAG = 'T' AND lot_id = ' H ' '  ~ B@ ! MEAS_MAX %'MEAS_Min %'kx B@B$tB@H D46$v(x F46$v(x D47$v(x F47$v(x D48$v(x F48$v(x D49$v(x F49$v(xk$tB@H.SELECT FILE_NAME ,ORDER_NO CUSTOMER_ORDER_NO,SUM(WAFER_COUNT) SHIP_QTY,SUM(WAFER_COUNT) ORDRE_QTY,PLAN_SHIP_TIME PLAN_DATE,CUSTOMER_NAME,CUSTOMER_PRODUCT FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME = ' H L' GROUP BY FILE_NAME ,ORDER_NO,PLAN_SHIP_TIME,CUSTOMER_NAME,CUSTOMER_PRODUCT '  ~ B@WSELECT * FROM COCMEASSHIPLISTSTD C WHERE FILE_NAME = '515ʿpacking list'ļҵеlot.7SELECT * FROM COCMEASSHIPLISTSTD C WHERE FILE_NAME = ' H' order by lot_id' t (r"αͣ޷ x (v%αԣ޷  ~ B@[ [ CUSTOMER_ORDER_NO %B10$v(xSHIP_QTY % WafersB11$v(x ORDRE_QTY % WafersB12$v(x PLAN_DATE %B13$v(x װҳֵ$t!$shipping lot-list page 1$tB@HSHIP_QTY % WafersE10$v(x ORDRE_QTY % WafersE11$v(x ! CassettesE12$v(x '5ҵCassettesڶУȻ3ʹӴпʼֵlotid $> Cassettes  'H  ' ѡвҳ COCļ$tB@Hcocҳindex' $>$tB@H@ ( COCļ$tB@H $> $t,> $> $t,> $> $ $t,> $> $t,> $> $t,>  '  'x$tB@H  :  $B@H B@  9 9q COCļ$tB@H  $>  $t,>k$t!$ CofC page 2$tB@H CUSTOMER_NAME %B6$v(xCUSTOMER_PRODUCT %B8$v(xCUSTOMER_ORDER_NO %B9$v(xSHIP_QTY % WafersB10$v(x ORDRE_QTY % WafersB11$v(x PLAN_DATE %B12$v(xk8o0(ڵAttribute VB_Name = "cocfPage"  Bas|0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacAFalse dCreatablPredeclaIdCExposeTemplateDerivCustomiz ESub (ModeFile, l) @ Dimf@c As SnBg ' arrSheets(3).Select CofcIf Trim(4).2C p 2"` Then3 , .End If conn!3, 2G5Y@ 2Count > 0LsDO( Fields("/MAX"@DW in }Clo!qE S-@ۿ--D-'--_-.-0abin@N=IN") !@?Ba?BY:Select#E10SHIP_QTY") & " Wafers"H?1ORDRE" 2 1.Record Count=Ca@ssette>r@owItem12I'ҵڶȻ3ʹӴпʼ idWhile Cells(0, 1) <>< "BG"E+ 1en 3 G'ѡвҳx"COC0ļO { 'coc`index@RowN4I>>|ژ "ion.NumberFormatLocal"@3g=l.62A׻2 3Mid(3)'x, 9fV'cA,4 43`, 6o4lc/ ToRvX Jf s w:" `).UGFMerge1hRithJK:.HorizontalAlignme= xlLefǞa .VertiP C er End W 'm !:BhS aIfcؿCofzC#2)'I*6CUSTOMER_NAM&e8|PRODUCvT9@O_!HKe1ΘOKW 44 aSub       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~%1 2xME @<< <<<6 <<0<8<@  2"b&(8@$H.` .x  2 @ , @    @8x  ^4D:8Dx D   @x4P   00F@X`hp*x . 8 V ^@         . > $T0 ,lX             $      X48 b 0 0( FX p *x .  ,t   P 8 X ` @h @(  @@(X  ZNFv 6@$@`"86l Z $ (J((&x,0 4<8B4 40 4<(8BH4,((&04 8<(+ 2P+$lh+( "+,J+,&+0,4 ,8<,p2 22$l2( "2,J2,&030H34 P38<`386 2`6$lx6( "6,L6(6("l7,J(7(x7$ 7, 7$7 777777 77 7 7 7 8  8 08.88(P8"`8Hp8 @8  8 8080(94X9pP:F:,:"&: ::: :  ;0;0@;vbp;F;*< "8< 8<bH<Z<&< =  =&(= H= .P= h=>=P=  >0>8>@@>@(> >>>@>@(0?  p?ZN?F?2?6@ l8@$ZX@$x@( @,b@,&@0A4 A8<(Ak k$Jk(2l,l l0"l@l4dhl4&l<l@ lD <mHZ mDm D@ mD <mHZmDn< n4(n4&0nHHnL PnP <`nTZnPnL nP <nTZoPxoHo4o0 o4 "o8bo8&p<(p@ 0pD<@pHZ`pDp D@ pD<pHZpDXq<`q8hq8&pqHqL qP<qTZqP rL (rP<8rTZXrPrHr8r4r0r 00"lr4Ps0Xs0&l`s4bs4&s<t@ tD< tHZ@tDt D@ tD<tHZtD8u<@u4Hu4&PuDhuH puL<uPZuLvH vL<vPZ8vLvDv4v0v0Dv4dw0hw, pw0 xw,w(w$ w w(2w,lw0 "w4bw4&Xx<px@ xxD<xHZxDy D@ yD< yHZ@yDy<y4y4&yDyH yL<yPZzLhzH pzL<zPZzL{D{4{0{0"l {4PH{0{0&l{4b{4&0|<H|@ P|D<`|HZ|D| D@ |D<|HZ}Dx}<}4}4&}D}H }L<}PZ}L@~H H~L<X~PZx~L~D~4~0~0D~4d@0, 0 ,($ $ &>$2(l, "80bH0&<Ȁ@ ЀD<HZD` D@ hD<xHZD<00&@(D 0H<@LZ`HD ȂH<؂LZHX@`0h,p,"lx0P,( , ($ ">$2@(lX, "x0d,,"l0P ,p( x, ($  $8L ؅     0 8HP  X`6hRxJ 2J 2ȆJ؆ 2J 2J( 2@@PHh x  4    NЇt  xH  ЈV  8RP (080h F,d H$L 8xHH  V  pRP (P0p0 ЏF,d (  0 2.@x  6А   4 60 @ P]pcocĵ洢·]ǰĿ¼]] ֵ]0Ʒ]ͻ]`ģ·]0ģ]Ӧ·µģ]`Ӧ·µģ]0,жģǷװҳҳжӦ߼] P?3ҳװҳҳҳӦĿʼsheet Index] ] (r$tB@HB1$v!x$'H *!'P z!'R *B@)ļȡoverallûм HA@ģȡҳ.~ P R H l T  Z X V N ^ ` b n ~B@ҳӦλֵ. X H  B@ װҳӦλֵ `. R f B@klotҳӦλֵ b. R H h B@k8+lotģҳзҳMData page 1(1)$t!'j l'P'B]     n !$t j   $tB@D5 !$t%vB@H B@C5$vB@H <B@C6$vB@]8 !$!' MData page  ( ) $t(xҳ  !  $t! $ CofC pagePage / !   $t,>  $t!$Ingot-list pageePage / !   $t,>d8Page / !   $t,>kÿһҳlot_no иֵ .;select SUBLOT_ID from COCMEASSHIPLISTSTD where FILE_NAME =' H '' group by SUBLOT_ID order by SUBLOT_ID 'A@z . t (r!αͣ޷ x (v$αԣ޷  ~ B@]P]h]' %b   n MData page ( )$tB@H MAIN LOT NO  MData page ( )$t,> SUBLOT_ID %  MData page ( )$t,>X  e '  '  n MData page  ( )$tB@H MAIN LOT NO  +> SUBLOT_ID %  +>pkh B@  '@ B@B ~B@BǰҳOverall λиֵA@z .COCMEASDATASUBSUM2select * from COCMEASDATASUBSUM where FILE_NAME =' H ' AND LOT_FLAG='T' '\sql = "select * from COCMEASDATASUBSUM where FILE_NAME ='" + filename + "' AND LOT_FLAG='T'" t (r!αͣ޷ x (v$αԣ޷  ~ B@P'B %b  n MData page 1( )$tB@H  BK $v!xK $v!x MEAS_ITEMS %޵ֵԼǷ񿪱]]O $v!xO $v!x$'N $v!xN $v!x$'޵ֵԼǷ񿪱]]Q $v!xQ $v!x$'P $v!xP $v!x$' .0select * from COCMEASITEMSTD where meas_items =' meas_items % ' '  ~ B@[K $v!x[meas_way %[meas_way %$meas_way %$    B $v!xB $v!x' MinKTMEAS_MIN %  MData page 1( )$t,>   >=KTMEAS_MIN %   MData page 1( )$t%>!(k>KTMEAS_MIN %   MData page 1( )$t%>!(khn`kX   <=KTMEAS_MIN %   MData page 1( )$t%>!(k <KTMEAS_MIN %   MData page 1( )$t%>!(k8 n0 k( MaxKTMEAS_MAX %  MData page 1( )$t,>   >=KTMEAS_MAX %   MData page 1( )$t%>!(k( >KTMEAS_MAX %   MData page 1( )$t%>!(k n k   <=KTMEAS_MAX %   MData page 1( )$t%>!(k <KTMEAS_MAX %   MData page 1( )$t%>!(kx np kh AverageKTMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(kh >KTMEAS_AVG %   MData page 1( )$t%>!(knk   <=KTMEAS_AVG %   MData page 1( )$t%>!(k8<KTMEAS_AVG %   MData page 1( )$t%>!(knkSTDKT MEAS_STDEV %  MData page 1( )$t,>S.DKT MEAS_STDEV %  MData page 1( )$t,>PcsKTMEAS_PCS %  MData page 1( )$t,>Sxnpdhy`kXPdHB $v!x    B $v!xB $v!x' MinKTMEAS_MIN %  MData page 1( )$t,>   >=KTMEAS_MIN %   MData page 1( )$t%>!(k>KTMEAS_MIN %   MData page 1( )$t%>!(k@n8k0   <=KTMEAS_MIN %   MData page 1( )$t%>!(k<KTMEAS_MIN %   MData page 1( )$t%>!(knkMaxKTMEAS_MAX %  MData page 1( )$t,>   >=KTMEAS_MAX %   MData page 1( )$t%>!(k>KTMEAS_MAX %   MData page 1( )$t%>!(knxkp   <=KTMEAS_MAX %   MData page 1( )$t%>!(k<KTMEAS_MAX %   MData page 1( )$t%>!(kPnHk@AverageKTMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(k@>KTMEAS_AVG %   MData page 1( )$t%>!(knk   <=KTMEAS_AVG %   MData page 1( )$t%>!(k<KTMEAS_AVG %   MData page 1( )$t%>!(knkSTDKT MEAS_STDEV %  MData page 1( )$t,>S.DKT MEAS_STDEV %  MData page 1( )$t,>PcsKTMEAS_PCS %  MData page 1( )$t,>SXPnHd@y8k0(d MEAS_WAY %Min    B $v!x  MEAS_MIN %  MData page 1( )$t,>   >=KTMEAS_MIN %   MData page 1( )$t%>!(k>KTMEAS_MIN %   MData page 1( )$t%>!(k@n8k0   <=KTMEAS_MIN %   MData page 1( )$t%>!(k<KTMEAS_MIN %   MData page 1( )$t%>!(knkkB $v!xPcsMEAS_PCS %  MData page 1( )$t,>kxB $v!xAverageMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(k`>KTMEAS_AVG %   MData page 1( )$t%>!(knk   <=KTMEAS_AVG %   MData page 1( )$t%>!(k0<KTMEAS_AVG %   MData page 1( )$t%>!(knkkB $v!xSTDB $v!xS.D MEAS_STDEV %  MData page 1( )$t,>kdykMEAS_WAY %Maxe    B $v!x  MEAS_MAX %  MData page 1( )$t,>   >=KTMEAS_MAX %   MData page 1( )$t%>!(kx>KTMEAS_MAX %   MData page 1( )$t%>!(knk   <=KTMEAS_MAX %   MData page 1( )$t%>!(kH<KTMEAS_MAX %   MData page 1( )$t%>!(knkkB $v!xPcsMEAS_PCS %  MData page 1( )$t,>k0B $v!xAverageMEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(k>KTMEAS_AVG %   MData page 1( )$t%>!(knk   <=KTMEAS_AVG %   MData page 1( )$t%>!(k<KTMEAS_AVG %   MData page 1( )$t%>!(khn`kXkPB $v!xSTDB $v!xS.D MEAS_STDEV %  MData page 1( )$t,>k d y k  MEAS_WAY %Averagee    B $v!x  MEAS_AVG %  MData page 1( )$t,>   >=KTMEAS_AVG %   MData page 1( )$t%>!(k0 >KTMEAS_AVG %   MData page 1( )$t%>!(k n k   <=KTMEAS_AVG %   MData page 1( )$t%>!(k <KTMEAS_AVG %   MData page 1( )$t%>!(k nx kp kh B $v!xPcsMEAS_PCS %  MData page 1( )$t,>k d y k  MEAS_WAY %STDe    B $v!x   MEAS_STDEV %  MData page 1( )$t,>k B $v!xPcsMEAS_PCS %  MData page 1( )$t,>kdxypkh`kXkPkHk@80( B@ B@B ~B@BÿlotӦֵA@z  l '  '  MData page  (1)$t%>!x' OVERALL HLOT . t (r&αͣ޷ x (v)αԣ޷SELECT DISTINCT CASE WHEN ms.SHIP_SUB_LOT_ID IS NULL THEN ms.CUSTOMER_LOT ELSE ms.SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM MES_SHIPTAG ms WHERE ms.CUSTOMER_SUBLOT ='  ' ' Sand CUSTOMER_SUBLOT IN (SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H')'  ~ B@ ! SHIP_SUB_LOT_ID %'d  'k B@B . t (r%αͣ޷ x (v(αԣ޷2select * from COCMEASDATASUBSUM where SUBLOT_ID ='  "' AND LOT_FLAG='F' AND FILE_NAME=' H''  ~ B@ %b MEAS_TYPE %A .PSELECT sum(wafer_count) WAFER_COUNT FROM COCMEASSHIPLISTSTD WHERE SUBLOT_ID = '  ' and FILE_NAME =' H ' '  ~ B@ WAFER_COUNT %'  B@BdMEAS_PCS %' k  n  B MData page  ( )$tB@HK $v!xK $v!x MEAS_ITEMS %޵ֵԼǷ񿪱]]O $v!xO $v!x$'N $v!xN $v!x$' ޵ֵԼǷ񿪱](]@Q $v!xQ $v!x$'"P $v!xP $v!x$'$ .0select * from COCMEASITEMSTD where meas_items =' meas_items % ' '  ~ B@meas_way %$    B $v!xB $v!x' MinKTMEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_MIN % "   MData page  ( )$t%>!(kP>>KTMEAS_MIN % "   MData page  ( )$t%>!(k=n=k=  $ $<=KTMEAS_MIN %    MData page  ( )$t%>!(k<<KTMEAS_MIN %    MData page  ( )$t%>!(kX<nP<kH<MaxKTMEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "   MData page  ( )$t%>!(k;>KTMEAS_MAX % "   MData page  ( )$t%>!(k:nx:kp:  $ $<=KTMEAS_MAX %    MData page  ( )$t%>!(k9<KTMEAS_MAX %    MData page  ( )$t%>!(k 9n9k9AverageKTMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k7>KTMEAS_AVG % "   MData page  ( )$t%>!(kH7n@7k87  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k6<KTMEAS_AVG %    MData page  ( )$t%>!(k5n5k5STDKT MEAS_STDEV %   MData page  ( )$t,>S.DKT MEAS_STDEV %   MData page  ( )$t,>PcsKT    MData page  ( )$t,>S4x4np4dh4y`4kX4P4dH4B $v!x    B $v!xB $v!x' MinKTMEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_MIN % "   MData page  ( )$t%>!(k2>KTMEAS_MIN % "   MData page  ( )$t%>!(k1n1k1  $ $<=KTMEAS_MIN %    MData page  ( )$t%>!(k01<KTMEAS_MIN %    MData page  ( )$t%>!(k0n0k0MaxKTMEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "   MData page  ( )$t%>!(kX/>KTMEAS_MAX % "   MData page  ( )$t%>!(k.n.k.  $ $<=KTMEAS_MAX %    MData page  ( )$t%>!(k-<KTMEAS_MAX %    MData page  ( )$t%>!(k`-nX-kP-AverageKTMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k ,>KTMEAS_AVG % "   MData page  ( )$t%>!(k+n+kx+  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k*<KTMEAS_AVG %    MData page  ( )$t%>!(k(*n *k*STDKT MEAS_STDEV %   MData page  ( )$t,>S.DKT MEAS_STDEV %   MData page  ( )$t,>PcsKT    MData page  ( )$t,>S((n(d(y(k((d(MEAS_WAY %Min candy start $H    B $v!xB $v!xHead MEAS_HEAD %   MData page  ( )$t,> "  >=KT MEAS_HEAD % "   MData page  ( )$t%>!(k&>KT MEAS_HEAD % "   MData page  ( )$t%>!(k&n&k&  $ $<=KT MEAS_HEAD %    MData page  ( )$t%>!(kH%<KT MEAS_HEAD %    MData page  ( )$t%>!(k$n$k$d$  MEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_MIN % "   MData page  ( )$t%>!(kh#>KTMEAS_MIN % "   MData page  ( )$t%>!(k"n"k"  $ $<=KTMEAS_MIN %    MData page  ( )$t%>!(k"<KTMEAS_MIN %    MData page  ( )$t%>!(kp!nh!k`!kX!kP!B $v!xPcs    MData page  ( )$t,>k B $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k>KTMEAS_AVG % "   MData page  ( )$t%>!(knk  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k(<KTMEAS_AVG %    MData page  ( )$t%>!(knkkxB $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>kdykd candy end    B $v!x  MEAS_MIN %   MData page  ( )$t,> "  >=KTMEAS_MIN % "   MData page  ( )$t%>!(k >KTMEAS_MIN % "   MData page  ( )$t%>!(knkx  $ $<=KTMEAS_MIN %    MData page  ( )$t%>!(k<KTMEAS_MIN %    MData page  ( )$t%>!(k(n kkB $v!xPcs    MData page  ( )$t,>kB $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(kH>KTMEAS_AVG % "   MData page  ( )$t%>!(knk  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k<KTMEAS_AVG %    MData page  ( )$t%>!(kPnHk@k8B $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>kdxypkh`kXMEAS_WAY %Maxe candy start $H    B $v!xB $v!xTail MEAS_TAIL %   MData page  ( )$t,> "  >=KT MEAS_TAIL % "   MData page  ( )$t%>!(kx>KT MEAS_TAIL % "   MData page  ( )$t%>!(knk  $ $<=KT MEAS_TAIL %    MData page  ( )$t%>!(k<KT MEAS_TAIL %    MData page  ( )$t%>!(knxkpdh  MEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "   MData page  ( )$t%>!(k8>KTMEAS_MAX % "   MData page  ( )$t%>!(knk  $ $<=KTMEAS_MAX %    MData page  ( )$t%>!(k <KTMEAS_MAX %    MData page  ( )$t%>!(k@ n8 k0 k( k B $v!xPcs    MData page  ( )$t,>k B $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(kX >KTMEAS_AVG % "   MData page  ( )$t%>!(k n k  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k <KTMEAS_AVG %    MData page  ( )$t%>!(k` nX kP kH B $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>kdykxpdh candy end    B $v!x  MEAS_MAX %   MData page  ( )$t,> "  >=KTMEAS_MAX % "   MData page  ( )$t%>!(k>KTMEAS_MAX % "   MData page  ( )$t%>!(kXnPkH  $ $<=KTMEAS_MAX %    MData page  ( )$t%>!(k<KTMEAS_MAX %    MData page  ( )$t%>!(knkkB $v!xPcs    MData page  ( )$t,>k`B $v!xAverageMEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k>KTMEAS_AVG % "   MData page  ( )$t%>!(knxkp  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k<KTMEAS_AVG %    MData page  ( )$t%>!(k nkkB $v!xSTDB $v!xS.D MEAS_STDEV %   MData page  ( )$t,>kPdHy@k80k(MEAS_WAY %Averagee    B $v!x  MEAS_AVG %   MData page  ( )$t,> "  >=KTMEAS_AVG % "   MData page  ( )$t%>!(k~>KTMEAS_AVG % "   MData page  ( )$t%>!(k~n}k}  $ $<=KTMEAS_AVG %    MData page  ( )$t%>!(k8}<KTMEAS_AVG %    MData page  ( )$t%>!(k|n|k|k|B $v!xPcs    MData page  ( )$t,>k|d|y{k{{MEAS_WAY %STDe    B $v!x   MEAS_STDEV %   MData page  ( )$t,>k{B $v!xPcs    MData page  ( )$t,>kzdzyxzkpzhzd`z-ȷMEAS_WAY: Max,Min,Average,STD,PcsA@Jk zkzkz B@Bkyyyy B@y B@Bkyy]X j'  t $tB@HK$B@H B@N$B@H B@O$B@H B@P$B@H B@Q$B@H B@A1$vB@H ! yxkxx  '`x (жǷӰװʱ$B@H$>Dateȡʱp SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date FROM F3PRD.DOPE_his 'H H: where OPE_ID in('PKG','EPKG') and his_cat IN ('OC','LO') 'H H and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c 'H HG LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL 'H Hz THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT 'H H WHERE FILE_NAME =' H#' )) order by his_regist_dttm ASC 'HADODB.recordset$p.J t J(r/αͣ޷ x J(v2αԣ޷[ H H ~ JB@MANUFACTURE_DATE J%+>dt <%B@zManufacture Date:+>ȡʱp SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyy/MM/dd') manufacture_date FROM F3PRD.DOPE_his 'H H: where OPE_ID in('PKG','EPKG') and his_cat IN ('OC','LO') 'H H and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c 'H HG LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL 'H Hz THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT 'H H WHERE FILE_NAME =' H#' )) order by his_regist_dttm ASC 'HADODB.recordset$p.J t J(r/αͣ޷ x J(v2αԣ޷[ H H ~ JB@MANUFACTURE_DATE J%+>ko ~B@B X ׼ģ.xlsx X ׼ģ.xls N  *B@dho N  *B@kHo{enter}A@ ( P\ RH B@{enter}A@ H.xlsA@ (ronnhAttribute VB_Name = "sublotͨ" Dim savePath As Sng 'cocĵ洢·Vcurrent \'ǰĿ¼ TFilez]uֵ&product ' Ʒ"cu@stomer ͻmodqģmTH# 'Ӧ$µāL: xNCofCFlag, Ingot12 Boolean 'жρ4װҳɁЂJ߼IofcIndex 2`mdataAIntegV' ҳĿsheet/@@CounoDKMege Sub Mai n() `Application.ScreenUp@)i= False IS!s(2).Select= Trim(Range("B1").ValueD hisWorkbook. Active A}u TIS@ۃC 'ļȡoverallVûм SUBisCalO All E CCȡH ҳS 4{MNew A 1c.$ (!, ,&, <, ur, `A#,&, }`!TGCTQλAH#`fPaM= (.h'2-CbIfx T8hen `Wot/b}1b..b1tCEnd Ifc'2_cs!c2-2 "2G29B_aS!VҳзV= d|"MD @ p!;1(1)`yiyuF( / 6|r@80iƔAaGFor j1 To yu~ig(+ i - 1).Copy Aftper:=bs$ .$D5)RPTA CcM O\stV6ClearCont s[QY4^K= G(1).t!" &+ 1p"(i) 8Nexb'Q! 316Mid( 0i + @i , 1, 9) $"AO,"xB[Cell0m, 3R1C& / Er15;-liuHM02k <= 58J?m_11}G>G/Vm=.15, k##AMAIN `( NO(MO rmo"sc6hFields("V."i5dFk >=t(k. x1k 6 @Pg i? _?s% 61onρ9?ID9|KMK--LoopCClo se csDBConnection.Clo|'ǰҳOverall и&DBSet rs = New ADODB.RecordsetB'COCMEASDATAS UBSUMsqBl6"sel * from + where FILE_NAME ='" + FileName "' AND LOT_FLAG='T'"y:bf1n1rs.CursorTypegadOpenStatic 'αͣ޷0R Locon"Use@Client"X"; x,N 2@80D0o Wh7m.EOF() <> TruDAFor j 1 To mdataMod0ePag Sheets("MD  p 1(" && ")").SwA Ajk@6ArIf Range("Kk).Value)"" And=4Fie ldA$@_ITEMS") Then'ֵԼǷՓ Dim min#As DoublD axChar String= IIf(?O?,E>, 0n) N j, "" '&y%! d!&@bin& maxC }Qj& P j&41@b?g)# }ӧ^TDdmeas_item@dgd+ "E rs1.%1SMDebug.P^t EZyTKjway")? (IsEmpty(4T@IsNull`4AX !i@kv27?&B=MiWtmpvB=j Z Case _]""Mi>nw?ccCells(i, 3)+_MINJoC o0dFeoO>=;  >=7R .Interi@or.Col= 65535E~If_?S3* >12Q=%W=|_==_ 3%~<=>%<>>%%%%_?4;/%'_ End If #HnSelect'v)Case "Max"'_Sheets("MData page 1(" & j")").Cells(i, 3) = rs@.FieldEAS_MAX")'7If maxValue <> 0 AChar"" Then'( %+ ">= 6F >=G<6j.Interior.Color@n65535EA )I,vb?bʨ >ac0Hf0 0a zinzinz*{ Iq {<{c6|< |?| #K_K$??5 ">?%%%%?4;/%/ Sheets("MData page 1(" & j ")").Cells(i, 3).Interior.Color = 65535 +End If/?7Select';)kCase "STD"/rs. FieldEAS_6EV")#8P.P|(PcsGPӢPPPCSOElsewGoTo nextitem '!Exitp ForWNIf Ra@nge("Bk).Value4"" ThenWH ik + 2 ,7{i<> dtmpv  "_ ?$"MinfEߎ@,͎MINf* max< -0 A Char _/ )( ( >=)b@KR% >=?[ 7$B_r, >/? q4pmin@in@@ &<@&&<@@&&&&_?4</% %_?<?SMax__V_MAX"oGjGaxoG?1O Sheets("MData page 1(" & j ")").Cells(i, 3).Interior.Color = 65535 *End If7?39Case ">";If rs.FieldEAS_MAX") > maxValue Then0ftSelectk?amin[<> 0 A@ Char ""{a0 BrÚ<=?<= &CvM?$c ?5r 4"<_,Vyߎ?1_ >`GOn *?./? qOK??p&x@in@@3&_3'''ψ''''?!4>O/%ωo???SSTD/_EV/? .  Sheets("MData page 1(" & j ")").Cells(i, 3) = rs.FielddEAS_STDEV") Case "Pcs"'3<=PCS!.SElseRGoTo nextitem#End Select+HExit For If [N=SW.If1˗WAY""Min" Then I< ik ckp + 5 Range("BAi).Value <> " , }MINGiA max0 AB Char!t[ ~ 13q Æ>=4 B% >= `??L 7(.Interior. ColorV65|53U?y 3q3333 33?$33?o ?pmin@in@@3_3'<A'_SAO/% 'X???p=s_v@r}|Ͻ/RAver@?OOOAVGo P ]axb]F@!OO\\/,߲2  XCase ">"3zZIf rs.Fields("MEAS_AVG") > maxValue Then7aeSheet_Data page 1(" & j")").Cells(i, 3).Interior.Color = 65535@End IfSelectG7amin[<`> 0 A-@Char ""a1 BoCqÜ<=8<= (y qcd._.nW.?. ?.}?Ty?.a~k7Range("Bai).d= "STD" Or . 88MEV")_9_"GElse?  Exit Forc Nex!o1+WAYvMaxO]] ik To k + q##e$%%_MAX$? uaxuju%]>/u@7 >toA];ows,O55OOR?3v??p@in@@3&_3'O''O''''?!4>O/%Cݲlue Then <Sheets("MData page 1@(" & j")").Cells(i, 3).Interior.Color =@ 65535;E`nd If3CSelect9If Range("Bi).Va= "Pcs"ݪfrs.FieldvEAS_PCS")'I?< 0 A@Char "1 Case B">="ECB% >=a V_X5?33b33 33?$33o o0min-in?o .ߪc ) 3'<A'_SAO/% '???pSTD" OrtS.v/_` EVOo/lseoLExit For__ _NexE 71kWAY")=`"_ ipk To k + O$g$_%_%_%rb?_ `uaxu_u #^@0ɏO Sheets("MData page 1(" & j ")").Cells(i, 3).Interior.Color = 65535 &End If7?39Case ">";If rs.FieldEAS_AVG") > maxValue Then0ftSelectk?amin[<> 0 A@ Char ""{a1 BsÜ<=8<= ( cO?% /?B #7"<_.W.?.?.?.?.y?.a~k7Range(D"Bi).d= "Pcs 44MPCS")5% E8lse? xit For_Yǿ_Nex_ 51{tWAYptSTD*  ik To k + /!!c$_$?6$_EV%__/4#?///ז/4/4E/4//4}un Tru߁IfE~1_TYPE")9A" TheD nPcs@ o *C "SELECT sum(wafer_count) WAFER_COUNT 0FROMEULISTSTD WHEREU@VXUaQ]QA^Q'trs&.TMU, 3, 2V0/@"CER3ϋ E FkP4CSE For 1 To mdataModePagLek`6araShe$etMD@ p " Utmp 1*1aV(l!)"8).Sbfs PRa@nge("Kak).ValueAV"" Ak!ITEM!Va!'޵ֵԼǷ񿪱WDim min1 As Doubl* aaxCharString = IIf(D!O/%, q, 0(m% N 1j, "[ 'Ϟ)(e*)ax)e 0)  JQgXj)in# P j)@7'd!`1OmE5Wmmeas_item_Wrs7WcV g1V1?l`BIsNu@ll(rs1way"))?aPjjMkPJ2M7O'JBj+Jor׎QvM=: wCas|e b"Minp/__^_Cells(j,! 13A#kMINDo7=?p >= DLy.Interior.Colp= 655354//_. >/ޟ q?ǔC{C/CDߏ((<Do))<@Dce1 Then  <Sheets("MData page " & tmp + R1"(l)").Cells((j,!1"3).Interior.Color = 65535;@End If7CC$asd<"BIf rs.FieldEAS_MIN") < minValu@jaaSelectkazMaxl{·AX");@maxD<> 0 A@Char1 @""t/> "$ A,>=,vIi% >= i6 :__(_Z 6d6_6W6?6 ?6?6?6(?6 o oghCinCCD((><D)_MBD<@D?yo)p?y_"oAOo??ooB??Averoooi_AVG?o&gNaxoN*N/N?5/ O444_o-o4o1/%/ " & tmp + 1"(xlH)").Ce@lls(j,13).Interior.Color = 655 35 4En0d If/?7Se0lect+;1oIf minValue1 <> 0 AZ Char"" Then/cc Case3*$&#"<="7!O?0 >@O?ſſG3t3o_B0 > '-________9?`F r GinGO  Case "`<=" 1,If rs.Fields("MEAS_MIN") <= minValue1 Then?kSheetiData pag & tmp + 1 "("l )").Cells(j,!13).Interior.Color = 65535?OEnd If#Zeee%eSel8ectvÀMaxpaazAX")/@max$<> 0 A d@@Char1 ""? C2 %  .>_ѡ' >!ߡ =__?,_^_ 8u8_g8 @M 888_/S _ whmF"3zPIf rs.Fields("MEAS_AVG") > maxValue1 Then7bfSheet0Data pag[ & tmp + 1"("l)").Cells(j,13).Interior.Color = 655357KEnd IfSelect@iminDc<> 0 A@/Char1 @""|i4 B/8z<=xV<= +LV$33^ 32 2߈߈02 ߊsc@STD@00@EV"). CW"Pcs_ tu& "u+ 3)waferco/ >   ϏK?o/_2?)").Cells(j, tmp1 + 3).Interior.Color = 65535 <End If7?Select3C9If minValue1 <>0 0 Af Char"" Then7oo Ca|se7.(*'"8<="?%Brs.Fields("MEAS_HEAD") <=HICSheetData page " &A1@"(lAI jjXj?jh555arElse?xQ@jk?_;];MMIN")@maxaxU  = }> `!+ >ಆ$?!Y0YYo6_]o_4 > '1ߥߥߥ?/1]_ߦ{OMoMin.._//$?o/o/o/o/o/o / /'OoJ?roKҲ End If< !<5v57If Range("B" & j).Value = "Pcs" Then3Sheets("MData@ page 0t@mp + 15" (l)").Cells(j,J 13)Bwafercount/BPAverd~rs.FieldWEAS_AV8G")imax~1 <> 0 AChar B"<ŽSelect Case 7-E">="BRW >=-?I_e]e.Interior. Color g65535_"mi%?} == == 2===4=_ a}=  ;minin M.lseZExit For qNex?/E_  'cand`y end   jpk To kϤoJO@ŏ_*****MINe* (If maxValue1 <> 0 And$Char""" Then ) +Select Cxase\;QaN"8>="?J'rs.Fields("MEAS_MIN") >=Z?5Sheet6Data page " & t@mp + 1" (l)").Cells(j,13).Interior.Color = 65535D(EIf{{# {{{{T=Da}= - 9minin    c"< %6\<&?+\8_M %Ò<ߒ_ $7 ]6hhhjhh?qoJ ?_??P Range("B1j)."N~"Pcso OOOwafercountOOoofAver _ϗJ˗-AVG")_P?lkax ko_P  3OOoo_B4 >OPOPOPooo?/ End Select '( vIf/nIf minValue1 <> 0 A!Char"" Then/Z  Cases`?UÁ2)"<="C')rs.Fields("MEAS_AVG") <=C7SheetAData page " & tmp + 1)@"(lA)").Cells(j,A13).Interior.Color = 65535F(Dn?nnm?I.m6_ 6!ߔs o@Range("Bej).Ba"STD" Otr .{o > @w͎EV<")w)&El se? * xit xFor Nex !b"1WAY= 0"Max?c 'candy starB Mid(lotid, 1@ > "H_#U jP"k To k_] /ue~?6Tail/_5pppsp5_TAIL5/ max ax6v>oJ >@VT!!!??H/o4 > G1?/1_? ߁L/Min.S//0%0& &Sheets("MData page " & tmp + 1)"(l)").Cells(j,B1D3).Interior.Color = 65535 '#)End IfKWCasx<"VIf rs.FieldEAS_TAIL") < minValue1 Then=?v?vu ?v SelectV#Elsesjk|VMAX")u=@max]<> 0 Ax@Char1 "" = yυ  Ã>== `!+ >=  .B4m_ %=} == == 2=|||O1]_7|GMinOMo N// 0 And Char "9wSelect Case.3X '">="?%ǁBRV >=-I~..Interior.Color65535D(EIf{{# ==-==6= a}= w :minin 7 ? #]< )^<'/__?</(oK/s < G0OOFoLOk_oM? w_ m_SSTD" Or_TS.#_!!!0 EV??>lse\Exit For Next?#_ o 'candy end_ @ jpk To k@ϦK))Ɵ0$ +++++MAXo+"<١ߌZax 3o_S_ٯ  Sheets("MData page " & tmp + 1)$"(l)").Cells(j,B1D3).Interior.Color = 65535  End If#CK"Cas>"GIf rs.FieldEAS_MAX") > maxValue1 ThenC7A[{{X}{ SelectM @tminDn<> 0 AChar1 @""tP}9 B ]oo >0o O4/ro_4 / /1p_?LinL/JMDO._Ͳ Case "`<=" 5LIf rs.Fields("MEAS_AVG") <= minValue1 ThenKwSheetuData pag & tmp + 1"("l)").Cells(j,13).Interior.Color = 65535KUEnd If)fqq?q(qSelect"g)|Range("BAjj)."{f"STD" Or: . C|M`EV")/'Else? . xit F " D?^>O/sy1max|0 Am Char1 P m r>_oߎю>ЎFNP #!X_& "_+ __A?oĭ> *$1???o?/1_ _ XGLinOLL--/..#?o.o.o.o.o.o /&?oI.pnValue1 Then HSheets("MData page " & t@mp + 1" (l )").Cells(j,!1"3).Interior.Color = 65535GEnd If'#Sel8ect%AIf Range("bBj)."pPcs"4?y wafercounCOAElse+hExit Forg q$Nex` ~" Dߏ gO] rs*)EV")_> >)|= ?r %"" ?r ?r ?r.?F?rA MsgBox "ȷMw: Max,Min,Aver, O,a_O9, }FCl.oR nLItpem1:/  C-7MovekLoop i WSDim sh@et As ge[B= md`IndexQEach@lTEgQ 5).m~utmn0YK ion.ClearContsN teOl PQ A1 Work࣐`PZ? @!=!p#ApplicataDisplayAlert2sPFa&'жǷӰװȱ  (^InStr(s14, 1), "бep|'ȡa 8dttmsql " SELECT SUBLOT_ID,CUR_WAF_CNT,to_char(his_re gist_!,'y/MM/dd') manufacture_2e FROM F3PRD.DOPE_ " &pwhere aID in('PKG','Eqa) a YP IN ('OCLO` 1aSTR(`0,7)||Sj8-3)AHIP_0!( eDISTINCASE W HEN S[ IS NULL TcE ELENDCOC1cML Pb c  LEFT \JOa , CUSTOME5$ ol=C' MES_1 TAG)s ON0 c.S \s.   RE FILE_NAME ='Fil eName!' )) orde`r by *x3 ASCg*p9CreateObj("ADOD B.recset.Curs@orType a0dOpeBpIc 'αͣG޷O9q LoM2UseC liPd&ԣ޷  Debug.Print dttmsql0 .OpenD, csDBConn@ectiondCells(14, 2) =7.Fields("MANUFACTURE_DATE"B)?Else AUveSheet.RowH).I`nsert ^1^"Manufacture Date:"'ȡʱ ~vN" SELECT SUBLOT_ID,CUR_WAF_CNT,to_char(his_re gist_!,'y/MM/dd') mD_dD FROM F3PRD.DOPE:_ NFK& `" whehID in('PK G','E) and Fcat IN ('OCyLOC0:STR(D?0,7()||S-3)!HKHIPJ_ BD( @DISTIN@_CASE WHEN SK IS N`ULL Ti EL ENDBCOCMEAS LSTD cgbLEFT JOYF.,0CUSTOMEŐ0eC:?A;; MES_aTAGSs ON c.S'= ms.M?ql AS5RE FILE_NAM E ='"Fi@leNameA' )) ord`er by"Uf ASC/SerCre hObj("ADODB.rec seth.CursorType@adStatic 'αͣ Lol b UseClie@F A cEIfck0.CloIf mod<= "׼ģ.xlsx" Or" ThehTWorkbook.SaveAs sPath, xlExcel8cg?(SendKeys "{7er}" , Truppli<.DisplayAlerts>s4^:=curr` a`\bd#{c@Deletes^  -DuAScreenUp ingl Sub ./LxME0P>  <8<x, X` +P`!@k i   H(+| ` $$i~ ii @  `` ` ``+ `J@++>i~ `i@i  ` ` `` 8`h"k ii  0  ``#P+  ) i  08 8`(k ii  )0 `%`k  i H`8'Pk  i(i  `++ iii   6 ` X i` X88H P` z  % X88H P`X88H P`X88H P`X88H P` X88H P`X88H P` X88H P`X88H P` X88H P`X88H P`X88H P` X88H P` X88H P`X88H P`X88H P`X88H P` X88H P` X88H P` X88H P`X88H P`X88H P` X88H P`~` PX88H P`X88H P`X88H P`X88H P`@X88H P`X88H P`X88H P`X88H P`X88H P` X88H P` X88H P`X88H P`  X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`zptx~8X88H P` #X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P` @! pX88H P`X88H P`X88H P`@X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`X88H P`!0"P"H"!"Ph@< @! @ @p @h @` @H @@ x##p#X###@# #@ 0## @@ @# $8!@ @ @ $$(%$$@ $$@%+h"@$ @$ @% @ @P%h h%(%@P x%P%P%~'&(&& 'x&&(&`&@&@ P&(&&ptx~@ @ @& @ @ '' "@h @` ('0(x(((H('(&@ ptx~h)@ @ ( @`( @ @( @(x @p @X @P **@**p**))(*+)))@ ))+ptx~ @X* @* @ @ @ x @*` @X @@ @8 @ @ @ @(+ H++ @ "X+(+ (+@ +h+P,h,h+0,@,h+@ @ *  k$*\Rffff*TL6c07b88c*\R0*#f*\R4*#7*\R4*#1*\R0*#17$*\Rffff*TD6c07b697" $(B P X (`00\dd(dHdh8  F8,P` hpx B  (0H0xf ( H ` p 0 0 | p    B  (08@HP X\p .  6 (00HfTxF . ">@ "X  ( 0 0 |  F  .    L    ( 0 8 @ B X ` \h  L  \   L   \   L   8 \@ X Lh         B   . . & 0 &8 P  X "` B   \  ( 0 0 v00 F & . ,  &  (08@ H PB ` (h00v0F`&x  B  (00fT@F &  B   (0  @ P X h  x    B  000`" 0@MFP5C9A@oXжϼĿǷǿƽ̹XA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]] ;$'$+$'$-$'$*$'$/$'|SELECT * FROM COCMEASDITEMSSTD c WHERE ITEM_TYPE IN ('Wafersight','LSW2','LNSW','SP3','SP5','SP7','lNSW') and MEAS_ITEMS ='$ ' 'Debug.Print sql  ~ <B@ <! 'd'kix ȡֵP]]H]]]] ~ ;$''   $'  $'ADODB.recordset$p.< t <(r(αͣ޷ x <(v+αԣ޷4SELECT * FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='  ' AND WAF_ID ='  ' '  ~ <B@ SP_DATA_STATE <%' $ $' ADODB.recordset$p. t (r-αͣ޷ x (v0αԣ޷SELECT 5 measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='  ' AND WAF_ID ='  ' '  ~ B@measdata %'kP  $X'  $$'k '| i ȡֵ]]] ]8]P]h ָĿ ~ ;$''ѭĿ   $'  ȡ㷽ʽ $'ADODB.recordset$p.< t <(r(αͣ޷ x <(v+αԣ޷4SELECT * FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='  ' AND WAF_ID ='  ' '  ~ <B@ SP_DATA_STATE <%' жǷΪȡֵĿ$ $' Ƿȡֵ߼ִif ADODB.recordset$p. t (r-αͣ޷ x (v0αԣ޷SELECT 5 measdata FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='  ' AND WAF_ID ='  ' '  ~ B@measdata %'  $X'ֵ  $$'kk ' i ָ㷽ʽ] +$'  +$ 'dP -$'  -$ 'd *$'  *$ 'd /$'  /$ 'kxkpkhk` 'iPӼ㷽ʽ8]  X   $ +  + ' iжϼĿǷȡֵĿ`] ;$'ADODB.recordset$p. t (r$αͣ޷ x (v'αԣ޷_ SELECT 'MEAS_ITEM_'||COLUMN_NUM CULOMN,ITEM_TYPE FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS = '  ' '  ~ B@ ITEM_TYPE %'    $CULOMN %'zk'i ȡcolumn8ADODB.recordset$p. t (r$αͣ޷ x (v'αԣ޷_ SELECT 'MEAS_ITEM_'||COLUMN_NUM CULOMN,ITEM_TYPE FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS = '  ' '  ~ B@CULOMN %'ihȡwafSP_DATA_STATEADODB.recordset$p. t (r$αͣ޷ x (v'αԣ޷4SELECT * FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='  ' AND WAF_ID ='  ' '  ~ B@ SP_DATA_STATE %'iֵH' +   'd -   'd *  'd /  'kXkPkHk@ 'i0 ]x ADODB.recordset$p. t (r)αͣ޷ x (v,αԣ޷sSELECT TO_CHAR(HIS_REGIST_DTTM ,'YYYY') HIS_REGIST_DTTM FROM F3PRD.DOPE_HIS dh WHERE HIS_CAT ='OS' AND SUBLOT_ID =' '' ~ B@HIS_REGIST_DTTM %'6 i ȵAttribute VB_Name = "wafUtils" Sub test () splititem1 ("MFP5C9"6End V 'жϼĿǷǿƽ̹ Function findtype(measQ As Sng) Booleanwconn ectDBSet wp= CreateObj("ADODB.recordset,.Cu`rsorTtadOpenStatic 'αͣ޷: "Locc= adUseClient#ԕ#Dim strResul{3 2(obSdž, ";x2 h(0)+O 2U -g*g/ ql"SELECT * FROM COCMEASDITEMSSTD c WHERE _TYP@N ('Wafersight', 'LSW2NSWSP3B5B 7@l) a A_B ='"$ +d0)"''Debug.Pri@xsqlaC , cpsDBCIf.RCou@> 0 TheDATrue1ElsDFaFIf ȡֵquerPynumFs, sublot)idPDoX*X/CB pstzG{2F^@+kes#e! = 0C For i4o UB`6d(`2=(GiAp0H aB#P ?a `a`'tyAT@AINFOSfySUB_LOT_IDepP+ "' AND WAFCRa$spJ=DrFields( "SP_D_STATE%A! columsp!uAs 9~C<> ""} =`NԠ Ad?; /m/mWA/AU0 2data ]/!/!Ia/!/! !`Y $! 9!WB2) > 1OA@CDbl9)$1)#qget(0, Z%2(299 Nex>t^s /b/bn 51&J?b?b1Wx?bg3 r^W "fQۡ$=p``>b'ָ%[oc6Afc'ѭddC?e '}㷽ʽwf1w(&fw_GGGGHogEEEvhE S/E-Ea#ffQӨs#1Ϊֵ{$T!h h'߼ִiP!1If j#js K@n####6####jjo%o%o%o%Q1 %jR%$j;/j%jyn num2 = CDbl(strResult2(1))'ֵQget(, 2, 2 End IfK !Next quheryV1i  0Functio'ָ@ʽ  splititem1(meas As StriDngqDimU()X>& t&?8R# qsj p0.Ł 1=! aS4rU@@@8`brU@@@~x aS __SRP_11fj__SRP_12h__SRP_13ik__SRP_14 Z  Z  Z S^rU@@@8`@a`P@`P@`P8`brU@@@@~x aS4rU@@@8`b__SRP_15hp__SRP_168__SRP_17moj__SRP_18rU@@@~x aS "a  Z $hrU@@@8`@a`P@`aOP`PPbrU@@@8`@a`O@`!PX` AQrU@@@~x/~!4J3zAa?aAaCC450[ AFFf1Qz9a11q A QqFAZJ Q?W1\ ,gg&Ph$g @`Z`H00 `H0g @`Z`H00 `H0g @`Z`H0I0a(`H0gKxg @`Z`H0I0a(`H0g:qnqmrgHO0 @h`Z``H0gggKg @`Z`H0I0a(`H0g:qnqmgHO0 @h`Z``H0gggh,gp,d>h8`H0gg,`KH0g20`%OHg8H Hg@`&CH0'C+lgfa`a0g&PqHg`a`a0g'Pxgg$0`&OHg,0`'OH`xHggVZ`l0grZ "qHKH,g` @ZHV(0HggjZ xDgdxq`ZHV(0HggZgN`)Zp!*g4p Z8"gX ZHV+h#HgN`,Zp!*gX ZHV+h#Hg6 Z8"g -Z.0$gxhDxDHggb^g ng8@gD ngg gp(8Hi *gg g( ag g g8 pX@gF@ @88 @8U8g,KpgL XI(X gkgggx gL&@28X HiHggJIh(hg: Pqnl8gpP @8OhP Ohg0gDTgagg2PgPgxd>P8hHi( aS "a  Z  &o  "a  "a  "a  "a(__SRP_19nrx__SRP_1aj__SRP_1bqs8__SRP_1cqOOF@A`O@1 `O@ `@1 `brU@@@8`@a`P@`aOP`PPbrU@@@~x aS "a  Z $hrU@@@@~x aS4rU@@@8`brU@@@@~x __SRP_1dl|__SRP_1e__SRP_1fuw__SRP_20aS4rU@@@8`brU@@@@~x! Hi a S4__SRP_21vz__SRP_22__SRP_23y{__SRP_24rU@@@ 8 `brU@@@@~x#" a"S4rU@@@"8"`brU@@@@~x%$ a$S4rU@@@$8$`brU@@@@~x__SRP_25x__SRP_26__SRP_27}__SRP_28'&Hi a&S4rU@@@&8&`brU@@@~x)( a(S ("a ("a (: (:  ("a  ("a (0 rU@@@(__SRP_29~__SRP_2a__SRP_2b__SRP_2c8(`@a(`O@(`OX(` AX(` A@a (`O@ (`OP (`brU@@@@~x+*Hi a*S4rU@@@*8*`brU@@@@~x-,Hi a,S4rU@@@,8,`__SRP_2dD__SRP_2e__SRP_2fm__SRP_30      "#%&'()*+,./012345678:;<>?ABCDEGHIJKLNOQRSUVWXYZ[\]^`abcdefhijkmnopqstuwxz{|~brU@@@/8/`@a/`P@/`aOP/`PP@1/`ObrU@@@~x./ a/S /"a / Z /$h / "aZrU@@@181`brU@@@@~x01Hi a1S4rU@@@~x32Hi     ! "$#&(')*+-,=>/0123456789:;<?B@ACGDEFHKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~__SRP_31__SRP_32__SRP_33__SRP_34!HiXHi a2S 2S 2SPrU@@@282`8a2`82`brU@@@4xP4`9OObrU@@@@~x76 a6"a 6"arU@@@85] KA=zQQz9?Ѻ!1q?0[ AFFfrF!1aArq!q!11A!qqaCCK!1!1a1aaQ3Q!aAF1aq*!*@`*q 4"@ggNZ p g gZ p  K:gNZ p g gg gH C@XC+pl gWhg8XPgZP @ @X8hUg,hg&h(g&hgghgWhg8XPgZP @ @X8hUg,hVg4(hg&h(gg4hPg&hggghgWhg8XPgZP @ @X8hUg,hg&hg&hgghgWhg8XPgZP @ @X8hUg,hg&hg&hgghgWhg8XPgZP @ @X8hUg,hg&hg&hgghgNZ p gH @Z @gH( @ Z @gH @!Z @gH @"Z @gH @#Z @gH @$Z @gH @%Z @gH @&Z @ggNZ p gWhg8'X(PgFP @ @hUgWg8)OX*Og+g,gF @ @UgPb^-gb^-g`.h@X/Z @gt0hX1O8@2Z @gt3hX1O8@4Z @g`5h@X6Z @gZ p 7KgNZ p gt0hX1O8@8Z @gt3hX1O8@9Z @gh:OX;Z @g g^ @Z @<\g g Dg gN=Z p gg^ @Z @>\\gNZ p g:? Z `@gN=Z p g @  @Z @Z pAg @  @Z @Z pAg @Z  @ p p8>Op Z pAppg @  @Z @Z pAg @  @Z @Z pAg g g PgNZ p gBOXpOpZ H  ppg2 Z `Cg, Z `egDgEggN=Z p g8XZ p Z pApggZ p  K2gNZ p g`Fh@XGZ @g`Hh@XIZ @g`.h@XJZ @gt0hX1O8@/Z @gt3hX1O8@2Z @g`5h@X4Z @gg@tPh(J pp(4$h__SRP_35!__SRP_36$ __SRP_37-__SRP_389 6"a 6"a 6 0  60  60 60 60LrU@@@6@6`O@6`O@6`O@6`OP16`P 6`P 6`P 6`P6`brU@@@@~x98Hi a8S4rU@@@888`b__SRP_39=__SRP_3a@m__SRP_3bF__SRP_3cMrU@@@~x;: a:S :"a : Z :$h : "aZrU@@@:8:`@a:`P@:`aOP:`PP@1:`ObrU@@@=8=`b__SRP_3dP__SRP_3eT__SRP_3f___SRP_40g8rU@@@@~x<=Hi a=S4rU@@@?@?`O@?`O@?`O@?`OP1?`P ?`P ?`P ?`brU@@@~x>? a?"a ?"a ?"a ?"a ? 0  ?0  ?0 ?0 rU@@@~xA@ a@S @"a @ Z @$hrU@@@@8@`@a@`P@@`a__SRP_41lj__SRP_42r__SRP_43v__SRP_44yOP@`PPbrU@@@@~xCBHi aBS4rU@@@B8B`brU@@@@~xEDHi aDS4rU@@@D8D`b__SRP_45}__SRP_46__SRP_47__SRP_48rU@@@@~xGF aFS4rU@@@F8F`brU@@@@~xIH aHS4rU@@@H8H`brU@@@@~xKJHi aJS4__SRP_49__SRP_4a__SRP_4b__SRP_4crU@@@J8J`brU@@@@~xML aLS4rU@@@L8L`__SRP_4d__SRP_4e__SRP_4f__SRP_50brU@@@@~xONHi aNS4rU@@@N8N`brU@@@@~xQP aPS4rU@@@P8P`brU@@@RxR`89__SRP_51__SRP_52.__SRP_53`__SRP_54rU@@8S0] Bza?AAQQџ1aCC0[ AFFfAF1ra]qFF1HHH3AII1JJAZJ1qqѧKQz9!qA1qOq**@`*q Rgg g8 pgWXgXgXgFp @PP @XPUPg,XKg8pgW8g8g8gFp @PP @8PUPgg8XKg8pgW8g8g8gFp @PP @8PUPg8XKg8pgW8g8g8gFp @PP @8PUPggg,8KjgL I( gkgg8 g&8(g& 80gg8!gxg"g#g$g"gg2gg(%&pag(%'XagD% @ @ @p(ggg)O0O*O (O@*O((O+O8 g)O0O*O (O@*O((O,O g$(,O@gp-O*O0O *O(@OH g(%'ag*8.lh g)O0O*O (O@*O((O+O8 g$(+O@g^)O0O*O (OH g. @.l g)O0O*O (O@*O((O,O8 g$(,O@g^)O0O*O (OH gf/O(O,O .l , gZ 0I(P | gkggJ/O(O,O 8g81(O,O@g>2O`  gN3OO+O P gg62OagN3OO+O PgggZ 0I(P  gkgg81(O+O@gJ4O(O+O 8g8b^5g*8.ldggL 6I( gggg>2O` \gN3OO+O Pgg62OagN3OO+O Pgg*8.lg 0H`x(@8aP7Z8PP>g. @.lg 0H`x(@aP7Z8PP>gg8b^5gL 9I( ggpgXg`ghgg6P7Z8pePgxP7Z8P  exr:;PgdP7Z8pP <=KPgXgdP7Z8pP <>KPhg`gdP7Z8pP <?KPghgP7Z8pP <    @KP g$ppgg ggn @@P7Z8P PgKg. @pAgpggxt8ppXX\ Px R.T(1aAqAqOOOOOOOOOOOOOObrU@@@@~xUTHi aTS4__SRP_55__SRP_56__SRP_57__SRP_58NrU@@@T8T`brU@@@@~xWV aVS VSrU@@@V8V`8aV`brU@@@@~xYX aX"a X"a X"a X"a X 0  X0  X0 X0 X0  X0 rU@@@X@X`O@X`__SRP_59>__SRP_5am__SRP_5b__SRP_5cO@X`O@X`OP1X`P X`P X`P X`PX`PX `brU@@@~x[Z aZS Z"a Z Z Z$h Z "aZrU@@@Z8Z`@aZ`P@Z`aOPZ`PP@1Z`ObrU@@@@~x]\Hi a\S4rU@@@\8\`brU@@@@~x_^Hi__SRP_5d__SRP_5e__SRP_5f__SRP_60Jk a^S4rU@@@^8^`brU@@@`8``brU@@@@~xa`=a?zAQM AQQau!4QuA uau uAu8Q! zz93?aAaCCDaE0[ AFFCqFFFAGHHHAII1JJJJK\ NqOa?Yq!!QqQfjQiiiAjnQ!np1qqrrArrQttt!uQuuvqwAwQQ ! A  aQ !aQ-1Q77aQQqQA11aQ  WQ     A J ~!! !!!1Q!?A"2"#A#1$$Q%Q&A'A((!|rgg4p Z 8gdZ hhPgP!KgL 8h"I(h8 g{gg g(!#ag$g%g<&PO'Oh`hgF@( @)U*(g*+\0g&,-g$.g/g0g1hg2Pgg8gg(!3 ag(!4agD! @h @P @ 5g8ggn6OOh7O8O 7O` h8 g@qO8Ohb^9hgRqO8Oh` hg :Z;`6PqOh7O8O 7O` h8 g$qPOggqPO88O aqO8Oha8h gg gqPO88O aqO8Oha8h g ggL 8h<I(h8 g{gg8Kjg. @ =g ggRqPO8Oh` hg 0H`qPO8OhaZ  exhgFx  eghg x` gVZ p >Pg>P?O gJPZ p @gg4APOBOh8g(!# ag $g %gF8 @( @ )U*(gg&dr g^ @Z CK gd @D -Z V g^ @Z EKV ggg gF8g 8GO8g 8HO8gF8IOPOhJO88hg(!# ag $g %gF8 @( @ )U*(g KgLOh8O Z @erZ 8xM h8 g$`0ng`h8NZ h8g`hO 8-Z h8g`hP 8-Z h8g`hQ 8-Z h8g`hR 8-Z h8g$Dg^ @Z hgphZ 8hgphZ 8hg@!TSTh78lgTU -OhVO8O WOPOxXOp h8 xg(!#XagX$gX%gFp @( @X)U*(g,XK\jg`h8YX -Z h8 g`h8ZX -Z h8 g`h8[X -Z h8 g`h8\X -Z h8 g!\g4[X-tg`h8]Z h8g(`h8Z  `xZ @8@Z @88h8 x@gF Z `^H  g_g`gagbgcgg^g!\^g4\X-Xg`h8]Z h8g(`h8Z  `xZ @8@Z @88h8 x@gF Z `^Hg_g`gagbgcggggg`h8]Z h8g(`h8Z  `xZ @8@Z @88h8 x@gF Z `^Hg_g`gagbgcggggg gbg dg`0g$&g&g hZ x8 Z 0P88xZ @e8r@Z 8h@n0Z 0 0h8 x@hP8g hZ x8 Z 0P88xZ @e8r@Z 8h@n0Z 0 0h8 x@hP8g hZ x8 Z 0P88xZ @e8r@Z 8h@n0Z 0 0h8 x@hP8g hZ x8 Z 0P88xZ @e8r@Z 8h@n0Z 0 0h8 x@hP8g ggg~LOhO8Z H@h8gB Z `efgVZ p >Pg>PgO(gJPZ p @ggg&d*g^ @Z CK)gd @D -Z )g^ @Z EK)ggg(gLOh8O Z @erZ 8xM h8 gh8g 8iO8g 8jO8gF8kOPOhlO88hg8b^9g(!#ag$g%gF8 @( @)U*(gKg8K.ghO8-Z h8ghm8-Z h8ghn8-Z h8gh8NZ h8gdgv,g(!#pagp$gp%goXg XpOXgFXqOPOhrO8XhgFX @( @p)U*(gpK@g(g$@@g.sp-`gg$@gT @ @Z `g^ @Z hhg^ @Z hPgPtNuNvU3'Z@g!UN@gH@g\wIh(h 0HShgg.HqnlH@gK2g H@ggH'g6 0@Sg8@/g(!#ag$g%g^xyhq8z xh8gFx @( @)U*(gK`g2H`2@g(hH8Z    ` h8 g2`g>@/g\wIh(h 08Shg8qnlgKJ8g(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hg`gagbgcggg!\@g{g8KP@g<q|-K?g8}-~\=g.}-g@qn9g@'gL@/ gg8( H @I@h(hnZ  hh8 gP!\B<g"nP~<<g(hH8 @Z @h8gF Z `^H880g0`g0ag0bg0cg0gggh!\=g"nhm=g(hH8 @Z @h8gF Z `^Hg`gagbgcggg?gg(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hg`gagbgcggg ggdgP8ggH4g2ggt@gggg0g(`(gpdg$0g(!#pagp$gp%goXg XpOXgFXqOPOhrO8XhgFX @( @p)U*(gpK@g(g8pKg.sp-`g(!#ag$g%g0PgzPqxgFx @( @)U*(gK`g$`PgT @ @Z `g^ @Z hhg^ @Z hPg!U4gvDQg(!#HagH$gH%g0PgPq0gF0 @( @H)U*(g,HKNg@HHKhIg H-Hh-H8-H -HH-Hx-H-H@-Hh-HP- 8f8g>qmlhqnl8Hg6h @!\Hg(hH8 @h @  @Z h8 ggh8GgHdgH"FgHg2H`NgP!\Kg(hH8 @Z  anP~h8 Kg(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hg`gagbgcggggh!\Ng(hH8 @Z  anhmh8 Ng(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hg`gagbgcggggHTIQgg>(h8Z @( `xZ h0]8h@Z @88h8 @hg(h @Z x(8`  @Z 8xZ @88 h8 xgF Z `^Hg`gagbgcgg.gD]g(!#HagH$gH%g0PgPq0gF0 @( @H)U*(g,HKZg@HHKhxUgH-Hh-8f8g>qmlhqnlHTg6h @!\Tg(hH8 @h @  @Z h8 gghH TgHdgHxBSgHg2H`ZgP!\Xg(hH8 @Z  anP~h8 Xg(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hg`gagbgcggggh!\Zg(hH8 @Z  anhmh8 Zg(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hg`gagbgcggggHdU]gg>(h8Z @( `xZ h0]8h@Z @88h8 @hg(h @Z x(8`  @Z 8xZ @88 h8 xgF Z `^Hg`gagbgcgg.gDPig(!#HagH$gH%g0PgPq0gF0 @( @H)U*(g,HK(fg@HHKhv`g (Hx @H-Hh-8f8Z  x8gHdgHR_gHg2H`X"fgP!\^cg(hH8 @Z  anP~h8 Xcg(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^H@@8g8`g8ag8bg8cg8gggh!\fg(hH8 @Z  anhmh8 fg(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^H  g`gagbgcggggHX`Digg>(h8Z @( `xZ h0]8h@Z @88h8 @hg(h @Z x(8`  @Z 8xZ @88 h8 xgF Z `^Hg`gagbgcgg.gDtg(!#HagH$gH%g0PgPq0gF0 @( @H)U*(g,HKqg@HHKhkg (Hx @H-Hh-8f8Z  x8gHdgHjgHg2H`zqgP!\ng(hH8 @Z  anP~h8 ng(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hxgx`gxagxbgxcgxgggh!\^qg(hH8 @Z  anhmh8 Xqg(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^H``XgX`gXagXbgXcgXgggHltgg>(h8Z @( `xZ h0]8h@Z @88h8 @hg(h @Z x(8`  @Z 8xZ @88 h8 xgF Z `^H@@8g8`g8ag8bg8cg8g.gDg(!#HagH$gH%g0PgPq0gF0 @( @H)U*(g,HK|g@HHKh&wg (Hx @H-Hh-8f8Z  x8gHdgHvgHg2H`|gP!\zg(hH8 @Z  anP~h8 zg(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hg`gagbgcggggh!\|g(hH8 @Z  anhmh8 |g(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hg`gagbgcggggHlwgg>(h8Z @( `xZ h0]8h@Z @88h8 @hg(h @Z x(8`  @Z 8xZ @88 h8 xgF Z `^Hxgx`gxagxbgxcgxg.gDXg(!#HagH$gH%g0PgPq0gF0 @( @H)U*(g,HK0g@HHKhH~g (Hx @H-Hh-8f8Z  x8gHdgHHZgHg2H`*gP!\fg(hH8 @Z  anP~h8 `g(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hg`gagbgcggggh!\g(hH8 @Z  anhmh8 g(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hg`gagbgcggggHĂLgg>(h8Z @( `xZ h0]8h@Z @88h8 @hg(h @Z x(8`  @Z 8xZ @88 h8 xgF Z `^Hg`gagbgcgg.gDg(!#HagH$gH%g0PgPq0gF0 @( @H)U*(g,HKg@HHKh֍g (Hx @H-Hh-8f8Z  x8gHdgHgHg2H`XgP!\g(hH8 @Z  anP~h8 g(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^H@@8g8`g8ag8bg8cg8gggh!\fg(hH8 @Z  anhmh8 `g(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^H  g`gagbgcggggHXgg>(h8Z @( `xZ h0]8h@Z @88h8 @hg(h @Z x(8`  @Z 8xZ @88 h8 xgF Z `^Hg`gagbgcgg.gDg(!#HagH$gH%g0PgPq0gF0 @( @H)U*(g,HKg@HHKhژgh(8H  @H-nZ h8 gHdgH gHg2H`gP!\›g(hH8 @Z  anP~h8 g(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hxgx`gxagxbgxcgxgggh!\jg(hH8 @Z  anhmh8 dg(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^H``XgX`gXagXbgXcgXgggH gg>(h8Z @( `xZ h0]8h@Z @88h8 @hg(h @Z x(8`  @Z 8xZ @88 h8 xgF Z `^H@@8g8`g8ag8bg8cg8g.gNN&N&N&N&N&N&N&[N[OCh78+ l.gJwIh(h gL OhO8hg(!#ag$g%gF @( @)U*(g!g,K\g&-Ȭggv Ihha8(8hgLOhO8hg(!#ag$g%gF @( @)U*(g,K\g&-g8Oh¬ggv Ihha8(8hgLOhO8hg(!#ag$g%gF @( @)U*(g,K\g&-g8Ohggv Ihha8(8hgLOhO8hg(!#ag$g%gF @( @)U*(g,K\g&-g8Ohggv Ihha8(8hgLOhO8hg(!#ag$g%gF @( @)U*(g&-g8Ohggggg" qngL OhO8hg(!#xagx$gx%gF @( @x)U*(g!`g,xK\Ng&x-H&ggv Ihha8(80hgL0OhO8hg(!#ag$g%gF @( @)U*(g,K\Lg&-Hg80Oh` ggv Ihha8(80hgL0OhO8hg(!#ag$g%gF @( @)U*(g,K\Jg&-Hg8Oh`ggv Ihha8(8hgL0OhO8hg(!#ag$g%gF @( @)U*(g,K\Hg&-Hg8Oh`ggv Ihha8(8hgL0OhO8hg(!#ag$g%gF @( @)U*(g&-Hg8Oh`ggggg`!\vgHOOh`O8O qOOx h8 g(!#ag$g%gF @( @)U*(gg^HOOhqO8O h8g(!#ag$g%gF @( @)U*(gg^HOOhqO8O h8g(!#ag$g%gF @( @)U*(gg!\ںgOOhO8O qOOx h8 g(!#ag$g%gF @( @)U*(gg^OOhqO8O h8g(!#ag$g%gF @( @)U*(gg^OOhqO8O h8g(!#pagp$gp%gF @( @p)U*(g" qng4p-`KBg @(h @Z  h g2H`@<gP!\xg(hH8 @Z  anP~h8 rg(Hh(8]Z h8gv(Hh @Z  @h gF Z `^Hg`gagbgcggggh!\ g(hH8 @Z  anhmh8 g(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hg`gagbgcggggH@g4-`Kg @(h @Z  h g2H`gP!\g(hH8 @Z  anP~h8 g(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hg`gagbgcggggh!\rg(hH8 @Z  anhmh8 lg(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hxgx`gxagxbgxcgxgggH(g(gg8p-\g @(h @Z  h g2H`HgP!\,g(hH8 @Z  anP~h8 &g(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^H00(g(`g(ag(bg(cg(gggh!\g(hH8 @Z  anhmh8 g(hH8 ]Z h8 g(hH8 @Z @h8gF Z `^Hg`gagbgcggggHH"ggN(h8Z h (`x@Z P0]8PhZ @88h8 x@hPg(h @Z x(8`  @Z 8xZ @88 h8 xgF Z `^Hg`gagbgcgggggg`Cg(`(gpdg^Bg~LOhO8Z H@h8gB Z `efg4p Z 8g6 Z 8ggdg x0 g0 xg g6 Z 8g g^ 8POOh( h8 g{H0 0hP8x`P8 x`H0pX@ `@ `H0pX@ `@X@`H0PX`HXHx 0HphP`xpPp` h(0(P hH8h8x@@880h8 x@hP8 a`S4__SRP_61__SRP_62__SRP_63__SRP_64rU@@@@~xcb abS bSrU@@@b8b`8ab`brU@@@~xedHiHiXHiP adS dS dSP__SRP_65__SRP_66__SRP_67__SRP_68      !"$%'()+,-/01346789:;<=>?@ABCEFGIJLMNPQRTUVWXYZ[\]^_`abcdefghijklmnopqrstuwxyz{|}~rU@@@d8d`8ad`8d`brU@@@@~xgfHi afS4rU@@@f8f`brU@@@@~xih ahS4rU@@@h8h`__SRP_69__SRP_6a__SRP_6b__SRP_6c8brU@@@@~xkjHi ajS4rU@@@j8j`brU@@@~xml alS l"a l Z l$hrU@@@l8l`@al`__SRP_6dj__SRP_6ey)__SRP_6f#__SRP_70&P@l`aOPl`PPbrU@@@n8n`brU@@@@~xqp rU@@@@~xonR=a?1Azaz z!zz! zA3!Qz9aIQA?!!AaZ~Q\\AX]qX!<<<10[ AFFfaAX$"ggTgTgTgTgTgTgTgTg Tg Tg Tg Tg TgTgTgqAgTgTgTgTgTgTgTgTg  Tg Tg Tg  Tg  TgTgTghAg@hAg@hAg@hAg@hAghAgdhAg hAg@hAgdhAg0Hg0g0g0gJ @H @!Z"#gb @ @!Z"#hg0PgP!Z"$%&8g0 gygp8gW'Hg0g0 g6h0K4gR'(Pq(g{gg0hKh!k0g')Pgh!agPg*Pq(gg60\g 'Dgp>gR'+Pq(gggg"P8Rgj @!Z"#,x-Kjg Rgg @!Z"#,xKN gX @!Z"#,`6gg0C @!Z"#,HH0T7lHv gX @!Z"#,gggp0!Z"#,`gp0!Z"#,`g0C @!Z"#,HH0T7lHl gX @!Z"#,gg:0@C @x !Z"#,HHT7 @ !Z"#h,PP8T 7lHhP g` @ !Z"#,`ggj @!Z"#,x.KRg@@Z'Hlg.@Z'8gz0/O/Oa0a0qgh/Pg/Pg1a0qgh/Pg/Pg2a0qgh/Pg/Pg3a0qgz0/O/Oa4a0qgz0/O/Oa5a0qgg @H6ggW'@g0ggg0ggp80gg7gl8PqO09OhO:OH` Hgb^;g( pk@g p0(g"('DXggX @p @!Z"#,g (!pO\g$K0KVgT'(Pq(g{ggg"('Ddg2K(h!k0^g<('Pg=Pg(h!agPg>Pq(g{gggdp' D[0T7lvgFp>[0?T7lpgT('@Pq(g{ggg"p'Dgp>gT('APq(g{ggg"('Dg/Pg,q0O`g:Pgg"(' DgX0?CC+l>gBPgg@q0OCO`ggg"('DgJ8PqO0DO`gggp@gEPq0 !Z"O0FOHOGO` gb^;gF0@@Z'@gggg60\g@@Z'Hlg.@Z'8gz0/O/Oa0a0qgh/Pg/Pg1a0qgh/Pg/Pg2a0qgh/Pg/Pg3a0qgz0/O/Oa4a0qgz0/O/Oa5a0qgg @H6ggg k0g gWHg40Ih/xgZx @J @0KULJg,M0JgZ0NI(PDgkggg<0OhO/O`gb^;g k0g0\H g gL0PI(g{gg8H&``0!g, @H`g k0gb^;g0\n!g gL0PI(g{gg0 g g gL0QI(g{"lH2X@`H0h p8(@HhPH`h xHhP  anS4apS pSrU@@@p@8p`8ap`brU@@@@~xsrHi__SRP_71*__SRP_72.__SRP_732__SRP_745 arS4rU@@@r8r`brU@@@u8u`@au`PXu` ! PPPXu` ! PPP@Qu`PP1 u`AqPP u`PP@A u`PPu`!PPXAu ` qKKP@u `PbrU@@@@~xwvHi avS4__SRP_75__SRP_76D__SRP_77H__SRP_78KrU@@@~xtu zA!43aAaCC2?0[ AFFf1 u1>?F1@!AAAHi@gg g(aggg\Ip(p hSpgdI'p(p hSpgd I'p(p hSpgd I'p(p hSpgd I'p(p hSpg8 'Pg` PqH`gFH @@@ @@U@g,g2ggpggp@hDH,`@pHiPHigg\I( Sgqn?gL STgg\ I( Sgqn?gL  SNgg\ I( Sgqn?vgL  SHgg\ I( Sgqn?BgL  Sggggg gxP,&`gg.qng.qnlPg&'TgPbg&qnTg g d>hP$gg\I( Sg(xagxgxg0PgX Pq@XgF@ @88 @x8U8g&x g.qnl`g, 'qKg&xg ggggX @$tP@xpX[ ,X8~ gg(aggg0Pg PqhgFh @`` @`U`g&g L&h&`0gg(agggTPgPgxPgp PqXxpgFX @PP @PUPg&g 0L&X2xpPTggg DXg n0gg  Dg n*gg  Dg n$gg  Dg nggggggV(HTD Hi  auS u Z  u$h !u$h u"a  u$h  u$h  u"a u$h  u&o  u"aZrU@@@v8v`brU@@@@~xyx axS x"arU@@@x__SRP_79O__SRP_7aS__SRP_7bv__SRP_7c8x`@ax`APbrU@@@@~x{z A{3a{A|gg dgWRg(.gpgpggp|8,gg.g ,@SHi|(gg.g8(@7HiHi(fgg dg<.gpgpgj.P8?gqggggpP8&Xgg >g.xgpgpggpX8HiHiHHi azS z Z z"a z Z z Z  z"a  z  z Z  zS z Z"a  z"a(rU@@@z8z`8az`@z`P8z`8!z`X! z`1P^Q@ z`1P8! z`@z`PP! z `PPP1z `PPbrU@@@~x}|HiHiXHi a|S |S |SPrU@@@|8|`8a|`8|`brU@@@@~x__SRP_7d__SRP_7e__SRP_7f__SRP_80~ a~S4rU@@@~8~`brU@@@@~x aS4__SRP_81__SRP_82__SRP_83__SRP_84rU@@@8`brU@@@@~xHi aS4rU@@@8`brU@@@@~xHi aS4rU@@@    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~__SRP_85__SRP_868__SRP_87j__SRP_888`brU@@@~x aS "a  Z $hrU@@@8`@a`P@`aOP`PPbrU@@@@~xHi aS4rU@@@8`brU@@@@~xHiHiX__SRP_89__SRP_8at__SRP_8b__SRP_8c aS SrU@@@8`8a`brU@@@~xHiHiXHiPHiHHi@ aS S S S S^rU@@@8`8a`8`8`8`b__SRP_8dd__SRP_8es__SRP_8f@__SRP_90 g.rU@@@~xHiHiXHiHi aS S S  Z rU@@@8`8a`8`@`FbrU@@@5rU@@@@~xA=QAQQzA9<a?AQAaz9?Q"\ R#4'AaqA,!A.q...q#01a1112!aCC0[ AFFC3Fv1456Z7?iQ83oagOQ617K:<1A>ArQt!uq>r>r>?A?1;a3!/?AACfAx1CDrQEEEE1FFAGGQ1HaAQIIIJqJOQANJSQSQ aa/ar!JAZ&"gg4p Z8gNZpglZ@`Gg0 Z`"GgBZ"Gg Z0g*/@gWpg/@/@/@/@/ @/(@/@@/8@/0@/@/P @/h @/ @/@pgW 8g0/8@/@8!g&hl*gW" g0/@/ @ #gg!gW$g>/@/@/ @%ggb&Zp'Ag&!vCngPg$Zg.Xp!k@Dg08Z` 8lZpe0r !kpX(Zp( ()( g*08Z` 8lZp0+0g2 Z` (g@,Z@g,Z-g@.Z@U g08Z` 8lZ0/`0g0OX1OpO@2Oq(Zp/ gp@gZg^Xp8Z` 8l gpZp/  X3KR g(4pO5O8Z` 8lXO0p@Zp060 gpZp/ X7K g( 4pO5O8Z` 8lXO0p@Zp060 gg(4pO5O8Z` 8lXO0p@Zp060ggpgW8g49'Pg:Pqpg  gW8g;g<gFp @= @>U?=gqhg*@\ghu`g.Xp!k(g0qagPg 1PqpO2OZp ghsk@A0qagPg 1PqpO2OZp6 g@hskBC0qagPg 1PqpOX2OZp6 gp(RghughvC`ghvXg.Xp!kg0`qagPg 1PqpO2OZp gTXskX(AZglXXsk(BCZgp"ggDghqhg  gEg=x g  gW8g4F'PgGPqpg;g<gFp @= @>U?=gdg*@\og.X!kng8HCXIKTgW8g4J'PgKPqgZ @= @X(>U?=g&LCxgEgg&MCxggtNO2OZpg vhhngOhagPqZ@PTXOhag PqZ@@QPCC87 l  Png(RhagPqZ@XRhag PqZ@P@PI88PPT   ` P8 g(ShagPqZ@XShag PqZ@P@PI88PPT   ` P8 g(ThagPqZ@XThag PqZ@P@PI88PPT   ` P8 g(UhagPqZ@XUhag PqZ@P@PI88PPT   ` P8 gW8gNXVWC@KgF @= @>U?=gvOhagPqZ@b^Xg6YCb^Xg@YCb^Zg8YC>1g6hrkXphwk1gl[pOZ@XP\|1gZ[pOZ@ghgh\K$gp @]CXNO@2OZp6g&PUPU2!g(`g`^D g>]CnX~ gp @@NO2OZp6_`g!g`aD!g>]CnX!gp @@NO2OZp6_`gggg&PUPU2$g(XgXbD"g>]CnXm"gp @@NO2OZp6_`g$gXcD$g>]CnX#gp @@NO2OZp6_`gggp1ghdK)gp @eCXNO@2OZp6g&PUPU2.'g(PgP^D &g>eCnX~&gp @@NO2OZp6_`g('gPaD('g>eCnX"'gp @@NO2OZp6_`gggg&PUPU2)g(HgHbDz(g>eCnXmn(gp @@NO2OZp6_`g)gHcD)g>eCnX|)gp @@NO2OZp6_`gggp1ghfK/gp @gCXNO@2OZp6g&PUPU2,g(@g@^D+g>gCnX~+gp @@NO2OZp6_`g,g@aD,g>gCnX,gp @@NO2OZp6_`gggg&PUPU2/g(8g8bD-g>gCnXm-gp @@NO2OZp6_`g/g8cD/g>gCnX.gp @@NO2OZp6_`gggp1ghhK/gp @iCXNO@2OZp6p1ghjK0gp @iCXNO@2OZp6p1ghkK^1gp @@xNO2OZp6p1gg ng1gg 1ggpnggx[hagPqZ@PKXFg6hrkXphwkRFgl[pOZ@XP\$FgZ[pOZ@gg\K8gp @]CXNO@2OZp6g&PUPU2V6g(g^DH5g>]CnX~<5gp @@NO2OZp6_`gP6gaDP6g>]CnXJ6gp @@NO2OZp6_`gggg&PUPU28g(gbD7g>]CnXm7gp @@NO2OZp6_`g8gcD8g>]CnX8gp @@NO2OZp6_`gggFgdK<>gp @eCXNO@2OZp6g&PUPU2;g(g^D:g>eCnX~:gp @@NO2OZp6_`g;gaD;g>eCnX;gp @@NO2OZp6_`gggg&PUPU20>g(gbD"=g>eCnXm=gp @@NO2OZp6_`g*>gcD*>g>eCnX$>gp @@NO2OZp6_`gggFgfKCgp @gCXNO@2OZp6g&PUPU2VAg(g^DH@g>gCnX~<@gp @@NO2OZp6_`gPAgaDPAg>gCnXJAgp @@NO2OZp6_`gggg&PUPU2Cg(gbDBg>gCnXmBgp @@NO2OZp6_`gCgcDCg>gCnXCgp @@NO2OZp6_`gggFghKDgp @iCXNO@2OZp6FgjKTEgp @iCXNO@2OZp6FgkKFgp @@xNO2OZp6Fgg ng6Fgg RFggpd2ngg8lCX\KFUg2hkXphuk@Ugl[pOZ@XP\Ug"phkKLgp @]CXNO@2OZp6g&PUPU2RJg(g^DDIg>]CnX~8Igp @@NO2OZp6_`gLJgaDLJg>]CnXFJgp @@NO2OZp6_`gggg&PUPU2Lg(gbDKg>]CnXmKgp @@NO2OZp6_`gLgcDLg>]CnXLgp @@NO2OZp6_`gggggl[pOZ@XkKMgp @@xNO2OZp6ggl[pOZ@XfKSgp @gCXNO@2OZp6g&PUPU2 Qg(xgx^DPg>gCnX~Pgp @@NO2OZp6_`gQgxaDQg>gCnXQgp @@NO2OZp6_`gggg&PUPU2zSg(pgpbDlRg>gCnXm`Rgp @@NO2OZp6_`gtSgpcDtSg>gCnXnSgp @@NO2OZp6_`ggggg[pOZ@XhC(@[pOZ@jCP+8lUgp @iCXNO@2OZp6g$Ugg @UggpFng8lCXdK.dg2hkXphuk@(dgl[pOZ@XP\cg"phkK[gp @eCXNO@2OZp6g&PUPU2:Yg(8g8^D,Xg>eCnX~ Xgp @@NO2OZp6_`g4Yg8aD4Yg>eCnX.Ygp @@NO2OZp6_`gggg&PUPU2[g(0g0bDZg>eCnXmzZgp @@NO2OZp6_`g[g0cD[g>eCnX[gp @@NO2OZp6_`gggggl[pOZ@XkK\gp @@xNO2OZp6ggl[pOZ@XfKhbgp @gCXNO@2OZp6g&PUPU2`g((g(^D^g>gCnX~^gp @@NO2OZp6_`g`g(aD`g>gCnX_gp @@NO2OZp6_`gggg&PUPU2bbg( g bDTag>gCnXmHagp @@NO2OZp6_`g\bg cD\bg>gCnXVbgp @@NO2OZp6_`ggggg[pOZ@XhC(@[pOZ@jCP+8lcgp @iCXNO@2OZp6g dgg (dggp@Ung8lCXfKkg2hkXphukkgl[pOZ@XP\kg"phkKjgp @gCXNO@2OZp6g&PUPU2"hg(g^Dgg>gCnX~ggp @@NO2OZp6_`ghgaDhg>gCnXhgp @@NO2OZp6_`gggg&PUPU2|jg(gbDnig>gCnXmbigp @@NO2OZp6_`gvjgcDvjg>gCnXpjgp @@NO2OZp6_`gggggl[pOZ@XkKkgp @@xNO2OZp6gkgg kggpdng8lCXhKng2hkXphukngl[pOZ@XP\nng"phkKbmgp @iCXNO@2OZp6ggl[pOZ@XkKbngp @@xNO2OZp6gngg nggp,lggggghhg>gDg gEg=x g  g.Xp!k0g(pE`g"pXgXskX0`qagPg mPqZp6nh g@hoThPT7lgW8PgP;gP<g4phK8gP8q'qOXrO8gF8 @= @P>U?=g,Psrg&tPC &rggh ggPEgW8g;g<gbu v'qXO@KOpgFp @= @>U?=g*@\g8HCXIKtgW8gbwhx'qX@KgZ @= @X(>U?=g&LCxgEtgg&MCxgg.X!kg vhg0`qagPg 1PqO2OZp gOhagPqZ@PTXOhag PqZ@@QPCC87 l  Pg(RhagPqZ@XRhag PqZ@P@PI88PPT   ` P8 g(ShagPqZ@XShag PqZ@P@PI88PPT   ` P8 g(ThagPqZ@XThag PqZ@P@PI88PPT   ` P8 g(UhagPqZ@XUhag PqZ@P@PI88PPT   ` P8 gW8gNXVWC@KgF @= @>U?=g2YC|g6hrkXhwkxvgl[OZ@XP\HgZ[OZ@g`g`\Kg @Xsk(]C0`qagPg 1PqOX2OZp6 g&PUPU2gXgX^Dg>]CnX~g( @XskX0`qagPg 1PqO2OZp6_`  ggXaDg>]CnXg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2gPgPbDg>]CnXmg( @XskX0`qagPg 1PqO2OZp6_`  g܃gPcD܃g>]CnXփg( @XskX0`qagPg 1PqO2OZp6_`  ggg<g`dKg @Xsk(eC0`qagPg 1PqOX2OZp6 g&PUPU2gHgH^Dng>eCnX~bg( @XskX0`qagPg 1PqO2OZp6_`  ggHaDg>eCnXg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2g@g@bD<g>eCnXm0g( @XskX0`qagPg 1PqO2OZp6_`  g~g@cD~g>eCnXxg( @XskX0`qagPg 1PqO2OZp6_`  ggg<g`fK2g @Xsk(gC0`qagPg 1PqOX2OZp6 g&PUPU2Xg8g8^Dg>gCnX~g( @XskX0`qagPg 1PqO2OZp6_`  gRg8aDRg>gCnXLg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2&g0g0bDޏg>gCnXmҏg( @XskX0`qagPg 1PqO2OZp6_`  g g0cD g>gCnXg( @XskX0`qagPg 1PqO2OZp6_`  ggg<g`hK8g @Xsk(iC0`qagPg 1PqOX2OZp6 <g`jK>g @Xsk(iC0`qagPg 1PqOX2OZp6 <g`kK*g @XskXx0`qagPg 1PqO2OZp6 <gg gZgg vggxt|ggx[hagPqZ@PK8g6hrkXhwk2gl[OZ@XP\gZ[OZ@gg\Kg @Xsk(]C0`qagPg 1PqOX2OZp6 g&PUPU2Йgg^Dg>]CnX~|g( @XskX0`qagPg 1PqO2OZp6_`  gʙgaDʙg>]CnXęg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2ggbDVg>]CnXmJg( @XskX0`qagPg 1PqO2OZp6_`  ggcDg>]CnXg( @XskX0`qagPg 1PqO2OZp6_`  ggggdKLg @Xsk(eC0`qagPg 1PqOX2OZp6 g&PUPU2rgg^D*g>eCnX~g( @XskX0`qagPg 1PqO2OZp6_`  glgaDlg>eCnXfg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2@ggbDg>eCnXmg( @XskX0`qagPg 1PqO2OZp6_`  g:gcD:g>eCnX4g( @XskX0`qagPg 1PqO2OZp6_`  ggggfKg @Xsk(gC0`qagPg 1PqOX2OZp6 g&PUPU2gg^D̥g>gCnX~g( @XskX0`qagPg 1PqO2OZp6_`  ggaDg>gCnXg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2ggbDg>gCnXmg( @XskX0`qagPg 1PqO2OZp6_`  gܩgcDܩg>gCnX֩g( @XskX0`qagPg 1PqO2OZp6_`  gggghKg @Xsk(iC0`qagPg 1PqOX2OZp6 gjKg @Xsk(iC0`qagPg 1PqOX2OZp6 gkKg @XskXx0`qagPg 1PqO2OZp6 gg ggg 2gg0gg8lCX\KgJh y\$g2hkXhukgl[OZ@XP\gl[OZ@XzKNg @Xsk({C0`qagPg 1PqOX2OZp6 g&PUPU2tgg^D,g>{CnX~ g( @XskX0`qagPg 1PqO2OZp6_`  gngaDng>{CnXhg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2BgxgxbDg>{CnXmg( @XskX0`qagPg 1PqO2OZp6_`  g<gxcD<g>{CnX6g( @XskX0`qagPg 1PqO2OZp6_`  ggggg"hkKg @Xsk(]C0`qagPg 1PqOX2OZp6 g&PUPU2 gpgp^Dطg>]CnX~̷g( @XskX0`qagPg 1PqO2OZp6_`  ggpaDg>]CnXg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2ghghbDg>]CnXmg( @XskX0`qagPg 1PqO2OZp6_`  gghcDg>]CnXg( @XskX0`qagPg 1PqO2OZp6_`  ggggggl[OZ@XkK4g @XskXx0`qagPg 1PqO2OZp6 ggl[OZ@XfK$g @Xsk(gC0`qagPg 1PqOX2OZp6 g&PUPU2Pg`g`^Dg>gCnX~g( @XskX0`qagPg 1PqO2OZp6_`  gJg`aDJg>gCnXDg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2gXgXbDg>gCnXmg( @XskX0`qagPg 1PqO2OZp6_`  ggXcDg>gCnXg( @XskX0`qagPg 1PqO2OZp6_`  ggggg[OZ@XhC(@[OZ@jCP+8lg @Xsk(iC0`qagPg 1PqOX2OZp6 ggg gggg2hkXhuk(gl[OZ@XP\^g"hkKhg @Xsk(]C0`qagPg 1PqOX2OZp6 g&PUPU2g g ^DLg>]CnX~@g( @XskX0`qagPg 1PqO2OZp6_`  gg aDg>]CnXg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2bggbDg>]CnXmg( @XskX0`qagPg 1PqO2OZp6_`  g\gcD\g>]CnXVg( @XskX0`qagPg 1PqO2OZp6_`  gggggl[OZ@XkKg @XskXx0`qagPg 1PqO2OZp6 ggl[OZ@XfKg @Xsk(gC0`qagPg 1PqOX2OZp6 g&PUPU2gg^Dvg>gCnX~jg( @XskX0`qagPg 1PqO2OZp6_`  ggaDg>gCnXg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2ggbDDg>gCnXm8g( @XskX0`qagPg 1PqO2OZp6_`  ggcDg>gCnXg( @XskX0`qagPg 1PqO2OZp6_`  ggggg[OZ@XhC(@[OZ@jCP+8lRg @Xsk(iC0`qagPg 1PqOX2OZp6 gpgg gg(\gg8lCXdKgJh y\~g2hkXhukxgl[OZ@XP\Jgl[OZ@X|Kg @Xsk(}C0`qagPg 1PqOX2OZp6 g&PUPU2gg^Dg>}CnX~zg( @XskX0`qagPg 1PqO2OZp6_`  ggaDg>}CnXg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2ggbDTg>}CnXmHg( @XskX0`qagPg 1PqO2OZp6_`  ggcDg>}CnXg( @XskX0`qagPg 1PqO2OZp6_`  gggTgg"hkKNg @Xsk(eC0`qagPg 1PqOX2OZp6 g&PUPU2zgg^D2g>eCnX~&g( @XskX0`qagPg 1PqO2OZp6_`  gtgaDtg>eCnXng( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2HggbDg>eCnXmg( @XskX0`qagPg 1PqO2OZp6_`  gBgcDBg>eCnX<g( @XskX0`qagPg 1PqO2OZp6_`  ggggggl[OZ@XkKg @XskXx0`qagPg 1PqO2OZp6 ggl[OZ@XfK~g @Xsk(gC0`qagPg 1PqOX2OZp6 g&PUPU2gg^Dbg>gCnX~Vg( @XskX0`qagPg 1PqO2OZp6_`  ggaDg>gCnXg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2xggbD0g>gCnXm$g( @XskX0`qagPg 1PqO2OZp6_`  grgcDrg>gCnXlg( @XskX0`qagPg 1PqO2OZp6_`  ggggg[OZ@XhC(@[OZ@jCP+8l>g @Xsk(iC0`qagPg 1PqOX2OZp6 g\gg xggLgg2hkXhukxgl[OZ@XP\g"hkKg @Xsk(eC0`qagPg 1PqOX2OZp6 g&PUPU2gpgp^Dg>eCnX~g( @XskX0`qagPg 1PqO2OZp6_`  ggpaDg>eCnXg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2ghghbDtg>eCnXmhg( @XskX0`qagPg 1PqO2OZp6_`  gghcDg>eCnXg( @XskX0`qagPg 1PqO2OZp6_`  gggggl[OZ@XkKg @XskXx0`qagPg 1PqO2OZp6 ggl[OZ@XfKg @Xsk(gC0`qagPg 1PqOX2OZp6 g&PUPU2g`g`^Dg>gCnX~g( @XskX0`qagPg 1PqO2OZp6_`  gg`aDg>gCnX g( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2gXgXbDg>gCnXmg( @XskX0`qagPg 1PqO2OZp6_`  ggXcDg>gCnXg( @XskX0`qagPg 1PqO2OZp6_`  ggggg[OZ@XhC(@[OZ@jCP+8lg @Xsk(iC0`qagPg 1PqOX2OZp6 ggg ggxgg8lCXfK g2hkXhuk( gl[OZ@XP\ g"hkKh g @Xsk(gC0`qagPg 1PqOX2OZp6 g&PUPU2g g ^DLg>gCnX~@g( @XskX0`qagPg 1PqO2OZp6_`  gg aDg>gCnXg( @XskX0`qagPg 1PqO2OZp6_`  gggg&PUPU2b ggbDg>gCnXmg( @XskX0`qagPg 1PqO2OZp6_`  g\ gcD\ g>gCnXV g( @XskX0`qagPg 1PqO2OZp6_`  gggggl[OZ@XkK g @XskXx0`qagPg 1PqO2OZp6 g gg  gg(\g8lCXhK6g2hkXhuk0gl[OZ@XP\g"hkK g @Xsk(iC0`qagPg 1PqOX2OZp6 ggl[OZ@XkK g @XskXx0`qagPg 1PqO2OZp6 ggg 0ggL ggL~I(ggggEgghugtgDg 0sgEggpdog!g6ZpegRkZpgJOZg2 Z` gJSZg2 Z` gJRZg2 Z` gJUZg2 Z` gJTZg2 Z` g@Z@gH8Z` 8?gggqg|g4p Z8gNZgtXZ(Olgg Og Og Og OgPO'qOXOg(Pag;g<gb^XgF @= @>U?=gdX(CZggHZgLX(Zgg Og Og Og OgPO'qOXOg(Pag;g<gb^XgF @= @>U?=gdX(CZgg'(Dg|08Z` 8lZ00g~0 XZerZpP0ggPO'qOXOg Og Og(Pag;g<gb^XgF @= @>U?=gLX(ZgLX(ZgLX(ZgLX(ZgLX(ZgLX(Zgspg^ @XZg$Xp(gXXZ(CXZCP+8lg^XX(ZggX(|gg=x g.'8D'8D&g (@X8'qZH gg (@X8'qZggg6 Z8g Ph(@X'Pg'Pg Z gg4'Pqg6 Z8g{ "n`XPH@8xp80( XPH@80xph`X ph`X X@@(h X@x`@(x@(@(pXp88xph p Pn 0( P8  aS4__SRP_91__SRP_928__SRP_93j__SRP_948`brU@@@~x aS "a  Z $hrU@@@8`@a`P@`aOP`PPbrU@@@~x aS S SPrU@@@8`8a`8`brU@@@~x__SRP_95__SRP_968__SRP_97j__SRP_98      !"$%'()+,./01235689:;<=?@ACDEGHJKLMNOPQRSUWXZ[]^`acdeghiklmnoqrstuvxyz|} aS "a  Z $hrU@@@8`@a`P@`aOP`PPbrU@@@@~xHi aS4rU@@@8`__SRP_99__SRP_9a__SRP_9b__SRP_9cbrU@@@@~xHi aS4rU@@@8`brU@@@@~xHi aS4rU@@@8`brU@@@@~x__SRP_9d__SRP_9e__SRP_9f#__SRP_a0&Hi aS4rU@@@8`brU@@@@~xHi aS4rU@@@8`brU@@@8] Qq**@`*q__SRP_a1*__SRP_a2-__SRP_a34__SRP_a47 Hi$hrU@@@xP`9aOObrU@@@8P^ q**@`*q Hi &orU@@@xX` 9__SRP_a5>__SRP_a6B__SRP_a7F__SRP_a8Ia OOObrU@@@@~xHi aS4rU@@@8`brU@@@8\ KAK7`GaGDrU@@@xbrU@@@@~x __SRP_a9Tj__SRP_aaV__SRP_abY__SRP_ac\aS4rU@@@8`brU@@@@~x aS4rU@@@__SRP_ad___SRP_aeb__SRP_aff__SRP_b0jm8`brU@@@@~xHi aS4rU@@@8`brU@@@~x aS "a  Z $h  "aZ__SRP_b1 p__SRP_b4w__SRP_b5  {__SRP_b6~8rU@@@8`@a`P@`aOP`PP@1`ObrU@@@@~xHi aS4rU@@@8`brU@@@~x aS "a  Z $hrU@@@8`@a`AP@`aOP`__SRP_b7l__SRP_b88__SRP_b9 j__SRP_ba>PPbrU@@@~x aS "a  Z $hrU@@@8`@a`P@`aOP`PPbrU@@@~x a6 6 A86FrU@@@``AOO`!`AOO``AOO``__SRP_bb__SRP_bc__SRP_bd__SRP_beAOObrU@@@~xHiHiXHiP aS S SPrU@@@8`8a`8`brU@@@@~x aS4rU@@@8`brU@@@@~xHi aS4__SRP_bf $__SRP_c0__SRP_c1__SRP_c6rU@@@8`brU@@@@~x aS4rU@@@8`__SRP_c7__SRP_c8__SRP_c9__SRP_ca8brU@@@@~x aS4rU@@@8`brU@@@~x aS "a  Z $hrU@@@8`@a`P@`a__SRP_cb j__SRP_cc__SRP_cd__SRP_ceOP`PPbrU@@@@~x aS4rU@@@8`brU@@@@~xHi aS4rU@@@8`b  T__SRP_cf"WSNSy5uxmlDSy5uubxml!#?Tkexml560M6xMEh<6 ( 0$H `.x T<&&(  P ^p   . (  $  .  (8  ,v 0  2` 0  > ,P  4  2  4  4 4  2 4  ,P  4X 4 0 2 ,h 60 6H ,  ^ P "   8 @  H P X  h  bp b p    ^    *  0 8 @ $X Pp   \ .  h (  $8 .H  h`   $ .  h   $ . h0 $@.P hh        $  (  "0  X  `B (.&.    "(8  @B X` 2h x&"(  &8 ` p x  2 8   "    B 8 @0`2`X(4   ]X$>'@1-5$>'B287$>'H963/xmlFile = ThisWorkbook.Path & "\̨.xml" *!\ͻģ\ B\ @\ H.xml' A@op]]]]0]H]`]xMSXML2.DOMDocument$p.Wafer %.  /sublot$>'H'$>'xsi:noNamespaceSchemaLocation+>#Cells(2, 7) = "V650001ACN_V0_E.xsd"$> _V0_E.xsd''''''''''''''''' xmlns:xsi+>)http://www.w3.org/2001/XMLSchema-instance +> дڵ[rootNode.setAttribute "xsi" + Chr(58) + "noNamespaceSchemaLocation", "" & filename & ".xsd"\rootNode.setAttribute "xmlns" + Chr(58) + "xsi", "http://www.w3.org/2001/XMLSchema-instance" ӽ$> $> B@$>$> yyyy/MM/dd$ B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> yyyy/MM/dd$ B@$>$> B@ $> $> B@ $> $> B@ $> $> B@ $> $> B@ $> $> B@$>$> B@$>$> B@$>  B@'xml/version='1.0' encoding='UTF-8' standalone='yes' %.  % B@'ѭsublot   ӽڵlotLot %.MSet tNode = xDoc.DocumentElement.ChildNodes.item(ii - 1).appendchild(newNode)  !%.$> $> B@$> $> B@'''ӽڵwaferinfo$> AREA_COUNT'ӽڵwaferinfo WaferInfo %.  %.'  T7Code %.  %.SFQR    $> B@Clean_ID    $> B@FOSB_ID    $> B@ PULLER_DATE    $> B@ PULLER_ID    $> B@GBIR    $> B@ Particle_01    $> B@( Particle_03    $> B@ '$>MAX itemColumn = 40$>d''kphkP $> $> $> %.k'  ' $>b  '  ' Gxj 'ѭм   $>MAXKTUSet ltNode = xDoc.DocumentElement.ChildNodes.item(rowItemi - 3).appendChild(newNodeL)  %.MAX  $> B@  'MEANKT  %.MEAN  $> B@  'MINKT  %.MIN  $> B@  'NKT  %.N  $> B@  'UNITKT  %.UNIT  $> B@  'n  '   '   ' ..] $'  A@..MsgBox xmlFile & ""i`ʽxml,] ]8Msxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'i utf8BOMʽP] .B@ 0 .(lutf-8 .(2 8 .B@4 , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:] > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@Bi һθcount_qty(ADODB.recordset$p. t (r%αͣ޷ x (v(αԣ޷'XSELECT SUBLOT_ID , max(TO_NUMBER(SLOT_NO)) qty FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN' ;(SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H')' %GROUP BY SUBLOT_ID order by SUBLOT_ID'  ~ B@Debug.Print sql1qty %' B@i Polish_Time    $> B@( Slicing_DATE    $> B@  Slicing_Tool    $> B@ Slot_ID    $> B@ Thickness    $> B@ Wet_CLEAN_DATE    $> B@WARP    $> B@code    $> B@ AREA_COUNT   $> B@J lltNode.setAttribute "PULLER_ID", Cells(h + wi, endcolumn + 3) Clean_Time    $> B@FOSB_LATEST_CLEAN_DATE    $> B@ Particle_02    $> B@ Polish_ID    $> B@Wet_CLEAN_Tool    $> B@('x]80Attribute VB_Name = "Ͼ̨xml" Sub L_createh1() !Dim File As S ng4 wpstrCells(2, 3rcustomernz^4R5'r= ThisWorkbook.Path & "\.*4ģ\"# Q+ hR5}CXml End  Function (QxDocObject0 roo0tNod headernewk L litemColumnInteger/CSet x 7=DBC1("MSXML2.DOM@ument"C+ ==B.Ele ("Wafer . "'sublot rowI@8i4 @l@M2-6)"@xsi:noAspaceSchemaLocaD ' 7 V650001ACN_V0_E.xsdD MrialNo@ ' Cf 8mlns: $ 9http://www.w3.org/2 /6#-inst0ance 'дڵ`Ԇ0.set#" +@ Chr(5 +D "%, "sf Brb# 'u a ! 'pӽ +, ) 3, 1), Form(at(4c"y/MM/ddA]2AR345ka66@j7&a&%`/8U8991>0 AA911 1J? 1Ճv1?} 1 ; gN =hN3aa$oJaProcessingI;rubw("v"`>vers`x='1.0'@ encod='UTF-8' !Ldalone='yes'5edertBefore ,hChild!vs(0Hqty 25S '@ѭfor id1 To?ed11F?QTpju}Oqnt("Lo&t{q.W .q|( -H.appendc1($Dqo|oc{dw  `7#G@wP@1VqT?7 q cwinfoIfhrAREA_COUNT"pen'_2 o}Iߵ(r@#l&3'' = 18sU w) - T7CoDde t lԥ= 4 "de4vhwi,y=dc :Clean_IDpBc#n`X5? d"Time4Y+ qye| FOSBo ` 1[LATEST_CLEAN_D/ ( %GBIRoh^ PULLERO )@QO A w! Ad"Particle_01x1Q5 ~2^3umn + 10) lltNode.setAttribute "Polish_ID", C@ells(hwi, endco l1)TimeN2"NSFQRG3#Glicing_DATE'4'PTool'5'o t6"%Thickness%7"PWARP8et_CLEAN``9l`2c:N2KKIf3, 39) <> "MAX" T(hen 'UL8LER] itemCw= 40!Else\39 End IBfgNext'?Gm@ While*1, +"` H1aeSet new!L = xDoc.createElement~(+V b CC 1p2IoDo p)"p a paO !W!5# Exit DoLoopcoCC'ѭм@"For i1 To cSelect Cas?`j?o Bnw'=7= >u==.C%NdAs.(rowItemi - 3).appb(FAe ?a*2E#p? ]'fdeLMQ  =D0INg P֜  rNw+mn/?oocUNIT?/ R?w 6hSw{|WNshCqty+ f ii3ST@Noth໧rSDim xmlStr 8As `&T= PrettyPrintXml(^ WrUtf8WithoutBoF,TrooO a c'MsgBoxa & "@1(  Functio! ' ,  5 mldocN)qderObjt w#a 4= Cte!("Ms2.SAXXMLReap.6.0"o4MrÉC.ind0Tru$omit DeclaraAZ .contHandl= 4Par(!T`Outpu u"BOM8$m(QName,O 'dst mNew ADO8DB.3# .O Type = adTText  stream.Charset"utf-8"A tWrite "Uv bCrLfco0nten 'Ƴǰֽڣ0xEF,0xBBF#Poslitg3 Dim newS As New ADODB.. Binary ModaReadO8pen  opyToH Flush lose QSaveTo File NaXme,CteOv%CEnd Func P A'һθcount_qty΄  getZ(")+SqyS%bject("C_recor d@"H qy.C`ursorFaAQStatic 'αͣ޷`FL$oc@onsUs0eCli'Gsql1"SELECT SUBLOT_ID , max(TO_NUM BER(SNO)) I FROM f3prd.DWAFER dh WHEREEyINK& "(COCMEASSHIPLISTSTD FILE_NAM8E='l1y') GROUP BYH2er by/G@+!2 , csDBConn:n&'Debug.PrintBGiF + Fiel0ds("'LAMoxveNbOST      !"#$%&'()*+,-./01234789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklopqrstuvwxyz{|}~0)3luxMEh<6 BJ @ @ @h @P @8 @ X@ @ @ @ @ @ @x @` H @0 @ ( @ (pk$*\Rffff*Sn6c06f1fe" LL(L@ 6XL   B  (0".8.`  LL0L *"`@ hL<L  b b` &:&H&p&&&:&P&x&&&&&@&hd L8>( 0$H `.x T<&&(  P ^p   . (  $ . (8 ,P 0 *v  ^  2  8   @  H P X `  p  ^x ^ l    ^    *  8 @ H $` Lx   \ .  d  0  $@ .P  dh   $ .  d   $ . d  8  $H .X  dp                $ (0  "8  `  hB (.&.     "0@  HB `h 2p &"0  &@ h x   2 8   "     B @ H0h2`X04   (]X$>'@l[$>'B!s[$>'HW]/xmlFile = ThisWorkbook.Path & "\̨.xml" *!\ͻģ\ B\ @\ H.xml' A@op]]]]0]H]`]xMSXML2.DOMDocument$p.Wafer %.  /sublot$>'H'$>'xsi:noNamespaceSchemaLocation+>#Cells(2, 7) = "V650001ACN_V0_E.xsd"$> _V0_E.xsd''''''''''''''''' xmlns:xsi+>)http://www.w3.org/2001/XMLSchema-instance +> дڵ[rootNode.setAttribute "xsi" + Chr(58) + "noNamespaceSchemaLocation", "" & filename & ".xsd"\rootNode.setAttribute "xmlns" + Chr(58) + "xsi", "http://www.w3.org/2001/XMLSchema-instance" ӽ$> $> B@$>$> yyyy/MM/dd$ B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> yyyy/MM/dd$ B@$>$> B@ $> $> B@ $> $> B@ $> $> B@ $> $> B@ $> $> B@$>$> B@$>$> B@$>  B@'xml/version='1.0' encoding='UTF-8' standalone='yes' %.  % B@'ѭsublot   ӽڵlotLot %.MSet tNode = xDoc.DocumentElement.ChildNodes.item(ii - 1).appendchild(newNode)  !%.$> $> B@$> $> B@'''ӽڵwaferinfo$> WaferInfo'ӽڵwaferinfo WaferInfo %.  %.'  T7Code %.  %.code    $> B@FOSB_ID    $> B@Slot_ID   $> B@$>MAX PULLER_ID    $> B@'d'kk $> $> $> %.k0'  ' $>b  '  ' Gxj 'ѭм   $>MAXKTUSet ltNode = xDoc.DocumentElement.ChildNodes.item(rowItemi - 3).appendChild(newNodeL)  %.MAX  $> B@  'MEANKT  %.MEAN  $> B@  'MINKT  %.MIN  $> B@  'NKT  %.N  $> B@  'UNITKT  %.UNIT  $> B@  'nX 'H@   '   ' ..] $'  A@..MsgBox xmlFile & ""iʽxml,] ]8Msxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'i utf8BOMʽP] .B@ 0 .(lutf-8 .(2 8 .B@4 , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:] > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@Biһθcount_qty(ADODB.recordset$p. t (r%αͣ޷ x (v(αԣ޷'XSELECT SUBLOT_ID , max(TO_NUMBER(SLOT_NO)) qty FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN' ;(SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H')' %GROUP BY SUBLOT_ID order by SUBLOT_ID'  ~ B@Debug.Print sql1qty %' B@i DAttribute VB_Name = "̨xml" Sub L_createX() Dim Fil@e As Sng4 wpstrCells(2, 3rcust`omernu4R5'r= ThisWorkbook.Path & "\.*4ͻģ\"# Q+ hR5E}CXml ` End  Function (QxDocObje ct0 rootNod headernew5L lSeht x-=9(("MSXML2.DOM@umen\t": 4=B.Ele ("Wafer . J'sublotY ro@wItemi4 @l@Ƥ2- 6)"xsi:nospaceSchemaLXocaA|' 7 V650001ACN_V0_EP.xsdD M@rialNo@ ] ' .8'mplns:@)$ 9http://www.w3.org/2 /6#-instance 'дڵ Ԇ0.setǍ#" + Chr(5 + "%, "!ofbmb# 'u a ! 'ӽN +, )  3, 1), Format(%4c"y/MM/ddA]2wAR3A4wA566@j7&a&`%`/889910 AA911 1J?w ?15v1?S 1 O;p gN =h=N3aalJaProcessingI;ruu("tB"`>versv='1.0' encod='UT F-8' !Ldalone='yes'5edertBefore ,hChildss(0qty 25S 'for id1 Toed11FQTpj%{Oqnt("L~o&t3yq.W .i0m( -H.appendc=1($Dqooc{dw  `7#G@wP@1ߤVqT?7 qcBwinfoIZf\1r"IP"en'O" _}r ×l& '!' qolumn 18sT w)- T7C04 = !tdelcP;e<hPwi, "MAX=%Ao a PULLER/_] q=CS= 22Els6e1IfNextȁ/&`=  WPGe71, `&&@Th:E,L0^+ƣ&+ϸ CC6z͂p`+  Do]p b@p2 / 1 5 Then Exit Do LoopTco = CC`'ѭм@For ix1 To cSelect Case Cells(3, itemColumn)J2"MAX"#'Set @ltNode|xDoc.ume ntEle.Childs.; (rowI?i - 3).append(new}LI 7; V.setAttribute r,O+ 1VEANV::AU?;= !;I: ?;;@::uy`N"LWCUNITWCu o2 IV:E|ndRy&NextW#hh iqty = F+ ! iici NothingGb1 Dim xmlStr As F= PrettyPrint0Xml(DWr"Utf8Wit@houtBo Fpile, 'r|oo 'MsgBox & "aP 5Function@ 'ʽ, emldoc)"reade"Obj#!w.d|te("Ms2.S@AXXMLRr.6.0"4mMrC.indwTruec omit DeclaraAZ .cont Handl= G4Par(?!TOutpu0 u"BOMN$m(QName, 'Sdst mNew ADODB.3# .O HTypadTS;Cht"y -8Or 1 "qvbCrLf: w 'Ƴǰֽڣ0xEF,0xBBAFc Posi#3F Cea0c&.BinarO'Moad?a2 c$ Copy Flushlos2CSaveToF', adaCp%=O am.8&Cck0 @Jһθcount_P]Έ0get0D."Bqy(D I(".recordEqy.CursLorVQSt Ac 'ͣ޷#CZLocDadUseCliHPԏ'sql14SELECT SUBLOT_ID , max(TO_NU@MBER(SqNO))o FROM f3prd.DWAFER dh WHERE GJbc(.BCOCMEASSHIPLISTSTDtFILE_NAME='a6e!q 8"')t@lGROUP BY PUby' aNsDBCoBJ  @ @ X@h @P @8 @ @ @ @ @ @ @ @x @` HH @0 (   `k$*\Rffff*T46c06f1fe"> ((  HX B `hpx".<8>(.H ` p &&^  ^ ^  @ H,X p::  (  L L8P$X p.<.( * l( (H *`..$ . ( . 28 p &x.(22 0 28PX`hp x$ B "    B  (.(&.P x   " B  2 &0"  &        2( 88  H  X "h       ]XAH1$v'  -by wafer.xml' A@o p]]]]0]H]`]x]]]]MSXML2.DOMDocument$p.xml version='1.0' encoding='Unicode' %.  % B@coa %.  /sublot GLOBXMLļ'H  (  $>NotchOrientation  ' k  $> InspCharac  ' k  $>UCL  '  @  $6'   e  '   '@  $6' @  $6'   ' k  65536$v%!'k$>'$>''   ӽڵcoa_headproduct %.  !%.head %.  %.'ѭӽڵ1~6   $> %.  %.@   $> % @ B@h parameters %.  %.    parameter %.  %.    $>   $> B@  RAW %.  %. $>    $> B@$>    $> B@    '..] $'  A@..E1H1$vB@ MsgBox xmlFile & ""iʽxml,]]Msxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'i0 utf8BOMʽ]H .B@ 0 .(lutf-8 .(2 8 .B@4 , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:]h > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@BiXPAttribute VB_Name = "Ϸʳxml" Sub L_createh() Dim Fil@e As Sng4,_pathRange("pAH1"nB8=B+& "-by wafer.Af/C}Xmlr End  Function '(A  DocYObject0groo0tNodg headernewk Ll5 batch_no'Integer^ Lot_N va`rianckpar@ter_nArSet x K=WF("MSXML2.DOMA@umentDx / Kw@.Processing@Instrul("z, "versp='1.0'@ encod@ ='Unie'E#.ertBefore ,)@.Childcs<(0|#vJ$Ele.("coaI/?5 ]'sublotEGLOBHļ For counts1 T0o 40CIf Cells(2,D ) "No~(OriYa" pThen Ƈ=DAIf *pCh Bc DL UCL ,P "<= 26 ZM`&Chr(64 + BaElse >w vi@ \g+% i0ModrS1 il! S2*Q & S2? A ó655 36").`(3`).rowgNexd #B!bV1, 1dc2WAF_ME|AS`D^a hFac'нڵs_|z%szprod`?zb(Dl|.appendb( ${a;"\ @''ѭ1~6%J~nt(i) trr1 de\ v("Ts_T#Yt39u , % 7v[v8s_|= B ? : 1measF(Bi pj?&1 5VbF !set X,%e5 * + eMD 258RAW M$ 8&S.Qs26) *'KO ewx27+ G,O+Ѯs - 1 h#&p`Ѣ`&Q= PrettyPrint;8WriteUtf8WithoutBo`mlؕ a; TE 1".CleaĬ'MsgBo x iab'ʽ ,Xmldoc)}_&~w!ɑsA2.SAX0Rr.6.0u04۟MrC0.indTr ueomit DeclZ .contHandlp= 4Parse\TOutpup' uP$BOMqxo&m(6a d*qeamNew ADODB.3 .Op} Typaadj1E " -8r 1P "AvbCrL~ 'Ƴǰֽڣ0xEF,0xBB@F stream.Position = 3`lDim newS As New ADODB.lLD.Type adBinary DMod"ReadWrite %OpenCopyToA Flush .losWSaveToFile Name, a d CteOv\erJ1'C3End Func ͑^NV0021,6lGLOB!jgxmln/NSRƖbubxml%'g;Sy5uubxml2> A NHKxME(`` % J @ @f p  %  0@P`p 0@P`p 0@P`p 0@P`p 0@P`pk$*\Rffff*T<6c06f1fe" ( 0 HX p   008@ Xh* 8H h "   ( 0 H  ` p x  *   8Pp  <   B FX    2 6 8 @ P 2h 6   B08 @ P hp    x   &   Ph p  ` 0 0  ( @   08 0h  $ * *  8 X ` x             0 0H ` p         ( 28 (p          &0@`JP86 $ 0 0P      @ H>` : $( Ppx     $   8 008h     8     0@ $X  00    0 0 (H p 6  00@p p       0!$<0!(6p! ((!,<!(",6"(H" ((8P"(6"(6" "(#$# # 0# $ @# P#  `#2h### # #  # #$ $8$P$ h$ p$    $ $$$T$ 0% H% `% % %%% &% &N0&&& & & & :& *' @'P'h''''''  P' JH(     (*( (( )  )@) (X) )0)0)**** &* * + (+ 0H+ x+ 0+ + , ,  ,,*,2(-$`- - -0-0- ..".  / 0/ @/  P/  `/ p/ Rx// /  / / 0 0 (080 @0 X0 h0 x0<0  0 B0   1 01!嵥ļļ ''''ship_seqرĻˢ´ (r$>$'H H嵥ļA@J|XkPA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' ;FileCopy srcpath & wpstr & ".xlsx", ss & filename & ".xlsx" ?FileCopy srcpath & wpstr & ".xlsx", ss & filename & "-res.xlsx" $x Ʒļ  @.xlsx  H.xlsxA@H  @.xlsx  H -res.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@H  @.xlsx  H -res.xlsxA@Hk d7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %.J-----------------------------------------------1--------------------------' B@p total_qtySELECT SUM(WAFER_COUNT) WAFER_COUNT FROM(SELECT SUM(WAFER_COUNT) WAFER_COUNT,SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @' group by SUBLOT_ID)'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ WAFER_COUNT L%+>ORDER_NO ,PLAN_SHIP_TIMEbSELECT PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' AND PRODUCT_ID =' @;' GROUP BY PRODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NAME,ORDER_NO'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ORDER_NO L%+>PLAN_SHIP_TIME L%+>PLAN_SHIP_TIME L%+>ѭ̶ʽ'  $>  ' p  '] J8   $> +JѭsublotidHSELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' AND PRODUCT_ID =' @/' GROUP BY SUBLOT_ID,SHIP_SEQ ORDER BY SHIP_SEQ'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N[ ''lot_id]@ L!f' sublotid-1 ȡҪ'   $> 'P  '[ P +copy_row = Cells(st + 5, 1).End(xlDown).row$> P$$>$vB@ P'R T N R $>!VB@  R P  'R'X'װʱ䣬sublot_id,wafer_count SELECT SUBLOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyyMMdd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyyMMdd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG')and his_cat = 'OC' ' { and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ' ( ) )order by SUBLOT_ID, his_regist_dttm ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ)c  LEFT JOIN ( :)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@[   N  P lot-qtyOn Error GoTo NoData:CUR_SUBLOT_WAF_CNT \%  X   +>manufacture-datemanufacture_date \%  X   +> expiry -Date expiry_date \%  X   +>''1-15ȡ̶ֵ   $J  X +>[  X $> \B@''''  ' P  'X'''''''sublot_id''''''X''ɳϸκI SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' AND PRODUCT_ID =' @0' GROUP BY SUBLOT_ID,SHIP_SEQ ORDER BY SHIP_SEQ 'ADODB.recordset$p. t (r/αͣ޷ x (v2αԣ޷  ~ B@[   N  P lot_no SUBLOT_ID %  X   +> B@''''  ' P  'X'''''''sublot_idx κADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT FILE_NAME,SHIP_SEQ,SUBLOT_ID,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN mes_SHIPTAG ms$ ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' AND PRODUCT_ID =' @' ORDER BY SHIP_SEQ'd[ d d ~ bB@]X b!'h hf1A¶ h  j hSHIP_SUB_LOT_ID b% j+f bB@xkp/'''''''''''''''''''''''''''''''''''''''''''''''''X l hADODB.recordset$p.n t n(r8αͣ޷ x n(v;αԣ޷select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME =' H' AND SUBLOT_ID =' l$f' AND LOT_FLAG='F''p[ p p ~ nB@ n!   P nB@r'ѭ  n!*Debug.Print sheet3set.Fields("MEAS_ITEMS")  X  $> MEAS_ITEMS n%MEAS_AVG n%  X  +>MEAS_PCS n% MEAS_PCS n%  X  +>dMEAS_PCS n%  X  +>k MEAS_STDEV n%  X  +>MEAS_MIN n%  X  +>MEAS_MAX n%  X  +>( '''дyk nB@   '''''d(ûмݣԺڵECOCA@J|XkP P  l'X l''ƫǰλ xmlļ AI1+v NAI2+v P AI3+v AI4+vA''''ж A1$v%!'    '   $>   $>   $>   $>'   $>'     %'Debug.Print pd3    $>(^   $>'x x   +> min: uomcolumn-2,max:uomcolumn-1СΪ NG   $>   $> $>NG   +>kXkPHRҵRESISTIVITY3th_row = Range("A1", "X50").Find("RESISTIVITY").row$RESISTIVITY = Cells(th_row, st + 14)ɾid  $B@v  $B@v  $B@v  $B@v  $B@v  $B@v  $B@vJ-----------------------------------------------1--------------------------C--------------------------2----------------------------------------''ļRESISTIVITY  H -res.xlsx %. ( %tB@v (Maker_Plant ,Lot_No.$>' !жٸlotԼÿlotcountADODB.recordset$p.\ t \(r)αͣ޷ x \(v,αԣ޷_SELECT SUM(WAFER_COUNT) WAFER_COUNT,SUBLOT_ID,lot_Id FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' group by SUBLOT_ID,lot_id'  ~ \B@'   \! lotidҰװʱexpire_time SUBLOT_ID \%'excelļADODB.recordset$p. t  (r0αͣ޷LOT_ID \%' x  (v3αԣ޷_SELECT END_SLOT_NO,END_SUB_LOT_ID,END_LOT_ID,MEAS_AVG FROM COCEQPRESDATA WHERE END_SUB_LOT_ID=' ' AND END_LOT_ID='  0' ORDER BY END_LOT_ID,END_SUB_LOT_ID,END_SLOT_NO' Debug.Print lotResSql  ~  B@    !$>  +>END_SUB_LOT_ID  %  +># END_SLOT_NO  %X  +>MEAS_AVG  %  +> wafer_idADODB.recordset$p. t  (r3αͣ޷ x  (v6αԣ޷ASELECT waf_id,slot_no,sublot_id FROM F3PRD.DWAFER WHERE SLOT_NO=' END_SLOT_NO  %' AND SUBLOT_ID='END_SUB_LOT_ID  %' order by sublot_id,slot_no'  ~  B@waf_id  %  +>   '  B@   \B@ |K-----------------------------------------------2---------------------------k( <B@ B@ B@ رչ B@B B@BĻˢ´ (rA@ H HresxmlļA@Jκȱʧ:;MsgBox ("κȱʧݣµκܼ")oAttribute VB_Name = "0021" Sub H() '嵀ļ  'ship_seqHرĻˢ& Application.Scre enUpdngA{False'FileTrim(Cells(10, 2)H If $"" Then<$MsgBox (""IExit uEnd/con@nectDBS et wp= CreateObj("ADODB.recordset..CursorTypadOpenSt{c 'α3 "LoadUseClienBt#ԕ#Dim pdsrc As Sng5wpsql '!Ʒyssp @SELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &w& "' GROUP BY JrCJWi3, csDBCq@2Whq.EOF <> True<жǷΪ׀һ@a'ȡ@tr@cFields("*ə'˾ "Acust`omernB("7HAkqpath rADnԭ ā/·һ'ӵ̀繲a+F<\\10.A52.142\0coc\. ServerSh ar112ģ YradministratorPasswl."fthw-82905028hICFoldeBr }sts()/%DE@ 0 Elt Net .kkW`ip@'pk`=GisWorkbook.PqB*vg!Axml_}= /ǣ'GCopy V,fPwG "-res[ |9ssO'1! BF?*j OCCBMulti Level (P?!2  v"5?t Bak d $"Gû0ӦQEk,ȷ<8B;? PDPb_.R`emoveXp,?"4Xq`ddNoth`H !һOERs'"8`aobPQP 1 '򿞪uA:= %s.  ExcelShe= .qs hp'-1W xx~tY.Activ`'total_Xqty71@"4SUM(WAF@COUNT) 5 a(,SUBLOkaGT' ANDX ӻ6|' gro@up by ){H8Qi !$9տտշ'uC ,> Q 2, 3)@UxP'ORDO, PLAN__TIME?$!PRCODUCT_ID,PLAN_SHIP_TIME,CUSTOMER_NA4ORD(O FROM COCMEASLISTSTD WHERE FILEb='" & FileName"' AND( PR DwpstrGROU0P BY$#"  Set ids= CreateObject("ADODB@.recor")4.CursorType = adOpenStatic 'αͣ޷@(L$oc"on*UseClient)0ԧ)J sql1, csD BConnrionBCells(`2, 1)=qFields("QC 2 Z4iG/'ѭʽ @coun_j65iWh /) <> "F+ 1endG,st - Dim GD_item() As S tringGRe1 To stሞFor AQ4 N8extGC' Ssublotid H"SELECT`aSUBLO#bSEQ~c n@}0"Te}}~}}f }} c };p_id_aUaVRC eDEDebug.PVt'G%''' p% \`ihfeKCgetRowsSR-1k'ȡЀҪOM~2kIj,`m + 5Necopy_rowj! jȂWJ!I(E '( x@ .End(xlDown).+Range(F1),% , 3`6)).C@+c_kcp G#M R! tirep.PasteSpecial= S5 K[yy0 20;xx;'װʱS%P ,wafer1{O OHCUR_WAF_CNT,to_char(his_regist_dttm,'yMMdd') manufactu0re_dЇFADD_MONTHSE-0|12)je`xpiryWF3PRD.DOPE_ where ID in('PKG','Ea)and 1 'OC' HSa& " QaSTR(``0,7)||Sjx-3)QXSUB_0!z( H D IN@jCASEgN caF IS NULL THEl ELE=co o LEFT JOIN _ 0 = !E' FP@ k#!= R MESTAG-s ON c.ms.Q&1m¿·? > ) )er by F ,1;c n'ship_seq_B "%/*c9()$EQ,*d1**!*D c '%%TN%5 3%У# #D#-!OOH); _O8*p " !)pkg{D07=1N* wa4tꊔ lotSet.CursorLocation = adUseClient 'αԣ޷ Open sqlship, csDBConn ec4Debug.Priq4$AFor s1 To p_id_count4(INex#SOMov:e ' xx+_N= (b) * xxsub `o` ' Z= 0B''ɳϸκ#/!1c2" SELECT`ID,SHIP_SEQ FROM COCMEASLISTSTD c WHERE FILE_name='" & FileN@"' AND PRODUCT_ID CwpstrGROUP BY 0ORDER[be"ox `tCre rObj("ADODB.recordsetjType@adStBc'? 3BE22&'vb~ &"ǘax_no { 1!ŶFFb; g d |@m||)>ot>eI ': a%SRBP...en.. NooO4@I*t1="IDPGINC0JFNAMEJ,!CCASEQIN 1KUB_A}GIS NULL THE~`ELE0K=_PUPLEFT JOIN mes_qTAG ms" _ j & " Os.CUSTOME =c.v @TVmDX.\c.&Z]]]^[O[ |K !.UQQ-Dim vA@x¯06gRdCOiRe8(Px) 'A0塔If &> 0 Thenq[@x?1_Q11(#iVVBx5tA\U'ZaEnd If eTS`Z=zԑT5S H0b sheet3?X XXOoEXXXH qBlP"sel _ITEMS," ND(MIN,5) ,lAXMA 0 The6 For it = 1 To copy_row - 1gMoveFirst,''ѭ*Dmes߅D1fK'Fields("MEAS_ITEMS")$&@Cells(++ yy, st 4)TR2/]0AV~Ge3=A ʓJ7PCP > 26,8998/ 2g/Elseg :&(%nd Ifa?%VG1*STDLEVGe 21 MIN  13Yy AX g 'д,%Ex?=!E= gNexv  ?7A i A$''[ rMsgBox "ûݣڵ`ECOC"7b5S\ub3 y y@(I) * subcc"*KLƫǰλQq s:'xm`lļ_Range("AI 1"13_path2lot_id_ A934 Call _create` +W'жА= `.=(xlDown).ci"2cuomcolumn , P) <> "" OrW W`S/WylowChar d_ i_up+ 3"apd3@ c pd.c(  , i`_Q_QO@7).0 mula q0Value/"q`OA'min:%-2,max: !-/Q 'СΪx NG/+!.- "+AV űI *2 J"NGOax yS\?'RRESIST IVITY'thyA, "X50"P ind("H0fB 'v c'ɾiJdCCs(.Deletu   O o`Y'-1 2Q ! c P%g򿪀y~RESISTIVITY Set p_workbook = W(s.Open(ss & FileName"-res.xlsx")Application.Display@AlertsF0alseTl.Sheets(1).Delet$OTru)'Maker_Plant ,Lot_No.mCQAOSP artNoCells(2, 1] 'жٸlotԼÿcount'= CreateObject("ADODB.recordset .CursorTypeIEadStc 'ͣ޷3?$Lo&Us`eClie&H&ql@"SELECT SUM(WAFER_COUNT) ,SUBLOT_ID,!_Id FROM COCMEASSHIPL@STD WHERE FILE_NAME='"̐' gro`up byIi,d":I =ql, csDBCo x%xpP`pPpPpPpPpP(pPPpPxpPpPpPpPpP@pPhpPpPpPpPpP0pPXpPpPpPpPpP pPHpPppPpPpPpPpP8pP`pPpPpPpP pP( pPP pPx pP pP pP pP pP@ pPh pP pP pP pP pP0 pPX pP pP pP pP pP pPH pPp pP pP pP pP pP8 pP` pP pP pP pPpP(pPPpPxpPpPpPpPpP@pPhpPPHk$*\Rffff*Sx6c06f1fe"  0 6@fx   B  (0"8"` 02 @X<x &&&@&h&&&&:0&pL 0 Hh6244@ x   &  HPp& &  0 8 Ph     L  JP                ( 0  $8 `  h B    ( &       0 @  H B ` h  p    0  &@  h x            ( ]XC1$v'@D1$v'BB1$v'H/xmlFile = ThisWorkbook.Path & "\̨.xml" *!\ͻģ\ B\ @\PX-008-WF042_14_$>.xml' A@op]]]]0]H]`]xMSXML2.DOMDocument$p. WAFERShipment %.  /sublotB1$v'HA1$v''xsi:noNamespaceSchemaLocation+>PX-008-WF042_14_$>.xsd''''''''''''''''' xmlns:xsi+>)http://www.w3.org/2001/XMLSchema-instance+> ӽ$>  B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> yyyy-MM-dd$ B@ $> $> B@'xml/version='1.0' encoding='UTF-8' standalone='yes' %.  % B@'ѭsublot  ӽڵlot,ԼLot %.  !%. $>  $> B@= CarrierID $>  $> B@=LotID $>  $> B@=LotSize $>  $> B@=MfgDate'ӽڵSYMBOLICSO1$v %.  %.@ ӽDopant$> %.  @ %.$>$> B@$> %.  @ %.$>$> B@'$> %.  @ %.$>$> B@ 'Ӽ'6  6 $>'ӽڵDiamA 6 $> %.  %.B  D ӽDopantRAW %.  B %.$> D   $> B@esublot$> D   6 $> B@kX 6  '6 @   '   ' ..] $'  A@..MsgBox xmlFile & "xml"iʽxml,] ]8Msxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'i utf8BOMʽP] .B@ 0 .(lutf-8 .(2 8 .B@4 , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:] > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@BiAttribute VB_Name = "GLOBģxml" Sub D_createP () Dim File As Sng4A wpstrRange("C1"rcustomernDR+B'r= ThisWorkbook.Path & "\̨.*4␿ͻ{\"# Q+ hPX-008-WF04 2_14_Cells(3, 2.)D>CXml End  Function (Z#DocOb0ject0ro`otNodɍ h eadernew L lSet x-=9(("MSXML 2.DOM@ument 4=B".CEle ("WAFERShip . L'sublotrowlteZmǵAƦIi 3Ä1, 5)"xsi:nospaceSchemaLoca~M@rialNoA "sd' L!6C!mln\s:"D 7http://www.w3.org/2001/ 4-instance'ӽ E+.setg , 6), h2, 1p1`e22334455#6*7 78Format(0 a"y-MM-ddt,99>h`[Bd{Ē{ProcessingIMruB(" ", "vers@='1.0' encod ='UTF-8' Sdalone='pyes' ertBefore C,Chil"ds(0qty 25h'ѭor i~1 To #abdӽڵ「,Լeaa SLo.append($ wBQt140L50) 'CarrierID :{81 OC(/A':Hu'@Si|ze~Ga;h3aMfgDVg'SYMBOLICSPi4OpaXtRP%=eLU VDopan5_$r3<5)/ |~l $d/%swB1CD1Mu'a 6 . 01d   qWe u' _#X#7 qJ 0 1qau q1,~i_cRo#18WTe{) <> "Y8DiamAm"""`V70Jd"0:ld?U s LOraEd/>R|"RAWoT" %%? M((W2 +Q+ (u- * 25h4[Cx2lII+'ANexYp+ 1kWz;Ah0@Em0+ fA 3S#Node = Nothing Set tDim xmlStr As *= PrettyPrintXml(xDoc)WriteUtf8WithoutBoFile,U(+rooV 6'MsgBoxMV & ""$ End Function'ʽ, hmldi  readeObpject/ w} r= Cte("MsG2.SAXXMLR.6.0")Mr .indentaTrue)DomitDecl8araIJ 8.contHandrl@<= CCParse (1KK@DOutp&uKg u@ހBOMj f(~Nameyh, +Qfs t+mNew ADODB.,.OpesHTypadTexD{DChA?AX"0-8-  "vbCrLf 9$&'Ƴֽڣ0xEF,0xBBFCPosiDG3Gc-newea-F.*,BinXary# GMadd"d74opyTo F  FlushloseSave ToO, adz@;h C ` -*0Y2#6xMEX<6 <`<<< <(<0<8<@BJ  @ @ (@h @P @8 H @ @ @ @ @ @ @x @` H @0 @ ( @  k$*\Rffff*Sq6c06f1fe"> ((  @P B X`hpxL"..  <8>0 *P.< * & l&`0$rX   .6  2   . (  &8 &`  l ( $t   >8>P .h6  &$.(  8  lH(h* l(* (l@(`*x l(* "   8 .X (p d d  . ( * H .` ( *  . ( * @  .X  (p  *   .  (  * ( 20   H X ` h  p $    "    B    (. &.0  X  h  x   "    B    2    & "  &         2 8  (  8 "H  `  p   ]XAG1$v'cro .xml'off A@preo(p]]]]0]H$>'MSXML2.DOMDocument$p.coa %.  /xml version='1.0' encoding='Unicode' %.  % B@#cells = Sheets(1).Range("A2:AB200")head %.  !%.$tNode.setAttribute "type", "program" ''headڵ  $> %.  !!%%. $> % B@x '''baseڵbase %.  !%.t   '''itemڵ '''item %.  t%.v$> $> B@$> $> B@''һֵ$> %.  v%.x $> % xB@ ''''specs'ѭͷAG2$v'hAG3$v'specs %.  !%.z'| ѭsublotcount ѭspec  hspec %.  z%.~spec4һitemlotno$> %.  ~%. | $> % B@lotqty $> %.  ~%. | $> % B@ManufactureDate $> %.  ~%. | $> % B@ ExpiryDate $> %.  ~%. | $> % B@    '''itemڵ '''item %.  ~%.vname  $> B@unit  $> B@''һֵSampleQty SampleQty %.  v%.x  | $> % xB@ ''һֵvaluevalue %.  v%.x  | $> % xB@ ''һֵminmin %.  v%.x  | $> % xB@ ''һֵmaxmax %.  v%.x  | $> % xB@ ''һֵstd %.  v%.x  | $> % xB@ |   '| ..]` $'  A@..MsgBox xmlFile & ""i0ʽxml,x]]Msxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'iP utf8BOMʽ ] .B@ 0 .(lutf-8 .(2 8 .B@4 , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:] > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@BixpAttribute VB_Name = "xml" Sub T_create`() B Dim File As Sng4,_pathRange("AG1"nB 8=B+& "./8w]&CtXmli End  Function '(A# DocOb0ject0bro`otNodc h eadernew&yCells(1, 25AKSet xK=b@("MSXM@L2.DOMument Y.Ele("coar2.% @$ <ProcessingInst$ru]("l, "versa='1.0' encod@ ='UniYe'.A:.ertBefore ,@.ChiDldUs(0G 'cL@*SheetO).Ŕ2:AB200A9eEI i F.append$($B' .set" type"Bpr ogram'''ڵ!@or t21 To 4[]Z.ƍ8+ Hsp O J d2O,PTT13 + c,,qty 39 9`  wnt aC ,b 0 'Manufacture>D@N??310sOEno??;n~o//B!?'Expiry  1 e9 /  oc  S%uy!ufQ@AXouc "!IG fu:ou"n@s@812OAunitJ3H@tSampleQ,<v;Bu/-ud/I'ItI15)l'J&value 2 ;?/#/ 16 4 min {,o o O'OHt|VKrg axa  Set newNode = xDoc.createElement("max"H)  v tdi.appendChild( h` N (nTexH(Cells(t + ct, 18)) G '''һֵstdi9i eN ct+ itemcount - 1y@ st C}UNothingAo Dim xmlStr As  D= PrettyPri`ntXml„D|Wr@-Utf8WithoutBoFile,DG roo!A' ' 'MsgBoxA & "@"@ End Fun ction' ʽ/, 3mld8oc)M?EdeEObjec@Z_=Aw>N1 = C@te("Ms#2.SAXX MLRea.6.0ŸATM -r .ind@'True !$omit@Declara$ .contHandl = # dParse@%CKC Outp&u%3 uEހBOMA5 H3I(>Namey4, GQA3s tmANew ADODB.cA3.O TyrpadCh! v"-8O- ba "*_ K" encodcqMUTF"?> vbCrL>f&'Ƴǰֽڣ0xEF,0xBB1FPosiG3c. ieav. C.*,Binary# ɦ.M#adAe"d7DCopyTo FlushloseSaveToO, adz@;wh C Ka 1kxME(<6 <<$.X  p` ` ` i` ` ` ` ` ` ` `+P` I `  `" (` iHi, .% < % ` IH P(p %P(pP(pP(p(P(pPP(pxP(pP(pP(pP(pP(p@P(phP(pP(pP(pP(pP(p0P(pXP(pP(pP(pP(pP(p P(pHP(ppP(pP(pP(pP(pP(p8P(p`P(pP(pP(pP(p P(p( P(pP P(px P(p P(p P(p P(p P(p@ P(ph P(p P(p P(p P(p P(p0 P(pX P(p P(p P(p P(p P(p P(pH P(pp P(p P(p P(p P(p P(p8 P(p` P(p P(p P(p P(pP(p(P(pPP(pxP(pP(pP(pP(pP(p@P(phP(pP(pP(pP(p(0k$*\Rffff*T36c06f1fe" (@ 6XL   B  (0"8` 0 *"@ h<  b b` &:&H&p&&&:&P&x&&&&&@&h L( 0H `x T&&(  P p        8 2P , 4 , 2 ,X , 0 *    28  p  x                8 H X p x     \ 0  H h  x        (8Pp        (08@P `h  "p   B (& ( 8 HX hx  B   h  &x          0 @P XB x 02`Xh4 ( @P `]X$>'@$>'B$>'H/xmlFile = ThisWorkbook.Path & "\̨.xml" *!\ͻģ\ B\ @\ H.xml' A@op]]]]0]H]`]xMSXML2.DOMDocument$p.Wafer %.  /sublot$>'H'$>'xsi:noNamespaceSchemaLocation+>#Cells(2, 7) = "V650001ACN_V0_E.xsd"$> _V0_E.xsd''''''''''''''''' xmlns:xsi+>)http://www.w3.org/2001/XMLSchema-instance +> дڵ[rootNode.setAttribute "xsi" + Chr(58) + "noNamespaceSchemaLocation", "" & filename & ".xsd"\rootNode.setAttribute "xmlns" + Chr(58) + "xsi", "http://www.w3.org/2001/XMLSchema-instance" ӽ$> $> B@$>$> yyyy/MM/dd$ B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> yyyy/MM/dd$ B@$>$> B@ $> $> B@ $> $> B@ $> $> B@ $> $> B@ $> $> B@$>$> B@$>$> B@$>  B@'xml/version='1.0' encoding='UTF-8' standalone='yes' %.  % B@'ѭsublot   ӽڵlotLot %.MSet tNode = xDoc.DocumentElement.ChildNodes.item(ii - 1).appendchild(newNode)  !%.$> $> B@$> $> B@'''ӽڵwaferinfo$> WaferInfo'ӽڵwaferinfo WaferInfo %.  %.'  T7Code %.  %. AREA_COUNT    $> B@GBIR    $> B@ Particle_01    $> B@SFQR    $> B@ Thickness    $> B@WARP    $> B@code    $> B@FOSB_ID    $> B@Slot_ID   $> B@$>MAX PULLER_ID    $> B@'d'kphkP $> $> $> %.k'  ' $>b  '  ' Gxj 'ѭм   $>MAXKTUSet ltNode = xDoc.DocumentElement.ChildNodes.item(rowItemi - 3).appendChild(newNodeL)  %.MAX  $> B@  'MEANKT  %.MEAN  $> B@  'MINKT  %.MIN  $> B@  'NKT  %.N  $> B@  'UNITKT  %.UNIT  $> B@  'n  '   '   ' ..] $'  A@..MsgBox xmlFile & ""i`ʽxml,] ]8Msxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'i utf8BOMʽP] .B@ 0 .(lutf-8 .(2 8 .B@4 , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:] > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@Bi һθcount_qty(ADODB.recordset$p. t (r%αͣ޷ x (v(αԣ޷'XSELECT SUBLOT_ID , max(TO_NUMBER(SLOT_NO)) qty FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN' ;(SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H')' %GROUP BY SUBLOT_ID order by SUBLOT_ID'  ~ B@Debug.Print sql1qty %' B@i 9Attribute VB_Name = "̨xml2" Sub P_create\1() B Dim File As Sng4 wpstrCells (2, 3rcustomernw4R5'r= ThisWorkbook.Path & "\.*4ͻģ\"# Q+ hR5}CXml End  Function (Q#xDocOb0ject0 ro`otNod h eadernewL lSet x-=9(("MSXML 2.DOM@umpent": 4=EB.ÝEle ("Wafer >. J'sublo`tY rowItemi4 @l@Ƥ&2-6)"x si:nospaceSchem`aLocaA|' 7 V650001ACN_V0@_E.xsdD MrialNow@ ' .8'mlns:$ 9http://www.w3@.org/2 /6#-instance 'дڵ0Ԇ0.s et#" + Chr(5 + "%, "!ofbmb# 'u a ! '8ӽ +, ) 3, 1), Format(4c"y/MM/ddA]2AR3A4A566@j7&a&%`/8*89910 AA911 1J? ?1Uv1?s >1 ;p gN =hN3aalJaProcessiHngI;ruu( "t"`>versv='1.0' encod='UTF-8' !Ldalone='pyes'5edertBefore ,hChilbdss(0q$ty 25S ' ѭfor id1 Toed11FQTpj%{Oqnt("Lo&t3yq.W .i0m( -H.appendc1($Dqo|oc{dw  `7#G@wP@1VqT?7 q cwinfoiIf\1r"IeP"en'O" _}r ×l& '!' qolumrn 18sT ~w)- T<7C04 = Ӵ !delcAREA_COU,NT0=#hwi, =dc + \ p_"GBIR/.%"/!Particle_01i+SFQ+ AS IcknOձWAR~P/(1bUe/(A/)FOSB_ID_Xq_YSpS_"&. ?0E2<> "xMAX}?APULLER/*!XCc(= 29Á1Else M7IfN "" tIf\ Then3Set newNodeL = xDoc.createElement()HCCV1p iH + Dop~)}3#5p1P5 Ex it DoWLo$op coGCC 'ѭAFor i1 To cSelect Cas}3 Y "XMAX'{lt{B{@|uz{.Cds.g(rowItemi - 3).append(ō?Pm+.setAttribute 9,'{dIȜ=S1VEANV:sEIy }AHLXC i9;%c:f?XPN"p UNITW ? 22 W!Уo NextW#h$bhqty =2 F+ f i>i3S4T@NothingR'Dim xmlStr As `&T= PrettyPrintXmLl(^8WrUtf8WithoPutBoF,TrooO a c'MsgBoxa & "1( Functioq '@ʽ ,0 5 mlpdoc)qderObjt wa 4= C te("Ms2.SAXXMLReap.6.|0"4MrC.ind0Truec !omit DeclaraAZ .contHandl= 4Par(!TOutp&u0 u"ހBOM$m(QName, 'dst mNew ADODB.33# .O Type adT;Cht" <-8Or 1 "qvbC|rLd~ 'Ƴǰֽڣ0xEF,0xBbBAFctPosi#3F Cea0c&.BinarO'ModCa2c$ Copy Flushqlos2CS`aveToF',x ada=O alm.8Cck0  @Jһθcount_P]Έ0get0D."Bqy([F.recordEqy.CursorVQSt Ac 'αͣ޷FCZLocDadUseCliHԏ'sql14SELECT SUBLOT_ID , max(TO_NUMBER(SqNO))o FROM f3prd.DWAFER dh WHERE GJbc(.BCOCMEASSHIPLISTSTDtFILE_NAME='a6e! 8"')t@lGROUP BY PUby'  aNsDBC8onnPgsm_ 'Debug.Print s`ql1 getcount_qty = qy.Fields(2"@")2MoveNext End Func@tion Sy5uubxml3&*BTvfTwafer8Tkubxml)+k60!jWW111111149xME(<6 <<$.X F p` ` `  i` ` ` ` ` ` ` `+P` I `  `" (` iHi, .% < % ` IH P(pH %P(pP(pP(p(P(pPP(pxP(pP(pP(pP(pP(p@P(phP(pP(pP(pP(pP(p0P(pXP(pP(pP(pP(pP(p P(pHP(ppP(pP(pP(pP(pP(p8P(p`P(pP(pP(pP(p P(p( P(pP P(px P(p P(p P(p P(p P(p@ P(ph P(p P(p P(p P(p P(p0 P(pX P(p P(p P(p P(p P(p P(pH P(pp P(p P(p P(p P(p P(p8 P(p` P(p P(p P(p P(pP(p(P(pPP(pxP(pP(pP(pP(pP(p@P(phP(pP(pP(pP(p(0k$*\Rffff*T66c06f1fe" (@ 6XL   B  (0"8` 0 *"@ h<  b b` &:&H&p&&&:&P&x&&&&&@&h L( 0H `x T&&(  P p        8 2P , . , 4 2P 4 4 4 ,0 ,` , 2 , 6( 6` , 0 *  (  2H                 0HXh   \@ Xx    ( 8H`       ( 8@HP` px  "   B (& 8 H Xh x  B   x  &         ( @ P` hB  02`Xx4  8 P` p]X$>'@$>'B$>'H/xmlFile = ThisWorkbook.Path & "\̨.xml" *!\ͻģ\ B\ @\ H.xml' A@op]]]]0]H]`]xMSXML2.DOMDocument$p.Wafer %.  /sublot$>'H'$>'xsi:noNamespaceSchemaLocation+>#Cells(2, 7) = "V650001ACN_V0_E.xsd"$> _V0_E.xsd''''''''''''''''' xmlns:xsi+>)http://www.w3.org/2001/XMLSchema-instance +> дڵ[rootNode.setAttribute "xsi" + Chr(58) + "noNamespaceSchemaLocation", "" & filename & ".xsd"\rootNode.setAttribute "xmlns" + Chr(58) + "xsi", "http://www.w3.org/2001/XMLSchema-instance" ӽ$> $> B@$>$> yyyy/MM/dd$ B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> B@$>$> yyyy/MM/dd$ B@$>$> B@ $> $> B@ $> $> B@ $> $> B@ $> $> B@ $> $> B@$>$> B@$>$> B@$>  B@'xml/version='1.0' encoding='UTF-8' standalone='yes' %.  % B@'ѭsublot   ӽڵlotLot %.MSet tNode = xDoc.DocumentElement.ChildNodes.item(ii - 1).appendchild(newNode)  !%.$> $> B@$> $> B@'''ӽڵwaferinfo$> WaferInfo'ӽڵwaferinfo WaferInfo %.  %.'  T7Code %.  %. AREA_COUNT    $> B@BOW    $> B@ESFQR    $> B@GBIR    $> B@ PULLER_DATE    $> B@ PULLER_ID    $> B@ Particle_01    $> B@ Particle_02    $> B@ Particle_03    $> B@SFQR    $> B@THA2    $> B@THA4    $> B@ Thickness    $> B@WARP    $> B@Wet_CLEAN_DATE    $> B@Wet_CLEAN_Tool    $> B@code    $> B@FOSB_ID    $> B@Slot_ID   $> B@%$>MAX PULLER_ID    $> B@&'dp%'k`Xk@ $> $> $> %.k'  ' $>b  '  ' Gxjx 'ѭм   $>MAXKTUSet ltNode = xDoc.DocumentElement.ChildNodes.item(rowItemi - 3).appendChild(newNodeL)  %.MAX  $> B@  'MEANKT  %.MEAN  $> B@  'MINKT  %.MIN  $> B@  'NKT  %.N  $> B@  'UNITKT  %.UNIT  $> B@  'n '   '   ' ..] $'  A@..MsgBox xmlFile & ""iPʽxml,] ]8Msxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'ip  utf8BOMʽP] .B@ 0 .(lutf-8 .(2 8 .B@4 , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:] > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@Bi һθcount_qty(ADODB.recordset$p. t (r%αͣ޷ x (v(αԣ޷'XSELECT SUBLOT_ID , max(TO_NUMBER(SLOT_NO)) qty FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN' ;(SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H')' %GROUP BY SUBLOT_ID order by SUBLOT_ID'  ~ B@Debug.Print sql1qty %' B@i  Attribute VB_Name = "̨xml3" Sub P_create\2() B Dim File As Sng4 wpstrCells (2, 3rcustomernw4R5'r= ThisWorkbook.Path & "\.*4ͻģ\"# Q+ hR5}CXml End  Function (Q#xDocOb0ject0 ro`otNod h eadernewL lSet x-=9(("MSXML 2.DOM@umpent": 4=EB.ÝEle ("Wafer >. J'sublo`tY rowItemi4 @l@Ƥ&2-6)"x si:nospaceSchem`aLocaA|' 7 V650001ACN_V0@_E.xsdD MrialNow@ ' .8'mlns:$ 9http://www.w3@.org/2 /6#-instance 'дڵ0Ԇ0.s et#" + Chr(5 + "%, "!ofbmb# 'u a ! '8ӽ +, ) 3, 1), Format(4c"y/MM/ddA]2AR3A4A566@j7&a&%`/8*89910 AA911 1J? ?1Uv1?s >1 ;p gN =hN3aalJaProcessiHngI;ruu( "t"`>versv='1.0' encod='UTF-8' !Ldalone='pyes'5edertBefore ,hChilbdss(0q$ty 25S ' ѭfor id1 Toed11FQTpj%{Oqnt("Lo&t3yq.W .i0m( -H.appendc1($Dqo|oc{dw  `7#G@wP@1VqT?7 q cwinfoiIf\1r"IeP"en'O" _}r ×l& '!' qolumrn 18sT ~w)- T<7C04 = Ӵ !delcAREA_COU,NT0=#hwi, =dc +  _"BOW/.&"/!ESF|QROI)+OAG|BI? Ss  ?1PULLER_DATEIDb? YParticle_01!21r3\L(QT|HA /,47 o,e<5pckness", Cells(h + wi, endcolumnx 6) lltNode.setAttribute "WARP5et_CLEAN_DATEL4(LToolLZ3Lcw!2!F@OSB_ID"1"Slot" If3, 37) <> "MAX" Then AzyPULLER2ITitemBCÒ= 38 EXlseK 7E nd IfNextG'݇   WhileH1, G"J"K # U Set newL = xDoc.createElement(K v7CC1+&pHW+ Do p)"p {a p`P P!5# Exit DBoLoopcoCC'ѭм@"For i@1 To cSelect Cas?d?o Bbhw'== >u==.CNdAs.(rowItemi - 3`).appb(FAe ?RJd7 G) G%D+POl%sINx !lMPg  %o?Fe?0deL &_@Nw+mnoocUNIT?/R?w 6hS?{|WNshCqty+ f ii3ST@Noth8ingrSDim xmlStrp As `&T= PrettyPrintXml(^WrUtf8WithoutBoF,TrooO a c'MsgBoxa & "ʀ1( Functio 'ʽ , 5 mldoc)qderObjt wGa 4= CtBe("Ms2.SAXXMLReap.6.0"߄4MrC.ind01Truomit DeclaraAZ .contHandl9= 4Par(!TOutpu u"BOMp$mB(QName, 'dst mNew ADpODB.3# .O Type dadTeeC*ht" -8Or 1 "qvbCrL~ 'Ƴǰֽ0xEF,0xBBAFctPosi#3ϳF Cea0 c&.BinarO'ModC?a2c$ Co py , am stream.Flush CloseCDPnewSSaveToFile Name,( ad,CteOverWrit?xr(fEnd Function 'һθcount_qty # get5()u Set qy = bject("ADODB.recordset"qy.Curs@orTypeadOpenStatic 'αͣ޷;"Loc on$UseC lient$$'$sql1"SELECT SUBLOT_ID , max(TO_NUM BER(S NO)) FROM f3prd.DWAFER dh WHERE1"IN"B& "(COCMEASSHIPL@ISTSTDFILE_NAME`='" &"')GROUP BY6@eer byVAd ), csDBCo?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghilmnopqrstuvwxyz{|}~44xME@`P`Dh x%`x  0  xpP p`8 ` H`` @`8@&x X| p%XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*h! c  ch mx 8  @hx (` H @0 ~  ~ @  @      P Xh (P  8 @   `  p @ @  @ @h  P ( 8 @ `  @ P  ` ` ` ( @     0 (8 0 p H X h`p  P  H`  0 ((` @` Px`       `(  p h@h h(P h8 @ `     (`@  P h``x p @ @ hx @` ($`8X`P$p`@ x4 ( 4 9`9 E8`(E PM` xR`R b b g(x`@gP` hsX`xs {@ 8` ( @P hx` `  (`@P hxx ` X`@ (8` @P hx`     `0 @ X`x`h  ` p  X 0 @@ X`h8`  (``(0  4 `04 @ XD`h D  I``I U`U(0]@p Xahh`aP q8 q v` v0 H h`X` `  0@ Xh x p`X P`0@8 Xh   ` `0@ X h     ` x `p` 0#@X X(hP`( (8 @ U U  Z `8 ZXH  ` f `p f n   r ` r  !( !x 8!H!` `!p!X`!!@ !!8`!!! " "`8"H" `"p" "" ""`"" # #`#8#H# `#p#`##Xp @p X %@ @( #`$ $ 0$ H$"`X$`p$"$ $.$`$.$6$ $:%`&:& %@ @ h %P @ 8 %X @  @  % @  ) @& @t x )p` &(H &0 @x  ) @ &' '0' H'X'`p'' ''`'''x '(` (0(H H(X(@`p((( (( `((( () ** +)/* p Ph8$&h P x(xx$x0p*`** *$+`+$0+,@+ X+0 +`h+0x+:`,= p,x @` ,H @0 , @ ,( @ @ ,, ,, ,-(-@ -h @P @-P-8 h--  x---X @ @ @ . . h.x.@ @` @H ..0 .. . /( @ x0  0 0p 0 P(8( XH ,x`8 .*p 0 P(8( XH ,x`8 .*-h0 00( @ 01 1 (1/X@`k$*\Rffff*S36c06f1b5@"   "( 08@HP X x 4d   L  (0 0P <F8**P & $ "   8 (X        ( *( D  @H P8hh XL  <0 p   2~ 2\ ( 0 @ 2~X 2\    BL (  0 .@ X`    hR   & F  N p( H`L 0 T nh  H  (X 0x 0 F   8 ^ ,v0 (v` .v 2v .v 8  pX  x  &   (  0  0  JH  L  DF  F0 H   X $v0$@~T8LPLh @ X hx\X~.  $     6  8( (p~ 0@ 0 ^ Fp  2$$v$$$2$>$\$ 0$ @(&P( vx( F,,,,($$ ( (8,<0 804.P4p8 8L4424 8 "< v < F@@P@X@`@h<p8x44 8 "< v< F@@@@<840 4&4 v@4 F`8p8x88400 ,, ($   ( @   8". (H00h`0F X$hTLLLL   ((0H0xvF`r, p  2$ ((,&8, v`, F0000,($$ ((,&, v(, FH0X0`0h0p,x($   8 L. @ F($8$@$H$P X`h (000F,  p0 P 2`$ x((,&, v, F0000 ,((0$8$ @((P,&x, v, F0000,($   8 L.P @ F$$$$   (80X00F@,X ph  2$ ((,&, v, F00@0H0P0X,`(h$p$ x((,&, v, F0000 ,((0$8 @ H 8P L. @ F $( $0 $8 $@  H P X  (x 0 0 0 Fx!,! p! ! 2!$ !((!,& ", vH", Fh"0x"0"0"0","("$"$ "((",&", v#, F0#0@#0H#0P#0X#,`#(h#$p# x# # L.# @# F$$($$0$$8$$@$ H$P$X$ (x$0$0$0$Fx%,% p% % 2%$ %((%,& &, vH&, Fh&0x&0&0&0&,&(&$&$ &((&,&&, v', F0'0@'0H'0P'0X',`'(h'$p' x' ' L.' @' F($(($0($8($@( H(P(X( (x(0(0(z0(Fx),) p) ) 2)$ )((),& *, vH*, Fh*0x*0*0*0*,*(*$*$ *((*,&*, v+, F0+0@+0H+0P+0X+,`+(h+$p+ x+ + L.+ @+ F,$(,$0,$8,$@, H,P,,X, (,0,0,0-F-,- p- - 2-$ .((.,&8., v`., F.0.0.0.0.,.(.$.$ .((.,&/, v(/, FH/0X/0`/0h/0p/,x/(/$/ / / L./ @/ F00$@0$H0$P0$X0 `0h0(p0 (0000001F1,1 p1 1 21$ 2((2,&@2, vh2, F202020202,2(2$2$ 2((2,&3, v03, FP30`30h30p30x3,3(3$3 3 3 L.3 @3 F84$H4$P4$X4$`4 h4p4x4 (4040405F5,5 p5 5 25$ 6((6, p@6, v`6, F606060606,6(6$6$ 6((6,&7, v(7, FH70X70`70h70p7,x7(7$7 7 7 L.7 @7 F08$@8$H8$P8$X8 `8h8,|p8 (808080 9F929:,: .(:$0@:(2jP:$ :(2j:$:$ : : : :: ;$ (0;$0P;$0;$$L$ ;$j H$ZLX<$t <$v 0=$@ =$F=$p>$  >$20>$ H>((X>,&>, v>, F>0>0>0>0>,>(?$?$ ?(( ?,&H?, vp?, F?0?0?0?0?,?(?$? ? ? *?$ (@$08@$0h@$@$L$ A$j @B$ZLB$t C$v C$@ D$F@D$pXD$ xD$2D$ D((D,&D, vE, F E00E08E0@E0HE,PE(XE$`E$ hE((xE,&E, vE, FE0E0F0F0F,F( F$(F 0F 8F @F$ (`F$0F$0F$0F$LG$| H$j H$XLH$b PI$V I$FJ$p(J$ HJ$2XJ( pJ,(J0&J0 vJ0 FJ4K4K4K4K0 K,(K(0K( 8K,(HK0&pK0 vK0 FK4K4K4K4K0K,K(K$L L L L.L @hL FL$L$L$L$L LL0TL,M J0M (PM 0pM 0M 4LM v N fLN \N v O FP2(P J@P (`P 0P 0P 4LP v Q fLQ \Q v  FR R (R 08t 0 R v  fL L v  FS S ,(S p8S XS 2hS$ S((S,&S, vS, FT0T0T0 T0(T,0T(8T$@T$ HT((XT,&T, vT, FT0T0T0T0T,T(U$U U U L. U @pU FU$U$U$U$U UU2U,V J V (@V 0`V 0V >LV v ( fL \W v W F(X2@X JXX (xX 0X 0X >LX v  fLY \ v x F8Y Y (Z 0 Z 0t PZ v  fL L v  FpZZ,PY pZ 2`Y$ Z(([,&([, vP[, FZ0p[0x[0[0[,[([$[$ [((r,&u, v[, F[0[0[0[0\,\(\$\  \ (\ L.0\ @ FZ$Z$Z$Z$\ \\2\,\ J\ (\ 0] 08] >Lй x  fL \ v ( Fh]2] J] (] 0w 0w >Lp x 8 fL \ v  Fxr ] (] 0 0ص  x  fL L v  Ft^,^ p^ 2$ ((,&0, vX, Fx08r0r0u0w,($$ ((,&д, v, Fذ0000,($   ( L.( @x F0$@$H$P$X `h2p (00LhF  (00HxL8^F^ ,^ &^ R$_ h_ 2x_$ _((_,&_, v_, F`0xY0 `0(`00`,8`(@`$H`$ P`((``,&`, v`, F`0`0`0`0`,a(a$a a a L.(a @xa Fa$a$a$a$a aaa Jb 8b 80c NLhc (c0c0dF8dY,Pd &`d Y vd NLd (d 0e 0@e Fpe ,e$&e$8e  e$ ve$NLe$ (Hf$0hf$0f$Ff$,f(&f(8g$ (g( v0g(NLPg( (g(0g(0g(F h(,8h,&Hh,8hh( h, vh,NLh, (h,0i,0Hi,Fxi,&i,8i(i$i ii "i NLi (Hj 0hj 0j Fj Z ,j$&j  k$ vk$NL8k$ (k$0k$0k$Fl$, l$&0l$8Pl$ hl( vpl(NLl( (l(0m(00m(F`m(,xm,&m,8m( m, vm,NLm, (8n,0Xn,0n,Fn,,n0&n08o, o0 v o0NL@o0 (o00o00o0Fp0&(p08Hp,`p(hp$pp xp p$p$ ( q$0@q$0pq$Fq  q$z^X$ (q$0q$0r$Fr r p^r (Xs 0xs 0s Fs H s س (t 0t 0Pu F t ht z^( (pt 0u 0u F8uup^v (u0v0vFv "v 4w$p(w$2w( x,( x0&Hx0 vpx0 Fx4P4u4Hw4x0x,x(x( x,(x0&x0 v y0 F@y4Py4Xy4`y4hy0py,xy(y$y :Pw$py$2y( pw,(y0&y0 vz0 F8z4Hz4Pz4Xz4`z0hz,pz(xz( z,(z0&z0 vz0 F{4{4{4 {4({00{,8{(@{$H{ P{ X{ 8`{$p{$2{( {,({0&{0 v|0 F8|4H|4P|4X|4`|0h|,p|(x|( |,(|0&|0 v|0 F}4}4}4 }4(}00},8}(@}$H}  P}$L.X}$@} F}$}$~$~$~ ~  ~(~0~8~@rHr w Xr 6~ (~ < .0 ` 0h , @Ȁ Z `h Fȁ D DX D R F@ @ fȃ >0 pp @  >( dh >Ѕ p @ < 4 T8 H D؇ h B pЈ @@ B hȉ B0 px @ @( 4h , &Ћ ( " ,H x (  JJJJ\ V P p> &ȍ 4. 6  (>@>P>`>pJ   (0Ў2r48 F8؏,v.v ^P^h^^  Ȑ (ؐ02( ( v` ( |@ PF`,x8 *v Е            ^( @ P X h2x     8Ж L PX ( <H d D <8 xH  0 " ,@ 6p :     @h  x `F08 T Ƞ(  H Xh p ء h`F8 T ( x  h ȣ 0 `F8 @T x( Х  P P pT R  p Ff @ ( H (p00 F  b( @$Prh  &Jث 8,v*v8*vh(v&v^.v2v8(vp4v,vЭ$v$v( P` h   R J    ( 8 H 0X h x  6  LЯ `A@Ϸ1oXX]]]]]8嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|kA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]PƷgSELECT CUSTOMER_NAME ,PRODUCT_ID,sum(WAFER_COUNT) WAFER_COUNT FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]h]ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'd0WScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'FQnetwork = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\" F @.xlsx$x 汾· *!\ͻģ\ B\ @\'жϱǷӦļ $x Ʒļ F @.xlsx  H.xlsxA@H F @.xlsx  T7_code.xlsxA@Hd A@ Ʒļ F @.xlsx  H.xlsxA@H F @.xlsx  T7_code.xlsxA@Hk0d(7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.kжһ±ǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %. B@p$tB@H15:15$v %'  SELECT SHIP_SUB_LOT_ID,WAFER_COUNT ,SUBLOT_ID,c2.WAF_ID ,to_char(PKG_CMP_DTTM,'yyyy/MM/dd') manufacture_date,to_char(ADD_MONTHS(PKG_CMP_DTTM-1, 12),'yyyy/MM/dd') expiry_date FROM COCMEASSHIPLISTSTD c ' >INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID ' EINNER JOIN COCMEASDATAINFOS c2 on c2.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' WHERE FILE_NAME =' H' AND PRODUCT_ID =' @!' ORDER BY SHIP_SEQ,c2.SLOT_NO '[ ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@ \!'N  \!   +> SUBLOT_ID \%  +>WAF_ID \%  +> WAFER_COUNT \%  +>manufacture_date \%  +> expiry_date \%  +>SHIP_SUB_LOT_ID \%   +>OK   +> \B@p'ȡдÿһƽֵ ADODB.recordset$p. t (r-αͣ޷ x (v0αԣ޷Bselect c2.SUBLOT_ID,ms.SHIP_SUB_LOT_ID from COCMEASSHIPLISTSTD c2 'b b >INNER JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c2.SUBLOT_ID 'b b  WHERE c2.FILE_NAME =' H' ORDER BY SHIP_SEQ 'b b ~ B@ !'h  $tr(i]]8]x'   ] ag =y@k8 $' ȡ㷽ʽmeasit $' ȡѯsqlֵ $$' t (r?αͣ޷  ~ B@ect("A !'f et")  f  ]  $>'on]]  $' $ $' ;$' 8 '  NG   +>   $>B@H !trRe 9999qxk  B@rtayp =  ! WAF_ID % Wimeasdata % measdata %'  $X'8ֵ  $$'m.Fikp 0.00000$X  +> N   N  nu  $>B@H ! 9999qXkk L   L    $>B@H !H 9999qkxkpdNG   +>   $>B@H !tion 9999qkx  ' k B@Pkkkd'h k f ' sublot.MoveNext k 9 !'f   msql2, $>'0 $>' ounts  $>'L ='  $>' Fo $>'N c0  RESISHEAD;RESISTAILADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷ j ! j  $>B@@ j B@B Ressq  f  N    $>$8 N NG   +>   $>B@H ! 9999q`kk L    $>$8 L NG   +>   $>B@H ! 9999qkxkpd 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG  $> f   $>+v  ! 9999qk CHEAD*5;CTAIL*5e + wADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷ l ~ j B@ En j ! j  $>B@@Cu j B@B adOpe  f  N   $>$8 N NG   +>  $>B@H ! > 1 9999qXkPkH L temc  $>$8 L NG   +>e  $>B@H ! sha 9999q8k0k`XdP 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG  $> f   $>+v  $> f  $>$vB@H ! 9999qPkH  CHEAD;CTAILeADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷\SELECT ((MEAS_ITEM_239)+(MEAS_ITEM_240))/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j ! j  $>B@@ j B@BorType  f  N ޷  $>$8 N NG   +>ά  $>B@H !ordC 9999qkPkH L coun  $>$8 L NG   +>re  $>B@H ! 9999q8k0k`XdP 2MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"NG  $> f   $>+v  $> f  $>$vB@H ! 9999qPkH RRGTAIL;RRGHEADe ADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷XSELECT (MEAS_ITEM_231+MEAS_ITEM_232)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j ! j  $>B@@ j B@BorType  f  N ޷  $>$8 N NG   +>=  $>B@H !ordC 9999qkPkH L coun  $>$8 L NG   +>re  $>B@H ! 9999q8k0k`XdPNG  $> f   $>+v  $> f  $>$vB@H ! 9999qPkH ORGHEAD;ORGTAILe ADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷XSELECT (MEAS_ITEM_235+MEAS_ITEM_236)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j ! j  $>B@@ j B@BorType  f  N ޷  $>$8 N NG   +>=  $>B@H !ordC 9999qkPkH L coun  $>$8 L NG   +>re  $>B@H ! 9999q8k0k`XdPNG  $> f   $>+v  $> f  $>$vB@H ! 9999qPkH MTQCBMD*1000000000e ADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷QSELECT MEAS_ITEM_220*1000000000 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j ! j  $>B@@ j B@BorType  f  N ޷  $>$8 N NG   +>=  $>B@H !ordC 9999qkPkH L coun  $>$8 L NG   +>re  $>B@H ! 9999q8k0k`XdPNG  $> f   $>+v  $> f  $>$vB@H ! 9999qPkH OXYCONCENTAIL/2;OXYCONCENHEAD/2eth SADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷\SELECT (MEAS_ITEM_233/2+MEAS_ITEM_234/2)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@H j ! j  $>B@@ct j B@Bcordse  f  N    $>$8 N NG   +>es  $>B@H ! 9999q8k0k` L D ='  $>$8 L NG   +>   $>B@H ! 9999qPkHk@8d`NG  $> f   $>+vH $> f  $>$vB@H ! 9999q(kP OXYCONCENTAIL;OXYCONCENHEADeADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷XSELECT (MEAS_ITEM_233+MEAS_ITEM_234)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j ! j  $>B@@ j B@BorType  f  N ޷  $>$8 N NG   +>=  $>B@H !ordC 9999qkPkH L coun  $>$8 L NG   +>re  $>B@H ! 9999q8k0k`XdPNG  $> f   $>+v  $> f  $>$vB@H ! 9999qPkH ORGTAIL;ORGHEADe ADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷XSELECT (MEAS_ITEM_235+MEAS_ITEM_236)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l ~ j B@ j ! j  $>B@@ j B@BorType  f  N ޷  $>$8 N NG  +>  $>B@H ! res 9999qXkPkH L 21 +  $>$8 L NG   +>   $>B@H ! 9999q8k0k`XdPNG  $> f   $>+v  $> f  $>$vB@H ! 9999qPkH MNA @3839 eth SADODB.recordset$p.j t j (r:αͣ޷ x j (v=αԣ޷}SELECT DISTINCT SUBLOT_ID FROM F3PRD.DWAF_OPE_HIS d2 WHERE WAF_ID IN (SELECT WAF_ID FROM F3PRD.DWAFER d WHERE SUBLOT_ID IN (' (') AND EXIST_FLG='Y') AND OPE_ID ='CPI' 'l Set re l ~ j B@ADODB. j !` ] j !  r  j !BC r j ! ' SUBLOT_ID j %', r +` To resd' SUBLOT_ID j %' r +` Dim suk j B@8X j B@B ` $ 'nt > 0 MNAPRESP1;MNACPTRE1ADODB.recordset$p.j t j (rBαͣ޷ x j (vEαԣ޷ l INNER JOIN ( SELECT d.SUBLOT_ID ,CS.COLUMN_NUM,CS.MEAS_ITEMS ,MAX(dch.MEAS_DATA) maxs,min(dch.MEAS_DATA) mins,CUR_SUBLOT_WAF_CNT FROM F3PRD.DMS_C_HIS dch 'l l and SUBLOT_ID IN ( -) AND MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') 'l l fINNER JOIN F3PRD.DOPE_HIS d ON d.SUBLOT_ID =dch.SUBLOT_ID AND d.HIS_CAT IN ('OS') AND OPE_ID ='CPRI' 'l 0') l hGROUP BY d.SUBLOT_ID ,CS.COLUMN_NUM ,CS.MEAS_ITEMS,CUR_SUBLOT_WAF_CNT ORDER BY CS.COLUMN_NUM DESC) dch 'l IN l 2ON dch.SUBLOT_ID =dh.SUBLOT_ID ) ORDER BY SLOT_NO 'l l ~ j B@ Ressq j  $>B@@S j B@BLOT_ID  f  N S')   $>$8 N NG   +>sq  $>B@H !BY S 9999qkk L sDBC  $>$8 L NG   +> i  $>B@H ! 9999qkkk MNAPRESP1*1000;MNACPTRE1*1000XADODB.recordset$p.j t j (rBαͣ޷ x j (vEαԣ޷SELECT (maxs-slot*(maxs-mins)/CUR_SUBLOT_WAF_CNT)*1000 sub_Res FROM (SELECT DISTINCT d.SUBLOT_ID,d.SLOT_NO, dh.WAF_ID,dch.COLUMN_NUM ,dch.MEAS_ITEMS,MOD(SUBSTR(d.WAF_ID,6,3),25) slot,dch.maxs,mins,CUR_SUBLOT_WAF_CNT FROM F3PRD.DWAF_OPE_HIS dh 'l ( l INNER JOIN ( SELECT d.SUBLOT_ID ,CS.COLUMN_NUM,CS.MEAS_ITEMS ,MAX(dch.MEAS_DATA) maxs,min(dch.MEAS_DATA) mins,CUR_SUBLOT_WAF_CNT FROM F3PRD.DMS_C_HIS dch 'l l [INNER JOIN COCMEASDITEMSSTD CS ON dch.MEAS_ITEM = cs.MEAS_ITEMS AND ITEM_TYPE IN('NC-120') 'l GLE_NO l and SUBLOT_ID IN ( -) AND MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') 'l WAF_SE l fINNER JOIN F3PRD.DOPE_HIS d ON d.SUBLOT_ID =dch.SUBLOT_ID AND d.HIS_CAT IN ('OS') AND OPE_ID ='CPRI' 'l l hGROUP BY d.SUBLOT_ID ,CS.COLUMN_NUM ,CS.MEAS_ITEMS,CUR_SUBLOT_WAF_CNT ORDER BY CS.COLUMN_NUM DESC) dch 'l S_ l 2ON dch.SUBLOT_ID =dh.SUBLOT_ID ) ORDER BY SLOT_NO 'l l ~ j B@ j  $>B@@NN j B@BCMEASD  f  N AS_I  $>$8 N NG   +>   $>B@H !ublo 9999qkk L    $>$8 L NG   +>UM  $>B@H ! CS. 9999qkkk MNAPRESU;MNACREUN=dADODB.recordset$p.j t j (rBαͣ޷ x j (vEαԣ޷'SELECT avgs FROM F3PRD.DWAF_OPE_HIS dh 'l l mINNER JOIN (SELECT SUBLOT_ID, WAF_ID,d.SLOT_NO,WAF_SEQ_NO,SINGLE_NO FROM F3PRD.DWAFER d WHERE SUBLOT_ID IN (' o') AND EXIST_FLG='Y' ) D ON dh.WAF_SEQ_NO =d.WAF_SEQ_NO AND dh.SINGLE_NO =d.SINGLE_NO AND dh.WAF_ID =d.WAF_ID 'l l mINNER JOIN ( SELECT SUBLOT_ID ,CS.COLUMN_NUM,CS.MEAS_ITEMS ,avg(dch.MEAS_DATA) avgs FROM F3PRD.DMS_C_HIS dch 'l l [INNER JOIN COCMEASDITEMSSTD CS ON dch.MEAS_ITEM = cs.MEAS_ITEMS AND ITEM_TYPE IN('NC-120') 'l If l and SUBLOT_ID IN ( +) AND MEAS_ITEM IN ('MNAPRESU','MNACREUN') 'l l SGROUP BY SUBLOT_ID ,CS.COLUMN_NUM ,CS.MEAS_ITEMS ORDER BY CS.COLUMN_NUM DESC) dch 'l SELECT l GON dch.SUBLOT_ID =dh.SUBLOT_ID GROUP BY avgs,SLOT_NO ORDER BY SLOT_NO 'l dc l ~ j B@ j  $>B@@ql j B@B& "INN  f  N EAS_  $>$8 N NG   +>   $>B@H !LOT_ 9999qkk L RD.D  $>$8 L NG   +>D   $>B@H !OLUM 9999qkkkdNG  $> f   $>+v"R  $> f  $>$vB@H !ID G 9999qk MPMC MMCLTAVG e * " Th * $' ADODB.recordset$p.j t j (r>αͣ޷ x j (vAαԣ޷SELECT MEAS_DATA*$  FROM ( 'l l hSELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_mclt MMS 'l ec l IINNER JOIN COCMEASDATAINFOS c ON C.WAF_ID =MMS.WAF_ID AND C.SUB_LOT_ID =' ' 'l l Wleft JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM ='$ 5' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c 'l l gINNER JOIN COCMEASDATAINFOS s ON s.SUB_LOT_ID =c.SUB_LOT_ID AND s.WAF_ID =c.WAF_ID ORDER BY s.SLOT_NO 'l l ~ j B@ / etion / $' ԣADODB.recordset$p.j t j (r>αͣ޷ x j (vAαԣ޷SELECT MEAS_DATA/$  FROM ( 'l l hSELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_mclt MMS 'l AF l IINNER JOIN COCMEASDATAINFOS c ON C.WAF_ID =MMS.WAF_ID AND C.SUB_LOT_ID =' ' 'l = l Wleft JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM ='$ 5' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c 'l l ~ j B@ Sed ADODB.recordset$p.j SELECT MEAS_DATA FROM ( 'l l ~ j B@ k j ! j  $>B@@CM j B@BOS s O  f  N AF_I  $>$8 N NG   +>If  $>B@H ! re 9999qkk L enf   $>$8 L NG   +>mc  $>B@H ! 9999qkkdNG  $> f   $>+v  $> f  $>$vB@H ! 9999qk MSPV eWi * r * $' ADODB.recordset$p.j t j (r>αͣ޷ x j (vAαԣ޷SELECT MEAS_DATA*$  MEAS_DATA FROM ( 'l l Wleft JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM ='$ 5' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c 'l F_ l gINNER JOIN COCMEASDATAINFOS s ON s.SUB_LOT_ID =c.SUB_LOT_ID AND s.WAF_ID =c.WAF_ID ORDER BY s.SLOT_NO 'l JO l ~ j B@ dch O / e.MON / $' TEM ='ADODB.recordset$p.j t j (r>αͣ޷ x j (vAαԣ޷SELECT MEAS_DATA/$  MEAS_DATA FROM ( 'l (i l ~ j B@ATA FR j !  f  9' d l IINNER JOIN COCMEASDATAINFOS c ON C.WAF_ID =MMS.WAF_ID AND C.SUB_LOT_ID =' ' 'l >d@ADODB.recordset$p.j t j (r>αͣ޷SELECT MEAS_DATA FROM ( 'l l ~ j B@ k@ j  $>B@@ ' N  ! ! 999'   $>$8 N NG   +>   $>B@H 9999q0k(k L  .C  $>B@H ! 9999q`kXkdxNG  $> f   $>+v 9qk MCUNI e * * $' iorADODB.recordset$p.j t j (r>αͣ޷ x j (vAαԣ޷ l ~ j B@res = / ereco / $' ADODB.recordset$p.j dADODB.recordset$p.j k j ! j  $>B@@If p [AND (PROD_ID LIKE '%03839%' OR PROD_ID LIKE '%01289G%') AND OPE_ID='TTMC') AND MEAS_ITEM =' ') WHERE row_num=1 'p Ressql p ~ n B@RE TO_ n ! MEAS_DATA n %'r & re MEAS_DATA n % $> f  $>+vFields n B@B) & "'  f  N    $>$8 N NG   +>   $>B@H ! 999q(k`kX L (  $>$8 L NG   +>Fo  $>B@H ! 9999qHk@kphd`NG  $> f   $>+v  $> f  $>$vB@H ! 9999q`kX MTQC MMCL  METK  MER2  MEPC  MMK3  MFMM  QMK3  MNA @3839e ; $' .Patte2jingshu2 = Split(jingshu(1), "/", , vbTextCompare)2jingshu1 = Split(jingshu(0), "/", , vbTextCompare)2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ '' ADODB.recordset$p. t (r?αͣ޷ x (vBαԣ޷  ~ B@re) ! COLUMN_NUM %' "SE$ / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''meADODB.recordset$p. t (rCαͣ޷ x (vFαԣ޷  ~ B@( ! COLUMN_NUM %' /$ ' d`$ - $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ '' ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ls, cs ! COLUMN_NUM %' -$ ' jd $ * $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ '' ADODB.recordset$p. t (rKαͣ޷ x (vNαԣ޷  ~ B@ets.Re ! COLUMN_NUM %' *$ ' d $ + $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ '' ADODB.recordset$p. t (rOαͣ޷ x (vRαԣ޷  ~ B@easset COLUMN_NUM %' 0+$ ' k@kpkhk` 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ '' ADODB.recordset$p. t (rDαͣ޷ x (vGαԣ޷ ~ B@ ! COLUMN_NUM %' UM")d($ / $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''jeADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ ! COLUMN_NUM %' /$ ' Eld`$ - $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ '' ADODB.recordset$p. t (rKαͣ޷ x (vNαԣ޷  ~ B@assqls ! COLUMN_NUM %' -$ ' jd0$ * $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''ADODB.recordset$p. t (rOαͣ޷ x (vRαԣ޷  ~ B@ ! COLUMN_NUM %' 0*$ ' d8$ + $' 2SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='$ ''")ADODB.recordset$p. t (rSαͣ޷ x (vVαԣ޷  ~ B@ COLUMN_NUM %' "*"+$ ' k@kpkhk`  seSELECT ROUND(MEAS_ITEM_ ,5)  4 data2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO'ADODB.recordset$p. t (rGαͣ޷ x (vJαԣ޷  ~ B@ d ADODB.recordset$p. t (rGαͣ޷  $>$8 L  9 f '  l ~ j B@ l ~ j B@ itemc9 x (vJαԣ޷  ~ B@csDBCokSELECT COUNT(MEAS_ITEM_ 6) count2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' 't ADODB.recordset$p.v t v (rDαͣ޷ x v (vGαԣ޷ t ~ v B@   ADODB.recordset$p.  ~ B@t") t j (r>αͣ޷d ADODB.recordset$p. x j (vAαԣ޷ l ~ j B@ionRO t (rCαͣ޷ t (rCαͣ޷  ~ B@Else x (vFαԣ޷kADODB.recordset$p.z 9NG   +> 9 x (vFαԣ޷SELECT COUNT(MEAS_ITEM_ 6) count1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' 'x t z (r@αͣ޷ x z (vCαԣ޷ x ~ z B@ count1 z % f et1  $>B@@t"9count2 v % f e N xt t j (r>αͣ޷9 B@ x j (vAαԣ޷  f  N unts  $>$8 N NG   +>   $>B@H !cord9qkk L    $>$8 L NG   +>   $>B@H !elec 9999qkk  $>B@@   f    $>$8 N NG   +>   $>B@H !@ 9999qkk L @  $>$8 L NG   +>   $>B@H !21 + 9999qkkk(d count1 z %0  $>B@@   f  N    $>$8 N NG   +>  $>B@H ! En 9999qkk( L    $>$8 L NG   +>   $>B@H !coun 9999qkkd(NG  $> f   $>+vd If $> f  $>$vB@H !y, i 9999qkkkk8   af ;$'(ADODB.recordset$p./ For subcount = 1 To sublotcount" numsql2 = "select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUBSUM where FILE_NAME ='" & FileName & "' AND SUBLOT_ID ='" & subitem(subcount) & "' AND LOT_FLAG='F'"5 numm.Open numsql2, csDBConnection' Debug.Print numsql2* While numm.EOF <> True& For i = 1 To c: If Cells(16, i + 5) <> "" ThenT If Cells(16, i + 5) = numm.Fields("MEAS_ITEMS") ThenY Cells(subcount + 20, i + 5) = numm.Fields("MEAS_AVG")? lowValue = Cells(18, i + 5)> lowChar = Cells(17, i + 5)> upValue = Cells(20, i + 5)= upChar = Cells(19, i + 5)K If lowValue <> 0 And lowChar <> "" Then? Select Case lowChar9 Case ">="_ If numm.Fields("MEAS_AVG") >= lowValue Then8 Elsej Cells(subcount + 20, i + 5).Interior.Color = 65535: End If8 Case ">"] If numm.Fields("MEAS_AVG") > lowValue Then7 Elsej Cells(subcount + 20, i + 5).Interior.Color = 65535: End If6 End Select. End IfM If upValue <> 0 And upChar <> "" ThenB Select Case upChar= Case "<="a If numm.Fields("MEAS_AVG") <= upValue Then; Elsej Cells(subcount + 20, i + 5).Interior.Color = 65535: End If< Case "<"a If numm.Fields("MEAS_AVG") < upValue Then< Elsej Cells(subcount + 20, i + 5).Interior.Color = 65535: End If: End Select. End If& End If Else" End If Next% numm.MoveNext Wend" numm.Close Next$B@v$B@v$B@v$B@vJ-----------------------------------------------1--------------------------Thickness/G16$v'v''ļThickness  T7_code.xlsx %. ( %tB@v ( ȡù̶A2$v'B2$v'E2$v'I2$v'$B@vLot No.Slot NumberADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷'JSELECT SUBLOT_ID ,WAFER_COUNT FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ '[   ~ B@  ! SUBLOT_ID %  +> WAFER_COUNT %  +>   +>   +>   +>   +> B@Xi ''FOSB_IDADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷' SELECT DISTINCT RFID_ID, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,RFID_ID,`CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG= ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' order BY SHIP_SUB_LOT_ID' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( @)pkg ON c.SHIP_SUB_LOT_ID =pkg.SHIP_SUB_LOT_ID ORDER BY SHIP_SEQ'[   ~ B@ !   !RFID_ID %  +> B@8dk0d  B@pȡ' $>  'cʼ  '    '] ƺT7 Code2 Set Sett = CreateObject("ADODB.recordset")F Sett.CursorType = adOpenStatic 'αͣ޷J Sett.CursorLocation = adUseClient 'αԣ޷'z sql1 = "SELECT SUBLOT_ID ,SLOT_NO,SUBSTR(READ_WAF_ID,1,10) READ_WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN" sql1 = sql1 & "("6 sql1 = sql1 & " SELECT SHIP_SUB_LOT_ID from( "] sql1 = sql1 & " SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT "> sql1 = sql1 & "WHERE FILE_NAME='" & filename & "') "5 sql1 = sql1 & ") order by SUBLOT_ID,SLOT_NO " ''''ship_seqO"5 sqlship = " SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME ='" & filename & "' ORDER BY SHIP_SEQ)c "' & " LEFT JOIN (" & sql1 & ""' & ")pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO") Sett.Open sqlship, csDBConnection Debug.Print sqlship% For i = 1 To Sett.RecordCount0 Cells(i + 1, 6) = Sett.Fields("SLOT_NO")4 Cells(i + 1, 7) = Sett.Fields("READ_WAF_ID") Sett.MoveNext Next'''''ThicknessԭʼSELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,WAF_ID,max(ITEM) ITEM,SHIP_CAR_ID,ROD_USER_LOT_ID,SUBSTR(ROD_USER_LOT_ID,1,3) opeid,s1.EPI_EQPID,os,oc,PARENTLOTLOCATION,s.RFID_ID,INVENTORYCODE,PARENTLOTID FROM ( ' YSELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,WAF_ID,ITEM,SHIP_CAR_ID,ROD_USER_LOT_ID,RFID_ID FROM ( ' SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,cos.WAF_ID ,(MEAS_ITEM_003/1000) ITEM,SHIP_CAR_ID,COS.ROD_USER_LOT_ID,ms.RFID_ID FROM MES_SHIPTAG ms '  INNER JOIN ( ' CSELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' ' )) cd ON cd.SUBLOT_ID=ms.CUSTOMER_SUBLOT ' FINNER JOIN COCMEASDATAINFOS cos ON cos.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' ORDER BY SHIP_SEQ,SLOT_NO ' ) '  UNION ALL ' YSELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,WAF_ID,ITEM,SHIP_CAR_ID,ROD_USER_LOT_ID,RFID_ID FROM ( ' SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,cos.WAF_ID ,MEAS_ITEM_391*1 ITEM,SHIP_CAR_ID,COS.ROD_USER_LOT_ID,ms.RFID_ID FROM MES_SHIPTAG ms '  INNER JOIN ( ' CSELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' ' )) cd ON cd.SUBLOT_ID=ms.CUSTOMER_SUBLOT ' FINNER JOIN COCMEASDATAINFOS cos ON cos.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' ORDER BY SHIP_SEQ,SLOT_NO ' ) '  UNION ALL ' YSELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,WAF_ID,ITEM,SHIP_CAR_ID,ROD_USER_LOT_ID,RFID_ID FROM ( ' SELECT SUBLOT_ID,SHIP_SEQ,SLOT_NO,cos.WAF_ID ,MEAS_ITEM_415*1 ITEM,SHIP_CAR_ID,COS.ROD_USER_LOT_ID,ms.RFID_ID FROM MES_SHIPTAG ms '  INNER JOIN ( ' CSELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H' ' )) cd ON cd.SUBLOT_ID=ms.CUSTOMER_SUBLOT ' FINNER JOIN COCMEASDATAINFOS cos ON cos.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' ORDER BY SHIP_SEQ,SLOT_NO ' ) ' ) s ' BLEFT JOIN CUST_COCINFOENTITY@bip cb ON cb.lotid=s.ROD_USER_LOT_ID ' ALEFT join (SELECT d.WAF_ID WAF_ID1 ,PROD_ID,dh.EQP_ID EPI_EQPID ' E,max(CASE WHEN dh.HIS_CAT IN('OS') THEN dh.HIS_REGIST_DTTM END) os ' D,max(CASE WHEN dh.HIS_CAT IN('OC') THEN dh.HIS_REGIST_DTTM END) oc ' FROM F3PRD.DWAFER d LEFT JOIN F3PRD.DOPE_HIS dh ON SUBSTR(d.SUBLOT_ID,0,7)||SUBSTR(d.SUBLOT_ID,-3) = SUBSTR(dh.SUBLOT_ID,0,7)||SUBSTR(dh.SUBLOT_ID,-3) ' qWHERE dh.HIS_CAT IN ('OC','OS') AND D.WAF_ID IN (SELECT c2.WAF_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID IN ( ' SELECT MS2.SHIP_SUB_LOT_ID FROM MES_SHIPTAG ms2 WHERE CUSTOMER_SUBLOT IN (SELECT C.SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H' ) ' X)) AND dh.OPE_ID ='EPI' GROUP BY d.WAF_ID,PROD_ID,dh.EQP_ID ) s1 ON s.WAF_ID=s1.waf_id1 ' GROUP BY SHIP_SEQ,SLOT_NO,WAF_ID,SUBLOT_ID,SHIP_CAR_ID ,ROD_USER_LOT_ID,s1.EPI_EQPID,os,oc,PARENTLOTLOCATION,RFID_ID ,INVENTORYCODE,PARENTLOTID ' ORDER BY SHIP_SEQ,SLOT_NO 'ADODB.recordset$p. t (r0αͣ޷ x (v3αԣ޷[   ~ B@ B@p $>!VB@ !'    $>!VB@ N  'xN ''ɾԭʼ $B@v0N  ! SUBLOT_ID %  +>RFID_ID %  +>SLOT_NO %  +>WAF_ID %  +>ITEM %  +>FH  +> PARENTLOTID %  +>ROD_USER_LOT_ID %  +>opeid %  +>PARENTLOTLOCATION %  +> EPI_EQPID %  +>os %  +>oc %  +> B@KThicknessendK-----------------------------------------------2--------------------------- B@p$B@vkK <B@  B@ B@ رչ B@B B@BJĻˢ´ (rA@ɺϷʾļA@JoHJ@J  f  N  Re  $>$8 N NG   +>ND  $>B@H !'l qHk@k8 L    $>$8 L  ! 9999q(k k@d8 !( 9999qk MTTMSTRC e WiADODB.recordset$p.j t j (r:αͣ޷ l ~ j B@B@HADODB.recordset$p.n t n (r;αͣ޷ x n (v>αԣ޷SELECT MEAS_DATA FROM (SELECT ROW_NUMBER() OVER (PARTITION BY MEAS_ITEM ORDER BY HIS_REGIST_DTTM DESC ) row_num,dch.* FROM F3PRD.DMS_C_HIS dch WHERE SUBLOT_ID IN (SELECT DISTINCT SUBLOT_ID FROM F3PRD.DOPE_HIS dh 'p mcSELECT MEAS_ITEM_ 4 data2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO'= RessSELECT ROUND(MEAS_ITEM_ ,5)  3 data1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO 'SELECT MEAS_DATA/$  MEAS_DATA FROM ( 'l seSELECT MEAS_DATA FROM ( 'l NG   +> l Wleft JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM ='$ 5' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c 'l S. t j (r>αͣ޷ x j (vAαԣ޷ l jSELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_BULKCN MMS 'l l IINNER JOIN COCMEASDATAINFOS c ON C.WAF_ID =MMS.WAF_ID AND C.SUB_LOT_ID =' ' 'l l Wleft JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM =' 5' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c 'l l gINNER JOIN COCMEASDATAINFOS s ON s.SUB_LOT_ID =c.SUB_LOT_ID AND s.WAF_ID =c.WAF_ID ORDER BY s.SLOT_NO 'l   $>B@HNG  $> f   $>+vid & $> f  $>$vB@H x j (v=αԣ޷SELECT DISTINCT min(TO_CHAR(OPE_CMP_DTTM,'yyyy-mm-dd hh24')) minDTTM,max(TO_CHAR(OPE_CMP_DTTM+2,'yyyy-mm-dd hh24')) maxDTTM FROM F3PRD.DWAF_OPE_HIS d2 WHERE 'l If $> f  $>$vB@HSELECT MEAS_DATA*$  MEAS_DATA FROM ( 'l un l jSELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_BULKCN MMS 'l l Wleft JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM ='$ 5' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c 'l su l jSELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_BULKCN MMS 'l l IINNER JOIN COCMEASDATAINFOS c ON C.WAF_ID =MMS.WAF_ID AND C.SUB_LOT_ID =' ' 'l ji l gSELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_SPV MMS 'l ND l IINNER JOIN COCMEASDATAINFOS c ON C.WAF_ID =MMS.WAF_ID AND C.SUB_LOT_ID =' ' 'l Ob l Wleft JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM =' 5' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c 'l l IINNER JOIN COCMEASDATAINFOS c ON C.WAF_ID =MMS.WAF_ID AND C.SUB_LOT_ID =' ' 'l B_ l gINNER JOIN COCMEASDATAINFOS s ON s.SUB_LOT_ID =c.SUB_LOT_ID AND s.WAF_ID =c.WAF_ID ORDER BY s.SLOT_NO 'l l gINNER JOIN COCMEASDATAINFOS s ON s.SUB_LOT_ID =c.SUB_LOT_ID AND s.WAF_ID =c.WAF_ID ORDER BY s.SLOT_NO 'l UB x j (vAαԣ޷ l gINNER JOIN COCMEASDATAINFOS s ON s.SUB_LOT_ID =c.SUB_LOT_ID AND s.WAF_ID =c.WAF_ID ORDER BY s.SLOT_NO 'l ( l hSELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_mclt MMS 'l ND l IINNER JOIN COCMEASDATAINFOS c ON C.WAF_ID =MMS.WAF_ID AND C.SUB_LOT_ID =' ' 'l c l Wleft JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM =' 5' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c 'l l gSELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_SPV MMS 'l un l IINNER JOIN COCMEASDATAINFOS c ON C.WAF_ID =MMS.WAF_ID AND C.SUB_LOT_ID =' ' 'l 1 l gSELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_SPV MMS 'l ND $> f  $>$vB@H`SELECT ((MEAS_ITEM_239*5)+(MEAS_ITEM_240*5))/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l l [INNER JOIN COCMEASDITEMSSTD CS ON dch.MEAS_ITEM = cs.MEAS_ITEMS AND ITEM_TYPE IN('NC-120') 'l M,CS.M l mINNER JOIN (SELECT SUBLOT_ID, WAF_ID,d.SLOT_NO,WAF_SEQ_NO,SINGLE_NO FROM F3PRD.DWAFER d WHERE SUBLOT_ID IN (' o') AND EXIST_FLG='Y' ) D ON dh.WAF_SEQ_NO =d.WAF_SEQ_NO AND dh.SINGLE_NO =d.SINGLE_NO AND dh.WAF_ID =d.WAF_ID 'l l gINNER JOIN COCMEASDATAINFOS s ON s.SUB_LOT_ID =c.SUB_LOT_ID AND s.WAF_ID =c.WAF_ID ORDER BY s.SLOT_NO 'l SELECT MEAS_ITEM_ 3 data1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID=' ' ORDER BY SLOT_NO ' t (r/αͣ޷  $B@vORange(Cells(21 + wafcount, c + 1), Cells(21 + wafcount + wafcounts - 1, c + 1))ADODB.recordset$p. x (v2αԣ޷9SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' 'order by SLOT_NO '  ~ B@ocatioFSELECT MEAS_ITEM_229-(MEAS_ITEM_229-MEAS_ITEM_230)*SUBSTR(WAF_ID,6,3)/ WAFER_COUNT <%2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l SELECT maxs-slot*(maxs-mins)/CUR_SUBLOT_WAF_CNT sub_Res FROM (SELECT DISTINCT d.SUBLOT_ID,d.SLOT_NO, dh.WAF_ID,dch.COLUMN_NUM ,dch.MEAS_ITEMS,MOD(SUBSTR(d.WAF_ID,6,3),25) slot,dch.maxs,mins,CUR_SUBLOT_WAF_CNT FROM F3PRD.DWAF_OPE_HIS dh 'l l mINNER JOIN (SELECT SUBLOT_ID, WAF_ID,d.SLOT_NO,WAF_SEQ_NO,SINGLE_NO FROM F3PRD.DWAFER d WHERE SUBLOT_ID IN (' o') AND EXIST_FLG='Y' ) D ON dh.WAF_SEQ_NO =d.WAF_SEQ_NO AND dh.SINGLE_NO =d.SINGLE_NO AND dh.WAF_ID =d.WAF_ID 'l l Wleft JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM ='$ 5' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c 'l l gINNER JOIN COCMEASDATAINFOS s ON s.SUB_LOT_ID =c.SUB_LOT_ID AND s.WAF_ID =c.WAF_ID ORDER BY s.SLOT_NO 'l l gINNER JOIN COCMEASDATAINFOS s ON s.SUB_LOT_ID =c.SUB_LOT_ID AND s.WAF_ID =c.WAF_ID ORDER BY s.SLOT_NO 'l l @WAF_ID IN (SELECT WAF_ID FROM F3PRD.DWAFER d WHERE SUBLOT_ID = ' '' AND EXIST_FLG='Y') AND ope_id='THFT' 'l p 3WHERE TO_CHAR(HIS_REGIST_DTTM,'yyyy-mm-dd hh24')>='minDTTM j %3' AND TO_CHAR(HIS_REGIST_DTTM,'yyyy-mm-dd hh24')<='maxDTTM j %' 'p En *  !ouSHIP_SUB_LOT_ID %' out = '  *  hwafcou  $>' su'  $>'8 $>'L otid = $>'N nt, c MFP5 MWEN x (vBαԣ޷SELECT WAF_ID,  C measdata,SP_DATA_STATE FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' 'order by SLOT_NO 'ou' 1 $>'8 $>'L otid = $>'N nt, c MFP5 MWEN x (vBαԣ޷SELECT WAF_ID,  C measdata,SP_DATA_STATE FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' 'order by SLOT_NO 'ou`0 If findtype(item) Then2(0)8 Dim strResult() As StringrRes8 Dim strResult2() As String 8 Dim strResult3() As String 8 strResult = Split(item, ";")@ For jj = 0 To UBound(strResult)mcount0 If flag = 25 Then0 Exit For ( End Ifade 8 measitem1 = strResult(jj)@ strResult2 = splititem1(measitem1)0 'ȡѯsqlֵd If@ Column = spfind1(strResult2(0))` numm.CursorType = adOpenStatic 'αͣ޷ Fo` numm.CursorLocation = adUseClient 'αԣ޷ numsql2 = "SELECT WAF_ID, " + Column + " measdata,SP_DATA_STATE FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='" + sublotid + "'order by SLOT_NO " CDb8 Dim spdata As String 8 Dim num2 As Double H spdata = spdatafind(wafid, sublotid) H strResult3 = Split(spdata, ";")nt) = @ counttayp = UBound(strResult3)P Cells(21 + wafcount + y, c + 1) = "NG" P Cells(21 + wafcount + y, itemcount).SelectP .PatternColorIndex = xlAutomatic`8 .Color = 255.P@ .TintAndShade = 0 H .PatternTintAndShade = 0 ( End If8 If Column1 <> "" Then8 numm.MoveFirst H For sqlnum = 1 To numm.RecordCountP If wafid = numm.Fields("WAF_ID") ThenP num = numm.Fields("measdata")P If UBound(strResult2) > 1 Then@ 'ֵ ` num = getnum(num, num2, strResult2(2)) x Cells(21 + wafcount + y, itemcount) = CDbl(Format(num, "0.00000")) .TH If shangx <> "" Then h Cells(21 + wafcount + y, itemcount).Select8X With Selection.Interior ` .PatternColorIndex = xlAutomatic+ P .Color = 255 + wafP .TintAndShade = 0X .PatternTintAndShade = 0 @ End If 8 End IfH If xiax <> "" Then P If num <= xiax Then h Cells(21 + wafcount + y, itemcount).Select ` .PatternColorIndex = xlAutomatic P .Color = 255 P .TintAndShade = 0X .PatternTintAndShade = 0MoH End WithERE S@ End Ifurso8 ElsehX Cells(21 + wafcount + y, c + 1) = "NG"` Cells(21 + wafcount + y, itemcount).Select`X .PatternColorIndex = xlAutomaticH .Color = 255H .TintAndShade = 0P .PatternTintAndShade = 0@ End WithH@ flag = flag + 1),0 End If8 numm.MoveNext0 Next+ wafc( NextB.reco Next End IfAF_I ElseWHERE sadsadsad = 1 Nextocatio0 wafcount = wafcount + wafcounts*S 'sublot.MoveNext%'  'sublot.MoveNext%2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID =' ' ORDER BY SLOT_NO 'l SELECT maxs-slot*(maxs-mins)/CUR_SUBLOT_WAF_CNT sub_Res FROM (SELECT DISTINCT d.SUBLOT_ID,d.SLOT_NO, dh.WAF_ID,dch.COLUMN_NUM ,dch.MEAS_ITEMS,MOD(SUBSTR(d.WAF_ID,6,3),25) slot,dch.maxs,mins,CUR_SUBLOT_WAF_CNT FROM F3PRD.DWAF_OPE_HIS dh 'l l mINNER JOIN (SELECT SUBLOT_ID, WAF_ID,d.SLOT_NO,WAF_SEQ_NO,SINGLE_NO FROM F3PRD.DWAFER d WHERE SUBLOT_ID IN (' o') AND EXIST_FLG='Y' ) D ON dh.WAF_SEQ_NO =d.WAF_SEQ_NO AND dh.SINGLE_NO =d.SINGLE_NO AND dh.WAF_ID =d.WAF_ID 'l l Wleft JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM ='$ 5' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c 'l l gINNER JOIN COCMEASDATAINFOS s ON s.SUB_LOT_ID =c.SUB_LOT_ID AND s.WAF_ID =c.WAF_ID ORDER BY s.SLOT_NO 'l l gINNER JOIN COCMEASDATAINFOS s ON s.SUB_LOT_ID =c.SUB_LOT_ID AND s.WAF_ID =c.WAF_ID ORDER BY s.SLOT_NO 'l l @WAF_ID IN (SELECT WAF_ID FROM F3PRD.DWAFER d WHERE SUBLOT_ID = ' '' AND EXIST_FLG='Y') AND ope_id='THFT' 'l p 3WHERE TO_CHAR(HIS_REGIST_DTTM,'yyyy-mm-dd hh24')>='minDTTM j %3' AND TO_CHAR(HIS_REGIST_DTTM,'yyyy-mm-dd hh24')<='maxDTTM j %' 'p En( End If8 If xiax <> "" Then ite` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenseP Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.Interior (MEASP .PatternColorIndex = xlAutomaticid@ .TintAndShade = 0H .PatternTintAndShade = 0el8 End With 0 End Ift + ( Next X 'MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!" x Range(Cells(21 + wafcount, c + 1), Cells(4 + wafcount + wafcounts - 1, c + 1)) = "NG" H .PatternColorIndex = xlAutomatic 0 .Color = 2558 .TintAndShade = 0(@ .PatternTintAndShade = 0 End If@ ElseIf item = "CHEAD*5;CTAIL*5" Then y, itH Set res = CreateObject("ADODB.recordset")lls(` res.CursorLocation = adUseClient 'αԣ޷ternCo Ressql = "SELECT ((MEAS_ITEM_239*5)+(MEAS_ITEM_240*5))/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='" & sublotid & "' ORDER BY SLOT_NO "8 For y = 0 To wafcounts - 1` If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenP Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.Interiorcount,P .PatternColorIndex = xlAutomatic @ .Color = 255count H .PatternTintAndShade = 0 8 End With 0 End If ( End If8 If xiax <> "" Then"ORG` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenX Cells(21 + wafcount + y, itemcount).SelectP .PatternColorIndex = xlAutomatic6)@ .Color = 255 "' OR@ .TintAndShade = 0H .PatternTintAndShade = 0+ 8 End With ( End If( Next ElseioX 'MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!"aticx Range(Cells(21 + wafcount, c + 1), Cells(4 + wafcount + wafcounts - 1, c + 1)) = "NG" .TH .PatternColorIndex = xlAutomaticternTi8 .TintAndShade = 0 En@ .PatternTintAndShade = 0 ( End With End If8 ElseIf item = "CHEAD;CTAIL" ThenH Set res = CreateObject("ADODB.recordset")temc` res.CursorLocation = adUseClient 'αԣ޷atic Ressql = "SELECT ((MEAS_ITEM_239)+(MEAS_ITEM_240))/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='" & sublotid & "' ORDER BY SLOT_NO " 8 For y = 0 To wafcounts - 1` If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenP Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.Interior+ wafcP .PatternColorIndex = xlAutomaticll@ .Color = 255temcou@ .TintAndShade = 0( For subcout = 1 To sublotcount *  !ouSHIP_SUB_LOT_ID %' out = plot.RecordCount0 wafcount = wafcount + wafcountsll sublot.MoveNext '  sublot.MoveNext  Columns( c + 2)).Delete blot.MoveNext  $> N  $>$$B@v@8 .TintAndShade = 0 .PatternTintAndShade = 00 End If ( End If8 If xiax <> "" Then ` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenCuX Cells(21 + wafcount + y, itemcount).Select P .PatternColorIndex = xlAutomaticT_@ .Color = 255 @ .TintAndShade = 0H .PatternTintAndShade = 08 End Withunt + ( End If( Next Else X 'MsgBox sublotid & "RESISHEAD;RESISTAILû!!!!!" x Range(Cells(21 + wafcount, c + 1), Cells(4 + wafcount + wafcounts - 1, c + 1)) = "NG" H .PatternColorIndex = xlAutomatic 8 .TintAndShade = 0 @ .PatternTintAndShade = 0en( End WithIf End If@ ElseIf item = "RRGTAIL;RRGHEAD" ThenCells(H Set res = CreateObject("ADODB.recordset") ` res.CursorLocation = adUseClient 'αԣ޷ .C Ressql = "SELECT (MEAS_ITEM_231+MEAS_ITEM_232)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='" & sublotid & "' ORDER BY SLOT_NO "88 For y = 0 To wafcounts - 1` If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenP Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.Interior P .PatternColorIndex = xlAutomaticou@ .Color = 255 @ .TintAndShade = 0H .PatternTintAndShade = 00 End If ( End If8 If xiax <> "" ThenType` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax Then aX Cells(21 + wafcount + y, itemcount).SelectSELEP .PatternColorIndex = xlAutomatic='@ .Color = 255 @ .TintAndShade = 0H .PatternTintAndShade = 0 8 End With itemc( End If( Next xlAut Else x Range(Cells(21 + wafcount, c + 1), Cells(21 + wafcount + wafcounts - 1, c + 1)) = "NG" Range(Cells(21 + wafcount, itemcount), Cells(4 + wafcount + wafcounts - 1, itemcount)).Select(8 .TintAndShade = 0 @ .PatternTintAndShade = 0 ( End Withit End If@ ElseIf item = "ORGHEAD;ORGTAIL" Then= "NG"H Set res = CreateObject("ADODB.recordset")` res.CursorLocation = adUseClient 'αԣ޷ Ressql = "SELECT (MEAS_ITEM_235+MEAS_ITEM_236)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='" & sublotid & "' ORDER BY SLOT_NO " 8 For y = 0 To wafcounts - 1` If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenP Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.Interior RaP .PatternColorIndex = xlAutomaticel@ .Color = 2558@ .TintAndShade = 0H .PatternTintAndShade = 0 0 End If ite( End If8 If xiax <> "" Thenrdse` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenX Cells(21 + wafcount + y, itemcount).Selectata1P .PatternColorIndex = xlAutomatic@ .Color = 255`@ .TintAndShade = 0H .PatternTintAndShade = 0s(8 End With ( End If( Next Elsex Range(Cells(21 + wafcount, c + 1), Cells(21 + wafcount + wafcounts - 1, c + 1)) = "NG" .T Range(Cells(21 + wafcount, itemcount), Cells(4 + wafcount + wafcounts - 1, itemcount)).Select 8 .TintAndShade = 0d If@ .PatternTintAndShade = 0`( End Withel End If@ ElseIf item = "MTQCBMD*1000000000" ThenafH Set res = CreateObject("ADODB.recordset") ` res.CursorLocation = adUseClient 'αԣ޷or = 2 Ressql = "SELECT MEAS_ITEM_220*1000000000 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='" & sublotid & "' ORDER BY SLOT_NO "88 For y = 0 To wafcounts - 1` If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenP Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.Interior P .PatternColorIndex = xlAutomaticou@ .Color = 255 @ .TintAndShade = 0H .PatternTintAndShade = 00 End If ( End If8 If xiax <> "" ThenODB.` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenX Cells(21 + wafcount + y, itemcount).Select236)P .PatternColorIndex = xlAutomatic "@ .Color = 255`@ .TintAndShade = 0H .PatternTintAndShade = 0s(8 End With ( End If( Next ElseCox Range(Cells(21 + wafcount, c + 1), Cells(21 + wafcount + wafcounts - 1, c + 1)) = "NG" Range(Cells(21 + wafcount, itemcount), Cells(4 + wafcount + wafcounts - 1, itemcount)).Select 8 .TintAndShade = 0 @ .PatternTintAndShade = 0<> "" ( End With End IfP ElseIf item = "OXYCONCENTAIL/2;OXYCONCENHEAD/2" Then + wafX res.CursorType = adOpenStatic 'αͣ޷` res.CursorLocation = adUseClient 'αԣ޷@ Ressql = "SELECT (MEAS_ITEM_233/2+MEAS_ITEM_234/2)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='" & sublotid & "' ORDER BY SLOT_NO " 8 If shangx <> "" Then ` If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenX Cells(21 + wafcount + y, itemcount).Select + wP .PatternColorIndex = xlAutomatic w@ .Color = 255)).Sel@ .TintAndShade = 0H .PatternTintAndShade = 08 End With ( End If8 If xiax <> "" Thenn` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenP Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.Interior_ID FRP .PatternColorIndex = xlAutomaticOT@ .TintAndShade = 0H .PatternTintAndShade = 0SU8 End With ar0 End If(( End If Elseex Range(Cells(21 + wafcount, c + 1), Cells(21 + wafcount + wafcounts - 1, c + 1)) = "NG"PRES Range(Cells(21 + wafcount, itemcount), Cells(4 + wafcount + wafcounts - 1, itemcount)).Selecth0 .Color = 255 a8 .TintAndShade = 0 @ .PatternTintAndShade = 0UR_SUB End IfH ElseIf item = "OXYCONCENTAIL;OXYCONCENHEAD" Thend.H Set res = CreateObject("ADODB.recordset")S dh` res.CursorLocation = adUseClient 'αԣ޷MN_NUM Ressql = "SELECT (MEAS_ITEM_233+MEAS_ITEM_234)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='" & sublotid & "' ORDER BY SLOT_NO " 8 For y = 0 To wafcounts - 1` If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenP Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.Interior@P .PatternColorIndex = xlAutomatic @ .Color = 255 @ .TintAndShade = 0H .PatternTintAndShade = 0If0 End If "" ( End If8 If xiax <> "" Thenen` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenX Cells(21 + wafcount + y, itemcount).Select P .PatternColorIndex = xlAutomatic @ .Color = 255 @ .TintAndShade = 0H .PatternTintAndShade = 0 8 End With(( End If( NextNAPRES Elsex Range(Cells(21 + wafcount, c + 1), Cells(21 + wafcount + wafcounts - 1, c + 1)) = "NG"s.Cu Range(Cells(21 + wafcount, itemcount), Cells(4 + wafcount + wafcounts - 1, itemcount)).Selectt*(m8 .TintAndShade = 0TINC@ .PatternTintAndShade = 0MOD(SU( End WithSU End If@ ElseIf item = "ORGTAIL;ORGHEAD" Then& "INNH Set res = CreateObject("ADODB.recordset")S') ` res.CursorLocation = adUseClient 'αԣ޷8 Ressql = "SELECT (MEAS_ITEM_235+MEAS_ITEM_236)/2 data1 FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID ='" & sublotid & "' ORDER BY SLOT_NO "8 For y = 0 To wafcounts - 1` If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenX Cells(21 + wafcount + y, itemcount) = "NG" X Cells(21 + wafcount + y, itemcount).Select P .PatternColorIndex = xlAutomatic @ .Color = 2558H .PatternTintAndShade = 0 8 End Withcount)0 End If ( End If8 If xiax <> "" Thention` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenX Cells(21 + wafcount + y, itemcount).Select P .PatternColorIndex = xlAutomatic @ .Color = 255 @ .TintAndShade = 0H .PatternTintAndShade = 0If8 End With ( End If( Next Elseαx Range(Cells(21 + wafcount, c + 1), Cells(21 + wafcount + wafcounts - 1, c + 1)) = "NG"( Range(Cells(21 + wafcount, itemcount), Cells(4 + wafcount + wafcounts - 1, itemcount)).SelectDWAF8 .TintAndShade = 0'Y' @ .PatternTintAndShade = 0ND dh.( End With End IfX ElseIf InStr(item, "MNA") > 0 And InStr(wpstr, "3839") > 0 ThentsX res.CursorType = adOpenStatic 'αͣ޷` res.CursorLocation = adUseClient 'αԣ޷+ y, c Ressql = "SELECT DISTINCT SUBLOT_ID FROM F3PRD.DWAF_OPE_HIS d2 WHERE WAF_ID IN (SELECT WAF_ID FROM F3PRD.DWAFER d WHERE SUBLOT_ID IN ('" & sublotid & "') AND EXIST_FLG='Y') AND OPE_ID ='CPI' " X arrData(su) = "'" & res.Fields("SUBLOT_ID") & "',"X arrData(su) = "'" & res.Fields("SUBLOT_ID") & "'"( Next ( res.Close@ sublots = Join(arrData, "") IfH If item = "MNAPRESP1;MNACPTRE1" Thenells(2` res.CursorType = adOpenStatic 'αͣ޷h res.CursorLocation = adUseClient 'αԣ޷ColorI  Ressql = "SELECT maxs-slot*(maxs-mins)/CUR_SUBLOT_WAF_CNT sub_Res FROM (SELECT DISTINCT d.SUBLOT_ID,d.SLOT_NO, dh.WAF_ID,dch.COLUMN_NUM ,dch.MEAS_ITEMS,MOD(SUBSTR(d.WAF_ID,6,3),25) slot,dch.maxs,mins,CUR_SUBLOT_WAF_CNT FROM F3PRD.DWAF_OPE_HIS dh " ( Ressql = Ressql & "INNER JOIN (SELECT SUBLOT_ID, WAF_ID,d.SLOT_NO,WAF_SEQ_NO,SINGLE_NO FROM F3PRD.DWAFER d WHERE SUBLOT_ID IN ('" & sublotid & "') AND EXIST_FLG='Y' ) D ON dh.WAF_SEQ_NO =d.WAF_SEQ_NO AND dh.SINGLE_NO =d.SINGLE_NO AND dh.WAF_ID =d.WAF_ID "ells(2` If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenP Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.Interior P .PatternColorIndex = xlAutomaticEn@ .TintAndShade = 0H .PatternTintAndShade = 0m,8 End Withshu = 0 End If 8 If xiax <> "" Thent")` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenP Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.InteriorELECT P .PatternColorIndex = xlAutomaticI_@ .Color = 255sql & H .PatternTintAndShade = 0su8 End Withshu = 0 End If ( Nextct("ADP If item = "MNAPRESP1*1000;MNACPTRE1*1000" Then'P Set res = CreateObject("ADODB.recordset")tion` res.CursorType = adOpenStatic 'αͣ޷( Ressql = "SELECT (maxs-slot*(maxs-mins)/CUR_SUBLOT_WAF_CNT)*1000 sub_Res FROM (SELECT DISTINCT d.SUBLOT_ID,d.SLOT_NO, dh.WAF_ID,dch.COLUMN_NUM ,dch.MEAS_ITEMS,MOD(SUBSTR(d.WAF_ID,6,3),25) slot,dch.maxs,mins,CUR_SUBLOT_WAF_CNT FROM F3PRD.DWAF_OPE_HIS dh "SUBLOT Ressql = Ressql & "INNER JOIN F3PRD.DOPE_HIS d ON d.SUBLOT_ID =dch.SUBLOT_ID AND d.HIS_CAT IN ('OS') AND OPE_ID ='CPRI' " Re0 res.CloseUBLO@ For y = 0 To wafcounts - 1` If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenP Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.Interioral(CelP .PatternColorIndex = xlAutomatic @ .Color = 255 H .PatternTintAndShade = 0 8 End Withatic0 End If .C( End If8 If xiax <> "" Then ` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenelX Cells(21 + wafcount + y, itemcount).Select P .PatternColorIndex = xlAutomatic @ .Color = 255 @ .TintAndShade = 0H .PatternTintAndShade = 0 8 End With ( End If( NextEnd If( End If@ If item = "MNAPRESU;MNACREUN" ThenP Set res = CreateObject("ADODB.recordset")) = ` res.CursorType = adOpenStatic 'αͣ޷X Ressql = "SELECT avgs FROM F3PRD.DWAF_OPE_HIS dh "ade ( Ressql = Ressql & "INNER JOIN (SELECT SUBLOT_ID, WAF_ID,d.SLOT_NO,WAF_SEQ_NO,SINGLE_NO FROM F3PRD.DWAFER d WHERE SUBLOT_ID IN ('" & sublotid & "') AND EXIST_FLG='Y' ) D ON dh.WAF_SEQ_NO =d.WAF_SEQ_NO AND dh.SINGLE_NO =d.SINGLE_NO AND dh.WAF_ID =d.WAF_ID ", "*",X Cells(21 + wafcount, itemcount).CopyFromRecordset res@ For y = 0 To wafcounts - 1nStah If Val(Cells(21 + wafcount + y, itemcount)) >= shangx Thennt 'X Cells(21 + wafcount + y, c + 1) = "NG"ECT H With Selection.InteriorNIX .PatternColorIndex = xlAutomaticN COCMH .TintAndShade = 0"P .PatternTintAndShade = 08 End WithAD0 End If0 End If8 If xiax <> "" Thenh If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenS_DATAX Cells(21 + wafcount + y, itemcount).SelectX .PatternColorIndex = xlAutomaticR_EPI_@ .Color = 255& H .TintAndShade = 0MEASP .PatternTintAndShade = 0`8 End With '0 End If ( NextLO( End IfTA) ElseS x Range(Cells(21 + wafcount, c + 1), Cells(21 + wafcount + wafcounts - 1, c + 1)) = "NG"_SUB Range(Cells(21 + wafcount, itemcount), Cells(4 + wafcount + wafcounts - 1, itemcount)).Select 8 .TintAndShade = 0 @ .PatternTintAndShade = 0@( End With.CX ElseIf InStr(item, "MPMC") > 0 Or InStr(item, "MMCLTAVG") > 0 Then8 If InStr(item, "*") > 0 ThenP jingshu = Split(item, "*", , vbTextCompare) ` res.CursorType = adOpenStatic 'αͣ޷ountX Ressql = "SELECT MEAS_DATA*" & jingshu(1) & " FROM ( " waf Ressql = Ressql & "SELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_mclt MMS " Ressql = Ressql & "left JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM ='" & jingshu(0) & "' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c "` res.CursorType = adOpenStatic 'αͣ޷ ` res.CursorLocation = adUseClient 'αԣ޷llX Ressql = "SELECT MEAS_DATA/" & jingshu(1) & " FROM ( " Ressql = Ressql & "SELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_mclt MMS ".TintA Ressql = Ressql & "INNER JOIN COCMEASDATAINFOS c ON C.WAF_ID =MMS.WAF_ID AND C.SUB_LOT_ID ='" & sublotid & "' " H Set res = CreateObject("ADODB.recordset")` res.CursorType = adOpenStatic 'αͣ޷ ` res.CursorLocation = adUseClient 'αԣ޷SeH Ressql = "SELECT MEAS_DATA FROM ( " re Ressql = Ressql & "SELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_mclt MMS " ( " Ressql = Ressql & "left JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM ='" & item & "' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c "ql = R` If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenP Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.InteriorαP .PatternColorIndex = xlAutomaticse@ .Color = 255 H .PatternTintAndShade = 0EA8 End With8 If xiax <> "" ThenCOCM` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax Then X Cells(21 + wafcount + y, itemcount).Select P .PatternColorIndex = xlAutomaticVG@ .Color = 255@ .TintAndShade = 0H .PatternTintAndShade = 0GR8 End WithX Else +x Range(Cells(21 + wafcount, c + 1), Cells(21 + wafcount + wafcounts - 1, c + 1)) = "NG", it Range(Cells(21 + wafcount, itemcount), Cells(4 + wafcount + wafcounts - 1, itemcount)).Select 8 .TintAndShade = 0lAut@ .PatternTintAndShade = 0tAndSh( End With End If@ ElseIf InStr(item, "MSPV") > 0 Then P jingshu = Split(item, "*", , vbTextCompare) IfH Set res = CreateObject("ADODB.recordset")` res.CursorType = adOpenStatic 'αͣ޷ ` Ressql = "SELECT MEAS_DATA*" & jingshu(1) & " MEAS_DATA FROM ( "Co Ressql = Ressql & "SELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_SPV MMS "AndShaP jingshu = Split(item, "/", , vbTextCompare) H Set res = CreateObject("ADODB.recordset")` res.CursorType = adOpenStatic 'αͣ޷ + w` Ressql = "SELECT MEAS_DATA/" & jingshu(1) & " MEAS_DATA FROM ( " Ressql = Ressql & "SELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_SPV MMS "8 Ressql = Ressql & "INNER JOIN COCMEASDATAINFOS c ON C.WAF_ID =MMS.WAF_ID AND C.SUB_LOT_ID ='" & sublotid & "' " Ressql = Ressql & "left JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM ='" & jingshu(0) & "' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c " Ressql = Ressql & "SELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_SPV MMS "ax(TO_ Ressql = Ressql & "left JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM ='" & item & "' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c " 8 For y = 0 To wafcounts - 1` If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenP Cells(21 + wafcount + y, c + 1) = "NG"X Cells(21 + wafcount + y, itemcount).SelectemcoH With Selection.Interior IfP .PatternColorIndex = xlAutomatic @ .TintAndShade = 0H .PatternTintAndShade = 08 End Withor = 28 If xiax <> "" Then .T` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenX Cells(21 + wafcount + y, itemcount).Select P .PatternColorIndex = xlAutomatic @ .Color = 255count)@ .TintAndShade = 0H .PatternTintAndShade = 0 8 End With ( Next xlAutx Range(Cells(21 + wafcount, c + 1), Cells(21 + wafcount + wafcounts - 1, c + 1)) = "NG" Range(Cells(21 + wafcount, itemcount), Cells(4 + wafcount + wafcounts - 1, itemcount)).Select H .PatternColorIndex = xlAutomatic @ .PatternTintAndShade = 0+ wafc@ ElseIf InStr(item, "MCUNI") > 0 Then 8 If InStr(item, "*") > 0 Thent P jingshu = Split(item, "*", , vbTextCompare).Color` res.CursorType = adOpenStatic 'αͣ޷ ` res.CursorLocation = adUseClient 'αԣ޷ ` Ressql = "SELECT MEAS_DATA*" & jingshu(1) & " MEAS_DATA FROM ( "em Ressql = Ressql & "SELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_BULKCN MMS ", "3 Ressql = Ressql & "left JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM ='" & jingshu(0) & "' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c "H Set res = CreateObject("ADODB.recordset")` res.CursorType = adOpenStatic 'αͣ޷it(j` Ressql = "SELECT MEAS_DATA/" & jingshu(1) & " MEAS_DATA FROM ( "SD Ressql = Ressql & "SELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_BULKCN MMS " Ressql = Ressql & "left JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM ='" & jingshu(0) & "' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c "H Ressql = "SELECT MEAS_DATA FROM ( "e) Ressql = Ressql & "SELECT c.SUB_LOT_ID ,c.WAF_ID,dch.SUBLOT_ID,AVG(dch.MEAS_DATA) MEAS_DATA FROM MEAS_MONITOR_EPI_BULKCN MMS " Ressql = Ressql & "left JOIN F3PRD.DMS_C_HIS dch ON DCH.SUBLOT_ID =MMS.MONITOR_SUBLOT_ID AND MEAS_ITEM ='" & item & "' GROUP BY c.WAF_ID,dch.SUBLOT_ID,c.SUB_LOT_ID ) c "ssets.8 For y = 0 To wafcounts - 18 If shangx <> "" Then =` If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenP Cells(21 + wafcount + y, c + 1) = "NG"X Cells(21 + wafcount + y, itemcount).SelectP .PatternColorIndex = xlAutomatic@ .Color = 255s.Fiel@ .TintAndShade = 0H .PatternTintAndShade = 0sh8 End With ( End If8 If xiax <> "" Then(0) ` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenP Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.InteriorCOUNT1P .PatternColorIndex = xlAutomatic@ .Color = 255 @ .TintAndShade = 0H .PatternTintAndShade = 0ST8 End With 0 End Iftati( NextHx Range(Cells(21 + wafcount, c + 1), Cells(21 + wafcount + wafcounts - 1, c + 1)) = "NG"ecor Range(Cells(21 + wafcount, itemcount), Cells(4 + wafcount + wafcounts - 1, itemcount)).Select 0 .Color = 255mp8 .TintAndShade = 0 "SE@ .PatternTintAndShade = 0"'"( End Withse End If@ ElseIf InStr(item, "MTTMSTRC") > 0 TheneaH Set res = CreateObject("ADODB.recordset")UNT2X res.CursorType = adOpenStatic 'αͣ޷ Ressql = "SELECT DISTINCT min(TO_CHAR(OPE_CMP_DTTM,'yyyy-mm-dd hh24')) minDTTM,max(TO_CHAR(OPE_CMP_DTTM+2,'yyyy-mm-dd hh24')) maxDTTM FROM F3PRD.DWAF_OPE_HIS d2 WHERE "& "'X res1.CursorType = adOpenStatic 'αͣ޷ Ressql1 = "SELECT MEAS_DATA FROM (SELECT ROW_NUMBER() OVER (PARTITION BY MEAS_ITEM ORDER BY HIS_REGIST_DTTM DESC ) row_num,dch.* FROM F3PRD.DMS_C_HIS dch WHERE SUBLOT_ID IN (SELECT DISTINCT SUBLOT_ID FROM F3PRD.DOPE_HIS dh " & j Range(Cells(21 + wafcount, itemcount), Cells(21 + wafcount + wafcounts - 1, itemcount)) = res1.Fields("MEAS_DATA")` If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenP Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.Interior P .PatternColorIndex = xlAutomatic @ .Color = 255 @ .TintAndShade = 0H .PatternTintAndShade = 0e)( End If8 If xiax <> "" ThenITEM` If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenypX Cells(21 + wafcount + y, itemcount).Select P .PatternColorIndex = xlAutomatic@ .Color = 255elds("@ .TintAndShade = 0H .PatternTintAndShade = 0Fo8 End With(18, i( End If( Next Else x Range(Cells(21 + wafcount, c + 1), Cells(21 + wafcount + wafcounts - 1, c + 1)) = "NG" Range(Cells(21 + wafcount, itemcount), Cells(4 + wafcount + wafcounts - 1, itemcount)).Select 8 .TintAndShade = 0 @ .PatternTintAndShade = 0 ( End With End If0 ElseIf InStr(item, "MTQC") > 0 Or InStr(item, "MMCL") > 0 Or InStr(item, "METK") > 0 Or InStr(item, "MER2") > 0 Or InStr(item, "MEPC") > 0 Or InStr(item, "MMK3") > 0 Or InStr(item, "MFMM") > 0 Or InStr(item, "QMK3") > 0 Or (InStr(item, "MNA") > 0 And InStr(wpstr, "3839") = 0) Then` meassets.CursorType = adOpenStatic 'αͣ޷@ meassets.Open meassqls, csDBConnection@ If meassets.RecordCount <> 0 Thenc WHH COUNT1 = meassets.Fields("COLUMN_NUM") P jingshu1 = Split(jingshu(0), "/", , vbTextCompare)x meassqls = "SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='" & jingshu1(0) & "'" ` meassets.CursorType = adOpenStatic 'αͣ޷@ If meassets.RecordCount <> 0 ThenH COUNT1 = meassets.Fields("COLUMN_NUM")( ElseG"X jingshu1 = Split(jingshu(0), "-", , vbTextCompare)L x meassqls = "SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='" & jingshu1(0) & "'" h meassets.CursorType = adOpenStatic 'αͣ޷0 H meassets.Open meassqls, csDBConnectionP COUNT1 = meassets.Fields("COLUMN_NUM")6 @ smu1 = "-" & jingshu1(1) X jingshu1 = Split(jingshu(0), "*", , vbTextCompare) meassqls = "SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='" & jingshu1(0) & "'"mm.Fieh meassets.CursorType = adOpenStatic 'αͣ޷P meassets.Open meassqls, csDBConnection P COUNT1 = meassets.Fields("COLUMN_NUM")H smu1 = "*" & jingshu1(1) itemc` jingshu1 = Split(jingshu(0), "+", , vbTextCompare) If meassqls = "SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='" & jingshu1(0) & "'"p meassets.CursorType = adOpenStatic 'αͣ޷ P meassets.Open meassqls, csDBConnectionH smu1 = "+" & jingshu1(1)e = 0( End If( End If 0 End If8 If UBound(jingshu) > 0 Then x meassqls1 = "SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='" & jingshu(1) & "'" h meassets1.CursorType = adOpenStatic 'αͣ޷ H meassets1.Open meassqls1, csDBConnection @ If meassets1.RecordCount <> 0 ThenP COUNT2 = meassets1.Fields("COLUMN_NUM")rIndexX jingshu2 = Split(jingshu(1), "/", , vbTextCompare) = 2x meassqls = "SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='" & jingshu2(0) & "'" h meassets.CursorType = adOpenStatic 'αͣ޷ H If meassets.RecordCount <> 0 Then H COUNT2 = meassets.Fields("COLUMN_NUM")( Else X jingshu2 = Split(jingshu(1), "-", , vbTextCompare) meassqls = "SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='" & jingshu2(0) & "'" xlAuth meassets.CursorType = adOpenStatic 'αͣ޷P meassets.Open meassqls, csDBConnection P COUNT2 = meassets.Fields("COLUMN_NUM")H smu2 = "-" & jingshu1(1) ` jingshu1 = Split(jingshu(0), "*", , vbTextCompare) meassqls = "SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='" & jingshu1(0) & "'"Nep meassets.CursorType = adOpenStatic 'αͣ޷dsadP meassets.Open meassqls, csDBConnectionP If meassets.RecordCount <> 0 Then X COUNT2 = meassets.Fields("COLUMN_NUM") ` jingshu1 = Split(jingshu(0), "+", , vbTextCompare) meassqls = "SELECT * FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS ='" & jingshu1(0) & "'" & "' p meassets.CursorType = adOpenStatic 'αͣ޷x meassets.CursorLocation = adUseClient 'αԣ޷AINFX COUNT2 = meassets.Fields("COLUMN_NUM")40 End If ( End If( End IfDBCo0 If smu2 <> "" Then meassql3 = "SELECT ROUND(MEAS_ITEM_" & COUNT2 & ",5)" & smu2 & " data2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='" & sublotid & "' ORDER BY SLOT_NO"HERE h measset3.CursorType = adOpenStatic 'αͣ޷ h measset3.CursorLocation = adUseClient 'αԣ޷ meassql3 = "SELECT MEAS_ITEM_" & COUNT2 & " data2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='" & sublotid & "' ORDER BY SLOT_NO"' H measset3.Open meassql3, csDBConnection countsql2 = "SELECT COUNT(MEAS_ITEM_" & COUNT2 & ") count2 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='" & sublotid & "' "' h countset2.CursorLocation = adUseClient 'αԣ޷ meassql2 = "SELECT ROUND(MEAS_ITEM_" & COUNT1 & ",5)" & smu1 & " data1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='" & sublotid & "' ORDER BY SLOT_NO "h measset2.CursorLocation = adUseClient 'αԣ޷'x meassql2 = "SELECT MEAS_ITEM_" & COUNT1 & " data1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='" & sublotid & "' ORDER BY SLOT_NO "H measset2.Open meassql2, csDBConnection0 countsql1 = "SELECT COUNT(MEAS_ITEM_" & COUNT1 & ") count1 FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID='" & sublotid & "' "Ce` countset1.CursorLocation = adUseClient 'αԣ޷P If countset1.Fields("count1") = wafcounts Then @ For y = 0 To wafcounts - 1 @ If shangx <> "" Then h If Val(Cells(21 + wafcount + y, itemcount)) >= shangx ThenX Cells(21 + wafcount + y, itemcount).SelectX .PatternColorIndex = xlAutomaticnt + y@ .Color = 255 H .TintAndShade = 0 P .PatternTintAndShade = 0 8 End With0 End If 8 If xiax <> "" Thenh If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenWithX Cells(21 + wafcount + y, c + 1) = "NG" H With Selection.Interior"cX .PatternColorIndex = xlAutomaticmcountH .TintAndShade = 0 IfP .PatternTintAndShade = 0ells(28 End With 0 End If0 End If P ElseIf countset2.Fields("count2") = wafcounts Then` Cells(21 + wafcount, itemcount).CopyFromRecordset measset3 h If Val(Cells(21 + wafcount + y, itemcount)) >= shangx Thende =X Cells(21 + wafcount + y, c + 1) = "NG" H With Selection.InteriorIfX .PatternColorIndex = xlAutomaticnt + yH .TintAndShade = 0 P .PatternTintAndShade = 0 8 End With 0 End If8 If xiax <> "" Thenh If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenX Cells(21 + wafcount + y, c + 1) = "NG" H With Selection.Interior X .PatternColorIndex = xlAutomatic @ .Color = 255ntH .TintAndShade = 0t, iP .PatternTintAndShade = 0 If0 End If0 End IfemcoH If countset1.Fields("count1") <> 0 ThenCe` Cells(21 + wafcount, itemcount).CopyFromRecordset measset2elec@ If shangx <> "" Then h If Val(Cells(21 + wafcount + y, itemcount)) >= shangx Thenade X Cells(21 + wafcount + y, itemcount).SelectH With Selection.Interior X .PatternColorIndex = xlAutomaticiax <>H .TintAndShade = 0wafcP .PatternTintAndShade = 0 8 End With 0 End If.Int8 If xiax <> "" Thenh If Val(Cells(21 + wafcount + y, itemcount)) <= xiax ThenShade X Cells(21 + wafcount + y, c + 1) = "NG"H With Selection.Interior X .PatternColorIndex = xlAutomaticIfH .TintAndShade = 0 P .PatternTintAndShade = 0c + 1)8 End With 0 End If0 End If x Range(Cells(21 + wafcount, c + 1), Cells(21 + wafcount + wafcounts - 1, c + 1)) = "NG" Range(Cells(21 + wafcount, itemcount), Cells(4 + wafcount + wafcounts - 1, itemcount)).Select0 .Color = 2558 .TintAndShade = 0@ .PatternTintAndShade = 0( End If End If`1 wafcount = wafcount + wafcounts sublot.MoveNext1ϷAttribute VB_Name = "Ϸʾwafer" Sub L<() @$'1 End T f\LDim item As Sng*(sub lotidnu),Do e,arrData()FInteger-'ļرĻˢ´ fApplication.ScreenUpdngFals@FileTrim(Cells(1, 2)If "" pThen2" MsgBox ("S U"$Exit'If#connectDB@Set wp= CreateObj("ADODB.recor0dset..CursorTyp~adOpenSt=c 'αͣ޷fЅM LoOLadUseClient0wpsqlGw 'AƷSELECT CUSTOMER_NAME ,PRODUCT_ID,sum(WAFCOUNT)  FROM COCMEASSHIPLISTSTD WHERE FILE ='" &s& "' GROUP BY !?AkGT@f@5, csDBCm4Whn.EOF <> True>жΪ0һA'̡@Gtr`Fields("*'õ˾c customern" ("Ta6srcpath6 pdB;ԭ!at·һg'繲A # B \\10.A52.142\coc\1ServerSharb112ģZrŤadministprato% P0asswn`1"fthw-82905028 I@Folder`~sts()ȇ $H@ 0HEleNetkc KW@ipt.Ccfsoing.!Sysງ# -.MapDrive ""$, 1, , ,, ( _ae'ÉJ'nC"IA@{\ͻ>\ja!cl  ' ThisWorkbook.Pba v C & P".xlsx" F'汾؋ !$v=0&/ "p?0L1L@Ӧa "" findt}b)a:Dim strResult() As Stringyj2:z3& Split u;h;flag'@L-; %jjq%UBd(F # meas}1_$ 25ExitQ o-End I.f} =!jj  sp㷸ʽv2sR(//wѯ`Rv Columsp1212(0)~ynumm y߷ qz |?m "SELECT 㩠N]0+ " Aa,SP_DATA_STATE FR OM~aINFOxS ct0yԝt+@e '`er by SNOt/$u uo%ls @mvFy0F- 1 F` /ZSC= xtyx, 3/[pM2q4DoЍe? ^sH;( ,! )1??K3h /h/Btayp0fOcdyp = 0 T@hen $Cells(21 + wafcounty, c 1)"NG"@item^).S elect'SWith 4ion.InteriorC'@.PatnColorIndexmxlAutomatic&# 255TintAndShad:e 0,c"End ATA If If Eumn1@ <> ""numm.MoveFirsFor0 sqlS1 To BRecordCA/È1 id@Fields("WAF_pID")5measdataAK KM+ OI e UB'd(strResult2) > ,/ d@2`CDbl( (1)) 'ֵG'get(E`,AH2, G(2 ?h e)`"0.:0"s?shangxy& `* >= _Խ #} _Ͽ2 ;./j.g%_6m;`2xia/7$7<= "7/7t77S777!/7_O3 Else0~_6 55o_5_54?_4_33q+_3/4 flag = + 1  EitemEW7Ec !D Cells(16, 0B@xiaxfhG7_A8shatng 9 20_If <> "" TheP/aae= "RESISHEAD;;" DL!ires!is@.?k??k G ll Res]ml_ITEM_229-(C30)*nSTR(Ct,6,3)/" & wp*ER_CO UNT")" data1?z"z &'z& z ORDER BYFz?=Q==`&= >= _)or c<21`I%CY0.CopyFrom{[ A C\lo/w/Gy001GgK-<O9Val(oty)a_?cp1)1.NG_o?N .Sel bWith e.InteriorOO.PatnColorIndexpxlAutomQ}P255TintAndShad,% 1Q/ ?_/v3?3;3<= r3_.33_?33?33_ 33o\@83? ..o3?8-30o}) 'MsgBox sublotid & "RESISHEAD;$TAIL@!"Range(Cells(21 + wafcou nt, c 1)4, 4 s - 1+) = "NG;vitem@$=).SelectzWith ion.Interior.PatnColorIndex{xlAutompatic"255TintAndShade0 +oEnd 'AJA IfEl`seIf i-"BCA*5;C*5" Then[Set res@CreateObj@y("ADODB.record`set").CursorTypPadOpenStm 'αͣ޷ЈLocon+adUse@ClientGmRessql "SELECT ((MEAS_ITEM_2@39*5)+)40 )/2 data1 FROM COCaDA.NFOS{WHERE SUB_LOT_ID ='"`ɋ' ORDER BY SNO {,*  sDBConn_ 6@m(DR":C >= 1_D".CopyFrom FJ A!Close_For y40 T>o"A shx <> "_cagValqy,"p)*$ o  T p7 Q +QǠ% .\_% Obc?/xi~a33um() <= r3_.t3?4Oo3/_ 30/333/-Qa0Nex? *]ɢɒnɟi/ ofW5pӤɟ7766/6?o5o5?AOh.3]o0\D = 1 TheCells(21 + wafc, item).CopyFrom/set$ulose For yh0 To s - 1?shangx <> ""=ADVal(A@DyB) UDVKc1)NGoSelcRWith @.Inter8ior.Pat`nColo@rIndexxlAutoma? . B 255TintAndShad0_ND? -End ,!If gxiag'jg!)) <= ?g- ?g"?g v ?g?g?g + p?g .]% -30ÿNext8Elo'Ms gBox RESISHEAD;Lû\!/b^Rpemntpf, /4Ewio)W8).l7Ok62j/6o5߲? 4lo.3o0-cap"RRGQ*;pq+/ ЅCreateObj`("ADO0DB.r")_6bɟɟɟ[ ɟɟɏ ɉ1+2____Yo/oo[!!ooJooQo/Bo oɐIo="ـZootmγ 'Cells(21 + waf count(y, item).Select ( With 8ion.Inte0rior+Dp.Pat;nColorIndex = xlAutompatic0Q%"255TintAndShade"00!i$End3?A If If xiax <> "" ThenC$Val()| <~kc 1)q"NG"g-?g'.?g .]BE? 9 a[=aG cNex|ElseRangeh, [, _s - 1a%'`e4lL%_cFa_`-^@(./+(ZaRORGHEAD;pTAIL/_ t resCreateObj ("ADODB.recordset"). .CursorTypwadOpenSt 'αͣ޷HLocon adUseCliePRessql"SELECT (MEAS_ITEM_235+6)/2 data1 FROM HCOCDANFOS`=WHERE SUB_LOT_ID ='" & sublotid"' ORDER BY SANO n9 5. AsDBConn@W!RCr>x= 1*Jt*CopyFro~m"  "looT For y0 To'Qo shXoo߸nt)) `侏?//^/_ ^p/ğ__`a/a?b//3/_.3/?33?ճWith Selection.Interior ,.PatvnColorIndex = xlAutomatic0JE2550=TintAndShadeD00Bi$End ? IfNext!(ElseRange(Cells(21 + wafcount, c@1), A s - 1 )!f"NG"item 4 |).Cɿ..3MQ_]c]VQIf 4CMTQCBMD*10" Then6Set resCreateObj@("ADODB.recordset")@.CursorTypadOpenStA 'αͣ޷0_ C Loc onadUseClienta Կ 1R essql "SELECT MEAS_ITEM_220) data1 FROM COCDATA INFOS@zWHERE SUB_LOT_ID ='" & sub lotid@"' ORDER BY SNO 7=| 1B"$RGlpyFrom @DHG !Clo_ @ For y 30 ToƧ¢ A shx <> "aagVal1Ry,b7T)aߔ7[tcb)_o?4]O]O_ ^pO__``/a?_bǿ/xia33Տ3<Яq3_.3/_?33?33_3_33333/-Qa0}ÿ56_d vcqßo2o2u$0b .TintAndShade `= 0 4.Pattern/zEnd Withg%If#ElseIf item"OXYCONCENTAIL/2;HEAD/2" Then8Set res&CreateObject("ADODB.recordset")#!.CursorTypadOpenStatic 'ͣ޷%-Loc'onVadUseClient.ԁ.Ressql@"SELECT (MEAS_ITEM_233/2+4/2)/2 data1 FROM COCDA`NFOS c WHERE SUB_LOT_ID ='" & sublotid"' ORDER BY S `NO "AT C,, csDBConnkio\yEAhRsCou@M>= 1Cells(21 + wafc, ).CopyFrom@A[3Œlose For yi0 To s - 1A shangx "bagVXal( "yI!) *$ o  c 1)TNGD t.SelH7?)i a O.Inior EColorIndexxlAut|om? . B 255MN]?ƍ_xiag egemÈ) <= ?g- ?g"3M??33O3er333o\@83? ??% ?8-Q??0Next_ќRpkegnt ra,c}zrr_d)4D>fo2o2110?/0/0? o/Oo(./+ogKů P///Ŝ////Ż///O;/)3 O I !9@}JL'BP7s  Cӳ For y = 0 To wafcounts - 1 0If shangx <> "" pThen#rD=Val(Cells`(21 + y@, item)) >=i+cg`c31)"NG"[)Z.Select+With ion.Interior+"P.PatnColorIndex9xlAutompaticp@255pTintAndShade04{End AYA If xia<=  ?gGi?g?g t}?g ?gQ?g +.?gX .]BE? 9 a[?g)aGcNex|ElseuRe, , _߿%ge4@c HB _fo2f ~1\Oe0/0? o/go(./+(@^ap"ORGTAIL;pHEAD  t resCreateObj ("ADODB.recordset"). .CursorTypwadO penSt 'αͣ޷Locon adUseClientRessql"SELECT (MEAS_ITEM_235+6)/2 data1 FRO M COCDA!@NFOS`=WHERE SUB_LOT_ID ='" & sub lotid"' ORDER BY SANO k) . AsDBConn0!RC᷽1*JtYA6pyFrom"  "lo_T _=/"RĔ>1*_ď_OO^O^_T__?_/`"OaOa/b?b00_1 If Val(Cells(21 + wafcount(y, item8)) <= xiax Then 0ce1) = 0"NG"DS.S elect+WWith ion.InteriorC+".PatnColorIndexsxlAutomatic(%"255TintAndShad:e04{End AYA If  Nex\ElseRanged, C, s - 1 G4l{L)_f{d_cF.a.W,?Q_]]VQInStr(5, "MNA") > 0 @z Cwpstr`3839Set resCreateObj`("ADODB.recordset")[a@.CursorTypadOpe A 'αЌ_ C Loc onadUse0Clie զ Կ 4Ressql "SELECT DISTINSUBLOT_ID FROM F3PRD.DWAF_OPE_HIS d2 W`HERE I8N ($,ER `B '" & sublotid@"') A ND EX_FLG='YD` ='CPI' 20 c`FsDBConn0mReDim arrData(1 To".R2!CA@ s P)ingǩ s A// .- p ForP_ no_su <-su]ra Fields ("f ;& "',io_&r _)'OKoAMovew? __ " 8Clooz'= Join(RM aWABpWPRESP1;CPTRE1"/!/VVVA_W_W_W_WO'WWWA ISmaxHs-sP*(mins)/CUR_3VCNT _M3ZWF\d.6,]NO, dh.Z,dch.COLUMN_NUM MEAS_ITEMS,MOD(STR(d%6,3),25) ! ,! , cch[[BINNdJO(g` j,h!SEQ_SINGLE i$m i) i ) D ON =S!m'0Ho_"Y %! ,CS ,MAX(!2DATA) /~)T*MS_Ccc ? Q9 COC D*STD CS -2 qP#cs9.MEAS_ITEMS AND _TYPE IN('NC-120') "  Ressql = & "and SUBLOT_IN (" & sublotrs")ww ('MNAPRE SP1', CPTRE1:INNER JOIN F3PRD.DOPE_HIS d ON d.R0=dchd.!_CATOOSF !k='CPRI'GROUP BY D,CS.COLUMN_0NUM ,CUR_ZWAF_CNT ORDs#DESC) kPIE=dIIJ)SA{NOres.OpenD, csDBConnectionCells(21 + wafcount, item).CopyFromRecordset 'Close For y0 To"s - 1If shangx <> ""p The@A@VXal(C@FyD)x >=E  c 1)"NG߆ ).SelB?) With I.Interior.Pat`nColor IndexxlAutomatic? . B 255TintAn@dShade0_ND? -Eϡ,!If _xiag'jg!)) <= ?g- ?g?g t}?gM33o 3*3]@8P3?.._% -30Next808w"*1000;߳mS{0CreateObjp`("ADODB.rU}")o O .CursorTypSad!Sta\ 'αͣ޷8//)Loc`on adUseClientW___ = "SELECT (max(s-s*miPns)/Ϣ)2 _ FROM (TDISTlINx,, 1ID,9CHMOD(@S TR(d.$6,3),25) Q 1 , OT 4vh/yɿ5` 0 SEQ_NO,SINGLE d WHERE''id1 REX`_FLG='Y' ) D͒hr =SP& _oo_"Y !@ ,MAX( DATA|) ~@*MS_Cc ? 9 COC*DSTD CS`Γ&,@;csoEMo(_ O ooW ?`oopsql = Res& "INNER JOIN F3PRD.DOPE_HIS d ON d.SUBLOT_ID =dch8AND<R_CAT ~('OS') .b'CPRI' "  GROUP BY ,CS.COLUMN_NUM MEAS_ITEMS,CUR_WAF_CNT ORDF 9DESC) kP=d)=SNO5res .Open, csDBConn@ection#Cells(21 + wafcount, item).CopyFromRecordset ' Close For y0 ToA"s - 1If shangx <> "" The@A@Val(C@FyD) >^=Ec1)?"NGqqSelcR W0ith I.InteriorC.Pat`nColorIndexxlAutomatic? . cB 255TintAndShade0_ND? -End ,!If _xiag'jg!)) <= ?g- ?g?g t}.?g b:?g.?g+ p?g..% -3?0Next808["MNAPRESU;CREUNl?SSzpCreateObj_("ADODB.r|") O .CursorTypRadaSt[ 'αͣ޷8//)Loc`on adUseClientW___ U= "SELECT avgs FROM~h_odR(v, aID, ,SEQ_NO,SINGLE bHER E S" & sublotid "0BEXIST_FLG='Y ' ) Dh. &= ¾ߊo_Z mbWK4 ,(ƂDATA)MS_C}cO o i COCDSTD CSBq+hcs.S_TYPE ('NC-120po sO "a{ g sQ W uE','ߕE_/_"קgן4ڟ_"ֶ֚ a?,_?OOc[ןY 0 To wafcounts @- 1 $If shangx <> "" T8hen'zVal(Cells(021 + y, item))x >=m/gkdc51) = "NG"_+^.Select-With ion.Interior/$!T.PatnColorIndexyxlAutomatict@255tTintAndShade07End A^!A If 1xia<= b ?mKm?m?m ̈́?m `?m?m /.?m .c< a`?m?g+Nex ? ElseRe, , ij%wk4`6Jz76m5Pcl43? 2onoa&?1((cInStr(, "`MPMC"0Or MCLTAVG/`*-jingshuSplit *", , vbT8Compar e)4}Set resCrea teObjp("ADODB.recordset"a.Curs orTypaadOpe0 'αͣ޷ P Loc on@ adUseClientRessqlP"SELECT MEAS_DATA*" & t(& " FROM ( m vc.SUB_LOT_ID ,c.WAFa,dchs,%() SMONITOR_EPI_mcltp MMS "INNER JOIN COCAAINFOS0VO3P =@ANHD C ='asublotid"'  "leftF3PRD.DMS_C_H(IS  DCHS   ITEM U0) GROUP BY Q@(| )? ? ? OSuGs1 s" s6 ORD ANO 5: qsDBCo|nn@@ԏ3)R "/L_p7L/LOHnLLLnGLmnStatic 'αͣ޷  res.CursorLocon = adUseClienBt1R essqlU"SELECT MEAS_DATA/" & jing@shu(1) " FROM ( N"+& 0c.SUB_LOT_ID ,c.WAF,dch ,AVG(F)LB MONITOR_EPI_mclt MMSNINNER JOIN COC.INFOS c O T =2 AND C h='subloti dM'4$left#F3PRD.DMS_C_HIS F$DCHGLC%7C@XX A(JITXEM 'Eu0Bu' GROUP BY Tcl )C?YuYs4sR2s`E* ORDng/=NO!'AOpen ç, csDBConne ctionElseSet `kCreateObj ("ADODB.recordset")_ !Type adߌߌ! ߌߌq=BR!ly  I`3Y=%%D ritemÝ+D T_h mEnd IfL o@IfD."RbCCou>= 1 TheJ- Cells(21 + wafc, !).CopyFromPI }CloP For y10 To6s -, 1o  shangx <>x ""OVal(oty) `O%cp1)"N>Go?N .S 0` Then *fAkjingshuKSplitE *", , vbTextComp0are)!Se t resCreateObj("ADODB.recordse t".Cur@sorTypsa0dOpeI 'αͣ޷_*HLocon-adUseClient' ? kRessql "SELECT MEAS_DATA*" & .((1)" F@ROM ( & & E c.SUB_LOT_ID ,c.WAFa ,dch,AVG(!)"MONITOR _EPI_R MMS INNER JOIN COC !INF4OSO = eAND C=''sublohtid''leftF3PRD.DMS_C_PHIS " D|CH&!,+ !B%ITEM ;0;' GROUP BY 1*6 )!,,sansj)sf0% ORD7`NO .AvDAsDBConn@{t/Hp$0pS /{<MMMMMMMMMMSOH'M/MMMNMMMUB9MMXMMM "MMXM8M6 "MMMcMVMMYfM? ? ? OSGM=MMMM McMoMOFFF]FFFF F%/E/E/E5/E/EV_  ..ca|C,? ?N /ES_Ac_u?_ FOS s ON s.SUB_LOT_ID =c hANDxWAFh$ ORDER BYvpNO " res.Open Ressql, csDBConnection@End If#If cRecordCount >= 10 The]\Cells(21 + wafc, item).CopyFrom/8set6H+For y = 0 To,s - 1jshangx <> ""$fÁVal(msy7)JD#L%c1)?"NGeSel@cRWith .Interi or+.PatnColorIndex9xlAutomaticGp@255pTintAndShade0D? )u,{ ggxiag'jg)) <=~ ?g- ?g?g t}.?g ?go2?g +p?g .]E? 9 a[??g)aNe xt;w El\seRpkegntra, /*xrr_d})4f)/3o2f1@-Oe0/0? o/go(./+(@^@InStr(, "MCUNI"A,*jingshuA0Split%*", , vbT4Compare6)2}SCCreateObjЍ("ADODB.vrr".CursorTypadSt 'ͣ޷ qLoc on@ adUse0Clie|CP"SELECT MEAS_DATA*" & t(& " FROM ( dpJ,c.s0,dchID`,AVG(v )]MONITOR_EPI_BULKCN MMS  INNJOIN COCSINcC =@aCy='!sublotid"'   "left F3PRD.DMS_C_HIS  DCH7S 3`  ITEM 0) GROUPA`x ) c ? ? ? "OGs1  s6  B<Q "/Mwn jingshu = Split(item, "/", , vbTextCompare)Set resCreateObject("ADODB.recordset" JF.CursorTypeQadOpenStatic 'αͣ޷F/Loc)on1UseClient0ԁ0Ressql*"SELECT MEAS_DAT@A/" & (1)" FROM ( "a0 & 5c.SUB_LOT_ID ,c.WAF@0,dch,AVG(A%)M!BMONITOR_EPI_BULK@CN MMS'INNER JOI`N COCDINFOS c O3@* =ANHD C4='PsublotidPB'4$left#F3PRD.DMS_C_HIS F$DCHLC%EDX X A(BKITEM 'Ex0Bx' GROUP BY sc m )C?Y,sasj)sf0% ORD7`NO a.v #T, csDBConnioElse`__D____ =BR!l& S DI&Z,==%&D D "G[D=DDDD DD_E`nd IfEIf2RCou>= 1 TheJCells(21 + wadfc, ).CopyFro>m }For y/0 Tos - 1@ shangx <> "" OCVal( t`y ) /Ocp1)"NG_o?N .SelhWith `l.InteriorOO.PatnColorIndexpxlAutomP255TintAndShadA0//,$ :Q?=/xia33uA3<= r3_.33_?33?33_ 33oY@83? ..o% -3 "End If !%VNext!ElsesRange(Cells(21 + wafcount, c 1), A's - 1) = "NG";itemA=47=).SelecWith ion.Int`erior[.PatnColorIndex=xlAutoma8ticd@255d TintAn@dShade0 +oAJIf InStr(k, "MTTMSTRC") > 0 ThenSet res@=CreateObjz("ADODB.recordset").CursorTypPadOpe@&m 'αDLoc onadUseC lient Կ !MgRessql "SELECT DISTINmin(TO_CHAR(OPE_CMP_D+,'y-mm-dd hh240')) bmax+2ax FROM F3PRD.DWAF_ HIS d2 WHERE G\& "ID IN (D$! ER d SU BLOT_= '" & sub lotid@"' AND EX#_FLG='Y')Bope_id='THFT'E!C sDB0ConnN AU16U+=1VVQ h ?V?VM '! EVMEAS_`DATA I=ROW_NUMBE@R() OV=(PARTITIO N BY ITEM ORD@aN_REGa<SDESC ) row_num,dch.*UMS_C_BUchHhOjgLP^h?];.B2:L 7)>=-.Fields("= 1kOData @" Q0j?aka? ? cCloFor y ~o"S ` sh x <> ""oOVal߭x+ y, PߔψOt#O??,3G ߮Oo _p_..% _/xia33m() <= r333_?43/3erior ,.PatternColorIndex = xlAutomaticG0JE2550=TintAndShadeD00Bi$End With3?IfNext(Else9Range(Cells(21 + wafcount, c@1),  s - 1 )f"NG"item 4 ).Sele.cFp  ion.InɿƁ ..3+iQ_]]VQIf I nStr(5, "MTQC") @> 0 OrLMDCLUETKVRJ2VPw K3FMMTQM( NA`wpstr3839= 0) Then djingshu`jSplite';", , vbT@CompPare) '$ 2F ({"/ ,Cu 1 0v {meassqls "SELECT * FROM COCMEASDITEMSSTD @WHERE a_b ='" & Ce+& "'SHet betaCreateObj("ADODB.recordset"+.CursorTyp!`adOpe^ 'αͣ޷#Es Loc` on@%adUseC lientG _ +& 1 p]sDBConn`Ro Ysmu!^"@R"Cg <@s1 !UNTFields("COLUMN_NU; q E%C8W&=38_B ....1(....?/?/?/?/9//5/5_ g//--CO--- %9/R1P_11/2`-eT&o2o2o2o2a/ao222 f,/bc/b/b?|bbb!o3{/c33_3a}%4-/4Oo4O4#p^f*44H meassqls = "SELECT * FROM COCMEASDITEMSSTD WHE(RE L_L ='" & jingshu1(0)"'"  Set etCreateObject("ADODB.recordset")'WS.CursorTypeadOpenStatic 'αͣ޷"5Loc/on7UseClient7B7e, csD BConnion'_IfF`.RZCou,<> 00 The{CO0UNT1?`Fields("COLUMN_NUM#irsmuA"*J1ElseD@2Split(, "+", , vbTextCompareh#Gݳ sf?oo & _p_pFp] gwg eg+gMEnd Ifgs  e;UBdt)  ߘ(1 oEQ1ݿ?M?6ononw51nu/2["8p1OpOp 0 TheCOUNTφHFields("COLUMNp_NUMmw*߶A[s+_s|%ss1(su_t_tfBtt hl_u_u? ju (kkk+kdEnd IfE% c""CP%ql3^"t@ROUND(s_1& ",5) data2 wATAIN@FOS c2w SUB_LOT_IDwsublotidw ORDER BY SANOx (> _x_xet3wwww|<_w_w);3.;3vg k%%u$ӛ$$$$ $o/|$$$$$ҷ$Lc˟tI2HI`$) 2HHHHG 1# et oGoGN ?G?G?G?G 2D"""" Fql2F+" y h1 _oR3o`"o1ioo1oooon o' J_'/  measset2.CursorType = adOpenStatic 'αͣ޷@ ,L$ocWongUseClientf:f ql2, csDBConnectionWElse$h-`"SELECT MEAS_ITEM_" & COUNT1" data1 PFROM CDATAINFOS c2 WHERE SUB_LOT_ID=' sublotid!' ORDER BY SNO "QSetw)CreateObj@A("ADODB.record@")If UB>d(jingshu) > 0 TheFields(""1")`Hwaf Cells@(21 + , item" ).CopyFromRe For, y``o& s 8- 1eshangx <> <"" Vall(y 1= 2  c` 14"NGN ).Sel?+ `With  p.Interior^  .PatnColorIndexxlAutom_Oǐ(255.TintAndShadA0oO E0bQe2xia6_6E6<|= 61t#6txQ6 666666?6;o 1063Next?4S}Z2__-.t__et3? Щ__p_$/_H>_H_HHHӲ Selection.Inter@ior 0.Pat~nColorIndex = xlAutomatic4NI2554ATintAndShadeH04Fo&End` WithCIfIf xiax <> ""` Then'Val(Cells(21 + wa@fcounty@, item)) <oc@1)x"NG"k/..{A).?mh.c< a`?m?g+0NextG? pElse? rnset1.Fields(""1"p> 0_}ozHpyFromRecord@ me4as2 For y! Tos - 1shang% >= _ __ =_LOLOLL?L/o>OoDO2O/6O+O?6tO6666666666o6?S﹟6OoRqent, 0, o-a-92yoT™4@kA/6?/5/5/4/4/3?/2/2? /1/1 B End Wipth  LIfNFNextuwafcount =  + s0sublot`.Move( ' For ";1 To*  numsql2S"select MEAS_ITEMS, ROUND(MINH,5) , A6X M AVG  STDEVPCS from COCDATASUBSUM where FILE_NAME ='" & FileName"' AND LOT_IDDEitem( G) FLAG ='F'"Im. Open K, csDBConn@Lion Debug.PriD3@  Wh1m.EOF <> True n|in Bzc  If Cells(16, i + 5)"" The/ =+Fiel0ds("BoB")&f`20f3Q I")lowValue$8e ? Cha:r7up+? 9@7 J0 A_@ SÅCase  ">=Uo ` km.jPD >=c/\ Elsp[.Interior.Col= 65535(r'002y0_0R J?EA4_? eH@upbE@I@_  (<@o(@<= @(((@"/@_?/A ?N,U{wpWendESC|loz qRowP7).Dt~1 le}umns (c'Range()21@E1),Իx`s - 1 '-1'Thickness/ð "G16 '''0ļ Set p_workbook = WPs.Open(srcpath & "T7_code.xlsx") Application.DisplayAlertsFalseT.Sheets(1).Delet$OTru)W'ȡù̶ Nexchip_FabRange("A2 Material_NoBB Spec EQ kerI R`ows(2qQ'Lot No.SlumberЀt1CreWObjectdDODB.recordsetj.Curs@orTypeadStc 'αͣ޷@tLoxUse@Client(ԏ'sql2"SELECT SUBLOT_ID ,WAFER_COUNT FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME ='"@FileName' ORDER BY _SEQ " Debug.Pri-#G KG , csDBConnYA For i01 ToAt.RB_ Count Cell@ + i, 3) Fields("F>Il 6 HV 1A $2 5D_T9# _"MoveH"'''FOSB? B*%\$ \\et\#f\bI^ D@YIN@_RFID`B,CASE![N$VUB_bIS NULL THEseEL[gEND Xi LEFT JOIN (" _h+ euq_Vd,y'CUSTOM |_ %Dk MlMES"_!%TAG) ms ON c.@36ms._"' F4%, @a'saseq0He1*:(D3JcBEQ,_J_JD /%D%Y$??#R^h m. E + T. H }D6ee)c %3 6&@p)pkg$(=.>nn_nUn#w%Snn "Ifn > 0 Thenqqm4e1W%qEm d+eEnd If ?7a 'Ƨ .Activ'ȡ Pirow '2GWh , p{p<> "8Tb+D 1end'ʼ ppr-yaḂ8 tsqPsDim ssspr@T7 C 'a1}ob?Iy~orPY1,S{NO,dSTR(READ_~1,10) Kf3prdD.D dhH yIN!2E(;F1Xfrom(Ole?eoomK?e?e9e OeOOeOeOeOeAG?e=ނ̷̣fAnT) =)db~yw"'zE9s,qlship = " SELECT * FROM (pDISTIN\SHIP_SEQ,CASE WHEN HUB_LOT_ID IS NULL T8UB,EL`1 VEND~xCOCMEAS/L{STD c LEFT JOIN ( PCUSTOMER_S NN  MES_=TAG ) ms ON c.5= . RE FILE_NAME ='" & fi@lename"' ORDER BYEQ)cʠ_ ' & C%sql1#" )pkgUN=@/!,SqN O"@"#Sett.Open , csDBConnection Debug.P0rintE HFor i1 To Record Count Cells(i + `1, 6)@  Fields(") ) 7 READ_WAFm" MoveNexI SEc E'Thicknessԭʼo J.",2,&,max(ITEM) #A CAR,,R`OD_US@C,!STR(1,3) opeid,s1.EPI_EQPID,os,oc,PARENT LOCATION,s.RFDID INV`ORYCODE'`} BeoU~Dq(NO,cos.( ,(A_a_003/1000/COS.m-m'#酀%INN$,C0uÒFNƒ) cdd=!  H $DATAINFOS `5b @6`^ h绿 o ֞?L$L)?$UNl A ggb,g7J;FRdJ33391*1K3D,3v3F 36ZI 343w3Ut  I3ID3T % te 33333l pA3:63a3+3uv3q!gD~3~_4153D,33?g9 h# O 33?g'###?g33 +?go3333 "33 2 3soowb{_QwITY@bicbwb.lotid= joind5c91 ,P!Ъdh.`8 /QtRHIS_ IN('OS') cREG*_DTTM sw`C ?$?$ "rF3PRD.D @dB OPE_ ldh`nS` BLOT_ID,0,7)||SUBSTR(d.@-3) = %3MS2.`SHIP_#8MES_ TAG ms26CUSTpOMER:XC Y"LIST STD c#FILE_NAME ='" & Fi@leName"h' )&b)OPE='EPI' GROUP BY dDQ,PROD, EQP ) s1 ON s=s1.waf_id19_SEQ,SbNO,Ct,@U@QBCAR,#USQ-_@&@ os,oc,PARENTLOION,RFI0 ,INVOR YCODE ID-ORDERG-QSet nummCreateObject("ADODB.recordset").Curs@orTypeadOpenStatic 'αͣ޷ЈLoconUseClient xDebug.Pridw0c , csD BConn!ion p_workbook.Ac8tiv(Cells(sq, 1).EntireRow.Copy count0_qty"6.R 3C3For sss1 To3 +aPasteSpecialNext3p ?'''ɾ`ʼГAd;aP"2 `,s(2).Deletevath,_3-+ 1, "Fieldxs("Ro  4A D6{7c8aITEM9"FHqA K10XID"}=1>_52~opeid#Ne#j5 ss'oc-Move9 'Thickness`end<'-2spdataaH16,HEnd Ifwpy.`'SavXMj'չÏmClosnW''Ļˢ~Appli|.ScreenDUp ingST,ru cDBMsgBox "!Ϸʾļ ɰ>Sub  &"0Q)\xMEX<6 <`<<< <(<0<8<@@ @ @x @` @H @ p( X @ @ 8 @   @h @P @8 8 @ ( @ @ ! ! % (x @` 8&HH &@0 8 @ *8 *./2` HH` HH @ @ (X XXH (( X 8@8>BJ @ @ @ @h @P @8 @ x@ @ @ @ @ @ @x @` H @0 @( @ p  pk$*\Rffff*St6c06f1fe"> ((  HX B `hpx "..  <8>  *@ p > >$ . <0 *H .x ,l 0t . ,l 0t@ &pl.*  $..0BH&h$|.0    ,(      08@ H$X hp  "x    B (.&. 0 @ P` "p  B  2 &"p  &     2 8   "  8 H X h]XAH1$v'{[  -by lot.xml'!s[ A@{[o p]]]]0]HMSXML2.DOMDocument$p.coa %.  /xml version='1.0' encoding='Unicode' %.  % B@#cells = Sheets(1).Range("A2:AB200")ӽڵ ٸproductAH2$v'ٸparameterAH3$v''X'  product %.  !%. $tNode.setAttribute "type", "program"head %.   !!%%.  !!%!%. parameters %.   !!%%.  !!%!%.  $> %.  %. X $> % B@   parameter %.  %.  !%.    $> %.  %.  X   $> % B@  '   'X..]` $'  A@..MsgBox xmlFile & ""iXʽxml,x]]Msxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'ix utf8BOMʽ ] .B@ 0 .(lutf-8 .(2 8 .B@4 , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:] > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@Bi3Attribute VB_Name = "Ϸʳxml" Sub T_create`() B Dim File As Sng4,_pathRange("AH1"nB 8=B+& "-by lot.?~d-C{Xmlp End  Function '(A  DocXObject0froo0tNodf headernew&6Set x B=X6("MSXML2.DOMAument /O.Ele("coa= 2.%$  8ProcessingInsHtruY("Ag,@ "vers]='1.0' encod@ ='Unie'.A:.ertBefore ,@.ChildAPs(0i 'cells@*Sheets(1).ő2:AB200 'ӽڵ4'ɀٸprod-m9x2EE arter y j3 y1D0 For i 1 To xnSnD)E | Lr.appetndP(DEP'!.set"type"8g$m7ocXN<.item(i - :_'!n!s!gH Kd?3pBs "s1ATFT18Te?Cs(1, F)l %Ve6T! UA (Tex(p+ Najey_oc @m@M6_B=son`]-WjeZ1? :A18 + ZqRx de!"/O0-Djyyl, E ? xqZ@#@$= y * _Noth pt`&uQ= PrettyPrint@0WrSUtf8WithoutBoFtml8 5wc'MsPgBox pʀɡb%  'ʽ ,h mldoc)"o#w/As2.(SAX0Rr.6.4M rC.indTrueomit Decflcr= W .contHandl= 4Parse 2TOutpu'q u"ހBOMs$m(BV,> 7(eamNew ADpODB.3# .6O Tp ad^Cht" -8dr 1P "AvbCrLfZ w 'ǰֽڣ0xEF,0xBBAFc Posi#3\0>t0#mc&.`Binarp'MWBa2 c$ CopyЮ Flushlos2CSaveTo1' ', a6daOO am.8Cck0Q=rjxME(` %` %Z 0%0@P`p 0@P`p 0@P`p 0@P`p 0@P`p k$*\Rffff*TA6c06f1fe "  ( @P h  x 0008 P`h* 8H h "   ( 0 H  ` p x  *    X8p P 8 <P     2   0 2H   B        @ ` h &    P@ H   XxD hX  0p *  z xp ~ 8h P  $00` 0 0P $ (0 X x  8 X x"00(0X00000H0x&&&& 0H&x& 4&&( DP D D D( Dp D D  H ZP *xF`" 008 P8`:888H((P (8@HPX`hp x0FX"@  h 0 0  !8!:H!8!8!8!(0"X"(`"P" """"#### # V(## H%0h%0%% %8%:(&8h&8&8&('8'(@'Ph' ''''''''( ((0(((X(P( "( ())) )()0)08)(h)P) )))**** *(* 0*  8*H*   ,P* *** "**"+ 0+H+`+ Ph+ J+ ,*(,X,h.R0Dh0N0r1,x1 10101(2@2P2h2 p222422h35R(7D7N7r8.8 80809@9X9h99 999499:<R>D>N(?x?.@ 8@0X@0@@@@@ A A(A0AHA,`AA,A AAAABB B B (B 8B HB XBhBpB$xBBBBBBBCCC(C0C8C@CHCPChCCCCCCCCCCCCCDD D(D0D8D@DXD`DhDpDxDDDDDDDDDDDDD \E N`E :E 0E 8 F  XF hFxF FZF G G G0G  8G   XG FhG G 0G G .G R H xH H  H BH  "H &I "@I &hI "I &I    I I J J (J @J PJ `J*hJ  J J嵥ļļرĻˢ´ (r$>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷ]D ]JSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B] ԭƷļ·һ ӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲·Qsrcpath = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstr & "\" \ͻģ\ B\ @\'JServerShare & " \ ͻģ \ " & customername & " \ " & wpstr & " \ ""[  @.xlsx  @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ  H' $x Ʒļ  @.xlsx  H.xlsxA@Hd A@ Ʒļ  @.xlsx  H.xlsxA@Hkxdp7繲ûжӦģļ,ǶӦģûзȷ·A@J| k   B@.kжһǷƷļ  H.xlsx$x] ģļ  H.xlsx %. %. ѡCOA ģҳCOA ģ$tB@HJ-----------------------------------------------1--------------------------' B@pѭsublotidSELECT c.ORDER_NO,c.SUBLOT_ID ,substr(c.SUBLOT_ID ,1,7) subid,TO_CHAR(c.PLAN_SHIP_TIME ,'yyyy-mm-dd') PLAN_SHIP_TIME ,c.sublotid,c.WAFER_COUNT,' 6TO_CHAR(miw.PACK_CMP_DTTM,'yyyy-mm-dd') PACK_CMP_DTTM,' YTO_CHAR(add_months(miw.PACK_CMP_DTTM,24)-1,'yyyy-mm-dd') PACK_CMP_DTTM2 ,ROD_USER_LOT_ID ' FROM (select ORDER_NO ,PLAN_SHIP_TIME ,SUBLOT_ID ,substr(subLOT_ID ,1,5)||'01'||substr(subLOT_ID ,6,5) sublotid,FILE_NAME,WAFER_COUNT from COCMEASSHIPLISTSTD) c ' "INNER JOIN MES_INTF_WAFRESULT miw ' ON c.sublotid=miw.subLOT_ID '  INNER JOIN (' lSELECT s.SUB_LOT_ID ,LISTAGG(ROD_USER_LOT_ID,',') WITHIN GROUP (ORDER BY SUB_LOT_ID )ROD_USER_LOT_ID FROM (' jselect SUB_LOT_ID ,ROD_USER_LOT_ID,row_number() over(PARTITION BY SUB_LOT_ID ORDER BY ROD_USER_LOT_ID ) rn' p FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN (SELECT SHIP_SUB_LOT_ID FROM MES_SHIPTAG WHERE CUSTOMER_SUBLOT IN (' )SELECT SUBLOT_ID from COCMEASSHIPLISTSTD ' BWHERE FILE_name in (SELECT DISTINCT FILE_NAME FROM COCMEASSHIPLISTSTD c2 INNER JOIN (SELECT SUBLOT_ID ,MAX(IMPORT_TIME) IMPORT_TIME FROM COCMEASSHIPLISTSTD c WHERE SUBLOT_ID IN (SELECT * FROM TEST2 )GROUP BY SUBLOT_ID )s ON s.SUBLOT_ID=c2.SUBLOT_ID AND s.IMPORT_TIME=c2.IMPORT_TIME) )) GROUP BY ROD_USER_LOT_ID,SUB_LOT_ID ' ) s ' group by s.SUB_LOT_ID' !) DR ON DR.SUB_LOT_ID=C.sublotid ' WHERE c.FILE_name=' Hn' GROUP BY c.ORDER_NO,c.SUBLOT_ID ,c.sublotid,c.WAFER_COUNT,miw.PACK_CMP_DTTM,c.PLAN_SHIP_TIME,ROD_USER_LOT_ID'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N'''AN65536$v%!'   NB3:AM $v.T T B@    $>B@  If a = 1 Then  ($>' )$>'L *$>'N ORDER_NO L%' sublotid L%' SUBLOT_ID L%' PLAN_SHIP_TIME L%' PACK_CMP_DTTM L%'X PACK_CMP_DTTM2 L%' WAFER_COUNT L%' subid L%'t ROD_USER_LOT_ID L%' $>     +>$>     +>$>     +>$>     +>$>     +>$>     +>$>     +> $>     +> $>     +>     +>     +>     +>     +>$>     +> X     +>     +>.Cells(A * (bb - 2) + teams, 27) = Cells(3, 27)     +> t     +>> Cells(A * (bb - 2) + teams, 30) = Cells(3, 30)> Cells(A * (bb - 2) + teams, 31) = Cells(3, 31)> Cells(A * (bb - 2) + teams, 32) = Cells(3, 32)> Cells(A * (bb - 2) + teams, 33) = Cells(3, 33)> Cells(A * (bb - 2) + teams, 34) = Cells(3, 34)> Cells(A * (bb - 2) + teams, 35) = Cells(3, 35)> Cells(A * (bb - 2) + teams, 36) = Cells(3, 36)S Cells(A * (bb - 2) + teams, 28) = rlotset.Fields("ROD_USER_LOT_ID") MNAPRESP1*1000;MNACPTRE1*1000SELECT min(MEAS_DATA) MEAS_MIN,max(MEAS_DATA) MEAS_MAX,avg(MEAS_DATA) MEAS_AVG,STDDEV(MEAS_DATA) MEAS_STDEV,count(MEAS_DATA) MEAS_PCS FROM ( ' SELECT ROUND(TO_NUMBER(MEAS_DATA),5)*1000 MEAS_DATA FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN (' ')) ' 7AND HIS_REGIST_DTTM IN ( SELECT HIS_REGIST_DTTM FROM ( ' SELECT WAF_ID ,max(HIS_REGIST_DTTM ) HIS_REGIST_DTTM FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN (' ')) ' GROUP BY WAF_ID ))) 'ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@ !MEAS_AVG %     +> MEAS_STDEV %     +>MEAS_MAX %     +>MEAS_MIN %     +>MEAS_PCS %     +>OK     (+>dPNG     (+>Y     :AC     $vB@H ! 9 9999q' k MNAPRESP1;MNACPTRE1eSELECT min(MEAS_DATA) MEAS_MIN,max(MEAS_DATA) MEAS_MAX,avg(MEAS_DATA) MEAS_MIN,STDDEV(MEAS_DATA) MEAS_STDEV,count(MEAS_DATA) MEAS_PCS FROM ( ' SELECT ROUND(TO_NUMBER(MEAS_DATA),5) MEAS_DATA FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN (' ')) ' 7AND HIS_REGIST_DTTM IN ( SELECT HIS_REGIST_DTTM FROM ( ' SELECT WAF_ID ,max(HIS_REGIST_DTTM ) HIS_REGIST_DTTM FROM F3PRD.DMS_C_HIS dch WHERE MEAS_ITEM IN ('MNAPRESP1','MNACPTRE1') AND WAF_ID IN (SELECT WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID IN (' ')) ' GROUP BY WAF_ID ))) 'ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@ !MEAS_AVG %     +> MEAS_STDEV %     +>MEAS_MAX %     +>MEAS_MIN %     +>MEAS_PCS %     +>OK     (+>dNG     (+>Y     :AC     $vB@H ! 9 9999q' k  MNAPRESP1;MNACPTRE1 MNAPRESP1*1000;MNACPTRE1*1000ecSELECT MEAS_AVG ,MEAS_STDEV ,MEAS_MIN ,MEAS_MAX ,MEAS_PCS FROM COCMEASDATASUBSUM WHERE SUBLOT_ID =' ' AND MEAS_ITEMS =' .' and FILE_NAME in (SELECT DISTINCT FILE_NAME FROM COCMEASSHIPLISTSTD c2 INNER JOIN (SELECT SUBLOT_ID ,MAX(IMPORT_TIME) IMPORT_TIME FROM COCMEASSHIPLISTSTD c WHERE SUBLOT_ID IN (SELECT * FROM TEST2 )GROUP BY SUBLOT_ID )s ON s.SUBLOT_ID=c2.SUBLOT_ID AND s.IMPORT_TIME=c2.IMPORT_TIME) and MEAS_PCS<>'0' 'ADODB.recordset$p. t (r6αͣ޷ x (v9αԣ޷  ~ B@ !MEAS_AVG %     +> MEAS_STDEV %     +>MEAS_MAX %     +>MEAS_MIN %     +>MEAS_PCS %     +>OK     (+>dNG     (+>Y     :AC     $vB@H ! 9 9999q' kk L  N      $> N $8 NG     (+>Y     :AC     $vB@HCells(10 + a, teams).Select ! 9 9999q     $> L $8 eNG     (+>Y     :AY     $vB@H ! 9 9999qkk LB@%-------------------------------------3: $B@H& rB@$ | B@vB65536$v%!' A2$vB@HA2:A $v B@   +>J-----------------------------------------------1--------------------------C--------------------------2---------------------------------------- Sub Wafer$tB@H$>RESISTAIL;RESISHEADSELECT 'COA ģ$t%>' S,'COA ģ$t%>D' T,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM,s.sublot_id,'$>O' y,c2.SLOT_NO,C2.WAF_ID ,substr( D.KEMLOT_ID ,1,3) KEMLOT,d.KEMLOT_ID,TO_CHAR(TO_DATE(TS,'YYYY-MM-DD HH24:MI:SS'),'yyyy-mm-dd') TS,d.KEMLOT_ID KEMLOT_ID1,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM1,(AVG(c2.MEAS_ITEM_233)+AVG(c2.MEAS_ITEM_234))/2 date1,(AVG(c2.MEAS_ITEM_229)+AVG(c2.MEAS_ITEM_230))/2 date1 FROM MES_SHIPTAG ms ' INNER JOIN (SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD zc WHERE FILE_NAME in (SELECT DISTINCT FILE_NAME FROM COCMEASSHIPLISTSTD c2 INNER JOIN (SELECT SUBLOT_ID ,MAX(IMPORT_TIME) IMPORT_TIME FROM COCMEASSHIPLISTSTD c WHERE SUBLOT_ID IN (SELECT * FROM TEST2 )GROUP BY SUBLOT_ID )s ON s.SUBLOT_ID=c2.SUBLOT_ID AND s.IMPORT_TIME=c2.IMPORT_TIME) ORDER BY SHIP_SEQ) s ON ms.CUSTOMER_SUBLOT =s.SUBLOT_ID ' DINNER JOIN COCMEASDATAINFOS c2 ON c2.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' 5INNER JOIN F3PRD.DLOT d ON d.SINGLE_NO =c2.SINGLE_NO ' ?INNER JOIN CUST_COCINFOENTITY@bip cus ON cus.lotid=d.KEMLOT_ID ' dGROUP BY ms.PKG_CMP_DTTM,s.sublot_id,c2.SLOT_NO,C2.WAF_ID ,D.KEMLOT_ID ,d.KEMLOT_ID,cus.ts,SHIP_SEQ ' ORDER BY SHIP_SEQ ,c2.SLOT_NO 'ADODB.recordset$p. t (r&αͣ޷ x (v)αԣ޷  ~ B@ ! $>B@@d Cells(meas, teams) = ""kh k` $>RESISTAIL*1000;RESISHEAD*1000SELECT S,T,PKG_CMP_DTTM,SUBLOT_ID,Y,SLOT_NO,WAF_ID,KEMLOT,KEMLOT_ID,TS,KEMLOT_ID1,PKG_CMP_DTTM1,TRUNC(DATE1,5),TRUNC(DATE2,5) FROM ( ' SELECT 'COA ģ$t%>' S,'COA ģ$t%>D' T,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM,s.sublot_id,'$>M' y,c2.SLOT_NO,C2.WAF_ID ,substr( D.KEMLOT_ID ,1,3) KEMLOT,d.KEMLOT_ID,TO_CHAR(TO_DATE(TS,'YYYY-MM-DD HH24:MI:SS'),'yyyy-mm-dd') TS,d.KEMLOT_ID,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM,(AVG(c2.MEAS_ITEM_233)+AVG(c2.MEAS_ITEM_234))/2 date1,(AVG(c2.MEAS_ITEM_229*1000)+AVG(c2.MEAS_ITEM_230*1000))/2 date2 FROM MES_SHIPTAG ms ' INNER JOIN (SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD zc WHERE FILE_NAME in (SELECT DISTINCT FILE_NAME FROM COCMEASSHIPLISTSTD c2 INNER JOIN (SELECT SUBLOT_ID ,MAX(IMPORT_TIME) IMPORT_TIME FROM COCMEASSHIPLISTSTD c WHERE SUBLOT_ID IN (SELECT * FROM TEST2 )GROUP BY SUBLOT_ID )s ON s.SUBLOT_ID=c2.SUBLOT_ID AND s.IMPORT_TIME=c2.IMPORT_TIME) ORDER BY SHIP_SEQ) s ON ms.CUSTOMER_SUBLOT =s.SUBLOT_ID ' DINNER JOIN COCMEASDATAINFOS c2 ON c2.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' 5INNER JOIN F3PRD.DLOT d ON d.SINGLE_NO =c2.SINGLE_NO ' ?INNER JOIN CUST_COCINFOENTITY@bip cus ON cus.lotid=d.KEMLOT_ID ' dGROUP BY ms.PKG_CMP_DTTM,s.sublot_id,c2.SLOT_NO,C2.WAF_ID ,D.KEMLOT_ID ,d.KEMLOT_ID,cus.ts,SHIP_SEQ ' ORDER BY SHIP_SEQ ,c2.SLOT_NO) 'ADODB.recordset$p. t (r&αͣ޷ x (v)αԣ޷  ~ B@ ! $>B@@dxCells(meas, teams) = ""kPkH$>MNAPRESP1*1000;MNACPTRE1*1000SELECT S,T,PKG_CMP_DTTM,SUBLOT_ID,Y,SLOT_NO,WAF_ID,KEMLOT,KEMLOT_ID,TS,KEMLOT_ID1,PKG_CMP_DTTM1,TRUNC(DATE1,5),CASE WHEN TO_NUMBER(nvl(c,0)) > TO_NUMBER(nvl(w,0)) THEN c ELSE w END DATE1 FROM ( ' SELECT 'COA ģ$t%>' S,'COA ģ$t%>D' T,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM,s.sublot_id,'$>X' y,c2.SLOT_NO,C2.WAF_ID ,substr( D.KEMLOT_ID ,1,3) KEMLOT,d.KEMLOT_ID,TO_CHAR(TO_DATE(TS,'YYYY-MM-DD HH24:MI:SS'),'yyyy-mm-dd') TS,d.KEMLOT_ID KEMLOT_ID1,TO_CHAR(MS.PKG_CMP_DTTM,'YYYY-MM-DD') PKG_CMP_DTTM1,(AVG(c2.MEAS_ITEM_233)+AVG(c2.MEAS_ITEM_234))/2 date1,TO_NUMBER(MEAS_ITEM_689)*1000 c,TO_NUMBER(MEAS_ITEM_857)*100 w FROM MES_SHIPTAG ms ' INNER JOIN (SELECT SUBLOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD zc WHERE FILE_NAME in (SELECT DISTINCT FILE_NAME FROM COCMEASSHIPLISTSTD c2 INNER JOIN (SELECT SUBLOT_ID ,MAX(IMPORT_TIME) IMPORT_TIME FROM COCMEASSHIPLISTSTD c WHERE SUBLOT_ID IN (SELECT * FROM TEST2 )GROUP BY SUBLOT_ID )s ON s.SUBLOT_ID=c2.SUBLOT_ID AND s.IMPORT_TIME=c2.IMPORT_TIME ) ORDER BY SHIP_SEQ) s ON ms.CUSTOMER_SUBLOT =s.SUBLOT_ID ' DINNER JOIN COCMEASDATAINFOS c2 ON c2.SUB_LOT_ID =ms.SHIP_SUB_LOT_ID ' 5INNER JOIN F3PRD.DLOT d ON d.SINGLE_NO =c2.SINGLE_NO ' ?INNER JOIN CUST_COCINFOENTITY@bip cus ON cus.lotid=d.KEMLOT_ID ' GROUP BY ms.PKG_CMP_DTTM,s.sublot_id,c2.SLOT_NO,C2.WAF_ID ,D.KEMLOT_ID ,d.KEMLOT_ID,cus.ts,SHIP_SEQ,MEAS_ITEM_689,MEAS_ITEM_857 ' ORDER BY SHIP_SEQ ,c2.SLOT_NO) 'ADODB.recordset$p. t (r&αͣ޷ x (v)αԣ޷  ~ B@ ! $>B@@d?Cells(meas, teams) = ""k>k>  !OK +> $> $>NG +> $> $> <%vB@H ! 9 9999q= r( r( r( r( r(k==A2:N ! $vB@H % ( % (  %  9 9 9 9 q< %  9 9 9 9 q< % ( % (  %  9 9 9 9 q@< %  9 9 9 9 q< %  9 9 9 9 q; %  9 9 9 9 q; %  9 9 9 9 q@; %  9 9 9 9 q;V OriginFilePath = ThisWorkbook.Path & "\ͻģ\" & customername & "\" & wpstrH With excel.Workbooks.Open(OriginFilePath & "\" & FileName & ".xlsx")4 Windows(FileName & ".xlsx").Activate) .ActiveSheet.Cells.Select1 Selection.NumberFormatLocal = "@"ļ z.   !t B@ !\- H !H Z , zB@Ϊxlsxʽ (r zB@ zB@B8 End Withcsvļ@ Set p_workbook = Workbooks.Open(ss & FileName & ".xlsx")) Application.DisplayAlerts = False( Application.DisplayAlerts = TrueK-----------------------------------------------2---------------------------k7 <B@dataworkbook.Save<p_workbook.SaveAs ss & FileName & ".xlsx", xlOpenXMLWorkbook Columns("AM:AM").Select Selection.Delete Shift:=xlUp Columns("AL:AL").Select Selection.Delete Shift:=xlUp Columns("AK:AK").Select Selection.Delete Shift:=xlUp رչdataworkbook.Closep_workbook.Close5Ļˢ´ (rA@̩о H resļA@Jo`5X5Attribute VB_Name = "ģ1" Sub о() '嵥ļ  2'رĻˢ ´Z Application.ScreenUpdngo False'FileTrim(Cells(1, 2)w If $"" Then< MsgBox ("г"I(`Exit oE nd/conn ectDBSet wp= CreateObj("ADODB.records et..Cur@sorTypadOpenSt{c 'αͣ޷ "LoadUseClient!#ԕ#Dim pdsrc As Sngk wpsqlv!!Ʒss aaARangoSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &G|& "' GROUP BY J?@AwO]n9, csDBCCv7Whw.EOF <> TrueAжΪ0һGE'̡@trhFields("* 'õ˾"AcustomernCB("7Áp@vpathhAsԭā/·'ӵa+H< \\10.A52.142\coc\. ServerShar112`ģ@\radminis@tratorP0assw`o."fthw-82905028hI@Foldersts()(%DEe@ 0 El%t Net k# Wipt.)Aafsoing.Sys8tem# -.MapDrive "",)2, ®, ,, %)Kg .1)'%F+aK'ES=+isWorkbook .PUy\ʠͻ!@\a}_!jg G )M 'l \ AODebug.Prvi&@ Z".xlsxqTV'汾<؋1!5 _1? a0'8FWxml_J= \[}9ssA5a2Copy /~,[/O>qC=MultiLevel ( ?!2o !o "81@ d":ûжӦ7^,$*{A0,CUR.Remove K8,y$K[aSdvWNothS tһٱ/-9s`$12k2C=+za=bbPA{eQ 'u'A:= %s./  Ex@celSheP= .qs`X 'ѡCOA a ҳ").Sels `'-1Gxxt8k .ActivP ѭsublotidŹ!@1P"c.ORDѮO,c.SPUBLO,str(:1,7) id,TO_CHARPLADN__TI'y-mm-dd') c.R WAFCOUNT,: bP)miw.PACK_CMP_DTTc2e@*NwJO<%,MAX(IMPORT_TIME) WGT7* TEST2 )Ø )s @|«C=c2AND!) ))  HrV) sX^group b&yDR4DRH=C.sublotidxc.Fy='"FileBN|& "':c._NO,cKGE @WAFTCOUNT,miw.PACK_CM@P_DTTMPxLANB[=mtS@et ids= CreateObj@|("ADODB.recor9").CursorType = adOpenStatic 'ͣ޷ Locon UseClienBtg  ., cs@DBConni on9_id_cou =R VCa#B3Cc@0CsGbb` Range`)N65536").End(3).AA)For A1 To G%.5ss3' B3:A2MIbb4@.Copy Cells(A * (- 2) + 3,.PasteSpecial " K 'EIfd ahe(t(eam!3bb/, 4B0xiax1h-O2Pn ZFields("`!D?eueN chpuhuo>> zibaCo @zhiF2 shul>iHKpub`TP M/ O0@0(1?QR2b1#3)3(8e0]45566u778]8991011B&>&E4 :;K&1_&5@+ .1b&I&۳I'2)3lE//(idtu)3rxH} #!It_&3 auLQQQ+Q[+3Q+Q3Q !'GG2Or.5&ER_LOT_I@D") If team = "MNAPRESP1*1000;8CPTRE8" Then vmeassql~SELECT min(MEAS_@DATA) M@IN,maxA X,avgAVG,STDDEVEV,countPCS FROM ( "Z& "ZROUND(TO_NUMBER,,5)di1F3PRD.DMS_C_HIS dch WHEREITEM IN ('',') AND WAFɏDbCOC9INFOS c10SUB1" & "'))!0_REGIST_DTT.~ D$3X5BM)N XXIDX"BG@P BY{))RgSet B= CreateObject("ADODB.recordsetM.Curso rTypeadOpenStatic 'αLf|et L$oc@ onB UseClient' ? C!ql, csD BConn@io_a/@ R%C <> 0Cells(A * (bb - 2) +Bs, 25) Fields("" 0: 66  7v XMAX? 0 87 IN? 0 96 ? / D40! "OK0E8lse3Yy3$ NG0 !ERange("YE:AC).Sel Z`With @^.InteriorÓ.Pat`pxlSolidColorIndex`-xlAutomQAR"255_VTintAndShadG0d ypEnd Qa 1If{Q!P1O@OOOp@8Oq@@?OS_@OGOC E OO@#t "!5_wה2NADC%z@7cBk(d;o @?2M~ _ X 5P%_f ? 3 1ms, 40) = "NG"  Range("Y" & A * (bb - 2) + teams,":AC<).SelectAWith  ion.Interior,.Pa t#nxlSolid+Colo@rIndex5AutomaticG9255TintAndShade0[End 'aM71If E lseIf <`> "" YMNAPRESP1;@CPTRE1U*1000 @" ThenO"m@eassql)"SELECT MEAS_AVG ,BSTDEVHMINEAXDPCS FROM COC DATASUBSUM W HERE LOT_ID ='& "' ANDITEMS#' aXFILE_NAME in ()DIpSTIN,!S0HIPL/ c2 INNER JO@0",MAX(IMPORT_TIME) /J7J8* TEST2 )GRO UP BYC)s@ ON s.F!=c2Es.!)"#"4 0<>'0' Set B<= Crea teObj|("ADODB.recordset")C!y.Cur@sorTypAhadOpenSts 'ͣ޷A orLoc@ oadUseClient' ?  .!ql, csDBConn@ srR%Cou s0jaCells(, 25 Fields("9n0: 66 w MŠ7v `e? 0 87 IN? 0 96 @b? / DOK0iFy3$ >}O{#0SO{O{ O{O{O{J .O{ ./x_ O{YO{O{|pCxiax|Or sh?xEp$c9> Val()OHr)??/?&)-' 10p a,Ҏs_]--=-:.@xl_O.o.ク.?/d""2[ 0hӁf1).CopyFrom#CElse'a, t@eams) @ "Endrss*1000'ttytS,T,&B,Y,Ekk,dicmd,e1jeRUNC(j1,5h),T2J(A~\~("~~, ~~~4~0~~~~T2$~ч~y~ID}}}#}2.(29'~Ђ0Ł2 o~1 =:uwno~7o~o~o~THo~STo~3o~o~Toio~o~o~o~' o~eo~o~o~e${o~o~o~B!o~o~C  o~o~to~+˰o~EA ,o~>o~3o~)~th~~En~~~~~~~u~~? ~6!~~ضt Elseh'Cells(meas, teams) = ""nd If,E$If h2, 14)ZMNAPRESP1*1000; CPTRE" 0Thengsql3SELECT S,T,PKG_CMP_DTTM,SUBLOT_ID,Y,S @NO,WAFK4EM,TS 1 F1,TRUNC(DATE1,5),CASE WHEN TO_NUMBER(nvl(c,0)) > w Tc ELw END ' FROpM ( i& "n'" & Sheets("COA ģ").3, M'7)%"' T,`CHA R(MS. 'Y-MM-DD') s.sublot_id,Bp5y,c2.\C2.\ , str( D.] ,1,3) ,dF&@(J(h% HH24:MI:SS'),'y-mm-dd?@+@ xrO_l;1,(AVG(3MEAS_ITEM_233)+P4))/2 d8ateBD 68d9)B cA78$57 wMES_SHIPTAG msڈINNER JOIN (E_SEQ1CCOC$LISTSTD zcRE FILE_NAME inFD ING#V0 c2 Y ,MAX(IMPORT_TIME)~ y *TEST2 )GROUP BY g)s ON 4s.&=S# A9`qs.) xORD+ 1!)) b ms.CUS@TOMER_ >= ?6#6(\AINFOS ( _ID = 9UBe0F3PRD.D dA!@d.SING=O b! BL_ENTITY@bip cu".id=pY 6`V!a!`HJ ",ts,C&EQ,pn4n? )ESet B = CreObject("ADODB.recordset")et.Curso rType@adOpenStatic 'αDLoc@onB UseClient' = !ql, csDBConn@ioD.Rb CouP<> 0z1a1jopyFrom# τττ DŽFor0 wafW2 ToY s kOKT*v@j Or$gW#NG$!A ctive2}.R ange(} ),)).Sel 1With .InteriorK.Pat1"xlSol id?5Colo@rIndex xlAutom)&.55.TintAndShadq.0/%A 5CWindow.Scrollum og4= 3o1o= 2oo= 1c+Nexr `"A2:N!6t + 4I wBPFers(xlDiagonalDown).LineStylxlNonUpu&gEdgeTp_wke$bsshZ@A#DisplPayAls Fal't)-)2&a#$If"wp`.Move*7#'@;~aE""Q%S#, nNC umns("AM:AM,")~'}Dte@ ShiftYUp/L:AL?9K:AK?)%*'!'رաk*L\'H+!HWend$'Ļˀ´)O:s'3%ScA6DBMsgBox "@̩о|E"res3dV$Sub3fkIleubxml(0)͑^NVubxml4IngotPage1-/%IngotPage2')" xME(<6 <<$. pp` ` x` VVi` ` ` ` ` `+ ` I `  `" `x iHi, .% <% xpH% xp0 xpX xp xp xp xp xp  xpH xpp xp xp xp xp xp8 xp` xp xp xp xp xp( xpP xpx xp xp xp xp xp@ xph xp xp xp xp xp0 xpX xp xp xp xp xp xpH xpp xp xp xp xp xp8 xp` xp xp xp xp xp( xpP xpx xp xp xp xp xp@ xph xp xp xp xp xp0 xpX xp xp xp xp xp  xpH xpp xp xp xp xp xp8 xp` k$*\Rffff*Sr6c06f1fe" (  @P B X`hpx "  < *8h *  &$( P  Xx  &$  @Xp  &  : 8`  : 28HX   r $P x      "    B @HP(X&      B   ( 8H`  & 0  8  H  X h  x       ]XAH1$v' .xml'+ A@+o(p]]]]0]HMSXML2.DOMDocument$p.coa %.  /xml version='1.0' encoding='Unicode' %.  % B@#cells = Sheets(1).Range("A2:AB200")head %.  !%.$tNode.setAttribute "type", "program"  $> %.  !!%%. $> % B@ description %.  !%.  $> %.  !!%%. $> % B@products %.  !%.AH2$v'hAH3$v'  hproduct %.  !!%%.  $> %.    !!%!%%.    $> % B@` parameters %.    !!%!%%.       parameter %.    !!%!%!%%.  $> %.          !!%!%!%!%%.  $> % B@   ..]` $'  A@..MsgBox xmlFile & ""iʽxml,x]]Msxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'i utf8BOMʽ ] .B@ 0 .(lutf-8 .(2 8 .B@4 , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:] > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@Bi( :Attribute VB_Name = "оxml" Sub T_create`() B Dim File As Sng4,_pathRange("AH1"nB 8=B+& "./8w]&CtXmli End  Function '(A# DocOb0ject0bro`otNodc h eadernew&6Set xB=X6("MSXML2.DOMument^ O.Ele("coa{ 2.%$  8ProcessingInstruY("Ag, "vers]='1.0' encod@ ='Udnie'.A:.ertBefo(re ,@.ChildAPs(0i 'cells@*Sheets(1).2:AB200EE`EI e F.apphend$($'! .setG"type"BprogramƬFor t/1 To .7YZ+CA>(1, t)D8-GP.itemQ119 (4ITexu(2N/descrips0Yu@*8*18 @*dR*@PC*\*) _)`Ld ps(B@M8YeJsublotcounT24H3#0s[  $Z[2)D! D19D20  -E!BcF` '|- zI yt(D * 6+ Gw '(N /}epaMet^Soocjf3o5 .d*G i.2 <+ + V* + 1% `5}5O)NT_+ S9+2c265z+c +r#/+O+s#/ i - (mBE)/*! /0ojtdeUifja. i i!sq! "Noth@5$`&Q= PrettyPrinNt` 4Wr*Utf8Witho0utBomlX A_1wc'MsgBoxŲ x!óE  'ʽ ,0 mldoc)B@w.Aнްs2.SAXPRr.6.4mMrC.ind/Trueomit 0DeclO= W .cont Handl= 4Parse?[TOu8tpu) u"BOM$m(, 7(st mNew ADODB.3# .O T9 adCh" -8Cr 1 "g"7,UTF k?>AvbCr|LfZ w 'Ƴǰֽڣ0xEF,0xBbBAFc Posi#30>ea0c&.Binary-MSBa2 ]c$ wCopyTo newStream( sX.Flush DCloseDP.SaveToFile Name, ad,CteOverWritxrcfEnd Function b0-bxMEX<6 <`<<< <(<0<8<@BJ  @ @ X@h @P @8 @ @ @ @ @  @ @x @` PH @0 @ ( @  k$*\Rffff*So6c06f1fe">>(>@TX   B >"..8  P <8`> *.< *  &P lh&`$r   .< $ 0lP&`p$r. <>> 0$P.h &` V l:80 h .p: 2|.H(Vp  l r $r( P ` p   $   "    B (08(.@&.h    "  B    2   0 &H "  &       0  2@ 8P  `  p "       ]XAI1$v'micAI7$v' m/oAI5$v' ead ( )AI6$v e-COA format- ö.xml' A@o8p]]]]0]HAI4$v'MSXML2.DOMDocument$p.coa %.  /xml version='1.0' encoding='Unicode' %.  % B@#cells = Sheets(1).Range("A2:AB200")head %.  !%.$tNode.setAttribute "type", "program"  $> %.  !!%%. $> % B@  description %.  !%.  Debug.Print Cells(1, t) $> %.  !!%%. $> % B@8products %.  !%.AI2$v'hAI3$v'ѭsublotcount 2,30,58  hproduct %.  !!%%.     $> %.    !!%!%%.    $> % B@ parameters %.    !!%!%%.       parameter %.    !!%!%!%%.     $> %.          !!%!%!%!%%.  $> % B@    2-30 0-28..]` $'  A@..MsgBox xmlFile & ""iʽxml,x]]Msxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'i utf8BOMʽ ] .B@ 0 .(lutf-8 .(2 8 .B@4 , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:] > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@Bi@8XAttribute VB_Name = "xml" Sub T_create`() B Dim File As Sng4,_pathRange@("AI1"nPLAN_SHIP@_TIME1 #7#wafercohunt 5v=i& "(" l& ])6")&" e-COA format-9ö./2ujCXml{ End  Function (S# DocOb0ject0ro`otNod h eadernew&sg V4VSet x&=D1C ("MSXML 2.DOM@umxent ,d.ÊEle ("coaC C9. s@$ =ProcessingInstru^("Al, "versb='1.0' encod@ ='Unie' .A:.ertBRe@e ,@. ChildAUs(0n 'cells@*Sheets(1).E2:AB200A9EeEI j F.append$($B' .set" type"Bpr ogramƱFor 1 To .5,G-C!(1, t)$A'(.item( (4ITexu(2N/descripv0Yu@*6*s'Debug.Pri'_f(-"m(V-SF-a_-G- ,OdssA,Bh;?]esublot27!L3'ѭ 2,30,58`bsb ?_D $b2)K K+ "w"4  ?2JQ? @^Y%0 m - '1$+B/?>o4'($ * +pH3h)Opq}ipaQetboocno/5o5 /dT, E aiP02 + Ͽ0C Z*  `77)T~4,Z,5R13~ ,cl ,r/O,O,_s# s i - (m"H>)! 0nde]0in. d Z i!s'2-30 0-20N3;#NothpSdq`&ЖQ= PrexttyrnбR dWr,Utf8WithoutBo6@ml b2wc'MsgBox5Q3  'ʽ , mldoc)wA@ 1s2.SAXRr.6.ڤ4MraC.ind0Trueomit DeclP = W .contHandl= 4Parse]TOutpu0* u"BOMp$m(2V, 7S(st mNew ADODB.3# .O T ad,ChQ" -8r 1 "AvbCrLf stream.WriteText conte nt  'Ƴǰֽ0xEF,0xBBFLPositio`n = 306Dim newS As New ADODB.6&A".TypeAadBinary1 "Mod"Re ad %OpenCopyTo Flush lose QSaveToFile NameP, ad CteOverJ1'C3End Fu$nc       !"#$%()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgijklmnopqrstuvwxyz{|}r  fpMvXKՈh*=h8+3qQK1A9dpxQK1A9dpMvXKՈhME(SS S6"N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} ` X8hhIR xIf ` %(%(8PP`p(8HXh 0HH``p((@@P`xx(8PP`p 0@Phhx@8k$*\Rffff*TO6c07d7ed`i " 8P hx & ** *P LLL(pxr L`LL`P` 4(`hpx     <. <P.<.<0.p<.< .`<.< .@  p 6x . 6 . 6H . 6 .  <0 .p < . < .P < .    6 .8 6h . 6 . 68.p6. 6.P 6. 6. P` hpװҳr_ms COCļ$tB@H7lA1$vB@Hver_ms  %B@H6'!S !'8  ' F'[ Ingot-list page 1(1)$t!'f   $>!x $>(x $>!x $>(x $>!x $>(xx$t%>!xIngot-list page 1(1)$t%>(x $t%>!x Ingot-list page 1(1)$t%>(x $t%>!x Ingot-list page 1(1)$t%>(xD4:D  $v$t!!% Wafers Ingot-list page 1(1)$t%>(xB4:B  $v$t!!% cassettes Ingot-list page 1(1)$t%>(x$t%>!xIngot-list page 2(1)$t%>(x $t%>!x Ingot-list page 2(1)$t%>(x $t%>!x Ingot-list page 2(1)$t%>(x Ingot-list page 1(1)$t%>!x Ingot-list page 2(1)$t%>(x Ingot-list page 1(1)$t%>!x Ingot-list page 2(1)$t%>(x   f   R$%t f$tB@]'       ' '  ' A :A    $t%vB@ "A28  f  $t%vB@ B :B    $t%vB@ "B28  f  $t%vB@ C :C    $t%vB@ "C28  f  $t%vB@ D :D    $t%vB@ "E28  f  $t%vB@    'A :A    $t%vB@ "G28  f  $t%vB@ B :B    $t%vB@ "H28  f  $t%vB@ C :C    $t%vB@ "I28  f  $t%vB@ D :D    $t%vB@ "K28  f  $t%vB@ dA :A   $t%vB@ "A28  f  $t%vB@ B :B   $t%vB@ "B28  f  $t%vB@ C :C   $t%vB@ "C28  f  $t%vB@ D :D   $t%vB@ "E28  f  $t%vB@     'A :A    $t%vB@ "G28  f  $t%vB@ B :B    $t%vB@ "H28  f  $t%vB@ C :C    $t%vB@ "I28  f  $t%vB@ D :D    $t%vB@ "K28  f  $t%vB@ kdA :A " $t%vB@ "A28  f  $t%vB@ B :B " $t%vB@ "B28  f  $t%vB@ C :C " $t%vB@ "C28  f  $t%vB@ D :D " $t%vB@ "E28  f  $t%vB@  # 'A :A " $t%vB@ "G28  f  $t%vB@ B :B " $t%vB@ "H28  f  $t%vB@ C :C " $t%vB@ "I28  f  $t%vB@ D :D " $t%vB@ "K28  f  $t%vB@  # 'koAttribute VB_Name = "IngotPage1"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustomiz E'װҳ Sub (currentFilep, 1Index)heets("COCļ").Select Range(" A1 ion.End(xlDownloadBoxLotRowrow.q- 43- Int(-H / 701*Debug.Print ( C=SD=B-list pA 1(1)9iGCFor iA 4 To )1 Cells(i, 1).Valu+ 0 2  4  xNexrC?+8, H 5).F;&9@10  H?11 "Applicat^WorksIFunc"Sum(eD4:D" &E))" WafersF?2)J12.zB4:Bycassette[;2ceBEb oc E_ f E EEEi@\ hC 2BcR".Copy After:=MbooksH + -+ ADim i!T mp Astegerc=`E 1O 1 IfZ Then@remain`i]\lefntPQhW/V SQRT`'Mod 2; d0? dA55x;&& "d:A+  -qhi`I28`'PasteSpecial xlmsO F  s  ot| B  6 C  C   Bf   a E  c =G>< $^k./__d _^G__c //DH:   H  Z // `  I   s(P//  P  K   Ed\oto_-\-  A d c -- z_Q;TQa\).PasteSpecial xlpValues Sheets(4).Range("C" & ingotT$mp": "+ remainLotleft).Copyi + IL1Index - 1i28" ?].ߋc? ދO\? ? > .? > \? { Op'y.^N ext Sub  @ + p>Y 'K@yI*=h8+3q 0n8gDdh>x 0n8gDdh>>Y 'K@yIME(PSS S<6"<0<8<$N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} ` X8IR xIH Ih  %( %(8PP`p(8HXh 0HH``p((@@P`xx(8PP`p 0@Phhx@8k$*\Rffff*TP6c07d7ed`" &0 8^H  4@  HPX p     FF(p  FF h x FF` p  FF hx FF h x FF` p   FF`p FF ` p        F F `  p            F F h x           F F( p            F F0 x               Ingot-list page 2(1)$t!'hmsA@z.040'!S3select * from COCMEASSHIPLISTSTD where FILE_NAME =' H ' order by user_lot_id '  ~ B@ !' i'   h   R$%t h$tB@''       ' '  '   '  %b USER_LOT_ID %A   h  $t%v(x WAFER_COUNT %C   h  $t%v(x  '  '`kX B@@8 %b USER_LOT_ID %E   h  $t%v(x WAFER_COUNT %G   h  $t%v(x  '  'hk` B@H@ %b USER_LOT_ID %I   h  $t%v(x WAFER_COUNT %K   h  $t%v(x  '  'pkh B@PH e %b USER_LOT_ID %A   h  $t%v(x WAFER_COUNT %C   h  $t%v(x  '   '`kX B@@8 %b USER_LOT_ID %E   h  $t%v(x WAFER_COUNT %G   h  $t%v(x  '  'hk` B@H@ %b USER_LOT_ID %I   h  $t%v(x WAFER_COUNT %K   h  $t%v(x  '  'pkh B@PHd@ %b USER_LOT_ID %A   h  $t%v(x WAFER_COUNT %C   h  $t%v(x  '   'hk` B@H@ %b USER_LOT_ID %E   h  $t%v(x WAFER_COUNT %G   h  $t%v(x  '   'hk` B@H@ %b USER_LOT_ID %I   h  $t%v(x WAFER_COUNT %K   h  $t%v(x  '  'pkh B@PHk@d8 %b USER_LOT_ID %A   h  $t%v(x WAFER_COUNT %C   h  $t%v(x  '  ' >'(XkP B@8(0 %b USER_LOT_ID %E   h  $t%v(x WAFER_COUNT %G   h  $t%v(x  '  ' >'PkH B@0( %b USER_LOT_ID %I   h  $t%v(x WAFER_COUNT %K   h  $t%v(x  '  ' >' Hk@ B@(  k B@B ~B@BoAttribute VB_Name = "IngotPage2"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustomiz ESub (curre@ntFilek, 2Index) [Sheets(-list p 2(1)").iconnectDBSet rs New ADODB.Recordsetsql"sel * from COCMEASSHIPLISTSTD where FILE_NAME ='" F+0"' er by user_lot_idv3rs.Open , csDBC*ion, 3, 2C#inLotCount% + - Int(-K/ 105SCFor i@ 2 To ? +[Ie.Copy After:=Workbookst).AFi - 2D"N TruE5i In- 1).Range( "A" &E).0Valua@SFieldrUSER_LOT_ID"'!  "C~ WAF COUNTy &+=F@1+Fo BE4oF a 2'$UMGonE4wEnd Ifa-Moveg Loop E4:C 5"ECC "GCCa ChC !{!5! >! !5!R!C1xS}wCICCtKC!tC!]C9߱!!6!!!!6!EЦ gpwt##V##OgOgOg|Og#?####+ j$?$7$$E$7E!!e?>g!!|g!FO!!*!E<!_!!E!8!!!Vg!!|got2Index - 1).Range("K" & inLot).Value = rs.Fields("WAFER_COUNT") #x+ 1`Ifw3endLine Then3{ h28*GoTo E9$End IfMoveNextLoop E9: 0ElseaDo@ WhileEOF() <> 8TruSheets(i +, IאAUSrLOT_IDrCC6s C$CÎ10oE ? E10L=QE?D?DA?D"G?D?a ?Dh3?DA 1X?Dߋt11?D.#6"I?D?D  7=Ww C&2 σ12CMNϟEg$ ??g?gc?>f??XlottmpP!Ϧ#62g@#8D#t"o"C ?qBc ~ca?>_c8ZCotp/A ?4~`6 $ǿ8/#=g3=f3X^GcClocsDBConnection.Sub KfNS!jglot_id.4'hsubcocfPageh*KfNS!jglot_id9e13`createPolderk \xME(` %@ @ @ "@%@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0k$*\Rffff*Sp6c06f1fe"  ( @P h x 0008P*  0 Ph  "   (  0  H X ` h *   8<8x  <  f( v BX`  h x   ,&0@ P`h 00H2`      D RH   D R X `  Dh    0     F0  x  P     d0  0 0   0 @ X  ` p     (       0 @ HP &h @0`0 24@ x* B ( 0(@ h$   "   6 0 8 &@(,h 00 0 H "`    2.  0@ H (` (  00P0   "    0 2@.x            <( h      t x (  JH F    ( ! J"  ## (# ( @# J$ 8% @% X%  `%0%0% %& & (&:8&x&& &&& && & $'$('$P'$x'&' ' ' "'( ( 0( 8(H(P(  Pp( J( ) ,()X) 0p)) )) )8) (*8* P* `*  x*0*2* 4+"8+B`+ ++ ++, ,&8,  `,p,  x, ,0,2,(- .. //$8/ `/p/  x/ / / / //// 00 080 H0X0`0x000000 00 11  1 @10`121X1 20222"p3:303,484 P4 h4x404.4 45 5 (5 85X5p5 50505 (6 B8 H8X8    p88&8 88 8 89 989 R@99 9 999 9$9  :8:T@: : : : : ; ;8; &P; x;N;;< < <  <8<P<h<  < @< <  < < = = = 0= @= H= `= p=x== =嵥ļļopeرĻˢ´. (rark$>$'H H00嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'F *!\ͻģ\ B\ @\'[  @.xlsx F @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ_FileCopy network & wpstr & ".xlsx", srcpath & Vendor_Code & "_" & PLAN_SHIP_TIME1 & "_001.xlsx"oFileCopy network & wpstr & ".xlsx", srcpath & Vendor_Code & "_" & Part_No & "_" & PLAN_SHIP_TIME1 & "_001.xlsx"d7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.k` F @.xlsx$x%ģļ,ȡverder_code po F @.xlsx %.& &%B@pF5$v'(F7$v'* ȡʱJSELECT PLAN_SHIP_TIME,FILE_NAME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' H''ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@PLAN_SHIP_TIME \%yyyyMMdd$'  &B@ &B@B ƷļжϱǷӦļ $x F @.xlsx  (_  _001.xlsxA@H F @.xlsx  (_ *_  _001.xlsxA@HdX A@ F @.xlsx  (_  _001.xlsxA@H F @.xlsx  (_ *_  _001.xlsxA@Hkd:繲ģļûзڶӦλãӦ·ûģļA@J|Hk@жһǷƷļ  (_  _001.xlsx$x] ģļ  (_ *_  _001.xlsx %. %.J-----------------------------------------------1--------------------------' B@p %B@pѭlotid<SELECT LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H' GROUP BY LOT_ID ;'ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id] L!f'lot_id-1 ϱ ȡҪ D1$v%!'P$> P$>$vB@ P'R T N R $>B@  R P 'R'X  N SUBLOT_ID,,PO_NO,Ship_dateiSELECT SUBLOT_ID,WAFER_COUNT ,PLAN_SHIP_TIME ,ORDER_NO,LOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' H' and LOT_ID='  $' 'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@Debug.Print Sql1  \! SUBLOT_ID \%  X +> WAFER_COUNT \%  X +>PO No.ORDER_NO \% X +> Shipping DatePLAN_SHIP_TIME \%yyyyMMdd$ X +> \B@ Batch No.  $ X +>Batch Quantity \! X +>'''''''lot_id P 'X  '/''ѯHIS_REGIST_DTTM дװʱ----- MFG Exp'X' װʱ䣬sublot_id,wafer_count  SELECT * FROM ( SELECT LOT_ID ,CUR_SUBLOT_WAF_CNT,manufacture_date,expiry_date ,ROW_NUMBER() OVER (PARTITION BY LOT_ID ORDER BY manufacture_date,LOT_ID ) rn FROM (  SELECT LOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyyMMdd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyyMMdd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG')and his_cat = 'OC' and LOT_ID in( F SELECT DISTINCT LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H'  )))WHERE rn =1 'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@Debug.Print sql1  \!'''''''lot_id'MFG,EXP \!',manufacture_date \% X +> expiry_date \% X +> \B@ P 'X  ' Debug.Print sql1 "''lot_idб²װʱ N ,'X'  RSELECT DISTINCT t1.LOT_ID,CUR_SUBLOT_WAF_CNT,manufacture_date,expiry_date FROM ( SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H'  ) t1 JOIN (  SELECT SUBLOT_ID,LOT_ID ,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyyMMdd') manufacture_date, to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyyMMdd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG') and his_cat = 'OC' and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H*' )) order by SUBLOT_ID, his_regist_dttm , )t2 ON t1.lot_id=t2.lot_id ORDER BY LOT_ID 'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@Debug.Print sql1  \!'''''''lot_id'MFG,EXP \!',manufacture_date \% X +> expiry_date \% X +> \B@ P 'X  ' Debug.Print sql1k ''ѭ]'. .$> .$>Ӧ .$>;$' ־λжּ$ 0%' ȫ ȫsql  H %'   ǿ  Notchλ Epi  esql  H %'   !SELECT qwe.LOT_ID,qwer.* FROM ( o SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c j LEFT JOIN ( SELECT LOT_ID,CASE WHEN CUSTOMER_LOT IS NULL THEN LOT_ID ELSE CUSTOMER_LOT END CUSTOMER_LOT H FROM MES_SHIPTAG ) ms ON c.LOT_ID = ms.CUSTOMER_LOT WHERE FILE_NAME =' H' ORDER BY LOT_ID  )qwe LEFT JOIN ( '  6 )qwer ON qwe.LOT_ID=qwer.LOT_ID ORDER BY qwe.LOT_ID '  ǿ  Notchλ Epie̳  H %'   !SELECT qwe.LOT_ID,qwer.* FROM ( o SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c j LEFT JOIN ( SELECT LOT_ID,CASE WHEN CUSTOMER_LOT IS NULL THEN LOT_ID ELSE CUSTOMER_LOT END CUSTOMER_LOT H FROM MES_SHIPTAG ) ms ON c.LOT_ID = ms.CUSTOMER_LOT WHERE FILE_NAME =' H' ORDER BY LOT_ID  )qwe LEFT JOIN ( '  6 )qwer ON qwe.LOT_ID=qwer.LOT_ID ORDER BY qwe.LOT_ID '  e  H %'   !SELECT qwe.LOT_ID,qwer.* FROM ( o SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c j LEFT JOIN ( SELECT LOT_ID,CASE WHEN CUSTOMER_LOT IS NULL THEN LOT_ID ELSE CUSTOMER_LOT END CUSTOMER_LOT H FROM MES_SHIPTAG ) ms ON c.LOT_ID = ms.CUSTOMER_LOT WHERE FILE_NAME =' H' ORDER BY LOT_ID  )qwe LEFT JOIN ( '  6 )qwer ON qwe.LOT_ID=qwer.LOT_ID ORDER BY qwe.LOT_ID 'd  H %'kADODB.recordset$p. t (r.αͣ޷ x (v1αԣ޷Debug.Print numsql2  ~ B@ !'2 2 N0ûݣҪܸļ嵥A@J|kxдֵƫƽ'X' !'2  2On Error GoTo NoDatact % . X +>ag % . X +>mn % . X +>mx % . X +>sted % . X +>Next B@ '''''''lot_id P 'X  ' . '. D1$v%!'4J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------pͲԹƬ%ȡģ3̶id1ThicknessF13$v'` ThicknessD1D80$v%!'t t$>'vF5$v'6F7$v'*''ļTickness  (_  _001.xlsx %. ( %tB@v ( ,Lot_No. QuantityADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷',SELECT SUBLOT_ID ,WAFER_COUNT,LOT_ID FROM '  COCMEASSHIPLISTSTD '  WHERE FILE_NAME= ' H' ORDER BY SUBLOT_ID'Debug.Print sql2  ~ B@ !'  ! 6 +> * +> SUBLOT_ID % +> B@FOSB_IDADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷' SELECT DISTINCT RFID_ID, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,RFID_ID,`CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG= ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' order BY SHIP_SUB_LOT_ID' Debug.Print Sql1  ~ B@ !'  ! RFID_ID % +> B@''''''''''''''''''''ȡ B@p' $>  'ʼ  '    '] $>!VB@'     $>!VB@ @   '( ''ɾԭʼ   $B@vдSlot ID T7 CodeADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷'PSELECT SUBLOT_ID ,SLOT_NO,READ_WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN' ('  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT '  FROM MES_SHIPTAG ' + ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' ' ) order by SUBLOT_ID,SLOT_NO '  ~ B@Debug.Print sql1 !'4  !SLOT_NO %$8  +> READ_WAF_ID %  +> B@ '';ŲThickness B@p'''''Thicknessԭʼ v;$'  H %'ADODB.recordset$p. t (r0αͣ޷ x (v3αԣ޷ *SELECT qwe.SHIP_SUB_LOT_ID,qwer.* FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c  LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT  WHERE FILE_NAME =' H' ORDER BY SHIP_SUB_LOT_ID  )qwe LEFT JOIN ( '  . )qwer ON qwe.SHIP_SUB_LOT_ID=qwer.SUB_LOT_ID '[   ~ B@ B@p  !ITEM %  +> B@(Thicknessend  : 4 : :+>K-----------------------------------------------2--------------------------- $B@v''ɾ B@p$B@vkжA1:A9999$v !%'   '   $>   $>   $>   $>'   $>'     %'Debug.Print pd3    $>(^   $>'x x   +> min: uomcolumn-2,max:uomcolumn-1СΪ NG   $>   $> $>NG   +>kk  $B@v  $B@v  $B@v  $B@vNoData:9MsgBox "ûݣҪܸļ嵥" <B@  B@ B@ رչ B@B B@BĻˢ´ (rA@ɸļA@Jo`XܶAttribute VB_Name = "ģlot_id" Sub PClick() '嵥ļ .رĻˢ´& Appxation.ScreenUpdngqFalse!'FileTrim(Cells(1, 2)wH If $"" 0Then<MsgBox ("B"C(Exit 1End,connectDB@Set wp= CreateObj("ADODB.recor0dset..CursorTypadOpenStxc 'αͣ޷F "LoconadUseent##Dim pdsrc As S ngk wpsq"l '!ƷSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILEA ='" &o& "' GROU P BY JAlDRc., csDBCCk9,Whl.EOF <> True6жǷΪ`һG:'ȡ@tr]Fields("* 'õ˾"AcustomernCB("7e@kpathMlAjԭā1· һ ӵ ACA<\\10.A52.142\coc\D/ServerShar"112.!@WradministratorPassw`j/"fthw-82905028I#Folderzsts(B^)lE@ 0H\| _!j ]=5isWorkbook.Pa`A_ V Debug.Pri &O".xlsxJQIEK'汾K&)?'r 'ŀ+'ALCop$y , gVendor_Cod e_QPLAN_]_TIME1r001art_No/);$"7,ûжӦ)P`,ȷ ;2#5G ExcelSheE*=F.is s(L1)'-+1xx = 1IX.Activxate* 'ѭlotidGsql1@"SELECTmLOT_ID FROM COCMEASLISTSTD c WHERE FILE_name=6'A`N@d' GROUP BY D;ȹ~idsB]Cre6Object("ADODB.recor="^.CursorType.adStatic 'αͣ޷F=LoconUseClient A% W, cs@DBConn@9io 2_id_Hcou = R Ca5'''Oau`idO getRows'``-1 @ϱ 'ȡ Ҫ+copy_row Range("D1").End(xlDown). Cell@o, 18),  `6)).C` +c_ kFor cp1 To #-- o+ + 1!.PasteSpecialrb!3Nextkyym0gasQG'SUBi,,PO_NO,Ship_hCz'WAFER_COUNT ,˿ ,ORD@ vHNAME q a.id(0, s .)#e`= ?#__ *  DOBOBt'Debug.Pri@BS`[" $i$ .oD3t/i .0yy0, 2)0 Fields("$_Ykso3o"' 'PO No.S 10 6"+p2ping, Dt 4F13mat(|3"I"yMMddMove@!_Q'Batch25 /q DQuantity_%$) * 25r@ l"@fRR(uU!xx@ + #?q0ѯHIS_REGP_DTTM д@װʱ2 MFG Exp1Z11 'sub ,waferfk+ Z *3( " _2& fY,CUR_95_CNT,manufacturea,expiry ,ROW_NUMBER() OVER (PARTITION = 4 ) rnO G@ &O T,to_char(his_regist_@dttm,'5' ) EADD_@MONTHS-9|2)jmF3PRD.DOPE_ where `in('PKG')l Q'OC' n p'E) D (IN_d/vm"'c?9)))z`=1 v 1v*avϸtven߸߸߸ v︯3d vv v:Kav)! ov 'lot_id  ''MF`G,EXPF"timecount = Set.bR rdC!ACells(11 + yy, 6)IFields("manufacture_datXe")XF2Fe`xpiry _MoveNext1yyM(copy_row) * dxxxx+ 1,'Debug.Prisql Qб²װʱ6Ifc _g<> jThen' `.0QB54.+ "SELECT DISTIN t1.LOT_ID,CUR_SUBAWAF_CNT,t,Hg FROM ( " _" &CASE WH EN ms IS NULL TecEEL@  END )COCMEASSHIPL2STD c LEFT JOI@N MES_T$AG@ OCU STOMEE9 =$c.;ID%RE c.FILE_NAME ='"0FileName3';)ScE F,Dq0to_char(his_regist_dttm,'yMMdd') 4 ADD_MONTHS -1,0 12);F3PRD.DOPE_ wher e @&in('PKG','E@) and ca!'OC' baSTR(,@0,7)||S-3) F`<S_ASf]OACH KP# ~ bPm!Qm"RR gR( MTeccNadMmcf ۨb`FsbI`=rNucb )) order by ',AhVgt2!C=t2.# ORDER BYE" oڤCre`Object("ADODB.rbsetQ CursorTypeadOpenStatic 'αͣ޷&* Lobion UseClie`FOODq 1], csDBConn?kZFor sP 1 Toρ߱o1$'??C??o ?֐???wnhT& U?% y? 0 ' @num0z2] _pC` _full_inspCC , ȻElse  Cǿ8Notchλ` "Epig a+/'Q 1rspch0 qwe$,r.*v/wTй`χSTS򰮹!Tdu,1ۑ@ z @k/.mɱ) wB3b&"vr=r! N40g = "ǿ" Or flagNotchλhEpiPThen '0$!2sql1Sqlcommonutil_lot_@id.get_process_sampling_inspection(item_arr, FileName)_2SELECT qwe.LO T_ID, r.* FROM ( " _ 9& @DISTINCASE WHEN ms# IS @NULL T c ELEND ;7COCMEASSHIPL. STD cALEFT JOINQ G`FCUSTOMER_ H~ GH G MES_*TAG )> ON F:=BJHRE FILE_NAME ='" &h"' ORDERX BYEER)h @"hnumw& 1 Ar)@d=rg H'ElseIf InStr(, "") 0> 0 dcrystal_bar_"D[[( [[`[|[x[[ 7[[[[Z+jfxull?AT` End If H0Set `-CreateObj("ADODB.recordset",A .CursorTypeA adOpe`satic 'αͣ޷xHa ` L$oc@onB UseClient' ? 'Debug.Pri  !, csDBConn/bi R#Count#<> _cP MsgBox "րûpݣҪܸq%qExit S .CursorTypeadStatic 'αͣ޷(=tLoconUse0Cliezԏ'@1"SELECT DISTIN@PRFID@<,CASE WHEN@ SHIP_V_ IS NULL TE EL# END FROM COCPMEASA LSTD c LEFT JOIN (" _, +,- G0CUSTOMERA11F0072 2'5MES_A(TAG) ms ON c.Ʃams.M^RE FILE_NAME ='"FileNsrer h qSqlhra1ߟ5Nx9nhwgD ' 'ȡlp_workbook.Anv`|i'W:h 3 <>< "h1WendG 'ʼppD-a:s 1A.sq `sЁ Dim ssCsq, 1).EntireRo@w.Copyc!a_qty 25& +L PasteSpecial'k! KAɾԭʼ Ad&as(2).Delet дSlot ID T7 keſb9gbbngbbK,S`NO,READ_WAFc]f3prd.D09`dhLpbIN1hbp^(%`k_j_j!l_jm_jD?j7j k om lkk3wkE -dmkT q11 klD@mlOG/n +n/%) obyG)YRk_n.]ridp0CaEi REoQE1Oi1Y, 6oVal(C5")(j7s7Os߮eP R;ŲրThickne9a??qHQ VV\q1ite m_arrPSplit(6, "F; num2qlcommonutil_sub_pW_id.get_0_check0_datas(,$QR 0m߼߼vӁoenoohV?[?[?[   vqwe.#=F0r.*>( "U￑_pqUUǿYT_,߿RRSʿRDSQ oOoOW?No3l] )@EFT JOIN ( " sql1 = 0@ & num 2$" )qwer ON .SHIP_SUB_L@OT_ID=6.  Debug.Print1 Dpm.Open , csDBConnect`ion 26 p_workb ook.A0va te&QFor th1 Tom.Record CountCells(+ 10, 8)nFields("IT0EM")MoveNex/ 'Thickness`end.ИŅ iID4id_row */ID, 1.LIDC'-+2 Columns(9).Delea '''ɾdat6am5BEnd If/'Ќ;all?Applica.Wsheet(Fun.Bx(Range("A1:A9")nQi@20CaAuomc6@9If Wi, _) <> "P" Or23TheB@ ! lowCharO4upy 3^s pd3c`pd.(' 1(, iF3 ' "6).a?mula  ValueT $H8+ 6q 'min:J-2,mhax:L-1$'СΪ` NGS 3W-j S=WAm- [  ]U84'`*"NGցl~C- s "D1 NoD: MsgBox "ûСҪܸ%wpSet.Kd'jW8SavxrHt 'رչ RwClos/xWl'Ļˀ´y\ScreenU"pp ing"TrucQDBusqɰ"Sub  @ !P4 `1J۪dv*=h8+3qC;M`GxME PSS S<<(<0<8<$N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}  `X8I xIH `@ @ @ @ @ @ @ @  p%H %x(8HXhx(8HXhx(8HXhx(8HXhx(8HXhxppk"    0(8`px22 ~  ~      8 X` h  x~( 8 Xx   ~ @ P p   ~8X h  0H`x  * ^ "`  ` 0 0( X  p  2 6 8 *8  h 4x   6 8 *0 ` <h         ( H P  h  x    &  &  :  &8 &`  *    2@x(,.06H8*   ]Dim arr$tB@HA@Z$t!$ CofC page 2$tB@HA@ZkA@z  ׼ģ.xlsx  ׼ģ.xls](@X.hSELECT * FROM COCMEASDATASUBSUM c WHERE MEAS_ITEMS = 'MOQCBVAUA' AND LOT_FLAG = 'T' AND sublot_id = ' H ' '  ~ B@ ! MEAS_MAX %'MEAS_Min %'k B@B.hSELECT * FROM COCMEASDATASUBSUM c WHERE MEAS_ITEMS = 'MOQCBVADA' AND LOT_FLAG = 'T' AND sublot_id = ' H ' '  ~ B@ ! MEAS_MAX % MEAS_MAX %'k MEAS_MIN % MEAS_MIN %'kk B@B.hSELECT * FROM COCMEASDATASUBSUM c WHERE MEAS_ITEMS = 'MOQCBVWUA' AND LOT_FLAG = 'T' AND sublot_id = ' H ' '  ~ B@ ! MEAS_MAX %'MEAS_Min %'k B@B.hSELECT * FROM COCMEASDATASUBSUM c WHERE MEAS_ITEMS = 'MOQCBVWDA' AND LOT_FLAG = 'T' AND sublot_id = ' H ' '  ~ B@ ! MEAS_MAX %'MEAS_Min %'kh B@B.hSELECT * FROM COCMEASDATASUBSUM c WHERE MEAS_ITEMS = 'MOQCBCAVE' AND LOT_FLAG = 'T' AND sublot_id = ' H ' '  ~ B@ ! MEAS_MAX %'MEAS_Min %'kP B@B$tB@H D46$v(x F46$v(x D47$v(x F47$v(x D48$v(x F48$v(x D49$v(x F49$v(xkh$tB@H.SELECT FILE_NAME ,ORDER_NO CUSTOMER_ORDER_NO,SUM(WAFER_COUNT) SHIP_QTY,SUM(WAFER_COUNT) ORDRE_QTY,PLAN_SHIP_TIME PLAN_DATE,CUSTOMER_NAME,CUSTOMER_PRODUCT FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME = ' H L' GROUP BY FILE_NAME ,ORDER_NO,PLAN_SHIP_TIME,CUSTOMER_NAME,CUSTOMER_PRODUCT '  ~ B@WSELECT * FROM COCMEASSHIPLISTSTD C WHERE FILE_NAME = '515ʿpacking list'ļҵеlot.7SELECT * FROM COCMEASSHIPLISTSTD C WHERE FILE_NAME = ' H' order by sublot_id' t (r"αͣ޷ x (v%αԣ޷  ~ B@[ [ CUSTOMER_ORDER_NO %B10$v(xSHIP_QTY % WafersB11$v(x ORDRE_QTY % WafersB12$v(x PLAN_DATE %B13$v(x װҳֵ$t!$shipping lot-list page 1$tB@HSHIP_QTY % WafersE10$v(x ORDRE_QTY % WafersE11$v(x ! CassettesE12$v(x '5ҵCassettesڶУȻ3ʹӴпʼֵlotid $> Cassettes  '   ' ѡвҳ COCļ$tB@Hcocҳindex' $>$tB@H@ ( COCļ$tB@H $> $t,> $> $t,> $> $ $t,> $> $t,> $> $t,>  '  'P$tB@H  :  $B@H B@  9 9q COCļ$tB@H  $>  $t,>k$t!$ CofC page 2$tB@H CUSTOMER_NAME %B6$v(xCUSTOMER_PRODUCT %B8$v(xCUSTOMER_ORDER_NO %B9$v(xSHIP_QTY % WafersB10$v(x ORDRE_QTY % WafersB11$v(x PLAN_DATE %B12$v(xkoAttribute VB_Name = "subcocfPage" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |@GlobalSpacFalse dCreatablPredeclaIdC@ExposeTemplateDerivCus tomiz ESub (ModeFile, m) Dim cofc AHs Sng ' arrSheets(3).Select CIf Trim(4).2C p 2" Then{3 , .E nd If conn!DBE7׼ģ.xlsx" 8Or U" 0tP) Fields("/MAX"sX in ?CloArE S.@..AD..D..E/< O/ 5%=3'?0ain@A>IN") !AoBaBBWqq 0qa ࡡ{q!@axqD2qq/?0PW9= 'P@P 0,fPPQ xQc_Pe_fQJ Q?0h _`"hhhhCAVEhp' G?09bz?poQ?0ASa=i_0Range("D46").ValuAXiTF_ax' 7 ?"F4<0 8ys(F4<p9y <u^t--]FILE_NAME ,ORDER_NO CUSTOMB,`(WAF COUNT) SHIP_QTY0REPLAN_9TI`E,qPRODUiLISTS:S`elect E10SHIPy51 2 1.RecordCountCassetterowItem12n 'ҵڶУȻ3ʹӴпʼidWhile Cells(D, 1) <> "Q!K"$+ 1enDž0+ 3 G'ѡв`ҳx"COCļO { 'coci0ndex@RowN4I>>:֘"ion.NumberFormatLocal"@3g=l.62A׻2 z3aMid(3)'x, 9V'cA,4 43`, 6o4lc/ TRvX@Jf 9w:" `).UGFMergehR0ith K:.HorizontalAlignme= xlLefǞa .VertiP C er End W 'S!:BhS aIfcؿCofC#2)'$ B6CUSTOMER_NAM &e8|PRODUCT9@O_!HΘKN  1Sub bxME(` %@ @f  @  h%hx(8HXhx(8HXhx(8HXhx(8HXhx(8H8Xk$*\Rffff*Sw6c06f1fe"  ( @P h x 0008P*  0 Ph  "   (  0  H X ` h *   8<8x  <  f( v BX`  h x   ,&0@ P`h 00H2`      D RH   D R X `  Dh    0     F0  x  P     0   0 08 h          ( @ H `    & 00 (@2X4 * B  hx ( $   " 0 @  6H   &(,   000`    "    2.P   ( (    00@ X h "    2. 0  @ P `  x   00  !!! !0" 0"@"X" p" """  """"""  #0(#0X## $$$$ $ $%  0(%$6X%(0%(0%(2%(0(&(0X& &(&$& & & $ & &  &2&0'8' @' P'  `'p'  P' J' 0( ,H(x( 0(( (( (8) H)X) p) )  )0)2) > *"`*B* ** ++0+H+&`+  ++  + +0+2,(8, . .  (080 P0`0$0 00  0 0 0 1 1101@1 H1X1h11 111111222  282 P2`2 h2 20222X3h3x3404"4:40 5,P5 5 57 7 7707.(8 X8h8 p8 8 888 8090@9 (p9 Bh; ;;  = =    =>& > H>X> `> >>>> R> ? 0? H?X?h? p?$? ??T?  @ 8@ P@ p@ @@@ &@ AN ApAA A A AAAA  B @B XB  hB xB B B B B B B B BC C 0C嵥ļļ ''''sرĻˢ´ˢ (r ($>$'H H嵥ļA@J|`kXA@zADODB.recordset$p.< t <(r$αͣ޷ x <(v'αԣ޷]X]pƷJSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME=' H$' GROUP BY PRODUCT_IDCUSTOMER_NAME'> > ~ <B@ <!жǷΪһƷȡƷ PRODUCT_ID <%'@ õ˾ CUSTOMER_NAME$<'B]ԭƷļ·һӵ繲ļ\\10.10.152.142\coc\'D \\10.10.152.142\coc\12ģ' administrator' fthw-82905028' D$x'dWScript.Network$p.Scripting.FileSystemObject$p.    B@'k繲· \ͻģ\ B\ @\'F *!\ͻģ\ B\ @\'[  @.xlsx F @.xlsx$x 汾· *!\ͻģ\ B\ @\' Ʒļ_FileCopy network & wpstr & ".xlsx", srcpath & Vendor_Code & "_" & PLAN_SHIP_TIME1 & "_001.xlsx"oFileCopy network & wpstr & ".xlsx", srcpath & Vendor_Code & "_" & Part_No & "_" & PLAN_SHIP_TIME1 & "_001.xlsx"d7繲ûжӦģļ,ǶӦģûзȷ·A@J|k   B@.k` F @.xlsx$x%ģļ,ȡverder_code po F @.xlsx %.& &%B@pF5$v'(F7$v'* ȡʱJSELECT PLAN_SHIP_TIME,FILE_NAME FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' H''ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@PLAN_SHIP_TIME \%yyyyMMdd$'  &B@ &B@B ƷļжϱǷӦļ $x F @.xlsx  (_  _001.xlsxA@H F @.xlsx  (_ *_  _001.xlsxA@HdX A@ F @.xlsx  (_  _001.xlsxA@H F @.xlsx  (_ *_  _001.xlsxA@Hkd:繲ģļûзڶӦλãӦ·ûģļA@J|Hk@жһǷƷļ  (_  _001.xlsx$x] ģļ  (_ *_  _001.xlsx %. %.J-----------------------------------------------1--------------------------' B@p %B@pѭlotidcSELECT DISTINCT LOT_ID FROM (SELECT LOT_ID ,SHIP_SEQ FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H/' GROUP BY LOT_ID,SHIP_SEQ ORDER BY SHIP_SEQ ) '[ ADODB.recordset$p.L t L(r0αͣ޷ x L(v3αԣ޷  ~ LB@ L!'N''lot_id] L!f'lot_id-1 ϱ ȡҪ D1$v%!'P$> P$>$vB@ P'R T N R $>B@  R P 'Rh'X  N SUBLOT_ID,,PO_NO,Ship_dateiSELECT SUBLOT_ID,WAFER_COUNT ,PLAN_SHIP_TIME ,ORDER_NO,LOT_ID FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' H' and LOT_ID='  $' 'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@Debug.Print Sql1  \! SUBLOT_ID \%  X +> WAFER_COUNT \%  X +>PO No.ORDER_NO \% X +> Shipping DatePLAN_SHIP_TIME \%yyyyMMdd$ X +> \B@ Batch No.  $ X +>Batch Quantity \! X +>'''''''lot_id P 'X  ' /''ѯHIS_REGIST_DTTM дװʱ----- MFG Exp'X' װʱ䣬sublot_id,wafer_count  SELECT * FROM ( SELECT LOT_ID ,CUR_SUBLOT_WAF_CNT,manufacture_date,expiry_date ,ROW_NUMBER() OVER (PARTITION BY LOT_ID ORDER BY manufacture_date,LOT_ID ) rn FROM (  SELECT LOT_ID,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyyMMdd') manufacture_date,to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyyMMdd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG')and his_cat = 'OC' and LOT_ID in( F SELECT DISTINCT LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_name=' H'  )))WHERE rn =1 ' '''ship_seq  SELECT DISTINCT c.LOT_ID ,CUR_SUBLOT_WAF_CNT,MANUFACTURE_DATE,EXPIRY_DATE FROM (SELECT LOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( )pkg ON c.LOT_ID =pkg.LOT_ID 'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷[   ~ \B@  \!'''''''lot_id'MFG,EXP \!',manufacture_date \% X +> expiry_date \% X +> \B@ P 'X  'HDebug.Print sql1 "''lot_idб²װʱ N ,'X'  RSELECT DISTINCT t1.LOT_ID,CUR_SUBLOT_WAF_CNT,manufacture_date,expiry_date FROM ( SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H'  ) t1 JOIN (  SELECT SUBLOT_ID,LOT_ID ,CUR_SUBLOT_WAF_CNT,to_char(his_regist_dttm,'yyyyMMdd') manufacture_date, to_char(ADD_MONTHS(his_regist_dttm-1, 12),'yyyyMMdd') expiry_date FROM F3PRD.DOPE_his where OPE_ID in('PKG','EPKG') and his_cat = 'OC' and SUBSTR(SUBLOT_ID,0,7)||SUBSTR(SUBLOT_ID,-3) in( SELECT SUBSTR(SHIP_SUB_LOT_ID,0,7)||SUBSTR(SHIP_SUB_LOT_ID,-3) FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H*' )) order by SUBLOT_ID, his_regist_dttm , )t2 ON t1.lot_id=t2.lot_id ORDER BY LOT_ID ') '''ship_seq  SELECT DISTINCT c.LOT_ID ,CUR_SUBLOT_WAF_CNT,MANUFACTURE_DATE,EXPIRY_DATE FROM (SELECT LOT_ID,SHIP_SEQ FROM COCMEASSHIPLISTSTD WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( )pkg ON c.LOT_ID =pkg.LOT_ID'ADODB.recordset$p.\ t \(r1αͣ޷ x \(v4αԣ޷  ~ \B@[   \!'''''''lot_id'MFG,EXP \!',manufacture_date \% X +> expiry_date \% X +> \B@ P 'X  ' Debug.Print sql1kxϵͳκADODB.recordset$p.b t b(r4αͣ޷ x b(v7αԣ޷  SELECT DISTINCT FILE_NAME, ms_lotid,LOT_ID FROM ( SELECT DISTINCT FILE_NAME,ship_seq,ms.LOT_ID ms_lotid ,CASE WHEN ms.LOT_ID IS NULL THEN CUSTOMER_LOT ELSE ms.LOT_ID b END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN mes_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID R AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H'ORDER BY ship_seq ) 'd[ d d ~ bB@] b!'h hf1A¶ h  j h & filename & 'XLOT_ID b% j+f bB@XkP ''ѭ''X'. P 't l hADODB.recordset$p.n t n(r8αͣ޷ x n(v;αԣ޷select MEAS_ITEMS, ROUND(MEAS_MIN,5)MEAS_MIN ,ROUND(MEAS_MAX,5) MEAS_MAX,ROUND(MEAS_AVG,5) MEAS_AVG,ROUND(MEAS_STDEV,5) MEAS_STDEV,MEAS_PCS from COCMEASDATASUM where FILE_NAME =' H' AND LOT_ID =' l$f' AND LOT_FLAG='F''pDebug.Print sheet3sql p ~ nB@ n!   t nB@r'ѭ  n!*Debug.Print sheet3set.Fields("MEAS_ITEMS") . X  $> MEAS_ITEMS n%MEAS_AVG n% . X  +>MEAS_PCS n% . X  +> MEAS_STDEV n% . X  +>MEAS_MIN n% . X  +>MEAS_MAX n% . X  +>( '''дyXkP nB@   '''''d(ûмݣԺڵECOCA@J|k P l'X l'''' D1$v%!'4J-----------------------------------------------1--------------------------C--------------------------2----------------------------------------pͲԹƬ%ȡģ3̶id1ThicknessF13$v'` ThicknessD1D80$v%!'t t$>'vF5$v'6F7$v'*''ļTickness  (_  _001.xlsx %. ( %tB@v ( ,Lot_No. QuantityADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷'5SELECT SHIP_SEQ,SUBLOT_ID ,WAFER_COUNT,LOT_ID FROM '  COCMEASSHIPLISTSTD '  WHERE FILE_NAME= ' H' ORDER BY SHIP_SEQ'Debug.Print sql2  ~ B@ !'  ! 6 +> * +> SUBLOT_ID % +> B@`FOSB_IDADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷' SELECT DISTINCT RFID_ID, CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,RFID_ID,`CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG= ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' order BY SHIP_SUB_LOT_ID' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( @)pkg ON c.SHIP_SUB_LOT_ID =pkg.SHIP_SUB_LOT_ID ORDER BY SHIP_SEQ'[   ~ B@ !'  ! RFID_ID % +> B@@''''''''''''''''''''ȡ B@p' $>  'ʼ  '    '] $>!VB@'     $>!VB@    '  ''ɾԭʼ   $B@v дSlot ID T7 CodeADODB.recordset$p. t (r'αͣ޷ x (v*αԣ޷'PSELECT SUBLOT_ID ,SLOT_NO,READ_WAF_ID FROM f3prd.DWAFER dh WHERE SUBLOT_ID IN' ('  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT '  FROM MES_SHIPTAG ' + ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' ' ) order by SUBLOT_ID,SLOT_NO ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( B)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUBLOT_ID ORDER BY SHIP_SEQ,SLOT_NO'  ~ B@[  !'4  !SLOT_NO %$8  +> READ_WAF_ID %  +> B@ '';ŲThickness B@p'''''Thicknessԭʼ v;$'  H %'ADODB.recordset$p. t (r0αͣ޷ x (v3αԣ޷ *SELECT qwe.SHIP_SUB_LOT_ID,qwer.* FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c  LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT  WHERE FILE_NAME =' H' ORDER BY SHIP_SUB_LOT_ID  )qwe LEFT JOIN ( '  . )qwer ON qwe.SHIP_SUB_LOT_ID=qwer.SUB_LOT_ID ' '''ship_seq o SELECT * FROM (SELECT DISTINCT SHIP_SEQ,CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' ORDER BY SHIP_SEQ)c  LEFT JOIN ( ;)pkg ON c.SHIP_SUB_LOT_ID =pkg.SUB_LOT_ID ORDER BY SHIP_SEQ'  ~ B@[  B@p  !ITEM %  +> B@Thicknessend  : 4 : :+>8K-----------------------------------------------2--------------------------- $B@v''ɾ B@p$B@vkжA1:A9999$v !%'   '   $>   $>   $>   $>'   $>'     %'Debug.Print pd3    $>(^   $>'x x   +> min: uomcolumn-2,max:uomcolumn-1СΪ NG   $>   $> $>NG   +>kh>k`>X>  $B@v  $B@v  $B@v  $B@vNoData:9MsgBox "ûݣҪܸļ嵥" <B@  B@ B@ رչ B@B B@B0=Ļˢ´ (rA@ɸļA@Jo<<ݶAttribute VB_Name = "ģlot_id" Sub XClick() 'ļ .رĻˢ´& Appxation.ScreenUpdngsFalse'FileTrim(Cells(1, 2)CwH If $"" Then<MsgBox (" "C(Exit lEnd,connectDBSet wp= CreateObj("ADODB.recordset..CursorTypadOpenStxc 'αͣ޷ "Loc onadUs"eent#ԕ#Dim pdsrc As 2Sngk wpsql '!pƷSELECT CUSTOMER_NAME ,PRODUCT_ID FROM COCMEASSHIPLISTSTD WHERE FILE ='" &o& "' GROUP BY JAlDRc., csDBCCk,Whl.EOF <> True6жǷΪ׀һG:a'ȡ@tr]Fields("* '˾ "Acust`omernB("7e@kpathMlAjԭā1·һ ӵ繲 ! C<\\10.A52.142\pcoc\D/ServerSharb112ָa@WrŌadminist ratorPassw`j/"fthw-82905X028I#F olderzsts(B^)lE@ 0HElaa}Netk} Wipt.IA1fsoing.System# -.MapDrive "H", 1, , ,, ( .1ɟ'E{JnC"IAx\ͻ>\| _!j ]=5isWorkbook.Pa`A_ V Debu`g.Pri &O".xls>xJQIEK'汾K&)?'r 'Xŀ+'ALCopy , gVendor_C(ode_QPLAN_]_TIME1r001art_No);$"7,ûжӦ)P, ;2# 5G ExcelSheE=F.is 0s(1)'- +1xx = 1IX.Activate*  'ѭloti dGsql1@"SELECT DISTINLOT_ID FROM ( D,BSEQCOCMEASLSTD c WHERE FILE_name='jN@An' GROUP BYORDE&R) Debug.Print 03idstCreMObject("ADODB.recor-"u .CursorTypeEadAStatic 'αͣ޷F ULoconUseClief   B, cs@DBConniou>_id_cou =R Ca''''O`idO)getRows'``-1 `ϱ 'ȡ Ҫ-copy_rowRange("D1").End(xlDown). Cell|, 18),  `6)).C` +c_ kFor cp1 To d/-i|a- + 1!.PasteSpecialrb!3Nextkyym0gasQG'SUB|,,PO_NO,Ship_ȐE, 'WAFER_COUNT ,+ ,B|A d"0ȈNAME y a .id(0, s .~)e`= #CCCL/C/Cu$' VSbO$i{$ .OE%t/i .0yy, 2)0TFieldxs("$?Zso3 o"' 'P`O No. 10 6"+p2ping DZ{e 4F13mXat(|3"I"yMMddMove@!_Q'Batch{25/q DQuantit>y_%$) * 25r@m"@gaRR(uU!b g5TheOA 0`0  = "SELECT DISTDIN t1d,CUR_SUBWAF_CNT,m:,3 FROM ( !` CASE WHEN mseIS NULL T EL END COCMEA@SSHIPL`STD c LEFT JOIN MES_aTAG @ CUSTOME =c. REFILE_NAME ='FileNameA'))"50 ,Dq0to_char(his_regist_dttm,'yMMdd') 4 ADD_M ONTHS -1`, 12);F3PRD.DOPE_ where @&in('PKG','E) and `Q'OC' baSTR(,@0,7)||S-3) F`<S_ASOACH JP# bP/m!QmWR gR( b-* 112o- =: X10#sS=A91o1i1 )) 0er by , 8+3qBB)t2 IT=t2. ORDER BY%@oς?QbO Qw~p_seqo@,"^$J:T,MANUFACTURE _DATEzIRvYC($Q,#EQ_MRpI)cQ!Y)`QODs /,ߥtߥO -1po =n(m E% yx[ߣ EuIf 'ϵͳ 0 TheP1AyForD pi =  yy Alf@lnDl 7SO(@9i)GdFieldsd("")x.MoveNexPzSEnd IfK '''ѭxx,1A4 BD0_rTowA9scopy- 1?_E`iSe \heet3s = CreateObjV("ADODB.rbNu(s.Curso rType adbStatic 'αͣ޷pQ L$oc on Us`eCliedf 8 d ql "sel !_ITEMS, @ROUND("M IN,5)E ,IAX@M`HxAVGFaHEV PCS fromŲDATASUM where !cc'FLA`G='F'0!$'#'Debug.P|riAL  , csDBConnectionf_allRCountFor f_row2 To !  + 1 Cells( , 2) Verder_Code 3 Part_No4BFieldxs("FjGB MoveNex2K 'FOSB} :/CreateObjN("ADODBBϞ@10D@INPRFID@<,CPASE NĘUB_IS NULL THEEL END fbc LEFT JOIN (" _G/h;rl ,'CUSTOMvC %D|hMl!MES_!TAG) ms O0N c.T0ms. / =\er`'ship_seqg(!@ d**c2~(Bc-@AAD~ AAhAF,w<_'ȡ p_workbook.AvvcMwitWh` ss<> "~TbJwWend 'ʼ{ pp[ @r-z}s1Kq}2sqsCVD`im ssG# sq, 1).EntireRow.PCopyGc1_qty25w  V +@,PasteSpecial;  P ɾPԭʼ ! dO. s(2).DeletX дSlot ণT7 ;6?ct?ooooW=ooh<q,SqNO,READ_$f3prd.D" dhTryFIN1$bS(evonߏߏUnD pom |_rR_$j_rE q1 =  osuD@ F_w?) cby &))QQ`qmq>P@ "%%T3P&?&,Co cYu ?#?#?#2#`TOMER_SUBLOT END CUS FROM MES_SHIPTAG ) ms ON c._ID =&. xWHERE FILE_NAME ='" & FileName"' ORDER BY ^_SEQ)c " _ &LEFT JOIN (Isql1E/)pkg}_B,"SNO"CSett.Open ;ship, csDBConne ctionDebug.Printid_row(Recor@dCountFor i1 To Cells(i + 1, 6)Val(Fields("c)). 7 READ_WAF I"H Move8Nex*Kl''';Thic knessp_workbook.AMvate@F ԭʼite m_arr=Split( , "F; .E numn2 qlcommonutil_sub_lot_id .get__checkall_data@X,WEi mCDre@5Obj("ADODB.r1zset&.CursorTypeadStatic 'αͣ޷G Loc onUseClie2q `!"SELECT qHwe.tUBi,`r.*(wuDDISTIN`CASE N| IS NULL THEt|EL mC@OCMEASaLa@STD $, -ߨ›O- )6 h H=1>m>&!H2"r! M@=`rae xA_seqS AK1%HF4EQ3,7H(E!3H)$F FF`n=PwMb w*wu=?ww) $ ??Oozozzp P@_oXo&th1e.? }P8!}UITEMogC}S3~g `'vye ndX51 22   ID, 1 IDs'-2 Columns(9).DHeleч Kq%5'End If 'жgЄ0Apx.WPsheetFun.R(RangeP1:A9="caa20qCuomc p9gIf i, ') <> "" OrZn023T|heȯDgYlowCha ߕaupx+ 3Apd3c pd.=c( (, i_ ')E`_Q_QO@6).mula q0u/"q?pOA'min:%-2,max:&-1obСΪ NG+Qp; - )=+A6 BD- @.*5"NG_ibj?Hby#TD9vIF $KoKo01,JI'olumn + 1).Delete  'NoData:$MsgBox "ûҪܸļ嵥PN"wpSet.MoveNext& @ 'duworkboo`k.Sav,p_ 'ر@IC8losJ Wend"'Ļˢ Application.ScreenUp[ing = XTru4c:DBɸɀEnd@ Sub       !"#$%&'()*+,-./012345679:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`bcdefgh?!*LT^*=h8+3qPeVCa?xME(SS S<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}0 `X 8 ixi  @ @  %@%@P`p 0@P`p 0@P`p 0@P`p 0@P`p k B  0H(h  ļкem]t \$'e/   20 $\  $'  ~$~ A@k@   + iAttribute VB_Name = "createPolder" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacFalse dCablPredecl2aIdCExposeTemplDerivCustomiz E'ļк Function [eMultiLevelF(ByVal sPath As Sng)  Dim arr,K l@Split(, "\"For i0 To UBound() - 1-((i) &" + 1( If Dir!A , vbec tory)""` ThenA Mk /End |If &Next i S Rgc#pG9]bC3U>F9DڙA 8x9DڙA 8G9]bC3U>ME(SLSS6"ThisWorkbook26 _VBA_PROJECTƶTkYT Tubxml58/!2SqlcommonutilJN0{00020819-0000-0000-C000-000000000046} 0om%@8x%*%`( 80H@XPh`xp( 80H@XPh`xp( 80H@XPh`xp( 80H@XPh`xp( 80H@XPh`xpHxk$*\Rffff*TK6c07b88c`xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2      !"#$%&'()*+,-.0123456789:;<=>?@ABCDEFGHKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~a  *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.9#0#C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE#Microsoft Excel 16.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\System32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.8#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE16\MSO.DLL#Microsoft Office 16.0 Object Library*\G{2A75196C-D9EB-4129-B803-931327F72D5C}#2.8#0#C:\Program Files\Common Files\System\ado\msado28.tlb#Microsoft ActiveX Data Objects 2.8 Library4*\G{00000300-0000-0010-8000-00AA006D2EA4}#2.8#0#C:\Program Files\Common Files\System\ado\msador28.tlb#Microsoft ActiveX Data Objects Recordset 2.8 Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{75E95B28-A4E0-4FF2-9AFD-4DAE995B1F1E}#2.0#0#C:\Users\itadmin\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M jkD?@< Q$P !^+ hJcjThisWorkbookTK6c07b88c+ThisWorkbookgc) NwmTSA6c06f1b5  NwmTf-( `ZOeeS<6c06f1b5 OeeJ 4 GWJ!jgSX6c06f1feD GWJ!jgWwHC_b!jWW7SY6c06f1fe!jWW7d1`OHf!jWW1Sf6c06f1feL!jWW1 Qx/ConnectionUtilTD6c07b697$ConnectionUtil@2 CommonTE6c07b76bX Common^L<RcocModeTM6c07d7edcocMode {'CcocfPageTN6c07d7edcocfPageL$8IngotPage2TP6c07d7edIngotPage21 >IngotPage1TO6c07d7edIngotPage1l7!jWW2Q36c06f1b5$!jWW2 6!jWW3Sg6c06f1fev!jWW38B1e!jWW4Sh6c06f1fe!jWW4Pp8!jWW5Si6c06f1fe!jWW5[hF!jWW6Sj6c06f1fe!jWW6m[ _lX[P9eRw6c06f1b58 _lX[P9eƓsL bolanSk6c06f1fe bolan7 itestSl6c06f1fetestR1c d e!NSy9eSI6c06f1b5 e!NSy9eNAtestsqlSm6c06f1fetestsqlgz :Sy5uubxmlSn6c06f1feSy5uubxmllu3`(Sqlcommonutil_lot_idTF6c07b76b(Sqlcommonutil_lot_id%/(nU͑^NVubxmlSo6c06f1fe͑^NVubxmlb@-gNSzƖb!jg9eS56c06f1b5NSzƖb!jg9ePXIKfNS!jglot_idSp6c06f1fe"KfNS!jglot_idp\ Sy5u!jgSD6c06f1b5< Sy5u!jg z Tk9eSP6c06f1b5| Tk9e׻H(u!jgSG6c06f1b5 (u!jg) NwmZSȉRt6c06f1b5* NwmZSȉU7!jWWYYOsqlTG6c07b76bP!jWWYYOsqlCYSqlcommonutilTH6c07b76b0Sqlcommonutil0G0Sqlcommonutil_sub_lot_idTI6c07b76b0Sqlcommonutil_sub_lot_id LfkIle!jg9eSJ6c06f1b5dfkIle!jg9ef0?7NSRƖbubxmlSq6c06f1ferNSRƖbubxml#6H#2= charpdTJ6c07b76b charpd\H`~MfkIleubxmlSr6c06f1fefkIleubxml x"B^]Ss6c06f1fe^],2TkubxmlSt6c06f1feTkubxml\)IcreatePolderSc6c06f1fecreatePolderT W TvfT9eS46c06f1b5 TvfT9e5]!jWW8Su6c06f1fe!jWW8B-{|1Sd6c06f1fe{|1mxk SVM!jgRv6c06f1b5 SVM!jg; Kl SSv6c06f1fel So83S -NVE9eSQ6c06f1b5 -NVE9esPJ5 ͑^NV9eSR6c06f1b5 ͑^NV9e h]OKfNS!jglot_id9eSw6c06f1fe KfNS!jglot_id9eb9 GLOB!jgQe6c06f1b5 GLOB!jgtD_l[Qf6c06f1b5< _l[YGLOB!jgxmlSx6c06f1fe> GLOB!jgxmll ' ^]|1Sy6c06f1feF ^]|16mg][S16c06f1b5P mg][;\.TkYT TSz6c06f1fed TkYT T{{QZtestproT06c06f1feh testpro(&TkYT TubxmlT16c06f1fej TkYT TubxmlR@k(%!jWW10SC6c06f1b5~ !jWW10EX85RvfS96c06f1b5 Rvf.p4OA l S1Rz6c06f1b5 l S13X1 _lX[P1T26c06f1fe _lX[P1ӐH# Sy5u!jg2SE6c06f1b5 Sy5u!jg2sSy5uubxml2T36c06f1fe Sy5uubxml2k2TkexmlT46c06f1fe Tkexml6.0fkIlZitQT56c06f1fe" fkIlZitQKF-SNqNRx6c06f1b5. SNqN|+ Sy5u!jg3SF6c06f1b52 Sy5u!jg3b0Sy5uubxml3T66c06f1feH Sy5uubxml39H4* Sy5u!jg4T76c06f1feJ Sy5u!jg4P`;}'eNbRSH6c06f1b5L eNbRcxR\i`S=6c06f1b5R R\i`Ks!jWW9T86c06f1feh !jWW9n a^]|S06c06f1b5^]|c? NwmƖb5uS@6c06f1b5x NwmƖb5uV-wafUtilsTL6c07b88cz wafUtilsL\GLOB!jgePt6c06f1b5 GLOB!jgeo e R\i`1T96c06f1fe R\i`1 `6 R:N1T:6c06f1fe R:N1_8 h94R:NS66c06f1b5 R:N1P Rmg]ywmS26c06f1b5 mg]ywmpZh `bXR\i`xmlT;6c06f1fe R\i`xml@ '$3͑^NV0021T<6c06f1fe ͑^NV0021HK NV[T=6c06f1fe [ <0"m3WOSB6c06f1b5 m3WO7 iZSNRy6c06f1b5 ZSN 5 82 ZSNxmlT>6c06f1fe ZSNxmlܬ s' efkIlZitQSK6c06f1b5 efkIlZitQ /K KfNS!jgeS76c06f1b5 KfNS!jgeB( ۹,ORs6c06f1b5 O@ U (u!jg1T?6c06f1fe (u!jg1dX EXSN6c06f1b5 Xp @Y[eS>6c06f1b5 [e m _lX[POT@6c06f1fe _lX[PO,*" Ja$PtkZN-,@­ԍ3C0N94NHEz1͹}K+)vEvGX;A]Y fsUd Ol*9 HDD4:'?BOҾrhKOAڍrq\FE{8`yhPN<@E'…j7F#DH6?^tQM\ALu渃q\L0G,rEoߛLE.PY!שFAR4Gıxw]KI{ŵ݀"y^@;.UxNWM^T!DXn>o<&H\mi@Mz ĈD;A;k[8p3=iGMM?_;yHS`ơf1iL{'*b~MWMIrWwRVK2õ w\]_D("B̨ʙIq]e/WTI^j4Im# f3`{#BVL.XAWM28մ}/Jњê(<ŇcI9cJ7'{A)eqI Gf1Mϐݸ laJQ ѫnNAyv!#uf?-Ai5<ЛtEWޠҶH!խllA#JQ7'ZIsƧ*Iջih zG7'K!N{H;R!Mm+.= Orxu/LUz)Gv+ +iX >GaE l8rE:h.rojr@.ܪE Jd1LrE: gH^>7O)=Dx%B潮Eƺ2TIH 8DC $-zTJ\$vkHA⇐6TH8jM | u O]KHB f29{yȀm  ^i+F9D_(S @jYx (v  P  px~@ X\VZ @ӐgH0  (/@ & wahF6tU>D% -׀@mW((uTƊx M As B=DimDElseEElseIfTFor_IfThenToexcel+`VBA`Win16~`Win32`Win64x`Mac`VBA6#`VBA7#` VBAProject`stdole``Officeu`ADODBs`ADOR`MSFormsC` ThisWorkbook|` _Evaluate`Sheet5`Sheet2`ew$]`conJ`OracleConnection` setConnetionL_`RunSql` ActiveSheet%N`Cells`CopyFromRecordsetV`ri`GWJģ` GWJ_Click?`FileNamej`MsgBoxR` creFLTTem` creLPDTem` creSMPTemQ!` dataExceln`Workbookk`sheet[`Sheet1` totalcolumn,`addExcelٕ`lotIdRow~`tempR` productNumSet` productName`getRowsß` recordSet1` recordSet2` recordSet3` meas_item` CreateObject` CursorType` adOpenStatic`CursorLocation*` adUseClientҐ` connectDBJ` productNumSqlƽ`csDBConnection`E\` RecordCount{`Fields7`sql"` WorkbooksB`Path2` Worksheets` Application*`Addr`Kill`SaveAsf;` DisplayAlerts`Visible`i``ja`xo` instockSqlX``yl`MoveNextL!`Save` dateformatR`closeDB`Columnsp9` SelectionZ`NumberFormatLocal)`ģ7c`lotidCollection` CollectionW`click_1.Q` dataworkbook]` productSql(8` productSett6`countSet`lotidSql`lotidSetc`checkIdCollectiond` checkDataSql3d`customer/`xDoc`rootNodeD`headerM`newNode``tNodeb?`newNode1`tNode1UN`dataExcelSheetю`addsheetu@` createElementH`DocumentElementE`createProcessingInstructionk` InsertBefore.` ChildNodes5`AX` setAttribute `rodcount'` rodcount1W`lotrow|S` lotrownum!`checkRow` lotiditem3` appendChildb`IIfz` lotrowitemH`num`itemz`checkIDī`pre5`getLotIdCollection`Count0v` checkDatasetb`infoSqlX`infoSet`xmlStr`PrettyPrintXml0`WriteUtf8WithoutBom`Replacef`lotidH` lotidRecord `ExecuteY`xmldoc`readero0`writerv`indentC`omitXMLDeclaration`contentHandlerUV`Parse`contentl`stream*` adTypeText`CharsetQ#` WriteText`ChrK~`vbCrLf`Position` newStream` adTypeBinary`Modev`adModeReadWrite8:`CopyTo[`Flush` SaveToFile_`adSaveCreateOverWrite`ģ1c`savePath-` currentPath$`currentFileNameR`producta`modePathu`modeNameq` modePathName` modePathNamex(`CofCFlag!` Ingot1Flag[` Ingot2Flag` cofcIndex` Ingot1Index` Ingot2IndexR` mdataIndex`lotCountX` mdataModePageaY`Main_޸ͨģƙ`ScreenUpdating! `Sheets `Range `ValueK`ActiveWorkbook` isCalOverAllD`cocMݽ`cocMode9`cocpage`cocfPage`ingotj` IngotPage1x`ingot2Sd` IngotPage2y`index`yus_`six`Copyƿ`AfterX`Paste` ClearContents{` sheetName6`rs_` Recordset`kb`tmp`tmp1j`EOF`item_arr }`Split)`numsql2`getsql_type_all`minValue`maxCharM`maxValuec`minCharv@`tmpvalue`Interior;`Color2F`nextitem!`ge]]`row`Findn`Na_rowr` minValue11ʼ` maxChar11` lot_columnd`Columni` lot_countH.`xx_`item_id^`flaggn`getItemColumn_checkK`getsql_type_lotidC`getsql_type_check_lotidl` mminValue`mmaxCharl7` mmaxValue`mminCharT*` nextItem1~`shet`shl`xlExcel83`SendKeysN` DeleteSheetsk` getItemColumn#d`it]`sql2^$`rs2`Location-`sql22`rs22e`div̓` meas_columnh`Right `mesW`ju]`measitemB`iii}`item_a];`get_typewY`getItem_item_typeAj`ITEM_TYPE_PARENTzZ`getItem_ITEM_TYPE_PARENTD`ssss`aa1ur`bb1w`sqss%` result_unit`ConnectionUtilB-` Connection`E1\`beginTx` BeginTrans`frontstraR`str`ar\`rngU`commitTx`` CommitTransu ` rollbackTxok` RollbackTransY` execQueryD`strSqlF`RSTMP`execCmdl`ERRHDL`Errors`number-`PRINTSQL` sSqlstring`PRINTLog8`Now%`WritXml`sString`Common`CofcPage`cofcMinH`FormulaqY`cofcMax*`arrMaxg`arrMinh`start` excelname`name1`name2`Windowsd`Activate|` ActiveWindow+`SelectedSheets`Deletex`FileFolderExists-u` strFullPath` EarlyExit` vbDirectoryg` vbNullString`LotGroupb`colH`rs1`orgLotidۖ`SUBisCalOverAll`CreateMultiLevelFolder-`sPath`arr u` sPathTemp`MkDir`CreateMultiLevelFolder1x`fso`sPath1`sPath2` FolderExists ` CreateFolder`rsS` ServerShare`UserName\`Password`srcpath5-`Connect\` NetworkObjecth`MapNetworkDrive-`fileswX` FileExists`vbOK%`copyAfterSheets\` modeSheet=`RemoveNetworkDrive`ModeFile)o`cofcB`Trim@`sitaMax`sitaMin`x1Maxk`x1Min`x2MaxH`x2Minf`x3Max`x3Min`sql1]$`rowItemq`cocRowf`RowsU`Mergeq_`HorizontalAlignmentS@`xlLeft9`VerticalAlignmentʡ`xlCenter` ingotLotCountx`ingotLotCountPageY`lottmp]`ingotLot `reLot` relotLeft`sqrtLot'`endLineq `E4]`E5]`E6]`E7]`E8]`E9]`E10`E11`E12`E2]`E3]`xlDown0D` loadBoxLotRowQ` loadBoxLot:` IngotPageY`WorksheetFunction&`Sum`ingotTmp6` remainLot` remainLotleft3`SQRT^%` PasteSpecialK` xlPasteValues"`ģ2c`Import_Ship_Click^`tips(` emptyField` typeCheck`lenCheck-4` shipDateCola` shipDateRaw֯` fileNameColj` fileNameRaw`ShipDate,`data_Start_Raw˄` data_End_RawU`data_Start_Col6` data_End_Cole` UsedRangeȉ`customer_product+`customer_order_noL` work_product'` ship_order_no K` invcode_noPm`ctm_product_str`cutm_product_str4`customer_index;`subTotal_indexp` find_index`list*`tempList` hasxiaojio` customer_raw`IsDate2` tempvalue`ci\`sSql/`newSql^`checknumh` cellvalue@` jchecknum2` IsNumeric$*`iRetCodeҤ`sqlAlert`ģ3c`Import_INGOTing_Click1` okreplace`data_Start_Rowц` data_End_Row[`lotList<`exists]` MergeCellsک` MergeArea`ģ4c` pCustomerQj`pMeasId` pMeasItemr`ImportCheck_Clickؑ`where֍`CommentHs` arrayIndexi`GTl]` GUID_TYPEĦ`MyGUID` CoCreateGuid` vbNullCharY`StringFromGUID2%`StrPtr6`LCase:` Search_Clickt`measId`iRawo` ClearCommentsf` AddComment` FieldValueD`ģ5c` LotFamily`openfile` parameterh`ģ6c`Meas_Search_Click`rs5`oneRsx2`infoList1` infoactList`sumListW8` waferListZ+`infoitemޟ` infoactItemv`sumItem `mfgnameY`part~`timesX`qty`ship+`user`hasprod,~`hassumv>`hasinfo`oldLotid` crsCollection`measItemCollection«`rownummR`rodListG`rodw` actrodList`actrod`rodlotid?`ctm`prod^`Sql4`$` prodCountI ` prodindex W`sNamed` SourceName4`ne`crs`Removeϱ` infoCount` infocouttr`infotdǞ`sj`infotr՞`of` rowcollection3`sonlotIdĀ`rs4`pg` measItemRome`Qh`sName1_` SmallScrolltm`Down;`wm` CutCopyMode` FileFormat` XlFileFormaty`xlCSV` CreateBackup`sName2``sName3a` 洢c`Yangtze_River_storage_you`wpSet`wpsql`wpstr:` customernamey`pdsrcjV`networkSl`FileCopy@`GD_itemX`idset;W` lot_id_count&`copy_rowF%`c_w`cp\` EntireRow`yys_` total_qty`lotSetaW`in_noYQ` Shipping_Dated` sqlSublotA` sqlSublottti`subitem.` sublotcount`sublotir`subcount` sheet3setb` sheet3sqld` MoveFirstN`th_row` Thickness'~` Maker_Plant! `Insertr`Shift` xlToRight|` CopyOriginf`xlFormatFromLeftOrAboveP`rowall ` uomcolumnm]`lowChar`upCharY`pd3`charpdS` p_workbook.g`Sett`f_allo`f_rowv`irowq`pp^`sq%_`ss'_` count_qty`de\`sqlship`Sqlcommonutil_sub_lot_id.`get_sql_checkall_datas8`numm]`thA_`dtbk`bolanZ`Բ3_Click` 1_Click?`testSet`testsqlm`idNameM`noName`test4`Oracleݿ5`connu`strConnp'`State`Version` >``xml_path` determine` ̨xml`̨_createxml(`xmlFile` CreateXml-`newNodeLŒ`ltNodeZy`rowItemi `rowltem` MaterialNo.`h_`ii]`ltNodelH1` endcolumnnS`wi_`lltNode2\` itemColumne`CC\`co\` getcount_qty҇`qy^`Sqlcommonutil_lot_id`getsql_full_inspectione`getsql_spot_checkN`tem`"getsql_process_sampling_inspection`getsql_crystal_bary`xml^`_createxml`PLAN_SHIP_TIME1F}` wafercount`sg_`tk`createTextNode ` itemcountU`st(_`ģͯ`D`BILLCODE3`_createxml:`Clear`ģlot_idp` Click`modebookx` Vendor_CodeC`Part_No6` timecount&`item_row` Sqlcommonutilf`bi\`id_rowH` Verder_Code`Val`ID]` ̨ģ`̨Click1111` timeAndSumSqlh` timeAndSumSetf` sublot_all`countrow`dttmsqlt`dttm`countrow_formate@`forbaf`IngotGrowthMethod.`IngotOrientation` IngotTypeQ` InvoiceNo+`ManufacturingSitex`sql0\$`po^` ShelfLifeTimekN`ShipQtyG `SpecNo` SupplierIDȥ`TSMCFab8=` count_item`co1-`lowValuex`upValue` havacolumn!&`xlToLeftWY`items`h`UNIT`da\` wafer_columnw?` ϷʳθIJ`*`Poitem9` Ϸʳģy` Ϸʳ`waf` MEASTIEMSv%`xlUp`WAF_MEASW`itmes`sublotW`aaaaaaqV`findtypel` strResult` strResult2Μ`flag`jj]` measitem1^` splititem1ˮ`spfind1`wafid*`spdatab`num2]` spdatafindq`Column1N9`spfind`sqlnumT`getnumW`Patterni`xlSolid7n`PatternColorIndex` xlAutomatic@` TintAndShadeq`PatternTintAndShade<`strcity?` vbTextCompare Q`oo^`strcity1P`fh;]`meassqlsw`meassetss`meassql`measset`meassql1U`measset1Q`meassql2V`measset2R`meassql3W`measset3S`Ϸʳ_createxml8` ScrollColumnLH`promultiW`dic_customername_prosU`sqlpro`prosqlA`proitem8`prosum֍`pd^`prosm`cus-` customername1u`prostr`firstrow3`pdsrow`FirstdataworkbookS`firstExcelSheet`customername1yy*` dataworkSheetqI`datarow |`Ϸʳ_createxmlpro]f`Ϸʳ_createxmls`ͨģ`Main,`rsPcs]`sqlPcsr`IsEmpty `IsNull`rsh`sqlht$`lotid1!`lc` minValue1b`maxChar1\` maxValue1`minChar1 `WAFCONTSx `countsS`ϺI%`shtempB` excelpath6` sheet1set` sheet1sqlt` columnNUMi`lotIdstr`AMMSset`AMMSsql3`rangeM` Worksheet`dataExcelSheet1+`colunmi` sheet1set1V` sheet1set2V` sheet1sql1` sheet1sql2`pstime`wpsumZ` ģsql^`getsql_all_check_mullot_overalld"` getsql_spot_check_mullot_overall` getsql_typed|`getsql_type_checkj`getsql_all_check_mullot_id3`getsql_spot_check_mullot_idս`uus_`get_sql_number`numssql2`人оģh`人о` localPath`Share` copycountD`wt_`人о_createxml`xml#`btNode}`itNode85`vtNode7\`spsNode`ct\`spNode`lotno `lotqtyN`kk]`arrrD` SVMcharpdp` charpddan?`人оxmlC`ݫ`о#`aa{\`sublots|`wafsumhr`subsq8` Resistivity:` Resistivitys€`Resi`lotq`cum'`teams`team`ϷʳxmlA`headnode`paranodeSF` sonparanodeƟ`Zq` createPolderɐ` ϷʾϸĶ`ϷŸV`Ϸʨ`Ϸ1D`lotsett2kJ`cZ`CountA38` Nexchip_Fab{}` Material_No}`Spec_Nox`Maker#`dx]`ģ8c`о_createxml` itemcount1Q`1ur`SVMģ`SVM`sumqty` sub_counth`AutoFill_` Destinationл` xlFillDefault]j`sheet1i9P`RowCountu` sheet2set^` sheet2sql`sh2` EntireColumn` sub_title*` qty_titlev`itemrow{` pditemrowS`Va_` sheet4set(`sh4`̩о ` оʸ=`о` copy_row1ȷ` NumberFormatR`  ``coun_j9` CQAOSPartNoc:`lotSqlY` resExcelRow`s` lotResSet5`lotNo1=` lotResSql7` lotResItem\`waferSet`waferSql`ģlot_id`GLOBģ`PartID1`Supplier`ShipTol`MaterialVersionR`SupplierMfgSite` MaterialDesc3` DeliveryNo$N`DopantD,`Notch_orientationb`Surface_orientation`item_colH`slot_col``GLOB_createxmlO`` GLOBģxmlQI`ttNode.`dtNode`LO ^` о1b`BC\`aaar`xiax`shangx2`ݸо3r` Unprotect?`ss3S`baoz*`zibao`xlOpenXMLWorkbookW`Protectf`DrawingObjectsߺ`Contents=` Scenariosk`ϷʳζƷ`ϷʳζƷģf`testpro`ϷʳζƷxmlk[` itemsublotid6` itemcountt R`itemcounttmorezI`su)_`subid`Value2`rowpdO`yy1M`ss1Q`ģ10`ʿƫ`sublot_id_counth`d[`MEAS@`D`OXY`idset1`sql11`idset2`waf_cont`teamss`measset0P`Sqr(`jingshu`jingshu2j `jingshu1i `COUNT1#8` meassqls1A` meassets1`COUNT2$8` querynum15`wafcount E`MyBook`sht` ̩о1G` ̩о2H`bb\`ORDER_NO ` SUBLOT_ID`sublotid`chuhuo`baozhiD`shuliang8b`ROD_USER_LOT_ID`aaaaa `bbbx`jisu`wafdate`BordersC"`xlDiagonalDownJ@` LineStylew`xlNone` xlDiagonalUp` xlEdgeToph` xlContinuous[` ColorIndex`Weight1`xlThinw` xlEdgeBottom` xlEdgeLeftL` xlEdgeRight%v`xlInsideVerticaljM`xlInsideHorizontal` 洢1>`洢` countwafid9` counfwasetA`JoinM&`strcity3P`strcity2P`ccc}` ITEM_TYPE'`meassql4X`measset4T` ̨ģ2:`counx`̨_createxml1u\`̨xml21` Ϸʳxml`batch_noFb`Lot_No՘`variancen`parameter_namep`countsE8`ZM$``S1_`S2_`lotsd`meassR`wafs*`tNode2VN`人ˮ*`lot1B`minfX`minsX`maxf.`maxs.`ණδ`LOTON0` ̨ģ3;`bzsj 5`pkgsj:~`sql3_$` PULLER_IDd`timeAndSumSql1`timeAndSumSet1`fncset`fncsql`y1O_`̨_createxml2v\`̨xml32` ̨ģ4<`ļFJ`OriginFilePath` vbCritical+}`ൺоO` ൺо` ൺо%`PLAN_SHIP_TIME,`YNAMEއ`ZM1`ZM2` CREATEDset` CREATEDsqlӞ`qingdao_createxml`ZM3`ģ9c`ModifyReadOnlyAttribute`file%`GetFile:` Attributes` vbReadOnlyL`ModifyReadOnlyAttribute11`xlWorkbookDefault` Ϻɵ·C`wafUtils\#`querynumd` measitems^`spstate5`colum G`numset` resultitemw`char)`spsethN`ittype<`pkgSet``pkgsqltb` GLOBģ n`end_col|`ff9]`txt` ൺо1^`XmlMaps`Export`Url` Ӻض֥1~`Ӻض֥A`cidb~` measitemsql` measitemsetS` Purchaser^`aaaaaaaR`ulr!`ݻУ` ݻ1@C` ݻ2AC`ycocsqlb`ycocset`a1k\`Move>y` ൺоxml>(`parameter_name1`tttNode(` 0021`оi`itemmin`itemmax`оH` о1` о2`m~`wafidset&`wafidSql'`_createxmlk`xmlL`xsdend `waf1` newNodeLOT^`ltNodel1Ś` 人`meass1` ģ `OXYLIST `measnae`OXY1b4`OXYS4`rdl1:`rdl`jinshu` jinscount```kaisx`1`jpdԤ`measname` meascountl` ͨģ1| `оY` ITEMSSTDsqlL` ITEMSSTDsetK`ITEMFLAGvg`smu1F`smu2G`о™` 洢6r` sublotͨÉ(` subcocfPage`I` Ϸʳ`оY`о18`оCOA`оping`оtxt7`subcout `gzr]`itemtype!i`False1 ` IMPORT_TIMEC`xlCurrentPlatformText?>` PivotCachesJ`CreateM` SourceType` xlDatabasem` SourceData`CreatePivotTable `TableDestinationi` TableName` `DefaultVersion^ ` PivotTablesw` PivotFields` Orientationw` xlRowFieldr` AddDataFieldY`xlCount`ShowPivotTableFieldList` asdadasdaP` ණͨģ5M` ģ1111111U` Ϸʾn``arrData ` sublotsqlQ`lt%^` wafcounts2V` sadsadsad`res`Ressqlth`res1`Ressql1`Data;` countsql2` countset2` countsql1` countset1` ϷʾwaferI` Ϸwafer2R`afasfef` strResult3Ϝ` counttaypcK`xiaxfh9k`shangxfh`Ӣ,`itemdyg`dygz` Ͼ̨0`Ͼ̨Click1111`_Defaultj` _B_var_TrimmT`_B_var_FileNamer` _B_var_wpSet=` _B_var_wpstrf`_B_var_customernameB`_B_var_ServerShare`_B_var_UserName`_B_var_Passwordy`_B_var_Connect`_B_var_NetworkObjectf<` _B_var_fsoL`_B_var_xml_pathe`_B_var_dataExcelSheet!&` _B_var_xx` _B_var_sql1ɉ` _B_var_idset(`_B_var_lot_id_count`_B_var_B` _B_var_bbI`_B_var_A` _B_var_teams` _B_var_team ` _B_var_maxs$` _B_var_minsz`_B_var_ycocsqley`_B_var_ycocsetw`_B_var_meassql+`_B_var_meassetw`̶` _B_var_̶-` _B_var_ElseIfqm` _B_var_a1`El]`MEAS_MIN`_B_var_MEAS_MINM`_B_var_BILLCODE``_B_var_networko`_B_var_copy_row` _B_var_c_w>` _B_var_cp|` _B_var_yy`_B_var_y`_B_var_s`_B_var_i `_B_var_sqlship` _B_var_lotSet `_B_var_sqlSublot`J`_B_var_sqlSublotttZ`_B_var_sublotcount`_B_var_sublotiu`_B_var_subcount`_B_var_sheet3set\`_B_var_sheet3sqlt^` _B_var_it^` _B_var_meshp` _B_var_rowallC`_B_var_uomcolumn1W`_B_var_lowChar[#` _B_var_upChar[` _B_var_pd3.` _B_var_Value` _B_var_After`AGVxs` _B_var_AGV0`ģ11` Ͼ̨xml:` endcolumn1#`_B_var_lltNode_` _B_var_fncsql2`_B_var_timeAndSumSqlM<`_B_var_timeAndSumSet:`_B_var_sublot_all m`_B_var_countrow`_B_var_dttmsqlh` _B_var_dttm` _B_var_iiS`_B_var_countrow_formate` _B_var_forbafb`_B_var_IngotGrowthMethod`_B_var_IngotOrientationR`_B_var_IngotType`_B_var_InvoiceNo~`_B_var_ManufacturingSite!`_B_var_MaterialNoB` _B_var_rsS+` _B_var_sql0ȉ`_B_var_p` _B_var_po\`_B_var_ShelfLifeTime "`_B_var_ShipQty` _B_var_SpecNoL`_B_var_SupplierID`_B_var_TSMCFab@` _B_var_co1><`_B_var_Q`_B_var_j `_B_var_numsql2` _B_var_numm`_B_var_havacolumn` _B_var_co{` _B_var_itemsM,` _B_var_UNIT` _B_var_da`_B_var_wafer_columnx` _B_var_SettJ` _B_var_sql2ʉ` _B_var_irow ` _B_var_pp]` _B_var_sq`_B_var_count_qty`(` _B_var_sql3ˉ`_B_var_PULLER_ID`_B_var_timeAndSumSql15`_B_var_timeAndSumSet11X` _B_var_counts`_B_var_sublots` _B_var_coun%`_B_var_measitem` _B_var_fncset~` _B_var_flagc` _B_var_jjy` _B_var_ColumnI` _B_var_LeftQ`_B_var_Column1<` _B_var_sqlnumN` _B_var_Format` _B_var_y1`ElseIfIfV` _B_var_de`Ͼ̨_createxml1n` _B_var_spsetU` _B_var_sql3` _B_var_ittypes`_B_var_c`_B_var_rowItemi`_B_var_rowltemE`_B_var_h` _B_var_qty`_B_var_ltNodel4`_B_var_endcolumn\` _B_var_wi4`_B_var_itemColumn` _B_var_CCo`DDDDH` _B_var_Chr\;`Class`_B_var_p_workbook` _B_var_ss3d` _B_var_idset1_:` _B_var_xiax9` _B_var_shangxA`_B_var_ORDER_NO`_B_var_SUBLOT_IDS`_B_var_sublotid'` _B_var_chuhuo` _B_var_zibaoL` _B_var_baozhi=`_B_var_shuliang9` _B_var_subid`_B_var_ROD_USER_LOT_IDi` _B_var_aaaaa8` _B_var_bbb5` _B_var_jisum`_B_var_wafdateS` _B_var_MyBookY` _B_var_sht`_B_var_sheetName`_B_var_itemdyg` _B_var_dygB`_B_var_lotrowitemsc`_B_var_checkIDH` _B_var_sublotA`_B_var_sublotsql`_B_var_wafcount`_B_var_subcout`_B_var_afasfefQ`_B_var_itemcount_`_B_var_wafcountsw_`_B_var_counttaypT`_B_var_sadsadsada` _B_var_res%` _B_var_Ressql`_B_var_jingshu`_B_var_meassqls`_B_var_meassets` _B_var_smu1u` _B_var_COUNT1̲`_B_var_jingshu11`_B_var_meassqls1`_B_var_meassets1)` _B_var_smu2u` _B_var_COUNT2Ͳ`_B_var_jingshu22`_B_var_meassql3`_B_var_measset3܄`_B_var_countsql2/`_B_var_countset2+`_B_var_meassql2`_B_var_measset2ۄ`_B_var_countsql1.`_B_var_countset1*`MaxȲ`thnew`edne` _B_var_ednvE` _B_var_sss` _B_var_ForjL`Min` _B_var_Shiftѯ` _B_var_xiaxfh`_B_var_shangxfh?` _B_var_res1`_B_var_Ressql1,` _B_var_Datar`_B_var_Thicknessw`_B_var_Nexchip_Fabn`_B_var_Material_No`_B_var_Spec_No{` _B_var_Maker:` _B_var_th`MPMCH}` _B_var_MPMC`MMCLTAVG`_B_var_MMCLTAVGc`MSPVՍ` _B_var_MSPVA`MCUNIG` _B_var_MCUNI4` _B_var_EndF`esleif` _B_var_esleif`fi<]`Data1@1` meas_datay`_B_var_meas_data`from~ ` _B_var_from` _B_var_ar4` _B_var_arr2` _B_var_IfP`measdata`_B_var_measdata`MEAS_ITEM_DATA`_B_var_MEAS_ITEM_DATAE` _B_var_Fields#`ferdsa` _B_var_ferds%` MEAS_ITEM_228b`_B_var_MEAS_ITEM_228`vule1` _B_var_vule1` MEAS_ITEM_227a`_B_var_MEAS_ITEM_227`Ϻ΢` _B_var_cocM #`_B_var_cocpageg` _B_var_ingotW` _B_var_ingot2` _B_var_yu`_B_var_r` _B_var_Midp` _B_var_rs` _B_var_rsPcsJ` _B_var_sqlPcsV`_B_var_wafercount` _B_var_rs1 `_B_var_tmpvalue` _B_var_lotid5U` _B_var_rsh ` _B_var_sqlh` _B_var_lotid1H`_B_var_l ` _B_var_shl`_B_var_WAFCONTS@`_B_var_countsS` _B_var_LOTONV`minsfb` _B_var_minsfn&`maxsfj` _B_var_maxsfz.` expressionx`Value1` _B_var_Value2K`Ģ`_B_var_total_qty`_B_var_modePathNamexb` _B_var_filesd`_B_var_copyAfterSheetsl`_B_var_modeSheetF`Sheet3`Sheet21FP`Sheet4`Sheet31kP`Sheet6`Sheet41P`_B_var_rowItem,u` _B_var_cocRow`_B_var_cofcMin`_B_var_cofcMax` _B_var_arrMax>` _B_var_arrMin\`_B_var_Recordset`Ϻоɏ`_B_var_subcocfPage:`Sheet7`Sheet51P`Sheet8`Sheet9`Sheet61P`Sheet10 P`Sheet71P`Sheet11!P`Sheet12"P`Sheet81$Q`Sheet13#P`Sheet14$P`Sheet15%P`Sheet16&P`_B_var_shipDateColR`_B_var_shipDateRaw8`_B_var_fileNameCol̛`_B_var_fileNameRaw`_B_var_ShipDate`_B_var_customer_raw,`_B_var_tempvalue` _B_var_ciu` _B_var_sSqlO` _B_var_newSql^`_B_var_checknump`_B_var_cellvalue`_B_var_jchecknum`_B_var_iRetCode[|`_B_var_sqlAlert8`_B_var_PLAN_SHIP_TIME|`_B_var_lotidSet`_B_var_lotidSql` _B_var_YNAMEK` _B_var_ZM1` _B_var_ZM2` _B_var_sheetH`_B_var_addsheet`_B_var_CREATEDsetJ `_B_var_CREATEDsql `_B_var_lotidCollection`_B_var_checkDataset\`_B_var_checkDataSql` _B_var_ZM3` _B_var_S1` _B_var_S2` _B_var_NameX`_B_var_parameter_name1%` _B_var_ZM` _B_var_ttNodet`_B_var_tttNode` _B_var_Share` _B_var_sumqtyl`_B_var_sheet1set`_B_var_sheet1sql8`_B_var_n`_B_var_sub_count,`_B_var_sheet1iS`_B_var_RowCount`_B_var_sheet2set"`_B_var_sheet2sql֘` _B_var_sh2̐`_B_var_sub_title`_B_var_qty_title`_B_var_itemrow~ `_B_var_pditemrow` _B_var_Va,`_B_var_sheet4set^"` _B_var_sh4ΐ` _B_var_itemC`_B_var_copycount` _B_var_wt?`_B_var_copy_row1 `_B_var_t`_B_var_itemcount1R` _B_var_st`_B_var_Purchaser` _B_var_cids;` _B_var_lotl` _B_var_num x`_B_var_strcity`_B_var_strcity2` _B_var_ccc:`_B_var_measset0ل`_B_var_aaaaaaaU` _B_var_oo7`_B_var_strcity1`_B_var_meassql1`_B_var_measset1ڄ` _B_var_ulr2` _B_var_fileRU` _B_var_colum ` _B_var_numset`_B_var_PLAN_SHIP_TIME1f` _B_var_coun_j|`_B_var_CQAOSPartNo+` _B_var_lotSql`_B_var_resExcelRowd` _B_var_lotnoU`_B_var_lotResSet!?` _B_var_lotNo1`_B_var_lotResSql@`_B_var_lotResItem`_B_var_waferSet`_B_var_waferSql<` _B_var_sg`_B_var_sublot_id_countQ`_B_var_x`_B_var_d` _B_var_MEAS5`_B_var_modebookP`_B_var_Vendor_Code`_B_var_Part_No*`_B_var_timecount 0`_B_var_item_row` _B_var_meass~`_B_var_measnaeV` _B_var_OXY1Ι` _B_var_OXYS` _B_var_OXY}` _B_var_rdl1~` _B_var_rdl` _B_var_jinshu`_B_var_jinscount` _B_var_id_rowu`_B_var_Shipping_DateA` _B_var_th_row`_B_var_Verder_CodeO` _B_var_f_all` _B_var_f_row:`_B_var_item_arrT` _B_var_IDN` _B_var_iii[` _B_var_div@`_B_var_meas_columnʺ` _B_var_Right9`_B_var_get_type1` _B_var_item_a` _B_var_rs2 ` _B_var_lots`_B_var_waf_cont`_B_var_ITEMSSTDsql>`_B_var_ITEMSSTDsetf<`_B_var_ITEMFLAG>` _B_var_Poitem`_B_var_headnode1[`_B_var_paranode`_B_var_F`_B_var_sonparanode(`_B_var_Z` _B_var_waf`_B_var_MEASTIEMS.`_B_var_WAF_MEASa/` _B_var_itmesU` _B_var_aaaaaa` _B_var_fh` _B_var_sqlproY` _B_var_prosql` _B_var_prosum@` _B_var_pdQ` _B_var_pros>` _B_var_cus>=`_B_var_customername1` _B_var_prostr `_B_var_firstrowl ` _B_var_pdsrow `_B_var_firstExcelSheetu`_B_var_customername1yy=`_B_var_dataworkSheet`_B_var_datarow` _B_var_tNode1` _B_var_wafs` _B_var_tNode2` _B_var_btNode` _B_var_itNode` _B_var_vtNode`_B_var_spsNode` _B_var_ct` _B_var_spNodeK` _B_var_lotqty`X O#1  P- . R Q = S  /w  T U V 0 W! 1 X= 2-? 3* Y& Z,}/G 4+90 [. \3 ]4 ^5 _6! `7Q 58 "$&e 62(i 7>k 8@+AEB%P 9C :KY bJ[ cT] dU ;fYd} eV fe gm9p qu <v a+ i = > ?Q$# @e"/ A3 B!s# I CK DM E hS F%&H i GM'y I{ J()%  K* L+, M N    t@@Jh@    @@ @@ @A @   @@@@    @@ B@Bqe(RxME(<6 <<$. p` ` `  i` ` ` ` ` `l `n `p `+h` I `  `" ` --iHi, .% <8%phj %`phxphphphphph@phhphphphphph0phXphphphphph phHphpphphphphph8ph`phphphphph(phPphxphphphph ph@ phh ph ph ph ph ph0 phX ph ph ph ph ph phH php ph ph ph ph ph8 ph` ph ph ph ph ph( phP phx ph ph ph phph@phhphphphphph0phXphphh`k$*\Rffff*T16c06f1fe"" 8X  p B  "  <H h$p $ $    0 P`    $ 0@`px  . , "      @ P hp  x  8 *  P`      * ,80h,0 (,0,P,*h( (    $$($P$0h              0 8  "@ h  p B    ( &      (  8 H  P B h p  x    8  &H  p             0 ]XAD1$vAE1$v 'Debug.Print xml_path .xml' A@oxp]]]]0]HMSXML2.DOMDocument$p.coa %.  /xml version='1.0' encoding='Unicode' %.  % B@]`Scripting.Dictionary$p.l ]xScripting.Dictionary$p.n ]Scripting.Dictionary$p.p  õһƷõٸ r  F2:F1000000$v r !v 't t l % t  t +l kh`һƷ'x x $> x 'x һƷõٸ |T2:T x  $v |!v 'z z n % z  z +n k'p_row = Range("B2").End(xlDown).row - 1&sublotcount = p_row / itemcountt.Countitemcount = itemcountt.Countӽڵٸproduct,sublotid l !'ٸparameter'X' n !'  ǷһƷ X $> X $> X 'XһƷõٸ |T X:T100000$v |!v '| | p % |  | +p kh` p !'kHproduct %.  !%.$tNode.setAttribute "type", "program"head %.   !!%%.  !!%!%. parameters %.   !!%%.  !!%!%.  $> %.  %. X $> % B@`   parameter %.  %.  !%.    $> %.  %.  X   $> % B@`X  ' X  'X0 row = yy + 1 ѭƷ..] $'  A@..MsgBox xmlFile & ""iʽxml,]8]PMsxml2.SAXXMLReader.6.0$p. Msxml2.MXXMLWriter.6.0$p." "($ "(& " ((  B@* "!'i utf8BOMʽh] .B@ 0 .(lutf-8 .(2 8 .B@4 , .B@4 Ƴǰֽڣ0xEF,0xBB,0xBF .(:]  > <(l B <(@ <B@ < .B@D .B@F .B@B H J <B@H <B@F <B@BiAttribute VB_Name = "Ϸʳζxml" Sub l_create`pro() Dim "File As 2Sng4,_pathRange("AD1")h + E+'Debug.PrxintN7E\= & ".\&CXml&0 End  Function '( ,#ZhDocgOb0ject0tro`otNodu h eadernew&6SeB=X6("MSXML2.DOMument"[O.Ele("coa . l 8ProcessingInst$ruY("Ag, "vers]='1.0' encod@ ='Uniie'.x*ertBefore , BChildAPs(0;C%ditemsublotid _DMSScript$.Di.ary%counttDm>0B'õ׀Ag'һ~ٸBFor Each su InvF2:F10%%/`/=.Value2# If Not 0.exists(1") A t<> "" Then?cC~{IfNexs&rowpdY1WIe Cells(B, 20) #" bxend#''ct'T2:T"C - 1Yyy1ct'?'c'71'(& 'p_B2").,(xlDopwn).'6mB @C/<|.CAed$8EftI 'ӽڵx$3h'Ud`,ci3l xm ar teryy Jmx0 #m ria To x  'ǷӀһq?;s2+ 12)@0:1;2M(^ B<5IFK{7A7<:TKKss?9Nc0ZNs1N0_!(# QiWS/ ) h=_ X/ ?yrnt("Bda .app`r(/\'.set"type"p` gF/? Q  oc[rğ.R Җ.((i qj/de/ n!=e D ]s[d ?!+pp nt 6TFe18 xcdF)#eU%O)O)O"y (2ǓTॡ0(o Vjy.createElement("parameter ") Set tNode = pn.appendChil`d(new<$sg \@ Dim xmlStrp As  D= PrettyPrintXmlr hWrUtf8WithoutBoFile,DG roo!A' ' 'MsgBox & ""  End Function'ʽ,` emldoc)"de"Object `4!w.d= C te("Ms2.SAXXMLRea .6.0!d m4M-r .ind 'True$omit@Decl$ .contHandl = # dParsex%CKC Outp&u%3 uEހBOMA5kH3I(>N4, GQA3stmANew ADpODB.cCc.FO TypAaNd!Cht "-8aO`A Ca "*_ K" encod`qMUTF"?> vbCrLf$&'Ƴǰֽڣ0xE@F,0xBBF Posi}DG3c-@ea-F.*,BinlarGM`,add Wc$ CopytF Flushlos2CSave ToF', ada=O am.8}Cck0a\? 0xME(6 <<<x x`X I  ` I  h`H I  ` I  Vx`8 RRI XIH X` I IH Z`h ]]I IH \` I IH xhx0%Hxhxxxhxxhxxhx8xhxxxhxxhxxhx8xhxxxhxxhxxhx8xhxxxhxxhxxhx8xhxxxhxxhxxhx8 xhxx xhx xhx xhx8 xhxx xhx xhx xhx8 xhxx xhx xhx xhx8 xhxx xhx xhx xhx8 xhxx xhx xhx xhx8xhxxxhxxhxxhx8xhxxxhxxhxxhx8xhxxxhxxhxxhx8xhxxxhxxhxxhx8xhxxxhxxhxxhx8xhxxxhxxhxxhx8xhxxxhxxhxxhx8xhxxxhxxhxxhx8xhxxxhxxhxxhx8xhxxxhxxhxx 8k$*\Rffff*TH6c07b76b B R  x00  ,  PX `B    0 Hhpx ` 000`  x &B \ H0h0 " 08 "@B hpbx 000` x*  (B   @Hh:,   0@HP6XX  x  " :H 0 ( &  ( 0 &8  ` 4( ` (@ @P08$t"` :,0`p 2x  , (@H"X0  B<8 x (B     0H:P,   6 X"800 PV8Jx6JPpVhX x J!0P!"!8!P! 0"P"  X" `" p" ,""H# 4P# # $ "$ :$ 6% H% 0& 8&X& *p&'V`((X)J)60*h**** *@*+ ,,N- L8.  .. .. >. ^/  4p/ / @0 "0 :0 601 h1  P2 X2x2222:2,303@3 (H3p4V055(6J66787X7x77@7789N: L: H;h; p; .x;8; ; ; <(< @<H<`< h<p<<4<<p==J>0h>>h@@AJAH(BpBV0CC(DjDJ E6pEFGJH0hHH (IHI PI XI $`IB I IIIIIJ:J,HJxJJ J J JJJJJ~K8LMM  8NXN `N  &hNNpO  XPxPPPP:P,Q0Q@Q 2HQ Q Q,QQQQRRRSlTT TTTTT U  U @0UpU VVlWX , X XXYl ZZ Z ZZ&[  8[X[`[ h[ $p[B [ [[ [[\\: \,`\\\ \ \ \\\\\x]^^0__V`aa@bbVc@ddjpeve Xfxf f f f ,f fpg zxg g nh 8i j j@jXjkkn@l   llll m@mPmn   nn no >o  Xo^`o  o p q r rrrss: s,`ssss8u (vHvhvpv4xv"w y yz z .z8@z xz z zz zzz { R{ `{ x{ { | } ZX  d؁ @ ( Z p H h p *x  4   (8,X Ȉ $Ј  4 H     N( Zx  ؑ      F0 DxXHhD  @`h:,( 20 h x,Ȗؖ8"X@ Xx `  ( 0 P ü '<SELECT COLUMN_NUM FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS = ' ''revADODB.Recordset$p. t (r"αͣ޷ x (v%αԣ޷  ~ B@ ! MEAS_ITEM_ COLUMN_NUM %'ki'dz컹ȫx /  / $' * e  * $' + e  + $' - e  - $'d 'kJSELECT ITEM_TYPE ||ITEM_FLAG FG FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS = ' ''ADODB.Recordset$p. t (r#αͣ޷ x (v&αԣ޷  ~ B@ ! FG %'kXiPITEM_TYPE,Wafersight,LNSW 'ESELECT UPPER(ITEM_TYPE) FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS = ' ''ADODB.Recordset$p. t (r"αͣ޷ x (v%αԣ޷  ~ B@Debug.Print sql2 ! UPPER(ITEM_TYPE) %'kiITEM_TYPE_PARENTSPWSh 'LSELECT UPPER(ITEM_TYPE_PARENT) FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS = ' ''ADODB.Recordset$p. t (r"αͣ޷ x (v%αԣ޷  ~ B@Debug.Print sql2 ! UPPER(ITEM_TYPE_PARENT) %'k(i "''õȫsql ݶsub_lot_id   '$/$$'dx$$$/  $'$$/ $' $'k ûм '  '' k- SELECT SUB_LOT_ID ,mx,mn,ag,ct,sted FROM ( '  SELECT SUB_LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( ' % SELECT SUB_LOT_ID ,to_number( TRIM(  ?) ) item ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT '  FROM MES_SHIPTAG ' + ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' '  ) ) GROUP BY sub_lot_id '  ) ORDER BY SUB_LOT_ID 'Debug.Print numsql2 'Vk '''''''''''''''''''2   $ OXYCONCENTAIL$ RESISTAIL$RRGTAIL$ ORIENTATION$ ORIENTATIONX $CTAIL, SELECT SUB_LOT_ID ,mx,mn,ag,ct,sted FROM ( '  SELECT dd.SUB_LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( '$$' SP:COCMEASDITEMSSTDITEM_TYPE_PARENTSP,ȡ|  SELECT UPPER(substr(SP_DATA_STATE,INSTR(SP_DATA_STATE,';',-1,1)+1,length(SP_DATA_STATE))) STATE, sub_lot_id,waf_id FROM COCMEASDATAINFOS 'd r SELECT UPPER(substr(SP_DATA_STATE,0,INSTR(SP_DATA_STATE,';')-1)) STATE , sub_lot_id,waf_id FROM COCMEASDATAINFOS 'k@  WHERE SUB_LOT_ID in( ' W SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' '  )) cc LEFT JOIN ( '    ' $/ $$'d $ $ $/  $' $ $/ $' $'k +'''''''''''''''''''''''''''''''''''get type ''''ȥ/ $/ $ $/ $' $'d $$'k % SELECT SUB_LOT_ID ,to_number( TRIM(   ) ) item ,' 9' a ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in('  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT '  FROM MES_SHIPTAG ' ;) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' '  ) '      union all 'k  4 ) dd ON dd.waf_id = cc.waf_id AND dd.A = cc.STATE' - GROUP BY dd.SUB_LOT_ID ORDER BY SUB_LOT_ID )'[  'Vkh i` !''õsqlݶsub_lot_idxֻе   '$/$$'d$$$/  $'$$/ $' $'k( ûм '  '' k- SELECT SUB_LOT_ID ,MX,STED,AG,MN,CT FROM ( ' ~ SELECT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT '  FROM MES_SHIPTAG ' * ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' ' " )cda LEFT JOIN ( SELECT * FROM ( '  SELECT USER_LOT_ID,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( ' $ SELECT USER_LOT_ID, TO_NUMBER(TRIM(  ) ) item FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( ' G SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H'))) ) ' ; GROUP BY USER_LOT_ID ORDER BY USER_LOT_ID)us LEFT JOIN ( ' SELECT *FROM ('  SELECT SUB_LOT_ID,USER_LOT_ID, ROW_NUMBER() OVER (PARTITION BY SUB_LOT_ID,USER_LOT_ID ORDER BY SUB_LOT_ID ) rn FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in(' G SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' w SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H''  )) )) WHERE rn=1 ' ) ) uss ON us.USER_LOT_ID=uss.USER_LOT_ID ' A )bbb ON cda.SHIP_SUB_LOT_ID=bbb.SUB_LOT_ID ORDER BY SUB_LOT_ID 'Debug.Print numsql2 'Xk '''''ʱ%'''''''''''''''''''ʵ   $ RESISTAIL$RRGTAIL$ORGTAIL$CTAIL', SELECT SUB_LOT_ID ,MX,STED,AG,MN,CT FROM ( '  SELECT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT '  FROM MES_SHIPTAG ' + ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H')cda '  LEFT JOIN ( SELECT * FROM ( SELECT USER_LOT_ID,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( '''    $$'#numsql2 = numsql2 & " SELECT USER_LOT_ID, TO_NUMBER(TRIM(" & meas_column & div & ") ) item FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in(SELECT LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME ='" & filename & "') ) " $ SELECT USER_LOT_ID, TO_NUMBER(TRIM( ) ) item FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( ' G SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN (' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H')) ) '      union all 'kPH''' 2 ) GROUP BY USER_LOT_ID ORDER BY USER_LOT_ID )us '   LEFT JOIN( SELECT * FROM ( SELECT DISTINCT SUB_LOT_ID,USER_LOT_ID,ROW_NUMBER ()OVER(PARTITION BY SUB_LOT_ID,USER_LOT_ID ORDER BY SUB_LOT_ID ) rn FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in('  SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H') ' @)) ) WHERE rn=1 ) uss ON us.USER_LOT_ID=uss.USER_LOT_ID )bbb ' > ON cda.SHIP_SUB_LOT_ID=bbb.SUB_LOT_ID ORDER BY SUB_LOT_ID'Debug.Print numsql2 'X''''endk08'''''''''''''''''''OXYCONCENHEAD*1.96;OXYCONCENTAIL*1.96   $ OXYCONCENTAIL$OXYCONCENTAIL*1.96, SELECT SUB_LOT_ID ,MX,STED,AG,MN,CT FROM ( '  SELECT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT '  FROM MES_SHIPTAG ' + ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H')cda '  LEFT JOIN ( SELECT * FROM ( SELECT USER_LOT_ID,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( '''    ' $* $$'d@ $ $ $*  $' $ $* $' $'k "numsql2 = numsql2 & " SELECT USER_LOT_ID, TO_NUMBER(TRIM(" & meas_column & div & ") ) item FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in(SELECT LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME ='" & filename & "') ) " $ SELECT USER_LOT_ID, TO_NUMBER(TRIM( ) ) item FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( ' G SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN (' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H')) ) '      union all 'kx 2 ) GROUP BY USER_LOT_ID ORDER BY USER_LOT_ID )us '   LEFT JOIN( SELECT * FROM ( SELECT DISTINCT SUB_LOT_ID,USER_LOT_ID,ROW_NUMBER ()OVER(PARTITION BY SUB_LOT_ID,USER_LOT_ID ORDER BY SUB_LOT_ID ) rn FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in('  SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H') ' @)) ) WHERE rn=1 ) uss ON us.USER_LOT_ID=uss.USER_LOT_ID )bbb ' > ON cda.SHIP_SUB_LOT_ID=bbb.SUB_LOT_ID ORDER BY SUB_LOT_ID'Debug.Print numsql2 'Xk ''''''2ORIENTATIONX;ORIENTATIONY   $ ORIENTATIONX''''''ü     $$'d $$'k  *  '  *  ', SELECT SUB_LOT_ID ,MX,STED,AG,MN,CT FROM ( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( ' w SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT' < FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H'' 5 )cda LEFT JOIN ( SELECT * FROM ( SELECT USER_LOT_ID,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( SELECT qt1.USER_LOT_ID,sqrt(qt1.a+qt2.b) item from ( SELECT USER_LOT_ID, TO_number(TRIM(  {)) a FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( '  SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H'))) ) qt1 LEFT JOIN (' $ SELECT USER_LOT_ID, TO_number(TRIM( {)) b FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( ' G SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' M FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H'' < )) ) ) qt2 ON qt1.USER_LOT_ID=qt2.USER_LOT_ID ) GROUP BY ' ( USER_LOT_ID ORDER BY USER_LOT_ID )us LEFT JOIN( SELECT * FROM ( SELECT SUB_LOT_ID,USER_LOT_ID,ROW_NUMBER ()OVER(PARTITION BY SUB_LOT_ID,USER_LOT_ID ORDER BY SUB_LOT_ID ) rn FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( '  SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' ; FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT '  WHERE FILE_NAME =' H' ' { ))) ) WHERE rn =1 ) uss ON us.USER_LOT_ID=uss.USER_LOT_ID )bbb ON cda.SHIP_SUB_LOT_ID=bbb.SUB_LOT_ID ORDER BY SUB_LOT_ID 'Debug.Print numsql2 'Xk6i6''õȫsql ݶlot_id   '$/$$'d5$$$/  $'$$/ $' $'kp5 ûм '  '' k(5 SELECT LOT_ID ,mx,mn,ag,ct,sted FROM (SELECT LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( ' ! SELECT LOT_ID ,to_number( TRIM(  ;) ) item ,WAF_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( '  SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' M FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H(')) ) GROUP BY lot_id) ORDER BY LOT_ID 'Debug.Print numsql2 'Zk1 '''''''''''''''''''2   $ OXYCONCENTAIL$ RESISTAIL$RRGTAIL$ ORIENTATION$ ORIENTATIONX $CTAIL$MTQCGUB/ SELECT LOT_ID ,mx,mn,ag,ct,sted FROM (SELECT dd.LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( '    ' $/ $$'d@/ $ $ $/  $' $ $/ $' $'k. +'''''''''''''''''''''''''''''''''''get type ''''ȥ/ $/ $ $/ $' $'d. $$'k-  SELECT LOT_ID ,TO_NUMBER(TRIM(   ) ) item ,' 6' a ,WAF_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( '  SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' M FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H') ' )'      union all 'k ++  ) dd JOIN '$$' SP:COCMEASDITEMSSTDITEM_TYPE_PARENTSP,ȡ|  ( SELECT UPPER(substr(SP_DATA_STATE,INSTR(SP_DATA_STATE,';',-1,1)+1,length(SP_DATA_STATE))) STATE, lot_id,waf_id FROM COCMEASDATAINFOS WHERE LOT_ID in( '  SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' M FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H') ' )) cc'd  ( SELECT UPPER(substr(SP_DATA_STATE,0,INSTR(SP_DATA_STATE,';')-1)) STATE , lot_id,waf_id FROM COCMEASDATAINFOS WHERE LOT_ID in( '  SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' M FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H') ' )) cc 'kP% K ON dd.waf_id = cc.waf_id AND dd.A = cc.STATE GROUP BY dd.LOT_ID )uu '  ORDER BY uu.LOT_ID 'Debug.Print numsql2 'Zk$i$''õsqlݶlot_idֻе   '$/$$'d#$$$/  $'$$/ $' $'kX# ûм '  '' k#{ SELECT cda.LOT_ID LOT_ID ,MX,STED,AG,MN,CT FROM (SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( ' y SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' N FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H#'))cda LEFT JOIN ( SELECT * FROM ( '  SELECT USER_LOT_ID,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM (' % SELECT USER_LOT_ID, TO_NUMBER(TRIM(  ) ) item FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( ' H SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( ' y SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' N FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' HP'))) )GROUP BY USER_LOT_ID ORDER BY USER_LOT_ID)us LEFT JOIN (SELECT *FROM ( '  SELECT LOT_ID,USER_LOT_ID, ROW_NUMBER() OVER (PARTITION BY LOT_ID,USER_LOT_ID ORDER BY LOT_ID ) rn FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( ' H SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' N FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' ' h )) ) ) WHERE rn=1) uss ON us.USER_LOT_ID=uss.USER_LOT_ID)bbb ON cda.LOT_ID=bbb.LOT_ID ORDER BY LOT_ID'Debug.Print numsql2 '\kx '''''ʱ%'''''''''''''''''''ʵ   $ RESISTAIL$RRGTAIL$ORGTAIL$CTAIL'qSELECT cda.LOT_ID ,MX,STED,AG,MN,CT FROM (SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in( '  SELECT DISTINCT SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' M FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H'))cda'  LEFT JOIN ( SELECT * FROM ( SELECT USER_LOT_ID,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM (' ''    $$' $ SELECT USER_LOT_ID, TO_NUMBER(TRIM( ) ) item FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( '  SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN (' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' M FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H')) ) '      union all 'k''' 2) GROUP BY USER_LOT_ID ORDER BY USER_LOT_ID )us '  LEFT JOIN( SELECT DISTINCT LOT_ID,USER_LOT_ID FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( '  SELECT LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME ='12.20̨ F-HTP0068BAW')) ) uss ON us.USER_LOT_ID=uss.USER_LOT_ID )bbb ON cda.LOT_ID=bbb.LOT_ID ORDER BY LOT_ID 'Debug.Print numsql2; ok '\''''endk8'''''''''''''''''''OXYCONCENHEAD*1.96;OXYCONCENTAIL*1.96a'^   $ OXYCONCENTAIL$OXYCONCENTAIL*1.96 SELECT bbb.LOT_ID ,MX,STED,AG,MN,CT FROM ( SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H') )cda '  LEFT JOIN ( SELECT * FROM ( SELECT USER_LOT_ID,TRUNC(MAX(TO_NUMBER(measitem)),5) mx ,TRUNC(STDDEV(TO_NUMBER(measitem)),5)sted,TRUNC(avg(TO_NUMBER(measitem)),5) ag,TRUNC(min(TO_NUMBER(measitem)),5) mn,COUNT(measitem) ct FROM ( '''    ' $* $$'d $ $ $*  $' $ $* $' $'kX $ SELECT USER_LOT_ID, TO_NUMBER(TRIM(  K) ) measitem FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in(SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H'))) '      union all 'k  & ) GROUP BY USER_LOT_ID ORDER BY USER_LOT_ID )us LEFT JOIN( SELECT * FROM (SELECT LOT_ID,USER_LOT_ID ,ROW_NUMBER ()OVER(PARTITION BY LOT_ID,USER_LOT_ID ORDER BY LOT_ID ) rn FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( '  SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' Ho'))) ) WHERE rn =1) uss ON us.USER_LOT_ID=uss.USER_LOT_ID )bbb ON cda.lot_id=bbb.lot_id ORDER BY bbb.lot_id 'Debug.Print numsql2 '\k ''''''2ORIENTATIONX;ORIENTATIONY   $ ORIENTATIONX''''''ü     $$'d  $$'k K'ss=TO_number ( " & aa1 & " ) TO_number (" & bb1 & " ) b " & filename & "  *  '  *  ' SELECT bbb.LOT_ID ,MX,STED,AG,MN,CT FROM ( SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H'))cda LEFT JOIN ( ' 1 SELECT * FROM ( SELECT USER_LOT_ID,TRUNC(MAX(TO_NUMBER(measitem)),5) mx ,TRUNC(STDDEV(TO_NUMBER(measitem)),5)sted,TRUNC(avg(TO_NUMBER(measitem)),5) ag,TRUNC(min(TO_NUMBER(measitem)),5) mn,COUNT(measitem) ct FROM ( SELECT qt1.USER_LOT_ID,sqrt(qt1.a+qt2.b) measitem from ( SELECT USER_LOT_ID, TO_char(  { ) a FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in( ' L SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT ' M FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H:')) ) ) qt1 LEFT JOIN ( SELECT USER_LOT_ID, TO_char( p ) b FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE ' U LOT_ID in(SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT' M FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H|')) ) ) qt2 ON qt1.USER_LOT_ID=qt2.USER_LOT_ID) GROUP BY USER_LOT_ID ORDER BY USER_LOT_ID )us LEFT JOIN( SELECT * FROM ('  SELECT LOT_ID,USER_LOT_ID,ROW_NUMBER ()OVER(PARTITION BY LOT_ID,USER_LOT_ID ORDER BY LOT_ID ) rn FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in(' K SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT' M FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' Hm')))) WHERE rn=1) uss ON us.USER_LOT_ID=uss.USER_LOT_ID )bbb ON cda.lot_id=bbb.lot_id ORDER BY bbb.LOT_ID' Debug.Print numsql2 '\kx$''''MTQCGUB/MTQCGUB/MTQCGUB/MTQCGUB/   $MTQCGUB/ ''''''ü    ''  $/ $ $/ $' $'k`wdXw $$'k8w0w TO_NUMBER(TRIM(" & tem & ") ) / ', SELECT bbb.LOT_ID ,MX,STED,AG,MN,CT FROM ( '  SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H') )cda LEFT JOIN ( SELECT * FROM ( SELECT USER_LOT_ID,TRUNC(MAX(TO_NUMBER(measitem)),5) mx ,TRUNC(STDDEV(TO_NUMBER(measitem)),5)sted,TRUNC(avg(TO_NUMBER(measitem)),5) ag,TRUNC(min(TO_NUMBER(measitem)),5) mn,COUNT(measitem) ct FROM (' $ SELECT USER_LOT_ID, TO_NUMBER(TRIM( K) ) measitem FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in(SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H') ) ) ) GROUP BY USER_LOT_ID ORDER BY USER_LOT_ID )us LEFT JOIN (SELECT * FROM (SELECT LOT_ID,USER_LOT_ID,ROW_NUMBER()OVER(PARTITION BY LOT_ID,USER_LOT_ID ORDER BY LOT_ID)rn ' ? FROM COCMEASDATAINFOS c WHERE c.USER_LOT_ID in(SELECT DISTINCT USER_LOT_ID FROM COCMEASDATAINFOS c WHERE LOT_ID in(SELECT DISTINCT LOT_ID FROM COCMEASDATAINFOS c2 WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' Ho') )) ) WHERE rn =1) uss ON us.USER_LOT_ID=uss.USER_LOT_ID )bbb ON cda.lot_id=bbb.lot_id ORDER BY bbb.LOT_ID' Debug.Print numsql2 '\kmimȫԭʼ?Function get_sql_checkall_datas(ByVal item_arr, ByVal filename)< SELECT dd.SUB_LOT_ID,slot_no,item FROM ( SELECT * FROM ( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H''  )sb1 LEFT JOIN' ~ (SELECT UPPER(substr(SP_DATA_STATE,0,INSTR(SP_DATA_STATE,';')-1)) STATE , sub_lot_id,waf_id,slot_no FROM COCMEASDATAINFOS )C' 6 ON sb1.SHIP_SUB_LOT_ID=c.SUB_LOT_ID ) cc LEFT JOIN ('    ' $/ $$'dXj $ $ $/  $' $ $/ $' $'ki +'''''''''''''''''''''''''''''''''''get type ''''ȥ/ $/ $ $/ $' $'d i $$'ki % SELECT SUB_LOT_ID ,to_number( TRIM(   ) ) item ,' 9' a ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in('  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN ( ' x SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT '  FROM MES_SHIPTAG ' ;) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H' '  ) '      union all 'k`fXf Q) dd ON dd.waf_id = cc.waf_id AND dd.A = cc.STATE ORDER BY SUB_LOT_ID,SLOT_NO 'Debug.Print numsql2 ' End FunctioneAttribute VB_Name = "Sqlcommonutil" 'ü Function getItemColumn(i) itsql2ELECT COLUMN_NUM FROMCMEASDITEMSSTD WHERE _;'" & Q "'fSet rsZCreateObject("ADODB.Recordset"*.Curs orTypadOpenStatic 'αބ|d1!Loc= adUseClient" "< , csDBConn]34IfrgCou3> 0 Then_ZFields("!End If w}}dz컹@ȫ_`checkH-IWr, "/" ) -Left# - 1nEltse *+ ++ -+ gj A_TYPE ||FLAG Flpmmm2mmeSmm2.m2n #*@aAn2xn_@oI`m2.mFGl ?e6k46,Wafersight,LNSWm__t f-LDABS#UPPER( )c$_ _____\'Debug.Pri)cBʸ3AA0|"&7_PARENTSPWSCMD"O"߱("3z"Sozpz"ozozozozv~Coz_W"jz""o{⍢Z?/#y;%#{{'õ1{P, ݶsub_lot_id#PsEByValҖ_arr, FileG '59UBd'a) - L-=zMdiv"Ԟ (0)domeas_cBHu|! d R[V2 |Leӱ +mes ֒, E?Pl'ØЯ ju nB(p+0aA"?$O bCn,um 1 4RSUB_LOT_ID ,mx,mn,ag,ct,stedCu( Q& " TRUNC(MAXh(TOqBP@ )),5) mx F,DEVO5) Davg`c Sminqn@,COUNT,) ctto_0ber( TRIM(ae9&4) )c,WAFa&ATAINFOS hXP  = DISTI"NASE!N SHIP_IS NULL THEUB4!ELqENDyL ` / / t)! LEFT JOIN< (-CHIP_SUB_LOT_ID,CASE WHEN CUSTOMERtp IS NULL TpS  ELl bEND!" numsql2 =  & " FROM MES_pTAG +?) ms ON c.ams. +RE FILE_NAME ='" & FileNHame"'T ) GROUP BY sub_l ot_id.#ORXDER! "'Debug.Print^hgeth_typei End If '2첀ϋIf UBound(item_arr) - L`> 0 A@ (0) <> "OXYCONCEN TAIL"REHSISRGORITION-X(CThen>AG" S@ELECT l,mx,mn,ag,ct,sted}(rGE dd ,TRUNC(MAX(TO_NUMBEBR/)),5ex%STDDEVavg min@COUDNTC ctITEM_TYPEp_PAR`2OQIaFM !I(1))O. N "SP" s4'CO@CMEASDAS" SP,|>4e?UPP 1str(SP_DATA_WTE, INSTRl';',-1,1)+1,lengtha ))) ,xwafaª INFOSElse?2!,0UL)-5 ,ApEM%.øn/UllD@INϠwGKUB$тmm5aL@Q c LEFT JOIN ( 0_/}/}P /}T ;Zz)wP;wtt߂" /cc :/" Fo r iii0 To/h/h0div "pp InS 9p t rȥ/_Qd%0!iitf q2o/#E?_=rr(?)_Y9!(Y,to_ber( TRIM(2& .)9 ,Ҹ ' a ,WAFqMT ocH`>C P $a cc AND6A,STATE"%GROUP BY@SUB_LOT_ID `ORDER)TDebug.P0rintygetj_typeQlEnd IFunction '''@"ݶs@ub_lot Public  8_check(ByVal item_arr, FileName)FHݓ 'ֻеIf U@Bound(5) - L= 0p The7SdtivN"_InStr(0), "/") meas_column@ MIG>CCGB Else+Rightq$Len FU.+D 1mes@+Lef U-X?@=D' jubnB(/ :_8E801A Q@uHeoe=`SELECT  ,MX,STED,AG,MN,FROM ( Uf$ CASE WHEN SHIP_ IS @NULL TUBDELmE@m COCMEASLISTSTD c _LEFT JOI~N`.'!L,CUSTOMER ,"B-Am?1$ MES_TAG##) msc.74=`. NBRE FILE_NAME ='" & e@"'a cda 93*CE?X2X US7,TRUNC(MAX(TO_NUMBER"P)),5px STDDEVO5)stedDavg`agminqn,COUNT ctUu = g TRIM(!Fue& k/)`BHY8DATA`INFOS18cZ. 4D:IN c $='@!h:6 2 K)J? &( 6PřP2PPD[!>PBc oaPG?(^PPaD POT PT_ T O A yP;MMq*MéM))) 4 q5X)uszPp: *n( ,A , ROWuS) OVP(PARTITIp77y̰0) rnb ?CE<H#9 HL H__^&GSNGDS.#G!&6GGQ=R8\>GG f..G}V2Gŧ^GG CUSTOMER_SUBLOT" numsql2 = $& " FROM MES_SHIPTAG) ms ON c._IDdms.  +WHERE FILE_NAME ='" & FileName "'+P)) AVrn=1 ,H) ustus.USu= *bbb cda._-  ORDER BY 'Debug.PrinFtߓgety_type_check| KEnd IfS '฀'pʱCKʵ If UBound(item_arr) - L= 1 A#- (0)<"RESISTAIL " Or RGOC Then,divoE=@SELECT {,MX,STED,AG,MN,B(͜GEA CASE `N M IS NULL THEbyELmENDCOCMEASL)STD c LEFT JOIN A{ e@b,gk "-!m1()//e)` - 4/*d( % ,TRUNC(MAX(TO_NUMBEBRn)),5`x $STDDEV!stedavgagminmn,COUNTC ctLoq Foiit0 Tor)omeas_column:I@Cb(iii)p'?$d)2 1TRIM(s& `Qp 'N$;DAJNFOS;Bwcm eTD=ING *3m G_CST0#@/. f n% 76a8,& "?aN?pI?I4?I?D1?T?8vS 2  ??4?T fEfTf$ fD&ff\ ƬTD!gpbggOT =gTg) =0I#77ѴO L <>R r @ unio n all ÿNextA_oa) GRO@$/#:MMUMJJoB2>=nn//y\" ( \r\N HIP_SUB_LOT_ID ELSE CUST0OMER ENDLFROM @ MES_STAG) ms ON c.=&. WHERE FILE_NAME ='" & FileName "') "  numsql2 =  & "@)) ) Srn=14) usus.US=  )bbbh=9 >w cda.=- ORDER BY q4='Debug.P0rintCget_type_`check'end End8 If OXYCONCENHEAD*1.96;TAILElIf UBound(item_arr) - L= 1 A ((0),"J" Or " T8hen !K= " SELECTHb ,MX,STED,AG,MN,·(GECA@N L IS NULL THEUB #COCMEASLISTSTD c LEFT JOIN *L,guk߅T҅y(i//?# c@~O A 4E* #( % ,TRUNC(MAX(TO_NUMBER!h)),5`x $STDDEVstedavgagminmn,COUNTC ctL`~+m'@Fo yii!@|0 To?r)odivAIA``InStrA(iii), "*"@.meas_column `I C+ ElseURightmLen + 1mes Lef 7 -4 wwP b9'/=4V- G-TRIM(I& 1=)p}_s'ODAa gNFOSOTcJ},DD@RIN\ S?YG_:X@B fЌn׌0G,& .????#q?0??D 0?T?86Sy2 ?V X!?{%?{so=/#?{(L {{O{0_TO A rq77?k!D~zAba <>_hs P/ union all /TNextd) GRxOUPMFY),us12( 2Ċ;$,,ROWd ()OVЋPARTI|TI YҐG) rn/[IG_ [f L$$H@(/#-E4?oLE? II=HD  PLISTSTD c " numsql2 = $& " LEFT JOIN (SELECT SHIP_SUB_LOT_ID ,CASEWHEN CUSTOMER>< IS NULL T81 p EL8 1ENDEFROM MES_BTAG) ms ON c.ms. MRE FILE_NAME ='" & Fil eName"')')) ) !)rn=1z) usEus.US|F=  )b|bb4ĆĀw cda.=-JORDER0 BY 'Debug.PrintP#get_type_checkK End( IfL'2ORIENTATIONX;Y 1If UBound(item_arr) - L= 1 A@ ((0))" " 0ThenF%'&For iii@0 To!! @//6-x@WI6CoPlumnF9())OElseO y7Next aa1 xhD *& xbjbyye= f ,MX,STED,AG,MN,b(Rj/ %a DIN7`"yNmUBwd"o !mCOCMEASa'?)Pc"-?-0ʶ1b$_!I!}dH&)` J* -B( $ H,TRUNC(MAX(TO_NUMBER~)),5x $STDDEBVsteda$vgagminmn,COUDNT ctN qt1k,sqrt(Aa+qt2.b) qV frolm   ber(TRIM`:o@1C@ta31DATAINFOSpucs ; ;@o# "v-t" 2 'w  GU{7GGIDJG-b_-/DPϞ/DϞOT mE r ?Doof$oiС2A (v4'}4m4Aub/4V)TJ4e94 H?%` Q;4S8@4Dq ;s//T7˟~Bͳ/778ֿ{ 77rB< _78*B 1 7 /=0/HEx+63P0bٰi!j3=!kGROUPvJus?q,aCUSTOMcW ao?dd +B= MES_)TAG) ms ON@%5=.CFILE_NAME ='" & Fi@leName"'+))) )@rn =1 us.usI=@J)bbbB8da.5f=.=ORDER BY W'Debug.`PrintSget@_type_check GEnd IfCAFunction '''@ȫ ݶlot_id e $all!_mul(ByVal item_arr, 6) C '$If UB ound( ) - LM= 0 Theadiv $".@ InStr& (0), "/") meas_columG!!I`Ci p Else! RightkLen !5+ 1mesLef 5 -8   Pi#`'ûUAjubnB(/ :_8E801A O@ouHj&='$,mx,mn,ag,ct,sted ž TRUNC(MAX(TO_NUMBER!A)),5x ,#STDDEVǑ avgSm~pn,COUNT ct oW|O} to_ber( TRIM(a]!5<& 1Zr,WAFAeg_D]   oT oo%bo"opoDSt hofamRᓏpyOT To GROUP{3m) |%?e" Db~l2uu`Hc%ID @}.2wϔ2FPTkxx>xA]9_~0t <> "OXYCONCEN L" / "RdESpAIRLRGRITIONXW1 "CMTQCGUB/"υw)t!]*]d|d.CW]]]mB]>b]Md]!(89!For iii)@vo?]q4` L*ۄc=oҨ(O2# *BO?o/iio/m$/. ' get type  pȥ/ .F*If InStr(item_arii), "/") <> 0` Then;2 = Left @U- 1)Pl_l)IH1 /Els {)z- nd IfX numsql2X& " SELECT LOT_ID ,TO_NUMBER(TRIM(" & meas_columndiv@@\) A< ,' .' a ,WAFFROM COCMEASDATAINFOS c WHEREin( "-DISTIN0/O2 SUB_ ?CASE N SHIP_ IS NUL L THEUBEL END% L-STDA=LEFT J`OIN (/L,0CUSTOMER1+ 0 8B2M A2+ MES_TAG) ms ON c.+5(=`. CFILE_NAME =LFileNameAP')F^R)@oLiii@UBound)p - LM7kunion allQEuNext ) ddB1 TEM_TYPE_PARENTIL&!(1)p C "SP"4'ݥuS`b@SP,ȡ|E#(%UPPsubs SP_a_STATE,I NSTR(k';',-1,1)+1,length! )))  lot_id,waf )}睮 5Sf c___D ND A?Nnp: _NX_N_NZ_NE F_NT s1HNNNpNN/}Mp) ccY O4 'q;5505 75)-`E34 ,O4MOO4ob?4?4‰?4D ?4 ?4?4?4?4?4Վ1z |OT@]?4POO`!?4?4// ]cc?/zdd. b=: AND |.Axc@i GROUP BY^ )uu_cp/"RDER!uu.&sM_ 'Debug.PrintE_0_Ќ_check_mulo T_  Funct õ  1s Public 2 Tsp`wl(B0yValb, EG'ֻD ??= Q= "0"00%DmY=A1CRڇ0/Od Righx1 Len_arr(0)) - InStr (item, "/") + 1) mes = Left l-as_columnQgetjIC(eE nd If'мϒ junB0#>4If 0 Then'me a0=""j numsql2 SELECT cda.L@OT_ID  ,MX,STED,AG,MN,@FROM (DISTIN COCMEASDATAINFOS c2 WHERE SUB_ pin( T.H')& ")CASEN SHIP_IS NULL THEUBEL END 1 L9STD c LEFT JOIN /,G1CUSTOMERA2@, K182M 2,Y> MES_*TAG) ms ON c.XR=. CpasTheno7Munion all1TEnd If Next0\) GROUP BY ORDER)us 2 fW h,Ixs`߁n(߁p߁ &k eGv# 12.20 F-HTP0068B AW@B) usiusi=j)Hbbb .#=`D@ 6_E/ 'Debug.Print; ok d{_spot_check_mullyidf!w)'xend-LOXYCONCENHEAD*1.96;&@cL"ɡuuP97K UBound(item_arr ) - L Thenuni@on allE nd If'Ne xt ) GROUP BY US@dI ORDEBRM)us z( z* ^} ,,ROW_NUMB()OVER(PARTI|TIg F  0) rnDDATAINFOSpc. in$DIN^SSDGO-2 -,͍yUBB ~IP~yyyyy7yy)/J=1) usbusIH=JJ)bbb a cda.lot_id=`D@f's 'Debug.Printget_sp@check_mul ф, '2ORIENTAsX;Y= 1 AE(0)2" " J'C,For®= 0 Tor)M !BҲx-IColumnf()P ! Else y_ 8''ss=TO_ber ( & aa:1 0T1nbbQ) bf0onG4ok 1= xr*x = &y 'S"cA2DK,MX,STED,AG,MN,Z?Ce?U7`?UD ?U ?U?UcQ?U^LWLooopo~T ooooHEompSu_Q5!),TRUNC(MAX(0. (measAG))$,5Рx TSTPDDEVmstedavg_S agDm&?4n,COUNTq ct9t qt1Yf,sqrt(Aa+qt2.b from'a=%, @char(9E?) ao67ot< Ö@=P(O==C==pg/r@=ҟ;;BБ% ]:/T" ====`\ faf+X>++D+hi)&4+`/DÃܙHbY?3***hh"v MEASSHIPLISTSTD c LEFT JOIN (SELECT |_SUB_LOT_ID,CASE WHEN CUSTOMER:8 IS NULL T81 l ELl bENBD E" numsql2 =  & " FROM MES_fTAG) ms ON c.12ms. qRE FILE_NAME ='" & FileName"')) )" qt2)qt1.USr+= ) GROUP BY  ORDER )usI(  *h("~G,:,RO@W_NUMB<()OVER(PARTITIP')=rn#COCDATAINFOS}@Oc?( inED@IN BjCb>F2 D,+G KUB² %@ 1[lll m4rn=1) usx4us L= N)b bbscda.lot_id=DgZaC6'Debug.PrinFtget_sp check_mulC gG'@End If'MTQCGUB~/E/ If UBound(item_ar@r) - LM>0 0 A(0 )`"" Th en B''üFor iii!`0 To_r)  CF BIPnStrf(), "/")  |ctC Ϫ2 9`D&ЮHO0Tb4xsrOT B88@88 s.`58IP9y 8&%'Lݕ&L, 4 u O8CO88[̑oIDo! Zʆ;;s!Y$ )OTOT1?-1M 11jjҏ111$pjj& numsql2 = & " LEFT JOIN (SELECT SHIP_SUB_LOT_ID,CASE WHEN CUS`TOMER:8 IS NULL T8 l ELl bENDEFROM@ MES_BTAG) ms OpN c.m s. MRE FILE_NAME ='" & FileName "') )_rn =1) us/us.USf 0=  )bbbB cda.lot_id=  ORDER0 BY  ""  'Debug.PrinFtget_sp2check_mul8 .End If  Function 'ȫԭʼ݀E @!_!B all_datas(ByVal item_arr, fYnY)!=Ę ddws;(no,A ƒ( D * WA>DDISTINͨ UBCq *COCMEASLSTD c &+ <hv1p#,Ip pcs$kzp!a)sb1UPPER(substr(SP_DATA_STATE,0,INSTR';')-1( , `_n,waf~,$SPD= INFOS )C.l;=`.cc I iFor iii@0 To UBound(%t) - LLodiv"If InS ( (` ), "/")Chepameas_coXlumaI CF" / ElseURight+, Len + 1mesLef 7 -4 w 1')''`0 typ%ȥ/( <> % !ii"#g 0#_21?o#?(>rr?) tGg!Lg QE=,to_ber( T0RIM(A2& 8Q ,_2' a ,WAFZHcXin(> P~ s|Ks sDC 4 sq  S sDЁ mO O G 2ߺvyD03ϱyϱ_e")DpDC Chh< T?EOAun=Ы : Nxext  /) ᾀPcc. A˰Ac''77,SANO l2_?o 3'[AConnectionUtil79@6Sqlcommonutil_lot_id*:Sqlcommonutil_sub_lot_id2SVPROJECT<'B(:2xME8P91> LLLP<$&$` (%%%+zx`(!k *`@"k  .x` ( Y0@2 @4 6`#k  :(` !+>` %i@)% B%`+Dx`"kX-i@+`$k C LH` (PiN P `  ViNiH T ` 8 \iVXiH@ xxxHx($ xxxHx( xxxHx(`z~H xxxHx( xxxHx( xxxHx(  xxxHx( xxxHx(h xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx(@* P (  xxxHx( xxxHx(  xxxHx( xxxHx( xxxHx( xxxHx(  xxxHx( xxxHx( xxxHx( xxxHx(P   xxxHx(` xxxHx( xxxHx(h xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx(~@ `Dx xxxHx( xxxHx( xxxHx(` xxxHx( xxxHx( xxxHx( xxxHx(8 xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx( xxxHx(h xxxHx( xxxHx( xxxHx( xxxHx( xxxHx(P xxxHx( xxxHx( xxxHx( xxxHx(p xxxHx( xxxHx( xxxHx(~@ @  xxxHx( xxxHx( xxxHx( xxxHx(@X @ "!x xxxHx( xxxHx(@ (@6 ~@"##!( ( @ !X@ !@"`~H#!!"p 0####("#  xx k*\R4*#54*\R4*#5d$*\Rffff*TD6c07b697*\R4*#3c*\R4*#3d*\R4*#40*\R4*#3fa B   f((   4 B    ( B 08H`p  B    B   B  ( @PX B ` h <p   j     6 4P  B       " "( 8H " P"X"  " "  ]x (h.~lesXDriver={Oracle in instantclient_19_9};Data Source=zhongxin12;Uid=zoomly;Pwd=zoomly;QTO=F ~B@'zz`(X'z-PRINTSQL csDBConnection.Errors(0).Descriptionix ~B@, beginTx = 0i]H` 0'$'2 4 2 . 4$'. 4i`x ~B@8 commitTx = 0i( ~B@<rollbackTx = 0i(]] @  ~%.B B.'>iF @ ~B@'DPRINTLog strSql, "log.log"zPFH ~%H!J insert duplicate'Dd'Dk/ MsgBox csDBConnection.Errors(0).description-PRINTSQL csDBConnection.Errors(0).DescriptionPRINTSQL strSqliXx(H ~B@B'z(( 'i *!\sql.sql  NVoH *!\ H  RX :  NVo@ *!\ H  VVoAttribute VB_Name = "ConnectionUtil" Global csDBt As @ADODB.& Funv cDB()RIntPeger On Error GoTo E1 " Set d= 8Newg. .Open "Driver={Ora@cle instantclient_19_9};Data Source=zhongxin12;Uid=zoom ly;PwQTxO=F9k0[Exit |pE1: -r'PRINTSQ L u.s(0).Descrip End .beginTx(&)6.Brans'\ +nfrontstr ($DDim ar, rngar@SplitA , "'" F!uEach I>n C  & Left(@, 1NextV(@commit=C> l=rollbackRH exe@cQueryAKSqlASngTERecord8set`RSTMPF CXAziAL =N$@, i/ArsQCmd`RRHDLezE Q ' #1jLog Rlog.`At$uIfqnumbe^-2147217900 Thenert dubcategǤ"$Els!ATIf 'a @MsgBoxd?*k,d?@ABCDEFGHIJKLMNOPQTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Rh%/xME(6 <<< x`X I  ` I  h`H I  ` I  x`8 bbI XIH ` AAI IH `h ##I IH @` I IH ` AAI IH @xhx@%@xhx@xhxP@xhx@xhx@xhx@xhxP@xhx@xhx@xhx@xhxP@xhx@xhx@xhx@xhxP@xhx@xhx@xhx @xhxP @xhx @xhx @xhx @xhxP @xhx @xhx @xhx @xhxP @xhx @xhx @xhx @xhxP @xhx @xhx @xhx @xhxP @xhx @xhx @xhx@xhxP@xhx@xhx@xhx@xhxP@xhx@xhx@xhx@xhxP@xhx@xhx@xhx@xhxP@xhx@xhx@xhx@xhxP@xhx@xhx@xhx@xhxP@xhx@xhx@xhx@xhxP@xhx@xhx@xhx@xhxP@xhx@xhx@xhx@xhxP@xhx@xhx@xhx@xhxP@xhx@xhx@xhx@xhxP@xhx @k$*\Rffff*TF6c07b76b B R  x00,  PX `B   ` p00  08 &@B hp\x 00(X p"  "B b p00  *0 `h $pB  h@X:x,:,X:,( 8 :X ,         (   &  @   @8J@  h 8:X,:,8hx:,:8,x 2  ,(Xhp  (Hhp ^x  \p   $B   (8hX:,8hx:,:8,x:,HX ` p  H"P" X"   4p" " " " &",#H#X# &`##:#,#$$$ $8$ @$ $H$ p$ $ H( h(p(x( ((B ( (((h(P)h):),))*:(*,h***:*,+8+H+:h+,+++ + , , ,(,0, 8,/// (/B 0  000P0hX000:0,81h1x1:1,122:82,x222:2,3H3X3 `3 p3 3333 3H7 &P7 x77  (8 808 h8  (9 H9hX999:9,8:h:x:::,:;;:8;,x;;;:;,<H<X< |`<  >? ? (? 0?4@?  x??? N? @?  68@ p@  0A 8AXAh`AAA:B,@BpBB:B,BC C:@C,CCC:C, DPD`D ~hD FG(G 0G48G pGG G .G8G H H @HPH hHpHH HHH HH Q0Q  8Q    @Q HQB hQ DpQQPR@S`SDS  8TXT `ThpTTT:U,PUUU:U,U V0V:PV,VVV:V,0W`WpW 2xW W hW(X@X,`XXX,XXY, YPY`Y,YYY Y h\\\\`\  ](]0] @] ü '<SELECT COLUMN_NUM FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS = ' ''Z]ADODB.Recordset$p. t (r"αͣ޷ x (v%αԣ޷  ~ B@ ! MEAS_ITEM_ COLUMN_NUM %'ki'dz컹ȫx /  / $' * e  * $'d 'kJSELECT ITEM_TYPE ||ITEM_FLAG FG FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS = ' ''ADODB.Recordset$p. t (r#αͣ޷ x (v&αԣ޷  ~ B@ ! FG %'kiITEM_TYPE,Wafersight,LNSW 'ESELECT UPPER(ITEM_TYPE) FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS = ' ''ADODB.Recordset$p. t (r"αͣ޷ x (v%αԣ޷  ~ B@Debug.Print sql2 ! UPPER(ITEM_TYPE) %'k8i0ITEM_TYPE_PARENTSPWSh 'LSELECT UPPER(ITEM_TYPE_PARENT) FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS = ' ''ADODB.Recordset$p. t (r"αͣ޷ x (v%αԣ޷  ~ B@Debug.Print sql2 ! UPPER(ITEM_TYPE_PARENT) %'ki''õȫsql ݶlot_id   '$/$*$+$-$$'$/ e$$$/  $'$$/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'k  ûм '  '' k ' SELECT LOT_ID ,mx,mn,ag,ct,sted FROM ( SELECT LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( ! SELECT LOT_ID ,to_number( TRIM( ) ) M item ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' )% ) GROUP BY LOT_ID ORDER BY LOT_ID )' 'k '''''''''''''''''''2   SELECT LOT_ID ,mx,mn,ag,ct,sted FROM ( SELECT LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( '  SELECT bb.LOT_ID ,item FROM ( SELECT * FROM (SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H')sb1 LEFT JOIN ( '$$' SP:COCMEASDITEMSSTDITEM_TYPE_PARENTSP,ȡ|  SELECT UPPER(substr(SP_DATA_STATE,INSTR(SP_DATA_STATE,';',-1,1)+1,length(SP_DATA_STATE))) STATE, sub_lot_id,waf_id FROM COCMEASDATAINFOS 'dH r SELECT UPPER(substr(SP_DATA_STATE,0,INSTR(SP_DATA_STATE,';')-1)) STATE , sub_lot_id,waf_id FROM COCMEASDATAINFOS 'k ; )sp ON sb1.SHIP_SUB_LOT_ID=sp.SUB_LOT_ID )aa LEFT JOIN ( '    ' $/ $* $+ $- $$' $/ e $ $ $/  $' $ $/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'k@ +'''''''''''''''''''''''''''''''''''get type ''''ȥ/ $/ $ $/ $' $'d $$'kp ! SELECT LOT_ID ,to_number( TRIM( ) )  item ,' ,' a ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' )'      union all 'k P )bb ON aa.waf_id =bb.waf_id AND aa.STATE=bb.A) GROUP BY LOT_ID ORDER BY LOT_ID)'g SELECT qwe.lot_id,qwer.* FROM (SELECT DISTINCT LOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H'ORDER BY LOT_ID )qwe '  LEFT JOIN ( 5 )qwer ON qwe.LOT_ID=qwer.LOT_ID ORDER BY qwe.lot_id '[  'ki''õsqlݶlot_idx   $/$*$+$-$$'$/ e$$$/  $'$$/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'k ûм '  '' kX ' SELECT LOT_ID ,mx,mn,ag,ct,sted FROM ( SELECT LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( ! SELECT LOT_ID ,to_number( TRIM( ) ) . item ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' )% ) GROUP BY LOT_ID ORDER BY LOT_ID )' 'k ''''MTQCGUB/   $MTQCGUB/ ''''''ü    ''  $/  $ $/ $' $'k  $* ' $ $ $*  $' $ $* $' $' 'd $$'k TO_NUMBER(TRIM(" & tem & ") ) / ' ' SELECT LOT_ID ,mx,mn,ag,ct,sted FROM ( SELECT LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( " SELECT LOT_ID ,( to_number(TRIM( ))/to_number(TRIM( )))  . item ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' )% ) GROUP BY LOT_ID ORDER BY LOT_ID )' Debug.Print numsql2 'ki!''õ̳sqlݶlot_id   '$/$*$+$-$$'$/ e$$$/  $'$$/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'k ûм '  '' k ' SELECT LOT_ID ,mx,mn,ag,ct,sted FROM ( SELECT LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( ! SELECT LOT_ID ,to_number( TRIM( ) ) . item ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' )% ) GROUP BY LOT_ID ORDER BY LOT_ID )' 'ki!''õsqlݶsub_lot_id   '$/$*$+$-$$'$/ e$$$/  $'$$/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'k  ûм '  '' kX ' SELECT LOT_ID ,mx,mn,ag,ct,sted FROM ( SELECT LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( ! SELECT LOT_ID ,to_number( TRIM( ) ) . item ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' )% ) GROUP BY LOT_ID ORDER BY LOT_ID )'k '''''''''''''''''''2   $ RESISTAIL $RRGTAIL $ORGTAIL $CTAIL ''/ SELECT LOT_ID ,mx,mn,ag, ct/2 ct ,sted FROM ( '  SELECT LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( '    ''+-*/$/$*$+$-$$'$/ e$$$/  $'$$/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'k ! SELECT LOT_ID ,to_number( TRIM( ) ) % item FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' )'      union all 'k''' & ) GROUP BY LOT_ID ORDER BY LOT_ID ) 'Debug.Print numsql2 'kXH'''''''''''''''''''OXYCONCENHEAD*1.96;OXYCONCENTAIL*1.96;OXYCONCENTAIL/2   $ OXYCONCENTAIL . SELECT LOT_ID ,mx,mn,ag,ct/2 ct ,sted FROM ( '  SELECT LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( '''    '$/$*$+$-$$'$/ e$$$/  $'$$/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'k; ! SELECT LOT_ID ,to_number( TRIM( ) ) ' item FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' )'      union all 'k88 & ) GROUP BY LOT_ID ORDER BY LOT_ID ) 'Debug.Print numsql2 'k`8''''''2ORIENTATIONX;ORIENTATIONY   $ ORIENTATIONX''''''ü     $$'d7 $$'kp7h7  *  '  *  '<   #)/57=C. SELECT cda.LOT_ID ,MX,STED,AG,MN, ct FROM ( SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' )cda LEFT JOIN (  SELECT LOT_ID,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( 1 SELECT qt1.LOT_ID,sqrt(qt1.a+qt2.b) item from ( " SELECT LOT_ID ,to_number( TRIM( ) ) a ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID  WHERE c.FILE_NAME =' H')  AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID  WHERE c.FILE_NAME =' H' )  AND   IS NOT null)qt1 LEFT JOIN ( ! SELECT LOT_ID ,to_number( TRIM( ) ) b ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID  WHERE c.FILE_NAME =' H')  AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' )  AND   IS NOT null)qt2 ON qt1.LOT_ID=qt2.LOT_ID AND qt1.WAF_ID=qt2.WAF_ID ) GROUP BY LOT_ID )cdb ON cda.LOT_ID=cdb.LOT_ID ORDER BY LOT_ID 'Debug.Print numsql2 'k.i.ȫԭʼ@< SELECT dd.SUB_LOT_ID,slot_no,item FROM ( SELECT * FROM ( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H''  )sb1 LEFT JOIN' ~ (SELECT UPPER(substr(SP_DATA_STATE,0,INSTR(SP_DATA_STATE,';')-1)) STATE , sub_lot_id,waf_id,slot_no FROM COCMEASDATAINFOS )C' 6 ON sb1.SHIP_SUB_LOT_ID=c.SUB_LOT_ID ) cc LEFT JOIN ('    '#''+-*/$/$*$+$-$$'$/ e$$$/  $'$$/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'k( +'''''''''''''''''''''''''''''''''''get type ''''ȥ/ $/ $* $+ $- $$' $+ e $ $+ $' $' $- e $ $- $' $' $* e $ $* $' $' $/ e $ $/ $' $'k8& % SELECT SUB_LOT_ID ,to_number( TRIM( ) )   item ,' ,' a ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' )'      union all 'kP#H# Q) dd ON dd.waf_id = cc.waf_id AND dd.A = cc.STATE ORDER BY SUB_LOT_ID,SLOT_NO '[  'i""Attribute VB_Name = "Sqlcommonutil_lot_id" 'ü Function getItemColumn(Bi) itsql2ELECT COLUMN_NU@M FROMCMEASDITEMSSTD WHERE _;`'" & Q"'fSet rsZCreateObject("ADODB.Recordset"*.CursorTypadOpenStatic 'αͣ޷¨|d!Loc= adUseClient"ԙ"< , csDBConn]4IflaCou-> 0 Theno_TFields("!End If< tzz컹ȫ|_chXeckH~-ITr, "/") -Left - 1kElse *+ > EBdIA_TYPE ||FLAxG FP2M2<2.W2W, 8Q2YKJZXFGW~ 5'WĔ46,Wafersight,LNSWX_a_tQ/$OCABAlSUPPPER( )c; 'Debug.Pri@)cBCB3A.A0 _ D_PARENTSPxWSCb^( meas_column = 80 <it$em""DEnd If6numsql2z SELECT LOT_ID ,mx,mn,ag,ct,sted FROM (" _J& "BCTRUNC(MAX(TO_NUMBER()),5) mx ,!STD8DEV<avg#Q"minAcCOUNT= cteXeto_ber( TRIM& р) )" & d$iv" ,WAF :COCMEASDATAINFOS c WHERE SUB_^1bDISTINeCASE N SHIP_ IS NULL THEUBEL ENDwBuD% Lc%LEFT JOIN MES_TAG ms ON@.CUSTOMER# =c.%A@msbDc.FILE_NAME ='UFileNameW') ZL! Jc.DJ IDFCDFALXW) GROUP BY%q ORDER)get_full_inspectio$cI'2CIf UBoundp_ar@r) - LM> 0 Then)_Fߑߑlߑ ߑn,ԑibbEX,BU ( *(߉e߉߉IPljNG:eyoy?o "')sbd1 '( 8ITEM_TYPE_PARENTX5mI_M1(1))`4 "S P"o33'UgS]SP,ȡ|(&UPP5subs@tr(SP_An_STATE,INSTR<';',-1,1)+1,@length )())  0_lot_id,wa>f`s-e t Else 5 tTA 0 )- ,  =# SP  )s6pxP).z=spy=)aas+#}+For iii*Xo?[?[?= p In.S!KA`(), "/")"A{*3d5+-f3SY= :C9q 9'q:o OnWARight+, Len\ptOE+ 1o mesq`Lefn- */?x/8/rr!//t(//e/!/&+o/oooEO A 6ooo_ oomd9g/H?/I//E/4'"/,_arr(iii), InSttem"-") - 1) meas_column = g(etIC(mesrEnd Ihf ' ` type9ȥ/ If/z<> 0 ThhenixLeft(*get_l_*ǁ /Els {),iEnumsql20E& " SELECT LOT_ID ,to_ber( TRIM(" & I ) )Adiv" B ,'4@ ' a ,WAFA FROM COCMEASDATAINFOS c WHER@E SUB_ in($DISTIBN&CASE N@ SHIP_ IS NULL T$HEUBEL ENDI% "LSTD%LEFT JOIN MES_TAG@ ms ON@.CUSTOMER# =c.%A@msDC<c.FILE_N AME =NFi@leNameT') $Z" !c.b! $?!.#d "'KW/X `UBound{LM_= %U union apll "OEMmN8ext )bbHaa.waf_id =bbE>STATEA) GROUP BY%tORDER)/. qwe.lot,@r.*#vnq8y+g dz[ ).A4rw’7r* D_=}@r` Debug.Prixnt ) _full_inspectF=IED Fun  @õݶ Public {spcheck(ByVals"W, Cb' 032 2=t@e 00"/wAqg *rxPl+ጋ6/@$2yQ0)?sx oRHQo= RighLenI(O B+ ?'p9_ {oQ"qIԌ, A\ O_ /OmO o.oooEo(doooiooo/(?/I///@$///)///dg'û^1:juCnBP2P'V0_ A"?e L,mx,mn,ag,ct,stedtx" _Qq=TRUNC(MAX(TO_NUMBERZ)),5)` mx ,DdEVO5)Davg` Smpn,COUNT ct @ؿ  h & " SELECT LOT_ID ,to_number( @TRIM("meas_coluDmn) )Tdiv item ,WAF~ FROM COCMEASDATAINFOS c WHERE SUDB_in(|D ISTINCASE(N SHIP_,IS NU@LL THEU2BCEL0 +EN.D? /LrSTDKLEFT JOIN MES_ TAG ms ON.CUST0OMERF: =,c.K?A4msxc.FILE_NAME ='FileName') "4 c.  ~?_ ) GROUP BY@ ORDER)"getsql_spot_check = 2 End If'MTQCGUB/ &KIf UBound(_arr ) - L> 0 A (0)""E" ThenH"''üK For iii0 To @E AInSt r(@), "p/") %mes@Left  - 1)xՠ9ICB(`  :/ 1"3* a= "PC#Righ.!Len#H+#%.em_T7.' = _0y`5O/ Else?+ eM=Next 'TO_NUMBER(֏؋= x/y ĭ,mx,mn,ag,ct,stxed @xTRUNC(MAX(a")),5)` mx ,#DEV!avgw Smgpn@,COUNTr*) ct 2pr ( WFb)$)/ y)))P& 4AooooooRooDďoooÅo} 4 oooc1ooyoST)????T?9oBP%oo^@'Debug.PrintKeM߈ um߈AlFunctio@zõ̳l`id Public EqZp_process_sampling_insper(ByValba, UV'ɇs=߀5q 0 Thendiv0Rig:5K(AEnd If D'ûӀмjuKBahf Y`mey0 A""5ѧnumsql2A SELECT LOT_ID ,mx,mn,ag,ct,sted FROM (" _& "TRUNC(MAX(TO_NUMBER)),5@) mx ,CSTDDEV A 8avg(Cmin1COUNTq ct2,2to_%ber( TRIM!& /%q) )" & f!2,WAF) COCMEASDATAINFOS c WHERE SUB_D/d1DISTIBN2CASEN@ SHIP_IS NULL T$HEUBdELmEND:L@1LEFT JOIN MES_aTAG ms ON.CUSTOMERa =c.Ay msg#c.FILE_NA ME =''Fi@leName`("') $Z" !c.b! $!.#d "'IxS) GR@OUP BYEm ORDER) ~_process_sampling_inspectioaĂ}#Funb '''õ ݶsub_lot_id Public  dcrystal_bar(@ByVal !e_9, A' UBoundyLM=^dy0 "v/sAAAb* (1myy[ G=E_gB/0 s 0)!O BYhLeْo)tg_oa"qIϥE(5 //mΥoh.oooo.D ooo_ ooo/H?/I//E$$///)///f??Q8?@P^?V?A1)Q_w"e Lv ???Q$?????n,?M (?s ,??? ,?8ܴS c WHERE SUB_LOT_ID in(SELECT D ISTIN CASEN SHIP_IS NU@LL THE8U2BEL` VEND~FROM C@OCMEAS/LrSTDLEFT JOIN MES_TAG ms ON.CUSTOMERat =c.~Ayims# c.FILE_NAME ='" & FileName"') "4 c.  ~? )" _ & " ) GROU P BY D2 ORDER)"@End If'2@τ If UBound(item_arr ) - L= 1 AnStr (0), "RESAIL") > 0 Or I RGT O! CThen@23SB numsqpl2 =XW,mx,mn,ag@, ct/2 @,sted ( ZEEll,TRUNC(MAX(TO_NUMBER&)),5) mx $q8DEVAavng@ m h n,COUNTC!sK%For iiBi@%0 ToDr)0e1+-*X/ NC/G=GL*+-FQ`meas_@columngetIbCB(dà^ElsecdivRight , LenG`t(+ 11mes Lef - % $hN<%%#J%A#"a %=/%7 _&&&+$Y(_ .o]-oriio?%o ^%oA o%m8g/(?/I//E$///!///\onAon ,to_ber( TRIM.(qIT0)ю& 7q utDA}NFO߲߲߲߲߲߲D ߲DZ ߲߲߲3߲`ԇ߲߲߲ć߲߲%¯ ʯίT©#s)+ xG <> xU1/+union a|ll]a5O Next_0'_O???  'Debug.P`rint o А_crystal_bar0_ =OXYCONCENHEAD*1.96;&1/L/2bʏ_[ʺas4 " “ umsql2 = nu& " SELECT LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mxB@STDDEVHstedavgDag min mn,COUNTz ct FROM ( "  ' '''  For iii0 To UBoundA_arr`) - L !d4iv" T.If@ InStr'(0), "/")Q7And*+-ThenO+A=meas_c olumn@#getI|C+)SElse7> SMRightG8Len`Q+ 1'8s6Lef U-\KmesIy4JCJ77#"a %= %7 _&5LK&ID?]$I#$ tiiA2a $$r* $$OZ$!~_$_$m_(&7Ia _$_$G$! _$_$~hEf /;to_ber( TRIM(" & ɨ) )A-aAbCOCMEASDATAINFOS c WHERE SUB_DISTINCASEN SHIP_IS NULL THEɀUBdELmENDY L P~p LEFT JOIN MES_TAG ms ONP.CUST0OMER@ =,c.` Ams7c.FILE_NAME ='FileName "') A/ 'dc.TGQST'$**Pw: <>ϊϊ ?2//+union all}a5%uO Next_/!) GROUP BY% ORDE R) 'Debug.Prilnt? @_crystal_barP # 2ORIENTATIONX;Y_^0\1 BRW0A" "C'c ې%=ϛdx` ? Bc/l_ y?`( 'aa1xE *P& x_Tbbyy t"u.vcdaH,MX,STED,AG,MN,A bHP __Q2aaO`OGOi_____0 aV$WOO`) iAxdE n/  qt1$,sqrt(a+qt 2.b) †from v & " SELECTLOT_ID ,to_number( TRIM(" & aa1") ) a ,WAFR FROM COCMEASDATAINFOS c WHERE SUB_in(DISTIN!pCASE(N SHIP_,IS NULL THEUBCEL0q +END? /LrSTDLEFT JOIN MES_ TAG ms ON.CUSTOMERFa: =c.K?A94ms" x_ c.FILE_NA ME ='Fi@leName')Ř!?5Q c. BQ ODMKMM@^M@V(& xAY EOT null)qt1 G(_KRbbFbɆd-K&i%A&d d9md dd`d&&dD dyd2`e$=qt2-!"d) GROUP BY !2)cdbA cdaE E ORDERqs'Debug.PrintA@ymsql23get_crystal_bar ='cEnd If# E+I  aFunction 'ȫԭʼ  _Bheckall_datas(ByVal item_arr, )c 67` 2gddل,slot_Xno,Q#|(U*4}Pu"}}A6u}7yyjSTs}" gx^5l,-; \b C=#)4=Tlw)sjoobUPPER(substr(SP__STATE,0,INSTR\';')-1)) B , _(id,wa> SRight, LenOC+ 1# Fmes Lenf - o@a((q q8rrA, e /&m&+oh.oooEo%ooo_ ooo!JIf InStr(item_arii), "-") > 0 T@hen div = RigDht Len $) -+ 1)gmesgLeff-Qas_column,getjIC(6EEnd If S' A/ type/ j/=AO*}+^A9_{9GT_• UBound6qL-7?l1%0=f1Q,union all u6Next ) dd#dd.waf_id8cc AcSTATE ORDER $BY2,SNOc Debug.Print Oq:A_check0`_data FunctP3C  2`xME(P6 <0<<<< <8< x` @X I  ` I  h` @H #I  ` 2I  x`8 nn@I XIH ` BBI IH `h %%I IH @` I IH `H@ ==I IH( ` `0 I PIH x@xh%x@xhx@xhx@xh8x@xhx@xhx@xhx@xhXx@xhx@xhx@xh0x@xhxx@xhx@xh x@xhP x@xh x@xh x@xh( x@xhp x@xh x@xh x@xhH x@xh x@xh x@xh x@xhh x@xh x@xh x@xh@ x@xh x@xh x@xhx@xh`x@xhx@xhx@xh8x@xhx@xhx@xhx@xh@ `@H x@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xhx@xh0 x@xhhx@xhx@xhx@xh@x@xhx@xhx@xhx@xh`x@xhx@xhx@xh8 k$*\Rffff*TI6c07b76b B R8  (x00F,,:  P X `B   ` p00  08 &@B hp\8x (00(FX p,"&   "B b p00  *0 `h (pB   hPh:,:(,h:, 8 H :h ,        ( 0 @N8  & ~( @8xpxPJX    hPh:,:(,h:,8H:h, 2 ( h8,,8hx,,(8 ^@  h (XT@    (B  (  0 Hh`: ,@ p  : , ! !:@!,!!!:!, "P"`"  h" x" """" v"(&0&48& p& & & &&,&' ' &('P':X','''''( ( $( 8( P(  , 0,8,@, ,H,B x, ,,,  ,h,8-P-:p-,---:.,P...:.,. /0/:P/,///  / / /000 v 0333 (3B 3 334  4 04hH444:4,(5X5h5:5,556:(6,h666:6,787H7  P7 `7 p7777 78;@; &H; p;;   < Z(< <  P= p=  x= =h=>(>:H>,>>>:>,(?X?h?:?,??@:(@,h@@@ L@  C C@C HC PC<`C  CCC <C @D ZPDD  xE EE EhE(F@F:`F,FFF:G,@GpGG:G,GH H:@H,HHH LH K8KXK `K<hK KK K .K8L @L XL xLL LLL LLL NM PUpU  xU U UB U DU UFV W WD 0X  BxXX XhLXFY\0Y:PY,Y$Y\Y:Y,0Z$`Z\pZ:Z,Z$[\[:0[,p[$[[ 2[ [ hL\Fh\\\,\$\\\,]$0]\@],`]$]\],]$]^^^ :h` ```` `  a8a @a HaB `a @zhac  c d ü '<SELECT COLUMN_NUM FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS = ' ''revADODB.Recordset$p. t (r"αͣ޷ x (v%αԣ޷  ~ B@ ! MEAS_ITEM_ COLUMN_NUM %'ki'dz컹ȫx /  / $' * e  * $'d 'kJSELECT ITEM_TYPE ||ITEM_FLAG FG FROM COCMEASDITEMSSTD WHERE MEAS_ITEMS = ' ''ADODB.Recordset$p. t (r#αͣ޷ x (v&αԣ޷  ~ B@ ! FG %'kiITEM_TYPE,Wafersight,LNSW 'ESELECT UPPER(ITEM_TYPE) FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS = ' ''ADODB.Recordset$p. t (r"αͣ޷ x (v%αԣ޷  ~ B@Debug.Print sql2 ! UPPER(ITEM_TYPE) %'k8i0ITEM_TYPE_PARENTSPWSh 'LSELECT UPPER(ITEM_TYPE_PARENT) FROM COCMEASDITEMSSTD c WHERE MEAS_ITEMS = ' ''ADODB.Recordset$p. t (r"αͣ޷ x (v%αԣ޷  ~ B@Debug.Print sql2 ! UPPER(ITEM_TYPE_PARENT) %'ki"''õȫsql ݶsub_lot_id   '!''+-*/$/$*$+$-$$'$/ e$$$/  $'$$/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'k ûм '  '' k   !# SELECT * FROM ( ? SELECT SUBLOT_ID FROM COCMEASSHIPLISTSTD c WHERE FILE_NAME =' H' ORDER BY SUBLOT_ID  )sss LEFT JOIN ( + SELECT SUB_LOT_ID ,mx,mn,ag,ct,sted FROM ( SELECT SUB_LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( % SELECT SUB_LOT_ID ,to_number( TRIM( ) )  item ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H' )- ) GROUP BY SUB_LOT_ID ORDER BY SUB_LOT_ID )' )qqq ON qqq.SUB_LOT_ID= sss.SUBLOT_ID ' 'kh '''''''''''''''''''2   SELECT SUB_LOT_ID ,mx,mn,ag,ct,sted FROM ( SELECT SUB_LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( '  SELECT bb.SUB_LOT_ID ,item FROM ( SELECT * FROM (SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c' Q LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H')sb1 LEFT JOIN ( '$$' SP:COCMEASDITEMSSTDITEM_TYPE_PARENTSP,ȡ|  SELECT CASE WHEN INSTR(SP_DATA_STATE,';')>0 THEN UPPER(substr(SP_DATA_STATE,INSTR(SP_DATA_STATE,';',-1,1)+1,length(SP_DATA_STATE))) ELSE UPPER(SP_DATA_STATE) END STATE ,SP_DATA_STATE, sub_lot_id,waf_id FROM COCMEASDATAINFOS 'd  SELECT CASE WHEN INSTR(SP_DATA_STATE,';')>0 THEN UPPER(substr(SP_DATA_STATE,0,INSTR(SP_DATA_STATE,';')-1)) ELSE UPPER(SP_DATA_STATE) END STATE ,SP_DATA_STATE, sub_lot_id,waf_id FROM COCMEASDATAINFOS 'k ; )sp ON sb1.SHIP_SUB_LOT_ID=sp.SUB_LOT_ID )aa LEFT JOIN ( '    ' '''''''+-*/ $/ $* $+ $- $$' $/ e $ $ $/  $' $ $/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'k +'''''''''''''''''''''''''''''''''''get type ''''ȥ/ $/ $* $+ $- $$' $+ e $ $+ $' $' $- e $ $- $' $' $* e $ $* $' $' $/ e $ $/ $' $'k % SELECT SUB_LOT_ID ,to_number( TRIM( ) )   item ,' ' a ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H' )'      union all 'k Y )bb ON aa.waf_id =bb.waf_id AND aa.STATE=bb.A) GROUP BY SUB_LOT_ID ORDER BY sub_lot_id) ' * SELECT qwe.SHIP_SUB_LOT_ID,qwer.* FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c  LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT  WHERE FILE_NAME =' H' ORDER BY SHIP_SUB_LOT_ID  )qwe '  LEFT JOIN ( . )qwer ON qwe.SHIP_SUB_LOT_ID=qwer.SUB_LOT_ID 'Debug.Print sql 'k@i8!''õsqlݶsub_lot_idx   ' '''''''+-*/ '''''''+-*/ $/ $* $+ $- $$' $/ e $ $ $/  $' $ $/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'k ûм '  '' kP + SELECT SUB_LOT_ID ,mx,mn,ag,ct,sted FROM ( SELECT SUB_LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( % SELECT SUB_LOT_ID ,to_number( TRIM( ) )  item ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H' )- ) GROUP BY SUB_LOT_ID ORDER BY SUB_LOT_ID )' 'k   $MTQCGUB/ ''''''ü    ''  $/  $ $/ $' $'k  $* ' $ $ $*  $' $ $* $' $' 'd $$'k TO_NUMBER(TRIM(" & tem & ") ) / ' + SELECT SUB_LOT_ID ,mx,mn,ag,ct,sted FROM ( SELECT SUB_LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( & SELECT SUB_LOT_ID ,( to_number(TRIM( ))/to_number(TRIM( )))  . item ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID AND ms.CUSTOMER_LOT =c.LOT_ID WHERE c.FILE_NAME =' H' )- ) GROUP BY SUB_LOT_ID ORDER BY SUB_LOT_ID )'[  'ki%''õ̳sqlݶsub_lot_id   ' '''''''+-*/ $/ $* $+ $- $$' $/ e $ $ $/  $' $ $/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'k( ûм '  '' k + SELECT SUB_LOT_ID ,mx,mn,ag,ct,sted FROM ( SELECT SUB_LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( % SELECT SUB_LOT_ID ,to_number( TRIM( ) )   item ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H' )- ) GROUP BY SUB_LOT_ID ORDER BY SUB_LOT_ID )' 'kX iP !''õsqlݶsub_lot_id   ' '''''''+-*/ '''''''+-*/ $/ $* $+ $- $$' $/ e $ $ $/  $' $ $/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'k ûм '  '' kh Q SELECT SUB_LOT_ID ,mx,mn,ag,CASE ct WHEN 50 THEN 25 ELSE ct END ct ,sted FROM ( SELECT SUB_LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( % SELECT SUB_LOT_ID ,to_number( TRIM( ) )   item ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H' )- ) GROUP BY SUB_LOT_ID ORDER BY SUB_LOT_ID )' 'k '''''''''''''''''''2   $ RESISTAIL $RRGTAIL $ORGTAIL $CTAIL ''R SELECT SUB_LOT_ID ,mx,mn,ag,CASE ct WHEN 50 THEN 25 ELSE ct END ct ,sted FROM ( '  SELECT SUB_LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( '    ' '''''''+-*/ '''''''+-*/ $/ $* $+ $- $$' $/ e $ $ $/  $' $ $/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'kP? % SELECT SUB_LOT_ID ,to_number( TRIM( ) )  item ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H' )'      union all 'k<<''' . ) GROUP BY SUB_LOT_ID ORDER BY SUB_LOT_ID ) 'Debug.Print numsql2 'k0<5'''''''''''''''''''OXYCONCENTAIL*1.96;OXYCONCENTAIL/2   $ OXYCONCENTAIL R SELECT SUB_LOT_ID ,mx,mn,ag,CASE ct WHEN 50 THEN 25 ELSE ct END ct ,sted FROM ( '  SELECT SUB_LOT_ID ,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( '''    ' '''''''+-*/ $/ $* $+ $- $$' $/ e $ $ $/  $' $ $/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'k87 % SELECT SUB_LOT_ID ,to_number( TRIM( ) )  item ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H' )'      union all 'k44 . ) GROUP BY SUB_LOT_ID ORDER BY SUB_LOT_ID ) 'Debug.Print numsql2 'k(4''''''2ORIENTATIONX;ORIENTATIONY   $ ORIENTATIONX''''''ü     $$'dX3 $$'k8303  *  '  *  'L  %+-39;AGIKR SELECT SUB_LOT_ID ,MX,STED,AG,MN,CASE ct WHEN 50 THEN 25 ELSE ct END ct FROM ( SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c Q LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H')cda  LEFT JOIN (  SELECT SUB_LOT_ID,TRUNC(MAX(TO_NUMBER(item)),5) mx ,TRUNC(STDDEV(TO_NUMBER(item)),5)sted,TRUNC(avg(TO_NUMBER(item)),5) ag,TRUNC(min(TO_NUMBER(item)),5) mn,COUNT(item) ct FROM ( 5 SELECT qt1.SUB_LOT_ID,sqrt(qt1.a+qt2.b) item from ( % SELECT SUB_LOT_ID ,to_number( TRIM( ) ) a ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID  WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID  WHERE c.FILE_NAME =' H' )  AND   IS NOT null  )qt1 LEFT JOIN ( % SELECT SUB_LOT_ID ,to_number( TRIM( ) ) b ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID  WHERE c.FILE_NAME =' H')  AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H' ) AND   IS NOT null)qt2< ON qt1.SUB_LOT_ID=qt2.SUB_LOT_ID AND qt1.WAF_ID=qt2.WAF_ID 4 ) GROUP BY SUB_LOT_ID ORDER BY SUB_LOT_ID ) cdb ' ON cda.SHIP_SUB_LOT_ID=cdb.SUB_LOT_ID 'Debug.Print numsql2 'k*ix*ȫԭʼ@< SELECT dd.SUB_LOT_ID,slot_no,item FROM ( SELECT * FROM ( '  SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c '  LEFT JOIN ( SELECT SHIP_SUB_LOT_ID,CASE WHEN CUSTOMER_SUBLOT IS NULL THEN SHIP_SUB_LOT_ID ELSE CUSTOMER_SUBLOT END CUSTOMER_SUBLOT FROM MES_SHIPTAG ) ms ON c.SUBLOT_ID = ms.CUSTOMER_SUBLOT WHERE FILE_NAME =' H''  )sb1 LEFT JOIN' ~ (SELECT UPPER(substr(SP_DATA_STATE,0,INSTR(SP_DATA_STATE,';')-1)) STATE , sub_lot_id,waf_id,slot_no FROM COCMEASDATAINFOS )C' 6 ON sb1.SHIP_SUB_LOT_ID=c.SUB_LOT_ID ) cc LEFT JOIN ('    '#''+-*/ $/ $* $+ $- $$' $/ e $ $ $/  $' $ $/ $' $' $* e $ $ $*  $' $ $* $' $' $+ e $ $ $+  $' $ $+ $' $' $- e $ $ $-  $' $ $- $' $'kH$ +'''''''''''''''''''''''''''''''''''get type ''''ȥ/ $/ $* $+ $- $$' $+ e $ $+ $' $' $- e $ $- $' $' $* e $ $* $' $' $/ e $ $/ $' $'k! % SELECT SUB_LOT_ID ,to_number( TRIM( ) )  item ,' ' a ,WAF_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in(SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H') AND LOT_ID in(SELECT DISTINCT CASE WHEN ms.LOT_ID IS NULL THEN c.LOT_ID ELSE ms.LOT_ID END LOT_ID FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID WHERE c.FILE_NAME =' H' )'      union all 'kPH Q) dd ON dd.waf_id = cc.waf_id AND dd.A = cc.STATE ORDER BY SUB_LOT_ID,SLOT_NO 'Debug.Print numsql2 'i ̶ֵõ#+SELECT SUB_LOT_ID , mx,mn,ag,ct,sted FROM ( SELECT SUB_LOT_ID , TO_NUMBER( ) mx ,TO_NUMBER( ) sted,TO_NUMBER( ) ag,TO_NUMBER( ) mn,TO_NUMBER(25) ct FROM ( 1 SELECT SUB_LOT_ID FROM COCMEASDATAINFOS c WHERE SUB_LOT_ID in( k SELECT DISTINCT CASE WHEN SHIP_SUB_LOT_ID IS NULL THEN SUBLOT_ID ELSE SHIP_SUB_LOT_ID END SHIP_SUB_LOT_ID W FROM COCMEASSHIPLISTSTD c LEFT JOIN MES_SHIPTAG ms ON ms.CUSTOMER_SUBLOT =c.SUBLOT_ID  WHERE c.FILE_NAME =' H') - ) GROUP BY SUB_LOT_ID ORDER BY SUB_LOT_ID) 'b b'`iAttribute VB_Name = "Sqlcommonutil_sub_lot_id" 'ü Function getItemCol umn(i) itsql2ELECT COLUMN_NUM FROMCMEASDITEMSSTD WHERE _;'" &f Q"'fS et rsZCreateObject("ADODB.Record0set"*.CursorTypxadOpenStatic 'αͣ ޷|Ќd!Loc= adUse@Client"Xԙ"< , csDBConn]4IflaCou-> 0 Then_TField8s("!End If tzzdzȫ|_checkH~-ITr, "0/") -Left - 1kElse *+ > EBdIA_TYPE ||FLAG FP22<2.W2W, 8Q2YKJZXFGW 5'WĔ46,Wafersight,LNSWX_a_tQ$OCABAlSUPPER( )c 'Debug.Pri@)cBCB3A.A0_ D_PARENTȀSPWSCPd{L ~ qqqa2!0= #(2tget _full_inspectionD#)'20CUBound"o_ar@r) - LM> )CI)_iZn, ebb= ,] MUBEnn(  GGGvG_u')sb1Hr }ITEM_TYPE_PPAREN@ 2I_.(1)  "SP"/'݅bS )SP,ȡ|| /1$!weINSTR(SP_i_STATE,`';')>9eUPP|substrl,-1,1)+1,lengthK))) ?R[szpa" ,+ _lot_id,waf` uru & ElseX6wdTAt0,/-#tP${ro W),spe 3.=sp)H)aaC5T5For iii ]%o _b^b?IA= / j+8-*/jIn.Sp-ATj( ), "/")b A{*!Bn5+-sS=HC2Hq /H/xC[3Right+,a\~OE+ 1o mes`Lefn- 0/x/8/rr!///e/6oC´olumn(me s) ElseIf InStr(item_ar ii), "+") > 0` Then|div = RigDht Len ) -k+ 1gcgLeff-aQas_c,getIC:-h?5KALkEnd IfK' @d typePȥx/S/@l=A)*^AVA;_;}G_ S8  l(ig[Fa!*?k+ ?\5?/L??. ??zN/ g??. ??2/onumsq l2`f%& " SELECT SUB_LOT_ID ,to_@ber( TRIM(" & me#') )& GA!# ,'!g etÃ' a ,WAF FROM COCMEASDATAINFOS c WHERE)in(t DISTIN CASEN SHIP_ IS NULL THEUBT ELENDY L STDp LEFT JOIN MES_TAG ms ONP.CUSTOMER@p =c.` 3 c.FILE_NAME =Fil eName "') A O Gms.dcUGq ST  )"  (n Y <> UBound631L-h%.e,= (union all u}Next  )bb aa.waf_id =bbaSTATEaA) GRO UP BYy.ORDER1sub_lotP`5<À<;qwe.*1b,0r.*S70<__a 66sA6B6{0D6D? 6" 7( IIm G1 8 lBb a =[s *?)D?0=/@T Q ??l? S%+u) o- QLX1rQ+"=0rLu`3 'Debug.PrintQ/%_p_full_inspect=8= Y9 Funr õpݶ2 Public E 4sp5check@(ByValDr8r, J!'# 0JI Iq~"BF+-*?ço //¼1q o_[ 9= getItemColumn(i_arr(ii@i)) ElseIf In St `, "/") > 0 Then|div = Right! r, Le -1k+ 1gmebsgLeff-(as_c, 61*h5KALkZ+LfLALL-L_&a _&=`}s$ _&s&End If򔓗'ûӀмjunB(me& 0ϓ! ""S8 numsql2 SELECT SUB_LOT_ID ,mx,mn,ag,ct,sted FROM (" _S & "TRUNC(MAX(TO_NUMBER)),5) mx ,#STDDEVavgmin@ COUNTC ctto_ 'ber( TRIM"& !1P ) )" & C"b4,WAF* COCMEASDATAINFOS c WHEREI @2DISTIN4CASEN SHIP_5IS NULL HTHEUB8ELmEND;T L  p LEFT JOIN MES_TAG@ ms ONP.CUSTOMER@ =c.` 3 c.FILE_NAME ='FileNameP"') A O Gms.d~cUGq ST ?&"I!) GRO UP BY ORDERL)_>b<_spot_check0=0*=:j@GUBound0j)L-ᜎAR+A(0)BMTQCGUB/ "'ßR` For b0Oo / -|Ft_ % ߞ)@e//q4М ,ߨi/jxph{?a ?Z 1 ( #WdocϺ0ϺϺ?W SϺ Ϻ/nyH\ o K2A Next'rvfP׏Seq= x9& yA{xdSr@1Ldj L{mBn,` ( q"))/!)))_qXq!y B_LOT_ID END SHIP_SUFROM COCMEASlLISTSTD c LEFT JOIN MES_6TAG ms ON .CUSTOMER =c.AmsF WHERE c.FILE_NAME ='" & Fil eName "' ) D1in(SELECT DINCASE I&IS NULL THEN_ELFM~~ )" _  & " ) GROUP BY  ORDE2R )" #Debug.Print numsql"2 get_spot_check = End If Function '''õ@̳ݶsub_lid Public  process_sampling_inspe(ByVal item_`arr, E)/'2If UB ound( ) - L= 0 The/]div@>"R  ?p+-*/ @%InStr%(iii), "/")@0 AVR*^:+^-$7meas_column`3I.C.Else>. /RightM%Len:*+ 1 mes@Lef 7 -< ' _&oC!?_&_&BgNAaa _&= _& [! _&M_&eAa_&_&_& "a _&_&r ?! _&_&.99TuA/-/f 99N/p9+S/9mTM_&un^'ûyhfjur nB(hV_A_@T/j Z0_ AaplosQ4 ,mx,mn,ag,ct,sted (dy,TRUNC(MAX(TO_NUMBER^)),5) mx pDEVO5)Dxavg`` smpn,COUNT ct  b,to_ber( TRIM&p)0!a5aB,WAF q TDATAINFOS08 1@DZ ÿyOT3  OHBdѯѨ '$3 r&0)?М?P>>DAqto_oecrystal_b|aroboo9_ko 6= P#.ToOM/ mm1{!tem_arr(iii), "-") = 0 T@hen meas_columngetIRC(i )ElseIf In\St 0/>divzRight r, Len -k+ 1S~mes3Lef{3^-(61*hLɜALZ+LfLLALLasds&)sa _&=`}s'_&sEnd IfӜ'ûм쐲ju"nB(Ԃ9=0A@""SYnumsql2 SELECT SUB_LOT_ID ,mx,mn,ag,CASE ct W`HEN 525 EL END,sted FROM (" b_& " TRUNC(MAX(TO_NUMBER)),5) mx ,#STpDDEVavgminCOUNTCto_+ber( TRIM"& 5U ) ) & o"B9,WAF/ )COCMEASDATAINFOS c0RE DISTINp"ASHIP_hIS NULL TApq=;T L 0p LEFT JOIN MES_TAG@ ms ONP.CUSTOMER@ =c. 0 c.FILE_NAME ='" & FileName"') .A& O Gms.dcUGq ST s )O3^!) GROUP BY ORDER=L)@@?_crystal_bar?T@:B''2SP#'MUBoun.d41cbL-= X1 AAXˤ0ѬRDES %AIL~Or}cRG 1OBOOګBCx$ bKdSSSS S !4? O_T_T_TmB_TX_TZn,_T@a} For  fo $ }$gQU= q .+-*/C Of00oƑ-Aqڟ/(Qa4AQ h= A?bOdO#)QDOEO`0%, Om//(/I$ight(item_arr(iii), Len ) - InSt "*") +@ 1) mes =f-Qas_columnYgetI5C(mElPseIf+c> 0 Thenediv8R<5K(n-LfLH"ALEnd If ϐnum0sql2E& " SELECT SUB_LOT_ID ,to_ber( TRIM(" & me ) )AA ,WAF FROM COCMEASDATAINFOS c WHEREin( DISTIN CASEN SHIP_IS NULL THEUBELmENDL@STDLEFT JOI@N MES_aTAG ms ON.CUSTOM ER =c.cc.FILE_NAME ='A#FileName`'"') A$ms.ca*A1NS <> UBoundfLMWY= %Qunion all "`c g/Next') GROUP BYi^@ ORDER)q 'Debug.Print@`}_crystal_bar~ amOXYC ONCENwL* 1.96;J/2 @_9r)X1 A!K0 "] WvLB,mx,mn,ag,"EctSE50vD25 4p Q4Ap,stedK( F&&T ,TRUNC(MAX(TO_NUMBER2.)),5) mxGDEVO5)davg` smEpn,COUNT~ 2B P OFor :=o- -;?b= "9'+-*/! Q#/" _%פ_Ǧ"ыzH D9r= 08h H fd?d?%ߎP UBound(_arr) - LThenŭKunion all " End IfaONextO) GROUP BY ORDER )Q%'Debug.PrintE! get@_crystal_bar J<'2ORIENTA@TIONX;YC44)`1 AS*8(0a" " 8'Ç C ForC@= 0 ToDr)  DLBGx)ICP(`S)P Else y_ fROaa1 x*@& x bbyy']h,MX,STED,AG,MN,4ct56A25v  (݀_H? ?!!)W" cda{$G),TRUNC(MAX(TO_N UMBER/)),5) mx pDEVO5)stedDavg`agmmpn,COUNT> !!.7!qt1!w,sqrt(1a+qt2.b)from y[4A7p aO~\-D -STs?1qoo'0o5B!A/T _@N /c Е PGS@^\yaOOT1w)01 BZQae0b00000/00O_OOOJ/q00?80п00п00?Bs? 00?|0S0.2!bG=b81cxſϿD@) cdb oP#p .=p(o_ l2geڴtsql_crystal_bar@ = num2` E`nd IfD4Function 'ȫԭʼ A@ get_heckall_datas(ByVal item_ arr, FileName)k" SELECT dd.SUB_LOT_ID,slo t_no,e F ROM ()* ", & 1@DISTIN6CASE WHEN@ SHIP_; IS NULL TUBG ELcENDUC@OCMEASL9STD c &VLEFT JOI.Nyy =,0CUSTOMER1+ 0L71M 1CX MES_TAG ) ms ON ciE=.URE FILE_NAME ='."ac'B)sXb1 D (UPPER(substr(SP_DATA_STATE,0,INSTRL';')-1))  , _id,waf>_DzINFOS )Cf)Su7.v=X@]cdc G@ (@^F@or iiii0 To UBound(%t) - LLodivqHyE'''+-*/ If InS+ (), "/")A2**>+>-$TheBmeas_column`I`C$o!Else> .Z+RightK, Len51*+ 1amebs@Lef 7 -< ' _&r "!?_&_&7V&a _&=0_&ii![! _&MK&:K_$or %o:o/D %b%ao%md9g/@BPF?/I//ER  /////)[/Q typeaBȥ^ydRac5=UcU%_|!a _0-a_"l1XA) )u3s_5_5u$"/# ?[   XO0O0   ?  q\ a9  )bM   Q  /А   o _'g4m"64_'Js (,to_ber( TR8IM()) :)Qd0! ,rɆ p' a ,xWAF0cqinGID D FROM COCMEASSHIPLISTSTD c LEFT JOI@N MES_lTAG ms ON.CUSTOMER_SUBLO T =c._ID WHERE c.FILE_NAME ='" & FileName"') AND v1in(SELECT D INCASEIn&IS NULL THEN_EL)ms. VFRv )"  If iii <> UBound(item_arr) - L Then!)numsql2 = & " union all >< End If'NextO) dddd.waf_idcc BtASTATE ORDER BY _h,S NO)'Debug.PrintC8O get_A_ check=_d0atas. ADocumentSummaryInformation8aThisWorkbookThisWorkbookģ1!jWW1ConnectionUtilConnectionUtilCommonCommoncocModecocModecocfPagecocfPageIngotPage1IngotPage1IngotPage2IngotPage2ģ2!jWW2ģ3!jWW3ģ4!jWW4ģ5!jWW5ģ6!jWW6GWJģGWJ!jgģ7!jWW7bolanbolan̨xmlSy5uubxmlSqlcommonutil_lot_idSqlcommonutil_lot_idģlot_idKfNS!jglot_idxml͑^NVubxml̨ģSy5u!jgͨģ(u!jgϺ NwmZSȉģsql!jWWYYOsqltestsqltestsqlSqlcommonutil_sub_lot_idSqlcommonutil_sub_lot_idSqlcommonutilSqlcommonutilxmlNSRƖbubxmlcharpdcharpdtesttestϷʳxmlTkubxmlcreatePoldercreatePolder人оxmlfkIleubxmlģ8!jWW8SVMģSVM!jg̩оl Sоʸ-NVE9e͑^NV9eģlot_idKfNS!jglot_id9e洢_lX[P9eģNSzƖb!jg9eϷʳθTk9e人оģfkIle!jg9e^]e!NSy9eϷʾϸTvfT9eGLOBģGLOB!jg_l[GLOBģxmlGLOB!jgxmlо1^]|1ݸоmg][ϷʳζƷTkYT TtestprotestproϷʳζƷxmlTkYT Tubxmlģ10!jWW10Rvf̩о1l S1洢1_lX[P1̨ģ2Sy5u!jg2̨xml2Sy5uubxml2人fkIlZitQ̨ģ3Sy5u!jg3̨xml3Sy5uubxml3̨ģ4Sy5u!jg4ļeNbRģ9!jWW9о^]|GLOBģGLOB!jgewafUtilswafUtilsൺо1R\i`1Ӻض֥1R:N1ൺоR\i`Ӻض֥R:Nݻmg]ywmϺɵ· NwmƖb5uණSNqNൺоxmlR\i`xml0021͑^NV00211{|1оm3WOZSNxmlZSNxml人efkIlZitQģKfNS!jgeOͨģ1(u!jg1洢_lX[POsublotͨsublot(usubcocfPagesubcocfPageϷʳTkyrkϷʳxmlTkexmlо[оXо[eоT洢_lX[PණͨģqN(u!jHrģ1111111!jWW1111111ϷʾTvfTeϷʾwaferTvfTwaferӢޘQϾ̨WSNSy5uϾ̨xmlWSNSy5uxmlϺ΢ NwmNSR_5uP[OeeϺо NwmT ՜.+,D՜.+,d8@H T\ <80ICVKSOProductBuildVerCalculationRule$9BE8B1F872F64C62BA43A4BB372119BF_132052-1                          ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B Oh+'0x px Hp PageTitlehuangll KeywordsBiu@?R,@!=@\GG<2  u &" WMFC ؝ؽl2 EMFؽ e F, EMF+@F8,EMF+*@$==0@?@<0 AA{EA{E?DA?D3@ @<0 AA{EA{E?DA?D3@ @<0 DC{EC{E?DD?D3@ @@F!b !5!$$==% % V05!9@@  @% % $$AA" F, EMF+ @D@p!5!$$==% % V0!9     % % $$AA" F, EMF+ @ @!5!$$==% % V0!900% % $$AA" F, EMF+ @@!5!$$==% % V0!9  @!@! % % $$AA" F, EMF+ @0F6!5!$$==% % V058W@@p p @% % $$AA" F, EMF+ @D0p6$$==% % V08W  p p  % % $$AAF, EMF+ @ 06$$==% % V08Wp0p0% % $$AAF, EMF+ @06!5!$$==% % V08W  p@!p@! % % $$AA" F, EMF+ @\&!5!$$==% % V05Vi@`@AA`@`% % $$AA" F, EMF+ @F!5!$$==% % V05hu@@P P @% % $$AA" F, EMF+ @Dp$$==% % V0hu  P P  % % $$AAF, EMF+ @ $$==% % V0huP0P0% % $$AAF, EMF+ @!5!$$==% % V0hu  P@!P@! % % $$AA" F, EMF+ @F"!5!$$==% % V05t@@@  @@@% % $$AA" F, EMF+ @Dp"$$==% % V0t @   @ @% % $$AAF, EMF+ @F!5!$$==% % V05@ @ @ % % $$AA" F, EMF+ @Dp$$==% % V0   % % $$AAF, EMF+ @!5!$$==% % V0   @! @!  % % $$AA" F, EMF+ @F!5!$$==% % V05@ @  @ % % $$AA" F, EMF+ @Dp$$==% % V0    % % $$AAF, EMF+ @ $$==% % V0  0 0  % % $$AAF, EMF+ @!5!$$==% % V0   @! @!  % % $$AA" F, EMF+ @F!5!$$==% % V05@ @ @ % % $$AA" F, EMF+ @Dp!5!$$==% % V0   % % $$AA" F, EMF+ @ "$$==% % V0t@ 0 0@@% % $$AAF, EMF+ @"!5!$$==% % V0t @  @! @!@ @% % $$AA" F, EMF+ @ $$==% % V0  0 0  % % $$AAF, EMF+ @ !5!$$==% % V0  0 0  % % $$AA" F, EMF+ @!5!$$==% % V0   @! @!  % % $$AA" " F@4EMF+@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 DC{EC{E?DD?D3@ @<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0&" WMFC }ؽ DC{EC{E?DD?D3@ @ @ !# ==$$== K@0 5!5!  Rp`Arialdv% % Rp`Arialdv% Tl8c0^LXWarp/Z<d(% ( " FEMF+@ !# ==$$== K@0 5!5!  % % Rp`Arialdv% TTdg^LP (% ( " FEMF+@ !# ==$$== K@0 5!5!  % % Rp`Arialdv% TThp^LPZ% ( " FEMF+@ !# ==$$== K@0 5!5!  % % Rp`Arialdv% TTq~j^LPm% ( " FEMF+@ !# ==$$== K@0 5!5!  % % Rp`Arialdv% T|80NL\CustomerxdZ2dZ<% ( " FEMF+@ !# ==$$== K@0 5!5!  % % Rp`Arialdv% TTNLP (% ( " FEMF+@ !# ==$$== K@0 5!5!  % % Rp`Arialdv% TlFNLXspec.ZdZZ(% ( " FEMF+@ !# ==$$== K@0 5!5!  % % Rp`Arialdv% TTNLP (% ( " FEMF+@ !# ==$$== K@0 5!5!  % % Rp`Arialdv% TTNLP (% ( " FEMF+@ !# ==$$== K@0 5!5!  % % Rp`Arialdv% TXNLP40ZZ% ( " FEMF+@ !# ==$$== K@0 5!5!  % % Rp`Arial&" WMFC ]ؽdv% TTNLP @(% ( " FEMF+@ !# ==$$== K@0 5!5!  % % Rp`Arialdv% TTNLPZ% ( " FEMF+@ !# ==$$== K@0 5!5!  % % Rp`Arialdv% TT NLPm% ( " F|pEMF+@ @<0 ?+E?D?{E?D?{ED?+ED3@ @ @ !# ==$$== K@0   RpLArialdv% % RpLArialdv% Tx'} hL\OVERALLxnn% ( " FEMF+@<0 DC{EC{E?DD?D3@ *@$==@<0 DC{EC{E?DD?D3@ *@$==@<0 DC{EC{E?DD?D3@ *@$==@<0 DC{EC{E?DD?D3@ *@$==@ @ @ !# ==$$== K@0 5!5!  Rp`[SOdv% % Rp`[SOdv% TT0NLPd" % ( " F EMF+@ @<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 DC{EC{E?DD?D3@ @<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 DC{EC{E?DD?D3@ @<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ @4( A @@  !b !$$==_888% % W$3H 0 % % $$AA" ( F@4EMF+@ @$~  $$=='% % V04st@0@@0@00@0V04uv@P@`0`0P@P% % $$AAFEMF+@ @<0 DC{EC{E?DD?D3@ @<0 DC{EC{E?DD?D3@ @<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$== @ @( $$=='% % V05!PP% % $$AAF, EMF+ @ @$$==% % V05!PP% % $$AAFEMF+@ @C@SCCNCCCp ClCNHCCNHCCNHCCLC~ÖCJO CoCxHCJOoCICLlCLCNHkCsOCNHkC@SCNHkC ZCCpqCaCNyCaCCaClCaCC ZCC@SC@kkk( $$=='kkk%  ;R6X4Y$BCX4{GyLyRy_hh6hX(h_R<>&" WMFC =ؽ ! % $$AAF8,EMF+@ @ J( $$=='% % V0!59PP% % $$AAF, EMF+ @ :,$$==% % V095WpPpP% % $$AAF, EMF+ @ f$$==% % V0W5ipPPpp% % $$AAF, EMF+ @ x$$==% % V0i5uPPPP% % $$AAF, EMF+ @ $$==% % V0u5P P PPP% % $$AAF, EMF+ @ $$==% % V05  P P  % % $$AAF, EMF+ @ $$==% % V05  P P  % % $$AAF, EMF+ @ 0 ( $$=='% % V0859PP% % $$AAF, EMF+ @ 0 $$==% % V0859PP% % $$AAF, EMF+ @ \ $$==% % V0V5W`pPpP``% % $$AAF, EMF+ @ \ $$==% % V0V5W`pPpP``% % $$AAF, EMF+ @  $$==% % V0h5iPP% % $$AAF, EMF+ @  $$==% % V0h5iPP% % $$AAF, EMF+ @  $$==% % V0t5u@PPPP@@% % $$AAF, EMF+ @  $$==% % V0t5u@PPPP@@% % $$AAF, EMF+ @  $$==% % V05  P P  % % $$AAF, EMF+ @  $$==% % V05  P P  % % $$AAF, EMF+ @  $$==% % V05  P P  % % $$AAF, EMF+ @  $$==% % V05  P P  % % $$AAF, EMF+ @  $$==% % V05  P P  % % $$AAF, EMF+ @@ $$==% % V04 59@@PP@% % $$AAF, EMF+ @@ !$$==% % V0 9% % $$AA" F, EMF+ @0 6$$==% % V0485W@@pPpP@% % $$AAF, EMF+ @0 6!$$==% % V08Wpp% % $$AA" F, EMF+ @\ $$==% % V04V5i@`@PP`@`% % $$AAF, EMF+ @\ !$$==% % V0Vi```% % $$AA" F, EMF+ @ $$==% % V04h5u@@PPPP@% % $$AAF, EMF+ @ !$$==% % V0huPP% % $$AA" F, EMF+ @ "$$==% % V04t5@@@ P P@@@% % $$AAF, EMF+ @ "!$$==% % V0t@  @@% % $$AA" F, EMF+ @ $$==% % V045@ @ P P @ % % $$AAF, EMF+ @ !$$==% % V0   % % $$AA" F, EMF+ @ $$==% % V045@ @ P P @ % % $$AAF, EMF+ @ !$$==% % V0    % % $$AA" " FEMF+*@$==@<0 ACDCDDAD3@ @ @ !# ==$$== K@0 !59!59 WWW Rp$I{~&" WMFC ؽdv% % Rp$I{~dv% TT# 8LP1x% ( " FxlEMF+@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@ @ @ !# ==$$== K@0  WWW % % Rp$I{~dv% TT> T LP2x% ( " F|pEMF+@ @<0 AYDDYDD?DA?D3@ @ @ !# ==$$== K@0 W5iW5i WWW % % Rp$I{~dv% TTW hLP3x% ( " FEMF+@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@ @<0 A?DD?DD?DA?D3@ @ @ !# ==$$== K@0 i5ui5u WWW % % Rp$I{~dv% TTi tLP4x% ( " FxlEMF+@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@ @ @ !# ==$$== K@0  WWW % % Rp$I{~dv% TTy nLP5x% ( " F|pEMF+@ @<0 A?DD?DD?DA?D3@ @ @ !# ==$$== K@0 55 WWW % % Rp$I{~dv% TT rLP6Ax% ( " FEMF+@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@ @<0 A?DD?DD?DA?D3@ @ @ !# ==$$== K@0 55 WWW % % Rp$I{~dv% TT bLP7Dx% ( " F, EMF+@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@ *@$==@<0 ACDCD?DA?D3@ @<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$== @ @( !b $$=='% % V05!PP00P% % $$AAF, EMF+ @D @( $$=='% % V0!     % % $$AAF, EMF+ @ @$$==% %&WMFCؽ V0!  % % $$AAF, EMF+ @D @$$==% % V0!     % % $$AAF, EMF+ @ @$$==% % V0!  00 % % $$AAF, EMF+ @ @$$==% % V0!  % % $$AAF, EMF+ @@< $$==% % V04 !@@  @% % $$AAF, EMF+ @< !$$==% % V04@@  @% % $$AA" F, EMF+ @D@f $$==% % V0 !   % % $$AAF, EMF+ @Df !$$==% % V0  % % $$AA" F, EMF+ @ @  $$==% % V0 !  % % $$AAF, EMF+ @  !$$==% % V0  % % $$AA" F, EMF+ @@ $$==% % V0 !  00 % % $$AA" FL@EMF+*@$==@ @ !# ==$$== K@0  WWW % % Rp$I{~dv% TTq~jLPA% ( " F4(EMF+@ @ @ !# ==$$== K@0  WWW % % Rp$I{~dv% TTLPBx% ( " F4(EMF+@ @ @ !# ==$$== K@0  WWW % % Rp$I{~dv% TTLY LPC% ( " FEMF+@ *@$==@<0 DA{EA{ECDC3@ @<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 DA{EA{ECDC3@ @<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 DC{EC{E?DD?D3@ *@$==TBB@ *@$==33CB @n( !b !5!$$=='% % V0*"J P3P3  % % $$AA" FEMF+@ @4(AA@ 4(@ee@ : !5!$$==_888" % % V0!ZH3H3% % $$AA" ( : F$EMF+@ *@$==TBB@ @ <0 ZEZEDD3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 DC{EC{E?DD?D3@ @<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==@<0 AA{EA{E?DA?D3@ *@$==1@ *@$??Ld)??" FEMF+@   ,!5--$4 499 4 --',!5--$ 99 --',!5--$ 99  --',!5--$ 99  --',!5--$484WW848--'--$8WW88----$8WW88--,!5--$8WW88--',!5--$4V4iiV4V--',!5--$4h4uuh4h--'--$huuhh----$huuhh--,!5--$huuhh--',!5--$4t4t4t--'--$ttt--,!5--$444--'--$--,!5--$--',!5--$444--'--$----$--,!5--$--',!5--$444--',!5--$--'--$ttt--,!5--$ttt--'--$--,!5--$--',!5--$--''.,!5 Arial-"System-Arial-2 8Warp/  -'.,!5 --Arial- 2 d -'.,!5 --Arial- 2 h -'.,!5 --Arial- 2 qm-'.,!5 --Arial-2 8Customer   -'.,!5 --Arial- 2  -'.,!5 --Arial-2 spec. -'.,!5 --Arial- 2  -'.,!5 --Arial- 2  -'.,!5 --Arial- 2 40 -'.,!5 --Arial- 2  -'.,!5 --Arial- 2  -'.,!5 --Arial- 2 m-'., Arial--Arial-2 'OVERALL -'.,!5 --- 2 -',--%5--'--$4s4tts4s$4u4vvu4u----$!5!5----$!5!5--kkk--8 !!!----$!9595!!----$9W5W599----$Wi5i5WW----$iu5u5ii----$u55uu----$55----$55----$8959588----$8959588----$VW5W5VV----$VW5W5VV----$hi5i5hh----$hi5i5hh----$tu5u5tt----$tu5u5tt----$55----$55----$55----$55----$55----$4 49595 4 --,--$ 99 --'--$484W5W5848--,--$8WW88--'--$4V4i5i5V4V--,--$ViiVV--'--$4h4u5u5h4h--,--$huuhh--'--$4t455t4t--,--$ttt--'--$44554--,--$--'--$44554--,--$--''.,95! WWW- -- 2 51 - '., WWW- -- 2 P2 - '.,i5W WWW- -- 2 h3 - '.,u5i WWW- -- 2 w4 - '., WWW- -- 2 5 - '.,5 WWW- -- 2 6 - '.,5 WWW- -- 2 7 - '--$55!!5----$!!----$!!----$!!----$!!----$!!----$4 4!! 4 --,--$444--'--$ !! --,--$--'--$ !!  --,--$--'--$ !!  --'., WWW- -- 2 qA- '., WWW- -- 2 B - '., WWW- -- 2 LC- ',!5--$*"*J5J5"*"--',!5- -$*"5"5J*J*"--' @ )'Microsoft Excel2.1.0.25865