zoukankan      html  css  js  c++  java
  • 使用API创建AR 贷项通知单

    DECLARE
      --8000000063
      l_dummy              varchar2(240);
      l_customer_trx_id    ra_customer_trx.customer_trx_id%type;
      l_line_credits_flag  ra_cm_requests.line_credits_flag%type;
      l_line_amount        number;
      l_freight_amount     number := 0;
      l_cm_lines_tbl       arw_cmreq_cover.cm_line_tbl_type_cover;
      l_cm_reason_code     varchar2(150);
      l_comments           varchar2(150);
    
      l_msg_count          number := 0;
      l_msg_data           varchar2(20000) := null;
      l_return_status      varchar2(1);
      l_request_id         NUMBER;
      l_batch_source_name  varchar2(150) default null;
    
      cm_trx_id            number;
    
    BEGIN
    
       -- c. Set the applications and org context
       fnd_global.apps_initialize(1110,50683,222);
    
       mo_global.init('AR'); 
       mo_global.set_policy_context('S',121);
    
    
       -- d. provide CUSTOMER_TRX_ID of the invoice to credit
       l_customer_trx_id := 165023;
      
       l_comments := 'Demo for Create_Request API';
    
       -- e. Populate Batch Source information
       l_batch_source_name := 'OM前受';
    
       -- f. the presence of l_cm_lines_tbl indicates this is a LINE-LEVEL credit
       -- details for (1) are credits against line #1 identified by customer_trx_line_id = 824472
       l_cm_lines_tbl(1).customer_trx_line_id := 403228;
       l_cm_lines_tbl(1).quantity_credited := null;
       l_cm_lines_tbl(1).price := null;
       l_cm_lines_tbl(1).extended_amount := -151000;
    
       -- details for (2) are credits against line #2 identified by customer_trx_line_id = 824473
       --l_cm_lines_tbl(2).customer_trx_line_id := 824473;
       --l_cm_lines_tbl(2).quantity_credited := -2;
       --l_cm_lines_tbl(2).price := 2000.00;
       --l_cm_lines_tbl(2).extended_amount := -4000.00;
    
       -- g. call CREATE_REQUEST
       AR_CREDIT_MEMO_API_PUB.CREATE_REQUEST(
          P_API_VERSION => 1.0,
          P_INIT_MSG_LIST => FND_API.G_TRUE,
          P_COMMIT => FND_API.G_FALSE,
          P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
          P_CUSTOMER_TRX_ID => l_customer_trx_id,
          P_LINE_CREDIT_FLAG => 'Y',
          P_CM_REASON_CODE => 'RETURN',
          P_CM_LINE_TBL => l_cm_lines_tbl,
          P_SKIP_WORKFLOW_FLAG => 'Y',
          P_CREDIT_METHOD_INSTALLMENTS => null,
          P_CREDIT_METHOD_RULES => null,
          P_BATCH_SOURCE_NAME => l_batch_source_name,
          P_ORG_ID => 121,
          X_REQUEST_ID => l_request_id,
          X_RETURN_STATUS => l_return_status,
          X_MSG_COUNT => l_msg_count,
          X_MSG_DATA => l_msg_data);
    
       -- h. return information about the status of the API run
       FND_MSG_PUB.count_and_get (
          p_encoded => FND_API.g_false,
          p_count => l_msg_count,
          p_data => l_msg_data );
    
       dbms_output.put_line('Return Status ==> '||l_return_status);
       dbms_output.put_line('Credit Memo request_id ==> '||l_request_id);
       dbms_output.put_line('l_msg_count ==> '||l_msg_count);
    
       
       -- i. display messages from the message stack
       FOR I IN 1..L_MSG_COUNT LOOP
           DBMS_OUTPUT.PUT_LINE(SUBSTR(FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F'), 1, 254));
       END LOOP;
    
       IF l_return_status <> 'S' THEN
          NULL;
       ELSE
         select cm_customer_trx_id 
         into cm_trx_id
         from ra_cm_requests_all
         where request_id = l_request_id;
    
         dbms_output.put_line(' CM trx_id = '|| cm_trx_id );
         -- You can issue a COMMIT; at this point if you want to save the created credit memo to the database
       END IF;
       
    EXCEPTION
    WHEN OTHERS THEN
       dbms_output.put_line('exception error!');
       dbms_output.put_line(substr(sqlerrm, 1, 80));
       fnd_message.retrieve(l_dummy);
       dbms_output.put_line(l_dummy);
    END;

    參考文档:

    Oracle Receivables Credit Memo API: Setup and Sample Scripts (Doc ID 1272600.1)

  • 相关阅读:
    如何选择创业项目:四项原则与四个步骤
    做管理人要注意的十一点细节
    成功激励格言精选
    将自己的姿态放低:你应具备赚钱以外的四种能力
    让我的爱带给你最大的幸福和感动
    秋收情不收.七夕感怀
    成功人士的十五条座右铭
    足迹
    人生成功的生活经典治理名言
    真正的贵人就是你自己
  • 原文地址:https://www.cnblogs.com/mengfanrong/p/5087779.html
Copyright © 2011-2022 走看看