ئhG'~kNX8g .TCheckBox9g.TButtonpt@g .TComboBoxɵgTCustomComboBox.SetItemIndexRlgTCustomComboBox.GetItemIndexJlfTCheckBoxState[xg cbUnchecked!cdDialogsZkg 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.AutoScrollEnabledhcdControlsZkgTWinControl.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.SetTextc_gTControl.GetText?_gmrOkDСcdGraphicsZkcdClassesZkf TStringList-SB>gTComponent.UpdateRegistry2gTComponent.WriteState2gTComponent.SafeCallException+2gTPersistent.Assign0g .TStringList<*cdSysUtilsZkg CurrToStr`bgTrim~ g UpperCase~ gIntToStrJ 7gStrToIntg StrToCurr`bcdMessagesZkcdWindowsZkcdSysInitZkcdSystemZkfTObject.f AnsiString8fBooleanNcfInteger|ofString8fCurrency,eif TDateTime_IgTObject.Dispatch݋RgTObject.NewInstance݋RgTObject.FreeInstance݋RgFalse1ogTObject.Create݋RgPosg@LStrPosX,Tdg TObject.Free݋Rg@LStrClrg@LStrAsgX,Tdg @LStrLAsgX,Tdg @VarToIntX,Tdg @LStrCat3X,Tdg @VarToLStr kg@VarClrX,Tdg @LStrArrayClrX,Tdg@HandleFinallyX,Tdg@LStrCatX,TdgLengthg@LStrLen?g@LStrCmpX,TdgBreakg VarIsNullcg@VarFromTDateTimeX,TdgNullX:7g @VarToRealX,TdgTrue1ogCopyg @LStrCopyX,Tdg @LStrCatNX,TdceDbZkg TDataSet.Open4gTDataSet.FieldByName4g TDataSet.Next4gTDataSet.Close4gTDataSet.GetFieldValue4ce PPSysMainXgMainForm9ceGenFnsXg TestForAudit Ut7gProveWholeIntegerM:gProveForeignKeyg CleanString~ g SetAuditStartwg SetAuditDataogCurr2Str`bg SetAuditIDg SaveAudit[>ce DateFunctionsXgStandardDateString_tceDataModXc&.TSysEditServTypeFormL',*TSysEditServTypeForm6u;. SysEditServTypeFormD$;.- .2f0(TSysEditServTypeForm.FormCreateGc_Q2!Self.!Sender qFormCreate sVRTIDf ActionDescriptionf c(TSysEditServTypeForm.FormCloseHc_62!Self.!Sender"Actionc(TSysEditServTypeForm.SetAppendgc_2!Self.!Value"c(TSysEditServTypeForm.SetIDhc_2!Self.!Value$c(TSysEditServTypeForm.GetIDic_ $!Self. Result$c(TSysEditServTypeForm.SetCodejc_2!Self.!Value c(TSysEditServTypeForm.GetCodekc_ !Self.#Result c(#TSysEditServTypeForm.SetDescriptionlc_2!Self.!Value c(#TSysEditServTypeForm.GetDescriptionmc_ !Self.#Result c(!TSysEditServTypeForm.SetFrequencync_2!Self.!Value$ Tempf TempValue$c(!TSysEditServTypeForm.GetFrequencyoc_ $!Self. Result$ TempValue$c("TSysEditServTypeForm.SetSupplierIDpc_2!Self.!Value$c("TSysEditServTypeForm.GetSupplierIDqc_ $!Self. Result$c($TSysEditServTypeForm.SetSupplierNamerc_2!Self.!Value c( TSysEditServTypeForm.SetSystemIDsc_2!Self.!Value$c( TSysEditServTypeForm.GetSystemIDtc_ $!Self. Result$c("TSysEditServTypeForm.SetSystemNameuc_2!Self.!Value c(!TSysEditServTypeForm.SetRevenueIDvc_2!Self.!Value$ sSelectedf iCount$c(!TSysEditServTypeForm.GetRevenueIDwc_i $!Self. Result$ nSelected$c(!TSysEditServTypeForm.SetExpenseIDxc_2!Self.!Value$ sSelectedf iCount$c(!TSysEditServTypeForm.GetExpenseIDyc_i $!Self. Result$ nSelected$c($TSysEditServTypeForm.SetExpectedRentzc_2!Self.!Value"(c($TSysEditServTypeForm.GetExpectedRent{c_ (!Self. Resultf(c(!TSysEditServTypeForm.SetStartDate|c_-2!Self.!Value"*c(!TSysEditServTypeForm.GetStartDate}c_x *!Self. Resultf*c(TSysEditServTypeForm.SetEndDate~c_-2!Self.!Value"*c(TSysEditServTypeForm.GetEndDatec_x *!Self. Resultf*c(%TSysEditServTypeForm.SetCheckAdminFeec_22!Self.!Value"c(%TSysEditServTypeForm.GetCheckAdminFeec_ "!Self. Result"c()TSysEditServTypeForm.SetCheckExportToTimsc_22!Self.!Value"c()TSysEditServTypeForm.GetCheckExportToTimsc_ "!Self. Result"c()TSysEditServTypeForm.SetCheckSplitServicec_22!Self.!Value"c()TSysEditServTypeForm.GetCheckSplitServicec_ "!Self. Result"c(+TSysEditServTypeForm.SetCheckVRTServiceTypec_22!Self.!Value"c(+TSysEditServTypeForm.GetCheckVRTServiceTypec_ "!Self. Result"c($TSysEditServTypeForm.SetCheckNoCallsc_22!Self.!Value"c($TSysEditServTypeForm.GetCheckNoCallsc_ "!Self. Result"c(TSysEditServTypeForm.btnOkClickIc_z2!Self.!Sender q sFieldf sValuef sAuditInsertf sAuditFieldf sAuditValuef AuditActionf lReturnf" sStartedf nStarted$ sOriginalf sErrorf .fc('TSysEditServTypeForm.edtFrequencyChangeJc_a2!Self. !Sender Valuef lNotIntegerf" i$c( FinalizationX,Td\! 2c(SysEditServType!2cG.F j,edtID ,lblID ! ,edtCode1 ,lblCode A ,edtDescriptionQ ,lblDescription a , edtSupplierIDq , lblSupplierID , edtSupplier , lblSupplier , edtSystemID , lblSystemID , edtSystem , lblSystem ,lblRevenueElementID ,lblExpenseElementID  , lblStartDate  , lblEndDate ! , ckAdminFee 1 ,ckExportToTims A ,ckSplitService Q ,ckVRTServiceType a , ckNoCalls q ,lblExpectedRent ,btnOk , btnCancel , edtStartDate , edtEndDate ,edtExpectedRent , lblFrequency , edtFrequency ,cbRevenueElement ,cbExpenseElement - FormCreate- FormClose- btnOkClick-edtFrequencyChange, AmendString! , AuditString1 ,slElementIndexA , sUserName Q ,lAppend"a , nFrequency$q ,lAudit" ,AuditActionUpdate ,AuditActionDelete ,AuditActionInsert , Original_ID ,Original_Description , Original_Code ,Original_SupplierID ,Original_SupplierName ,Original_SystemID ,Original_SystemName !,Original_Frequency 1,Original_RevenueID A,Original_ExpenseID Q,Original_ExpectedRent a,Original_StartDate q,Original_EndDate ,Original_CheckAdminFee",Original_CheckExportToTims",Original_CheckSplitService",Original_CheckVRTServiceType",Original_CheckNoCalls"- SetAppend -SetID-GetID%-SetCode1-GetCode=-SetDescriptionI-GetDescriptionU- SetFrequencya- GetFrequencyu- SetSupplierID- GetSupplierID-SetSupplierName- SetSystemID- GetSystemID- SetSystemName- SetRevenueID- GetRevenueID- SetExpenseID- GetExpenseID-SetExpectedRent-GetExpectedRent!- SetStartDate-- GetStartDate9- SetEndDateE- GetEndDateQ-SetCheckAdminFee]-GetCheckAdminFeei-SetCheckExportToTimsu-GetCheckExportToTims-SetCheckSplitService-GetCheckSplitService-SetCheckVRTServiceType-GetCheckVRTServiceType-SetCheckNoCalls-GetCheckNoCalls0 AppendMode"U 0ID$Y%0Code ]=10 Description aUI0 Frequency$eua0 SupplierID$i0 SupplierName m0SystemID$q0 SystemName u0RevenueElementID$y0ExpenseElementID$}0 ExpectedRent(!0 StartDate*9-0EndDate*QE0AdminFee"i]0 ExportToTims"u0 SplitService"0VRTServiceType"0NoCalls"cD0@liL  mTdhlptx|!edtIDlblIDedtCodelblCodeedtDescriptionlblDescription edtSupplierID lblSupplierID edtSupplier lblSupplier edtSystemID lblSystemID edtSystem lblSystemlblRevenueElementIDlblExpenseElementID lblStartDate lblEndDate  ckAdminFeeckExportToTimsckSplitServiceckVRTServiceType ckNoCalls lblExpectedRent$btnOk( btnCancel, edtStartDate0 edtEndDate4edtExpectedRent8 lblFrequency< edtFrequency@cbRevenueElementDcbExpenseElement FormCreate FormClose btnOkClickedtFrequencyChangeTSysEditServTypeFormTSysEditServTypeFormLhSysEditServTypeXU AppendModeVIDWCodeX DescriptionY FrequencyZ SupplierID[ SupplierName\SystemID] SystemName^RevenueElementID_ExpenseElementID` ExpectedRenta StartDatebEndDatecAdminFeed ExportToTimse SplitServicefVRTServiceTypegNoCallsU3QQQQQQQSV3Uh_d0d ƆXHLpxtt|jjEU􍆘ƆƆƆƆƆUUTβغQ4Q4Q4UQXEUU~$ UQXUdhU~$ UQXUh3U(~" UQXUl0R@P8Q4TQ4lQ4ttEtM EUR@Q40Q4EMHUQ4pQ4Q4Q4MUEU@Q4MUEUDQ4MEUUPQ4c`3ZYYdhfEE^[]0dbPPdataSELECT * FROM tEvent#WHERE Description LIKE 'Reference%' DescriptionUPDATEidDELETEINSERTSELECT tCustomer.IDFROM tCustomer!WHERE tCustomer.ShipTo LIKE 'VRT'SELECT tElement.ID, (tElement.ElementCode + (CASE WHEN tElement.Description IS NULL THEN '' ELSE ' ' + tElement.Description END)) AS "Code" FROM tElementWHERE tElement.CustomerID = $AND tElement.ElementCode IS NOT NULLAND tElement.Active = 1ORDER BY tElement.ElementCodeCodeID tServiceTypeS؋HP[UjS3Uh|d0d ˆXt#UEU!UEU3ZYYdhE[Y] (ADD) (EDIT)UjSV3Uhid0d u pUUpp3ZYYdhpE^[Y]UjjS3UhYd0d UEUE3ZYYdh`EE[YY]UjSV3UhXd0d UUxx3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhXd0d UUtt3ZYYdh_E^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjjS3Uhd0d …ttt t u\U\U<EtU<EUtUU<3ZYYdhEE[YY]UjjS3Uhd0d U<EUEu3U<Ettt t u\\3ZYYdhEE[YY]UjSV3UhXd0d UU||3ZYYdh_E^[Y]UjjS3UhYd0d UEUE3ZYYdh`EE[YY]UjSV3UhXd0d UU3ZYYdh_E^[Y]UjSV3UhXd0d UU3ZYYdh_E^[Y]UjS3UhDd0d UE3ZYYdhKE[Y]UjSV3UhXd0d UU3ZYYdh_E^[Y]UjjjSVW3Uhd0d ~`UPRH|F@E3M֋P8W EUu֋@UFMu3ZYYdhEE_^[]UjjSV3Uhd0d @|%U@EUEu3M֋PS E3ZYYdhEE^[YY]UjjjSVW3Uhd0d ~`UPRH|F@E3M֋P8W EUu֋DUFMu3ZYYdhEE_^[]UjjSV3Uhd0d D|%UDEUEu3M֋PS E3ZYYdhEE^[YY]UjS3UhYd0d u uEU43ZYYdh`E[Y]US3҉U3UhLd0d U4E}3ZYYdhSEm[]U3QQQQQS3Uh}d0d EEEu-u uEU썃u u,3ZYYdhEE[]S؋u,$$$YZ[U3QQQQQS3Uh}d0d EEEu-u uEU썃u u03ZYYdhEE[]S؋u0$$$YZ[Ëʈы Ë ËʈыËËʈыËËʈыËËʈыËUjjIuSVW3UhZd0d XtE苓lE苓d˲pEŰE̍UEDŰE̍UE}ŰE̍UXuExtlQ4Q4huhEкUЋQ4ER@E}ŰE̍UUEE4E}uUEغUEЍM}u8UEغ0UEغT}XŰE̍UEЍUHQ4EhuhE`t5EPEPEPU苃TLPM3ҸŰE̍UEЍUE~IEuhuhE`tLPM3ҸŰE̍UE(uuhHE`t"E~LPM3ҸT u0Eh`tHLPt3Ҹ.E`tLP3ҸU~DEuuhHE`tLPM3ҸU~NEuUЋuhHE`tLPM3ҸŰE̍UE~DEuuhHE`tLPM3Ҹ0EDu0Eh`tHLPt3Ҹ\.E`tLP3Ҹ\Uȋ,EȍUEEPUЋ,EЍUEȹEкttc,$EEuhuhE`tLPM3ҸUȋ0EȍUEEPUЋ0EЍUEȹEкtt}0$EEuhuhE`tkLPM3ҸLPt3Ҹ;EE`tLP3ҸEu0Eh`tHLPt3Ҹ$.E`tLP3Ҹ$u0Eh`tHLPt3Ҹ<.E`tLP3Ҹ<4Ltd4 P<$EE\uuhHE`tLPM3Ҹt~SUEuuhHE`tLPM3ҸEu0E`tHLPt3Ҹ.E`tLP3ҸUHQ4UHQ4 ŰE̍UEЍUHQ4h uhEкUЋHQ4`tmEPEPEPU苃TŰE̍UEЍUExtLPMxŰE̍UEЍUEttvE$E~uhuhE E<UHQ4`tLPMtŰE̍UE|tKhLuhHEкUЋHQ4`tLPM|TUEE܋Ed~JuUЋuhHE`t4tu"E<EUHQ4`tLPMUUEE܋E~JuUЋuhHE`t4tu"E<EUHQ4`tLPMUŰE̍UEE܋EE~@uuhHE`t4tu"E<EUHQ4`tLPM0UUЋ4EЍUEtqEE~uuhHE E<UHQ4`tLPMtUEtnE\uE<uuhHEUHQ4`tLPMUȋ,EȍUEEPUЋ,EЍUEȹEкttu,$EEtKhuhEUHQ4`tLPMUȋ0EȍUEt>EPUЋ0EЍUEȹEкtuuEUHQ4`LP3ɋLPt0$EEtvhuh0EUHQ4`tELPMtLPt :EH u3Eh`tNLPt1E`tLPtUHQ4:E\u3Eh`tNLPt\1E`tLPt\UHQ4:Etu3Eh`tNLPt$1E`tLPt$UHQ4:Eu3Eh`tNLPt<1E`tLPt<UHQ4:Eu3Eh`tNLPt1E`tLPtUHQ4HEԋEԋRJMEԋ8W EPEIEEPEԋRJEY8W ŰE̍UEЋMຼUЋHQ4H`XR@Q4Q4hUȋuhEкUЋQ4Q4UЋQXEЍULPMUE Eغ$HR@}t ǃ,jf |3ҋE3ZYYdhaEEEEغE_^[]dbPPdataSELECT tServiceType.idFROM tServiceTypeWHERE tServiceType.Code LIKE ''SupplierID MUST be an integer. tSupplierSupplierID does not exist. The Code MUST be a unique value.INSERT INTO tServiceType(Code, VALUES ('', tServiceTypeCODE Description, DESCRIPTIONSupplierID,AdminFee,, SUPPLIERID0,0ADMINFEE1,1RevenueElementID,REVENUEELEMENTIDExpenseElementID,EXPENSEELEMENTID SystemID,SYSTEMID ExportToTims, EXPORTTOTIMS/ StartDate, STARTDATEEndDate,Active,'0,ENDDATEACTIVEActive,SplitService,VRTServiceType, SPLITSERVICEVRTSERVICETYPE@F ExpectedRent, EXPECTEDRENT Frequency, FREQUENCYNoCalls)0)NOCALLS1)UPDATE tServiceType SET Code = 'Description = NULL, SupplierID = RevenueElementID = ExpenseElementID = SystemID = ExpectedRent = Frequency =  StartDate = 'EndDate = NULL, Active = 1, EndDate = '', Active = 0, AdminFee = ExportToTims = SplitService = VRTServiceType = NoCalls = WHERE id = SELECT IDWHERE Code LIKE 'AND Active = 1IDTYou must provide: Code, SupplierID, and either RevenueElementID or ExpenseElementID.U3QQQQSVW3Uhd0d U<EUEu3ҋEE؅~3EP֋EE uEFKuҀ}t$EPIEU<EЋ3ZYYdhEEE_^[] 0123456789U3Uh%d0d 3ZYYdh,]Ã-mZ  dlnt|rhjxv~\^`bfpz " "\68:<>4V0 :%*=1.UI<ua8:>6:FF!>9-8QE4i]6u>>B4((  "))) -))))))-))V- "$   $& !,- !,- !,-($   $4 15  , 9&  $=8=85*(%  &AE I %%   8  M  M ) IV*)-") I%%(%)) I11 -"1) I==(=) III -"I) IUU(U) IaahU$Y -a)) Iuu(U,bu)) I -") I()) I -") I -") I() I -") I((bY@-*)) I"B(U@)) I((bY@-*)) I"B(U@)) I(-") I!$!( "!) I-"-"ea$-"-)A I9U i mE"E"ea$-"E)A IQU i m]2iu22220:1 1 "$$U,U,.Y  }* R8 1 ( 1  1J & 1 }4" U M}4  M}"U* . M*  M*  M}4  M}4 U M}4  M. M*  M* U4$y Y M}4 U4$y Y M}4   M M*  M. M*  M* . M*  M*     M}4 uu M}4  M. M*  M* ^  }PY. Y 1U} MX Y}X Y(1 1"}( Y) M)X -Y(1 1"}( Y) M)X -Y(1 1U}( Y) M)X - Y 1U} MX uY 1" M}X U4$y YY}X U,$y YU" 1^     Y}X U"   D 1. M*    M*   ` 1. M*    M*   ` 1. M*    M*   ` 1. M*    M*   ` 1. M*    M*   rU yL 96&(T  =}&$ &* 1$%6J)))EE I$(Ua"U<y !Pya))) ID--- I1 1eQ<$$ 4F    >"H"H"D$   $>  <   \\Z t ,F|J2"0\ 0 20\ 2j 20\ 2j 00 jf 0J,0 Z 20\ 0 20\ 20\ ,n20\ <,:T 2R <,:T 2R ,8\ 8t 6.8l  ""6.8l  ""     "D2 22  P2 .  H 4 >,H:,20*,400,D,20,404:,4:,404040,@0,0,40&H P>H 4H V42 P4(D64(D642(0642 44 044 4 4(2 @4 44 64:64:64:64:64:6,h2<  d >". }82&H T|.M1i1   "$&(*,.02 4"6$8&:(<*>,@.B0D2F4H6J8L:N<P>R@TBVZXQDX\ZFZ^\H\`^9J^LdNfPhRjTlVnXpZr\t^v`xbzd|f~hjlnprtvxz|~ %1=I1UIa]u)I]u)U!m-ȁ9ʡE̽Q]iu%ԁ=֍Qؙiڥ}ܱޕ޽  -ÂQY]a+ #K!)u-59AaE!MQ1YÀ]Mei]meqiy}@)M]u} # -1U%c-)q15=AIMUYaem~qy}%ApQm}    9!A%I)M-`80< @2 `,,< `02!2!%@)0)1`052929b5=`0A2E2AEI`0M2Q2QbMU`0Y2]2Y]ae0i0q4i4qpeu`y0y`022b@0`022b`022b@,`022bp<<X02LQQp<<X0 2L   QQ@,!@%8%-@(1619@= =NE@(I6IQ@U UN]`aeea0i@mmu`y}}y0@`0@`0@`0@ppD !  0 13 5[\` p8 ))- 1 a