Nové Ares - Administrativní registr ekonomických subjektů

[Jirka]

-Neplatci vetsinou vubec nemaji element 'dic'

Jen malá poznámka DIČ nemají jen plátci DPH (jak to bylo kdysi)  ale nyní by ho měli mít všichni podnikatelé kteří jsou přihlášení k nějaké dani

[mbx]

DIC, pokud se nepletu, meli vzdycky vsichni, jakmile byli registrovani k jakekoli dani. Ale nas stat (si) v tom nikdy neudelal jasno, takze lidi dodnes rikaji "nemam dico", a pritom ho maji. A snad i proto ho v ARESu neplatci VETSINOU nemaji, a platci VETSINOU maji.

Co musim kvitovat, ze se konecne snad naucili pracovat s kombinaci popisneho/orientacniho cisla +pismeno. Zatimco drive bylo spravnou ulici typu "Ulice ta a ta 745/5a" obvykle mozno ziskat jedine z adresy textem, ted uz to vrati 745, 45 a "a" samostatne.

M.

[Jan Fiala]

Mě připadá ostuda, když se pro takový rejstřík dělá nové rozhraní a zůstane celé v češtině.

[Marek Weyda]

DIC, pokud se nepletu, meli vzdycky vsichni, jakmile byli registrovani k jakekoli dani. Ale nas stat (si) v tom nikdy neudelal jasno, takze lidi dodnes rikaji "nemam dico", a pritom ho maji. A snad i proto ho v ARESu neplatci VETSINOU nemaji, a platci VETSINOU maji.

Přesně tak, podle DIČ není možno jednoznačně určit, zda jde nebo nejde o plátce DPH. Trochu mě s tím údajem o plátci DPH potrápili, ale mělo by to být tak, že když má firma záznam v rejstříku plátců DPH, což skutečně ARES stále zasílá, tak je prostě plátce DPH. Ale samotné přidělení DIČ ještě jednoznačně neurčuje, že je daný subjekt plátcem DPH.

[Marek Weyda]

Co musim kvitovat, ze se konecne snad naucili pracovat s kombinaci popisneho/orientacniho cisla +pismeno. Zatimco drive bylo spravnou ulici typu "Ulice ta a ta 745/5a" obvykle mozno ziskat jedine z adresy textem, ted uz to vrati 745, 45 a "a" samostatne.

M.

Jo, tím mě překvapili velice mile, že oddělují numerickou a alfa část čísla orientačního. Ve starém ARES byl jeden příšerný bordel - u některých firem, zřejmě ještě ze začátku podnikání v tehdejším Československu, tak údaje o adrese nebyly nikde, než v jakémsi jednom elementu - to teď je také, nově jde o element textovaAdresa. No a v tom starém ARES v databázi byl údaj o adrese naflákaný v jednom textovém řádku. Takže pro naše klienty jsme v tomto případě naprogramovali takovou pomůcku, že jim to tuto jednu řádku rozparsuje do ulice, čísla popisného, orientačního, města, PSČ a podobně a zobrazí se jim to ve formuláři, aby si to překontrolovali, jestli to je nebo není dobře. Taková primitivní AI :-) Takže pevně věřím, že s novým ARES si také udělali pořádek v těch jejich databázích. V každém případě jsem tam tento systém nechal a pokud by se stalo, že údaj by byl jenom v položce textovaAdresa, tak si to budou stále moci zpracovat jako ve starém ARES. Jinak ale oceňuji Ministerstvo financí, že jde alespoň trochu s dobou a snaží se ty jejich systémy z doby krále Klacka modernizovat. Že na JSON přešli v roce 2023 je vlastně s ohledem na naši státní správu mimořádný úspěch :-) To byla samozřejmě ironie. Obávám se, že nic moc se nezmění a státní správa bude nadále fungovat tak, jako doposud - my pracující v soukromém sektoru ji budeme živit a ona občasně vyplodí něco jako nový ARES - samozřejmě za několikanásobně vyšší cenu, než by jim to udělal průměrná softwarová společnost.

[Marek Weyda]

Ještě varuji na nesrovnalost, co tam mají s kódem státu. V dokumentaci píší, že by to měl být třímístný číselný kód, jako vracel starý ARES.

Ale když mi přijde JSON odpověď od nich, tak zatím tam mám vždy CZ a nikoliv 203. Což je pro mě lepší, protože ve starém ARES jsme museli dělat převodní můstek mezi číselnými kódy států a jejich textovým označením. Jenom doufám, že nemají tu databázi v bordelu a občas zašlou textový údaj a občas číselný. Zatím ale dostávám vždy textový. Raději ale naprogramuji obezličku, že si budu zjišťovat, jestli položka kodStatu je textová nebo číselná, protože rozhodně mají bordel mezi dokumentací a co skutečně rozhraní ARES vrací.

[js@creatix.cz]

