DECLARE
  DEPCNT NUMBER;
  CURSOR C1 IS SELECT DESIGN_NO, COUNTER, STONE_CODE,  USED_CARAT, USED_DIAMOND,SIZE_OF
  FROM DIAMOND_RETURN_DETAIL
  WHERE DESIGN_NO=:COST_SHEET.DESIGN_NO and  COUNTER=:COST_SHEET.COUNTER;
BEGIN
  SELECT COUNT(*) 
  INTO DEPCNT FROM DIAMOND_RETURN_DETAIL WHERE DESIGN_NO=:COST_SHEET.DESIGN_NO and COUNTER=:COST_SHEET.COUNTER;
  IF DEPCNT > 0 then
    OPEN C1;
    FIRST_RECORD;
    LOOP
	FETCH C1 into :COST_SHEET.DESIGN_NO,
	:COST_SHEET.COUNTER,
	:COST_SHEET_DETAIL.STONE_CODE,
	:COST_SHEET_DETAIL.USED_CARAT,
	:COST_SHEET_DETAIL.USED_DIAMOND,
	:COST_SHEET_DETAIL.SIZE_OF;
	NEXT_RECORD;
	GO_BLOCK('COST_SHEET_DETAIL');
	GO_ITEM('COST_SHEET_DETAIL.USED_CARAT');
	EXIT WHEN C1%NOTFOUND;
    END LOOP;
    CLOSE C1;		
  END IF;
END;