Date in Screen painter

Hi All,
I have designed a simple screen in which i have a date field.
i want the date field(current date) to be displayed automatically when i execute the transaction.
i have used sy-datum in PBO. but i am not able to get it in to the screen automatically when i execute it.
Regards,
Sudhir

Hi,
First of all you need a field on screen which either refers to some DDIC date field or is explicitly typed D.
- add your field and name it my_date
- go to attributes of field and choose from format - DATS
- in program declare data my_date type d.
i have used sy-datum in PBO
As for the default value you should use INITIALIZATION instead of PBO. This is beacuse if you change your date in screen field it will keep changing back to default one after dialog step is conculded (next PBO will be reached and you field will receive again default date). So you need to do it here.
INITIALIZATION.
my_date = sy-datum.
It will ensure that only once your field is set to default (today date) and next time user make any input it will overwrite the default one.
Regards
Marcin

Similar Messages

Data type in screen painter

hi,
if table column is numc but in screen painter i define as char, can the number appear? i tested it cannot show the number.
thanks

It will not show you the number because the default number as zero will appear as space.
It depends upon how you declare in your internal table but it will not show
Please reward if useful.

F4_FILENAME in search help in screen painter

Hello gurus,
I want to design a screen in which the text input field is used to get file name. For that i need to enable file search in local folders and drives with f4 key press. I wish to use the functionality of function module 'F4_FILENAME" in screen painter. How can i do that?
I tried creating search help for RLGRAP structure. It compiles fine but gives the message 'No inout for selection'.
What should i do?

Thank you all,
The problem has been solved.
I am posting the final code.
1. In se38, i created program zprogram.
2. In se51, i created a screen for the program zprogram.
3. In layout, i took 2 buttons and one input/output field.
1st button for import and 2nd button for exit.
4.In flow logic-
i wrote the follwing code.
PROCESS BEFORE OUTPUT.
MODULE STATUS_100.
PROCESS AFTER INPUT.
PROCESS ON VALUE-REQUEST.
FIELD FILENAME1 MODULE F4_FILE_SEARCH.
5. IN THE MAIN PROGRAM
i wrote the following code-
REPORT ZPROGRAM.
DATA: FILENAME1 TYPE RLGRAP-FILENAME,
           OK_CODE TYPE SY-UCOMM.
CALL SCREEN 100.
MODULE F4_FILE_SEARCH INPUT.
OK_CODE = SY-UCOMM.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
    FIELD_NAME         = 'FILENAME1'
IMPORTING
    FILE_NAME           = FILENAME1
ENDMODULE.
MODULE STATUS_100 OUTPUT.
CASE OK_CODE.
WHEN 'IMPORT'.
MESSAGE 'THE FILE IS RECIEVED' TYPE 'I'.
WHEN 'CANCEL'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.
I REFERRED TO THE DEMO PROGRAM MENTIONED
IN OTHER POST
NAME OF THE DEMO PROGRAM IS - DEMO_DYNPRO_F4_HELP_MODULE

How to create a drop down box and text box in screen painter?

Hi i am totally new to this concept of screen painter..please can any tell me
how to create drop down box in screen painter?
How to create or display default date and time values?
How to create text box for giving comments?
How to store the records that we are entering in a table?
Please can any one send me the procedure for creating all these its very urgent useful information will be surely rewarded.

Hi,
Check all these.
1.how to create drop down box in screen painter?
To get Drop Drown Box on screen .
Follow these steps.
1.
Go to T.Code SE51 and Select Laypout for the Screen.
2.
Double click on the field for which u want Dropdown box.
3.
Then U will see Name ,Text ,DROPDOWN.Click on that and select List Box or ListBox with key . Better to to select first one.
4.
Save and Activate ur screen .
5.
Enter the following piece of code in the PBO of the screen.(Change for ur requirement).
6.
The following code should be written under PROCESS BEFORE EVENT in the MODULE.
TYPE-POOLS :vrm.
DATA:
i_natio TYPE vrm_values, "-->Table that is passed through FM vrm_set_values
w_natio LIKE LINE OF i_natio.
DATA:
BEGIN OF i_t005t OCCURS 0,
    land1 TYPE t005t-land1,
    natio TYPE t005t-natio,
END OF i_t005t.
IF i_t005t[] IS INITIAL.
SELECT land1 natio
     FROM t005t
       INTO TABLE i_t005t
   WHERE spras = sy-langu.
