ئhG+veC g .TStringList<*cdBdeZkcdDBTablesZkfTQuery-g.TQueryg TQuery.CreategTDBDataSet.SetDatabaseName !~gTQuery.SetQuerygTQuery.ExecSQLcdSysUtilsZkgTrim~ gIntToStrJ 7gDateN cdSysInitZkcdSystemZkfLongint|ofBooleanNcf AnsiString8fString8gTObject.Create݋RgTrue1ogFalse1og TObject.Free݋Rg@LStrAsgX,Tdg @LStrLAsgX,Tdg @LStrCat3X,Tdg@HandleAnyExceptionX,Tdg @DoneExceptX,Tdg @LStrArrayClrX,Tdg@LStrClrg@HandleFinallyX,Tdg @LStrCatNX,TdceDbZkgTDataSet.Close4ceControlsZkgTControl.SetTextc_gTControl.Refresh_ceFormsZkgTCustomForm.Createj-gTCustomForm.Showj-gTCustomForm.Hidej-gTCustomForm.Closej-ceProgress ce MyMessage f TMessagesFormcO<*g.TMessagesForm8ceMain gMainForm.|ceGenFns gDeleteTransactionsjgUpdateBatchStatusz3>ce DateFunctions gStandardDateTimeString_tceDataMod ceCodeFile g CodeToFileՌc .1f sBatchf , qryTTf. qryStringListf0(SaveProcessedTransaction&g3! nThisBatch! lRevenueFlag" lSuccessfulf sRevenueFlagf MessageFormfc(ReleaseTransaction} ! nThisBatch! lRevenueFlag qry nBatchID lRevenue sRevenuef lTransferredfc( FinalizationX,Tdt! c(ReleaseTransactions!cD@l?UjjjjjSVWMڋ3Uhd0d UEUUtE E  ,@Q4lQ4Q4hQ4Q4hQ4Q4xQ4Q4Q4 Q4Q4$ Q4 Q4( Q4 Q4\ Q4x Q4 Q4 Q4E T UQ4EM| UQ4 EtE E EEE3Uhd0d 3ZYYdEEEE3ZYYdhEE_^[]10dbPPdata!INSERT INTO tProcessedTransactionk(BatchID, ServiceID, CentreID, ActivityID, ElementID, SubledgerID, LocationID, PersonID, TxnDate, OriginID,| DestinationID, Duration, CallCode, RateDescriptionID, Peak, DialledNumberID, GSTFlag, AmountExGST, GSTAmount, AmountIncGST,y FromDate, ToDate, CustomerID, CustomerCentreID, CustomerActivityID, CustomerElementID, CustomerSubledgerID, RevenueFlag,r TransactionTypeID, TransactionRef, StatusID, ErrorID, DataRefID, Var01, Var02, Var03, Var04, Var05, Var06, Var07,~ Var08, Var09, Var10, Var11, Var12, Var13, Var14, Var15, ServiceTypeID, DepartmentID, GroupID, PayType, SupplierServiceCodeID)|SELECT tTransaction.BatchID, tTransaction.ServiceID, tTransaction.CentreID, tTransaction.ActivityID, tTransaction.ElementID,w tTransaction.SubledgerID, tTransaction.LocationID, tTransaction.PersonID, tTransaction.TxnDate, tTransaction.OriginID,} tTransaction.DestinationID, tTransaction.Duration, tTransaction.CallCode, tTransaction.RateDescriptionID, tTransaction.Peak, tTransaction.DialledNumberID, tTransaction.GSTFlag, tTransaction.AmountExGST, tTransaction.GSTAmount, tTransaction.AmountIncGST, tTransaction.FromDate, tTransaction.ToDate, tTransaction.CustomerID, tTransaction.CustomerCentreID, tTransaction.CustomerActivityID,| tTransaction.CustomerElementID, tTransaction.CustomerSubledgerID, tTransaction.RevenueFlag, tTransaction.TransactionTypeID,v tTransaction.TransactionRef, tTransaction.StatusID, tTransaction.ErrorID, tTransaction.DataRefID, tTransaction.Var01,x tTransaction.Var02, tTransaction.Var03, tTransaction.Var04, tTransaction.Var05, tTransaction.Var06, tTransaction.Var07,x tTransaction.Var08, tTransaction.Var09, tTransaction.Var10, tTransaction.Var11, tTransaction.Var12, tTransaction.Var13, tTransaction.Var14, tTransaction.Var15, tTransaction.ServiceTypeID, tCentre.DepartmentID, tDepartment.GroupID, tServiceID.PayType, tTransaction.SupplierServiceCodeIDFROM ((tTransaction?LEFT JOIN tServiceID ON tTransaction.ServiceID = tServiceID.ID)@LEFT JOIN tCentre ON tTransaction.CustomerCentreID = tCentre.ID)>LEFT JOIN tDepartment ON tCentre.DepartmentID = tDepartment.IDWHERE tTransaction.BatchID = AND tTransaction.RevenueFlag = "Releasing Revenue transactions ...&Releasing Expenditure transactions ...U3QQQQSV3Uhd1d!ڄtE EEMӋ}!t ָhhEPEPָ@ غ0R@DQ4h\$Euh|EUQ4UMEUQ4R@94 #hhEPEPָ3ZYYdhEE^[]10 tTransactionB= RevenueFlagdbPPdata UPDATE tBatchSET BatchEndDate = '' WHERE ID =tProcessedTransactionU3Uh1d0d u 3ZYYdh8]Ã-mY~6~ x 4~ 6~ 6 d  z ~ z  , | ~ |~ |~ |~ |~ |~ |~ |~ |~ |~ |~ |~ |~ |~ |~ |~ |~ |~ |~ |~ |x ~ 8| ~ 8|d` R*~ L ~ LTN~z H | z  z :<VX2 z 2 | 2~>@ B', 6 6 ~* t   hdj d , nD0 8*H$dj  h>@ Bvx @ Bv DJD@2"@:.*&  2h'2@  F(, xP,zU0~`(pRJJ 02266::I  a