Środki Trwałe - Polecenia > Środek trwały > PierwszyKosztEksploatacjiDlaSrodka - polecenie

| Drukuj

PierwszyKosztEksploatacjiDlaSrodka - polecenie stp

Polecenie umożliwia wypełnienie obiektu InKoEks danymi operacji pierwszego przypisania kosztów eksploatacji we wskazanym okresie oraz obiektu KoEks danymi o sumie kosztów eksploatacji środka trwałego przypisanych we wskazanym okresie czasu. Obiekt jest wypełniany danymi w następujący sposób:

Kwota1

Suma kosztów eksploatacji bilansowych

Kwota2

Suma kosztów eksploatacji podatkowych

 

Składnia

Int PierwszyKosztEksploatacjiDlaSrodka (InfoKosztEkspl  InKoEks, InfoWynik  KoEks, Long  IdSrd, String  dtP, String  dtK [, Int  ulepsz [,Int  aktyw]] )

 

Argumenty

Typ

Nazwa

Opis

InfoKosztEkspl

InKoEks

Obiekt wypełniany danymi o pierwszej operacji przypisania kosztów.

InfoWynik

KoEks

Obiekt wypełniany danymi o sumie kosztów.

Long

IdSrd

Identyfikator środka trwałego.

String

dtP

Data początku okresu w formacie RRRR-MM-DD.

String

dtK

Data końca okresu w formacie RRRR-MM-DD.

Int

ulepsz

Przełącznik określający wybór tylko tych kosztów eksploatacji, które zostały oznaczone jako ulepszenia:

1 - wybiera tylko ulepszone

0 - bez ograniczenia wyboru (domyślne ustawienie).

Int

aktyw

Przełącznik określający wybór tylko tych kosztów eksploatacji, które nie zostały przeniesione na podwyższenie wartości środka (aktywne):

1 - wybiera tylko aktywne koszty

0 - bez ograniczenia wyboru (domyślne ustawienie).

 

Wartość zwracana

Jeden, gdy operacja przeprowadzona pomyślnie.

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

 

Przykład

Long IdSrd=1
InfoKosztEkspl InKoszEks
InfoKosztEkspl InKoszEks1
InfoWynik KoEks
PierwszyKosztEksploatacjiDlaSrodka(InKoszEks, KoEks, IdSrd, PoczatekRoku(), KoniecRoku(), 0, 0)
Print "Koszt eksploatacji bilansowy w okresie od "; PoczatekRoku(); " do "; KoniecRoku(); " wynosi: "; KoEks.Kwota1, LF
Print "Koszt eksploatacji podatkowy w okresie od "; PoczatekRoku(); " do "; KoniecRoku(); " wynosi: "; KoEks.Kwota2, LF
Print "Pierwszy koszt eksploatacji bilansowy wynosi: "; InKoszEks.KwotaBil, LF
Print "Pierwszy koszt eksploatacji podatkowy wynosi: "; InKoszEks.KwotaPod, LF
KolejnyKosztEksploatacjiDlaSrodka(InKoszEks1, KoEks, IdSrd, PoczatekRoku(), KoniecRoku(), 0, 0)
Print "Drugi koszt eksploatacji bilansowy wynosi: "; InKoszEks1.KwotaBil, LF
Print "Drugi koszt eksploatacji podatkowy wynosi: "; InKoszEks1.KwotaPod, LF