ئhGgִ.Q g .TStringList<*cdSysUtilsZkgIntToStrJ 7g EncodeDateceDataMod gDMiceMain gMainForm.|ceMathZkc*TServiceDetails@**TCallHeaderType,uch, .1f. nCountfx nFactorf z frmProgressf(| nSupplierIDf~ sSupplierIDf qryTelstraf sRentCodeIDf  sCallCodeIDf  sOtherCodeIDf sDiscountCodeIDf sSupplierRentCodeIDf sSupplierCallCodeIDf sSupplierOtherCodeIDf! sSupplierDiscountCodeIDf% sAccountNumberf) lRealValuef- sLastCallCodef5 sLastCallTransactionTypeIDf9 sLastDiscountTransactionTypeIDf= sLastSupplierCallCodeIDfA sLastSupplierDiscountCodeIDfEj'PROGRESS_MAX_CF*.20k(GetDetailMobileEBS6!2!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.>lTServiceDetails,d.2,UQjjIuQMSVWMUE3UhJ*d0d ƅ3,3(3E`*}f@3EUċEƅJ|xtplhhh \l*\EEU3Efff]@(E~#ۅ=x*-|*3Y@3EU*U*؍EPE+ˍSEU*ō Mĺ* h*uh*  3U䍅\\3Uh)d2d"U܍\\ PE *u PE *Äu$jf +3Ҹ+Uܸd+Äu!jf +3Ҹp+O PE +Äujf +3Ҹ+u$jf +3Ҹ,*%3P %E ÄutU܍\\ ݝP݅P;~u9 E %\ ($3Uh(d2d"ƅK PRE LEu^ P7E Eh,E@UEP9EEELt, PRE LL,~ ƅKxPWE uu PL ,u;P\E DƅKPWE ,u ƅK|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", 55 51  $ 9 >  9> 9 9@ ( 2 D 9  " 9  "6 9  "9  "J"Vi *  1 1 5$ 9 9$V& 09 @"X: ZP,Z >"V"X R"V@ 6"V"J"V X  2V 2V " 2V ,:2& 2V  m m"" , 2"V2"V&  &    &" 2"V2"V& &    , 2V mm " 8   qq  E, E ,u   E ,} u M  } ] 6  q  ,    "u "A  8  E  E   E  u  }  M  ] 2V H2V 2V\   2V 2"V       >"V"X  H  2V " 8   qq  E, E ,y   E , y U   e 6  q  ,    "y "A  8  E  E   E  y    U  e 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   qq  E, E ,y   E , y U   e 6  q  ,    "y "A  8  E  E   E  y    U  e 2"V" H2V:@"V0  2V\    2V  2"V   N X"1 1 5  9 9 VB"Vi BVi 2L0  1 1 5$ 9 96V& > D   " P" ,T*     0E   $$( " == PA 4$$ P .( "&Vi  i  i i *i i  i  ""4$A  :$ I  VI VY 2 M  VM V] 2 Q  Q Va 2 U  VU Ve @   9 9B 9 .  9> 9 9@4 9  9   P"P " Q4L |0 2 4^4  R@   -  }  y  u  q  i  e  a  ]  Y  U  Q  M  I  A  - au\  $$$$$$"4   4F$6 "Ff$  <VX 4$ .X * 4 |< &0$$z$TX",,v(r\vxN:N "@N\,:NBZ:,:r JDHrJF,:N*Z:T :&B T^   b     " "  ,<4P4LN\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@A  T,$$$484$$$V*X$$ $$F$$8dd<8dd<88d<8dd22$6 "Z$ N * t9X,0>,0t*",6E EyEE E E5 E-2E`preA] ] ] ] ]1]]q Q=]]͞ m]]P0I(0r!  a