AP*供应商更新

DECLARE

  v_Vendor_Rec    Ap_Vendor_Pub_Pkg.r_Vendor_Rec_Type;

  v_Return_Status VARCHAR2(50);

  v_Msg_Count     NUMBER;

  v_Msg_Data      VARCHAR2(3000);

  v_Party_Id      NUMBER;

BEGIN

  v_Vendor_Rec.Vendor_Id               := p_Vendor_Id;

  v_Vendor_Rec.Parent_Vendor_Id        := p_Parent_Vendor_Id;

  v_Vendor_Rec.Attribute10             := p_Vendor_Dept;

  v_Vendor_Rec.Attribute12             := p_Attribute12;

  v_Vendor_Rec.Vendor_Type_Lookup_Code := p_Vendor_Type_Code;

  v_Vendor_Rec.End_Date_Active         := p_Active_Date;

  v_Vendor_Rec.Vendor_Name_Alt         := p_Vendor_Name_Alt;

  Ap_Vendor_Pub_Pkg.Update_Vendor(p_Api_Version      => 1

                                 ,p_Init_Msg_List    => Fnd_Api.g_False

                                 ,p_Commit           => Fnd_Api.g_False

                                 ,p_Validation_Level => Fnd_Api.g_Valid_Level_Full

                                 ,x_Return_Status    => v_Return_Status

                                 ,x_Msg_Count        => v_Msg_Count

                                 ,x_Msg_Data         => v_Msg_Data

                                 ,p_Vendor_Rec       => v_Vendor_Rec

                                 ,p_Vendor_Id        => p_Vendor_Id);

END;