Problem je sto ne znam kako odraditi metodu send
Probao sam na vise nacina i nista od ovoga ne prolazi
Dim slanje As New MSXML2.XMLHTTP60
Dim addressa As String
addressa = "https://efaktura.mfin.gov.rs/a...-invoice/ubl/upload?requestId=" & BrojMojeFakture & Chr(38) & "sendToCir=Auto"
With slanje
.Open "POST", addressa, "False"
.setRequestHeader "accept", "text/plain"
.setRequestHeader "APIKey", "mojAPIkey"
.setRequestHeader "Content-Type", "multipart/form-data" 'ako se salje xml fajl sa compa
'.setRequestHeader "Content-Type", "application/xml" 'ako se xml slaze iz coda
.send "ublFile=@" & E:\MojaPutanja\MojFajl.xml
End With
Kao ni
Dim slanje As New MSXML2.XMLHTTP60
Dim addressa As String
addressa = "https://efaktura.mfin.gov.rs/a...-invoice/ubl/upload?requestId=" & BrojMojeFakture & Chr(38) & "sendToCir=Auto"
Dim oXML As Object
Set oXML = CreateObject("MSXML2.DOMDocument")
oXML.async = False
oXML.Load (Putanja & NazivFajla & ".xml")
With slanje
.Open "POST", addressa, "False"
.setRequestHeader "accept", "text/plain"
.setRequestHeader "APIKey", "mojAPIkey"
'.setRequestHeader "Content-Type", "multipart/form-data" 'ako se salje xml fajl sa compa
.setRequestHeader "Content-Type", "application/xml" 'ako se xml slaze iz coda
.send (oXML.XML)
End With
If slanje.Status = 200 Then
...itd
end if
kao response dobijam
"Message":"Incorrect Content-Type: application/xml","FieldName":"","ErrorCode":"XmlInvalid"}"
isto se desava i kad xml fajl ucitam u string i stavim ga u SEND.
xml fajlovi su validni, prolaze kad ih rucno posaljem na sajt.
u prilogu dajem deo iz uputstva sa parametrima za slanje, ali ja sa ovim nemam puno iskustva, i ne znam da li sam ih pravilno rastumacio.
Unapred hvala za svaku pomoc
[Ovu poruku je menjao Dexxxl dana 02.12.2022. u 21:36 GMT+1]