Haber prueba el codigo que te voy a pasar.
Vuelve a probar esto!!!!!
REPORT zqm_trazabilidad_sem NO STANDARD PAGE HEADING.
TABLES: caufv, qals.
DATA: va_aufnr LIKE caufv-aufnr.
DATA: aux LIKE sy-tabix.
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.
set PF-STATUS 'ZSTATUSTRAZABILIDAD'.
END-OF-SELECTION.
PERFORM write.
AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'MEDIA'.
PERFORM cal_media.
WHEN '&IC1'.
aux = sy-curow - 4.
READ TABLE it_trazbi_sem INDEX aux.
IF sy-subrc = 0.
SET PARAMETER ID 'QLS' FIELD it_trazbi_sem-prueflos.
CALL TRANSACTION 'QA13' AND SKIP FIRST SCREEN.
ENDIF.
ENDCASE.
*---------------------------------------------------------------------*
* FORM selection *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
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 *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM write.
WRITE: /, AT 10 'LOTE', AT 30 'TOLVA', AT 50 'LOTE INSP.'.
WRITE: /.
ULINE AT 10(50).
LOOP AT it_trazbi_sem.
WRITE: /30 it_trazbi_sem-charg,
50 it_trazbi_sem-prueflos HOTSPOT.
HIDE it_trazbi_sem-prueflos.
ENDLOOP.
CLEAR it_trazbi_sem.
ENDFORM.
*---------------------------------------------------------------------*
* FORM cal_media *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM cal_media.
WRITE: /, 'Hola'.
ENDFORM.
con esto solo le debes dar clic al lote que quieres visualizar.
__________________
Un Huevon No Inútil
Solo di lo que piensas, a la mejor tienes la mejor respuesta....
Si alguien ya lo hizo, copialo y cambiale las variables total es un codigo nuevo.....
Si SAP lo hace se puede hacer, no me pidas hacer algo que SAP no ha hecho.....
Consultor FI jr/ABAP Sr.
Úlima edición por robert_milan fecha: 27/03/08 a las 11:15:07.
|