Regd CalendarWeekView UI Element

Hi All,
I am trying to use CalendareWeekView UI element and I need to know if some changes are possible with that UI element.
1. I see that we need to specify the Start date value when we use CalendarWeekView UI element. But I use only 2 weeks of the calendar irrespective of the date.
So my Calendar headers should be like this :
SUNDAY | MONDAY | TUES.......|SATURDAY|SUNDAY|MONDAY|.......................SATURDAY
I see that the Headers contain DATES too with the WEEK name. Is there a way where I can HIDE The date alone?
2. Is it possible to do MULTI selection of the cells at the same time??
Thanks for all your help in advance.
Regards,
Sirisha.RS.

Hi,
Create a View Container UI Element at the bottom of the View and Embed ALV into it. Catch the Errors and populate into ALV instead of report message.
hope this helps u.,
Thanks & Regards,
Kiran

Similar Messages

Error while creating Communication Channel- No SLD elements of type SAP_XI

Hi Experts,
I am getting an error when i am tring to create an Communication channel for File Adapter .
Error message:
No SLD elements of type SAP_XI Adapter Framework Found.
Could you let me know how to proceed and fix the issue.
Regards
Kiran Kumar.P

Hi Kiran,
Your Adapter Framework is probably not registered in the SLD.... perform the action as follows:
1. In the J2EE administrator tool in cluster - server - services - deploy
stop the J2EE applications:
a. sap.com/com.sap.aii.af.service.cpa.monitor
b. sap.com/com.sap.aii.af.
2. Restart the sap.com/com.sap.aii.af application.
Refer sapnote in chapter 8.2 for more in the link provided below on Trouble shooting.
https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/bd5950ff-0701-0010-a5bc-86d45fd52283
Also try stop and start of the Java EE application "com.sap.xi.directory".
for more info refer this thread..
SLDAccess set to true, but not available with PI 7.10 SPS 7
Regds,
Pinangshuk.

How to put defalut Element-value in DTD

Hello ,
2 things :
1. Is there any way to specify default value of an Element in DTD ?
2. in DTD , how to specify date-format for an Element or attribute which
is meant for Date ?
thanx in advance.
regds,
Rajesh

Attributes can have default values, but elements can't.You can't specify type or style information for elements or attributes, that's one reason why XML Schema was developed as an alternative to DTDs.

How to create new cost element catagory

Hi,
Can any one let me know How to create New cost element catagory other than standard cost element catagory.
Thanks & Regds,
Sany.....

Hi,
We are using one GL to post expences as well as revenue for the same. In copa primery cost elements are not allowed & if i set clem cat to revenue it wont allow me to book purchase in same GL.
Waiting for your reply.
Regards,
Sany.

Data element query

hi guys,
Is it possible to know that a particular Data Element is used in what all transactions?
Thanks in Advance.

Hi,
Goto SEll tcode and enter DataElement name For example Enter MATNR in place of (.) DataType and select this radio button and click on 3rd button on the Application ToolBar i.e Where used list .
You will get a choice from where we need this list like TableFields,
struct fields,
View fields,
Interfaces.
Then select your list of choices and click on Exceute Button .From this list you can choose the needed one.
Regds
Parvathi
Please reward points if helpful...

Maintaining sub element Costs for the Service Activity

Dear Experts & MM Gurus,
Requirement is to maintain the Sub Cost Elements for the activity and to maintain different unit & Rate for the sub cost elements .
Scenario is explained below.
1. while making Purchase Requisition for Services
in Services Tab at item level i maintained Service Activity and for that activity i had maintained sub cost elements (Such as cost estimate for the activity) like labour cost,material & consumables cost,Transportation cost with the help of Pricing MS0000.
2. My Concern is i need to maintain different unit and rate for the sub cost elements ,but system is not allowing to maintain different unit from unit available with activity unit.How can i maintain different unit for the Sub cost (pricing elements like PRSO,PRS1,PRS2) .
EXAMPLE :1. Activity is Laying of Road where unit is AU and price will be combination of all Sub cost elements .
2. Sub Cost Elements like labour cost where unit is man days,system doesnt allow to maintain this unit.
pl comment /suggest on the above scenario.
Thanks in Advance ,
Regds,
Injeti

