Środki Trwałe - Polecenia > Inwentaryzacja > PobierzKolejnySrodekDoInwent - polecenie

Drukuj

PobierzKolejnySrodekDoInwent - polecenie stp

Polecenie wypełnia dwie struktury danymi z inwentaryzacji dla kolejnego środka lub części składowej. Przed rozpoczęciem pobierania danych należy utworzyć listę środków poleceniem InicjalizacjaInwentaryzacji. Pola obiektu srd są wypełniane danymi w następujący sposób:

IdKontaRoznicy

Identyfikator środka trwałego

Numer

Numer porządkowy środka

Nazwa

Nazwa środka lub części składowej

NumerEwid

Numer ewidencyjny środka lub części składowej

IdKontaUmPozaKosztami

Numer części składowej (0 - środek trwały)

IdUwag

Identyfikator uwag z inwentaryzacji

 

Dodatkowo (tylko dla środka) wypełniane są następujące pola:

UmorzWBRokuObrBil

Wartość bilansowa środka po inwentaryzacji wyliczona na podstawie znalezionych jego części składowych

UmorzWBRokuObrPod

Wartość podatkowa środka po inwentaryzacji wyliczona na podstawie znalezionych jego części składowych

WartoscPoczatkowaBil

Suma wartości bilansowych części składowych środka

WartoscPoczatkowaPod

Suma wartości podatkowych części składowych środka

 

Obiekt Inw jest wypełniany danymi inwentaryzacji w następujący sposób:

Wartosc1

Ilość sztuk oczekiwana

Wartosc2

Ilość sztuk znaleziona

Opis1

Treść nie zapisanych uwag z inwentaryzacji w przypadku, gdy raport jest wykonywany z okna inwentaryzacji

 

Składnia

Int PobierzKolejnySrodekDoInwent (InfoSrodek srd, InfoWynik  Inw)

 

Argumenty

Typ

Nazwa

Opis

InfoSrodek

srd

Obiekt zapełniany danymi środka.

InfoWynik

Inw

Obiekt wypełniany danymi inwentaryzacji dla środka lub części składowej.

 

Wartość zwracana

Jeden, gdy polecenie wykonane pomyślnie.

Zero, gdy brak kolejnego środka lub części składowej - koniec listy.

 

Przykład

String DtP="2008-12-30"
String DtK="2008-12-31"
InfoWydarzenie OpOper
InfoSrodek srd
InfoWynik wyn
Long IdOper
PierwszeWydarzenie (OpOper, DtP, DtK)
Do
KolejneWydarzenie (OpOper, DtP, DtK)
Loop While OpOper.TypWydarzenia != 26
IdOper=OpOper.IdWydarzenia
Long LSrd=InicjalizacjaInwentaryzacji (IdOper)
Print "Zinwentaryzowano: "; LSrd; " środków trwałych i części składowych", LF
PobierzKolejnySrodekDoInwent (srd, wyn)
Print "Pierwszy na liście jest "; srd.Nazwa ; LF