Top Rentals and Top Sales Categories Gone?

Rebooted my Apple TV this morning. Went in to see about renting a movie or two. Noticed the Movies section was looking different...
Not a huge deal, just wondering if anyone else notices this morning that the Top Sales and Top Rentals categories are missing from the Movies...Top Movies... section of their Apple TV.
Does anybody know what happened, might have happened, or if I should be troubleshooting anything on my system?

just checked again. they're back now. weird...

Similar Messages

A SharePoint theme to limit the width of the page to 960px (without limiting width of top ribbon and top navigation)?

I can reduce the width by some CSS inside the page CEWP or Master Page that's fine.
BUT
I need a SharePoint theme - which simply reduces the width of the page content to 960px. (Without affecting the top ribbon and top navigation which should stay as they are).
Any clue how to do that please? Any sample theme?
Thanks.

Not sure what you are asking here exactly. By theme, do you mean a design package (masterpage + css)?
Nikolas Charlebois-Laprade Microsoft Certified Professional & Software Engineer http://nikcharlebois.com

Charts Top Songs and Top Albums please help!

Hi,
Does anybody know exactly how the charts "top songs" and "top albums" are put together on itunes?
Are there differences from one country to the next?
Are multiple purchases of the same item from the same account counted in full for the charts? or is it the case that only the unique purchases for each account is counted in compiling the charts, excluding multiple purchases from the same account ?
If only unique purchases are counted for each account, what about gifts? at what points songs sent as gifts are counted in the charts?
please please help

Sites like the iTunes Store generally do not document how such listings are complied so as to prevent record companies and/or artists from "gaming" the system and working out ways to get their tracks listed higher. So other than guesswork, no one here can answer your questions. Sorry.

Rounded corners, top left and top right

Hi
Hope you can help me, as I'm relatively new to PSE 9 , I'm trying to create nice rounded corners on the top right and top left of a new image in PSE 9
Please could you put me in the right direction to get me started.
Many thanks for your assistance.
Mike

You might try something like this:
1. Either duplicate the background layer or double click on the background
   so it's not locked.
2. Make your rulers visible (View>Rulers) and pull out four guides, one
   for each side of the image. (so the shape tools snap to the edges of your photo)
3. Select the Rounded Rectangle Tool (nested with the shape tools)
4. Set the radius of the corners and draw your shape on the photo.
5. Select the Rectangle Tool and set the option to Add to Shape Area
   and draw the rectangle on the bottom half of the photo.
6. Select the Shape Selection Tool and press the Combine button.
7. Move the shape layer below the photo layer in the layers panel, make the photo
    layer the active layer and go to Layer>Create Clipping Mask.
MTSTUNER

Movie and TV rental and sales rankings

Can anybody explain the methodology Apple is using to create the top in sales and rental listing for movies and TV shows etc?
The reason that I ask is that I find it hard to believe that some movies in the top rental and sales are actually being purchased especially some of the older movies.
Are these ranking legitimate or is Apple trying to sell movies to us by ranking certain movies etc in as top rentals or sales?
For example today "Armageddon" is #5. This 1998 movie; although a good flick I can't buy into all of a sudden everyone is buying this movie. Or does it take one purchase to get into the #5 slot????

I've probably spent several hundred pounds on video so far, out of which I would say 3 movies & 2 TV series are what I would consider the latest (or were when I bought them). Most purchases for me are content from the 70's and eighties. I guess there are many like me which is why the top tens look the way they do.

Cant find the blue lines to change the top ,body and footers.

normal u can drag the lines to different areas to change the top body and top.
But once i quited muse. And started agian up, and the blue lines were dissapeared....
can anyone say how to get the lines back for the master pages?
thanks, Sebastiaan
http://prntscr.com/22opln

Hi Sebastiaan,
Go to View-> Show Guide. You should see the Blue lines.
Please let me know if you were looking for something else.

When i open iphoto i see my photo's for 1 second and then they are gone .The photo's are still there but i can see them only on the bottom or top of my screen when i try to open them i get a sign that it is not possible.Can somebody please help me?

when i open iphoto i see my photo's for 1 second and then they are gone .The photo's are still there but i can see them only on the bottom or top of my screen when i try to open them i get a sign that it is not possible.Can somebody please help me?

Have you upgraded to iPhoto 9.6 for compatibility with Yosemite? If not, try that first.
It looks like iPhoto has lost the connection between the thumbnails and the original image files.
This can be caused by a corrupted iPhoto library, or the originals have been deleted or moved.
Try first to rebuild your iPhoto Library:
If you do not have a current backup of the iPhoto library, make a copy of the library, but do not overwrite any previous backup.
Launch iPhoto with the ⌥⌘-key combination (option-command) held down.
Select "rebuild" from the first aid panel. This may take a while for a large library.
Can you now see your photos again?
If not, rebuild the library with iPhoto Library manager as described by Old Toad: Re: iphoto crashed

Grouping of Top 10 Customers by Sales and Total Sales

Hi Guys...
I need to design a report where I need to include both "Top 10 Customers based on Sales" and "Total Sales for remaining customers".
Can you guys help me with a solution.
Thanks,
Regards,
G

Hi,
You can implement this in BEx using concept of virtual characteristics and BADI which will be a little bit complex. Its better go for WAD.
Hope it helps.
Regards,
Prakash

"Top charts" and "Categories"

When clicking the "Top charts" and "Categories" tabs in App Store, nothing happens. Just a white screen, and no "loading" thingie in the left-hand corner. Restarted, installed updates, still nothing. My Time Machine is not configured, therefore I am unable to go back to an older backup or whatever. I bought my MacBook Air (13-inch, Mid 2013) in March 2014. It had Mavericks on it and I am not sure, but I think these tabs worked then. Now, I have Yosemite and obviously, something is wrong. Please help

