VA02, verificar disponibilidad desde call transaction

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • leo_cba
    Junior Member
    • dic
    • 12

    #1

    VA02, verificar disponibilidad desde call transaction

    Buenos días a todos, les hago la siguiente consulta: desde una transacción Z que muestra un listado de pedidos en un ALV, llamo a la transacción VA02 cuando cliqueo en uno de ellos, al querer verificar disponibilidad del pedido elegido, no me muestra nada; solo un mensaje que dice "se ha ejecutado la verificación de disponibilidades" (Nº mensaje: V1122).

    Obviamente entrando directamente por la VA02 al mismo pedido, puedo visualizar la disponibilidad correctamente.

    El problema es que el usuario quiere hacerlo mediante la transacción Z.

    Desde ya muchas gracias!
  • leo_cba
    Junior Member
    • dic
    • 12

    #2
    Originalmente publicado por damianrvgq
    Hola leo_cba,

    Podrías poner el código que utilizas para llamada a la transacción, para poder ayudarte?

    Entiendo también que es desde un evento Hotspot, de uno de los campos del ALV, no?

    Un saludo.
    Buen día, adjunto:

    FORM at_user_command USING u_ucomm LIKE sy-ucomm
    us_selfield TYPE slis_selfield.
    DATA: opt TYPE ctu_params.

    CASE u_ucomm.
    WHEN '&IC1'. " Pick
    IF us_selfield-tabindex <> 0.
    READ TABLE xdatos INDEX us_selfield-tabindex.
    CHECK sy-subrc = 0.
    IF ( us_selfield-fieldname = 'VBELN' OR
    us_selfield-fieldname = 'POSNR' OR
    us_selfield-fieldname = 'ETENR' ) AND
    us_selfield-value <> ' '.
    CLEAR h_bdc-tables.
    REFRESH h_bdc-tables.
    PERFORM insert_line USING:
    'X' 'SAPMV45A ' '102',
    ' ' 'VBAK-VBELN' xdatos-vbeln,
    ' ' 'BDC_OKCODE' '/00'.
    opt-racommit = 'X'.
    opt-dismode = 'E'.
    CALL TRANSACTION 'VA02' USING h_bdc-tables OPTIONS FROM opt.
    ELSEIF ( us_selfield-fieldname = 'MATNR' OR
    us_selfield-fieldname = 'MAKTX' ) AND
    us_selfield-value <> ' '.
    CLEAR h_bdc-tables.
    REFRESH h_bdc-tables.
    PERFORM insert_line USING:
    'X' 'ZPP_GANTT_ORDENES' '1000',
    ' ' 'P_WERKS' xdatos-werks,
    ' ' 'S_MATNR-LOW' xdatos-matnr,
    ' ' 'P_NOPR' ' ',
    ' ' 'BDC_OKCODE' '=ONLI'.
    opt-racommit = 'X'.
    opt-dismode = 'E'.
    CALL TRANSACTION 'ZGANTT' USING h_bdc-tables OPTIONS FROM opt.
    ENDIF.
    ENDIF.
    ENDCASE.
    CLEAR u_ucomm.
    ENDFORM. " at_user_command

    Comentario

    Trabajando...