‎2008 May 31 9:19 AM
Hi Gurus,
How to do automatic field checks (validations) in module pool
sekhar
‎2008 May 31 9:30 AM
‎2008 May 31 9:33 AM
‎2008 May 31 9:34 AM
your screen then create it in your main program.
You declare the module in the PROCESS ON VALUE-REQUEST.
PROCESS ON VALUE-REQUEST.
FIELD TXT_DOCNO MODULE VALUE_BELNR.
You also need to create an internal table where you wil store results of the select query fired below in the module.
here you will get a F4 help on the filed Document Number(TXT_DOCNO) based on the field Company code (TXT_CODCO)
MODULE VALUE_BELNR INPUT.
progname = sy-repid.
dynnum = sy-dynnr.
CLEAR: field_value, dynpro_values.
field_value-fieldname = 'TXT_CODCO'.
APPEND field_value TO dynpro_values.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = 'BKPF'
fieldname = 'BUKRS'
dynpprog = progname
dynpnr = dynnum
dynprofield = 'TXT_CODCO'.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = progname
dynumb = dynnum
translate_to_upper = 'X'
TABLES
dynpfields = dynpro_values.
READ TABLE dynpro_values INDEX 1 INTO field_value.
SELECT BUKRS BELNR
FROM BKPF
INTO CORRESPONDING FIELDS OF TABLE it_doc1
WHERE BUKRS = field_value-fieldvalue.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'BELNR'
dynpprog = progname
dynpnr = dynnum
dynprofield = 'TXT_BELNR'
value_org = 'S'
TABLES
value_tab = it_doc1.
ENDMODULE. " VALUE_BELNR INPUT
‎2008 May 31 10:33 AM
hi,
make the fields mandatory.
and attach searchelp to the fields.
Regards
Sandeep Reddy
‎2008 May 31 11:16 AM
hi shekhar,
if you directly assign data dictionary fields then ,automatic check gets performed...
‎2008 May 31 12:29 PM
Hiii..
Chain.
field : field_name module module_name.
endchain.
you can check perticular field by this way..
regards
Manish.
‎2008 Jun 02 6:30 AM
hi,
chain - endchain.
chain.
field sflight-carrid values ('LH' ).
field sflight-Connid values ( between '200 and '500').
endchain.
Edited by: Rajyalakshmi Attili on Jun 2, 2008 11:01 AM