[robert_milan]

antes del CASE sy-ucomm.

necesitas el AT USER-COMMAND.

Pruebalo.

REPORT ZQM_TRAZABILIDAD_SEM no STANDARD PAGE HEADING.

tables: caufv, qals.

data: va_aufnr like caufv-aufnr.

data: begin of it_aufnr occurs 0,
aufnr like caufv-aufnr.
data: end of it_aufnr.

data: begin of it_trazbi_sem occurs 0,
charg like qals-charg,
prueflos like qals-prueflos.
data: end of it_trazbi_sem.

SELECTION-SCREEN BEGIN OF BLOCK B0 WITH FRAME.
PARAMETERS: Ciclo like caufv-cy_seqnr OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B0.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR ciclo.

START-OF-SELECTION.

perform selection.

end-of-SELECTION.

set PF-STATUS 'ZSTATUSTRAZABILIDAD'.

perform write.

AT user-command.

CASE sy-ucomm.
WHEN 'MEDIA'.
PERFORM cal_media.
WHEN '&IC1'.
if not it_trazbi_sem-prueflos is initial.

SET PARAMETER ID 'QLS' FIELD it_trazbi_sem-prueflos.
call TRANSACTION 'QA13' and SKIP FIRST SCREEN.

else.

MESSAGE s001(z1).

endif.
endcase.


form selection.

select aufnr
from caufv
into CORRESPONDING FIELDS OF TABLE it_aufnr
WHERE cy_seqnr = ciclo.


SELECT charg prueflos
from qals
into CORRESPONDING FIELDS OF table it_trazbi_sem
FOR ALL ENTRIES IN it_aufnr
where aufnr = it_aufnr-aufnr.

endform.

form write.

write: /, at 10 'LOTE', at 30 'TOLVA', at 50 'LOTE INSP.'.
write: /.
uline at 10(50).
loop at it_trazbi_sem.

write: /, at 30 it_trazbi_sem-charg,
at 50 it_trazbi_sem-prueflos HOTSPOT.
hide it_trazbi_sem-prueflos.

endloop.

clear it_trazbi_sem.

endform.

form cal_media.
write: /, 'Hola'.
endform.