NoDate=1
typWydruku = Val( Arg0 )

   MapValue mvSt
   mvSt.Type( string )

   baseXT xt
   int xtErr

   xt.SetKey("super")
   xt.SetKeySeg("super",10000)
   xt.SetKeySeg("kod","")
   
   xtErr = xt.GetRec( GE )
   while xtErr == 0
      if xt.GetField("super") != 10000 then exit
      mvSt.Set( (using "%d",xt.GetField("subtypi")),xt.GetField("kod") )

      xtErr = xt.GetRec( NX )
   wend

kolumny = 13- !bDostawy- !bData- !bWartBiez- !bWartSpis- !bRoznIlos- !bRoznWart- !bStanBiez- !bStanSpis-!bKodP -!PrawoDoCen

kolumny = 13- !bDostawy- !bData- !bWartBiez- !bWartSpis- !bRoznIlos- !bRoznWart- !bStanBiez- !bStanSpis-!bKodP -!PrawoDoCen + 2

if bRoznWart then KolTab(i)=nKwotaWt : i+=1

KolTab(i)=200 : i+=1//cenaD
KolTab(i)=200 : i+=1//stawka

if bRoznWart then asKolNames(i)="Różnica wartości" : i+=1

asKolNames(i)="Cena D" : i+=1//cenaD
asKolNames(i)="Stawka VAT" : i+=1//stawka

if bRoznWart then StlTab(i)=kr : StlTabB(i)=br : i+=1

StlTab(i)=kr : StlTabB(i)=br : i+=1 // cena D
StlTab(i)=kr : StlTabB(i)=br : i+=1 // stawka

   if bWartSpis && bPuste then kolumna i, Kwota(fStanSpis*fCena) : i+=1
   if bRoznIlos && bPuste then nKolIlosc = i : i+=1

   kolumna i, Kwota(GetField(tw,"cenaD")):i+=1 // cena D
   kolumna i, mvSt.Get( (using "%d",GetField(tw,"vatspi")),"-" ):i+=1 // stawka

   if bWartBiez then i+=bRoznIlos
endif
   f bRoznWart then kolumna i, Kwota( fSumaRozn )
endif

   kolumna i, Kwota( 0 ) : i+=1 // cenaD
   kolumna i, Kwota( 0 ) : i+=1 // stawka