ئhG_ִ.Q g .TStringList<*fTStringsRg+cdSysUtilsZkgIntToStrJ 7g FileExists Ut7g UpperCase~ gTrim~ g StrToFloatmg FloatToStrFǜf TFloatFormat5XgffFixedAgFormatDateTimeP}EgNowN gExtractFilePath~ cdMessagesZkcdSysInitZkcdSystemZkf AnsiString8f TDateTime_IfString8fLongint|ogFalse1ofInteger|ofRealBYrPfBooleanNcfTextFileFMg AssignFileg@Assignf gRewriteg @RewritText+Ug CloseFileg@CloseX,Tdg@_IOTestX,TdgAppendg@AppendX,TdgWritelng@Write0LStringX,Tdg@WriteLnX,TdgChrfVariantJh7fCurrency,eigTObject.Create݋RgPosg@LStrPosX,TdgCopygLengthg@LStrLen?g @LStrCopyX,TdgResetg @ResetText+UgReadlng @ReadLStringX,Tdg@ReadLnX,TdgIncgTrue1ogRoundgEofg@EofTextX,Tdg TObject.Free݋Rg@LStrClrg @LStrCat3X,Tdg @LStrLAsgX,Tdg @LStrCatNX,Tdg@LStrCmpX,Tdg@LStrCatX,Tdg@LStrAsgX,Tdg @VarFromLStrjg @LStrToStringX,Tdg @PStrNCpyX,Tdg@ROUNDX,Tdg@HandleAnyExceptionX,Tdg @RaiseAgainX,Tdg @DoneExceptX,Tdg@HandleFinallyX,Tdg@VarClrX,Tdg @LStrArrayClrX,Tdg @VarToIntX,Tdg @VarToLStr kgParamStrg @LStrAddRefX,TdceFormsZkgTCustomForm.Hidej-gTCustomForm.Createj-gTCustomForm.Showj-ceComCtrlsZkgTProgressBar.SetPositionceTelstraFunctions ceConstantValues gINIFILEDIRECTORY*%;g%PIMPORTBILLINGFILE_TELSTRA_TPAMS_PABXۡceProgress f TProgressForm%g TProgressForm.ProcessWinMessagesg.TProgressForm<ce CriticalTests gCriticalErrorTestptace FileFunctions g GetFileSizece DateFunctions ceGenFns gReplacePartString,g AccountFormat~ gYMD2DMY~ g CleanString~ g AddToTabley)g ProveRealM:g curFormat:jgRightyQgUpdateBatchStatusz3>ceDataMod gDMiceMain gMainForm.|ceMathZkc*TServiceDetails@, .1f.% LOGPROGRESS 0%LOGDEBUG 0 nCountfd nFactorf f frmProgressf*h SequenceNumberfj nSupplierIDfl sSupplierIDfn qryTelstrafp sRentCodeIDfr sCallCodeIDft sOtherCodeIDfv sDiscountCodeIDfx sSupplierRentCodeIDfz sSupplierCallCodeIDf| sSupplierOtherCodeIDf~ sSupplierDiscountCodeIDf sAccountNumberf sLastCallCodef  sLastRentCodef sLastOtherCodef sLastCallTransactionTypeIDf sLastRentTransactionTypeIDf sLastOtherTransactionTypeIDf! sLastSupplierCallCodeIDf) sLastSupplierRentCodeIDf- sLastSupplierOtherCodeIDf1 LogTextFilef5 sFromDatef9 sToDatef= lDatesAreSetf"A lBillingDateIsSetf"E lThisIsAPABXf"Q(StartNewLogFiled2!Value LogFilef$c( LogToFile2!Value LogFilef$cj' LineCode_CF' BillNumber_C'TelstraServiceNumber_C' ChargeCode_CF' ServiceID_CF'GrossAmountExGST_C' AmountExGST_CF'AmountIncGST_CF' GSTFree_CF'UniqueRefNumber_C'ChargeDescription_CF'InvoiceSummaryGroup_C' CostCentre_C'ChargeQuantity_C'ChargeUnitofMeasure_C' StartDate_CF' StartTime_CF' EndDate_CF'PurchaseOrderNumber_C'InstalmentPaymentNumber_C' Merchant_C'Merchant_ABN_C'MerchantContact_C' Description_C'UniqueRefNumber_UC' ChargeCode_UCF' ServiceID_UCF'GrossAmountExGST_UC'AmountExGST_UCF'AmountIncGST_UCF' GSTFree_UCF'CallDuration_CF'CallMeterUnits_C'NumberDialled_CF' Destination_C'Origin_CF' BillCycle_C' Customer_C'ProductionDateTime_C' TotalRows_CF' IssuedDate_CF'PROGRESS_MAX_CF'sCommaF('sCRF(k(GetDetailFixedTPAMS2!FName!D! nBatchNumber" lReturnCode&" nFileSize sPartFileNamef nBackSlashAt TelstraFilef$a CurrentFilef FileIterationf ReadStringf SubStringf vSubStringf&! ConvertStringf curValuef( nSoFar nBatchID sBatchIDf sLastDetailCodef4 lFound" sListValuesf sListFieldsf FieldStringListf ValueStringListf qryStringListf slAddFieldNamesf slAddFieldValuesf qryDCf qryDSf nListValues nDummyf sInputLineCodef lContinuef" lDataSaved" lValueIsRealf"c(BillingInputFixedTPAMS02! stInFilesf!nBatchf lContinuef" lSuccessfulf" sPartFileNamef nBackSlashAt nPos iCounterc(TelstraInvoiceFixedTPAMSYa2!nBatchf! sDirectoryf!nProgramf lContinue" stFilesf OpenDlg c( FinalizationX,Td! 2c(TelstraFixedTPAMS!2cMjX],Custno,ServCode, ServiceID,RentFrom,RentTill(,CallFrom8,CallTillHcD.A0?@K68D:>B8>D.>lTServiceDetails,4S4؋Ӌ[  d, UQhjjIuMSVWً3Uh d0d V }f^U܋3۸E̲EȲEIJEE E E E EE Q4E Q4Mܺ!EQ4E !EUQXEER@EE3EEE~#ۅ-0!=  u> u u@ ( 2   0u  "J mUu  %.2VT <   y y Pi,V )=,V -A,V ,V 1},V 1e2V1     "  ,    ,      *   && 5               ),V     1,V 1<q,V 9  X = u,V 9  X =*y,V  >Z>Z F6,  <   y y P,V )=,V -E,V  2V1     "  ,    ,      *   && 5               ),V 1<,V 9  X = ,V 9  X =*!,V  >Z>Z F6,  <   y y P,V )=,V -E,V  2V1     "  ,    ,      *   && 5               ),V 1<,V 9  X = ,V 9  X =*!,V  >Z>Z F6,  2V1 X  q 2V12V1 m m q u u 6 8   " P" ,A ܕI2I"y U  I I$I$I(II "I }} P 4I$I$I PI .(II "I&V   I   *    I ""4I$I I :I$I  I IV IV 2I  I IV IV 2I  I I IV 2I  I IV IV @ U   u uB u \I I IIu> u u@4M0u  u U EIPII"IPI II"I Ym:mJ mU0 2m 4d4m  mRFIm m a                                                a Mmj  &AP..&&N*   F$6 "Ff$  < 4 $Rf*& `D\D\D:D\D\f :&<T^  \ <4P4LD"\D\D&0<D&0FD0$<$<*& `D\D\D:f :&<T^  \ <4P4LD\D&0<D&0FD0$<$< *& `D\D\D:f :&<T^  \ <4P4LD\D&0<D&0FD0$<$< f 40ff  0$J<P( .  @$}V,$$$48 4$$$V*X$$  $$F$$8dd<8dd<88d<8dd22$.6"Z$ N6 * tA^,0>,0t},"i   ] :  1@1jA prPP~A)iA% A Au  1y3141I414AE5A6 ? ?1S1YT1T1)UAUAV  ` `1)t1t1t1uAuA{a{{ |Aq}IX0eMeyeeia9ai m00r}-}}}  a