ئhG4]F g .TStringList<*cdSysUtilsZkgIntToStrJ 7gTrim~ g UpperCase~ g TimeToStr_tg CurrToStr`bcdMessagesZkcdSysInitZkcdSystemZkf AnsiString8f TDateTime_IfString8fLongint|ofInteger|ofRealBYrPfBooleanNcfCurrency,eigTObject.Create݋RgTrue1ogFalse1og VarIsNullcgPosg@LStrPosX,TdgCopyg @LStrCopyX,TdgBreakgLengthg@LStrLen?gIncgTruncg TObject.Free݋Rg @LStrCat3X,Tdg @LStrCatNX,Tdg @LStrLAsgX,Tdg@LStrCatX,Tdg@LStrCmpX,Tdg@LStrClrg @VarToIntX,Tdg@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 gYeargMonthgFormattedDateString_tgStandardDateTimeString_tceGenFns gRightyQg CleanString~ gUpdateBatchStatusz3>g DeleteFromDC.ceDataMod ceMain gMainForm.|ceMathZkc*TServiceDetails@*TCallHeaderTypeh .1f" nCountfp nFactorfr frmProgressft(GetQuotePurchasesr$! nBatchNumberb! dStartDate" !dEndDate" !BatchDescriptionb " lReturnCodef dLogDateTimef sBillPeriodf sFromDatef sToDatef sBatchf sBatchDescriptionf curAmtExGSTf curAmtGSTf sCodef sDescriptionf sShipTof sServiceIDf sServiceTypeIDf slTransactionTypeNamef slTransactionTypeIDf nTransactionTypef if nPos sSubStringf sListValuesf q sListFieldsf a FieldStringListfQ ValueStringListfA qryStringListf1 qryDCf! qryQuoteSystem qryLookf nListValuesf nTotalCountf nBlockf Factorf lGSTFlag fGSTRatef MessageFormc( GetQuoteJobst$! nBatchNumberb! dStartDate" !dEndDate" !BatchDescriptionb " lReturnCodef dLogDateTimef sBillPeriodf sFromDatef sToDatef sBatchf sBatchDescriptionf curAmtExGSTf curAmtGSTf sCodef sDescriptionf sShipTof sServiceIDf sServiceTypeIDf slTransactionTypeNamef slTransactionTypeIDf nTransactionTypef if nPos sSubStringf sListValuesf q sListFieldsf a FieldStringListfQ ValueStringListfA qryStringListf1 qryDCf! qryQuoteSystem qryLookf nListValuesf nTotalCountf nBlockf Factorf lGSTFlag fGSTRatef MessageFormc(QuoteSystemPurchasesInvoiceյX$!nBatch! dStartDate" !dEndDate" !BatchDescription lContinuef EmptyListc(QuoteSystemJobsInvoiceյX$!nBatch! dStartDate" !dEndDate" !BatchDescription lContinuef EmptyListc(QuoteSystemInvoiceյX$!nBatch! dStartDate" !dEndDate" !BatchDescription lContinuef EmptyListc( FinalizationX,Td\! $c( QuoteSystem!$cMjX,Custno ,ServCode , ServiceID ,RentFrom ,RentTill (,CallFrom 8,CallTill HcM!, SequenceNo&, ServiceID(,TxnDate*4,TxnTime,F,Origin.R,Duration0|,CallCode2!,RateDescription4-, DialledNumber6, ServiceNotes8, AmountExGST:U, GSTAmount<, AmountIncGST>,ToDate@cD"@KBDK$FDKHDK JDK*LDKNDKPDKBRDK$TDK.VDKXDKZDK\DK^DD`>BD>D`>D`>D`>D`>D` >D`>D` >D`>D`>D` >D` >D` >D`>D">lTServiceDetails,UQjjIuMSVWMUE3Uh4d0d U܋EuuddhLuu``\X\``EuuEu uEE؋UL hP lEEEEQ( EdE x EdEE3Y@3 3dMܺd3DžpDžt?3|3xEEEQ4EQ4EQ4EHQ4EYtEdQXdEQ4ERTddEQ4EEtEER@EQ4EQ4huhddEQ4EQ4dEQdQ,ER@EQ4E8Q4ETQ4jf `3ҸlEUER@ER@EEEuhdQXdhE`QX`ddULLEuE  E RTUEh@uhddES EEtGEuEĺdE FEĺpE *|EUċQXEUQXELLddERTUEdMdES EEtGEuEĺdE FEĺpE *|EUċQXEUQXEuhuhEEhuhučddUuhuhELLERL]uhuu썅ddhEE(uhuu썅ddhEEu+uhuddU UEEERK|ZCEMUE8W UGdP2׋EdUuEEEKu}~FER;E~9E<udUES dhXEUEQ4UEQ4EELdLdRH}ЛExuuuЍddhXEdEdÍEtEm܍h}țE3EȉE̍EuuuȍddhXmm<$``hXEEuhuhEEuhuhELLuDEuhdQXdhEL,LuDE@uh,dQXdhELPLuPEduhPRL$ddhELtLuUEuht`QX`ddhEUEQ4UEQ4EELLuUEuh`QX`ddhEE~*EuhuhELLuDEuhdQXdhELLuPEuhRL$ddhELLuDEuhdQXdhEUEQ4UEQ4EEL,LuUE@uh,`QX`ddhELPLuUEduhP`QX`ddhELtLuPEuLtLddhXEEuuhEUEQ4UEQ4ER@EQ4ERK|-CEdUE8W dEQ4EKuۋERK|-CEdUE8W dEQ4EKuۋEUEE|xx ܍pС3x܍pr3܍pСh`|`hddE8I ؍dUd,ER@PEQ4hEQ4EQ4EQ4 EQ4@EQ4h`uhddEQ4dMܺdEQ4EUEE EEEEEE3ZYYdh;L\EEEغ_^[]/0dbPPdatadbQuoteQuote System Purchases Batch: Reading ...-SELECT ID, UPPER(Description) AS UDescriptionFROM tTransactionType"WHERE Description LIKE '%Purchas%'!AND Description NOT LIKE '%Jobs%' UDescriptionIDSELECT *FROM BillPurchasingWHERE BillPeriod LIKE ''ORDER BY LogDateTimeSELECT Code, DescriptionFROM tServiceType WHERE ID =No entries found.(VALUES ( SequenceNo,SeqNo',ShipTo ServiceTypeIDVRT PURCHASINGPURCHASING INSTALL EQPTWHERE Description LIKE 'WPVWPCCode Description WHERE ID = ServiceType, ServiceID, PURCHASING  LogDateTimeTxnDate,TxnTime,TransactionTypeID,,AmtExGST AmountExGST,GSTFlag,'Y','N',GSTAmount,AmountIncGST, FromDate,ToDate, CallNumberVar01,SupplierVar02, BilledDateVar03,CustRefVar04,Var05,Var06, PurchaseOrderVar07,PurchaseOrderDateVar08, ITHelpUserVar09,LocationVar10,LastNameVar14,BillVar15,BatchID))INSERT INTO tDataCollectionBProcessing (transaction: )...: Quote System ...Updating tBatch data ... UPDATE tBatch#SET GSTAmount = BatchRate.TotalGST,% TotalPayable = BatchRate.TotalIncGST>FROM (SELECT Sum(tDataCollection.AmountIncGST) AS TotalIncGST,+ Sum(tDataCollection.GSTAmount) AS TotalGSTFROM tDataCollection WHERE tDataCollection.BatchID = ) AS BatchRateWHERE tBatch.ID = UQjjIuMSVWMUE3Uhd0d U܋Euuddhuu``\\``EuuEu uEE؋UL hP lEEEEQ( EE  EEE3Y@3 3dMܺd 3DžpDžt?3|3xEEE Q4EXQ4ExQ4EQ4EYEdQXdEQ4ERTddEQ4EEtEES EYEdQXdEQ4ERTddEQ4EEtEER@EQ40EQ4hHuhhddEQ4tEQ4UER@EQ4EQ4EQ4 jf 3ҸE8ER@ER@EEE(uhh<dQXdhLEX`QX`ddULhLEuE EEhuhddES EEt-EuEĺ9Eĺ* EUċQXEUQXELhLddEhRTUEdM0dES EEtGEuEĺEFEĺE* EUċQXEUQXEDuhhuhLEE\hpuhučddUuhhuhLELLERL]uhhuu썅ddhLEEuhhuu썅ddhLEEu+uhuddU UEEERK|ZCEMUE8W UGdP2׋EdUuEEEKu}~FER;E~9EudUES dhEUEQ4UEQ4EELLRH}ЛEuuuЍddhEdEdÍEtE0m܍h}țE@3EȉE̍EPuuuȍddhmm<$``hEEpuhhuhLEEuhhuhLELLuDEuhhdQXdhLELLuDEuhhdQXdhLELLuPEuhhRL$ddhLELLuUEuhh`QX`ddhLEUEQ4UEQ4EELLuUE uhh`QX`ddhLEE~*E0uhhuhLEL@LuDETuhh@dQXdhLEUEQ4UEQ4EELdLuUExuhhd`QX`ddhLELLuUEuhh`QX`ddhLELLuUEuhh`QX`ddhLELLuUEuhh`QX`ddhLELLuPEuLLddhEEuuh,EUEQ4UEQ4ER@8EQ4ERK|-CEdUE8W dEQ4EKuۋERK|-CEdUE8W dEQ4EKuۋEUEE|xx ܍pС3x܍pTr3܍pСh``|`hddE8I ؍dUdER@EQ4EQ4EQ4HEQ4EQ4EQ4huhddEQ4dMܺ(dEQ4EUEE EEEEEE3ZYYdhL\EEEغ_^[]/0dbPPdatadbQuoteQuote System Jobs Batch: Reading ...-SELECT ID, UPPER(Description) AS UDescriptionFROM tTransactionType WHERE Description LIKE '%Jobs %'AND Description LIKE '%Labour%' UDescriptionID#AND Description LIKE '%TH Install%'SELECT * FROM BillJobsWHERE BillPeriod LIKE ''ORDER BY LogDateTimeSELECT Code, DescriptionFROM tServiceType WHERE ID =No entries found.(VALUES ( SequenceNo,SeqNo',ShipTo ServiceTypeIDVRTJOBS LABOUR INSTALLJOBS INSTALL LABOURWHERE Description LIKE '%'JI1JILCode Description WHERE ID = ServiceType, ServiceID,JOBS  LogDateTimeTxnDate,TxnTime,TransactionTypeID,,AmtExGST AmountExGST,GSTFlag,'Y','N',GSTAmount,AmountIncGST, FromDate,ToDate, CallNumberVar01,SupplierVar02, BilledDateVar03,CustRefVar04,Var05,Var06, ITHelpUserVar09,LocationVar10,ProgOnlyVar12, ProgLocationVar13,LastNameVar14,BillVar15,BatchID))INSERT INTO tDataCollectionBProcessing (transaction: )...: Quote System ...Updating tBatch data ... UPDATE tBatch#SET GSTAmount = BatchRate.TotalGST,% TotalPayable = BatchRate.TotalIncGST>FROM (SELECT Sum(tDataCollection.AmountIncGST) AS TotalIncGST,+ Sum(tDataCollection.GSTAmount) AS TotalGSTFROM tDataCollection WHERE tDataCollection.BatchID = ) AS BatchRateWHERE tBatch.ID = UQSVWEMӋuuu uM׋_^[Y]UQSVWEMӋuuu uM׋_^[Y]UQSVWEMӋuuu uM׋}tuuu uM׋_^[Y]U3Uh%d0d 3ZYYdh,]Ã-m:PPPF"<<<" x,&z| B8 \8 \8 \,           ,   x .  .  0V8 \8 \"&&&< <,(& z&\,&&6  " 0 | | ~ ,z 8@>b   | | <  zB(  | | | |  << xB(  | | | |  ~z ~ &z>zb  ~ ""z ~"Bz &z>>h f2jV ~>z<b" ~(Dz@  ~ ~. ~  ~(D4Dz ~z ~zb ~ ,zb ~ ,zb ~ .zb ~ 8z<b ~ 8zp ~zb ~ ,zb ~ .zb ~ ,z<b ~ 8zb ~ 8zb ~<z ~zF!  >  "< z.  <   x. .   z8 x,   vvv    vvvv   "MFM"<<M<"M x,&z| B8 \8 \8 \, M  M  M      ,  M x . M .  0V8 \8 \"M&M&M&MM<M <,(M$M<M <,(&MMMM z&M$ ,M&M&M6MM  " 0M |M |M ~M M,Mz M8@>Mb M M |M | MM zB(M M |M |MM  M<M<M xB(M M |M |M |M |MM M ~MMzM ~ MM&z>MMzMb M ~ M"M"MzM ~M"BMzM M&z>>hM f2jVM ~>Mz<MbM"M ~(DMz@M M ~M ~.M ~ M ~(DM4DMzM ~MMzM ~MMzMbM ~M M,MzMbM ~M M,MzMbM ~M M.MzMbM ~M M8Mz<MbM ~M M8MzpM ~MMzMbM ~M M,Mz<MbM ~M M8MzMbM ~M M8MzMbM ~M M8MzMbM ~M M8MzMbM ~M<MzM ~MzFM!  >M  M"<M z.  <   Mx.M .  MMMMMMMM z8M x,   vvv    vvvvM  "8 \$v0 8 \$v0M%8 \$v0<MAAA E E%jZ>.,. $2$F*$ (&&&&LV V>&&&* $nlJ2l**x2X**:\:J*bbt. L &XJ*XB::BnBnBBB:BnBBnBBB0.>.>   F.F$},@ $VB*b!Z>.,. $2$F*$ (&&&&LV 0LV V&&&* $nlJl**x2X**:\:J*bbt. L &XJ*XB::BnBnBBB:BnBBBBB0.>.>   F.F$y,@ $VB*"000 0l .%E!} -u* `֠ p) # $A(A)IIIiN)PM p % %)5*9KOaR p 2`  p  !2!` % p)5 =2=`)5A E a