IF sy-subrc = 0.
LOOP AT i_t005t .
      w_natio-key = i_t005t-land1.
      w_natio-text = i_t005t-natio.
      APPEND w_natio TO i_natio.
      CLEAR w_natio.
ENDLOOP.
ENDIF.
ENDIF.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
                      id = 'I_IT0002-NATIO' "-->Field for which dropdown is needed.
                values = i_natio
EXCEPTIONS
   id_illegal_name = 1
            OTHERS = 2.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
2.1.How to create or display default date and time values?
1.
create input field for DATE and TIME on screen.ex. DATE1 and TIME1 are screen field names .
2.
Just assign SY-DATUM to DATE1 and SY-UZEIT to TIME1 under PROCESS BEFORE EVENT.
3.How to create text box for giving comments?
1.
Define one variable in the TOP include with type STRING means Global variable.
2.
Create one input field by giving screen field name which u have defined in the above step.
4.How to store the records that we are entering in a table?
For this case.. Create one table control. you can select one record and create record in the Z table by pressing button on Application toolbar..
Check the following steps to handle Table control.
1).
U should take one variable in your internal table or in structure which
is used for table control fields
ex :
data :
begin of itab occurs 0 ,
    mark type c , "This is to select the record.
    matnr like mara-matnr ,
    matkl like mara-matkl,
    maktx like makt-maktx,
end of itab .
Controls: TABC types TABLEVIEW using screen 100.
2).
This mark variable should be given in Table control properties.
follow the path
double click on the table control-->attributes .->select
w/SelColumn and in that itab-mark. Check in the figure.
[Table control properties screen|http://bp2.blogger.com/_O5f8iAlgdNQ/R99gOUH8CXI/AAAAAAAAA9I/d3gOum1fJ6s/s1600-h/pic28145-796618.jpg]
3).
After that. Take this example.
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
LOOP AT ITAB WITH CONTROL tabc
ENDLOOP.
PROCESS AFTER INPUT.
MODULE CANCEL AT EXIT-COMMAND.
LOOP AT ITAB.
   Module read_table_control.
ENDLOOP.
module user_command_0100.
In this Module read_table_control, You should write the following code
MODULE read_table_control INPUT.
MODIFY itab INDEX tabc-current_line."( This will update the
"ITAB table MARK field with 'X ' whatever we have selected
"on table control.)
ENDMODULE.
4)
If you want to Delete some of the records from Table control
follow this code Create one pushbutton and give Fucnction code to that
and write below code
CASE OKCODE.
WHEN 'CREATE'.
LOOP AT itab WHERE mark = 'X'.
"Use UPDATE statement to create new record.
ENDLOOP.
ENDCASE.
I hope that you will get something.
Regards,
Venkat.O

Is there any possible to display the text in big font in screen painter

HI all!
i want to display the text in the large size in the text field in the screen painter in the odule pool programing.Is there any possible.What i have to do in the screen painter to display the text in the large size.Also is there any possible to put the color for the text.Give me reply

HI
CALL METHOD o_dyndoc_id->initialize_document
      EXPORTING
        background_color = cl_dd_area=>col_tree_level1.
    DATA : dl_text(255) TYPE c. "Text
    CALL METHOD o_dyndoc_id->add_text
      EXPORTING
        text         = 'Flight Details'
        sap_style    = cl_dd_area=>heading
        sap_fontsize = cl_dd_area=>large
        sap_color    = cl_dd_area=>list_heading_int.
* Display document
    CALL METHOD o_dyndoc_id->display_document
      EXPORTING
        reuse_control      = 'X'
        parent             = cont
      EXCEPTIONS
        html_display_error = 1.
    IF sy-subrc NE 0.
    ENDIF.
by using these methods you can achieve i hope..
have a good day.
regards
sarves

How to insert tabstrip control in module pool screen painter

Hi all!
plz tell e how to use tabstrip control in module pool screen painter.Also plz give me an example program using tabstrip control.

