Autor Wątek: Sfera - wczytanie rozrachunków z BO  (Przeczytany 1565 razy)

0 użytkowników i 1 Gość przegląda ten wątek.

Offline TeeCee

  • Nowy użytkownik
  • *
  • Wiadomości: 31
  • Reputacja +0/-0
  • Wersja programu: 1.40
Sfera - wczytanie rozrachunków z BO
« dnia: 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?


« Ostatnia zmiana: Kwiecień 21, 2019, 22:14:05 wysłana przez TeeCee »

Forum Użytkownikow Subiekt GT

Sfera - wczytanie rozrachunków z BO
« dnia: Kwiecień 21, 2019, 22:11:51 »