InfoKonta – Przykłady

Jak używać ?

Obiekt należy zainicjować odpowiednimi danymi wywołując metody: Pierwsze, Kolejne lub w metodach Obroty, Persaldo należy podać numer konta w postaci tekstowej.

 

Przeglądanie planu kont:

 

 Sub test()

         Dim ik As mxFK.InfoKonta

         Set ik = Application.WybranaFirma.WybranyRok.GetInfoKonta

 

         Dim nr As String

 

         ' pierwsze konto w planie kont

         nr = ik.Pierwsze( _

                 amInfoKontaTylkoIstnWszystkie, _

                 amInfoKontaSyntAnalAnalityka, _

                 amInfoKontaTypKontWszystkie)

 

         While Len(nr) > 0

                 ' wyswietlamy znalezione konto

                 Call MsgBox(nr)

 

                 ' kolejne konto w planie kont

                 nr = ik.Kolejne()

         Wend

 End Sub

 

 

Przeglądanie obrotów wybranego konta:

 

 Sub test()

         Dim ik As mxFK.InfoKonta

         Set ik = Application.WybranaFirma.WybranyRok.GetInfoKonta

 

         ' obroty dla konta 100

         Call ik.Obroty("100")

 

         Dim ip As mxFK.InfoPoz

 

         ' wyswietlamy bilans otwarcia konta 100 dla strony Ma

         Set ip = ik.Ma

         Call MsgBox(ip.Bo)

 

         ' wyswietlamy bilans otwarcia konta 100 dla strony Wn

         Set ip = ik.Wn

         Call MsgBox(ip.Bo)

 End Sub

 

 

Obroty kont syntetycznych wraz z obsługą błędów:

 

 Sub test()

         On Error GoTo blad

 

         Dim ik As mxFK.InfoKonta

         Set ik = Application.WybranaFirma.WybranyRok.GetInfoKonta

 

         ' uwzgledniamy bufor

         ik.ZBuforem = True

 

         Dim nr As String

 

         ' pierwsze konto w planie kont

         nr = ik.Pierwsze( _

                 amInfoKontaTylkoIstnWszystkie, _

                 amInfoKontaSyntAnalSyntetyka, _

                 amInfoKontaTypKontWszystkie)

 

         While Len(nr) > 0

                 ' obliczamy obroty

                 Call ik.Obroty()

 

                 ' pobieramy obiekt InfoPoz

                 Dim ipma As mxFK.InfoPoz

                 Set ipma = ik.ma

 

                 ' wyswietlamy obroty miesiaca 0 strony Ma

                 Call MsgBox("Konto:" + nr + " Obroty:" + Str(ipma.mc(0)))

 

                 ' kolejne konto w planie kont

                 nr = ik.Kolejne()

         Wend

 

         Exit Sub

 blad:

         Call MsgBox(Err.Description)

 End Sub