To insert tabstrip just open layout of screen and press on the tabstrip button there .
Use this souce code further to activate it .
CONTROLS tabstrip TYPE TABSTRIP.
DATA: okcode TYPE sy-ucomm,
dynnr TYPE sy-dynnr,
flag type flag,
active like tabstrip-activetab .
call SCREEN 100.
*& Module USER_COMMAND_0100 INPUT
text
MODULE USER_COMMAND_0100 INPUT.
data: lv_okcode type syucomm.
lv_okcode = okcode.
clear okcode.
case lv_okcode.
WHEN 'TAB1'.
dynnr = '0110'.
WHEN 'TAB2'.
dynnr = '0120'.
WHEN 'TAB3'.
dynnr = '0130'.
WHEN 'TAB4'.
dynnr = '0140'.
WHEN 'TAB5'.
"check authorization, if authorization fails
flag = 'X'. "set the global flag
active = 'TAB1'. "store active tab in global variable
dynnr = '0110'. "set the screen number
WHEN 'BACK' or 'EXIT'.
leave program.
ENDCASE.
IF lv_okcode(3) = 'TAB'.
tabstrip-activetab = lv_okcode.
ENDIF.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Module STATUS_0100 OUTPUT
text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'MAIN'.
SET TITLEBAR 'xxx'.
IF tabstrip-activetab IS INITIAL OR
dynnr IS INITIAL.
tabstrip-activetab = 'TAB1'.
dynnr = '0110'.
ENDIF.
"set the activetab explicilty here
if flag eq 'X'. "from authorization failure
tabstrip-activetab = active. "'TAB1'
clear flag.
endif.
ENDMODULE. " STATUS_0100 OUTPUT

How to read the contents of Input Field created via Screen Painter?

Hi All,
I have a module program / dialog program, on my second screen, I created an input/outbox field via screen painter of course,
now in my PAI, how can I read the contents of the input/outbox field?
Let's say the name of my input/outbox field is: P_WEKRS. Note: Get Parameter and Set Parameter is ticked.
PROCESS AFTER INPUT.
LOOP WITH CONTROL TC_DATA.
MODULE MODIFY_DATA.
ENDLOOP.
I want to get the value of the input/outbox field before my loop in table control? I thought that it will work like normal parameter in non-dialog programs.
Any helpful inputs will be appreciated/rewarded.
Thanks.
Jaime

Hi, Jaime
Do the following Change in you Follow Logic
PROCESS AFTER INPUT.
MODULE read_or_change_value. " Add this
LOOP WITH CONTROL TC_DATA.
MODULE MODIFY_DATA.
ENDLOOP.
Add the Bellow Module code in you Driver Program.
MODULE read_or_change_value.
DATA: P_WEKRS like " the Field on Screen. Must be the same name as on SCREEN. and Type must be same too.
" Here you will find the Value in that Variable or if you will change the Value here you will find it change on Screen
END MODULE.
Please Reply if any Issue..
Best Regards,
Faisal

Screen compression problems in sales order additional data b screens

When i enter va01 for the slaes order he screens are:
SAPMV45A8309, Sales Document Header - User Exit Header
SAPMV45A8459, Sales doc. Item - User exit item
Use screen painter to change them. (transaction SE51)
what happened is that i have four boxes in additional data b subscreens and i am calling another sub screen 9801 which contains table control what happened is that while run time i am getting gap in the boex of screen 8459, how to compreess the boxes or spaces to accomodate the table control.
very urgent pls.....
regards
subba

Thanks for your reply , Actually i am calling 9801 sub screen with table control on to 8459 sub screen(sapmv45a program)
still the problemm remains the same. I am using the code as below.zie,z01,zia are all modification groups to hide the boxes in the 8459 screen, pls check my code and revert back   urgently urgently.....
PROCESS BEFORE OUTPUT.
                           Verarbeitung vor der Ausg
    MODULE ZZ_GET_TEXT.
   MODULE ZZ_FIELD_SETTINGS.
CALL SUBSCREEN ZZAUDIT INCLUDING 'SAPMV45A' '9801'.
PROCESS AFTER INPUT.
   CALL SUBSCREEN ZZAUDIT.
MODULE    ZZ_FIELD_SETTINGS OUTPUT.
LOOP AT SCREEN.
Determine main grouping based upon mod group 3 field.
    CASE SCREEN-GROUP3.
      WHEN 'ZIA'.                    " Orbit /interface architecture.
        PERFORM ZZ_FIELD_ZIA.
      WHEN 'ZIE'.                  " ERI interface.
        PERFORM ZZ_FIELD_ZIE.
      WHEN 'Z01'. " Generic -Relevant for all interfaces potentially.
        PERFORM ZZ_FIELD_Z01.
    ENDCASE.
