unit pec_TPVKusovnik;

interface


uses
  VCL.Dialogs,
  plgController,
  ddPlugin_TLB;

type
  TplgHDCRTNTPVKusovnikController = class(TplgEditorController)
   protected
    FSKNizsi: IHeNveButtonEdit;
    FRegCisNizsi: IHeNveButtonEdit;
{
    procedure OnClickEventHandler (const Sender: IHeNveControl); override;
    procedure OnEnterEventHandler (const Sender: IHeNveControl); override;
    procedure OnExitEventHandler (const Sender: IHeNveControl); override;
    procedure OnEditValueChangedEventHandler (const Sender: IHeNveCustomEdit); override;
    procedure OnButtonClickEventHandler (const Sender: IHeNveButtonEdit; AButtonIndex: Integer); override;
    procedure OnChangeEventHandler (const Sender: IHeNveCustomEdit); override;
}
   public
    procedure FormCreate; override;
    procedure FormDestroy; override;
  end;

{ =========================================================================== }

implementation

uses
  System.SysUtils, System.Variants, plgMain,
  helUtils;




 procedure TplgHDCRTNTPVKusovnikController.FormCreate;
  begin
   inherited;

   FSKNizsi:= GetButtonEdit('lciNizsi_SZ');
   FRegCisNizsi:= GetButtonEdit('lciNizsi_RegCis');

{
   FOrganizace:= GetButtonEdit(strBtnOrganizace);
   FMena:= GetButtonEdit('lci_gen_atr_Mena');

   if (FOrganizace<>nil) then
    begin
     FOrganizace.NVE_Switch_OnExitEvent (self, True);
     FOrganizace.NVE_Switch_OnChangeEvent (self, True);
     FOrganizace.NVE_Switch_OnEditValueChangedEvent (self, True);
    end;
}
  end;



 procedure TplgHDCRTNTPVKusovnikController.FormDestroy;
  begin
// POZOR! vsechny ukazatele na interface je treba uvolnit!!!
// jinak muze HELIOS padnout na Access Violation Error!!!

   FSKNizsi:= nil;
   FRegCisNizsi:= nil;

   inherited;
  end;



{
 procedure TplgHDCRTNTPVKusovnikController.OnChangeEventHandler (const Sender: IHeNveCustomEdit);
  var s: string;
  begin
   if (Sender=FOrganizace) then
    begin
     s:= FOrganizace.NVE_FieldValue;
    end;
  end;




 procedure TplgHDCRTNTPVKusovnikController.OnClickEventHandler (const Sender: IHeNveControl);
  begin
//
  end;


 procedure TplgHDCRTNTPVKusovnikController.OnEnterEventHandler (const Sender: IHeNveControl);
  begin
//   ShowMessage(Sender.NVE_VisualName);
  end;


 procedure TplgHDCRTNTPVKusovnikController.OnExitEventHandler (const Sender: IHeNveControl);
  var cOrg: integer;
      s, m: string;
  begin
   if (GetButtonEdit(Sender)=FOrganizace) then
    begin
     s:= FOrganizace.NVE_FieldValue;
     if not(TryStrToInt(s, cOrg)) then
      cOrg:= -1;
     if (cOrg>-1) then
      begin
       m:= helUtils.getHeliosStrVal (Helios, '', 'SELECT ISNULL(Mena,N'''') FROM ' + tblCOrg + ' WHERE CisloOrg=' + cOrg.ToString);
       if (m<>'') and (FMena<>nil) then
        FMena.NVE_FieldValue:= m;
      end;
    end;
  end;



 procedure TplgHDCRTNTPVKusovnikController.OnEditValueChangedEventHandler (const Sender: IHeNveCustomEdit);
  begin
   if (Sender.NVE_VisualName=strBtnOrganizace) then
    begin
     OnExitEventHandler (FOrganizace);
//     s:= (Sender as IHeNveButtonEdit).NVE_FieldValue;
    end;
  end;



 procedure TplgHDCRTNTPVKusovnikController.OnButtonClickEventHandler (const Sender: IHeNveButtonEdit; AButtonIndex: Integer);
  begin
//   if (Sender=FOrganizace) then
  end;

}

end.