????ࡱ> 9 R,bjbj2 ilC$= ]@92222,22l2 a 00C@2 procedure Button1Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure SBMQryClick(Sender: TObject); procedure Button2Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure SBAppClick(Sender: TObject); procedure Button_StypeClick(Sender: TObject); procedure DBEdit_StypeExit(Sender: TObject); procedure Query_SOrdDNewRecord(DataSet: TDataSet); procedure Query_SOrdMAfterScroll(DataSet: TDataSet); procedure Query_SOrdDBeforePost(DataSet: TDataSet); procedure CreateSoNo; procedure Button_CusNoClick(Sender: TObject); procedure FormActivate(Sender: TObject); procedure DBEdit_CusNoExit(Sender: TObject); procedure Button_CusNoExit(Sender: TObject); procedure FormCreate(Sender: TObject); procedure _DBEdit_Mode(xState:Boolean); procedure DBGrid1ColExit(Sender: TObject); procedure DBGrid1EditButtonClick(Sender: TObject); procedure Query_SOrdDBeforeScroll(DataSet: TDataSet); procedure BitBtnApplyClick(Sender: TObject); procedure DBLookupComboBox_CorpNoClick(Sender: TObject); procedure Query_SOrdDAfterPost(DataSet: TDataSet); procedure DBGrid1ColEnter(Sender: TObject); procedure Query_SOrdDAfterScroll(DataSet: TDataSet); procedure Query_SOrdDCalcFields(DataSet: TDataSet); procedure Query_SOrdMBeforePost(DataSet: TDataSet); procedure Query_SOrdDBeforeInsert(DataSet: TDataSet); procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); procedure Query_SOrdMBeforeDelete(DataSet: TDataSet); procedure Query_SOrdMarkBeforePost(DataSet: TDataSet); procedure DBNavigator3Click(Sender: TObject; Button: TNavigateBtn); procedure _Find_Null; procedure Query_SOrdDAfterDelete(DataSet: TDataSet); procedure Query_SOrdDBeforeDelete(DataSet: TDataSet); procedure TabSheetQueryShow(Sender: TObject); procedure DBGrid1KeyPress(Sender: TObject; var Key: Char); procedure DataSource_SearchDataChange(Sender: TObject; Field: TField); procedure DBEdit_CusNoEnter(Sender: TObject); procedure Query_SOrdMAfterClose(DataSet: TDataSet); procedure Query_SOrdMStypeValidate(Sender: TField); procedure Query_SOrdMCusNoValidate(Sender: TField); procedure Query_SOrdDProdNoValidate(Sender: TField); procedure Query_SOrdDCusPNo1Validate(Sender: TField); procedure Query_SOrdMAfterPost(DataSet: TDataSet); procedure DBEdit_OrdDayExit(Sender: TObject); procedure Query_SOrdMOrdDayValidate(Sender: TField); procedure Query_SOrdDPostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Query_SOrdDEditError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); procedure Query_SOrdDDeleteError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); private { Private declarations } public { Public declarations } end; var FSAL210: TFSAL210; xControl:string; xSeq,xSeqSub,xProdNo,xPackNo:String; //**vMRvSeq, SeqSubv

