[ Dexxxl @ 02.12.2022. 20:11 ] @
Da li je neko vec radio ovo ili ima iskustva? Problem je sto ne znam kako odraditi metodu send Probao sam na vise nacina i nista od ovoga ne prolazi Code: 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 Code: 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] |