Cómo usar – F4IF_INT_TABLE_VALUE_REQUEST

Hola, revisa este código si es posible, te ayuda.

parámetro: p_finyr similar al obligatorio t7pm9-finyr.

en la pantalla de valor seleccionado en p_finyr.

FUNCIÓN DE APLICACIÓN ‘F4IF_INT_TABLE_VALUE_REQUEST’

EXPORTACIONES

RETFIELD = ‘FINYR’

DYNPPROG = SY-REPID

DYNPNR = ‘1000’

DYNPROFIELD = ‘P_FINYR’

VALUE_ORG = ‘S’

MESAS

VALUE_TAB = IT_YEAR

RETURN_TAB = IT_RETURN

DYNPFLD_MAPPING = IT_DYN

Excepciones

PARAMETER_ERROR = 1

NO_VALUES_FOUND = 2

OTRO = 3.

Sobre,

venkat.

elige el nombre kunnr1

ó kna1

en la tabla it_valid.

llamar a la función ‘F4IF_INT_TABLE_VALUE_REQUEST’

exportar

ddic_structure = «Z20S_KNA1»

retfield = ‘CUSTNUM’

• PVALKEY = »

dynpprog = ‘SAPMZ20_CUSTDAY2’

dynpnr = «706»

dynprofield = ‘Z20T_KNA1-CUSTNUM’

• STEPL = 0

• WINDOW_TITLE =

• VALOR = »

value_org = ‘S’

• MULTIPLE_CHOICE = »

• PANTALLA = »

• CALLBACK_PROGRAM = »

• CALLBACK_FORM = »

• MARK_TAB =

• IMPORTANTE

• USER_RESET =

mesas

value_tab = it_valid

• FIELD_TAB =

• RETURN_TAB =

• DYNPFLD_MAPPING =

• Excepciones

• PARAMETER_ERROR = 1

• NO_VALUES_FOUND = 2

• OTRO = 3

.

más sy-subrc <> 0.

ID de mensaje sy-msgid tipo sy-msgty sy-msgno número

por sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

terminara si.

Hola,

Consulte el código a continuación:

DATA: return TYPE TABLE OF ddshretval WITH HEADER LINE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_WERKS-LOW.
SELECT WERKS NAME1 INTO CORRESPONDING FIELDS OF TABLE KUNNSO_ITAB FROM T001W.
DELETE ADJACENT DUPLICATES FROM KUNNSO_ITAB.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'WERKS'
DYNPPROG = SY-REPID
DYNPNR = SY-DYNNR
DYNPROFIELD = 'S_WERKS'
VALUE_ORG = 'S'
multiple_choice="X"
TABLES
VALUE_TAB = KUNNSO_ITAB
return_tab = return.

IF SY-SUBRC 0.
SORT return BY fieldval DESCENDING.
LOOP AT return.
 S_WERKS-low = return-fieldval.
 S_WERKS-option = 'EQ'.
 S_WERKS-sign = 'I'.
 S_WERKS-high = space.
 APPEND S_WERKS.
ENDLOOP.

SORT S_WERKS BY low.
ENDIF.

Gracias,

Sriram Ponna.

Hola

vea este código de muestra que puede entender fácilmente

tables : HRp1001.
TYPES : BEGIN OF ST_OBJID_SH,
OTYPE TYPE HRP1000-OTYPE,
OBJID TYPE HRP1000-OBJID,
END OF ST_OBJID_SH.

DATA : IT_OBJID_SH TYPE STANDARD TABLE OF ST_OBJID_SH.
DATA : WA_OBJID_SH TYPE ST_OBJID_SH.

************SELECTION SCREEN DESIGN************************

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

*SELECT-OPTIONS : S_OTYPE FOR HRP1001-OTYPE NO INTERVALS .
SELECT-OPTIONS : S_OBJID FOR HRP1001-OBJID NO INTERVALS .
SELECT-OPTIONS : DATE FOR SY-DATUM NO-EXTENSION OBLIGATORY.

SELECTION-SCREEN END OF BLOCK B1.

***********END OF SELECTION SCREEN DESIGN******************

**********VALIDATION FOR SCREEN FIELDS*********************

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_OBJID-LOW.

IF S_OBJID IS NOT INITIAL.

SELECT OTYPE OBJID FROM HRP1000
INTO TABLE IT_OBJID_SH
WHERE OTYPE = 'D'.

IF SY-SUBRC EQ 0.

SEARCH HELP FOR QUALIFICATION.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING

DDIC_STRUCTURE = ' '
RETFIELD = 'OBJID'

PVALKEY = ' '
DYNPPROG = SY-REPID
DYNPNR = SY-DYNNR
DYNPROFIELD = 'S_OBJID'

STEPL = 0
WINDOW_TITLE =
VALUE = ' '
VALUE_ORG = 'S'

MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =
TABLES
VALUE_TAB = IT_OBJID_SH

FIELD_TAB =
RETURN_TAB = RETURN_TAB
DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3
.
IF SY-SUBRC 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.

Si encuentra ayuda, dé una recompensa.

Sobre.

Eshwar.

Dios los bendiga,

¿Cómo sé cuándo el usuario cancelará la operación? Quiero decir, cuando se muestra la ayuda de búsqueda y el usuario no selecciona ningún registro. En cambio, cancela la acción.

Hola,

¿Podrías probar este programa? ¿Te ayudaría?

INFORME z_ibo_f4_3.
PARAMETROS:
p_carrid TYPE spfli-carrid,
p_cname TYPE scarr-carrname,
p_url TYPE scarr-url.

SELECCIÓN DE PANTALLA A SOLICITUD DE VALOR PARA p_carrid.

TIPOS: t_return_tab ddshretval TYPE.

TIPOS: COMIENZO DE ty_line,
carrid TIPO spfli-carrid,
carrainm TYPE scarr-carrname,

END ty_line.

DETALLES: it_list TABLA ESTÁNDAR TIPO ty_line,
w_return_tab TYPE t_return_tab,
i_return_tab TIPO TABLA DE ddshretval,
v_repid TYPE sy-repid,
v_dynnr TYPE sy-dynnr.

DETALLES:
it_map TIPO DE TABLA DE CALIDAD Dselc,
wa_map TIPO dselc.

v_repid = sy-repid.
v_dynnr = sy-dynnr.

SELECCIONE carrrain carrid
Oh cicatriz
EN LAS AREAS CORRESPONDIENTES DE LA TABLA it_list.

SI sy-subrc = 0.

wa_map-fldname = «F0001». «Campo para la publicación 1
wa_map-dyfldname = «P_CARRID».
APÉNDICE wa_map TO it_map.

wa_map-fldname = «F0002». «Campo para la publicación 2
wa_map-dyfldname = «P_CNAME».
APÉNDICE wa_map TO it_map.

wa_map-fldname = «F0003». «Campo para la publicación 2
wa_map-dyfldname = «URL».
APÉNDICE wa_map TO it_map.

FUNCIÓN DE APLICACIÓN ‘F4IF_INT_TABLE_VALUE_REQUEST’
EXPORTACIONES
retfield = ‘CARRIDA’
dynpprog = v_repid
dynpnr = v_dynnr
dynprofield = ‘P_CARRID’
value_org = ‘S’
MESAS
value_tab = it_list
RETURN_TAB = i_return_tab

dynpfld_mapping = it_map
Excepciones
parámetro_error = 1
no_values_found = 2
OTRO = 3.
SI sy-subrc = 0.
* LEER LA TABLA it_map
TERMINARA SI.

TERMINARA SI.

Sobre

Ebrahim