CRM bp deleting problem

Question

When I try to delete bp with using   program ' bupa_test_delete'
I get this error message : 'At least one entry could not be found in object buffer'.
CRM 5.0 version.
Has  anybody face a problem like this?
Thanks..

Answer 1

Hi Nesli... try to create this program
*& Report  ZDELETEBP
REPORT  zdeletebp.
TABLES: but000.
TYPES: BEGIN OF ty_partner,
           partner TYPE bu_partner,
       END OF ty_partner.
DATA: t_partners         TYPE TABLE OF bus0range WITH HEADER LINE,
      t_return           TYPE bapiret2_t WITH HEADER LINE,
      t_partners_deleted TYPE TABLE OF bussdelyes WITH HEADER LINE,
      t_partners_not_del TYPE TABLE OF bussdelno WITH HEADER LINE,
      gt_partners        TYPE SORTED TABLE OF ty_partner WITH HEADER LINE WITH UNIQUE KEY partner,
      w_answer           TYPE c.
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
SELECT-OPTIONS: s_bp FOR but000-partner.
SELECTION-SCREEN: END OF BLOCK b1.
START-OF-SELECTION.
if sy-batch is initial.
  CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
      titlebar                    = Deleting BPs'
      text_question               = 'Do you really want to delete the BPs? If you don't selected any bp every bp will be deleted.'
      text_button_1               = 'Yes'
      text_button_2               = 'No'
      default_button              = '2'
    IMPORTING
      answer                      = w_answer
  CHECK w_answer EQ '1'.
endif.
    CALL FUNCTION 'DIALOG_SET_NO_DIALOG'.
    CLEAR gt_partners[].
     SELECT  partner FROM  but000
       INTO table gt_partners
       WHERE  partner  IN s_bp.
       CHECK gt_partners[] IS NOT INITIAL.
     clear t_partners[].
     LOOP AT gt_partners .
        t_partners-tname  = 'BUT000'.
        t_partners-fname  = 'PARTNER'.
        t_partners-option = 'EQ'.
        t_partners-sign   = 'I'.
        t_partners-low = gt_partners-partner.
        APPEND t_partners.
     ENDLOOP.
    CALL FUNCTION 'BUP_BUPA_MASS_DELETE'
    EXPORTING
       iv_testrun           = ' '
       iv_with_log          = ' '
       iv_xdele             = ' '
       iv_with_check        = ' '
    TABLES
       it_partners          = t_partners
       et_partners_deleted  = t_partners_deleted
       et_partners_not_del  = t_partners_not_del
    EXCEPTIONS
       deletion_not_allowed = 1
       fatal_error          = 2
       OTHERS               = 3.
    IF sy-subrc IS INITIAL.
    ENDIF.
    delete from crmm_but_custno where CUSTOMER_NO in s_bp.
    IF SY-SUBRC IS INITIAL.
    commit work AND WAIT.
    ENDIF.
    IF t_partners_not_del[] IS INITIAL and t_partners_deleted[] is not initial.
       MESSAGE 'Parceiros Eliminados' TYPE 'S'.
    ELSE.
       WRITE: /'Partner not deleted'.
       LOOP AT t_partners_not_del.
          WRITE: / t_partners_not_del-value.
       ENDLOOP.
    ENDIF.
Best Regards,
Caíque Escaler
Edited by: Caíque Escaler on Mar 18, 2008 7:59 PM