Środki Trwałe - Polecenia > Operacje > ParametryPrzyczynyLikwidacji - polecenie | | Drukuj |
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 |
OpPLik |
Obiekt wypełniany danymi opisu przyczyny likwidacji. |
|
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