Hi
For services, U create activity group in AC03.
U can have upto four levels.
And Model service specifications u maintain in ML10.
Then mainatin service conditions in ML33 / ML 39 based on with or with out plant.
Then create the document, the price will pick it from the conditios u maintained.
Please check and revert back
Regards,
Raman

Can we change the cost element after posted some expenditures.

Hi friends,
My client ran the depreciation upto jan 2009, afterthat we found the depreciation GL's are not set the cost element.
so the Depreciation values were not posted cost center wise, now we want to change the GL's cost element , is it possible, if it is possible what is the steps.
with regds
muthuraj.g

Yes,
You can create cost element and interface depreciation posting to CO. For missed Depreciation, manual posting in CO can help to reconcile with FI.

Program text elements

Hi there,
I have a requirement to find all the text elements used in Z Programs.
I am looking for the table name that stores the Program Text elements (SE38 text elements + selection text).
Can anybody help me in finding the table name....
Thanks in advance.
Regards,
Sukhbir.

Hai sukhbir singh ,
T52CT Table contains the all the Text Elements.
Hope you can have all the Text Elements.
Reward points if it helps.
Regds,
Rama.Pammi

Regd: PP Tables

Hi All,
How can i get the list of all the DB Tables related to PP module.if psbl with relationship bet them
Pls do help.
Help and suggestions will be much appreciated.
Thanks & Regds.
Ramesh.

