ALV - BD - UPDATE

Actualización del campo EKPO-EBONF= ‘X’ en los pedidos que se han seleccionado.

Este proceso se ejecutará desde el ALV, se seleccionarán los registros deseados (por defecto se listarán todos los registros seleccionados) y se ejecutará la actualización. Para ello se habrá creado un botón de acturalización.

*---------------------------------------------------------------------*

* --> R_UCOMM *

* --> RS_SELFIELD *

*---------------------------------------------------------------------*

FORM user_command USING r_ucomm TYPE sy-ucomm

gs_selfield TYPE slis_selfield.

CASE r_ucomm.

WHEN 'ACTUALIZAR'.

READ TABLE it_out WITH KEY marcado = 'X'.

IF sy-subrc NE 0.

MESSAGE e063(zx).

ELSE.

PERFORM actualizar.

ENDIF.

ENDCASE.

* Indicamos a la ALV que actualice la visualización de los datos ya

* que estos pueden haber cambiado.

gs_selfield-refresh = 'X'.

ENDFORM. "user_command

FORM actualizar.

loop at it_out where marcado = 'X'.

UPDATE EKPO SET EBONF = 'X'

WHERE EBELN = IT_OUT-EBELN

AND BUKRS = p_bukrs.

endloop.

ENDFORM. " actualizar