ئhGRveC 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-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_C'DESC6_CF'CODE2_CF'CODE3_CF'COST1_CF'COST2_CF'DESC7_Ck(GetMobileDataDataA&!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(AllocateMinSpend&!nBatch sBatchf qryDC nMaxUsers cMinimumSpendf cActualSpendf cDiffSpendf cAmountExGSTf cGSTAmountf cAmountIncGSTf c(OptusMobileDataInvoice% &!nBatch! sDirectoryf OpenDlg  lContinuef sFilef slDummy c( FinalizationX,TdQ! &c(OptusMobileData!&cD$@L@*D$ rE"v">- r2E:E"v">! rE"v">1 r2E4E% vE"v">5 r2E:E"v">) rE"v">9 rHEE  E xz | QUY]aeimquy}B,< P P P P P    EQ Z,    <8hn > (  P (  0Ra,>J  e2@>],>    $e& (2>&2>t  "  "    ,! 1 * &0&          !  1 i,>,2"6(t6(t m,> 22u,> ,>$" <},> e,> (,> @   <,>B0  e2>  $ =0 (D (D   $q,>B2  , )  9    =0 (D (D <e,>  ( q2>" $m,>B2  4e,> " i2>"F "    - ! 1  (D  =0 (D (D  <i6q2>>,i,>q2>&q,> ( $i,>B2  ,   -    =0 (D (D  <  ( $m,>B q,>B   -  (D (D  < i2>  < u,>  q2 i2222( F U Y"Y "  6  | xz xxxx |I2I < ==  I I I I II&I$ III8"I2I I II&I I$ I I II&I$ I>=. I IDI&IDI&IDI&I II&I$$I I II&I$I |= u*u, .u r0H0u r(2*> JP "I  u<uu u<u uu uu  ux |! A  9  5  1  -  )  %  !      |  }T>d,$$$D@$$R$$$<$<D<$2 *d9 V .@, . x <H  D fD :V~ :"<.8V <4D4LD 8X^Z:DD\DZ:D\DhD@D0nXX &DD660XXD f  &DDD6:66XXXD D f &DD660XX$ &DD66XX D &2260$<$<,  <0&  F>,   P &**4  P    P & lll P   P h% N,0>J  ( r|~Y uU UI Uq U U E`apMaM M%MIMprVVvu !!;;;;??MAiA%%J%-KMMUUe^M`ccc Ae e f fuggg)hI0MFMZUYYY YQ Uu(02yNzy   a