ئhGWdAX8g .TCheckBox9g.TButtonpt@g .TComboBoxɵgTCustomComboBox.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.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|ofCurrency,eigTObject.Dispatch݋RgTObject.NewInstance݋RgTObject.FreeInstance݋RfString8gFalse1ogTObject.Create݋RgPosg@LStrPosX,Tdg TObject.Free݋Rg@LStrClrg@LStrAsgX,Tdg @LStrArrayClrX,Tdg@HandleFinallyX,Tdg@LStrCatX,TdgLengthg@LStrLen?gBreakg@LStrCmpX,TdgTrue1ogCopyg @LStrCopyX,Tdg @LStrLAsgX,Tdg @LStrCatNX,Tdg @LStrCat3X,TdceDbZkg TDataSet.Open4gTDataSet.FieldByName4g TDataSet.Next4gTDataSet.Close4ce PPSysMainXgMainFormceGenFnsXg TestForAudit Ut7g SetAuditStartwg SetAuditDataog SetAuditIDg SaveAudit[>c&.TSysEditTariffFormUh`$*TSysEditTariffForm~& SysEditTariffForm 墾& .2f((TSysEditTariffForm.FormCreateBw&*!Self&!Sender qFormCreate ActionDescriptionfc(TSysEditTariffForm.FormCloseBwL*!Self&!Sender"Actionc(TSysEditTariffForm.SetAppend;Bw*!Self&!Valuec(TSysEditTariffForm.SetIDBw*!Self&!Value sSelectedf iCountc(!TSysEditTariffForm.GetAgreementID?Bwi !Self& Result nSelectedc(+TSysEditTariffForm.SetSupplierServiceCodeID@Bw*!Self&!Value sSelectedf iCountc(+TSysEditTariffForm.GetSupplierServiceCodeIDABwi !Self& Result nSelectedc(!TSysEditTariffForm.SetFixedChargeBBw*!Self&!Value" c(!TSysEditTariffForm.GetFixedChargeCBwU !Self& Resultf c(TSysEditTariffForm.SetFlagFallDBw*!Self&!Value" c(TSysEditTariffForm.GetFlagFallEBwU !Self& Resultf c((TSysEditTariffForm.SetChargeIntervalSecsFBw*!Self&!Valuec((TSysEditTariffForm.GetChargeIntervalSecsGBwA !Self& Resultc(!TSysEditTariffForm.SetMinDurationHBw*!Self&!Valuec(!TSysEditTariffForm.GetMinDurationIBwA !Self& Resultc(TSysEditTariffForm.SetMinChargeJBw*!Self&!Value" c(TSysEditTariffForm.GetMinChargeKBwU !Self& Resultf c(!TSysEditTariffForm.SetMaxDurationLBw*!Self&!Valuec(!TSysEditTariffForm.GetMaxDurationMBwA !Self& Resultc(TSysEditTariffForm.SetMaxChargeNBw*!Self&!Value" c(TSysEditTariffForm.GetMaxChargeOBwU !Self& Resultf c($TSysEditTariffForm.SetStage1DurationPBw*!Self&!Valuec($TSysEditTariffForm.GetStage1DurationQBwA !Self& Resultc("TSysEditTariffForm.SetStage1ChargeRBw*!Self&!Value" c("TSysEditTariffForm.GetStage1ChargeSBwU !Self& Resultf c($TSysEditTariffForm.SetStage2DurationTBw*!Self&!Valuec($TSysEditTariffForm.GetStage2DurationUBwA !Self& Resultc("TSysEditTariffForm.SetStage2ChargeVBw*!Self&!Value" c("TSysEditTariffForm.GetStage2ChargeWBwU !Self& Resultf c($TSysEditTariffForm.SetStage3DurationXBw*!Self&!Valuec($TSysEditTariffForm.GetStage3DurationYBwA !Self& Resultc("TSysEditTariffForm.SetStage3ChargeZBw*!Self&!Value" c("TSysEditTariffForm.GetStage3Charge[BwU !Self& Resultf c($TSysEditTariffForm.SetStage4Duration\Bw*!Self&!Valuec($TSysEditTariffForm.GetStage4Duration]BwA !Self& Resultc("TSysEditTariffForm.SetStage4Charge^Bw*!Self&!Value" c("TSysEditTariffForm.GetStage4Charge_BwU !Self& Resultf c($TSysEditTariffForm.SetStage5Duration`Bw*!Self&!Valuec($TSysEditTariffForm.GetStage5DurationaBwA !Self& Resultc("TSysEditTariffForm.SetStage5ChargebBw*!Self&!Value" c("TSysEditTariffForm.GetStage5ChargecBwU !Self& Resultf c(TSysEditTariffForm.SetSurchargejBw*!Self&!Value" c(TSysEditTariffForm.GetSurchargekBwU !Self& Resultf c(TSysEditTariffForm.SetDiscountlBw*!Self&!Value" c(TSysEditTariffForm.GetDiscountmBwU !Self& Resultf c($TSysEditTariffForm.SetCheckSurchargedBw2*!Self&!Valuec($TSysEditTariffForm.GetCheckSurchargeeBw !Self& Resultc(#TSysEditTariffForm.SetCheckDiscountfBw2*!Self&!Valuec(#TSysEditTariffForm.GetCheckDiscountgBw !Self& Resultc('TSysEditTariffForm.SetCheckChargePeriodhBw2*!Self&!Valuec('TSysEditTariffForm.GetCheckChargePeriodiBw !Self& Resultc(TSysEditTariffForm.btnOkClickBw*!Self&!Sender qf sFieldf sValuef sAuditInsertf sAuditFieldf sAuditValuef AuditActionf lReturnf sStartedf nStarted sOriginalf sErrorf .c( FinalizationX,Td\! *c( SysEditTariff!*cG&yF]Yj,edtID ,lblID! ,lblAgreementID1 ,lblSupplierServiceCodeA ,edtFixedChargeQ ,lblFixedChargea , edtFlagfallq , lblFlagfall , edtMinCharge ,edtMinDuration , lblMinimum ,edtMaxDuration , lblMaximum , edtMaxCharge ,edtStage1Duration , lblStage1 ,edtStage1Charge ,edtStage2Duration! , lblStage21 ,edtStage2ChargeA ,edtStage3DurationQ , lblStage3a ,edtStage3Chargeq ,edtStage4Duration , lblStage4 ,edtStage4Charge ,edtStage5Duration , lblStage5 ,edtStage5Charge , ckSurcharge , edtSurcharge , ckDiscount , edtDiscount ,ckChargePeriod! ,btnOk 1 , btnCancel A , lblDurationQ , lblChargea , cbAgreement q ,cbSupplierServiceCode ,lblChargeIntervalSecs ,edtChargeIntervalSecs - FormCreatei- FormClose}- btnOkClick , AmendString , AuditString ,slAgreementIndex ,slSupplierServiceCodeIndex , sUserName ,lAppend,lAudit,AuditActionUpdate,AuditActionDelete!,AuditActionInsert1, Original_IDA,Original_AgreementIDQ,Original_SupplierServiceCodeIDa,Original_FixedChargeq,Original_FlagFall,Original_ChargeIntervalSecs,Original_MinDuration,Original_MinCharge,Original_MaxDuration,Original_MaxCharge,Original_Stage1Duration,Original_Stage1Charge,Original_Stage2Duration,Original_Stage2Charge,Original_Stage3Duration!,Original_Stage3Charge1,Original_Stage4DurationA,Original_Stage4ChargeQ,Original_Stage5Durationa,Original_Stage5Chargeq,Original_Surcharge,Original_Discount,Original_CheckSurcharge,Original_CheckDiscount,Original_CheckChargePeriod- SetAppend-SetID-GetID-SetAgreementID-GetAgreementID-SetSupplierServiceCodeID-GetSupplierServiceCodeID-SetFixedCharge-GetFixedCharge- SetFlagFall- GetFlagFall-SetChargeIntervalSecs)-GetChargeIntervalSecs5-SetMinDurationA-GetMinDurationM- SetMinChargeY- GetMinChargee-SetMaxDurationq-GetMaxDuration}- SetMaxCharge- GetMaxCharge-SetStage1Duration-GetStage1Duration-SetStage1Charge-GetStage1Charge-SetStage2Duration-GetStage2Duration-SetStage2Charge-GetStage2Charge-SetStage3Duration-GetStage3Duration -SetStage3Charge-GetStage3Charge%-SetStage4Duration1-GetStage4Duration=-SetStage4ChargeI-GetStage4ChargeU-SetStage5Durationa-GetStage5Durationm-SetStage5Chargey-GetStage5Charge-SetCheckSurcharge-GetCheckSurcharge-SetCheckDiscount-GetCheckDiscount-SetCheckChargePeriod-GetCheckChargePeriod- SetSurcharge- GetSurcharge- SetDiscount- GetDiscount0 AppendModeU0IDY0 AgreementID]0SupplierServiceCodeIDa0 FixedCharge e0FlagFall i0ChargeIntervalSecsm5)0 MinDurationqMA0 MinCharge ueY0 MaxDurationy}q0 MaxCharge }0Stage1Duration0 Stage1Charge 0Stage2Duration0 Stage2Charge 0Stage3Duration 0 Stage3Charge %0Stage4Duration=10 Stage4Charge UI0Stage5Durationma0 Stage5Charge y0CheckSurcharge0 CheckDiscount0CheckChargePeriod0 Surcharge 0Discount cD(@lL Au|*edtIDlblIDlblAgreementIDlblSupplierServiceCodeedtFixedChargelblFixedCharge edtFlagfall lblFlagfall edtMinChargeedtMinDuration lblMinimumedtMaxDuration lblMaximum edtMaxChargeedtStage1Duration lblStage1edtStage1ChargeedtStage2Duration  lblStage2edtStage2ChargeedtStage3Duration lblStage3edtStage3Charge edtStage4Duration$ lblStage4(edtStage4Charge,edtStage5Duration0 lblStage54edtStage5Charge8 ckSurcharge< edtSurcharge@ ckDiscountD edtDiscountHckChargePeriodLbtnOkP btnCancelT lblDurationX lblCharge\ cbAgreement`cbSupplierServiceCodedlblChargeIntervalSecshedtChargeIntervalSecs FormCreate FormClose btnOkClickTSysEditTariffFormTSysEditTariffFormLo SysEditTariffU AppendModeVIDW AgreementIDXSupplierServiceCodeIDY FixedChargeZFlagFall[ChargeIntervalSecs\ MinDuration] MinCharge^ MaxDuration_ MaxCharge`Stage1Durationa Stage1ChargebStage2Durationc Stage2ChargedStage3Duratione Stage3ChargefStage4Durationg Stage4ChargehStage5Durationi Stage5ChargejCheckSurchargek CheckDiscountlCheckChargePeriodm SurchargenDiscountUjjSV3Uhd0d ƆlpjjEUjjEUjjEUjjEUjjEUjjEUjjEUjjEUjjEUƆƆƆjjEUjjEUUU|βغQ4Q4(Q4TUQXEUUh~$xUQXUhU~$xUQXU3U~"xUQXU0R@txR@Q4Q4Q4Q4$Q4TQ4Q4Q4Q4VTUQXU\Q4RTUUtQ4tR@Q4(Q4XQ4Q4Q4Q4, Q4VX UQXU`Q4RTUUxQ4tt ؈u u 3ZYYdhE^[YY]dbPPdataSELECT * FROM tEvent#WHERE Description LIKE 'Reference%' DescriptionUPDATEidDELETEINSERTSELECT tAgreement.ID, ((CASE tAgreement.AgreementNo WHEN NULL THEN '' WHEN '' THEN ''$ ELSE tAgreement.AgreementNo + '- '1 END) + tAgreement.Description) AS "Description"FROM tAgreementWHERE tAgreement.Active = 1ORDER BY tAgreement.AgreementNoIDSELECT tSupplierServiceCode.ID,$ (tSupplierServiceCode.code + '- '+- tSupplierServiceCode.AmountCategory + '- '+< tSupplierServiceCode.Description) AS "SupplierServiceCode"FROM tSupplierServiceCode%WHERE tSupplierServiceCode.Active = 1"ORDER BY tSupplierServiceCode.CodeSupplierServiceCode tAgreementtAgreementTypetAgreementTariffsS؋ltx[UjS3Uh|d0d ˆt#UEU!UEU3ZYYdhE[Y] (ADD) (EDIT)UjSV3Uhid0d u UU3ZYYdhpE^[Y]UjjS3Uhd0d UEUEu3#UEUE3ZYYdhEE[YY]UjjjSVW3Uhd0d ~`UtRH|F@E3M֋t8W EUu֋\UFMu3ZYYdhEE_^[]UjjSV3Uhd0d \|%U\EUEu3M֋tS E3ZYYdhEE^[YY]UjjjSVW3Uhd0d ~`UxRH|F@E3M֋x8W EUu֋`UFMu3ZYYdhEE_^[]UjjSV3Uhd0d `|%U`EUEu3M֋xS E3ZYYdhEE^[YY]UjS3UhYd0d u uEU3ZYYdh`E[Y]US3҉UU3Uhd0d UEUEu 3EEUE}3ZYYdhEEm[]UjS3UhYd0d u uEU3ZYYdh`E[Y]US3҉UU3Uhd0d UEUEu 3EEUE}3ZYYdhEEm[]UjSV3UhXd0d UU3ZYYdh_E^[Y]UjjS3Uhd0d UhEUEu3#UhEUE3ZYYdhEE[YY]UjSV3UhXd0d UU3ZYYdh_E^[Y]UjjS3Uhd0d UEUEu3#UEUE3ZYYdhEE[YY]UjS3UhYd0d u uEU3ZYYdh`E[Y]US3҉UU3Uhd0d UEUEu 3EEUE}3ZYYdhEEm[]UjSV3UhXd0d UU3ZYYdh_E^[Y]UjjS3Uhd0d UEUEu3#UEUE3ZYYdhEE[YY]UjS3UhYd0d u uEU3ZYYdh`E[Y]US3҉UU3Uhd0d UEUEu 3EEUE}3ZYYdhEEm[]UjSV3UhXd0d UU3ZYYdh_E^[Y]UjjS3Uhd0d UEUEu3#UEUE3ZYYdhEE[YY]UjS3UhYd0d u uEU3ZYYdh`E[Y]US3҉UU3Uhd0d UEUEu 3EEUE}3ZYYdhEEm[]UjSV3UhXd0d UU3ZYYdh_E^[Y]UjjS3Uhd0d UEUEu3#UEUE3ZYYdhEE[YY]UjS3UhYd0d u uEU3ZYYdh`E[Y]US3҉UU3Uhd0d UEUEu 3EEUE}3ZYYdhEEm[]UjSV3UhXd0d UU3ZYYdh_E^[Y]UjjS3Uhd0d UEUEu3#UEUE3ZYYdhEE[YY]UjS3UhYd0d u uEU3ZYYdh`E[Y]US3҉UU3Uhd0d UEUEu 3EEUE}3ZYYdhEEm[]UjSV3UhXd0d UU 3ZYYdh_E^[Y]UjjS3Uhd0d U EUEu3#U EUE3ZYYdhEE[YY]UjS3UhYd0d u uEU(3ZYYdh`E[Y]US3҉UU3Uhd0d U(EUEu 3EEU(E}3ZYYdhEEm[]UjSV3UhXd0d UU,3ZYYdh_E^[Y]UjjS3Uhd0d U,EUEu3#U,EUE3ZYYdhEE[YY]UjS3UhYd0d u uEU43ZYYdh`E[Y]US3҉UU3Uhd0d U4EUEu 3EEU4E}3ZYYdhEEm[]UjS3UhYd0d u uEU<3ZYYdh`E[Y]US3҉UU3Uhd0d U<EUEu 3EEU<E}3ZYYdhEEm[]UjS3UhYd0d u uEUD3ZYYdh`E[Y]US3҉UU3Uhd0d UDEUEu 3EEUDE}3ZYYdhEEm[]Ëʈы8Ë8Ëʈы@Ë@ËʈыHËHUjjIuQSVW3Uhd0d tE䋓E䋓˲E8EEt uEԺLE UlQ4EhuhEt5EPEPEPU䋃|pPM3ҸUE(uuhEtpPM3ҸH`tf<$EEluuhEt"E~pPM3Ҹ`tf<$EEuuhEt"E~pPM3Ҹ~rEE <$EEuuhEt"E~pPM3Ҹ~SUEuuhEtpPM3Ҹ`tf<$EE(uuhEt"E~pPM3Ҹ<~SUEPuuhEtpPM3Ҹh`tf<$EE|uuhEt"E~pPM3Ҹ~SUEuuhEtpPM3Ҹ`tf<$EEuuhEt"E~pPM3Ҹ~SUE uuhEtpPM3Ҹ `tf<$EE4 uuhEt"E~pPM3ҸL ~SUEd uuhEtpPM3Ҹ| `tf<$EE uuhEt"E~pPM3Ҹ ~SUE uuhEtpPM3Ҹ `tf<$EE uuhEt"E~pPM3Ҹ !~SUE$!uuhEtpPM3Ҹ@BDHRpz\dlrtvY% i"}  H "$]]0Y8,:*<P<65)JMA<eY8}q<8B>B> B%>=1BUI>maBy>B@H86ii(  "B= i i i i$)i-&i i-,i i-,i i-,1(5$  5 i i i i i i i i i$)i-Bi-*1 5 i i i i i i i$)i-Bi-*1 55 i E"i E(i E&i }} 8   V*" (, ((b &* "((@ ((b &* "((@ (" *(8" (" *(8" )) ") 55(,5 AA "A MM(,M YY("Y e*e(8"e qq "q }}(,} (" *(8"  " (, (" *(8"  " (, (" *(8"  "   (,  (" %*%(8"% 11 "1 ==(,= II("I U*U(8"U aa "a mm(,m yy("y *(8" (" *(8" (" *(8" 222 2 :      :  &     4 I"  M   4  M     "*  M     "*  M55    "*  MMM   4  Me  e   "*  M}}   4  M     "*  M   4  M     "*  M   4  M     "*  M     4  M%  %   "*  M==   4  MU  U   "*  Mmm   4  M     "*  M     "*  M     "*  M    *   M  *   M    *   M  *   M    *   M  *   M   4   4     P IQ .  M      X  M   X  M   X  M5 (  " (     X  MM (  " (     X  Me   >2  M} (  " (     X  Me   >2  M (  " (     X  M   >2  M (  " (     X  M   >2  M  (  " (     X  M%   >2  M= (  " (     X  MU   >2  Mm (  " (     X  M   >2  M   >2  M   >2  M(    *      M  *      M*(    *      M  *      M*(    *      M  *      Mh H  !8 l &   !0  !> )  -&Q5*U&6 ,  1#IIeI Me M '2$$44444444444F    >"H"H"D$$         PN        PN $(ve,F|J2"0\ 0J <,:T 2R <,:T 2R ,8\ >J ,8\ >J 20\ 0J 20\ 0J ,8\ >J 20\ 0J ,8\ >J 20\ 0J ,8\ >J 20\ 0J ,8\ >J 20\ 0J ,8\ >J 20\ 0J ,8\ >J 20\ 0J ,8\ >J ,8\ >J ,8\ >J     F2", 4>,0,$,0*,$,0*,D0*,0,$,0*,0,$,0*,0,$,0*,0,$,0*,0,$,0*,0,$,0*,0,$,0*,$,0*,$,0*,404040nx P>4 4 44, P4, P4(D64(D64, P*4(D64, P*4(D64, P*4(D64, P*4(D64, P*4(D64, P*4(D64, P*4, P*4, P*4&:6&:6&:6 (d2<&&``&@* #&uynE]aM]]]]]] ]  ]"]$]&](]*],].]0]2] 4]"6]$8]&:](<]*>],@].B]0D]2F]4H]6J]8L]:N]<P]>R]@T]BV]DX]FZ]H\]J^]L`]Nb]Pd]Rf]Thilj]Vj}nl}]Xl pn ]Zn]\t]^v]`x]bz]d|]f~]h]j]l]n]p]r]t]v]x]z]|]~]]]]]]]]]]]]]]]]]]]]]E]q]ȵ]]]]1])Q]5i]A։]Mء]Y]e]q]}]1]I]i]]]]]]])]I] a]]%]1]=]I ]U   ] a ) ] mA ]ya ]y ]! ]%!! ]!)%5 ]%-)M ])1-a ]-51y ]195 ]5=9 ]9A= ] =EA ] A]I]M]Q]U]!]]%a])e]-i]1m]5q]9u]=y]A}]E]I]M]Q]U]Y]]]a]e]i]m]q]uamquyy}#  0IMqy}<   !%5-1Q9=mEIQU]aiimui yax10M/i$<#R{- I# e!)-59AEMQY] ei) quE }ua }   #r     a% 5 Q a `}     ! % ) - 1 5 9 = A I9i`0m2uumm}@H`,,< `022`0z-p<<X02LQQp<<X02LQQ@,`  >   A@,` !>!!!A)`0-2121b-5`909z99-A`0E2I2IbEM`Q0QzQQ-Y@],]e` i>iiiAq`0u2y2ybu}`0z-@,` >A`022b`0z-@,` >A`022b`0z-@,` >A`02 2 b `0z-@,%` )>)))A1`052929b5=`A0AzAA-I@M,MU` Y>YYYAa`0e2i2ibem`q0qzqq-y@},}` >A@,` >A@,` >A`0@`0@`0@ xp F969Q89e:9;9?9eA9mE9F9J9mL9uP9Q9U9uW9}[9\E9lEQm 1sI M a