fix Response validation if Hlavicka.Overeni = True mode

mirus77 · Jan 7, 2020 · 0b9fe48 · 0b9fe48
1 parent 0d240c6
commit 0b9fe48
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/source/eet/u_EETTrzba.pas b/source/eet/u_EETTrzba.pas
@@ -498,11 +498,17 @@ function TEETTrzba.SendRevenue(aHttpClient: TEETHttpClient; const parameters: IX
             FResponseStream.CopyFrom(SOAPResponse, SOAPResponse.Size);
 
             { * check SOAP response for valid XML signature* }
-            ValidateResponse(SOAPResponse);
+            if parameters.Hlavicka.Overeni = False then
+                ValidateResponse(SOAPResponse);
 
             { * parse response to result object if response XML is Valid * }
-            if FValidResponse then
-              ParseResponse;
+            ParseResponse;
+
+            if parameters.Hlavicka.Overeni and (Result <> nil) then
+              begin
+                FValidResponse := (Result.Chyba.Kod = 0);
+                FValidResponseCert := FValidResponse;
+              end;
 
             { * custom actions on the request * }
             SOAPResponse.Position := 0;