ئhGdF g .TStringList<*cdSysUtilsZkgIntToStrJ 7g EncodeDateceDataMod gDMM^ceMain gMainForm.|ceMathZkc*TServiceDetails@**TCallHeaderType,uch, .1f. nCountfx nFactorf z frmProgressf(| nSupplierIDf~ sSupplierIDf qryTelstraf sRentCodeIDf  sCallCodeIDf  sOtherCodeIDf sDiscountCodeIDf sSupplierRentCodeIDf sSupplierCallCodeIDf sSupplierOtherCodeIDf! sSupplierDiscountCodeIDf% sAccountNumberf) sLastCallCodef1 sLastCallTransactionTypeIDf5 sLastDiscountTransactionTypeIDf9 sLastSupplierCallCodeIDf= sLastSupplierDiscountCodeIDfAj'PROGRESS_MAX_CF*.20k(GetDetailMobileEBS6!q2!FNameb!Df! nBatchNumberf" lReturnCode& nFileSize sPartFileNamef sPartResultSetf EntryCodef nBackSlashAt TelstraFilef"q CurrentFilef FileIterationf Tf SubStringf vSubStringf$1 curValuef& nSoFar dBillingf sBatchf LastEntryIs_1f CallHeaderf,] sLastDetailCodef4 DBfromDatef DBtoDatef sInvoiceYearf sInvoiceNextYearf sInvoiceMonthf nInvoiceMonthf aResultSetf0 nResultSetf nMaxResultsfq nStartSearchAtfa lFoundf] dMinDatef1 nCommaPositionf! sListValuesf sListFieldsf FieldStringListf ValueStringListf qryStringListf slAddFieldNamesf slAddFieldValuesf slMonthf sMonthf sServiceDatef qryDCfq nListValuesfa nDummyf A sInputLineCodef1 lSaveToTablef- lDataSavedf) lContinue sRateDescriptionf sRateDescEnhancementf sLastServicef sLastServiceIDf nDataCollectionIDf lNextAccountNumberf sNextAccountNumberf nNextAccountNumberfc(BillingInputMobileEBSeR1/2! stInFilesf!nBatchf lContinuef sPartFileNamef nBackSlashAt nPosc(TelstraInvoiceMobileEBS%!2!nBatchf! sDirectoryf lContinue stFilesf OpenDlg c( FinalizationX,Td)! 2c(TelstraMobileEBS!2cMjX!,Custno,ServCode, ServiceID,RentFrom,RentTill(,CallFrom8,CallTillHcM%, SequenceNo6, ServiceID8,TxnDate:4,TxnTimeR,Duration@|,CallCodeB!,RateDescriptionD-, DialledNumberF}, ServiceNotesH, AmountExGSTJ , GSTAmountLA, AmountIncGSTNy,ToDatePcD.E(R@KTVKXVK$ZVK\VK ^VK*`VKbVKdVKQfVK$hVKEjVKlVKnVKpVKrVLt*Dv>BV>Dv>Dv>Dv>Dv>Dv>Dv >Dv>DvS>Dv>DvP>Dv >Dv >Dv >Dv>DD.>l=TServiceDetails,d.2,UQjjIuQMSVWMUE3Uh2(d0d ƅ3,3(3EH(}f@3EUċEƅJ|xtplhhh \T(\EEU3Efff](&E~#ۅ=`(-d(3Y@3EU*Ux(؍EPE+ˍSEUx(ō Mĺ( h(uh(  3U䍅\\3Uh'd2d"U܍\\ PE (u PE (Äu$jf (3Ҹ(UܸL)Äu!jf (3ҸX)O PE )Äujf (3Ҹ)u$jf (3Ҹ*#3P %E ÄutU܍\\ ݝP݅P;~u9 E %\ "3Uh&d2d"ƅK PRE LEu^ P7E EP*E@UEP9EEEL\* PRE LLh*~ ƅK`PWE uu PL t*u;P\E DƅKPWE *u ƅKj|R@xR@E*E* PWE UE~*E*uh*uh*E P=E UE؋<tEغ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ɉMMUEE3UhEd0d E3Uhd0d FT\FXE~ UU3EUUFdFPƋR<؍UFpQUEQ,tERÄt UE3ZYYdh"E3ZYYdhLEE^[]6Telstra Billing file (*.dat)|*.DAT|All files (*.*)|*.*$Select The Telstra Account Data FileU3Uhd0d 3ZYYdh]Ã-m!!:jjj}!H0$" PL |L |L |L |L |L |"   ",R", 11 1-  $ 5 >  5> 5 5@ ( 2 D 5  " 5  "6 5  "5  "J"Ve *  - - 1$ }5} 5$V& 05 @"X: ZP,Z >"V"X R"V@ 6"V"J"V X  2V 2V " ,:2& , 2V 2V  $"  " 8   ii  A, A ,m   A ,u m I  u Y 6  i  ,    "m "=  8  A  A   A  m  u  I  Y 2"V2"V& &    2V H2V 2V\   2V 2"V      >"V"X  H  2V " 8   ii  A, A ,q   A ,y q Q  y a 6  i  ,    "q "=  8  A  A   A  q  y  Q  a 2"V" H2V  2V \   2V  2V<"V  <.Zj"V" ,,"N"V" ,," 2.Zj"V" ,,"N"V" ,,"   >"V"X B"V"X B"V"X B"V"X   >"V"X L  2V " 8   ii  A, A ,q   A ,y q Q  y a 6  i  ,    "q "=  8  A  A   A  q  y  Q  a 2"V" H2V:@"V0  2V\    2V  2"V  N X"- - 1  }5} 5 VB"Ve BVe 2L0  - - 1$ }5} 56V& > D   " P" ,T*     y0Ay  y y$y$y(yy "y 99 P= 4y$y$y Py .(yy "y&Ve  e y e e *e e  e y ""4y$y= y :y$y E y yVE yVU 2y I y yVI yVY 2y M y yM yV] 2y Q y yVQ yVa @   5 5B 5 .y y yy5> 5 5@4 5  5   yPyy"yPy yy"y Q4L |0 2 4^4  R@y   )y  u  q  m  i  e  a  ]  Y  U  Q  M  I  E  =  )  q\  $$$$$$"4   4F$6 "Ff$  <VX 4$ .X * 4 |< &0$$z$TX",,v(r\vxN:N "@,:,:N\N "Z:LT :&B T^   b     " "  ,<4P4LrJFN\N0N<40N0z ftvPN "@T :&B T^   b     " "  ,<4P4Lv:N20N2<40N20Nzf`< -@`< - JeN "@T :&B T^   b     " "  ,<4P4Lv:N20N<240N20z ` 0 :P :P " "0$<BN"   < &0$<H4 .0@9  T,$$$484$$$V*X$$ $$F$$8dd<8dd<88d<8dd22$6 "Z$ N * t9X,0>,0t*",6AAQAAA A9 A1 2A `preAU U U U U1UUq Qݒ=UUm UUyP0I(0r!  a