ئhG]veC 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" !BatchDescription " lReturnCodef dLogDateTimef sBillPeriodf sFromDatef sToDatef sBatchf sBatchDescriptionf curAmtExGSTf curAmtGSTf sCodef sDescriptionf sShipTof sServiceIDf sServiceTypeIDf slTransactionTypeNamef slTransactionTypeIDf nTransactionTypef if nPos sSubStringf sListValuesf sListFieldsf q FieldStringListfa ValueStringListfQ qryStringListfA qryDCf1 qryQuoteSystem qryLookf! nListValuesf nTotalCountf nBlockf Factorf lGSTFlag fGSTRatef MessageFormc( GetQuoteJobst$! nBatchNumberb! dStartDate" !dEndDate" !BatchDescription " lReturnCodef dLogDateTimef sBillPeriodf sFromDatef sToDatef sBatchf sBatchDescriptionf curAmtExGSTf curAmtGSTf sCodef sDescriptionf sShipTof sServiceIDf sServiceTypeIDf slTransactionTypeNamef slTransactionTypeIDf nTransactionTypef if nPos sSubStringf sListValuesf sListFieldsf q FieldStringListfa ValueStringListfQ qryStringListfA qryDCf1 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">lETServiceDetails,UQjjIuQMSVWMډE3Uh&d0d UEuuhhh@uudd`L`ddEuuEu uEE܋L lP pEEEEQ( EXE l EXEE3Y@3 3hM|h3DžtDžx?3E3|EEEQ4EQ4EQ4E<Q4EYhEhQXhEQ4ERThhEQ4EEtEER@EQ4EQ4huhhhEQ4EQ4hEQhQ,ER@EQ4E,Q4EHQ4 jf T3Ҹ`EKER@ER@E|EEuhhQXhhEdQXdhhUPPEuEĺ EĺRTUEh4uhhhES EEtGEuEȺXEĺFEȺdEĺ*pEUȋQXEUċQXEPPhhERTUEhMhES EEtGEuEȺXEĺFEȺdEĺ*pEUȋQXEUċQXEuhuhEEhuhuȍhhUuhuhEPPERL]uhuuhhhEEuhuuhhhEEu+uhučhhU UEEERK|CEMUE8W EKuUChP2ӋEhU }~FER;E~9E0uhUES hhLEUEQ4UEQ4EEPXPXRH}ԛEluuuԍhhhLEhEhÍEtEm܍l}̛E3ẺEЍEuuu̍hhhLmm<$ddhLEEuhuhEEuhuhEPPuDEuhhQXhhEP PuDE4uh hQXhhEPDPuPEXuhDRL$hhhEPhPuUExuhhdQXdhhhEUEQ4UEQ4EEPPuUEuhdQXdhhhEE~*EuhuhEPPuDEuhhQXhhEPPuPEuhRL$hhhEPPuDEuhhQXhhEUEQ4UEQ4EEP PuUE4uh dQXdhhhEPDPuUEXuhDdQXdhhhEPhPuPExuPhPhhhLEEuuhEUEQ4UEQ4ER@EQ4ERK|-CEhUE8W hEQ4EKuۋERK|-CEhUE8W hEQ4EKuۋEUEEE|| ܍tС3|܍tr3܍tСhdEdhhh E8I ؍hUh ER@DEQ4\EQ4EQ4EQ4EQ44EQ4hTuhhhEQ4hMຘhEQ4EUEE EEEEEE3ZYYdh-P`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 = UQjjIuQMSVWMډE3Uhd0d UEuuhhhuudd``ddEuuEu uEE܋L lP pEEEEQ( EE  EEE3Y@3 3hMh3DžtDžx?3E3|EEEQ4EHQ4EhQ4EQ4EYEhQXhEQ4ERThhEQ4EEtEES EYEhQXhEQ4ERThhEQ4EEtEER@ EQ4 EQ4h8uhXhhEQ4dEQ4UER@EQ4EQ4EQ4 jf 3ҸE.ER@ER@EEEuhX,hQXhh<EHdQXdhhUPXPEpuEĺ| EĺEhuhhhES EEt-EpuEȺ9EȺ*EUȋQX EUċQXEPXPhhEXRTUEhM hES EEtGEpuEȺEĺ|FEȺEĺ*EUȋQX EUċQXE4uhXuh<EELh`uhpuȍhhUuhXuh<EP|PE|RL]uhXuuhhh<EEuhXuuhhh<EEpu+uhpučhhU UEEERK|CEMUE8W EKuUpChP2ӋEhU& }~FER;E~9EuhUES hhEUEQ4UEQ4EEPPRH}ԛEuuuԍhhhEhEhpÍE tE m܍l}̛E03ẺEЍE@uuu̍hhhmm<$ddhEE`uhXuh<EEtuhXuh<EPPuDEuhXhQXhh<EPPuDEuhXhQXhh<EPPuPEuhXRL$hhh<EPPuUEuhXdQXdhhh<EUEQ4UEQ4EEP PuUEuhX dQXdhhh<EE~*E uhXuh<EP0PuDEDuhX0hQXhh<EUEQ4UEQ4EEPTPuUEhuhXTdQXdhhh<EPxPuUEuhXxdQXdhhh<EPPuUEuhXdQXdhhh<EPPuUEuhXdQXdhhh<EPPuPEuPPhhhEEuuhEUEQ4UEQ4ER@(EQ4ERK|-CEhUE8W hEQ4EKuۋERK|-CEhUE8W hEQ4EKuۋEUEEE|| ܍tС3|܍tDr3܍tСhPdEdhthh'E8I ؍hUhER@EQ4EQ4EQ48EQ4EQ4EQ4huhhhEQ4hMhEQ4EUEE EEEEEE3ZYYdhP`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 .  .  0P8 \8 \"&&&< <,(& z&\,&&6  " 0 | | ~ ,z 8@>b   | | <  zB(  | | | |  << xB(  | | | |  ~z ~ &z>zb  ~ ""z ~"Bz &z>>t f2jB ~>z<b" ~(Dz@  ~ ~. ~  ~(D4Dz ~z ~zb ~ ,zb ~ ,zb ~ .zb ~ 8z<b ~ 8zp ~zb ~ ,zb ~ .zb ~ ,z<b ~ 8zb ~ 8zb ~<z ~zF!  8  < z.  <   x. .   z8 x,   vvv    vvvv  "MFM"<<M<"M x,&z| B8 \8 \8 \, M  M  M      ,  M x . M .  0P8 \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>>tM f2jBM ~>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!  8M  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." T&XJ*XB::BnBnBBB:BnBBnBBB0.>.>  F.F$,@ $VB*b!Z>.,. $2$F*$ ( &&&&LV 0LV V&&&* $nlJl**x2X**:\:J*bbt." T&XJ*XB::BnBnBBB:BnBBBBB0.>.>  F.F$,@ $VB*"000 0l .%E!} -m* h pZi) # $A(A(III1N)PM p]Z]i%%)*KO)R p 2`  p  !2!` % p)5 =2=`)5A E a