at line selection con call transaction

**juanmgdelomana** · 27/03/2008, 10:28:50

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.

**robert_milan** · 27/03/2008, 10:31:10

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.

**juanmgdelomana** · 27/03/2008, 10:46:42

Añadiendo el at-user command sigue sin funcionar...

**robert_milan** · 27/03/2008, 10:57:54

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.

**juanmgdelomana** · 27/03/2008, 11:04:47

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.

**robert_milan** · 27/03/2008, 11:13:07

Vuelve lo a probar ya lo corregi

**juanmgdelomana** · 27/03/2008, 11:20:36

Lo he vuelto a probar, pero sigue sin funcionar!!! Me voy a pegar un tiro!

Gracias por tu ayuda

**robert_milan** · 27/03/2008, 11:40:45

es que ya lo probe y si me funciona :S charros, weros y morenos...

no ps quien sabe

**juanmgdelomana** · 27/03/2008, 11:43:53

Claro, pero es que tu que status estas utilizando? el ZSATUSTRAZABILIDAD? Que características le has dado tu? Este debe de ser el problema yo creo!

**robert_milan** · 27/03/2008, 11:54:55

yo puse un estatus de alv list ABAP ajustado a ese modelo.

pero en si, no deberia ser eso. verifica si esta activo.

**juanmgdelomana** · 27/03/2008, 13:13:15

Si, esta activo...
Bufff ya no se que hacer, ahora mismo estoy en el mismo punto que ayer...

Se supone que uno vez que saco el listado se pueden hacer dos cosas: si pinchas en un registro se hace el call transaction y si pinchas en un boton que creas en el status haces otra historía.

El problema es que si comento el status se puede hacer el call transaction pero logicamente no aparece mi boton al que le he dado una determinada funcionalidad. Si lo descomento ocurre a la inversa puedo usar mi boton pero no se puede hacer el call transaction.

Por favor puede alguien ayudarme???

Gracias de verdad Rober_milan por el tiempo que me has dedicado!!!

**juanmgdelomana** · 27/03/2008, 13:46:06

Ya esta solucionado!!!!

La historia era que necesitaba darle funcionalidad en mi status al botón F2 (&IC1).

Muchas gracias robert_milan!!!

**robert_milan** · 27/03/2008, 13:47:14

Eso excelente....

at line selection con call transaction

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario