ئhG6)F

g .TStringList<*cdSysUtilsZkgIntToStrJ 7gNowN g TimeToStr_tcdMessagesZkcdSysInitZkcdSystemZkfLongint|of TDateTime_IfString8f AnsiString8fBooleanNcfInteger|ofRealBYrPgStrg@Str2ExtX,TdgTObject.Create݋RgTrue1ogFalse1og VarIsNullcgIncgTruncg TObject.Free݋Rg@LStrFromString|g @LStrCat3X,Tdg @LStrLAsgX,Tdg @VarToIntX,Tdg @LStrCatNX,Tdg@LStrCatX,Tdg@LStrClrg@TRUNCX,Tdg@VarClrX,Tdg @LStrArrayClrX,Tdg@HandleFinallyX,TdceComCtrlsZkgTProgressBar.SetPositionceFormsZkgTCustomForm.Createj-gTCustomForm.Showj-gTCustomForm.Hidej-gTCustomForm.Closej-ceProgress f TProgressForm%g.TProgressForm<g TProgressForm.ProcessWinMessagesce MyMessage f TMessagesFormcO<*g.TMessagesForm8ce CriticalTests ce FileFunctions ce DateFunctions gFormattedDateString_tceGenFns gRightyQg CleanString~ gUpdateBatchStatusz3>g DeleteFromDC.ceDataMod ceMain gMainForm.|ceMathZkc* TSecurityTypeR  .1f nCountfH nFactorfJ frmProgressfL(GetSecurityChargesy-e ! nBatchNumberb ! dStartDate" !dEndDate" !BatchDescription" lReturnCodef sFromDatef sToDatef sBatchf sProcessDatef sProcessTimef sListValuesf sListFieldsf FieldStringListf ValueStringListf qryStringList qryDCf qrySecurityf nListValuesf sPolledIDf sDialUpIDf sSystemIDf nTotalCountf nBlockf Factorf sGSTRatef MessageFormc(SecurityInvoiceյX !nBatch ! dStartDate" !dEndDate" !BatchDescription lContinuef EmptyListc( FinalizationX,Td\! c(Security! cMf, ServiceID",TxnDate$$,TxnTime&6,FromDate(B,ToDate*TcD@K$,.K0.K 2.K4.K6.D8>B.>D8>D8>D8>D8>D>lgUQ-jjIuQMSVWME3Uh d0d UEuuEu uE݀L <$EEزEԲغËQ( Eк E E̺ EE3Y@3 3M  3EE?E3EEĺ E EЋ,Q4EЋ@Q4EЋ`Q4EEЀu&EUEEЋƋRJƹ0V EEЀu&EUEEЋR@E EЋ,Q4EЋQ4EЋQ4EEЀu&EUEEЋR@ËQ4ËQ4ËQ4MËQ4Mĺ@ËQ4ËQ4ËQ4ËQ4ËQ4 ËQ4ËQ48ËQ4ËQ4MËQ4ËQ4ӋEEËR@Èt jf 3Ҹ(EhD$hPEhD$hPEE؋R@EԋR@Eܺ\EhEܺ|uhDEhPEEuEEܺuhDEQXhPEEuEEܺuhDEQXhPEEܺEUEܺEUEu@Eܺ4uEQXhPEU܋E؋Q4UEԋQ4EEEܺ\uhDpEQXhPEEܺuhDuhPEEܺuhDuhPEEuVEܺuhDEQXhPEEuVEܺuhDEQXhPEEuVEܺuhDEQXhPEEܺuuh(EU܋E؋Q4UEԋQ4ËR@4ËQ4E؋RN|,FEUȋE؋8W ËQ4ENu܋EԋRN|,FEUȋEԋ8W ËQ4ENu܋EӋEEEE} MС3EMPr3MСh\EhEÈE8 ËR@ËQ4ËQ44ËQ4\ËQ4ËQ4ËQ4h uhhËQ4ËQ4ËQ4ËQ4MdËQ4ËQ4ËQ4EӋEEËR@ËQ4ËQ4HËQ4xËQ4ËQ4ËQ4hduhËQ4M,ËQ4EӋEE EEEEEEE3ZYYdh EEEܺ_^[]dbPPdataSecurity Service Batch: Reading ...0 SELECT IDFROM tTransactionType(WHERE Description LIKE 'Security Polled'id)WHERE Description LIKE 'Security Dial-Up' FROM tSystemWHERE System LIKE 'Security'aSELECT tServiceID.ServiceID, tServiceID.Description, tServiceID.ServiceTypeID, tServiceType.Code,P tServiceType.Description AS ServiceTypeDesc, tLocation.Description AS Location, 'TransactionTypeID' = CASE4 WHEN tServiceType.Description LIKE '% DIAL%' THEN 6 WHEN tServiceType.Description LIKE '% POLLED%' THEN  ELSE 0 END, 'GSTFlag' = CASE: WHEN tServiceType.Description LIKE '%VICTRACK%' THEN 'N' ELSE 'Y' ENDFROM (tServiceIDELEFT JOIN tServiceType ON tServiceID.ServiceTypeID = tServiceType.ID);LEFT JOIN tLocation ON tServiceID.LocationID = tLocation.IDWHERE tServiceType.SystemID = &AND tServiceID.TerminationDate IS NULLNo entries found.'',(VALUES ( SequenceNo,0000 ServiceID ServiceID,Code ServiceType,TxnDate,TxnTime,TransactionTypeIDTransactionTypeID,,GSTFlag,GSTFlag FromDate,ToDate,ServiceTypeDescVar01, DescriptionVar02,LocationVar03,BatchID))INSERT INTO tDataCollectionBProcessing (transaction: )... Calculating Security Charges ...Updating with applied rates ...UPDATE tDataCollection&SET AmountExGST = ChargeRate.AmtExGST, GSTAmount = ChargeRate.GSTAmt,7 AmountIncGST = ChargeRate.AmtExGST + ChargeRate.GSTAmt*FROM (SELECT GSTrate.ID, GSTrate.AmtExGST,0(GSTrate.AmtExGST * GSTrate.GSTFactor) AS GSTAmtRFROM (SELECT tDataCollection.ID, (CASE WHEN tDataCollection.GSTFlag LIKE 'Y' THEN 1 ELSE 0 END) AS GSTFactor, tRate.Cost AS AmtExGSTFROM (tDataCollectionILEFT JOIN tServiceID ON tDataCollection.ServiceID = tServiceID.ServiceID)ALEFT JOIN tRate ON tServiceID.ServiceTypeID = tRate.ServiceTypeID WHERE tDataCollection.BatchID = 5AND tRate.Cost IS NOT NULL) AS GSTrate) AS ChargeRate(WHERE tDataCollection.ID = ChargeRate.ID UPDATE tBatch#SET GSTAmount = BatchRate.TotalGST,% TotalPayable = BatchRate.TotalIncGST>FROM (SELECT Sum(tDataCollection.AmountIncGST) AS TotalIncGST,+ Sum(tDataCollection.GSTAmount) AS TotalGSTFROM tDataCollection) AS BatchRateWHERE tBatch.ID = UQSVWEMӋuuu uM׋_^[Y]U3Uh%d0d 3ZYYdh,]Ã-mB": HVf6 X6 X6 X(         *   h ,  , ~ .D j j&&.l:4.l:, j&&.l:&* h6 h$* h$" 8   <$n  <$>n 0 j j p:" h,n^ p ,n^ p ,n pp pp^ p,n<rr p ,n pn pn^ p 8n^ p 8n^ p 8n pnD  ,t~ t~ : n,  B   , ,   n$* h$  n6 h*   ddd    ddddrvrrxx z.6 X$d0 z !Vn.. $2$F*$  &&&L>L&&&L@ @@$ *hr$DpDpDfp::DDD0.<.< @ (@$m , $T@T@*-0l $` p,}4)5 p 2`  a