https (popis) dať aj do kódu ?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: VBA - nespolehlivý plátce DPH
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
(10.4.2020 6:34)#046409
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
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
(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
A kto máte k tomu nejaký popis? Nedokážem dohľadať žiadnu dokumentáciu, popis API, príklady, nič.citovat
(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
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
Ja už som si to info našiel. Takto som to poriešil.
Příloha: 
56596_nespolehlivy-platce.zip (25kB, staženo 5x)
citovat56596_nespolehlivy-platce.zip (25kB, staženo 5x)(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
Aspoň trochu chápete tomu kódu, či ani nie? Lebo nechcelo sa mi už robiť popis ...citovat
(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
Medzitým som urobil podrobný popis, aj malú úpravu, aj jednu opravu chybky vyfarbovania čudlíkov.
Příloha: 56600_nespolehlivy-platce.zip (30kB, staženo 9x)
citovat56600_nespolehlivy-platce.zip (30kB, staženo 9x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články