Borrado de IDOC

[SILURO]

Hola:

Necesito borrar un IDOC. He visto la WE11, pero no veo como utilizarla para borrar un IDOC por su número.

¿Es posible de alguna manera borrar un IDOC por su número independientemente del estado en que este?. He probado con la SARA, pero no permite archivar IDOCS en determinados estados.

[sconoredhot]

Hola

Hola,
Nosotros teniamos ese problema, y lo que hicimos fue crear un programa
custom que lo que hacia era cambiar el status de los idoc para que
luego puedan ser archivados por la SARA.
Espero te sirva.
Saludos!

[gib8107]

Mira para borrar idocs es necesario tener un esquema de depuracion que lo este haciendo recurrentemente, puedes probar con este codigo

*&---------------------------------------------------------------------*
*& Report  ZEDI_DOCUMENT_DELETE
*&---------------------------------------------------------------------*
REPORT  ZEDI_DOCUMENT_DELETE.
TABLES: EDIDC,BDFIELDS.
SELECT-OPTIONS DOCNUM FOR EDIDC-DOCNUM.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS STATUS FOR EDIDC-STATUS.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: CREDAT FOR EDIDC-CREDAT,
                CRETIM FOR EDIDC-CRETIM DEFAULT '000000' TO '235959'.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: MESTYP FOR BDFIELDS-MESTYP,
                MESCOD FOR EDIDC-MESCOD,
                MESFCT FOR EDIDC-MESFCT.
SELECTION-SCREEN SKIP 1.
PARAMETERS P_CUANTO TYPE P.
START-OF-SELECTION.
  DATA:BEGIN OF T_EDIDC OCCURS 0,
       DOCNUM TYPE EDIDC-DOCNUM.
  DATA:END OF T_EDIDC.
*
** Variables para la funcion de autorizacion
*
DATA: RETURN(1) TYPE C.
 
  SELECT DOCNUM  UP TO P_CUANTO ROWS
    INTO TABLE T_EDIDC
    FROM EDIDC
    WHERE  DOCNUM IN DOCNUM AND
    STATUS IN STATUS AND
    CREDAT IN CREDAT AND
    CRETIM IN CRETIM AND
    MESTYP IN MESTYP AND
    MESCOD IN MESCOD AND
    MESFCT IN MESFCT.
 
LOOP at T_EDIDC.
  CALL FUNCTION 'EDI_DOCUMENT_DELETE'
    EXPORTING
      DOCUMENT_NUMBER              = T_EDIDC-DOCNUM
   EXCEPTIONS
     IDOC_DOES_NOT_EXIST          = 1
     DOCUMENT_FOREIGN_LOCK        = 2
     IDOC_CANNOT_BE_DELETED       = 3
     NOT_ALL_TABLES_DELETED       = 4
     OTHERS                       = 5
            .
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDLOOP.

[sergiomix31]

Revisando

Borrar idocs