ئhGiveC g .TStringList<*cdSysUtilsZkgIntToStrJ 7g FileExists Ut7gTrim~ g UpperCase~ g StrToFloatmgExtractFilePath~ cdMessagesZkcdSysInitZkcdSystemZkf AnsiString8f TDateTime_IfString8fLongint|ofBooleanNcfInteger|ofRealBYrPfTextFileFMfVariantJh7fCurrency,eigFalse1ogTObject.Create݋RgPosg@LStrPosX,TdgCopygLengthg@LStrLen?g @LStrCopyX,Tdg AssignFileg@Assignf gResetg @ResetText+UgReadlng @ReadLStringX,Tdg@ReadLnX,TdgTrue1ogEofg@EofTextX,TdgIncgRoundg CloseFileg@CloseX,Tdg@LStrClrg @LStrLAsgX,Tdg @LStrCat3X,Tdg @LStrCatNX,Tdg@_IOTestX,Tdg@LStrCmpX,Tdg@ROUNDX,Tdg@LStrCatX,Tdg @VarFromLStrjg @VarToLStr kg@HandleAnyExceptionX,Tdg @RaiseAgainX,Tdg @DoneExceptX,Tdg@HandleFinallyX,Tdg@VarClrX,Tdg @LStrArrayClrX,Tdg@DynArrayClearwgg TObject.Free݋Rg @VarToIntX,Tdg@LStrAsgX,TdgParamStrg @LStrAddRefX,TdceFormsZkgTCustomForm.Hidej-gTCustomForm.Createj-gTCustomForm.Showj-ceComCtrlsZkgTProgressBar.SetPositionceTelstraFunctions gApplyTelstraDataRatesceProgress f TProgressForm%g TProgressForm.ProcessWinMessagesg.TProgressForm<ce MyMessage ceMathZkceMain gMainForm.|ce FileFunctions g GetFileSizeceGenFns g CleanString~ g AccountFormat~ gConvertTimeToSecs~ g AddToTabley)gRightyQg curFormat:jgYMD2DMY~ g DeleteFromDC.gUpdateBatchTotalsgUpdateBatchStatusz3>ce DateFunctions gFormattedDateString_tg LastMonth8ng StrDMYtoDate_tceDataMod gDMM^ce CriticalTests gCriticalErrorTestptac*TServiceDetails@**TCallHeaderTypeh, .1f. nCountf nFactorf  frmProgressf(  sAccountNumberf  nSupplierIDf sSupplierIDf qryTelstraf sRentCodeIDf sCallCodeIDf! sOtherCodeIDf% sDiscountCodeIDf) sSupplierRentCodeIDf- sSupplierCallCodeIDf1 sSupplierOtherCodeIDf5 sSupplierDiscountCodeIDf9j'PROGRESS_MAX_CF*.20k(GetDetailDataEBS6!2!FNameb!Df! nBatchNumberf" lReturnCode& nFileSize sPartFileNamef sPartResultSetf EntryCodef nBackSlashAt TelstraFilef" CurrentFilef FileIterationf Tf SubStringf vSubStringf$ curValuef& nSoFar dBillingf sBatchf LastEntryIs_1f CallHeaderf, sLastDetailCodef4 DBfromDatef DBtoDatef aResultSetf0 nResultSetf nStartSearchAtf lFoundf nCommaPositionf sListValuesf sListFieldsfq FieldStringListfa ValueStringListfQ qryStringListfA slAddFieldNamesf1 slAddFieldValuesf! qryDCf nListValuesf nDummyf sInputLineCodef lSaveToTablef sRateDescriptionf sLastServicef sLastServiceIDf lDataSavedf lContinue nDataCollectionIDfq sLastCallCodefa sLastTransactionTypeIDfQ lNextAccountNumberfM sNextAccountNumberf1 nNextAccountNumberf!c(BillingInputDataEBSs<A/2! LumpedCostsb! IncludedRateb! stInFilesb!nBatch& lContinuef sPartFileNamef nBackSlashAt nPos EmptyListc(TelstraInvoiceDataEBS:12! LumpedCostsb! IncludedRateb!nBatchb! sDirectoryf lContinue stFilesf OpenDlg  EmptyListc( FinalizationX,TdQ! 2c(TelstraMobileDataEBS!2cMjX1,Custno,ServCode, ServiceID,RentFrom,RentTill(,CallFrom8,CallTillHcM!5, SequenceNo6, ServiceID8,TxnDate:4,TxnTimeR,Duration@|,CallCodeB!,RateDescriptionD-, DialledNumberF, ServiceNotesH, AmountExGSTJU, GSTAmountL, AmountIncGSTN,ToDatePcD.E(}R@KTVKXVK$ZVK\VK ^VK*`VKbVKdVKBfVK$hVK.jVKlVKnVKpVKrVLt*Dv>BV>Dv>Dv>Dv>Dv>Dv>Dv >Dv>Dv >Dv>Dv>Dv >Dv >Dv >Dv>DD.>l+TServiceDetails,d.2,UQojjIuMSVWMUE3UhT+d0d ƅSL3Hh+}fUċEƅcEEEEE Et+EEEU3E)E~#ۅ=+-+3Y@3EU*U+؍EPE+ˍSEU+ōMĺ+h+uh+3U䍅||3Uh*d2d"U܍||PE+uPE ,Äu$jf ,3Ҹ$,Uܸt,Äu!jf ,3Ҹ,OPE,Äujf ,3Ҹ,u$jf ,3Ҹ(-&3P %EÄutU܍|| ݝx݅x;~u|.%3Uh)d2d"ƅsPREttx-PREtt-~ ƅs!PWEuuPt-u;P\Elƅs PWE-u ƅs t- l-ER@ER@E-E-PWEUE~*E-uh-uh.EP=EUE؋hthUdhE.uh-dh.EEP]EE~zPEh(.PEEغE4.uh-uh.EEPfEE~*EH.uh-uh\.EP lEUE~;El.uh-Eh.EPEUE~WEEE|.uh-uh.EPtUEE.uh-uh.EXUXXUlU.Pl.0E}t+.TTER@ER@.EQ4h-Xh-EQ4.EQ4.EQ4.EQ4.EQ4 /EQ4TEQ4(/EQ4EQ4MU  E> E E@ ( 2 D E  " |E  "6 E  "E  "J"TI *  = = A$ yEy E 0E @"V >"T"V |R"T@ 6"T"J"T 2 " |@  2T 2T " ,:2& , 2T 2T$" 8  (  U8 U ""] * &6Q&  U  U   ] 2T &    2T <2T 2T 2TX   2T B"T       <  2T 2T " ,:2& , 2T  >T$" 2T &    6"T" 2T 8  (  U8 U ""] * &6Q&  U  U   ] <2T 2TX   2T B"T    |N   >"T"V2"TV  | |   |@  2T " 8  (  U8 U ""e * &6Q&  U  U   e 2"T" <2T:@"T0  2TX    2T  B"T      "  6"T"V | <  2T " 8  (  U8 U ""] * &6Q&  U  U   ] 2"T" <2T  2T X   2T  B"T    N F!= = A  yEy E TB"TI BTI 2L0  = = A$ yEy E6T& > D   " |P" ,R*   }  U@UU  U U$U$U(UU "U MM PQ 4U$U$U PU .(UU "U&TI  I U |I I *I I  I U |""4U$UQ U :U Y U U&TY  U&Ti 2U ] U U&T]  U&Tm 2U a U U a  U&Tq 2U e U U&Te  U&Tu @   E EB E .U |U |UUE> E E@L x&@% E  E 0    -UPUU"UPU UU"U }:}L x}0 2} 4Z4}  }R8L x$U} }  9u  q  m  i  e  a  ]  Y  Q  I  9 q EZ. F$6 "Ff$  <VX 4$ .X * 4 |< &0$&8$T,v(r\vx\N:N "@,:,:N\NZ:T :(B V"\ :6NJ@N\N:N:N<40N08zh\:DPN:N "@,:,:N\,NZ:NJ$v@N\T :(B V"\ :6 N0N<40N08zh\:D( tvp N "@T :(B V"\ :6v:N20N<240N208zh\:D}N "@T :(B V"\ :6v:N20N2<40N208zh\:> 0.>.> "0$<BN"   < &0$<H4 .0@A ei id,$$$484$$$V*X$$ $$F$8XX<8XX<8BX<8XX22$6 "Z$  N * t^,0>,>tEI*,*UuUU U) UU U2URh pruI9y 9 9a 9 9 9A 9} m99ݤ=9-UP0u=uiuuqq]yyu}(0r--]y  a