• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: VBA - nespolehlivý plátce DPH

Zaslal/a petrsubi 10.4.2020 1:18

Dobrý den,
nemohu rozchodit načtení nespolehlivého plátce DPH z registru. Jako odpověď mi pouze přijde nápověda.
Máte s tím prosím zkušenosti?
popis: https://adisdpr.mfcr.cz/adistc/adis/idpr_pub/dpr_info/ws_spdph.faces
kód:
Dim HTTPRequest As WinHttp.WinHttpRequest
Set HTTPRequest = New WinHttp.WinHttpRequest
With HTTPRequest
.Open "POST", "http://adisrws.mfcr.cz/adistc/axis2/services/rozhraniCRPDPH.rozhraniCRPDPHSOAP?wsdl", False
.setRequestHeader "Content-Type", "text/xml; charset=utf-8" .send "" & _
"<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/'>" & _
" <soapenv:Body>" & _
" <StatusNespolehlivyPlatceRequest xmlns='http://adis.mfcr.cz/rozhraniCRPDPH/'" & _
" <dic>5506280021</dic>" & _
" </StatusNespolehlivyPlatceRequest>" & _
" </soapenv:Body>>" & _
"</soapenv:Envelope>"
Debug.Print .responseText
End With

Zaslat odpověď >

---

neviemheslo(10.4.2020 6:34)#046409

https (popis) dať aj do kódu ?citovat

petrsubi(10.4.2020 11:17)#046410

Tak mě to nakoplo a pořádně jsem si zkontroloval jakou adresu jsem dal do .Open - na konci byl požadavek na nápovědu
Ještě tam byly nějaké chybky takže tady je funkční kód kdyby někdo potřeboval:
Dim HTTPRequest As WinHttp.WinHttpRequest
Set HTTPRequest = New WinHttp.WinHttpRequest
With HTTPRequest
.Open "POST", "http://adisrws.mfcr.cz/adistc/axis2/services/rozhraniCRPDPH.rozhraniCRPDPHSOAP", False
.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
.send "" & _
"<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
" <soapenv:Body>" & _
" <StatusNespolehlivyPlatceRequest xmlns=""http://adis.mfcr.cz/rozhraniCRPDPH/"">" & _
" <dic>5506280021</dic>" & _
" </StatusNespolehlivyPlatceRequest>" & _
" </soapenv:Body>" & _
"</soapenv:Envelope>"
Debug.Print .responseText
End With

P.S. v nastavení Tools-References knihovna "Microsoft WinHTTP Services, version 5.1"citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse