Forum Użytkownikow Subiekt GT

InsERT GT => Dodatki - zestawienia - sfera => Wątek zaczęty przez: sylwek111 w Luty 23, 2022, 09:41:12

Tytuł: dodawanie kontrahenta do dokumentu za pomocą SFREY
Wiadomość wysłana przez: sylwek111 w Luty 23, 2022, 09:41:12

Mam taki kod

Cytuj

Sub FS_DodanieZK()
    Dim oSubGT As Insert.Subiekt
    Dim oSubDok As Insert.SuDokument
    Dim oSubPoz As Insert.SuPozycja
    Dim oKh As Insert.Kontrahent
    Dim oKhm As Insert.KontrahenciManager
 
    'Uruchomienie Subiekta GT
    Set oSubGT = UruchomSubiekta()
                                       
    'Ukrycie okna Subiekta GT
    oSubGT.Okno.Widoczne = False
                                 
    'Dodanie dokumentu typu ZK
    Set oSubDok = oSubGT.Dokumenty.Dodaj(gtaSubiektDokumentZK)
   
    Set oKhm = oSubGT.KontrahenciManager
    oKhm.OtworzKolekcje
   
'dlaczego to nie działa
Set oKh=oKhm.WczytajKontrahentaWg(1, 4)
   
   
    Debug.Print (oKh.ObiektNazwa)
    'Debug.Print (oKh.IstniejeWg(1, gtaKontrahentWgIdentyfikatora))
    Debug.Print (oKh.ObiektXml)
   
   
    Set oSubPoz = oSubDok.Pozycje.Dodaj(25)
    oSubPoz.IloscJm = 13
    Set oSubPoz = oSubDok.Pozycje.Dodaj(35)
    oSubPoz.IloscJm = 10
    Set oSubPoz = oSubDok.Pozycje.Dodaj(100)
    oSubPoz.IloscJm = 5
    'oSubPoz.WartoscBruttoPoRabacie = 1000
   
       
    'Wyświetlenie okna dokumentu
    oSubDok.Wyswietl
    oSubDok.Zapisz
    'oSubDok.Zamknij
 
End Sub

Chcę dodać kontrahenta do dokumentu a tu lipa jakiś błąd , jak to poprawnie zrobić ?

Tytuł: Odp: dodawanie kontrahenta do dokumentu za pomocą SFREY
Wiadomość wysłana przez: dkozlowski w Luty 24, 2022, 10:00:51

Może zacznij o przeczytania komunikatu błędu ? Dlaczego najpierw wczytujesz kontrahenta, a dopiero później sprawdzasz czy istnieje ?