ئhG jveC g .TStringList<*cdSysUtilsZkgIntToStrJ 7g EncodeDateceDataMod gDMM^ceMain gMainForm.|ceMathZkc*TServiceDetails@,*TCallHeaderType,uch. .1f0 nCountf p nFactorf"r frmProgressf*t nSupplierIDf v sSupplierIDfx qryTelstrafz sRentCodeIDf| sCallCodeIDf~ sOtherCodeIDf sDiscountCodeIDf sSupplierRentCodeIDf  sSupplierCallCodeIDf  sSupplierOtherCodeIDf sSupplierDiscountCodeIDf sAccountNumberf sLastCallCodef! sLastCallTransactionTypeIDf) sLastDiscountTransactionTypeIDf5 sLastSupplierCallCodeIDf9 sLastSupplierDiscountCodeIDfEj'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(GetDetailMobileOBS6!4!FNameb!Df! nBatchNumberf" lReturnCode& nFileSize sPartFileNamef sPartResultSetf EntryCodef nBackSlashAt  TelstraFilef$Q CurrentFilef FileIterationf Tf ReadStringf SubStringf vSubStringf& curValuef( nSoFar dBillingf sBatchf LastEntryIs_1f CallHeaderf.= sLastDetailCodef6 DBfromDatef DBtoDatef sInvoiceYearf sInvoiceNextYearf sInvoiceMonthf nInvoiceMonthf aResultSetf2 nResultSetf q nMaxResultsf a nStartSearchAtf Q lFoundfM dMinDatef! nCommaPositionf  sListValuesf sListFieldsf FieldStringListf ValueStringListf qryStringListf slAddFieldNamesf slAddFieldValuesf ConvertStringf slMonthf sMonthfq sServiceDatefa qryDCfQ nListValuesf A nDummyf"! sInputLineCodef lContinue lSaveToTablef lDataSavedf sRateDescriptionf sRateDescEnhancementf sLastServicef sLastServiceIDf nDataCollectionIDf lNextAccountNumberf sNextAccountNumberf nNextAccountNumberf c(BillingInputMobileOBSeR1/4! stInFilesf!nBatchf lContinuef sPartFileNamef nBackSlashAt  nPos c(TelstraInvoiceMobileOBS%A4!nBatchf! sDirectoryf lContinue stFilesf OpenDlg c( FinalizationX,Td)! 4c( TelstraMobile!4cMjX5,Custno,ServCode, ServiceID,RentFrom,RentTill(,CallFrom8,CallTillHcM9, SequenceNo8, ServiceID:,TxnDate<4,TxnTime>F,Origin@R,DurationB|,CallCodeD!,RateDescriptionF-, DialledNumberH}, ServiceNotesJ, AmountExGSTL , GSTAmountNA, AmountIncGSTPy,ToDateRcD0E(T@KVXKZXK$\XK^XK `XK*bXKdXKfXKQhXK$jXKElXKnXKpXKrXKtXLv,Dx>BX>Dx>Dx>Dx>Dx>Dx>Dx >Dx>DxS>Dx>DxP>Dx >Dx >Dx >Dx>D D0>lTServiceDetails,d  !.2,UQjjIuQMSVWMUE3Uh)d0d ƅ+$3 3EƅB)}f83EUExtplhd``` T)TEEU3E$fff]'E~#ۅ=*- *3Y@3EUU *؅~.EPE+ˍSEU *؅ҍM,*hX*uhl*3U䍅TT3Uh(d2d"U؍TTUظ|*Äu!jf *3Ҹ*OPE*Äujf *3Ҹ*8%,+PP8+|*EEعD+U؋dQ,3dS ÄU؍TTEuTu@,+PP8+|*EEعD+U؋dQ, ݝH݅H;~u9ETu$jf *3ҸP+t#3Uh{(d2d"ƅCdR;|M܋d0V d0V Pd0V XDEd0V EԺ+PEE+E@UEPEEED+ d0V Pd0V XDPEUD} ƅCEuuPD+u;PE<ƅCbE+u ƅC6xR@tR@|+E+E~-|+uhD+uh,Ed0V UEԋ4t4U04|,uhD+0h,EEPEE~}PEh+PEEԺ|$,uhD+uh,EEPEE~-|8,uhD+uhL,EP EUE~>|\,uhD+Eh,EP ;EUEUԸl,~gEE|x,uhD+uh,E81E8, 8PDUE|,uhD+uh,EUUDU,+PD,0E}tY,QX,QXalR@hR@,lQ4hD+5hD+hQ4,lQ4-hQ4-lQ4-hQ4(-lQ4hQ4D-lQ4hQ4X-lQ4h-hQ4hlt-,+PD,0|h-h-|u5h|*5h|*EF|h-h-|u5h|*5h|*EEԋ<P7E~Euh-P7EEԺE|-E-uE- E.|.uhD+u8h,EP&EUE~>|,.uhD+Eh,E|xQ4UtQ4|Ed0V U|D.uuh|*Ed0V UE T.<$}̛|`.mt.uuuh.Euuh.Ed0V U|.uuh|*Ed0V EԺ+|.uhD+Eh,ED.t(D.tD.Td0V Pd0V XDd0V UD.tD. xR@tR@|+E+d0V UEԋ4t4U04|,uhD+0h,EPDUE|,uhD+uh,EUUDU,+PD,0E}tY,QX,QXalR@hR@,lQ4hD+5hD+hQ4,lQ4 /hQ4-lQ4 /hQ4(-lQ4hQ4D-lQ4hQ4X-lQ4h-hQ4hlt-,+PD,0|h-h-|u5h|*5h|*EF|h-h-|u5h|*5h|*EPE<Eԋ<E~-|.uhD+uh,E|xQ4UtQ4|Ed0V UEu EԺ/|D.uuh|*Ed0V UEu EԺ/E T.<$}̛|`.mt.uuuh.Euuh.Ed0V UEu EԺ/|.uuh|*EPd0V $UEt~d0V EԺ+|.uhD+Eh,E PE\`\}u\PE/Xu\PE/X|(/uhD+Xh,EPE\`\}u\P E/Xu\P E/X|.uhD+Xh,ED !! I> I I@ !( ! I !! "6! I !! "!! !X! B.y 2 ^ !! !X! (A A E$ I I$^& "I !! "!-I 0.8^&8^"`(8^! 2! bP,b! $<."`"2"^`>^@! 6"^"4^! ^! ! ! !!2^ "! !!,:!2&! !!,! !!2^! !!2^ ! $" ! !! "! 8&! !! }} !! U,! U ,  ! U ,  ]   m 6! ! } ! ,! ! ! ! !" !"Q ! !8!   U  U  !! U&! !  !  !! ! ] ! m !2"^!2"^&&! &! ! ! ! !!2^! !!T2^! !2^d !! ! !!2^! !8^! ! !! ! ! ! $<."`"8^`! ! N! ! 2^ "! !!8&! !! }} !! U,! U ,  ! U ,  e   u 6! ! } ! ,! ! ! ! !" !"Q ! !8!   U  U  !! U&! !  !  !! ! e ! u !2"^"! !!T2^! ! !2^! d !! ! !!2^! ! !&@^"8^! ! !!<.bj"^"! ,,"N"^"! ,,"! !!2.bj"^"! ,,"N"^"! ,,"! !! ! ! ! ! ! ! ! ! R! ! 2^ "! !!8&! !! }} !! U,! U ,  ! U ,  e   u 6! ! } ! ,! ! ! ! !" !"Q ! !8!   U  U  !! U&! !  !  !! ! e ! u !2"^"! !!T2^! d ! !*,d !&,d !!2! ! !2^d !! ! ! !!2^! ! !2! ! !!T! !^!"A A E  I I ^!! !X! 4.y (.y .8HF ^ !! !X! (A A E$ I I6^& R D !  "! P"! ,V*!      =0U -   $$( "" MM PQ 4$$ P .( "&^y  y  y y *y y  y  H$Q  :$ Y  ^Y ^i 2 ]  ^] ^m 2 a  a ^q 2 e  ^e ^u @ -  I IB I .  I> I I@4%! I  I - P"P " ]949L 9-0 29 4f49  9R@9 9 )QQ=        }  y  u  q  m  i  e  a  ]  Y  Q Q U= U9U\  $$$$$$$"4   VF$6 Ff$  <$ .X *dV<bd &0$2z4$&( vX",,p :\v@  :J " @, :, :N \N "Z :LT  :&B T^   b     " "  ,<@P@Lr  J FN \"J 0J< 40J 0v ftlP J " @T  :&B T^   b     " "  ,<@P@Lv :"J2 0J2< 40J2 0v f`< - @`< - JM J " @T  :&B T^   b     " "  ,<@P@Lv :"J22 0J<2 40J2 0T `  0" :P :P " "0$<Bd`VT  .<bd &0$F\4 .0@  T,$$$*84$$$V*X$$ $$F$$8dd<8dd<88d<8dd22$6 "Z$ N * tEX,0>,0t9y,..UqUUMUU U U 0d!Apr55EYEEE!q   a )ii5iiqiaiii)%ii!iiɟP05=5i5511 9(0rME!MEEEQ U a