Screen painter, ChooseFromList and et_EDIT

Hi,
I'm in Screen Painter and I did set a it_EDIT with a ChooseFromList Business Partner.
When I hit PREVIEW, it works fine, the list of Business Partners appear and I choose one but the choosen one do not go in the et_EDIT textbox.
I don't understand the Aliases because the help do not let me understand what it is and there's no way to see by a demo or anything else so I can understand clearly.
First is this all possible just by the Screen Painter or I do need to code something else ? Any video tutorials ? Anything could help understand how to make it work.
I beg anyone to give me a working solution.
Thank you
Edited by: Marc Roussel on Dec 20, 2010 3:16 PM

Just a mall thing. Everything seems to work except that when I did choose the BP, a message pop saying :
"Item - Can't set value on item because the item can't get focus. [66000-153]"
However once I clicked OK of that message, I see my choosen BP in my EditText and everything is fine so I don't understand why I receive this message. Here's the code I use
if (pVal.EventType != SAPbouiCOM.BoEventTypes.et_FORM_ACTIVATE && pVal.EventType != SAPbouiCOM.BoEventTypes.et_FORM_LOAD)
    if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST)
        SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
        oCFLEvento = ((SAPbouiCOM.IChooseFromListEvent)(pVal));
        string sCFL_ID = null;
        sCFL_ID = oCFLEvento.ChooseFromListUID;
        SAPbouiCOM.Form oForm = null;
        oForm = SBO_Application.Forms.Item(FormUID);
        SAPbouiCOM.ChooseFromList oCFL = null;
        oCFL = oForm.ChooseFromLists.Item(sCFL_ID);
        if (oCFLEvento.BeforeAction == false)
            SAPbouiCOM.DataTable oDataTable = null;
            oDataTable = oCFLEvento.SelectedObjects;
            string val = System.Convert.ToString(oDataTable.GetValue(0, 0));
            if ((pVal.ItemUID == "it_BPCode") && pVal.ActionSuccess)
                ((SAPbouiCOM.EditText)oForm.Items.Item("it_BPCode").Specific).Value = val;

Similar Messages

Screen painter, matrix and DataBound problem...

Hi
Using SAP BO 6.7 I have made a form with a matrix.
I have a usertable named @t_fingrp with a field named U_Nr.
In the matrix-->Columns properties I set Databound to "true", set tablename to "@t_fingrp" and set the alias to "U_Nr".
I then save the form as xml.
Then I load it in code using something like this:
XmlDocument XMLDoc1 = new XmlDocument();
XMLDoc1.Load(sXMLFile);
xml = XMLDoc1.InnerXml;
SBO_Application.LoadBatchActions(ref xmlString);
This will make the form appear in SAP BO with the matrix and the columns but NO data.
What am I doing wrong??
TIA
Jan

The data doesn't appear automatically when you bind a matrix to a data source. You have to populate the data source from the database, and then add each row to the matrix manually.
Below is a sample, hope it helps.
    'Populate the datasource
    Set sboDS = sboForm.DataSources.DBDataSources("OUSR")
    sboDS.Query
    'Add data to the matrix
    For lngCount = 0 To sboDS.Size - 1
        sboDS.Offset = lngCount
        sboMatrix.AddRow
    Next lngCount
John.

Screen Painter don't work

Screen Painter don't work when I click menu "Tools/Screen Painter", and show a System Message :Add-on Screen Painter is disconnected.Please contact:www.sap.com
Restart Add-on
Log off the current company
Continue working without this Add-on.
What should I do?

Hi
First uninstall Screen Painter then open the file C:\Program Files\SAP\SAP Business One\AddOnsLocalRegistration.sbo
in notepad remove the lines related to screen painter (If there is any)
<AddOn Exe="BK_ScreenPainter.exe" Installer="ScreenPainterInstaller.exe" InstallerMD5="384B6B18CA81A26CD8CC2A160BBBFC0A" Name="Screen Painter" Path="C:\Program Files\SAP\SAP Business One\AddOns\BK\Screen Painter" SelfUpgrd="false" Space="BK" UID="BK_Screen Painter" UnInstEstTime="180" UnInstParams="/zu201Duninstallu201D /x" UnInstaler="ScreenPainterInstaller.exe" UnInstallerMD5="384B6B18CA81A26CD8CC2A160BBBFC0A" Ver="880229"><Common ID="1" Name="B1DEVSRV"/></AddOn>
save it and try again to install the screen painter.
If that doesn't work go to this C:\Program Files\InstallShield Installation Information directory and find find the screen painter installer and remove it.
Hope this will help you
Regards
Arun TB