Handle display of contract versus other doc types.
    IF VBAK-VBTYP EQ 'G'.       "Contract doc type.
      IF SCREEN-GROUP4 NE 'Z02'.
        SCREEN-ACTIVE = 0. " field not relevant for contract display.
      ENDIF.
    ELSE.                    "other doc types.
      IF SCREEN-GROUP4 EQ 'Z02'.
      Field not relevant for non-contract display.
        SCREEN-ACTIVE = 0.
      ENDIF.
    ENDIF.
FORM ZZ_FIELD_ZIE.
IF NOT VBAK-AUART IN ZZR_AUART.
IA related Doc Type - Hide ERI fields
    SCREEN-ACTIVE = 0.
ELSE.
IF SY-BINPT NE 'X'.         " Not Processing in BDC Mode
    SCREEN-INPUT = 0.         " Turn Off Input Ability
ENDIF.
    CASE SCREEN-GROUP4.
      WHEN 'ZAU'.                " Audit Toggle Related
       IF zzshowaudit NE 'X'.
         screen-active = 0.
       ENDIF.
      WHEN 'ENA'.
        SCREEN-INPUT   = 1.
      WHEN 'ZTS'.
        IF SY-SYSID EQ 'DV2'.
          SCREEN-INPUT = 1.      " Testing Allowed in Development
        ENDIF.
    ENDCASE.
ENDIF.
FORM ZZ_FIELD_ZIA.
IF VBAK-AUART IN ZZR_AUART.
ERI related Doc Type -Hide IA related fields
    SCREEN-ACTIVE = 0.
ELSE.
    CASE SCREEN-GROUP1.
      WHEN '001'.                             "0902 specific fields
      WHEN '002'.                              "0902 WebCore fields
        IF VBAK-VKORG NE '0902' AND
            VBAK-VKORG NE '0903' AND
            VBAK-VKORG NE '0917'.
          SCREEN-INPUT = 0.
        ENDIF.
      WHEN '003'.                              "0917 specific fields
        IF VBAK-VKORG NE '0917'.
          SCREEN-INPUT = 0.
        ENDIF.
      WHEN '999'.                             "Generic Fields
        IF VBAK-VKORG EQ '0917' OR
           VBAK-VKORG EQ '0902' OR
           VBAK-VKORG EQ '0903'.

How to run the query in screen painter

i am using the patch 36 in business one so pls give information about
how to run the query in screen painter
regard
sandip adhav

Hope u have reached Screen painter interface,
1. Click 'Add Grid' from tool bar.
2. Go to 'Collections' tab in 'Properties' window.
3. Choose 'Data Tables' from the Drop down list.
4. Click 'New' found at the bottom of the Properties Window(same window)
5. U'll find the place to insert ur query.
6. U can rename the table name from 'DT_0'
7. Choose type as 'Query'
8. Clear content from box 'Query'
9. Enter ur query there. Dont forget to Click 'SET'
10. Go to Preview option from tool bar.
now ur query will be displayed as table format.
Note: First try with simple query b4 going for linking option.
Regards,
Dhana.

'Screen Group' in Screen Painter, & 'Search help Exit'

Hii All,
1. What is 'Screen Group' in Screen Painter
attributes. In which Scenario we will go for it.
2. What is 'Search help Exit'.
Please post your messages and guide me in this topic,
Thanks & Regards,
John.

Hi John,
A Search help exit is something similar to a user exit. Every search help will have an option of attaching a search help exit under the definition tab( when you view the search help from se12).
For example take a look at the search help VMVA - you will notice a search help exit SD_F4_SHLP_EXIT_SUBSHLP_CHOOSE attached to it.
Basically the serah help exit which is nothing but a function module with a predefined interface which gets triggered before a f4 help is displayed. The exit is used to supress or do any other related modification required.
We have implemented many search help exits and the reason is that we have given a custom interface to our business partners to carry out some transaction on our SAP systems. Though we have given them access to our SAP system we also want to ensure that the business partner does not view any additional data in the system. We have controlled this via many ways like using z objects, using authorizations etc. Still once the user has authorizations to any transaction he or she can do a f4 help on any field and see the data which he should not be able to do. So we have implemented search help exits to supress the drop down only for the business partners. We control this based on the unique login id's we have given to them.
So in short it is used to modify the behaviour of F4 help, mostly used to supress the drop down.
It has to be defined in a specific format.
Hope this helps.
Cheers
VJ

