#zakupsamochodu #auto #ubezpieczenia #oc #ac
Hej,
Jestem na etapie zakupu/leasingu pierwszego samochodu. Prawko mam już od 2015 ale no niestety tak się złożyło, że zawsze tylko do dyspozycji mialem auto od rodziców i nikt nigdy nie wpisał mnie do ubezpieczenia a potem to już mieszkałem w mieście i nigdy nie było potrzeby zakupu. Celuje w samochód lekko używany do około 100k nie premium (seat leon, toyota c-hr itp jeszcze nie zdecydowałem). Jednak
Hej,
Jestem na etapie zakupu/leasingu pierwszego samochodu. Prawko mam już od 2015 ale no niestety tak się złożyło, że zawsze tylko do dyspozycji mialem auto od rodziców i nikt nigdy nie wpisał mnie do ubezpieczenia a potem to już mieszkałem w mieście i nigdy nie było potrzeby zakupu. Celuje w samochód lekko używany do około 100k nie premium (seat leon, toyota c-hr itp jeszcze nie zdecydowałem). Jednak
próbuję wykonać kod w VBA, który po numerze REGON zwróci mi następujące dane:
-nazwa firmy
-NIP
-ulica, numer lokalu, kod pocztowy, miejscowość
-PKD
bazuje na tym excelu: https://github.com/MarekRod/Excel---GUS
zmusić kod żeby pobierał dane po REGON zamiast po NIP jest bardzo prosto, jednak kiedy pobieram dane po REGON nie wiem jak mogę pobrać NIP; tak jakby nie było takiej danej w pobranym xml.
macie
popatrzę zatem czy można to PQ jakoś wykorzystać tu.
ogólnie ten skrypt z vba jest spoko, elegancko działa, loguje się do usługi, ale mnie zastanawia dlaczego nie mogę z niego wyciągnąć danych które teoretycznie powinny tam być. i praktycznie są, bo inny skrypt do sprawdzania pkd znalazłem i on to pkd odczytuje, ale jest o dziwo inaczej skonstruowany i jak zaczynam go modyfikować to przestaje działać.
trochę zgłupiałem.
dokumentacja dot. API BIR1.1 jest tutaj: https://api.stat.gov.pl/Home/RegonApi
BIR1.1 wersja testowa
Adres usługi: https://wyszukiwarkaregontest.stat.gov.pl/wsBIR/UslugaBIRzewnPubl.svc
Adres wsdl: https://wyszukiwarkaregontest.stat.gov.pl/wsBIR/wsdl/UslugaBIRzewnPubl-ver11-test.wsdl
Klucz: abcde12345abcde12345
mam dostęp pełny, ale na dostępie testowym działa to równie dobrze (tylko pobiera dane ze starej, nieaktualnej bazy)
Sam kod wygląda wygląda zaś następująco: https://pastebin.com/mKBbyJEY
kod ten pozwala mi zalogować się do usługi i pobrać dane, wyszukując po NIP
bardzo Ci dziękuję za pomoc.
widzę wpisałeś Set xmlSomeCData = dom.SelectSingleNode("root/dane/NIP") i tutaj to działa, ja wpisywałem tak samo i nie chciało właśnie
i teraz to i u mnie działa, to na prawdę dziwne.
ten debug.print fajna sprawa, szukałem jakiejś opcji żeby podejrzeć odpowiedź z zapytania ale nie wiedziałem jak.
a masz pomysł jak jeszcze tutaj dorzucić to PKD żeby wyciągnąć? w sumie tylko główne jest mi potrzebne
Dzięki Waszej pomocy i lekkiej kombinatoryce udało mi się to w miarę sensownie poskładać i wszystko mi działa tak jakbym chciał :)