Push button set to calculate form
Hi Friends,
Ive to create calculator by simple form without any data service. Ive modeled form with push button to assign value from one field to another (push button option->action->system action->dynamic->action->formula with correct pass value from one field to another, but it doesn't work, it means field is empty after push button. do you know how to modeled button to put the result to the field? At the moment value puts to field automatically. I want to control this event by button. How?
Martin
Data Lines to be used as inputsSome parallel ports can be configured to use the data lines as inputs. It depends a great deal on the way the manufacturer designed the parallel port. With some models the data lines can be read the same way we read the control lines, by driving them to high logic so they will take on the value of an external signal. However, most parallel ports require that you set the direction bit for input. This is bit 5 in the Control register (base+2). If the port is capable of it, setting the direction bit high has the effect of making the lines tri-state so it can be driven externally. Sometimes it is also necessary to toggle bit 6 high or low. However, it should be noted that some manufacturers actually lock these bits so that software cannot change them. An example is shown below in Figure 7.
To test whether your data lines can be used for input, try the following:
Set bit 5 of the control register high (at base address+2).
With nothing connected to the port, write a couple of values to the data port, and read each back after you write it.
If the reads DON'T match the writes, your port is probably bidirectional. Setting C5 disabled the data outputs and you're reading the open inputs of the data-port buffer. If the reads DO match the writes, your port isn't bidirectional. The data outputs are still enabled, you're reading back what you wrote, and you won't be able to read external signals. If it is possible to use your data lines for input, then you just need to set control register bit 5 high and read from the value of the data lines at the base address.
Similar Messages
-
Push Button in Multirecord block and Record Number
Hi All,
I have a push button in Multirecord block.
for eg. there are 5 records in that block and cursor is on 1st record. if users pressess the push button on 3rd record (or other than 1st record) i want to get that 3rd record number. i am not able to get this. i checked :system.trigger_record, cursor_record, mouse_record values but it is not working correctly.
what code should i write in when-button-pressed trigger to work it the way i want.
can anybody help.
regdsYes i got it
Re: multi-record push button
set mouse navigable property to true for push button and you get the :system.trigger_record value. -
How to Enable a Push Button In The Form That Is Always Greyed Out?
Greetings All,
I am trying to enable an existing "Return" Push Button(PB) which is always greyed out whenever the form is called in either an update or review mode. After some research, I found that this PB's functional property is "Enabled" (i.e. the enabled value = 'Yes'), and it is coded programatically set 'Off' in 30 places and 'On' in 2 places in the form that I inherit from my predecessor by using the following code:
SET_ITEM_ON_OR_OFF('BLK_UPDATE.PB_RETURN', <XXXXX>);
Where <XXXXX> could be either TRUE or FALSE. I've been spending a lot of time in trying to enable this "Return" PB (without modifying the existing programming code) by adding the 'SET_ITEM_ON_OR_OFF' built-in command to set the PB on in WHEN-BUTTON-PRESSED TRIGGER for the PB_RETURN and WHEN-NEW-FORM-INSTANCE Trigger, but all tries in vain. Could you please help me with the following question?
What is the easiest way to enable a PB that is set programmatically?
Is there something else I should know to enable a PB, in addition to what I have already mentioned above?
Thanks in advance,
Jinlan
--Thanks all for your information and help. I included the following code, as suggested by Manu, in WHEN-MOUSE-DOWN TRIGGER for the PB_RETURN and WHEN-NEW-FORM-INSTANCE TRIGGER:
SET_ITEM_PROPERTY ('BLK_UPDATE.PB_RETURN_WORK_REQ', ENABLED, PROPERTY_TRUE);
and I made sure there was no " SET_ITEM_ON_OR_OFF('BLK_UPDATE.PB_RETURN_WORK_REQ', FALSE);" statements after the above code, but, the "Return" PB is still in grey; in other words, it is still not accessible when my form is called.
Perhaps, I need to place the above SET_ITEM_PROPERTY code in a different trigger other than the triggers mentioned above, uh? Any thoughts on this?
Manu,
You are absolutely right that the "SET_ITEM_ON_OR_OFF" is an ih-house written procedure which is defined/stored in the Attached Libraries. (I should have checked before making the "built-in" assumption. Thanks for catching and clarifying this.) Please help me with the following questions:
How do I view the procedure in the Attached Libraries???
Thanks in advance,
Jinlan
-- -
Displaying Icons on Push Buttons in forms 10g
How can i Display Icons on Push Buttons in forms 10g ?
Set the property "Iconic" of the button to "Yes" and enterthe iconname in the Property "Icon Name" (without path and extension).
About how to make items accesible in forms, have a look at this http://download.oracle.com/docs/cd/B14099_19/web.1012/b14032/configure009.htm -
Issue with Icons display in PUSH BUTTONS in forms 11g
Hello,
This is regarding an issue with the icons background for the push buttons in the forms 11g. When we enable the icons for the buttons (.gif) they are visible on the
top left corner of the buttons and not in the centre. In one of the forums it was written like this is a common problem in Forms 11g. Is there any way by which we can
centralize this icons on the Forms buttons. Also I have heard that image editing tools can be used to centralize the icons. I tried with one of the tools but it seems
like it is not working.
Can somebody suggest a workaround for this?
Thanks in Advance
RamI will assume you are attempting to use the images included in the Forms applet jar. These images are purposely structured so that the subject is off-centered. You should not see that same behavior if you use your own images or edit the ones built-in to Forms. However, keep in mind that the images packaged in the Forms applet jar are intended to be used in a menu toolbar and not custom buttons.
For more information, refer to MyOracleSupport note 1391073.1 where I explain this in detail.
Michael Ferrante
Senior Principal Support Engineer
Forms Global Technical Lead
Oracle Corporation
. -
How can I resolve the push button dot issue in oracle forms 10g..?
Hi All,
We have migrated to forms6i to forms10g, in 6i all the push button labels are displaying properly, but in 10g forms its giving dots like this … after displaying some characters. I guess its width problem but how come its changing in 10g alone.
Kindly give me any workaround to resolve this issue
Thanks in Advance
Thangaraj.Hi All,
We have migrated the forms 6i to forms 10g R2.We are facing push button issue like,the lable is displayed in the button is reduced.Assume the button's label name is Cancel.Actully it is displaying like Can.....Due to Java used in forming the buttons.We have forms count nearly 300.We have diffent size buttons.
We have solution like
1.Manually
2.PC Creation
3.Java Class and Jar Files
4.JDAPI
5.basejini.htm
The method five,we have tried.But there is no changes after this changes also.
Can you guys please let us know the correct menthod(with steps 1 by 1) to do this in quickly.
2.There are look and feel 2 types oracle and generic,rather than this do we have any other type.We are looking for any cusrtomized settings in config files.
Thanks in Advance.
Regards,
GR -
Forms 9i/Forms 6i Push Button problems
Hello All,
I have a form that is using a bunch of Push Buttons. Each of these Push Buttons has a Access Key assigned to it.
The main canvas is a tab canvas and there are some stacked canvases too. All of them are being displayed on the same window.
If I press the access key a Push button when it is not being displayed on the screen, it still executes the When-Button-Pressed Trigger and is causing me some pain.
How can I stop the When-Button-Pressed trigger from executing when the Push Button is hidden from view ?
Your help will be greatly appreciated.
Thanks
SriramYou could make the button disabled when it is hidden.
Regards,
Robin Zimmermann
Forms Product Management -
Color of the push button in Forms 6i
HI,
I want to change the color of the push button from the default gray color to something else and also the font type. Is it possible? If yes, how to do it ?On Microsoft Windows, the colors of buttons, window title bars, and window borders are controlled by the Windows Control Panel color
settings specified for these elements. You cannot override these colors in Form Builder even by using visual attributes.
The button color attributes are controlled exclusively by the Color facility in the Control Panel.
To define button color attributes do the following :
1. To do this go to 'Settings' + 'control panel'.
2. Double-click on 'display' and select 'appearance' from the menu .
3. Select '3D Objects' from the 'item' list .
4. The background color and the foreground color can be changed to your favourite ones.
But the important thing to note here is that this will affect all the 3D objects in all the applications in your system .
Or you can try this workaround if it is suitable. Use a display item with a "Bevel" property of "Raised" and the "Default Value"
property whatever the label should be. Then attach a WHEN-MOUSE-CLICK trigger to it. You can change the foreground and background colors to whatever you want since it's really just a field.
Abhijith Unnikannan,
Oracle Support Services
null -
Text Items And Push Buttons Created on a customized form does not appear.
Hi,
I created a custom form and attached it to ebs. The form opens without any error.
I had 3 text items and 2 push buttons with proper property class applied to them. But I am only able to see the prompt of the first text item. All the other widgets are not visible. What could be the possible cause for this.
DeepakHow are you running the form? Have you deployed it properly and attached it to a menu/form function and are viewing it within EBS?
Did you open the TEMPLATE.fmb form and save a copy of it as the starting point for your custom form?
--Johnnie -
I want to stop loop through push button forms 10g
I want to stop looping through push button forms 10g it is like (SwingWorker() in java) (DoEvent() in .net)
The problem in forms 10g that when you start looping the form will freeze and you can't push any button on form, I found solution for that in form 6i through package d2kwutil **WIN_API_UTILITY.InterruptCheck(hButton)**
But in 10g I can't find solution, Please help>>>>>
declare
hButton PLS_INTEGER;
begin
:interruptcheck.counter := 0;
hButton := get_item_property('INTERRUPTCHECK.PB_OFF',WINDOW_HANDLE);
go_item('interruptcheck.loopcount');
set_item_property('INTERRUPTCHECK.PB_OFF',ENABLED,PROPERTY_TRUE);
set_item_property('INTERRUPTCHECK.PB',ENABLED,PROPERTY_FALSE);
set_application_property(CURSOR_STYLE,'HELP');
set_application_property(CURSOR_STYLE,'<d2kwut60>WAIT');
for i in 1..:interruptcheck.loopcount LOOP
if WIN_API_UTILITY.InterruptCheck(hButton) then
exit;
end if;
:interruptcheck.counter := i;
synchronize;
end loop;
set_item_property('INTERRUPTCHECK.PB_OFF',ENABLED,PROPERTY_FALSE);
set_item_property('INTERRUPTCHECK.PB',ENABLED,PROPERTY_TRUE);
set_application_property(CURSOR_STYLE,'DEFAULT');
end;
Edited by: wael amar on May 1, 2010 11:03 PMOk, here's a working testcase.
The idea is taken from an article from an oracle magazine (i don't have it at hand, , so i tried to rebuild it by "memory". As far as i remember the original was from the german doag-magazine and was written by Gerd Volberg).
Procedure to do the looping:
PROCEDURE PR_DO_THE_LOOP IS
nNumberInOneStep NUMBER:=2;
tm TIMER;
BEGIN
DEFAULT_VALUE(0, 'GLOBAL.INDEX');
IF :GLOBAL.INDEX=0 THEN
-- Didn't run yet, determine the max count
:GLOBAL.MAX:=10000;
END IF;
LOOP
-- Do the looping stuff
-- Decrease counter
nNumberInOneStep:=nNumberInOneStep-1;
-- Increase globale counter
:GLOBAL.INDEX:=:GLOBAL.INDEX+1;
-- Exit conditions
EXIT WHEN nNumberInOneStep=0;
EXIT WHEN TO_NUMBER(:GLOBAL.INDEX)>=TO_NUMBER(:GLOBAL.MAX);
END LOOP;
-- reset index at end
IF TO_NUMBER(:GLOBAL.INDEX)>=TO_NUMBER(:GLOBAL.MAX) THEN
:GLOBAL.INDEX:=0;
ELSE
-- start timer for next iteration
tm:=CREATE_TIMER('TM', 10, NO_REPEAT);
END IF;
END;The WHEN-TIMER-EXPIRED-trigger
IF :GLOBAL.INTERRUPTED='Y' THEN
MESSAGE('Interrupted at index ' || :GLOBAL.INDEX);
ELSE
PR_DO_THE_LOOP;
END IF;The WHEN-BUTTOn-PRESSED-trigger on the interrupt-button
:GLOBAL.INTERRUPTED:='Y';The WHEN-BUTTOn-PRESSED-trigger on the "start"-button
:GLOBAL.INTERRUPTED:='N';
PR_DO_THE_LOOP; -
I have a form that I want to use to collect peoples information with a submit button. I am trying to get the data that gets inserted to be added to an existing excel doc when the submit button gets hit, the form then resets and someone else can fill in the same form, hit submit and his data gets added to the existing data in the same excel doc. It is basically the same as the 'collecting response' option but without having to be online. The form is going to be used at a boat-show and I am going to get people to fill it out on an iPad. Does anybody know if this is possible?
You could connect a bunch of 3700s to each computer and do this .
Or...since you're the one who monitors the monthly limit, you could restrict an individual's internet access once you see that you guys are coming too close to the cap.
I don't work for Cisco. I'm just here to help. -
Set the position of push buttons
Hi,
I have created two push buttons using the method add_button of cl_gui_toolbar class. But those two push buttons are coming side by side. But I need to show them one after the other.
Is there any way to display the buttons one after the other. I tried set_position, set_left, set_height. But still they are coming side by side.
Plesae guide me in this regard.
Regards,
Kishore>But those two push buttons are coming side by side. But I need to show them one after the other.
I am not sure what you want from this....side by side and one after the other
* append a separator to normal toolbar
CLEAR ls_toolbar.
MOVE 3 TO ls_toolbar-butn_type. "<----Separator
APPEND ls_toolbar TO e_object->mt_toolbar.
* append an icon to show booking table
CLEAR ls_toolbar.
MOVE 'BUTTON' TO ls_toolbar-function.
MOVE icon_employee TO ls_toolbar-icon.
MOVE 'Show Bookings'(111) TO ls_toolbar-quickinfo.
MOVE 'Detail'(112) TO ls_toolbar-text.
MOVE ' ' TO ls_toolbar-disabled.
APPEND ls_toolbar TO e_object->mt_toolbar.
* append a separator to normal toolbar
CLEAR ls_toolbar.
MOVE 3 TO ls_toolbar-butn_type. "<----Separator
APPEND ls_toolbar TO e_object->mt_toolbar.
* append an icon to show booking table
CLEAR ls_toolbar.
MOVE 'BUTTON2' TO ls_toolbar-function.
MOVE icon_ok TO ls_toolbar-icon.
MOVE 'Show Flight'(113) TO ls_toolbar-quickinfo.
MOVE 'Flights'(114) TO ls_toolbar-text.
MOVE ' ' TO ls_toolbar-disabled.
APPEND ls_toolbar TO e_object->mt_toolbar.
Now you will get a separator in between the two buttons.
| BUTTTON1 | BUTTON2 -
Forms push buttons' behavior at runtime
Hi
I would like to imitate the push buttonâs appearance & behavior like all built-in buttons in Oracle.
i.e.: when the mouse enters the button the button is raised and when mouse leaves the button is flattened.
Any ideas are appreciated.
Regards
Tony S. GarabedianHi Grant
Thanks for the reply, yeah that will help me since i want to do that too, i have 2 different sizes from the same icon and when the mouse enters the icon changes, just like the OEM buttons.
But i also wanna try the 'raise button' effect, it will be very nice to have a customized toolbar with that effect. I'll try it and post my results.
Regards
Tony S. Garabedian -
How to get GUI Status(Push Buttons) in ALV Report
Hi Friends
I have a requirement in a way that:
Once selection-screen was processed,an ALV report has to come and above the ALV List,I need a custom GUI Status(4 Push Button) with Push Buttons Logic.
Once I had clicks on thesse push button,I need to display one more ALV List and above this List,again I need a custom GUI Status(2 Push Buttons) with Push Buttons Logic.
Can anyone throw some light how we can achieve this.
Thanks for your cooperation!
Regards,
Madisettydata: rt_extab type slis_t_extab,
g_ucomm like sy-ucomm ,
g_selfield type slis_selfield.
form alv_display .
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
i_callback_program = g_repid
i_callback_pf_status_set = 'PF_STATUS'
i_callback_user_command = 'USER_COMM'
it_fieldcat = it_fldcat
tables
t_outtab = it_final1
perform pf_status using rt_extab.
perform user_comm using g_ucomm g_selfield .
endform.
form pf_status using p_rt_extab.
set pf-status 'PF_STATUS' excluding p_rt_extab.
endform.
form user_comm using p_ucomm like sy-ucomm
p_selfield type slis_selfield.
data: l_row type i.
case p_ucomm.
when 'DISPLAY_PO'.
loop at it_final1 into wa_final1.
if wa_final1-sel eq 'X' .
l_row = l_row + 1.
endif.
if l_row gt 1.
message e004.
endif.
clear wa_final1.
endloop.
p_selfield-fieldname = 'SEL'.
read table it_final1 into wa_final1 index p_selfield-tabindex .
set parameter id 'BES' field wa_final1-ebeln.
call transaction 'ME23N'.
endcase.
endform.
*create user interface for gui status by double clicking on 'PF_STATUS'.
*Check the above sample code . -
Dear Experts,
How to add pushbutton in alv report.....
*& Report ZTT_TEST_ALV
REPORT ZTT_TEST_ALV.
*data declarations
type-pools : SLIS.
* data : BEGIN OF wa_kna1,
* kunnr type kunnr,
* name1 type name1,
* end of wa_kna1,
* it_kna1 like tABLE OF wa_kna1.
data : begin of wa_mara,
matnr type matnr,
end of wa_mara,
it_mara like table of wa_mara.
data : it_fcat type slis_t_fieldcat_alv,
wa_fcat like line of it_fcat.
*selection screen
SELECTION-SCREEN begin of block k with frame title text-001.
* select-OPTIONS : s_kunnr for wa_kna1-kunnr.
select-OPTIONS : s_matnr for wa_mara-matnr.
SELECTION-SCREEN end of block k.
*select auery
*SELECT kunnr name1 INTO table it_kna1 from kna1 where kunnr in s_kunnr.
select matnr into table it_mara from mara where matnr in s_matnr.
*for displaying fieldcatalog
PERFORM fcat using '1' 'MATNR' 'material Number' 'C410' '20'.
* PERFORM fcat using '2' 'NAME1' 'Customer Name' 'C410' '36'.
*for displaying output
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
* I_CALLBACK_PROGRAM = ' '
I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
I_GRID_TITLE = 'Report for Customer Details'
* I_GRID_SETTINGS =
* IS_LAYOUT =
IT_FIELDCAT = it_fcat[]
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = it_mara.
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
* EXPORTING
**** I_INTERFACE_CHECK = ' '
**** I_CALLBACK_PROGRAM =
**** I_CALLBACK_PF_STATUS_SET = ' '
**** I_CALLBACK_USER_COMMAND = ' '
**** IS_LAYOUT =
* IT_FIELDCAT = it_fcat
**** IT_EXCLUDING =
**** IT_SPECIAL_GROUPS =
**** IT_SORT =
**** IT_FILTER =
**** IS_SEL_HIDE =
**** I_SCREEN_START_COLUMN = 0
**** I_SCREEN_START_LINE = 0
**** I_SCREEN_END_COLUMN = 0
**** I_SCREEN_END_LINE = 0
**** I_DEFAULT = 'X'
**** I_SAVE = ' '
**** IS_VARIANT =
**** IT_EVENTS =
**** IT_EVENT_EXIT =
*** i_tabname_header =
*** i_tabname_item =
**** I_STRUCTURE_NAME_HEADER =
**** I_STRUCTURE_NAME_ITEM =
*** is_keyinfo =
**** IS_PRINT =
**** IS_REPREP_ID =
**** I_BYPASSING_BUFFER =
**** I_BUFFER_ACTIVE =
**** IR_SALV_HIERSEQ_ADAPTER =
**** IT_EXCEPT_QINFO =
**** I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
**** IMPORTING
**** E_EXIT_CAUSED_BY_CALLER =
**** ES_EXIT_CAUSED_BY_USER =
* tables
** t_outtab_header = it_
* t_outtab_item = it_kna1.
**** EXCEPTIONS
**** PROGRAM_ERROR = 1
**** OTHERS = 2
***IF sy-subrc <> 0.
**** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
**** WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
***ENDIF.
*& Form FCAT
* text
* -->P_0052 text
* -->P_0053 text
* -->P_0054 text
form FCAT using fp_col_pos
fp_fieldname
fp_seltext_m
fp_emphasize
fp_outputlen..
wa_fcat-col_pos = fp_col_pos.
wa_fcat-fieldname = fp_fieldname.
wa_fcat-seltext_m = fp_seltext_m.
wa_fcat-emphasize = fp_emphasize.
wa_fcat-outputlen = fp_outputlen.
append wa_fcat to it_fcat.
clear : wa_fcat.
endform. " FCAT
FORM SET_PF_STATUS .
SET PF-STATUS 'ZNEWSTATUS' .
"Copy of 'STANDARD' pf_status from fgroup SALV
endform.
i need one push button in alv output display.
Thanks and Regards,
Thirukumaran. RHI THIRU TRY FOLLOWING CODES:
*& Report ZSAMPLE
REPORT ZSAMPLE.
TABLES:MARA.
TYPE-POOLS: SLIS.
TYPES:BEGIN OF TY_ITAB,
MATNR LIKE MARA-MATNR,
ERSDA LIKE MARA-ERSDA,
END OF TY_ITAB.
DATA:ITAB TYPE STANDARD TABLE OF TY_ITAB WITH HEADER LINE.
DATA:FCAT TYPE SLIS_T_FIELDCAT_ALV,
WA_FCAT TYPE SLIS_FIELDCAT_ALV,
LAYOUT TYPE SLIS_LAYOUT_ALV,
WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS:P_MATNR TYPE MARA-MATNR.
SELECTION-SCREEN END OF BLOCK B1.
START-OF-SELECTION.
PERFORM FIELDCAT.
LAYOUT-ZEBRA = 'X'.
PERFORM OUTPUT.
*& Form PF_STATUS
text
-->RT_EXTAB text
FORM PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'BUTT'.
ENDFORM. "PF_STATUS
*& Form PUSH_BUTT1
text
-->R_UCOMM text
-->RS_SELFIELD text
FORM GET USING R_UCOMM LIKE SY-UCOMM RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
WHEN 'GET'.
IF SY-SUBRC EQ 0.
CALL TRANSACTION 'SE11'.
ELSE.
ENDIF.
WHEN 'EXIT' OR 'CANCEL' .
LEAVE PROGRAM.
ENDCASE.
ENDFORM. "PUSH_BUTT1
*& Form FIELDCAT
text
--> p1 text
<-- p2 text
FORM FIELDCAT .
WA_FCAT-SELTEXT_L = 'Select'.
WA_FCAT-COL_POS = '1'.
WA_FCAT-FIELDNAME = 'CHECK'.
WA_FCAT-CHECKBOX = 'X'.
WA_FCAT-TABNAME = 'ITAB'.
WA_FCAT-OUTPUTLEN = '4'.
WA_FCAT-INPUT(1) = 'X'.
WA_FCAT-EDIT_MASK(1) = 'X'.
WA_FCAT-EDIT(1) = 'X'.
APPEND WA_FCAT TO FCAT.
CLEAR WA_FCAT.
WA_FCAT-SELTEXT_L = 'Material Number'.
WA_FCAT-COL_POS = '2'.
WA_FCAT-FIELDNAME = 'MATNR'.
WA_FCAT-TABNAME = 'ITAB'.
WA_FCAT-OUTPUTLEN = '18'.
APPEND WA_FCAT TO FCAT.
CLEAR WA_FCAT.
WA_FCAT-SELTEXT_L = 'Date'.
WA_FCAT-COL_POS = '3'.
WA_FCAT-FIELDNAME = 'ERSDA'.
WA_FCAT-TABNAME = 'ITAB'.
WA_FCAT-OUTPUTLEN = '8'.
APPEND WA_FCAT TO FCAT.
CLEAR WA_FCAT.
ENDFORM. " FIELDCAT
*& Form OUTPUT
text
--> p1 text
<-- p2 text
FORM OUTPUT .
SELECT MATNR ERSDA FROM MARA
INTO TABLE ITAB
WHERE MATNR EQ P_MATNR.
IF SY-SUBRC EQ 0.
PERFORM GRID.
ELSE.
MESSAGE 'No Records Found' TYPE 'I'.
ENDIF.
ENDFORM. " OUTPUT
*& Form GRID
text
--> p1 text
<-- p2 text
FORM GRID .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = 'PF_STATUS'
I_CALLBACK_USER_COMMAND = 'GET'
IS_LAYOUT = LAYOUT
IT_FIELDCAT = FCAT
I_DEFAULT = 'X'
TABLES
T_OUTTAB = ITAB.
ENDFORM. " GRID
REGARDS,
SAKTHIVEL.VT
Maybe you are looking for
-
Problem with Adobe Reader and IE
I'm using Vista Home Premium and IE9 with the latest Reader available. Starting yesterday, I cannot read PDF files on the web. This is a new problem. I tried to download newer versions of IE and the Reader, but both tell me I've got the newest ver
-
[Patch] Reduce syscalls
Looking at the strace output, pacman seems to invoke lots of unnecessary syscalls. This patch has reduced the number of needed syscalls on my system by 70%: http://pastebin.archlinux.fr/406557 Reading the "desc" files is still inefficient: open("/var
-
My player associated with my browseris currently not working. I work for an online radio station and was using my bb to listen Live to the broadcast www.Kmn1061.com through the flash player on the website. Currently... I'm getting nothing! The page w
-
Is it possible to write a result of query to a CLOB field in another table
Hi all, I have a table with 50 columns which will ideally have around 250,000 rows. I want to select all the rows from this table and insert the result in to another table's CLOB or BLOB column. ( I think CLOB is preferred for strings !!) f.i Table1
-
Hi All, I have NW04s installed on AIX 5.3 with oracle 10g. When ever i try to do a sqlplus i get the following error: <Hostname>:ora<sid>> sqlplus SP2-1503: Unable to initialize Oracle call interface SP2-0152: ORACLE may not be functioning properly <