Test after taking each of the following steps that you haven't already tried. Stop when the problem is resolved. Back up all data before making any changes.
Step 1
Log out or restart the computer.
Step 2
Remove or disable "LittleSnitch" or any similar third-party software that blocks outgoing network connections according to the developer's instructions.
Step 3
Start up in safe mode and log in to the account with the problem.
Note: If FileVault is enabled in OS X 10.9 or earlier, or if a firmware password is set, or if the startup volume is a software RAID, you can’t do this. Ask for further instructions.
Safe mode is much slower to start up and run than normal, with limited graphics performance, and some things won’t work at all, including sound output and Wi-Fi on certain models. The next normal startup may also be somewhat slow.
The login screen appears even if you usually login automatically. You must know your login password in order to log in. If you’ve forgotten the password, you will need to reset it before you begin.
After testing, restart as usual (not in safe mode.)
Step 4
If possible, connect to a different network and test.
Step 5
There are reports that resetting the PRAM may solve the problem in some cases. I can't confirm.

Ipad 3 ios5.1 apps categories and top charts stopped working.

Ipad ios 5.1.
Apps categories and top charts stopped working. It this an ipad problem or server problem. The ipad is two days old and all setting are default.
Thanks.

Try a Reset [Hold the Home and Sleep/Wake buttons down together for 10 seconds or so (until the Apple logo appears) and then release. The screen will go blank and then power ON again in the normal way.] It is 'appsolutely' safe!

App store top charts and categories is empty on iPad 3

The app store tabs for top charts and categories is blank/empty and has been this way for the past several hours on my iPad 3. They display fine on my iPad 1.

Have you tried basic troubleshooting ?
Restart the iPad by holding down on the sleep button until the red slider appears and then slide to shut off. To power up hold the sleep button until the Apple logo appears and let go of the button.
Reset the iPad by holding down on the sleep and home buttons at the same time for about 10-15 seconds until the Apple Logo appears - ignore the red slider - let go of the buttons.
Quit the app store and restart. Go to the home screen first by tapping the home button. Quit/close open apps by double tapping the home button and the task bar will appear with all of you recent/open apps displayed at the bottom. Tap and hold down on any app icon until it begins to wiggle. Tap the minus sign in the upper left corner to close the apps. Restart the iPad. Restart the iPad by holding down on the sleep button until the red slider appears and then slide to shut off. To power up hold the sleep button until the Apple logo appears and let go of the button.

We have iPhone 4 and I plugged phone into after market hardwired plug in car (that we have used successfully for two years) and the screens has gone black and wont turn on. Phone is charged. We have tried force quit- home screen and top button. help pls

We have iPhone 4 and I plugged phone into after market hardwired plug in car (that we have used successfully for two years). The screen has gone black and wont turn on. Phone was charged. I have tried force quit- home screen and top button. iTunes is not recognizing phone when I plug into computer. help pls

FIRST charge with an Apple charger for at least 15 minutes. Then hold the HOME and SLEEP buttons at the same time until an Apple logo appears. Hold for up to 30 seconds. If nothing happens the phone hardware has failed.

I need page no's and top of page header to every page

Hi Experts,
i need page no's and top of page header to every page
to this report.
i took print outs it came only page number 1 to all the pages, after took prints it seems header to all the pages
but not displaying in output screen.
TYPE-POOLS: SLIS.
TABLES: MKPF,LFA1,MSEG,EKET,T001L,MAKT,S031,S032,MARA,LIPS,LIKP,T001W.
DATA FLAG TYPE I.
DATA : MENGE_RE LIKE MSEG-MENGE,
       MENGE_IS LIKE MSEG-MENGE,
       MENGE_O LIKE MSEG-MENGE,
       MENGE_BAL LIKE MSEG-MENGE.
DATA MAGBB LIKE S031-MAGBB.
DATA MZUBB LIKE S031-MZUBB.
DATA V_MONTH LIKE S031-SPMON.
DATA XBLNR LIKE MKPF-XBLNR.
DATA : BEGIN OF ITAB1 OCCURS 100,
       MATNR LIKE MAKT-MATNR,
       END OF ITAB1.
DATA : BEGIN OF ITAB2 OCCURS 100,
MATNR LIKE MAKT-MATNR,
WERKS LIKE MARD-WERKS,
LGORT LIKE MARD-LGORT,
BUSTW LIKE MSEG-BUSTW,
BWART LIKE MSEG-BWART,
SHKZG LIKE MSEG-SHKZG,
MENGE LIKE MSEG-MENGE,
END OF ITAB2.
DATA: PAGNO(5) TYPE C.
DATA : PAGENO LIKE SY-PAGNO.
DATA: STR1 TYPE DATS,
      STR2(14) TYPE C,
      STR3(10) TYPE C.
DATA : V_MONUM LIKE T015M-MONUM,
       V_MONAM LIKE T015M-MONAM.
TYPES: FARBE TYPE SLIS_T_SPECIALCOL_ALV.
DATA V_STOCK LIKE MSEG-MENGE.
DATA V_STOCK1 LIKE MSEG-MENGE.
DATA: V_MONTH1 LIKE S031-SPMON.
DATA: OSTOCK LIKE MSEG-MENGE.
CONSTANTS:
GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      GT_LAYOUT   TYPE SLIS_LAYOUT_ALV,
      GS_KEYINFO TYPE SLIS_KEYINFO_ALV,
      GT_SORT     TYPE SLIS_T_SORTINFO_ALV,
      GT_SP_GROUP TYPE SLIS_T_SP_GROUP_ALV,
      GT_EVENTS   TYPE SLIS_T_EVENT,
     G_PRINT     TYPE SLIS_PRINT_ALV.
DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV OCCURS 0 WITH HEADER LINE.
DATA: FC_HIER      TYPE SLIS_FIELDCAT_ALV OCCURS 0 WITH HEADER LINE.
DATA: GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: GT_REPID       LIKE SY-REPID.
DATA: GT_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
DATA: GT_TOP_OF_LIST TYPE SLIS_FORMNAME VALUE 'TOP_OF_LIST'.
DATA: FLD(15).
DATA: TXT(50).
I N I T I A L I Z A T I O N
GT_REPID = SY-REPID.
PAGNO = SY-PAGNO.
PERFORM EVENTTAB_BUILD USING GT_EVENTS[].
A T S E L E C T I O N S C R E E N
*AT SELECTION-SCREEN ON BUDAT.
PERFORM VALIDATION.
S T A R T O F S E L E C T I O N
START-OF-SELECTION.
PERFORM FIELDCAT_INIT USING GT_FIELDCAT[].
PERFORM FETCH_DATA.
E N D O F S E L E C T I O N
END-OF-SELECTION.
IF NOT ITAB2[] IS INITIAL.
    PERFORM COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].
   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
       I_CALLBACK_PROGRAM = GT_REPID
       IT_FIELDCAT        = GT_FIELDCAT[]
       IT_EVENTS          = GT_EVENTS[]
       IT_SORT            = GT_SORT[]
       IS_LAYOUT          = GT_LAYOUT
     TABLES
       T_OUTTAB           = ITAB2.
