MapValue MapaPodsumowan
MapaPodsumowan.Type(float)
Summary summPask
int nSklCount, id
InfoSkladnik skl
string sWartosc

nSklCount = summPask.GetComponentCount()

  for i = 1 to i > nSklCount
         id = summPask.GetComponent(i)
      DaneSkladnika(skl, #id)
      if summPask.GetFloatValue(1, i) || zerowe || skl.typ == "Element kadrowy" then
                   sWartosc = summPask.GetStringValue(1, i)
                   MapaPodsumowan.Set(skl.GetNazwaDoDruku(), val(sWartosc))    
           endif
    next i

MapValue MapaPodsumowan
MapaPodsumowan.Type(float)
Summary summPask
int nSklCount, id
InfoSkladnik skl
float fWartosc

nSklCount = summPask.GetComponentCount()

for i = 1 to i > nSklCount
   id = summPask.GetComponent(i)
   DaneSkladnika(skl, #id)
   if summPask.GetFloatValue(1, i) || zerowe || skl.typ == "Element kadrowy" then
      fWartosc = summPask.GetValue(1, i)
      if MapaPodsumowan.Index(skl.GetNazwaDoDruku()) then
         fWartosc = fWartosc + MapaPodsumowan.Get(skl.GetNazwaDoDruku())
         MapaPodsumowan.Set(skl.GetNazwaDoDruku(), fWartosc)
      else
         MapaPodsumowan.Set(skl.GetNazwaDoDruku(), fWartosc)
      endif
   endif
next i