Select S.ID, ZPL_CALCSUMM(S.ID)
  from (Select DISTINCT a.ID 
          from ZPL_VAGENT a, 
               ZPL_C_VMINUS c
         where a.ID= c.ID 
           and a.ID not in (Select C.CRE_ID 
                              from CREDITORS C, 
                                   CREDITORS_HIST CH
                             where C.ID = CH.ID 
                               and P_OPERDAY between CH.FROMDATE and CH.TODATE 
                               and C.CODE = GetParamByName('AXD_CRE_SALARY'))
                               ) S;