Screen painter attributes

can u give me the function of screen painter attributes and tools which r used in layout editor??????

Hi Srinivas
·        Screen number
A four-digit number, unique within the ABAP program, that identifies the screen within the program. If your program contains selection screens, remember that the screen numbers of selection screens and Screen Painter screens both use the same namespace. For example, if you have a program with a standard selection screen, you may not create any further screens with the number 1000. Lists, on the other hand, have their own namespace.
·        Screen type
- A normal screen occupies a whole GUI window.
- Modal dialog boxes only cover a part of a GUI window. Their interface elements are also arranged differently. - Selection screens are generated automatically from the definition in the ABAP program. They cannot be generated using the Screen Painter.
- A subscreen is a screen that you can display in a subscreen area on a different screen in the same program.
·        Next screen
Statically-defined screen number, specifying the next screen in the sequence. By entering zero or leaving the field blank, you define the current screen as the last in the chain. If the next screen is the same as the current screen, the screen will keep on calling itself. You can override the statically-defined next screen in the ABAP program.
·        Cursor position
Static definition of the screen element on which the cursor is positioned when the screen is displayed. By default, the cursor appears on the first input field. You can overwrite the static cursor position dynamically in your ABAP program.
·        Screen group
Four-character ID, placed in the system field sy-dyngr while the screen is being processed. This allows you to assign several screens to a common screen group. You can use this, for example, to modify all of the screens in the group in a uniform way. Screen groups are stored in table TFAWT.
·        Holding data
If the user calls the screen more than once during a terminal session, he or she can retain changed data as default values by choosing System
Layout Editor
We use layout editor to place screen element in screen layout. There are two modes in editing layout: Graphical and alphanumeric. Both modes offer the same functions but use different interfaces. In graphical mode, you use a drag and drop interface similar to a drawing tool. In alphanumeric mode, you use your keyboard and menus. It is easier to work in graphical mode, to toggle beetween this mode, in SE51 go to: Utilities->Settings: in screen painter tabs check graphical layout editor.
Layout editor contains these tools:
i. Element pallete
On left screen you will find list of element (textbox, label, checkbox) you can use. Drag and drog element to put it on screen.
ii. Name & Text
Aftef put element on screen, write its name and text (in textbox, text will set default value).
iii. Attributes Window
Double click the element to display its attributes, or select it then click :Goto->Secondary window->attributes. For example, in textbox element, we can set its length, read only mode, in this window.
iv. Dictionary/program field.
If we want to create a field refer to field in data dictionay or field already declared in program, use this menu to create text field with the same type compared to its referral.
<REMOVED BY MODERATOR>
Edited by: Alvaro Tejada Galindo on Jan 11, 2008 6:04 PM

How to work with Alphanumeric Editor in Screen Painter?

Hello Guys,
I am trying to work on Screen Painter Layout and it's showing me that Graphical Screen Editor is not
available and continue working with Alphanumeric Editor.I don't know how to work on this.Guys,
Please let me know why is the message and what can we do about it.
Thanks in advance,
Sri

Somtimes you will get this message if something got screwy with your SAPgui, for me simply closing out of SAPgui and going back in has fixed this issue. If you do not know for sure that your SAPgui had been installed including the screen painter, then you should start there. You will need the SAPgui installation executable, either from CDs or a downloaded file. Run the SAPgui installation, and make sure to select the screen painter as part of the install, i believe it is under "development tools" in previous versions. In newer versions I believe it is installed by default, but I do no for a fact that it is not this way in earlier releases, such as the 46D gui.
So for make sure that Screen Painter has been installed with your SAPgui, if you are sure that it had been installed, perhaps it was working fine yesterday, then I would suggest first closing out SAPgui, and going back in, and trying the screen painter, If the problem persists, it may be worth it to reinstall the gui.
Regards,
Rich Heilman

Installing Screen Painter

I have been trying to install the screen painter addon and have been following ScreenPainter_SetupGuide. However after registering the addon and further on restarting Sap Business One, the installation does not start.
I am on version 2004A, PL:5

