AR*Hz_Parties 客户表更新

DECLARE
l_Msg_Count NUMBER;
l_Profile_Id NUMBER;
l_Return_Status VARCHAR2(200);
l_Proc_Step VARCHAR2(200);
l_Msg_Data VARCHAR2(2000);

l_Rec_Organization Hz_Party_V2pub.Organization_Rec_Type;
l_Rec_Party Hz_Party_V2pub.Party_Rec_Type;
l_Obj_Ver_Number NUMBER;
l_Last_Succ VARCHAR2(100);
BEGIN

BEGIN
SELECT Object_Version_Number
INTO l_Obj_Ver_Number
FROM Hz_Parties Hp
WHERE Hp.Party_Id = 15764474;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;

l_Rec_Party.Party_Id := 15764474;
l_Rec_Party.Attribute12 := '测试1';
l_Rec_Organization.Party_Rec := l_Rec_Party;
--l_rec_party.status := p_status;
--l_Rec_Organization

Hz_Party_V2pub.Update_Organization(p_Init_Msg_List => 'T'
,p_Organization_Rec => l_Rec_Organization
,p_Party_Object_Version_Number => l_Obj_Ver_Number
,x_Profile_Id => l_Profile_Id
,x_Return_Status => l_Return_Status
,x_Msg_Count => l_Msg_Count
,x_Msg_Data => l_Msg_Data);

Dbms_Output.Put_Line(l_Return_Status || ':' || l_Msg_Data);
COMMIT;
END;