ئhG cF

g .TStringList<*gTStrings.SetCommaTextH*cdMessagesZkcdSysInitZkcdSystemZkfBooleanNcfLongint|ofString8f AnsiString8fInteger|ofRealBYrPfCurrency,eigFalse1ogTrue1og @VarToIntX,Tdg@LStrAsgX,Tdg @LStrCat3X,Tdg @VarToLStr kg @LStrArrayClrX,Tdg@VarClrX,Tdg@HandleFinallyX,TdfTextFileFMfChargQfVariantJh7gTObject.Create݋Rg AssignFileg@Assignf g SetTextBufg @SetTextBufX,TdgResetg @ResetText+UgStrg@Str2ExtX,TdgReadlng @ReadLStringX,Tdg@ReadLnX,TdgLengthg@LStrLen?gEofg@EofTextX,TdgPosg@LStrPosX,TdgCopyg @LStrCopyX,TdgRoundgIntgIncg CloseFileg@CloseX,Tdg TObject.Free݋Rg @LStrLAsgX,Tdg@LStrClrg@_IOTestX,Tdg@LStrFromString|g @LStrCatNX,Tdg@LStrCatX,Tdg@LStrCmpX,Tdg @VarFromLStrjg@ROUNDX,Tdg@INTX,TdgParamStrg @LStrAddRefX,TdceComCtrlsZkgTProgressBar.SetPositionceControlsZkgTControl.SetTextc_gTControl.SetVisiblee_ceFormsZkgTCustomForm.Createj-gTCustomForm.Showj-gTCustomForm.Closej-ceGenFns g AddToTabley)gYMD2DMY~ gConvertTimeToSecs~ g CleanString~ g curFormat:jgcurSumPhg AccountFormat~ 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 qryVodafonef2 nAirCreditPercentf4 sRentCodeIDf6 sCallCodeIDf8 sCallAirCodeIDf: sCallUsageCodeIDf< sOtherCodeIDf> sDiscountCodeIDf@ sLastCallCodefB sLastCallTransactionTypeIDfD sLastSupplierCallCodeIDfF sSupplierRentCodeIDfH sSupplierCallCodeIDfJ sSupplierCallAirCodeIDfL sSupplierUsageCallCodeIDfN sSupplierOtherCodeIDfP sSupplierDiscountCodeIDfR curTotalExGSTfV curTotalGSTfX curTotalIncGSTfZ(GetVodaReferences~+(&" lContinuecj'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'COST2_CF'DESC7_CFk( GetMobileData-^(Q&!nBatch!FName" lReturnCodef lContinuef nFileSize InputTextFilef InputTextFileBufferf( sCaptionf ReadStringf ConvertStringf nProgressCountedf Progressf" nCountf nSoFar nFactorf vSubStringf A sFieldValueListf lSaveToTablef curAmountChargedf curAmountGSTf curTotalCallf curActualCallf sBillCodef cAbbrf sServiceIDf SubStringf sBatchfq sListFieldsfa sListValuesfQ FieldStringListf A ValueStringListf 1 qryStringListf ! slAddFieldNamesf  slAddFieldValuesf  nListValues qryDCf lFound sRentFromf sRentTillf sCallFromf sCallTillfc(VodafoneInvoice% &!nBatch! sDirectoryf OpenDlg  lContinuef EmptyList  sFilefc( FinalizationX,TdQ! &c(Vodafone!&cD$@L@*D$- lup>Q l2u 1 u lup>1 lup>U l2u 5 u lu5 pup>Y l2u 9 u lu9 pup>] l2u = u lu= pup>a l2u A u lup>A lup>e l@urt v}DL< N ~N ~N ~N ~N ~   u"} Z,     <8 > (   N ~(  &    *P,>*P  2@>,>   $,>   EEl  %" % ,I l  % ,M lI 1 l M U l* E  &I!&  %  %   %  I  M  1  U ,> ,>  222,>$" <,> ,>  @   2> 2>  2> 2> <,>B"* ,>  @ ,$D"D,D    A  e ,>B"  , ,>  @ ,$D"D,D 2< 2>",  -  Q ,>B"  , ,>  @ ,$D"D,D 2 2< 2>", > &)   *  , 5  Y  $D " ($D"D  <   F ,.  6  2@>,>   9  ]  $D " ($D"D  <   2>"* 2  2  2  2  $,>  -  Q ,>B  ,    <  - 2>"4 ,>B2 $&B i&B m&B q2 F  " "  )   *  L    5  Y  $D " ($D"D  <   F ,.  ,  2@>,>   9  ]  $D   " ($D"D  <   F D,,,& nD i i  im m  mq q  qi m q B     =  a  i iD   m mD q qD  <   F &  v rt rrr ve*e , .e l0F0e l(2*> HN ~  e<ee e<e ee ee  er v5e  a  ]  Y  U  Q  M  I  E  A  =  9  5  1  -  !  v i jF,$$$$$$<$$$*84$$F$$8dd<8dd<88d<88d<88d<8dd2b1X 4 @, . x <H   < D "fD: &D :&<T^  \ <4P4LD\D DZ:D\D @hf h\D6*0D:@ X&&LD6D0D:@ X &LD6D0D:@ X &nP*D4Lp60$<$<BNfD:4Lp6 &&D&4LDD00D LLP0$<$<,  0P*DLp60$<$<BDfD:Lp60$<$< ",,,,TtttnLddd0$<$<& N,0>J  ( r|~ma%-%du@80yFyANprXXUIQQITImUIUI=VIQtItI!uIuvv!w]wI݁IeII5II=II ImII=Iše(02iNqzqyyi  a