#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! |
#2
|
|||
|
|||
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|