ELSE.
    MESSAGE S006(Z1).
ENDIF.
CLEAR : GT_LAYOUT.
Report Selections
DATA: BEGIN OF IT_HEADER OCCURS 10,
WERKS LIKE MSEG-WERKS,
NAME1 LIKE T001W-NAME1,
MAKTX LIKE MAKT-MAKTX,
MATNR LIKE MSEG-MATNR,
MENGE_O LIKE MSEG-MENGE,
END OF IT_HEADER.
DATA: BEGIN OF ITAB OCCURS 50,
        WERKS LIKE MSEG-WERKS,
        MATNR LIKE MSEG-MATNR,
        BWART LIKE MSEG-BWART,
        LGORT LIKE MSEG-LGORT,
        EBELN LIKE MSEG-EBELN,
        XBLNR LIKE MKPF-XBLNR,
        BUDAT LIKE MKPF-BUDAT,
        MBLNR LIKE MSEG-MBLNR,
        MENGE LIKE MSEG-MENGE,
        MAKTX LIKE MAKT-MAKTX,
        XAUTO LIKE MSEG-XAUTO,
        NAME1 LIKE T001W-NAME1,
        MENGE_O LIKE MSEG-MENGE,
        SHKZG LIKE MSEG-SHKZG,
        MENGE_IS LIKE MSEG-MENGE,
        MENGE_RE LIKE MSEG-MENGE,
END OF ITAB.
DATA: BEGIN OF INT_DATA OCCURS 50,
        WERKS LIKE MSEG-WERKS,
        MATNR LIKE MSEG-MATNR,
        BWART LIKE MSEG-BWART,
        XBLNR LIKE MKPF-XBLNR,
        MBLNR LIKE MSEG-MBLNR,
        BUDAT LIKE MKPF-BUDAT,
        MAKTX LIKE MAKT-MAKTX,
        MENGE_O LIKE MSEG-MENGE,
        MENGE_R LIKE MSEG-MENGE,
        MENGE_TO LIKE MSEG-MENGE,
        MENGE_TI LIKE MSEG-MENGE,
        MENGE_S LIKE MSEG-MENGE,
        MENGE_ST LIKE MSEG-MENGE,
        MENGE_AD LIKE MSEG-MENGE,
        MENGE_RT LIKE MSEG-MENGE,
        MENGE_C LIKE MSEG-MENGE,
        MENGE_CL LIKE MSEG-MENGE,
        MENGE_BAL LIKE MSEG-MENGE,
        MENGE_CR LIKE MSEG-MENGE,
        NAME1 LIKE T001W-NAME1,
        MENGE_RE LIKE MSEG-MENGE,
        MENGE_IS LIKE MSEG-MENGE,
        MENGE_BAL1 LIKE MSEG-MENGE,
        SHKZG LIKE MSEG-SHKZG,
         MENGE LIKE MSEG-MENGE,
        END OF INT_DATA.
DATA: BEGIN OF INT_DATA1 OCCURS 50,
         WERKS LIKE MSEG-WERKS,
         MATNR LIKE MSEG-MATNR,
         BWART LIKE MSEG-BWART,
         MENGE_ST LIKE MSEG-MENGE,
         MENGE_O LIKE MSEG-MENGE,
         WAMNG LIKE EKET-WAMNG,
         WEMNG LIKE EKET-WEMNG,
         MENGE LIKE MSEG-MENGE,
         RETPO LIKE EKPO-RETPO,
         UMREN LIKE EKPO-UMREN,
         UMREZ LIKE EKPO-UMREZ,
         BSTMG LIKE EKPO-MENGE,
         XBLNR LIKE MKPF-XBLNR,
   END OF INT_DATA1.
DATA: BEGIN OF INT_DATA2 OCCURS 50,
         WERKS LIKE MSEG-WERKS,
         LGORT LIKE S031-LGORT,
         MATNR LIKE MSEG-MATNR,
         BWART LIKE MSEG-BWART,
         MENGE_IS LIKE MSEG-MENGE,
         MBWBEST LIKE S032-MBWBEST,
         MAKTX LIKE MAKT-MAKTX,
   END OF INT_DATA2.
DATA:V_GJAHR LIKE MKPF-BUDAT.
DATA : FLAG6 TYPE C,
    PAGENO1 LIKE SY-PAGNO,
    PAGENO2 LIKE SY-PAGNO.
SELECTION-SCREEN BEGIN OF BLOCK 0 WITH FRAME TITLE TEXT-064.
SELECT-OPTIONS:
MATNR FOR MSEG-MATNR,
MATKL FOR MARA-MATKL OBLIGATORY,
WERKS FOR MSEG-WERKS OBLIGATORY,
LGORT FOR MSEG-LGORT,
*CHARG FOR MSEG-CHARG,
BWART FOR MSEG-BWART,
*LIFNR FOR LFA1-LIFNR,
*WADAT FOR LIKP-WADAT_IST,
BUDAT FOR MKPF-BUDAT.
SELECTION-SCREEN END OF BLOCK 0.
*SELECTION-SCREEN SKIP 1.
Parameters
*SELECTION-SCREEN SKIP 1.
Variante
*SELECTION-SCREEN BEGIN OF BLOCK 0 WITH FRAME TITLE TEXT-064.
DATA: P_VARI LIKE DISVARIANT-VARIANT.
*SELECTION-SCREEN END OF BLOCK 0.
Layout
SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME TITLE TEXT-060.
DATA:   P_ZEBRA VALUE 'X'.
SELECTION-SCREEN END OF BLOCK A.
SELECTION-SCREEN BEGIN OF BLOCK D WITH FRAME TITLE TEXT-063.
PARAMETERS:
              P_EXPAND AS CHECKBOX DEFAULT ' '.
