Środki Trwałe - Polecenia > Inwentaryzacja > PobierzKolejnySrodekDoInwent - polecenie | | Drukuj |
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 |
srd |
Obiekt zapełniany danymi środka. |
|
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