Opening a screen using a rule - Agentry

Hi;
I am working on SAP Work Manager 6.0 customising using Agentry 6.1.3. I have this requirement of opening a new screen automatically via a rule, once all the contents of a tile list have been edited completley, a new edit screen must open up. Let's say for example, on a tile list I have 3 items, the user clicks on the first one and completes it, then the second one and completes it and finally, after completing the last one, a new screen must open. I was thinking of triggering this via a rule, but now, on which rule would this trigger sit and how can I structure the rule so as to open a new screen after.
Thanks and Regards;
Sizo Ndlovu

Hi Bill;
Thanks a lot, I have done exactly as you have outlined above and the screen is opening fine, just at the point when I want it to open, but suprisingly, the contents maintained on this page are not saved after clicking finish, even though I have a save/Apply within the action that is called by the subaction and after the subAction. Please kindly see screenshots below:
What could I be missing?
Thanks and Regards;
Sizo Ndlovu

Similar Messages

Opening multiple screens in safari

how do i open multiple screens using safari???

Cmd-N on the keyboard opens a new window.
Also, +File -> New Window+ from the menu bar does the same thing.
You can also open a new tab in an existing window (click the plus sign or Cmd-T). Then click-hold on the tab and drag it outside the current window. A new window will open from the tab.

How can you use AirPlay Mirroring to always show one of your open desktop screens?

I have Mountain Lion on a 2011 Mac, and have a number of desktop screens which I use regularly.
My question is, how do I choose only one of those open desktop screens to beam to Apple TV via mirroring? For example, so that I can show a presentation on the projector screen (via Apple TV) and read the slide notes directly from a word document on the Mac screen (which the audience cannot see) or for example, to beam a full screen DVD to my TV so that the family can watch it, whilst I continue to actually work on the Mac on a different desktop screen?
Hope that makes sense...
Thanks
Jonathan

