Each Item in Each Page

Question

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

Answer 1

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