How to display this 2 character for date field ( \ \ )

hi friends
it's possible to display the character format in text field after you run the form
plz I need your help
thanks

Hello,
So you mean for the date field you want to show slashes by default. I don't think that forms will support this type of things.
BTW may i know what is the purpose to show like this?
If you use the normal format which is DD/MM/RRRR it will add the slashes automatically. When user will enter date like this 01012010.
-Ammad

Similar Messages

How to display icon symbols for a field in se38 program

HI
IAM VIJAY. PLS GIVE ME THE SOLUTION .
how to display icon symbols for a field in se38 program.
WITH REGARDS.
VIJAY.

Hi
you cab use INCLUDE <ICON> and use standard icons provided by sap.
Sample code:
WRITE /20(2) ICON_DATE AS ICON.
WRITE /20(2) ICON_TIME AS ICON.
WRITE /20(2) ICON_ADDRESS AS ICON.
Thanks!!

How to display blank character if date is not there

Hello abapers,
I need to diaply blank values if Date is not initialized.Not to display zeros.
INstead i need to display spaces.
waiting for ur favourable replies
Regards
Maruthi.

Hi maruthi,
1. For spaces, we will have to take another variables.
2. eg.
REPORT abc.
DATA : dt TYPE sy-datum.
DATA : dts(10) TYPE c.
WRITE : 'Date Normal' , dt.
IF dt IS NOT INITIAL.
WRITE dt TO dts.
ENDIF.
WRITE :/ 'Date Character' , dts.
regards,
amit m.

How to display f4 help for a field based on value of another field

Hello All,
I have 4 fields : Sales Org : VBAK-VKORG, Distrib Channel : RV50A-VTWEG, Div : RV50A-SPART, Sold-to-party : KUAGV-KUNNR.
The second field depends on the first one, the third on the second one and the fourth on the first field.
However, when each of the second third and fourth fields' f4 help is displayed, the values are independent of the previous fields. How do I set the f4 help to display values based on the respective fields?
Regards,
Mithun

Please be sure that you are searching the forums before posting. This exact same question was asked just yesterday:
F4 help to input field
In particular study the section and the linked help document for ddic search helps export/importing parameters and the requirements for DDic Structure/table usage for the parameter mapping.

AdvancedDataGrid - how to display this type of data

I have the following two classes (attached to this message).
I think the AdvancedDataGrid can display it properly.
Basically there can be EmployeeGroups inside of
EmployeeGroups..nested as much as you want. Each group also
contains Employees. I'd like to display these columns:
Name (of group) | Name (of employee) | Dept (of employee)
any help to get started would be great.