DATA: P_DETPOP VALUE 'X' .
SELECTION-SCREEN END OF BLOCK D.
DATA:       G_BOXNAM TYPE SLIS_FIELDNAME VALUE 'BOX',
              G_EXPANDNAME TYPE SLIS_FIELDNAME VALUE 'EXPAND',
              P_F2CODE LIKE SY-UCOMM       VALUE '&ETA',
              P_LIGNAM TYPE SLIS_FIELDNAME VALUE 'LIGHTS',
              G_SAVE(1) TYPE C,
              G_TABNAME_HEADER TYPE SLIS_TABNAME,
              G_TABNAME_ITEM   TYPE SLIS_TABNAME,
              G_EXIT(1) TYPE C,
              GX_VARIANT LIKE DISVARIANT,
              G_VARIANT LIKE DISVARIANT.
INITIALIZATION.
GT_REPID = SY-REPID.
G_TABNAME_HEADER = 'IT_HEADER'.
G_TABNAME_ITEM   = 'INT_DATA'.
define keyinfo
CLEAR GS_KEYINFO.
GS_KEYINFO-HEADER01 = 'MATNR'.
GS_KEYINFO-ITEM01   = 'MATNR'.
*GS_KEYINFO-HEADER01.
PERFORM E01_FIELDCAT_INIT USING GT_FIELDCAT[].
PERFORM E03_EVENTTAB_BUILD USING GT_EVENTS[].
PERFORM E04_COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].
PERFORM E06_T_SORT_BUILD   USING GT_SORT[].
PERFORM E07_SP_GROUP_BUILD USING GT_SP_GROUP[].
Schalter Varianten benutzerspezifisch/allgemein speicherbar setzen
Set Options: save variants userspecific or general
G_SAVE = 'A'.
PERFORM VARIANT_INIT.
Get default variant
GX_VARIANT = G_VARIANT.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
      I_SAVE     = G_SAVE
    CHANGING
      CS_VARIANT = GX_VARIANT
    EXCEPTIONS
      NOT_FOUND = 2.
IF SY-SUBRC = 0.
    P_VARI = GX_VARIANT-VARIANT.
ENDIF.
Process on value request
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.
PERFORM F4_FOR_VARIANT.
AT SELECTION-SCREEN.
PERFORM PAI_OF_SELECTION_SCREEN.
START-OF-SELECTION.
END-OF-SELECTION.
PERFORM LAYOUT_BUILD USING GT_LAYOUT.     "wg. Parameters
Call ABAP/4 List Viewer
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = GT_REPID
      IS_LAYOUT          = GT_LAYOUT
      IT_FIELDCAT        = GT_FIELDCAT[]
      IT_SPECIAL_GROUPS = GT_SP_GROUP[]
      IT_SORT            = GT_SORT[]
      I_SAVE             = G_SAVE
      IS_VARIANT         = G_VARIANT
      IT_EVENTS          = GT_EVENTS[]
      I_TABNAME_HEADER   = G_TABNAME_HEADER
      I_TABNAME_ITEM     = G_TABNAME_ITEM
      IS_KEYINFO         = GS_KEYINFO
      IS_PRINT           = G_PRINT
    TABLES
      T_OUTTAB_HEADER    = IT_HEADER
      T_OUTTAB_ITEM      = INT_DATA.
      FORM E01_FIELDCAT_INIT                                        *
--> E01_LT_FIELDCAT                                               *
FORM FIELDCAT_INIT
                  USING RT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: POS TYPE I VALUE 1.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'WERKS'.
LS_FIELDCAT-TABNAME      = G_TABNAME_HEADER .
LS_FIELDCAT-SELTEXT_L        = 'Plant'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'NAME1'.
LS_FIELDCAT-TABNAME      = G_TABNAME_HEADER .
LS_FIELDCAT-SELTEXT_L        = 'Description'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MATNR'.
LS_FIELDCAT-TABNAME      = G_TABNAME_HEADER .
LS_FIELDCAT-SELTEXT_M        = 'Material'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MAKTX'.
LS_FIELDCAT-TABNAME      = G_TABNAME_HEADER .
LS_FIELDCAT-SELTEXT_M        = 'Material Description'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'XBLNR'.
LS_FIELDCAT-TABNAME      = G_TABNAME_ITEM .
LS_FIELDCAT-SELTEXT_M        = ' Doc No.'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'BUDAT'.
LS_FIELDCAT-TABNAME      = G_TABNAME_ITEM .
LS_FIELDCAT-SELTEXT_M        = ' Doc Date.'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'BWART'.
LS_FIELDCAT-TABNAME      = G_TABNAME_ITEM .
LS_FIELDCAT-SELTEXT_M        = ' Mvt.'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MBLNR'.
LS_FIELDCAT-TABNAME      = G_TABNAME_ITEM .
LS_FIELDCAT-SELTEXT_M        = ' Mat.Doc No'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MENGE_R'.
LS_FIELDCAT-TABNAME      = G_TABNAME_ITEM .
LS_FIELDCAT-SELTEXT_M    = ' STO-In '.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MENGE_RT'.
LS_FIELDCAT-TABNAME      = G_TABNAME_ITEM .
LS_FIELDCAT-SELTEXT_M    = ' Sales Returns '.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MENGE_CL'.
LS_FIELDCAT-TABNAME      = G_TABNAME_ITEM .
LS_FIELDCAT-SELTEXT_M    = ' Canc of Invoice'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MENGE_AD'.
LS_FIELDCAT-TABNAME      = G_TABNAME_ITEM .
LS_FIELDCAT-SELTEXT_M    = ' Adjustments '.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MENGE_S'.
LS_FIELDCAT-TABNAME      = G_TABNAME_ITEM .
LS_FIELDCAT-SELTEXT_M     = ' Sales. '.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MENGE_TO'.
LS_FIELDCAT-TABNAME      = G_TABNAME_ITEM .
LS_FIELDCAT-SELTEXT_M    = ' STO-Out '.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MENGE_CR'.
LS_FIELDCAT-TABNAME      = G_TABNAME_ITEM .
LS_FIELDCAT-SELTEXT_M    = ' Canc of Sal Returns'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MENGE_AD'.
LS_FIELDCAT-TABNAME      = G_TABNAME_ITEM .
LS_FIELDCAT-SELTEXT_M    = 'Adjustments '.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MENGE_O'.
LS_FIELDCAT-TABNAME      = G_TABNAME_ITEM .
LS_FIELDCAT-SELTEXT_M    = ' Opening Balance '.
LS_FIELDCAT-NO_ZERO = 'X'.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MENGE_BAL'.
LS_FIELDCAT-TABNAME      = G_TABNAME_ITEM .
LS_FIELDCAT-SELTEXT_M    = ' Balance   '.
APPEND LS_FIELDCAT TO RT_FIELDCAT.
ENDFORM.                    "E01_FIELDCAT_INIT
      FORM E02_DATA_ADD                                             *