Hi Pankaj,
It is weird indeed.
Could you please check the following information?
1. Open SQL Enterprise Manager.
2. Select SBO_COMMON DB.
3. Open SARI table as "Return all rows".
4. Check if Screen Painter is register correctly.
Let me know the result.
Thanks,
Nick

Selecting Cell from Choosefromlist - Screen Painter

Hi ...
I've used screen painter for my form. In the preview mode, everything seems to be ok, I have my column matrix editable with choosefromlist. But when I run the add-on, I can't even select a cell. I've also tried creating the matrix through coding but still, I can't select a cell. Anyone knows what could be the problem?
Thanks!
Loren

Hi Loren Flores,
Actually you are not adding the row to your matrix, thats why you are not able to select a cell.
Add the row to your matrix on Form Load event.
and also on the lost focus of the column, add a new row in next line.
on form Load---
oMatrix.AddRow(1, 1);
on lost focus--
if (pVal.ItemUID == "Mtrx" && pVal.ColUID == "COL1")
                    if (pVal.Row >= oMatrix.RowCount)
                        if (pVal.Row == 1)
                            oEditText = (SAPbouiCOM.EditText)oMatrix.Columns.Item("COL1").Cells.Item(pVal.Row).Specific;
                            string sr = oEditText.String;
                            if (oEditText.String != "")
                                oMatrix.AddRow(1, oMatrix.RowCount);
                            if (oMatrix.RowCount > 2)
                                return;
                        else
                            oEditText = (SAPbouiCOM.EditText)oMatrix.Columns.Item("COL1").Cells.Item(pVal.Row).Specific;
                            string sr = oEditText.String;
                            if (oEditText.String != "")
                                oMatrix.AddRow(1, pVal.Row);

ChooseFromList for Customers by Screen Painter

Hi,
I don't know how to start on just adding a ChooseFromList for customers on my Screen Painter form.
Any tutorials, videos anything out there to show me how to compelte this task ?

aruntb wrote:
...Make sure that your edittext control must be binded with either DBDatasource or user data source of alphanumeric type.
>
> hope this helps
>
> Regards
> Arun
I already did all this and once run it wasn't working at all so I don't know if your last sentence above is made in Screen Painter also but if not, this was probably the missing piece for the whole thing to work. Never read this anywhere not even in Screen painter documentation which is so poor actually.
Well after all, I did everything by code and it seems to work ok. I will make myself a favor ad add a nice single method that do it all and save it in my library. I will even come here and give to everyone this method so it's easier for other people having a hard time with that.
Thank you for the information

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

How to create dropwdown list box values and checkbox in screen painter.

Hi Experts,
I need to know the creation of dropdown list box values and the checkbox to use in screen painter.
I have 3 values to insert as:-
INR,USD,EUR
if user selects INR/USD/EUR, then it will store into the table field.
And also want to know the checkbox functioning in screen painter, i.e. what should we write in PBO/PAI.
I have found some sites to get knowledge, but didnot found anything that relates to my questions.
So please help me!
Thanks,
Deepanshu

Hi,
For dropdown list box in Screen create a input field and choose Drop down by index.
To populate the values write the logic in PBO as follows
TYPE-POOLS : VRM
DATA : field_id TYPE VRM_ID ,
            values TYPE VRM_VALUES,
             value   LIKE LINE OF values.
PROCESS BEFORE OUTPUT
MODULE list_fill_100
MODULE list_fill_100 OUTPUT
SELECT f1 f2 f3 FROM tab WHERE condition.
value-KEY = f1.
value-TEXT = f2
APPEND value TO VALUES
CALL FUNCTION 'VRM_SET_VALUES'
       EXPORTING
            id     = 'i/o screen field'
            values = values.
ENDMODULE.

Report and SAP-SCRIPT & SCREEN PAINTER

Hi all ,
I need some help.
1)How to transport sap-script.
2) print program of sap script are client-dependent or client-independent.
3)Database tables ( on se11) are client-dependent or client-independent. ( is sy-mandt will make dependent or independent)
4) how to create select-option on screen painter or with module pool programming.
5)performance tuning for ABAP report.
points for all answers assured.
thanks.

