Dvije stvari:
To mi se čini da je problem - zar ne bi trebao javiti grešku da je račun koji se šalje star više nekoliko dana?
Function FiskProvjera()
Dim o
xmlError = "<?xml version=""1.0"" encoding=""utf-8""?><tns:RacunZahtjev xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" Id=""signXmlId"" xmlns:tns=""http://www.apis-it.hr/fin/2012/types/f73"">cff93023-850b-403c-ac8b-277619e81dc9 21.10.2012T10:10:28 49868092723 true 21.10.2012T10:10:22 P 1 123 1 25.00 10.00 2.50 12.50 G 12345678900 e4d909c290d0fb1ca068ffaddf22cbd0 false
Dim odgovorErr
On Error Resume Next
Err.Clear
odgovorErr = o.PosaljiSoapPoruku(xmlError, "FISKAL 1")
If Err.Number <> 0 Then
End Function
- Samo info: Verzija 3.1. (DLL) uredno radi na 3 računala na produkciji (za sad samo 3) i korisnici se nisu ništa žalili
-
Pitanje: na testu mi poziv "MsgBox o.DohvatiGresku(o.OdgovorGreska)" uredno vraća grešku "OIB iz poruke zahtjeva nije jednak OIB-u iz certifikata. Šifra greške: s005".
Testiram sa ovim testnim primjerom koji je dan na stranici za preuzimanje (niže u mail-u ću paste cijelu funkciju):
To mi se čini da je problem - zar ne bi trebao javiti grešku da je račun koji se šalje star više nekoliko dana?
Function FiskProvjera()
Dim o
Set o = CreateObject("Raverus.FiskalizacijaDEV.COM.CentralniInformacijskiSustav")
o.Timeout = 4000 ' cekamo 4 sekunde
o.Cisurl = "https://cistest.apis-it.hr:8449/FiskalizacijaServiceTest" ' adresa testnog servera
xmlError = "<?xml version=""1.0"" encoding=""utf-8""?><tns:RacunZahtjev xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" Id=""signXmlId"" xmlns:tns=""http://www.apis-it.hr/fin/2012/types/f73"">
Dim odgovorErr
On Error Resume Next
Err.Clear
odgovorErr = o.PosaljiSoapPoruku(xmlError, "FISKAL 1")
If Err.Number <> 0 Then
MsgBox o.DohvatiGresku(o.OdgovorGreska)End Function