"anoweb" <[email protected]> wrote in
message
news:g81cc8$avp$[email protected]..
> so to get things to show up as I wanted I had to add a
"children" property
> to
> my EmployeeGroup (didn't see that anywhere in the
documentation, but I
> noticed
> the Adobe examples have "children" properties).
>
> Obviously it can be more efficient, but it works..which
is the start!
>
> public function get children():ArrayCollection {
> var kids:ArrayCollection = new ArrayCollection();
> for (var i:int=0; i < groups.length; i++) {
> kids.addItem(groups
> }
> for (var i:int=0; i < employees.length; i++) {
> kids.addItem(employees);
> }
> return kids;
> }
Look at HierarchicalData. The children property is pretty
clearly defined
there.
HTH;
Amy

How to set a date range for date field ?

Dear Experts,
Scenario:
I have a query in validating the date field in my BSP application. My application is for maintain infotype 0023 Other/Previous Employers online by employees in the company.
As per our design we are maintaining the all employment details of the employee both ( with in the current company / previous employment outside the company) in the same infotype.
Every employee will have a hiring date within the SAP HR system. We consider this date as the cutoff date between current and previous employment in our application. When the employee updating the details wia BSP page I need to check the following.
Record inside current company: Validation that, the user should only able to enter BEGIN DATE (BEGDA) greater than or equal HIRING DATE and END DATE(ENDDA) should be greater than FROM DATE (BEGDA).
Record outside current Company: Validation that, the user should only able to enter BEGIN DATE (BEGDA) less than or equal HIRING DATE and END DATE (ENDDA) should be greater than FROM DATE (BEGDA) and less than HIRING DATE.
Technical Requirement:
How to set a date range for date field, i.e. how we can limit the date range in a HTMLB date field? Can this it be achieved via standard functionality of HTMLB?
Following is the code to describe date field in my application.
 <htmlb:inputField id= "ENDDA_NEW_IN"
 type= "date"
 doValidate= "TRUE"
 showHelp= "TRUE"
 disabled= "FALSE"
 width= "183"
 style= "cssTextAreadate"
 value= "<%='99991231'%>"/>
Thanks a lot in advance for your assistance and help.
Cibinu2026
Edited by: cibin kuruvilla on Nov 12, 2008 11:13 AM

Hi,
This functionality is known to be very important and is a key part of the next major release of the JRC planned for the first half of 2008.
Regards,
Blair Wheadon
Product Manager, Crystal Reports

How system will automatically populate clearing date field for invoices paid similar to when payments are made to the vendors

Hi SAP Gurus,
Could you help me on this, How system will automatically populate clearing date field for invoices paid similar to when payments are made to the vendors.
Regards
Mohan

Hi Ramakrishnappa,
If you clear the invoice against payment, then the invoice clearing date would be payment document posting date.
Regards,
Mukthar

I have Old Firefox Data folder before i formated my laptop . but i just cant find how to use this folder for my new firefox to regain all the bookmarks i had.

I had some issue with my Firefox (it crashes when i starts), so i format my laptop to factory setting and now i got new Firefox installed and left with this Old Firefox Data folder.
my question is :
Ii understand the profile in my Old Firefox Data contains my Bookmarks and information i previously had before i formatted, i just do not know how to apply this Old Firefox Data to my new Firefox to get what i need.
How do i use Old Firefox Data to restore all my bookmarks and information?

You can move some files from the "Old Firefox Data" folder to the current Firefox profile folder.
*https://support.mozilla.org/kb/Recovering+important+data+from+an+old+profile
*http://kb.mozillazine.org/Transferring_data_to_a_new_profile_-_Firefox
You can use this button to go to the Firefox profile folder:
*Help > Troubleshooting Information > Profile Directory: Show Folder (Linux: Open Directory; Mac: Show in Finder)
It is best to only copy what you need and avoid copying the full profile content.

How to replace blank values in DATE field with 00000000

Hi
I have a DSO with Date field in which there are blank values. I want to replace the blank values in the DSO for date field with 00000000. Because of this blank values in the DSO the report is giving an ORA error.
How do we replace the blank values in the DSO for historical data and also the new loads?
Please advise.
Thank you.
Regards,
Pavan.

Hi Suman,
I'm trying to run a query built on a DSO. The DSO has a field 'Start Date'. This Start Date InfoObject has a reference Char as 0DATE.
This Start Field has blank values due to which I'm getting the ORA-01722 error. I came across many threads with same topic of discussion. As mentioned in one of the Threads I have written a program to update 'Start Date' with 00000000. The code wriiten is "UPDATE /BIC/AZ_MONINV00 SET /BIC/ZSTR_DTE = '00000000' where /BIC/ZSTR_DTE = ' '.
Now when I see the data in the active data table of DSO the blank value is replaced with '00000000'.
But If I right click on the DSO click on display data the 'Start Date' field is blank. And now the Query also gets executed without any error. But in the output of the query the 'Start Date' Field has "#" values.
Can anyone suggest on how to remove these "#" values in the report?

Select-options for date field.

Hi all,
i need to give select options for Date field.How can i give that.
Thanks & Regards
Ravi.

Hi Ravi,
Use the Component WDR_SELECT_OPTIONS to include select options in Web Dynpro ABAP. Follow these steps:
1. In your Component , "Used Componet" tab add Component WDR_SELECT_OPTIONS . Component Use can be any name that you want to give, eg SELECT_OPTIONS
2. Go to the View where you want to include the Date Select Options. I am assuming that you already have an Attribute of Type DATS in your context.
3. View: Properties Tab:Create Controller Usage and select
SELECT_OPTIONS WDR_SELECT_OPTIONS
SELECT_OPTIONS WDR_SELECT_OPTIONS INTERFACECONTROLLER
4. View Layout Tab:Include a View Container. In this view container we will show the Date Select Options.
5. View Attributes Tab: Create Following two attributes:
M_HANDLER type IF_WD_SELECT_OPTIONS
M_WD_SELECT_OPTIONS type IWCI_WDR_SELECT_OPTIONS
6: View Methods Tab: Create a method eg CREATE_SELECTION_SCREEN. Call this method in the WDDOINIT of the view.
7:CREATE_SELECTION_SCREEN: Write following Code:
* Data Declaration
data:
 lt_range_table TYPE REF TO DATA.
data:
 lr_componentcontroller TYPE REF TO IG_COMPONENTCONTROLLER,
 lr_componentusage TYPE REF TO IF_WD_COMPONENT_USAGE.
* Execution
* Create Used Component
lr_componentusage = wd_this->wd_cpuse_select_options( ).
if LR_COMPONENTUSAGE->HAS_ACTIVE_COMPONENT( ) is initial.
 lr_componentusage->create_component( ).
endif.
* Get pointer to interface controller of select options
wd_this->M_WD_SELECT_OPTIONS = wd_this->wd_cpifc_select_options( ).
* initialize selction screen
wd_this->M_HANDLER = wd_this->M_WD_SELECT_OPTIONS->init_selection_screen( ).
* Create Range Table for: Date
CALL METHOD WD_THIS->M_HANDLER->CREATE_RANGE_TABLE
 EXPORTING
 I_TYPENAME = 'DATS'
 RECEIVING
 RT_RANGE_TABLE = lt_range_table.
* Add Selection Field for: Date
CALL METHOD WD_THIS->M_HANDLER->ADD_SELECTION_FIELD
 EXPORTING
 I_ID = '<name of date attribute in the context>'
* I_WITHIN_BLOCK = MC_ID_MAIN_BLOCK
* I_DESCRIPTION =
* I_IS_AUTO_DESCRIPTION = ABAP_TRUE
 IT_RESULT = lt_range_table
* I_OBLIGATORY = ABAP_FALSE
* I_COMPLEX_RESTRICTIONS =
* I_USE_COMPLEX_RESTRICTION = ABAP_FALSE
* I_NO_COMPLEX_RESTRICTIONS = ABAP_FALSE
* I_VALUE_HELP_TYPE = IF_WD_VALUE_HELP_HANDLER=>CO_PREFIX_NONE
* I_VALUE_HELP_ID =
* I_VALUE_HELP_MODE =
* I_VALUE_HELP_STRUCTURE =
* I_VALUE_HELP_STRUCTURE_FIELD =
* I_HELP_REQUEST_HANDLER =
* I_LOWER_CASE =
* I_MEMORY_ID =
* I_NO_EXTENSION = ABAP_FALSE
* I_NO_INTERVALS = ABAP_FALSE
* I_AS_CHECKBOX = ABAP_FALSE
* I_AS_DROPDOWN = ABAP_FALSE
* IT_VALUE_SET =
* I_READ_ONLY = ABAP_FALSE
* I_DONT_CARE_VALUE =
* I_EXPLANATION =
 I_TOOLTIP = 'Select Date'.
8: To Fetch Data entered in the selection field, write following code on action of button click:
data:
 lt_date type REF TO DATA.
FIELD-SYMBOLS:
 <fs_date> TYPE table.
* retrieve Date from Select Options
CALL METHOD WD_THIS->M_HANDLER->GET_RANGE_TABLE_OF_SEL_FIELD
 EXPORTING
 I_ID = '<attrib_name>'
 RECEIVING
 RT_RANGE_TABLE = lt_date.
* assign Date Field Symbol
ASSIGN lt_date->* to <fs_date>.
9: Windows Window Tab: In the View Conatiner, embed the WND_SELECTION_SCREEN view from SELECT_OPTIONS component Usage of WDR_SELECT_OPTIONS component.
Regards,
Reema.

How to create Search Help for a field in Table control !!

Hello Friends,
 I like to know - How to create Search Help for a field in Table control. Is it possible, if it is please share ur knowledge, I wud be happy if U provide some source code example for this.
Thanks,
Senthil

Check the sample code:
*& Include ZSRO_MPRN_SEARCH *
MODULE PSTLZ_F4 INPUT
MODULE pstlz_f4 INPUT.
reading post code
DATA: stepl TYPE systepl,
 stepl_index TYPE systepl.
CLEAR: stepl, stepl_index.
CLEAR: lt_returntab,lt_dynpfields,i_mprn1.
REFRESH: lt_returntab,lt_dynpfields,i_mprn1.
lt_dynpfields-fieldname = 'I_MPRN-POST_CODE'.
lt_dynpfields-stepl = stepl.
APPEND lt_dynpfields. CLEAR lt_dynpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 dyname = sy-repid
 dynumb = sy-dynnr
 translate_to_upper = c_x
 determine_loop_index = c_x
 TABLES
 dynpfields = lt_dynpfields
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 invalid_parameter = 7
 undefind_error = 8
 double_conversion = 9
 stepl_not_found = 10
 OTHERS = 11.
IF sy-subrc EQ 0.
 READ TABLE lt_dynpfields INDEX 1.
ENDIF.
ws_outcode = lt_dynpfields-fieldvalue.
stepl_index = lt_dynpfields-stepl.
REPLACE '*' WITH ' ' INTO lt_dynpfields-fieldvalue.
IF NOT lt_dynpfields-fieldvalue IS INITIAL.
 MOVE lt_dynpfields-fieldvalue TO ws_outcode.
 ws_len = STRLEN( lt_dynpfields-fieldvalue ).
 IF ws_len GE 7.
 ws_len = ws_len - 3.
 ws_icode = ws_code+ws_len(3).
 lt_dynpfields-fieldvalue = lt_dynpfields-fieldvalue+0(ws_len).
 CONCATENATE lt_dynpfields-fieldvalue '%'
 INTO ws_outcode.
 CONDENSE lt_dynpfields-fieldvalue.
 REPLACE ws_icode WITH ' ' INTO lt_dynpfields-fieldvalue.
 ELSE.
 CONCATENATE lt_dynpfields-fieldvalue+0(4) '%'
 INTO ws_outcode.
 ENDIF.
 ws_ocode = ws_code+0(3).
ENDIF.
reading MPRN
CLEAR: lt_returntab,lt_dnpfields,i_mprn1.
REFRESH: lt_returntab,lt_dnpfields,i_mprn1.
lt_dnpfields-fieldname = 'I_MPRN-MPRN'.
lt_dnpfields-stepl = stepl_index.
APPEND lt_dnpfields. CLEAR lt_dnpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 dyname = sy-repid
 dynumb = sy-dynnr
 translate_to_upper = 'X'
 TABLES
 dynpfields = lt_dnpfields
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 invalid_parameter = 7
 undefind_error = 8
 double_conversion = 9
 stepl_not_found = 10
 OTHERS = 11.
IF sy-subrc EQ 0.
 READ TABLE lt_dnpfields INDEX 1.
ENDIF.
MPRN blank and Post code exist
IF lt_dnpfields-fieldvalue IS INITIAL.
 IF NOT lt_dynpfields-fieldvalue IS INITIAL.
 SELECT mprn ser_num sub_bud bud_name del_pt_alias
 bud_num dep_street prin_street dbl_dep_street
 dep_locty post_town county outcode incode
 lg_site_ind file_date FROM zspa_mprn INTO
 CORRESPONDING FIELDS OF TABLE i_mprn1
 WHERE outcode LIKE ws_outcode.
 ELSE.
MPRN blank and Post code blank
 SELECT mprn ser_num sub_bud bud_name del_pt_alias
 bud_num dep_street prin_street dbl_dep_street
 dep_locty post_town county outcode incode
 lg_site_ind file_date FROM zspa_mprn INTO
 CORRESPONDING FIELDS OF TABLE i_mprn1.
 ENDIF.
ELSE.
MPRN exist and Post code exist
 IF NOT lt_dynpfields-fieldvalue IS INITIAL.
 SELECT mprn ser_num sub_bud bud_name del_pt_alias
 bud_num dep_street prin_street dbl_dep_street
 dep_locty post_town county outcode incode
 lg_site_ind file_date FROM zspa_mprn INTO
 CORRESPONDING FIELDS OF TABLE i_mprn1
 WHERE outcode LIKE ws_outcode AND
 mprn EQ lt_dnpfields-fieldvalue.
 ELSE.
MPRN exist and Post code blank
 SELECT mprn ser_num sub_bud bud_name del_pt_alias
 bud_num dep_street prin_street dbl_dep_street
 dep_locty post_town county outcode incode
 lg_site_ind file_date FROM zspa_mprn INTO
 CORRESPONDING FIELDS OF TABLE i_mprn1
 WHERE mprn EQ lt_dnpfields-fieldvalue.
 ENDIF.
ENDIF.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 retfield = 'MPRN'
 dynpprog = sy-repid
 dynpnr = sy-dynnr
 window_title = 'Select MPRN'
 value_org = 'S'
 TABLES
 value_tab = i_mprn1 "lt_mprn
 return_tab = lt_returntab
 EXCEPTIONS
 parameter_error = 1
 no_values_found = 2
 OTHERS = 3.
IF sy-subrc EQ 0.
 READ TABLE lt_returntab INDEX 1.
 READ TABLE i_mprn1 WITH KEY mprn = lt_returntab-fieldval.
 IF sy-subrc EQ 0.
Updating post code
 CONCATENATE i_mprn1-outcode i_mprn1-incode
 INTO ws_postcode
 SEPARATED BY space.
 MOVE ws_postcode TO i_mprn-post_code.
 CLEAR : i_dnpfld,
 ws_dynpfld.
 REFRESH : i_dnpfld.
 ws_dyname = 'ZSRO_MASTER_DATA'.
 ws_dynumb = '0301'.
 ws_dynpfld-fieldname ='I_MPRN-POST_CODE'.
 ws_dynpfld-fieldvalue = ws_postcode .
 ws_dynpfld-stepl = stepl_index.
 APPEND ws_dynpfld TO i_dnpfld.
 CALL FUNCTION 'DYNP_VALUES_UPDATE'
 EXPORTING
 dyname = ws_dyname
 dynumb = ws_dynumb
 TABLES
 dynpfields = i_dnpfld
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 undefind_error = 7
 OTHERS = 8.
 IF sy-subrc <> 0.
 ENDIF.
Updating MPRN
 MOVE i_mprn1-mprn TO i_mprn-mprn.
 CLEAR : i_dnpfld,
 ws_dynpfld.
 REFRESH : i_dnpfld.
 ws_dyname = 'ZSRO_MASTER_DATA'.
 ws_dynumb = '0301'.
 ws_dynpfld-fieldname ='I_MPRN-MPRN'.
 ws_dynpfld-fieldvalue = i_mprn1-mprn .
 ws_dynpfld-stepl = stepl_index.
 APPEND ws_dynpfld TO i_dnpfld.
 CALL FUNCTION 'DYNP_VALUES_UPDATE'
 EXPORTING
 dyname = ws_dyname
 dynumb = ws_dynumb
 TABLES
 dynpfields = i_dnpfld
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 undefind_error = 7
 OTHERS = 8.
 IF sy-subrc <> 0.
 ENDIF.
 ENDIF.
ELSEIF sy-subrc EQ 2.
 MESSAGE s005(zspa) WITH ws_postcode .
ENDIF.
ENDMODULE. "PSTLZ_F4 INPUT
MODULE MPRN_F4 INPUT
MODULE mprn_f4 INPUT.
reading post code
DATA: stepl TYPE systepl,
 stepl_index TYPE systepl.
CLEAR: stepl, stepl_index.
CLEAR: lt_returntab,lt_dynpfields,i_mprn1.
REFRESH: lt_returntab,lt_dynpfields,i_mprn1.
lt_dynpfields-fieldname = 'I_MPRN-POST_CODE'.
lt_dynpfields-stepl = stepl.
APPEND lt_dynpfields. CLEAR lt_dynpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 dyname = sy-repid
 dynumb = sy-dynnr
 translate_to_upper = c_x
 determine_loop_index = c_x
 TABLES
 dynpfields = lt_dynpfields
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 invalid_parameter = 7
 undefind_error = 8
 double_conversion = 9
 stepl_not_found = 10
 OTHERS = 11.
IF sy-subrc EQ 0.
 READ TABLE lt_dynpfields INDEX 1.
ENDIF.
ws_outcode = lt_dynpfields-fieldvalue.
stepl_index = lt_dynpfields-stepl.
REPLACE '*' WITH ' ' INTO lt_dynpfields-fieldvalue.
IF NOT lt_dynpfields-fieldvalue IS INITIAL.
 MOVE lt_dynpfields-fieldvalue TO ws_outcode.
 ws_len = STRLEN( lt_dynpfields-fieldvalue ).
 IF ws_len GE 7.
 ws_len = ws_len - 3.
 ws_icode = ws_code+ws_len(3).
 lt_dynpfields-fieldvalue = lt_dynpfields-fieldvalue+0(ws_len).
 CONCATENATE lt_dynpfields-fieldvalue '%'
 INTO ws_outcode.
 CONDENSE lt_dynpfields-fieldvalue.
 REPLACE ws_icode WITH ' ' INTO lt_dynpfields-fieldvalue.
 ELSE.
 CONCATENATE lt_dynpfields-fieldvalue+0(4) '%'
 INTO ws_outcode.
 ENDIF.
 ws_ocode = ws_code+0(3).
ENDIF.
reading MPRN
CLEAR: lt_returntab,lt_dnpfields,i_mprn1.
REFRESH: lt_returntab,lt_dnpfields,i_mprn1.
lt_dnpfields-fieldname = 'I_MPRN-MPRN'.
lt_dnpfields-stepl = stepl_index.
APPEND lt_dnpfields. CLEAR lt_dnpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 dyname = sy-repid
 dynumb = sy-dynnr
 translate_to_upper = 'X'
 TABLES
 dynpfields = lt_dnpfields
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 invalid_parameter = 7
 undefind_error = 8
 double_conversion = 9
 stepl_not_found = 10
 OTHERS = 11.
IF sy-subrc EQ 0.
 READ TABLE lt_dnpfields INDEX 1.
ENDIF.
MPRN blank and Post code exist
IF lt_dnpfields-fieldvalue IS INITIAL.
 IF NOT lt_dynpfields-fieldvalue IS INITIAL.
 SELECT mprn ser_num sub_bud bud_name del_pt_alias
 bud_num dep_street prin_street dbl_dep_street
 dep_locty post_town county outcode incode
 lg_site_ind file_date FROM zspa_mprn INTO
 CORRESPONDING FIELDS OF TABLE i_mprn1
 WHERE outcode LIKE ws_outcode.
 ELSE.
MPRN blank and Post code blank
 SELECT mprn ser_num sub_bud bud_name del_pt_alias
 bud_num dep_street prin_street dbl_dep_street
 dep_locty post_town county outcode incode
 lg_site_ind file_date FROM zspa_mprn INTO
 CORRESPONDING FIELDS OF TABLE i_mprn1.
 ENDIF.
ELSE.
MPRN exist and Post code exist
 IF NOT lt_dynpfields-fieldvalue IS INITIAL.
 SELECT mprn ser_num sub_bud bud_name del_pt_alias
 bud_num dep_street prin_street dbl_dep_street
 dep_locty post_town county outcode incode
 lg_site_ind file_date FROM zspa_mprn INTO
 CORRESPONDING FIELDS OF TABLE i_mprn1
 WHERE outcode LIKE ws_outcode AND
 mprn EQ lt_dnpfields-fieldvalue.
 ELSE.
MPRN exist and Post code blank
 SELECT mprn ser_num sub_bud bud_name del_pt_alias
 bud_num dep_street prin_street dbl_dep_street
 dep_locty post_town county outcode incode
 lg_site_ind file_date FROM zspa_mprn INTO
 CORRESPONDING FIELDS OF TABLE i_mprn1
 WHERE mprn EQ lt_dnpfields-fieldvalue.
 ENDIF.
ENDIF.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 retfield = 'MPRN'
 dynpprog = sy-repid
 dynpnr = sy-dynnr
 window_title = 'Select MPRN'
 value_org = 'S'
 TABLES
 value_tab = i_mprn1 "lt_mprn
 return_tab = lt_returntab
 EXCEPTIONS
 parameter_error = 1
 no_values_found = 2
 OTHERS = 3.
IF sy-subrc EQ 0.
 READ TABLE lt_returntab INDEX 1.
 READ TABLE i_mprn1 WITH KEY mprn = lt_returntab-fieldval.
 IF sy-subrc EQ 0.
Updating MPRN
 MOVE i_mprn1-mprn TO i_mprn-mprn.
 CLEAR : i_dnpfld,
 ws_dynpfld.
 REFRESH : i_dnpfld.
 ws_dyname = 'ZSRO_MASTER_DATA'.
 ws_dynumb = '0301'.
 ws_dynpfld-fieldname ='I_MPRN-MPRN'.
 ws_dynpfld-fieldvalue = i_mprn1-mprn .
 ws_dynpfld-stepl = stepl_index.
 APPEND ws_dynpfld TO i_dnpfld.
**code changed by laxman 10.08.2005
 ws_dynpfld-stepl = mprn-current_line.
**code changed by laxman 10.08.2005
 CALL FUNCTION 'DYNP_VALUES_UPDATE'
 EXPORTING
 dyname = ws_dyname
 dynumb = ws_dynumb
 TABLES
 dynpfields = i_dnpfld
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 undefind_error = 7
 OTHERS = 8.
 IF sy-subrc <> 0.
 ENDIF.
Updating post code
 CONCATENATE i_mprn1-outcode i_mprn1-incode
 INTO ws_postcode
 SEPARATED BY space.
 MOVE ws_postcode TO i_mprn-post_code.
 CLEAR : i_dnpfld,
 ws_dynpfld.
 REFRESH : i_dnpfld.
 ws_dyname = 'ZSRO_MASTER_DATA'.
 ws_dynumb = '0301'.
 ws_dynpfld-fieldname ='I_MPRN-POST_CODE'.
 ws_dynpfld-fieldvalue = ws_postcode .
 ws_dynpfld-stepl = stepl_index.
 APPEND ws_dynpfld TO i_dnpfld.
**code changed by laxman 10.08.2005
 break gblap0.
 ws_dynpfld-stepl = mprn-current_line.
 LOOP AT i_mprn.
 MOVE i_mprn1-mprn TO i_mprn-mprn.
 MOVE ws_postcode TO i_mprn-post_code.
 MODIFY i_mprn INDEX
 mprn-current_line." transporting MPRN POST_CODE.
 ENDLOOP.
**code changed by laxman 10.08.2005
 CALL FUNCTION 'DYNP_VALUES_UPDATE'
 EXPORTING
 dyname = ws_dyname
 dynumb = ws_dynumb
 TABLES
 dynpfields = i_dnpfld
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 undefind_error = 7
 OTHERS = 8.
 IF sy-subrc <> 0.
 ENDIF.
 ENDIF.
ELSEIF sy-subrc EQ 2.
 MESSAGE s006(zspa) WITH i_mprn1-mprn .
ENDIF.
ENDMODULE. "MPRN_F4 INPUT
MODULE GNTC_F4 INPUT
MODULE gntc_f4 INPUT.
DATA: BEGIN OF lt_gntc OCCURS 0,
 gntc LIKE iflot-zzgntc,
 END OF lt_gntc.
CLEAR: lt_returntab, lt_gntc.
REFRESH: lt_returntab, lt_gntc.
lt_gntc-gntc = 'DM'.
APPEND lt_gntc. CLEAR lt_gntc.
lt_gntc-gntc = 'NDM'.
APPEND lt_gntc. CLEAR lt_gntc.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 retfield = 'ZZGNTC'
 dynpprog = sy-repid
 dynpnr = sy-dynnr
 window_title = 'Select Gas Nomination Type Code'
 value_org = 'S'
 TABLES
 value_tab = lt_gntc
 return_tab = lt_returntab
 EXCEPTIONS
 parameter_error = 1
 no_values_found = 2
 OTHERS = 3.
IF sy-subrc EQ 0.
 READ TABLE lt_returntab INDEX 1.
 i_mprn-dm_ndm = lt_returntab-fieldval.
ENDIF.
ENDMODULE. "GNTC_F4 INPUT
*& Module mprn1_f4 INPUT
 text
MODULE mprn1_f4 INPUT.
DATA: lt_f4 TYPE ddshretval OCCURS 0 WITH HEADER LINE,
 lt_returntab1 LIKE ddshretval OCCURS 0 WITH HEADER LINE,
 lt_dynpfields1 LIKE dynpread OCCURS 0 WITH HEADER LINE,
 lt_dnpfields1 LIKE dynpread OCCURS 0 WITH HEADER LINE.
DATA: stepl1 TYPE systepl,
 stepl_index1 TYPE systepl.
DATA : i_dnpfld1 LIKE dynpread OCCURS 0 WITH HEADER LINE,
 ws_dyname1 LIKE d020s-prog,
 ws_dynumb1 LIKE d020s-dnum,
 ws_dynpfld1 LIKE dynpread.
CLEAR: i_dnpfld1, ws_dyname1, ws_dynumb1, ws_dynpfld1,
 lt_f4, lt_returntab1,lt_dynpfields1, lt_f4,
 stepl1, stepl_index1.
REFRESH: i_dnpfld1, lt_returntab1,lt_dynpfields1, lt_f4.
To Determine Steploop Index
lt_dynpfields1-fieldname = 'I_MPRN-POST_CODE'.
lt_dynpfields1-stepl = stepl1.
APPEND lt_dynpfields1. CLEAR lt_dynpfields1.
CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 dyname = sy-repid
 dynumb = sy-dynnr
 translate_to_upper = 'X'
 determine_loop_index = 'X'
 TABLES
 dynpfields = lt_dynpfields1
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 invalid_parameter = 7
 undefind_error = 8
 double_conversion = 9
 stepl_not_found = 10
 OTHERS = 11.
IF sy-subrc EQ 0.
 READ TABLE lt_dynpfields1 INDEX 1.
ENDIF.
stepl_index1 = lt_dynpfields1-stepl.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
 EXPORTING
 tabname = 'IFLOT'
 fieldname = 'I_MPRN-MPRN'
 searchhelp = 'ZS_MPRN_PC'
 dynpprog = sy-repid
 dynpnr = sy-dynnr
 TABLES
 return_tab = lt_f4
 EXCEPTIONS
 field_not_found = 1
 no_help_for_field = 2
 inconsistent_help = 3
 no_values_found = 4
 OTHERS = 5.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
Update tablecontrol
READ TABLE lt_f4 WITH KEY fieldname = 'MPRN'.
IF sy-subrc = 0.
 MOVE lt_f4-fieldval TO i_mprn-mprn.
 ws_dyname1 = 'ZSRO_MASTER_DATA'.
 ws_dynumb1 = '0301'.
 ws_dynpfld1-fieldname ='I_MPRN-MPRN'.
 ws_dynpfld1-fieldvalue = i_mprn-mprn.
 ws_dynpfld1-stepl = stepl_index1.
 APPEND ws_dynpfld1 TO i_dnpfld1.
 CALL FUNCTION 'DYNP_VALUES_UPDATE'
 EXPORTING
 dyname = ws_dyname1
 dynumb = ws_dynumb1
 TABLES
 dynpfields = i_dnpfld1
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 undefind_error = 7
 OTHERS = 8.
 IF sy-subrc <> 0.
 ENDIF.
ENDIF.
CLEAR : i_dnpfld1, ws_dynpfld1.
REFRESH: i_dnpfld1.
READ TABLE lt_f4 WITH KEY fieldname = 'ZZPSTLZ'.
IF sy-subrc = 0.
 MOVE lt_f4-fieldval TO i_mprn-post_code.
 ws_dyname1 = 'ZSRO_MASTER_DATA'.
 ws_dynumb1 = '0301'.
 ws_dynpfld1-fieldname ='I_MPRN-POST_CODE'.
 ws_dynpfld1-fieldvalue = i_mprn-post_code.
 ws_dynpfld1-stepl = stepl_index1.
 APPEND ws_dynpfld1 TO i_dnpfld1.
 CALL FUNCTION 'DYNP_VALUES_UPDATE'
 EXPORTING
 dyname = ws_dyname1
 dynumb = ws_dynumb1
 TABLES
 dynpfields = i_dnpfld1
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 undefind_error = 7
 OTHERS = 8.
 IF sy-subrc <> 0.
 ENDIF.
ENDIF.
ENDMODULE. " mprn1_f4 INPUT
*& Module pstlz1_f4 INPUT
 text
MODULE pstlz1_f4 INPUT.
CLEAR: i_dnpfld1, ws_dyname1, ws_dynumb1, ws_dynpfld1,
 lt_f4, lt_returntab1,lt_dynpfields1, lt_f4,
 stepl1, stepl_index1.
REFRESH: i_dnpfld1, lt_returntab1,lt_dynpfields1, lt_f4.
To Determine Steploop Index
lt_dynpfields1-fieldname = 'I_MPRN-MPRN'.
lt_dynpfields1-stepl = stepl1.
APPEND lt_dynpfields1. CLEAR lt_dynpfields1.
CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 dyname = sy-repid
 dynumb = sy-dynnr
 translate_to_upper = 'X'
 determine_loop_index = 'X'
 TABLES
 dynpfields = lt_dynpfields1
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 invalid_parameter = 7
 undefind_error = 8
 double_conversion = 9
 stepl_not_found = 10
 OTHERS = 11.
IF sy-subrc EQ 0.
 READ TABLE lt_dynpfields1 INDEX 1.
ENDIF.
stepl_index1 = lt_dynpfields1-stepl.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
 EXPORTING
 tabname = 'IFLOT'
 fieldname = 'I_MPRN-POST_CODE'
 searchhelp = 'ZS_MPRN_PC'
 dynpprog = sy-repid
 dynpnr = sy-dynnr
 TABLES
 return_tab = lt_f4
 EXCEPTIONS
 field_not_found = 1
 no_help_for_field = 2
 inconsistent_help = 3
 no_values_found = 4
 OTHERS = 5.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
Update tablecontrol
READ TABLE lt_f4 WITH KEY fieldname = 'ZZPSTLZ'.
IF sy-subrc = 0.
 MOVE lt_f4-fieldval TO i_mprn-post_code.
 ws_dyname1 = 'ZSRO_MASTER_DATA'.
 ws_dynumb1 = '0301'.
 ws_dynpfld1-fieldname ='I_MPRN-POST_CODE'.
 ws_dynpfld1-fieldvalue = i_mprn-post_code.
 ws_dynpfld1-stepl = stepl_index1.
 APPEND ws_dynpfld1 TO i_dnpfld1.
 CALL FUNCTION 'DYNP_VALUES_UPDATE'
 EXPORTING
 dyname = ws_dyname1
 dynumb = ws_dynumb1
 TABLES
 dynpfields = i_dnpfld1
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 undefind_error = 7
 OTHERS = 8.
 IF sy-subrc <> 0.
 ENDIF.
ENDIF.
CLEAR : i_dnpfld1, ws_dynpfld1.
REFRESH: i_dnpfld1.
READ TABLE lt_f4 WITH KEY fieldname = 'MPRN'.
IF sy-subrc = 0.
 MOVE lt_f4-fieldval TO i_mprn-mprn.
 ws_dyname1 = 'ZSRO_MASTER_DATA'.
 ws_dynumb1 = '0301'.
 ws_dynpfld1-fieldname ='I_MPRN-MPRN'.
 ws_dynpfld1-fieldvalue = i_mprn-mprn.
 ws_dynpfld1-stepl = stepl_index1.
 APPEND ws_dynpfld1 TO i_dnpfld1.
 CALL FUNCTION 'DYNP_VALUES_UPDATE'
 EXPORTING
 dyname = ws_dyname1
 dynumb = ws_dynumb1
 TABLES
 dynpfields = i_dnpfld1
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 undefind_error = 7
 OTHERS = 8.
 IF sy-subrc <> 0.
 ENDIF.
ENDIF.
ENDMODULE. " pstlz1_f4 INPUT
Regards,
Prakash.

How to create a Tip for a field in a Descriptive Flex Field in Self Service

How to create a Tip for a field in a Descriptive Flex Field in Self Service ?
Example :
For Address
Each Address Line should have one Tip.
What should I do ?
Thanks,
John

Hi John,
It seems you have created Address Location DFF in self service in OA Framework.....
I have created a Address Location flex in OA Framework . It dipslays the segments properly but i dont want to display the segments if they dont have any value.
I only want to display segments with values . The segments with null values should not display at all...
i.e , if Address Line 2 value is null , it should not display Address Line 2..
If you have done this, pls let me know how to go abt it.
Thanks in Advance,
Tanveer

How to create value request for screen field text box tt1

How to create value request for screen field text box tt1
i have a text box name tt1,
i want f4 help for that .
remember i am asking for screen i.e done from screen layout not selectio-screen.
Thank you,
Regards,
Jagrut Bharatkumar Shukla,

Hi,
Create one Search Help in the SE11 for the particular Field that u want to display. In the Screen(Transaction SE51),For that Text Box in the Attributes,in Dict Tab ->Search Help Field give that Search Help Name.
For Eg,
If u want Purchase Order Numbers in that F4 Help.Create one Search Help by giving Table Name as EKKO & Search Help Parameter as EBELN with Lpos & Rpos as 0 & 1.Save & Activate it.
Give this Search Help Name in Dict Tab ->Search Help Field of that Screen Attributes.
Regards,
Padmam.

How to add search help for standard field LIKP-TRAID

Hi friends,
How to add search help for standard field LIKP-TRAID ,
refer screen
Program Name SAPMV50A
Screen Number 2108
TrnsIDCode ( LIKP-TRAID ) ..
I need to add a search help, so that i can retrieve data from Ztable.
Thanks.
Abhi

Hi Abhi,
Try using any one option:
Create a Search Help in SE11.
Now Goto SE11 -> Enter Ztable -> Select that field -> Click Search Help and try to assign the created Search help to that field in your Ztable explicitly
OR
Create a Zdata element in SE11.
In Data Element, under Further Characteristics tab, enter Name Parameters of Search Help.
Assign this data element to that field in ur Ztable.
OR
Create a Zdomain and maintain a Value Table or Fixed Values for it.
Assign this domain to that field in ur Ztable.

How to display 7 values of single field in row wise.

hi,
how to display 7 values of single field in row wise.
thankx in advance.

hi ,
do it like this :
1 Place ur UI element in tranparent container with Layout as Row Data and Layout Data as Row Head Data
2 Ur first UI , which contains the first value as Row Head Data ,
3 Others as Row Data
u can do it with Matrix Data as well
if u want to give space , u can use HORIZONTAL GUTTER and set its width to medium / large / Xlarge
also there is a UI element "INVISIBLE ELEMENT" ,
1 u can use this UI element to provide space between ur other UI elements in the view
2 u can insert a text element as well , and in the Text property of the element press ALT + 0160.
u can give the space bw UIs as desired.
regards,
amit

How to display this 2 character for date field ( \ \ )

Similar Messages

Maybe you are looking for