xml report

CREATE OR REPLACE PACKAGE APPS.cux_wip_complete_pkg IS

    /**************************************************************************
    File name                : CUX_WIP_COMPLETE_PKG
    Doc Ref(s)               :
    Project                  :
    Description              :
                              
    Change History Information
    --------------------------
    Version  Date         Author           Change Reference / Description
    -------  -----------  ---------------  ------------------------------------
    1.0      2009-10-29   Randolph            First Version
                          
    **************************************************************************/
    PROCEDURE main
    (
        retbuffer OUT VARCHAR2,
        retcode   OUT NUMBER
    );
END cux_wip_complete_pkg;
/

 

CREATE OR REPLACE PACKAGE BODY APPS.cux_wip_complete_pkg IS

    PROCEDURE main
    (
        retbuffer OUT VARCHAR2,
        retcode   OUT NUMBER
    ) IS
        l_success_flag VARCHAR2(1);
        l_error_msgg   VARCHAR2(2000);
        l_sub          VARCHAR2(30);
        l_loc          VARCHAR2(60);
    BEGIN
   
        /*fnd_global.apps_initialize(user_id      => 16444,
                                   resp_id      => 20634,
                                   resp_appl_id => 401);
        fnd_profile.put('MFG_ORGANIZATION_ID',
                        2298);*/
        
    fnd_file.put_line(fnd_file.log,
                          'log level :' || fnd_profile.value('CONC_REQUEST_ID'));
    
    
    
        cux_wip_pkg.process_move_order(p_org_code     => '404',
                                       p_move_order   => '1179106', --1184226
                                       p_item_num     => '201-800000-9000',
                                       p_lot_number   => 'AA100006',
                                       p_quantity     => 3,
                                       p_subinv       => 'FR6 MC1',
                                       p_locator      => 'TLA1.00.01.01.01',
                                       o_success_flag => l_success_flag,
                                       o_error_mssg   => l_error_msgg);
   
        fnd_file.put_line(fnd_file.log,
                          'log level :' || fnd_log.g_current_runtime_level);
        fnd_file.put_line(fnd_file.log,
                          'wip level :' || wip_constants.full_logging);
   
        fnd_file.put_line(fnd_file.log,
                          'status :' || l_success_flag);
        fnd_file.put_line(fnd_file.log,
                          'Message :' || l_error_msgg);
        ROLLBACK;
    END;

END cux_wip_complete_pkg;
/

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/11536986/viewspace-620209/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/11536986/viewspace-620209/