1 create or replace procedure NAG_QUESTIONERSULT_EXP(

 2  V_QID in number,

 3  C_Title out sys_refcursor,

 4  C_Data out sys_refcursor

 5 )

 6 as

 7 /*

 8 导出调查问卷资答案数据

 9 Auth:lzpong 2015/09/01

10 */

11 cursor dusers is --列信息

12        select qss.qss_id,nvl(qss.qss_title,substr(qs.qs_title,0,20)) QSS_TITLE from nag_questions qs,nag_questionss qss

13          where qss.qss_qs_id=qs.qs_id and qs.qs_q_id=V_QID

14          order by qs.qs_order,qss.qss_order;

15 strSql varchar2(10000);

16 begin

17   for ur in dusers loop

18     strSql:=strSql||'wm_concat(decode(QR_QSS_ID,'''||ur.qss_id||''',QR_QSS_DES,null)) as "'||ur.qss_title||'",';

19   end loop;

20   open C_Data for

21   'select QR_ID,QR_AGENTID,max(QR_CREATEDATE) QR_CREATEDATE,'||

22   substr(strSql,0,length(strSql)-1)

23 ||'from (

24 select QR_QS_ID,QR_QSS_ID QR_QSS_ID,''(√)''||QR_QSS_DES QR_QSS_DES,  QR_CREATEDATE,QR_U_ID,QR_AGENTID,QR_ID

25   from nag_questionresult,nag_questions where qr_qs_id=qs_id and qs_q_id='||V_QID||'

26   order by QR_ID

27 )

28 group by QR_ID,QR_AGENTID';

29   open C_Title for

30   select q.q_id,q.q_title,q.q_des,qs.qs_id,qs.qs_title ,(select count(qss_id) from nag_questionss qss where qss.qss_qs_id=qs.qs_id) qs_cols

31     from nag_question q,nag_questions qs where q.q_id=qs.qs_q_id and q.q_id=V_QID

32     order by q.q_id,qs.qs_order;

33 end;