Cześć, mam problem z dodaniem klienta jednorazowego podczas dodawania FS poprzez Sferę.
Podczas dodawania dokumentu próbuję użyć metody DodajKontrahentaJenorazowego(), niestety w dokumentacji nie opisano, co zrobić po ukończeniu podawania danych. W przypadku dodawania standardowego kontrahenta robimy "Zapisz" i kontrahent pojawia się w bazie danych. Tu ta metoda nie jest dostępna.
Set oKontrahentJedn = oSubGt.KontrahenciManager.DodajKontrahentaJednorazowego()
oKontrahentJedn.Email = email
oKontrahentJedn.KodPocztowy = invoice_postcode
oKontrahentJedn.Miejscowosc = invoice_city
oKontrahentJedn.Nazwa = invoice_fullname
oKontrahentJedn.NazwaPelna = invoice_fullname
IdPanstwo = -1
IdPanstwo = fnIdPanstwo(IdKrajFaktura)
If IdPanstwo <> -1 Then
oKontrahentJedn.Panstwo = CInt(IdPanstwo)
End If
oKontrahentJedn.Ulica = invoice_address
If oKontrahentJedn.Telefony.Liczba = 0 Then
oKontrahentJedn.telefony.Dodaj(Left(CStr(phone),35))
Logi "Brak telefonu/dodajemy nowy: " & phone
Else
a = False
id = 0
For i=1 To oKontrahentJedn.telefony.liczba
Set tel = okontrahentJedn.telefony.element(i)
Logi "Znaleziony telefon w kolekcji kontrhaenta = " & tel.numer
If tel.numer = phone Then
a = True
id = i
End If
Next
If a = False Then
Logi "Nie znaleziono numer/dodajemy kolejny Do kolekcji"
oKontrahentJedn.telefony.Dodaj(Left(CStr(phone),35))
End If
Set tel = Nothing
End If
oKontrahentJedn.PowielNIPBezUI = True
'oKontrahentJedn.Zapisz
Symulując proces w interfejsie Subiekta, kontrahent zapisuje się do tabeli kontrahentów ale jego symbolem są "gwiazdki".
Może ktoś miał podobny problem i może podsunąć pomysł jak sobie z tym poradzić.