ئhGikִ.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(GetQuotePurchasesA*! 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( GetQuoteJobs*! 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(QuoteSystemPurchasesInvoice*!nBatch! dStartDate" !dEndDate"!BatchDescription !lAnyTimeb lContinuef EmptyList c(QuoteSystemJobsInvoice*!nBatch! dStartDate" !dEndDate"!BatchDescription !lAnyTimeb lContinuef EmptyList c(QuoteSystemInvoice*!nBatch! dStartDate" !dEndDate"!BatchDescription !lAnyTimeb lContinuef EmptyList c( FinalizationX,Td\! *c( QuoteSystem!*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ډE3Uhd0d UEuu88huu440044EuuEuu EE܋L LP PE|xxQ( tt غ pp llE3Y@3 38M83DžXDž\?3d3`lQ4l8Q48ML8lQ4lltEȺ3E`lRTUllR@ltQ4lQ48MȺ8lQ4llt3ElRTEčUEllR@lQ4lQ48M 8lQ4l<Q4lluXlRTEEllt3ҋ0V lxQ4xQ4huh88xQ4}txQ4PxQ48xQ8Q,xR@p|Q4pQ4pQ4Qjf 3ҸEER@|R@EEEuh$8QX8h4E@4QX488U P EEhuEtEEEphuh88p0V pp=pUQX  P 88EPRTUp8ML8p0V pptGEhuEtELEE0pUQXpUQXEuhuh4EE h4uhHu88Uuhuh4E T EhTRL]uhuu88h4EE|uhuu88h4EEhu+uhHu88U UEFROM (SELECT Sum(tDataCollection.AmountIncGST) AS TotalIncGST,+ Sum(tDataCollection.GSTAmount) AS TotalGSTFROM tDataCollection WHERE tDataCollection.BatchID = ) AS BatchRateWHERE tBatch.ID = UQjjIuQMSVWMډE3UhGd0d UEuu88h`uu440l044EuuEuu EE܋L LP PE|xxQ( txt غ pxp lxlE3Y@3 38Mຜ83DžXDž\?3d3`lQ4lQ48M8lQ4lltEȺl3ElRTUllR@l,Q4l@Q48MȺX8lQ4llt3ExlRTEčUEllR@lQ4lQ48M8lQ4lQ4llulRTEEll,3ҋ0V lLxQ4`xQ4hxuh88xQ4}txQ4xQ4xxR@pQ4p@Q4p\Q4"jf h3ҸtEER@|R@EEEuh8QX8hE4QX488U  EEuEE E<EHphduh88p0V pp=pUQX   88ERTUp8M8p0V pptGEuEE LE<EH0pUQXpUQXEuhuhEEhuhu88UuhuhE  ERL]uhuu88hEE(uhuu88hEEu+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,]Ã-my:XXX9,$ b(@*@DB  d fF"@@@" ~,&b B< l< l< l8             0   ~ 2  2  4j,& ~D. @D,& ~D6&@D,& ~P (8"$    b8 h8,,6 $" 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 f&F"@@@" ~,&b B< l< l< l8             0   ~ 2  2  4j,& ~D. @D,& ~D6&@D,& ~P (8"$    b8 0 8,,6 $" 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,  \   D,,,* $nlJr& :x2^00:\:J*bbt>>>>$0J*XJ::BnBnBBB:BnBBnBBB0 4J :P "   F.F$!,@ $      \H"*r%Z>$$ 4 ,4 4  $2$F*$ (,,T:",,T0",,T,40>  \   ,,,* $nlJr& :x2^00:\:J*bbtt>>>>"0J*XJ::BnBnBBB:BBnBBBBB0 4J :P "   F.F$ ,@ $      \H"*%"" 8"" 8"" 8 8l5$""$6  y5 yey$ iAu}yy= = == $ - = =  -x `pPP (p2Ziq%*%!*%+%+Q)WqIZ(p2Zi5**i,y,YTYZ59]] pam y8yfam} p 8f p 8faa  a