OdsetkiInfo – Przykłady

Jak używać ?

Obiekt należy zainicjować odpowiednimi danymi – ustawiamy properties: IDTrans, następnie wywołujemy metodę Oblicz() i odczytujemy wyniki obliczeń z właściwości obiektu.

 

Obliczanie odsetek

Obliczamy odsetki dla transakcji o identyfikatorze 125:

 

Dim odsetki As OdsetkiInfo

Set odsetki = WybranaFirma.WybranyRok.GetOdsetkiInfo

odsetki.IDTrans = 125

odsetki.Oblicz

 

Odczytywanie wyników obliczeń:

Tuż po zawołaniu metody Oblicz() odczytujemy:

 

Dim odsetkiPoz As OdsetkiInfoPoz ' pomocnicza zmienna do odczytania listy splat

 

MsgBox "Data początku naliczania odsetek: " & odsetki.DataPocz & " Data końca naliczania odsetek: " & odsetki.DataKonc & " Kwota w złotych: " & odsetki.Zl & " Kwota w walucie: " & odsetki.Wal

 

' tutaj odczytamy liste splat:

Set odsetkiPos = odsetki.Pierwsza

While Not (odsetkiPos Is Nothing)

' w obiekcie odsetkiPos mamy dane kolejnych rozliczen z listy splat:

MsgBox "Rozliczenie: " & odsetkiPos.IDRozlicz & Chr(10) & _

"Do zapłaty: " & odsetkiPos.Zl & " PLN" & Chr(10) & _

"Płatnośc spóźniona " & odsetkiPos.DniZwloki & " dni."

 

' odczytujemy kolejną pozycję z listy spłat:

Set odsetkiPos = odsetki.Kolejna

Wend