ئhGbִ.Q g .TStringList<*cdMessagesZkcdSysInitZkcdSystemZkfLongint|ofString8f AnsiString8fInteger|ofRealBYrPfChargQfBooleanNcgStrg@Str2ExtX,TdgTrue1ogFalse1og@LStrFromString|g @VarToIntX,Tdg@LStrAsgX,Tdg @LStrCat3X,Tdg @VarToLStr kg @LStrArrayClrX,Tdg@VarClrX,Tdg@HandleFinallyX,TdgChrfTextFileFMfVariantJh7fCurrency,eigTObject.Create݋Rg AssignFileg@Assignf g SetTextBufg @SetTextBufX,TdgResetg @ResetText+UgReadlng @ReadLStringX,Tdg@ReadLnX,TdgLengthg@LStrLen?gEofg@EofTextX,TdgPosg@LStrPosX,TdgIncgRoundg CloseFileg@CloseX,Tdg TObject.Free݋Rg @LStrLAsgX,Tdg@LStrClrg@_IOTestX,Tdg @LStrCatNX,Tdg@LStrCatX,Tdg@LStrCmpX,Tdg @VarFromLStrjg@ROUNDX,TdgParamStrgCopyg @LStrCopyX,Tdg @LStrAddRefX,TdceComCtrlsZkgTProgressBar.SetPositionceControlsZkgTControl.SetTextc_gTControl.SetVisiblee_ceFormsZkgTCustomForm.Createj-gTCustomForm.Showj-gTCustomForm.Closej-gTCustomForm.Hidej-ceGenFns gReplacePartString,g AccountFormat~ g AddToTabley)g CleanString~ gConvertTimeToSecs~ g DeleteFromDC.gUpdateBatchStatusz3>ce MyMessage ce FileFunctions g GetFileSizece DateFunctions ceProgress f TProgressForm%g.TProgressForm<g TProgressForm.ProcessWinMessagesceDataMod ceMain gMainForm.|ceMathZkce CriticalTests gCriticalErrorTestptac .1f$ nSupplierIDf. sSupplierIDf0 qryOptusf2 sRentCodeIDf4 sCallCodeIDf6 sOtherCodeIDf8 sDiscountCodeIDf: sSupplierRentCodeIDf< sSupplierCallCodeIDf> sSupplierOtherCodeIDf@ sSupplierDiscountCodeIDfB fGSTRatefD sGSTRatefF sFromDatefH sToDatefJ InputTextFileBufferf&N(GetDataReferences Result lSuccessfulcj'RECORD_BYTES_CF'PROGRESS_COUNTER_CF'PROGRESS_MAX_CF' SequenceID_CF'BillingPointCode_C'BillingPointName_C'OrganisationCode_C'OrganisationName_C' AgencyCode_C' AgencyName_C'BusinessunitCode_C'BusinessUnitName_C'DepartmentCode_C'DepartmentName_C'CostCentreCode_CF'CostCentreName_C'SupplierCode_C'SupplierName_C' AccountCode_C' AccountName_C' InvoiceCode_C' IssueDate_C'InvDescription_C' ServiceCode_CF' ServiceName_C'Charge_CF'GST_CF' Description_CF' ChargeFrom_CF' ChargeTo_CF' Quantity_C' Duration_C' WorkOrder_C'Level1_C'Level2_C'Level3_C'PrevDisputed_C' ReportCode_C'ReportCodeDescription_C'LocationAddress_C'LocationSuburb_C'LocationPostcode_C'sTabF('sCRF(k(GetMobileDataHeadData<(!nBatch!FName" lReturnCodef nFileSize InputTextFilef sCaptionf ReadStringf ConvertStringf nProgressCountedf Progressf" nCountf nSoFar nFactorf vSubStringf sServiceIDf SubStringf sBatchf sListFieldsf sListValuesf FieldStringListf ValueStringListf qryStringListf slAddFieldNamesf slAddFieldValuesf nListValues qryDCf sLastCallCodef sLastCallTransactionTypeIDf sLastSupplierCallCodeIDf lFound curAmountChargedf q curTotalAmountf Q sRateDescriptionfA linvoiceDatesAreReadf= nStringCountcj'RECORD_BYTES_CF'PROGRESS_COUNTER_CF'PROGRESS_MAX_CF' SequenceID_CF'BillingPointCode_C'OrganisationCode_C' AgencyCode_C'BusinessUnitCode_C'DepartmentCode_C'CostCentreCode_CF'SupplierCode_C' ServiceCode_CF' CallDate_CF' CallTime_CF' Dialled_CF' Duration_CF'Charge_CF'GST_CF'Type_CF'Rate_CF'Origin_CF' Destination_CF'sTabF('sCRF(k(GetMobileDataCallDataE(!nBatch!FName" lReturnCodef nFileSize InputTextFilef sCaptionf ReadStringf ConvertStringf nProgressCountedf Progressf" nCountf nSoFar nFactorf vSubStringf sServiceIDf SubStringf sBatchf sListFieldsf sListValuesf FieldStringListf ValueStringListf qryStringListf slAddFieldNamesf slAddFieldValuesf nListValues qryDCf sLastCallCodef sLastCallTransactionTypeIDf sLastSupplierCallCodeIDf lFound curAmountChargedf q curTotalAmountf Q sRateDescriptionfA nStringCountcj'RECORD_BYTES_CF'PROGRESS_COUNTER_CF'PROGRESS_MAX_CF' SequenceID_CF'BillingPointCode_C'BillingPointName_C'OrganisationCode_C'OrganisationName_C' AgencyCode_C' AgencyName_C'BusinessUnitCode_C'BusinessUnitName_C'DepartmentCode_C'DepartmentName_C'CostCentreCode_CF'CostCentreName_C'SupplierCode_C'SupplierName_C' AccountCode_C' AccountName_C' InvoiceCode_C' IssueDate_C'InvDescription_C' ServiceCode_CF' ServiceName_C'Charge_CF'GST_CF' Description_CF' ChargeFrom_CF' ChargeTo_CF' Quantity_C' Duration_C' WorkOrder_C'Level1_C'Level2_C'Level3_C'PrevDisputed_C' ReportCode_C'ReportCodeDescription_CF'sTabF('sCRF(k(GetMobileDataRentDataD(!nBatch!FName" lReturnCodef nFileSize InputTextFilef sCaptionf ReadStringf ConvertStringf nProgressCountedf Progressf" nCountf nSoFar nFactorf vSubStringf sServiceIDf SubStringf sBatchf sListFieldsf sListValuesf FieldStringListf ValueStringListf qryStringListf slAddFieldNamesf slAddFieldValuesf nListValues qryDCf qrytDCUpdatef sLastCallCodef sLastCallTransactionTypeIDf sLastSupplierCallCodeIDf lFound sCallFromfq sCallTillfa sBaseServiceIDfQ curAmountChargedf 1 curTotalAmountf  sRateDescriptionf lUpdateDatesCollected nStringCountc(AllocateMinSpendA%(!nBatch sBatchf qryDC nMaxUsers cMinimumSpendf cActualSpendf cDiffSpendf c( ConfirmDates!(!nBatch sBatchf qryDC sCallFromf sCallTillfc(OptusMobileDataInvoice%(!nBatch! sDirectoryf OpenDlg  Progress" lContinuef sFilef slDummy  sPosc( FinalizationX,Td! (c(OptusMobileData!(cD$L@*@D$ r4U$U" U t@U$U:U"v"@! rU"v"@1 r2U:U"v"@% rU"v"@5 r2U4U) vU"v"@9 r2U:U"v"@- rU"v"@= rHUU "U xz | aeimquy}   B,> P P P P P   M  I Ua Z Q     <8hn @ ( P ( @ , $  *  JI  ,@ I M  ,@ M I M J  m,@ 2B@ ,@  "  "    ,% 5 * &0&          %  5  ,@ <,@D0    $ ,@D0 (F (FI  I M  M  F e i"i "  6  | xzxxx |y    D,> P P P P P   U Z Q     <8hn @ ( P ( @ , .  \  ,@ 2B@ ,@  "  "    ,% 5 * &0&          %  5 ,@ ,@  ,@  ,@  ,@ ,@$" < ,@  ,@ B   <,@D0    $ ,@D0 (F (F F  " "  6  | xzxxx |E  !%)-159==AEEIDI,>I P P P P P  I  I U IZ Q    I <I8hn I@I ( P I( @ ,  A 9\I I ,@I II2B@I II,@ I II" II "I  I  ,% 5 *III &IIIII0III&I      II  I IIII I% I 5 I< ,@ 5I52@&I I II<,@D0I II I I $I ,@D0I (FII (FI ,@,@I III II2"8III 2II DI t2II DI&II IFI  " "  6I  |I xzxxx |, >      &$ 8"              E &  &   & $$  &$ |y    >        ,  t* "    ,  t* "     &  &   $     &  &   $ x |!*!. 0! r2H2! r(4*@ JP ! *! t2! t! *! tI  ! !  !     !>!!"!>! !!"!! "!x |EEA  9            M  I  E  =  9  5  1  -  )  %  !   E |I IY Z>d,$$$D@$$R$$$<$<D<$2 *d V .@* . x <j< LRD8D8 JD:f:D :"<.8V <4D4LD:D0"DXX((0$<$<,  <0&  =AX .@* . x <j<  RD:f:D :"<.8V <4D4LD:D:D\D\D\DZ:D:D@D0"DXX0$<$<,  <0&  ΡX ..@* . x <j<  RD:f:D :"<.8V <4D4LD:D0"DXXDD4::2&bbNb&&0$<$<,  <0&  &@,   P &**>4           V  P   P    P Xa4,  <( ,  <(, PP   PP  RN,0>J F F F,  (  r|~1 e A e <M  U`ap]a] ]%]Iq pr!VVv)!) i %5}(}(}(}])I9*IY*I*I*a prXXx!9-!u %u.uQ/u/u!0A0A1Au1A1I prQXMXMxY)QY q&&,5-}-.y.y/yY/y/@0@T9 `  4 Ht !(02%N-z-==AUAAAA11) %U E I a