Dane środka pobierane są za pomocą "dziwnej" funkcji PobierzKolejnySrodekDoInwent, która pewnie nie uzupełnia poprawnie obiektu InfoSrodek.
Pobierz dane środka za pomocą Srodek(InfoSrodek, id_srodka)
Kod:
InfoSrodek DaneSrodkaInaczej
ZNAJDŹ:
Kod:
Column kolumny(12)
kolumny(1).Nazwa = "Lp."
kolumny(2).Nazwa = "Nr"
kolumny(3).Nazwa = "Nazwa środka"
kolumny(3).Format = TEKST | LEFT
kolumny(4).Nazwa = "Nr ewidencyjny"
kolumny(4).Format = TEKST | LEFT
kolumny(5).Nazwa = "Ilość sztuk"
kolumny(6).Nazwa = "Wartość"
kolumny(6).Format = WALUTA
kolumny(7).Nazwa = "Stwierdzono sztuk"
kolumny(8).Nazwa = "Wartość"
kolumny(8).Format = WALUTA
kolumny(9).Nazwa = "Różnica ilości"
kolumny(10).Nazwa = "Różnica wartości"
kolumny(10).Format = WALUTA
kolumny(11).Nazwa = "Miejsce\nużytkowania"
kolumny(11).Format = TEKST | LEFT
kolumny(12).Nazwa = "Uwagi"
kolumny(12).Format = TEKST | LEFT
ZMIEŃ NA:
Kod:
Column kolumny(13)
kolumny(1).Nazwa = "Lp."
kolumny(2).Nazwa = "Nr"
kolumny(3).Nazwa = "Nazwa środka"
kolumny(3).Format = TEKST | LEFT
kolumny(4).Nazwa = "Data przyjęcia"
kolumny(4).Format = TEKST | LEFT
kolumny(5).Nazwa = "Nr ewidencyjny"
kolumny(5).Format = TEKST | LEFT
kolumny(6).Nazwa = "Ilość sztuk"
kolumny(7).Nazwa = "Wartość"
kolumny(7).Format = WALUTA
kolumny(8).Nazwa = "Stwierdzono sztuk"
kolumny(9).Nazwa = "Wartość"
kolumny(9).Format = WALUTA
kolumny(10).Nazwa = "Różnica ilości"
kolumny(11).Nazwa = "Różnica wartości"
kolumny(11).Format = WALUTA
kolumny(12).Nazwa = "Miejsce\nużytkowania"
kolumny(12).Format = TEKST | LEFT
kolumny(13).Nazwa = "Uwagi"
kolumny(13).Format = TEKST | LEFT
ZNAJDŹ:
Kod:
while PobierzKolejnySrodekDoInwent(srodek1, inwentar) > 0
POD TYM WPISZ:
Kod:
srodek(DaneSrodkaInaczej, srodek1.dwNumer)
ZNAJDŹ:
Kod:
print #plik; using "\t%s", srodek1.stNazwa
POD TYM WPISZ:
Kod:
print #plik; using "\t%s", DaneSrodkaInaczej.stDataPrzyjeciaPod
