#18
|
||||
|
||||
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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|