Module Pool - I/O fields - Two different kinds of display

Hello Everyone,
In order to distinguish the texts in I/O (default and entered by the User), I am trying to change the Font / Color etc. in I/O fields
I have tried implementing class CL_DD_AREA but that doesnt fulfill all the charateristics required for I/O ( that includes F4 , double click etc.).
Have tried enabling "Bright" option in Layout , but it shows the text in Red color instead of Blue.
Can someone suggest any other option for this?
Thanks

Hi.,
I dont think for I/O fields it is possible.. Check DD_STYLE_TABLE Report., For Bold Text , Coloring Text and For Background color.,
hope this helps u.,
Thanks & Regards,
Kiran

Similar Messages

Module Pool - Refresh Screen Fields Progmatically

Hello All!
I have a slightly frustrating problem. I have built a Module Pool application to display shipments and their underlying deliveries (various information from each).
I have structured the application as follows
An object to store the Data. This object has an internal table of Shipments and an internal table of Deliveries. The tables are related by TKNUM. When the application needs to display a shipment, it requests the shipment's information and the underlying deliveries information from the object. The object is structured to move through the shipments with methods like "GetFirstHeader", "GetPrevHeader", "GetNextHeader", "GetLastHeader". These return the data for the application to use.
The Deliveries are displayed in a CL_SALV_TABLE, the Shipment information is displayed in textbox type fields above the table.
The form for display has buttons to trigger the "Move" methods of the data object. This currently will retrieve the new data from the object, modify the fields and the alv grid and then go back through PBO (I'm assuming because a button was pressed). This works well. It will bring in the new data and refresh the screen everything is fine.
I also have a button to print the currently displayed Shipment and Deliveries. This Print is handled through a SmartForm.
The area that is giving me troubles is my other button. Since the Application can store a range of shipments at once, I have a "Print All" button. This button moves to the first shipment in the data object,
calls the Print Form, then moves through the rest of the data object calling the Print Form for each Shipment Displayed. This happens from one button push. The problem I am running into is that the screen does not refresh when the data changes during this movement through the data objects. I believe this is due to the PBO module not being triggered yet. My question is, is there a way to refresh the screen progmatically?
I have tried SET USER-COMMAND to move through the data, instead of calling the "GetFirstHeader" and "GetNextHeader" method directly, but that has some unpredictable behavior (works in debug, not in regular execution). I have also tried a LEAVE SCREEN statement, as that would trigger the PBO, since the Next Screen is set to the same screen number, but that kills execution of that block of code at the LEAVE SCREEN STATEMENT.
I am including my code from my PAI module that runs this processing, hopefully that will help.
<< unformatable code removed >>
Moderator message - Please go through your code and post only what is relevant to your question.
Edited by: Rob Burbank on Apr 28, 2009 1:44 PM

MODULE USER_COMMAND_9999 INPUT .
CASE OK_CODE .
    WHEN 'NEXT' .
      PERFORM Next .
      PERFORM GetGridData .
      PERFORM RefreshALV .
    WHEN 'PREV' .
      PERFORM Prev .
      PERFORM GetGridData .
      PERFORM RefreshALV .
    WHEN 'EXIT' .
      SET SCREEN 0 .
    WHEN 'PRNT' .
      PERFORM Print .
    WHEN 'PRNA' .
      PERFORM PrintAll .
    WHEN 'BACK' .
      PERFORM HideInitials .
      SET SCREEN '1000' .
    WHEN 'CANC' .
      SET SCREEN '1000' .
    WHEN 'FRST' .
      PERFORM First .
      PERFORM GetGridData .
      PERFORM RefreshALV .
    WHEN 'LAST' .
      PERFORM Last .
      PERFORM GetGridData .
      PERFORM RefreshALV .
    WHEN 'CFAX' .
      PERFORM Show6000 .
ENDCASE .
ENDMODULE .
FORM PrintAll .
DATA sPromptB TYPE STRING .
DATA sPromptM TYPE STRING .
DATA sPromptE TYPE STRING .
DATA sPromptF TYPE STRING .
DATA cAnswer TYPE C LENGTH 1 .
IF NOT oLTend->isEmpty( ) = 1 .
    sPromptB = text-995 .
    sPromptM = ITOTSHIPNUM .
    sPromptE = text-994 .
    CONCATENATE sPromptB sPromptM sPromptE INTO sPromptF SEPARATED BY SPACE .
    CALL FUNCTION 'POPUP_TO_CONFIRM'
      EXPORTING
        TITLEBAR                    = 'Print All?'
        TEXT_QUESTION               = sPromptF
        DISPLAY_CANCEL_BUTTON       = ' '
      IMPORTING
        ANSWER                      = cAnswer
      EXCEPTIONS
        TEXT_NOT_FOUND              = 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 .
    IF cAnswer = '1' .
      PERFORM First .
      PERFORM GetGridData .
      PERFORM RefreshALV .
      " >>> Need Screen Refreshed right here
      PERFORM Print .
      DO .
        PERFORM Next .
        PERFORM GetGridData .
        PERFORM RefreshALV .
        " >>> Need Screen Refreshed right here
        PERFORM Print .
        IF oLTend->GetIndex( ) = oLTend->GetCount( ) .
          EXIT .
        ENDIF .
      ENDDO .
    ENDIF .
ENDIF .
ENDFORM .
That is the general flow. Hope that helps, if more info is needed, let me know.

Module Pool Programming : Screen Fields.

Hello
i have 2 fields in a screen. Field1 and Field2
i enter the field1 and want to set the f4 help for second field field2 on the basis of the input in field1.
but when i enter field1 and press f4 help for field2, it doesnot work because the field1 values are not passed when i use process on value request for field2 .
please help .... what am i missing.
Thanks

Hi ,
you have to use "DYNP_VALUES_READ" function mdule to read the field1 value to process in "F4IF_INT_TABLE_VALUE_REQUEST" function module.
check the code below
declare one internal table like this.
data dynpro_values type table of dynpread.
add the fields which you want to read.
field_value-fieldname = Z_POLCY-BUKRS'.
append field_value to dynpro_values.
field_value-fieldname = 'Z_POLCY-WERKS'.
append field_value to dynpro_values.
call function 'DYNP_VALUES_READ'
            exporting
              dyname                         = progname
              dynumb                         = dynnum
              translate_to_upper             = 'X'
          REQUEST                        = ' '
          PERFORM_CONVERSION_EXITS       = ' '
          PERFORM_INPUT_CONVERSION       = ' '
          DETERMINE_LOOP_INDEX           = ' '
                    tables
                      dynpfields             = dynpro_values
         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 <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
else.
    call function 'F4IF_INT_TABLE_VALUE_REQUEST'
       exporting
        DDIC_STRUCTURE         = ' '
             retfield               = 'POLTYPE'
        PVALKEY                = ' '
             dynpprog               = progname
             dynpnr                 = dynnum
             dynprofield            = 'z_POLCY-POLTYPE'
        STEPL                  = 0
        WINDOW_TITLE           =
        VALUE                  = ' '
             value_org              = 'S'
        MULTIPLE_CHOICE        = ' '
        DISPLAY                = ' '
        CALLBACK_PROGRAM       = ' '
        CALLBACK_FORM          = ' '
       tables
             value_tab              = it_poltype
        FIELD_TAB              =
        RETURN_TAB             =
        DYNPFLD_MAPPING        = it_ret
      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.
regards
shibu
*check the code for syntax i just given one prototype

Module Pool clear screen field

Hi,
I have a screen i fetch the data to it and process the screen data to do GR.
Problem is for one field, screen retaining the old transaction data. All the time user happen to come out of the transaction and transact again to get the proper value.
i suspect it is becasu eof screen cache..
Does anyone faced this kind of problem?

Hi,
In the PBO ofthe screen, give CLEAR statement for the particular screen field,
or give a pushbutton 'reset' and write the following in PAI..
WHEN 'RESET'.   "Resets the input ields in the screen
      CLEAR t5.
      CLEAR t6.
      CLEAR t7.
      CLEAR t8.
   endcase.
where,
t5,t6,t7,t8 are input fields.
hope this helps u,
Arunsri

Module pool program input field

Hi friends,
I took a input field in the screen and named it as match, I need to pass the sum of the values capture in a variable v_total to that field. Can u tell me how to do this, coz I tried but unable to display the sum value on the screen.
Regards,
Line

hi line,
i guess the input field is on the second screen or ,you may want to show the
value on the input field after you do a commad. i suggest you use the memory id
when defineing the input field give a memory id to id . and in the program you export the value v_total to the same memory id .
if this not work well try to use FM DYNP_VALUES_READ
and DYNP_VALUES_UPDATE
regards.

Same Text Field, two different fonts

I'm creating a certificate form with which I need to give the users the ability to add in roman numerals to the end of the name, if needed (e.g. II, III, IV). The font we're using for the name is an old-english style font, and using capital I's in the old-english font for this purpose looks absolutely awful. What I'm hoping to do is either of these:
-Store the typed value in the NameField field as a variable, choose II, III, etc. from a drop down, and have the roman numerals appended to the end of the string in something like Times New Roman
OR
-Have the text field recognize the pattern of II, III, etc., and auto-convert to Times New Roman
I did look at the scripting documentation, and what I saw made me think that any font/typeface command would have to apply to the entire field. Any thoughts/suggestions on how to accomplish this, whether one of my proposed methods works or not, would be immensely helpful. I'm happy to answer any questions if needed.

Woogley,
I was searching further, and this was the problem. I am returning HTML if the text is found in the Hashtable, otherwise I am simply returning a string without HTML. Once I added the <font> tag, it worked.
Thanx
Angel

Subtract sum of two columns in two different tables and display balance for each row

Hello Friends,
I have the below 5 tables
1. STUDENT (STUDENT_ID, NAME)
2. DEPARTMENT (DEPT_ID, NAME, CONTACT_PERSON, PHONE)
3. SECTION (SECTION_ID,SNAME,DEPT_ID,Acad_LEVEL,SHIFT,TIME,ROOM)
4. TUITION_BILL (Seq_No, STUDENT_ID, DEPT_ID, Acad_Level, SECTION_ID, SEMESTER, Acad_Year, BILL_DATE, GROSS_AMT_DUE)
5. TUITION_PAYMENT (Seq_No,RECEIPT_NO,STUDENT_ID,DEPT_ID,Acad_Level,SECTION_ID,SEMESTER,Acad_Year,SCHOLARSHIP,PAYMENT_DATE,PAYMENT_AMT,REFERENCE,REMARKS)
I wrote the following query
SELECT T.Seq_No,T.STUDENT_ID,S.NAME As STUDENT_NAME,d.name As DEPT,T.Acad_Level,c.SNAME As SECTION,
T.SEMESTER,T.[Acad_Year],BILL_DATE,GROSS_AMT_DUE,
COALESCE(SUM(T.GROSS_AMT_DUE),0)-COALESCE(SUM(PAY.PAYMENT_AMT),0)- COALESCE(SUM(PAY.SCHOLARSHIP),0) As BALANCE
FROM TUITION_BILL T JOIN STUDENT S ON S.STUDENT_ID=T.STUDENT_ID join DEPARTMENT d on d.DEPT_ID=T.DEPT_ID
join SECTION c on c.SECTION_ID=T.SECTION_ID LEFT JOIN (SELECT DISTINCT STUDENT_ID,COALESCE(SUM(p.PAYMENT_AMT),0) As PAYMENT_AMT,
COALESCE(SUM(P.SCHOLARSHIP),0) As SCHOLARSHIP FROM TUITION_PAYMENT p GROUP BY p.STUDENT_ID) As PAY ON PAY.STUDENT_ID=T.STUDENT_ID
WHERE s.STUDENT_ID='138218' GROUP BY T.Seq_No,T.STUDENT_ID,S.NAME,d.NAME,T.[Acad_Level],c.SNAME,T.SEMESTER,
T.[Acad_Year],BILL_DATE,GROSS_AMT_DUE,PAYMENT_AMT,SCHOLARSHIP
The above query shows the below output
Seq_No
STUDENT_ID
STUDENT_NAME
DEPT
Acad_Level
SECTION
SEMESTER
Acad_Year
BILL_DATE
GROSS_AMT_DUE
BALANCE
1
138218
Abdirahman Dhuh Gamadid
Agriculture and Veterinary
Year 2
2A
One
2014-2015
1/10/2014
200
0
5638
138218
Abdirahman Dhuh Gamadid
Agriculture and Veterinary
Year 2
2A
Two
2014-2015
3/20/2015
200
0
There are two records in the TUITION_BILL table with different Semesters and bill dates for the specified student_id and there is only one record in the TUITION_PAYMENT table which is the semester one payment record. Semester two payment record
is not recorded yet and I want to display the balance like the following output instead of the above output.
Seq_No
STUDENT_ID
STUDENT_NAME
DEPT
Acad_Level
SECTION
SEMESTER
Acad_Year
BILL_DATE
GROSS_AMT_DUE
BALANCE
1
138218
Abdirahman Dhuh Gamadid
Agriculture and Veterinary
Year 2
2A
One
2014-2015
1/10/2014
200
0
5638
138218
Abdirahman Dhuh Gamadid
Agriculture and Veterinary
Year 2
2A
Two
2014-2015
3/20/2015
200
200
The above query is working fine but I'm facing only one problem with it which its showing 0 balance for both records instead of different balances like the above desired output.
Please help me in getting the desired result.
Any help would be appreciated.
Thanks in advance,
Mohamoud

Thanks a lot Pituach for your reply; below I posted the script for the database and table creation and inserting sample data into the tables.
CREATE
DATABASE TESTdb
GO
USE TESTdb
CREATE
TABLE [dbo].[STUDENT](
      [STUDENT_ID] [int]
NOT NULL,
      [NAME] [varchar](40)
NULL,
PRIMARY
KEY CLUSTERED
      [STUDENT_ID]
ASC
)WITH
(PAD_INDEX
= OFF,
STATISTICS_NORECOMPUTE
= OFF,
IGNORE_DUP_KEY =
OFF, ALLOW_ROW_LOCKS
= ON,
ALLOW_PAGE_LOCKS =
ON)
ON [PRIMARY]
ON [PRIMARY]
GO
SET
ANSI_PADDING OFF
GO
CREATE
TABLE [dbo].[DEPARTMENT](
      [DEPT_ID] [int]
IDENTITY(1,1)
NOT NULL,
      [NAME] [varchar](30)
NULL,
      [CONTACT_PERSON] [varchar](40)
NULL,
      [PHONE] [int]
NULL,
CONSTRAINT [PK__DEPARTME__512A59AC03317E3D]
PRIMARY KEY
CLUSTERED
      [DEPT_ID]
ASC
)WITH
(PAD_INDEX
= OFF,
STATISTICS_NORECOMPUTE
= OFF,
IGNORE_DUP_KEY =
OFF, ALLOW_ROW_LOCKS
= ON,
ALLOW_PAGE_LOCKS =
ON)
ON [PRIMARY]
ON [PRIMARY]
GO
SET
ANSI_PADDING OFF
GO
CREATE
TABLE [dbo].[SECTION](
      [SECTION_ID] [int]
IDENTITY(1,1)
NOT NULL,
      [SNAME] [varchar](40)
NOT NULL,
      [DEPT_ID] [int]
NOT NULL,
      [Acad_Level] [varchar](30)
NULL,
      [SHIFT] [varchar](20)
NULL,
      [TIME] [varchar](20)
NULL,
      [ROOM] [varchar](20)
NULL,
CONSTRAINT [PK__SECTION__92F8069507020F21]
PRIMARY KEY
CLUSTERED
      [SECTION_ID]
ASC,
      [DEPT_ID]
ASC
)WITH
(PAD_INDEX
= OFF,
STATISTICS_NORECOMPUTE
= OFF,
IGNORE_DUP_KEY =
OFF, ALLOW_ROW_LOCKS
= ON,
ALLOW_PAGE_LOCKS =
ON)
ON [PRIMARY]
ON [PRIMARY]
GO
SET
ANSI_PADDING OFF
GO
CREATE
TABLE [dbo].[TUITION_BILL](
      [Seq_No] [int]
IDENTITY(1,1)
NOT NULL,
      [STUDENT_ID] [int]
NOT NULL,
      [DEPT_ID] [int]
NOT NULL,
      [Acad_Level] [varchar](50)
NOT NULL,
      [SECTION_ID] [int]
NOT NULL,
      [SEMESTER] [varchar](50)
NOT NULL,
      [Acad_Year] [varchar](50)
NOT NULL,
      [BILL_DATE] [date]
NULL,
      [GROSS_AMT_DUE] [decimal](18, 2)
NULL,
CONSTRAINT [PK_TUITION_BILL]
PRIMARY KEY
CLUSTERED
      [STUDENT_ID]
ASC,
      [DEPT_ID]
ASC,
      [Acad_Level]
ASC,
      [SEMESTER]
ASC,
      [Acad_Year]
ASC
)WITH
(PAD_INDEX
= OFF,
STATISTICS_NORECOMPUTE
= OFF,
IGNORE_DUP_KEY =
OFF, ALLOW_ROW_LOCKS
= ON,
ALLOW_PAGE_LOCKS =
ON)
ON [PRIMARY]
ON [PRIMARY]
GO
SET
ANSI_PADDING OFF
GO
CREATE
TABLE [dbo].[TUITION_PAYMENT](
      [Seq_No] [int]
IDENTITY(1,1)
NOT NULL,
      [RECEIPT_NO] [int]
NOT NULL,
      [STUDENT_ID] [int]
NOT NULL,
      [DEPT_ID] [int]
NOT NULL,
      [Acad_Level] [varchar](50)
NOT NULL,
      [SECTION_ID] [int]
NOT NULL,
      [SEMESTER] [varchar](50)
NOT NULL,
      [Acad_Year] [varchar](50)
NOT NULL,
      [SCHOLARSHIP] [decimal](18, 2)
NULL,
      [PAYMENT_DATE] [date]
NULL,
      [PAYMENT_AMT] [decimal](18, 2)
NULL,
      [REFERENCE] [varchar](50)
NULL,
      [REMARKS] [varchar](max)
NULL,
CONSTRAINT [PK_TUITION_PAYMENT]
PRIMARY KEY
CLUSTERED
      [Seq_No]
ASC
)WITH
(PAD_INDEX
= OFF,
STATISTICS_NORECOMPUTE
= OFF,
IGNORE_DUP_KEY =
OFF, ALLOW_ROW_LOCKS
= ON,
ALLOW_PAGE_LOCKS =
ON)
ON [PRIMARY]
ON [PRIMARY]
GO
SET
ANSI_PADDING OFF
GO
USE TESTdb
INSERT
INTO STUDENT(STUDENT_ID,NAME)VALUES(138218,'Abdirahman
Dhuh Gamadid')
INSERT
INTO DEPARTMENT(NAME,CONTACT_PERSON,PHONE)VALUES('Agriculture
and Veterinary','Mohamoud Abdilahi','065')
INSERT
INTO SECTION(SNAME,DEPT_ID,Acad_Level,SHIFT,[TIME],ROOM)VALUES('2A',1,'Year
2','Morning','8:00-10:00','Room 1')
INSERT
INTO TUITION_BILL(STUDENT_ID,DEPT_ID,Acad_Level,SECTION_ID,SEMESTER,Acad_Year,BILL_DATE,GROSS_AMT_DUE)
VALUES(138218,1,'Year
2',1,'One','2014-2015','2014-09-10',200.00)
INSERT
INTO TUITION_BILL(STUDENT_ID,DEPT_ID,Acad_Level,SECTION_ID,SEMESTER,Acad_Year,BILL_DATE,GROSS_AMT_DUE)
VALUES(138218,1,'Year
2',1,'Two','2014-2015','2015-01-10',200.00)
INSERT
INTO TUITION_PAYMENT(RECEIPT_NO,STUDENT_ID,DEPT_ID,Acad_Level,SECTION_ID,SEMESTER,Acad_Year,SCHOLARSHIP,
PAYMENT_DATE,PAYMENT_AMT,REFERENCE,REMARKS)VALUES(1,138218,1,'Year
2',1,'One','2014-2015',0.00,'2014-10-10',200.00,'N','N')

Read two different arrays and display

I have a text file, which has 1000 of entries in the way mentioned below:
Kozos customer
sabze employee
I am reading the content of text file and saving as an arrays.
$global:Content = get-content info.txt
$global:Name=$Content | foreach {
$hashTab=@{Name="" ; Info=""}
$hashTab.Name, $hashTab.Info=$_.Trim() -split '\s+'
New-Object PSObject -Property $hashTab
$global:Names=$ServerList | select -ExpandProperty Name
$global:Infos=$ServerList | select -ExpandProperty Info
How do I read two arrays, I mean read the values of two arrays one by one and display the result as:
Names Infos
Kozos Customer
sabze employee

We get that you are unable to do this, but it is still not clear precisely what it is that you want, a two-dimensional array, or a structure such as SeanQuinlan suggested? Also:
there seems no reason for any of the variables to be global in scope.
Where is the $serverlist variable defined?
what relationship is there between the file you mention and the data in the $serverlist variable?
Your code has three arrays, $name, $names, and $infos; which two of these do you want to combine into a single array? If $names and $infos, would this work for you:
$namesNinfos = $serverlist | select name,info
I suggest that you describe your situation without trying to state it in powershell (as that is partly where your problem lies). You could, for example, show sample content of the file and each of the two arrays, and show what this would look like in your
desired two-dimensional array, perhaps like this:
file info.txt
Kozos customer
sabze employee
array 1:
Kozos
sabze
array 2:
customer
employee
resultant 2D array
column 1 2
row
1 Kozos customer
2 sabze employee
As an aside, it could be that we are getting confused by the term "array". languages such as fortran and basic support multidimensional arrays in which each element is addressed by a set of integer indices, the most common form being row and column, as in
a spreadsheet.
In Powershell, arrays are generally one dimensional, with a single numerical index being used to select a single element ($row3 = $array[2]). That element can optionally have multiple values if it is defined as an array or a hash. This is referred to as
a "jagged array" as each element of the array may not all have the same number of sub-elements as each other.
Powershell also supports true multidimensional arrays, however, these seem fairly rarely used, I suspect because jagged arrays generally provide more easily used functionality.
You can get more details on this from
here and
here.
This, then, leads to my final question:
what type of two-dimensional array are you looking for, and how will your script be processing it?
Al Dunbar -- remember to 'mark or propose as answer' or 'vote as helpful' as appropriate.

F4 help for the screen fields in module pool program

Hi All,
I have a requirement that, i want to provide F4 help for the 2 fields in module pool program. the fields are document number and fiscal year from rbkp table.
i could provide search help for two fields.
but how to select matching fiscal year for that document number.
problem: i am getting fiscal year as first four digits of document number.
please help me to solve this problem.
Thanks & Regards,
Namratha.V

Hi,
If your requirement is after selecting the document no from f4 help then the corresponding year should be updated in the document year field then use FM --> DYNP_VALUES_UPDATE
In this function module pass the screen no program & field for which u want to update value

Using f4 help for table field in module-pool

Hi All,
I am using a table-control in module pool programing.
Fields are coming from MAKT table.
I am trrying to provide a functinality so that when choose
a material no using f4 help for MAKT-MATNR field
the corresponding value of MAKT-MAKTX should
appear itself in corresponding table-control field.
It's not happening right now.
How I can create that functionality??
Thanx in advance

Hi
Please write the custom F4 Help logic for material number in the block process on value-request. in PAI
process on value-request.
Search Help For UOM
field wa_screen_fields-material module Material_help.

How to write module pool program

hai,
what is the module -pool program ?
what are the procedures to write the module-pool program.
plz give the simple program for module-pool programs?
regards
surender

Hi
This component though is not attached to the screen painter, plays important role in transaction. Normally, for reports, on line executable programs are written but for transaction, Module Pool Programs are written. The module pool program contains only modules to handle various events associated with screen and data declaration statements.
System divides the module pool program into several include program. These are global field, PBO modules, and PAI modules. It is entirely users decision whether to use these modules or write directly into main program.
Creation of Module Pool Program
You can create module pool program either through
Object browser
System automatically creates the module pool program and for these program which are created through object browser, system creates the include modules.
Or
ABAP/4 editor
It is similar to normal program creation. Type of program should be given M and is not created by system.
Communication between Dynpro and Module Program
For each screen, the system executes the flow logic, which contains corresponding events. The control is passed to Module Pool Program. Module Pool Program handles the code for these events and again passes back control to the flow logic and finally to screen. Unlike on line program, in this case, the control remains with flow logic. The switching of control between flow logic and module pool program and back is common process when user executes transaction.
Creation of a Complete Transaction
Steps involved to create a complete transaction
     Create module pool program.
     From screen painter create screens.
     Write flow logic for each screen.
     Write code for all the events in module pool program.
     Check for any error in screen and flow logic.
     Generate each and every component of screen i.e. flow logic and screen.
     Single screen can be tested using Screen Painter.
     Create transaction code through object browser.
     Generate the transaction code.
     User can execute the transaction by entering the transaction code in the command field.
Handling Function Code
The function code or OKCODE is the last field of Field list. Function code can be handled as follows:
During the Designing of the screen, a function code is assigned to pushbutton.
     In field list, developer needs to specify OKCODE as last field.
     In module program it is a global field and can be evaluated in the PAI event.
     A function code is treated in the same way, regardless it comes from pushbutton, menu item or any other GUI element.
When the user clicks on the Display button, you want to display details of sflight, with corresponding carrid and connid (which is entered by the user).
Module pool program to handle this particular screen is as follows:
Program YVTEST7.
TABLES: SFLIGHT.
DATA: OKCODE (4).
MODULE INPUT1 INPUT,
CASE OKCODE.
   WHEN DISP.
     SELECT * FROM SFLIGHT
            WHERE CARRID = SFLIGHT CARRID AND
                           CONNID = SFLIGHT CONNID.
     ENDSELECT.
     LEAVE TO SCREEN 200.
   WHEN EXIT. LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.               INPUT1 INPUT
MODULE USER_COMMAND_0200 INPUT.
CASE OKCODE.
WHEN BACK. LEAVE TO SCREEN 100.
ENDCASE.
ENDMODULE.                    USER_COMMAND_0200 INPUT
When the user clicks on display, control is transferred to screen no. 200 on which you display sflight details & on the same screen, when user clicks on BACK button, he comes back to main screen.
Flow logic for screen 100 is as follows:
PROCESS AFTER INPUT.
MODULE INPUT.
Flow logic for screen 200
PROCESS AFTER INPUT.
USER_COMMAND_0200.
MODULES: Modules are handled in module pool program.
You need to write flow logic for screen 200 and design screen 200.
In case of transaction transfer of data from program to screen is automatic i.e. you need not transfer the data from program to screen explicitly. The fields, which you define in the screen receives the data from program and displays the same.
The Field Checks
As already mentioned Transaction is the only method, which SAP recommends to update the database tables. Data entered in the database table should be valid and correct. Data entered is validated at each and every point. ABAP/4 offers various methods to validate data and those are as follows:
     Automatic field checks
     Checks performed in the flow logic
     Checks performed in the ABAP/4 module pool program
Automatic Field Checks
These checks are based on the field information stored in the dictionary. These checks are performed by the system automatically when the user enters the data for the screen field. System performs these checks before PAI event is triggered. Types of field checks performed by system are as follows:
     Required input
While designing the screen, for particular screen field if you click the Req. Entry checkbox, the field becomes mandatory. When the transaction is executed if user leaves this particular field blank, the system displays error message. User cannot proceed until the user enters some data.
     Proper Data Format
Each field has its own data format whether it is table field or screen field. Whenever data is entered, system checks for the proper format of the data. For example date. Each user has its own format for date, which is defined in the user master record. If the date defined in the user master record is in the format DD/MM/YYYY, if the user enters the date, say, in YY/DD/MM, the user displays the error message. System also checks for the value of month or days. For example if month entered is greater than twelve then the error message is displayed.
     Valid Value for the Field
In data dictionary two tables are related by Primary key-Foreign key relationship. Whenever the user enters the data, the system checks for the check table values.   Also in Domain, if you have fixed values, then the system checks for these values.
Automatic field checks are repeated each time the user enters the data.
About at Exit Command
Automatic field checks can be avoided by AT EXIT-COMMAND, which works exactly the same way as Cancel works on application tools bar. In the R/3 screen, if you want to quit the processing of that particular screen without entering the mandatory fields, user can click the Cancel button. Same functionality can be incorporated in the user-defined transaction by using AT EXIT-COMMAND. This module can be called before the system executes the automatic field checks and it goes without saying that before PAI event. Code for AT EXIT-COMMAND in flow logic and in module pool program can be written as follows:
In Flow Logic
Process After Input.
Module exit AT EXIT-COMMAND.
         In module pool program.
Module exit.
Case okcode.
When Exit.
Leave to screen 0.
To achieve this kind of functionality a pushbutton or menu item should be assigned a function type E. It tells the system to process this particular module before carrying out any field checks.
Flow Logic Validations
Consider the case where you want user to enter only LH and SQ for sflight-carrid. In this case, you are restricting value of a screen field. This cannot be achieved by automatic field check. Hence there is a need of additional validation. It can be done in flow logic by using following statement:
Field -
Values
Syntax
PAI.
Field sflight-carrid values (LH).
For multiple values
PAI.
Field sflight-carrid values (LH SQ).
Field sflight-price values (between 1000 and 2000).
In this case when the user enters the value, PAI is triggered and field is checked for that particular value. If the value entered happens to be wrong, that field is enabled for user to enter. If you have multiple Field statements in your flow logic, it is sequential execution.
Consider the following case:
PAI.
Module assign.
Field sflight-carrid values (LH SQ).
In ABAP/4
Module assign.
Data: carrid1 like sflight-carrid.
Carrid1 = sflight-carrid.
Endmodule.
In this case, Sflight-carrid is used in the flow logic before the field statement. The system will give invalid value or some previous value as the field sflight-carrid is used in module before it is checked i.e., field statement is after the module in which sflight-carrid is being used. The field is not available to the system unless it executes the field statement. Field statement transfers the values to the program and is done only once. If you dont have Field statement in your flow logic, transfer of values takes place in PAI event.
Consider one more case where you have multiple field statement
PAI.
Field Sflight-carrid values (LH).
Field Sflight-connid values (0400 0500).
In this case if the user enters only carrid wrong, then this particular field is enabled and rest of the fields are disabled for user to input. Many times if the user enters wrong value for one field, then you might want to give option to user to enter all the fields, which is not possible by using Field statement only. This functionality can be achieved by CHAIN ENDCHAIN.
Syntax
Chain.
Field sflight-carrid value (LH).
     Field sflight-connid values (between 200 and 500).
Endchain.
Field sflight-price values (100 1000).
In this case, if the user enters wrong value only for carrid, both the fields i.e. carrid and connid are enabled as they are grouped together in the Chain statement. The field price will be disabled for input. Usually, logically related fields are grouped together with Chain-Endchain statement.
Module Pool Program Validations
Checking fields ABAP/4 program includes
     Field statement in flow logic.
     Module statement in ABAP/4 module pool Program.
Syntax
PAI.
Field sflight-carrid module <name>.
This module can be handled in the main program i.e. module pool program.
In ABAP/4 program
Module Check.
Select single * from sflight where carrid = sflight-carrid.
If sy-subrc ne 0.
     Message e001.
Endif.
In this case, field sflight-carrid is checked in the table for its existence.
Dynamically Calling the Screens
About Displaying Next Screen
Transaction is a sequence of screens, which are displayed one after the other. The next screen displayed depends upon the attributes of first screen. In attributes you need to give Next Screen number i.e. if next screen displayed should be 200 screen, then this number should be given in next Screen attributes. These are static attributes of the screen. By default, if nothing is specified in the program, the system branches out to the screen number, which is specified in the attribute screen.
In this case, if user selects MARA pushbutton, then fields from Mara table are displayed. When the user clicks on the MARD, then the fields from MARD table are displayed. Depending upon users selection, the screen is branched out and this has to be done during runtime. This functionality can be achieved by dynamically calling the screen in module pool program.
The screen can branch out to new screen depending upon user selection. Following command in module pool program can do this:
     SET SCREEM
     CALL SCREEN
     LEAVE TO SCREEN <NUMBER>
All these commands override the specifications given in the attributes. This overriding is temporary. The values stored in the attribute are not changed.
Set Screen
Syntax
Set screen <number>.
In module pool program
Case okcode.
     When DISP.
          Set screen 200.
     When LIST.
          Set screen 300.
Endcase.
In this case, the entire processing of current screen takes place and then the system branches out to next screen. If you want to branch out to the next screen without processing the current screen, LEAVE SCREEN should be used along with the SET SCREEN.
For Example:
Case okcode..
     When DISP.
          Set screen 200.
          Leave Screen.
     When LIST.
          Set screen 300.
          Leave Screen.
Endcase.
When SET SCREEN is used, control cannot be transferred to the main screen or previous screen, unless you write code for the same.
Call Screen
Usually used for pop up screens. Many times, there is a need for user to enter additional information or secondary information on another screen or pop up screen. Once the user enters the data, he should be able to go back to main screen or to the screen where he started. This is not possible by using SET SCREEN. CALL SCREEN achieves this functionality.
Syntax
Call Screen 200.
Will simply call a screen number 200 from a main screen. Once the screen is displayed the user can enter all the data and return to the main screen by clicking BACK button.
To call screen as pop up screen the syntax is
Call screen starting at <col.no.> <line no>
                     Ending at <col no> <line no>.
In this case window will be popped as window and user can close it by using BACK button.
Leave to screen
To SET a new screen without processing current screen, you need to use the following two statements together:
SET SCREEN 200.
LEAVE SCREEN.
Or a Single statement
LEAVE TO SCREEN 200.

Smart Form and Module Pool

Can anybody provide me good step by step procedurehow create smart form and module pool programming.
My email Id is [email protected]

hi,
SAP Smartforms can be used for creating and maintaining forms for mass printing in SAP Systems. The output medium for Smartforms support printer, fax, e-mail, or the Internet (by using the generated XML output).
According to SAP, you need neither have any programming knowledge nor use a Script language to adapt standard forms. However, basic ABAP programming skills are required only in special cases (for example, to call a function module you created or for complex and extensive conditions).
1. Create a new smartforms
Transaction code SMARTFORMS
Create new smartforms call ZSMART
2. Define looping process for internal table
Pages and windows
First Page -> Header Window (Cursor at First Page then click Edit -> Node -> Create)
Here, you can specify your title and page numbering
&SFSY-PAGE& (Page 1) of &SFSY-FORMPAGES(Z4.0)& (Total Page)
Main windows -> TABLE -> DATA
In the Loop section, tick Internal table and fill in
ITAB1 (table in ABAP SMARTFORM calling function) INTO ITAB2
3. Define table in smartforms
Global settings :
Form interface
Variable name    Type assignment   Reference type
ITAB1               TYPE                  Table Structure
Global definitions
Variable name    Type assignment   Reference type
ITAB2               TYPE                  Table Structure
4. To display the data in the form
Make used of the Table Painter and declare the Line Type in Tabstrips Table
e.g. HD_GEN for printing header details,
        IT_GEN for printing data details.
You have to specify the Line Type in your Text elements in the Tabstrips Output options.
Tick the New Line and specify the Line Type for outputting the data.
Declare your output fields in Text elements
Tabstrips - Output Options
For different fonts use this Style : IDWTCERTSTYLE
For Quantity or Amout you can used this variable &GS_ITAB-AMOUNT(12.2)&
5. Calling SMARTFORMS from your ABAP program
REPORT ZSMARTFORM.
Calling SMARTFORMS from your ABAP program.
Collecting all the table data in your program, and pass once to SMARTFORMS
SMARTFORMS
Declare your table type in :-
Global Settings -> Form Interface
Global Definintions -> Global Data
Main Window -> Table -> DATA
Written by : SAP Hints and Tips on Configuration and ABAP/4 Programming
                    http://sapr3.tripod.com
TABLES: MKPF.
DATA: FM_NAME TYPE RS38L_FNAM.
DATA: BEGIN OF INT_MKPF OCCURS 0.
        INCLUDE STRUCTURE MKPF.
DATA: END OF INT_MKPF.
SELECT-OPTIONS S_MBLNR FOR MKPF-MBLNR MEMORY ID 001.
SELECT * FROM MKPF WHERE MBLNR IN S_MBLNR.
   MOVE-CORRESPONDING MKPF TO INT_MKPF.
   APPEND INT_MKPF.
ENDSELECT.
At the end of your program.
Passing data to SMARTFORMS
call function 'SSF_FUNCTION_MODULE_NAME'
exporting
    formname                 = 'ZSMARTFORM'
VARIANT                  = ' '
DIRECT_CALL              = ' '
IMPORTING
    FM_NAME                  = FM_NAME
EXCEPTIONS
    NO_FORM                  = 1
    NO_FUNCTION_MODULE       = 2
    OTHERS                   = 3.
if sy-subrc <> 0.
   WRITE: / 'ERROR 1'.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
call function FM_NAME
EXPORTING
ARCHIVE_INDEX              =
ARCHIVE_INDEX_TAB          =
ARCHIVE_PARAMETERS         =
CONTROL_PARAMETERS         =
MAIL_APPL_OBJ              =
MAIL_RECIPIENT             =
MAIL_SENDER                =
OUTPUT_OPTIONS             =
USER_SETTINGS              = 'X'
IMPORTING
DOCUMENT_OUTPUT_INFO       =
JOB_OUTPUT_INFO            =
JOB_OUTPUT_OPTIONS         =
TABLES
    GS_MKPF                    = INT_MKPF
EXCEPTIONS
    FORMATTING_ERROR           = 1
    INTERNAL_ERROR             = 2
    SEND_ERROR                 = 3
    USER_CANCELED              = 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.
What is SAP Smart Forms?
SAP Smart Forms is introduced in SAP Basis Release 4.6C as the tool for creating and maintaining forms.
SAP Smart Forms allow you to execute simple modifications to the form and in the form logic by using simple graphical tools; in 90% of all cases, this won't include any programming effort. Thus, a power user without any programming knowledge can
configure forms with data from an SAP System for the relevant business processes.
To print a form, you need a program for data retrieval and a Smart Form that contains the entire from logic. As data retrieval and form logic are separated, you must only adapt the Smart Form if changes to the form logic are necessary. The application program passes the data via a function module interface to the Smart Form. When activating the Smart Form, the system automatically generates a function module. At runtime, the system processes this function module.
You can insert static and dynamic tables. This includes line feeds in individual table cells, triggering events for table headings and subtotals, and sorting data before output.
You can check individual nodes as well as the entire form and find any existing errors in the tree structure. The data flow analysis checks whether all fields (variables) have a defined value at the moment they are displayed.
SAP Smart Forms allow you to include graphics, which you can display either as part of the form or as background graphics. You use background graphics to copy the layout of an existing (scanned) form or to lend forms a company-specific look. During printout, you can suppress the background graphic, if desired.
SAP Smart Forms also support postage optimizing.
Also read SAP Note No. 168368 - Smart Forms: New form tool in Release 4.6C
What Transaction to start SAP Smart Forms?
Execute transaction SMARTFORMS to start SAP Smart Forms.
Key Benefits of SAP Smart Forms:
SAP Smart Forms allows you to reduce considerably the implementation costs of mySAP.com solutions since forms can be adjusted in minimum time.
You design a form using the graphical Form Painter and the graphical Table Painter. The form logic is represented by a hierarchy structure (tree structure) that consists of individual nodes, such as nodes for global settings, nodes for texts, nodes for output tables, or nodes for graphics.
To make changes, use Drag & Drop, Copy & Paste, and select different attributes.
These actions do not include writing of coding lines or using a Script language.
Using your form description maintained in the Form Builder, Smart Forms generates a function module that encapsulates layout, content and form logic. So you do not need a group of function modules to print a form, but only one.
For Web publishing, the system provides a generated XML output of the processed form.
Smart Forms provides a data stream called XML for Smart Forms (XSF) to allow the use of 3rd party printing tools. XSF passes form content from R/3 to an external product without passing any layout information about the Smart Form.
PROGRAM YMPSKEL MESSAGE-ID YL.
DESCRIPTION
written by !
TABLES:
DATA: OK_CODE(4), " ok code - screen 1
OK_CODE2(4).
DATA C LIKE SY-INDEX. " Index for screen loop
*& Module USER_COMMAND_0100 INPUT
process after input for screen 0100 *
MODULE USER_COMMAND_0100 INPUT.
CASE OK_CODE.
WHEN 'SAVE'.
WHEN 'DISP'.
WHEN 'LIST'.
C = 0. "reset loop control
WHEN OTHERS.
ENDCASE.
CLEAR OK_CODE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Module STATUS_0100 OUTPUT
process before output for screen 0100 *
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'AMEND'. " set gui status
SET TITLEBAR '100'. " set title
ENDMODULE. " STATUS_0100 OUTPUT
*& Form SAVE data
Save screen details
FORM SAVE.
CLEAR OK_CODE.
ENDFORM.
*& Form DISPLAY
FORM DISPLAY.
ENDFORM.
*& Module EXIT_COMMAND INPUT
exit commands are processed before validation *
defined by E against function in menu painter(function list)
MODULE EXIT_COMMAND INPUT.
CASE OK_CODE.
WHEN 'EXIT'. CLEAR OK_CODE. SET SCREEN 0. LEAVE SCREEN.
WHEN 'CANC'. CLEAR OK_CODE. SET SCREEN 0. LEAVE SCREEN.
WHEN 'BACK'. CLEAR OK_CODE. SET SCREEN 0. LEAVE SCREEN.
ENDCASE.
ENDMODULE. " EXIT_COMMAND INPUT
*& Form list
text *
FORM LIST.
CLEAR OK_CODE. SET SCREEN 200. LEAVE SCREEN.
ENDFORM. " LIST
*& Module EXIT_COMMAND_200 INPUT
exit command processing for screen 200 *
defined by E against function in menu painter(function list)
MODULE EXIT_COMMAND_200 INPUT.
CASE OK_CODE2.
WHEN 'EXIT'. CLEAR OK_CODE2. SET SCREEN 0. LEAVE SCREEN.
WHEN 'CANC'. CLEAR OK_CODE2. SET SCREEN 0. LEAVE SCREEN.
WHEN 'BACK'. CLEAR OK_CODE2. SET SCREEN 100. LEAVE SCREEN.
ENDCASE.
ENDMODULE. " EXIT_COMMAND_200 INPUT
*& Module STATUS_0200 OUTPUT
process before output for screen 200 *
MODULE STATUS_0200 OUTPUT.
SET PF-STATUS 'POPUP'.
SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0200 OUTPUT
Module pool programs are created in abap development work bench (TCODE: SE80).
Here we can do all the works whatever you can do in abap.
Module pool programs are also called dialog programs.
The module Pool are reports prepared for different screens and to manage the sequence of events of these screens, in the transaction SE80 you can see all the dynpros that you have for this kind of report, add new ones, add all types of element to the report.
Process Before Output is the part of the dynpro code that is processed before the user can do anything with the data in the screen
Process After Input is the part of the dynpro code that is processed after the interaction with the user.
module pool programs are excuted using Tcodes
regards,
sreelakshmi

How can I use the same "I Tunes" on two different computers

I’m using two different kinds of Personal Computer: One is Desktop PC And the other one is Notebook .
In each computer there are the same songs and when I get the new ones to the Desktop I want them to be placed on the Notebook or reverse.
Where does the I Tunes save the playlist on the hard drive ?
I have prepared a playlist on my Notebook and want it to be seen on the Desktop but I dont want to fallow the steps File > Library > Export Playlist on the Notebook. Is there any other way to make this issue instead of the mentioned steps.
How can I see the same Playlists and songs on two different computers ( notebook and desktop) including the updating processes.
Operating systems of the computers:
Desktop: XP Pro
Notebook: Vista Bussiness

I use SyncToy 2.0 to keep two instances of my library in sync. SyncToy's preview will show which files it is about to update giving you a chance to spot unexpected changes and during the run only the changed files will be copied saving lots of time.
As long as I sync after making updates at one instance of the library before making any updates at the other then everything works just fine. I periodically run iTunes Folder Watch to check for any orphaned entries or new items that haven't been imported into the active library. If your machines are regularly networked together this process is fairly straightfoward. Mine are in disparate locations so I use one of the (physically) small WD My Passport host powered drives which I take between home & work, synchronising at either end. This gives me three complete copies of my library so I'm covering backup & synchronisation in the same operation.
When connecting my iPod at either location iTunes recognises itself as the "home" library for the iPod so I'm able to use the sync with selected playlists option without getting warning messages about the iPod being synced with a different library.
tt2

Date Format in DD-MM-YYYY in Module Pool

Hi,
How can I show date in DD-MM-YYYY Format in Module Pool
Thanks

declare a field of length 10 in ur screen and use this logic
data : gv_datum(10) type c,
          gv_dt like sy-datum.
        gv_dt = sy-datum.           "here u can give the date field .
CONCATENATE gv_dt+6(2) gv_dt+4(2) gv_dt+0(4)
        INTO gv_datum
        SEPARATED BY '-'.
write:/ gv_datum.
regards,
vijay

For module pool

Hiiiiiiiii
friends i wanna discuss that
i had created a module pool with tabstrip and calling 7 subscreens in that
i had save button for that
lets suppose 0001 is main screen
0002,0003,00034,0005,0006,0007,0008,0009 are subscreens that r called in module pool main screen 0001.
Now i want that for updating that module pool i shuld run a different transaction
so friends i had to make a different screen in which update code is to be written and rest same
means subscreens should also be called up in different main screen
or their is some other way out else creating screen
reply
me waiting
With Best Regards
Ruby

Hi
go to the following link:
http://sapmaterial.com/dialog_programming.html
Reward points if helpful.
Srikanta gope

Module Pool - I/O fields - Two different kinds of display

Similar Messages

Maybe you are looking for