Ihave some notes on transporting sapscript for earlier version of SAP.
The steps may vary based on your version and Suppport PAckages levels.
In the future your version and platform detials will help in a quicker response.
Summary of sapscript EXPORT / IMPORT process.
Steps to export Layout Sets (sapscript)
Log on the Source system and client
This may have to be client 000 and then again in the client in which you do developement.
Note that sapscript is client dependent
SE38 and execute program RSTXR3TR
Tranport number: DS1K9#####
Mode field: EXPORT
File system: Server - radio button
The dataset name: /usr/sap/trans/data/DS1K9#####.layoutsets
CHECK the Display dataset contents checkbox
Execute
Steps to import Layout Sets (sapscript)
Log on the target system and client. This may have to be client 000 and then in the client in which you test, or ultimatly production.
SE38 and execute program RSTXR3TR
Tranport number: DS1K9#####
Mode field: IMPORT
The dataset name: /usr/sap/trans/data/DS1K9#####.layoutsets
CHECK the Display dataset contents checkbox
Execute
Note: when importing into Production, the export does not need to be performed.
Therefore only the import protion is required once the sapscript has been exported from Development.

Screen Painter and Matrix

In screen painter I am unable to attach the folder with the respective matrix. Please give the complete method to attach the above mentioned.

Hi Manish,
I am not too sure what you want to know, but if you want a matrix to be displayed only on a specific folder you should do the following. I am going to show you the code, but you can do parts of it in screenpainter as well. In screen painter you cannot display it like you would at runtime.
On your matrix you would set the PaneFrom and PaneTo properties. To only set it visible on the first folder:
        Dim oItem As SAPbouiCOM.Item
        Dim oForm As SAPbouiCOM.Form
        oForm = oApplication.Forms.ActiveForm
        oItem = oForm.Items.Item("My_Matrix")
        oItem.FromPane = 1
        oItem.ToPane = 1
To add the folder you'll have to remember to set the ValOn and ValOff properties:
        Dim oFolder As SAPbouiCOM.Folder
        oFolder = oForm.Items.Item("My_Folder").Specific
        oFolder.Caption = "MyFolder"
        oFolder.DataBind.SetBound(True, "", "UDS_1")
        oFolder.ValOff = 0
        oFolder.ValOn = 1
To invoke the folder's click event you have to code it manually:
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles oApplication.ItemEvent
        If pVal.FormTypeEx = "My_Form" Then
            If pVal.BeforeAction = True Then
                If pVal.ItemUID = "My_Folder" Then
                    If pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED Then
                        Dim oForm As SAPbouiCOM.Form
                        oForm = oApplication.Forms.ActiveForm
                        oForm.PaneLevel = 1
                    End If
                End If
            End If
        End If
    End Sub
Hope it helps,
Adele

Screen Painter and Menu Painter Translations

Hello All,
I want to translate the Screen painter and Menu Painter Objects .
When I go to the SE41 and select the PF Status of my Program and press change Button I'm getting the following msg :
Make repairs in foreign namespaces only if they are urgent .
If I press Ok and select the Menu path : Goto --> Translation .
The Translation options is in deactivated mode.
How to do the Translation now ?
Regards,
Deepu.K

Hi
Run trx SE63, then go to: Translation->Short Texts->Screen Painter
Choose:
- Header to translate the title of attribute of the screen;
- Texts to translate the label of the input/ouput fields
Translation->Short Texts->User interface to translate the menu
Max

Screen Painter displays nothing and becomes hang.

<b>Screen Painter displays nothing and becomes hang.</b>
To duplicate:
1. Create a new table and fields. (I created using SQL Enterprise Manager).
2. Create a new form using Screen Painter.
3. Bound several items to column to field of table created on step#1
4. Save and close the form in .srf.
5. Open the saved form and Screen Painter becomes hang.
Is there any mistakes in my steps? Or this is just a Screen Painter Bug?
Thanks in advance,
Jemmy Sentonius

When creating new tables, make sure to create them via SAP. You can achieve this by either manually creating tables via SAP client or programmatically using DIAPI.
When you bind data to a form via UIAPI (either programmatically or via xml/srf) SAP needs to know the tables you refer to.
When you create tables using Enterprise Manager, SQL Server knows about the tables, SAP does not. Hence your error, I guess.
However Screenpainter should not hang when referencing "invalid" (to SAP) tables. This behaviour ought to be corrected.
HTH Lutz Morrien

Screen Painter and tables

I have created a Table Control in a Screen Painter and I need help to fill it.
I assign to the Table Control a field of an internal table but when I try to activate it i receive the followin error:
The field "XXXX-XXXX" is not assigned to a LOOP. "LOOP...ENDLOOP" must apper in PBO and PAI
Can u help me?
Thanx in advance

