Form中调用请求



--添加模板文件

l_return boolean;

l_return := fnd_request.add_layout(template_appl_name => 'SFY',                            

                                   template_code      => p_template,

                                   template_language  => 'ZHS',

                                   template_territory => 'CN',

                                   output_format      => 'EXCEL');

if l_return then

l_request_id := fnd_request.submit_request

(

application => 'SFY',                                                                                        program     => 'SFYOEXSETRAREP' ,

description => NULL ,

start_time  => SYSDATE ,

sub_request => FALSE ,

argument1   => CHR (0),

argument2   => chr (0),

argument3   => chr (0),

argument4   => chr (0),

argument5   => chr (0),

argument6   => chr (0),

argument7   => chr (0),

argument8   => chr (0),

argument9   => chr (0),

argument10  => chr (0),

argument11  => chr (0),

argument12  => chr (0),

argument13  => chr (0),

argument14  => chr (0),

argument15  => chr (0),

argument16  => chr (0),

argument17  => chr (0),

argument18  => chr (0),

argument19  => chr (0),

argument20  => chr (0),

argument21  => chr (0),

argument22  => chr (0),

argument23  => chr (0),

argument24  => chr (0),

argument25  => chr (0),

argument26  => chr (0),

argument27  => chr (0),

argument28  => chr (0),

argument29  => chr (0),

argument30  => chr (0),

argument31  => chr (0),

argument32  => chr (0),

argument33  => chr (0),

argument34  => chr (0),

argument35  => chr (0),

argument36  => chr (0),

argument37  => chr (0),

argument38  => chr (0),

argument39  => chr (0),

argument40  => chr (0),

argument41  => chr (0),

argument42  => chr (0),

argument43  => chr (0),

argument44  => chr (0),

argument45  => chr (0),

argument46  => chr (0),

argument47  => chr (0),

argument48  => chr (0),

argument49  => chr (0),

argument50  => chr (0),

argument51  => chr (0),

argument52  => chr (0),

argument53  => chr (0),

argument54  => chr (0),

argument55  => chr (0),

argument56  => chr (0),

argument57  => chr (0),

argument58  => chr (0),

argument59  => chr (0),

argument60  => chr (0),

argument61  => chr (0),

argument62  => chr (0),

argument63  => chr (0),

argument64  => chr (0),

argument65  => chr (0),

argument66  => chr (0),

argument67  => chr (0),

argument68  => chr (0),

argument69  => chr (0),

argument70  => chr (0),

argument71  => chr (0),

argument72  => chr (0),

argument73  => chr (0),

argument74  => chr (0),

argument75  => chr (0),

argument76  => chr (0),

argument77  => chr (0),

argument78  => chr (0),

argument79  => chr (0),

argument80  => chr (0),

argument81  => chr (0),

argument82  => chr (0),

argument83  => chr (0),

argument84  => chr (0),

argument85  => chr (0),

argument86  => chr (0),

argument87  => chr (0),

argument88  => chr (0),

argument89  => chr (0),

argument90  => chr (0),

argument91  => chr (0),

argument92  => chr (0),

argument93  => chr (0),

argument94  => chr (0),

argument95  => chr (0),

argument96  => chr (0),

argument97  => chr (0),

argument98  => chr (0),

argument99  => chr (0),

argument100 => chr(0 )

);

   

      IF l_request_id = 0 THEN

        fnd_message.retrieve;

        fnd_message.error;

      END IF ;

     

      :system.message_level := '5';

      forms_ddl( 'COMMIT');

      :system.message_level := '0';

end if;