LOCATE FOR gcIncident = shocks.inc_id WITH THISFORM.lstSHKDisp_list .AddListItem(STR(shocks.grp_id),.NewItemID+1) ENDWITH
LOCATE FOR gcIncident = shocks.inc_id WITH THISFORM.lstSHKDisp_list .AddItem(STR(shocks.grp_id),.ListCount+1) ENDWITH