MS Excel

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ěď >

Strana: 1 2 další »

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

Lukas333323(4.6.2024 11:57)#056592

Zdravím, po zadání opraveného kódu jsem dostal dlouhosáhlou odpověď (předpokládám, že to byla ta nápověda, jak byla zmíněna v prvním vlákně). Vám to funguje? Vůbec netuším jak to zprovoznit.citovat

elninoslov(5.6.2024 13:04)#056594

A kto máte k tomu nejaký popis? Nedokážem dohľadať žiadnu dokumentáciu, popis API, príklady, nič.citovat

Lukas333323(5.6.2024 15:38)#056595

Zdravím, našel jsem pouze toto: https://adisspr.mfcr.cz/pmd/dokumentace/webove-sluzby-spolehlivost-platcu

https://adisrws.mfcr.cz/dpr/axis2/services/rozhraniCRPDPH.rozhraniCRPDPHSOAP?wsdl

Ten 2. odkaz se mi tiskne v excelu při použití kódu z 10.4.2020 11:17, nebo alespoň něco podobnéhocitovat

elninoslov(5.6.2024 17:32)#056596

Ja už som si to info našiel. Takto som to poriešil.

Příloha: zip

56596_nespolehlivy-platce.zip (25kB, staženo 4x)

citovat

Lukas333323(6.6.2024 8:27)#056597

Zdravím, moc Vám děkuji za Excel. Já ovládám pouze základy, takže tohle je kompletně nad moje síly.citovat

elninoslov(6.6.2024 11:12)#056598

Aspoň trochu chápete tomu kódu, či ani nie? Lebo nechcelo sa mi už robiť popis ...citovat

Lukas333323(6.6.2024 12:16)#056599

JJ, kód jsem pochopil, rozpitval a předělal. Potřeboval jsem z toho pouze informaci, jestli je subjekt plátce DPH, nebo neplátce. Ale určitě bych nezvládnul napsat ten kód od začátku, abych se připojil na stránku a vzal si informace, které potřebuji. Takže Vám ještě jednou moc děkuji, hledal jsem způsob jak to udělat přes měsíc.citovat

elninoslov(6.6.2024 12:50)#056600

Medzitým som urobil podrobný popis, aj malú úpravu, aj jednu opravu chybky vyfarbovania čudlíkov.

Příloha: zip