Środki Trwałe - Polecenia > Centra kosztów > KolejnaZmianaUdzialuSrodka - polecenie | | Drukuj |
Polecenie wypełnia obiekt wyn danymi kolejnej zmiany udziału środka w centrum w czasie operacji o identyfikatorze idOper.
Obiekt wyn jest wypełniany w następujący sposób:
Kwota1 |
Nowy udział w centrum |
Kwota2 |
Stary udział w centrum |
Wartosc1 |
Identyfikator operacji związanej |
Wartosc2 |
Identyfikator centrum |
Opis1 |
Nazwa centrum |
Składnia
Int KolejnaZmianaUdzialuSrodka (InfoWynik wyn, Long idOper)
Argumenty
Wartość zwracana
Jeden, gdy operacja przeprowadzona pomyślnie.
Zero, gdy operacja nieudana.
Przykład
Long IdSrd=1
InfoWydarzenie OpOper
InfoWynik wyn
Int Sub OpiszOperacje()
Select Case OpOper.TypWydarzenia
Case 17
PierwszaZmianaUdzialuSrodka (wyn, OpOper.IdWydarzenia)
While KolejnaZmianaUdzialuSrodka (wyn, OpOper.IdWydarzenia)
Print "Udział procentowy w centrum "; wyn.Opis1; " zmienił się z "; wyn.Kwota2; " na "; wyn.Kwota1; " w dniu "; OpOper.DataWydarzenia; LF
Wend
Case Else
EndSelect
EndSub
If PierwszeWydarzenieSrodka(OpOper, idSrd, KoniecRoku()) Then
OpiszOperacje()
EndIf
While KolejneWydarzenieSrodka(OpOper, idSrd, KoniecRoku())
OpiszOperacje()
Wend