ئhG@rveC g .TStringList<*cdSysUtilsZkgIntToStrJ 7g CurrToStr`bg FloatToStrFǜf TFloatFormat5XgffFixedAcdMessagesZkcdSysInitZkcdSystemZkfLongint|ofInteger|ofBooleanNcfRealBYrPf AnsiString8fCurrency,eifString8gFalse1ogIncgDecgRoundg TObject.Free݋Rg @LStrCat3X,Tdg @LStrCatNX,Tdg@LStrCmpX,Tdg@ROUNDX,Tdg@LStrClrg @LStrArrayClrX,Tdg@HandleFinallyX,TdgTObject.Create݋RgStrg@Str2ExtX,Tdg@StrLongX,TdgLengthg@LStrLen?g VarIsNullcgTruncgCopyg @LStrCopyX,Tdg@LStrFromString|g @LStrLAsgX,Tdg @VarToIntX,Tdg@LStrCatX,Tdg@TRUNCX,Tdg@VarClrX,TdceComCtrlsZkgTProgressBar.SetPositionceFormsZkgTCustomForm.Createj-gTCustomForm.Showj-gTCustomForm.Closej-ce MyMessage f TMessagesFormcO<*g.TMessagesForm8ceProgress f TProgressForm%g.TProgressForm<g TProgressForm.ProcessWinMessagesce DateFunctions gFormattedDateString_tceGenFns gAddMissingServiceIDz3>ceDataMod ceMain gMainForm.|ceMathZkc .1fj'PROGRESS_MAX_CFk(SaveTelstraSummaryChargesI ! nBatchNumber nCountf nFactorf nBatchID  sBatchIDf frmProgressf qryDCCountf qryDCUpdate qryDSCountf qryDS qryDCf nEntries nDummyf nSoFar nDCSavedCallsf nDSTotalCallsf nDSCalls nDCCallsf nStep curDCTallyf sServiceIDf sCallCodefc(ApplyTelstraDataRatesC% !nBatchb! LumpedCostsf! IncludedRatef MessageFormf sBatchIDf sServiceTypeIDf sSystemIDf sFromDatef sToDatef curAmountExGSTf curGSTAmountf curExcessAmtExGSTf curTotalGSTAmountf sNewServiceIDf nIncludedUsef sIncludedUsef sTransactionTypeIDf nTransactionTypeID slDC qryDC sVRTIDf nkBytef skBytef nExcessKBytef nGBytefa sGBytefQ nUsagef1 sGSTRatef! sRateCostf sServiceTypef fPartCostf nServiceCountfc( FinalizationX,Td\! c(TelstraFunctions! cD@ldUĬSVW3҉UUUUU3Uh* d2d"؍U E@ EE苀T Q4E苀 Q4EM UE苀Q4E苀 Q4E苀 Q4 E@ EE Q4E Q4EM UEQ4E Q4E Q4ED Q4 E@ EE䋀X Q4E䋀 Q4EM UE䋀Q4E EE싀3E ERT~EE= ] 3EEY@3E3E싀 E싀E싀EEE䋀R@E䋀 Q4E䋀 Q4EM UE䋀Q4E䋀 Q4E䋀 Q4 @ Q4<Q4TQ4 غ@ R@pQ4 Q4EM UQ4D Q4dUQXUQXEhuhEME苀8W huhEME苀8W EE耸t3EERTEԋEhuhEME䋀8W huhEME䋀8W EE䀸t3E ERTEЋE;E EuBUQXUEu!UQXUEt@UQXUEu%UQXUEMEhuhEME8W huhEME8W E RT;}~H RTUME,M8W hE+;EuM;}}H RTUME,M8W 3E3EĉEȅ~:}Eu&@ERHm}ěM̋EMu}̅uv@RHmu EE RTUME,M8W ŰEI UQXME,M8W ŰEEuFUQXUEu%UQXUEuLUQXUEu!UQXUEt MEEM]؛E;=~E싀E싀EEER@TQ4xQ4Q4Q4Q4Q4Q4Q4(Q4@Q4TQ4hQ4|Q4Q4Q4Q4Q4Q4Q40Q4PQ4lQ4Q4Q4Q4Q4Q4Q4Q4<Q4ER@XQ4 Q4EM UQ4EEE3ZYYdh1 EEEE_^[]dbPPdata SELECT COUNT(*) AS NumberOfCallsFROM tDataCollectionWHERE BatchID = AND ServiceID LIKE 'PHONENUMBER'!AND CallCode LIKE 'CALLCODEVALUE''SELECT ServiceID, CallCode, AmountExGST ORDER BY ID SELECT COUNT(*) AS NumberDSCallsFROM tDataCollect_Temp NumberDSCallsBProcessing DS Summary list ...%SELECT SUM(NumCalls) AS NumberDSCallsUPDATE tDataCollect_TempSET Active = 1WHERE ID = 12345SELECT * ServiceIDCallCodeAND ServiceID LIKE ''AND CallCode LIKE ' NumberOfCallsNumCallsID WHERE ID = AmountExGSTINSERT INTO tDataCollection (SequenceNo, ServiceID, CallCode,  TransactionTypeID,  RateDescription,  AmountExGST, GSTAmount,  AmountIncGST, GSTFlag, FromDate, ToDate,  SupplierServiceCodeID, BatchID) SELECT  SequenceNo,  ServiceID, CallCode,  TransactionTypeID,  RateDescription,  AmountExGST,  GSTAmount,  AmountIncGST, GSTFlag, FromDate, ToDate,  SupplierServiceCodeID, BatchID FROM tDataCollect_Temp WHERE Active = 1DELETEUQ5jjIuQMSVWMUE3UhI$d0d UE3ɲEpM`$pEE|$3ɲ$݀L <$ppEE$$ËQ4$ËQ4%ËQ4 %ËQ4pËQpQ,u%`8%`UR@ËR@D%ËQ4x%ËQ4pM%pËQ4%ËQ4pËQpQ,%RTEp EpEE5%5%]E<$p pEËR@%ËQ40&ËQ4L&ËQ4&ËQ4&ËQ4pM'pËQ4pËQpQ,4'UQXL'UQXEu E`'Eu E`'ËR@p'ËQ4'ËQ4'ËQ4'ËQ4pM0(pËQ4\(ËQ4pËQpQ,(UQXEu E`'ËR@(ËQ4(ËQ4pM(pËQ4)ËQ4pËQpQ,()RTEUEËR@8)ËQ4(ËQ4pM(pËQ4pMT)pËQ4)ËQ4pËQpQ,p)RH5x)}؛p)RH5|)<$p pEmء܈L }ЛEЉEEԉEċËR@)ËQ4x%ËQ4pM)pËQ4*ËQ44*ËQ4pËQpQ,t uhhd*p*pQXph*Ehd**pQXph*EEtEKËR@*ËQ4*ËQ4pM'pËQ4pËQpQ,`*`tE`'@hd**RL$pph*E`+`tE`'@hd*+RL$pph*E} ËR@+ËQ4<+ËQ4T+ËQ4pËQpQ,+UQXEujf ++ËR@,ËQ4,,ËQ4h,uh,ppËQ4hd*uh*ppËQ4UËQ4UËQ4p,UpËQ4uu؍pp,pËQ4uuЍpp,pËQ4mm<$pp,pËQ4,ËQ4,ËQ4pËQpQ,E;EfE+EEËR@p'ËQ4'ËQ4'ËQ4,ËQ4pM0(pËQ4\(ËQ4pËQpQ,(UQXEu E`'ËR@ -ËQ4(ËQ4pM(pËQ4@-ËQ4\-ËQ4-ËQ4pM캔-pËQ4\E\p-pËQ4-ËQ4)ËQ4pËQpQ,tt 3EȉEQE+EXۅX5%PT߭P]-RHM}țm.7mȡ܈L }Лmm}ËR@.ËQ4<+ËQ4,.ËQ4pËQpQ,+UQXEujf +h.ËR@,ËQ4,,ËQ4h,uh,ppËQ4hd*uh*ppËQ4UËQ4UËQ4p,UpËQ4uuȍpp,pËQ4uuЍpp,pËQ4mm<$pp,pËQ4,ËQ4,ËQ4pËQpQ, 3EȉE3EËR@.ËQ4.ËQ4pM%pËQ4/ËQ4$/ËQ4pËQpQ,ËR@D/ËQ4x%ËQ4pM)pËQ4/ËQ4/ËQ4pËQpQ,/RT׋EËR@.ËQ4/ËQ40ËQ4pM80pËQ4pËQpQ,ËR@P0ËQ4hh0uu؍\\h0ppËQ4h0uh0ppËQ4h0\E\h0ppËQ4h0\E\h0ppËQ4h0uuȍ\\h0ppËQ4h 1uh0ppËQ4uu\\p(1pËQ4pM'pËQ4pËQpQ,} ËR@,ËQ4@1ËQ4l1ËQ41ËQ41ËQ41ËQ4(2ËQ4L2ËQ42ËQ43ËQ4`3ËQ43ËQ4h 4uh\4ppËQ4x%ËQ4pM)pËQ4t4ËQ4pËQpQ,EPEȃEEPEȃEËR@p'ËQ4'ËQ4,ËQ4pM0(pËQ4\(ËQ4ËR@4ËQ4x%ËQ44ËQ4pM)pËQ4pM@5pËQ4pËQpQ,h5RTtËR@|5ËQ4(ËQ4pM(pËQ4)ËQ4pËQpQ,()RTtEUE-RPݝxp)RH5x)}țmȡ܈L }ЛËR@,ËQ45ËQ4d6ËQ46ËQ4p6UpËQ4p6UpËQ4p6UpËQ4uuȍpp6pËQ4uuЍpp7pËQ4mm<$pp$7pËQ4@7ËQ4\7ËQ4h|7m x)<$\\h7ppËQ4h|7uuȍ\\h7ppËQ4h|7uh\4ppËQ47ËQ4x%ËQ44ËQ4pM)pËQ4 8ËQ4h@5uhL8ppËQ4\8ËQ4pËQpQ,Eu E`'E;E}3EȉE3EE+EXۅX܍x |)}țm.mȡ܈L }ЛËR@.ËQ4<+ËQ4,.ËQ4pËQpQ,+UQXËR@p'ËQ4'ËQ4'ËQ4,ËQ4\(ËQ4pËQpQ,(UQXEu E`'ËR@,ËQ4|8ËQ4h9uh0ppËQ4p0UpËQ4p0UpËQ4p0UpËQ4p0UpËQ4uuȍpp0pËQ4uuЍpp0pËQ4mm<$pp0pËQ49ËQ4h(9uuȍ\\h49ppËQ4pËQpQ,ËR@.ËQ4/ËQ40ËQ4pM80pËQ4pËQpQ,ËR@P0ËQ4@9ËQ4h 1݅x<$\P \h0ppËQ4h0uuȍ\\h0ppËQ4h0\E\h0ppËQ4ht9\t\h0ppËQ4h0uh0ppËQ4h0uhd*ppËQ49ËQ4x%ËQ4pM)pËQ49ËQ4pM'pËQ4pËQpQ,ËR@,ËQ4@1ËQ4l1ËQ41ËQ41ËQ41ËQ4:ËQ4L2ËQ42ËQ43ËQ4`3ËQ4D:ËQ4|:ËQ4:ËQ4h(;uh\4ppËQ4d;ËQ4h;uh;ppËQ4;ËQ40<ËQ4h|<uh<ppËQ4<ËQ4h8=uh`=ppËQ4h=uh=h=ppËQ4=ËQ4 >ËQ4|>ËQ4>ËQ4>ËQ4x%ËQ44ËQ4,?ËQ4t?ËQ4?ËQ4pM)pËQ4?ËQ4h,@uh@ppËQ4@ËQ4AËQ4LAËQ4AËQ4AËQ4,BËQ4pËQpQ,ËR@|BËQ4BËQ4CËQ4DCËQ4x%ËQ44ËQ4pM)pËQ4?ËQ4tCËQ4CËQ4hCuhCppËQ4DËQ44DËQ4pËQpQ,PDUQXdDUQXEu E$ËR@.ËQ4/ËQ40ËQ4pM80pËQ4pËQpQ,ËR@P0ËQ4@9ËQ4h 1uh0ppËQ4hxDuh0ppËQ4h0uh0ppËQ4\E\pDpËQ49ËQ4x%ËQ4pM)pËQ49ËQ4pM'pËQ4pËQpQ,EE3ZYYdhP$\`pEEEEEE_^[]Importing Batch: -Please wait. Creating revenue transactions...dbPPdata0 SELECT IDFROM tCustomerWHERE ShipTo LIKE 'VRT'AND Active = 1id+SELECT Sum(CAST(Var01 AS integer)) AS kByteFROM tDataCollectionWHERE BatchID = AND RevenueFlag = 0kByteDCSELECT tServiceType.ID AS "ServiceTypeID", tSystem.ID AS "SystemID"FROM tServiceType8INNER JOIN tSystem ON tServiceType.SystemID = tSystem.ID<INNER JOIN tBatchType ON tSystem.BatchTypeID = tBatchType.ID7INNER JOIN tBatch ON tBatchType.ID = tBatch.BatchTypeIDWHERE tBatch.ID = ServiceTypeIDSystemIDNULLSELECT tTransactionType.IDFROM tTransactionType6WHERE tTransactionType.Description LIKE '%Data Usage%'3AND tTransactionType.Description LIKE '%Aggregate%' AND tTransactionType.SystemID = AND tTransactionType.Active = 1ID1SELECT CAST(Min(tRate.Length) AS int) AS "Length" FROM tRateWHERE tRate.ServiceTypeID = AND tRate.Active = 1LengthSELECT tRate.CostAND tRate.Length = Cost@A@F@SELECT DISTINCT tDataCollection.FromDate, tDataCollection.ToDate WHERE tDataCollection.BatchID = (AND tDataCollection.FromDate IS NOT NULL&AND tDataCollection.ToDate IS NOT NULL'FromDate', ToDate/SELECT tBatch.RentStartDate, tBatch.RentEndDate FROM tBatch RentStartDate RentEndDateSELECT tParameter.ParmTextFROM tParameter.WHERE tParameter.Parm LIKE 'BaseDataServiceID'ParmTextXNo entry found for Parm=BaseDataServiceID in the tParameter table. Data is incomplete.INSERT INTO tDataCollectionu(BatchID, ServiceID, FromDate, ToDate, TransactionTypeID, AmountExGST, GSTAmount, AmountIncGST, GSTFlag, RevenueFlag)VALUES(, 'Y', 1)0AND tTransactionType.Description LIKE '%Excess%'SELECT tRate.PartCostAND tRate.Length = (SELECT Max(tRate.Length) FROM tRate WHERE tRate.ServiceTypeID =  AND tRate.Length <=  AND tRate.Active = 1)PartCostSELECT ParmText0WHERE tParameter.Parm LIKE 'ExcessDataServiceID'ZNo entry found for Parm=ExcessDataServiceID in the tParameter table. Data is incomplete.UPDATE tDataCollectionSET RevenueFlag = 1AND AmountExGST = 0AND AmountIncGST = 01SELECT DISTINCT tDataCollection.TransactionTypeID#AND tDataCollection.AmountExGST = 0$AND tDataCollection.AmountIncGST = 0TransactionTypeIDSET RevenueFlag = 0WHERE RevenueFlag IS NULLAND BatchID = UPDATE tBatchSET TotalRevenue = , InvoiceNo = '', OrderNumber = ' RequisitionNumber = ' OpeningBalance =  TotalCredits = GSTAmount = (SequenceNo, ServiceID, BatchID, TxnDate, TxnTime, Origin,% Duration, CallCode, RateDescription,% FromDate, ToDate, TransactionTypeID,/ AmountExGST, GSTAmount, GSTFlag, AmountIncGST, RevenueFlag, Var01, Var04)VSELECT tDataCollection.SequenceNo, tDataCollection.ServiceID, tDataCollection.BatchID,J tDataCollection.TxnDate, tDataCollection.TxnTime, tDataCollection.Origin,U tDataCollection.Duration, tDataCollection.CallCode, tDataCollection.RateDescription,U tDataCollection.FromDate, tDataCollection.ToDate, tDataCollection.TransactionTypeID,C (0) AS "AmountExGST", (0) AS "GSTAmount", tDataCollection.GSTFlag,F (0) AS "AmountIncGST", (1) AS "RevenueFlag", tDataCollection.Var01, ( ) AS "Var04"#AND tDataCollection.RevenueFlag = 0@SELECT COUNT(DISTINCT tDataCollection.ServiceID) AS "TotalCount"HLEFT JOIN tServiceID ON tDataCollection.ServiceID = tServiceID.ServiceIDAND tServiceID.ServiceTypeID = TotalCountHSELECT CAST(tRate.Length AS int) AS "Length", tRate.PartCost, tRate.Cost(ServiceID, BatchID, FromDate, ToDate, TransactionTypeID, AmountExGST, GSTAmount, AmountIncGST, GSTFlag, RevenueFlag, Var02, Var03, Var04)SELECT DC.ServiceID, DC.BatchID, AS "FromDate", AS "ToDate", AS "TransactionTypeID",  AS "AmountExGST",  AS "GSTAmount", AS "AmountIncGST",'Y' AS "GSTflag",(1) AS "RevenueFlag",( ) AS "Var02", ) AS "Var03",HFROM (SELECT DISTINCT tDataCollection.ServiceID, tDataCollection.BatchID6AND tDataCollection.Ratedescription NOT LIKE '%ROUND%') AS DCORDER BY DC.ServiceID|(ServiceID, BatchID, FromDate, ToDate, TransactionTypeID, AmountExGST, GSTAmount, AmountIncGST, GSTFlag, RevenueFlag, Var02)VALUES(''Y',1, )(SET TotalRevenue = BatchRate.RevenueAmt, TenderNo = '=FROM (SELECT Sum(tDataCollection.AmountExGST) AS "RevenueAmt"1AND tDataCollection.RevenueFlag = 1) AS BatchRate) RevenueFlag, Var01, Var02, Var03, Var04)- DC3.AmountExGST, DC3.GSTAmount, DC3.GSTFlag,Z CAST((DC3.AmountExGST + DC3.GSTAmount) AS money) AS "AmountIncGST", (1) AS "RevenueFlag",? tDataCollection.Var01, CONVERT(varchar,DC3.Cost,2) AS "Var02",1 CONVERT(varchar,DC3.AmountExGST,2) AS "Var03", (FROM (SELECT DC2.*,> CAST((CASE WHEN DC2.GSTFlag LIKE 'Y' THEN (DC2.AmountExGST * &) ELSE 0 END) AS money) AS "GSTAmount",FROM (SELECT DC1.DataCollectionID, DC1.Cost,@ (CAST(tDataCollection.Var01 AS Integer)*Cost) AS "AmountExGST", (CASE WHEN DC1.CustomerID = $ THEN 'N' ELSE 'Y' END) AS "GSTFlag"ZFROM (SELECT DCFullRate.DataCollectionID, DCFullRate.ServiceTypeID, DCFullRate.CustomerID, (DCFullRate.Cost + (CASE WHEN  > DCFullRate.Usage THEN (DCFullRate.PartCost * ( - DCFullRate.Usage)) ELSE 0 END)) AS "Cost"/FROM (SELECT DCRate.*, tRate.Length AS "Usage",P (CASE WHEN tRate.PartCost IS NULL THEN 0 ELSE tRate.PartCost END) AS "PartCost"-FROM (SELECT DC0.*, Min(tRate.Cost) AS "Cost"6FROM (SELECT tDataCollection.ID AS "DataCollectionID",, tServiceID.ServiceTypeID, tGroup.CustomerID=LEFT JOIN tCentre ON tServiceID.CustomerCentreID = tCentre.ID>LEFT JOIN tDepartment ON tCentre.DepartmentID = tDepartment.ID3LEFT JOIN tGroup ON tDepartment.GroupID = tGroup.ID+AND tDataCollection.RevenueFlag = 0) AS DC0SLEFT JOIN tRate ON ((DC0.ServiceTypeID = tRate.ServiceTypeID) AND (tRate.Length <= ) AND (tRate.Active = 1))KGROUP BY DC0.DataCollectionID, DC0.ServiceTypeID, DC0.CustomerID) AS DCRate@LEFT JOIN tRate ON ((DCRate.ServiceTypeID = tRate.ServiceTypeID)7 AND (tRate.Cost = DCRate.Cost) AND (tRate.Active = 1))5WHERE tRate.Cost = DCRate.Cost) AS DCFullRate) AS DC1VLEFT JOIN tDataCollection ON DC1.DataCollectionID = tDataCollection.ID) AS DC2) AS DC3FLEFT JOIN tDataCollection ON DC3.DataCollectionID = tDataCollection.ID=SELECT CAST(CAST(DC1.Cost AS real) AS varchar) AS "RateCost",0 CAST(ServiceTypeID AS varchar) AS "ServiceType"9FROM (SELECT Min(tRate.Cost) AS "Cost", DC0.ServiceTypeID%FROM (SELECT tServiceID.ServiceTypeID=LEFT JOIN tRate ON ((DC0.ServiceTypeID = tRate.ServiceTypeID) AND (tRate.Active = 1) AND (tRate.Length <= ))"GROUP BY DC0.ServiceTypeID) AS DC1WHERE DC1.Cost <> 0RateCost ServiceType OrderNumber =  RequisitionNumber = U3Uh%d0d 3ZYYdh,]Ã-m <$>   &  f>&  &  f>&&  &  f2  &. *N 02  8&  f>&    "    , f&$  h6h<0  h6h<0:"&j&j(&j&j  h6h<"> f4 2> f4 T2">> f4 & f4 "&j&j(&j&j0l" $ *                              $ d  , f* ddddnnpn rH"> " f0 0: t  Hx  X(>.* f$X &z Fx* fd ~ ~ * f$X ~ * f$X &>* f6 f$X 8xH* f$X. ,h  ,h~~(* fd  .h  .h,X ~ "" h$ hXf<@ <@ N@ $X B* f$X ~ * f$* f6>" f$Xh B&"HX ~ "" h$ hXf<@ <@ N@ $X 6* f$X * f$X * fd "@ h$ h$> h$> h$"@ h$ h<@" f6 fd 6 h$* f$X ~$~$* f$&* f6 fd $* f$X 2> "0$f0f0f<@ <@ N@ $$@ h$"@ h$ h$* f$ h$X ~ p"0X X ~  h0f0f0f0f<@ <@ N@ $"@ hd * fd JB h$"@ h$> h$"> h$ h$ h$* f$* fd " h$ h$ h$ h$  h$* f$ h$X * f$ h$X  ~ * fd  h$ h$ h6>" f$* f$* fd dddnnpnnpnp ryeee ri i nP.&&B&&.&&B&&&.&&B. $$ &  &&B&&,   ,  < ((``*``*  `` & xx 6 6x n ,  Q                                <J\"B& n<J@<(B&Z@<((22@<(2@<(@@<6(@<$hh8@<BB<(4TT@\\n< @<(2@@b<$r0$(<(4TT@\\n<  @<@<& @<|Tvv|Th@< T@\<<<@@@<.@<406( @@@\\n|T@T<(2D$(<(<(82T@@@@\\n|<@<|v|TT@@< TTTT^@T<@T<((2 @<TTTb@@<iPx  uD - -5 -u-- -5-y- -I ---9 - - -Y - - - -U - - -! -i T- --i - - -]~-m- -HpPTThu ҁ  = Qq  %$ E$ޝ$ $֡/0p-11q)> )1?-Q1Ae i a