ئhGHveC g .TStringList<*gTStrings.SetCommaTextH*cdMessagesZkcdSysInitZkcdSystemZkfBooleanNcfLongint|ofString8f AnsiString8fInteger|ofRealBYrPgTrue1ogFalse1og@LStrAsgX,Tdg @LStrCat3X,Tdg @LStrArrayClrX,Tdg@HandleFinallyX,TdfTextFileFMfChargQfVariantJh7fCurrency,eigTObject.Create݋Rg AssignFileg@Assignf g SetTextBufg @SetTextBufX,TdgResetg @ResetText+UgStrg@Str2ExtX,TdgReadlng @ReadLStringX,Tdg@ReadLnX,TdgLengthg@LStrLen?gEofg@EofTextX,TdgPosg@LStrPosX,TdgCopyg @LStrCopyX,TdgRoundgIncg CloseFileg@CloseX,Tdg TObject.Free݋Rg @LStrLAsgX,Tdg@LStrClrg@_IOTestX,Tdg@LStrFromString|g @LStrCatNX,Tdg@LStrCatX,Tdg@LStrCmpX,Tdg @VarFromLStrjg @VarToLStr kg@ROUNDX,Tdg@VarClrX,TdgParamStrg @LStrAddRefX,TdceComCtrlsZkgTProgressBar.SetPositionceControlsZkgTControl.SetTextc_gTControl.SetVisiblee_ceFormsZkgTCustomForm.Createj-gTCustomForm.Showj-gTCustomForm.Closej-ceGenFns gYMD2DMY~ g CleanString~ gConvertTimeToSecs~ g AddToTabley)g DeleteFromDC.gUpdateBatchStatusz3>ce MyMessage ce FileFunctions g GetFileSizece DateFunctions ceProgress f TProgressForm%g.TProgressForm<g TProgressForm.ProcessWinMessagesceDataMod ceMain gMainForm.|ceMathZkceConstantValues g#PIMPORTBILLINGFILE_OPTUS_FIXED_LONGۡce CriticalTests gCriticalErrorTestptac .1f$ nSupplierIDf. sSupplierIDf0 qryOptusf2 sRentCodeIDf4 sCallCodeIDf6 sOtherCodeIDf8 sDiscountCodeIDf: sSupplierRentCodeIDf< sSupplierCallCodeIDf> sSupplierOtherCodeIDf@ sSupplierDiscountCodeIDfB fGSTRatefD( GetReferences=KQQ 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_C'CODE3_C'COST1_C'COST2_CF'COST3_CF'DESC7_CFk( GetPhoneDataUۜc~&! ProgramID !nBatch!FName" lReturnCode& COST2_Nf COST3_Nf DESC7_Nf CALLCODE_Nf 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 q nListValues qryDCfa sLastCallCodefQ sLastCallTransactionTypeIDfA sLastRentCodef1 sLastRentTransactionTypeIDf! sLastSupplierCallCodeIDf sLastSupplierRentCodeIDf lFound nLenSubString curAmountChargedf sCallTillf sDialledNumberfc(OptusFixedInvoice?! &! ProgramID !nBatch! sDirectoryf OpenDlg  lContinuef sFilef slDummy c( FinalizationX,Td)! &c( OptusFixed!&cD$@L@*D$ h =&>) h2=(=&> h =&>- h2=(= ! h =&>1 h2=(=&>% h =&>5 hH==  =l n IMQUY]aeimquy}@2m]< N xN xN xN xN x   =I Z|,    <8 > (  N x(  0PY,>J  ]2@>U,>      a,> e,> 22q,> m,> >>$" <u2>$  >>  @   <>>B     94D 9$D  J>&  .     - * &0&       .     -  ]2> (e,>B&  4],>&"  .     ) * &0&       .      4D    94D 9$D <i$i2>&a2>j,a,>i2>&i,> 6 $],> $e,>B&  4],>&"  .     ) * &0&       .      4D    94D 9$D <i$i2>&a2>j,a,>i2>&i,> 6 i2> a2 ( F M Q"Q "  6  n l llll nQ6Q, .Q h0F0Q h(2*> HN x Q<QQ Q<Q QQ QQ  Ql n)qq 5  1  -  )  %  !       q nu  uX:>,$$$$,4$$F$$XX<XX<BX<XX2 *HY T  .@, . x <H  D fD:&:00D\DD\D\>Z:f @> r@>0r&&> <FPV <FJ&*DJDB<FPV <FF4@dr(D D f&D&DJD:B<FPV <FF4@dr(D D f f40$<$<,  <0&  Z,0>J   ( r|~9) b}a =`pE|EEE1NprTT TpY  '=(=(=}.=.90=!5=15=:= ;ACADQGG=]L=mL=5R=ERAZA[^`aaac dUddee1fmfQ(p2YZUZ aamm1UqYq u a