Davčne blagajne

ce bo kdo imel se tezave z Androidom ... Base64 razred, pri kodiranju wrapa tekst po defaultu in vmes dodaja '\n', zato je potrebno izrecno uporabiti flag 'NO_WRAP'.
npr.

Base64.encodeToString(json.getBytes('UTF-8'), Base64.URL_SAFE|Base64.NO_WRAP);

imam pa sedaj drug problem. Sam uporabljam Retrofit knjiznico in OkHttp klienta za komunikacijo z REST servici. Pri posiljanju tokena pride do napake:

{"fault":{"faultstring":"ExtractVariables ExtractVariables.BpExtractVATNumberJSON: Json path parsing failed for for flow variables copy.payload","detail":{"errorcode":"steps.extractvariables.JsonPathParsingFailure"}}}

meni zgleda kot bug v OkHttp klientu. Ce mi uspe resiti javim, ce pa je kdo ze naletel na isti problem in ga uspel resiti, pa prosim delite resitev z ostalimi.

Zgornjo napako dobim tudi pri posiljanju istega tokena kot je v dokumentaciji.

lp

@anarho

A pošiljaš na pravi URL? Url-ja za račune in poslovni prostor sta pri JSON-u različna.

....v1/cash_registers/invoices/register za Poslovni prostor
....v1/cash_registers/invoices za Račune

@DamjanD za .net 3.5 sem našel tole:
http://www.componentpro.com/doc/saml/wo...
ampak pri meni nič ne pomaga, če spreminjam machine.config

Vem da je trivialno ampak meni je isto napako javljalo ko sem podatke za račun pošiljal na URL od poslovnega prostora. Sem še enkrat preveril in mi naredi enako.

ima ze kdo narejen command line exe za komunikacijo s FURS za Windows (32,64),
sedaj, ko ne bo vec potrebna QR koda, bi se mogoce lotil predelave

pardon ... se vedno javlja isto napako. 404:Napacni parametri vnosa javlja ce v header ne dodas charset=UTF-8

res, ampak pred tem rabim

>command line exe za komunikacijo s FURS za Windows (32,64)

izgleda, da tega se nihce nima, sem nasel ene tri hrvaske, ki pa (se) niso prilagojene nasem (FURSovem) sistemu

Jaz podpisujem xml z libxmlsec in ga parsam z libxml2, pa mi noče parsati dokumenta, če je notri kakšen šumnik.
Če poskusim uporabiti latin1 encoding pa dobim vrnjeno Digitalni podpis ni ustrezen, brez šumnika pa gre normalno čez.

Ostalim deluje s šumniki normalno?

Mavrik je 28. sep 2015 ob 18:02 izjavil:

Ne razumem kaj počneš z latin1 (v 21. stoletju?!) če je v glavi definiran UTF-8 kot encoding?

To je bila samo ena izmed možnosti ki sem jih poizkusil, z UTF-8 mi noče parsati xmlja.

Sej imaš prav. 29x29 je premalo za zahtevane podatke. Baje bo popravek v pravilniku.

Kot je bilo že večkrat povedano, se pripravlja sprememba pravilnika in vsebina kode ter vrste kod se bodo spremenile.

Zdej ne vem, kako ste vi navajeni delat, ampak če bi bil jaz na vašem mestu, ne bi tikal dela, ki se tiče generiranja in izpisa kod, dokler mi ne javijo končne rešitve.

Jaz lahko potrdim da smo uspešno implementirali celoten proces na Androidu s pomočjo REST storitev in JSON sporočil.
Nekaj opozoril za ostale ki bodo sli po podpobni poti.

Base64 v Androidu po defaultu dodaja '\n' pri kodiranju sporočil, zato je potrebno pri enkripciji uporabljati dodaten flag NO_WRAP.
Ce bo kdo uporabljal Retrofit knjiznico, priporocam da v @Body vstavlja TypedInput in ne String saj le tega knjiznica se enkrat pretvori v JSON in pri tem zamenja nekatere znake (kot npr enačaj) s primernim UNICODEom. Lahko se tudi nastavi lasten Gson converter z uporabo nastavitve 'disableHtmlEscaping()'.

Malce nejasno je v dokumentaciji zapisano kaj se pravzaprav podpisuje zato se enkrat ... podpisuje se:
BASE64URL(UTF8(JWS Header)) + "." + BASE64URL(Payload)

lp