Predne diky za tento dotaz; mozna nejsem sam, kdo nezaregistroval, ze stara sluzba konci!

Na takove veci pouzivam Synapsi + openSSL + LkJSON. Zakladni test mi funguje:

procedure TFrmAres23.BtTestClick(Sender: TObject);
var
 url, ico: String;
 resp: TStringList;
 J: TlkJSONobject;

begin

 url := 'https://ares.gov.cz/ekonomicke-subjekty-v-be/rest/ekonomicke-subjekty-res/' + EdICO.Text;
 resp := TStringList.Create;
 try

   if HttpGetText(url, resp) then begin

      MemoResp.Text := resp.Text;
      J := TlkJSON.ParseText(resp.Text) as TlkJSONobject;
      try
        ico := J.getString('icoId');
        MemoResp.Lines.Add(ico);
      finally
        J.Free;
      end;

   end else
      MemoResp.Text := 'error';

 finally

   resp.Free;

 end;

end;

HTH, M.

Zkoušel jsem uvedený příklad, bohužel mi to pořád vrací hlášku:
<h2>Our services aren't available right now</h2><p>We're working to restore all services as soon as possible. Please check back soon.</p>0a6QBZQAAAACrIva67ZMtS5TJz+5AQBOGUFJHMDFFREdFMDkxMAA4YWU4ZmZhNS1lNTc1LTRjMGUtYjYwNy01MDdmYTQyYThjODg=

Co je špatně?

[mbx]

Zkus si dat cele url vcetne IC do prohlizece - funguje, ze? Odhaduju, ze nemas soucasti projektu open SSL. Pridej do uses a do adresare  k projektu dej prislusne DLL.

M.

[js@creatix.cz]

Právě že mám. Mám i knihovny libeay32.dll a ssleay32.dll. Když zadám url do FIDDLER tak to vrátí stejnou chybu.

uses httpSend, ssl_OpenSSL;

procedure TForm1.FormShow(Sender: TObject);
var
  url, ico: String;
  resp: TStringList;
begin
  url := 'https://ares.gov.cz/ekonomicke-subjekty-v-be/rest/ekonomicke-subjekty-res/66376670';
  resp := TStringList.Create;
  try
    if HttpGetText(url, resp) then
      memFrom.Text := resp.Text
   else
      memFrom.Text := 'error';
  finally
   resp.Free;
  end;
end;

[cadsky]

Právě že mám. Mám i knihovny libeay32.dll a ssleay32.dll. Když zadám url do FIDDLER tak to vrátí stejnou chybu.

Dotaz také zněl, zda to funguje v případě zadání řádku do prohlížeče.
Já používám MVCFramework takto:
    var lClient := TMVCRESTClient.New.BaseURL(AUrl);
    var PostResult := lClient.Post('', AParam);

[KarelHorky]

V prohlížeči (používám Firefox) to funguje taky, vrací se čisté JSON. Zkus si změnit adresu, dej pouze /ekonomicke-subjekty/ bez -res:

Kód: Delphi [Vybrat]

1. url := 'https://ares.gov.cz/ekonomicke-subjekty-v-be/rest/ekonomicke-subjekty/66376670';

Budeš to mít i s DIČ.

[soko.ban]

Použij komponenty Delphi a nemusíš se zaobírat s SSL.

Kód: Delphi [Vybrat]

1.  
2. uses
3.   REST.Types, REST.Client, REST.Utils, REST.HttpClient;
4.  
5.   var LICO := '45274649';
6.   var LRESTClient := TRESTClient.Create('https://ares.gov.cz/ekonomicke-subjekty-v-be/rest');
7.   var LRESTRequest := TRESTRequest.Create(nil);
8.   try
9.     LRESTRequest.Client := LRESTClient;
10.     LRESTRequest.Resource := 'ekonomicke-subjekty-res/' + LICO;
11.     LRESTRequest.Accept := 'application/json';
12.     LRESTRequest.Method := rmGET;
13.     LRESTRequest.Execute;
14.     var LStatusCode := LRESTRequest.Response.StatusCode;
15.     ShowMessage(LRESTRequest.Response.JSONText);
16.   finally
17.     LRESTClient.Free;
18.     LRESTRequest.Free;
19.   end;
20.  

[js@creatix.cz]

Ano, v prohlížeči mi to funguje.
Bohužel to musí jít zkompilovat i v Delphi 7...

[mbx]

Me to chodi i v D6
Zkus si to odkrokovat do Synapse a zkontroluj si, ze tam proleze fakt spravna url a zda se opravdu pouzije ssl.
Pripadne, pokud nebudes uspesny, posli na soukrome nejaky minimalni testovaci projekt a ja se pokusim na to podivat.

M.

[js@creatix.cz]

Vyřešeno, problém byl ve verzi synapse, musel jsem stáhnout synalist.

Děkuji všem za podporu.