Koszty - polecenie

Polecenie umożliwia uzyskanie informacji o wybranym dla firmy sposobie prowadzenia rachunku kosztów w bieżącym roku.

 

Składnia

Int Koszty

 

Argumenty

Brak.

 

Wartość zwracana

Liczba określająca prowadzony rachunek kosztów:

0 - tylko konta zespołu 4

1 - konta zespołu 4 + konto 490

2 - tylko konta zespołu 5

3 - konta zespołów 4 i 5, rachunek wyników wg 4

4 - konta zespołów 4 i 5, rachunek wyników wg 5

 

Przykład

String opis = "W firmie prowadzony jest rachunek kosztów:"
String rks = "Nie wiadomo jaki"
Int rk = Koszty
Select Case rk
Case 0
rks = "tylko konta zespołu 4"
Case 1
rks = "konta zespołu 4 + konto 490"
Case 2
rks = "tylko konta zespołu 5"
Case 3
rks = "konta zespołów 4 i 5, rachunek wyników wg 4"
Case 4
rks = "konta zespołów 4 i 5, rachunek wyników wg 5"
Case Else
EndSelect
Form "Wynik działania polecenia Koszty", 400, 200
Button "O&K", 150, 120, 100, 24, -1
View "", opis, 40, 10, 250, 20
Edit "", rks, 40, 30, 250, 20
ExecForm
Error""