ئhG+F g .TStringList<*cdSysUtilsZkgIntToStrJ 7gNowN g TimeToStr_tcdMessagesZkcdSysInitZkcdSystemZkfLongint|of TDateTime_IfString8f AnsiString8fInteger|ofBooleanNcfRealBYrPgStrg@Str2ExtX,TdgTObject.Create݋RgTrue1ogFalse1ogPosg@LStrPosX,TdgIncgTruncg 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_tgMonthceGenFns gRightyQgUpdateBatchStatusz3>g DeleteFromDC.ceDataMod ceMain gMainForm.|ceMathZkc .1f nCountf8 nFactorf: frmProgressf<(GetAnnualChargesVp! nBatchNumberb ! dStartDate" (!dEndDate" !BatchDescription! nBatchTypeID " lReturnCode& sFromDatef sToDatef sBatchf sProcessDatef sProcessTimef sListValuesf sListFieldsf FieldStringListf ValueStringListf qryStringList qryDC qryAnnualf nListValuesf sMonthf sMonthIDf sQuarterIDf sHalfIDf sYearIDf sSystemIDf sVRTIDf sTransactionf nTotalCountf nBlockf Factorf sGSTRatefq MessageForm c(AnnualChargesInvoicea!nBatch ! dStartDate" !dEndDate" !BatchDescription ! nBatchTypeIDf lContinuef EmptyListc( FinalizationX,Td\! c( AnnualCharges!cD@lrUQ/jjIuQMSVWE3UhXd0d UEuuEuu EuuU݀L <$EEܲEزغËQ( p EԺpEE3Y@3 3M3EE?E3EEȺEĺEEQ4Q4Q48UQXUL~*\UUh~'\UnUx~'\U6U~%\UR@Q4Q4Q4tERTUR@Q4Q4Q4$Q4tERTUR@<ËQ4PËQ4huhËQ4huhËQ4h4uhËQ4hduhËQ4ËQ4ËQ4huhËQ4ËQ4$ËQ4HËQ4|ËQ4huhËQ4huhLËQ4|ËQ4ËQ4ËQ4ËQ4ËQ4\ËQ4ËQ4ËQ4huh,ËQ4<ËQ4ӋEEËR@EԀt jf P3Ҹ\Eh$hxEh$hxEE܋R@E؋R@EຄE亐E຤uhEhxEEuhEQXhxEEuhEQXhxEEEUE,EUE@u\EQXhxEUE܋Q4UE؋Q4EEEຄuhEQXhxEEຨuhuhxEEຼuhuhxEEuuhEUE܋Q4UE؋Q4ËR@ËQ4E܋RH|1@EEUЋE܋8W ËQ4EMuڋE؋RH|1@EEUЋE؋8W ËQ4EMuڋӋEE} MС3EMr3MСhEh8EEԀE8, HpËR@ËQ4ËQ4ËQ4ËQ4PËQ4ËQ4huhËQ4DËQ4ËQ4ËQ4ËQ4ËQ4MHËQ4tËQ4ËQ4ӋËR@ËQ4ËQ4,ËQ4\ËQ4ËQ4ËQ4hHuhËQ4MËQ4Ӌ EEEEE3ZYYdh_EEE_^[]dbPPdataAnnual Charges Batch: Reading ...0SELECT ID, DescriptionFROM tTransactionType(WHERE Description LIKE '%Annual Charge%' DescriptionMonthidQuarterSixYear SELECT IDFROM tCustomerWHERE ShipTo LIKE 'VRT'ID FROM tSystemWHERE BatchTypeID = AND Active = 1 SELECT AC.*mFROM (SELECT tServiceID.ServiceID, tServiceID.Description, tServiceID.ServiceTypeID, tServiceType.Code, (CASE' WHEN tServiceType.Frequency = 1 THEN ''' WHEN tServiceType.Frequency = 3 THEN '' WHEN tServiceType.Frequency = 6 THEN '( WHEN tServiceType.Frequency = 12 THEN ' ELSE '0'"END) AS "TransactionTypeID", (CASE WHEN tGroup.CustomerID = THEN 'N' ELSE 'Y'END) AS "GSTFlag", (CASE+ WHEN tServiceType.Frequency IS NULL THEN 1' WHEN tServiceType.Frequency = 0 THEN 1/ WHEN (CAST(Month(tServiceID.InstallationDate)-% AS Real) / tServiceType.Frequency) =, ROUND((Month(tServiceID.InstallationDate)-&) / tServiceType.Frequency,0,0) THEN 0 ELSE 1END) AS "Period"FROM (((tServiceIDELEFT JOIN tServiceType ON tServiceID.ServiceTypeID = tServiceType.ID)>LEFT JOIN tCentre ON tServiceID.CustomerCentreID = tCentre.ID)?LEFT JOIN tDepartment ON tCentre.DepartmentID = tDepartment.ID)3LEFT JOIN tGroup ON tDepartment.GroupID = tGroup.IDWHERE tServiceID.Active = 1AND tServiceType.SystemID = ) AS ACWHERE AC.Period = 0No entries found.',(VALUES ( SequenceNo,0000 ServiceID, ServiceID ServiceType,CodeTxnDate,TxnTime,TransactionTypeID,TransactionTypeID,GSTFlag,GSTFlag FromDate,ToDate,BatchID))INSERT INTO tDataCollectionBProcessing (transaction: )...Calculating Annual 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  ELSE 0 END) AS "GSTFactor",8(tRate.Cost / 12 * tServiceType.Frequency) AS "AmtExGST"FROM ((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 "TotalGST"FROM tDataCollection) AS BatchRateWHERE tBatch.ID = USVWMEMӋuuu uEPM׋_^[YY]U3Uh%d0d 3ZYYdh,]Ã-m]@":: HVh6 X6 X6 X(         *   j ,  ,  .D l l l l   $  `n: `n: `n: `n:(   $" l:  0:" j,$" l:  p$ p$ p$ p$ p$ p$ p$ p$" 8   <$p  <$>p 0 l l r:" j,p r ,p r ,p rr rr r,p<tt r ,p rp rp rpD)  ,v v : p,  B   , ,   p$* j$  p6 j(   fff    fffftxttzz |M7&6 X$f8 |! !] T,n,. $2$F*$     ("T"N"N"J   02  h 02TTTTTTTT *hr$ppfp::00< 0<  @ (@$ , $T@T@*57 8nU1@,(pT )ޱ. 6ܥ77 p   <j  ! a