ئhGbִ.Q

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`bg StrToFloatmcdSysInitZkcdSystemZkfString8f 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 gDMigTDM.DecodeString*ceConstantValues gINIFILEDIRECTORY*%;g'PAUTOMATIC_MARVAL_QUOTE_INSTALL_ANYTIME5ۡg(PAUTOMATIC_MARVAL_QUOTE_PURCHASE_ANYTIME6ۡgPAUTOMATIC_QUOTE_INSTALL1ۡgPAUTOMATIC_QUOTE_PURCHASE2ۡg PAUTOMATIC_QUOTE_INSTALL_ANYTIME3ۡg!PAUTOMATIC_QUOTE_PURCHASE_ANYTIME4ۡ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 ...",UjjIuSVW3Uhd0d U غQ4Q4EMU苃Q4$RTR@4Q4PQ4tQ4Q4Q4EMXU苃Q4Q4EMU苃Q4Q4R@4Q4TQ4EMU苃Q4R@lQ4Q4Q4EM U苃Q4h U uhD U uhD UܸuhD UظuhD UԸuhD Uи uhP E U苃Q4tE3E\ 1h UQX RTUEPHEPEEPEPEUEYEUR@ Q4 Q4 Q4H Q4 Q4EM U苃Q4EM U苃Q4 Q4  t uL ` p Q4 Q4h uh EU苆Q4 Q4 Q4 UQXE~kh uh EM8W 0 UQXMEH M8W a3ZYYdhEк _^[]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 = 11SELECT tBatch.BillingPeriod, tBatchType.ProgramID FROM tBatch;INNER JOIN tBatchType ON tBatch.BatchTypeID = tBatchType.IDWHERE tBatch.ID = AND tBatchType.ProgramID IN (, )0 BillingPeriod ProgramID6SELECT tDataCollection.Var01, tServiceID.ServiceTypeIDFROM tDataCollectionKLEFT JOIN tServiceID ON tDataCollection.ServiceID LIKE tServiceID.ServiceID7LEFT JOIN tBatch on tDataCollection.BatchID = tBatch.ID:LEFT JOIN tBatchType ON tBatch.BatchTypeID = tBatchType.ID WHERE tDataCollection.BatchID = AND tBatchType.ProgramID = %AND tDataCollection.Var01 IS NOT NULLdbMQuotedbQuoteUPDATE Quote_ItemsSET Quote_Items.PPTaken = 1#WHERE Quote_Items.BillPeriod LIKE ''ANDVar01!AND Quote_Items.CallNumber LIKE ' ServiceTypeID AND Quote_Items.ServiceTypeID = UjjjSVW3Uhqd0d EEEPEPMUE3ZYYdhxE_^[]U3Uh%d0d 3ZYYdh,]Ã-mLJ LN  Z"\^, p$    p$  "r ,t$"       ʱuJ LN  $Z4``uy^ -*$v2  &( B 6 *vD  ",4  B)*)$vD) <) JE*E$vDE <E Ja,aJv,xa ", (Qa $a $a 2v a ((Qa $a a&a Ba ʺy@y F6 y &y Fy@  y &y Fy@  y "uJ LyNPRyyy y  4*6 uJ LN z&PZ*`$z "z "^PRzz |uz"^PR^ u} &6**  4.~4 0 "zvzv  zv    X( v  6 J LN &PZ2 \z^   |0 *R^ ʩ" v  J LN   |& *R^ Y!D!m I!9M=x6 !$! *z! $ !!! !!! 0.J L!NPR^Q$! aFam I"a 9M=*6 6 aaza a:a  a a(aa $a&a ba  a a(aa $a&a na .J LaN aaPaR aaPZja\ a\ a\&^Q*a  >.m I" 9M=$6 "z >8   ( "$ l   ( "$ l ,J LNPR^Q &  6  0 ( 0&  $ .   4" v0Q        ʄ,    2 2-- - - -29$9 9 Q4Q0 HQ q(qbZ6< T! ! V B T2q ( B 4, v6 0, 6 4, 6 0, 6 0, 6  6 ,(         " "x . a0 zJ LN    , *ZR\\ ^  &&, 2uuR$ A(  4~&   ~z R2 zzJ LN   , &$Z \^  , *Z \   \( \   \(^      &&&&     , &    & $R$  . uJ L N        *Z  \&x^&     *          0      0 $        *    &   *R  ʕ%$%uJ L%N % % % %*Z %\^% .Z\$^% ʑ9^96 L9 9 9"9 %2 9 9 9 "r 9,t99  "] IFA9 9M9" d4969*9 $  fuah$9j,9h9 $   1l:9 Q 9  %u0u z uJ LuN u u,u *Z u\(^ u u u u u,u &u,u &u$R u u,u *R u u u,u &uzuzuzuzuzuzu*Z"u u\u\"z^N4 u u u u u,u 2u &u$Z uJ L.uNuN u u uu&u u*u\ uu0u\&u 4Rl(u =,  & ,   `    &(<x hV  H 0,  ZT H>&""N6JH(N6>HN>>HN>@> @>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",PAD     <$** ll <$$b)<F2 :VFF    < (  <@t@t     PPPP      <    P  b B,  L>  L8rr 8`RLR }8,  L(@8R*yr Z < V:$"  & $`0 $p06.:  D,  <2     < <   <    <y(&2x     < < ,   P *(ZnR%@ t|]Q:z<1q"} } ,}u(} &qpR` YYU @ \p> Bj     p%Nx! %!I%Q!Y !i%)p->AB-V9f=9=AA==AUEpI>]BIVUfYUY]]YY]Ua(pi@mYmmmAiE y8p}T}hI)xpHL Lte` 0::@pBFJZpv ip< <f  ) } !`06a!H p-XAx ]-IU]]IEA}]a`pReZe%E  1 MH0RRbE }  0::NlYy)0::Nl!1`06 6J @ 4 - 9pA8=8E8 =LM|A|MEQ` pYHitYtiq`P02uL^u(0<<Pd    @(0`8DXxyp<< PTr!1m}P0FFZn- pBB ni  %p-8)8 1d)11-19pRAr IEAIIEIae a a a1 u`pyDyX}I  ! 5}p@@@ Th|  a