ئhGhMF g .TStringList<*gTStrings.SetCommaTextH*cdMessagesZkcdSysInitZkcdSystemZkfLongint|ofString8f AnsiString8fInteger|ofRealBYrPfBooleanNcgStrg@Str2ExtX,TdgTrue1ogFalse1og@LStrFromString|g @VarToIntX,Tdg@LStrAsgX,Tdg @LStrCat3X,Tdg @VarToLStr kg @LStrArrayClrX,Tdg@VarClrX,Tdg@HandleFinallyX,TdfTextFileFMfChargQfVariantJh7fCurrency,eigTObject.Create݋Rg AssignFileg@Assignf g SetTextBufg @SetTextBufX,TdgResetg @ResetText+UgReadlng @ReadLStringX,Tdg@ReadLnX,TdgLengthg@LStrLen?gEofg@EofTextX,TdgPosg@LStrPosX,TdgCopyg @LStrCopyX,TdgRoundgIncg CloseFileg@CloseX,Tdg TObject.Free݋Rg @LStrLAsgX,Tdg@LStrClrg@_IOTestX,Tdg @LStrCatNX,Tdg@LStrCatX,Tdg@LStrCmpX,Tdg @VarFromLStrjg@ROUNDX,TdgParamStrg @LStrAddRefX,TdceComCtrlsZkgTProgressBar.SetPositionceControlsZkgTControl.SetTextc_gTControl.SetVisiblee_ceFormsZkgTCustomForm.Createj-gTCustomForm.Showj-gTCustomForm.Closej-ceGenFns g AccountFormat~ g AddToTabley)gYMD2DMY~ g CleanString~ gConvertTimeToSecs~ g DeleteFromDC.gUpdateBatchStatusz3>ce MyMessage ce FileFunctions g GetFileSizece DateFunctions ceProgress f TProgressForm%g.TProgressForm<g TProgressForm.ProcessWinMessagesceDataMod ceMain gMainForm.|ceMathZkce CriticalTests gCriticalErrorTestptac .1f$ nSupplierIDf> sSupplierIDf@ qryOptusfB sRentCodeIDfD sCallCodeIDfF sOtherCodeIDfH sDiscountCodeIDfJ sSupplierRentCodeIDfL sSupplierCallCodeIDfN sSupplierOtherCodeIDfP sSupplierDiscountCodeIDfR fGSTRatefT sGSTRatefV sCallFromfb sCallTillfd( GetReferences Result lSuccessfulcj'RECORD_BYTES_CF'PROGRESS_COUNTER_CF'PROGRESS_MAX_CF'LINE_CF'CODE_CF'ABBR_CF'DESC1_CF'DESC2_CF'DESC3_CF'DESC4_CF'DESC5_CF'DESC6_CF'CODE2_CF'CODE3_CF'COST1_CF'COST2_CF'DESC7_Ck( GetMobileDataay&!nBatch!FName" lReturnCodef nFileSize InputTextFilef InputTextFileBufferf( sCaptionf ReadStringf ConvertStringf nProgressCountedf Progressf" nCountf nSoFar nFactorf vSubStringfq sFieldValueListf lSaveToTable sBillCodef cAbbrf sServiceIDf SubStringf sBatchf sListFieldsf sListValuesf FieldStringListf ValueStringListf qryStringListf slAddFieldNamesf slAddFieldValuesf nListValues qryDCf sLastCallCodef sLastCallTransactionTypeIDfq sLastSupplierCallCodeIDfa lFound nLenSubString curAmountChargedf A curTotalAmountf ! sMonthFromf sYearFromf sYearTillf sRateDescriptionfc( ConfirmDates&!nBatch sBatchf qryDCc(OptusMobileInvoice% &!nBatch! sDirectoryf OpenDlg  lContinuef sFilef slDummy c( FinalizationX,Td! &c( OptusMobile!&cD$@L@*D$E3ZYYdhEEEEEE븋E3ZYYdh7xEEE_^[]NULL,dbPPdataBReading The Input Text File A Reading (MB) ...2,353505,352505,351005,251599,353501,150000,000000,(VALUES ( SequenceNo,'',323505 ServiceID,353505|DE|MO| CallCode,CodeTransactionTypeSupplierCodeIDAmountCategory'CALLS' DescriptionTransactionTypeID SupplierIDActive1tSupplierServiceCodeTransactionTypeID,SupplierServiceCodeID,,TxnDate,TxnTime,::00',Origin, Duration,DialledNumber,RateDescription,Peak,P1,0, AmountExGST,GSTFlag,U-ROA'N','Y', GSTAmount, AmountIncGST, FromDate,ToDate,352505zD@F150000351005F-SMTSRVCinternet - 251599'Monthly features',353501 000000BatchID))INSERT INTO tDataCollectionUjjSVWؾ3Uhd0d U غQ4Q4EM4UQ4%PUQXUu  |ƋR@dQ4Q4EM4UQ4%UQXUu  |ƋR@Q4h6hEUQ4h4uhEUQ4Q4$Q4R@Q4hT7hEUQ4hluhEUQ4Q4Q43ZYYdhE_^[YY]dbPPdata)SELECT LTRIM(RTRIM(FromDate)) AS FromDateFROM tDataCollectionWHERE BatchID = FromDate%SELECT LTRIM(RTRIM(ToDate)) AS ToDateToDateUPDATE tDataCollectionSET FromDate = '' AND (FromDate IS NOT null) AND$ (LEN(LTRIM(RTRIM(FromDate))) < 10)SET ToDate = 'WHERE (BatchID = ) AND (ToDate IS NOT null) AND" (LEN(LTRIM(RTRIM(ToDate))) < 10)U3QQQQQSVUE3Uhd0d ؍CTCXE~ UU3EUUCdPËR t4Q$Q" Q v@Q$Q:Q"x"@! tQ"x"@1 t2Q:Q"x"@% tQ"x"@5 t2Q4Q) xQ"x"@9 t2Q:Q"x"@- tQ"x"@= tHQQ "Q z| ~ ]aeimquy}B,> R R R R R   I  M  Q] Z,    <8jp @ (  R (  0Tm,@J  q2B@i,@    $q& (2@&2@v  "  "    ,% 5 * &0&          %  5 u,@,26"v6(v y,@ 22,@ ,@$" <2@,@ q,@ (,@ B   <,@D0  q2@  $ A0 (F (F I  M  $},@D2  , -  =    A0 (F (F M <q,@  ( }2@" $y,@D2  4q,@ " u2@"H "   ! 1 % 5  (F  A0 (F (F I  M <u6}2@@,u,@}2@&},@ ( $u,@D2  , !  1    A0 (F (F I  M <  ( ,@  }2 I u2 M&I &I ,M ( F a e"e "  6  ~ z| zzzz ~MI MM >  M  M M,M v*M$t  M M,M v*M$t  M MM&MM&M M$ M MM&MM&M M$Mz ~]*]. 0] t2J2] t(4*@ LR "M  ]>]]"]>] ]]"]] "]z ~!yyM  I  E  =  9  5  1  -  )  %  !   y ~} }r>d,$$$D@$$R$$$<$<D<$2 *d] V .@, . x <H  D fD :V~ :"<.8V <4D4LD 8RXZ:DD\DZ:JD\DhD@D0nXX&&DD660XXD f  &DDD6:66XXXD D f &DD660XX$TD &00 :0$<$<,  <0&  9H,  << *  <<* NP   NP  RN,0>J  ( r|~] UY YY xQ`apYaY Y%YIMprVVvm ---<I<<<m@@AB1J1KmNNVX[[\])^q^^__M``M`pQHQ\YY ](02aNiziuua y } a