--> E02_LT_SFLIGHT                                                *
      FORM E03_EVENTTAB_BUILD                                       *
--> E03_LT_EVENTS                                                 *
*FORM E03_EVENTTAB_BUILD USING E03_LT_EVENTS TYPE SLIS_T_EVENT.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     I_LIST_TYPE = 1
   IMPORTING
     ET_EVENTS   = E03_LT_EVENTS.
READ TABLE E03_LT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                          INTO LS_EVENT.
IF SY-SUBRC = 0.
   MOVE GC_FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.
   APPEND LS_EVENT TO E03_LT_EVENTS.
ENDIF.
*ENDFORM.                    "E03_EVENTTAB_BUILD
      FORM E04_COMMENT_BUILD                                        *
--> E04_LT_TOP_OF_PAGE                                            *
FORM E04_COMMENT_BUILD USING E04_LT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: LS_LINE TYPE SLIS_LISTHEADER.
Listenüberschrift: Typ H
CLEAR LS_LINE.
LS_LINE-TYP = 'H'.
LS_LINE-INFO = TEXT-001.
APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = TEXT-050.
LS_LINE-INFO = TEXT-010.
APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
LS_LINE-KEY = TEXT-051.
APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
Aktionsinfo: Typ A
CLEAR LS_LINE.
LS_LINE-TYP = 'A'.
LS_LINE-INFO = TEXT-002.
APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
ENDFORM.                    "E04_COMMENT_BUILD
      FORM E05_LAYOUT_BUILD                                         *
<-> E05_LS_LAYOUT                                                 *
FORM LAYOUT_BUILD USING LS_LAYOUT TYPE SLIS_LAYOUT_ALV.
LS_LAYOUT-F2CODE            = P_F2CODE.
LS_LAYOUT-ZEBRA          = P_ZEBRA.
LS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
IF P_EXPAND = 'X'.
    LS_LAYOUT-EXPAND_FIELDNAME     = G_EXPANDNAME.
ELSE.
    CLEAR LS_LAYOUT-EXPAND_FIELDNAME.
ENDIF.
LS_LAYOUT-DETAIL_POPUP      = P_DETPOP.
ENDFORM.                    "E05_LAYOUT_BUILD
      FORM E06_T_SORT_BUILD                                         *
--> E06_LT_SORT                                                   *
*FORM E06_T_SORT_BUILD USING E06_LT_SORT TYPE SLIS_T_SORTINFO_ALV.
DATA: LS_SORT TYPE SLIS_SORTINFO_ALV.
CLEAR LS_SORT.
LS_SORT-FIELDNAME = 'WERKS'.
LS_SORT-TABNAME   = G_TABNAME_HEADER.
LS_SORT-SPOS      = 1.
LS_SORT-UP        = 'X'.
APPEND LS_SORT TO E06_LT_SORT.
CLEAR LS_SORT.
LS_SORT-FIELDNAME = 'MATNR'.
LS_SORT-TABNAME   = G_TABNAME_ITEM.
LS_SORT-SPOS      = 2.
LS_SORT-UP      = 'X'.
APPEND LS_SORT TO E06_LT_SORT.
*ENDFORM.                    "E06_T_SORT_BUILD
      FORM E07_SP_GROUP_BUILD                                       *
--> E07_LT_SP_GROUP                                               *
FORM E07_SP_GROUP_BUILD USING E07_LT_SP_GROUP TYPE SLIS_T_SP_GROUP_ALV.
DATA: LS_SP_GROUP TYPE SLIS_SP_GROUP_ALV.
CLEAR LS_SP_GROUP.
LS_SP_GROUP-SP_GROUP = 'A'.
LS_SP_GROUP-TEXT     = TEXT-005.
APPEND LS_SP_GROUP TO E07_LT_SP_GROUP.
ENDFORM.                    "E07_SP_GROUP_BUILD
      FORM SELECTION                                                *
FORM FETCH_DATA .
STR3 = BUDAT-LOW+0(4).
SELECT * FROM MARA INTO CORRESPONDING FIELDS OF TABLE ITAB1
                     WHERE MATNR IN MATNR AND
                     MATKL IN MATKL.
SELECT MATNR WERKS LGORT
                     INTO TABLE ITAB2
                     FROM MARD FOR ALL ENTRIES IN ITAB1
                     WHERE WERKS IN WERKS AND
                           LGORT IN LGORT AND
                           MATNR = ITAB1-MATNR.
SELECT SINGLE NAME1 FROM T001W INTO INT_DATA-NAME1
       WHERE WERKS = INT_DATA-WERKS.
LOOP AT ITAB2.
    SELECT M~MATNR M~WERKS M~LGORT M~MENGE M~MBLNR M~MJAHR M~XAUTO M~SHKZG
                   M~BWART M~EBELN N~BUDAT N~XBLNR S~NAME1
                   INTO CORRESPONDING FIELDS OF ITAB
                   FROM   MSEG AS M INNER JOIN MKPF AS N ON
                          M~MBLNR = N~MBLNR
                          AND M~MJAHR = N~MJAHR
                        INNER JOIN T001W AS S ON
                          M~WERKS = S~WERKS
                      WHERE N~BUDAT IN BUDAT AND
                         M~WERKS = ITAB2-WERKS AND
                         M~LGORT = ITAB2-LGORT AND
                         M~MATNR = ITAB2-MATNR AND
                M~BWART IN BWART.
      APPEND ITAB.
      CLEAR ITAB.
    ENDSELECT.
    IF SY-SUBRC NE 0.
      ITAB-MATNR = ITAB2-MATNR.
      ITAB-WERKS = ITAB2-WERKS.
      ITAB-LGORT = ITAB2-LGORT.
      ITAB-BWART = ITAB2-BWART.
      APPEND ITAB.
    ENDIF.
    CLEAR: ITAB2,ITAB.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM ITAB2 COMPARING MATNR WERKS .