Table control in Screen Painter

Hi Friends,
I have created a screen using screen painter. The screen is having 4 tabs (subscreen) and in all the subscreen, i have used table control to insert multiple lines in the table.
The problem I am getting is that, the data of table control part is not getting inserted into the table.
The program part is given below for reference.
======================================================
PROCESS BEFORE OUTPUT.
MODULE SECDAM_CHANGE_TC_ATTR.
LOOP AT   IT_SECDAM
       INTO IT_SECDAM
       WITH CONTROL SECDAM
       CURSOR SECDAM-CURRENT_LINE.
    MODULE SECDAM_GET_LINES.
ENDLOOP.
MODULE STATUS_0109.
PROCESS AFTER INPUT.
*&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'SECDAM'
LOOP AT IT_SECDAM.
    CHAIN.
      FIELD ZTDRDTL-DIVSN.
      FIELD ZTDRDTL-MATRL.
      FIELD ZTDRDTL-SLQTY.
      FIELD ZTDRDTL-DMQTY.
      FIELD ZTDRDTL-SSQTY.
      MODULE SECDAM_MODIFY ON CHAIN-REQUEST.
    endchain.
ENDLOOP.
MODULE SECDAM_USER_COMMAND.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Flow-logic part:
DATA : BEGIN OF IT_SECDAM OCCURS 0,
       DIVSN LIKE ZTDRDTL-DIVSN,
       MATRL LIKE ZTDRDTL-MATRL,
       SLQTY LIKE ZTDRDTL-SLQTY,
       DMQTY LIKE ZTDRDTL-DMQTY,
       SSQTY LIKE ZTDRDTL-SSQTY,
       END OF IT_SECDAM.
CONTROLS: SECDAM TYPE TABLEVIEW USING SCREEN 0109.
DATA:     G_SECDAM_LINES LIKE SY-LOOPC.
MODULE SECDAM_CHANGE_TC_ATTR OUTPUT.
DESCRIBE TABLE IT_SECDAM LINES SECDAM-LINES.
ENDMODULE.                    "SECDAM_CHANGE_TC_ATTR OUTPUT
MODULE SECDAM_GET_LINES OUTPUT.
G_SECDAM_LINES = SY-LOOPC.
ENDMODULE.                    "SECDAM_GET_LINES OUTPUT
MODULE SECDAM_MODIFY INPUT.
MODIFY IT_SECDAM
    FROM IT_SECDAM
    INDEX SECDAM-CURRENT_LINE.
ENDMODULE.                    "SECDAM_MODIFY INPUT
MODULE SECDAM_USER_COMMAND INPUT.
OK_CODE = SY-UCOMM.
PERFORM USER_OK_TC USING    'SECDAM'
                              'IT_SECDAM'
                     CHANGING OK_CODE.
SY-UCOMM = OK_CODE.
ENDMODULE.                    "SECDAM_USER_COMMAND INPUT
=========================================================
Kindly guide me the solution.
TIA.
Regards,
Mark K

Hi
Try like this may be you will get it.
process before output.
module status_1000.
loop at itab with control tabctrl cursor tabctrl-top_line.
module assign_data.
endloop.
process after input.
module user_command_1000.
loop at itab.
endloop.
In flow logic.
tables vbak.
data itab like vbak occurs 0 with header line.
controls tabctrl type tableview using screen 1000.
data fill type i.
*&      Module Assign_data OUTPUT
      text
module assign_data output.
move itab to vbak.
endmodule.                 " Assign_data OUTPUT
*&      Module USER_COMMAND_1000 INPUT
      text
module user_command_1000 input.
case sy-ucomm.
    when 'EXIT'.
     set screen 0.
endcase.
endmodule.                 " USER_COMMAND_1000 INPUT
*&      Module STATUS_1000 OUTPUT
      text
module status_1000 output.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
select * from vbak into table itab.
describe table itab lines fill.
tabctrl-lines = fill.
Endmodule.
Regards
Haritha.

Changing fonts in Screen painter

Hi experts,
I have a screen, that displays information. I need to display the information in a different font than usual, e.g. Bold or Italic.
Could you please let me know the ways to change the FONTS in screen painter.
Is it feasible to do so?
Thanks,
Abhay

