ئhG=veC

8g.TButtonpt@g .TComboBoxɵg.TEditgTCustomComboBox.SetItemIndexRlgTCustomComboBox.GetItemIndexJlcdDialogsZkg MessageDlghf TMsgDlgTypeg mtWarningqeDf TMsgDlgBtn"b$gmbOK| BcdFormsZkfTFormNbf TCloseAction.g.TForm8NgTCustomForm.AlignControls6j-gTCustomForm.CreateParams9j-gTCustomForm.CreateWindowHandle:j-gTCustomForm.CreateWnd;j-gTCustomForm.DefineProperties=j-gTCustomForm.DestroyWindowHandle>j-gTCustomForm.GetClientRectBj-gTCustomForm.GetFloatingDj-gTCustomForm.LoadedEj-gTCustomForm.NotificationFj-gTCustomForm.PaintWindowHj-gTCustomForm.QueryInterfaceJj-gTCustomForm.ReadStateKj-gTCustomForm.SetParentBiDiModeNj-gTCustomForm.SetParentPj-gTCustomForm.UpdateActionsQj-gTCustomForm.ValidateRenameSj-gTCustomForm.WndProcUj-gTCustomForm.Createj-gTCustomForm.CreateNewj-gTCustomForm.Destroyj-gTCustomForm.AfterConstructionj-gTCustomForm.BeforeDestructionj-gTCustomForm.CloseQueryj-gTCustomForm.DefaultHandlerj-gTCustomForm.SetFocusj-gTCustomForm.SetFocusedControlj-gTCustomForm.ShowModalj-gTCustomForm.WantChildKeyj-g%TScrollingWinControl.AdjustClientRecthg&TScrollingWinControl.AutoScrollEnabledhgTCustomForm.Closej-cdControlsZkgTWinControl.UpdateLastResize)gTWinControl.AssignTo*gTWinControl.CanAutoSize*gTWinControl.CanResize*gTWinControl.ConstrainedResize*gTWinControl.CreateHandle*gTWinControl.DestroyWnd*gTWinControl.GetClientOrigin1*gTWinControl.GetControlExtents3*gTWinControl.GetDeviceContext4*gTWinControl.ShowControlN*gTWinControl.Invalidate*gTWinControl.Repaint*gTWinControl.SetBounds*gTWinControl.Update*gTControl.GetDragImages_gTControl.GetEnabled_g!TControl.GetFloatingDockSiteClass_gTControl.SetDragMode_gTControl.SetEnabled_gTControl.SetName_gTControl.SetBiDiMode_gTControl.InitiateAction_gTControl.GetText?_gmrOkDСgTControl.SetTextc_cdGraphicsZkcdClassesZkf TStringList-SB>gTComponent.UpdateRegistry2gTComponent.WriteState2gTComponent.SafeCallException+2gTPersistent.Assign0g .TStringList<*cdSysUtilsZkgIntToStrJ 7gStrToIntg UpperCase~ gTrim~ g CurrToStr`bcdMessagesZkcdWindowsZkcdSysInitZkcdSystemZkfTObject.fBooleanNcfInteger|of AnsiString8fString8f TDateTime_IgTObject.Dispatch݋RgTObject.NewInstance݋RgTObject.FreeInstance݋RgFalse1og@LStrAsgX,Tdg@LStrClrg@HandleFinallyX,Tdg @LStrAddRefX,Tdg @LStrCat3X,Tdg @VarToLStr kg@VarClrX,Tdg @LStrArrayClrX,Tdg VarIsNullcg SetLengthgIncgTrue1og@DynArraySetLengthX,TdgLengthg@LStrLen?gTObject.Create݋RgCopyg @LStrCopyX,Tdg TObject.Free݋Rg@LStrCmpX,Tdg @LStrLAsgX,Tdg@LStrCatX,Tdg @LStrCatNX,Tdg @VarFromLStrjg@VarCmpX,Tdg @VarToIntX,TdfVariantJh7g@FinalizeArrayX,Tdg@DynArrayClearwgceMain gaWinForm┋hgWINNUMDСceGenFns g CleanString~ ce DateFunctions gFormattedDateString_tceDataMod c& .TManualFormkc** TManualFormw, ManualFormw,] .2f. aServiceTypeIDf0*.30(TManualForm.FormCloseD,2!Self,!Sender"Actionc(TManualForm.SetWindowNumDJ2!Self,!Value c(TManualForm.SetBatchIDD2!Self,!Value c(TManualForm.GetBatchIDD !Self, Result c(TManualForm.SetExGSTD2!Self,!Valuef"c(TManualForm.GetExGSTD, "!Self,#Result"c(TManualForm.SetGSTD2!Self,!Valuef"c(TManualForm.GetGSTD, "!Self,#Result"c(TManualForm.SetIncGSTD2!Self,!Valuef"c(TManualForm.GetIncGSTD, "!Self,#Result"c(TManualForm.SetFromDateD02!Self,!Value&&c(TManualForm.GetFromDateD0 &!Self, Resultf&c(TManualForm.SetToDateD02!Self,!Value&&c(TManualForm.GetToDateD0 &!Self, Resultf&c(TManualForm.btnCancelClickD 2!Self,!Senderc( TManualForm.InitiateSQLServiceIDD1 2!Self,!nItem c(TManualForm.InitiateSQLD!2!Self,!slQuery" Successfulf nArray c(TManualForm.edtExGSTExitD2!Self,!Senderc(TManualForm.edtGSTExitD2!Self,!Senderc(TManualForm.edtIncGSTExitD2!Self,!Senderc(TManualForm.cbServiceTypeChangeD22!Self,!Senderc(TManualForm.btnSaveClickD2!Self,!Sender slInsertManual sManualIDf" sRateDescf" lAddRateDescf sReferencef" lAddReferencef sTempf" sGSTflagf" . c(TManualForm.FormCreateD2!Self,!Sender .c( FinalizationX,Td! 2c(Manual!2cG,F j,lblServiceType  , lblServiceID ! ,edtExGST1 ,edtGSTA , edtIncGSTQ ,lblExGST a ,lblGST q , lblIncGST ,lblFrom ,lblTo , btnCancel ,btnSave ,qManual ,dsManual ,qManualService ,dsManualService , cbServiceType , cbServiceID! ,edtRateDescription1 ,lblRateDescription A ,qryQ ,lblVar01_Reference a ,edtVar01_Referenceq ,edtTo ,edtFrom ,lblTransactionGroup ,cbTransactionGroup - FormClose-btnCancelClick- InitiateSQL-InitiateSQLServiceID-cbServiceTypeChange- btnSaveClick- edtExGSTExit- edtGSTExit- edtIncGSTExit- FormCreate,nWindow ,sBatchID" , sManualRentID" , sManualCallID" ,sManualOtherID" - SetWindowNum- SetBatchID- GetBatchID-SetExGST -GetExGST-SetGST%-GetGST1- SetIncGST=- GetIncGSTI- SetFromDateU- GetFromDatea- SetToDatem- GetToDatey0ActiveWindowNum U0BatchID Y0 ExGSTAmount"] 0 GSTAmount"a1%0 IncGSTAmount"eI=0FromDate&iaU0ToDate&mymcD.E(4@L6 D lgL J1D48<@lblServiceType lblServiceIDedtExGSTedtGST edtIncGSTlblExGSTlblGST lblIncGSTlblFromlblTo btnCancelbtnSaveqManualdsManualqManualServicedsManualService cbServiceType cbServiceID edtRateDescriptionlblRateDescriptionqrylblVar01_ReferenceedtVar01_Reference edtTo$edtFrom(lblTransactionGroup,cbTransactionGroup  FormClosebtnCancelClick InitiateSQLInitiateSQLServiceIDcbServiceTypeChange btnSaveClick edtExGSTExit edtGSTExit edtIncGSTExit FormCreate TManualForm TManualFormL\Manual0UActiveWindowNumVBatchIDW ExGSTAmountX GSTAmountY IncGSTAmountZFromDate[ToDate.30t ;0t~ "}0 ǀ0UjSV3UhGd0d UU43ZYYdhNE^[Y]Ë4UQSU؋E3UhDd0d U3ZYYdhKE[Y]SV؋֋^[UQSU؋E3UhDd0d U3ZYYdhKE[Y]SV؋֋^[UQSU؋E3UhDd0d U3ZYYdhKE[Y]SV؋֋^[Uu u$]$$$YZUu u ] $$YZU3QQQQQQSV3Uhd0d R@t 8/R@Q4 Q4<Q4UMEUQ4Q4Q4uW9MUEUQ4t3ҋ3ZYYdhEE^[]LSELECT tServiceType.ID AS ServiceTypeID, tServiceID.ServiceID, tServiceID.IDFROM tServiceTypeC LEFT JOIN tServiceID ON tServiceType.ID = tServiceID.ServiceTypeID!WHERE tServiceID.ServiceTypeID = AND tServiceID.Active = 1ORDER BY tServiceID.ServiceID ServiceIDUjjjjjjSVWM3Uhd0d ƋRB֋uM캬Et2jf 3ҸER@3tM캬UEU苃Q4FPRTFy3ҋЋE3ZYYdhEE_^[] ServiceType*Unknown System or Supplier. Process ended. ServiceTypeIDS؋t]tGu1<$,$<$ [S؋t_tIu3<$,$<$su]tGt1<$,$<$ [S؋u]tGt1<$,$<$ [S؋Ћ[UjjIuQSVW3Uhd0d UEtUEujf 3ҸU,EUEuE8LEuE<-E uE@E@EU EUE܍UEE}t ElUEUE܍UEE}t E躈ƋQ4huhEܺU܋ƋQ4uE EhUuhuh  $<$Euh0 $<$Euh0 $<$Euh0E EPU܋$E܍UEعEܺ<uEH7uh$$Euh EEPU܋ E܍UEعEܺ<uEX7uh $EuhE}tuhhuhE}tuhhuhEht4h0uh0uhEܺU܋ƋQ4֋ǃ,3ZYYdhEԺEEEE_^[]*ServiceType and ServiceID MUST be entered.RENTCALLOTHERDServiceID,GSTFlag,AmountExGST,GSTAmount,AmountIncGST,FromDate,ToDate,RateDescription,Var01INSERT INTO tDataCollection(BatchID,TransactionTypeID,)NY'','',@F,/NULL,NULL,'VALUES (UjjIuQSV3Uhd0d ,Q4,Q4,Q4,R@Q4$Q4DQ4Q4Q48 < @ ((MEPE0UXu2M@EUU܍8MEPELUXu/M@EUU܍<XMEPE\UXu-M@EUU܍@R@3ZYYdhEE^[]CallOtherRentHSELECT tTransactionType.id, tTransactionGroup.Description AS "GroupName"FROM tTransactionTypeYLEFT JOIN tTransactionGroup ON tTransactionType.TransactionGroupID = tTransactionGroup.ID1WHERE tTransactionType.Description LIKE 'Manual%'AND tTransactionType.Active = 1NULL GroupNameRENTidCALLOTHERU3Uh7d0d u3ZYYdh>]Ã-mf!%pxz~tvhjlnr| *$64&&"(:H$JLN2"b D 4 <1%8I=>aU6ym2(J -1 5  9 (& 1 5(%9%(&%1 51(=9=(&=1 5I(U 4a6m 4y6 *"D,, =J, 2A>8PEI 5e:@ .M VPA: ]@PR&1E 5*  *  *  **.,*  *  *  **.,*  *  *  **.,*  *  *  **.,R 2(e$e V& y } y } y } } }e( e(  i**  } } * * * $:$q y 6$:$q y 6 2  u.I1I1I 50.,,,    $ - - -N - - -(01 5i!!  ! 5% % 2j @V @V @V "$"$ >"J",,,h,,"\nMNT*"\8<&(V b fb b(Fh42>>>H&H&Hd|n|nFFn uD,,,          >VdV^VZvQ, ]2..NPRTVXZ\^`tvx z|%~1=IUamy@*`4H`022@ @2@`0 ! &!&%@2)@)1`05 9 5&9&=@2A@AI`0M Q M&Q&U@YY(a@ee*m@qq(y@}}*@ `00>>0pNN)E@ @ @ @.XpFi  5`H0D9 A ! % a