baseDK dk
dk.SetKey("id")
dk.open()
string snetto,sbrutto,path=katalogFirmy()+"sp.csv"
int wyn = open path for output
int i=SetTaggedPos(FS)
long id
while i
   id = GetLineId()
   dk.SetKeySeg("id",id)
   dk.GetRec(eq)
   buf = (using "%f",dk.GetField("netto"))
   arg ".",","
   replace arg
   snetto = buf
   buf = (using "%f",dk.GetField("netto")+dk.GetField("vat"))
   replace arg
   sbrutto = buf   
   print #wyn;dk.GetField("khkod"),dk.GetField("khnazwa"),snetto,sbrutto;lf
   i=SetTaggedPos(NX)
wend
message "Gotowe.\nPlik został zapisany w "+path:error ""