Check out this code:
create a screen 100, PF-STATUS '0100' and custom container 'CONT'
*& Report ZZ_SOURAV_DYNAMIC_DOCUMENTS
REPORT zz_sourav_dynamic_documents.
TYPE-POOLS: sdydo.
DATA:
container TYPE REF TO cl_gui_docking_container,
doc TYPE REF TO cl_dd_document,
ok_code TYPE syucomm.
DATA form1 TYPE REF TO cl_dd_form_area.
DATA text TYPE sdydo_text_element.
DATA value TYPE sdydo_value.
DATA button1 TYPE REF TO cl_dd_button_element.
DATA input1 TYPE REF TO cl_dd_input_element.
DATA first_display VALUE 'X'.
DATA opt_tab TYPE sdydo_option_tab.
DATA select1 TYPE REF TO cl_dd_select_element.
*       CLASS cl_my_event_handler DEFINITION
CLASS cl_my_event_handler DEFINITION.
PUBLIC SECTION.
    METHODS:
handle_input FOR EVENT entered OF cl_dd_input_element
                                                       IMPORTING sender,
handle_submit_buttons FOR EVENT clicked OF cl_dd_button_element
                                                       IMPORTING sender,
use_new_resources FOR EVENT resources_changed OF cl_gui_resources.
ENDCLASS.                    "cl_my_event_handler DEFINITION
*       CLASS cl_my_event_handler IMPLEMENTATION
CLASS cl_my_event_handler IMPLEMENTATION.
METHOD handle_input.
    MESSAGE i001(00) WITH input1->value.
ENDMETHOD.                    "handle_submit_buttons
METHOD handle_submit_buttons.
    MESSAGE i001(00) WITH input1->value.
ENDMETHOD.                    "handle_submit_buttons
METHOD use_new_resources.
    IF first_display IS INITIAL.
* initialize documents
      CALL METHOD doc->initialize_document.
* merge documents
      CALL METHOD doc->merge_document.
* display documents
      CALL METHOD doc->display_document
        EXPORTING
          reuse_control      = 'X'
          reuse_registration = 'X'.
    ENDIF.
ENDMETHOD.                    "use_new_resources
ENDCLASS.                    "cl_my_event_handler IMPLEMENTATION
START-OF-SELECTION.
DATA: my_handler TYPE REF TO cl_my_event_handler.
CREATE OBJECT my_handler .
END-OF-SELECTION.
CALL SCREEN 100.
*&      Module STATUS_0100 OUTPUT
*       text
MODULE status_0100 OUTPUT.
SET PF-STATUS '0100'.
* SET TITLEBAR 'xxx'.
SET HANDLER my_handler->use_new_resources.
CREATE OBJECT doc
     EXPORTING
*    style =
     background_color = cl_dd_area=>col_background_level2
*    bds_stylesheet =
*    no_margins =
PERFORM add_html_code.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
*       text
MODULE user_command_0100 INPUT.
CASE ok_code.
    WHEN 'BACK'.
      SET SCREEN 00.
      LEAVE SCREEN.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&      Form add_html_code
*       text
* --> p1        text
* <-- p2        text
FORM add_html_code .
IF first_display = 'X'.
    text = 'Line1'.
    CALL METHOD doc->add_text
       EXPORTING
         text          = text
*    text_table    =
*    fix_lines     =
     sap_style     = cl_dd_document=>heading
*    sap_color     = cl_dd_document=>LIST_POSITIVE_INT
     sap_fontsize = cl_dd_document=>medium
*    sap_fontstyle = cl_dd_document=>SANS_SERIF
*    sap_emphasis = cl_dd_document=>
*    style_class   = cl_dd_document=>WARNING
* CHANGING
*    document      =
    CALL METHOD doc->new_line
      EXPORTING
        repeat = 1.
    text = 'Line2'.
    CALL METHOD doc->add_text
       EXPORTING
         text          = text
*    text_table    =
*    fix_lines     =
*     sap_style     = cl_dd_document=>heading
    sap_color     = cl_dd_document=>list_key_inv
*     sap_fontsize = cl_dd_document=>medium
*    sap_fontstyle = cl_dd_document=>SANS_SERIF
*    sap_emphasis = cl_dd_document=>
*    style_class   = cl_dd_document=>WARNING
* CHANGING
*    document      =
    CALL METHOD doc->new_line
      EXPORTING
        repeat = 1.
    text = 'Line3'.
    CALL METHOD doc->add_text
       EXPORTING
         text          = text
