Środki Trwałe - Polecenia > Centra kosztów > KolejnaZmianaUdzialuSrodka - polecenie

Drukuj

KolejnaZmianaUdzialuSrodka - polecenie stp

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

Typ

Nazwa

Opis

InfoWynik

wyn

Obiekt wypełniany danymi operacji

Long

idOper

Identyfikator operacji.

 

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