#include "Ustawienia grafiki"

string sub Wymiary( string sKod)
int iWym

   if !(xTowar=GetObjByKod("BTowar",sKod)) then XGetObjErr()
   for iWym = 1 to iWym > xTowar.WartosciWymiarow.Count()
      Wymiary += xTowar.WartosciWymiarow.Item(iWym).wymiar.definicja.nazwa+ ": " + xTowar.WartosciWymiarow.Item(iWym).wartosc + lf
   next iWym
endsub

int sub PiszPozycje(int i)
int nRes
float PrzelJmDod
   if xPoz.item(i).IloscWP then PrzelJmDod=xPoz.item(i).Ilosc/xPoz.item(i).IloscWP
   if !PrzelJmDod then PrzelJmDod=1
   tabela #tbl1, at x,#Y
      if !bDostawy then
         kolumna 1, (using "%d",xPoz.item(i).lp)
         ObliczWys(xPoz.item(i).Opis,KolTab1(2)-15)
         kolumna 2, sBroken
         if nKod==1 then
            select case nKodTyp
               case 1
                  kolumna 2, " " + xPoz.item(i).Kod
               case 2
                  nRes=xPoz.item(i).PodajKodObcy() : xErr(nRes)
                  if nRes then Message sStndError : error ""
                  kolumna 2, " " + xPoz.item(i).KodObcy
               case 3
                  kolumna 2, " " + KodPaskowy_pozycji(xPoz.item(i).Kod)
            endselect
         endif

         Kolumna 2, Wymiary(xPoz.item(i).Kod)