ئhGM'F

g .TStringList<*cdSysInitZkcdSystemZkfString8f AnsiString8fInteger|ofBooleanNcfTextFileFMfRealBYrPgTObject.Create݋Rg VarIsNullcgVarToStrgLengthg@LStrLen?gParamStrg TObject.Free݋RgFalse1og AssignFileg@Assignf gRewriteg @RewritText+UgWritelng@Write0LStringX,Tdg@WriteLnX,TdgIncgTruncg CloseFileg@CloseX,Tdg @LStrCatNX,Tdg @LStrCat3X,Tdg@LStrClrg @VarToIntX,Tdg@LStrAsgX,Tdg@_IOTestX,Tdg@LStrCatX,Tdg@TRUNCX,Tdg@HandleFinallyX,Tdg @LStrArrayClrX,Tdg@VarClrX,TdceComCtrlsZkgTProgressBar.SetPositionceControlsZkgTControl.SetTextc_gTControl.SetVisiblee_ceFormsZkgTCustomForm.Createj-gTCustomForm.Showj-gTCustomForm.Hidej-gTCustomForm.Closej-ceProgress f TProgressForm%g.TProgressForm<g TProgressForm.ProcessWinMessagesce MyMessage f TMessagesFormcO<*g.TMessagesForm8ceMain f TMainForm Is|gTMainForm.ProcessWinMessages(aceGenFns c .1f MainFormf ( CodeToFileՌ1i"!TransactionTable!nBatch SaveDialog lContinue SundryTextFilef sTBSdirectoryf Progressf nFactorf sFilef sBatchIDf nline sShipTof sAccountNof sQryStringf qryStringf qCodef qryf MessagesFormfc( FinalizationX,Td\! "c(CodeFile!"cD @l jUEjjIuSVW3Uh d0d UEغ$ E؋Q4 E؋Q4 E؋Q4 E؋Q4E؋Q4PE؋Q4E؋Q4E؋Q4@E؋Q4E؋Q4E؋Q4hShE؋Q4E؋Q4E؋Q4M躀E؋Q4E؋Q4E؋Q4E؋Q4 E؋Q4LE؋Q4E؋Q4E؋Q4E؋Q4<E؋Q4E؋Q4E؋Q4LE؋Q4E؋Q4E؋Q4 E؋Q4HE؋Q4|E؋Q4E؋R EкEEЋQ4EЋQ4EЋQ4MXEЋQ4EEЀu"tEt E!tEUEEЋR@3ɲE̺EE̋E EԺEU؋EEEԀtMEԀtAEjhuhSf 33Uh d0d E̋EЋ,Q4EЋTQ4E|EUEE~ Eu3EЋR@EЋQ4EЋQ4MEЋQ4EЋQ4EEEۅ= ]3t"uh,uh8E3ɲFdHFlUFTlFXFh3FPƋR<؍U3ɲEE3ҋQ`E3huhEEE؋U썅3Uh d0d EEEUuhuhEܺuܺERH<$ h4ERH<$ hDERH<$ hERH<$ hXEEܺ uhhEh|EhEEܺuhEEܺEu?uhEEܺEu?uhEEܺEu?uhEEܺuhEhuhERL$$hEܺ8EtEܺH&8EQXEEܺU܍GۅMЋEEEԀa3ZYYdh EE3ZYYdh EEEE؋E3ZYYdh EܺE_^[]SELECT TN1.RentAmt, TN1.CallAmt, TN1.OtherAmt, (TN1.RentAmt + TN1.CallAmt + TN1.OtherAmt) AS "TotalAll", tStatus.Status, tCustomer.ShipTo,5 tPerson.Person, tLocation.Description AS "Location", tCentre.Description AS "Centre", tActivity.Description AS "Activity", tElement.ElementCode AS "Element", tSubledger.Description AS "Subledger",y tDepartment.Description AS "Department", tServiceID.ServiceID AS "ServiceName", tServiceID.Description AS "ServiceDesc",/ tServiceID.InstallationDate, tServiceType.CodecFROM ((((((((((SELECT TXN.ServiceID, TXN.ServiceTypeID, TXN.CustomerID, TXN.StatusID, TXN.PersonID,U TXN.LocationID, TXN.CustomerCentreID, TXN.CustomerActivityID, TXN.CustomerElementID, TXN.CustomerSubledgerID,b Sum(CASE tTransactionGroup.Description WHEN 'RENT' THEN TXN.AmountExGST ELSE 0 END) AS "RentAmt",b Sum(CASE tTransactionGroup.Description WHEN 'CALL' THEN TXN.AmountExGST ELSE 0 END) AS "CallAmt", Sum(CASE tTransactionGroup.Description WHEN 'OTHER' THEN TXN.AmountExGST WHEN 'ADMIN' THEN TXN.AmountExGST ELSE 0 END) AS "OtherAmt"FROM ( TXNJLEFT JOIN tTransactionType ON TXN.TransactionTypeID = tTransactionType.ID)YLEFT JOIN tTransactionGroup ON tTransactionType.TransactionGroupID = tTransactionGroup.IDWHERE TXN.BatchID = AND TXN.RevenueFlag = 1VGROUP BY TXN.ServiceID, TXN.ServiceTypeID, TXN.CustomerID, TXN.StatusID, TXN.PersonID, TXN.CustomerSubledgerID) AS TN1/LEFT JOIN tStatus ON TN1.StatusID = tStatus.ID)5LEFT JOIN tCustomer ON TN1.CustomerID = tCustomer.ID)/LEFT JOIN tPerson ON TN1.PersonID = tPerson.ID)5LEFT JOIN tLocation ON TN1.LocationID = tLocation.ID)xLEFT JOIN (tCentre LEFT JOIN tDepartment ON tCentre.DepartmentID = tDepartment.ID) ON TN1.CustomerCentreID = tCentre.ID)=LEFT JOIN tActivity ON TN1.CustomerActivityID = tActivity.ID):LEFT JOIN tElement ON TN1.CustomerElementID = tElement.ID)@LEFT JOIN tSubledger ON TN1.CustomerSubledgerID = tSubledger.ID)6LEFT JOIN tServiceID ON TN1.ServiceID = tServiceID.ID)=LEFT JOIN tServiceType ON TN1.ServiceTypeID = tServiceType.IDWHERE tStatus.Status IS NULL*OR tStatus.Status NOT LIKE '%Information%'ORDER BY tServiceID.ServiceIDdbPPdata$SELECT tValidAccountNumber.AccountNo FROM tBatchRLEFT JOIN tValidAccountNumber ON tBatch.SupplierAccountID = tValidAccountNumber.IDWHERE tBatch.ID = AccountNoExporting Web information Please wait - searching for dataNo entries for BatchID found in Saving data to fileSELECT ParmText FROM tParameterWHERE Parm LIKE 'TBSdirectory'ParmTextSELECT COUNT(*) AS TotalAllFROM tTransactionWHERE tTransaction.BatchID = AND RevenueFlag = 1TotalAllB\.cdeSave Web Billing Details-Batch Files (*.cde)|*.cde|All Files (*.*)|*.*cdeSaving Web Billing data for to file ...ShipTo,RentAmt ######0.00CallAmtOtherAmtCode ServiceNameLocationPersonCentreActivity Element Subledger DepartmentInstallationDate dd/mm/yyyyStatusStdU3Uh%d0d 3ZYYdh,]Ã-m94 L ^  &, &< &&& 8 ."`"b$.       @"0(   & "b$fL&& D "$$$: <   h"> ,Fj" F  (L ^"p"t &""b(.   (.   (.   (.  ""b&""b""b""b&""b&"`""b&"`""b&"`""b&""b (.  "` (2 x z * *: j $j$j   8  NH RB *&&&NpB"&*0r&&&B<&&N&@,D VH"  b d: )u~D~D~D~DL0Hf: : 9id(pRHH\ʝu  ЍС}-  a