ئhGveC g .TStringList<*cdSysUtilsZkgIntToStrJ 7g EncodeDateceDataMod gDMM^ceMain gMainForm.|ceMathZkc*TServiceDetails@,*TCallHeaderType ;. .1f0 nCountf | nFactorf"~ frmProgressf* nSupplierIDf  sSupplierIDf  qryTelstraf  sRentCodeIDf sCallCodeIDf sOtherCodeIDf sDiscountCodeIDf sSupplierRentCodeIDf! sSupplierCallCodeIDf% sSupplierOtherCodeIDf) sSupplierDiscountCodeIDf- sAccountNumberf1 sLastCallCodef9 sLastRentCodef= sLastOtherCodefA sLastCallTransactionTypeIDfE sLastRentTransactionTypeIDfI sLastOtherTransactionTypeIDfM sLastDiscountTransactionTypeIDfQ sLastSupplierCallCodeIDfU sLastSupplierRentCodeIDfY sLastSupplierOtherCodeIDf] lThisIsAPABXfij'PROGRESS_MAX_CF 'CODE_CF 'ACCT_CF 'TACC_CF 'INVC_C 'LINE_CF 'DESC06_CF 'DESC07_CF 'DESC08_C 'DESC09_C 'DESC10_CF 'DESC11_CF 'DESC12_CF 'DESC13_CF 'DESC14_CF 'DESC15_CF 'DESC16_CF 'DESC17_CF 'DESC18_CF 'DESC19_CF 'DESC20_CF 'DESC21_CF 'DESC22_CF 'DESC23_CF 'DESC24_CF 'DESC25_CF 'DESC26_CF 'DESC27_CF 'DESC28_C 'DESC29_C 'DESC30_CF 'DESC31_CF 'DESC32_CF 'DESC33_CF 'DESC34_CF *.22k(GetDetailFixedOBS6!24!FName!Df! nBatchNumber" lReturnCode& nFileSize lFirstDFf lFirstDEf sPartFileNamef sPartResultSetf EntryCodef nBackSlashAt  TelstraFilef$ CurrentFilef FileIterationf ReadStringf SubStringf vSubStringf&a curValuef( nSoFar dBillingf dStartBillingPeriodf dEndBillingPeriodf nBatchIDf sBatchIDf LastEntryIs_1f SaveLastEntry_1f CallHeaderf.i sLastDetailCodef6 DBfromDatef DBtoDatef aResultSetf2 nResultSetf q nMaxResultsf a nStartSearchAtf Q lFoundfM dMinDatef! nCommaPositionf  sListValuesf sListFieldsf FieldStringListf ValueStringListf qryStringListf slAddFieldNamesf slAddFieldValuesf ConvertString qryDCf qryDSf nListValuesf q nDummyf"Q sInputLineCodefA lDataSavedf= lContinuef9 lValueIsRealf5 nDataCollectionIDf! nLengthHeadAccountf  lNextAccountNumberf sNextAccountNumberf nNextAccountNumberf .f8c(BillingInputFixedOBSeR1/4! stInFilesf!nBatchf lContinuef sPartFileNamef nBackSlashAt  nPos c(TelstraInvoiceFixedOBSY4!nBatchf! sDirectoryf!nProgramf lContinue stFilesf OpenDlg c( FinalizationX,Td! 4c( TelstraFixed!4cMjXU,Custno,ServCode, ServiceID,RentFrom,RentTill(,CallFrom8,CallTillHcMY, SequenceNo:, ServiceID<,TxnDate>4,TxnTime@F,OriginBR,DurationD|,CallCodeF!,RateDescriptionH-, DialledNumberJ}, ServiceNotesL, AmountExGSTN , GSTAmountPA, AmountIncGSTRy,FromDateT,ToDateVcD0E(UX@KZ\E4K^\K$`\Kb\K d\K*f\Kh\Kj\KQl\K$n\KEp\Kr\Kt\Kv\Kx\Kz\L|,D~>B\>D~>D~>D~>D~>D~>D~ >D~>D~S>D~>D~P>D~ >D~ >D~ >D~>D~>D D0>lTServiceDetails,d  !.2,UQjjIuQMSVWU3Uh?d0d ƅC<38V0?}f^3EuUEƅOxtplh d|AuhAEhAEM܋Ë0V E~-| BuhAuhAEM܋Ë0V | BuhAuhAEM܋Ë0V EEE~-|8BuhAuhAEM܋Ë0V EEE|LBuhAuhAEUUXUhAPX`B0E}tYpBQXBQXalR@hR@`BlQ4hA5hAhQ4BlQ4BhQ4BlQ4BhQ4BlQ4hQ4BlQ4hQ4 ClQ4ChQ4hl(ChAPX`B0|hHChdC|u5hl@5hl@EF|hHChdC|u5hl@5hl@EM܋Ë0V E~{|CUܸC~EC EC|CuhAEhAEM܋Ë0V |CuhAEhAE|xQ4UtQ4|EË0V UEuEܺC$MEMu EܺC|Cuuhl@EM܋Ë0V EuEܺC$MEMu EܺCE D<$}ԛ|Dm,Duuuh8DEuuhHDEM܋Ë0V EuEܺC$MEMu EܺC|XDuuhl@EM܋Ë0V |pDuhAEhAE|DuuhDE|xQ4UtQ4pR@DpQ4xRN|||pDuhAEhAE|DuuhDE|xQ4UtQ4pR@PEpQ4xRN||CuhAEhAEM܋Ë0V EuEܺC$MEMu EܺC|Cuuhl@EM܋Ë0V EuEܺC$MEMu EܺCE D<$}ԛ|Euuhl@E|Em,DuEE EEM܋Ë0V EuEܺC$MEMu EܺC|XDuuhl@E}||CuhAEhAEM܋Ë0V EuEܺC$MEMu EܺC|Cuuhl@EM܋Ë0V EuEܺC$MEMu EܺC|EuË0V hl@EE D<$}ԛ|Em,DuEE EEM܋Ë0V EuEܺC$MEMu EܺC|XDuuhl@E||pDuhAEhAEË0V UE|LBuhAuhAEUUXUhAPX`B0E}tYpBQXBQXalR@hR@`BlQ4hA5hAhQ4BlQ4EhQ4BlQ4EhQ4BlQ4hQ4BlQ4hQ4 ClQ4ChQ4hl(ChAPX`B0|hHChdC|u5hl@5hl@E |LBu5hl@EXhAPX`B0E}pBB|hHChdC|u5hl@5hl@E|DuuhDEpR@DpQ4|pQ4UpQ4dpddƅOD PFHË0V F |AEAM܋Ë0V E~-|AuhAuhAE|AE(FM܋Ë0V E~>|CuhAEhAE||CuhAEhAEM܋Ë0V Euw|hxtpddEEPUHFȺEETFE``3ZYYdh&? X<P|EEEEܺEl_^[] dbPPdataDELETEFROM tDataCollect_TempSELECT tBatch.BillingPeriod FROM tBatchWHERE tBatch.ID = BillingPeriod01//kaǖ?B\Telstra Services OBS Batch: Reading  ...,AIncorrect input file type. File type CSV is required. Try again.RBBIncorrect input file type. This is a Mobile-type file. Try again.EThe Account specified is not in the file selected. Please try again. 'DHDC(VALUES ( SequenceNo,', ServiceID,TxnDate,TxnTime, Destination, Duration, CallCode,CodeTransactionTypeSupplierCodeIDAmountCategory'CALLS' DescriptionTransactionTypeID SupplierIDActive1tSupplierServiceCodeTransactionTypeID,SupplierServiceCodeID,Peak,N Peak1,0,RateDescription,DialledNumber,0.0 AmountExGST,@FGSTAmount,GSTFlag,,'N',,'Y', AmountIncGST,ToDate,BatchID))INSERT INTO tDataCollectionDS001 NumCalls, No  Var01,','N',','Y', FromDate,INSERT INTO tDataCollect_TempDEDF'RENT' GSTAmount,GSTFlag,'N','Y',DO'OTHER'DA BILL ROUNDING 'ROUNDING',DB.00UjjIuSVUE3Uh4d0d E L`Q4tQ4Q4tjf 3ҸEMEUܡUܸR@Q4@Q4dQ4U؋EM؍EܺU܋Q4tjf 3ҸE( U؋QXE؍UUܸ< ~]EP+΍VEPEPIUظY< }R@H Q4 Q4E܋ U܋Q4 Q4 Q4t@ dMP UEE؍UUܸM` UEE؍UUܸƋRJƹx 0V t@ dMP UEE؍UUܸM` UEE؍UUܸƋRJƹ 0V t@ NMP UM` UEE؍UUܸƋRJƹ 0V t@ dMP UEE؍UUܸM` UEE؍UUܸƋRJƋQD 3M3ҋES *U ؍EPE+ˍSEU h uh EܺUܡ3EPM3ҋES E܋RHM} EEUE}t:jh( U؋Euh8 EܺEf =jh( U؋Euhh h EܺEf 33ZYYdh;Eغ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}WUE3ZYYdh3E3ZYYdh]EE^[]:Telstra OBS Billing file (*.csv)|*.CSV|All files (*.*)|*.*(Select The Telstra Account OBS Data FileU3Uhd0d 3ZYYdh]Ã-mUU:ppp  !%)-159=AEIMQUUUYDY0Y4PL L L L L M  Y M  Y "Y,Y "Y,Y&Y D YY2Y2, J,RT ,YY ee eaY Y $Y i > YY i> i i@L   Y( Y .i YY "6Y *i YY "i YY "YY YVY & Y <4&D \ YY YVY  a a e$ i i.\& 4YY YVY &@^4^4^RY&Mi 0`Y NY Y Y YY$Y YYY Y!YY YY$Y YY*)"%Y YY5*)&Y YY  YY u,Y u ,  Y u ,  }    6Y Y  Y ,Y Y Y Y Y" Y"q Y Y8Y - u  u  YY u&Y Y  Y  YY Y } Y  Y!Y Y Y Y Y Y)Y$Y Y)YTI*\Y  1"Y Y YMY  1"Y b Y5Y Y YYQY  1"Y Y Y$Y Y!YY Y^Y".Y $$($Y NY Y Y YY$Y YY)*)&Y YY  YY u,Y u ,  Y u ,  }    6Y Y  Y ,Y Y Y Y Y" Y"q Y Y8Y - u  u  YY u&Y Y  Y  YY Y } Y  Y$^PY YY$Y4Y Y)Y Y$YY TIY  1"Y Y YYMY  1"Y b Y5Y YYYYYQY  1"Y Y YY*\Y Y!Y Y Y!YY Y^Y".Y :U * *X^4^4^R *X^4^4^R-*(Y :R\$"r\$\$"\$JY Y Y YY$Y YY&)&Y YY  YY u8Y u  Y u   y    6Y Y  Y ,Y Y Y Y Y" Y"q Y Y8Y - u  u  YY u&Y Y  Y  YY Y y Y  YY Y)YY  1"Y Y Y Y  1"Y b Y5Y YY YY Y  Y  1"Y Y Y*Y Y4YY Y4YY Y0!YY Y Yj".Y "Y Y Y YYY Y0YY Y)YAY  1"Y Y YEY  1"Y Y E$Yb Y5Y YY Y IY  1"Y Y YY Y 0!Y  Y Y!Y%*)&Y YY  YY u,Y u ,  Y u ,  }    6Y Y  Y ,Y Y Y Y Y" Y"q Y Y8Y - u  u  YY u&Y Y  Y  Y &Y  Y  YY u@Y u  Y u  Y Y  Y  YY Y Yj".Y $0`Y "Y Y Y YYY Y Y Y)YY Y!YY"YY Y!YY"YY  1"Y Y YY  1"Y Y YY  1"Y b Y5Y YY YY Y   &Y  Y  YY u8Y u  Y  YY Y Yj".Y Y  1"Y b Y5Y$Y!Y Y!Y Y Y Y YYY Y0YY Y)Y Y Y!YY!YY  Y Y!YY!YY Y  1"Y Y Y-Y  1"Y Y Y1Y  1"Y Y Yb Y5Y YY Y   &Y  Y  YY u8Y u  Y  YY Y Yj"a a e$ i i \YY YVY ,& 00H> \ YY YVY ,& a a e$ i i@\& L\&  4 Y  "Y P"Y ,9Y  U  I0uI M  I I$I$I(II ""I mm Pq 4I$I$I PI .(II "I&\   I   *    I HI$Iq I :I$I y I I\y I\ 2I } I I\} I\ 2I  I I I\ 2I  I I\ I\ @ M  i iB i .I I IIi> i i@4EY i  i M =IPII"IPI II"I ]e:eL eM0 2e 4d4e  eRFIe e %]                                  }  y  q  ]  aUX $$$$$4 4 ,,,,T0"  * F$6 "Ff$  <, .` *4d&<bd &0$4d  $H,   :  \  \  :  : Z : 8  :&B T^   b     " "  ,<@P@L  " \  \"B, 0 ,< 40 , 0  \ 0" :P :P "   :  \ 8  :&B T^   b     " "  ,<@P@LL 0 \` " , : ,< >: , :B \  \ 0" :P :P ", 6$ & &   D$D$" ,  \R\B \R \B    :$ :&  :&B JT   b     " "  ,<@P@L  \ , 0 ,< 0  , 0 t x  0 "" ,   :   \ , 0 , \<  , 0   \B  :&B T^   b     " "  ,<@V$ 6"BJJ@L 0 "" ,t   :   \  `b  `b , 0 , 0 ,< 0 $ 6"B J 6 0 "", ,<$ 2V B`   :   \  \Z   \Z  , 0 , 0 , 0< $ 6"B J 6 0 "" &0$<Bd`L  &<bdV &0$D4 . &@ T,$$$*84$$$V*X$$ $$F$$8dd<8dd<88d<8dd22$6 "Z$ N * tE^,0>,0t!,".6u u u% u ,Eu9uu uuuu]u]u,\YA!pr]XeXe] m m)  i  q MIA IP0a=aiaa]] e00r}u-}uuu  a