*    text_table    =
*    fix_lines     =
*     sap_style     = cl_dd_document=>heading
*    sap_color     = cl_dd_document=>list_key_inv
*     sap_fontsize = cl_dd_document=>medium
*    sap_fontstyle = cl_dd_document=>SANS_SERIF
*    sap_emphasis = cl_dd_document=>
*    style_class   = cl_dd_document=>WARNING
* CHANGING
*    document      =
    CALL METHOD doc->display_document
       EXPORTING
*      reuse_control      = 'X'
*      reuse_registration = 'X'
         container          = 'CONT'
*    parent             =
      EXCEPTIONS
        html_display_error = 1
        OTHERS             = 2
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    CLEAR first_display.
ENDIF.
ENDFORM.                    " add_html_code

How to insert a new line in table control created in screen painter

hai,
i am stuck up in the place where i need to insert a row of data in the table in screen developed in screen painter..cud some one help me out...

You can try the following statement:
MODIFY <DBtable> from table <itab>.
Of course, you would need to append the user-entered data (from the screen) into the internal table first.
Hope this helps.
Sudha

ABAP Dictionory type FLTP is nt allowed for screen Painter!!

Hello All,
ABAP Dictionary type FLTP is nt allowed for screen Painter!! am getting this error message if am giving some input.
Thanks
santu
Edited by: santu4u on Oct 23, 2009 1:48 PM

Hi
Instead of FLTP use Quantity or Currency or Packed Decimals type fields for the Screen Elements.
While you save the data into the database if the database field is of type FLTP the values entered would be automatically converted into FLTP type. We need not take care of this.
---?? What do you mean by IDES version --->
You mean in SE11 or SE16, Wherever it may be you can not use FLTP type on Screen Fields.
This is Standard SAP Procedure, As mentioned Above you can use Packed Decimals or Currency or Quantity Fields
Cheers
Ram
Edited by: Ramchander Krishnamraju on Oct 23, 2009 2:10 PM
Edited by: Ramchander Krishnamraju on Oct 23, 2009 2:13 PM

Regarding the flow logic in screen painter

Hi Experts
I am a BW guy and i am new to ABAP and i need your help to solve my problem.
I have created a table for master data(zemp_data) in R/3 se11..which has fields like zempid,zempname,zmgrid,zdeptid,zdeptname and i have created the respective fields in screen painter too but my problem is i dont know how to link this fields in the screen painter to the fields in table .to be more clear i want the flow logic or module pool code to link this table when i give an entry in the screen painter for the respective fields..i will really appreciate your answers and award the maximum points for the usefull answer ..as i dont know ABAP much if it is a step by step approach ..that would be helpfull
Regards,
RK.

Hi Karthik,
Please consider the following
In the screen...the fields must be from the database table in Se11..(in screen painter -> use.."get from Dictionary" -> enter the table name -> select the fields -> drag and drop on the screen) or must have the same name in the database table..This will be a link but unless you code to fetch values from database or update values to database there will be no action taking place
Usually in the PBO(process befor output) we write the code to display values before we accept data from the user ie,set default values on the screen if required and prepare the screen for user input
in the PAI of the screen painter we can do data processing ie, data validations,checks and saving based on what the user wants
So imagine you have buttons placed on the screen and there are buttons from standard application bar like BACK,SAVE, set using PFstatus..all the user actions will be linked to a function cod..ie whenever user presses a button we can uniquely idntify what was pressed by assigning a function code to each button in the menu painter or PF status and do the action accordingly
Assume that you have created a push button on the screen painter and assigned it a function code "PUSH"
so whenever you press the button in the variable sy-ucomm "PUSH" will be captured..this you can check in PAI for the screen like
Case sy-ucomm.
when 'PUSH'.
do the needful coding
when 'SAVE'
Modify database table
endcase.
you can check the standard demo programs in SE38 -> program name-> display for basic ABAP coding you have asked for
(1)demo_dynpro_input_output .
(2)demo_dynpro_dictionary
(3)demo_dynpro_push_button
Pls let us know if you need more help on the same
Reward if helpful
Regards
Byju

Date in Screen painter

Similar Messages

Maybe you are looking for