ئhG^F g .TStringList<*gTStrings.SetCommaTextH*cdMessagesZkcdSysInitZkcdSystemZkfLongint|ofString8f AnsiString8fInteger|ofRealBYrPfBooleanNcgStrg@Str2ExtX,TdgTrue1ogFalse1og@LStrFromString|g @VarToIntX,Tdg@LStrAsgX,Tdg @LStrCat3X,Tdg @VarToLStr kg @LStrArrayClrX,Tdg@VarClrX,Tdg@HandleFinallyX,TdfTextFileFMfChargQfVariantJh7fCurrency,eigTObject.Create݋Rg AssignFileg@Assignf g SetTextBufg @SetTextBufX,TdgResetg @ResetText+UgReadlng @ReadLStringX,Tdg@ReadLnX,TdgLengthg@LStrLen?gEofg@EofTextX,TdgPosg@LStrPosX,TdgCopyg @LStrCopyX,TdgRoundgIncg CloseFileg@CloseX,Tdg TObject.Free݋Rg @LStrLAsgX,Tdg@LStrClrg@_IOTestX,Tdg @LStrCatNX,Tdg@LStrCatX,Tdg@LStrCmpX,Tdg @VarFromLStrjg@ROUNDX,TdgParamStrg @LStrAddRefX,TdceComCtrlsZkgTProgressBar.SetPositionceControlsZkgTControl.SetTextc_gTControl.SetVisiblee_ceFormsZkgTCustomForm.Createj-gTCustomForm.Showj-gTCustomForm.Closej-gTCustomForm.Hidej-ceGenFns g AccountFormat~ g AddToTabley)gYMD2DMY~ 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(GetDataReferences Result lSuccessfulcj'RECORD_BYTES_CF'PROGRESS_COUNTER_CF'PROGRESS_MAX_CF'LINE_CF'CODE_CF'ABBR_CF'DESC1_CF'DESC2_CF'DESC3_CF'DESC4_CF'DESC5_CF'DESC6_CF'CODE2_CF'CODE3_CF'COST1_CF'COST2_CF'DESC7_Ck(GetMobileDataData&!nBatch!FName" lReturnCodef nFileSize InputTextFilef InputTextFileBufferf( sCaptionf ReadStringf ConvertStringf nProgressCountedf Progressf" nCountf nSoFar nFactorf vSubStringfQ sFieldValueListf lSaveToTable sBillCodef cAbbrf sServiceIDf SubStringf sBatchf sListFieldsf sListValuesf FieldStringListf ValueStringListf qryStringListf slAddFieldNamesf slAddFieldValuesf nListValues qryDCf sLastCallCodef sLastCallTransactionTypeIDfq sLastSupplierCallCodeIDfa lFound nLenSubString curAmountChargedf A curTotalAmountf ! sCallFromf sCallTillf sMonthFromf sYearFromf sYearTillf sRateDescriptionfc(AllocateMinSpendA%&!nBatch sBatchf qryDC nMaxUsers cMinimumSpendf cActualSpendf cDiffSpendf c( ConfirmDates!&!nBatch sBatchf qryDC sCallFromf sCallTillfc(OptusMobileDataInvoice%q&!nBatch! sDirectoryf OpenDlg  Progress" lContinuef sFilef slDummy c( FinalizationX,TdQ! &c(OptusMobileData!&cD$@L@*D$ t4M$M" M v@M$M:M"x"@% tM"x"@5 t2M:M"x"@) tM"x"@9 t2M4M- xM"x"@= t2M:M"x"@1 tM"x"@A tHMM "M z| ~ Y]aeimquy}B,> R R R R R    MY Z,    <8jp @ (  R (  0Ti,@J  m2B@e,@      (2@&2@v  "  !" !  ! ,) 9 * &0&  !  !   !   )  9 q,@,2"6(v6(v u,@ 22},@ ,@ ,@ ,@$" < (,@ B   <,@D0      $ E0 (F (F   $y,@D2  , 1  A    E0 (F (F <m,@  ( y2@"  $u,@D2  4m,@ " q2@"H q& & "   % 5 ) 9  (F  E0 (F (F  <q6y2@@,q,@y2@&y,@ ( $q,@D2  , %  5    E0 (F (F  <  ( $u,@D y,@D %  5  (F (F  < q2@"  < },@  y2 q2222( F ] a"a "  6  ~ z| zzzz ~Q,Q >  Q Q Q Q QQ&Q$ QQQ8"Q  Q Q Q Q Q Q Q Q Q Q Q Q I Q&Q Q QQ&Q Q Q QQ&Q Q$$Q Q QQ&Q$Q ~yq q >  q  q q,q v*q" q q,q v*q" q qq&qq&q q$ q qq&qq&q q$qz ~*. 0 t2J2 t(4*@ LR     Q  q  >"> " "z ~I  A  =  9  5  1  -  )  %    ~ MT>d,$$$D@$$R$$$<$<D<$2 *d= V .@, . x <H  D fD :V :"<.8V <4D4LD 8X^Z:DD\D\D\DZ:hD@D0bXX &DD660XXD f  DDDD6:66XXXD D f &DD660XX$ &DD66XX D &2260$<$<,  <0&  &i@,   P &**>4           V  P   P    P Xa4,  <( ,  <(, PP   PP  RN,0>J ,  (  r|~% !!]a ] <] } }9 }m M`apUaU U%UIMprVVvu ))<=A=I=eAA}CCCC-L-MEPaPYXuX1ac]feff hhheiAjajjjQ@0U@UT]a9a] q` u4uH}t} (02Nzu   a