Number of item in each warehouse

How can i enter the no of items in stock in each warehouse in SAPB12007B

Your question is not clear. Please give more info for others to understand your situation.
I can only assume you need to input quite a lot items' inventory to the warehouse.  If that is true, then you can use DTW.
Thanks,
Gordon

Similar Messages

  • How to see number of items in each Reminders list?

    I have several lists in Reminders, and have to check each one to see what items are in each list.  Can Reminders show the # of items in each list?  Like a badge or something similar to "unread items"?   Thanks.

    Welcome to Apple Communities
    It doesn't exist

  • How can I view the number of items I have in a folder on Mac 10.9.2 (Mavericks)?

    I have only been using Mac OS X 10.9.2 (Mavericks) for a little while so I'm having to deal with many inconveniences that I didn't have to face with Mac OS X 10.6.3 (Snow Leopard). It's frustrating that 10.9.2 (Mavericks) doesn't let me tap twice on the trackpad in order move or drag something, but at least I figured out how to do this in a different way. One part that I cannot figure out is how to view the number of files in each folder. With Snow Leopard, I was able to view the number of files on that folder automatically by looking at the bottom of the folder (*See the example on the photo). On the bottom of that folder, you will see the number of items, which it 10. Every time I add new files (or folders within that folder), it will update the number of items to the appropriate number. This is especially useful to me if I'm going to have many items within a folder and when I need to make sure that the number I have is exact. For example, sometimes I have to save files in a precise number and order. If I miss saving a file with a specific number, and I don't catch that the number of items is off as early as possible, I may have to waste time looking through files to try to figure out what is missing. For this reason, I have to find a convenient way to view the number of items in each folder with Mac OS 10.9.2 (Mavericks) or else using it will be a hassle. 
    Now that I'm using Mac OS X 10.9.2 (Mavericks), I don't see any information on the folder that tells me how many items are in it (*See photo below). I keep looking to see if it's located somewhere else on the folder or if I can change the folder preferences to make it become visible. I also clicked on the folder and on "Get Info" (which would be inconvenient if I had to do this constantly). This showed me the number of items in that folder but I can't always keep checking like this because it's time-consuming and distractive.
    I need to find a way to make the number of items appear on the folder itself, while it is open.
    Do you know a convenient way to view the number of items in a folder?
    Is there some way I can change the preferences so that the number becomes visible on the folder itself?

    Open the Finder's View menu and choose 'Show Status Bar'.
    (111921)

  • Is there any limit on Number of items that can be created in SBO2005B

    Is there any limit on Number of items that can be created in SAP Business One 2005B.
    We are working for button manufacturer.
    Each button will have type,color, size, thickness.
    There are about 100 types, 40 colors, 30 sizes, 10 thickness, 500 models.
    It looks to be approximately above 30lacs item codes has to be created.
    Is there any performance issues or any other known issues towards the large item lists.

    Hi,
    There is no real limit on the number of items you can create (well, the item code is a 20 character key so theoretically the limit is the total number of possible combinations of letters and characters in that key).
    Performance can be an issue with a large inventory, as well as database size (particularly if you have a large inventory and a large number of warehouses). Some issues such as the speed of lookups can be avoided by changing system settings but other issues such as the speed of inventory reports are inevitable going to take longer for larger inventories.
    Have you done any research on looking for SBO addons for the clothing industry? It might be worth searching the CPSN for such addons (ie ones that can deal with sizes, colours etc) as these may help greatly in keeping the number of stock items down to a minimum.
    Kind Regards,
    Owen

  • The impact and the difference item group and warehouse

    Dear All,
    I am confusing what is the difference between item group and warehouse in continuous stock system and perpetual system and their impact in accounting flows. I have explored and read manual pdf files but still fail since I have heard one of addon can only apply or use if the gl account by is warehouse.
    I appreciate your answer. TIA
    Regards,

    Hi..
    A warehouse is a commercial building for storage of goods. Warehouses are used by manufacturers, importers, exporters, wholesalers, transport businesses, customs, etc. They are usually large plain buildings in industrial areas of cities and towns. They come equipped with loading docks to load and unload trucks; or sometimes are loaded directly from railways, airports, or seaports.
    Storage bin management          Warehouse movements (product)
    Planning and monitoring          Control of WM system and
    Inventory control               automated control systems
    Stock placement into the warehouse occurs after you or the system has generated a Transfer Order (TO).  This Transfer Order will direct you to a location in the warehouse where to get the goods and where to place the them. Once you close out the TO and verify the quantity the system will reflect a new location.
    A storage unit type groups loading
    equipment with similar properties, for example europallets, wire baskets,
    or tanks. Europallets are defined as storage unit type “europallet,” wire
    baskets as storage unit type “wire basket,” and so on, in Customizing for
    each warehouse number.
    with regards,
    hari kv

  • Exchange 2010 SP2 RU2 - Indexing backlog reached a critical limit of 48 hours or the number of items in the retry queue is greater than 10000 for one or more databases

    We have been getting intermittent SCOM alarms for our Exchange 2010 MBX server citing "Indexing backlog reached a critical limit of 48 hours or the number of items in the retry queue is greater than 10000 for one or more databases"
    I see events in EventViewer that SCOM is triggering on, but not whats generating the events or how else to test for them.
        get-eventlog -computername SERVERNAME -logname "Application" -after "03/14/2013" | ?{$_.eventid -eq "5604"} | select MachineName,EventID,EntryType,Message | ft -autosize
    One MS Forum post online says it is a bug in RU4, unclear if it may also be a bug in RU2 (our installed version).
        http://social.technet.microsoft.com/Forums/en-US/exchangesvradmin/thread/9dcb3011-9327-4935-9479-62b38a6ddd87
        "I was looking for the same error and found this.. it basically says that this is a bug in RU4 and RU4-v2...and it needs to be removed."
    tests using troubleshooting scripts find no issues with search indexer,
        [PS] C:\Program Files\Microsoft\Exchange Server\V14\scripts>.\Troubleshoot-CI.ps1
        Get-EventLog : No matches found
        At C:\Program Files\Microsoft\Exchange Server\V14\scripts\CITSLibrary.ps1:622 char:40
        + $msftesqlCrashes = get-eventlog <<<< -computername $Server -after $StartTime -logname "Application" -source $msftesqlServiceName | where {$_.eventId
        -eq $msftesqlCrashEventId}
            + CategoryInfo : ObjectNotFound: (:) [Get-EventLog], ArgumentException
            + FullyQualifiedErrorId : GetEventLogNoEntriesFound,Microsoft.PowerShell.Commands.GetEventLogCommand
        Name IsDeadLocked CatalogStatusArray
        SERVERNAME False {DATABASENAME\SERVERNAME, DATABASENAME\S...
        [PS] C:\Program Files\Microsoft\Exchange Server\V14\scripts>
    and tests against searches on each DB themselves show no issues and respond typically within 3 seconds.
        [PS] C:\Program Files\Microsoft\Exchange Server\V14\scripts>Test-ExchangeSearch | ft Server, Database, ServerGuid, ResultFound, SearchTimeInSeconds, Error -AutoSize
        Server Database ServerGuid ResultFound SearchTimeInSeconds Error
        SERVERNAME DATABASENAME b16e3461-257c-40dd-a9ad-99a5f41a927e True 2.937
    I also tried to check the Performance Viewer for the MSExchange Search Indexer and MXExchange Search Indices but am unsure which of the many metrics would indicate this issue.
    We have had no reports of search issues from our users and have been unable to duplicate any impairment in our testing.
    Does anyone else have any suggestions for tests to check or steps to take on this alert? Is it simply a false alarm or a timeout of other sorts during testing? We have 80 DAGs on this server (as well as all our servers, some of which have also reported the
    same alert) and the Test-ExchangeSearch command times out before completely testing all DAGs.

    Hi IAMChrisL,
    Any updates?
    Frank Wang
    TechNet Community Support

  • Export selected items on each page in InDesign to JPEG

    Hi All,
    I have InDesign CS5.5. I have a document with more than 50 pages and each page has unique image and the description for image.
    I need to export each page as JPEG. but i don't want to export full page. i need only the items on each page. So i go to each page and select all the items and export. while exporting i use the same name of the image used in each page.
    I tried writing a script but it exports only the active page. i do not know how to navigate to the next page and export.
    is some one can help.
    below is my script.
    var myDoc = app.activeDocument;
    var myNumPages = myDoc.pages.length;  //get the number of pages
    var myFilePath = myDoc.filePath; //get the file path
    var myRectangle = app.activeWindow.activePage.allGraphics; //get the graphics of the active page
    var myPageName = app.activeWindow.activePage.name; //get the page name.
               if(myRectangle.length >1)
                        alert("the page has more than one image. Delete the other image to export");
                        exit();
    var myImageName = myRectangle[0].itemLink.name; //get the name of the image
    app.select(NothingEnum.NOTHING);
    for(var i=0; i<myNumPages; i++)
              app.jpegExportPreferences.jpegQuality = JPEGOptionsQuality.high;
              app.jpegExportPreferences.exportResolution = 300;
              app.jpegExportPreferences.jpegExportRange = ExportRangeOrAllPages.exportRange;
              app.jpegExportPreferences.pageString = myPageName;
              mySelectedItems();
    function mySelectedItems()
              var myObj = new Array;
              myObj = app.activeWindow.activePage.pageItems; 
              try
                                  app.activeWindow.activePage.groups.add(myObj);
                                  catch(e)
              app.select(app.activeWindow.activePage.allPageItems);
              app.selection[0].exportFile(ExportFormat.JPG, File(myFilePath+"/"+myImageName+".JPEG"), false);

    export all image of each page try like this
    var myDoc = app.activeDocument;
    var myFolder = myDoc.filePath;
    var myImage = myDoc.allGraphics;
    for (var i=0; myImage.length>i; i++){
        app.select(myImage[i]);
        var MyImageNmae  = myImage[i].itemLink.name;
        app.jpegExportPreferences.jpegQuality = JPEGOptionsQuality.high;
        app.jpegExportPreferences.exportResolution = 300;
           app.selection[0].exportFile(ExportFormat.JPG, File(myFolder+"/"+MyImageNmae+".JPEG"), false);
        alert(myImage[i].itemLink.name)

  • Each Item in Each Page

    Hello Experts,
    I am issuing the output of the shipment through VT02N. Both Print program and the form are customized(Z).
    The form contains two pages each with different layouts.
    <b>First page to print the item
    Second page is to print an Acknowledgement</b>
    My requirement is If the Shipment has the two items of two <b>different delivery address</b> then I have print the item in each page like
    Page 1 - Item 1
    Page 2 - Ackonwledgement
    Page 3 - Item 2
    Page 4 - Ackonwledgement and so on.
    SImilarly if the shippment has 5 items and with same Delivery address then I have print all the 5 items in the same page.
    I have tried with New-Page option but it is not solving my requirement.
    Hope the requirement is clear.
    Could anyone please suggest a solution for this Issue.
    Thanks in Advance.
    Vasanth

    Hello Goutham,
    This is my code:
    REPORT Z48V_RV56TD00.
    SET EXTENDED CHECK OFF.
    *---------------------------------------------------------------Tables
    TABLES: ADCP,                      "Zuordnung Person/Adresse
            ADR6,                      "SMTP-Nummern
            ADR7,                      "Remote-Mail-Adressen
            ADRP,                      "Personen
            LIKP,                      "Lieferung: Kopfdaten
            LIPS,                      "Lieferung: Positionsdaten
            MAKT,                      "
            T001,                      "Buchungskreise
            T005,                      "Länder
            T006A,                     "Maßeinheit
            THEAD,                     "SAPscript: Text-Header
            TVKO,
            TTXER,                     "Textverarbeitung: Text-Id-Gruppen
            TTXIT,                     "Texte zu Text-Id's
            SADR,                      "Adressverwaltung: Firmendaten
            STXH,                      "SAPscript Text-Datei Header
            USR21,                     "Zuord. Benutzer zu Adressschlussel
            VBDDL,                     "Druckview für Versandtermine
            VBPLA,                     "allgemeine Transportdaten
            Z48V_INCOTEXT        "spezielle Textbausteine zu Incoterms
            "z00_sd_vstel_dru
    INCLUDE VTTKDATA.                      "Shipment Header
    INCLUDE VTTSDATA.                      "Shipment Segment
    INCLUDE VTTPDATA.                      "Shipment Items
    INCLUDE VBPADATA.                                           "Partner
    INCLUDE VTFADATA.                                           "Flow
    INCLUDE SADRDATA.                                           "Address
    INCLUDE VTLFDATA.                      "Delivery Selection
    INCLUDE RVADTABL.                                           "Messages
    INCLUDE VSEDATA.                       "shipping units
    INCLUDE RV56ACOM.                      "I/O-Structure
    SET EXTENDED CHECK ON.
    *------------------------------------------------------------Constants
    CONSTANTS: NO(1)  VALUE SPACE,
               YES(1) VALUE 'X'.
    *----------------------------------------------------------Hilfsfelder
    DATA: XSCREEN(1)              TYPE C,
          RETCODE                 LIKE SY-SUBRC VALUE 0,
          THERE_WAS_OUTPUT(1)     TYPE C        VALUE SPACE,
          NEW_PAGE_WAS_ORDERED(1) TYPE C        VALUE SPACE.
    DATA:  BEGIN OF ITAB OCCURS 0,
              VPOBJKEY  LIKE  VBPLK-VPOBJKEY,
    * 001 vsm1kor 09.08.07 - sn OPL 1815
              KUNWE     LIKE  VTTS-KUNNZ,
    * 001 vsm1kor 09.08.07 - sn OPL 1815
              BRGEW     LIKE  VBPLK-BRGEW,
              LAENG     LIKE  VBPLK-LAENG,
              BREIT     LIKE  VBPLK-BREIT,
              HOEHE     LIKE  VBPLK-HOEHE,
              MEABM     LIKE  VBPLK-MEABM,
              VOLEH     LIKE  VBPLK-VOLEH,
              GEWEI     LIKE  VBPLK-GEWEI,
              GEWEI_MAX LIKE  VBPLK-GEWEI_MAX,
              VEBEZ     LIKE  VBPLK-VEBEZ,
              VSTEL     LIKE  VBPLK-VSTEL,
              VENUM     LIKE  VBPLK-VENUM,
              VHILM     LIKE  VBPLK-VHILM,
           END   OF ITAB.
    DATA: W-ITAB  LIKE ITAB.
    * 001 vsm1kor 09.08.07 - sn OPL 1815
    DATA: GV_KUNWE LIKE VTTS-KUNNZ.
    DATA: BEGIN OF G_T_KUNWE OCCURS 0,
            KUNWE LIKE VTTS-KUNNZ,
            TDNAME(10),
          END OF G_T_KUNWE.
    * 001 vsm1kor 09.08.07 - en OPL 1815
    DATA: TB_COLLI LIKE SLK-ANZPK.
    *DATA: tb_brgew LIKE vbplk-brgew.
    DATA: TB_ABMES(33).
    DATA: TB_LAENG(10).
    DATA: TB_BREIT(10).
    DATA: TB_HOEHE(10).
    DATA: TB_SAVE-GEWEI LIKE VBPLK-GEWEI.
    DATA: TB_VSTEL1 LIKE TVST-VSTEL.
    DATA: TB_VSTEL2 LIKE TVST-VSTEL.
    DATA: TB_VSTEL3 LIKE TVST-VSTEL.
    DATA: TB_ADRC1 LIKE ADRC.
    DATA: TB_ADRC2 LIKE ADRC.
    DATA: TB_ADRC3 LIKE ADRC.
    DATA: TB_TDNAME(10).
    DATA: TB_KZVST.
    DATA: TB_NETWR LIKE SLK-NETWR.
    DATA: TB_VOLUM TYPE P DECIMALS 3.
    DATA: BEGIN OF IT_VSTEL OCCURS 0,
            VSTEL LIKE XVTTP-VSTEL,
          END OF IT_VSTEL.
    DATA: TB_PSVON LIKE VBPLK-VENUM.
    DATA: TB_PSBIS LIKE VBPLK-VENUM.
    DATA: TB_VENUM(10).
    DATA: TB_KZSPD.
    DATA: TB_WETXT.
    DATA: TB_TABIX LIKE SY-TABIX.
    DATA: BEGIN OF W,
            LSNUM         LIKE LIKP-VBELN,
            LSANZPK       LIKE  SLK-ANZPK,
            VPOBJKEYALT   LIKE VBPLK-VPOBJKEY,
            SUM1          LIKE VBPLK-BRGEW,
            SUM2          LIKE VBPLK-BRGEW,
            SUM3          LIKE VBPLK-BRGEW,
            ELEMENT(30),
          END OF W.
    DATA: W_SPED LIKE ADDR1_VAL.
    DATA: G_TITLE_MEDI LIKE TSAD3T-TITLE_MEDI.
    *       FORM ENTRY                                                    *
    *       Called from the Output Controll program                       *
    *  -->  RETURN_CODE Status                                            *
    *  -->  US_SCREEN                                                     *
    FORM ENTRY USING RETURN_CODE LIKE SY-SUBRC                  "#EC CALLED
                     US_SCREEN   TYPE C.                        "#EC CALLED
      RETURN_CODE = 1.
      PERFORM DATA_INIT USING US_SCREEN.
      PERFORM GET_DATA.
      CHECK RETCODE EQ 0.
      PERFORM OPEN_FORM USING US_SCREEN.
      CHECK RETCODE EQ 0.
      LOOP AT G_T_KUNWE.
    *    IF SY-TABIX EQ 1.
          PERFORM PRINT_DOCUMENT.
          CHECK RETCODE EQ 0.
    *    ELSE.
    *      PERFORM START_FORM.
    *      CHECK RETCODE EQ 0.
    *      PERFORM PRINT_DOCUMENT.
    *      CHECK RETCODE EQ 0.
    *      PERFORM END_FORM.
    *      CHECK RETCODE EQ 0.
    *    ENDIF.
      ENDLOOP.
      PERFORM CLOSE_FORM.
      CHECK RETCODE EQ 0.
      RETURN_CODE = 0.
    ENDFORM.
    *       FORM data_init                                               *
    FORM DATA_INIT USING VALUE(US_SCREEN) TYPE C.
      XSCREEN = US_SCREEN.
      CLEAR:
        RETCODE,
        THERE_WAS_OUTPUT,
        NEW_PAGE_WAS_ORDERED.
    ENDFORM.
    *       FORM GET_DATA                                                 *
    FORM GET_DATA.
      DATA LANGUAGE LIKE NAST-SPRAS.
      DATA SHIPMENT_NUMBER LIKE VTTK-TKNUM.
      LANGUAGE = NAST-SPRAS.
      SHIPMENT_NUMBER = NAST-OBJKY.
      CALL FUNCTION 'RV_SHIPMENT_PRINT_VIEW'
           EXPORTING
                SHIPMENT_NUMBER     = SHIPMENT_NUMBER
                OPTION_TVTK         = 'X'  "Shipmenttype J/N
                OPTION_TTDS         = 'X'  "Disposition J/N
                LANGUAGE            = LANGUAGE
                OPTION_ITEMS        = 'X'  "Transport Items J/N
                OPTION_SEGMENTS     = 'X'  "Transport Segments J/N
                OPTION_PARTNERS     = 'X'  "Partners J/N
                OPTION_SALES_ORDERS = 'X'  "Sales orders J/N
                OPTION_EXPORT_DATA  = 'X'  "Export data J/N
                OPTION_PACKAGES     = 'X'  "Packages J/N
                OPTION_FLOW         = ' '  "Flow J/N
                OPTION_NO_REFRESH   = ' '  "Refresh Tables J/N
           IMPORTING
                F_VTTKVB            = VTTKVB  "Shipment Header
                F_TVTK              = TVTK  "Shipmenttype
                F_TVTKT             = TVTKT  "Description Shipmenttype
                F_TTDS              = TTDS  "Disposition
                F_TTDST             = TTDST  "Description Disposition
                F_VBPLA             = VBPLA  "Packages
           TABLES
                F_VTTP              = XVTTP  "Shipment Items
                F_TRLK              = SLK  "Delivery
                F_TRLP              = SLP  "Delivery Item
                F_VTTS              = XVTTS  "Shipment Segments
                F_VTSP              = XVTSP  "Segments/Items
                F_VBPA              = XVBPA  "Partner
                F_VBADR             = XVBADR  "Address
                F_VTFA              = XVTFA  "Flow
                F_VBPLK             = XVBPLK  "Shipment Unit Header
                F_VBPLP             = XVBPLP  "Shipment Unit
                F_VBPLS             = XVBPLS  "Shipment Unit Sum
           EXCEPTIONS
                NOT_FOUND           = 1.
      IF SY-SUBRC NE 0.
        SYST-MSGID = 'VW'.
        SYST-MSGNO = '010'.
        SYST-MSGTY = 'E'.
        SYST-MSGV1 = DBVTTK-TKNUM.
        SYST-MSGV2 = SY-SUBRC.
        RETCODE    = 1.
        PERFORM PROTOCOL_UPDATE.
      ENDIF.
      CHECK RETCODE EQ 0.
    * SORT SEGMENTS BY CORRECT ORDER (I.E. TSRFO)
      SORT XVTTS BY TSRFO.
    * CONVERT UNITS IN DELIVERIES AND DELIVERY-ITEMS
    * TO BE CONFORM TO VTTK-UNITS:
      LOOP AT SLK.
    * 001 vsm1kor 09.08.07 - sn OPL 1815
        G_T_KUNWE-KUNWE = SLK-KUNWE.
        G_T_KUNWE-TDNAME = SLK-TDNAME.
        APPEND G_T_KUNWE.
    * 001 vsm1kor 09.08.07 - en OPL 1815
        CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
             EXPORTING
                  INPUT    = SLK-BTGEW
                  UNIT_IN  = SLK-GEWEI
                  UNIT_OUT = VTTKVB-DTMEG
             IMPORTING
                  OUTPUT   = SLK-BTGEW.
        CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
             EXPORTING
                  INPUT    = SLK-NTGEW
                  UNIT_IN  = SLK-GEWEI
                  UNIT_OUT = VTTKVB-DTMEG
             IMPORTING
                  OUTPUT   = SLK-NTGEW.
        CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
             EXPORTING
                  INPUT    = SLK-VOLUM
                  UNIT_IN  = SLK-VOLEH
                  UNIT_OUT = VTTKVB-DTMEV
             IMPORTING
                  OUTPUT   = SLK-VOLUM.
        SLK-GEWEI = VTTKVB-DTMEG.
        SLK-VOLEH = VTTKVB-DTMEV.
        MODIFY SLK.
        ADD SLK-NETWR TO TB_NETWR.
      ENDLOOP.
    * 001 vsm1kor 09.08.07 - sn OPL 1815
      IF NOT G_T_KUNWE[] IS INITIAL.
        SORT G_T_KUNWE.
        DELETE ADJACENT DUPLICATES FROM G_T_KUNWE COMPARING KUNWE.
      ENDIF.
    * 001 vsm1kor 09.08.07 - en OPL 1815
      LOOP AT SLP.
        CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
             EXPORTING
                  INPUT    = SLP-BRGEW
                  UNIT_IN  = SLP-GEWEI
                  UNIT_OUT = VTTKVB-DTMEG
             IMPORTING
                  OUTPUT   = SLP-BRGEW.
        CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
             EXPORTING
                  INPUT    = SLP-NTGEW
                  UNIT_IN  = SLP-GEWEI
                  UNIT_OUT = VTTKVB-DTMEG
             IMPORTING
                  OUTPUT   = SLP-NTGEW.
        SLP-GEWEI = VTTKVB-DTMEG.
        MODIFY SLP.
      ENDLOOP.
      PERFORM GET_ERFASSER.
      LOOP AT XVBPLK.
        "SELECT SINGLE * FROM z00_sd_vstel_dru WHERE vstel = xvbplk-vstel.
        "IF sy-subrc = 0 AND  NOT z00_sd_vstel_dru-vstel_d IS INITIAL.
        "  it_vstel-vstel = z00_sd_vstel_dru-vstel_d.
        "ELSE.
        IT_VSTEL-VSTEL = XVBPLK-VSTEL.
        "ENDIF.
        XVBPLK-VSTEL = IT_VSTEL-VSTEL.
        MODIFY XVBPLK.
        COLLECT IT_VSTEL.
      ENDLOOP.
      SORT IT_VSTEL BY VSTEL.
      TB_TDNAME = VTTKVB-TKNUM.
      PERFORM ERMITTELN_SPED_ADRESSE.
      SELECT SINGLE       * FROM  TVKO INTO TVKO
             WHERE  VKORG  = SLK-VKORG.
      CLEAR: T001W.
      SELECT SINGLE * FROM T001W WHERE WERKS = SLK-WERKS.
      CLEAR: T001.
      SELECT SINGLE * FROM T001 WHERE BUKRS = TTDS-BUKRS.
    * Ermitteln Text Ausfuhrkontrollmeldung
      CLEAR: T005, TB_KZVST.
      SELECT SINGLE * FROM T005 WHERE LAND1 = SLK-LAND1.
      IF SY-SUBRC = 0 AND T005-XEGLD = ''.
        TB_KZVST = 'X'.
      ENDIF.
    ENDFORM.
    *       FORM PRINT_DOCUMENT                                           *
    FORM PRINT_DOCUMENT.
    * Ermitteln und ausgeben der Beladstelle
      PERFORM AUSGEBEN_BELADESTELLE.
    * Ausgeben der Empfaenger und Kundenadresse
      PERFORM AUSGEBEN_EMPF_KUNDE.
    * Ausgeben Rechnungsempfänger
      PERFORM AUSGEBEN_RE.
    * Ausgeben der Verpackungsdaten
      PERFORM AUSGEBEN_VERPACKUNG.
    * Ausgeben der Versandbedigungen
      PERFORM AUSGEBEN_VERSANDBEDINGUNG.
    * Ausgeben des Versendervermerks
      PERFORM AUSGEBEN_VERSENDERVERMERK.
    * Ausgeben der Ausfuhrkontrollmeldung
      W-ELEMENT = 'AUSFUHRKONTROLLMELDUNG'.
      PERFORM WRITE_ELEMENT.
    * Ausgeben der Anlagen
      W-ELEMENT = 'ANLAGEN'.
      PERFORM WRITE_ELEMENT.
    * Ausgeben des Uebernahmetextes
      IF TTDS-BUKRS EQ '1060'.
        W-ELEMENT = 'UEBERNAHMETEXT'.
        PERFORM WRITE_ELEMENT.
      ENDIF.
    * Ausgeben Luftfrachterklärung                              I1.2
      IF VTTKVB-VSART = '05'        "Luftfracht
      OR VTTKVB-VSART = '17'.       "Luftfrachtsammelverkehr
        W-ELEMENT = 'LUFTFRACHTERKL'.
        PERFORM WRITE_ELEMENT.
      ENDIF.
    * Ausgeben Kopftext
      W-ELEMENT = 'TEXT'.
      PERFORM WRITE_ELEMENT.
    ENDFORM.
    *       FORM OPEN_FORM                                                *
    *  -->  VALUE(US_SCREEN)  Output on screen                            *
    *                         ' ' = printer                               *
    *                         'X' = screen                                *
    FORM OPEN_FORM USING VALUE(US_SCREEN) TYPE C.
      DATA US_COUNTRY LIKE T005-LAND1.
      PERFORM GET_SENDER_COUNTRY USING US_COUNTRY.
      CHECK RETCODE EQ 0.
      INCLUDE RVADOPFO.
    ENDFORM.
    *       FORM Get_Sender_Country
    *       Determines the country of the transport-disposition-unit      *
    FORM GET_SENDER_COUNTRY USING SENDER_COUNTRY LIKE T005-LAND1.
    * data:
    *   l_addr1_sel like addr1_sel.
      DATA: L_VBADR LIKE VBADR.
      DATA: L_VBPA  LIKE VBPA.
      LOOP AT XVBPA WHERE VBELN = NAST-OBJKY AND
                          PARVW = NAST-PARVW.
        SENDER_COUNTRY = XVBPA-LAND1.
        EXIT.
      ENDLOOP.
      IF SY-SUBRC IS INITIAL  AND  SENDER_COUNTRY IS INITIAL.
        L_VBPA = XVBPA.
        CALL FUNCTION 'VIEW_VBADR'
             EXPORTING
                  INPUT         = L_VBPA
                  PARTNERNUMMER = NAST-PARNR
             IMPORTING
                  ADRESSE       = L_VBADR.
        SENDER_COUNTRY = L_VBADR-LAND1.
      ENDIF.
    ENDFORM.
    *       FORM CLOSE_FORM                                               *
    FORM CLOSE_FORM.
      CALL FUNCTION 'CLOSE_FORM'
           EXCEPTIONS
                OTHERS = 1.
      IF SY-SUBRC NE 0.
        RETCODE = SY-SUBRC.
        PERFORM PROTOCOL_UPDATE.
      ENDIF.
      SET COUNTRY SPACE.
    ENDFORM.
    *       FORM PROTOCOL_UPDATE                                          *
    *       The messages are collected for the processing protocol.       *
    FORM PROTOCOL_UPDATE.
      IF XSCREEN = SPACE.
        CALL FUNCTION 'NAST_PROTOCOL_UPDATE'
             EXPORTING
                  MSG_ARBGB = SYST-MSGID
                  MSG_NR    = SYST-MSGNO
                  MSG_TY    = SYST-MSGTY
                  MSG_V1    = SYST-MSGV1
                  MSG_V2    = SYST-MSGV2
                  MSG_V3    = SYST-MSGV3
                  MSG_V4    = SYST-MSGV4.
      ELSE.
        MESSAGE ID SYST-MSGID TYPE 'I' NUMBER SYST-MSGNO
                WITH SYST-MSGV1 SYST-MSGV2 SYST-MSGV3 SYST-MSGV4.
      ENDIF.
    ENDFORM.
    *       FORM get_erfasser                                             *
    FORM GET_ERFASSER.
    * Lesen der Adressnummer zum Benutzer
      SELECT SINGLE * FROM USR21 WHERE BNAME = VTTKVB-ERNAM.
      IF SY-SUBRC <> 0.
        SELECT * FROM ADR7 WHERE UNAME = VTTKVB-ERNAM
                           AND   DATE_FROM <= SY-DATUM
                           ORDER BY CONSNUMBER DESCENDING.
          EXIT.
        ENDSELECT.
        CHECK SY-SUBRC = 0.
        USR21-BNAME      = ADR7-UNAME.
        USR21-PERSNUMBER = ADR7-PERSNUMBER.
        USR21-ADDRNUMBER = ADR7-ADDRNUMBER.
      ENDIF.
    * Lesen allgemeine Adressedaten Benutzer
      SELECT * FROM ADRP WHERE PERSNUMBER = USR21-PERSNUMBER
                         AND   DATE_FROM  <= SY-DATUM
                         ORDER BY DATE_FROM DESCENDING.
        EXIT.
      ENDSELECT.
      CHECK SY-SUBRC = 0.
    * Lesen weiter Adressdaten Benutzer
      SELECT * FROM ADCP WHERE PERSNUMBER = USR21-PERSNUMBER
                         AND   DATE_FROM  <= SY-DATUM
                         AND   COMP_PERS  = 'C'
                         ORDER BY DATE_FROM DESCENDING.
        EXIT.
      ENDSELECT.
      CHECK SY-SUBRC = 0.
    * Lesen Email-Adresse
      SELECT * FROM ADR6 WHERE ADDRNUMBER = USR21-ADDRNUMBER
                         AND   PERSNUMBER = USR21-PERSNUMBER
                         AND   DATE_FROM  <= SY-DATUM
                         ORDER BY DATE_FROM DESCENDING.
        EXIT.
      ENDSELECT.
    ENDFORM.                               " GET_ERFASSER
    *&      Form  AUSGEBEN_BELADESTELLE
    FORM AUSGEBEN_BELADESTELLE.
      FIELD-SYMBOLS: <F>.
      DATA: TB_FIELD(20).
      CLEAR: TB_VSTEL1, TB_VSTEL2, TB_VSTEL3,
             TB_ADRC1,  TB_ADRC2,  TB_ADRC3.
      LOOP AT IT_VSTEL.
        IF SY-TABIX > 3.
          EXIT.
        ENDIF.
        TB_FIELD = 'TB_VSTEL'.
        TB_FIELD+8(1) = SY-TABIX.
        ASSIGN (TB_FIELD) TO <F>.
        <F> = IT_VSTEL-VSTEL.
        SELECT SINGLE * FROM TVST WHERE VSTEL = IT_VSTEL-VSTEL.
        CHECK SY-SUBRC = 0.
        TB_FIELD = 'TB_ADRC'.
        TB_FIELD+7(1) = SY-TABIX.
        ASSIGN (TB_FIELD) TO <F>.
        SELECT * FROM ADRC INTO <F>
                           WHERE ADDRNUMBER =  TVST-ADRNR
                           AND   DATE_FROM  <= SY-DATUM
                           AND   DATE_TO    >= SY-DATUM
                           ORDER BY DATE_FROM DESCENDING.
          EXIT.
        ENDSELECT.
      ENDLOOP.
    *>>> INS BO88WA2 Ansteuerung Ausgabeschacht
      W-ELEMENT = 'SCHACHT_STEUERN'.
      PERFORM WRITE_ELEMENT.
    *<<< INS BO88WA2
      SELECT  SINGLE * FROM STXH
          WHERE TDNAME      = VTTKVB-TKNUM
          AND   TDOBJECT    = 'VTTK'
          AND   TDID        = 'CM13'.
      IF SY-SUBRC = 0.
        W-ELEMENT = 'BELADESTELLE1'.
      ELSE.
        W-ELEMENT = 'BELADESTELLE2'.
      ENDIF.
      PERFORM WRITE_ELEMENT.
    ENDFORM.                               " AUSGEBEN_BELADESTELLE
    *&      Form  ERMITTELN_SPED_ADRESSE
    FORM ERMITTELN_SPED_ADRESSE.
      CLEAR: LFA1, TB_KZSPD.
    *>  SELECT SINGLE * FROM lfa1 WHERE lifnr = vttkvb-tdlnr.
    * Pruefen Spediteur-Adresse in Text
      SELECT SINGLE * FROM  STXH WHERE  TDOBJECT  = 'VTTK'
                                 AND    TDNAME    = TB_TDNAME
                                 AND    TDID      = '0003'
                                 AND    TDSPRAS   = NAST-SPRAS.
      IF SY-SUBRC = 0.
        TB_KZSPD = 'X'.
        EXIT.
      ENDIF.
      DATA:
        ADDR_SEL      LIKE ADDR1_SEL,
        W_SADR        LIKE SADR
      SELECT SINGLE ADRNR FROM  VTPA INTO ADDR_SEL-ADDRNUMBER
             WHERE  VBELN  = VTTKVB-TKNUM
             AND    POSNR  = SPACE
             AND    PARVW  = 'SP'.
      CHECK SY-SUBRC = 0.
      CALL FUNCTION 'ADDR_GET'
           EXPORTING
                ADDRESS_SELECTION       = ADDR_SEL
    *           ADDRESS_GROUP           =
    *           READ_SADR_ONLY          = ' '
    *           READ_TEXTS              = ' '
           IMPORTING
                ADDRESS_VALUE           = W_SPED
    *           ADDRESS_ADDITIONAL_INFO =
    *           RETURNCODE              =
    *           ADDRESS_TEXT            =
                SADR                    = W_SADR
    *      TABLES
    *           ADDRESS_GROUPS          =
    *           ERROR_TABLE             =
    *           VERSIONS                =
          EXCEPTIONS
               PARAMETER_ERROR         = 1
               ADDRESS_NOT_EXIST       = 2
               VERSION_NOT_EXIST       = 3
               INTERNAL_ERROR          = 4
               OTHERS                  = 5.
      BREAK BO88WA2.
      CLEAR G_TITLE_MEDI.
      IF NOT W_SPED-TITLE IS INITIAL.
        SELECT  SINGLE TITLE_MEDI
          INTO  G_TITLE_MEDI
          FROM  TSAD3T
          WHERE LANGU EQ NAST-SPRAS
            AND TITLE EQ W_SPED-TITLE.
      ENDIF.
    ENDFORM.                               " ERMITTELN_SPED_ADRESSE
    *&      Form  UMRECHNEN
    FORM UMRECHNEN USING P_IWERT
                         P_OWERT
                         P_IMEIN LIKE T006-MSEHI
                         P_OMEIN LIKE T006-MSEHI.
      CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
           EXPORTING
                INPUT                = P_IWERT
                UNIT_IN              = P_IMEIN
                UNIT_OUT             = P_OMEIN
           IMPORTING
                OUTPUT               = P_OWERT
           EXCEPTIONS
                CONVERSION_NOT_FOUND = 1
                DIVISION_BY_ZERO     = 2
                INPUT_INVALID        = 3
                OUTPUT_INVALID       = 4
                OVERFLOW             = 5
                TYPE_INVALID         = 6
                UNITS_MISSING        = 7
                UNIT_IN_NOT_FOUND    = 8
                UNIT_OUT_NOT_FOUND   = 9
                OTHERS               = 10.
    ENDFORM.                                                    " UMRECHNEN
    *&      Form  AUSGEBEN_EMPF_KUNDE
    FORM AUSGEBEN_EMPF_KUNDE.
      CLEAR: SLK.
    * 001 vsm1kor 09.08.07 - sm " OPL 1815
    *  READ TABLE SLK INDEX 1.
      READ TABLE SLK WITH KEY KUNWE = G_T_KUNWE-KUNWE.
    * 001 vsm1kor 09.08.07 - em " OPL 1815
      CLEAR: KNA1, TB_WETXT.
      SELECT SINGLE * FROM KNA1 WHERE KUNNR = SLK-KUNWE.
      SELECT SINGLE * FROM STXH WHERE TDOBJECT = 'VTTK'
             AND    TDNAME    = VTTKVB-TKNUM
             AND    TDID      = 'Z002'
             AND    TDSPRAS   = NAST-SPRAS.
      IF SY-SUBRC = 0.
        TB_WETXT = 'X'.
      ENDIF.
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = 'ADRESSE_EMPF'.
      "IF slk-adrnr_ag <> slk-adrnr_we.
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = 'ADRESSE_KUNDE'.
      "ENDIF.
    ENDFORM.                               " AUSGEBEN_EMPF_KUNDE
    *&      Form  AUSGEBEN_VERPACKUNG
    FORM AUSGEBEN_VERPACKUNG.
      DATA:
        WA_ITAB_LAST TYPE ITAB.
      PERFORM GET_BFART_TEXT.                                   "BT82FE
      W-ELEMENT = 'ITEM_HEADER'.
      PERFORM WRITE_ELEMENT.
      BREAK BO88WA2.
      LOOP AT XVBPLK.      "Übetr. relevantes wegen Sortierfolge "BT82FE
        IF XVBPLK-UEVEL IS INITIAL.
          MOVE-CORRESPONDING XVBPLK TO ITAB.
    * 001 vsm1kor 09.08.07 - sn OPL 1815
          READ TABLE XVTTP WITH KEY VBELN  = XVBPLK-VPOBJKEY.
          IF SY-SUBRC EQ 0.
            ITAB-KUNWE = XVTTP-KUNWE.
          ENDIF.
    * 001 vsm1kor 09.08.07 - en OPL 1815
          APPEND ITAB.
        ENDIF.
      ENDLOOP.
      SORT ITAB BY VPOBJKEY KUNWE BRGEW LAENG BREIT HOEHE MEABM.
    * 001 vsm1kor 09.08.07 - en OPL 1815
      DELETE ITAB WHERE KUNWE NE G_T_KUNWE-KUNWE.
    * 001 vsm1kor 09.08.07 - en OPL 1815
    *  SORT itab by vhilm laeng breit hoehe meabm brgew .
      CLEAR W.
      CLEAR: TB_COLLI.
      LOOP AT ITAB.
        W-ITAB = ITAB.
        AT NEW   VPOBJKEY.           "Anzahl Packungen holen   "BT82FE
          PERFORM GET_ANZPACK.
        ENDAT.                                                  "BT82FE
    **--- AT NEW BO88WA2
    *    if wa_itab_last-vhilm ne itab-vhilm or
    *       wa_itab_last-laeng ne itab-laeng or
    *       wa_itab_last-breit ne itab-breit or
    *       wa_itab_last-hoehe ne itab-hoehe or
    *       wa_itab_last-brgew ne itab-brgew.
    *       perform get_anzpack.
    *    endif.
        PERFORM PRUEFEN_PACKELEMENT.
        CHECK SY-SUBRC = 0.
        PERFORM  GET_MATTEXT_UND_UMRECHNEN.
        ADD ITAB-BRGEW TO  W-SUM1.
        ADD ITAB-BRGEW TO  W-SUM2.
        ADD ITAB-BRGEW TO  W-SUM3.
    *    AT END OF brgew.
        AT END OF MEABM.
          TB_SAVE-GEWEI = ITAB-GEWEI.
          W-ELEMENT = 'ITEM_LINE'.
          PERFORM WRITE_ELEMENT.
          CLEAR: W-SUM1, W-SUM2.
        ENDAT.
        AT END OF VPOBJKEY.
          W-ELEMENT = 'LS_SUM'.
          PERFORM WRITE_ELEMENT.
          CLEAR:W-SUM1, W-SUM2.
        ENDAT.
    **--- Nächstes Record lesen
    *    ADD 1 TO l_index.
    *    READ TABLE l_t_verpdat INTO l_r_verpdat_next INDEX l_index.
    *    IF sy-subrc NE 0 OR
        AT LAST.
          W-ELEMENT = 'ITEM_SUM'.
          PERFORM WRITE_ELEMENT.
        ENDAT.
      ENDLOOP.
      REFRESH ITAB.
    ENDFORM.                               " AUSGEBEN_VERPACKUNG
    *&      Form  AUSGEBEN_VERSANDBEDINGUNG
    FORM AUSGEBEN_VERSANDBEDINGUNG.
      "TABLES: z00_sd_slvs.
    * Ermitteln Versandbedingung
      CLEAR: T173T.
      IF VTTKVB-VSART IS INITIAL.
        IF VTTKVB-VSART IS INITIAL AND NOT VTTKVB-ROUTE IS INITIAL.
          SELECT SINGLE * FROM TVRO WHERE ROUTE = VTTKVB-ROUTE.
          CHECK SY-SUBRC = 0.
          SELECT SINGLE * FROM T173T WHERE SPRAS = NAST-SPRAS
                                     AND   VSART = TVRO-VSART.
        ELSE.
          SELECT SINGLE * FROM T173T WHERE SPRAS = NAST-SPRAS
                                     AND   VSART = VTTKVB-VSART.
        ENDIF.
      ELSE.
        SELECT SINGLE * FROM T173T WHERE SPRAS = NAST-SPRAS
                                   AND   VSART = VTTKVB-VSART.
      ENDIF.
    * Ermitteln Versicherungstext abhaengig von Incoterm
      CLEAR: Z48V_INCOTEXT.
      SELECT SINGLE * FROM Z48V_INCOTEXT WHERE INCO1 = SLK-INCO1.
    * Ermitteln Versicherungswert
    *  CLEAR: z00_sd_slvs.
    *  SELECT * FROM z00_sd_slvs WHERE vswrt > tb_netwr
    *                            ORDER BY vswrt ASCENDING.
    *    EXIT.
    *  ENDSELECT.
    *  IF sy-subrc = 0.
    *    tb_netwr = z00_sd_slvs-vswrt.
    *  ENDIF.
      W-ELEMENT = 'VERSAND'.
      PERFORM WRITE_ELEMENT.
    ENDFORM.                               " AUSGEBEN_VERSANDBEDINGUNG
    *&      Form  AUSGEBEN_VERSENDERVERMERK
    FORM AUSGEBEN_VERSENDERVERMERK.
      IF SLK-LAND1_WE <> 'DE'.
        W-ELEMENT = 'VERSENDERVERMERK'.
        PERFORM WRITE_ELEMENT.
      ENDIF.
    ENDFORM.                    " AUSGEBEN_VERSENDERVERMERK
    *&      Form  AUSGEBEN_RE
    FORM AUSGEBEN_RE.
      SELECT SINGLE * FROM VBPA WHERE VBELN = SLK-VBELN
                                AND   POSNR = '000000'
                                AND   PARVW = 'RE'.
      IF SY-SUBRC = 0.
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = 'ADRESSE_RE'.
      ENDIF.
    ENDFORM.                    " AUSGEBEN_RE
    FORM  GET_MATTEXT_UND_UMRECHNEN.
      SELECT SINGLE * FROM MAKT WHERE MATNR = W-ITAB-VHILM
                                AND   SPRAS = SY-LANGU.
      PERFORM UMRECHNEN USING W-ITAB-BRGEW W-ITAB-BRGEW
                              W-ITAB-GEWEI_MAX 'KG'.
      PERFORM UMRECHNEN USING W-ITAB-LAENG W-ITAB-LAENG
                              W-ITAB-MEABM 'CM'.
      WRITE W-ITAB-LAENG  TO  TB_LAENG LEFT-JUSTIFIED DECIMALS 0.
      PERFORM UMRECHNEN USING W-ITAB-BREIT W-ITAB-BREIT
                              W-ITAB-MEABM 'CM'.
      WRITE W-ITAB-BREIT TO   TB_BREIT LEFT-JUSTIFIED DECIMALS 0.
      PERFORM UMRECHNEN USING W-ITAB-HOEHE W-ITAB-HOEHE
                              W-ITAB-MEABM 'CM'.
      WRITE W-ITAB-HOEHE TO   TB_HOEHE LEFT-JUSTIFIED DECIMALS 0.
      SELECT SINGLE * FROM T006A WHERE SPRAS = NAST-SPRAS
                                AND   MSEHI = W-ITAB-GEWEI_MAX.
      IF SY-SUBRC <> 0.
        T006A-MSEH6 = W-ITAB-GEWEI_MAX.
      ENDIF.
      CONCATENATE TB_LAENG TB_BREIT TB_HOEHE
                  INTO TB_ABMES SEPARATED BY 'x'.
      IF W-ITAB-VEBEZ CA ' '.
        IF SY-FDPOS <> 0.
          W-ITAB-VEBEZ = W-ITAB-VEBEZ(SY-FDPOS).
        ENDIF.
      ENDIF.
      READ TABLE IT_VSTEL WITH KEY VSTEL = W-ITAB-VSTEL.
    ENDFORM.
    FORM GET_ANZPACK.
      READ TABLE SLK WITH KEY VBELN = W-ITAB-VPOBJKEY.          "BT82FE
      CHECK SY-SUBRC = 0.                                       "BT82FE
      ADD SLK-ANZPK TO TB_COLLI.                                "BT82FE
      W-LSANZPK = SLK-ANZPK.                                    "BT82FE
      W-LSNUM = W-ITAB-VPOBJKEY+4(8).                           "BT82FE
    ENDFORM.
    *&      Form  PRUEFEN_PACKELEMENT
    FORM PRUEFEN_PACKELEMENT.
      TABLES: VBFA.
      SELECT * FROM VBFA WHERE VBELV   = W-ITAB-VPOBJKEY
                         AND   VBELN   = W-ITAB-VENUM
                         AND   VBTYP_N = 'X'.
        EXIT.
      ENDSELECT.
    ENDFORM.                    " PRUEFEN_PACKELEMENT
    FORM WRITE_ELEMENT.
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT                  = W-ELEMENT
           EXCEPTIONS
                ELEMENT                  = 1
                FUNCTION                 = 2
                TYPE                     = 3
                UNOPENED                 = 4
                UNSTARTED                = 5
                WINDOW                   = 6
                BAD_PAGEFORMAT_FOR_PRINT = 7
                OTHERS                   = 8.
    ENDFORM.
    FORM GET_BFART_TEXT.                                        "BT82FE
      CALL FUNCTION 'SD_SHIPMENT_HEADER_DESCRIPTION'
           EXPORTING
                I_XVTTK                        = VTTKVB
    *           i_adrnr                        = vttk-adrnr
           CHANGING
                C_TXT_SHIPMENT_TYPE            = TVTKT-BEZEI
                C_TXT_PROCESSING_TYPE          = RV56A-TXT_ABFER
                C_TXT_PROCESS_CONTROL          = RV56A-TXT_ABWST
                 C_TXT_SERVICE_LEVEL            = RV56A-TXT_BFART.
    *            C_TXT_SHIPPING_TYPE            = RV56A-TXT_VSART
    *            C_TXT_SHIP_TYP_PREL            = RV56A-TXT_VSAVL
    *            C_TXT_SHIP_TYP_SUBS            = RV56A-TXT_VSANL
    *            C_TXT_LEG_INDICATOR            = RV56A-TXT_LAUFK
    *            C_TXT_SHIPPING_COND            = RV56A-TXT_VSBED
    *            C_TXT_ROUTE                    = VTTKD-TXROU
    *            C_TXT_CARRIER                  = VTTKD-TXDIL
    *            C_TXT_OVERALL_STATUS           = RV56A-TXT_STTRG
    *            C_ICON_OVERALL_STATUS          = RV56A-TRG_AMPEL
    *           C_TXT_FREIGHT_COST_RELEVANCE   = VTTK_TXT-FRKRL_TXT
    *           C_TXT_FREIGHT_CALC_STATUS      = VTTK_TXT-FBSTA_TXT
    *           C_TXT_FREIGHT_SETT_STATUS      = VTTK_TXT-ARSTA_TXT
    *           C_TXT_OVRL_FREIGHT_CALC_STATUS = VTTK_TXT-FBGST_TXT
    *           C_TXT_OVRL_FREIGHT_SETT_STATUS = VTTK_TXT-ARGST_TXT
    *           C_TXT_SPECIAL_PROCESSING       = VTTK_TXT-SDABW_TXT
    *           C_TXT_PRICING_PROCEDURE        = VTTK_TXT-KKALSM_TXT
    *            C_TXT_STATUS_PLANNED           = RV56A-TXT_STDIS
    *            C_TXT_STATUS_REGISTRATED       = RV56A-TXT_STREG
    *            C_TXT_STATUS_LOAD_START        = RV56A-TXT_STLBG
    *            C_TXT_STATUS_LOAD_END          = RV56A-TXT_STLAD
    *            C_TXT_STATUS_PROCESSING        = RV56A-TXT_STABF
    *            C_TXT_STATUS_SHIPM_START       = RV56A-TXT_STTBG
    *            C_TXT_STATUS_SHIPM_END         = RV56A-TXT_STTEN
    *           C_ROUTID                       = VTTK_TXT-ROUTID
    *            C_TXT_LEG_DET_TYPE             = RV56A-TXT_STERM
    *            C_TXT_ROUTE_STAGES             = RV56A-TXT_ROTSTA
    *            C_TXT_ADD_INFO_1               = VTADD01T-BEZEI
    *            C_TXT_ADD_INFO_2               = VTADD02T-BEZEI
    *            C_TXT_ADD_INFO_3               = VTADD03T-BEZEI
    *            C_TXT_ADD_INFO_4               = VTADD04T-BEZEI.
    ENDFORM.
    *&      Form  START_FORM
    *       text
    *  -->  p1        text
    *  <--  p2        text
    FORM START_FORM.
      CALL FUNCTION 'START_FORM'
    * EXPORTING
    *   ARCHIVE_INDEX          =
    *   FORM                   = ' '
    *   LANGUAGE               = ' '
    *   STARTPAGE              = ' '
    *   PROGRAM                = ' '
    *   MAIL_APPL_OBJECT       =
    * IMPORTING
    *   LANGUAGE               =
    * EXCEPTIONS
    *   FORM                   = 1
    *   FORMAT                 = 2
    *   UNENDED                = 3
    *   UNOPENED               = 4
    *   UNUSED                 = 5
    *   SPOOL_ERROR            = 6
    *   OTHERS                 = 7
      IF SY-SUBRC <> 0.
    * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
    ENDFORM.                    " START_FORM
    *&      Form  END_FORM
    *       text
    *  -->  p1        text
    *  <--  p2        text
    FORM END_FORM.
      CALL FUNCTION 'END_FORM'
    * IMPORTING
    *   RESULT                         =
    * EXCEPTIONS
    *   UNOPENED                       = 1
    *   BAD_PAGEFORMAT_FOR_PRINT       = 2
    *   SPOOL_ERROR                    = 3
    *   OTHERS                         = 4
      IF SY-SUBRC <> 0.
    * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
    ENDFORM.                    " END_FORM
    Regards,
    Vasanth
    Message was edited by:
            Vasanth M

  • Report for counting the number of interfaces in each device

    Hi, we have LMS 4.0.1 and we would like to know how many gigabitEthernet interfaces and how many fastEthernet interfaces does each device have. If we create a custom report template with the conditions "Interface:Type:Contains:Gi" OR "Interface:Type:Contains:Fa" we get the interfaces that match the criteria but we also need the count, and this is what we don't know how to do it.
    Does anyone know how can we do it?

    Hi
    Suppress results rows for number of items..that is 10,20...
    Calculate result rows only for sales order ...1000000...
    You should get intended result with this settings
    Regards
    N Ganesh

  • Maximum number of items in an iTunes U feed?

    What is the maximum number of items I can have in an iTunes U feed?
    I'm sure I was told on the iTunes U course that the maximum number of items was 300 but in order to get items featured on the homepage I should try to limit it to 50.
    Can anyone confirm this?
    I've split our public lecture podcasts into separate feeds for each year but we're nearing 300 per year and will soon exceed that number. The only option would be to split it again by term but we can't do that without significant development work on our media CMS.

    Please ignore these questions - these issues are covered in the public site manager video. http://deimos3.apple.com/WebObjects/Core.woa/Browse/new.duke.edu.1302914143.0352 7899686.4285944238?i=2057081390
    They make it quite clear that iTunes U feeds should have a maximum of 300 items. I'm still not sure what would happen if you had a feed with more than 300 items, not that it really matters though. We've made changes to our media CMS so we can now create individual feeds for each our courses split by date e.g. 2010 Spring Term, 2010 Summer Term etc. This allows us to keep the number of items in our feeds well below 300.
    They also say that you should avoid having items in more than one feed as this will have a impact on your iTunes U download stats i.e. the iTunes U download count for items listed in one more than one feed will be diluted. Because of this we've dropped the idea of a 'latest 50' feed for iTunes U and wherever possible we will avoid listing items in more than one feed.
    I'm still not sure why an item in a feed with less than 50 items is more likely to get featured on the iTunes U homepage. Would be great if someone could confirm if this is true and if so why that is the case.

  • Plsql dynamic region with more than the maximum number of items

    Hi,
    I need suggestions! :)
    I have to make a page with many many items. We have a table storing the content of a SQL script, each statement is an individual row in the table. The page I'm trying to make must display each statement in an individual textbox/textarea (and two others items for different attributes).
    In a dynamic plsql region, the maximum number of items seems to be 1990, after that, a "Page not found" is launched. So, after 643 statements, I reach the limit...! :(
    A solution could be to generate "custom" textfield or textarea (htp.p('<input type=text name="stmt1" value="StmtText">');), but, is it possible to access their values when the page is submitted ?
    Second solution is to make a pagination every 600 statements, but I don't like it!
    Anything else ?
    Thank you!
    Jonathan

    Anton,
    at least to my knowledge there you will have the same limitation. Because the limitation is that the f procedure of APEX doesn't have more parameters to support more fields. It's not a limitation of the APEX Builder.
    It would only work if you assign all your items to the same name, so that they are transfered in an array, like the tabular form.
    Patrick
    My APEX Blog: http://inside-apex.blogspot.com
    The ApexLib Framework: http://apexlib.sourceforge.net
    The APEX Builder Plugin: http://sourceforge.net/projects/apexplugin/

  • Item Price in warehouse is not defined. Continue!

    Hello everyone,
    I created a new User - Defined Field at Item Master Data. I entered a number in this field and pressed Update button. After that, SAP showed a system message: "Item price in warehouse is not defined. Continue?" as picture:
    I pressed Yes and Update button. But the number wasn't saved. I don't know what it is. Could you help me, please?
    Thank you very much.
    Regards,
    Dong Pham Nhat

    Hi,
    If you add item master data without item cost, then you get above system message. Refer below screen shot.
    2. Do you updating this cost from above UDF by FMS?
    Thanks & Regards,
    Nagarajan

  • Maximum number of items on a page?

    Hi,
    Does the number of items on a page have a maximum? (portal 904)
    I want to place about 14,000 images (30-50k each) on a page, using WEBDAV.
    An alternative would be placing the items on the filesystem of the midtier, but that way I would have no advantage of the webcache (or doesn't that matter?)
    Ton

    hi ton,
    as far as i know the files are cached in webcache if you have them on the midtier file system. this is because you are accessing portal through the webdav port.
    i think this would be the better option, although there are no limitations to store the files in the database by uploading them to a page.
    regards,
    christian

  • Error msg "Maximum number of items in FI reached" displayed while backflush

    Dear Gurus,
    The scenerio at our client's site is that of MTO using strategy group 50 and variant configuration.
    The production process goes through a sequence of three operations. Details are as under:
    1. Operation 10: Control key (PP01), all components (say some 1500) are allocated to this operation.
    2. Operation 20: Control Key (PP01), no components allocated to this operation.
    3. Operation 30: Control key ( PP03), no components allocated, AutoGR maintained in control key.
    Now the issue is while doing confirmation using T code CO1F, individually for all the operations, backflushing of some odd 900 components is not taking place. The components get stock in COGI. Each time these are to be cleared from COGI, although there is sufficient stock of these components for these components.
    The error msg that is being displayed in COGI is "Maximum number of items in FI reached".
    Pls suggest how to take care of it.
    Regards,
    Pradeep Santara

    Hi,
    The error is due to the maximum line items have been reached in FI.
    actually you cann't post more than 999 items in one acctg doc at one time.
    regards

  • Message no. F5727:maximum number of items reached in FI sereen MI07

    hi sap techies
    Message no. F5727:maximum number of items reached in FI in screen MI07
    when i try to post inventory difference in MI07(Physical difference posting) i give  the difference amount and reason for movement and i try to save it.it gives me the error maximum number of items in  FI reached please help
    kind regards
    sap fico
    arman
    Edited by: akausar on Oct 10, 2011 3:23 PM

    Dear Akausar,
    The error F5 727 is an error from the FI component side.  This is
    because FI cannot accept a posting document with more than 999 line
    items.
    There is a limit of (999) line items which can be posted per FI
    document.  This is because the line item number (BSEG-BUZEI) field
    length is defined as (3) numeric positions, i.e., (999) line items.
    The fact that an MM document contains X positions, doesn't
    mean that the FI document will contain the same number. This is the
    reason why in some occasions the error message is triggered when posting
    an invoice in MM.
    Please bear in mind the 'rule of the thumb' for this kind of scenarios
    in which you have a large MM-Document: consider an average of 4 line
    items created for each line: this is due to discounts, tax postings,etc.
    Unfortunately, there are no immediate plans to expand the number of
    line items beyond the current limit of (999) lines per document.
    SAP's Development group is aware of this functionality change request;
    however, the change is massive because BSEG is a cluster table which
    is used in numerous R/3 programs.  The most commonly used workarounds
    are as follows:
    1)  Implement FI summarization (per note 36353).
    2)  Cancel the original billing document and split it into smaller
        documents using different payment terms but actually with the
        same terms.
    This will avoid the (999) line item limit for FI postings.
    br, Guido

Maybe you are looking for