V_MONTH = BUDAT-LOW+0(6).
SELECT * INTO CORRESPONDING FIELDS OF TABLE INT_DATA2
           FROM S032 FOR ALL ENTRIES IN ITAB2
           WHERE MATNR = ITAB2-MATNR
                 AND WERKS   = ITAB2-WERKS
                 AND LGORT   = SPACE
                 AND   MBWBEST <> SPACE.
LOOP AT INT_DATA2 .
    SELECT SINGLE * FROM S031
                     WHERE MATNR = INT_DATA2-MATNR AND
                           WERKS = INT_DATA2-WERKS AND
                           LGORT = SPACE AND
                           SPMON GT V_MONTH.
    MODIFY INT_DATA2.
    CLEAR: INT_DATA2, S031.
ENDLOOP.
DELETE INT_DATA WHERE MENGE_O IS INITIAL .
DELETE ADJACENT DUPLICATES FROM INT_DATA COMPARING XBLNR MATNR MAKTX.
V_MONTH1 = BUDAT-LOW+0(6).
SORT ITAB BY MATNR WERKS XBLNR .
LOOP AT ITAB.
    XBLNR = ITAB-XBLNR.
    INT_DATA-MENGE = ITAB-MENGE.
    INT_DATA-BWART = ITAB-BWART.
    INT_DATA-XBLNR = ITAB-XBLNR.
    INT_DATA-BUDAT = ITAB-BUDAT.
    INT_DATA-MATNR = ITAB-MATNR.
    INT_DATA-MBLNR = ITAB-MBLNR.
    INT_DATA-MENGE = ITAB-MENGE.
    INT_DATA-SHKZG = ITAB-SHKZG.
    INT_DATA-MENGE_IS = ITAB-MENGE_IS.
    INT_DATA-MENGE_RE = ITAB-MENGE_RE.
    INT_DATA-MENGE_O = ITAB-MENGE_O.
    INT_DATA-NAME1 = ITAB-NAME1.
    AT NEW MATNR.
      FLAG = 1.
      IT_HEADER-MATNR = INT_DATA-MATNR.
      SELECT SINGLE MAKTX FROM MAKT INTO IT_HEADER-MAKTX WHERE
      MATNR = INT_DATA-MATNR.
      APPEND IT_HEADER.
      CLEAR IT_HEADER.
    ENDAT.
    IF FLAG = 1.
      PERFORM GET_OPENING_STOCK.
    ENDIF.
    INT_DATA-MENGE_O = OSTOCK.
    CASE ITAB-BWART.
      WHEN '101'.
        IF INT_DATA-SHKZG = 'S'.
          INT_DATA-MENGE_R = INT_DATA-MENGE_R + ITAB-MENGE.
        ENDIF.
      WHEN '453'.
        IF INT_DATA-SHKZG = 'S'.
          IF ITAB-XAUTO = 'X'.
            INT_DATA-MENGE_RT = INT_DATA-MENGE_RT + ITAB-MENGE.
          ENDIF.
        ENDIF.
      WHEN '351' OR '641'.
       IF ITAB-LGORT = 0.
         INT_DATA-MENGE_R = INT_DATA-MENGE_R + ITAB-MENGE.
       ELSE.
         INT_DATA-MENGE_TO = INT_DATA-MENGE_TO + ITAB-MENGE.
       ENDIF.
      WHEN '602' OR '642'.
        IF INT_DATA-SHKZG = 'S'.
          IF ITAB-LGORT = 0.
            INT_DATA-MENGE_CL = INT_DATA-MENGE_CL + ITAB-MENGE.
          ENDIF.
        ENDIF.
      WHEN '552' OR '310'.
        IF INT_DATA-SHKZG = 'S'.
          INT_DATA-MENGE_AD = INT_DATA-MENGE_AD - ITAB-MENGE.
        ENDIF.
      WHEN '601'.
        IF INT_DATA-SHKZG = 'H'.
          INT_DATA-MENGE_S = INT_DATA-MENGE_S + ITAB-MENGE.
        ENDIF.
      WHEN '641' .
        IF INT_DATA-SHKZG = 'H'.
          IF ITAB-LGORT = 0.
            INT_DATA-MENGE_TO = INT_DATA-MENGE_TO + ITAB-MENGE.
          ENDIF.
        ENDIF.
      WHEN '454' OR '102'.
        IF INT_DATA-SHKZG = 'H'.
          IF ITAB-XAUTO = 'X'.
            INT_DATA-MENGE_CR = INT_DATA-MENGE_CR - ITAB-MENGE.
          ENDIF.
        ENDIF.
      WHEN '551' OR '309'.
        IF INT_DATA-SHKZG = 'H'.
          INT_DATA-MENGE_AD = INT_DATA-MENGE_AD + ITAB-MENGE.
        ENDIF.
        IF INT_DATA-SHKZG = 'S'.
          MENGE_O = INT_DATA-MENGE_O + ITAB-MENGE.
        ENDIF.
    ENDCASE.
    IF INT_DATA-SHKZG = 'S'.
      MENGE_RE = INT_DATA-MENGE_R + INT_DATA-MENGE_RT + INT_DATA-MENGE_CL
      + INT_DATA-MENGE_AD.
    ENDIF.
    IF INT_DATA-SHKZG = 'H'.
      MENGE_IS = INT_DATA-MENGE_S + INT_DATA-MENGE_TO +
                    INT_DATA-MENGE_CR + INT_DATA-MENGE_AD.
    ENDIF.
    PERFORM BALANCE.
    COLLECT INT_DATA.
    CLEAR: INT_DATA,ITAB ,XBLNR, FLAG, OSTOCK.
