Oracle EBS AP 取消发票

--取消发票 created by jenrry 20170425
declare
 l_result        BOOLEAN;
 l_message_name          VARCHAR2(240);
 l_invoice_amount           NUMBER;
 l_base_amount              NUMBER;
 l_temp_cancelled_amount    NUMBER;
 l_cancelled_by             NUMBER;
 l_cancelled_amount         NUMBER;
 l_cancelled_date           DATE;
 l_last_update_date         DATE;
 l_original_prepayment_amount  NUMBER;
 l_pay_curr_invoice_amount     NUMBER;
 l_token                       VARCHAR2(240);
 l_calling_sequence            VARCHAR2(240);
begin
  FND_GLOBAL.APPS_INITIALIZE(USER_ID      => 1111,
                             RESP_ID      => 50737,
                             RESP_APPL_ID => 20005);
  mo_global.init('SQLAP');

  mo_global.set_policy_context(p_access_mode => 'S', p_org_id => 142);
  l_result := AP_CANCEL_PKG.Ap_Cancel_Single_Invoice(
             P_invoice_id                 => 13020,
             P_last_updated_by            => 1111,
             P_last_update_login          => 1111,
             P_accounting_date            => fnd_conc_date.string_to_date('2017-02-21'),
             P_message_name               => l_message_name,
             P_invoice_amount             => l_invoice_amount,
             P_base_amount                => l_base_amount,
             P_temp_cancelled_amount      => l_temp_cancelled_amount,
             P_cancelled_by               => l_cancelled_by,
             P_cancelled_amount           => l_cancelled_amount,
             P_cancelled_date             => l_cancelled_date,
             P_last_update_date           => l_last_update_date,
             P_original_prepayment_amount => l_original_prepayment_amount,
             P_pay_curr_invoice_amount    => l_pay_curr_invoice_amount,
             P_token                      => l_token,
             P_calling_sequence           => l_calling_sequence) ;

     if l_result then
       dbms_output.put_line('l_message_name1: '||'S');

       end if;
     dbms_output.put_line('l_message_name: '||l_message_name);

end;