'' then begin DM1.SQL_Command:='select CorpNo from CusProd where CorpNo='+QuotedStr(Query_SOrdM.FieldByName('CorpNo').AsString)+ ' and CusNo='+QuotedStr(Query_SOrdM.FieldByName('CusNo').AsString)+ ' and ProdNo='+QuotedStr(Query_SOrdD.FieldByName('ProdNo').AsString)+ ' and CusPNo1='+QuotedStr(Query_SOrdD.FieldByName('CusPNo1').AsString)+ ' and CusPNo2='+QuotedStr(Query_SOrdD.FieldByName('CusPNo2').AsString)+ ' and CusPNo3='+QuotedStr(Query_SOrdD.FieldByName('CusPNo3').AsString); end; DM1._Query_table(DM1.Qtmp,DM1.SQL_Command); if DM1.Qtmp.Eof then begin Showmessage('~b N0Rdk[6bv[6bT_, ˊ[6bT_j}w'); DBGrid1.SetFocus; Abort; end; //**OS݈N_"uuP[v if Query_SOrdD.FieldByName('SeqSub').AsString = '01' then begin DM1.SQL_Command:='select ProdNo2,ProdNo3 from Pack where PackNo='+QuotedStr(Query_SOrdD.FieldByName('PackNo').AsString)+ ' and ProdNo1='+QuotedStr(Query_SorDD.FieldByName('ProdNo').AsString); DM1._Query_table(DM1.Qtmp,DM1.SQL_Command); if not DM1.Qtmp.Eof then begin { //*** HQ\S gvS݈D}Tnje*Rd DM1.SQL_Command:='Delete from SOrdD where CorpNo='+QuotedStr(Query_SOrdD.FieldByName('CorpNo').AsString)+ ' and SoNo ='+QuotedStr(Query_SOrdD.FieldByName('SoNo').AsString)+ ' and Seq='+QuotedStr(Query_SOrdD.FieldByName('Seq').AsString)+' and SeqSub<>''01'' '; DM1.ADOCommand_UpdateSQL.CommandText:=DM1.SQL_Command; try DM1.ADOCommand_UpdateSQL.Execute; except raise Exception.Create('*RdgQ΀bOB1YWe'); end; if DM1.Qtmp.FieldByName('ProdNo2').AsString<>'' then begin DM1.SQL_Command:='Insert into SOrdD Values ('+QuotedStr(Query_SOrdM.FieldByName('CorpNo').AsString)+','+QuotedStr(Query_SOrdM.FieldByName('SoNo').AsString)+','+ QuotedStr(Query_SOrdD.FieldByName('Seq').AsString)+',''02'','+QuotedStr(DM1.Qtmp.FieldByName('ProdNo2').AsString)+','+ QuotedStr(Query_SOrdD.FieldByName('PackNo').AsString)+','' '','' '','' '','+Query_SOrdD.FieldByName('OrdQty').AsString+','+ Query_SOrdD.FieldByName('UnitP').AsString+','+Query_SOrdD.FieldByName('Discount').AsString+','+Query_SOrdD.FieldByName('SubTot').AsString+','+ Query_SOrdD.FieldByName('PackQty').AsString+','+DateToStr(now)+','+QuotedStr(DM1.NowUser)+','+QuotedStr(DM1.NowCorpNo)+')' ; DM1.ADOCommand_UpdateSQL.CommandText:=DM1.SQL_Command; try DM1.ADOCommand_UpdateSQL.Execute; except raise Exception.Create('gQ΀eX1YWe'); end; end; if DM1.Qtmp.FieldByName('ProdNo3').AsString<>'' then begin DM1.SQL_Command:='Insert into SOrdD Values ('+QuotedStr(Query_SOrdM.FieldByName('CorpNo').AsString)+','+QuotedStr(Query_SOrdM.FieldByName('SoNo').AsString)+','+ QuotedStr(Query_SOrdD.FieldByName('Seq').AsString)+',''03'','+QuotedStr(DM1.Qtmp.FieldByName('ProdNo3').AsString)+','+ QuotedStr(Query_SOrdD.FieldByName('PackNo').AsString)+','' '','' '','' '','+Query_SOrdD.FieldByName('OrdQty').AsString+','+ Query_SOrdD.FieldByName('UnitP').AsString+','+Query_SOrdD.FieldByName('Discount').AsString+','+Query_SOrdD.FieldByName('SubTot').AsString+','+ Query_SOrdD.FieldByName('PackQty').AsString+','+DateToStr(now)+','+QuotedStr(DM1.NowUser)+','+QuotedStr(DM1.NowCorpNo)+')'; DM1.ADOCommand_UpdateSQL.CommandText:=DM1.SQL_Command; try DM1.ADOCommand_UpdateSQL.Execute; except Raise Exception.Create('OBeX1YWe'); end; end; } end else begin showmessage('~b N0RdkbN+S݈N_'); Query_SOrdD.FieldByName('PackNo').AsString:=Query_SOrdD.FieldByName('PackNo').OldValue; Abort; end; end; //**f}V['' then begin Query_SOrdD.FieldByName('SoNo').AsString:=DBEdit_SoNo.Text; Query_SOrdD.FieldByName('CorpNo').AsString:=DBLookupComboBox_CorpNo.KeyValue; Query_SordD.FieldByName('InDay').AsDateTime:=now; Query_SordD.FieldByName('UsrNo').AsString:=DM1.NowUser; Query_SordD.FieldByName('UsrCo').AsString:=DM1.NowCorpNo; Query_SOrdD.FieldByName('SubTot').AsFloat:=Query_SOrdD.FieldByName('OrdQty').AsInteger*Query_SordD.FieldByName('UnitP').AsFloat; Query_SOrdM.FieldByName('SubTot').AsFloat:=Query_SOrdM.FieldByName('SubTot').AsFloat+Query_SordD.FieldByName('SubTot').AsFloat; end ; if (Query_SOrdD.FieldByName('ProdNo').AsString='') and (Query_SOrdD.RecordCount=0) then begin showmessage('hj!qNUOnje, NX[j') ; abort; end; end; procedure TFSAL210.FormActivate(Sender: TObject); begin inherited; if (DM1.xStr<>'') and (xControl='DBGrid') then begin //** 1u DBGrid Bl6^Vnje DM1.xDBGrid.SelectedField.AsVariant:=copy(DM1.xStr,2,Length(DM1.xStr)); DM1.xDBGrid.SelectedIndex:=DM1.xDBGrid.SelectedIndex+1; xControl:=''; DM1.xStr:=''; DM1.xCallState:=False; exit; end; DM1.xStr:='1'; if (DM1.xStr<>'') and (DM1.xCallState) then begin //** 1u DBEdit Bl6^Vnje DM1.xDBEDit.Field.Value:='NTD'; DM1.xLabel.Caption:='ntd'; { DM1.xDBEDit.Field.Value:= copy(DM1.xStr,1,pos(',',DM1.xStr)-1); DM1.xLabel.Caption:=copy(DM1.xStr,POS(',',DM1.xStr)+1,(Length(DM1.xStr)-3-POS(',',DM1.xStr))); } DM1.xStr:=''; DM1.xCallState:=False; end; end; //*********************************************************************** //** Column Exit Bf$R[^eQnje/f&TX[(W //************************************************************************ procedure TFSAL210.DBGrid1ColExit(Sender: TObject); begin inherited; if Query_SOrdD.State = dsBrowse then exit; if DBGrid1.SelectedField=Query_SOrdD.FieldByName('ProdNo') then begin //**bTN_ DM1.SQL_Command:='Select PnameD From Prod where ProdNo='+QuotedStr(Query_SOrdD.FieldByName('ProdNo').AsString); DM1._Query_table(DM1.Qtmp,DM1.SQL_Command); if DM1.Qtmp.IsEmpty then begin showmessage('~b N0RdkbTN_'); Abort; end; end; if (DBGrid1.SelectedField=Query_SOrdD.FieldByName('UnitP')) OR (DBGrid1.SelectedField=Query_SOrdD .FieldByName('OrdQty')) then begin //**{\ SubTot Query_SOrdD.FieldByName('SubTot').AsFloat:=Query_SordD.FieldByName('OrdQty').AsFloat*Query_SOrdD.FieldByName('UnitP').AsFloat; end; if (DBGrid1.SelectedField=Query_SOrdD.FieldByName('PackNo')) and (Trim(Query_SOrdD.FieldByName('PackNo').AsString)<>'') then begin //**SPgN_ if (Query_SOrdD.FieldByName('SeqSub').AsString = '01') and (Query_SOrdD.Modified) then begin DM1.SQL_Command:='select ProdNo2,ProdNo3 from Pack where PackNo='+QuotedStr(Query_SOrdD.FieldByName('PackNo').AsString)+ ' and ProdNo1='+QuotedStr(Query_SorDD.FieldByName('ProdNo').AsString); DM1._Query_table(DM1.Qtmp,DM1.SQL_Command); if DM1.Qtmp.Eof then begin showmessage('~b N0RdkbNvS݈N_'); DBGrid1.SetFocus; Abort; end; end; end; end; //******************************************************************* //** T TSS݈N_zgb //******************************************************************* procedure TFSAL210.DBGrid1EditButtonClick(Sender: TObject); var xKeyValue:string; i:integer; begin inherited; DM1.xForm:=FSAL210; DM1.xCallState:=True; DM1.xDBGrid:=DBGrid1; xControl:='DBGrid'; if DBGrid1.SelectedField=Query_SOrdD.FieldByName('ProdNo') then begin if not _Form_Exist('FSTK900') then //** 6^bT;Nj Application.CreateForm(TFSTK900,FSTK900); FSTK900.Show; end; if DBGrid1.SelectedField=Query_SOrdD.FieldByName('PackNo') then begin if not _Form_Exist('FSTK800') then //** S݈N_j Application.CreateForm(TFSTK800,FSTK800); FSTK800.Show; end; if DBGrid1.SelectedField=Query_SOrdD.FieldByName('CusPNo1') then begin if not _Form_Exist('FSALZ50') then //[6bT_j Application.CreateForm(TFSALZ50,FSALZ50); FSALZ50.Show; end; end; //**************************************************** //** OYuMRNF{v^_ , OnNewRecord RRN P_x //**************************************************** procedure TFSAL210.Query_SOrdDBeforeScroll(DataSet: TDataSet); begin inherited; // if DataSet.Active then begin xSeq:=DataSet.FieldByName('Seq').AsString; xSeqSub:=DataSet.FieldBYName('SeqSub').AsString; xProdNo:=DataSet.FieldByname('ProdNo').AsString; xPackNo:=DataSet.FieldByname('PackNo').AsString; // end; end; //************************************************* //** BitBtnApply onClick c NX[j c //************************************************* procedure TFSAL210.BitBtnApplyClick(Sender: TObject); begin inherited; Query_SordD.Post; Query_SOrdM.Post; _DBNavigatorVis(DBNavigator1,'all'); end; //**************************************************************** //** $R[vMR傺peXbO9erKa, GRhnjeX[j_͑ec^ //***************************************************************** procedure TFSAL210.Query_SOrdDAfterPost(DataSet: TDataSet); var xSeq,xSeqSub,xProdNo,xPackNo,xPackQty,xOrdQty:String; begin inherited; DBLookupComboBox_CorpNo.Enabled:=False; DBEdit_CusNo.Enabled:=False; DBEdit_OrdDay.Enabled:=False; showmessage(DataSet.fieldByName('ProdNo').AsString+'--'+DataSet.FieldByName('PackNo').AsString+'--'+DataSet.FieldByName('SeqSub').AsString); if Query_SordM.State in [dsInsert,dsEdit] then begin xSeq:=DataSet.FieldByName('Seq').AsString; xSeqSub:=DataSet.FieldByName('SeqSub').AsString; xProdNo:=DataSet.FieldByName('ProdNo').AsString; xPackNo:=DataSet.FieldByName('PackNo').AsString; xPackQty:=DataSet.FieldBYname('PackQty').AsString; xOrdQty:=DataSet.FieldByname('OrdQty').AsString; if Query_SOrdD.Active then begin Query_SOrdD.Close; end; if xSeqSub = '01' then begin DM1.SQL_Command:='Delete from SOrdD where CorpNo='+QuotedStr(Query_SOrdM.FieldByName('CorpNo').AsString)+ ' and SoNo ='+QuotedStr(Query_SOrdM.FieldByName('SoNo').AsString)+ ' and Seq='+QuotedStr(xSeq)+' and SeqSub>''01'''; DM1.ADOCommand_UpdateSQL.CommandText:=DM1.SQL_Command; try DM1.ADOCommand_UpdateSQL.Execute; except raise Exception.Create('*RdgQ΀bOB1YWe'); end; DM1.SQL_Command:='select ProdNo2,ProdNo3 from Pack where PackNo='+QuotedStr(xPackNo)+' and ProdNo1='+QuotedStr(xProdNo); DM1._Query_table(DM1.Qtmp,DM1.SQL_Command); if DM1.Qtmp.Eof THEN SHOWMESSAGE('NOTFOUND') else showmessage('found'); if Trim(DM1.Qtmp.FieldByName('ProdNo2').AsString)<>'' then begin DM1.SQL_Command:='Insert into SOrdD Values ('+QuotedStr(Query_SOrdM.FieldByName('CorpNo').AsString)+','+QuotedStr(Query_SOrdM.FieldByName('SoNo').AsString)+','+ QuotedStr(xSeq)+',''02'','+QuotedStr(DM1.Qtmp.FieldByName('ProdNo2').AsString)+','+ QuotedStr(xPackNo)+','' '','' '','' '','+xOrdQty+',0,0,0,'+ xPackQty+','+DateToStr(now)+','+QuotedStr(DM1.NowUser)+','+QuotedStr(DM1.NowCorpNo)+')' ; DM1.ADOCommand_UpdateSQL.CommandText:=DM1.SQL_Command; try DM1.ADOCommand_UpdateSQL.Execute; except raise Exception.Create('gQ΀eX1YWe'); end; end; if Trim(DM1.Qtmp.FieldByName('ProdNo3').AsString)<>'' then begin DM1.SQL_Command:='Insert into SOrdD Values ('+QuotedStr(Query_SOrdM.FieldByName('CorpNo').AsString)+','+QuotedStr(Query_SOrdM.FieldByName('SoNo').AsString)+','+ QuotedStr(xSeq)+',''03'','+QuotedStr(DM1.Qtmp.FieldByName('ProdNo3').AsString)+','+ QuotedStr(xPackNo)+','' '','' '','' '','+xOrdQty+',0,0,0,'+ xPackQty+','+DateToStr(now)+','+QuotedStr(DM1.NowUser)+','+QuotedStr(DM1.NowCorpNo)+')' ; DM1.ADOCommand_UpdateSQL.CommandText:=DM1.SQL_Command; try DM1.ADOCommand_UpdateSQL.Execute; except Raise Exception.Create('OBeX1YWe'); end; end; end; DM1.SQL_Command:= ' select * from SOrdD Where CorpNo = '+QuotedStr(Query_SOrdM.FieldByName('CorpNo').AsString)+ ' and SoNo='+QuotedStr(Query_SOrdM.FieldByName('SoNo').AsString) +' order by Seq,SeqSub' ; showmessage(DM1.SQL_Command); Query_SOrdD.SQL.Clear; Query_SOrdD.SQL.Add(DM1.SQL_Command); //vuQuery open Bf, g|vAFTERE SCROLL Query_SordD.Open; SHOWMESSAGE('8888822222'); // showmessage(Query_SOrdD.SQL.Text); // Query_SOrdD.Open; end; end; procedure TFSAL210.DBGrid1ColEnter(Sender: TObject); begin inherited; if not DataSource_SOrdD.AutoEdit then Abort; if Query_SOrdM.State in [dsInsert,dsEdit] then begin _Find_Null; Query_SOrdD.Edit; // if (DBGrid1.SelectedIndex=0) or (DBGrid1.SelectedIndex=1) then //**c6Rcursor Ng2eQSeq and SeqSubvkMO, 2bkkey ''01'' '; DM1.ADOCommand_UpdateSQL.CommandText:=DM1.SQL_Command; DM1.ADOCommand_UpdateSQL.Execute; end else begin DM1.SQL_Command:='Select * from SordD where CorpNo='+QuotedStr(DataSet.FieldByName('CorpNo').AsString)+ ' and SoNo='+QuotedStr(DataSet.FieldByName('SoNo').AsString)+ ' and Seq='+QuotedStr(DataSet.FieldByname('Seq').AsString)+ ' and SeqSub =''01'' '; DM1._Query_table(DM1.QtmpO,DM1.SQL_Command); if not DM1.QtmpO.Eof then begin showmessage('01 !kX[(W, N*Rd02,03..!k'); Abort; end; end; end; procedure TFSAL210.Query_SOrdMAfterClose(DataSet: TDataSet); begin inherited; if Query_SOrdD.Active then Query_SordD.Close; end; //**************************************************************** //** vubTN_njepuRBf, $R[bT;Nj/f&TX[(W //**************************************************************** procedure TFSAL210.Query_SOrdDProdNoValidate(Sender: TField); begin inherited; DM1.SQL_Command:='Select PnameD From Prod where ProdNo='+QuotedStr(Query_SOrdD.FieldByName('ProdNo').AsString); DM1._Query_table(DM1.Qtmp,DM1.SQL_Command); if DM1.Qtmp.IsEmpty then begin showmessage('~b N0RdkbTN_'); DBGrid1.Columns[DBGrid1.Columns.Grid.SelectedIndex].Field.AsString:='000000000000TEST'; DBGrid1.Columns[DBGrid1.Columns.Grid.selectedIndex].Field.FocusControl; abort; end; end; //**************************************************************** //** vu[6bT TkMO gpuRBf, $R[[6bT_nje;Nj/f&TX[(W //**************************************************************** procedure TFSAL210.Query_SOrdDCusPNo1Validate(Sender: TField); var xSQLScript:string; begin inherited; if TField(Sender).AsString ='' then exit; if TField(Sender).FieldName='CusPNo1' then xSQLScript:= ' and CusPNo1='+QuotedStr(Query_SOrdD.FieldByName('CusPNo1').AsString); if TField(Sender).FieldName='CusPNo2' then xSQLScript:= ' and CusPNo1='+QuotedStr(Query_SOrdD.FieldByName('CusPNo1').AsString)+ ' and CusPNo2='+QuotedStr(Query_SOrdD.FieldByName('CusPNo2').AsString); if TField(Sender).FieldName='CusPNo3' then xSQLScript:= ' and CusPNo1='+QuotedStr(Query_SOrdD.FieldByName('CusPNo1').AsString)+ ' and CusPNo2='+QuotedStr(Query_SOrdD.FieldByName('CusPNo2').AsString)+ ' and CusPNo3='+QuotedStr(Query_SOrdD.FieldByName('CusPNo3').AsString); DM1.SQL_Command:='select CorpNo from CusProd where CorpNo='+QuotedStr(Query_SOrdM.FieldByName('CorpNo').AsString)+ ' and CusNo='+QuotedStr(Query_SOrdM.FieldByName('CusNo').AsString)+ ' and ProdNo='+QuotedStr(Query_SOrdD.FieldByName('ProdNo').AsString)+ xSQLScript; DM1._Query_table(DM1.Qtmp,DM1.SQL_Command); if DM1.Qtmp.Eof then begin Showmessage('~b N0Rdk[6bv[6bT_, ˊ[6bT_j}w'); TField(Sender).AsString:=''; DBGrid1.Columns[DBGrid1.Columns.Grid.SelectedIndex].Field.FocusControl; Abort; end; end; procedure TFSAL210.Query_SOrdMAfterPost(DataSet: TDataSet); begin inherited; BitBtnApply.Enabled:=False; DBLookupComboBox_CorpNo.Enabled:=True; DBEDit_CusNo.Enabled:=True; DBEDit_OrdDay.Enabled:=True; if Query_SOrdD.State in [dsInsert,dsEdit] then begin DataSource_SOrdD.AutoEdit:=False; end; end; procedure TFSAL210.Query_SOrdDPostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); begin inherited; showmessage('post--'+E.Message); _DBNavigatorVis(DBNavigator2,'all'); end; x  4V h !!j""z&&&&'&'**. ...4 4::::::;<2@B@F@N@AAAADDDDJG`GIIfKvKLL&O.ORRvSSV VWW>YHYnZ~ZZZ^ ^P`j`n``ggggXldlo( jUb+];mF`!LxI& WD`,& ^  R ( b  P 1 k Vv#n`<<m2N`rJV]b&*6Pln<Lp|0 p !!!"6"P"^""#$]$$$%x%%%&T&&&&'(''V((())*++U,,,,,.8..000D112223034:4X44!66T78888*9?9:6:T:l:::;;;;;<< ==>P>>??? @X@r@@@@@@AA%BcBwBBBBBBB DlDD:EFF6FnF|F~FFFF GbGG`HlHHHHIJJ6K~KKKKKLNN0OOPPQ?QR^RRRRRR`SS TITaTmTsTTTTTTT%U VtVVV>WWX>XLXXJYYYYY`ZZ[[[[[\4\k\\\\\\]^v^x^^^ _2_Z____<``aabbb=b\b|b cCctcccddRdddddddtee>fffTXtޢ +,B*CJ(aJ(o(phB*CJ(aJ(ph B*pho(XDuFuTu^u`uuuuBv\vvv w"wxZxhxjxtxx(yyyz*zDzzzz{{{*|^|||}J}}}} ~z~~~6@+hn{RSX$$".HdD^lv؅3rx*6P\44܊TZ`m6(̏rzߒߒ_>Vx$0J–HCIVȘԚp*vzΝIҞ.oˠAxxZ TZg̤#KVW\]ǥͥڥ$)**+,01h2P. A!"#$%S /Ddt"D0  # Ab8/gPߵT3iћrJ/Dn /gPߵT3iћrJPNG  IHDRL|xsRGB.IDATx^} Eous[r'`$ADa $0$55#( ?GA'󔧎dEw8 x 2@ْ@ l77﫮s~Or_7}--lY i$a75t%_+\ffT/N#"nLVrLfMI K,VXA;e~V[K{nZԚY+if- _Zs%QfEoP0r<^Gx8N1oP'ɽc/%IΚ<+VH9 M_\}BN:)P,9B B 0 (`lV.0ww P+Eݬi=[Żt>-~udd ѫJZvYd*ǻoIۃ# O?s)Kr!@@!M/IıA{V"'= |RT̗%m%@8I-3vfC$ך`{ CcIJ@x@uŸ^܂U@=g*e)!@!B<߇\Džo9 >>K'le lؓlfu y 'p@a荇J!@'i/e,js=%gesgݏt` ?lZK{䤸a =ǵ<<҂{!@F䤜wDwoY߽Vww;e3^!s|cB/Of.S M6ƻXYy`~bM\ gۄfCA%.!  B IrL0>_!1}H}Nn/e篿v+(ޜpYgNr3bW۬,* V+Ҭ?TZd8+p&E#B A+3 첚VSl))+ SГlE۲̆u X*N?{Zwnxk|_Xw$aU NOB}J! Mg5͐y8q{eL z^ [zv;;n нe iHss;P 5MlgmM 5zMpꤘ<5 ޕ34PI B "qD:ןl{x/wҼ>|آW97 Y󿮻z}›;Xuīl`۽Ƕb`4he-LjgrS23歜\ ف2De"u XJ$nM&  YU3!R`m67*|i0 Y>s әֹfHKqL8hYlf}.)5hGYU!\$-W橻p&'HT "0(uXUѨN :/uaI,ko}DŧaqhaeG8ɗ'?%x<9>qf+S3DX8Cs!H SVR`P2QBBЩn259`֫P̹r{?769` OrdÕ{OglRkCl7~1@? p%~{p 9+w rN)|G_>A| tz(q,1 [RJFOB "&|aocޅR35{+ϾA,3(lNٛ]}guZ^Y[{ yv}9!"%EKmgMZd_w>n=)PBpS9.9<-n||-0B.(H N,ĵ:F Q ;#q?fK'688t6$ߐk͟_*ڼQɶڰ@+S)=ߙ੉#+-yL.9I'%Y_cxgJ3x-)0iQX>/.`(%d e q䒹 JKkefk^R|7U81)cx&;8زw~/`qD*XbJ Hf2 a%S%#( hl2( K{cf=3j2!$`v̿8lW|$G@O$=Y?zHE[/;F |/8+Y-{r06 i_z+=h- l+iL Q9&%?Zү=eD&=^#EA)C#1-,x+V$n%u%E g3a.B@ {E S?+I*xάˏZ';نLv< RZl7V&^tܻ7uؒ O9ᮞXϻ{*Kr1p"~FtL/(W"cBX zb()/Warm;{g֝gpHmK7 8Dlsp\Qz㡒@x[[? vF-=9tŽBws޶Ԇ$+sr0 @:h*!ޓF 4!@@l3w9g\޽(V8f89O9 8ulXv :u᧛ u3sxb=!&99 L^H&Rx#lKh:ᆎ>q9cOK9:i{<璣 _Ew~V>`r~.">I4 1܈sO(yyXu#DrT$a8GhVJ$y@' ~C="j`?74 psr$'1ֳmR$qb AOҞf9rqd>!@`DrT G$XT$`@QxˇvX|8|+aؒ'8&#bʡ?,w^P&nBxeCLf|L/x=޻eK$!@G`6٤M>mJ BDrR!B9B Br+ Iqd !@BH!@@"`{!@!ЈPOsl"B @!а4\ٰK!0~-d9!@ \g1HEJU9~uu򿟵ےhB8sf8 q:7^!3>ڱmGBEPjDFQXmPR)OKACoQ(H!^ sIJ[ҨID 0$4QKևOZ4/r cG~G箣 gF23WK]i4~fbSVv]:༶66q"P9sw[ϼkg SLB 7%Ӭg'2 5y W.dD{,6<9KRLK%A-FU?Xq/9KtQ|K"VR*)5Bg z+un8$?y̙``;vMغulzl.684q.XҊ nze!.^K .$<bqzM(UBh c4\Q H^]Z(bQAn,B8iqsM)rŠ0:  ?n.!@oٍ/Dm=gqo 3. Bi^Vm21+(@'-]g&yEe C3W:cLń'0m0ʼn7 /믳f[qKj`t6lx7NoLgb7] GQ*3En=QbxκF|d0%]45 Y+ (vH *FQJS^2ׂ\ Q^6D!TaWhHȂ>MYa|um=.%YA&:LlXgl&rH£?ABQnZ<^~ǿi1lۖz{5Nl?'W՜6l`~.Oz^_*u`_+(Ξp9PU™W2Aqe%k1!>R HḶOY y뭹Q$W[-U`6 H=WiU+4UFC yz*5/anaCU[bLHQODDWlT+\J<RZQUXݪX,Gd%UM=¬[ooaSﶷ^z *7uvvu l[oo6aIo{I$|}^}\LM1wKV2@pL)* _,Эm G!ȺXuu@ƒ!P~c A> hDž28"'D, NUQҒ+HRpjHR%z:XN c@)0V]0HJŒbW?̶w{twϟ𪫎ʻ,ٹswW6[(\v``}_߷.<3i{.^O T+{Œ"nUIZxbqrmETt]ry W 'S=7m4iziO5$! ȩX[#Q7I_bbd$TL^/<1*FT[G=9ELT%/"je5fb%g7 N#luzS?|7n11X[V~rϽWϺ#kgSSe]w k'OꈨR1p5WK6 j.qVQJ}0beF4z*%>jU(Y\"#돛<]L޸}2 )eɘnRҢ1c"3.WF+ˌDt 9JTb8nXkVQIovDx$d16JQs%-0>]XNjl!4伍O=B[ۤdɲ`꣎~ >aP`{/3 KO<@ϲz]7y6qF`qa*;!Xv2>%3BZg^¼SՈP+q7HLQAH9y5()Sbä GDpȌPt 3dCQ&eoOJ$m5HRɭ[7.YyΚε7|7|Y Hv-[6N[[ֶ` cDW"JTs$(@yt\!9~ l۸*dl$v"]sյ? bY-1ɾLOϖK_r)?z׮oǶgsΑN?}Ch_rv_*x?3qw) Lid/_#am(:gH12 Aʑ(*a/bn锌.ndmOQS2G'6gJ'-(4RɲE Vy*IFAm1M@n3,%v 8qyq'$s= i=ӛA X x2~t.)ZPt˔?%E<5v06Zo`cApΦAMn5fL-՘#ɠIo:)0ℌ QM1 7fS9L%C~ ^SDz1pMbc=u%:7YAIǭQ6#TIvIOcr=%uQ=)MR`p1EYFn("2>9 ÉFIf~%/?n|]?\Stڊ lwS6Vp21E[a\ѓXXH.uRoKȆ p+D2 ,>rd)BfHIHOH+HY|ĚG,+n~هʈiEQ!buTz蕴tQc[̊\x=|XDo lsEuҪ.\O$,\qnX{" 0 ܜ nQ)zDlJ!+j(h_pԴ(ss;Dɚ묫$NP Ao6lXʠXe>$N&*ӪXUcՉ^66S#=hQ%a| P&]|W^yޱ3Z^<59;wnnH֤d, zr{̙ӧN+JHYB8VFOQH[ R =(P ?$+d/sȽ%8%z: 5S!ˆs-䒹1jS("%8ѳB+8U`EB[1hxO}Y鏭xǜҳn}Ү mo}k3< ȡƗ-)9Xuv{s D7l͛n77 (~uWO>5 )Y<"d#SU!%υ A*ciJH t(Ipd>b4•4*c+b,{ @DiT{L7J!%(G1*Hm7AXU\5 Rj%t0>UJ+D3Qyo{T= ^kI;?ɂ+uq>v1QʿګQ{6"t`xe=5c_.0F!UT6LAK)ALKLcm&Ii4*?5=# qKj(E!&#|MiU1A?۷BV*c"piKԙ:“䠻zl{~qgY0 816yO>(vA,-ya]Cn' $识!}k~ Zk(ƹ||WOpy3/]q9X0y'?jm]{}pmbt s0vE|<Ϡ{?/: œ.OWNӞ!G ^&3>uG>r !@!PubyB/;Sq0Ʒk"& .LXֳG?zs' "B ٓY0v-7 ^~v{g8$P`8|@o۲߷QwiKx{)# B Or@"aǯՏڂLKN`OuY-분ݵN] {:8$ B룩A7ncO8/2i0};?>cYp[:u^0v̢GJ B (Օ!9{sܷYk֯w`-;ݜg_ k+Fɍ/z kF_4!$ 4^'/[ǖEhNnle\k ~#]ad!!0J|pHn8WKLэ<|B`4 @$7rtp_ɗR#T+ES4i^)[AT FEHQsv ۥѨA2^Dk!0 zVbUJE6_^.UNd2]\xUZ*B`"@=qz6jpɅdqRi@U\eQ Pfv  lUÛ>A!UwK$Gc!P\MYO>7겙"\]`D P>PxVkd8Ba 1μFU} Ì5*ZQ=[sH!P X[ɗWIN)y55Dͱ0qI |_EkEIł, cXJB1fq\17'NڧkZoBR6$U2Ï \QEҊJj(zp%e1cBaW]`g94:ϮV*:rLTVr)iCN>#~ 1IN'Glz((j(4,IQߵka05Š\P1*-]Drœ'OzNNo*g2(uF@vƄ˪\]FsU&9[QPH“$u?}4uqR I4Frn \>z\D뙄>&q? ?뮽R@tVm\UՕA=IgOIRx4V(êzqTBس=9BPՕrA/5 2Xa*e,lJ.QmYaZQ 0!@#P}r+DB  =9+ĒOr~UQtB Գl*6i& N!0$Wcҟ BHF-!@0Ooԓ倬'B k%Bɍ' BhTh% W6j]!@DrTB zyfkə-%Mnm6B!@@~_;,6~j1aʁfjL0/G].vɱ Yr+F2ldG70:h*jZ,"#+`" X&F %scnMy#S@B B` %*2IENDB` i@@@ gQe1$$CJKHPJ_HaJmH nHsH tHA@ -k=W[Wi i00dl,l|& <$0;BKT\dkDu{$4ߒx*,mopqrstuvwxyz{}~,n!(SZ (18IZcj{ 129;CT^n/9BI[fgu  &6?FWs|#4IJQS[l &=>EGO`xy%6MNUW_p ,=FM^st{}  ( . b h y   / 0 7 9 A F T \ _ h s   1 G H O Q Y ^ l t w  4 < A D F L N Z b c r   N Y Z e f h q r #%(+3>QSY\do!)SWeix .069APgior{ $;HQ7>@H`u'(?AEHP^hn~  &<CGKTUlnru} #.09:FRiu}$),56MOTW_ENOfrz5@BMOX!$-.EGMPX,9choux 036?@WY\_gou#35:<> .047?fop   & ) 1 > C I ` b h k s !!!!"!H!_!a!h!k!!!!!!}""""""-#2#=#F#G#^#`#f#i#q#w###############$8$@$g$p$q$$$$$$$$$$$$iiii /8aj?HqzJSdm%.PY|%MV*3bk%V_,5fo"+T] 5 > o x   \ _ z ' 0 t w  N Z c | ~ggggggggggg%h*h-h6hMhOhwhyhhhhhhhiii!i(i+i.i7iiiiiiiiiiii3333333333333333333333333333333333333333333333333333333333333333333333333333333333333::~ggg%h-hiiidoris,C:\Documents and Settings\doris\Lhb\/ o`Fh.doc@ii@ii4 ,,55"#&(*+,-./012Y4Y56789:;<@AEFHIJKMNPQSTUVWXYZ[]^_`abfgiP@PPP(@PPP8@PP P"PH@P&PP@P*PX@P.P`@P4Pl@P:P|@P@P@PDPFPHPJPLPNP@PRP@PVPXPZP@P^P`P@PfP@PlP@PpPrPtPvPzP@P~P@PPP @PPP@PPP$@PPP0@PPP<@PPH@UnknownGz Times New Roman5Symbol3& z ArialC.e0}fԚPMingLiU 1h TdW,!?!),.:;?]}    " % & ' 2 t%00 0 0 00000013468:<>@BDOPQRTUVWZ\^ \]d([{  5 0 0 00000579;=?ACY[][dRk2 dorisdorisOh+'0d   , 8DLT\ ssdorisforioriNormaldoris2riMicrosoft Word 9.0@Ik@;@TdW՜.+,0 hp  Your Company NameN,Rk  D  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry FH Data /1TableWordDocument2 SummaryInformation(DocumentSummaryInformation8CompObjfObjectPoolH H   FMicrosoft Word MSWordDocWord.Document.89q