FUNCTION SP_XK_JCPXJG0_ND(VSQDH00 char) RETURN VARCHAR2 IS --XM RQ BZ --YANGH 20081202 新增 --YANGH 20090309 修改格式。 V_PXJG00 VARCHAR2(3000) ; V_JCPXFF BM_TYZD00.MC0000%TYPE; V_PXFF00 BM_TYZD00.MC0000%TYPE; V_PXFF01 BM_TYZD00.MC0000%TYPE; V_PXFF02 BM_TYZD00.MC0000%TYPE; V_JCPXBG XK_JCPXBG%ROWTYPE; CURSOR C_JCPXBG IS --定义游标 SELECT * FROM XK_JCPXBG WHERE SQDH00=VSQDH00 ; -- MODIFICATION HISTORY -- Person Date Comments -- YANGH 2009.04.16 修改变量V_PXJG00 1000-->3000 -- --------- ---------- ------------------------------------------- begin V_PXJG00 := ''; OPEN C_JCPXBG; FETCH C_JCPXBG INTO V_JCPXBG; WHILE C_JCPXBG%FOUND LOOP BEGIN BEGIN SELECT PXFFMC INTO V_PXFF00 FROM VW_XK_PXFFBM where PXFFID=V_JCPXBG.FFID00; EXCEPTION WHEN OTHERS THEN V_PXFF00:=''; END; BEGIN SELECT PXFFMC INTO V_PXFF01 FROM VW_XK_PXFFBM where PXFFID=V_JCPXBG.FFID01; EXCEPTION WHEN OTHERS THEN V_PXFF01:=''; END; BEGIN SELECT PXFFMC INTO V_PXFF02 FROM VW_XK_PXFFBM where PXFFID=V_JCPXBG.FFID02; EXCEPTION WHEN OTHERS THEN V_PXFF02:=''; END; V_PXJG00:= V_PXJG00||' '|| --'No:'||V_JCPXBG.XDBH00|| ' __________________方法1:'||RPAD(V_PXFF00,14,' ')||CHR(13)||CHR(13)||--RPAD('主管:'||V_JCPXBG.ZCJG00,20,' ')|| --RPAD('次管:'||V_JCPXBG.CCJG00,20,' ')||CHR(13)|| rpad(' ',length('No:'||V_JCPXBG.XDBH00||' '),' ')|| '__________________方法2:'||RPAD(V_PXFF01,14,' ')||CHR(13)||CHR(13)||--||RPAD('主管:'||V_JCPXBG.ZCJG01,20,' ')|| --RPAD('次管:'||V_JCPXBG.CCJG01,20,' ')||CHR(13); rpad(' ',length('No:'||V_JCPXBG.XDBH00||' '),' ')|| '__________________方法3:'||RPAD(V_PXFF02,14,' ')||CHR(13);--||RPAD('主管:'||V_JCPXBG.ZCJG02,20,' ')|| --RPAD('次管:'||V_JCPXBG.CCJG02,20,' ')||CHR(13); FETCH C_JCPXBG INTO V_JCPXBG; END; END LOOP; CLOSE C_JCPXBG; RETURN V_PXJG00; end;