ئhG6 veC dSysUtilsZkgIntToStrJ 7cdDBTablesZkfTQuery-g.TQueryg TQuery.CreategTDBDataSet.SetDatabaseName !~gTQuery.SetQuerygTQuery.ExecSQLcdClassesZkf TStringList-SB>g .TStringList<*cdSysInitZkcdSystemZkfInteger|of AnsiString8fString8gTObject.Create݋Rg TObject.Free݋Rg @LStrCat3X,Tdg @LStrArrayClrX,Tdg@HandleFinallyX,TdceMain gMainForm.|ceDataMod c .1f (UpdateCurrentRentCalls !nBatch qCurrentVals slQry sBatchfc( FinalizationX,Td\! c(CurrentRentCalls!cD @l!UjjSVW3Uh5d0d L؍U`ËQ4|ËQ4EMUËQ4ËQ4ӋËR@ËQ4ËQ4\ËQ4ËQ4ËQ4ËQ4EMUËQ40ËQ4ӋËR@ËQ4\ËQ4ËQ4ËQ4 ËQ4ËQ4ËQ4ËQ4XËQ4ËQ4EMUËQ4ËQ4DËQ4ËQ4ËQ4ËQ4Ӌ3ZYYdh<E_^[YY]dbPPdataUPDATE tTransaction SET tTransaction.AmountExGST = 0WHERE tTransaction.BatchID = $AND tTransaction.AmountExGST IS NULLUPDATE tServiceID5SET tServiceID.PreviousRent = tServiceID.CurrentRent,3 tServiceID.PreviousCalls = tServiceID.CurrentCallsWHERE tServiceID.ID IN( (SELECT DISTINCT tTransaction.ServiceID FROM tTransaction WHERE tTransaction.BatchID = # AND tTransaction.RevenueFlag <> 1)(SET tServiceID.CurrentRent = TT.RentAmt,% tServiceID.CurrentCalls = TT.CallAmt@FROM (SELECT tTransaction.ServiceID, tTransaction.ServiceTypeID,i Sum(CASE tTransactionGroup.Description WHEN 'RENT' THEN tTransaction.AmountExGST ELSE 0 END) AS RentAmt,h Sum(CASE tTransactionGroup.Description WHEN 'CALL' THEN tTransaction.AmountExGST ELSE 0 END) AS CallAmtFROM ((tTransaction?LEFT JOIN tServiceID ON tTransaction.ServiceID = tServiceID.ID)SLEFT JOIN tTransactionType ON tTransaction.TransactionTypeID = tTransactionType.ID)YLEFT JOIN tTransactionGroup ON tTransactionType.TransactionGroupID = tTransactionGroup.ID!AND tTransaction.RevenueFlag <> 19AND tServiceID.ServiceTypeID = tTransaction.ServiceTypeIDBGROUP BY tTransaction.ServiceID, tTransaction.ServiceTypeID) AS TT"WHERE tServiceID.ID = TT.ServiceID/AND tServiceID.ServiceTypeID = TT.ServiceTypeIDU3Uh%d0d 3ZYYdh,]Ã-mx6 60  6 $ 66$6 (6 666666$6 (6 6666666666$6 (66666 &&6* ,@@4@ ,B4 B\.4,444R<: <L<h,6p84 :`<8:M<@ B a