#11
|
||||
|
||||
Lo que necesitas ahora es el evento AT USER-COMMAND.
el codigo del hotspot es el &IC1 y solo despues debes teenr una variable aux = sy-curow - 2. read table it_trazbi_sem index aux. debido a que por defaul la primera linea se imprime en la linea 3 despues mandar este codigo: SET PARAMETER ID 'QLS' FIELD it_trazbi_sem-prueflos. call TRANSACTION 'QA13' and SKIP FIRST SCREEN. y listo espero te sirva saludos!!!
__________________
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: 26/03/08 a las 15:31:39. |
#12
|
|||
|
|||
Un código al hotspot???
|
#13
|
||||
|
||||
cuando introduces un Status Z, el hot spot se le asigna automaticamente el codigo &IC1.
Saludos!!!
__________________
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. |
#14
|
|||
|
|||
No entiendo lo que quieres decir cuando dices que le he de asociar ese código al hotspot... Estoy un poco perdido con eso... He de tocar algo en mi status Z o tocar el código del programa?
Muchas gracias |
#15
|
||||
|
||||
en tu funcion
form write. loop at it_trazbi_sem. write: /, at 10 it_trazbi_sem-charg, at 30 it_trazbi_sem-prueflos HOTSPOT. hide it_trazbi_sem-prueflos. endloop. clear it_trazbi_sem. endform. Lo que puse en rojo, es el texto en Hotspot. por lo tanto cuando tu le pones el status Z ese campo se le asigna automaticamente el codigo &IC1. entonces en el AT user-command. debes poner algo asi: case sy-ucomm. when '&IC1'. "Codigo X" encase. con esto ya tienes la funcionalidad del clic. espero te quede mas claro.
__________________
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. |
#16
|
|||
|
|||
Ya había probado algo así, pero ahora no funciona nada, no hay que poner at line selectio o si? donde?
No entiendo que pasa!!! Estoy un poco desesperado. Te pongo el código que estoy probando a ver si me puedes ayudar. Gracias. ****************************************** 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. 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. |
#17
|
||||
|
||||
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.
__________________
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. |
#18
|
|||
|
|||
Añadiendo el at-user command sigue sin funcionar...
|
#19
|
||||
|
||||
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. |
#20
|
|||
|
|||
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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|