REPORT ZTRANSPORTE.
************************************************************************
* Tables                                                               *
************************************************************************
TABLES: E070.

************************************************************************
* Bloque de Seleccion                                                  *
************************************************************************
SELECTION-SCREEN BEGIN OF BLOCK VC1 WITH FRAME TITLE TEXT-C01.
PARAMETERS: P_ORDEN LIKE E070-TRKORR.
SELECTION-SCREEN END OF BLOCK VC1.

SELECTION-SCREEN BEGIN OF BLOCK VC2 WITH FRAME TITLE TEXT-C02.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 01.
PARAMETERS:
  R_RETURN LIKE PMXCXXXX-IPERI RADIOBUTTON GROUP RADI DEFAULT 'X'.
SELECTION-SCREEN COMMENT: 04(37) TEXT-T01.
PARAMETERS:
  R_DELETE LIKE PMXCXXXX-IPERI RADIOBUTTON GROUP RADI.
SELECTION-SCREEN COMMENT 45(39) TEXT-T02.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK VC2.

************************************************************************
* Actualizacion del Transporte                                         *
************************************************************************
IF R_RETURN EQ 'X'.
  UPDATE E070 SET
         TRSTATUS = 'D'
         WHERE STRKORR EQ P_ORDEN.
  UPDATE E070 SET
         TRSTATUS = 'D'
         WHERE TRKORR EQ P_ORDEN.
  IF SY-SUBRC EQ 0.
    WRITE:/ 'La orden de Transporte ',
            P_ORDEN+0(11),
            'ha regresado al estado de Modificable.'.
    COMMIT WORK.
  ENDIF.
ELSEIF R_DELETE EQ 'X'.
  DELETE FROM E070
         WHERE STRKORR EQ P_ORDEN.
  DELETE FROM E070
         WHERE TRKORR EQ P_ORDEN.
  IF SY-SUBRC EQ 0.
    WRITE:/ 'La orden de Transporte ',
            P_ORDEN+0(11),
            'ha sido borrada satisfactoriamente.'.
  ENDIF.
ENDIF.