Displaying cursor at a specific line
Hi!
I'm developing a text editor in AWT as a part of an assignment. Now when the text editor is rendered i want to display the cursor at the end of the last line. Did a lot of searching but couldn't find it.
Plz help.
Thanks
Sutirtha
So, did you read the API for Caret and find a method that does this?
Sets the caret position to some position.
db
Similar Messages
-
Having trouble reading specific lines from a text file and displaying them in a listbox
I am trying to read specific lines from all of the text files in a folder that are reports. When I run the application I get the information from the first text file and then it returns this error: "A first chance exception of type 'System.ArgumentOutOfRangeException'
occurred in mscorlib.dll"
Below is the code from that form.
Option Strict On
Option Infer Off
Option Explicit On
Public Class frmInventoryReport
Public Function ReadLine(ByVal lineNumber As Integer, ByVal lines As List(Of String)) As String
Dim intTemp As Integer
intTemp = lineNumber
Return lines(lineNumber - 1)
lineNumber = intTemp
End Function
Public Function FileMatches(ByVal folderPath As String, ByVal filePattern As String, ByVal phrase As String) As Boolean
For Each fileName As String In IO.Directory.GetFiles(folderPath, filePattern)
If fileName.ToLower().Contains(phrase.ToLower()) Then
Return True
End If
Next
Return False
End Function
Private Sub frmInventoryReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim intcase As Integer = 1
Dim strTemp, strlist, strFile As String
Dim blnCheck As Boolean = True
strFile = "Report Q" & intcase.ToString & ".txt"
Do While blnCheck = True
strFile = "Report Q" & intcase.ToString & ".txt"
Dim objReader As New System.IO.StreamReader("E:\Furry Friends Animal Shelter Solution\Furry Friends Animal Shelter\" & strFile)
Dim allLines As List(Of String) = New List(Of String)
Do While objReader.Peek <> -1
allLines.Add(objReader.ReadLine())
Loop
objReader.Close()
strlist = ReadLine(1, allLines) & "" & ReadLine(23, allLines)
lstInventory.Items.Add(strlist)
intcase += 1
strTemp = intcase.ToString
strFile = "Report Q" & intcase.ToString & ".txt"
blnCheck = FileMatches("E:\Furry Friends Animal Shelter Solution\Furry Friends Animal Shelter\", "*.txt", intcase.ToString)
Loop
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim intcase As Integer = 1
Dim strTemp, strlist, strFile As String
Dim blnCheck As Boolean = True
strFile = "Report Q" & intcase.ToString & ".txt"
Do While blnCheck = True
strFile = "Report Q" & intcase.ToString & ".txt"
Dim objReader As New System.IO.StreamReader("E:\Furry Friends Animal Shelter Solution\Furry Friends Animal Shelter\" & strFile)
Dim allLines As List(Of String) = New List(Of String)
Do While objReader.Peek <> -1
allLines.Add(objReader.ReadLine())
Loop
objReader.Close()
strlist = ReadLine(1, allLines) & "" & ReadLine(23, allLines)
lstInventory.Items.Add(strlist)
intcase += 1
strTemp = intcase.ToString
strFile = "Report Q" & intcase.ToString & ".txt"
blnCheck = FileMatches("E:\Furry Friends Animal Shelter Solution\Furry Friends Animal Shelter\", "*.txt", intcase.ToString)
Loop
End Sub
End Class
Sorry I'm just beginning coding and I'm still a noob. Any help is appreciated. Thank you!Ok, so if I'm following this correctly you should be able to just loop through all of the files in that folder whose file name matches the pattern and then read the first 22 lines, recording only the first and the last.
Exactly how you store the animal data probably depends on how you are going to display it and what else you are going to do with it. Is there anything other than name and cage number that should be associated with each animal?
You might want to make a dataset with a datatable to describe the animal, or you might write a class, or you might just use something generic like a Tuple. Here's a simple class example:
Public Class Animal
Public Property Name As String
Public Property Cage As String
Public Overrides Function ToString() As String
Return String.Format("{0} - {1}", Name, Cage)
End Function
End Class
With that you can use a routine like the following to loop through all of the files and read each one:
Dim animals As New List(Of Animal)
Dim folderPath As String = "E:\Furry Friends Animal Shelter Solution\Furry Friends Animal Shelter\"
For Each filePath As String In System.IO.Directory.GetFiles(folderPath, "Report Q?.txt")
Using reader As New System.IO.StreamReader(filePath)
Dim lineIndex As Integer = 0
Dim currentAnimal As New Animal
While Not reader.EndOfStream
Dim line As String = reader.ReadLine
If lineIndex = 0 Then
currentAnimal.Name = line
ElseIf lineIndex = 22 Then
currentAnimal.Cage = line
Exit While
End If
lineIndex += 1
End While
animals.Add(currentAnimal)
End Using
Next
'do something to display the animals list
Then you might bind the animals list to a ListBox, or loop through the list and populate a ListView. If you decided to fill a datatable instead of making Animal instances, then you might bind the resulting table to a DataGridView.
There are lots of options depending on what you want and what all you need to do.
Reed Kimble - "When you do things right, people won't be sure you've done anything at all" -
Position Cursor on a specific SO line in VA01 / 02
Hi,
I have a requirement to do some validation in the User Exit, SAVE_DOC_PREPARE for VA01 / 02. If there is a Error, I want the cursor to be positioned on the specific line item which had this error. Please note the above exit gets called the user presses the 'Save' buttn, so this can happen from any screen.
Regards,
SG..why don't you do the same thing with incompletion log procedure...system will take the user to that particular field and he can proceed with 'save' option in both VA01/02.
Reward Points if it helps,
Regards,
N -
I want to display specific line to be color in alvlist how
i want to display specific line to be color in alvlist
i write the code as follows here document type is initial. then that line is to be
appeared as color line but problem is initially it is appeared correct later i moved to next previous screens error lines are to be colored where i have to clear
loop at it_doclist where blart eq space.
gt_layout-info_fieldname = 'COLOR_LINE'.
it_doclist-color_line = 'C600'.
modify it_doclist .
clear:it_doclist.
endloop.
please help me exactly
Thanks
Ramana reddyu r requiremnt is not clear...but any how check this code....
it has a form for assigning colors....
rewardif useful
REPORT zppb001_prd_posting_upload
NO STANDARD PAGE HEADING LINE-SIZE 255
MESSAGE-ID zpp.
INCLUDE bdcrecx1.
TYPE-POOLS :slis.
DATA: wk_success(5) TYPE c, "To store the successfull Hits
wk_failure(5) TYPE c, "To store the failed Hits
l_mstring(600), "To store Message texts
t_date TYPE zservice_date,"To store Uploaded Date
wk_lines(5) TYPE c, "To store No of Records
lines(5) TYPE c, "To store No of Records
wk_len(150) TYPE c, "To store File path
wk_alp TYPE i, "To store path length
lent TYPE i, "To store path length
b(4). "To store File extension
DATA: alvfld TYPE slis_t_fieldcat_alv WITH HEADER LINE,
v_events TYPE slis_t_event WITH HEADER LINE,
wk_events LIKE LINE OF v_events,
it_list_comments TYPE slis_t_listheader,
wk_list_comments LIKE LINE OF it_list_comments,
wk_layout TYPE slis_layout_alv.
CONSTANTS: c_formname_top_of_page TYPE slis_formname
VALUE 'F_TOP_OF_PAGE'.
--TO STORE FINAL DATA TO BE POSTED--
Generated data section with specific formatting - DO NOT CHANGE ***
DATA: BEGIN OF record OCCURS 0,
budat_002(010),
bktxt_004(025),
matnr_005(018),
werks_006(004),
alort_007(004),
erfmg_008(017),
END OF record.
End generated data section ***
DATA: BEGIN OF messages OCCURS 0, "TO STORE FINAL STATUS DISPLAY
budat_002(010),
bktxt_004(025),
matnr_005(018),
maktx TYPE makt-maktx,
werks_006(004),
alort_007(004),
erfmg_008(017),
msg_e(400),
msg_s(600),
msgtyp TYPE c,
line_color(4),
END OF messages.
DATA: BEGIN OF st_record1 ,
matnr_005(018),
werks_006(004),
budat_002(010),
bktxt_004(025),
erfmg_007(017),
erfmg_008(017),
alort_007(004),
END OF st_record1.
DEFINE alv_macro.
move : &1 to alvfld-col_pos,
&2 to alvfld-fieldname,
&3 to alvfld-seltext_m.
if &2 = 'MATNR_005' or &2 = 'MAKTX'.
alvfld-fix_column = 'X'.
endif.
append alvfld.clear alvfld.
END-OF-DEFINITION.
DATA : record1 LIKE TABLE OF st_record1 WITH HEADER LINE,
it_excel LIKE TABLE OF alsmex_tabline WITH HEADER LINE,
messtab1 LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE,
it_acc LIKE TABLE OF record WITH HEADER LINE,
it_rej LIKE TABLE OF record WITH HEADER LINE.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
PARAMETERS: p_file TYPE localfile OBLIGATORY .
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
static = 'X'
CHANGING
file_name = p_file.
AT SELECTION-SCREEN ON p_file.
wk_len = p_file.
CONDENSE wk_len NO-GAPS.
lent = STRLEN( wk_len ).
wk_alp = lent - 4.
b = wk_len+wk_alp(lent).
IF ( b NE '.txt' ) AND ( b NE '.xls' ).
MESSAGE e939.
CLEAR p_file.
STOP.
ENDIF.
START-OF-SELECTION.
PERFORM upload_fun.
PERFORM open_group.
PERFORM fill_bdc_table.
PERFORM close_group.
PERFORM assign_colors.
PERFORM f_event_build.
SORT messages BY matnr_005 ASCENDING.
PERFORM assign_columns.
PERFORM count.
IF ctu = 'X'.
PERFORM alv.
ENDIF.
FREE:messages,messtab1,record1.
END-OF-SELECTION.
--FORM UPLOAD_FUN--
FORM upload_fun.
REFRESH: record1, it_acc, it_rej, record, messages, messtab1, it_excel.
PERFORM fetch_from_flat_file.
CLEAR it_excel.
DESCRIBE TABLE it_excel.
IF sy-tfill = 0.
MESSAGE i937. STOP.
ENDIF.
LOOP AT it_excel.
CASE it_excel-col.
WHEN '0001'. MOVE: it_excel-value TO record1-matnr_005.
WHEN '0002'. MOVE: it_excel-value TO record1-werks_006.
WHEN '0003'. MOVE: it_excel-value TO record1-budat_002.
WHEN '0004'. MOVE: it_excel-value TO record1-bktxt_004.
WHEN '0005'. MOVE: it_excel-value TO record1-erfmg_007.
WHEN '0006'. MOVE: it_excel-value TO record1-erfmg_008.
WHEN '0007'. MOVE: it_excel-value TO record1-alort_007.
ENDCASE.
AT END OF row.
APPEND record1. CLEAR record1.
ENDAT.
ENDLOOP.
DELETE record1 WHERE matnr_005 EQ ' '.
--DO NOT UPLOAD WHERE PRD QTY = 0--
DELETE record1 WHERE ( erfmg_007 = 0 OR erfmg_007 = ' ' )
AND ( erfmg_008 = 0 OR erfmg_008 = ' ' ).
DESCRIBE TABLE record1[].
IF sy-tfill > 0.
--MOVE ACCEPTED QTY AND FETCH THE RESPECTIVE STGLOC-**
LOOP AT record1 WHERE erfmg_007 NE 0 AND erfmg_007 NE ' '.
MOVE: record1-budat_002 TO it_acc-budat_002,
record1-bktxt_004 TO it_acc-bktxt_004,
record1-matnr_005 TO it_acc-matnr_005,
record1-werks_006 TO it_acc-werks_006,
record1-erfmg_007 TO it_acc-erfmg_008.
APPEND it_acc. CLEAR: it_acc,record1.
ENDLOOP.
--MOVE ELPRO FOR THE ACCEPTED ENTRIES--
LOOP AT it_acc.
SELECT SINGLE elpro INTO it_acc-alort_007
FROM mkal CLIENT SPECIFIED
WHERE mandt = sy-mandt
AND matnr = it_acc-matnr_005
AND werks = it_acc-werks_006.
MODIFY it_acc TRANSPORTING alort_007. CLEAR: it_acc.
ENDLOOP.
--MOVE PRD QTY FOR REJECTED QTY--
LOOP AT record1 WHERE erfmg_008 NE 0 AND erfmg_008 NE ' '.
MOVE: record1-budat_002 TO it_rej-budat_002,
record1-bktxt_004 TO it_rej-bktxt_004,
record1-matnr_005 TO it_rej-matnr_005,
record1-werks_006 TO it_rej-werks_006,
record1-erfmg_008 TO it_rej-erfmg_008,
record1-alort_007 TO it_rej-alort_007.
APPEND it_rej. CLEAR: it_rej, record1.
ENDLOOP.
--MOVE ACCEPTED AND REJECTED READINGS TO FINAL TABLE
APPEND LINES OF it_acc TO record. APPEND LINES OF it_rej TO record.
FREE : it_rej, it_acc, record1.
ELSE.
MESSAGE i937.
STOP.
ENDIF.
ENDFORM. " UPLOAD_FUN
--FORM fill_bdc_table--
FORM fill_bdc_table.
IF NOT record[] IS INITIAL.
LOOP AT record.
PERFORM bdc_dynpro USING 'SAPLBARM' '0800'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RM61B-BKTXT'.
PERFORM bdc_field USING 'BDC_OKCODE' '=ISTDA'.
PERFORM bdc_field USING 'RM61B-BUDAT' record-budat_002.
PERFORM bdc_field USING 'RM61B-BKTXT' record-bktxt_004.
PERFORM bdc_field USING 'RM61B-MATNR' record-matnr_005.
PERFORM bdc_field USING 'RM61B-WERKS' record-werks_006.
PERFORM bdc_field USING 'RM61B-ALORT' record-alort_007.
PERFORM bdc_field USING 'RM61B-ERFMG' record-erfmg_008.
PERFORM bdc_dynpro USING 'SAPLCOWB' '0130'.
PERFORM bdc_field USING 'BDC_OKCODE' '=WEIT'.
PERFORM bdc_field USING 'BDC_CURSOR' 'G_COWB_HEADER-MNGTXT'.
PERFORM bdc_transaction USING 'MFBF'.
CLEAR messtab.
messtab1[] = messtab[].
LOOP AT messtab1 WHERE msgtyp = 'S' OR msgtyp = 'E'.
SELECT SINGLE * FROM t100 WHERE sprsl = messtab1-msgspra
AND arbgb = messtab1-msgid
AND msgnr = messtab1-msgnr.
IF sy-subrc = 0.
l_mstring = t100-text.
PERFORM store_messages.
CLEAR l_mstring.
ENDIF.
ENDLOOP.
MOVE-CORRESPONDING record TO messages.
SELECT SINGLE maktx INTO messages-maktx FROM makt CLIENT SPECIFIED
WHERE mandt = sy-mandt
AND matnr = messages-matnr_005
AND spras = 'EN'.
APPEND messages.
CLEAR: messages, messtab1. REFRESH messtab1.
ENDLOOP.
ENDIF.
ENDFORM. "fill_bdc_table
--FORM assign_columns--
FORM assign_columns .
REFRESH alvfld.
alv_macro '1' 'MATNR_005' 'PART NO'.
alv_macro '2' 'MAKTX' 'DESCRIPTION'.
alv_macro '3' 'WERKS_006' 'PLANT'.
alv_macro '4' 'BUDAT_002' 'POSTING DATE'.
alv_macro '5' 'BKTXT_004' 'SHIFT'.
alv_macro '6' 'ERFMG_008' 'QUANTITY'.
alv_macro '7' 'ALORT_007' 'STGLOC'.
alv_macro '8' 'MSG_E' 'ERRORS DUE TO'.
alv_macro '9' 'MSG_S' 'STATUS'.
ENDFORM. " assign_columns
--FORM f_event_build--
FORM f_event_build .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = v_events[].
READ TABLE v_events WITH KEY name = slis_ev_top_of_page
INTO wk_events.
wk_layout-info_fieldname = 'LINE_COLOR'.
wk_layout-colwidth_optimize = 'X'.
IF sy-subrc = 0.
MOVE c_formname_top_of_page TO wk_events-form.
MODIFY v_events FROM wk_events INDEX sy-tabix.
ENDIF.
ENDFORM. " f_event_build
--FORM f_top_of_page--
FORM f_top_of_page.
WRITE sy-datum TO t_date.
CLEAR: it_list_comments[].
wk_list_comments-typ = 'H'. "H=Header, S=Selection, A=Action
wk_list_comments-key = ''.
CONCATENATE 'UPLOADED STATUS FOR PRODUCTION POSTING ON - ' t_date INTO
wk_list_comments-info SEPARATED BY space.
APPEND wk_list_comments TO it_list_comments.
CLEAR wk_list_comments.
DESCRIBE TABLE messages LINES wk_lines.
lines = wk_lines.
wk_list_comments-typ = 'S'. "H=Header, S=Selection, A=Action
wk_list_comments-key = ''.
CONCATENATE 'Total No of Hits:' lines INTO wk_list_comments-info
SEPARATED BY space.
APPEND wk_list_comments TO it_list_comments.
CLEAR wk_list_comments.
wk_list_comments-typ = 'S'. "H=Header, S=Selection, A=Action
wk_list_comments-key = ''.
CONCATENATE 'Successfull Hits:' wk_success INTO
wk_list_comments-info SEPARATED BY space.
APPEND wk_list_comments TO it_list_comments.
CLEAR wk_list_comments.
wk_list_comments-typ = 'S'. "H=Header, S=Selection, A=Action
wk_list_comments-key = ''.
CONCATENATE ' Failed Hits:' ' ' wk_failure INTO
wk_list_comments-info
SEPARATED BY space.
APPEND wk_list_comments TO it_list_comments.
CLEAR wk_list_comments.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
i_logo = 'ENJOYSAP_LOGO'
it_list_commentary = it_list_comments.
ENDFORM. "F_TOP_OF_PAGE
--FORM assign_colors--
FORM assign_colors .
LOOP AT messages.
CASE messages-msgtyp.
WHEN 'E'.
messages-line_color = 'C601'.
WHEN 'S'.
messages-line_color = 'C501'.
ENDCASE.
MODIFY messages TRANSPORTING line_color.
ENDLOOP.
ENDFORM. " assign_colors
--FORM COUNT--
FORM count .
CLEAR: wk_failure, wk_success.
LOOP AT messages.
CASE messages-msgtyp.
WHEN 'E'.
ADD 1 TO wk_failure.
WHEN 'S'.
ADD 1 TO wk_success.
ENDCASE.
ENDLOOP.
ENDFORM. " COUNT
--FORM ALV--
FORM alv .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = sy-repid
is_layout = wk_layout
it_fieldcat = alvfld[]
it_events = v_events[]
TABLES
t_outtab = messages
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM. " ALV
--FETCH_FROM_FLAT_FILE--
FORM fetch_from_flat_file .
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
filename = p_file
i_begin_col = 1 "From 1st Column
i_begin_row = 2 "From 2nd row
i_end_col = 7 "Till 7th Column
i_end_row = 65000 "Till Row
TABLES
intern = it_excel
EXCEPTIONS
inconsistent_parameters = 1
upload_ole = 2
OTHERS = 3.
ENDFORM. " FETCH_FROM_FLAT_FILE
--FORM STORE_MESSAGES--
FORM store_messages.
IF l_mstring CS '&1'.
REPLACE '&1' WITH messtab1-msgv1 INTO l_mstring.
REPLACE '&2' WITH messtab1-msgv2 INTO l_mstring.
REPLACE '&3' WITH messtab1-msgv3 INTO l_mstring.
REPLACE '&4' WITH messtab1-msgv4 INTO l_mstring.
ELSE.
REPLACE '&' WITH messtab1-msgv1 INTO l_mstring.
REPLACE '&' WITH messtab1-msgv2 INTO l_mstring.
REPLACE '&' WITH messtab1-msgv3 INTO l_mstring.
REPLACE '&' WITH messtab1-msgv4 INTO l_mstring.
ENDIF.
CONDENSE l_mstring.
IF messtab1-msgtyp = 'E'.
CONCATENATE messages-msg_s l_mstring INTO l_mstring SEPARATED BY space.
MOVE l_mstring TO messages-msg_e.
MOVE 'E' TO messages-msgtyp.
MOVE 'Document Not Posted' TO messages-msg_s.
ELSEIF messtab1-msgtyp = 'S'.
CONCATENATE messages-msg_s l_mstring INTO l_mstring SEPARATED BY space.
MOVE l_mstring TO messages-msg_s.
MOVE 'S' TO messages-msgtyp.
ENDIF.
ENDFORM. " store_messages -
Is there a way to put the cursor at a specific location in a RichTextBox?
Is there a way to put the cursor at a specific location in a RichTextBox?
The following code places the cursor at the start of a RichTextBox:
RichTextBox RTbx
RTbx.Focus();
TextPointer tp = RTbx.CaretPosition;
tp = tp.DocumentStart;
RTbx.CaretPosition = tp;
Not sure how to place it at a specific location other than start and end.
The RichTextBox has contents. At this point in the code, I do know the specific "word" in the contents, as well as the position (number of chars) where that word is located. I just need to programmatically place the cursor at that location.
bhs67Oh sorry, I see I missed something out my original reply.
I have markup:
<Grid>
<RichTextBox Name="rtb">
<FlowDocument>
<Paragraph >This is the first paragraph</Paragraph>
<Paragraph >TSecond paragraph is here</Paragraph>
</FlowDocument>
</RichTextBox>
</Grid>
Code - this is the window contentrendered event
private void Window_ContentRendered(object sender, EventArgs e)
rtb.Focus();
// TextPointer moveTo = rtb.CaretPosition.GetNextInsertionPosition(LogicalDirection.Forward);
TextPointer moveTo = rtb.CaretPosition.GetPositionAtOffset(9, LogicalDirection.Forward);
if (moveTo != null)
rtb.CaretPosition = moveTo;
I see the cursor between the t and he of the second "the".
Note that there are numerous other options such as the commented out line.
Hope that helps.
Recent Technet articles: Property List Editing;
Dynamic XAML -
Set cursor in a specific view of transaction MM01/MM02
Hi,
We have to check a condition in the user-exit EXIT_SAPLMGMU_001, for transaction MM01/MM02, and if the condition fails the client wants to set the cursor in a specific field from a specific view. Is it possible? I tried to use the sentence SET CURSOR referenced to a remote program but it doesn't work.
Does anybody knows how to solve this problem?
Thanks in advance
Regards
MaribelHi
I hope, you have read the documetation attached with this Standard Enhancement - MGA00001.
EXIT_SAPLMGMU_001
Where Is the Customer Exit - EXIT_SAPLMGMU_001 called?
The customer exit is in function module MATERIAL_UPDATE_ALL. The
function module checks the data for errors (logical relationships,
foreign keys, fixed domain values, and so on) when the material master
is updated.
Use
o New fields
You can make checks possible for new fields of your own. These
checks must be identical to the checks that you carry out for your
new fields in online maintenance.
o Existing fields
For existing fields, you can extend and intensify the checks.
You can also change data for descriptions and general material data
(MARA). For example, the descriptions can be generated from attributes
of the material.
Limitations
You cannot bypass existing checks.
Interface to Application
The respective data of the current logical transaction is contained in
the structures, for example, in structure WMARA for MARA. Nonrelevant
structures are transferred with their initial values.
General material data that can be changed (CMARA) has the structure
MARU. This MARA view contains fewer internal fields than MARA itself. If
WMARA is filled, CMARA is also filled when accessed.
The customer exit contains the exception APPLICATION_ERROR for your
self-defined error situations.
Using the language element MESSAGE .. RAISING APPLICATION_ERROR, you can
terminate the current (logical) transaction and display your message in
the log.
Also, I guess, have you put some code in the Includes available with the EXITS and then activated the Project in CMOD.
<b>Reward points</b>
Regards -
My cursor has long vertical line at times
My cursor has long vertical lines at times. When I hover over a link, the cursor doesnt' change to a hand
I don't know if this applies to LCDs, but the iMac G3 and eMac had "geometry settings" in the display preferences. If you messed up the settings, things like lines on the bottom and skewed images could happen.
I wonder if the factory geometry settings are off on your iMac? There is no way to set these with System Prefs.
I found someone asking about it here: https://discussions.apple.com/thread/3019584?start=0&tstart=0 -
ALV - Desactivate Check box on a specific line
Hello all,
I need your help for desactivate my checkbox on ALV GRID on specific line.
See on the screen shot on the link :
http://www.casimages.com/img.php?i=101006040322252671.jpg
See the implementation of my ALV and my Catalog :
g_container type scrfname value 'BCALV_GRID_DEMO_0100_CONT1',
g_grid type ref to cl_gui_alv_grid,
g_custom_container type ref to cl_gui_custom_container,
g_event_receiver type ref to lcl_event_receiver,
gt_fieldcat type lvc_t_fcat,
gs_layout type lvc_s_layo.
types: begin of gs_outtab.
types: checkbox type c. "field for checkbox
* §B1.Extend your output table by a field to dis- or enable
* cells for input.
types: celltab type lvc_t_styl. "field to switch editability
include structure zpvprevmaj.
types: end of gs_outtab.
form build_fieldcat changing pt_fieldcat type lvc_t_fcat.
call function 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'ZPVPREVMAJ'
CHANGING
ct_fieldcat = pt_fieldcat.
*§A2.Add an entry for the checkbox in the fieldcatalog
clear ls_fcat.
ls_fcat-fieldname = 'CHECKBOX'.
* Essential: declare field as checkbox and
* mark it as editable field:
ls_fcat-checkbox = 'X'.
ls_fcat-edit = 'X'.
* do not forget to provide texts for this extra field
ls_fcat-coltext = text-f01.
ls_fcat-tooltip = text-f02.
ls_fcat-seltext = text-f03.
* optional: set column width
ls_fcat-outputlen = 2.
append ls_fcat to pt_fieldcat.
endform. "build_field
gs_layout-stylefname = 'CELLTAB'.
gs_layout-info_fname = 'LINE_COLOR'.
perform color_line.
call method g_grid->set_table_for_first_display
EXPORTING
is_layout = gs_layout
it_toolbar_excluding = lt_exclude
CHANGING
it_fieldcatalog = gt_fieldcat
it_outtab = gt_outtab[].
"it_sort = it_sortcat.
Thank you very much for your answers
Edited by: Emilien P. on Oct 6, 2010 4:10 PM
Edited by: Emilien P. on Oct 6, 2010 4:13 PMI think is no possible with the style i try a little tutorial. I have test the style for normal cell and in comment i test with the check box and the checkbox always display !! :
You can easly test this program in SAP and if anyone arrive to no display the checkbox in line 6, he will be my god Thank you :
report ZCO_AFFACT_TEST.
TYPE-POOLS: SLIS.
*- Fieldcatalog
DATA: IT_FIELDCAT TYPE LVC_T_FCAT.
DATA: X_FIELDCAT TYPE LVC_S_FCAT.
DATA: X_LAYOUT TYPE LVC_S_LAYO.
" FOR DISABLE
DATA: LS_EDIT TYPE LVC_S_STYL,
LT_EDIT TYPE LVC_T_STYL.
" FOR DISABLE
DATA: BEGIN OF IT_VBAP OCCURS 0,
VBELN LIKE VBAP-VBELN,
POSNR LIKE VBAP-POSNR,
STYLE TYPE LVC_T_STYL, "FOR DISABLE
END OF IT_VBAP.
DATA: LS_OUTTAB LIKE LINE OF IT_VBAP.
SELECT VBELN
POSNR
UP TO 10 ROWS
INTO CORRESPONDING FIELDS OF TABLE IT_VBAP
FROM VBAP.
DATA:L_POS TYPE I VALUE 1.
CLEAR: L_POS.
L_POS = L_POS + 1.
X_FIELDCAT-SELTEXT = 'VBELN'.
X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-EDIT = 'X'.
"Delete commentary for test with check box.
"X_FIELDCAT-CHECKBOX = 'X'.
X_FIELDCAT-OUTPUTLEN = '10'.
x_fieldcat-ref_field = 'VBELN'.
x_fieldcat-ref_table = 'VBAK'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SELTEXT = 'POSNR'.
X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-EDIT = 'X'.
X_FIELDCAT-OUTPUTLEN = '5'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
"FOR DISABLE HERE 6ROW IS DISABLED
SY-TABIX = 6.
LS_EDIT-FIELDNAME = 'VBELN'.
LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
LS_EDIT-STYLE2 = SPACE.
LS_EDIT-STYLE3 = SPACE.
LS_EDIT-STYLE4 = SPACE.
LS_EDIT-MAXLEN = 10.
INSERT LS_EDIT INTO TABLE LT_EDIT.
LS_EDIT-FIELDNAME = 'POSNR'.
LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
LS_EDIT-STYLE2 = SPACE.
LS_EDIT-STYLE3 = SPACE.
LS_EDIT-STYLE4 = SPACE.
LS_EDIT-MAXLEN = 6.
INSERT LS_EDIT INTO TABLE LT_EDIT.
INSERT LINES OF LT_EDIT INTO TABLE LS_OUTTAB-STYLE.
MODIFY IT_VBAP INDEX SY-TABIX FROM LS_OUTTAB TRANSPORTING
STYLE .
X_LAYOUT-STYLEFNAME = 'STYLE'.
" UP TO HERE
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IS_LAYOUT_LVC = X_LAYOUT
IT_FIELDCAT_LVC = IT_FIELDCAT
TABLES
T_OUTTAB = IT_VBAP[]
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC NE 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Edited by: Emilien P. on Oct 7, 2010 3:09 PM -
How to display values and new char line (blank line)
Hi,
In database, one field contains values followed by new character lines (blank lines) after blank lines there is no values. Finally, I would say the field contains values and blank lines. Every thing is fine in database.
In Crystal Reports the field is displaying only values. Need to display values and blank line.
User is asking after values new character lines (blank line) to be shown. They enter like that in an application. The user doubt is why report is not showing what they enter in the application.
In detail explanation, front end tool is ASP.NET and backend is SQL Server.
User enter some values in note field, after that they hit enter button in the same field, cursor will go next line...user may hit u2018enter buttonu2019 more than 5 times. So note field contain values and some blank lines which are created by after hitting enter button.
If user opens the application, they could see values plus blank lines in the note field.
They are fine with the application.
In Crystal Reports, the note field shows only values.
User is questioning that why we could not see in report we enter.
I checked in .Net application and SQL server database it is fine. It is displaying values and blank line.
Please help me out how to display values followed by blank lines in Crystal Reports - the way they enter in the application.
Thanks and Regards,
Manjunath N. JoginHi,
Sharonmat,
I tried as you suggested. It is still displaying only values.
I would like to explain again.
it is not exactly null values.
In .Net application it is called 'new char line'.
it shows those many lines look like null.
it is working fine in database.
Why it is not working in Crystal Reports? I am wondering...
Thanks for your suggestion.
Debi,
User may enter any number of blank lines or they may not enter blank lines.
That is the reason I can not always give more height or blank text object.
Thanks for your suggestion.
Please suggest me some more suggestions,
Thanks and Regards,
Manjunath N. Jogin -
I
I...................................................................................... ->> Upper Threshhold point
I
I ... ...... ^
I . ... ... Y - axis
I .. ....
I..
I....................................................................................... ->> Lower Threshhold point
I..............................................................................................
X- axis...........................>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Dear Experts,
I have a requiremnet to generate a specific Line Chart in SAP. User will execute one program which will provide a report. The report will be a simple ALV grid report where User needs a customized Graph button. On clicking the button the program should generate the sample graph provided above. Curently I am working in SAP 4.6C version. I know SAP has already provide few chart and diagram display functionalities which are present in ALV. But above Line Chart is not among those. How to acheive the above objective?
Regards,
PulokeshDear Mathews and Kai,
Thanks for the help extended by you all regarding the problem faced by me. I didn't adopt the ways as per explained by you, but I studied a lot and procedures to create custom graph as per said by you. I found a unique way to achive my target by manipulating the variable list data and calculating the constant value of Upper/ Lower Threshold level. In this way I used the same old ALV grid technique to obtain the graph. Thanks for your help.
Regards,
Pulokesh -
Can I reach specific line in a matrix using formatted search syntex
I'm trying to get data from screen in a specific line in a document. when i use $[$38.1], for example, in the formatted search it always gives the value in the row that the cursor is on., however i am trying to reach a line without requiring the user to have the cursor on that line. when i do that i always get the first line, is there a way to reach a spesific line?
thank you,
SaraSara,
You cannot reach a specific line.
Regards,
J. -
How to set cursor at the first line in a table control?
Hi,
I have a customized infotype screen where a table control is being used to input new values.The tab control has 30 lines.Now, the problem is that when the screen is displayed, the cursor always starts at 8th or 4th line.The behaviour is not very consistent.I tried the following statement in the PBO, but no effect.
SET CURSOR FIELD P9417-ZCOUNTRY LINE 1. ( P9417-ZCOUNTRY is the name of the tab control field where i want to set the cursor ).This is the last statement in the PBO.
Can someone please tell me why still I am not able to set the cursor at the first line? I have infact noticed that , in the debugging mode , sometimes the cursor starts at the first line.Please help. ThanksI have got a new requirement on this now. If the table control does not have any records , then the cursor position should be on the first row.Otherwise, if it already has some records, then the cursor should be at the first empty row.I wrote the code like below.
if sy-ucomm = 'INSERT'.
set cursor 'P9714-ZCOUNTRY' line 1.
else if sy-ucomm eq 'CHANGE'.
describe table itab lines fill.
fill = fill + 1.
set cursor 'P9714-ZCOUNTRY' line fill.
endif.
I am facing a strange problem now.The table control has some 10 rows when you see the screen for the first time.If the number of records already present is less than 10, I am able to position the cursor on the first empty row.But if the number is say 15, then the cursor position goes to eighth or fourth line or sometimes the first line.
Is there any way to display the last few records , ie, if there are 15 records , is there any way to display the last five rows when I see the screen for the first time, rather than showing the first 10 records?How can I position the cursor at the first empty row, when there are more records?
Thanks in advance..good answers will be rewarded.
Mahesh -
Inserting text at a specific line number.
Hello,
My need is to insert specific text at a line number to be determined at run time. I know how to write to new files and append to existing ones, but I have not been able to find any documentation displaying how to traverse to a specific line in a text file. More specifically, of course I know how to use looping constructs, but I have seen no file I/O classes with a "skip line" method to get to my insertion point.
Thank you.depending on the size of the files read them into a buffer use a loop to get to a specific point and write back to file.*
Note I am sure there are many better ways to do this but this was the first thing that came to mind that would be easy for a new person to get. -
Displaying items in a single line in ALV grid using ALV_TOP_OF_PAGE.
Hello Guys,
I am having a problem in displaying items in a single line in the ALV Grid using event ALV_TOP_OF_PAGE.
My requirement is to group items on a single line i.e. in the example below, Vendor code and posting date are on the same line. The next line the prints Vendor Name and Document no.
Vendor Code: 123123 Posting Date : 01.01.2011
Vendor Name: ABCD Document No: 152246598.
Here is my code in subroutine 'ALV_TOP_OF_PAGE',
wa_list_comments-typ = 'S'.
wa_list_comments-key = ''.
wa_list_comments-info = 'Vendor Code'.
APPEND wa_list_comments TO it_list_comments.
wa_list_comments-typ = 'S'.
wa_list_comments-key = ''.
wa_list_comments-info = 'Posting Date'.
APPEND wa_list_comments TO it_list_comments.
The above code prints in the following format i.e one below the other,
Vendor Code: 123123
Posting Date : 01.01.2011.
I also tried using HTML_TOP_OF_PAGE, but it didn't work.
Can anybody please help me out with this.
Regards,
Danish.Hi Danish,
Your problem is with the alignment and you need some fix positions .
The solution i feel is u can use as below :
In CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
use
i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE'.
Now on calling routine call use cl_dd_document class :
FORM html_top_of_page USING document TYPE REF TO cl_dd_document .
data : doctable TYPE REF TO cl_dd_table_element,
col1_t1 TYPE REF TO cl_dd_area,
col2_t1 TYPE REF TO cl_dd_area,
col1_t2 TYPE REF TO cl_dd_area,
col2_t2 TYPE REF TO cl_dd_area.
add quick table with five columns
CALL METHOD lw_document->add_table
EXPORTING
no_of_columns = 2
border = '0'
cell_background_transparent = ' '
width = '100%'
IMPORTING
table = doctable.
Filling columns in row
CALL METHOD doctable->add_column
EXPORTING
width = '40%'
IMPORTING
column = col1_t1.
Filling columns in row
CALL METHOD doctable->add_column
EXPORTING
width = '60%'
IMPORTING
column = col2_t1.* Filling columns in row
Call method doctable->new_row.
CALL METHOD doctable->add_column
EXPORTING
width = '40%'
IMPORTING
column = col1_t2.
Filling columns in row
CALL METHOD doctable->add_column
EXPORTING
width = '60%'
IMPORTING
column = col2_t2.
*Now adding the texts
lw_text1 = 'your first text'
CALL METHOD col1_t1->add_text
EXPORTING
text = lw_text.
*Similarly add text for other columns
*Adujust % in width to adjust the column as required
Endform.
Hope this will solve your problem . -
How to read a specific line of a .dat file?
can we read a specific line of a .dat file, if so, how?
i have this .dat files for each customer, which contain their name on the first line, their id on the second line
and a list of items and an item id between each item.
John Doe
455689
milk
1
orange
9
Here is what I am trying to do, please correct me
//list out .dat file in dir
File customer_dir = new File ("Customer")
if (customer_dir.isDirectory())
String[] listofdat=dir.list();
for (int i=0;i<listofdat.length();i++)
Scanner dat_read = new Scanner (new File listfodat);
dat_read.nextLine();
if (dat_read.nextLine().equals("455689")) <--is this okay?bibiancheng wrote:
would you please explain to me what
String[] tokens = line.trim().split("\\s*,\\s*")"\\s*,\\s*" is a regex where \\s means whitespace and the * means "any number of".
so \\s* means that it will grab all the whitespace if there is any.
trim() removes white space from the beginning and end of the string.
dont put a comma in the name.
spaces allowed: "jane doe, 12-14-09, 428438, 6, 388473, 7, 187374, 3"
it was just a recommendation. breaking it into separate lines would be fine.
Maybe you are looking for
-
My husband and I both have iphones and both are linked to the app store and i cloud. Now my husband is receiving all of my text messages and has all my contacts. How can we get it to where he does not receive my messages anymore? Any help is apprecia
-
Hello all, I created a printable class that works in Windows and Linux, but for some reason will not work on Mac OS X. It either prints a blank page or throws a nasty exception: Exception in thread "Thread-0" java.lang.NullPointerException at javax.s
-
Task URL causing error in SharePoint Designer
Hi I am creating a workflow in designer and I have a step to send out an email. In the email I am inputting a Hyperlink where the user can click on and directly go to the task to approve. I type the description or text to be displayed and put the ful
-
Hi everyone! How do I prohibit access to the webAS6.40 through any other socket than SSL? I.e. I do only want users to access my webAS through port 5<instanceNo>001 ? I have looked in the HTTP Provider and updated the value from Ports = (Port:58100,T
-
Map View Analyses in OBIEE 11g
Hi friends, Im in the process of using map view in my analysis. For that they asked to put the following thing in the instanceconfig.xml file after *</Logging>* tag <SpatialMaps> <ColocatedOracleMapViewerContextPath>/mapviewer/</Colocated Oracle