ئhGnveC g .TStringList<*cdSysUtilsZkgIntToStrJ 7g FileExists Ut7g StringReplaceV0ٖf.93g rfReplaceAll5gTrim~ 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,TdgEofg@EofTextX,TdgIncgRoundgTrue1og 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 @LStrArrayClrX,Tdg@VarClrX,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 ProveRealM:g DeleteFromDC.gUpdateBatchTotalsgUpdateBatchStatusz3>ce DateFunctions gFormattedDateString_tg LastMonth8ng StrDMYtoDate_tceDataMod gDMM^ce CriticalTests gCriticalErrorTestptac*TServiceDetails@,*TCallHeaderTypeh. .1f0 nCountf ~ nFactorf" frmProgressf* nSupplierIDf  sSupplierIDf  qryTelstraf sRentCodeIDf sCallCodeIDf sOtherCodeIDf sDiscountCodeIDf! sAccountNumberf%j'PROGRESS_MAX_CF 'CODE_C 'TACC_C 'ACCTO_C 'ACCT_CF 'DESC05_CF 'DESC06_CF 'DESC07_CF 'DESC08_CF 'DESC09_CF 'DESC10_CF 'DESC11_CF 'DESC12_CF 'DESC13_C 'DESC14_CF 'DESC15_CF 'DESC16_C 'DESC17_C 'DESC18_C 'DESC19_C 'DESC20_C 'DESC21_C 'DESC22_C 'DESC23_C 'DESC24_C 'DESC25_C 'DESC26_C 'DESC27_C 'DESC28_C 'DESC29_C 'DESC30_C 'DESC31_C 'DESC32_C 'DESC33_C 'DESC34_C *.22k( GetDetailData6!a4!FNameb!Df! nBatchNumberf" lReturnCode& nFileSize sPartFileNamef sPartResultSetf EntryCodef nBackSlashAt  TelstraFilef$ CurrentFilef FileIterationf Tf ReadStringf SubStringf vSubStringf& curValuef( nSoFar dBillingf sBatchf LastEntryIs_1f CallHeaderf. sLastDetailCodef6 DBfromDatef DBtoDatef aResultSetf2 nResultSetf nStartSearchAtf lFoundf nCommaPositionf sListValuesfq sListFieldsfa FieldStringListfQ ValueStringListfA qryStringListf1 slAddFieldNamesf! slAddFieldValuesf ConvertStringf qryDCf nListValuesf nDummyf" sInputLineCodef lSaveToTablef lDataSavedf lContinue sRateDescriptionf sLastServicef sLastServiceIDfq nDataCollectionIDfa sLastCallCodefQ sLastTransactionTypeIDfA lNextAccountNumberf= sNextAccountNumberf! nNextAccountNumberf c(BillingInputDatas<+4! LumpedCostsb! IncludedRateb! stInFilesb!nBatch& lContinuef sPartFileNamef nBackSlashAt  EmptyList nPos c(TelstraInvoiceData:14! LumpedCostsb! IncludedRateb!nBatchb! sDirectoryf lContinue stFilesf OpenDlg  EmptyListc( FinalizationX,Td! 4c(TelstraMobileData!4cMjXA,Custno,ServCode, ServiceID,RentFrom,RentTill(,CallFrom8,CallTillHcM!E, SequenceNo8, ServiceID:,TxnDate<4,TxnTime>F,Origin@R,DurationB|,CallCodeD!,RateDescriptionF-, DialledNumberH, ServiceNotesJ, AmountExGSTLU, GSTAmountN, AmountIncGSTP,ToDateRcD0E(T@KVXKZXK$\XK^XK `XK*bXKdXKfXKBhXK$jXK.lXKnXKpXKrXKtXLv,Dx>BX>Dx>Dx>Dx>Dx>Dx>Dx >Dx>Dx >Dx>Dx>Dx >Dx >Dx >Dx>D D0>lTServiceDetails,d  !.2,UQpjjIuQMSVWMUE3Uh@.d0d ƅOH3DƅjT.}fUEEEEEEE |`.|EEU3Eh,E~#ۅ=l.-p.3Y@3EUU.؅~.EPE+ˍSEU.؅ҍM.h.uh.3U䍅xx3Uh,d2d"U؍xxUظ.Äu!jf .3Ҹ.OPE4/Äujf .3Ҹ@/u$jf .3Ҹ/)/PP/.EEع/U؋EQ,3ES ÄU؍xxEuxu=/PP/.EEع/U؋EQ, ݝp݅p;~u9Ex9(3Uh,d2d"ƅkER;|M܋E0V E0V PE0V Xll/E0V PE0V XlPEUl} ƅk"EuuPl0u;PEdƅk,"E0u ƅk"l 0d00ER@ER@E@0EL0PEUE~*E`0uh/uht0EMԋE0V Eԋ`t`U\`E0uh/\ht0EEPEE~zPEh0PEEԺE0uh/uht0EEPEE~*E0uh/uh0EP EUE~;E0uh/Eht0EP;EUE~WEEE0uh/uht0EPlUEE0uh/uht0ETUrTUhU/Ph10E}t+ 1PPER@ER@1EQ4h/Th/EQ481EQ4P1EQ4`1EQ4P1EQ4t1EQ4PEQ41EQ4EQ41EQ41EQ4MU1E1uPh.E(E1u5h.EP7EUE~NE1E 2uE2 E$2E02uh/dht0EP&EUE~;EL2uh/Eht0EUEQ4UEQ4EEP<EUE~*Ed2uh/uht0EE0V UEt2uh$2uh.EE0V UE 2<$}̛E2m2uuuh2Euuh2EE0V UE2uuh.EEtEE0V EԺ0E$$EE%2$EE2uh/uht0EE 3uh/uht0El3tl,3ER@ER@E@0EL0PEUE~*E`0uh/uht0EMԋE0V Eԋ`t`U\`E0uh/\ht0EEPEE~zPEh0PEEԺE0uh/uht0EEPEE~*E0uh/uh0EP EUE~;E<3uh/Eht0El3P;EUE~WEEE0uh/uht0EP7EUE~NE1ET3uE2 E$2l,3u;PEdE02uh/dht0EP pEUE~;EL2uh/Eht0EPlUEE0uh/uht0ETUrTUhU/Ph10E}t+ 1PPER@ER@1EQ4h/Th/EQ481EQ4P1EQ4`1EQ4P1EQ4t1EQ4PEQ41EQ4EQ41EQ41EQ4MU1E1uPh.E(E1u5h.EUEQ4UEQ4EEE0V UE`3uuh.EE0V UE 2<$}̛E2m2uuuh2Euuh2EE0V UE2uuh.EEtEE0V EԺ0E$$EE%2$EE2uh/uht0EE 3uh/uht0Ex3l~ ƅkƅkl3t(l3tl3E0V PE0V XlE0V Ul3u"UԸ3NUԸ3=l3t+l3uUԸ4`ER@ER@E@0EL0E0V UEԋ`t`U\`E0uh/\ht0EPlUEE0uh/uht0ETUrTUhU/Ph10E}t+ 1PPER@ER@1EQ4h/Th/EQ481EQ44EQ4`1EQ44EQ4t1EQ4PEQ41EQ4EQ41EQ41EQ4MU1E1uPh.E(E1u5h.EPEdEԋdE~*E02uh/uht0EUEQ4UEQ4EEE0V UEugE0V PE0V Xu ƅk Eu EԺ(4E`3uuh.EE0V UE 2<$}̛Eu EԺ(4E2m2uuuh2Euuh2EE0V UEu EԺ(4E2uuh.EEtEE0V EԺ0E$$EE%2$EE2uh/uht0EE 3uh/uht0EHl44lD4twl3uOP%ET4tld4ER@ER@E@0EL0E0V UEԋ`t`U\`E0uh/\ht0EPlUEE0uh/uht0ETUrTUhU/Ph10E}t+ 1PPER@ER@1EQ4h/Th/EQ481EQ4P1EQ4`1EQ4P1EQ4t1EQ4PEQ41EQ4EQ41EQ41EQ4MU1E1uPh.E(E1u5h.EPEdEԋdE~*E02uh/uht0EUEQ4UEQ4EEER|~E0V |E0V |xE0V xu1EUkE"E0V UEu EԺt4E 2<$2E0V t<E0V 2<$2ukE0V t<E0V 2<$2u ƅkE`3uuh.EE0V UEu EԺ(4E 2<$}̛E2m2uuuh2Euuh2EE0V UEu EԺ(4E2uuh.EEtEE0V EԺ0E$$EE%2$EE2uh/uht0EE 3uh/uht0EƅkƅkkE4uuh4EUEQ4UEQ4ER@4EQ4ERN|6FDžxxE8W EQ4xNuՋERN|6FDžxxE8W EQ4xNuՋ|U||ƅj ;~U؍xxE/PP/.EEع/U؋EQ,ES mES Ä=E0V HuDDOHE0V DžDU؍xxEuxu=/PP/.EEع/U؋EQ, ݝp݅p;~uBOu9EexM4 Ou"}xEj3ZYYdE3ZYYdh-xEEPU4ȺEE4EE3ZYYdhJ.xhHP\lEEEEEԺE?_^[] dbPPdataI,#^p?\Telstra Mobile Data Batch: Reading  ...,AIncorrect input file type. File type CSV is required. Try again.RBFIncorrect input file type. This is NOT a Mobile-type file. Try again.EThe Account specified is not in the file selected. Please try again. '2DDSEQ2D10D DATA (VALUES ( SequenceNo,', ServiceID,20TxnDate,TxnTime,:00',Origin, Duration, CallCode,CodeTransactionTypeAmountCategory'CALLS' DescriptionTransactionTypeID SupplierIDActive1tSupplierServiceCodeTransactionTypeID,Peak,P1,0,RateDescription,DialledNumber,Var01,RevenueFlag,AmountExGST,@FGSTAmount,GSTFlag,,'N',,'Y', AmountIncGST,? FromDate,ToDate,2D13D2D17D Destination, P AmountExGST,@2D11D@@2D12D@2S1A2A2S10VDISCOUNTREBATE1A02V2A02VROUND'OTHER'02S02D2S02VDATA2S11V0.00BatchID))INSERT INTO tDataCollection.00UQjjIuQMSVMUE3Uhd0d E Q4Q4Q4tjf 3Ҹ,EMtEUܡUܸR@Q4Q4Q4U؋EM؍Eܺ(U܋Q4tjf 3ҸDEU؋QXE؍UUܸ~]EP+΍VEPEPIUظY}0R@Q4 Q4E܋ , U܋Q4H Q4tl ,| U؋QXE؍UUܸƋRJƹ 0V tl ,| U؋QXE؍UUܸƋRJƹ 0V tl !| U܋QXUܸƋRJƹ 0V tl ,| U؋QXE؍UUܸƋRJƋQD 3M3ҋES *U ؍EPE+ˍSEU h uh, EܺUܡ3EMӋE}t'EPM3ҋES E܋RHM}MUE}uE EEUE}t:jh< U؋EuhL EܺEf =jh< U؋Euh| h EܺEf 33ZYYdhEغ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 FSELECT Code, CAST(TransactionTypeID AS VARCHAR(20)) AS TransactionTypeFROM tSupplierServiceCodeWHERE SupplierID = AND Description LIKE 'RENT'NULLCodeAND 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ۉ]]MUEE3Uhpd0d E3UhFd0d FTFXE~ UU3EUUFdFPƋR<؍UFpQUEQ,tDERÄt3ˋ֋EEPMUE3ZYYdhME3ZYYdhwEE^[]6Telstra Billing file (*.csv)|*.CSV|All files (*.*)|*.*$Select The Telstra Data Account FileU3Uhcd0d u<3ZYYdhj]Ã-mAA:llly}A H 0( "PL ~L ~L ~L ~L ~L ~    "$,   QQ QM  $  (  U >    U> U U@  (   U    "6  U    "U    "    T  <(u 2 Z     T  "M M Q$ yUy U$Z& 0 U *(2Z&2Z"\  $6("\"2"Z\>Z@  6"Z"4Z  2  "  @    2Z    , "    ,: 2&    ,    2Z    2Z$"    8     (    a8  a ""i *    &     6 ]  &   a  a      i  2Z  &          2Z    <2Z    ,Z    ,Z^         ,Z   (,   -)% -  %             <    2Z    , "    ,: 2&    ,    2Z      >Z$"    2Z  &        6"Z"    2Z    8     (    a8  a ""i *    &     6 ]  &   a  a      i  <,Z   ,Z^         ,Z   (,   -)% -  %         N      $6("\"2Z\            @    ,Z "    8     (    a8  a ""q *    &     6 ]  &   a  a      q  2"Z"    <,Z 6("Z0     ,Z^           ,Z     (,   -)% -  %           "    6"Z"\    <    ,Z "    8     (    a8  a ""i *    &     6 ]  &   a  a      i  2"Z"    <244<"Z.Z,Z  ^     *& &^     "& &^     2   ,Z  ^         ,Z     (,   -)% -  %        N   F uM M Q  yUy U     T  .(u ((u .2H@ Z     T  "M M Q$ yUy U6Z& R D    "  P"  ,R*       ]@a    $$( "" YY P] 4$$ P .( "&Zu  u  u u *u u  u  "4$]  : e  &Ze 2 i  &Zi 2 m   m 2 q  &Zq @   U UB U .  U> U U@L ~&@5  U  U 0  =P"P "  : L ~ 0 2  4`4    R8L ~$     11Iu  q  m  i  e  ] 1 5I 5 U\4  F$6 Ff$  <$ .X * 4dP<bd &0$4z$ " ,p :\v@\N:" "@,:,:N\NZ:T :(B V"\ :6NJ@N\N:D:D<40D08Nh\: DPN:" "@,:,:N\,NZ:NJ$v@N\T :(B V"\ :6 D0D<40D08Nh\:D(tf D "@T :(B V"\ :6v:D20D<240D208Nh\: D}D "@T :(B V"\ :6v: -B D2 0D2<40D208Nh\:> 04D 4D  "0$< dZPN  (<bd &0$t\4 .0@E yu 9d,$$$*84$$$V*X$$ $$F$8X<8X<8B<8X22$6 "Z$  N * t^,0>,>t,.*aaya- a a a0a:h !pr1---Q-a E    QQQ1QyQQ=QQQ1QQQQɲP0 ]   Ae (0r)!-)!!--!]-y1 5 a