Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1795350
  • 博文数量: 334
  • 博客积分: 11301
  • 博客等级: 上将
  • 技术积分: 3452
  • 用 户 组: 普通用户
  • 注册时间: 2006-10-18 10:19
个人简介

路虽弥,不行不至;事虽少,不做不成。

文章分类

全部博文(334)

文章存档

2013年(4)

2012年(19)

2011年(27)

2010年(71)

2009年(45)

2008年(15)

2007年(84)

2006年(69)

分类: Oracle

2009-11-27 17:01:09

第一步:定义PL/SQL的过程或包;
 
create or replace procedure output_html_report(ERRBUF            OUT VARCHAR2,
                                               ERRCODE           OUT VARCHAR2,
                                               VDATE1            IN  VARCHAR2,
                                               VDATE2            IN  VARCHAR2 ) is                                           
begin
 
     fnd_file.put
      (fnd_file.output,
       ''
      );
   fnd_file.put
      (fnd_file.output,
       '
                            
                               '
      );
   FOR rec IN (SELECT rownum,h.segment1, h.type_lookup_code, h.currency_code,
                      h.authorization_status
                 FROM po.po_headers_all h
                WHERE h.org_id = 211
                  AND h.creation_date BETWEEN TO_DATE(trim(VDATE1), 'YYYY-MM-DD HH24:MI:SS' )
                                          AND TO_DATE(trim(VDATE2), 'YYYY-MM-DD HH24:MI:SS' ))
 
   LOOP
     IF MOD(rec.rownum,4)=0 THEN
      fnd_file.put (fnd_file.output,
                       '
            
            
            
            
            
'
                   );
     ELSE
      fnd_file.put (fnd_file.output,
                       '
            
            
            
            
            
'
                   ); 
     END IF;                                
   END LOOP;
   fnd_file.put (fnd_file.output, '
PO_Number PO_TYPE Currency_codePO_Status
'
                    || rec.segment1
                    || '
'
                    || rec.type_lookup_code
                    || '
'
                    || rec.currency_code
                    || '
'
                    || nvl(rec.authorization_status,' ')
                    || '
'
                    || rec.segment1
                    || '
'
                    || rec.type_lookup_code
                    || '
'
                    || rec.currency_code
                    || '
'
                    || nvl(rec.authorization_status,' ')
                    || '
');
   fnd_file.put (fnd_file.output, ' ');
end output_html_report;
 
第二步:定义并发请求;
 
 
第三步:执行并呈现结果;
 
 
阅读(3549) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~