采购订单关闭代码,OracleEBS代码库,德仔网

代码语言
代码分类
【OracleEBS】采购订单关闭
作者:Dezai.CN / 发布于2013/1/7/ 870
create or replace procedure xx_po_close

(
 
 err_buff out varchar2,
 
 retcode out number,
 
 p_reason_desc varchar2,
 
 p_po_from varchar2,
 
 p_po_to varchar2)

 as

    l_return_code varchar2(2000);

    l_result boolean;

    cursor po_close_cur
    
    is
    
        select poh.segment1,
               
               poll.po_header_id,
               
               poll.po_line_id,
               
               poll.line_location_id
        
          from po_line_locations_all poll,
               
               po_headers_all poh,
               
               po_lines_all pol
        
         where poll.po_header_id = poh.po_header_id
              
           and poll.po_line_id = pol.po_line_id
              
           and pol.po_header_id = poh.po_header_id
              
           and upper(poh.authorization_status) = 'APPROVED'
              
           and upper(poll.closed_code) = 'CLOSED FOR RECEIVING'
              
           and (pol.unit_price = 0 or
               poh.quantity_billed - poh.quantity >= 0)
              
           and poh.segment1 between p_po_from and p_po_to;

begin

    for po_close_rec in po_close_cur
    
    loop
    
        l_result := po_actions.close_po(
                                        
                                        p_docid => po_close_rec.po_header_id,
                                        
                                        p_doctyp => 'PO',
                                        
                                        p_docsubtyp => 'STANDARD',
                                        
                                        p_lineid => po_close_rec.po_line_id,
                                        
                                        p_shipid => po_close_rec.line_location_id,
                                        
                                        p_action => 'CLOSE',
                                        
                                        p_reason => p_reason_desc,
                                        
                                        p_calling_mode => 'PO',
                                        
                                        p_conc_flag => 'N',
                                        
                                        p_return_code => l_return_code,
                                        
                                        p_auto_close => 'N',
                                        
                                        p_action_date => sysdate,
                                        
                                        p_origin_doc_id => null);
    
        if l_result then
        
            fnd_file.put_line(fnd_file.output,
                              po_close_rec.segment1 ' is Closed. ');
        
        else
        
            fnd_file.put_line(fnd_file.output,
                              po_close_rec.segment1 ' is not Closed. ');
        
        end if;
    
    end loop;

end;
试试其它关键字
　采购订单关闭　
同语言下
可能有用的
Dezai.CN贡献的其它代码(4037)