te spremembe ne bodo bistveno vplivale na proces fiskalizacije racunov in registracije prostorov ... kokr razumem se bo spremenil algoritem za generiranje ZOIja kar pa za sabo povlece spremembo ene ali dveh vrstic kode.

Je kdo kaj naredil da bi importal
WSDL: FiscalVerification.wsdl

in preko tega delal.

Kljub temu da uspešno prijavim poslovni prostor, dobim pri vsakem poslanem računu napako S006 (Podatki o poslovnem prostoru niso posredovani).
Nekajkrat sem že preveril XML in vse zgleda OK. Ker mi je prejšnji teden nekajkrat uspelo poslati račun BP, sumim da je težava na testnem web serisu.

Se še komu to dogaja?

miran123: Kakšen pa je ta requested URL?

sajmons je 2. okt 2015 ob 07:59 izjavil:

Kljub temu da uspešno prijavim poslovni prostor, dobim pri vsakem poslanem računu napako S006 (Podatki o poslovnem prostoru niso posredovani).
Nekajkrat sem že preveril XML in vse zgleda OK. Ker mi je prejšnji teden nekajkrat uspelo poslati račun BP, sumim da je težava na testnem web serisu.

Se še komu to dogaja?

Preveri če se TaxNumber in BusinessPremiseID na XML-u od poslovnega prostora ujemata s tistima na XML-u od računa.

unit mainhttcptest;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, lNet, lHTTP,
  lNetComponents, ExtCtrls, StdCtrls, Buttons, Menus, lHTTPUtil;
  
type

  { TMainForm }

  TMainForm = class(TForm)
    ButtonSendRequest: TButton;
    EditURL: TEdit;
    HTTPClient: TLHTTPClientComponent;
    LabelURI: TLabel;
    SSL: TLSSLSessionComponent;
    MainMenu1: TMainMenu;
    MemoHTML: TMemo;
    MemoStatus: TMemo;
    MenuItemExit: TMenuItem;
    MenuItemAbout: TMenuItem;
    MenuItemHelp: TMenuItem;
    MenuItemFile: TMenuItem;
    MenuPanel: TPanel;
    PanelSep: TPanel;
    procedure ButtonSendRequestClick(Sender: TObject);
    procedure EditURLKeyPress(Sender: TObject; var Key: char);
    procedure HTTPClientDisconnect(aSocket: TLSocket);
    procedure HTTPClientDoneInput(ASocket: TLHTTPClientSocket);
    procedure HTTPClientError(const msg: string; aSocket: TLSocket);
    function HTTPClientInput(ASocket: TLHTTPClientSocket; ABuffer: pchar;
      ASize: dword): dword;
    procedure HTTPClientProcessHeaders(ASocket: TLHTTPClientSocket);
    procedure MenuItemAboutClick(Sender: TObject);
    procedure MenuItemExitClick(Sender: TObject);
    procedure SSLSSLConnect(aSocket: TLSocket);
  private
    HTTPBuffer: string;
    procedure AppendToMemo(aMemo: TMemo; const aText: string);
    { private declarations }
  public
    { public declarations }
  end; 

var
  MainForm: TMainForm;

implementation

{ TMainForm }

procedure TMainForm.HTTPClientError(const msg: string; aSocket: TLSocket);
begin
  MessageDlg(msg, mtError, [mbOK], 0);
end;

procedure TMainForm.HTTPClientDisconnect(aSocket: TLSocket);
begin
  AppendToMemo(MemoStatus, 'Disconnected.');
end;

procedure TMainForm.ButtonSendRequestClick(Sender: TObject);
var
  aHost, aURI: string;
  aPort: Word;
  XMLFile: TStrings;
  request:TClientRequest;
begin
  HTTPBuffer := '';
  SSL.SSLActive := DecomposeURL('https://blagajne-test.fu.gov.si:9002/v1/cash_registers', aHost, aURI, aPort);


  HTTPClient.Host := aHost;       //aHost = 'blagajne-test.fu.gov.si'
  HTTPClient.URI  := aURI;        //aURI = '/v1/cash_registers'
  HTTPClient.Port := aPort;       // aPort = 9002

    XMLFile:= TStringList.Create;
   try
   XMLFile.LoadFromFile('/home/usb/Desktop/php/PrimerDokumentacijaPrijavaProstoraXmlPodpisan.xml'); //tole je nespremenjen na dursu.

  // HTTPClient.Method:= hmPost;



   HTTPClient.AddExtraHeader(XMLFile.Text);

   XMLFile.Clear;
   XMLFile.LoadFromFile('/home/usb/Desktop/php/key/test-tls.cer');
 // XMLFile.LoadFromFile('/home/usb/Desktop/php/key/sitest-ca.cer');
  //  XMLFile.LoadFromFile('/home/usb/Desktop/php/key/TaxCATest.cer');

   HTTPClient.AddExtraHeader(XMLFile.Text);

   finally
     XMLFile.Free;
   end;


  HTTPClient.SendRequest;
