Forum Użytkownikow Subiekt GT
InsERT GT => Dodatki - zestawienia - sfera => Wątek zaczęty przez: TeeCee w Kwiecień 21, 2019, 22:11:51
-
Potrzebuję do Excela wczytać rozrachunki powiązane z pozycjami BO... ale coś robię źle
Dim oBO As InsERT.BilansOtwarcia
Dim oBOPozycja As InsERT.BOPozycja
Dim oBOPozycje As InsERT.BOPozycje
Dim oBODokFin As InsERT.FinDokumentyBO
Dim oBODokFinDokument As InsERT.FinDokument
PolaczZGt
Set oBO = ogGT.BilansOtwarcia
Set oBOPozycje = oBO.Pozycje
Set oBOPozycja = oBOPozycje.Wczytaj("202-00001")
Set oBODokFin = oBOPozycja.Rozrachunki(2)
MsgBox (oBODokFin.Liczba)
Powyższy msgbox zamiast wskazać 2 (bo tyle mam rozrachunków związanych z tą pozycją w Bo) wskazuje 0, zatem do kolekcji nie wczytało się nic...
Gdzie popełniam błąd?