|
He probado tu código y no funciona la llamada al call transactión...
Con este código funcionaba, pero claro el status estaba comentado...:
confused:
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 LINE-SELECTION.
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.
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.
AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'MEDIA'.
PERFORM cal_media.
WHEN '&IC1'.
endcase.
|