end;

procedure TMainForm.EditURLKeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then
    ButtonSendRequestClick(Sender);
end;

procedure TMainForm.HTTPClientDoneInput(ASocket: TLHTTPClientSocket);
begin
  aSocket.Disconnect;
  AppendToMemo(MemoStatus, 'Finished.');
end;

function TMainForm.HTTPClientInput(ASocket: TLHTTPClientSocket; ABuffer: pchar;
  ASize: dword): dword;
var
  oldLength: dword;
begin
  oldLength := Length(HTTPBuffer);
  setlength(HTTPBuffer,oldLength + ASize);
  move(ABuffer^,HTTPBuffer[oldLength + 1], ASize);
  MemoHTML.Text := HTTPBuffer;
  MemoHTML.SelStart := Length(HTTPBuffer);
  AppendToMemo(MemoStatus, IntToStr(ASize) + '...');
  Result := aSize; // tell the http buffer we read it all
end;

procedure TMainForm.HTTPClientProcessHeaders(ASocket: TLHTTPClientSocket);
begin
  AppendToMemo(MemoStatus, 'Response: ' + IntToStr(HTTPStatusCodes[ASocket.ResponseStatus]) +
                    ' ' + ASocket.ResponseReason + ', data...');
end;

procedure TMainForm.MenuItemAboutClick(Sender: TObject);
begin
  MessageDlg('Copyright (c) 2006-2008 by Ales Katona and Micha Nelissen. All rights deserved :)',
             mtInformation, [mbOK], 0);
end;

