zoukankan      html  css  js  c++  java
  • Oracle EBS OPM convert dtl reservation

    	
    --convert_dtl_reservation
    --created by jenrry 
    DECLARE
       l_reservation_rec   mtl_reservations%ROWTYPE;
       l_qty_convert       NUMBER;
       x_message_count     NUMBER;
       x_message_list      VARCHAR2 (2000);
       x_return_status     VARCHAR2 (2000); 
       l_user_name         VARCHAR2 (80);
       l_user_id           NUMBER;
    
       CURSOR get_user_id (v_user_name IN VARCHAR2)
       IS
          SELECT user_id
            FROM fnd_user
           WHERE user_name = v_user_name;
    
       PROCEDURE display_messages (p_msg_count IN NUMBER)
       IS
          MESSAGE               VARCHAR2 (2000);
          dummy                 NUMBER;
          l_api_name   CONSTANT VARCHAR2 (30)   := 'DISPLAY_MESSAGES';
       BEGIN
          FOR i IN 1 .. p_msg_count
          LOOP
             fnd_msg_pub.get (p_msg_index          => i,
                              p_data               => MESSAGE,
                              p_encoded            => 'F',
                              p_msg_index_out      => dummy
                             );
             DBMS_OUTPUT.put_line ('Message ' || TO_CHAR (i) || ' ' || MESSAGE);
          END LOOP;
       EXCEPTION
          WHEN OTHERS
          THEN
             fnd_msg_pub.add_exc_msg ('wrapper for convert dtl reservation ',
                                      l_api_name
                                     );
       END display_messages;
    BEGIN
       DBMS_OUTPUT.ENABLE (20000); 
       fnd_profile.initialize (2330); 
       fnd_global.apps_initialize (user_id           => 2330,
                                   resp_id           => NULL,
                                   resp_appl_id      => NULL
                                  );   
       l_reservation_rec.reservation_id := 2594411;
       l_reservation_rec.demand_source_line_id := 48960;
       l_qty_convert := 200;
        
       gme_api_pub.convert_dtl_reservation
                                         (p_api_version          => 2.0,
                                          p_init_msg_list        => fnd_api.g_false,
                                          p_commit               => fnd_api.g_false,
                                          x_message_count        => x_message_count,
                                          x_message_list         => x_message_list,
                                          x_return_status        => x_return_status,
                                          p_reservation_rec      => l_reservation_rec,
                                          p_qty_convert          => l_qty_convert
                                         ); 
       DBMS_OUTPUT.put_line ('x_message_count = ' || TO_CHAR (x_message_count));
       DBMS_OUTPUT.put_line (SUBSTR ('x_message_list = ' || x_message_list, 1,
                                     255)
                            );
       DBMS_OUTPUT.put_line (SUBSTR ('x_return_status = ' || x_return_status,
                                     1,
                                     255
                                    )
                            );
    
       IF x_message_count > 0
       THEN
          display_messages (x_message_count);
       END IF;
    EXCEPTION
       WHEN OTHERS
       THEN
          DBMS_OUTPUT.put_line ('Error ' || TO_CHAR (SQLCODE) || ': ' || SQLERRM);
          RAISE;
    END;
    /
    

      

    土豆君
  • 相关阅读:
    FZU 2150 Fire Game
    POJ 3414 Pots
    POJ 3087 Shuffle'm Up
    POJ 3126 Prime Path
    POJ 1426 Find The Multiple
    POJ 3278 Catch That Cow
    字符数组
    HDU 1238 Substing
    欧几里德和扩展欧几里德详解 以及例题CodeForces 7C
    Codeforces 591B Rebranding
  • 原文地址:https://www.cnblogs.com/jenrry/p/10021183.html
Copyright © 2011-2022 走看看