ئhG{cveC 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@ sSupplierIDfB qryOptusfD sRentCodeIDfF sCallCodeIDfH sOtherCodeIDfJ sDiscountCodeIDfL sSupplierRentCodeIDfN sSupplierCallCodeIDfP sSupplierOtherCodeIDfR sSupplierDiscountCodeIDfT fGSTRatefV sGSTRatefX( GetReferences 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( GetMobileDataт&!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!L&!nBatch sBatchf qMinSpend qryDCf nMaxUsersf cMinimumSpendf cActualSpendf cDiffSpendf nThisUsers cThisMinSpendf cThisActSpendf cThisDiffSpendf sThisShipTof cBigDiffSpendf sBigShipTof cAmountExGSTf cGSTAmountf cAmountIncGSTf q sFromDatefa sToDatefQ sTransactionTypeIDfA sSupplierServiceCodeIDf1 fRatePerUserf lSaveToTablef sListFieldsf sListValuesf nListValuesf FieldStringListf ValueStringListf qryStringListf lLastDiffSavefc(OptusMobileInvoice% &!nBatch! sDirectoryf OpenDlg  lContinuef sFilef slDummy c( FinalizationX,TdQ! &c( OptusMobile!&cD$@L@*D$ t4I$I" I v@I$I:I"x"@! tI"x"@1 t2I:I"x"@% tI"x"@5 t2I4I) xI"x"@9 t2I:I"x"@- tI"x"@= tHII "I z| ~ UY]aeimquy}B,> R R R R R    IU Z,    <8jp @ (  R (  0Te,@J  i2B@a,@    $i& (2@&2@v  "  "    ,% 5 * &0&          %  5 m,@,2"6(v6(v q,@ 22y,@ ,@$" <}2@,@ i,@ (,@ B   <,@D0  i2@  $ A0 (F (F   $u,@D2  , -  =    A0 (F (F <i,@  ( u2@" $q,@D2  4i,@ " m2@"H "   ! 1 % 5  (F  A0 (F (F  <m6u2@@,m,@u2@&u,@ ( $m,@D2  , !  1    A0 (F (F  <  ( $q,@D u,@D !  1  (F (F  < m2@  < y,@  u2 m2222( F Y ]"] "  6  ~ z| zzzz ~MvM >*AA  M  M M M M M MM ,M M M$ MMM4MMM> M>&M.M$R R R ,M M M M M M M M M M M MM ,M M M$LM M  MMM4M2@M FMM4M4M(M6A6M MM M .FM M .FM M .FM ZM M M M M M M M M M ZM M M M dM 0M M >A6M MM M .FM M .FM M .FM t(8M&MMM DMM zz ~*. 0 t2J2 t(4*@ LR "M  >"> " "z ~!E  =  9  5  1  -  )  %  !    ~ A p>d,$$$D@$$R$$$<$<D<$2 *d] V .@, . x <H  D fD :V~ :"<.8V <4D4LD 8X^Z:DD\DZ:JD\DhD@D0nXX &DD660XXD f  &DDD6:66XXXD D f &DD660XX$ &DD66XX D &22 60$<$<,  <0&  N>,.    \   (**((228$$$$           \     &**J2 62$ ($ F d d d""   < < < <""   <"" :P :P    F d d d229 &&b&N,0>J  ( r|~Y] IY Y $]=I`apQaQ Q%QIMprVVvu %%)<E<<<i@@AA)J)KQNmNeVV^`%d-dMde]ff-g h)hhhMpQQYQqqqyqY+(02Nz   a