SAP - Project Planning
Project Planning
PROJ
(Project Definition)
PRPS
(WBS Elements)
PRPS-PSPHI =
PROJ-PSPNR
PRTE
(Schedule Data for
Proj. Item)
PRPS-PSPNR =
PRTE-POSNR
and
PRPS-PSPHI=
PRTE-PSPHI
PRTX
(Texts(WBS))
PRTX-PRPSPNR =
PRTE-POSNR
PRHIS
(Proj. Hierarchy for
WBS Element)
PRPS-PSPNR =
PRHIS-POSNR
and
PRPS-PSPHI=
PRHIS-PSPHI
PSTX
(Project Texts
(Header))
PSTT
(Project Texts)
PRTX-PRTXTKY =
PSTX-PRTXTKY
PSTX-PRTXTKY =
PSTT-PRTXTKY
PP
Table Mapping
SAP PP - Project Planning
PROJECTS
Project and WBS element numbers have a domain with a conversion
function module which converts it from 8 numc input to 24 char on output.
PROJ
(Project definition)
Project Number (PSPNR)
Project Name (PSPID)
PRPS
(WBS (Work Breakdown Structure)
Element Master Data))
Project Number (PSPHI)
WBS Element Number (PSPNR)
WBS Name (POSID)
Project Number (PSPHI)
WBS Element Number (POSNR)
PRTE
(Scheduling Data for Project Item)
PRTX
(PS Texts (WBS)
Project Number (PSPHI)
WBS Element Number (POSNR) PSTX
(PS Texts (Header))
Text Identifier (PRTXTKY)
PS text description (PSTXTTI)
WBS Element Number (PRPSPNR)
Text Identifier (PRTXTKY)
PRHIS
(Standard WBS, Edges (Hierarchy
pointers))
PSTT
(PS texts (description))
Text Identifier (PRTXTKY)
PS text: Description(PTKTEXT)

How to find for a particular WBS element thourgh which budget has consumed

Hi ,
I have a WBS element C-09864/001/002. In CJ33 system is showing Budget amount 90,000 and distrbuted 90000. So total budget has consumed. Now if i want to know how the budget has consumed ,means in what ways it has consumed like PR or POs and what are those PR& PO doucment numbers.
Apart from PR & PO s directly by posting FI documet also , is there chance for consuming budget .If yes how to find ?
Thanks & regds
ramachadra

Apart from PR & PO s directly by posting FI documet also , is there chance for consuming budget .If yes how to find ?
-> transaction MIRO, CJ88, KO88
You can use the steps I have provided to check this.
Regards, Gordon

Abort element structure is not correct?

hi all?
I am getting the following error abort element structure is not correct?
how to recity if ? while opening a query? and can anyone let me know what are the error messages that turns up while you work oon designer?
and how to debug it nor rectify it.
regds
hari

Hari,
Any chance you have some key figures in your structure but not in all the selections?
Try running RSRT and run your query that contains the structure in it here.
When do you get the message?
Regards
Gill

Using Adobe Bridge with Photoshop Elements

I have an iMAC with iLife 08.
I take photos in RAW format with a Nikon camera.
I have been editing photos this way:
After uploading photos to iPhoto, export them as jpg to a new folder on the desktop, external HD or wherever. I open Photoshop Elements, edit the exported photo.
Then I'm stuck with my edits outside of iPhoto, unless I then import them back into iPhoto. It works, but it's cumbersome.
Today I thought I'd try a different route. I opened Photoshop Elements, and tried to use Bridge to browse photos. I can find the iPhoto library easy enough, but if I click on it, it opens iPhoto, and I'm stuck - can't open the photos in Photoshop.
I am hoping that if I do it correctly, I can save my edits directly back into iPhoto.
Any ideas?

Using Photoshop (or Photoshop Elements) as Your Editor of Choice in iPhoto.
1 - select Photoshop as your editor of choice in iPhoto's General Preference Section's under the "Edit photo:" menu.
2 - double click on the thumbnail in iPhoto to open it in Photoshop. When you're finished editing click on the Save button. If you immediately get the JPEG Options window make your selection (Baseline standard seems to be the most compatible jpeg format) and click on the OK button. Your done.
3 - however, if you get the navigation window that indicates that PS wants to save it as a PS formatted file. You'll need to either select JPEG from the menu and save (top image) or click on the desktop in the Navigation window (bottom image) and save it to the desktop for importing as a new photo.
This method will let iPhoto know that the photo has been editied and will update the thumbnail file to reflect the edit..
If you want to use both iPhoto's editing mode and PS without having to go back and forth to the Preference pane, once you've selected PS as your editor of choice, reset the Preferences back to "Open in main window". That will let you either edit in iPhoto (double click on the thumbnail) or in PS (Control-click on the thumbnail and seledt "Edit in external editor" in the Contextual menu). This way you get the best of both worlds
TIP: For insurance against the iPhoto database corruption that many users have experienced I recommend making a backup copy of the Library6.iPhoto database file and keep it current. If problems crop up where iPhoto suddenly can't see any photos or thinks there are no photos in the library, replacing the working Library6.iPhoto file with the backup will often get the library back. By keeping it current I mean backup after each import and/or any serious editing or work on books, slideshows, calendars, cards, etc. That insures that if a problem pops up and you do need to replace the database file, you'll retain all those efforts. It doesn't take long to make the backup and it's good insurance.
I've created an Automator workflow application (requires Tiger), iPhoto dB File Backup, that will copy the selected Library6.iPhoto file from your iPhoto Library folder to the Pictures folder, replacing any previous version of it. It's compatible with iPhoto 08 libraries and Leopard. iPhoto does not have to be closed to run the application, just idle. You can download it at Toad's Cellar. Be sure to read the Read Me pdf file.

ELEMENTS 11 no work on Mac Book Pro 10.9.5 mavericks

Now I am completely confused, I have MBP 10.9.5 , first of all my photos went to REVELL/ before and NOW A Orgainizer took them in? I DID ZERO! are there still photos on REVELLE? and why now wont this ElEMENTS 11 NOT WORK ON MY MAC?
yes I did use a WINDOWS device BUT NOT WITH THIS bamboo Tablet?? help me please' WIll any ADOBE THING WORK FOR ME? on Mavericks 10.9.5?
Mainly I need for Mirrored drawing/ and tracing/ bezel things,and sketching/designing.... IT IS terriable what 5 years now?I cant use the plotter freely? Can some one suggest what product I need and
will what Elements I have be of use at all? thank You
very much
artisomomus

Kaik wrote:
Ran GP, but it would only allow a scan of applications.
When you open GP, if you search for the HDD icon (Macintosh HD) and click on it, it will do a full scan of the HDD.
ODS swept the whole SSD with a total of 265 compared with 105 available on Disk Utility
I do not quite understand what you mean here. Total of 265 what?
Should I be "securing trash" to regain space ?
No, that should make no difference.
Perform a Spotlight reindex. See if that readjusts the numbers:
http://support.apple.com/kb/ht2409
Ciao.

Photoshope Elements when selecting an action, the paint brush tool doesn't work and system keeps freezing, then catching up every 30-45 seconds

I have been having this problem with elements ever since the last OS upgrade, but it wasn't all the time and it wasn't very bad. Now, I have upgraded my macbook again, and I cannot even edit a photo!! I open the photo, choose an action, say "smooth skin", then choose the paint brush, I start to "paint" over their face and it won't paint a line, I have to keep clicking it, click - it paints, move brush, click again - it paints. Plus, every time I choose a tool or an action, it freezes for about 10 seconds, then catches up to what I am doing, 30 seconds later, it freezes again. HELP!! I have 8 sessions to finish editing by this weekend!! I just want to cry!!

Try deleting the prefs and the saved application state:
A Reminder for Mac Folks upgrading to Yosemite | Barbara's Sort-of-Tech Blog

Regd: Calculation of TOTAL field in ALV report

Hi All,
We have a scenario that we are not getting the total value for numeric fields in ALV report.
Below i have given the code used for it.
G_KEY = 'X'.
G_NOKEY = SPACE.
G_SUM = 'X'.
G_NOSUM = SPACE.
PERFORM BUILD_FIELDCAT USING 'VBELN' G_KEY G_NOSUM.
PERFORM BUILD_FIELDCAT USING 'BLDAT' G_NOKEY G_NOSUM.
PERFORM BUILD_FIELDCAT USING 'VGBEL' G_KEY G_NOSUM.
PERFORM BUILD_FIELDCAT USING 'POSNR' G_KEY G_NOSUM.
PERFORM BUILD_FIELDCAT USING 'MATNR' G_KEY G_NOSUM..
PERFORM BUILD_FIELDCAT USING 'LFIMG' G_NOKEY G_NOSUM.
PERFORM BUILD_FIELDCAT USING 'VRKME' G_NOKEY G_NOSUM.
PERFORM BUILD_FIELDCAT USING 'NETPR' G_NOKEY G_NOSUM.
PERFORM BUILD_FIELDCAT USING 'BRTWR' G_NOKEY G_NOSUM.
PERFORM BUILD_FIELDCAT USING 'VALUE_INR' G_NOKEY G_SUM.
PERFORM BUILD_FIELDCAT USING 'B_DUTY'     G_NOKEY G_SUM.
PERFORM BUILD_FIELDCAT USING 'S_TOTAL1'   G_NOKEY G_SUM.
PERFORM BUILD_FIELDCAT USING 'CV_DUTY'    G_NOKEY G_SUM.
PERFORM BUILD_FIELDCAT USING 'C_CVD'      G_NOKEY G_SUM.
PERFORM BUILD_FIELDCAT USING 'S_TOTAL2'   G_NOKEY G_SUM.
PERFORM BUILD_FIELDCAT USING 'C_DUTY'     G_NOKEY G_SUM.
PERFORM BUILD_FIELDCAT USING 'S_TOTAL3'   G_NOKEY G_SUM.
PERFORM BUILD_FIELDCAT USING 'A_DUTY'     G_NOKEY G_SUM.
PERFORM BUILD_FIELDCAT USING 'T_DUTY'     G_NOKEY G_SUM.
PERFORM BUILD_LAYOUT.
PERFORM BUILD_DISPLAY.
*&      Form DISPLAY
      text
FORM BUILD_DISPLAY.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                   = ' '
I_CALLBACK_PROGRAM                = ' '
I_CALLBACK_PF_STATUS_SET          = ' '
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                      = TEXT-000
I_GRID_SETTINGS                   =
   IS_LAYOUT                         = IG_LAYOUT
     IT_FIELDCAT                       = IG_FIELDCAT
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
     I_SAVE                            = 'A'
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                          = IG_INBOUND
   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
*&      Form BUILD_FIELDCAT
      text
     -->G_FIELDNAME text
     -->L_KEY        text
     -->L_SUM        text
FORM BUILD_FIELDCAT USING L_FIELDNAME LIKE DD03L-FIELDNAME L_KEY TYPE C L_SUM TYPE C.
CLEAR WG_FIELDCAT_LN.
ADD 1 TO G_COL_POS.
WG_FIELDCAT_LN-REF_TABNAME = 'IG_INBOUND'.
WG_FIELDCAT_LN-FIELDNAME = L_FIELDNAME.
WG_FIELDCAT_LN-KEY = L_KEY.
WG_FIELDCAT_LN-DO_SUM = L_SUM.
WG_FIELDCAT_LN-COL_POS = G_COL_POS.
WG_FIELDCAT_LN-NO_OUT = SPACE.
WG_FIELDCAT_LN-QFIELDNAME = SPACE.
WG_FIELDCAT_LN-HOTSPOT = SPACE.
APPEND WG_FIELDCAT_LN TO IG_FIELDCAT.
ENDFORM.                    "BUILD_FIELDCAT
*&      Form BUILD_LAYOUT
      text
FORM BUILD_LAYOUT.
IG_LAYOUT-TOTALS_TEXT = 'Total Amount'.
*IG_LAYOUT-SUBTOTALS_TEXT = 'A'.
IG_LAYOUT-ZEBRA = 'X'.
ENDFORM.
Help and Sugesstions will be much appreciated.
Thanks & Regds.
Ramesh.

This is sample program for the same
REPORT Z_50657_ALV_EX2
        NO STANDARD PAGE HEADING
        LINE-COUNT 65(3)
        LINE-SIZE 220
        MESSAGE-ID ZZ.
*                             Type Pools                               *
TYPE-POOLS: SLIS, ICON.
*                              Tables                                  *
TABLES: VBAK. "Sales Document Data
*                         Internal Tables                              *
* TABLE TO HOLD DATA OF SALES DOCUMENT
DATA: BEGIN OF IT_VBAK OCCURS 0,
      VBELN LIKE VBAK-VBELN, "Sales Document
      VBTYP LIKE VBAK-VBTYP, "SD document category
      AUDAT LIKE VBAK-AUDAT, "Document date (date received/sent)
      AUGRU LIKE VBAK-AUGRU, "Order reason (reason for the business)
      AUART LIKE VBAK-AUART, "Sales Document Type
      NETWR LIKE VBAK-NETWR, "Net Sales Order in Doc. Currency
      WAERK LIKE VBAK-WAERK, "SD document currency
      ICON TYPE ICON-ID,     "traffic lights
      END OF IT_VBAK.
*                             Work Areas                               *
*WORK AREAS DEFINED FOR ALV'S
DATA: WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,      "field catalog
      IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,     "field catalog ITAB
      WA_SORT TYPE SLIS_SORTINFO_ALV,           "SORT work area
      IT_SORT TYPE SLIS_T_SORTINFO_ALV,         "SORT ITAB
      LAYOUT TYPE SLIS_LAYOUT_ALV,              "LAYOUT
      WA_FCODE TYPE SLIS_EXTAB,                 "FUN CODE
      I_FCODE_EXTAB TYPE SLIS_T_EXTAB,
      WA_EVENTS TYPE SLIS_ALV_EVENT,
      IT_EVENTS TYPE SLIS_T_EVENT.
*                       Selection-Screen                               *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN.
PARAMETERS: P_VBTYP LIKE VBAK-VBTYP DEFAULT 'C'.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.
PARAMETERS: LIST RADIOBUTTON GROUP G1,
            GRID RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK B2.
*                     At Selection-Screen                             *
*VALIDATION
*                       Start of Selection                             *
START-OF-SELECTION.
*POPULATION OF DATA INTO INTERNAL TABLE ITAB
PERFORM GET_DATA.
*DEFINE USER DEFINED FIELDCATALOG
PERFORM DEFINE_FIELDCATALOG.
*SUBTOTALS AND TOTALS DISPLAY USING SORT
PERFORM SORT_LIST.
*CHANGE FCODE OF STATUS
PERFORM CHANGE_FCODE.
*CHECK RADIOBUTTON OPTION AND ACCORDINGLY FINAL DISPLAY
PERFORM CHECK_OPTION.
*&      Form GET_DATA
*       text
FORM GET_DATA.
SELECT VBELN
         VBTYP
         AUDAT
         AUGRU
         AUART
         NETWR
         WAERK FROM VBAK INTO TABLE IT_VBAK
         WHERE VBELN IN S_VBELN AND VBTYP = P_VBTYP
         AND ERDAT > '01.01.2004' AND NETWR > 0.
LOOP AT IT_VBAK.
    IF IT_VBAK-NETWR < 10000.
      IT_VBAK-ICON = '@08@'.
    ELSEIF IT_VBAK-NETWR > 100000.
      IT_VBAK-ICON = '@0A@'.
    ELSE.
      IT_VBAK-ICON = '@09@'.
    ENDIF.
    MODIFY IT_VBAK INDEX SY-TABIX.
ENDLOOP.
ENDFORM.                    "GET_DATA
*&      Form CHECK_OPTION
*       text
FORM CHECK_OPTION.
WA_EVENTS-NAME = 'TOP_OF_PAGE'.
WA_EVENTS-FORM = 'TOP'.
APPEND WA_EVENTS TO IT_EVENTS.
CLEAR WA_EVENTS.
WA_EVENTS-NAME = 'END_OF_LIST'.
WA_EVENTS-FORM = 'END_LIST'.
APPEND WA_EVENTS TO IT_EVENTS.
CLEAR WA_EVENTS.
IF LIST = 'X'.
    PERFORM LIST_DISP.
ENDIF.
IF GRID = 'X'.
    PERFORM GRID_DISP.
ENDIF.
ENDFORM.                    "CHECK_OPTION
*&      Form DEFINE_FIELDCATALOG
*       text
FORM DEFINE_FIELDCATALOG.
WA_FIELDCAT-COL_POS = 1.
WA_FIELDCAT-FIELDNAME = 'ICON'.
WA_FIELDCAT-SELTEXT_L = 'ICON'.
WA_FIELDCAT-ICON = 'X'.
WA_FIELDCAT-OUTPUTLEN = 8.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = 2.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC NO.'.
WA_FIELDCAT-OUTPUTLEN = 10.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = 3.
WA_FIELDCAT-FIELDNAME = 'AUDAT'.
WA_FIELDCAT-SELTEXT_L = 'CREATED ON'.
WA_FIELDCAT-OUTPUTLEN = 10.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = 4.
WA_FIELDCAT-FIELDNAME = 'VBTYP'.
WA_FIELDCAT-SELTEXT_L = 'CATEGORY'.
WA_FIELDCAT-OUTPUTLEN = 1.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = 6.
WA_FIELDCAT-FIELDNAME = 'AUGRU'.
WA_FIELDCAT-SELTEXT_L = 'REASON'.
WA_FIELDCAT-OUTPUTLEN = 3.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = 5.
WA_FIELDCAT-FIELDNAME = 'AUART'.
WA_FIELDCAT-SELTEXT_L = 'DOC TYPE'.
WA_FIELDCAT-OUTPUTLEN = 4.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = 7.
WA_FIELDCAT-FIELDNAME = 'NETWR'.
WA_FIELDCAT-SELTEXT_L = 'NET VALUE'.
WA_FIELDCAT-OUTPUTLEN = 17.
WA_FIELDCAT-DECIMALS_OUT = 2.
* WA_FIELDCAT-DO_SUM = 'X'.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = 8.
WA_FIELDCAT-FIELDNAME = 'WAERK'.
WA_FIELDCAT-SELTEXT_L = 'UNIT'.
WA_FIELDCAT-OUTPUTLEN = 50.
WA_FIELDCAT-TABNAME = 'IT_VBAK'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM.                    "DEFINE_FIELDCATALOG
*&      Form DEFINE_LAYOUT
*       text
FORM DEFINE_LAYOUT.
LAYOUT-ZEBRA = 'X'.
LAYOUT-SUBTOTALS_TEXT = 'SUBTOTAL SUM'.
LAYOUT-WINDOW_TITLEBAR = 'EXERCISE 2'.
LAYOUT-TOTALS_TEXT = 'TOTAL'.
ENDFORM.                    "DEFINE_LAYOUT
*&      Form SORT_LIST
*       text
FORM SORT_LIST.
WA_SORT-FIELDNAME = 'VBELN'.
WA_SORT-TABNAME = 'IT_VBAK'.
WA_SORT-SPOS = 1.
WA_SORT-UP = 'X'.
WA_SORT-SUBTOT = 'X'.
APPEND WA_SORT TO IT_SORT.
CLEAR WA_SORT.
WA_SORT-FIELDNAME = 'NETWR'.
WA_SORT-TABNAME = 'IT_VBAK'.
WA_SORT-UP = 'X'.
WA_SORT-SPOS = 2.
WA_SORT-SUBTOT = 'X'.
APPEND WA_SORT TO IT_SORT.
CLEAR WA_SORT.
ENDFORM.                    "SORT_LIST
*&      Form LIST_DISP
*       text
FORM LIST_DISP.
PERFORM DEFINE_LAYOUT.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM             = SY-REPID
     IT_FIELDCAT                    = IT_FIELDCAT
     IS_LAYOUT                      = LAYOUT
     IT_SORT                        = IT_SORT
     I_CALLBACK_PF_STATUS_SET       = 'STATUS'
     IT_EXCLUDING                   = I_FCODE_EXTAB
     I_CALLBACK_USER_COMMAND        = 'USER_COMMAND'
     IT_EVENTS                      = IT_EVENTS[]
*   IMPORTING
*     E_EXIT_CAUSED_BY_CALLER        =
*     ES_EXIT_CAUSED_BY_USER         =
    TABLES
     T_OUTTAB                       = IT_VBAK
*   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.                    "LIST_DISP
*&      Form GRID_DISP
*       text
FORM GRID_DISP.
PERFORM DEFINE_LAYOUT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = SY-REPID
      IS_LAYOUT                = LAYOUT
      IT_FIELDCAT              = IT_FIELDCAT
      IT_SORT                  = IT_SORT
      I_CALLBACK_PF_STATUS_SET = 'STATUS'
      IT_EXCLUDING             = I_FCODE_EXTAB
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      IT_EVENTS                = IT_EVENTS[]
    TABLES
      T_OUTTAB                 = IT_VBAK.
* 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.                    "GRID_DISP
*&      Form STATUS
*       text
*      -->P_EXTAB    text
FORM STATUS USING P_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STATUS' EXCLUDING P_EXTAB.
ENDFORM.                    "STATUS
*&      Form USER_COMMAND
*       text
*      -->R_UCOMM      text
*      -->RS_SELFIELD text
FORM USER_COMMAND USING R_UCOMM     LIKE SY-UCOMM
                               RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
    WHEN 'BACK' OR 'CANC' OR 'EXIT'.
      LEAVE TO SCREEN 0.
    WHEN '&IC1'.
      SET PARAMETER ID 'AUN' FIELD RS_SELFIELD-VALUE.
      CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
ENDCASE.
ENDFORM.                    "USER_COMMAND
*&      Form CHANGE_FCODE
*       text
FORM CHANGE_FCODE.
WA_FCODE = 'PRNT'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
WA_FCODE = '&OAD'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
WA_FCODE = '&AVE'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
WA_FCODE = '&EB9'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
WA_FCODE = '&SUM'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
WA_FCODE = '&UMC'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
WA_FCODE = '&XPA'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
WA_FCODE = '&OMP'.
APPEND WA_FCODE TO I_FCODE_EXTAB.
ENDFORM.                    "CHANGE_FCODE
*&      Form TOP
*       text
FORM TOP.
IF LIST = 'X'.
    WRITE:/ SY-ULINE.
    WRITE:/ 'DATE:', SY-DATUM,55 'INTELLIGROUP ASIA PVT LTD'.
    WRITE:/ 'TIME:', SY-UZEIT.
    WRITE:/ 'USER NAME:', SY-UNAME,60 SY-TITLE.
    WRITE:/ 'PAGE', SY-PAGNO.
    WRITE:/ SY-ULINE.
ENDIF.
IF GRID = 'X'.
    DATA: LS_LINE TYPE SLIS_LISTHEADER,
          E04_LT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
*   Listenüberschrift: Typ H
    CLEAR LS_LINE.
    LS_LINE-TYP = 'H'.
*   LS_LINE-KEY: not used for this type
    LS_LINE-INFO = 'Summary'.
    APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
*   Kopfinfo: Typ S
    CLEAR LS_LINE.
    LS_LINE-TYP = 'S'.
    LS_LINE-KEY = 'Intelligroup'.
    LS_LINE-INFO = ''.
    APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
    LS_LINE-KEY = 'ASIA'.
    LS_LINE-INFO = 'PVT LTD'.
    APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
*   Aktionsinfo: Typ A
    CLEAR LS_LINE.
    LS_LINE-TYP = 'A'.
*   LS_LINE-KEY: not used for this type
    LS_LINE-INFO = 'truman'.
    APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
      EXPORTING
        IT_LIST_COMMENTARY = E04_LT_TOP_OF_PAGE
        I_LOGO             = 'ENJOY_SAP_LOGO'.
ENDIF.
ENDFORM.                    "TOP
*&      Form END_LIST
*       text
FORM END_LIST.
IF LIST = 'X'.
    SKIP 2.
    WRITE:/60 'END OF PAGE'.
ENDIF.
IF GRID = 'X'.
      DATA: LS_LINE TYPE SLIS_LISTHEADER,
          E04_LT_END_OF_LIST TYPE SLIS_T_LISTHEADER.
*   Listenüberschrift: Typ H
    CLEAR LS_LINE.
    LS_LINE-TYP = 'H'.
*   LS_LINE-KEY: not used for this type
    LS_LINE-INFO = 'Summary'.
    APPEND LS_LINE TO E04_LT_END_OF_LIST.
*   Kopfinfo: Typ S
    CLEAR LS_LINE.
    LS_LINE-TYP = 'S'.
    LS_LINE-KEY = 'Intelligroup'.
    LS_LINE-INFO = ''.
    APPEND LS_LINE TO E04_LT_END_OF_LIST.
    LS_LINE-KEY = 'ASIA'.
    LS_LINE-INFO = 'PVT LTD'.
    APPEND LS_LINE TO E04_LT_END_OF_LIST.
*   Aktionsinfo: Typ A
    CLEAR LS_LINE.
    LS_LINE-TYP = 'A'.
*   LS_LINE-KEY: not used for this type
    LS_LINE-INFO = TEXT-105.
    APPEND LS_LINE TO E04_LT_END_OF_LIST.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
      EXPORTING
        IT_LIST_COMMENTARY = E04_LT_END_OF_LIST.
ENDIF.
ENDFORM.                    "END_LIST

Regd CalendarWeekView UI Element

Similar Messages

Maybe you are looking for