Prvni verze

extCtrls/pec_TPVOperace.pas

@@ -0,0 +1,128 @@
+unit pec_TPVOperace;
+
+interface
+
+
+uses
+  VCL.Dialogs,
+  plgController,
+  ddPlugin_TLB;
+
+type
+  TplgHDCRTNTPVOperaceController = class(TplgEditorController)
+   protected
+{
+    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 TplgHDCRTNTPVOperaceController.FormCreate;
+  begin
+   inherited;
+{
+   FOrganizace:= GetButtonEdit(strBtnOrganizace);
+
+   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 TplgHDCRTNTPVOperaceController.FormDestroy;
+  begin
+// POZOR! vsechny ukazatele na interface je treba uvolnit!!!
+// jinak muze HELIOS padnout na Access Violation Error!!!
+
+   inherited;
+  end;
+
+
+
+{
+ procedure TplgHDCRTNTPVOperaceController.OnChangeEventHandler (const Sender: IHeNveCustomEdit);
+  var s: string;
+  begin
+   if (Sender=FOrganizace) then
+    begin
+     s:= FOrganizace.NVE_FieldValue;
+    end;
+  end;
+
+
+
+
+ procedure TplgBonumExtReseniGornicky3DObjednavkaDopravyController.OnClickEventHandler (const Sender: IHeNveControl);
+  begin
+//
+  end;
+
+
+ procedure TplgHDCRTNTPVOperaceController.OnEnterEventHandler (const Sender: IHeNveControl);
+  begin
+//   ShowMessage(Sender.NVE_VisualName);
+  end;
+
+
+ procedure TplgHDCRTNTPVOperaceController.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 TplgHDCRTNTPVOperaceController.OnEditValueChangedEventHandler (const Sender: IHeNveCustomEdit);
+  begin
+   if (Sender.NVE_VisualName=strBtnOrganizace) then
+    begin
+     OnExitEventHandler (FOrganizace);
+//     s:= (Sender as IHeNveButtonEdit).NVE_FieldValue;
+    end;
+  end;
+
+
+
+ procedure TplgHDCRTNTPVOperaceController.OnButtonClickEventHandler (const Sender: IHeNveButtonEdit; AButtonIndex: Integer);
+  begin
+//   if (Sender=FOrganizace) then
+  end;
+
+}
+
+end.