Comentarios en: Leer Campo de una Dynpro cuando es inaccesible. http://gstortoni.wordpress.com/2008/07/17/leer-campo-de-una-dynpro/ Just another WordPress.com weblog Fri, 07 Nov 2008 15:59:10 +0000 http://wordpress.com/ hourly 1 Por: gstortoni http://gstortoni.wordpress.com/2008/07/17/leer-campo-de-una-dynpro/#comment-9 gstortoni Mon, 06 Oct 2008 14:29:17 +0000 http://gstortoni.wordpress.com/?p=17#comment-9 Por supuesto que si exite. Salu2 FUNCTION ua_read_field_from_dynpro. *"---------------------------------------------------------------------- *"*"Lokale Schnittstelle: *" IMPORTING *" REFERENCE(ID_PROGRAM) TYPE PROGNAME DEFAULT 'SAPLUA_IMPORT' *" REFERENCE(ID_DYNPRO) TYPE SYDYNNR *" REFERENCE(ID_FIELD_NAME) TYPE DYNFNAM *" EXPORTING *" REFERENCE(ED_FIELD_VALUE) TYPE DYNFIELDVALUE *" EXCEPTIONS *" FAILED *"---------------------------------------------------------------------- DATA: ls_dynp_field TYPE dynpread, lt_dynp_field TYPE STANDARD TABLE OF dynpread. ls_dynp_field-fieldname = id_field_name. APPEND ls_dynp_field TO lt_dynp_field. CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = id_program dynumb = id_dynpro TABLES dynpfields = lt_dynp_field EXCEPTIONS OTHERS = 1. IF sy-subrc 0. RAISE failed. ENDIF. READ TABLE lt_dynp_field into ls_dynp_field WITH KEY fieldname = id_field_name. IF sy-subrc 0. RAISE failed. ENDIF. ed_field_value = ls_dynp_field-fieldvalue. ENDFUNCTION. Por supuesto que si exite. Salu2
FUNCTION ua_read_field_from_dynpro.
*”———————————————————————-
*”*”Lokale Schnittstelle:
*” IMPORTING
*” REFERENCE(ID_PROGRAM) TYPE PROGNAME DEFAULT ‘SAPLUA_IMPORT’
*” REFERENCE(ID_DYNPRO) TYPE SYDYNNR
*” REFERENCE(ID_FIELD_NAME) TYPE DYNFNAM
*” EXPORTING
*” REFERENCE(ED_FIELD_VALUE) TYPE DYNFIELDVALUE
*” EXCEPTIONS
*” FAILED
*”———————————————————————-

DATA:
ls_dynp_field TYPE dynpread,
lt_dynp_field TYPE STANDARD TABLE OF dynpread.

ls_dynp_field-fieldname = id_field_name.
APPEND ls_dynp_field TO lt_dynp_field.

CALL FUNCTION ‘DYNP_VALUES_READ’
EXPORTING
dyname = id_program
dynumb = id_dynpro
TABLES
dynpfields = lt_dynp_field
EXCEPTIONS
OTHERS = 1.

IF sy-subrc 0.
RAISE failed.
ENDIF.

READ TABLE lt_dynp_field into ls_dynp_field WITH KEY
fieldname = id_field_name.

IF sy-subrc 0.
RAISE failed.
ENDIF.

ed_field_value = ls_dynp_field-fieldvalue.

ENDFUNCTION.

]]> Por: gloria marin http://gstortoni.wordpress.com/2008/07/17/leer-campo-de-una-dynpro/#comment-8 gloria marin Tue, 30 Sep 2008 19:00:01 +0000 http://gstortoni.wordpress.com/?p=17#comment-8 UA_READ_FIELD_FROM_DYNPRO no existe esta funcion UA_READ_FIELD_FROM_DYNPRO no existe esta funcion

]]>