2- Form1.getlist.method has following codes
Lpara ldFDATE   && Add a input parameter here
LOCAL lii,lcc
LOCAL ARRAY laPom(1)
lcc=""
*ldFDATE=THISform.text1.value && Needn't this line,removed.

SELECT GNO;
FROM WEIGHTS;
WHERE FDATE=ldFDATE ;
ORDER BY PCODE;
GROUP BY PCODE;
INTO ARRAY laPom
if _tally>0  &&  if no records selected,the array will not be created
FOR lii=1 TO ALEN(laPom,1)
lcc=lcc+laPom(lii)+","
NEXT
endif
RETURN IIF(LEN(lcc)=0,SPACE(150),LEFT(lcc,LEN(lcc)-1))