procedure TMainForm.MenuItemExitClick(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.SSLSSLConnect(aSocket: TLSocket);
begin
  MemoStatus.Append('TLS handshake successful');
end;

procedure TMainForm.AppendToMemo(aMemo: TMemo; const aText: string);
begin
  aMemo.Append(aText);
  aMemo.SelStart := Length(aMemo.Text);
end;

initialization
  {$I mainhttcptest.lrs}

end.                  

<?xml version="1.0" encoding="utf-8"?><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:fu="http://www.fu.gov.si/" xmlns:xd="http://www.w3.org/2000/09/xmldsig#">
	<soapenv:Body>
		<fu:BusinessPremiseRequest Id="data">
			<fu:Header>
				<fu:MessageID>d9e022a8-362c-4aba-857d-c2b4e79295bd</fu:MessageID>
				<fu:DateTime>2015-10-01T12:07:28</fu:DateTime>
			</fu:Header>
			<fu:BusinessPremise>
				<fu:TaxNumber>99999862</fu:TaxNumber>
				<fu:BusinessPremiseID>36CF</fu:BusinessPremiseID>
				<fu:BPIdentifier>
					<fu:RealEstateBP>
						<fu:PropertyID>
							<fu:CadastralNumber>365</fu:CadastralNumber>
							<fu:BuildingNumber>12</fu:BuildingNumber>
							<fu:BuildingSectionNumber>3</fu:BuildingSectionNumber>
						</fu:PropertyID>
						<fu:Address>
							<fu:Street>Dunajska cesta</fu:Street>
							<fu:HouseNumber>24</fu:HouseNumber>
							<fu:HouseNumberAdditional>B</fu:HouseNumberAdditional>
							<fu:Community>Ljubljana</fu:Community>
							<fu:City>Ljubljana</fu:City>
							<fu:PostalCode>1000</fu:PostalCode>
						</fu:Address>
					</fu:RealEstateBP>
				</fu:BPIdentifier>
				<fu:ValidityDate>2100-08-25</fu:ValidityDate>
				<fu:SoftwareSupplier>
					<fu:TaxNumber>24564444</fu:TaxNumber>
				</fu:SoftwareSupplier>
				<fu:SpecialNotes>Primer prijave poslovnega prostora</fu:SpecialNotes>
			</fu:BusinessPremise>
		<Signature xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /><SignatureMethod Algorithm="http://www.w3.org/2001/04/xmldsig-more#rsa-sha256" /><Reference URI="#data"><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256" /><DigestValue>mqBkm+EhzlSunaTRw289IQ8/013GIQsKcFavXymJu4k=</DigestValue></Reference></SignedInfo><SignatureValue>NRVae9V4z9GGLQk96rUi5GE2dBiqtwHivYvK0nFSftP7wONIRwSOxQUfPTXZMGTUYxaWDolayO3n1Sm3uAfWhdHQWSWJmwaSJiHlOl8M4dbKciR7tsZpQEA75i1pRn7L7xcmBkAbDUKSU9kPsopQ3ZqmYGjozLs76ByEe//h2r1dCrDVARpCjCOmjhmUVcXqiNKUWU+f+HB1t2uL6GTq4zN3jw7mK/r5aDqGHfMkKdh9VYUdEMNkkXnZWoR9aHIsLeaC0SJM5ulk5UWaDYH23nhxE3cOSQp5TQNqrAlHNQAiXYybp61XfNTpeiq7M1ccUWCAuRNKhtswj6y5Ic4QQg==</SignatureValue><KeyInfo><X509Data><X509IssuerSerial><X509IssuerName>CN=Tax CA Test, O=state-institutions, C=SI</X509IssuerName><X509SerialNumber>2575988469811686647</X509SerialNumber></X509IssuerSerial><X509SubjectName>CN="ITM STORITVE, ŠPELA PERGAR S.P.", SERIALNUMBER=1, OU=99999862, OU=DavPotRacTEST, O=state-institutions, C=SI</X509SubjectName></X509Data></KeyInfo></Signature></fu:BusinessPremiseRequest>
	</soapenv:Body>
</soapenv:Envelope>

Tole javi program

TLS handshake successful
Response: 200 OK, data...
188...
Finished.
Disconnected.

Tole dobimi od durs serverja.

<html><head><title>Request Rejected</title></head><body>The requested URL was rejected. Please consult with your administrator.<br><br>Your support ID is: 2311022752657626593</body></html>

Sem preveril že nekajkrat :(

theanswer3 je 2. okt 2015 ob 18:48 izjavil:

sajmons je 2. okt 2015 ob 07:59 izjavil:

Kljub temu da uspešno prijavim poslovni prostor, dobim pri vsakem poslanem računu napako S006 (Podatki o poslovnem prostoru niso posredovani).
Nekajkrat sem že preveril XML in vse zgleda OK. Ker mi je prejšnji teden nekajkrat uspelo poslati račun BP, sumim da je težava na testnem web serisu.

Se še komu to dogaja?

Preveri če se TaxNumber in BusinessPremiseID na XML-u od poslovnega prostora ujemata s tistima na XML-u od računa.

Vuego: svaka čast! To je bilo to. Kam ti pošljem pir? :)

vuego je 5. okt 2015 ob 13:55 izjavil:

Odstrani tag "closingTag" iz BusinessPremise XML-ja in poizkusi ponovno.

Če je ta tag prisoten pomeni, da je enota zaprta.

lp

Jaz sem imel podobno težavo. Poskusi vklopiti PreserveWhitespace na XML dokumentu, ki ga podpisuješ.

XmlDocument xmlDoc = new XmlDocument();
xmlDoc.PreserveWhitespace = true;
xmlDoc.LoadXml(xml);

// sledi koda za podpis

Kaj pa pravi schema validator?

51M3K je 6. okt 2015 ob 11:23 izjavil:

sajmons je 6. okt 2015 ob 10:58 izjavil:

Jaz sem imel podobno težavo. Poskusi vklopiti PreserveWhitespace na XML dokumentu, ki ga podpisuješ.

XmlDocument xmlDoc = new XmlDocument();
xmlDoc.PreserveWhitespace = true;
xmlDoc.LoadXml(xml);

// sledi koda za podpis

To imam že od začetka, žal ni v tem problem.

p.s.: Zgoraj ko sem objavil XML na pastebin, je SoftwareSupplier TaxNumber dolga 7 znakov in ne ustreza shemi; to sem naredil samo za zakritje informacij, drugače je vsebina pri podpisovanju in pošiljanju ustrezna.

51m3k: Mislim, da imaš problem v podpisu, ker moj izgleda precej drugače http://pastebin.com/9UaACa0L

Mislim da nima, ker meni je tudi s "test" šlo skozi.

51M3K: ja, mogoče vsebinsko, ampak moj je kot si najbrž opazil brez praznih znakov (whitespace-ov) problem maš v neustrezni kanonikalizaciji.
XML Signature @ Wikipedia