ENDLOOP.
SORT INT_DATA BY XBLNR BUDAT WERKS MATNR.
LOOP AT INT_DATA.
    READ TABLE INT_DATA2 WITH KEY MATNR = INT_DATA-MATNR
                                  WERKS = INT_DATA-WERKS.
    SELECT SINGLE * FROM MAKT WHERE MATNR = INT_DATA-MATNR.
    INT_DATA-MAKTX = MAKT-MAKTX.
    MODIFY INT_DATA.
    CLEAR: INT_DATA, INT_DATA2.
ENDLOOP.
LOOP AT INT_DATA WHERE MENGE_O = 0 AND MENGE_RT = 0 AND
                        MENGE_CL = 0 AND MENGE_AD = 0 AND
                        MENGE_S = 0 AND MENGE_TO = 0 AND
                        MENGE_CR = 0 AND MENGE_R = 0 AND MENGE_BAL = 0.
    DELETE IT_HEADER WHERE MATNR = INT_DATA-MATNR.
ENDLOOP.
DELETE INT_DATA WHERE MENGE_O = 0 AND MENGE_RT = 0 AND
                        MENGE_CL = 0 AND MENGE_AD = 0 AND
                        MENGE_S = 0 AND MENGE_TO = 0 AND
                        MENGE_CR = 0 AND MENGE_R = 0 AND MENGE_BAL = 0.
ENDFORM.                    "SELECTION
*&      Form EVENTTAB_BUILD
      text
     -->P_GT_EVENTS[] text
FORM EVENTTAB_BUILD USING RT_EVENTS TYPE SLIS_T_EVENT.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 1
    IMPORTING
      ET_EVENTS   = RT_EVENTS.
READ TABLE RT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                           INTO LS_EVENT.
IF SY-SUBRC = 0.
    MOVE GT_TOP_OF_PAGE TO LS_EVENT-FORM.
    APPEND LS_EVENT TO RT_EVENTS.
ENDIF.
ENDFORM.                    " EVENTTAB_BUILD
      FORM TOP_OF_PAGE                                              *
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
   EXPORTING
     I_LOGO             = 'ENJOYSAP_LOGO'
     IT_LIST_COMMENTARY = LT_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      I_LOGO             = 'ENJOYSAP_LOGO'
      IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
ENDFORM.                    "TOP_OF_PAGE
      FORM F4_FOR_VARIANT                                           *
FORM F4_FOR_VARIANT.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      IS_VARIANT       = G_VARIANT
      I_SAVE           = G_SAVE
      I_TABNAME_HEADER = G_TABNAME_HEADER
      I_TABNAME_ITEM   = G_TABNAME_ITEM
    IMPORTING
      E_EXIT           = G_EXIT
      ES_VARIANT       = GX_VARIANT
    EXCEPTIONS
      NOT_FOUND        = 2.
IF SY-SUBRC = 2.
    MESSAGE ID SY-MSGID TYPE 'S'      NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
    IF G_EXIT = SPACE.
      P_VARI = GX_VARIANT-VARIANT.
    ENDIF.
ENDIF.
ENDFORM.                    "F4_FOR_VARIANT
*&      Form PAI_OF_SELECTION_SCREEN
      text
FORM PAI_OF_SELECTION_SCREEN.
IF NOT P_VARI IS INITIAL.
    MOVE G_VARIANT TO GX_VARIANT.
    MOVE P_VARI TO GX_VARIANT-VARIANT.
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
      EXPORTING
        I_SAVE     = G_SAVE
      CHANGING
        CS_VARIANT = GX_VARIANT.
    G_VARIANT = GX_VARIANT.
ELSE.
    PERFORM VARIANT_INIT.
ENDIF.
ENDFORM.                               " PAI_OF_SELECTION_SCREEN
*&      Form VARIANT_INIT
      text
--> p1        text
<-- p2        text
FORM VARIANT_INIT.
CLEAR G_VARIANT.
G_VARIANT-REPORT = GT_REPID.
ENDFORM.                               " VARIANT_INIT
*&      Form GET_OPENING_STOCK
      text
FORM GET_OPENING_STOCK.
SELECT SUM( MZUBB ) SUM( MAGBB ) INTO (V_STOCK, V_STOCK1)
                FROM S031 WHERE MATNR = ITAB-MATNR AND
                                WERKS = ITAB-WERKS AND
                                SPMON LT V_MONTH1 AND LGORT = ITAB-LGORT.
OSTOCK = V_STOCK1 - V_STOCK.
IF OSTOCK < 0.
    OSTOCK = OSTOCK * -1.
ENDIF.
ENDFORM.                               " GET_OPENING_STOCK
*&      Form check
      text
FORM CHECK.
AUTHORITY-CHECK OBJECT 'M_IS_MATNR'
    ID 'ACTVT' DUMMY
    ID 'MATNR' FIELD MATNR-LOW.
IF SY-SUBRC <> 0.
    MESSAGE E016(Z1) WITH MATNR-LOW.
ENDIF.
ENDFORM.                    "CHECK_AUTHORIZATION
*&      Form EVENTTAB_BUILD
      text
     -->P_GT_EVENTS[] text
*FORM EVENTTAB_BUILD USING RT_EVENTS TYPE SLIS_T_EVENT.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     I_LIST_TYPE = 1
   IMPORTING
     ET_EVENTS   = RT_EVENTS.
READ TABLE RT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                          INTO LS_EVENT.
IF SY-SUBRC = 0.
   MOVE GT_TOP_OF_PAGE TO LS_EVENT-FORM.
   APPEND LS_EVENT TO RT_EVENTS.
ENDIF.
*ENDFORM.                    " EVENTTAB_BUILD
      FORM TOP_OF_PAGE
*FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
   EXPORTING
     I_LOGO             = 'ENJOYSAP_LOGO'
     IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
*ENDFORM.                    "TOP_OF_PAGE
*&      Form COMMENT_BUILD
      text
     -->P_GT_LIST_TOP_OF_PAGE[] text
FORM COMMENT_BUILD USING LT_TOP_OF_PAGE TYPE
                       SLIS_T_LISTHEADER.
DATA: LS_LINE TYPE SLIS_LISTHEADER.
DATA: LV_PAGE_STRING(11),
         LV_PAGE_NO(3).
PAGNO = SY-PAGNO.
DATA: PAGNO(5) TYPE C.
CLEAR
     LS_LINE.
