EBS中后台AP发票审批脚本

Declare
    l_Hold_Count Number;
    l_Funds_Code Varchar2(30);
 
    l_Approve_Status Varchar2(120);

Begin
  Ap_Approval_Pkg.Approve(p_Run_Option         => Null,
                          p_Invoice_Batch_Id   => Null,
                          p_Begin_Invoice_Date => Null,
                          p_End_Invoice_Date   => Null,
                          p_Vendor_Id          => Null,
                          p_Pay_Group          => Null,
                          p_Invoice_Id         => 99014,
                          p_Entered_By         => Null,
                          p_Set_Of_Books_Id    => Null,
                          p_Trace_Option       => Null,
                          p_Conc_Flag          => 'N',
                          p_Holds_Count        => l_Hold_Count,
                          p_Approval_Status    => l_Approve_Status,
                          p_Calling_Mode       => Null,
                          p_Calling_Sequence   => 'CUX_3_AR_INTER_PKG',
                          p_Funds_Return_Code  => l_Funds_Code,
                          p_Debug_Switch       => Null,
                          p_Budget_Control     => Null,
                          p_Commit             => 'N');

      If l_Hold_Count > 0 Then
        --x_success_flag  := fnd_api.g_ret_sts_error;
        x_Msg_Message := 'AP发票:' ' 审批不通过，存在挂起：' ||
                         x_Msg_Message;
        -- Raise Fnd_Api.g_Exc_Error;
        x_Return_Status := Fnd_Api.g_Ret_Sts_Error;
        Goto Continue;
      End If;
End;