Set to new line for each label/text combination ?

Dear All,
Wish to enquire how to set to next line for each label/text combination in relation to the following code ? Please advise.
import java.awt.*;
public class ScanImageForm {
public static void main(String args[]) {
     ScanImageForm scanImageForm = new ScanImageForm();
     scanImageForm.Display();
public void Display() {
     Frame frame = new Frame();
     Panel panel = new Panel();
     frame.add(panel);
     Label labelVehNo = new Label("Vehicle No:");
     Label labelDateofLoss = new Label("Date of Loss:");
     Label labelImageType = new Label("Image Type:");
     Label labelImageDesc = new Label("Image Desc:");
     TextField textVehNo = new TextField();
     TextField textDateofLoss = new TextField();
     TextField textImageType = new TextField();
     TextField textImageDesc = new TextField();
     textVehNo.setColumns(10);
     textDateofLoss.setColumns(10);
     textImageType.setColumns(10);
     textImageDesc.setColumns(30);
     panel.add(labelVehNo, BorderLayout.WEST);
     panel.add(textVehNo, BorderLayout.CENTER);
     panel.add(labelDateofLoss, BorderLayout.WEST);
     panel.add(textDateofLoss, BorderLayout.CENTER);
     panel.add(labelImageType, BorderLayout.WEST);
     panel.add(textImageType, BorderLayout.CENTER);
     panel.add(labelImageDesc, BorderLayout.WEST);
     panel.add(textImageDesc, BorderLayout.CENTER);
     frame.setSize(500, 500);
     frame.setVisible(true);

if u want to set label and textfield side by side .
then u have to set The layout is GridLayout().
to ur example
Panel p=new Panel(new GridaLayout(3,2))
means three rows to columns.

Similar Messages

Utl file - I need to get new line for each value

I wrote an utl_file package to generate an html file. It is working fine, however, I am having difficulty formating my output.
I like to have values returned one line at a time. For instance,
Name:Sam Ok
area code: 407
phone: 333-4444
picture: display here.
It is displaying values on one line.
Please help if you can. Here is the code.
Thanks,
sam
CREATE OR REPLACE PROCEDURE Cr_Movie_PRV_HTML(
P_Filename IN varchar2,
p_Id IN mist_physician.mp_phys_Id%TYPE
AS
CURSOR C_mist IS
SELECT mp_name,
mp_update_datetime,
mp_area_code,
mp_phone,
mp_address,
mp_fax
FROM Mist_Physician
WHERE Mp_phys_id = P_Id;
v_mp_name mist_physician.mp_name%type;
v_mp_update_datetime mist_physician.mp_update_datetime%type;
v_mp_areacode mist_physician.mp_area_code%type;
v_phone mist_physician.mp_phone%type;
v_mp_address mist_physician.mp_address%type;
v_mp_fax mist_physician.mp_fax%type;
V_FileHandle UTL_FILE.FILE_TYPE; -- This will be used to store the filename
BEGIN
--Open The specified file to write into and get V_FileHandle.
V_FileHandle := UTL_FILE.FOPEN('c:\mist_info', P_FileName, 'w');
IF Utl_File.IS_OPEN(V_FileHandle) = FALSE THEN
RAISE_APPLICATION_ERROR(-20000,'Error opening '||P_FileName||' for WRITE');
END IF;
Let's build the header file that will be inside the file that will identify why thus file is created.
utl_file.put_line(V_FileHandle,'#---------------------------------------');
utl_file.put_line(V_FileHandle,'Name'||' : '||mist_Rec.mp_name);
utl_file.put_line(V_FileHandle,'Date');
utl_file.put_line(V_FileHandle,'Phone');
utl_file.put_line(V_FileHandle,'Address');
utl_file.put_line(V_FileHandle,'# Generated on: '||to_char(sysdate, 'Mon DD, YYYY (Dy) HH:MI:SS AM'));
utl_file.put_line(V_FileHandle,'#-----------------------------------------');
utl_file.put_line(V_FileHandle,' ');
-- Next we will query data from the Movie table. Only data that are relevant.
-- Using PUT_LINE, write text with the field arguments out to the file
BEGIN
FOR Mist_Rec IN C_Mist LOOP
UTL_FILE.PUT_LINE(V_FileHandle,'Name'||':'||Mist_Rec.Mp_Name||','||'<img src=c:/our_website/co16.jpeg>');
END LOOP;
SELECT mp_name,
mp_update_datetime,
mp_area_code,
mp_phone,
mp_address,
mp_fax
INTO v_mp_name,
v_mp_update_datetime,
v_mp_areacode,
v_phone,
v_mp_address,
v_mp_fax
FROM Mist_Physician
WHERE Mp_phys_id = P_Id;
END;
-- Now Close the file
UTL_FILE.FCLOSE( V_FileHandle);
EXCEPTION
WHEN Utl_File.Invalid_Path THEN
RAISE_APPLICATION_ERROR(-20001,'Error: Invalid Path');
WHEN Utl_File.Invalid_Operation THEN
RAISE_APPLICATION_ERROR(-20002,'Error: Invalid File Operation');
IF Utl_File.IS_OPEN(V_FileHandle) = TRUE THEN
Utl_File.FCLOSE(V_FileHandle);
END IF;
WHEN Utl_File.Invalid_Mode THEN
RAISE_APPLICATION_ERROR(-20003,'Error: Invalid Mode');
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('ERROR: ' || SQLCODE || '-'||SQLERRM);
END Cr_Movie_PRV_HTML;
/**********************End Of Mist*********************/

Syntax is::
UTL_FILE.NEW_LINE(filename, nuber-of-lines)
CREATE OR REPLACE PROCEDURE Cr_Movie_PRV_HTML(
P_Filename IN varchar2,
p_Id IN mist_physician.mp_phys_Id%TYPE
AS
CURSOR C_mist IS
SELECT mp_name,
mp_update_datetime,
mp_area_code,
mp_phone,
mp_address,
mp_fax
FROM Mist_Physician
WHERE Mp_phys_id = P_Id;
v_mp_name mist_physician.mp_name%type;
v_mp_update_datetime mist_physician.mp_update_datetime%type;
v_mp_areacode mist_physician.mp_area_code%type;
v_phone mist_physician.mp_phone%type;
v_mp_address mist_physician.mp_address%type;
v_mp_fax mist_physician.mp_fax%type;
V_FileHandle UTL_FILE.FILE_TYPE; -- This will be used to store the filename
BEGIN
--Open The specified file to write into and get V_FileHandle.
V_FileHandle := UTL_FILE.FOPEN('c:\mist_info', P_FileName, 'w');
IF Utl_File.IS_OPEN(V_FileHandle) = FALSE THEN
RAISE_APPLICATION_ERROR(-20000,'Error opening '||P_FileName||' for WRITE');
END IF;
utl_file.put_line(V_FileHandle,' ');
-- Next we will query data from the Movie table. Only data that are relevant.
-- Using PUT_LINE, write text with the field arguments out to the file
BEGIN
FOR Mist_Rec IN C_Mist LOOP
--Let's build the header file that will be inside the file that will
--identify why thus file is created.
UTL_FILE.PUTF
(file_handle, %s,'--------------------------');
UTL_FILE.NEW_LINE(V_FileHandle, 1)
UTL_FILE.PUTF (file_handle, '%s','Name'||':'||Mist_Rec.Mp_Name, )
UTL_FILE.NEW_LINE(V_FileHandle, 1)
.(Chang the below all u will get as u required)
'Date'||' : '||Mist_Rec.mp_update_datetime,
'Area Code'||' : '||Mist_Rec.mp_area_code,
'Phone'||' : '||Mist_Rec.mp_phone,
'Address'||' : '||Mist_Rec.mp_address,
'Fax'||' : '||Mist_Rec.mp_fax,
'# Generated on: '||to_char(sysdate, 'Mon DD,
YYYY (Dy) HH:MI:SS AM')),
'<img src=c:/our_website/co16.jpeg>'),
-- UTL_FILE.PUT_LINE(V_FileHandle,'Name'||':'||Mist_Rec.Mp_Name||','||'<img
--src=c:/our_website/co16.jpeg>');
END LOOP;
SELECT mp_name,
mp_update_datetime,
mp_area_code,
mp_phone,
mp_address,
mp_fax
INTO v_mp_name,
v_mp_update_datetime,
v_mp_areacode,
v_phone,
v_mp_address,
v_mp_fax
FROM Mist_Physician
WHERE Mp_phys_id = P_Id;
END;
-- Now Close the file
UTL_FILE.FCLOSE( V_FileHandle);
EXCEPTION
WHEN Utl_File.Invalid_Path THEN
RAISE_APPLICATION_ERROR(-20001,'Error: Invalid Path');
WHEN Utl_File.Invalid_Operation THEN
RAISE_APPLICATION_ERROR(-20002,'Error: Invalid File Operation');
IF Utl_File.IS_OPEN(V_FileHandle) = TRUE THEN
Utl_File.FCLOSE(V_FileHandle);
END IF;
WHEN Utl_File.Invalid_Mode THEN
RAISE_APPLICATION_ERROR(-20003,'Error: Invalid Mode');
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('ERROR: ' || SQLCODE || '-'||SQLERRM);
END Cr_Movie_PRV_HTML;
/**********************End Of Mist*********************/

New line for each segment for Inhouse files using bic mapping..!!

Hi ,
Idoc to File scenario.
In the receiver adapter, we need to convert the XML into file(Inhouse format) by using seeburger mapping.
We have generated the map for this in bic and used in Module configuration of receiver adapter.
Now the question is I need to get each segment of XML file into a separate line in the output file like below.
HDR ... ......
DTL .........
DTL ........
where HDR is the header and DTL is the details segments.
Iam getting the output in a single line like HDR.........DTL.........DTL.........
but not as expected like above .
I tried by using newLine = true in module configuration, but no use.
I digged into bic designer to search for any option , but no use.
Kindly suggest me if any one has any idea on this.
Thanks&Regards'
Deepthi.

Hi Deepthi,
    Did you find the solution, please let me now if you get.
did you mention the below code to solve the issue.
copy the below section in the NewMapping Program:
   SetDestinationDelimiter("SubElement", ">");
   SetDestinationDelimiter("Element", "~");
   SetDestinationDelimiter("Segment", "\n");
Regards,
Varun Reddy.K

FillBy always fills in the same row in data grid view. How to make it fill in a new row for each click of the Fillby Button? VB 2010 EXPRESS?

Hi there,
I am a beginner in Visual Basic Express 2010. I have a Point of Sale program that uses DataGridView to display records from an external microsoft access
database using the fillby query.
It works, but it repopulates the same row each time, but i want to be able to display multiple records at the same time, a new row should be filled for
each click of the fillby button.
also I want to be able to delete any records if the customer suddenly decides to not buy an item after it has already been entered.
so actually 2 questions here:
1. how to populate a new row for each click of the fillby button
2. how to delete records from data grid view after an item has been entered
Thanks
Vishwas

Hello,
The FillBy method loads data according to what the results are from the SELECT statement, so if there is one row then you get one row in the DataGridView, have two rows then two rows show up.
Some examples
Form load populates our dataset with all data as it was defined with a plain SELECT statement. Button1 loads via a query I created after the fact to filter on a column, the next button adds a new row to the existing data. When adding a new row it is appended
to the current data displayed and the primary key is a negative value but the new key is shown after pressing the save button on the BindingNavigator or there are other ways to get the new key by manually adding the row to the backend table bypassing the Adapter.
The following article with code shows this but does not address adapters.
Conceptually speaking the code in the second code block shows how to get the new key
Public Class Form1
Private Sub StudentsBindingNavigatorSaveItem_Click(
sender As Object, e As EventArgs) Handles StudentsBindingNavigatorSaveItem.Click
Me.Validate()
Me.StudentsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.MyDataSet)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'MyDataSet.Students' table. You can move, or remove it, as needed.
Me.StudentsTableAdapter.Fill(Me.MyDataSet.Students)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.StudentsTableAdapter.FillBy(Me.MyDataSet.Students, ComboBox1.Text)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.MyDataSet.Students.AddStudentsRow("Jane", "Adams", "Female")
End Sub
End Class
Get new key taken from
this article.
Public Function AddNewRow(ByVal sender As Customer, ByRef Identfier As Integer) As Boolean
Dim Success As Boolean = True
Try
Using cn As New OleDb.OleDbConnection With {.ConnectionString = Builder.ConnectionString}
Using cmd As New OleDb.OleDbCommand With {.Connection = cn}
cmd.CommandText = InsertStatement
cmd.Parameters.AddWithValue("@CompanyName", sender.CompanyName)
cmd.Parameters.AddWithValue("@ContactName", sender.ContactName)
cmd.Parameters.AddWithValue("@ContactTitle", sender.ContactTitle)
cn.Open()
cmd.ExecuteNonQuery()
cmd.CommandText = "Select @@Identity"
Identfier = CInt(cmd.ExecuteScalar)
End Using
End Using
Catch ex As Exception
Success = False
End Try
Return Success
End Function
In closing I have not given you a solution but hopefully given you some stuff/logic to assist with this issue, if not perhaps I missed what you want conceptually speaking.
Additional resources
http://msdn.microsoft.com/en-us/library/fxsa23t6.aspx
Please remember to mark the replies as answers if they help and unmark them if they provide no help, this will help others who are looking for solutions to the same or similar problem.

Wrapping Text to a New Line in a Single Text Field.

I was wondering is it possible to conintue text in the same text field that runs out of space on a line to a new line in the same text field. If this is possible could someone please advise.
i.e:
alot of text and random txt [ text box
text ] more txt on the next line.

You need to check the checkbox "Allow multiple lines" in the Object properties.. You need to check the checkbox "Expand to Fit" for height in the Layout properties of the field.
When you do this, you need to set the subform that wraps the TextField to Flowed. Otherwise the text will overlap on the fields below.
Make sure you save the form as Dynamic PDF. Goto File menu -> Form Properties and choose Default tab. And select "Render PDF as" Dynamic PDF.
Hope this helps.
Thanks
Srini
Added the image.. Message was edited by: Srini Dhulipalla

Counting the number of lines for each procedure in a package

Hi,
I would like to write a query on USER_SOURCE that can display the number of code lines for each procedure/function in a package.
Is it possible to write such a query? Maybe by using analytical functions?
for example in the following example i would like to count the lines between "PROCEDURE proc1 IS" and "END proc1;" and between "PROCEDURE proc2 IS" and "END proc2;"
SQL> select text from user_source where name='PKG_TEST' and type='PACKAGE BODY';
TEXT
PACKAGE BODY PKG_TEST IS
PROCEDURE proc1 IS
BEGIN
 update t1 set EDITION_NAME = 'AAAAAAA';
 commit;
END proc1;
PROCEDURE proc2 IS
BEGIN
 update t1 set EDITION_NAME = 'AAAAAAA';
 commit;
END proc2;
END PKG_TEST;thanks for helping

onedbguru wrote:
Hopefully some idiot manager isn't trying to use this sort of thing to base their decisions on developer productivity. If so, they ARE idiots. Number of code lines NEVER, EVER, EVER!!! translates into an efficient application. If I were paid by the line, my code would look like:
select
1
from
dual
Based on the idiocy of this method of determining "performance" I would get paid $5.00 at $1.00/line. And trust me, I saw this back in the 80's and 90's and saw similar idiotic code and had to clean up the mess. Most of it wasn't efficient code to start with let alone the number of lines generated.Or the other extreme, when the PHB firmly believed that execution efficiency was gained by reducing the number of lines of code. So instead of nicely formatted, easy to read code:
 *GET NEXT ORDER NUMBER
 EXEC SQL
 SELECT (MAX(ORDER_NUM) + 1)
 INTO :NEXT-NUM:IND-NULL
 FROM PART_ORDER
 END-EXEC.
 IF IND-NULL < 0
 MOVE 1 TO NEXT-NUM.
 EXEC SQL
 INSERT
 INTO PART_ORDER
 (ORDER_NUM,
 ORIGIN_LOC,
 ORDER_TYPE,
 ORDER_STAT,
 CREAT_TIME)
 VALUES (:NEXT-NUM,
 :LOC, 'R', 'O',
 CURRENT TIMESTAMP)
 END-EXEC.
 MOVE NEXT-NUM TO MASK0.
 PERFORM HEADER-PROC THRU HEADER-EXIT.
 CREATE-ORDER-EXIT. EXIT. You got this:
 *GET NEXT ORDER NUMBER
 EXEC SQL SELECT (MAX(ORDER_NUM) + 1) INTO :NEXT-NUM:IND-NULL FROM
 PART_ORDER END-EXEC. IF IND-NULL < 0 MOVE 1 TO NEXT-NUM. EXEC SQL INSERT
 INTO PART_ORDER (ORDER_NUM, ORIGIN_LOC, ORDER_TYPE, ORDER_STAT,
 CREAT_TIME) VALUES (:NEXT-NUM, :LOC, 'R', 'O', CURRENT TIMESTAMP)
 END-EXEC. MOVE NEXT-NUM TO MASK0. PERFORM HEADER-PROC THRU HEADER-EXIT.
 CREATE-ORDER-EXIT. EXIT. Oh, wait! See the same thing all the time in this forum ... not because someone thinks fewer lines = faster code, but simply because people are sloppy.
INSERT INTO PART_ORDER(ORDER_NUM,ORIGIN_LOC,ORDER_TYPE,ORDER_STAT,CREAT_TIME) VALUES (:NEXT-NUM,:LOC, 'R', 'O',CURRENT TIMESTAMP) ;

How to set a new value for formula field in crystal reports xi?

How to set a new value for formula field in crystal reports xi?//formula{@description} exemplo in VB6crxSubreport.FormulaFields.Item(1).Text = "'Subreport Formula'" orcrxSubreport.FormulaFields.Item("description").Text = "'Subreport Formula'"How to in JRC? 

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

Inserting a new line after each tag of an xml

Hi,
I am having a requirement where i need to insert a newline after each tag<> of an xml. I am sending an xml to target system using JMS adapter and the target system has UNIX as OS.
In unix system if we see the output xml, it will be in a single string as shown
<?xml version="1.0" encoding="ISO-8859-1"?><messages><Field1\><Field2\>.........................</messages>
But the desired output should be in the below format
<?xml version="1.0" encoding="ISO-8859-1"?>
<messages>
<Field1\>
<Field2\>
</messages>
And there should not be any indentation for the xml. It should be in the above format it self.

Hi,
I believe this can be achieved through XSLT or JAVA Mapping.
Please refer to the following link:
XSLT Mapping:
Inserting a new line after each tag of an xml
JAVA Mapping:
In Java Mapping ,all you have to do is to make a code that does a search and replace.
Hope this helps,

Can I set individual alerts (tones) for each calendar events/ reminders

Can I set individual alerts (tones) for each calendar events/ reminders

Thanks On my phone, these are the options under Menu>Settings & Tools>Sound Settings>Alert Sounds: 1. TXT Message 2. Multimedia Message 3. Voicemail 4. Emergency Tone 5. Missed Call . And under Service Alerts: 1. ERI 2. Minute Beep 3. Call Connect 4. Charge Complete 5. Software Update. So nothing there for the calendar. And options from the calendar that I can see are Add (here you can change the tone for one event or recurring event, but not set a default tone for the event alarm), View (gives you the options of viewing an existing event in more detail, adding a new one, and the same choices from the Options list on the first screen where you are viewing the entire month), and Options (1. lets you view weekly/monthly, 2. Go To Today 3. Go To Date 4. Search 5. Erase All 6. Erase All Old 7. Send. So as far as I can see, there's no way to do it. I have been through all the Settings and Tools menus... and the Events menu. But...I have just discovered that if I delete ALL my alarms and change the Ringtone for the first alarm I set, that ringtone becomes the default ringtone. I will try deleting ALL my events and starting fresh with a new tone and see if that works!

How do I create a new Folder for each test report based on Serial number?

I want to be able to create a new folder for each test report based on serial number. Each time a UUT is tested, I want the report to go to the appropriate folder. What is the best way to do this?
Thanks

Hello Tman,
This is a slightly tricky question. The reason being, the report options like the report path etc, are set before you see the serial number prompt when you run your UUT. There might be other ways of getting around this, but a quick solution would be modifying the process model.
I modified the PreUUT callback to set the report options. I passed the reportOptions as a parameter to this sequence. In the PreUUT sequence, I set the following fields:
Parameters.ReportOptions.GeneratePath=False
Parameters.ReportOptions.ReportFilePath= "c:\\"+ Locals.SerialNumber +"\\report.xml"
I hope this would give you an idea.
SijinK

New layer for each artboard

Hi,
I've just recently started learning Illustrator and have used photoshop for a long time. I have been getting on OK and yesterday had a file open with about 4 different artboards (was making wedding invitations) and went to start a 5th one and decided to add a new layer to this artboard and it then struck me that all the artboards had exactly the same layer! Now as a photoshop user this bamboozled me and the photoshop part of me gets annoyed, because I would like every artboard to have a different set of layers so that they are always separate. Can anyone tell me if I'm just not grasping how illustrator does things or is there a way to set up illustrator to have a new set of layers for every artboard? Is it just a case that I have to create a new layer for each artboard manually?
Sorry if this is a basic question, but I've searched for this answer but couldn't find it.
Cheers in advance.
Oh and just in case, I'm using CS5 on an iMac.

and the photoshop part of me gets annoyed
You need to "turn off" the photoshop part of you when working in Illustrator. Two entirely different worlds, and rightly so.
because I would like every artboard to have a different set of layers so that they are always separate.
If that's what you want, there are other programs in Illustrator's category which provide that. Corel Draw X3 is one example. In real use, though, page-specific layers is not the panacea you may think. It has resulted in much tedium and confusion and consternation in the Draw community.
If you insist on working that way, there's no reason you can't set up your file with top-level Layers coresponding to each Artborad. But you'll probably soon find it more cumbersome and tedious than actually practical.
Forget trying to think of Illustrator Layers and Photoshop Layers as similar things. They are not. Two entirely different constructs. That's a good thing. They should not be made to "work alike." If anything, Photoshop just needs to change the name from "Layers" to "Films" or "Overlays" or something like that, to help stop this widespread misconception among newcommers.
JET

This is regarding printing vertical lines for each and every field

Hi to all.....
1....Hi
here is a requirement
i want to print vertical lines and horizontal lines for each and every field in the output of a report.Here i want to see the output just like table i.e i want to draw line after each field.
 suppose if the output list contains just 10 records, then the vertical line must end for 10 records.how to draw vertical lines for this requirement.
thanks and regards,
k.swaminath

Hi
In report you can use
sy-uline for horizontal line
sy-vline for vertical lines.
Check this sample report
DATA: BEGIN OF USR_TABL OCCURS 0.
INCLUDE STRUCTURE UINFO.
DATA: END OF USR_TABL.
DATA: L_LENGTH TYPE I,
T_ABAPLIST LIKE ABAPLIST OCCURS 0 WITH HEADER LINE, BEGIN OF T_USER OCCURS 0, COUNTER TYPE I, SELECTION TYPE C, MANDT LIKE SY-MANDT, BNAME LIKE SY-UNAME, NAME_FIRST LIKE V_ADRP_CP-NAME_FIRST, NAME_LAST LIKE V_ADRP_CP-NAME_LAST, DEPARTMENT LIKE V_ADRP_CP-DEPARTMENT, TEL_NUMBER LIKE V_ADRP_CP-TEL_NUMBER, END OF T_USER, L_CLIENT LIKE SY-MANDT, L_USERID LIKE UINFO-BNAME, L_OPCODE TYPE X, L_FUNCT_CODE(1) TYPE C, L_TEST(200) TYPE C.
L_OPCODE = 2.
CALL ThUsrInfo ID OPCODE FIELD L_OPCODE
ID TAB FIELD USR_TABL-*SYS*.
CLEAR T_USER. REFRESH T_USER.
LOOP AT USR_TABL.
T_USER-MANDT = USR_TABL-MANDT. T_USER-BNAME = USR_TABL-BNAME. APPEND T_USER.
ENDLOOP.
SORT T_USER.
DELETE ADJACENT DUPLICATES FROM T_USER.
LOOP AT T_USER.
T_USER-COUNTER = SY-TABIX. SELECT V~NAME_FIRST V~NAME_LAST V~DEPARTMENT V~TEL_NUMBER INTO (T_USER-NAME_FIRST, T_USER-NAME_LAST, T_USER-DEPARTMENT, T_USER-TEL_NUMBER) FROM USR21 AS U JOIN V_ADRP_CP AS V ON U~PERSNUMBER = V~PERSNUMBER AND U~ADDRNUMBER = V~ADDRNUMBER WHERE U~BNAME = T_USER-BNAME. ENDSELECT. MODIFY T_USER.
ENDLOOP.
SORT T_USER BY NAME_LAST NAME_FIRST.
PERFORM DISPLAY_LIST.
TOP-OF-PAGE.
PERFORM DISPLAY_MENU.
 * End of top-of-page
TOP-OF-PAGE DURING LINE-SELECTION.
PERFORM DISPLAY_MENU.
 * End of top-of-page during line-selection
AT LINE-SELECTION.
IF SY-CUROW = 2. IF SY-CUCOL < 19. T_USER-SELECTION = X. MODIFY T_USER TRANSPORTING SELECTION WHERE SELECTION = . PERFORM DISPLAY_LIST. ELSEIF SY-CUCOL < 36. CLEAR T_USER-SELECTION. MODIFY T_USER TRANSPORTING SELECTION WHERE SELECTION = X. PERFORM DISPLAY_LIST. ELSEIF SY-CUCOL < 50. PERFORM TRANSFER_SELECTION. PERFORM POPUP_MSG. ELSEIF SY-CUCOL < 67. PERFORM TRANSFER_SELECTION. SORT T_USER BY NAME_LAST. PERFORM DISPLAY_LIST. ELSEIF SY-CUCOL < 81. PERFORM TRANSFER_SELECTION. SORT T_USER BY NAME_FIRST. PERFORM DISPLAY_LIST. ELSEIF SY-CUCOL < 93. PERFORM TRANSFER_SELECTION. SORT T_USER BY MANDT. PERFORM DISPLAY_LIST. ENDIF. ENDIF.
 * End of line-selection
*& Form DISPLAY_LIST
FORM DISPLAY_LIST.
SY-LSIND = 0.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
LOOP AT T_USER.
WRITE: / SY-VLINE, T_USER-SELECTION AS CHECKBOX, SY-VLINE, T_USER-MANDT, SY-VLINE, T_USER-BNAME, SY-VLINE, T_USER-NAME_FIRST(15), SY-VLINE, T_USER-NAME_LAST(15), SY-VLINE, T_USER-DEPARTMENT, SY-VLINE, T_USER-TEL_NUMBER(20), SY-VLINE. HIDE: T_USER-COUNTER, T_USER-SELECTION.
ENDLOOP.
FORMAT COLOR OFF.
WRITE: /(108) SY-ULINE.
ENDFORM. DISPLAY_LIST
*& Form DISPLAY_MENU
FORM DISPLAY_MENU.
FORMAT COLOR COL_HEADING HOTSPOT. WRITE: (91) SY-ULINE, / SY-VLINE NO-GAP, (4) ICON_SELECT_ALL NO-GAP, Select All, SY-VLINE NO-GAP, (4) ICON_DESELECT_ALL NO-GAP, Deselect All, SY-VLINE NO-GAP, (4) ICON_SHORT_MESSAGE NO-GAP, Send Popup, SY-VLINE NO-GAP, (4) ICON_SORT_UP NO-GAP, Last Name NO-GAP, SY-VLINE NO-GAP, (4) ICON_SORT_UP NO-GAP, First Name NO-GAP, SY-VLINE NO-GAP, (4) ICON_SORT_UP NO-GAP, Client NO-GAP, SY-VLINE, /(91) SY-ULINE, /(108) SY-ULINE. FORMAT HOTSPOT OFF. WRITE: / SY-VLINE, , SY-VLINE, Cli, SY-VLINE, User , SY-VLINE, First Name , SY-VLINE, Last Name , SY-VLINE, Department , SY-VLINE, Telephone , SY-VLINE, /(108) SY-ULINE. FORMAT COLOR OFF.
ENDFORM. DISPLAY_MENU
*& Form TRANSFER_SELECTION
FORM TRANSFER_SELECTION.
DO. READ LINE SY-INDEX FIELD VALUE T_USER-SELECTION. IF SY-SUBRC <> 0. EXIT. ENDIF. MODIFY T_USER TRANSPORTING SELECTION WHERE COUNTER = T_USER-COUNTER. ENDDO. CLEAR T_USER.
ENDFORM. TRANSFER_SELECTION
*& Form POPUP_MSG
FORM POPUP_MSG.
DATA: L_MSG LIKE SM04DIC-POPUPMSG VALUE Experimental Message, L_LEN TYPE I, L_RET TYPE C. LOOP AT T_USER WHERE SELECTION = X. PERFORM GET_MESSAGE CHANGING L_MSG L_RET. EXIT. ENDLOOP. IF L_RET = A. User cancelled the message EXIT. ENDIF.
 * Get the message text
L_LEN = STRLEN. LOOP AT T_USER WHERE SELECTION = X. CALL FUNCTION TH_POPUP EXPORTING CLIENT = T_USER-MANDT USER = T_USER-BNAME MESSAGE = L_MSG MESSAGE_LEN = L_LENGTH
 * CUT_BLANKS =
EXCEPTIONS USER_NOT_FOUND = 1 OTHERS = 2. IF SY-SUBRC <> 0. WRITE: User , T_USER-BNAME, not found.. ENDIF. ENDLOOP. IF SY-SUBRC <> 0.
 * Big error! No user has been selected.
MESSAGE ID AT TYPE E NUMBER 315 WITH No user selected!. EXIT. ENDIF.
ENDFORM. POPUP_MSG
*& Form GET_MESSAGE
FORM GET_MESSAGE CHANGING P_L_MSG LIKE SM04DIC-POPUPMSG
P_RETURNCODE TYPE C.
DATA: BEGIN OF FIELDS OCCURS 1. INCLUDE STRUCTURE SVAL.
DATA: END OF FIELDS, RETURNCODE TYPE C.
FIELDS-TABNAME = SM04DIC.
FIELDS-FIELDNAME = POPUPMSG.
FIELDS-FIELDTEXT = Message :. CONCATENATE Msg from SY-UNAME . INTO FIELDS-VALUE SEPARATED BY . APPEND FIELDS.
CALL FUNCTION POPUP_GET_VALUES
EXPORTING POPUP_TITLE = Supply the popup message
IMPORTING RETURNCODE = P_RETURNCODE
TABLES FIELDS = FIELDS.
IF P_RETURNCODE = A.
EXIT.
ELSE.
READ TABLE FIELDS INDEX 1.
P_L_MSG = FIELDS-VALUE.
ENDIF.
ENDFORM. GET_MESSAGE
*End of Program
Regards
Pavan

Create new session for each window opening

From a jsp page i open a page called student.jsp by clicking on students admision no.Therefore lots of pages can be opend in new windows with relevent student details.
but when i click on the link i called a servlet, get relevent details and redirect to student.jsp. The problem is ,all opened windows have same session id and there are session conflicts.
How can i create new sessions for each page thru the servlet or is there any other alternatives

I actually was working on a problem that was similar to this, and the problem is with how each web-browser works with sessions...
Each browser window (Except in one case with IE) will use the same session in each window.
However, you might be able to use URL-Rewritting to manage your sessions and get around using cookies for for session tracking. I personally haven't tried this, but I'm betting that it will work.
Best of Luck,
Nate

I look for integrated in the legend bloc of diaporama, a widget such as "Accordion" for, with a click, or passing with mouse, open a new legend for each photo. I tried with "Accordion" of Muse, it does not work. I tried copy/paste, mais no result. The wid

Question.
I look for integrated in the legend bloc of diaporama, a widget such as "Accordion" for, with a click, or passing with mouse, open a new legend for each photo. I tried with "Accordion" of Muse, it does not work. I tried copy/paste, mais no result. The widget disappear in bloc legend. disparaître. Have you one solution?
Thank you,
Loïc

Accordion or Tabbed panel should to it, with click and open container.
Please provide site url where this does not work, also if you can provide an example where we can see the exact action then it would help us.
Thanks,
Sanjit

New features for each version of Hyperion major planning

Good morning,
I'd like to work on the list of the new features for each of Hyperion Planning major version release: 9.0, 9.1, 9.2, 9.3, 9.3.1. But if there's already available guide/ chart for this, I'd love to refer to that particular documentation.
Thanks a lot and have a nice day
Adrian

Please check the Release content document - Release 12 Financial Applications, which gives the new functionality of the GL module and there is no doc number for this document, I can send it by email if you want.
Srini C

Set to new line for each label/text combination ?

Similar Messages

Maybe you are looking for