< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

Strana:  1 2   další »
#046409
avatar
https (popis) dať aj do kódu ?citovat
#046410
avatar
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 8
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
#056592
avatar
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
#056594
elninoslov
A kto máte k tomu nejaký popis? Nedokážem dohľadať žiadnu dokumentáciu, popis API, príklady, nič.citovat
#056595
avatar
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
#056596
elninoslov
Ja už som si to info našiel. Takto som to poriešil.
Příloha: zip56596_nespolehlivy-platce.zip (25kB, staženo 5x)
citovat
#056597
avatar
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
#056598
elninoslov
Aspoň trochu chápete tomu kódu, či ani nie? Lebo nechcelo sa mi už robiť popis ...citovat
#056599
avatar
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
#056600
elninoslov
Medzitým som urobil podrobný popis, aj malú úpravu, aj jednu opravu chybky vyfarbovania čudlíkov.
Příloha: zip56600_nespolehlivy-platce.zip (30kB, staženo 8x)
citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje