السلام عليكم

1- API لالغاء الـ Responsibility على مستوى الـ User.

نعلم انه بامكانك ايقافها من خلال الـ Application لكن لن يسمح لك بادخال تاريخ أقل من تاريخ اليوم، ولكن بامكانك عمل ذلك من خلال هذه الـ API.

Declare
  --Cursor To Get All Inactive Users
  Cursor Cur_Inactive_User
  Is
     Select   Fu.User_Id, Frt.Responsibility_Id, Frt.Application_Id,
              Furg.Security_Group_Id, Frt.Responsibility_Name,
              Furg.Start_Date, Furg.End_Date
         From Fnd_User_Resp_Groups Furg,
              Fnd_Responsibility Fr,
              Fnd_Responsibility_Tl Frt,
              Fnd_User Fu
        Where Fu.User_Name In ('User_Id')
          And Fu.User_Id = Furg.User_Id
          And Furg.Responsibility_Id = Fr.Responsibility_Id
          And Frt.Responsibility_Id = Fr.Responsibility_Id
          And Frt.Responsibility_Name = 'Purchasing'
     Order By 1;
Begin
  For Rec_Inactive_User In Cur_Inactive_User Loop
--Checking If The Responsibility Is Assigned To The User
     If (Fnd_User_Resp_Groups_Api.Assignment_Exists
                                        (Rec_Inactive_User.User_Id,
                                         Rec_Inactive_User.Responsibility_Id,
                                         Rec_Inactive_User.Application_Id,
                                         Rec_Inactive_User.Security_Group_Id
                                        )
        )
     Then
        -- Call Api To End Date The Responsibility
        Fnd_User_Resp_Groups_Api.Update_Assignment
           (User_Id                            => Rec_Inactive_User.User_Id,
            Responsibility_Id                  => Rec_Inactive_User.Responsibility_Id,
            Responsibility_Application_Id      => Rec_Inactive_User.Application_Id,
            Security_Group_Id                  => Rec_Inactive_User.Security_Group_Id,
            Start_Date                         => Rec_Inactive_User.Start_Date,
            End_Date                           => '27-MAY-12',
            Description                        => Null
           );
        Commit;
     End If;
  End Loop;
End;

2- لإزالة الـ Concurrent Program:

Declare
  V_Program_Short_Name   Varchar2 (200);
  V_Application          Varchar2 (200);
Begin
  V_Program_Short_Name := 'XXX_INV_TEST';
  V_Application := 'Purchsing';
  Apps.Fnd_Program.Delete_Program
                                (Program_Short_Name      => V_Program_Short_Name,
                                 Application             => V_Application
                                );
  Commit;
End;

وبعد حذفه بامكانك حذف الـ Executable من خلال الـ Application.

بالتوفيق.

شكرا اخوي احمد ودائما تتحفنا بمشاركاتك المميزة

تسلم يا ماهر على راسي والله...