ئhGZveC

fTStringsRg+g .TStringList<*cdBdeZkfDBINAMEqg DbiGetProp%hfhDBIObj]hzg drvDRIVERTYPE89!g DbiCopyTablecdDBTablesZkfTTable#fTQuery-g.TQueryg TQuery.CreategTDBDataSet.SetDatabaseName !~gTQuery.SetQuerygTQuery.ExecSQLgCheck,gTDBDataSet.GetDBHandle!~cdDbZkg TDataSet.Open4gTDataSet.FieldByName4gTDataSet.Close4gTDataSet.GetFieldValue4gTDataSet.GetActive4gTDataSet.GetFieldNames4gTDataSet.First4gTDataSet.GetFieldCount4gTFields.GetFieldHXh g TDataSet.Next4cdSysUtilsZkgDateN gExtractFilePath~ gExtractFileDir~ gTrim~ g UpperCase~ gIntToStrJ 7gNowN gStrToIntg LowerCase~ g StringReplaceV0ٖf.93g rfReplaceAll5g CurrToStrFNf TFloatFormat5XgffFixedAg ChangeFileExtwWgExtractFileName~ g CurrToStr`bcdSysInitZkcdSystemZkfString8f AnsiString8fLongint|ofBooleanNcfCurrency,eifInteger|ofTextFileFMg TObject.Free݋RgLengthg@LStrLen?gParamStrg AssignFileg@Assignf gRewriteg @RewritText+UgWritelng@Write0LStringX,Tdg@WriteLnX,Tdg CloseFileg@CloseX,Tdg@LStrClrg @LStrCatNX,Tdg@LStrAsgX,Tdg@_IOTestX,Tdg@HandleFinallyX,Tdg @LStrArrayClrX,Tdg VarIsNullcg @VarToRealX,Tdg@VarClrX,TdgFalse1ogCopyg @LStrCopyX,TdgPosg@LStrPosX,TdgTrue1ogBreakg@LStrCmpX,Tdg@LStrCatX,Tdg @LStrCat3X,TdgTObject.Create݋Rg @LStrLAsgX,Tdg @VarFromIntX,Tdg@VarCmpX,TdfVariantJh7g@FinalizeArrayX,TdgTruncg@TRUNCX,Tdg@HandleAnyExceptionX,Tdg @DoneExceptX,TdgRoundg@ROUNDX,Tdg SetLengthg@LStrSetLengthX,TdfWordvOklg UniqueStringgSizeOffPCharjf PAnsiCharjg @LStrAddRefX,Tdg @LStrToPCharX,TdfRealBYrPgIncceComCtrlsZkgTProgressBar.SetPositionceControlsZkgTControl.SetTextc_gTControl.Refresh_gTControl.SetVisiblee_ceFormsZkgTCustomForm.Createj-gTCustomForm.Showj-gTCustomForm.Closej-ceProgress f TProgressForm%g.TProgressForm<g TProgressForm.ProcessWinMessagesce MyMessage f TMessagesFormcO<*g.TMessagesForm8ceMain gMainForm.|gTMainForm.SetGSTRateagTMainForm.SetBillingPeriodBatch agTMainForm.SetTotalIncGST$agTMainForm.SetTotalGST%ace DateFunctions gStandardDateString_tgStandardDateTimeString_tgFormattedDateString_tceDataMod gDMM^gTDM.DecodeString53#ceConstantValues gINIFILEDIRECTORYf<c .1f:(SaveText !curValue"&#Result c(curSumPh&! curValue1&& ! curValue2&& Resultf&c( curFormat:j&!curValue&& Resultf&c(LeftyQ !S !N(#Result ansf iOk(c(RightyQ !Sb !N(#Resultf ansf i. iOk( iStartf(c(QuickCopyTable(E=0]3EU<E~ Eu3t EU3ɲFdTFlFTFXFht U+3FPƋR<؍UUEt+EtEUtU< 3ɲEE3ҋQ`E3EEU썅 3Uhd0d EU؋EE؋RN|QF3uhӋE؋8W hEܺE؋RH;} EܺCNuU܍ EEEEN|YF3uhE@$QXhEܺEH;} EܺCNuU܍ EEMЋEEE23ZYYdh E3ZYYdhEܺE_^[]No entries found in table B UserDirectory,Save the selected table values in CSV formatAll Files (*.*)|*.*csvPARMTEXTSaving account data to file ...",U3QQQQQSVW3Uhjd0d U غQ4Q4EMUQ4RTR@Q4Q4@Q4Q4Q4EM$UQ4LQ4EMUQ4Q4R@Q4 Q4EMUQ4R@8Q4XQ4lQ4UMEUQ4Q4 Q4t ELUQXEEPEEPEPEUEYR@dQ4|Q4Q4Q4EMUQ4 Q4X Q4 Q4  Q4 Q4h uh, EUQ48 Q4[D UQXE~4hT uh, EM8W t3ZYYdhqE_^[]dbPPdataSELECT COUNT(*) AS nTotalFROM tFaultDetailsWHERE BatchID = nTotalUPDATE tTransactionSET Var02 = FDetails.Var02kFROM (SELECT LTRIM(CAST(tFaultDetails.Availability AS varchar(12))) AS Var02, tServiceID.ID AS ServiceID_ID FROM tFaultDetailsK LEFT JOIN tServiceID ON tFaultDetails.ServiceID LIKE tServiceID.ServiceID WHERE tFaultDetails.BatchID = D AND LTRIM(RTRIM(tFaultDetails.ServiceID)) NOT LIKE '') AS FDetailsWHERE tTransaction.BatchID = 2AND tTransaction.ServiceID = FDetails.ServiceID_IDUPDATE tFaultDetailsSET PPTaken = 1SELECT BillingPeriod FROM tBatch;INNER JOIN tBatchType ON tBatch.BatchTypeID = tBatchType.IDWHERE tBatch.ID = 4AND ((tBatchType.Description LIKE 'VicTrack Purch%')6 OR (tBatchType.Description LIKE 'VicTrack Instal%')) BillingPeriod SELECT Var01FROM tDataCollection7LEFT JOIN tBatch on tDataCollection.BatchID = tBatch.ID:LEFT JOIN tBatchType ON tBatch.BatchTypeID = tBatchType.ID.AND ((tBatchType.Description LIKE '%Purchas%'). OR (tBatchType.Description LIKE '%Instal%'))AND Var01 IS NOT NULLdbQuoteUPDATE Quote_ItemsSET Quote_Items.PPTaken = 1#WHERE Quote_Items.BillPeriod LIKE ''ANDVar01!AND Quote_Items.CallNumber LIKE 'U3Uh%d0d 3ZYYdh,]Ã-mYLJ LN  Z"\^, p$    p$  "r ,t$"       ȱqJ LN  $Z4``qu^ -*$v2  &( B6*vD ",4 B 6 *vD  ",4  J),)Jv,x) ", () $) $) 2v ) (() $) )&) B) ȺA@A F6 A &A FA@  A &A FA@  A "qJ LANPRAAA A  i4i*6 qJ LiN iizi&PZ*i`i$zi i"zi "^PRiiizizi |iqzi"^PR^ qyi &6**  4.~4 0 "zvzv  zv    X( v  6 J LN &PZ2 \z^   |0 *R^ ȩ" v  J LN   |& *R^ YDi E5I9x6 $ *z $   0.J LNPR^M$ )F)i E") 5I9*6 6 ))z) ):)  ) )()) $)&) b)  ) )()) $)&) n) .J L)N ))P)R ))PZj)\ )\ )\&^M*)  q>q.i E"q 5I9$6 qq"zq >q8q  q q(qq "q$q lq  q q(qq "q$q lq ,J LqNPR^Mq &  6  0 ( 0&  $ .   4" v0        Ȅ,    2 2   2$  40 H 9(9bZ6< T  V B T29 U(U BU 4U, v6U 0U, 6U 4U, 6U 0U, 6U 0U, 6U U 6U U,U( U i i i i   i i"i i"xi .i ȑ0 zJ LN    , *ZR\\ ^  &&, 2q}qR$ A$  4~&  4~& ~z J2 zzJ LN   , &$Z \^  , *Z \   \( \   \(^      &&&&     , &    & $R$ .qJ LN    *Z \&x^&  *    0  0$   *  & *R ȕ$qJ LN    *Z \^ .Z\$^ ȑ^6 L  " 2    "r ,t "Y EF= 5I" d46* $  fq]h$j,h $   -l: M   %=&= z qJ L=N = =,= *Z =\(^ = = = = =,= &=,= &=$R = =,= *R = = =*z= &= =$Z"=\^>4 = = = =,= &= = =$Z qJ L=N = = ==&=$=\ ==4Rl = 5YYY ] ] `    &(<x hV  H 0,  ZT H>&""N6JH(N6JH(N>@> @>F$<@6 lT"6J*8J*8,H ,\RJH :X(B   & *****(6zL<*X HNFF x:R6*F  xLR AX  4J80"4b "N*Z"&^X \:6 X \:6R"$2. $2 000n R"&H X \84,X \84N n:DTzX$:~X(6 >8NN4X x (   `80N H,XPL@fR <NJNJJh$hX4j",PqD     <$** ll <$$b)8F2 F2 V>F    < (  <@t@t     PPPP      <    P  b B,  L>  L8rr 8`RLR }8,  L(@8R*yr Z < V:$"  & $`0 $p06.:  :,  <2     < <   <   P  &("x    <   ,  P$(ZRq ):IzY<"EUXEIQqpR` YYU @ \p> Bj p Nx  I QY i   p%Nx! %!I%Q!Y !i%)(p1@5Y555A1E A8pETEhYIYYYQ)QixpmH}L mLytu}yue` 0::@pBFJZpv ip< <f)}!`06aH pX x %U%%E }%)`pR-Ze-%aaEea aU U1 UMUqH0}RuR}buE }  0::NlYy)0::Nl!1`066J@ 4  p 88 8 L| | ` p!H1t!t19`P02=LM^=MU(0Y<]<YPede e e ] i@(0qq`8DXxyp88 LPn)eeP0FFZn-pBB ni  p88 dpR r    )e ) ) )1 =(pA:EzA}I I!EY ] a