处理物料搬运单API

DECLARE

BEGIN
      -- 向mtl_material_transactions_temp表中插值
      --事务处理表先向mtl_material_transactions_temp表中插值然后再导入mmt表进行事务处理
      dbms_output.put_line(p_transaction_id);
      inv_ppengine_pvt.create_suggestions(p_api_version         => 1.0,
                                          p_init_msg_list       => fnd_api.g_false,
                                          p_commit              => fnd_api.g_true,
                                          p_validation_level    => fnd_api.g_valid_level_full,
                                          x_return_status       => l_return_status,
                                          x_msg_count           => l_msg_count,
                                          x_msg_data            => l_msg_data,
                                          p_transaction_temp_id => p_transaction_id, --mtl_txn_request_lines.line_id物料搬运单行ID                                       
                                          p_reservations        => l_mtl_reservation,
                                          p_suggest_serial      => 'F',
                                          p_plan_tasks          => NULL);
      
      --获得temp表头id数据 
      SELECT mmtt.transaction_header_id,
             mmtt.organization_id,
             mmtt.inventory_item_id,
             mmtt.transaction_uom
        INTO l_transaction_header_id,
             l_organization_id,
             l_inventory_item_id,
             l_transaction_uom
        FROM mtl_material_transactions_temp mmtt
       WHERE mmtt.trx_source_line_id = p_transaction_id;
   
      --获取Primary Quantity
      SELECT msi.primary_uom_code
        INTO l_primary_uom
        FROM mtl_system_items_b msi
       WHERE inventory_item_id = l_inventory_item_id
         AND organization_id = l_organization_id;
   
      l_primary_quantity := inv_convert.inv_um_convert(l_inventory_item_id,
                                                       6,
                                                       abs(p_quantity),
                                                       l_transaction_uom,
                                                       l_primary_uom,
                                                       NULL,
                                                       NULL);

      --更新事务处理临时表状态为1
      /*Indicates if it has to be processed or just saved.
      NULL or 1 is default behavior.
      2 is save only.
      3 is ready to process*/
      UPDATE mtl_material_transactions_temp mmtt
         SET mmtt.transaction_status   = 1,
             mmtt.transaction_quantity = p_quantity,
             mmtt.primary_quantity     = l_primary_quantity,  
             mmtt.transaction_date     = SYSDATE
       WHERE mmtt.trx_source_line_id = p_transaction_id;

   
      --将temp表数据处理至mmt表
      l_return_status := inv_lpn_trx_pub.process_lpn_trx(p_trx_hdr_id         => l_transaction_header_id,
                                                         p_commit             => 'T',
                                                         x_proc_msg           => l_msg_data,
                                                         p_proc_mode          => NULL,
                                                         p_process_trx        => 'T',
                                                         p_atomic             => 'T',
                                                         p_business_flow_code => NULL);
      dbms_output.put_line('搬运单处理请求结果: ' || l_return_status);

         EXCEPTION
      WHEN OTHERS THEN
        dbms_output.put_line('Exception : ' || SQLERRM);
    END;

END;