SELECT 	SRBPRG.PGPRDC,
        SRBPRG.PGDESC,
	SRBSRO.SRSTHQ AS Existencia,
       	SRBSRO.SRPRDC as Referencia,
	SRBSRO.SRBIN1 as Localizacion,
       	SRBPRG.PGAPCO as Costo
FROM SRBSRO ,SRBPRG
WHERE SRBSRO.SRPRDC=SRBPRG.PGPRDC and
	SRBSRO.SRSROM='<$0$>' and SRBSRO.SRSTHQ>0