long idGrupy = Val(Arg0)
long typ = Val(Arg1)

if val(Arg0) ==0 && Val(Arg1)==0  then
   message "Raport może zostać wykonany TYLKO z okna Pracownicy"
   error ""
endif

if setGroup (idGrupy, typ, TR_PRACOWNICY) == 0 then
   message "Ustawienie grupy pracowników niepowiodo się"
   error ""
endif

Infofirma firm
InfoPrac prac
Perioditem okr
Summary summ

//testowo - okresy
okr.init("2016-01-01")
//message using "%l", okr.id//GetNameMonthYear()
summ.AddComponent( 6022, SCF_SUMM_VALUE)
summ.PrepareSummary(0,SCF_SUMM_VALUE)
//message using "%i",summ.GetComponentCount()
//summ.AddPeriod (okr.id)
long idprac = GetFirst()

ProgDlg dlg
dlg.Show()
dlg.SetMax( ElemCount() )

while idprac != 0
Pracownik (prac,idprac)
summ.DoSummary (idprac, 6022)
message prac.nazwisko

dlg.Update()
idprac = GetNext()
wend