I understand your problem but don't think it's possible:( My only solution is to play my tutorials from the networked drive to my ATV2 while following along with the exercise materials. If you've found a solution please let me know? I thought it'd be possible to assign mirroring to one desktop, like I think you said in the original post, with some type of terminal command but no luck yet. Thanks

My iPad dosen't open, my screen is black even if I use the open/close buttun??what can I do

My iPad won't open, my screen is black even if I use the open/close reset botton???

Assuming that the battery isn't empty (and it can take up to 15 minutes of charging before it will respond), then have you tried a reset (not sure whether this is what you meant by a reset) ? Press and hold both the sleep and home buttons for about 10 to 15 seconds, after which the Apple logo should appear - you won't lose any content, it's the iPad equivalent of a reboot.

Since upgrade to 3.6.7 the emoticons window on a forum I use always opens full screen, not as a small window. How can I get it to open as a small screen again.

Since upgrading to 3.6.7, when I go to a forum I'm active on and click the emoticons icon in the reply box, the emoticons window opens full screen, and not as a small screen like it did before. I can click on the box to make it small again, but next time I open it, it's back to full screen. Ok, not a major problem, but really rather annoying. I've tried to find a way to get it back to opening the way it did before, but to no avail. Does anyone know how I can solve this little problem?
== I upgraded to 3.6.7

No-one got any ideas on this then? It's definitely a firefox problem, as when I open the forum page (mentioned in the OP) with Opera or Chrome, the emoticons window opens as a small window, same as FF used to before the upgrade.

When on Facebook (for example), Firefox is not allowing me to open pictures; when using apps, the bottom of the screen is missing so cannot utilize the apps. All working on Safari; just downloaded new Firefox 4, so seems to be a problem with this version?

Question
When on Facebook (for example), Firefox is not allowing me to open pictures; when using apps, the bottom of the screen is missing so cannot utilize the apps. All working on Safari; just downloaded new Firefox 4, so seems to be a proble

Can you attach a screenshot?
*http://en.wikipedia.org/wiki/Screenshot
*https://support.mozilla.org/kb/how-do-i-create-screenshot-my-problem
Use a compressed image type like PNG or JPG to save the screenshot.
See also "Help About".
*Tap the Alt key or press F10 to show the Menu bar.
In current Firefox releases (29 and later) the orange Firefox menu button has been replaced by the three-bar Firefox Menu button at the far right end of the Navigation Toolbar and this button is always visible, whether you have the menu bar visible or hidden<br>A consequence of this location is that you no longer can hide the Navigation Toolbar
*There is a star like button next to the search bar on the Navigation Toolbar to bookmark the current web page and a "Show your bookmarks" button next to it to open the Bookmarks in a drop down menu.<br>You can find "Show All Bookmarks" to open the Bookmarks Manager (Library) at the bottom of this drop-down list
*If you bookmark a page then "Bookmark This Page" in the Bookmarks menu changes to "Edit This Bookmark"
*You can make the title bar visible via the "Title Bar" button at the bottom left in the Customize palette window
It is still possible to have the menu bar visible via the right-click context menu of a toolbar to have menus like the File menu with Print (Ctrl+P) and Print Preview and the Bookmarks menu available.
See also:
*https://support.mozilla.org/kb/how-to-make-new-firefox-look-like-old-firefox
*https://support.mozilla.org/kb/common-questions-after-updating-to-new-firefox
*https://support.mozilla.org/kb/learn-more-about-the-design-of-new-firefox

I'm having trouble using the safari. It won't open the screen stays black

I'm having trouble with the safari it won't open the screen stays black also apps won't open it just kicks me out

Try this:
Settings>Safari>Clear History, Cookies and Data

Voice over does not allow me to open locked screen

voice over does not allow me to open locked screen iPhone 6
<Subject Edited by Host>

Use two taps wherever you would use one tap. Navigate to Settings/General/Accessibility and turn it off.

Problem with Open document SSO using websphere.

Hi All,
I have a issue,
We configured AD SSO using websphere and its working fine but when we try to login to the open document SSO using websphere it prompting for login credentials.
Is there any steps needed for configure open document SSO using websphere.
We made all the changes in web.xml file for the Open Document ,same as in Infoview web.xml file.
When we launch the Open Document, it prompts for the login screen, we get username and passwd fields we do not get the authentication drop down,if we give the AD credentials , we get "Enterprise Authentication error" .We feel the default authentication mode is taken as "Enterprise".
We have made changes in the web.xml for open document to have authentication.dafault as "secWinAD", also ,for test purpose we made the authentication. visible as "true" but the changes were not taken, we have redeployed the war files.
Any one please help on this.
Environment Details-
BOBJ XI R3.1 SP2
Web Sphere 6.1.0.25 .
Thank you in advance.
Thanks & Regards,
Bill.

The same settings in the infoviewapp web.xml must be applied on the opendocument web.xml. Also you must be on XI 3.1 FP1 or higher. There is currently an Edge issue being investigated.
Regards,
Tim

Error while opening the application using semantic object method

Hello ,
We just got all the Wave 3 apps and SP08 versions on our Fiori server. While setting up the transnational applications , I am not able to open any app using semantic objects. if i put direct URL I can open the app.
Error screen shots are :
The Launchpad designer settings for create sales order app are :
Please suggest the solution.
The error is same for all the applications.
Regards,
Sheetal
Tags edited by: Michael Appleby

Hello Masa,
Checked this note. Not able to resolve the issue. Can you please explain, for the application to work with Navigation and semantic object what all roles do we need to assign to the User?
For create Sales Order :
Component
Technical Name
Business Role
SAP_SD_BCR_FIELDSALESREP_X1
Business Catalog
SAP_SD_BC_FIELDSALESREP_X1
Business Catalog Group
SAP_SD_BCG_FIELDSALESREP_X1
Technical Role
SAP_SD_BCR_FIELDSALESREP_X1
Technical Catalog
SAP_SD_TC_T_X1
LPD_CUST Role
UIX01SD
LPD_CUST Instance
TRANSACTIONAL
OData Service (Version Number)
Back-End Server: Delivered Authorization Role (PFCG Role)
Front-End Server: Authorization Role
SRA017_SALESORDER_CREATE_SRV
SRA017:SAP_SD_SO_CRE_APP
SAP_SD_BCR_FIELDSALESREP_X1
My user id is assigned to three Roles :
SAP_SD_BCR_FIELDSALESREP_X1
SAP_SD_BCR_FIELDSALESREP_X1
SRA017:SAP_SD_SO_CRE_APP
Do I need to assign any other roles than these three?
Regards,
Sheetal

How to Open new screen for single click on ALV icon.

Hi All,
Can any body help me regarding the below ALV requirement.
I need to create a executable program ZPROGRAM with a table having field to store long text.The ALV report should display records according to the selection screen parameters with a icon in each record when clicked should open a new screen with present data in the field and must be able to save the entered long text.
Can any body give me the idea after displaying the simple ALV in the output,
How to open new screen(not the Pop-ups) after single click on the icon,
in that I should be able to modify & save the long text in my ZTABLE and
able to retrieve the same text for single clicked icon record.
which function modules/Classes/Methods can we use for this requirement.
And how retrieve the same text for this record.
Thanks in advance.
Regards,
Kalam A.

*& Report ZTEST_ALV
REPORT ZTEST_ALV.
TYPE-POOLS slis.
DATA: gt_fieldcat TYPE TABLE OF slis_fieldcat_alv .
DATA: gs_layout TYPE slis_layout_alv.
DATA: gt_list_top_of_page TYPE slis_t_listheader.
DATA: gt_sortinfo_alv   TYPE slis_t_sortinfo_alv.
DATA: gs_print_alv TYPE slis_print_alv.
DATA: gs_grid TYPE lvc_s_glay.
DATA: gt_event TYPE slis_t_event.
DATA: gs_event TYPE slis_alv_event.
DATA: BEGIN OF GT_DISPLAY OCCURS 100.
   INCLUDE STRUCTURE MARA.
   DATA: BOX.
DATA: END OF GT_DISPLAY.
START-OF-SELECTION.
SELECT * FROM MARA UP TO 50 ROWS
INTO CORRESPONDING FIELDS OF TABLE GT_DISPLAY.
End-of-Selection.
PERFORM build_alv.
PERFORM display_screen .
FORM build_alv .
DATA: ls_fieldcat LIKE LINE OF gt_fieldcat.
DATA: ls_top TYPE LINE OF slis_t_listheader.
DATA: ls_sort TYPE slis_sortinfo_alv.
CLEAR: ls_fieldcat, gt_fieldcat[], ls_top,gt_list_top_of_page[],
         ls_sort,gs_grid,gs_print_alv,gt_sortinfo_alv[].
*&-----gs_layout definition.
gs_layout-zebra = 'X'.
gs_layout-detail_popup = 'X'.          "ÊÇ·ñµ¯³öÏêÏ¸ÐÅÏ¢´°¿Ú
gs_layout-f2code = '&ETA'.             "ÉèÖÃ´¥·¢µ¯³öÏêÏ¸ÐÅÏ¢´°¿ÚµÄ¹¦ÄÜÂë,ÕâÀïÊÇË«»÷
gs_layout-no_vline = ' '.              "ÉèÖÃÁÐ¼ä¸ôÏß
gs_layout-colwidth_optimize = 'X'.     "ÓÅ»¯ÁÐ¿í
gs_layout-detail_initial_lines = 'X'.
gs_layout-coltab_fieldname = 'LINE_COLOR'. "Line_colorÎªgt_displayµÄÒ»¸ö×Ö¶Î,¾ßÌåÑÕÉ«ÉèÖÃ¼ûÏÂÃæËµÃ÷.
gs_layout-hotspot_fieldname = 'MATNR'.
gs_layout-detail_titlebar = 'ÏêÏ¸ÄÚÈÝ'. "ÉèÖÃµ¯³ö´°¿ÚµÄ±êÌâÀ¸
gs_layout-group_change_edit = 'X'.
*&-----gs_grid definition.
gs_grid-top_p_only = 'X'.
*&-----gs_print_alv definition.
gs_print_alv-prnt_title = 'X'.
gs_print_alv-prnt_info = 'X'.
*&-----gt_sortinfo_alv definition. Ð¡¼Æ
ls_sort-fieldname = 'MTART'.
ls_sort-tabname = 'GT_DISPLAY'.
ls_sort-subtot = 'X'.
ls_sort-spos      = 1.
ls_sort-up        = 'X'.
ls_sort-group = 'UL'.
APPEND ls_sort TO gt_sortinfo_alv.
ls_sort-fieldname = 'AENAM'.
ls_sort-tabname = 'GT_DISPLAY'.
ls_sort-subtot = 'X'.
ls_sort-spos      = 1.
ls_sort-up        = 'X'.
ls_sort-group = 'UL'.
APPEND ls_sort TO gt_sortinfo_alv.
*&-----slis_t_listheader definition. title.
CLEAR ls_top.
ls_top-key = 'µ±Ç°ÈÕÆÚ:'.
ls_top-typ = 'S'. " H = Header, S = Selection, A = Action
CONCATENATE sy-datum0(4)   '-' sy-datum4(2) '-' sy-datum+6(2) INTO ls_top-info .
APPEND ls_top TO gt_list_top_of_page.
CLEAR ls_top.
ls_top-key = 'title'.
ls_top-typ = 'S'. " H = Header, S = Selection, A = Action
ls_top-info = space.
APPEND ls_top TO gt_list_top_of_page.
*&-----gs_print_alv definition.
gs_print_alv-prnt_title = 'X'.
gs_print_alv-prnt_info = 'X'.
*&-----gt_fieldcat definition.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
     i_program_name     = sy-repid
     i_internal_tabname = 'GT_DISPLAY'
      i_structure_name = 'MARA'
      I_CLIENT_NEVER_DISPLAY = 'X'
     i_inclname         = sy-repid
   CHANGING
     ct_fieldcat        = gt_fieldcat[]
   EXCEPTIONS
     inconsistent_interface = 1
     program_error          = 2
     OTHERS                 = 3.
ls_fieldcat-hotspot = 'X'.
MODIFY gt_fieldcat FROM ls_fieldcat INDEX 2.
**-1. definition with macro.
DEFINE macro.
   col_pos = col_pos + 1.
   ls_fieldcat-tabname   = 'it_typ_data'.
    ls_fieldcat-fieldname = '&1'.
    ls_fieldcat-seltext_l = &2.
   ls_fieldcat-col_pos   = col_pos.
    ls_fieldcat-outputlen = '&3'.
   ls_fieldcat-datatype = '&4'.
   ls_fieldcat-do_sum    = &5.
   ls_fieldcat-edit    =   &6.
   ls_fieldcat-checkbox =   &7.
   ls_fieldcat-key   =   &9.
   ls_fieldcat-fix_column = &10.
   ls_fieldcat-no_out = &11.
    ls_fieldcat-ref_fieldname = &4.    " System F4 Effect.
    ls_fieldcat-ref_tabname   = &5.   " System F4 Effect.
    ls_fieldcat-hotspot   =   &6.
    append ls_fieldcat to gt_fieldcat.
    clear ls_fieldcat.
END-OF-DEFINITION.
macro matnr     'matnr'            18   'MATNR'   'MARA' 'X'.
macro MTART     'MTART'            18      'MTART' 'MARA' ''.
macro AENAM    'AENAM'            18       'MAENAM' 'MARA'   ''.
**-2. definition one-by-one.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'MATNR'.
ls_fieldcat-seltext_s = 'ÎïÁÏ'.
ls_fieldcat-ref_fieldname = 'ROLLNAME'.
ls_fieldcat-ref_tabname   = 'DD03L'.
APPEND ls_fieldcat TO gt_fieldcat.
ENDFORM.                    "build_alv
FORM display_screen .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     i_list_type     = 0
   IMPORTING
     et_events       = gt_event
   EXCEPTIONS
     list_type_wrong = 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.
READ TABLE gt_event INTO gs_event WITH KEY name = 'TOP_OF_PAGE'.
IF sy-subrc EQ 0.
   gs_event-form = 'TOP_OF_PAGE'.
   MODIFY gt_event FROM gs_event INDEX sy-tabix.
ENDIF.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = sy-repid
    i_callback_pf_status_set          = 'PF_STATUS_SET '
     i_callback_user_command           = 'USER_COMMAND'
    i_callback_top_of_page            = 'TOP_OF_PAGE'
   I_CALLBACK_HTML_TOP_OF_PAGE       = 'HTML_TOP_OF_PAGE'
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
    I_BACKGROUND_ID                   = 'ALV_BACKGROUND'    "When top-of-page is initial.
I_GRID_TITLE                      =
I_GRID_SETTINGS                   =
     is_layout                         = gs_layout
     it_fieldcat                       = gt_fieldcat[]
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
    it_sort                           = gt_sortinfo_alv[]
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
   I_SAVE                            = 'A'
IS_VARIANT                        =
IT_EVENTS                         = gt_event
IT_EVENT_EXIT                     =
   IS_PRINT                          = gs_print_alv
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                          = gt_display
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.
ENDFORM.                    "display_screen
FORM user_command          USING ucomm LIKE sy-ucomm
                           selfield TYPE slis_selfield.
Data ref1 type ref to cl_gui_alv_grid.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' "Check Box need fieldcat-checkbox, input and edit.
     IMPORTING
       E_GRID = ref1.
CASE ucomm.
    WHEN '&IC1'. " SAP standard code for double-clicking
READ TABLE gt_display INTO gs_display INDEX slis_selfield-tabindex.
CHECK sy-subrc = 0.
     CASE selfield-fieldname .
       WHEN 'PLNUM'.
         SET PARAMETER ID 'PAF' FIELD gs_display-plnum.
         CALL TRANSACTION 'MD12' AND SKIP FIRST SCREEN.
       WHEN 'POSNR'.
       SUBMIT rvscd100 USING SELECTION-SCREEN '1000' WITH vbeln = gs_display-vbeln
                                                      WITH posnr = gs_display-posnr
                                                      WITH zinfo = 'X'
                                                      AND RETURN.
     ENDCASE.
   IF selfield-sel_tab_field = 'OUT_ITAB-PI_SL'. " Line detail.
       READ TABLE i_output INTO pisl_itab INDEX selfield-tabindex.
       IF sy-subrc EQ 0.
   ENDIF.
    WHEN 'CHANGE'.
     CALL METHOD ref1->check_changed_data.
     CALL METHOD ref1->refresh_table_display.
*5´Ë´¦´úÂë×èÖ¹'REUSE_ALV_GRID_DISPLAY´´½¨ÐÂµÄÆÁÄ»£¬Ôì³ÉÆÁÄ»¶à²ã
     selfield-refresh = 'X'.
    WHEN 'SWITCH'.
     PERFORM switch_edit_mode.
    WHEN OTHERS.
ENDCASE.
ENDFORM.                    "user_command
Add your code in user_command form.
WHEN you click matnr ucomm eq '&IC1'.
Message was edited by:
        Chunhai Hu

Whenever I open the editor in Photoshop Elements 12 it does not work. When I try to click open in the application it does not do anything. None of the buttons work. When I open a photo using file at the top it opens but I cannot edit it or use any of the

Whenever I open the editor in Photoshop Elements 12 it does not work. When I try to click open in the application it does not do anything. None of the buttons work. When I open a photo using file at the top it opens but I cannot edit it or use any of the features on the left side.

Hi Nealeh
Thanks i think I got it working of a fashion.
Except the replace colour, does not seem to end up with the colour I picked using the picker tool. Its as though it hads not replaced the colour but blended in the desired colour with the old incorrect colour!
Buy trial and error picking not the right colour but close - which when mixed with the existing colour is close.
Sorry I can't post the pictures as the Lingerie Mfg, has me under non disclosure.
The scenario is:- say a blonded mainly tanned model a high cut [at the hips] corsette style basque, with an ultra low bra line.
Our dear model, has just come back from St Barts with a fabulous Tan, and equally striking bold Tan lines!.
So we have great tanned legs, then the 'porcelain white band' where her swimsuit was.
Likewise we have a tanned face, and arms, shoulders etc and a great tan on the top of the cleavage, then it stops, white band to the top of the ultralow cut bra line of the basque.
She must have lived in like the most conservative bikini on the planet [50's style], for 2 weeks!
Had she had a normal skimpy bikini on, no problem!
If i don't solve it, she will get fired!
Not a lack of interest in your post, but I was out, and tried to log in to this site; which I could do, on my iPad Air / 5 [whatever its the new one]. And tried to 'sign in' - but it just hung at the
"Join Adobe Community" adobe sign in splash screen! with he little whell spinning around continuously!!!
I have Safari on this iPad. Guess that is all it runs.
So technology is not my friend today!

Word docs don't open full screen on iBook

My brother, up in Maine, I'm in NY, has an iBook with Word X on it. (I don't know the version of OSX he has but he probably hasn't updated it since he bought it... I am not sure of the model of his iBook either. I can find out.) His main complaint is that Word documents don't open full-screen (once he drags the window to fill the screen) upon reopening or with new blank documents.
I am wondering if Word doesn't like certain screen resolutions. I don't know what he is using now but I have suggested he try some others. Does anyone know if Word docs won't act right under certain screen resolutions? Or if it is something else, what can we do so that docs open fully.
He bought the Mac thinking it was easier to use but this one thing has kept him from using it at all! He is using this for his business, a used book shop, and would use Word to list books. I hope to fix this so he can see the value of the Mac.
Cheers,
John
(who's been using Macs for years.)

We really need to know which version of the OS he is using, and the iBook model would be good to know, too.
You may want to poke around on Microsoft's Mactopia and see if there are some hints for him there.

IS-U enhancing transaction FPBW (open items extraction using table DFKKOPBW

Has anybody experiances with IS-U Accounts Receivable & payable - 'Open Items' extraction using transaction FPBW
(which fill the table DFKKOPBW).
1. I need to fill an custom included structure in this table (DFKKOPBW) and I am searching for the correct time (for performance reasons) & place in the (SAP) source (in the program flow) to do this.
2. Anybody any clues on Custum/user exits in this part?
See also function group FKKOPBW.
Jos Reithofer

Try this code that can search a user exit in a transaction. I got it from previous post in this forum.
*& Report Y_SEARCH_USEREXIT                                           *
REPORT y_search_userexit LINE-SIZE 140 NO STANDARD PAGE HEADING.
CONSTANTS
*CONSTANTS: c_user_exit(22) TYPE c VALUE 'CALL CUSTOMER-FUNCTION',
constants: c_badi(30) type c value 'CALL METHOD CL_EXITHANDLER=>',
           c_funcao_1(13) TYPE c VALUE 'CALLFUNCTION''',
           c_funcao_2(13) TYPE c VALUE 'CALL FUNCTION',
           c_include(07) TYPE c VALUE 'INCLUDE',
           c_submit(06) TYPE c VALUE 'SUBMIT',
           c_comentario TYPE c VALUE '*',
           c_ponto TYPE c VALUE '.',
           c_aspa TYPE c VALUE '''',
           c_x TYPE c VALUE 'X'.
TABELAS INTERNAS
DATA: BEGIN OF ti_programa OCCURS 0,
codigo_fonte(200) type c, " LIKE rssource-line,
END OF ti_programa.
DATA: BEGIN OF ti_includes OCCURS 0,
nome LIKE sy-repid,
nivel(2) TYPE n,
END OF ti_includes.
DATA: BEGIN OF ti_user_exit OCCURS 0,
programa LIKE sy-repid,
linha(10) TYPE n,
codigo_fonte LIKE rssource-line,
nivel(2) TYPE n,
END OF ti_user_exit.
VARIÁVEIS GLOBAIS
DATA: vg_caracter TYPE c,
vg_palavra(50) TYPE c,
vg_inicial LIKE sy-index,
vg_conta_aspa TYPE n,
vg_pname LIKE tfdir-pname,
vg_texto(50) TYPE c,
vg_contador LIKE sy-tfill,
vg_nivel(2) TYPE n,
vg_ini_contagem TYPE c, " INDICA QUE DEVE SER INICIADA A CONTAGEM
vg_conta_espaco TYPE n. " TOTAL DE ESPAÇOS ( MÁXIMO 2 )
PARAMETERS
*- DADOS OBRIGATÓRIOS.
SELECTION-SCREEN BEGIN OF BLOCK bl01 WITH FRAME TITLE tl_001 .
selection-screen begin of line.
selection-screen comment 1(25) tl_003.
PARAMETERS: p_prog LIKE sy-repid.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(25) tl_004.
parameters: p_tcode LIKE sy-tcode.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(25) tl_009.
parameters: p_exit(30) TYPE c default 'CALL CUSTOMER-FUNCTION'.
selection-screen end of line.
SELECTION-SCREEN END OF BLOCK bl01.
*- DADOS OPCIONAIS.
SELECTION-SCREEN BEGIN OF BLOCK bl02 WITH FRAME TITLE tl_002.
selection-screen begin of line.
PARAMETERS: p_incl TYPE c AS CHECKBOX.
selection-screen comment 4(25) tl_005.
selection-screen end of line.
selection-screen begin of line.
parameters: p_func TYPE c AS CHECKBOX.
selection-screen comment 4(25) tl_006.
selection-screen end of line.
selection-screen begin of line.
parameters: p_submit TYPE c AS CHECKBOX.
selection-screen comment 4(25) tl_007.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(25) tl_008.
parameters: p_nivel(2) TYPE n.
selection-screen end of line.
SELECTION-SCREEN END OF BLOCK bl02.
initialization.
tl_001 = 'Program Selection'.
tl_002 = 'Search Depth'.
tl_003 = 'Program Name'.
tl_004 = 'Transaction Code'.
tl_005 = 'Process INCLUDEs'.
tl_006 = 'Process FUNCTION MODULEs'.
tl_007 = 'Process SUBMITs'.
tl_008 = 'Depth level'.
tl_009 = 'Search string'.
INÍCIO
START-OF-SELECTION.
*- CONSISTÊNCIAS DOS PARÂMETROS.
PERFORM consisti_parametros.
*- INICIALIZA TABELA.
PERFORM inicializa_tabela.
*- VERIFICA SE NO PROGRAMA EXISTE ALGUM INCLUDE,FUNÇÃO OU SUBMIT.
PERFORM verifica_include_funcao_submit.
*- ANALISA OS INCLUDES E PROCURA POR USER EXIT.
PERFORM procura_user_exit.
*- EXIBE TODAS USER EXIT ENCONTRADAS.
PERFORM exibe_user_exit.
FIM
END-OF-SELECTION.
*& Form PROCURA_USER_EXIT
text
--> p1 text
<-- p2 text
FORM procura_user_exit.
*- VERIFICA SE NOS INCLUDES SELECIONADOS EXISTEM USER EXITS.
LOOP AT ti_includes.
*- ESVAZIA TABELA INTERNA.
    REFRESH ti_programa.
*- REALIZA LEITURA DO INCLUDE ARMAZENANDO-O EM TABELA INTERNA
    READ REPORT ti_includes-nome INTO ti_programa.
    LOOP AT ti_programa.
*- VERIFICA SE NA LINHA DO PROGRAMA EXISTE ALGUM INCLUDE.
      SEARCH ti_programa-codigo_fonte FOR p_exit.
*- SE ENCONTROU INCLUDE E SE A LINHA NÃO ESTÁ COMENTADA...
      IF sy-subrc EQ 0
      AND ti_programa-codigo_fonte+0(1) NE c_comentario.
        CLEAR ti_user_exit.
*- REMOVE ESPAÇOS NO INÍCIO DA STRING.
        SHIFT ti_programa-codigo_fonte LEFT DELETING LEADING space.
        MOVE: ti_includes-nome TO ti_user_exit-programa,
        sy-tabix TO ti_user_exit-linha,
        ti_programa-codigo_fonte TO ti_user_exit-codigo_fonte,
        ti_includes-nivel TO ti_user_exit-nivel.
        APPEND ti_user_exit.
      ENDIF.
    ENDLOOP.
ENDLOOP.
ENDFORM. " PROCURA_USER_EXIT
*& Form EXIBE_USER_EXIT
text
--> p1 text
<-- p2 text
FORM exibe_user_exit.
PERFORM cabecalho.
PERFORM user_exit_nao_encontrada.
PERFORM lista_user_exit_encontrada.
PERFORM rodape.
ENDFORM. " EXIBE_USER_EXIT
*& Form PROCURA_INCLUDE
text
--> p1 text
<-- p2 text
FORM procura_include.
CLEAR vg_palavra.
*- VERIFICA SE NA LINHA DO PROGRAMA EXISTE ALGUM INCLUDE.
SEARCH ti_programa-codigo_fonte FOR c_include.
*- SE ENCONTROU INCLUDE E SE A LINHA NÃO ESTÁ COMENTADA...
IF sy-subrc EQ 0
AND ti_programa-codigo_fonte+0(1) NE c_comentario.
*- VERIFICA TODOS OS 72
    DO 72 TIMES.
      vg_inicial = sy-index - 1.
      MOVE ti_programa-codigo_fonte+vg_inicial(1) TO vg_caracter.
      IF NOT vg_caracter IS INITIAL.
*- VERIFICA SE NÃO É FIM DO COMANDO.
        IF vg_caracter EQ c_ponto.
          EXIT.
        ENDIF.
*- MONTA PALAVRA.
        CONCATENATE vg_palavra vg_caracter INTO vg_palavra.
*- CONVERTE PARA MAÍUSCULA PARA FUTURA COMPARAÇÃO.
        TRANSLATE vg_palavra TO UPPER CASE.
*- SE ENCONTROU ALGUM INCLUDE
        IF vg_palavra EQ c_include.
          CLEAR vg_palavra.
        ENDIF.
      ENDIF.
    ENDDO.
*- SALVA NOME DO INCLUDE P
    READ TABLE ti_includes WITH KEY nome = vg_palavra.
    IF NOT sy-subrc IS INITIAL.
      IF vg_nivel LE p_nivel.
        MOVE: vg_palavra TO ti_includes-nome,
        vg_nivel TO ti_includes-nivel.
        APPEND ti_includes.
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM. " PROCURA_INCLUDE
*& Form PROCURA_FUNCAO
text
--> p1 text
<-- p2 text
FORM procura_funcao.
CLEAR: vg_conta_aspa,
vg_palavra.
*- VERIFICA SE NA LINHA DO PROGRAMA EXISTE ALGUM INCLUDE.
SEARCH ti_programa-codigo_fonte FOR c_funcao_2.
*- SE ENCONTROU INCLUDE E SE A LINHA NÃO ESTÁ COMENTADA...
IF sy-subrc EQ 0
AND ti_programa-codigo_fonte+0(1) NE c_comentario.
*- VERIFICA TODOS OS 72
    DO 72 TIMES.
      vg_inicial = sy-index - 1.
      MOVE ti_programa-codigo_fonte+vg_inicial(1)
      TO vg_caracter.
      IF NOT vg_caracter IS INITIAL.
*- VERIFICA SE NÃO É FIM DO COMANDO.
        IF vg_caracter EQ c_aspa.
          ADD 1 TO vg_conta_aspa.
          IF vg_conta_aspa EQ 2.
            EXIT.
          ENDIF.
        ENDIF.
*- MONTA PALAVRA.
        CONCATENATE vg_palavra vg_caracter INTO vg_palavra.
*- CONVERTE PARA MAÍUSCULA PARA FUTURA COMPARAÇÃO.
        TRANSLATE vg_palavra TO UPPER CASE.
*- SE ENCONTROU ALGUM INCLUDE
        IF vg_palavra EQ c_funcao_1.
          CLEAR vg_palavra.
        ENDIF.
      ENDIF.
    ENDDO.
*- PESQUISA NOME DA FUNÇÃO PARA FUTURA PESQUISA POR USER EXIT.
    CLEAR vg_pname.
    SELECT SINGLE pname
    INTO vg_pname
    FROM tfdir
    WHERE funcname EQ vg_palavra.
    IF sy-subrc EQ 0.
      READ TABLE ti_includes WITH KEY nome = vg_pname.
      IF NOT sy-subrc IS INITIAL.
        IF vg_nivel LE p_nivel.
          MOVE: vg_pname TO ti_includes-nome,
          vg_nivel TO ti_includes-nivel.
          APPEND ti_includes.
        ENDIF.
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM. " PROCURA_FUNCAO
*& Form VERIFICA_INCLUDE_FUNCAO_SUBMIT
text
--> p1 text
<-- p2 text
FORM verifica_include_funcao_submit.
LOOP AT ti_includes.
    ADD 1 TO vg_contador.
    DESCRIBE TABLE ti_includes.
    PERFORM evitar_time_out USING sy-tfill.
    MOVE ti_includes-nivel TO vg_nivel.
    ADD 1 TO vg_nivel.
*- ESVAZIA TABELA INTERNA.
    REFRESH ti_programa.
    READ REPORT ti_includes-nome INTO ti_programa.
    LOOP AT ti_programa.
*- PROCURA POR INCLUDES.
      IF p_incl EQ c_x.
        PERFORM procura_include.
      ENDIF.
*- PROCURA POR FUNÇÃO.
      IF p_func EQ c_x.
        PERFORM procura_funcao.
      ENDIF.
*- PROCURA POR SUBMIT.
      IF p_submit EQ c_x.
        PERFORM procura_submit.
      ENDIF.
    ENDLOOP.
ENDLOOP.
ENDFORM. " VERIFICA_INCLUDE_FUNCAO_SUBMIT
*& Form EVITAR_TIME_OUT
text
-->P_SY_TFILL text
-->P_SY_SUBRC text
FORM evitar_time_out USING p_sy_tfill.
DATA: vl_total(10) TYPE n,
vl_atual(10) TYPE n.
MOVE: p_sy_tfill TO vl_total,
vg_contador TO vl_atual.
CONCATENATE 'Total:' vl_total '-' 'Atual:' vl_atual
INTO vg_texto
SEPARATED BY space.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      text = vg_texto.
ENDFORM. " EVITAR_TIME_OUT
*& Form PROCURA_SUBMIT
text
--> p1 text
<-- p2 text
FORM procura_submit.
CLEAR: vg_conta_espaco, vg_palavra, vg_ini_contagem.
*- VERIFICA SE NA LINHA DO PROGRAMA EXISTE ALGUM INCLUDE.
SEARCH ti_programa-codigo_fonte FOR c_submit.
*- SE ENCONTROU INCLUDE E SE A LINHA NÃO ESTÁ COMENTADA...
IF sy-subrc EQ 0
AND ti_programa-codigo_fonte+0(1) NE c_comentario.
*- VERIFICA TODOS OS 7
    DO 72 TIMES.
      vg_inicial = sy-index - 1.
      MOVE ti_programa-codigo_fonte+vg_inicial(1) TO vg_caracter.
      IF vg_ini_contagem EQ c_x AND vg_caracter IS INITIAL.
        ADD 1 TO vg_conta_espaco.
      ENDIF.
      IF NOT vg_caracter IS INITIAL.
        MOVE c_x TO vg_ini_contagem.
        IF vg_caracter EQ c_ponto.
          EXIT.
        ENDIF.
*- MONTA PALAVRA.
        IF vg_conta_espaco LT 2.
          CONCATENATE vg_palavra vg_caracter INTO vg_palavra.
*- CONVERTE PARA MAÍUSCULA PARA FUTURA COMPARAÇÃO.
          TRANSLATE vg_palavra TO UPPER CASE.
*- SE ENCONTROU ALGUM INCLUDE
          IF vg_palavra EQ c_submit.
            CLEAR vg_palavra.
          ENDIF.
        ELSE.
          EXIT.
        ENDIF.
      ENDIF.
    ENDDO.
*- PESQUISA NOME DA FUNÇÃO
    READ TABLE ti_includes WITH KEY nome = vg_palavra.
    IF NOT sy-subrc IS INITIAL.
      IF vg_nivel LE p_nivel.
        MOVE: vg_palavra TO ti_includes-nome,
        vg_nivel TO ti_includes-nivel.
        APPEND ti_includes.
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM. " PROCURA_SUBMIT
*& Form CONSISTI_PARAMETROS
text
--> p1 text
<-- p2 text
FORM consisti_parametros.
IF p_nivel IS INITIAL.
    MOVE 1 TO p_nivel.
ENDIF.
IF p_prog IS INITIAL AND p_tcode IS INITIAL.
*- NOME DO PROGRAMA E NOM
*- DEVE SER INFORMADO.
    MESSAGE ID 'ZF' TYPE 'I' NUMBER '000' WITH text-003.
    STOP.
ENDIF.
IF NOT p_prog IS INITIAL AND NOT p_tcode IS INITIAL.
*- SOLICITA AO U
    MESSAGE ID 'ZF' TYPE 'I' NUMBER '000' WITH text-004.
    STOP.
ENDIF.
ENDFORM. " CONSISTI_PARAMETROS
*& Form INICIALIZA_TABELA
text
--> p1 text
<-- p2 text
FORM inicializa_tabela.
DATA vl_pgmna LIKE tstc-pgmna.
REFRESH ti_includes.
IF NOT p_prog IS INITIAL.
    MOVE: p_prog TO ti_includes-nome,
    '0' TO ti_includes-nivel.
    APPEND ti_includes.
ELSEIF NOT p_tcode IS INITIAL.
    SELECT SINGLE pgmna
    FROM tstc
    INTO vl_pgmna
    WHERE tcode EQ p_tcode.
    IF sy-subrc EQ 0.
      MOVE: vl_pgmna TO ti_includes-nome,
      '0' TO ti_includes-nivel.
      APPEND ti_includes.
    ENDIF.
ENDIF.
ENDFORM. " INICIALIZA_TABELA
*& Form CABECALHO
text
--> p1 text
<-- p2 text
FORM cabecalho.
DATA vl_complemento(50) TYPE c.
IF p_tcode IS INITIAL.
    CONCATENATE '(Program)' p_prog
    into vl_complemento
    SEPARATED BY space.
ELSE.
    CONCATENATE '(Transaction)' p_tcode
    INTO vl_complemento
    SEPARATED BY space.
ENDIF.
FORMAT COLOR COL_KEY.
WRITE: /001 sy-uline,
/001 sy-vline,
040 'User Exits in a Program',
vl_complemento,
140 sy-vline,
/001 sy-uline.
WRITE: /001 sy-vline,
003 'Program Name',
044 sy-vline,
046 'Level',
052 sy-vline,
054 'Lineno',
065 sy-vline,
067 'UserExit',
140 sy-vline,
/001 sy-uline.
ENDFORM. " CABECALHO
*& Form USER_EXIT_NAO_ENCONTRADA
text
--> p1 text
<-- p2 text
FORM user_exit_nao_encontrada.
DESCRIBE TABLE ti_user_exit.
CHECK sy-tfill IS INITIAL.
FORMAT COLOR COL_NORMAL INTENSIFIED ON.
WRITE: /003 'Userexit does not exist',
139 ' '.
FORMAT RESET.
ENDFORM. " USER_EXIT_NAO_ENCONTRADA
*& Form LISTA_USER_EXIT_ENCONTRADA
text
--> p1 text
<-- p2 text
FORM lista_user_exit_encontrada.
DATA vl_cor TYPE c.
LOOP AT ti_user_exit.
    IF vl_cor EQ c_x.
      CLEAR vl_cor.
    ELSE.
      MOVE c_x TO vl_cor.
    ENDIF.
*- AJUSTA COR NA TELA.
    IF vl_cor EQ c_x.
      FORMAT COLOR COL_NORMAL INTENSIFIED ON.
    ELSE.
      FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
    ENDIF.
*- INÍCIO DA IMPRESSÃO.
    WRITE: /003 ti_user_exit-programa,
    046 ti_user_exit-nivel,
    054 ti_user_exit-linha,
    067 ti_user_exit-codigo_fonte,
    139 ' '.
ENDLOOP.
ENDFORM. " LISTA_USER_EXIT_ENCONTRADA
*& Form RODAPE
text
--> p1 text
<-- p2 text
FORM rodape.
DESCRIBE TABLE ti_includes.
FORMAT COLOR COL_TOTAL.
WRITE: /001 sy-uline,
/001 sy-vline,
003 'Total include searched:', sy-tfill,
' - with level:', p_nivel,
140 sy-vline,
/001 sy-uline.
ENDFORM. " RODAPE

Explain all buttons in process open items screen

Hi Sir/Madam,
Can you give me some information on "Explain all buttons in process open items screen" as i need to explain each and every tab and field in proces open items for incoming payments in F-28.
Regards
Sap Guru
[email protected]

Hi Amareswar,
In your case, request your bank to provide cheque number with leading zeros in electronic bank statement as the leading zeros in the assignment field is SAP system behaviour.
Alternatively, use 'Define Search String for Electronic Bank Statement' (refer http://help.sap.com/erp2005_ehp_05/helpdata/EN/6d/0cdf4b142e11d3963800a0c9426c73/frameset.htm for details) in the IMG, customize it to search for the cheque number provided in the note to payee field > then append leading zeros.
The first method is the solution we are using and it is the most cost effective.
Hope the above helps.
Kind regards,
John Chin

Opening a screen using a rule - Agentry

Similar Messages

Maybe you are looking for