Dzień dobry,
SugiektGT wersja 1.5900.04590
aktywowany próbny PLUS czerwony i niebieski
aktywowana próbna Sfera
świeża instalacja bazy danych z wpisaniem danych przykładowych
VB.Net
podpięta "GTA64.dll", wersja pliku zgodna z wersją programu
Dim subiektContractor As InsERT.Kontrahent
Dim subAdresWysylki As InsERT.KhAdresDostawy
subiektContractor = Subiekt.KontrahenciManager.WczytajKontrahenta(symbol)
subAdresWysylki = subiektContractor.AdresyDostaw.Dodaj($"testowy")
subAdresWysylki.Nazwa = "testowy"
subAdresWysylki.Faks = "552481234"
subAdresWysylki.KodPocztowy = "82-300"
subAdresWysylki.Miejscowosc = "Elblag"
subAdresWysylki.Ulica = "tstUlica"
subAdresWysylki.NrDomu = "nrd"
subAdresWysylki.NrLokalu = "nrl"
subAdresWysylki.Telefon = "500123456"
subAdresWysylki.Wojewodztwo = 14
subAdresWysylki.Panstwo = 1
'subAdresWysylki.UstawJakoDomyslny = True
subiektContractor.Zapisz()
subiektContractor.Zamknij()
Niestety kod wykonywany jest bez błędów, jednak bez efektu. W danych kontrahenta adresów dostawy brak (Kontrahent > Adresy > Zarządzaj adresami dostaw)
W bazie też brak zmian, SELECT * FROM adr_Historia; Gdy dodamy adres ręcznie z poziomu UI nie ma problemu.
Czy ktoś potrafi mi powiedzieć co robię źle?
W dokumentacji niestety brak info na ten temat, w składowych obiektu Kontrahent brak nawet pola AdresyDostaw (nie mylić z polem AdresDostawy, który odpowiada za "ptaszka" aktywującego domyślny adres dostawy Kontrahenta)
Ustawianie "UstawJakoDomyslny" czy w kolejnej linii ponowna próba dodania adresu w taki sposób
subiektContractor.AdresyDostaw.Dodaj(subAdresWysylki.Id)
nic nie daje. Również brak efektu przy ustawianiu wyłącznie pól wymaganych przez graficzny UI.
Bez różnicy czy kontrahent posiadał wcześniej domyślny adres dostawy czy nie...(odnośnie
http://www.forumsubiekta.pl/subiekt/problem-z-zapisaniem-adresow-dostawy-dla-kontrahentow-(subiekt-i-sfera-subiekta)/)