Ver Mensaje Individual
  #3  
Viejo 19/05/17, 14:41:44
leo_cba leo_cba is offline
Junior Member
 
Fecha de Ingreso: dic 2006
Mensajes: 12

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
Responder Con Cita