Hi Jose,
Refer the below code for clarification.
Regards,
Raj
*& Module pool ZTESTRAJ_TABLECONTROL *
PROGRAM ztestraj_tablecontrol .
TABLES mara.
CONTROLS : tc1 TYPE TABLEVIEW USING SCREEN 100.
TYPES : BEGIN OF t_mara,
matnr TYPE mara-matnr,
mtart TYPE mara-mtart,
mbrsh TYPE mara-mbrsh,
meins TYPE mara-meins,
lsel TYPE c,
END OF t_mara.
DATA : it_mara TYPE STANDARD TABLE OF t_mara WITH HEADER LINE,
it_mara1 TYPE STANDARD TABLE OF t_mara WITH HEADER LINE,
cols LIKE LINE OF tc1-cols.
DATA : v_lines TYPE i,
lsel,
v_fill TYPE i,
v_limit TYPE i.
DATA : fg_set TYPE c VALUE ''.
DATA : ok_code TYPE sy-ucomm,
save_ok TYPE sy-ucomm.
CONSTANTS : c_mtart(4) TYPE c VALUE 'FERT'.
*& Module STATUS_0100 OUTPUT
text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'SCREEN_100'.
SET TITLEBAR 'RAJ'.
IF fg_set = ''.
SELECT matnr
mtart
mbrsh
meins
FROM mara
INTO TABLE it_mara
WHERE mtart = c_mtart.
DESCRIBE TABLE it_mara LINES v_fill.
v_lines = v_fill.
fg_set = 'X'.
ENDIF.
IF fg_set = 'X'.
EXIT.
ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module fill_table_control OUTPUT
text
MODULE fill_table_control OUTPUT.
READ TABLE it_mara INTO it_mara1 INDEX tc1-current_line.
ENDMODULE. " fill_table_control OUTPUT
*& Module cancel INPUT
text
MODULE cancel INPUT.
LEAVE PROGRAM.
ENDMODULE. " cancel INPUT
*& Module read_table_control INPUT
text
MODULE read_table_control INPUT.
v_lines = sy-loopc .
it_mara1-lsel = lsel.
MODIFY it_mara FROM it_mara1 INDEX tc1-current_line.
ENDMODULE. " read_table_control INPUT
*& Module USER_COMMAND_0100 INPUT
text
MODULE user_command_0100 INPUT.
ok_code = sy-ucomm.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'NEXT_LINE'.
tc1-top_line = tc1-top_line + 1.
v_limit = v_fill - v_lines + 1.
IF tc1-top_line > v_limit.
tc1-top_line = v_limit.
ENDIF.
WHEN 'PREV_LINE'.
tc1-top_line = tc1-top_line - 1.
IF tc1-top_line < 0.
tc1-top_line = 0.
ENDIF.
WHEN 'NEXT_PAGE'.
tc1-top_line = tc1-top_line + v_lines.
v_limit = v_fill - v_lines + 1.
IF tc1-top_line > v_limit.
tc1-top_line = v_limit.
ENDIF.
WHEN 'PREV_PAGE'.
tc1-top_line = tc1-top_line - v_lines.
IF tc1-top_line < 0.
tc1-top_line = 0.
ENDIF.
WHEN 'LAST_PAGE'.
tc1-top_line = v_fill - v_lines + 1.
WHEN 'FIRST_PAGE'.
tc1-top_line = 0.
WHEN 'DELETE'.
READ TABLE tc1-cols INTO cols
WITH KEY screen-input = '1'.
IF sy-subrc = 0.
LOOP AT it_mara INTO it_mara1 WHERE lsel = 'X'.
DELETE it_mara.
fg_set = 'X'.
ENDLOOP.
ELSE.
fg_set = ''.
ENDIF.
WHEN 'INSERT'.
LOOP AT it_mara INTO it_mara1 WHERE lsel = 'X'.
INSERT INITIAL LINE INTO it_mara INDEX sy-tabix.
ENDLOOP.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
WHEN 'JADOO'.
READ TABLE tc1-cols INTO cols
WITH KEY selected = 'X'.
IF sy-subrc = 0.
cols-invisible = '1'.
MODIFY tc1-cols FROM cols INDEX sy-tabix.
ENDIF.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT

Screen painter, ChooseFromList and et_EDIT

Similar Messages

Maybe you are looking for