REFRESH LT_TOP_OF_PAGE.
CLEAR
     LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = 'Page Number'.
PAGNO = SY-PAGNO.
IF
    PAGNO = 0.
    PAGNO = 1.
ENDIF.
SHIFT PAGNO LEFT DELETING LEADING SPACE.
LS_LINE-INFO = PAGNO.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
CLEAR LS_LINE.
LS_LINE-TYP = 'H'.
LS_LINE-INFO = TEXT-001.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
CLEAR LS_LINE.
LS_LINE-TYP = 'A'.
SELECT SINGLE * FROM T001W WHERE
                  WERKS IN WERKS.
CONCATENATE 'Name Of The Plant ' '-' T001W-NAME1 INTO
                        TXT SEPARATED BY SPACE.
LS_LINE-INFO = TXT.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
CLEAR:TXT, LS_LINE.
LS_LINE-TYP = 'H'.
LS_LINE-INFO = TEXT-002.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
CLEAR LS_LINE.
IF WERKS-HIGH EQ SPACE.
    CONCATENATE 'Plant : ' WERKS-LOW INTO TXT.
ELSE.
    CONCATENATE 'FROM PLANT : ' WERKS-LOW 'TO PLANT : ' WERKS-HIGH INTO TXT SEPARATED BY SPACE.
ENDIF.
LS_LINE-TYP = 'H'.
LS_LINE-INFO = TXT.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
IF BUDAT-HIGH EQ SPACE.
    BUDAT-HIGH = BUDAT-LOW.
ENDIF.
CONCATENATE 'Date : From ' BUDAT-LOW6(2) '-' BUDAT-LOW4(2) '-'
                        BUDAT-LOW0(4) 'to' BUDAT-HIGH6(2) '-'
                        BUDAT-HIGH4(2) '-' BUDAT-HIGH0(4) INTO
                        TXT SEPARATED BY SPACE.
CLEAR LS_LINE.
LS_LINE-TYP = 'A'.
LS_LINE-INFO = TXT.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
ENDFORM.                    "COMMENT_BUILD
*&      Form LAYOUT_INIT
      text
     -->P_GT_LAYOUT text
FORM LAYOUT_INIT USING RS_LAYOUT TYPE SLIS_LAYOUT_ALV.
RS_LAYOUT-DETAIL_POPUP      = 'X'.
RS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM.                    " LAYOUT_INIT
*&      Form BALANCE
      text
--> p1        text
<-- p2        text
FORM BALANCE.
IF INT_DATA-SHKZG = 'S'.
    MENGE_RE = INT_DATA-MENGE_O + INT_DATA-MENGE.
    INT_DATA-MENGE_BAL = MENGE_RE.
    INT_DATA-MENGE_RE = INT_DATA-MENGE.
ELSEIF INT_DATA-SHKZG = 'H'.
    MENGE_RE = MENGE_RE - INT_DATA-MENGE.
    INT_DATA-MENGE_BAL = MENGE_RE.
    INT_DATA-MENGE_IS = INT_DATA-MENGE.
ENDIF.
ENDFORM.                    " BALANCE
Thanks & Regards,
Sreedhar.

Hi,
try like this.........
get v_linct from system varaible sy-linct
describe table t_output lines lv_lines - Where
t_output is ur final internal table which is displayed
v_pagct = ( lv_lines div v_linct ) + 3.
write: 'PAGE NO:' , sy-pagno ,'/', v_pagct.
Madhavi

Hi, I upgraded my iphone 4 to iso 5 beta 6, but now it shows "No Service" at top left, and unable to complete your activation. Also tels that this device is not registered as part of the iphone developer programme. How could I fix this problem? Please..?

Hi, I upgraded my iphone 4 (4.3.3) to iso 5 beta 6, but now it shows "No Service" at top left, and unable to complete your activation. Also tells that "this device is not registered as part of the iphone developer programme." How could I fix this problem? Please help me...,

I had a similar occurrence with my just activated iPhone 4.
I had been using the phone for three days when an odd occurrence with voice mail caused me to call tech support. After some discussion they decided to push the activation to my phone (even though I had been using it for three days). When I went to power it back up again I repeatedly got the "no service" notification. I got tech support on a land line and we tried hard reboots and so on. No joy. They told me to take it in to the point of sale and either the SIM card or the phone needed (or both) needed replacing.
I tried one last hard reboot after dinner and the phone came up with service, but I took it in to the point of sale in the morning and they swapped the SIM card out and I went to a Genius Bar appointment to get the phone checked out. It is supposedly OK, but I am still having some problems when syncing it so I will have to visit the Genius Bar again tomorrow about that. At least I have not experienced the "no service" problem in the roughly 24 hours since the SIM card was replaced. (Fingers crossed)

Displaying "Top N and Other" in Pie Chart

Hello All,
As the subject implies, we are trying to display in pie charr top 5 products by sales and bucket rest of the product sales in "Others". Oracle provided documentation gives below code. But I am not sure as how we can package this in view which can be used in chart
RETURN "Top5Companies" AS SELECT
"coName" AS "companyName",
SUM("txnID") AS "numTxn"
GROUP BY "coName"
ORDER BY "numTxn" DESC
PAGE(0,5)
RETURN "Others" AS SELECT
'Others' AS "companyName",
SUM("txnID") AS "numTxn"
WHERE NOT ["coName"] IN "Top5Companies"
GROUP
Edited by: 948378 on Sep 5, 2012 9:46 AM

Hi,
For your first question, Other should show up if you have more than 10 groups generated. Looking at the Group Tree, how many groups show up?
What happens if you did a Top5 instead of 10? Does Other show in the Group Tree?
For your second question, Crystal will group on unique values regardless if the group is on a field or formula. I have a sneaking suspicion there is either a leading or trailing space in the name. Use the Trim function to remove the white spaces like:
IF (IsNull({Command.AcctPriKey}) or length(ToText({Command.AcctPriKey}))<1)
then Trim ({Command.custname})
else Trim ({NAcct_.Nacct});
For your third question, throw the iif format out. That was introduced because of dBase years ago and most people I know hate using it. Go with the traditional. Easier to read and figure out.
Good luck,
Brian

Top Rentals and Top Sales Categories Gone?

Similar Messages

Maybe you are looking for