ئhGD[kNXdCurrEditXf TCurrencyEdit94Kg.TCurrencyEdit 7gTCustomNumEdit.SetTextgTCustomNumEdit.GetValuegTCustomNumEdit.SetValuecdToolEditXcdMaskZkcdDBTablesZkfTQuery-g.TQueryg TQuery.CreategTDBDataSet.SetDatabaseName !~cdStdCtrlsZkfTEditBfTLabel@ULfTButtonTf TComboBoxo*g.TEditg.TLabel>8g.TButtonpt@g .TComboBoxɵgTCustomComboBox.SetItemIndexRlgTCustomComboBox.GetItemIndexJlcdDialogsZkcdFormsZkfTFormNbg.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.Hidej-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.SetTextc_gTControl.GetText?_cdGraphicsZkcdClassesZkgTComponent.UpdateRegistry2gTComponent.WriteState2gTComponent.SafeCallException+2gTPersistent.Assign0cdSysUtilsZkgTrim~ g CurrToStr`bgIntToStrJ 7gStrToIntcdMessagesZkcdWindowsZkcdSysInitZkcdSystemZkfTObject.fBooleanNcfInteger|ofString8f AnsiString8fCurrency,eigTObject.Dispatch݋RgTObject.NewInstance݋RgTObject.FreeInstance݋Rg SetLengthgIncgFalse1og@DynArraySetLengthX,Tdg @LStrCatNX,Tdg @LStrArrayClrX,Tdg@HandleFinallyX,Tdg @LStrCat3X,TdgCopyg @LStrCopyX,Tdg@LStrClrgLengthg@LStrLen?gBreakgTrue1oceDbZkg TDataSet.Open4gTDataSet.FieldByName4gTDataSet.Close4g TDataSet.Next4ceSysEditServiceIDXc*.2*.3*.4 *.5"&.TSysServiceRecordFormu $*TSysServiceRecordForm$& SysServiceRecordForm)& .6f(( TSysServiceRecordForm.FormCreate5:A *!Self&!Sender q ncountfc(%TSysServiceRecordForm.SetRecordStatus=:*!Self&!Valuec(%TSysServiceRecordForm.GetRecordStatus>: !Self& Resultc((TSysServiceRecordForm.SetFormCaptionName?:*!Self&!Valuec((TSysServiceRecordForm.GetFormCaptionName@: !Self&#Resultc(TSysServiceRecordForm.SetUpMDFA:*!Self&!Valuec(TSysServiceRecordForm.GetUpMDFB: !Self&#Resultc(TSysServiceRecordForm.SetUpEndC:*!Self&!Valuec(TSysServiceRecordForm.GetUpEndD: !Self&#Resultc( TSysServiceRecordForm.SetDownMDFE:*!Self&!Valuec( TSysServiceRecordForm.GetDownMDFF: !Self&#Resultc( TSysServiceRecordForm.SetDownEndG:*!Self&!Valuec( TSysServiceRecordForm.GetDownEndH: !Self&#Resultc(#TSysServiceRecordForm.SetLineLengthI:*!Self&!Valuec(#TSysServiceRecordForm.GetLineLengthJ: !Self&#Resultc(TSysServiceRecordForm.SetCostK:*!Self&!Value"c(TSysServiceRecordForm.GetCostL:P !Self& Resultfc( TSysServiceRecordForm.SetCost100M:P*!Self&!Value"c( TSysServiceRecordForm.GetCost100N:P !Self& Resultfc(!TSysServiceRecordForm.SetInvoicedO:P*!Self&!Value"c(!TSysServiceRecordForm.GetInvoicedP:P !Self& Resultfc(TSysServiceRecordForm.SetNoQ:*!Self&!Valuec(TSysServiceRecordForm.GetNoR: !Self&#Resultc(TSysServiceRecordForm.SetPartS:*!Self&!Valuec(TSysServiceRecordForm.GetPartT: !Self&#Resultc( TSysServiceRecordForm.SetDrawingU:*!Self&!Valuec( TSysServiceRecordForm.GetDrawingV: !Self&#Resultc(TSysServiceRecordForm.SetMake_:*!Self&!Valuec(TSysServiceRecordForm.GetMake`: !Self&#Resultc(TSysServiceRecordForm.SetCh]:*!Self&!Valuec(TSysServiceRecordForm.GetCh^: !Self&#Resultc( TSysServiceRecordForm.SetMuxLinkW:*!Self&!Valuec( TSysServiceRecordForm.GetMuxLinkX: !Self&#Resultc($TSysServiceRecordForm.SetServiceLinkY:*!Self&!Valuec($TSysServiceRecordForm.GetServiceLinkZ: !Self&#Resultc(TSysServiceRecordForm.SetMux[:*!Self&!Valuec(TSysServiceRecordForm.GetMux\: !Self&#Resultc(!TSysServiceRecordForm.SetBearerIDa:*!Self&!Valuec(!TSysServiceRecordForm.GetBearerIDb: !Self& Result sValuefc(#TSysServiceRecordForm.SetBearerNamec:*!Self&!Valuec(#TSysServiceRecordForm.GetBearerNamed: !Self&#Resultc( TSysServiceRecordForm.SetSpeedIDe:*!Self&!Value sSelectedf iCountc( TSysServiceRecordForm.GetSpeedIDf:% !Self& Result nSelectedc($TSysServiceRecordForm.SetModemTypeIDg:*!Self&!Value sSelectedf iCountc($TSysServiceRecordForm.GetModemTypeIDh:% !Self& Result nSelectedc(!TSysServiceRecordForm.SetLineNamei:*!Self&!Valuec(!TSysServiceRecordForm.GetLineNamej: !Self&#Resultc($TSysServiceRecordForm.SetAuthorityIDk:*!Self&!Value sSelectedf iCountc($TSysServiceRecordForm.GetAuthorityIDl:% !Self& Result nSelectedc(#TSysServiceRecordForm.SetMnemonicIDm:*!Self&!Value sSelectedf iCountc(#TSysServiceRecordForm.GetMnemonicIDn:% !Self& Result nSelectedc( TSysServiceRecordForm.btnOkClick6:**!Self&!Senderc($TSysServiceRecordForm.btnCancelClick7:**!Self&!Senderc( FinalizationX,Td\! *c(SysServiceRecord!*cE(,E(.E(0E(2G&FQ%!j,edtNo ,lblNo! , lblBearerID1 , edtBearerIDA ,lblUpMDFQ ,edtUpMDFa ,lblCostq ,lblPart ,edtPart , lblBearerName , edtBearername ,lblUpEnd ,edtUpEnd , lblCost100 , lblModemType , lblDownMDF , edtDownMDF , lblDownEnd! , edtDownEnd1 , lblInvoicedA , lblDrawingQ , edtDrawinga ,lblSpeedq ,lblCh ,edtCh ,lblMux ,edtMux ,lblMake ,edtMake , lblAuthority ,btnOk , btnCancel  , lblLineLength , edtLineLength! ,edtCost1 , edtCost100A , edtInvoicedQ , cbMnemonic a , lblMnemonicq ,cbModemTypeDescription ,cbSpeedDescription ,cbAuthorityDescription - FormCreate1- btnOkClick-btnCancelClick,ValueRecordStatus , aMnemonicID , aModemTypeID ,aSpeedID , aAuthorityID" -SetRecordStatusE-GetRecordStatusQ-SetFormCaptionName]-GetFormCaptionNamei-SetUpMDFu-GetUpMDF-SetUpEnd-GetUpEnd- SetDownMDF- GetDownMDF- SetDownEnd- GetDownEnd- SetLineLength- GetLineLength-SetCost-GetCost- SetCost100- GetCost100- SetInvoiced- GetInvoiced)-SetNo5-GetNoA-SetPartM-GetPartY- SetDrawinge- GetDrawingq- SetMuxLink- GetMuxLink-SetServiceLink-GetServiceLink-SetMux-GetMux-SetCh-GetCh-SetMake}-GetMake- SetBearerID- GetBearerID- SetBearerName- GetBearerName- SetSpeedID)- GetSpeedID=-SetModemTypeIDM-GetModemTypeIDa- SetLineNameq- GetLineName}-SetAuthorityID-GetAuthorityID- SetMnemonicID- GetMnemonicID0 RecordStatusUQE0FormCaptionNameYi]0UpMDF]u0UpEnda0DownMDFe0DownEndi0 LineLengthm0NoqA50PartuYM0Costy0Cost100}0Invoiced)0Drawingqe0Make}0Ch0MuxLink0Mux0 ServiceLink0BearerID0 BearerName0SpeedID=)0 ModemTypeIDaM0LineName}q0 AuthorityID0 MnemonicIDcD(@L4L6L8L:DDDDlI~.2.3.4.5L JJptx|*`edtNolblNo lblBearerID edtBearerIDlblUpMDFedtUpMDFlblCostlblPartedtPart lblBearerName edtBearernamelblUpEndedtUpEnd lblCost100 lblModemType lblDownMDF edtDownMDF lblDownEnd  edtDownEnd lblInvoiced lblDrawing edtDrawinglblSpeed lblCh$edtCh(lblMux,edtMux0lblMake4edtMake8 lblAuthority<btnOk@ btnCancelD lblLineLengthH edtLineLengthLedtCostP edtCost100T edtInvoicedX cbMnemonic\ lblMnemonic`cbModemTypeDescriptiondcbSpeedDescriptionhcbAuthorityDescription FormCreate btnOkClickbtnCancelClickTSysServiceRecordFormTSysServiceRecordFormLnSysServiceRecordU RecordStatusVFormCaptionNameWUpMDFXUpEndYDownMDFZDownEnd[ LineLength\No]Part^Cost_Cost100`InvoicedaDrawingbMakecChdMuxLinkeMuxf ServiceLinkgBearerIDh BearerNameiSpeedIDj ModemTypeIDkLineNamel AuthorityIDm MnemonicIDU3QQQQSV3Uhd0d βغQ4Q4Q4u,0RT@PpR@@Q4Q4Q4lQ43EX3ҋQ4pU3ɉ {UQXuhUQXuEUXQ4ERTpMxR@Q4Q4u,0RT@PtR@Q4Q4(Q43E`3ҋQ4tU3ɉ OUQXU`Q4ERTtMtR@Q4DQ4u,0RT@PxR@`Q4DQ4(Q43Ed3ҋQ4xU3ɉ OUQXUdQ4ERTxMtR@Q4Q4u,0RT@P|R@Q4Q4Q43Eh3ҋQ4|U3ɉ OUQXUhQ4ERT|Mt3ҋ3ZYYdhE^[]dbPPdataSELECT Count(*) AS nMaxFROM tServiceMnemonicWHERE Active = 1nMax#SELECT ID, ServiceCode, DescriptionORDER BY ServiceCode ServiceCode - DescriptionID FROM rModem=SELECT ID, RTRIM(CAST(TextValue AS varchar)) AS "Description"ORDER BY TextValueFROM rBearerSpeed;SELECT ID, RTRIM(CAST(TextValue AS varchar)) AS DescriptionFROM tCableInst:SELECT ID, RTRIM(CAST(AuthNo AS varchar)) AS "Description"ORDER BY AuthNolÊlUjjSV3UhZd0d UMEpU3ZYYdhaE^[YY]Service Record for UjSV3UhLd0d VUE3ZYYdhSE^[Y]UjSV3UhGd0d UU3ZYYdhNE^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhGd0d UU3ZYYdhNE^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhGd0d UU3ZYYdhNE^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhGd0d UU 3ZYYdhNE^[Y]UjSV3UhGd0d U E3ZYYdhNE^[Y]UjSV3UhGd0d UUH3ZYYdhNE^[Y]UjSV3UhGd0d UHE3ZYYdhNE^[Y]UjS3UhHd0d u uEUL3ZYYdhOE[Y]S؋L $<$,$YZ[@FUm5$<$P]@FS؋P $<$,$YZ[@FUm5$<$T]@FS؋T $<$,$YZ[@FUjSV3UhGd0d UU3ZYYdhNE^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhGd0d UU3ZYYdhNE^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhGd0d UU3ZYYdhNE^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3UhGd0d UU43ZYYdhNE^[Y]UjSV3UhGd0d U4E3ZYYdhNE^[Y]UjSV3UhGd0d UU$3ZYYdhNE^[Y]UjSV3UhGd0d U$E3ZYYdhNE^[Y]UjSV3UhGd0d UU,3ZYYdhNE^[Y]UjSV3UhGd0d U,E3ZYYdhNE^[Y]UjS3UhId0d UU3ZYYdhPE[Y]UjjS3Uhid0d UEUEu3 E3ZYYdhpEE[YY]UjSV3UhGd0d UU3ZYYdhNE^[Y]UjSV3UhGd0d UE3ZYYdhNE^[Y]UjSV3Uhud0d |BUdRJ| B3x;4ud@Ju3ZYYdh|E^[Y]UjjSV3Uhzd0d d|%UdEUEu3 x3ZYYdhEE^[YY]UjSV3Uhud0d |BU`RJ| B3t;4u`@Ju3ZYYdh|E^[Y]UjjSV3Uhzd0d `|%U`EUEu3 t3ZYYdhEE^[YY]UjSV3Uhud0d ~BUhRJ| B3|;4uh@Ju3ZYYdh|E^[Y]UjjSV3Uhzd0d h|%UhEUEu3 |3ZYYdhEE^[YY]UjSV3Uhud0d ~BUXRJ| B3p;4uX@Ju3ZYYdh|E^[Y]UjjSV3Uhzd0d X|%UXEUEu3 p3ZYYdhEE^[YY]Sز[S3ҋ[U3Uh%d0d 3ZYYdh,]Ã-m((((!!!%!!!8dfjb~BJLRZP^|FHVT\t:<>@DNlvX`hnpr!% 1""V&(*,%%6!62QE>i]Du0044:A5*YM..4)6qe4}.*4,<6:=)4aM<}q6<:1"1 1 1 1 1$10  1 1 1 1$t1 1 10810 ( 1 1$10  1 1 1$t1H10   1 1$10  1 1 1$t1H10   1 1$10  1 1 1$t1H10 $E1  EQ]"] ] ] Rii"$i uu u (   (   (   (   ( (  *$  *$ ) )*55 5 AA(A MM M YY(Y ee e qq(q }} } (   (   (  (    ( ))(d.&) =="0(<= MM(d.&M aa"0(<a q}(d.& "0(< (d.& "0(< Ex Ex - - Yi!6    j     & :  j    & P:  j    & P:  j    & P:V   6F2t 2j 2j 2j 2j 2j 2j 2j 2j 2j 2j ,r  06 06 02j 2j 2j 2j 2j 2j 2j 2j 2j 2j   2j 2j ,t 02 b 2j 2j 26@ 2R` 26@ 2R`d H26@ 2R` 26@ 2R` ` &ae%%%%%% %  %"%$%&%(%*%,%.%0%2% 4%"6%$8%&:%(<%*>%,@%.B%0D%2F%4H%6J%8L%:N%<P%>R%@T%BV%DX%FZ%H\%J^%L`%Nb%Pd%Rf%Th1lj%Vjnl %Xlpn %Zn%\t%^v%`x%bz%d|E}%fQ%h]%ji%lu%n%p%r %t%v1%xE%zY%|m%~%%%%%%) %5!%A5%MI%Y]%eq%q%%%%%%9%M%ĕ%ơ%}ʙ%ʉ̭%a%Х%%%) %=U%M޽%a %q %} % % % % Y %% %%%%%!%%%)%-%1%5%9%=%A%E%I%M%Q%U%Y%]%e%q%u%)59=AIcM}U6Yaemqyq}+b *5EK]OmK 1 !5%-1 9cJ=!EE(I9Q UI]aaimquyc )9Qa(  !%- b1 59AEYI]Q bUY]ei m uy s    !  k, ! % ] a 9   1` 056=V=5E`IMI M Q@UU ]`0a6e6aei`0m2q2mqu`0y2}2y}`022`022`022`022`022`022`022`022`022@,@ <@  <@ <@!!<)@- -<5`092=29=A`0E2I2EIM`0Q2U2QUY`0]2a2]ae`0i2m2imq`0u2y2uy}`022`022`022`022    `022`022@,@0b`022`0!2%2!%)0-212919-9-19-1=0A2ILAIAIA I M0Q2U2]U]Q]QU]QUa0e2mLememe m q } 02202L  02202L  @&@&  a