ISIR.DLL

ISIR.DLL je knihovna pro komunikaci se serverem insolvenčního rejstříku.

Funkční napojení na ISIR dle specifikace 1.7 Lze volat z libovolného vývojového prostředí, které pracuje s COM objekty, např. z Visual FoxPro, Delphi, PowerBuilder nebo .net. Verze 32/64 bit. Generováno se silným jménem (Assembly signed with a strong name). Publikované rozhraní pro IntelliSense. Licence na vývojáře pro libovolný počet instalací u klientů.

Příklady použití:

• Visual FoxPro:...

  If Vartype(Lisir) = 'U'
  Public Lisir
  EndIf
  Lisir = Createobject("JADU.ISIR")
  Lisir.Vynul()
  Lisir.I_NazevOsoby = 'Novák'
  Lisir.I_VyhledatPresnouShoduJmen = 1
  Kolik=Lisir.Dotaz()
  If Kolik > 0
  Lisir.index = Kolik &&Poslední záznam
  ?Lisir.O_RC
  EndIf
  

• VB.net:...

  1. Registrace knihovny ve Visual Studiu: References - Add reference - Browse (vybrat a potvrdit JADU.dll)
  
  
  2.
  Imports System
  
  Namespace Test
      Class Program
          Private Shared Sub Main(ByVal args() As String)
              Dim Lisir = New JADU.ISIR, Kolik as Integer
  
              Lisir.Vynul()
              Lisir.I_VyhledatPresnouShoduJmen = 1
              Lisir.I_NazevOsoby = 'Novák'
              Kolik = Lisir.Dotaz()
              Lisir.index = Kolik
              Console.WriteLine(Lisir.O_RC)
          End Sub
      End Class
  End Namespace
  

• VBA (Access):...

  Dim Lisir As New JADU.ISIR
  Lisir.Vynul()
  Lisir.I_NazevOsoby = 'Novák'
  Lisir.I_VyhledatPresnouShoduJmen = 1
  Kolik = Lisir.Dotaz()
  Lisir.index = Kolik
  a = Lisir.O_RC
  

• C#.net:...

  1. Registrace knihovny ve Visual Studiu: References - Add reference - Browse (vybrat a potvrdit JADU.dll)
  
  
  2.
  using System;
  
  namespace Test
  {
      class Program
      {
          static void Main(string[] args)
          {
              var Lisir = new JADU.ISIR();
  
              Lisir.Vynul();
              Lisir.I_VyhledatPresnouShoduJmen = 1;
              Lisir.I_NazevOsoby = 'Novák';
              var Kolik = Lisir.Dotaz();
              Lisir.index = Kolik;
              Console.WriteLine(Lisir.O_RC);
  
          }
      }
  }
  

• Delphi 2007:...

  1. instalace JADU
     Component ->
     Import Component ->
     Import Type library -> Next
     vybrat JADU -> Next
     (vybrat Generate Component Wrappers) -> NEXT
     (vybrat Create Unit) -> Finish
  
  2. uses
     ... jadu_tlb, ActiveX,...
  
  3. var
     Lisir: jadu_tlb.tisir;
     ...
     CoInitialize(nil);
     Lisir := jadu_tlb.TISIR.Create(nil);
     Lisir.AutoConnect := true;
  
     Lisir.Vynul()
     Lisir.I_NazevOsoby := 'Novák'
     Lisir.SetT_('I_VyhledatPresnouShoduJmen', '1')
     Kolik := Lisir.Dotaz()
  
     a := Lisir.O_RC
     Lisir.free
  

• Power Builder:...

  oleobject Lisir
  
  string	ls_rc
  long	ll_res, kolik
  
  Lisir = CREATE OleObject
  ll_res = Lisir.connecttonewobject( "JADU.ISIR" )	
  
  Lisir.Vynul()
  Lisir.I_NazevOsoby = "Novák"
  Lisir.I_VyhledatPresnouShoduJmen = 1
  Kolik = Lisir.Dotaz()
  Lisir.index = Kolik
  ll_rc = Lisir.O_RC 
  

• Power Shell:...

  $Lisir = New-Object -comobject "JADU.ISIR"
  $Lisir.Vynul()
  $Lisir.I_NazevOsoby = 'Novák'
  $Lisir.I_VyhledatPresnouShoduJmen = 1
  $Kolik = $Lisir.Dotaz()
  $Lisir.Index = $Kolik
  $Lisir.RC
  

• Excel:...

  Sub isir()
  Dim Lisir As Object
  Set Lisir = CreateObject("JADU.ISIR")
  
  Lisir.Vynul()
  Lisir.I_NazevOsoby='Novák'
  Lisir.I_VyhledatPresnouShoduJmen = 1
  
  Kolik = Lisir.Dotaz()
  Lisir.index = Kolik
  
  Range("a1").Value = "Rodné číslo"
  Range("b1").Value = Lisir.O_RC
  End Sub
  

Vlastnosti a metody vycházející z Popisu WS_2 (verze 1.7) kde prefix CH_ indikuje chybu, I_ vstupní parametr a O_ výstupní parametr.
Datum se zadává jako řetězec ve formátu rrrr-mm-dd nebo dd.mm.rrrr. Parametry typu integer, které zapínají/vypínají chování ISIR při vyhledávání (např. I_vyhledatPresnouShoduJmen), mohou mít i hodnotu -1, která znamená, že se hodnota parametru na straně ISIR neuvažuje (např. I_maxPocetVysledku = -1 znamená vrátit všechny výsledky).

• Dotaz() - metoda vracející počet záznamů vyhovujících zvolenému kritériu. -1 znamená chybu, Prázdný výsledek vrací ISIR jako chybu.
• Index - index v poli odpovědí. Pokud se vrátí např. 250 záznamů, zadáním Objekt.Index=25 se nastaví ukazatel na dvacátý pátý záznam a jeho vlastnosti pak dll vrací.
• SetProxy("Host", Port, "User", "Pwd") - umožňuje nastavit proxy ručně v případě, že ji nelze načíst automaticky.
• SetT_("vlastnost","hodnota") - umožňuje nastavit hodnoty vlastností typu integer pomocí řetězce.
  Např.Objekt.SetT_("I_filtrAktualniRizeni","0") je ekvivalentní zápisu Objekt.I_filtrAktualniRizeni = 0. Vhodné pro prostředí, které neumí korektně předat integer parametr do dll.
• Ver - číslo verze dll
• Vynul() - vynulování všech hodnost vstupních parametrů

ISIR.dll

Minimální specifikace:

• Windows 7, .net 4.6.1 (SetUp v případě potřeby RunTime knihovny stáhne a nainstaluje).

Cena:

• pro vlastní potřebu - 500 Kč
• pro vnitrofiremní použití - 1 000 Kč
• 1 vývojář - 1 500 Kč
• 2 vývojáři - 1 750 Kč
• 3 vývojáři - 2 000 Kč
• 4 vývojáři - 2 250 Kč
• 5 a více vývojářů - 2 500 Kč
• Multilicence pro dodavatele rozsáhlých ekonomických systémů a velké firmy - 9 500 Kč