ئhGIִ.Q g .TStringList<*fTStringsRg+cdSysUtilsZkgIntToStrJ 7g FileExists Ut7gTrim~ 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@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~ gRightyQg CleanString~ g AddToTabley)g ProveRealM:g curFormat:jgUpdateBatchStatusz3>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  sLastCallTransactionTypeIDf sLastSupplierCallCodeIDf) LogTextFilef5 sFromDatef9 sToDatef= lDatesAreSetf"A lBillingDateIsSetf"E lThisIsAPABXf"Q(StartNewLogFiled2!Value LogFilef$c( LogToFile2!Value LogFilef$cj'UniqueRecordID_CF'AccountNumber_C'BillPeriodStartDate_CF'BillPeriodEndDate_CF'ChargeableItem_CF'RemedyCINumber_C'RemedyCIDescription_C' ProductType_C' StaffID_C'User_C' CostCentre_C'CustomProduct_CF'ChargeCategory_C'ChargeTypeCategory_C'ChargeTypeCode_CF' ChargeType_CF'InvoiceSummaryGroup_C'Qty_C'Unit_C'Rate_C' StartDate_CF' StartTime_CF' EndDate_CF'CommissionDate_C'DecommissionDate_C'NumberDialed_CF' OriginPlace_CF'RateDescription_C'CallEventSessionCount_C' Duration_CF' VolumekB_C'PurchaseOrder_C'ProjectNumber_C' ExclGST_CF' InclGST_CF'AdditionalInformation_C'ServiceRequestTitle_C'LeasePaymentMade_C'RemainingLeasePayments_C' SiteCode_C' SiteName_C' Location_C'AEnd_C'BEnd_C'DisputeReason_C'DisputeDescription_C'PROGRESS_MAX_CF'sCommaF('sCRF(k(GetDetailCRSdbpaTPAMS\2!FName!D! nBatchNumber" lReturnCode&" nFileSize sPartFileNamef nBackSlashAt TelstraFilef$a CurrentFilef FileIterationf ReadStringf SubStringf vSubStringf&! ConvertStringf curValuef( nSoFar nBatchID sBatchIDf sLastDetailCodef4 sCallTypef lFound" sListValuesf sListFieldsf FieldStringListf ValueStringListf qryStringListf slAddFieldNamesf slAddFieldValuesf qryDCf qryDSf nListValues nDummyf lContinuef" lDataSaved" lValueIsRealf" nPosc(BillingInputCRSdbpaTPAMS02! stInFilesf!nBatchf lContinuef" lSuccessfulf" sPartFileNamef nBackSlashAt nPos iCounterc(TelstraInvoiceCRSdbpaTPAMSYa2!nBatchf! sDirectoryf!nProgramf lContinue" stFilesf OpenDlg c( FinalizationX,Td! 2c(TelstraCRSdbpaTPAMS!2cMjXM,Custno,ServCode, ServiceID,RentFrom,RentTill(,CallFrom8,CallTillHcD.A0?@K68D:>B8>D.>lTServiceDetails,4S4؋Ӌ[  !"#$%&'()*+,-d, UQHjjIuMSVW3Uhd0d V}f^U܋EȲEIJEEE E E E EE Q4EDQ4MܺXEQ4EtEUQXEER@EE3EEE~#ۅ-=3Y@3EU*U؍EPE+ˍSEUōMܺhuh3UE3Uhd2d"UPEu E3E}u$jf 3Ҹb U33Uhd2d"P EEUEQ,EȋR@EċR@E̺tEкES UU츔؅~,EPEȍSEU츔؅ԍE̺uhuhEкES UE̺uhEhEкES UEM EE̺uhuhEкE̺uhuhEкES UM EE̺uhuhEкES UE~*E̺uhuhEкES UE~fM EE̺(uhuhEкES UM EE̺(uhuhEкŰEȋQ4UЋEċQ4EEES UE~;E̺8uhEhEкES UE~;E̺HuhEhEкES UEE̺\uhuhEкU|UUhPttYQXQXES ~EԺBES uEԺ EԺER@ER@tEQ4h5hEQ4EQ4huhEQ4 EQ4huhEQ44EQ4EQ4PEQ4EQ4dEQ4tEQ4MUhPtuhhE̺u5h5hEк@uhhE̺u5h5hEкES UE~uE̺U~Eк EкE̺ uhEhEкES UE~;E̺<uhEhEкŰEȋQ4UЋEċQ4EEES UEuETUE}u ETE̺`uuhEкE p<$}ES UEuETUE}u ETE̺|uuhEкE p<$m}E̺mvEum5p<$P hEкCum5p<$P hEкE̺uuhEкŰEȋQ4UЋEċQ4ER@EQ4EȋRK|%C3֋Eȋ8W EQ4FKuދEċRK|%C3֋Eċ8W EQ4FKuދEUEE ]E;~U}t"} E3ZYYdE3ZYYdh$EEEEEEEEEPUȺEE$E3ZYYdhE̺EEE_^[] dbPPdataSELECT tBatch.BillingPeriod FROM tBatchWHERE tBatch.ID = BillingPeriodv4L?B\Telstra CRS TPAMS Batch: Reading  ...Unique Record ID,YIncorrect input file type. This file is NOT formatted as a CRS TPAMS Account. Try again.(VALUES (- SequenceNo,'', ServiceID,0TxnDate, FromDate,TxnTime,ToDate,Origin, Duration, CallCode,CodeTransactionTypeSupplierCodeIDOtherOTHER00:00:00RENTCALLAmountCategory DescriptionTransactionTypeID SupplierIDActive1tSupplierServiceCodeTransactionTypeID,SupplierServiceCodeID,,Peak,N Peak1,0,RateDescription,DialledNumber,0.0 AmountExGST,@F AmountIncGST,GSTAmount,GSTFlag,,'Y',,'N',BatchID))INSERT INTO tDataCollection.00UjjIuQSVUE3Uhmd0d E3 Q4Q4Q4tjf 3ҸMܺ<EUءUظR@HQ4xQ4Q4UԋEMԍEغU؋Q4tjf 3Ҹ E` UԋQXEԍUUظt ~]EP+΍VEPEPIUԸYt E}R@ Q4 Q4E؋ U؋Q4< Q4T Q4tx dMܺ U܍EEԍUUظMܺ U܍EEԍUUظƋRJƹ 0V tx dMܺ U܍EEԍUUظMܺ U܍EEԍUUظƋRJƹ 0V tx NMܺ UܸMܺ U܍EEԍUUظƋRJƹ 0V tx dMܺ U܍EEԍUUظMܺ U܍EEԍUUظƋRJƋQD 3ERH@E3M֋ES *U0 ؍EPE+ˍSEU0 h< uhP EغUء3EPM؋֋ES E؋RHME EEFM-} EEUE}t:jh` UԋEuhp EغEf =jh` UԋEuh h EغEf 33ZYYdhtEԺEE^[]dbPPdata SELECT idFROM tSupplier"WHERE SupplierName LIKE 'TELSTRA%'=TELSTRA not found in the tSupplier table. Processing stopped.id$SELECT tValidAccountNumber.AccountNoFROM tValidAccountNumberIINNER JOIN tBatch ON tValidAccountNumber.BatchTypeID = tBatch.BatchTypeIDWHERE tBatch.ID = IBatchType not found in the tValidAccountNumber table. Processing stopped. AccountNo qSELECT Code, CAST(TransactionTypeID AS VARCHAR(20)) AS TransactionType, CAST(ID AS VARCHAR(20)) AS SupplierCodeIDFROM tSupplierServiceCodeWHERE SupplierID = AND Active = 1AND Description LIKE 'RENT'NULLCodeSupplierCodeIDAND Description LIKE 'CALLS'AND Description LIKE 'Unknown%'$AND Description LIKE 'MISCELLANEOUS'\Reading  ...Batch ': Passed all tests for Critical Errors.3: Critical errors found. These must be resolved &before this invoice can be progressed.USV3ۉ]]MUEE3UhVd0d E3Uh,d0d FTlFXE~ UU3EUUFdFPƋR<؍UFpQUEQ,t*ERÄt}[UE3ZYYdh3E3ZYYdh]EE^[]6Telstra Billing file (*.csv)|*.CSV|All files (*.*)|*.*%Select The Telstra Account Data FilesU3Uhd0d 3ZYYdh]Ã-m MM:nnn~  ~      !%)-159=AEIMQUY]aeimquy}<"P     J J J J J E   E   && 8  <R  , aa a]  $ e >  e> e e@~ J ( 2 2e  "& ]Ee  F   i,T $  ,T ),T. ,!  ",T ,! -,T 1,T& ,! ",T ,! <A,T %M,T %2T%     u" u ,   u ,  }    &  -&   *   & & &q& ) u  u   u      }   ,T     %=,T %<],T -  V 1 a,T -  V 1" ">X>X F] ] a e e 6 8   " P" ,! 92u9"i E  9 9$9$9(99 "9 mm Pq 49$9$9 P9 .(99 "9&T   9   *    9 ""49$9q 9 :9$9 y 9 9Ty 9T 29 } 9 9T} 9T 29  9 9 9T 29  9 9T 9T @ E  e eB e \9 9 99e> e e@4=0e  e E 59P99"9P9 99"9 Y]:]J ]E0 2] 4b4]  ]RF9] ] yyQ                              }  y  q y }Q }imj  &P..&&N*   F$6 "Ff$  < 4<  $R$ D2:D\D"n:DDn:D:DnDDn:D\D\f :&<T^  PL\VV <4P4LD"\D\D&0<D&0F0$<$<  0$<P( .  @$V,$$$48 4$$$V*X$$  $$F$$8dd<8dd<88d<8dd22$.6"Z$ N6 * tA^,0>,0t! ,"uu]u:ul 1@1jA prPP~!a55q55u%%!i>!>!9?!?-5@@@-AuA-B9X0UMUyUUYQ9QY ]00rum-ummmy } a