select count(*) into wcanreg from STKARREG where
STKARREG.siscod = wsisstk and
STKARREG.fecfin >= today and
STKARREG.regvig = yes.
select * into table WAUXU from STKARREG where
STKARREG.siscod = wsisstk and
STKARREG.fecfin >= today and
STKARREG.regvig = yes.