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