Webutil and excel

Question

Hi
A Developer in my enterprise is creating a form in order to carry a query into an excel page but she is getting some errors. The library webutil is good installed and attached to the form but in the execution are some errors and the page is not created.
Somebody can provide a code to carry out this with the library mentioned ?
Thanks
Joel Pérez
DBA Oracle

Answer 1

This is a sample about to slk format.
PROCEDURE to_excel_j_client IS
lb BOOLEAN;
out_file client_text_io.file_type;
ny NUMBER := 1;
nx NUMBER := 1;
v_company_name VARCHAR2(100);
n_q NUMBER := 0;
n_s NUMBER := 0;
v01 VARCHAR2(200) := 'ID;PWXL;N;E';
v02 VARCHAR2(200) := 'P;PGeneral';
v03 VARCHAR2(200) := 'P;P0';
v04 VARCHAR2(200) := 'P;P0.00';
v05 VARCHAR2(200) := 'P;P#,##0';
v06 VARCHAR2(200) := 'P;P#,##0.00';
v07 VARCHAR2(200) := 'P;P#,##0;;\-#,##0';
v08 VARCHAR2(200) := 'P;P#,##0;;[Red]\-#,##0';
v09 VARCHAR2(200) := 'P;P#,##0.00;;\-#,##0.00';
v10 VARCHAR2(200) := 'P;P#,##0.00;;[Red]\-#,##0.00';
v11 VARCHAR2(200) := 'P;P"\"#,##0;;"\"\-#,##0';
v12 VARCHAR2(200) := 'P;P"\"#,##0;;[Red]"\"\-#,##0';
v13 VARCHAR2(200) := 'P;P"\"#,##0.00;;"\"\-#,##0.00';
v14 VARCHAR2(200) := 'P;P"\"#,##0.00;;[Red]"\"\-#,##0.00';
v15 VARCHAR2(200) := 'P;P0%';
v16 VARCHAR2(200) := 'P;P0.00%';
v17 VARCHAR2(200) := 'P;P0.00E+00';
v18 VARCHAR2(200) := 'P;P##0.0E+0';
v19 VARCHAR2(200) := 'P;P#\ ?/?';
v20 VARCHAR2(200) := 'P;P#\ ??/??';
v21 VARCHAR2(200) := 'P;Pyyyy/m/d';
v22 VARCHAR2(200) := 'P;Pd\-mmm\-yy';
v23 VARCHAR2(200) := 'P;Pd\-mmm';
v24 VARCHAR2(200) := 'P;Pmmm\-yy';
v25 VARCHAR2(200) := 'P;Ph:mm\ AM/PM';
v26 VARCHAR2(200) := 'P;Ph:mm:ss\ AM/PM';
v27 VARCHAR2(200) := 'P;Ph:mm';
v28 VARCHAR2(200) := 'P;Ph:mm:ss';
v29 VARCHAR2(200) := 'P;Pyyyy/m/d\ h:mm';
v30 VARCHAR2(200) := 'P;Pmm:ss';
v31 VARCHAR2(200) := 'P;Pmm:ss.0';
v32 VARCHAR2(200) := 'P;P@';
v33 VARCHAR2(200) := 'P;P[h]:mm:ss';
v34 VARCHAR2(200) := 'P;P_ "\"* #,##0_ ;;_ "\"* \-#,##0_ ;;_ "\"* "-"_ ;;_ @_ ';
v35 VARCHAR2(200) := 'P;P_ * #,##0_ ;;_ * \-#,##0_ ;;_ * "-"_ ;;_ @_ ';
v36 VARCHAR2(200) := 'P;P_ "\"* #,##0.00_ ;;_ "\"* \-#,##0.00_ ;;_ "\"* "-"??_ ;;_ @_ ';
v37 VARCHAR2(200) := 'P;P_ * #,##0.00_ ;;_ * \-#,##0.00_ ;;_ * "-"??_ ;;_ @_ ';
v38 VARCHAR2(200) := 'P;P\$#,##0_);;\(\$#,##0\)';
v39 VARCHAR2(200) := 'P;P\$#,##0_);;[Red]\(\$#,##0\)';
v40 VARCHAR2(200) := 'P;P\$#,##0.00_);;\(\$#,##0.00\)';
v41 VARCHAR2(200) := 'P;P\$#,##0.00_);;[Red]\(\$#,##0.00\)';
v42 VARCHAR2(200) := 'P;Pm/d/yy';
v43 VARCHAR2(200) := 'P;Pyyyy"縉"m"靠"d"靠"';
v44 VARCHAR2(200) := 'P;Ph"靠"mm"靠"';
v45 VARCHAR2(200) := 'P;Ph"靠"mm"靠"ss"縝"';
v46 VARCHAR2(200) := 'P;Prr\.m\.d';
v47 VARCHAR2(200) := 'P;Prr"縉"m"靠"d"靠"';
v48 VARCHAR2(200) := 'P;Pyyyy"縉"m"靠"';
v49 VARCHAR2(200) := 'P;Pm"靠"d"靠"';
v50 VARCHAR2(200) := 'P;P"$"#,##0;;"$"\-#,##0';
v51 VARCHAR2(200) := 'P;P"$"#,##0;;[Red]"$"\-#,##0';
v52 VARCHAR2(200) := 'P;P"$"#,##0.00;;"$"\-#,##0.00';
v53 VARCHAR2(200) := 'P;P"$"#,##0.00;;[Red]"$"\-#,##0.00';
v54 VARCHAR2(200) := 'P;Pd/mmm/yy';
v55 VARCHAR2(200) := 'P;Pd/mmm';
v56 VARCHAR2(200) := 'P;Pmmm/yy';
v57 VARCHAR2(200) := 'P;P_ "$"* #,##0_ ;;_ "$"* \-#,##0_ ;;_ "$"* "-"_ ;;_ @_ ';
v58 VARCHAR2(200) := 'P;P_ "$"* #,##0.00_ ;;_ "$"* \-#,##0.00_ ;;_ "$"* "-"??_ ;;_ @_ ';
v59 VARCHAR2(200) := 'P;Ph"靠"mm"靠"';
v60 VARCHAR2(200) := 'P;Ph"靠"mm"靠"ss"縝"';
v61 VARCHAR2(200) := 'P;P#,##0_ ';
v62 VARCHAR2(200) := 'P;P#,##0.00_ ';
v63 VARCHAR2(200) := 'P;F縱靠;M260';
v64 VARCHAR2(200) := 'P;F縱靠;M960;L5';
v65 VARCHAR2(200) := 'P;F縱靠;M360';
v66 VARCHAR2(200) := 'P;F縱靠;M960';
v67 VARCHAR2(200) := 'P;E縧縭 縪縎縑縝縉;M220';
v68 VARCHAR2(200) := 'P;E縧縭 縪縎縑縝縉;M130';
v69 VARCHAR2(200) := 'F;P0;DG0G8;M300';
v70 VARCHAR2(200) := 'B;Y15;X6;D0 0 14 5';
v71 VARCHAR2(200) := 'O;L;D;v1;K47;G100 0.001';
v72 VARCHAR2(200) := 'F;W2 4 15';
v73 VARCHAR2(200) := 'F;W6 6 15';
v74 VARCHAR2(200) := 'F;P59;FI0G;C5';
v75 VARCHAR2(200) := 'F;P60;FF2G;C6';
v99 VARCHAR2(200) := 'E';
BEGIN
-- out file ( path and file name)
out_file := client_text_io.fopen('c:\t1.csv', 'W');
-- format data
client_text_io.put_line(out_file, v01);
client_text_io.put_line(out_file, v02);
client_text_io.put_line(out_file, v03);
client_text_io.put_line(out_file, v04);
client_text_io.put_line(out_file, v05);
client_text_io.put_line(out_file, v06);
client_text_io.put_line(out_file, v07);
client_text_io.put_line(out_file, v08);
client_text_io.put_line(out_file, v09);
client_text_io.put_line(out_file, v10);
client_text_io.put_line(out_file, v11);
client_text_io.put_line(out_file, v12);
client_text_io.put_line(out_file, v13);
client_text_io.put_line(out_file, v14);
client_text_io.put_line(out_file, v15);
client_text_io.put_line(out_file, v16);
client_text_io.put_line(out_file, v17);
client_text_io.put_line(out_file, v18);
client_text_io.put_line(out_file, v19);
client_text_io.put_line(out_file, v20);
client_text_io.put_line(out_file, v21);
client_text_io.put_line(out_file, v22);
client_text_io.put_line(out_file, v23);
client_text_io.put_line(out_file, v24);
client_text_io.put_line(out_file, v25);
client_text_io.put_line(out_file, v26);
client_text_io.put_line(out_file, v27);
client_text_io.put_line(out_file, v28);
client_text_io.put_line(out_file, v29);
client_text_io.put_line(out_file, v30);
client_text_io.put_line(out_file, v31);
client_text_io.put_line(out_file, v32);
client_text_io.put_line(out_file, v33);
client_text_io.put_line(out_file, v34);
client_text_io.put_line(out_file, v35);
client_text_io.put_line(out_file, v36);
client_text_io.put_line(out_file, v37);
client_text_io.put_line(out_file, v38);
client_text_io.put_line(out_file, v39);
client_text_io.put_line(out_file, v40);
client_text_io.put_line(out_file, v41);
client_text_io.put_line(out_file, v42);
client_text_io.put_line(out_file, v43);
client_text_io.put_line(out_file, v44);
client_text_io.put_line(out_file, v45);
client_text_io.put_line(out_file, v46);
client_text_io.put_line(out_file, v47);
client_text_io.put_line(out_file, v48);
client_text_io.put_line(out_file, v49);
client_text_io.put_line(out_file, v50);
client_text_io.put_line(out_file, v51);
client_text_io.put_line(out_file, v52);
client_text_io.put_line(out_file, v53);
client_text_io.put_line(out_file, v54);
client_text_io.put_line(out_file, v55);
client_text_io.put_line(out_file, v56);
client_text_io.put_line(out_file, v57);
client_text_io.put_line(out_file, v58);
client_text_io.put_line(out_file, v59);
client_text_io.put_line(out_file, v60);
client_text_io.put_line(out_file, v61);
client_text_io.put_line(out_file, v62);
client_text_io.put_line(out_file, v63);
client_text_io.put_line(out_file, v64);
client_text_io.put_line(out_file, v65);
client_text_io.put_line(out_file, v66);
client_text_io.put_line(out_file, v67);
client_text_io.put_line(out_file, v68);
client_text_io.put_line(out_file, v69);
client_text_io.put_line(out_file, v70);
client_text_io.put_line(out_file, v71);
client_text_io.put_line(out_file, v72);
client_text_io.put_line(out_file, v73);
client_text_io.put_line(out_file, v74);
client_text_io.put_line(out_file, v75);
-- head info
client_text_io.put_line(out_file,'C;Y1;X1;K"Corpname:' || '101 -- test company "');
client_text_io.put_line(out_file,'C;Y2;X1;K" Client report test"');
client_text_io.put_line(out_file,'C;Y3;X4;K"Date:' ||
to_char(SYSDATE, 'yyyy/mm/dd') || '--' ||
to_char(SYSDATE, 'yyyy/mm/dd') || '"');
-- line head
client_text_io.put_line(out_file, 'C;Y4;X1;K' || '"Cust Code"');
client_text_io.put_line(out_file, 'C;Y4;X2;K' || '"Cust Name"');
client_text_io.put_line(out_file, 'C;Y4;X3;K' || '"Pro Code"');
client_text_io.put_line(out_file, 'C;Y4;X4;K' || '"Pro Name"');
client_text_io.put_line(out_file, 'C;Y4;X5;K' || '"Quantity"');
client_text_io.put_line(out_file, 'C;Y4;X6;K' || '"Sum"');
-- from line 5 start
vy := 4;
-- data
FOR r IN 1 .. 10 LOOP
-- next line
vy := vy + 1;
-- sum, quantity SUMS
n_q := n_q + r;
n_s := n_s + r * 10;
client_text_io.put_line(out_file,
'C;Y' || vy || ';X1;K"' || to_char(r) || '"');
client_text_io.put_line(out_file,
'C;Y' || vy || ';X2;K"' || to_char(r) || '"');
client_text_io.put_line(out_file,
'C;Y' || vy || ';X3;K"' || to_char(r) || '"');
client_text_io.put_line(out_file,
'C;Y' || vy || ';X4;K"' || to_char(r) || '"');
client_text_io.put_line(out_file, 'C;Y' || vy || ';X5;K' || r);
client_text_io.put_line(out_file, 'C;Y' || vy || ';X6;K' || r * 10);
END LOOP;
-- print sum
IF vy > 4 THEN
vy := vy + 1;
client_text_io.put_line(out_file, 'C;Y' || vy || ';X5;K' || n_q);
client_text_io.put_line(out_file, 'C;Y' || vy || ';X6;K' || n_s);
END IF;
-- close and open file
client_text_io.put_line(out_file, v99);
client_text_io.fclose(out_file);
client_host.host('c:\excel.exe c:\t1.csv ');
END;