销售订单挑库发放代码,OracleEBS代码库,德仔网

代码语言

代码分类

【OracleEBS】销售订单挑库发放

作者:Dezai.CN / 发布于2013/1/5/ 1137

wsh_pick_list.online_release(p_batch_id    => l_batch_id,
                                       p_pick_result => l_pick_result,
                                       p_pick_phase  => l_pick_phase,
                                       p_pick_skip   => l_pick_skip);
          --F:Failure
          IF nvl(l_pick_result,'F') = 'F' THEN
            IF (nvl(l_pick_phase,'START') = 'MOVE_ORDER_LINES') THEN
              l_err_code := g_warning;
              l_err_msg  := '联机挑库发放已部分完成。未完全处理物料搬运单:' || l_batch_id;
            ELSE
              l_err_code := g_warning;
              l_err_msg  := '联机挑库发放失败。请在并发模式下发放订单:' || l_batch_id;
            END IF;
          ELSIF nvl(l_pick_skip,'Y') = 'Y' THEN
            l_err_code := g_warning;
            l_err_msg  := '联机挑库发放已结束但出现警告。请检查“发运例外报表”';
          --即使部分挑库成功也不继续处理
          ELSIF nvl(l_pick_result,'F') = 'W' THEN
            IF nvl(l_pick_phase,'START') = 'MOVE_ORDER_LINES' THEN
              l_err_code := g_warning;
              l_err_msg  := '联机挑库发放已部分完成，但出现警告。';
            ELSE
              l_err_code := g_warning;
              l_err_msg  := '联机挑库发放已结束但出现警告。请检查“发运例外报表”';
            END IF;
          ELSIF nvl(l_pick_result,'F') = 'S' THEN
            NULL;
          END IF;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　挑库发放　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)