Środki Trwałe - Polecenia > Operacje > ParametryPrzyczynyLikwidacji - polecenie

Drukuj

ParametryPrzyczynyLikwidacji - polecenie stp

Polecenie umożliwia wypełnienie obiektu OpPLik informacją o przyczynie likwidacji środka trwałego. Obiekt jest wypełniany danymi w następujący sposób:

Wartosc1

Identyfikator przyczyny likwidacji

Opis1

Nazwa przyczyny likwidacji

Opis1

Dodatkowy opis przyczyny likwidacji

 

Składnia

Int ParametryPrzyczynyLikwidacji (InfoWynik  OpPLik, Long  IdPLik )

 

Argumenty

Typ

Nazwa

Opis

InfoWynik

OpPLik

Obiekt wypełniany danymi opisu przyczyny likwidacji.

Long

IdPLik

Identyfikator przyczyny likwidacji:

0 - brak przyczyny likwidacji

1 - przeniesienie środka

2 i następne - kolejne przyczyny likwidacji środka zdefiniowane przez użytkownika

 

Wartość zwracana

Jeden, gdy operacja przeprowadzona pomyślnie.

Zero, gdy wystąpił błąd.

 

Przykład

String DtP=PoczatekRoku()
String DtK=KoniecRoku()
InfoWydarzenie OpOper
PierwszeWydarzenie (OpOper, DtP, DtK)
Do
KolejneWydarzenie (OpOper, DtP, DtK)
Loop While OpOper.TypWydarzenia != 5
InfoWynik OpPLik
ParametryPrzyczynyLikwidacji (OpPLik, OpOper.Liczba1)
String NazwaSrodka=OpOper.NazwaSrodka
Print "Przyczyną likwidacji środka "; NazwaSrodka; " jest "; OpPLik.Opis1