Up To Date Program - No code received within 72 hours

Hello Apple,
I am one of those early adopters of the retina MBP. I participated to the "Up To Date Program", but received no code within 72 hours.
This is quite annoying because I am on holidays now and have enough time to spend with my new machine and OS.
Hope my code will be submitted soon.
@Others: Anyone else waiting longer than 72 hours?
Best regards
BurningCorner

Hi!
I got mine yesterday at 5 am in the morning. So it took about 5 days. I think the process of manual checking the receipts is quite timeconsuming.
Apple should improve this by using their own serial number database. For example customers from the apple online store are prequalified. This could save them a lot of work.
As i am a total changer ( dropped my whole windows enviroment ) this was a bit frustrating for me.
Now i am a proud owner of a MBP Retina with 16 Gigs and 512 MB SSD with OS X 10.8, a Time Capsule, Super Drive, an Iphone 4, Ipad 1 and Ipad 3. Generation. Only using Windows for some Steamgames in Bootcamp.
Best regards
Lars

Similar Messages

  • I never received my up to date program redemption code

    I submitted my up-to-date program for Mac OS X Mountain Lion yesterday but have not yet received the redemption code. How do I get it? I have a new MAcbook Pro with Retina Display that was purchased this month.

    What are you talking about ? Do we need to send a mail after making the demand to get the code ?

  • OS X Mountain Lion Up-To-Date Program Content Code

    Hello members of this forum,
    My brother has recently got a 2012 MacBook Pro with Retina Display. He is loving it so far and would like to upgrade it to Mountain Lion. I went through the steps on Apple's website to redeem a free copy of Mountain Lion for new Macs. He recieved the email with the PDF with the content code and the password for the PDF. However, the password that was sent will not unlock the PDF. It always says Invalid Password when entering the password. I've tried this at least 10 times to no avail. My brother would really like to upgrade to OS X Mountain Lion.

    TheRacermaster,
    I would contact Apple Supprt if your code is incorrect. They have some come up invalid / or used already.
    http://www.apple.com/support/

  • The content code I got was said as not reconised valid code during redemption of Up-to-date Program?

    I have registered for up-to-date program. However the content code I received was said as not recognised valid code during redemption. What can I do?

    The Apple Support Communities are an international user to user technical support forum. As a man from Mexico, Spanish is my native tongue. I do not speak English very well, however, I do write in English with the aid of the Mac OS X spelling and grammar checks. I also live in a culture perhaps very very different from your own. When offering advice in the ASC, my comments are not meant to be anything more than helpful and certainly not to be taken as insults.
    Folks report a two email process; one with a secure pdf that has the redemption code and another with the password to open the secure pdf.

  • Please send a code so I can open my adobe photoshop album starter edition 3.2 and transfer my photoes into an up to date program

    I am having trouble trying to get a code to register my adobe photoshop album starter edition 3.2. I have made many requests and nothing happens.   My photos are locked in that programm and can't be used at all.  If I had a code to open I coulod transfer them to an up to date program.

    Where are the photos that I imported into Adobe Photoshop Album Starter Edition?  
    Your photos are safe, and are present in the folder on your computer that you specified when importing them. If you used Photoshop Album Starter Edition to import your files from the camera without changing the default folder, look in this folder:
    Windows® XP: C:\Documents and Settings\[User Name]\My Documents\My Pictures\Adobe\Digital Camera Photos 
    Windows Vista®/7: C:\Users\[User Name]\Pictures\Adobe\Digital Camera Photos
    If you changed the folder, here are the search instructions:
    Photoshop Album Starter Edition support withdrawal FAQ

  • Dont get a Redeem code from Up To Date program

    Hello,
    I buyed a MacBook Air at 15 july. I was reading that i can update to Mountain Lion for free. I filled the up-to-date program 7 hours ago, but i dit not get a email with the redeem code to download Mountain Lion. Is the normal?
    Greetings,
    Yasin Gokce

    you will get 2 emails.
    1) with the link to download the software
    2) with the pass code to enter once you click the link
    Did my upgraded about 9 AM central time today and it took several hours but I got both codes today.
    Good luck you will enjoy the OS

  • SPM: Data Load Program / API Codes

    Hi Experts,
    In our Project,
    In Order to analyze an SPM Data Load Issue, we need to analyze Program / API Codes that Load Data into SPM Inbound Layer.
    How / where can we find the details of those Programs / API Codes ?
    Regards
    Pankaj

    Hi Neil,
    Thanks for your response. This is the Issue we are stuck currently, and need urgent help.
    Can you let me know which program loads the Data from Flat file into the Inbound DSO, so that we can debug the same. We are facing the issue with currency conversion. Overall there are 10 Currencies, but for EUR Currency, conversion is not happening, but its happening for others. so we need to debug the program to find the root cause. We have done all basic checks, like TCURR Table, OB08 etc.
    Really appreciate your help.
    Regards
    Pankaj

  • I used th Mountain Lion up to date program to redeem my code yesterday (25th July) but I still haven't got any email or anything. Is anyone else having the same problem?

    I used th Mountain Lion up to date program to redeem my code yesterday (25th July) but I still haven't got any email or anything. Is anyone else having the same problem?

    Same here...plopped down >$2700 USD on a new Retina MBP a few weeks ago with the promise of a free upgrade to ML when it was released.  Now, I have no doubts that I'll get the upgrade but I'm not crazy about having to wait behind scads of others who are shelling out a mere $20 bucks.
    I was given the same 72 hour speech by Apple Customer Support.  With my Up-To-Date claim reference number in hand, it seems like they would/could provide an instant turn-around to those of us who are excited/eager enough to call in.
    Apple does a lot of things right but people...especially the clientele that gravitate toward Apple products...expect excellence across the board.  It's like a "nearly" perfect date....beautiful night...best table in the restaurant...delicious dinner with a fabulous bottle of wine...your date is smokin' hot in a little black dress.  On the way back to her place, she unbuckles her seatbelt and leans across with a hand towards your leg and then lets a gigantic, tear-demanding **** that makes you want to gag.  The next day somebody asks, "How was your date?"

  • Up-to-date program (iWork and iLife)

    I have problem downloading iWork from Mac app store after receive redeem code from up-to-date program. I can use redeem code to download iWork but there was internet connection problem occur during download Page and keynote (I can finish download Number only). I can’t use this redeem code to try download again and it does not appear to resume download in purchase page of Mac app store. I have also tried the following
              1. Sign out my apple ID from Mac app store and sign in again, go to purchase page and found that it appear in "other purchase” tab in the purchase page with message in red color that “An error has occurred”.
              2. Click “Store” -> “Check for unfinished download” function from the menu bar and found message that “All purchases have been downloaded for this account” and no way to resume downloading.
    Moreover, after update to OS X 10.9, it doesn’t come with iLife. I can download Garageband from Mac app store for free but it will charge $14.99 each for iPhoto and iMovie.
    I have also email to apple by replying to the email which apple sent me the redeem code for up-to-date program ([email protected]). I'm not sure that if it will reach apple support or not becaue I'm not sure that if it some kinds of automatic reply email, However, I can't find any email that I can contact.
    I have also called apple support but it appear to be not working time for them when I called. I'm not available at their working time to call them. But I will try to call them if there is no way to find anyway to solve this.
    Therefore, could anyone tell me how to finish downloading Pages, Keynote, iPhoto and iMovie as I should receive these all apps for free? I would appreciate it if anyone can help.
    Thank you

    Hi KhunTop,
    Welcome to the Support Communities!
    The article below may be able to help you with this issue.
    Click on the link to see more details and screenshots. 
    Apple - Up-to-Date Program for Pages, Numbers, and Keynote
    http://www.apple.com/creativity-apps/mac/up-to-date/
    The Up-To-Date program entitles the purchaser of a qualifying new Mac or an Apple Certified Refurbished computer purchased on or after October 1, 2013 to upgrade to Pages, Numbers and Keynote.
    For qualifying purchases between October 1, 2013 and October 21, 2013 completed order form and dated, itemized sales receipt must be submitted by November 21, 2013 to qualify for this program.
    This offer is good only in the United States (50 states and the District of Columbia) and Canada, and valid only in accordance with the terms set forth in this document.
    Mac Up-To-Date Program
    https://uptodate.apple.com/welcome?locale=en_US
    Apple - Creativity and Productivity Apps
    http://www.apple.com/creativity-apps/mac/
    iMovie
    http://www.apple.com/mac/imovie/
    iPhoto
    http://www.apple.com/mac/iphoto/
    Garageband
    http://www.apple.com/mac/garageband/
    If you need to contact the iTunes Store Support, this article will explain how to do that:
    iTunes Store & Mac App Store: Seeing your purchase history and order numbers
    http://support.apple.com/kb/ht2727
    Cheers,
    Judy

  • When will the Up-to-Date program clear?

    I bought my MacBook Pro on June 15th, several days after Apple announced their back-to-school sale. This qualifies me for the free Mountain Lion upgrade. I applied for the free upgrade yesterday morning, going through the process of submitting my serial number and other info. When will this process clear and when will I receive my upgrade code?

    Right now Apple is having issues with the uo to date program. I too like you am waiting and hoped that it would be resolved today, but so far no luck. I know that they duplicated some redemption codes, so i think they are resolving that issue before giving out new codes.

  • How to Upload Program Source Code

    Hello,
    i have a program which downloads the source code into text files.
    I need to create all these into another server.
    so i need a program to upload these programs.
    Any idea how to it? Thanks in advance.
    Thanks&Regards,
    Sayanna Damerla

    Try this custom code:
    Upload and Download ABAP Source Code
    Source Code Listing
    Report: ZKBPROGS             *
    Function   : Up/Download ABAP reports complete with texts            *
            - this program does not update TRDIR with the                *
              TRDIR entries that are in the program uploaded.  Instead,  *
              current users stats are used.          *
            - this program allows selection of reports from a list or    *
              a single report can be tuped in and uploaded               *
            - this program also updates TADIR so that a development class*
              is assigned to the program             *
            - this program checks to see if the program already has a    *
              TRDIR entry, and if it does, warns the user                *
            - this program will save/restore the program documenation too*
    REPORT ZKBPROGS
           NO STANDARD PAGE HEADING
           LINE-SIZE  255.
    Declare Database Objects     *
    tables:
      DOKIL,
      TRDIR.
    Constants*
    CONSTANTS:
      MC_TRDIR_IDENTIFIER(72)  TYPE C VALUE '%&%& RDIR',
      MC_REPORT_IDENTIFIER(72) TYPE C VALUE '%&%& REPO',
      MC_TEXT_IDENTIFIER(72)   TYPE C VALUE '%&%& TEXP',
      MC_THEAD_IDENTIFIER(72)  TYPE C VALUE '%&%& HEAD',
      MC_DOC_IDENTIFIER(72)    TYPE C VALUE '%&%& DOKL',
      MC_TRDIR_SHORT(4)        TYPE C VALUE 'RDIR',
      MC_REPORT_SHORT(4)       TYPE C VALUE 'REPO',
      MC_TEXT_SHORT(4)         TYPE C VALUE 'TEXP',
      MC_THEAD_SHORT(4)        TYPE C VALUE 'HEAD',
      MC_DOC_SHORT(4)          TYPE C VALUE 'DOKP'.
    Declare Module level data structures             *
    DATA: BEGIN OF MTAB_PROGRAM_SOURCE OCCURS 0,
            LINE(72) TYPE C,
          END OF MTAB_PROGRAM_SOURCE.
    DATA: MTAB_PROGRAM_TRDIR LIKE TRDIR OCCURS 0 WITH HEADER LINE.
    DATA: MTAB_PROGRAM_TEXTS LIKE TEXTPOOL OCCURS 0 WITH HEADER LINE.
    DATA: MSTR_THEAD LIKE THEAD.
    DATA: BEGIN OF MTAB_PROGRAM_FILE OCCURS 0,
            LINE(275) TYPE C,
          END OF MTAB_PROGRAM_FILE.
    DATA: BEGIN OF MTAB_DIRECTORY OCCURS 0,
            NAME LIKE TRDIR-NAME,
            DESC(72) TYPE C,
            SAVENAME LIKE RLGRAP-FILENAME,
          END OF MTAB_DIRECTORY.
    DATA: BEGIN OF MTAB_PROGRAM_DOCUMENTATION OCCURS 0,
            LINE(255) TYPE C,
          END OF MTAB_PROGRAM_DOCUMENTATION.
    Selection Screen             *
    *-- Options for upload/download of programs
    SELECTION-SCREEN BEGIN OF BLOCK FRM_OPTIONS WITH FRAME TITLE TEXT-UDL.
    PARAMETERS:
      RB_DOWN RADIOBUTTON GROUP UDL DEFAULT 'X'.       " Download reports
    SELECTION-SCREEN BEGIN OF BLOCK FRM_TRDIR WITH FRAME TITLE TEXT-DIR.
    SELECT-OPTIONS:
      S_NAME  FOR TRDIR-NAME,              " Program Name
      S_SUBC  FOR TRDIR-SUBC               " Program Type
              DEFAULT 'F' OPTION EQ SIGN E," Exclude Functions by default
      S_CNAM  FOR TRDIR-CNAM               " Created by
              DEFAULT SY-UNAME,
      S_UNAM  FOR TRDIR-UNAM,              " Last Changed by
      S_CDAT  FOR TRDIR-CDAT,              " Creation date
      S_UDAT  FOR TRDIR-UDAT.              " Last update date
    SELECTION-SCREEN END OF BLOCK FRM_TRDIR.
    *-- Options for uploading programs
    PARAMETERS:
      RB_UP   RADIOBUTTON GROUP UDL.       " Upload reports
    SELECTION-SCREEN BEGIN OF BLOCK FRM_UPLOAD WITH FRAME TITLE TEXT-UPL.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(29) TEXT-SNG.
    PARAMETERS:
      RB_FILE RADIOBUTTON GROUP HOW DEFAULT 'X'.
    SELECTION-SCREEN COMMENT 33(42) TEXT-FNA.
    SELECTION-SCREEN END OF LINE.
    PARAMETERS:
      RB_LIST RADIOBUTTON GROUP HOW.
    SELECTION-SCREEN END OF BLOCK FRM_UPLOAD.
    SELECTION-SCREEN END OF BLOCK FRM_OPTIONS.
    *-- Options for up/downloading programs
    SELECTION-SCREEN BEGIN OF BLOCK FRM_FILEN WITH FRAME TITLE TEXT-FIL.
    PARAMETERS:
      RB_DOS  RADIOBUTTON GROUP FIL DEFAULT 'X', " Save to local
      RB_UNIX RADIOBUTTON GROUP FIL,       " Save to UNIX
      P_PATH  LIKE RLGRAP-FILENAME         " Path to save files to
            DEFAULT 'c:\temp\'.
    SELECTION-SCREEN END OF BLOCK FRM_FILEN.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_NAME-LOW.
      CALL FUNCTION 'F4_PROGRAM'
           EXPORTING
                OBJECT             = S_NAME-LOW
                SUPPRESS_SELECTION = 'X'
           IMPORTING
                RESULT             = S_NAME-LOW
           EXCEPTIONS
                OTHERS             = 1.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_NAME-HIGH.
      CALL FUNCTION 'F4_PROGRAM'
           EXPORTING
                OBJECT             = S_NAME-HIGH
                SUPPRESS_SELECTION = 'X'
           IMPORTING
                RESULT             = S_NAME-HIGH
           EXCEPTIONS
                OTHERS             = 1.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_UNAM-LOW.
      PERFORM GET_NAME USING 'S_UNAM-LOW'
                    CHANGING S_UNAM-LOW.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_UNAM-HIGH.
      PERFORM GET_NAME USING 'S_UNAM-HIGH'
                    CHANGING S_UNAM-HIGH.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_CNAM-LOW.
      PERFORM GET_NAME USING 'S_CNAM-LOW'
                    CHANGING S_CNAM-LOW.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_CNAM-HIGH.
      PERFORM GET_NAME USING 'S_CNAM-HIGH'
                    CHANGING S_CNAM-HIGH.
    TOP-OF-PAGE.
      IF RB_LIST = 'X'.
        FORMAT COLOR COL_HEADING.
        NEW-LINE.
        WRITE: AT 3 TEXT-H01,
               AT 15 TEXT-H03.
        FORMAT COLOR OFF.
      ENDIF.
    AT LINE-SELECTION.
      CHECK RB_LIST = 'X'.                 " only do in list mode
      READ LINE SY-CUROW FIELD VALUE MTAB_DIRECTORY-SAVENAME.
    *-- Read file into an internal table
      PERFORM READ_REPORT_FROM_DISK TABLES MTAB_PROGRAM_FILE
                USING  MTAB_DIRECTORY-SAVENAME.
    *-- Split table into TADIR entry, report lines, and report text
      PERFORM SPLIT_INCOMING_FILE TABLES MTAB_PROGRAM_FILE
                     MTAB_PROGRAM_SOURCE
                     MTAB_PROGRAM_TEXTS
                     MTAB_PROGRAM_DOCUMENTATION
            CHANGING TRDIR
                     MSTR_THEAD.
    *-- Save all of the data
      PERFORM INSERT_NEW_REPORT TABLES MTAB_PROGRAM_SOURCE
                   MTAB_PROGRAM_TEXTS
                   MTAB_PROGRAM_DOCUMENTATION
            USING  TRDIR
                   MSTR_THEAD.
    Start of processing          *
    START-OF-SELECTION.
      FORMAT COLOR COL_NORMAL.
      IF RB_DOWN = 'X'.
        PERFORM DOWNLOAD_REPORTS.
      ELSEIF RB_UP = 'X'.
        PERFORM UPLOAD_REPORTS.
      ENDIF.
    END-OF-SELECTION.
      IF RB_DOWN = 'X'.
        CONCATENATE P_PATH
                    'directory.txt'
          INTO P_PATH.
        PERFORM SAVE_TABLE_TO_FILE TABLES MTAB_DIRECTORY
               USING  P_PATH.
      ENDIF.
          FORM UPLOAD_REPORTS   *
    FORM UPLOAD_REPORTS.
    *-- Can upload a reports entered in selection criteria or
    *-- select from a list.  List can be from index.txt in same directory
    *-- (created by the download) or by reading the first line of each file
    *-- in the directory.
      IF RB_FILE = 'X'. " Upload single program from a file
    *-- Read file into an internal table
        PERFORM READ_REPORT_FROM_DISK TABLES MTAB_PROGRAM_FILE
                  USING  P_PATH.
    *-- Split table into TADIR entry, report lines, and report text
        PERFORM SPLIT_INCOMING_FILE TABLES MTAB_PROGRAM_FILE
                       MTAB_PROGRAM_SOURCE
                       MTAB_PROGRAM_TEXTS
                       MTAB_PROGRAM_DOCUMENTATION
              CHANGING TRDIR
                       MSTR_THEAD.
    *-- Save all of the data
        PERFORM INSERT_NEW_REPORT TABLES MTAB_PROGRAM_SOURCE
                     MTAB_PROGRAM_TEXTS
                     MTAB_PROGRAM_DOCUMENTATION
              USING  TRDIR
                     MSTR_THEAD.
      ELSEIF RB_LIST = 'X'. " Show list for user to choose from
    *-- get list of report names/descriptions from directory text
        CONCATENATE P_PATH
                    'directory.txt'
        INTO P_PATH.
        PERFORM READ_REPORT_FROM_DISK TABLES MTAB_DIRECTORY
                  USING  P_PATH.
        SORT MTAB_DIRECTORY.
    *-- Write out list of report names/descriptions
        LOOP AT MTAB_DIRECTORY.
          WRITE:
            / MTAB_DIRECTORY-NAME UNDER TEXT-H01,
              MTAB_DIRECTORY-DESC UNDER TEXT-H03,
              MTAB_DIRECTORY-SAVENAME.
        ENDLOOP.
    *-- Process user selections for reports to upload.
      ENDIF.
    ENDFORM.           " upload_reports
          FORM DOWNLOAD_REPORTS *
          From the user selections, get all programs that meet the      *
          criteria, and save them in ftab_program_directory.            *
          Also save the report to disk.             *
    FORM DOWNLOAD_REPORTS.
      DATA:
        LC_FULL_FILENAME LIKE RLGRAP-FILENAME.
    *-- The table is put into an internal table because the program will
    *-- abend if multiple transfers to a dataset occur within a SELECT/
    *-- ENDSELCT (tested on 3.1H)
      SELECT * FROM  TRDIR
             INTO TABLE MTAB_PROGRAM_TRDIR
             WHERE  NAME  IN S_NAME
             AND    SUBC  IN S_SUBC
             AND    CNAM  IN S_CNAM
             AND    UNAM  IN S_UNAM
             AND    CDAT  IN S_CDAT
             AND    UDAT  IN S_UDAT.
      LOOP AT MTAB_PROGRAM_TRDIR.
    *-- Clear out text and source code tables
        CLEAR:
          MTAB_PROGRAM_FILE,
          MTAB_PROGRAM_SOURCE,
          MTAB_PROGRAM_TEXTS,
          MTAB_PROGRAM_DOCUMENTATION.
        REFRESH:
          MTAB_PROGRAM_FILE,
          MTAB_PROGRAM_SOURCE,
          MTAB_PROGRAM_TEXTS,
          MTAB_PROGRAM_DOCUMENTATION.
    *-- Get the report
        READ REPORT MTAB_PROGRAM_TRDIR-NAME INTO MTAB_PROGRAM_SOURCE.
    *-- Get the text for the report
        READ TEXTPOOL MTAB_PROGRAM_TRDIR-NAME INTO MTAB_PROGRAM_TEXTS.
    *-- Get the documentation for the report
        CLEAR DOKIL.
        SELECT * UP TO 1 ROWS FROM DOKIL
               WHERE  ID          = 'RE'
               AND    OBJECT      = MTAB_PROGRAM_TRDIR-NAME
               AND    LANGU       = SY-LANGU
               AND    TYP         = 'E'
               ORDER BY VERSION DESCENDING.
        ENDSELECT.
    *-- Documentation exists for this object
        IF SY-SUBRC = 0.
          CALL FUNCTION 'DOCU_READ'
               EXPORTING
                    ID      = DOKIL-ID
                    LANGU   = DOKIL-LANGU
                    OBJECT  = DOKIL-OBJECT
                    TYP     = DOKIL-TYP
                    VERSION = DOKIL-VERSION
               IMPORTING
                    HEAD    = MSTR_THEAD
               TABLES
                    LINE    = MTAB_PROGRAM_DOCUMENTATION
               EXCEPTIONS
                    OTHERS  = 1.
        ENDIF.
    *-- Put the report code and texts into a single file
    *-- Put the identifier line in so that the start of the TRDIR line
    *-- is marked
        CONCATENATE MC_TRDIR_IDENTIFIER
        MTAB_PROGRAM_TRDIR-NAME
        INTO MTAB_PROGRAM_FILE-LINE.
        APPEND MTAB_PROGRAM_FILE.
    *-- Add the TRDIR line
        MTAB_PROGRAM_FILE-LINE = MTAB_PROGRAM_TRDIR.
        APPEND MTAB_PROGRAM_FILE.
    *-- Put the identifier line in so that the start of the report code
    *-- is marked
        CONCATENATE MC_REPORT_IDENTIFIER
                    MTAB_PROGRAM_TRDIR-NAME
          INTO MTAB_PROGRAM_FILE-LINE.
        APPEND MTAB_PROGRAM_FILE.
    *-- Add the report code
        LOOP AT MTAB_PROGRAM_SOURCE.
          MTAB_PROGRAM_FILE = MTAB_PROGRAM_SOURCE.
          APPEND MTAB_PROGRAM_FILE.
        ENDLOOP.
    *-- Put the identifier line in so that the start of the report text
    *-- is marked
        CONCATENATE MC_TEXT_IDENTIFIER
                    MTAB_PROGRAM_TRDIR-NAME
          INTO MTAB_PROGRAM_FILE-LINE.
        APPEND MTAB_PROGRAM_FILE.
    *-- Add the report texts
        LOOP AT MTAB_PROGRAM_TEXTS.
          MTAB_PROGRAM_FILE = MTAB_PROGRAM_TEXTS.
          APPEND MTAB_PROGRAM_FILE.
        ENDLOOP.
    *-- Put the identifier line in so that the start of the THEAD record
    *-- is marked
        CONCATENATE MC_THEAD_IDENTIFIER
                    MTAB_PROGRAM_TRDIR-NAME
          INTO MTAB_PROGRAM_FILE-LINE.
        APPEND MTAB_PROGRAM_FILE.
        MTAB_PROGRAM_FILE = MSTR_THEAD.
        APPEND MTAB_PROGRAM_FILE.
    *-- Put the identifier line in so that the start of the report
    *-- documentation is marked
        CONCATENATE MC_DOC_IDENTIFIER
                    MTAB_PROGRAM_TRDIR-NAME
          INTO MTAB_PROGRAM_FILE-LINE.
        APPEND MTAB_PROGRAM_FILE.
    *-- Add the report documentation
        LOOP AT MTAB_PROGRAM_DOCUMENTATION.
          MTAB_PROGRAM_FILE = MTAB_PROGRAM_DOCUMENTATION.
          APPEND MTAB_PROGRAM_FILE.
        ENDLOOP.
    *-- Make the fully pathed filename that report will be saved to
        CONCATENATE P_PATH
                    MTAB_PROGRAM_TRDIR-NAME
                    '.txt'
          INTO LC_FULL_FILENAME.
        PERFORM SAVE_TABLE_TO_FILE TABLES MTAB_PROGRAM_FILE
               USING  LC_FULL_FILENAME.
    *-- Write out message with Program Name/Description
        READ TABLE MTAB_PROGRAM_TEXTS WITH KEY ID = 'R'.
        IF SY-SUBRC = 0.
          MTAB_DIRECTORY-NAME = MTAB_PROGRAM_TRDIR-NAME.
          MTAB_DIRECTORY-DESC = MTAB_PROGRAM_TEXTS-ENTRY.
          MTAB_DIRECTORY-SAVENAME = LC_FULL_FILENAME.
          APPEND MTAB_DIRECTORY.
          WRITE: / MTAB_PROGRAM_TRDIR-NAME,
                   MTAB_PROGRAM_TEXTS-ENTRY(65) COLOR COL_HEADING.
        ELSE.
          MTAB_DIRECTORY-NAME = MTAB_PROGRAM_TRDIR-NAME.
          MTAB_DIRECTORY-DESC = 'No description available'.
          MTAB_DIRECTORY-SAVENAME = LC_FULL_FILENAME.
          APPEND MTAB_DIRECTORY.
          WRITE: / MTAB_PROGRAM_TRDIR-NAME.
        ENDIF.
      ENDLOOP.
    ENDFORM.           " BUILD_PROGRAM_DIRECTORY
          FORM SAVE_TABLE_TO_FILE                   *
    -->  FTAB_TABLE            *
    -->  F_FILENAME            *
    FORM SAVE_TABLE_TO_FILE TABLES FTAB_TABLE
        USING  F_FILENAME.
      IF RB_DOS = 'X'.                  " Save file to presentation server
        CALL FUNCTION 'WS_DOWNLOAD'
             EXPORTING
                  FILENAME = F_FILENAME
                  FILETYPE = 'ASC'
             TABLES
                  DATA_TAB = FTAB_TABLE
             EXCEPTIONS
                  OTHERS   = 4.
        IF SY-SUBRC NE 0.
          WRITE: / 'Error opening dataset' COLOR COL_NEGATIVE,
                   F_FILENAME COLOR COL_NEGATIVE.
        ENDIF.
      ELSE.            " Save file to application server
        OPEN DATASET F_FILENAME FOR OUTPUT IN TEXT MODE.
        IF SY-SUBRC = 0.
          LOOP AT FTAB_TABLE.
            TRANSFER FTAB_TABLE TO F_FILENAME.
            IF SY-SUBRC NE 0.
              WRITE: / 'Error writing record to file;' COLOR COL_NEGATIVE,
                       F_FILENAME COLOR COL_NEGATIVE.
            ENDIF.
          ENDLOOP.
        ELSE.
          WRITE: / 'Error opening dataset' COLOR COL_NEGATIVE,
                   F_FILENAME COLOR COL_NEGATIVE.
        ENDIF.
      ENDIF.           " End RB_DOS
    ENDFORM.           " SAVE_PROGRAM
          FORM READ_REPORT_FROM_DISK                *
          Read report into internal table.  Can read from local or      *
          remote computer       *
    FORM READ_REPORT_FROM_DISK TABLES FTAB_TABLE
           USING  F_FILENAME.
      DATA:
         LC_MESSAGE(128) TYPE C.
      CLEAR   FTAB_TABLE.
      REFRESH FTAB_TABLE.
      IF RB_DOS = 'X'.
        TRANSLATE F_FILENAME USING '/\'.   " correct slash for Dos PC file
        CALL FUNCTION 'WS_UPLOAD'
             EXPORTING
                  FILENAME            = F_FILENAME
                  FILETYPE            = 'ASC'
             TABLES
                  DATA_TAB            = FTAB_TABLE
             EXCEPTIONS
                  CONVERSION_ERROR    = 1
                  FILE_OPEN_ERROR     = 2
                  FILE_READ_ERROR     = 3
                  INVALID_TABLE_WIDTH = 4
                  INVALID_TYPE        = 5
                  NO_BATCH            = 6
                  UNKNOWN_ERROR       = 7
                  OTHERS              = 8.
        IF SY-SUBRC >< 0.
          WRITE: / 'Error reading file from local PC' COLOR COL_NEGATIVE.
        ENDIF.
      ELSEIF RB_UNIX = 'X'.
        TRANSLATE F_FILENAME USING '\/'.   " correct slash for unix
        OPEN DATASET F_FILENAME FOR INPUT MESSAGE LC_MESSAGE IN TEXT MODE.
        IF SY-SUBRC = 0.
          DO.
            READ DATASET F_FILENAME INTO FTAB_TABLE.
            IF SY-SUBRC = 0.
              APPEND FTAB_TABLE.
            ELSE.
              EXIT.
            ENDIF.
          ENDDO.
          CLOSE DATASET F_FILENAME.
        ELSE.
          WRITE: / 'Error reading file from remote computer'
      COLOR COL_NEGATIVE,
                 / LC_MESSAGE,
                 / F_FILENAME.
          SY-SUBRC = 4.
        ENDIF.
      ENDIF.
    ENDFORM.           " READ_REPORT_FROM_DISK
          FORM SPLIT_INCOMING_FILE                  *
    -->  FTAB_PROGRAM_FILE     *
    -->  FTAB_PROGRAM_SOURCE   *
    -->  ` *
    -->  FTAB_PROGRAM_TEXTS    *
    FORM SPLIT_INCOMING_FILE TABLES FTAB_PROGRAM_FILE
                     STRUCTURE MTAB_PROGRAM_FILE
                FTAB_PROGRAM_SOURCE
                     STRUCTURE MTAB_PROGRAM_SOURCE
                FTAB_PROGRAM_TEXTS
                     STRUCTURE MTAB_PROGRAM_TEXTS
                FTAB_PROGRAM_DOCUMENTATION
                    STRUCTURE MTAB_PROGRAM_DOCUMENTATION
       CHANGING FSTR_TRDIR
                FSTR_THEAD.
      DATA:
        LC_DATATYPE(4) TYPE C,             " Type of data, REPO, TEXP, RDIR
        LC_PROGRAM_FILE LIKE MTAB_PROGRAM_FILE.
      LOOP AT FTAB_PROGRAM_FILE.
        LC_PROGRAM_FILE = FTAB_PROGRAM_FILE.
        CASE LC_PROGRAM_FILE(9).
          WHEN MC_TRDIR_IDENTIFIER.
            LC_DATATYPE = MC_TRDIR_SHORT.
          WHEN MC_REPORT_IDENTIFIER.
            LC_DATATYPE = MC_REPORT_SHORT.
          WHEN MC_TEXT_IDENTIFIER.
            LC_DATATYPE = MC_TEXT_SHORT.
          WHEN MC_DOC_IDENTIFIER.
            LC_DATATYPE = MC_DOC_SHORT.
          WHEN MC_THEAD_IDENTIFIER.
            LC_DATATYPE = MC_THEAD_SHORT.
          WHEN OTHERS. " Actual contents of report, trdir, or text
            CASE LC_DATATYPE.
              WHEN MC_TRDIR_SHORT.
                FSTR_TRDIR = FTAB_PROGRAM_FILE.
              WHEN MC_REPORT_SHORT.
                FTAB_PROGRAM_SOURCE = FTAB_PROGRAM_FILE.
                APPEND FTAB_PROGRAM_SOURCE.
              WHEN MC_TEXT_SHORT.
                FTAB_PROGRAM_TEXTS = FTAB_PROGRAM_FILE.
                APPEND FTAB_PROGRAM_TEXTS.
              WHEN MC_THEAD_SHORT.
                FSTR_THEAD = FTAB_PROGRAM_FILE.
              WHEN MC_DOC_SHORT.
                FTAB_PROGRAM_DOCUMENTATION = FTAB_PROGRAM_FILE.
                APPEND FTAB_PROGRAM_DOCUMENTATION.
            ENDCASE.
        ENDCASE.
      ENDLOOP.
    ENDFORM.           " SPLIT_INCOMING_FILE
          FORM INSERT_NEW_REPORT*
    -->  FTAB_PROGRAM_SOURCE   *
    -->  FTAB_PROGRAM_TEXTS    *
    -->  F_TRDIR               *
    FORM INSERT_NEW_REPORT TABLES FTAB_PROGRAM_SOURCE
                  STRUCTURE MTAB_PROGRAM_SOURCE
              FTAB_PROGRAM_TEXTS
                   STRUCTURE MTAB_PROGRAM_TEXTS
              FTAB_PROGRAM_DOCUMENTATION
                   STRUCTURE MTAB_PROGRAM_DOCUMENTATION
       USING  FSTR_TRDIR LIKE TRDIR
              FSTR_THEAD LIKE MSTR_THEAD.
      DATA:
        LC_OBJ_NAME LIKE E071-OBJ_NAME,
        LC_LINE2(40)     TYPE C,
        LC_ANSWER(1)     TYPE C.
    *-- read trdir to see if the report already exists, if it does, prompt
    *-- user to overwrite or abort.
      SELECT SINGLE * FROM TRDIR WHERE NAME = FSTR_TRDIR-NAME.
      IF SY-SUBRC = 0. " Already exists
        CONCATENATE 'want to overwrite report'
                    FSTR_TRDIR-NAME
          INTO LC_LINE2 SEPARATED BY SPACE.
        CONCATENATE LC_LINE2
          INTO LC_LINE2.
        CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
             EXPORTING
                  DEFAULTOPTION  = 'N'
                  TEXTLINE1   = 'The selected report already exists, do you'
                  TEXTLINE2      = LC_LINE2
                  TITEL          = 'Report already exists'
                  CANCEL_DISPLAY = SPACE
             IMPORTING
                  ANSWER         = LC_ANSWER
             EXCEPTIONS
                  OTHERS         = 1.
      ELSE.
        LC_ANSWER = 'J'.
      ENDIF.
      IF LC_ANSWER = 'J'.
    *-- Create the TADIR entry.  (TRDIR entry created by INSERT REPORT)
        LC_OBJ_NAME = TRDIR-NAME.
        CALL FUNCTION 'TR_TADIR_POPUP_ENTRY_E071'
             EXPORTING
                  WI_E071_PGMID     = 'R3TR'
                  WI_E071_OBJECT    = 'PROG'
                  WI_E071_OBJ_NAME  = LC_OBJ_NAME
                  WI_TADIR_DEVCLASS = '$TMP'
             EXCEPTIONS
                  EXIT              = 3
                  OTHERS            = 4.
        IF SY-SUBRC = 0.
    *-- Create Report
          INSERT REPORT FSTR_TRDIR-NAME FROM FTAB_PROGRAM_SOURCE.
    *-- Create Texts
          INSERT TEXTPOOL FSTR_TRDIR-NAME FROM FTAB_PROGRAM_TEXTS
                 LANGUAGE SY-LANGU.
    *-- Save Documentation
          CALL FUNCTION 'DOCU_UPDATE'
               EXPORTING
                    HEAD    = FSTR_THEAD
                    STATE   = 'A'
                    TYP     = 'E'
                    VERSION = '1'
               TABLES
                    LINE    = FTAB_PROGRAM_DOCUMENTATION
               EXCEPTIONS
                    OTHERS  = 1.
        ELSE.
          WRITE: / 'Error updating the TADIR entry' COLOR COL_NEGATIVE,
                   'Program' COLOR COL_NEGATIVE INTENSIFIED OFF,
                   FSTR_TRDIR-NAME, 'was not loaded into SAP.'
                      COLOR COL_NEGATIVE INTENSIFIED OFF.
        ENDIF.
      ELSE.
        WRITE: / FSTR_TRDIR-NAME COLOR COL_NEGATIVE,
                 'was not uploaded into SAP.  Action cancelled by user'
                     COLOR COL_NEGATIVE INTENSIFIED OFF.
      ENDIF.
    ENDFORM.           " INSERT_NEW_REPORT
          FORM GET_NAME         *
    -->  VALUE(F_FIELD)        *
    -->  F_NAME                *
    FORM GET_NAME USING VALUE(F_FIELD)
               CHANGING F_NAME.
      DATA: LTAB_FIELDS LIKE DYNPREAD OCCURS 0 WITH HEADER LINE,
            LC_PROG LIKE D020S-PROG,
            LC_DNUM LIKE D020S-DNUM.
      TRANSLATE F_FIELD TO UPPER CASE.
      refresh ltab_fields.
      LTAB_FIELDS-FIELDNAME = F_FIELD.
      append ltab_fields.
      LC_PROG =  SY-REPID .
      LC_DNUM =  SY-DYNNR .
      CALL FUNCTION 'DYNP_VALUES_READ'
           EXPORTING
                DYNAME     = LC_PROG
                DYNUMB     = LC_DNUM
           TABLES
                dynpfields = ltab_fields
           EXCEPTIONS
                OTHERS     = 01.
      read table ltab_fields index 1.
      IF SY-SUBRC EQ 0.
        F_NAME = LTAB_FIELDS-FIELDVALUE.
        refresh ltab_fields.
      ENDIF.
      CALL FUNCTION 'F4_USER'
           EXPORTING
                OBJECT = F_NAME
           IMPORTING
                RESULT = F_NAME.
    ENDFORM.           " GET_NAME
    Program Texts
    DIR             File Download Options (File Selection)
    FIL             File Options     
    FNA             Enter filename below (under File Options)
    H01             Prog Name
    H03             Program Description
    SNG             Upload a single file
    UDL             Upload to SAP/Download from SAP
    UPL             File Upload Options
    R               Backup/Restore program source code with texts
    P_PATH          Path to save programs to
    RB_DOS          Files on local computer
    RB_DOWN         Download Programs
    RB_FILE         Upload a single file
    RB_LIST         Select program(s) from a list          
    RB_UNIX         Files on remote computer               
    RB_UP           Upload Programs to SAP                 
    S_CDAT          Date Created       
    S_CNAM          Created by UserID  
    S_NAME          Program Name       
    S_SUBC          Program Type       
    S_UDAT          Date Changed       
    S_UNAM          Last Changed by UserID     
    Regards,
    Joy.

  • Is anyone else having trouble with the Up To Date Program?

    I bought a brand new Macbook Pro with Retina Display from the Apple Online Store, on June 15. Last week when Mountain Lion was released, I attempted to obtain a OX upgrade code throught the Up-To-Date Program. Then...the unthinkable happene! I got rejected by Apple. I first sent in my Acknowledgment of Order to prove my purchase, part of the Up-To-Date Program. I was rejected because Apple found the claim wasn't supported.
    SO!!
    I resubmitted with my Acknowledgment of Order, "Thank You" document from Apple when I purchased the Macbook, shipping detail I received from UPS when they delivered it to me (apparently Apple wants prove that the product was shipped), the notification of purchase, and the notification of shipping. With so many support documents, I still got rejected hours later.
    I AM AT LOSS! What exactly is Apple looking for! It's clear that I purchased the product. I have the documents submitted. I logged in my Apple account and found out my Macbook Pro IS REGISTERED under my name. I even phoned customer support, and the guy over the phone even said, "I see you bought and registered the Retina display model." when I inquired about my claim. So CLEARLY, they KNOW I purchased the Macbook.
    Okay. I have the documents. I got rejected twice. The email from Apple the second time left me an address to send an inquiry.
    I sent an inqury with ABSOUTELY EVERYTHING (invoice, notifications, etc). That was three days ago. I received NO reply.
    Let's recount. Apple knows that I purchased the Retina Display model. I've sent in multiple documents which are only received if one actually purchase their products. They rejected the validation of my purchase outright in addition to the lack of reply and service. The conclusion that I've reached is that Apple doesn't want to give out Mountain Lion codes. Needless to say, I got "appled".
    I searched on the forums, and some people who obtained codes from the Up to Date Program claimed that their codes don't work. Is anyone else getting duped by Apple or "appled"??

    There have been some ongoing discussions about this problem that some are having - see the "More Like This" to the right.
    Clinton

  • Standard program on good received statement

    Hi all,
    can anyone tell me any standard program on good received statement .

    Hi
    check this code
    report zmmgnrep0001
           line-count 58
           line-size 234
           no standard page heading
           message-id zpp.
    TABLES *********************************
    tables : mseg,
             mkpf,
             bkpf,
             ekbe,
             bseg,
             rseg,
             rbkp.
    DATA DECLARATION ****************************
    *data xekbe like ekbe occurs 0 with header line.
    *data zxekbe like ekbe occurs 0 with header line.
    *data :mirodoc like ekbe-belnr,
         mbudat like ekbe-budat.
    data xekbe like ekbe occurs 0 with header line.
    data zxrbkp like rbkp occurs 0 with header line.
    data zrseg like rseg  occurs 0 with header line.
    data :mirodoc like rseg-belnr,
          mbudat like rbkp-budat.
    data : begin of icheck occurs 0,
             checkdoc like rseg-belnr,
           end of icheck.
    data: begin of itab occurs 0,
            mblnr  like mkpf-mblnr,
            mjahr  like mkpf-mjahr,
            budat  like mkpf-budat,
            bldat  like mkpf-bldat,
            xblnr  like mkpf-xblnr,
            zeile  like mseg-zeile,
            bwart  like mseg-bwart,
            ebeln  like mseg-ebeln,
            ebelp  like mseg-ebelp,
            lifnr  like mseg-lifnr,
            lfbnr  like mseg-lfbnr,
            lfbja  like mseg-lfbja,
            lfpos  like mseg-lfpos,
            belnr  like bkpf-belnr,
            bxblnr like bkpf-xblnr,
            bbudat like bkpf-budat,
            wrbtr  like bseg-wrbtr,
            dmbtr  like bseg-dmbtr,
            kursf  like bkpf-kursf,
            grri   like bseg-hkont,
            accn   like bkpf-belnr,
           mirodoc like ekbe-belnr,
           mbudat  like ekbe-budat,
            mirodoc like rseg-belnr,
            mbudat  like rbkp-budat,
          end of itab.
    data : xmseg like mseg occurs 0 with header line,
           xmkpf like mkpf occurs 0 with header line.
    Modifed  by Raja Robinson,TTIL pune *****************************
    data: counter(10),
          counter1(10),
          flag,
          belnr like bkpf-belnr,
          xblnr like bkpf-xblnr,
          budat like bkpf-budat,
          totlc like bseg-dmbtr,
          totfc like bseg-wrbtr,
          kursf like bkpf-kursf,
          grri like bseg-hkont,
          nilcount(5).
    data: begin of hdg occurs 10,
            f1          type c   value '|',
            line(232),
            f2          type c   value '|',
          end of hdg.
    SELECTION SCREEN ****************************
    selection-screen begin of block input with frame.
    select-options: pos_date for mkpf-budat,
                    mat_no   for mseg-matnr,
                    mv_type  for mseg-bwart,
                    vend_cd  for mseg-lifnr,
                    po_no    for mseg-ebeln,
                    hkont    for bseg-hkont.
    selection-screen end of block input.
    BEGIN OF CODE ******************************
    BEGIN OF MAIN CODE ***************************
    start-of-selection.
      perform initialization.
      perform get_data_for_input.
      perform filter_data.
      perform getmirodata.
      perform format_data.
      perform print_data.
    *&      Form  INITIALIZATION
          text
    -->  p1        text
    <--  p2        text
    form initialization.
    endform.                               " INITIALIZATION
    *&      Form  GET_DATA_FOR_INPUT
          text
    -->  p1        text
    <--  p2        text
    form get_data_for_input.
      select a~mblnr                       " Material Document (GRN No.)
             a~mjahr                       " Material Document Year
             a~budat                       " Material Document Posting Date
             a~bldat                       " Material Document Date
             a~xblnr       " Reference Document (Invoice No.)
             b~zeile                       " Material Document Item No.
             b~bwart       " Movement Type (101 - GR Iss., 102 - GR Reverse)
             b~ebeln                       " Purchase Order
             b~ebelp                       " Purchase Order Line Number
             b~lifnr                       " Vendor Code
             b~lfbnr " Reference Document No(Contains 101 No in case of 102)
             b~lfbja                       " Reference Document Year
             b~lfpos                       " Reference Document Item No.
             into corresponding fields of table itab
             from mkpf as a
             inner join mseg as b
             on  amblnr = bmblnr
             and amjahr = bmjahr
             where a~budat in pos_date
             and   b~bwart in mv_type
             and   b~ebeln in po_no
             and   b~matnr in mat_no
             and   b~lifnr in vend_cd.
      if sy-subrc <> 0.
        message e000(zpp) with 'No Data Found for the Input Criteria.'.
      endif.
    endform.                               " GET_DATA_FOR_INPUT
    *&      Form  GETMIRODATA
    form getmirodata.
    select * from rseg into table zrseg for all entries in itab
                  where  ebeln = itab-ebeln
                     and ebelp = itab-ebelp.
    select * from rbkp into table zxrbkp for all entries in zrseg
                   where  belnr = zrseg-belnr.
    endform.
    *&      Form  FILTER_DATA
          text
    -->  p1        text
    <--  p2        text
    form filter_data.
      sort itab by lifnr mblnr ebeln.
      loop at itab.
        if itab-bwart = '102'.
          delete itab where mblnr = itab-lfbnr
                      and   mjahr = itab-lfbja
                      and   zeile = itab-lfpos.
          delete itab.
        endif.
      endloop.
    endform.                               " FILTER_DATA
    *&      Form  FORMAT_DATA
          text
    -->  p1        text
    <--  p2        text
    form format_data.
      loop at itab.
        clear : ekbe,bkpf.
    *select * from ekbe
                into corresponding fields of table zxekbe
               where ebeln = itab-ebeln   "xmseg-ebeln
               and   ebelp = itab-ebelp   "xmseg-ebelp
               and   bewtp  in ('R', 'Q').
        select * from ekbe
                 into corresponding fields of table xekbe
                where ebeln = itab-ebeln   "xmseg-ebeln
                and   ebelp = itab-ebelp   "xmseg-ebelp
                and   lfbnr = itab-mblnr   "xmseg-mblnr
                and   lfgja = itab-mjahr   "xmseg-mjahr
                and   lfpos = itab-zeile   "xmseg-zeile
                and   bewtp in ('E', 'R').
        if sy-subrc = 0.
          loop at xekbe.
            case xekbe-bewtp.
              when 'E'.
                select single * from bkpf
                               where bukrs = 'GMI'
                              and   belnr like '%'
                              and   gjahr like '%'
                               and   bstat = space
                               and   xblnr = xekbe-xblnr
                               and   blart = 'WE'.
                              and   budat = xekbe-budat
                              and   bldat = xekbe-bldat and  blart = 'WE'.
                itab-wrbtr = xekbe-wrbtr.
                itab-dmbtr = xekbe-dmbtr.
                itab-kursf = bkpf-kursf.
                itab-accn = bkpf-belnr.
              when 'R'.
                select single * from bkpf
                               where bukrs = 'GMI'
                               and   belnr = xekbe-belnr
                               and   gjahr = xekbe-gjahr.
                move bkpf-belnr to itab-belnr.
                move bkpf-xblnr to itab-bxblnr.
                move bkpf-budat to itab-bbudat.
            endcase.
            select single * from bseg where bukrs = bkpf-bukrs and gjahr =
            bkpf-gjahr and belnr = bkpf-belnr and buzid = 'W'.
            itab-grri = bseg-hkont.
            clear bkpf.
          endloop.
        endif.
      read table zrseg with key  ebeln = itab-ebeln
                                 ebelp = itab-ebelp.
               on change of zrseg-belnr.
              if not icheck[] is initial.
              read table icheck with key checkdoc = zrseg-belnr.
                if sy-subrc <> 0.
                icheck-checkdoc = zrseg-belnr.
                 append icheck.
               move zrseg-belnr to itab-mirodoc.
               read table zxrbkp with key belnr = zrseg-belnr.
               if zxrbkp-budat >= itab-budat.
                  move zxrbkp-budat to itab-mbudat.
                endif.
               endif.
             else.
              move zrseg-belnr to itab-mirodoc.
               icheck-checkdoc = zrseg-belnr.
                 append icheck.
                endif.
                read table zxrbkp with key belnr = zrseg-belnr.
               if zxrbkp-budat >= itab-budat.
                  move zxrbkp-budat to itab-mbudat.
                endif.
               endon.
    read table zxekbe with key ebeln = itab-ebeln
                                       ebelp = itab-ebelp.
              move zxekbe-belnr to itab-mirodoc.
              move zxekbe-budat to itab-mbudat.
           clear: zxekbe.
    ********- SZ398R on 22.04.2008
        modify itab.
      endloop.
      sort itab by mblnr.
      counter = 0.
    endform.                               " FORMAT_DATA
    *&      Form  PRINT_DATA
          text
    -->  p1        text
    <--  p2        text
    form print_data.
      if hkont <> ''.
        delete  itab where not  grri in hkont.
      endif.
      loop at itab.
        clear flag.
        mirodoc = itab-mirodoc.
        mbudat  = itab-mbudat.
        on change of itab-mblnr.
          counter = counter + 1.
          write:/0(12)  itab-lifnr,        " to out-line+0(12).
                 13(10) itab-mblnr,        " to out-line+13(10).
                 24(10) itab-budat,        " to out-line+24(10).
                 36(16) itab-xblnr,        " to out-line+36(16).
                 53(10) itab-bldat,        " to out-line+53(10).
                 64(10) itab-ebeln,        " to out-line+64(10),
                 160(12) itab-accn,
                180(15) itab-grri.
          flag = 1.
        endon.
        if belnr = '   '.
          belnr = itab-belnr.
          xblnr = itab-bxblnr.
          budat = itab-bbudat.
          kursf = itab-kursf.
        endif.
        totlc = totlc + itab-dmbtr.
        totfc = totfc + itab-wrbtr.
        counter1 = counter1 + 1.
        at end of mblnr.
          if belnr = '   '.
            belnr = 'Nil'.
            nilcount = nilcount + 1.
          endif.
          write: 75(16)  totlc no-zero,
                 92(16)  totfc no-zero,
                 109(8)  kursf no-zero,
                 118(10) belnr,
                 129(16) xblnr,
                 146(10) budat,
                 198 mirodoc,
                 215 mbudat.
               CLEAR:mirodoc,mbudat  .
          clear: totlc, totfc, belnr, xblnr, budat.
        endat.
      endloop.
      uline.
      write : / counter, 'GRNs Selected'.
    write : / counter1, 'records selected.'.
      write : / nilcount, 'GRNs have no JV attached'.
      write : 69 '***END OF REPORT*****'.
    endform.                               " PRINT_DATA
    TOP OF PAGE *******************************
    top-of-page.
      uline.
      clear hdg-line.
      write : 'General Motors India Confidential' to hdg-line+90.
      write : hdg color col_heading intensified.
      clear hdg-line.
      write : 'Report : ZMM4' to hdg-line+1.
      write : hdg color col_heading intensified.
      clear hdg-line.
      write : 'Date   :' to hdg-line+10.
      write : sy-datum to hdg-line+20.
      write : sy-uzeit to hdg-line+39.
      write : 'Requested By :' to hdg-line+55.
      write : sy-uname to hdg-line+70.
      write : hdg color col_heading intensified.
      clear hdg-line.
      write :  'Goods Receiving Report' to hdg-line+45,
               'Page No.     : '    to hdg-line+75,
               sy-pagno             to hdg-line+91(3).
      write : hdg color col_heading intensified off.
      uline.
      clear hdg-line.
      write :/0(12)   'Vendor',            "          to hdg-line+0,
              13(10)  'GRN No.',           "          to hdg-line+13,
              24(10)  'GRN Date',          "          to hdg-line+24,
              36(16)  'Invoice No.',       "          to hdg-line+36,
              53(10)  'Inv. Dt.',          "          to hdg-line+53,
              64(10)  'PO No.',            "          to hdg-line+64,
              75(16)  'Amount in LC' right-justified, " to hdg-line+153,
              92(16)  'Amount in FC' right-justified, " to hdg-line+179,
              109(8)  'Exchg Rt' right-justified,     " to hdg-line+167,
              118(10) 'JV No.',            "          to hdg-line+193,
              129(16) 'JV.Reference',      "          to hdg-line+204,
              146(10) 'Post.date',         "          to hdg-line+221.
              160     'Account No',
              180     'Acc Post',
             198     'MIRO Document',
             215     'MIRO Post'.
    END OF CODE *******************************
    thanks
    sitaram

  • OS X Mountain Lion Up-to-Date-program Delay?

    So I went to the "OS X Mountain Lion Up-to-Date-program" page and entered my serial number and got the message that I would receive an e-mail when it had been verified.
    It has now been more than 30 minutes, which makes me fear that the verification process is manual and I might have to wait long before getting my code.
    Does anybody have any insights into this?

    A lot of pepople get their codes allmost instantly, in a few mins, but after they got a this code has benne already claimed error message in the store. You can find more info here: https://discussions.apple.com/thread/4134733?tstart=0

  • I just bought a iTunes card and its not accepting it.  It already sent it to the support team and they said they were going to get back to my within 24 hours and i am trying to buy a program in the app store for work.  How can I expedite this process?

    I just bought a iTunes card and its not accepting it.  It already sent it to the support team and they said they were going to get back to my within 24 hours and i am trying to buy a program in the app store for work.  How can I expedite this process?

    Has it been 24 hours?
    I take it this was a gift card.  iTunes Store:  Invalid, Inactive, or Illegible codes http://support.apple.com/kb/TS1292 - gift cards
    I don't know if this provides an alternative means: https://expresslane.apple.com ; select 'iTunes' in the first column; 'iTunes Store' in the second column
    If you are really desperate you could buy the app yourself, then request reimbursement.

Maybe you are looking for

  • Ipad to HDTV via PS3

    how and what cables are required to connect the Ipad2 to a PS3? I want to vies the Ipad on an hdtv, the PS3 is equipped with USB connections, the TV is not. Initial connection, the PS3 did not seem to recognize the I pad. Am I barking up the wrong tr

  • Word 2013 - Publish as PDF or XPS button causes excessive registry queries / high CPU when added to quick access toolbar

    After installing Office 2013 Pro Plus on our XenApp 6.5 environment we noticed a drop in performance. Using taskmanager we could see winword.exe hit 20+% CPU usage when filling just 1 line with the same letter. Some investigating lead us to the "Publ

  • Pp and pm integration for capacity planning

    Dear ALL, Just now i started integration testing between pp and pm. As we know PM equipment is work centre for PP.Suppose there is 1 machine MAC-1 for which i created maint. order  also i ticked Sys. condition in MO and by using  the same  machine ,

  • Rubber Band Brush Mode?

    I have searched the helpfile and I don't think this is possible but just thought I'd check to make sure. I have another paint app where it will do a brush mode that is a rubber-band mode.  So if there is a brush that's 25 pixels wide and you go and c

  • I message keeps failing to send

    Messaging on my Iphone has started to fail. I get 'sending' but it doesnt go. I have rebooted and switched Imessge on and off. Is this an Apple issue ?