ئhGkִ.Q g .TStringList<*cdSysUtilsZkgIntToStrJ 7g DateToStr_tgNowN gTrim~ g UpperCase~ g TimeToStr_tg CurrToStr`bcdMessagesZkcdSysInitZkcdSystemZkf AnsiString8f TDateTime_IfString8fLongint|ofBooleanNcfInteger|ofRealBYrPg @LStrCatNX,Tdg@LStrClrg@HandleFinallyX,TdfCurrency,eifVariantJh7gTObject.Create݋RgTrue1ogFalse1og VarIsNullcgLengthg@LStrLen?gIncgTruncg TObject.Free݋Rg @LStrCat3X,Tdg @LStrLAsgX,Tdg@LStrCatX,Tdg@LStrCmpX,Tdg @VarToIntX,Tdg @VarFromLStrjg@TRUNCX,Tdg@VarClrX,Tdg @LStrArrayClrX,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 g AddToTabley)gRightyQg CleanString~ gUpdateBatchStatusz3>g DeleteFromDC.ceDataMod ceMain gMainForm.|ceMathZkc*TServiceDetails@"*TCallHeaderTypeh$ .1f&%DEFAULT_TRANSACTIONTYPEID ( nCountf nFactorf frmProgressf  slAddFieldNamesf  slAddFieldValuesf (SetupForNewTransactionTypesa*c(AddNewTransactionType*! sDescription !nTransactionGroupID ! nSystemIDbc(GetMarvalQuotePurchasesQ*! nBatchNumberb! dStartDate"(!dEndDate"!BatchDescription !lAnyTimeb" lReturnCode& dLogDateTimef sBillPeriodf sFromDatef sToDatef sBatchf sBatchDescriptionf curAmtExGSTf curAmtGSTf sBatchTypeIDf nSystemIDf sSystemIDf nTransactionGroupIDf vDescriptionf lFound sTransactionTypeIDf sCodef sDescriptionf sShipTof sServiceIDf sServiceTypeIDf slTransactionTypeNamef slTransactionTypeIDf q nTransactionTypefa ifQ nPosfA sSubStringf 1 sListValuesf ! sListFieldsf  FieldStringListf  ValueStringListf qryStringListf qryDCf qryQuoteSystem qryLookf qryTTf nListValuesf nTotalCountf nBlockf Factorfa lGSTFlagf] fGSTRatef1 MessageForm c(GetMarvalQuoteJobsA*! nBatchNumberb! dStartDate"(!dEndDate"!BatchDescription !lAnyTimeb" lReturnCode& dLogDateTimef sBillPeriodf sFromDatef sToDatef sBatchf sBatchDescriptionf curAmtExGSTf curAmtGSTf sBatchTypeIDf nSystemIDf sSystemIDf nTransactionGroupIDf vDescriptionf lFound sTransactionTypeIDf sCodef sDescriptionf sShipTof sServiceIDf sServiceTypeIDf slTransactionTypeNamef slTransactionTypeIDf q nTransactionTypefa ifQ nPosfA sSubStringf 1 sListValuesf ! sListFieldsf  FieldStringListf  ValueStringListf qryStringListf qryDCf qryQuoteSystem qryLookf qryTTf nListValuesf nTotalCountf nBlockf Factorfa lGSTFlagf] fGSTRatef1 MessageForm c(QuoteSysMarvalPurchasesInvoice*!nBatch! dStartDate" !dEndDate"!BatchDescription !lAnyTimeb lContinuef EmptyList c(QuoteSysMarvalJobsInvoice*!nBatch! dStartDate" !dEndDate"!BatchDescription !lAnyTimeb lContinuef EmptyList c(QuoteSysMarvalInvoice*!nBatch! dStartDate" !dEndDate"!BatchDescription !lAnyTimeb lContinuef EmptyList c( FinalizationX,Td\! *c(QuoteSystemMarval!*cMjX,Custno ,ServCode , ServiceID ,RentFrom,RentTill(,CallFrom8,CallTillHcM!, SequenceNo,, ServiceID.,TxnDate04,TxnTime2F,Origin4R,Duration6|,CallCode8!,RateDescription:-, DialledNumber<, ServiceNotes>, AmountExGST@U, GSTAmountB, AmountIncGSTD,ToDateFcD&D&?@KHJK$LJKNJK PJK*RJKTJKVJKBXJK$ZJK.\JK^JK`JKbJKdJDf>BJ>Df>Df>Df>Df>Df >Df>Df >Df>Df>Df >Df >Df >Df>D&>l'TServiceDetails,SR@`Q4tQ4Q4Q4Q4Q4[ DescriptionTransactionGroupIDSystemIDActive StartDate LastUpdatedByUSVW3ۉ]M3Uhd0d R@hVhEUQ4UUQ4UEUQ4Q4$EUQ4Q4 3ZYYdhE_^[YY]'1 'TRANS-MIT'tTransactionTypeUQjjIuQMSVWMډE3Uhwd0d UEuu88huu440044EuuEuu EE܋L LP PE|xxQ( tt غ pp llE3Y@3 38M83DžXDž\?3d3`lQ4l0Q48MD8lQ4lltEȺ3EXlRTUllR@llQ4lQ48MȺ8lQ4llt3ElRTEčUEllR@lQ4lQ48M8lQ4l4Q4lluPlRTEElll3ҋ0V lxQ4xQ4huh88xQ4}txQ4HxQ4xxR@t jf l3ҸxEpQ4pQ4pQ41ER@|R@EEEuh8QX8h,E84QX488U H EE`uElExEEphuh88p0V pp=pUQX  H 88EHRTUp8MD8p0V pptGE`uElExLEE0pUQXpUQXE uhuh,EE$h8uhLu88Uuhuh,E X ElXRL]uhuu88h,EEuhuu88h,EE`u+uhLu88U UEFROM (SELECT Sum(tDataCollection.AmountIncGST) AS TotalIncGST,+ Sum(tDataCollection.GSTAmount) AS TotalGSTFROM tDataCollection WHERE tDataCollection.BatchID = ) AS BatchRateWHERE tBatch.ID = UQjjIuQMSVWMډE3UhHd0d UEuu88h`uu440l044EuuEuu EE܋L LP PE|xxQ( txt غ pxp lxlE3Y@3 38Mຠ83DžXDž\?3d3`lQ4lQ48M8lQ4lltEȺl3E$lRTUllR@l8Q4lLQ48MȺd8lQ4llt3ElRTEčUEllR@lQ4lQ48M8lQ4lQ4llulRTEEll83ҋ0V lXxQ4lxQ4huh88xQ4}txQ4xQ4xxR@t jf 3Ҹ,EpHQ4plQ4pQ4ER@|R@EEEuh8QX8hE4QX488U  EEuE E,EHETphpuh88p0V pp=pUQX   88ERTUp8M8p0V pptGEuE E,LEHET0pUQXpUQXEuhuhEEhuhu88UuhuhE  E  RL]uhuu88hEE4uhuu88hEEu+uhu88U UEEu+uhu88U UEFROM (SELECT Sum(tDataCollection.AmountIncGST) AS TotalIncGST,+ Sum(tDataCollection.GSTAmount) AS TotalGSTFROM tDataCollection WHERE tDataCollection.BatchID = ) AS BatchRateWHERE tBatch.ID = UQSVWMEMӋuuu uEPM׋_^[Y]UQSVWMEMӋuuu uEPM׋_^[Y]UQSVWMEMӋuuu uEPM׋}tuuu uEPM׋_^[Y]U3Uh%d0d 3ZYYdh,]Ã-m}:XXX9,$ b(@*@DB  d fF"@@@" ~,&b B< l< l< l8             0   ~ 2  2  4j,& ~D. @D,& ~D6&@D,& ~P (8"$    b8 0 : $8,,  6    ,b 8HFr d       bN00@@ ~N.       b  &bFbr   ""b "Jb &bFF .@  .@@ bBddr" (LbH  " .   (L4Lb b br  ,br  ,br  .br  8bBddr  8bv br  ,br  .br  ,bBddr  8br  8br @b bR"  >  "@ b2  <   ~2 2          b> ~8"   |||    |||| dd fq&F"@@@" ~,&b B< l< l< l8             0   ~ 2  2  4j,& ~D. @D,& ~D6&@D,& ~P (8"$    b8 0 : $8,,  6    ,b 8HFr d       bN00@@ ~N.       b  &bFbr   ""b "Jb &bFF &bFF .@  .@@ bBddr" (LbH  " .   (L4Lb b br  ,br  ,br  .br  8bBddr  8bv br  8br  ,bBddr  8br  8br  8br  8br @b bR"  >  "@ b2  <   ~2 2          b> ~8"   |||    |||| dd f&]"< l$|< l < l  8}"< l$|< l < l  8"< l$|< l < l  8D f ) j  PD(*<^pZ>$$ 4 ,4 4  $2$F*$ (,,T:",,T0",,T,40  \   *,,6$nlJr& :x2^00:\:J*bbt>>>>0J*XJ::BnBnBBB:BnBBnBBB0 4J :P "   F.F$a,@ $      \H"*rY&Z>$$ 4 ,4 4  $2$F*$ (,,T:",,T0",,T,40  \   *,,6$nlJr& :x2^00:\:J*bbtt>>>>0J*XJ::BnBnBBB:BBnBBBBB0 4J :P "   F.F$=,@ $      \H"*&"" 8"" 8"" 8 8l("$2  y- y]y$ iuYyy i9=A =q = $ - 9e = =  -mx `pPP (p2Ziq%)%)%Y+%i+QVqY(p2Zi5**m,},YTYZ5=]] pam y8yfam} p 8f p 8faa  a