OraFAQ Forum: Reports & Discoverer » Problem While Creating Excel (because of CHR(44))

Home » Developer & Programmer » Reports & Discoverer » Problem While Creating Excel (because of CHR(44))

Show: Today's Messages :: Polls :: Message Navigator
E-mail to friend

Problem While Creating Excel (because of CHR(44)) [message #478079]

Wed, 06 October 2010 01:59

swapnil_naik
Messages: 269
Registered: December 2009
Location: Mumbai

Senior Member

[Topics merged by LF, as it appears that both discuss the same problem.]

Hello I creating a report in excel format...
But there is one problem which i shown in colour when excel created.... i dont know why this problem come..
Here i m attched my .fmb file and excel sheet [When i run my form].....

please let me know why this problem comes????

My Code is :
When Excel Button pressed

PROCEDURE EXCEL_P IS

cursor c1 is
select distinct BPT_DOC_DT BNP_REF_DT, BPT_DOC_NO BNP_REF_NO,
BPT_VEN_NM Vendor_Name,
BPT_BIL_NO Bill_No, BPT_BIL_DT Bill_Date ,
BPT_CNTRCT_CD CONTRACT_NO,
BPT_NET_VOU Total_Amount,
DECODE(BPT_BAS_RT, NULL, BPT_BIL_RT, BPT_BAS_RT) Basic_Amt,
BPT_SAL_RT VAT_AMOUNT,
BPT_SAL_CLU VAT_Rate ,
B.VMT_VAT_NO vendor_tin_no,
(B.VMT_VNDR_ADDR1 ||','|| B.VMT_VNDR_ADDR2||','||VMT_VNDR_ADDR3 ||','|| B.VMT_VNDR_ADDR4 ||','|| B.VMT_VNDR_ADDR5)
Vendor_address
FROM BILL_HDR1_TAB , VNDR_MST1_TAB B
WHERE BPT_LOC = :BLK_ENTER.LOC
AND BPT_VEN_CD = B.VMT_VNDR_CD
AND TO_DATE(BPT_DOC_DT, 'DD-MON-RRRR') > TO_DATE('01-apr-'||:BLK_ENTER.FYYEAR,'DD-MON-RRRR')
AND TO_DATE(BPT_BIL_DT, 'DD-MON-RRRR') <= TO_DATE('31-MAR-'||:BLK_ENTER.FYYEAR,'DD-MON-RRRR')
order by BPT_doc_DT ;

FILE_PTR CLIENT_TEXT_IO.FILE_TYPE;-------capture only text data
tot number := 0;

begin

FILE_PTR:= CLIENT_TEXT_IO.FOPEN(:FILENAME,'w');---w window , chr(44)-Delimeter comma separated
CLIENT_TEXT_IO.NEW_LINE(FILE_PTR);------space

client_text_io.put_line(file_ptr,'Location: '||:BLK_ENTER.LOC);
client_text_io.new_line(file_ptr);
client_text_io.put_line(file_ptr,'Financial Year is '||:BLK_ENTER.FYYEAR);
client_text_io.new_line(file_ptr);
client_text_io.put_line(file_ptr,'BNP REF DATE'||CHR(44)||'BNP REF NO.'||CHR(44)||'VENDOR NAME'||CHR(44)||'BILL NO'||CHR(44)||'BILL DATE'||CHR(44)||'CONTRACT NO'||CHR(44)||'TOT AMOUNT'||CHR(44)||'BASIC AMT'||CHR(44)||'VAT AMT'||CHR(44)||'VAT RATE'||CHR(44)||'VENDOR TIN NO'||CHR(44)||'VENDOR ADDRESS');
client_text_io.new_line(file_ptr);

-- message('4');
FOR I IN c1
LOOP
EXIT WHEN c1%NOTFOUND;
-- synchronize;
CLIENT_TEXT_IO.PUT_LINE(FILE_PTR,I.BNP_REF_DT||chr(44)||I.BNP_REF_NO||chr(44)||I.Vendor_Name||chr(44)||I.Bill_No||chr(44)||I.Bill_Dat e||CHR(44)||I.CONTRACT_NO||CHR(44)||I.Total_Amount||CHR(44)||I.Basic_Amt||CHR(44)||I.VAT_AMOUNT||CHR(44)||I.VAT_Rate||CHR(44)||I.vend or_tin_no||CHR(44)||REPLACE(I.Vendor_address,',',' '));
tot := tot + 1 ;
synchronize;
END LOOP ;
client_text_io.new_line(file_ptr);
client_text_io.put_line(file_ptr,' '||chr(44)||'Total No. of Bill Booked ' || chr(44)||tot);
IF c1%ISOPEN THEN
CLOSE c1;
END IF;
synchronize;
CLIENT_TEXT_IO.FCLOSE(FILE_PTR);
message(' The File'||:FILENAME||'has been generated successfully');

END;

Attachment: swapnil2.csv
(Size: 14.74KB, Downloaded 1808 times)

[Updated on: Fri, 08 October 2010 03:11] by Moderator