Initial Programming Needed?

My ancient LG flip-phone is on its last legs, so I am going to attempt to move my service to a newer flip phone (donated by a friend) It's a basic Samsung flip-phone of some sort, if that matters to this question.
I've looked over the online steps to transfer to the new phone, and it all looks pretty clear. And, I've backed-up my contacts from the old phone using Backup Assistant. So far, so good.
On the new phone though, I am getting this big, red message on the screen saying Initial Programming Needed. The phone won't do anything unless I first do...something.
My question...What do I need to do with this new phone in order to get it in a state to accept transfer of my service? Or, can I go ahead and perform the online transfer and this new phone will magically activate?
Thanks!

As several members have suggested already before me, do the *228 programming, choose option one, enter your phone number, enter the account password you use to connect to phone support, and then you should be good to go. Make sure the    LG phone is turned off when the process with the Samsung is ensuing. If you still are having difficulty with the activation process, calling verizon at 800-922-0204, should resolve it, as they can solve almost anything.

Similar Messages

  • HOW TO CREATE A DRILLDOWN PROGRAM NEED EXAMPLE

    HAI FRIENDS
      1  I WANT TO KNOW HOW TO CREATE A DRILLDOWN PROGRAM NEED EXAMPLE IN ABAP
      2 NEED ABAP PROGRAM EBOOK
    PLZ DO IT

    CHECK THIS ALV DRILL DOWN REPORT
    *& Report  ZHAI_SD_CUSTOMER_DETAILS_ALV
    REPORT  ZHAI_SD_CUSTOMER_DETAILS_ALV.
    TYPE-POOLS: SLIS.
        TYPES DECLARATIONS
    TABLES : KNA1.
    DATA : BEGIN OF IT_CUST OCCURS 0,
      KUNNR LIKE KNA1-KUNNR,
      NAME1 LIKE KNA1-NAME1,
      LAND1 LIKE KNA1-LAND1,
      ORT01 LIKE KNA1-ORT01,
      STRAS LIKE KNA1-STRAS,
      PSTLZ LIKE KNA1-PSTLZ,
           END OF IT_CUST.
    DATA:BEGIN OF IT_SALE OCCURS 0,
    VBELN LIKE VBAK-VBELN,"SALES DOC NO
    AUDAT LIKE VBAK-AUDAT,"DATE RECIEVED AND SENT
    AUART LIKE VBAK-AUART,"SALES DOC LIKE
    NETWR LIKE VBAK-NETWR,"NET VALUE IN DOC CURRENCY
    KUNNR LIKE VBAK-KUNNR,
          END OF IT_sale.
    TYPES: BEGIN OF TY_ITEM,
    VBELN TYPE VBAP-VBELN,
    POSNR TYPE VBAP-POSNR,"ITEM NO
    MATNR TYPE VBAP-MATNR,"MATERIAL NO
    CHARG TYPE VBAP-CHARG,"BATCH
    MATKL TYPE VBAP-MATKL,"MATERIAL GROUP
    MEINS TYPE VBAP-MEINS,"BASE UNIT OF MEASURE
    END OF TY_ITEM.
    SELECT-OPTIONS : S_KUNNR FOR KNA1-KUNNR.
         INTERNAL TABLES
    DATA:
         IT_CUST  TYPE TABLE OF TY_CUST,
         IT_SALE  TYPE TABLE OF TY_SALE,
          IT_ITEM  TYPE TABLE OF TY_ITEM.
                       INTERNAL TABLES FOR ALV
    DATA: IT_FCAT   TYPE  SLIS_T_FIELDCAT_ALV,
          IT_FCAT1  TYPE  SLIS_T_FIELDCAT_ALV,
          IT_FCAT3  TYPE SLIS_T_FIELDCAT_ALV.
    DATA: IT_EVENTS TYPE TABLE OF   slis_alv_event,
          IT_EVENTS1 TYPE TABLE OF SLIS_ALV_EVENT,
          IT_EVENTS2 TYPE TABLE OF SLIS_ALV_EVENT.
    DATA: IT_LISTHEADER1 TYPE SLIS_T_LISTHEADER,
          IT_LISTHEADER TYPE TABLE OF slis_listheader,
          IT_LISTHEADER3 TYPE TABLE OF SLIS_LISTHEADER,
          IT_FOOTER TYPE TABLE OF SLIS_LISTHEADER.
    DATA: IT_SORT TYPE SLIS_T_SORTINFO_ALV,
          WA_SORT LIKE LINE OF IT_SORT.
                       WORK AREAS FOR ALV
    DATA: WA_LAYOUT  TYPE SLIS_LAYOUT_ALV,
          WA_LAYOUT1 TYPE SLIS_LAYOUT_ALV,
          WA_FCAT    LIKE LINE OF IT_FCAT,
          WA_FCAT1   LIKE LINE OF IT_FCAT1,
          WA_FCAT3   LIKE LINE OF IT_FCAT3,
          WA_EVENTS  LIKE LINE OF IT_EVENTS,
          WA_EVENTS1 LIKE LINE OF IT_EVENTS,
          WA_EVENTS2 LIKE LINE OF IT_EVENTS.
            WORK VARIABLES
    DATA: W_REPID TYPE SY-REPID,
          W_KUNNR TYPE KNA1-KUNNR.
    $$**----
       WORK  AREAS
        MACROS
    DEFINE ADD_FCAT1..
    WA_FCAT1-COL_POS = &1.
    WA_FCAT1-FIELDNAME = &2.
    WA_FCAT1-TABNAME = &3.
    WA_FCAT1-REF_TABNAME = &4.
    WA_FCAT1-KEY = &5.
    WA_FCAT1-DO_SUM = &6.
    WA_FCAT1-HOTSPOT = &7.
    WA_FCAT1-EMPHASIZE = &8.
    APPEND WA_FCAT1 TO IT_FCAT1.
    END-OF-DEFINITION.
    START-OF-SELECTION.
      PERFORM F_GET_DATA.
      PERFORM F_BUILD_FCAT.
      PERFORM F_GET_EVENTS.
      PERFORM F_BUILD_LAYOUT USING WA_LAYOUT.
      PERFORM F_GET_DISPLAY.
    *&      Form  F_GET_DATA
    FORM F_GET_DATA .
    SELECT   KUNNR
              NAME1
              LAND1
              ORT01
              STRAS
              PSTLZ FROM KNA1
              INTO TABLE
    IT_CUST WHERE KUNNR IN S_KUNNR.
    ENDFORM.                    " F_GET_DATA
    *&      Form  F_GET_DISPLAY
          text
    -->  p1        text
    <--  p2        text
    FORM F_GET_DISPLAY .
    CLEAR W_REPID.
    MOVE SY-REPID TO W_REPID.
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
         I_CALLBACK_PROGRAM                = w_repid
      I_CALLBACK_PF_STATUS_SET          = ' '
      I_CALLBACK_USER_COMMAND           = ' '
         I_CALLBACK_TOP_OF_PAGE            = 'F_TOP_OF_PAGE'
      I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
      I_CALLBACK_HTML_END_OF_LIST       = ' '
      I_STRUCTURE_NAME                  =
      I_BACKGROUND_ID                   = 'DUCK'
      I_GRID_TITLE                      =
      I_GRID_SETTINGS                   =
       IS_LAYOUT                         = WA_LAYOUT
         IT_FIELDCAT                        = IT_FCAT
      IT_EXCLUDING                      =
      IT_SPECIAL_GROUPS                 =
      IT_SORT                           =
      IT_FILTER                         =
      IS_SEL_HIDE                       =
      I_DEFAULT                         = 'X'
      I_SAVE                            = ' '
      IS_VARIANT                        =
         IT_EVENTS                          = IT_EVENTS
      IT_EVENT_EXIT                     =
      IS_PRINT                          =
      IS_REPREP_ID                      =
      I_SCREEN_START_COLUMN             = 0
      I_SCREEN_START_LINE               = 0
      I_SCREEN_END_COLUMN               = 0
      I_SCREEN_END_LINE                 = 0
      I_HTML_HEIGHT_TOP                 = 0
      I_HTML_HEIGHT_END                 = 0
      IT_ALV_GRAPHICS                   =
      IT_HYPERLINK                      =
      IT_ADD_FIELDCAT                   =
      IT_EXCEPT_QINFO                   =
      IR_SALV_FULLSCREEN_ADAPTER        =
    IMPORTING
      E_EXIT_CAUSED_BY_CALLER           =
      ES_EXIT_CAUSED_BY_USER            =
        TABLES
          T_OUTTAB                          = IT_CUST
    EXCEPTIONS
      PROGRAM_ERROR                     = 1
      OTHERS                            = 2
      IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
    ENDFORM.                    " F_GET_DISPLAY
    *&      Form  F_GET_EVENTS
          text
    -->  p1        text
    <--  p2        text
    FORM F_GET_EVENTS .
      CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
        EXPORTING
          I_LIST_TYPE     = 0
        IMPORTING
          ET_EVENTS       = IT_EVENTS
        EXCEPTIONS
          LIST_TYPE_WRONG = 1
          OTHERS          = 2.
      IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      SORT IT_EVENTS.
    READ TABLE IT_EVENTS INTO WA_EVENTS
    WITH KEY NAME = 'TOP_OF_PAGE' BINARY SEARCH.
    IF SY-SUBRC EQ 0.
    WA_EVENTS-FORM = 'F_TOP_OF_PAGE'.
    MODIFY  IT_EVENTS  INDEX SY-TABIX FROM
    WA_EVENTS TRANSPORTING FORM.
      ENDIF.
    READ TABLE IT_EVENTS INTO WA_EVENTS
    WITH KEY NAME = 'USER_COMMAND' BINARY SEARCH.
    IF SY-SUBRC EQ 0.
    WA_EVENTS-FORM = 'F_USER_COMMAND'.
    MODIFY IT_EVENTS FROM WA_EVENTS INDEX
    SY-TABIX TRANSPORTING FORM.
    READ TABLE IT_EVENTS INTO WA_EVENTS
    WITH KEY NAME = 'USER_COMMAND' BINARY SEARCH.
    ENDIF.
    READ TABLE IT_EVENTS INTO WA_EVENTS WITH
    KEY NAME = 'END_OF_PAGE' BINARY SEARCH.
    IF SY-SUBRC EQ 0.
    WA_EVENTS-FORM = 'F_END_OF_PAGE'.
    MODIFY IT_EVENTS FROM WA_EVENTS
    INDEX SY-TABIX TRANSPORTING FORM.
    ENDIF.
    ENDFORM.                    "F_GET_EVENTS
    *&      Form  F_BUILD_LAYOUT
    FORM F_BUILD_LAYOUT  USING P_WA_LAYOUT LIKE WA_LAYOUT .
    CLEAR P_WA_LAYOUT.
    P_WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
    *P_WA_LAYOUT-F2CODE = '&ETA'.
    *p_wa_layout-detail_popup = 'X'.
    P_WA_LAYOUT-DETAIL_TITLEBAR = 'ALV REPORT'.
    *P_WA_LAYOUT-CONFIRMATION_PROMPT  = 'X'.
    ENDFORM.                    " F_BUILD_LAYOUT
    *&      Form  F_TOP_OF_PAGE
    FORM F_TOP_OF_PAGE .
    refresh it_listheader.
      DATA: LS_LIST TYPE SLIS_LISTHEADER.
      LS_LIST-TYP = 'H'.
      LS_LIST-INFO = TEXT-004.
      APPEND LS_LIST TO IT_LISTHEADER.
      LS_LIST-typ = 'S'.
      LS_LIST-key = 'Date: '.
      CONCATENATE sy-datum+6(2) '.'
      sy-datum+4(2) '.'
      sy-datum(4) INTO LS_LIST-info. "todays date
      append LS_LIST to IT_LISTHEADER.
      clear: LS_LIST.
      LS_LIST-TYP = 'S'.
      LS_LIST-KEY = 'DEVELOPED:'.
      LS_LIST-INFO = SY-UNAME.
      APPEND LS_LIST TO IT_LISTHEADER.
      CLEAR LS_LIST.
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
        EXPORTING
          IT_LIST_COMMENTARY = IT_LISTHEADER
          I_LOGO             = 'GLOBAL'.
    ENDFORM.                    " F_TOP_OF_PAGE
    *&      Form  F_BUILD_FCAT
    FORM F_BUILD_FCAT .
    CLEAR: W_REPID,
           IT_FCAT.
      MOVE SY-REPID TO W_REPID.
      CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
         I_PROGRAM_NAME               = W_REPID
         I_INTERNAL_TABNAME           = 'IT_CUST'
         I_INCLNAME                   = W_REPID
        CHANGING
          CT_FIELDCAT                  = IT_FCAT
    EXCEPTIONS
       INCONSISTENT_INTERFACE       = 1
       PROGRAM_ERROR                = 2
       OTHERS                       = 3
      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.                    " F_BUILD_FCAT
    *&      Form  F_USER_COMMAND
    FORM F_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
                              RS_SELFIELD TYPE SLIS_SELFIELD.
    CASE  R_UCOMM.
    WHEN '&IC1'.
    IF RS_SELFIELD-FIELDNAME = 'KUNNR'.
    READ TABLE IT_CUST
    INDEX RS_SELFIELD-TABINDEX.
    MOVE rs_selfield-value TO W_KUNNR.
    IF IT_CUST IS NOT INITIAL.
       PERFORM F_GET_SECONDARY_DATA.
       PERFORM F_BUILD_FCAT1.
       PERFORM F_BUILD_EVENTS.
       PERFORM F_GET_SORT.
       PERFORM F_BUILD_LAYOUT1.
      PERFORM F_GET_DISPLAY1.
    ENDIF.
      ENDIF.
      ENDCASE.
    ENDFORM.                    " F_USER_COMMAND
    *&      Form  F_GET_SECONDARY_DATA
    FORM F_GET_SECONDARY_DATA .
    data:v_data.
    SELECT  VBELN
              AUDAT
              AUART
              NETWR
    KUNNR FROM VBAK INTO TABLE IT_SALE
    WHERE KUNNR EQ IT_CUST-KUNNR.
      IF IT_SALE[] IS INITIAL .
       CALL FUNCTION 'POPUP_TO_CONFIRM'
         EXPORTING
          TITLEBAR                    = SY-REPID
         DIAGNOSE_OBJECT             = ' '
           TEXT_QUESTION               = 'NO SALES FOR THIS CUSTOMER'
         TEXT_BUTTON_1               = 'Ja'(001)
         ICON_BUTTON_1               = ' '
         TEXT_BUTTON_2               = 'Nein'(002)
         ICON_BUTTON_2               = ' '
          DEFAULT_BUTTON              = '1'
          DISPLAY_CANCEL_BUTTON       = 'X'
         USERDEFINED_F1_HELP         = ' '
         START_COLUMN                = 25
         START_ROW                   = 6
         POPUP_TYPE                  =
         IV_QUICKINFO_BUTTON_1       = ' '
         IV_QUICKINFO_BUTTON_2       = ' '
        IMPORTING
          ANSWER                      = v_data
       TABLES
         PARAMETER                   =
        EXCEPTIONS
          TEXT_NOT_FOUND              = 1
          OTHERS                      = 2
       IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
       ENDIF.
    case v_data.
    when '2'.
    leave screen.
    when 'A'.
    leave to screen '0'.
    endcase.
      ENDIF.
    ENDFORM.                    " F_GET_SECONDARY_DATA
    *&      Form  F_BUILD_FCAT1
    FORM F_BUILD_FCAT1 .
    REFRESH IT_FCAT1.
    CLEAR WA_FCAT1.
    ADD_FCAT1:
    '1' 'VBELN' 'VBAK' 'VBAK' 'X' ' ' 'X' 'C500',
    '2' 'AUDAT' 'VBAK' 'VBAK' ' ' ' ' ' ' 'C400',
    '3' 'AUART' 'VBAK' 'VBAK' ' ' ' ' ' ' 'C100',
    '4' 'NETWR' 'VBAK' 'VBAK' ' ' 'X' ' ' 'C300'.
    ENDFORM.                    " F_BUILD_FCAT1
    *&      Form  F_GET_DISPLAY1
          text
    -->  p1        text
    <--  p2        text
    FORM F_GET_DISPLAY1 .
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
         I_CALLBACK_PROGRAM                = SY-REPID
      I_CALLBACK_PF_STATUS_SET          = ' '
        I_CALLBACK_USER_COMMAND           =  'F_USER_COMMAND1'
         I_CALLBACK_TOP_OF_PAGE            = 'F_TOP_OF_PAGE1'
      I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
      I_CALLBACK_HTML_END_OF_LIST       = ' '
      I_STRUCTURE_NAME                  =
      I_BACKGROUND_ID                   = ' '
      I_GRID_TITLE                      =
      I_GRID_SETTINGS                   =
      IS_LAYOUT                         =
         IT_FIELDCAT                       = IT_FCAT1
      IT_EXCLUDING                      =
      IT_SPECIAL_GROUPS                 =
       IT_SORT                            = IT_SORT
      IT_FILTER                         =
      IS_SEL_HIDE                       =
      I_DEFAULT                         = 'X'
      I_SAVE                            = ' '
      IS_VARIANT                        =
         IT_EVENTS                         = IT_EVENTS1
      IT_EVENT_EXIT                     =
      IS_PRINT                          =
      IS_REPREP_ID                      =
      I_SCREEN_START_COLUMN             = 0
      I_SCREEN_START_LINE               = 0
      I_SCREEN_END_COLUMN               = 0
      I_SCREEN_END_LINE                 = 0
      I_HTML_HEIGHT_TOP                 = 0
      I_HTML_HEIGHT_END                 = 0
      IT_ALV_GRAPHICS                   =
      IT_HYPERLINK                      =
      IT_ADD_FIELDCAT                   =
      IT_EXCEPT_QINFO                   =
      IR_SALV_FULLSCREEN_ADAPTER        =
    IMPORTING
      E_EXIT_CAUSED_BY_CALLER           =
      ES_EXIT_CAUSED_BY_USER            =
        TABLES
          T_OUTTAB                          = IT_SALE
    EXCEPTIONS
      PROGRAM_ERROR                     = 1
      OTHERS                            = 2
      IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
    ENDFORM.                    " F_GET_DISPLAY1
    *&      Form  F_BUILD_EVENTS
    FORM F_BUILD_EVENTS .
    clear wa_events1.
      CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
         I_LIST_TYPE           = 0
       IMPORTING
         ET_EVENTS             = IT_EVENTS1.
    EXCEPTIONS
      LIST_TYPE_WRONG       = 1
      OTHERS                = 2
    IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      SORT IT_EVENTS1.
      read table It_events1 with key name = 'TOP_OF_PAGE'
      into WA_eventS1.
      if sy-subrc = 0.
        move 'F_TOP_OF_PAGE1' to WA_EventS1-form.
        append WA_eventS1 to it_events1.
      endif.
      READ TABLE IT_EVENTS WITH KEY NAME = 'USER_COMMAND'
      INTO WA_EVENTS1.
      IF SY-SUBRC = 0.
      MOVE 'F_USER_COMMAND1' TO WA_EVENTS1-FORM.
      APPEND WA_EVENTS1 TO IT_EVENTS1.
      ENDIF.
    *READ TABLE IT_EVENTS WITH KEY NAME = 'SUBTOTAL_TEXT'
    INTO WA_EVENTS1.
    IF SY-SUBRC = 0.
    MOVE 'F_SUBTOTAL_TEXT' TO WA_EVENTS1-FORM.
    APPEND WA_EVENTS1 TO IT_EVENTS1.
    ENDIF.
    ENDFORM.                    " F_BUILD_EVENTS
    *&      Form  F_TOP_OF_PAGE1
    FORM F_TOP_OF_PAGE1 .
    DATA: LS_HEADER TYPE SLIS_LISTHEADER.
    REFRESH : IT_LISTHEADER1.
      LS_HEADER-TYP = 'H'.
      LS_HEADER-INFO = 'SALES ORDER DETAILS FOR CUSTOMER'.
      APPEND LS_HEADER TO it_listheader1.
      CLEAR LS_HEADER.
      LS_HEADER-TYP  = 'S'.
      LS_HEADER-KEY = 'CUSTOMER NO:'.
      LS_HEADER-INFO = W_KUNNR.
      APPEND LS_HEADER TO IT_LISTHEADER1.
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
        EXPORTING
          IT_LIST_COMMENTARY       = IT_LISTHEADER1
         I_LOGO                   = 'DUCK'
      I_END_OF_LIST_GRID       =
      I_ALV_FORM               =
    ENDFORM.                    " F_TOP_OF_PAGE
    *&      Form  F_END_OF_PAGE
          text
    -->  p1        text
    <--  p2        text
    FORM F_END_OF_PAGE .
    DATA:LS_FOOTER TYPE SLIS_LISTHEADER.
    LS_FOOTER-TYP = 'S'.
    LS_FOOTER-KEY = SY-UNAME.
    LS_FOOTER-INFO = 'DEVELOPED BY:'.
    APPEND LS_FOOTER TO IT_FOOTER.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
      EXPORTING
        IT_LIST_COMMENTARY       = IT_FOOTER
    ENDFORM.                    " F_END_OF_PAG
    *&      Form  F_USER_COMMAND1
          text
    -->  p1        text
    <--  p2        text
    FORM F_USER_COMMAND1 USING R_UCOMM LIKE SY-UCOMM
                               RS_SELFIELD TYPE SLIS_SELFIELD.
    CASE R_UCOMM.
    WHEN '&IC1'.
    READ TABLE IT_SALE INDEX RS_SELFIELD-TABINDEX.
    PERFORM F_GET_SECONDARY2.
    PERFORM F_GET_FCAT3 USING:
    'VBELN' '1' 'C' '12' 'SALES_DOC'   'M'  'VBAP' 'X' 'C51' ' ',
    'POSNR' '2' ' '  '5' 'ITEM_NO'      'M'  'VBAP' ' ' 'C61' ' ',
    'MATNR' '3' ' '  '12' 'MATERIAL_NO' 'M'  'VBAP' ' ' 'C71' ' ',
    'CHARG' '4' ' ' '10' 'BATCH_NO'    'M'  'VBAP' ' ' 'C41' ' ',
    'MATKL' '5' ' ' '10' 'MAT_GROUP'   'M'  'VBAP' ' ' 'C31' ' ',
    'MEINS' '6' ' ' '12' 'BASE_UNIT'   'M'  'VBAP' ' ' 'C21' 'X' .
    PERFORM F_GET_EVENTS2 USING WA_EVENTS2
                         CHANGING IT_EVENTS2.
    PERFORM F_GET_DISPLAY3.
    REFRESH IT_FCAT3.
    ENDCASE.
    ENDFORM.                    " F_USER_COMMAND1
    *&      Form  F_GET_SECONDARY2
          text
    -->  p1        text
    <--  p2        text
    FORM F_GET_SECONDARY2 .
    SELECT VBELN
           POSNR
           MATNR
           MATKL
           MEINS
           FROM VBAP INTO
           TABLE IT_ITEM WHERE
           VBELN EQ IT_SALE-VBELN.
    IF SY-DBCNT EQ 0.
    MESSAGE E000(ZHAI) WITH TEXT-KO1.
    ENDIF.
    ENDFORM.                    " F_GET_SECONDARY2
    *&      Form  F_GET_DISPLAY3
          text
    -->  p1        text
    <--  p2        text
    FORM F_GET_DISPLAY3 .
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
       I_CALLBACK_PROGRAM                = SY-REPID
       I_CALLBACK_PF_STATUS_SET          = 'F_PF_STATUS'
      I_CALLBACK_USER_COMMAND           = ' '
      I_CALLBACK_TOP_OF_PAGE            = 'F_TOP_OF_PAGE3'
       I_CALLBACK_HTML_TOP_OF_PAGE       = 'F_TOP_OF_PAGE3'
      I_CALLBACK_HTML_END_OF_LIST       = ' '
      I_STRUCTURE_NAME                  =
      I_BACKGROUND_ID                   = ' '
      I_GRID_TITLE                      =
      I_GRID_SETTINGS                   =
       IS_LAYOUT                         = WA_LAYOUT1
       IT_FIELDCAT                       = IT_FCAT3
      IT_EXCLUDING                      =
      IT_SPECIAL_GROUPS                 =
      IT_SORT                           = IT_SORT
      IT_FILTER                         =
      IS_SEL_HIDE                       =
      I_DEFAULT                         = 'X'
      I_SAVE                            = ' '
      IS_VARIANT                        =
       IT_EVENTS                         = IT_EVENTS2
      IT_EVENT_EXIT                     =
      IS_PRINT                          =
      IS_REPREP_ID                      =
      I_SCREEN_START_COLUMN             = 0
      I_SCREEN_START_LINE               = 0
      I_SCREEN_END_COLUMN               = 0
      I_SCREEN_END_LINE                 = 0
      I_HTML_HEIGHT_TOP                 = 0
      I_HTML_HEIGHT_END                 = 0
      IT_ALV_GRAPHICS                   =
      IT_HYPERLINK                      =
      IT_ADD_FIELDCAT                   =
      IT_EXCEPT_QINFO                   =
      IR_SALV_FULLSCREEN_ADAPTER        =
    IMPORTING
      E_EXIT_CAUSED_BY_CALLER           =
      ES_EXIT_CAUSED_BY_USER            =
      TABLES
        T_OUTTAB                          = IT_ITEM
    EXCEPTIONS
      PROGRAM_ERROR                     = 1
      OTHERS                            = 2
    IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    ENDFORM.                    " F_GET_DISPLAY3
    *&      Form  F_GET_FCAT3
    FORM F_GET_FCAT3  USING    VALUE(P1)
                               VALUE(P2)
                               VALUE(P3)
                               VALUE(P4)
                               VALUE(P5)
                               VALUE(P6)
                               VALUE(P7)
                               VALUE(P8)
                               VALUE(P9)
                              VALUE(P10).
    CLEAR WA_FCAT3.
      WA_FCAT3-FIELDNAME = P1.
      WA_FCAT3-COL_POS = P2.
      WA_FCAT3-JUST = P3.
      WA_FCAT3-OUTPUTLEN = P4.
      WA_FCAT3-SELTEXT_M  = P5.
      WA_FCAT3-DDICTXT = P6.
      WA_FCAT3-REF_TABNAME = P7.
      WA_FCAT3-HOTSPOT = P8.
      WA_FCAT3-EMPHASIZE = P9.
      WA_FCAT3-DO_SUM  = P10.
      APPEND WA_FCAT3 TO IT_FCAT3.
    ENDFORM.                    " F_GET_FCAT3
    *&      Form  F_BUILD_LAYOUT1
          text
    -->  p1        text
    <--  p2        text
    FORM F_BUILD_LAYOUT1 .
    WA_LAYOUT1-totals_text = 'TOTAL'.
    wa_layout1-detail_popup = 'X'.
    ENDFORM.                    " F_BUILD_LAYO
    *&      Form  F_GET_EVENTS2
          text
         -->P_IT_EVENTS2  text
         <--P_WA_EVENTS2  text
    FORM F_GET_EVENTS2  USING    VALUE(P_WA_EVENTS2) LIKE WA_EVENTS2
                        CHANGING P_IT_EVENTS2 LIKE IT_EVENTS2.
    P_WA_EVENTS2-NAME = 'HTML_TOP_OF_PAGE'.
    P_WA_EVENTS2-FORM = 'F_TOP_OF_PAGE3'.
    APPEND P_WA_EVENTS2 TO P_IT_EVENTS2.
    CLEAR P_WA_EVENTS2.
    P_WA_EVENTS2-NAME = 'PF_STATUS'.
    P_WA_EVENTS2-FORM = 'F_PF_STATUS'.
    APPEND P_WA_EVENTS2 TO P_IT_EVENTS2.
    CLEAR P_WA_EVENTS2.
    P_WA_EVENTS2-NAME = 'USER_COMMAND'.
    P_WA_EVENTS2-FORM = 'F_USER_COMMAND3'.
    APPEND P_WA_EVENTS2 TO P_IT_EVENTS2.
    CLEAR P_WA_EVENTS2.
    p_wa_events2-name = 'HTML_END_OF_LIST'.
    P_WA_EVENTS2-FORM = 'F_HTML_END_OF_LIST'.
    APPEND P_WA_EVENTS2 TO P_IT_EVENTS2.
    CLEAR p_wa_events2.
    ENDFORM.                    " F_GET_EVENTS2
    *&      Form  F_TOP_OF_PAGE3
          text
    -->  p1        text
    <--  p2        text
    FORM F_TOP_OF_PAGE3 USING DOCUMENT TYPE REF TO cl_dd_document .
    data : link_area type ref to cl_dd_area,
           picture_area type ref to cl_dd_area.
    CALL METHOD DOCUMENT->ADD_TEXT
      EXPORTING
        TEXT          = 'ALV REPORT'
       TEXT_TABLE    =
       FIX_LINES     =
       SAP_STYLE     =
        SAP_COLOR     = cl_dd_area=>list_background_int
        SAP_FONTSIZE  = 'LARGE'
        SAP_FONTSTYLE = 'TIMES'
        SAP_EMPHASIS  = 'STRONG'
       STYLE_CLASS   =
    CHANGING
       DOCUMENT      =
    CALL METHOD DOCUMENT->NEW_LINE.
    CALL METHOD DOCUMENT->ADD_PICTURE
      EXPORTING
        PICTURE_ID       = 'LOGO1'
        WIDTH            = '10%'
    ENDFORM.                    " F_TOP_OF_PAGE3
    *&      Form  F_GET_SORT
          text
    -->  p1        text
    <--  p2        text
    FORM F_GET_SORT .
    WA_SORT-FIELDNAME = 'NETWR'.
    WA_SORT-SPOS  = 4.
    WA_SORT-UP = 'X'.
    WA_SORT-SUBTOT = 'X'.
    APPEND WA_SORT TO IT_SORT.
    ENDFORM.                    " F_GET_SORT
    *&      Form  F_PF_STATUS
          text
    -->  p1        text
    <--  p2        text
    FORM F_PF_STATUS USING RS_EXTAB TYPE SLIS_T_EXTAB .
    SET PF-STATUS 'ZHAIALV' EXCLUDING RS_EXTAB.
    ENDFORM.                    " F_PF_STATUS
    *&      Form  F_USER_COMMAND3
          text
    -->  p1        text
    <--  p2        text
    FORM F_USER_COMMAND3 USING R_UCOMM LIKE SY-UCOMM
                               RS_SELFIELD TYPE SLIS_SELFIELD.
    CASE R_UCOMM.
    WHEN '&SALE'.
    IF RS_SELFIELD-FIELDNAME = 'VBELN'.
    SET parameter ID 'AUN' FIELD rs_selfield-value.
    CALL TRANSACTION 'VA02' AND SKIP FIRST SCREEN.
    ENDIF.
    WHEN '&MAT'.
    IF RS_SELFIELD-FIELDNAME = 'MATNR'.
    SET PARAMETER ID 'MAT' FIELD RS_SELFIELD-VALUE.
    CALL TRANSACTION 'MM02' AND SKIP FIRST SCREEN.
    ENDIF.
    ENDCASE.
    ENDFORM.                    " F_USER_COMMAND3
    *&      Form  F_HTML_END_OF_LIST
          text
    -->  p1        text
    <--  p2        text
    FORM F_HTML_END_OF_LIST USING DOCUMENT TYPE REF TO CL_DD_DOCUMENT.
    DATA : PAGE TYPE SDYDO_TEXT_ELEMENT.
    MOVE SY-PAGNO TO PAGE.
    CALL METHOD DOCUMENT->ADD_TEXT
      EXPORTING
        TEXT          = PAGE
       TEXT_TABLE    =
       FIX_LINES     =
       SAP_STYLE     =
       SAP_COLOR     =
       SAP_FONTSIZE  =
       SAP_FONTSTYLE =
       SAP_EMPHASIS  =
       STYLE_CLASS   =
    CHANGING
       DOCUMENT      =
    ENDFORM.                    " F_HTML_END_OF_LIS

  • Initial program deployed to update other programs from

    Historically with Creative Cloud, there was an initial program that automatically deployed. On it was a list of programs that I had already downloaded and the status of whether those programs need to be updated or not. I cannot locate this program. What is it called?

    HI Birdi999,
    I thinks you are talking about Application Manager.
    with new version of CC it has been updated and the application is called Cretive Cloud .
    Regards,
    Prabs

  • Hi! I can't upgrade my iTunes 10.3.1.55 on my Windows XP 2002 SP3 to the latest version of iTunes. Got the message: "A problem has occured with the Windows Installer-package. A program needed for this installation could not be run." What to do?

    Hi! I can't upgrade my iTunes 10.3.1.55 on my Windows XP 2002 SP3 to the latest version of iTunes. Got the message: "A problem has occured with the Windows Installer-package. A program needed for this installation could not be run." What to do?

    Perhaps let's first try updating your Apple Software Update.
    Launch Apple Software Update ("Start > All Programs > Apple Software Update"). Does it launch and offer you a newer version of Apple Software Update? If so, choose to install just that update to Apple Software Update. (Deselect any other software offered at the same time.)
    If the ASU update goes through okay, try another iTunes install. Does it go through without the errors this time?

  • Good morning, AdobeSuite installation does not work and I receive"error initializing program, download adobe advisor" error message. On Adobe site it appears"The Adobe Support Advisor has been discontinued  The Adobe Support Advisor tool was used to analy

    Good morning, AdobeSuite installation does not work and I receive"error initializing program, download adobe advisor" error message. On Adobe site it appears"The Adobe Support Advisor has been discontinued  The Adobe Support Advisor tool was used to analyze installer log and system information associated with installation errors. The tool has been replaced with improved installation support mechanisms. Please visit Adobe Support section for Knowledge base articles around Installation."

    Nobody can tell you anything without proper system info or other technical details. We don't even know what exactly you are trying to install.
    Mylenium

  • When trying to install iTunes I get an error saying "a program needed to install itunes cannot be run".  Any ideas what that program is?

    My computer would not let me update my version of itunes so I was advised to uninstall and start fresh.  I still get the same error..."a program needed to complete the installation cannot run".  Can any one tell me what program they are referring to or if anyone has a fix for this?
    Mandee

    I'd start with the following user tip with that one:
    "There is a problem with this Windows Installer package ..." error messages when installing iTunes for Windows

  • My first java programming - Need some help please!!!

    I have to create a simple java program which i am not good at i am ok in C but my java is quite bad. The program need to define a class called Student and with a string called StudentNAme, a integer StudentID(key), An array of 8 integers called Marks that holds the students marks for 8 modules. It also says Include appropriate accessors, mutators and constructor(s) as well as a method to update the student�s marks. Anybody please help me in this question. I prefer an simple example of this program so I can learn faster, I dont even know how to declare a class.. So sorry but please help me out and thanks in advance

    I would also suggest you try using an IDE like
    eclipse (free)
    www.eclipse.org
    This will help you get a working program much faster.But please do also tell them that if they have troubles using it, they're supposed to read the IDE manual instead of posting here.

  • AnyConnect - VPN Service is shutting down because a critical component cannot be initialized. Need a reboot

    Hi,
    I keep getting this error "  VPN Service is shutting down because a critical component cannot be initialized. Need a reboot" when even i launch 
    AnyConnect App.
    I am using AnyConnect App on Nexus 4 with Android 5.0. Any work around other than deleting cache and data.
    Please let know.

    Hi ,
     check this bug description CSCud51366, it could be useful.
    Hope this helps.

  • Basic Output program need some help...Please

    import java.io.*;
    class FileOutputDemo
    public static void main(String args[])
    int one=1, two=2, three=3;
         FileOutputStream out; // declare a file output object
         PrintStream p; // declare a print stream object
         try
              // Create a new file output stream
              // connected to "myfile.html"
              out = new FileOutputStream("myfile.html");
              // Connect print stream to the output stream
              p = new PrintStream( out );
              p.printf ("This is written to a file %d", one);
              p.close();
         catch (Exception e)
              System.err.println ("Error writing to file");
    }Hello I am new to java, and I hope someone help me to modify the above code in order to make it work as the following:
    I have a list of integer values like 1, 2, 3, 4? 10
    And I want the program to substitute the integer values (the integer declared list) subsequently one by one to output a new html file as the following output:
    This is written to a file 1
    This is written to a file 2
    This is written to a file3 ?etc
    Also this substitution has to be outputted to a new file every time.
    Thank you very much in advance for your kind help
    if i have to post this anywhere else please advise me..
    Adam

    import java.io.*;
    public class FileOutputDemo
        public static void main(String[] args) {
             FileOutputStream out; // declare a file output object
             PrintStream p; // declare a print stream object
             try
                  // Create a new file output stream
                  // connected to "myfile.html"
                  out = new FileOutputStream("myfile.html");
                  p = new PrintStream( out );
                  int[] arrayOfInts = { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 };
                for (int element : arrayOfInts)
                     p.printf (element + " ");
                  p.close();
                  // Connect print stream to the output stream
             catch (Exception e)
                  System.err.println ("Error writing to file");
    }ok .... guys i really understand what do you mean,
    i only need your help to make the program print one integer at a time from the array to a seprate file ....what do you suggest ... any hints
    Thanks

  • When I try to install the program, it requests that I close firefox to continue. When I close the program from the internet, it still states that the program needs to be closed.

    It repreats itself from the beginning stating that firefox needs to be closed in order to continue.

    That would be my first guess.  You might be trying to install the 32 bit version of the program.
    Update the thread with more info on your apple software etc if its a 64 bit install you're trying to perform.

  • Chat scroll in another program needs firefox 5.0.1

    company chat program scrolled just fine with 5.0.1 now need to scroll to find and advance

    Start Firefox in <u>[[Safe Mode]]</u> to check if one of the extensions is causing the problem (switch to the DEFAULT theme: Firefox (Tools) > Add-ons > Appearance/Themes).
    *Don't make any changes on the Safe mode start window.
    *https://support.mozilla.com/kb/Safe+Mode
    *https://support.mozilla.com/kb/Troubleshooting+extensions+and+themes
    See also:
    *http://kb.mozillazine.org/Corrupt_localstore.rdf

  • Smart forms and print program needed

    Can anyone provide me with the following print programs and smart forms? I can't find it in my SAP. Thanks.
    Print Program:
    /SMB40/M07DR
    Smart Forms:
    /SMB40/MMGR1_A
    /SMB40/MMGR3_A
    /SMB40/MMGI1_A
    Please kindly email me at [email protected]

    Hi
    I appreciate for your sincierty i cant send through mail but i'm sending directly plz copy all the programs
    INCLUDE /SMB40/M07DRTOP.
    PROGRAM /BPR3PF/m07dr MESSAGE-ID m7.
    DATA  lgortsplit LIKE am07m-xselk.
    DATA  ladr LIKE sadr.
    DATA  *ladr LIKE sadr.
    CONSTANTS: a TYPE c VALUE 'A',
               b TYPE c VALUE 'B',
               c TYPE c VALUE 'C',
               d TYPE c VALUE 'D',
               e TYPE c VALUE 'E',
               f TYPE c VALUE 'F',
               g TYPE c VALUE 'G',
               h TYPE c VALUE 'H',
               i TYPE c VALUE 'I',
               j TYPE c VALUE 'J',
               k TYPE c VALUE 'K',
               l TYPE c VALUE 'L',
               m TYPE c VALUE 'M',
               n TYPE c VALUE 'N',
               o TYPE c VALUE 'O',
               p TYPE c VALUE 'P',
               q TYPE c VALUE 'Q',
               r TYPE c VALUE 'R',
               s TYPE c VALUE 'S',
               t TYPE c VALUE 'T',
               u TYPE c VALUE 'U',
               v TYPE c VALUE 'V',
               w TYPE c VALUE 'W',
               x TYPE c VALUE 'X',
               y TYPE c VALUE 'Y',
               z TYPE c VALUE 'Z'.
    CONSTANTS: plus  TYPE c VALUE '+',
               minus TYPE c VALUE '-',
               punkt TYPE c VALUE '.',
               null  TYPE c VALUE '0',
               eins  TYPE c VALUE '1',
               zwei  TYPE c VALUE '2',
               drei  TYPE c VALUE '3',
               vier  TYPE c VALUE '4',
               fuenf TYPE c VALUE '5',
               sechs TYPE c VALUE '6',
              sieben TYPE c VALUE '7',
               acht  TYPE c VALUE '8',
               neun  TYPE c VALUE '9',
               einsi TYPE i VALUE '1',
               zweii TYPE i VALUE '2',
               dreii TYPE i VALUE '3',
               vieri TYPE i VALUE '4',
               nzwei TYPE i VALUE '02',
               ndrei TYPE i VALUE '03'.
    CONSTANTS: actvt01 LIKE tact-actvt VALUE '01',
               actvt02 LIKE tact-actvt VALUE '02',
               actvt03 LIKE tact-actvt VALUE '03',
               actvt04 LIKE tact-actvt VALUE '04',
               actvt06 LIKE tact-actvt VALUE '06',
               actvt65 LIKE tact-actvt VALUE '65',
               actvt70 LIKE tact-actvt VALUE '70'.
    CONSTANTS: maximum     TYPE f VALUE 9999999999999,
               minimum     TYPE f VALUE -9999999999999,
               maximum_gld TYPE f VALUE  99999999999,
               minimum_gld TYPE f VALUE  -99999999999,
               maxvalue LIKE am07m-maxvalue VALUE 9999999999999,
               minvalue LIKE am07m-maxvalue VALUE -9999999999999,
               cnull(18)   TYPE c VALUE '000000000000000000',
               pf02(4)     TYPE c VALUE 'PF02',
               pf15(4)     TYPE c VALUE 'PF15',
               stern       TYPE c VALUE '*',
               doublestar(2) TYPE c VALUE '**',
               underscore  TYPE c VALUE '_',
               slasch      TYPE c VALUE '/',
               dpunkt      TYPE c VALUE ':',
               curtp00     LIKE smbew-curtp VALUE '00', "Transaktionswährung
               curtp10     LIKE smbew-curtp VALUE '10', "ML in Hauswährung
               auto_best   LIKE mseg-ebeln  VALUE '9999999999',
               modulpool   LIKE sy-repid    VALUE 'SAPMM07M'.
    CONSTANTS: BEGIN OF hlp,
                 b(4) TYPE c VALUE 'HLPB',
                 f(4) TYPE c VALUE 'HLPF',
                 g(4) TYPE c VALUE 'HLPG',
                 m(4) TYPE c VALUE 'HLPM',
                 r(4) TYPE c VALUE 'HLPR',
                 v(4) TYPE c VALUE 'HLPV',
               END OF hlp.
                                           "Equates für Alphabet
    TABLES:
       afko,
       aufk,
       itcpo,
       mkpf,
      *mkpf,
       mseg,
      *mseg,
       ekko,
       ekkn,
      *ekko,
      arc_params,
       ekpo,
       ekbe,
       lfa1,
      *lfa1,
       thead,
       toa_dara,
       am07m,
      *am07m,
       t001,
       t001w,
      *t001w,
       t027b,
       t027c,
       t027d,
       t156,
       t156t,
       t157e,
      *t157e,
       t159m,
       t159n,
       t159o,
       t159p,
       t159s,
       t159e,
       t024,
       t024d,
      *t024,
       t064b,
       nast,
      *nast,
      tnapr.
    TABLES: mabdr,
            mtcom,
            mtcor,
            twlad.
    * Reportinterne Daten                                                 *
    *--- Strukturen ------------------------------------------------------*
    DATA: x_protab TYPE c,
          x_bwart TYPE c,
          bwart LIKE mseg-bwart,
          eintraege LIKE sy-tfill,
          anzahl LIKE mseg-weanz,
          anzahl1(7) TYPE n,
          x_kont TYPE c,                   "Mehrfachkontierung
          x_kont1 TYPE c,              "Einfache Kontierung (WE unbewertet)
          x_form TYPE c,
          x_open TYPE c.
    DATA: BEGIN OF jahr,
            jahr(4) TYPE n,
            monat(2) TYPE n,
            tag(2) TYPE n,
          END OF jahr.
    DATA:
       BEGIN OF we,
         version1 VALUE '1',               "Standardversion
         version2 VALUE '2',               "Version mit Prüftext
         version3 VALUE '3',               "WE-Sammelschein
       END OF we,
       BEGIN OF alt,
          matnr LIKE mseg-matnr,
          bwart LIKE mseg-bwart,
          ebeln LIKE mseg-ebeln,
          usnam LIKE mkpf-usnam,
       END OF alt,
       BEGIN OF kunde,
          kdauf LIKE mseg-kdauf,
          kdpos LIKE mseg-kdpos,
          kdein LIKE mseg-kdein,
       END OF kunde,
       BEGIN OF anlage,
          anln1 LIKE mseg-anln1,
          anln2 LIKE mseg-anln2,
       END OF anlage,
       BEGIN OF belpos,
          mblnr LIKE mseg-mblnr,
          zeile LIKE mseg-zeile,
       END OF belpos,
        xskkz,
        xpsty,
        xkdanr    VALUE 'C',
        xkde      VALUE 'E',
        xfert     VALUE 'F',
        xrvkdanr  VALUE 'A',
        xanlage   VALUE 'A',
        xanln1    VALUE 'I',
        xkostl    VALUE 'K',
        xprojn    VALUE 'P',
        xmunbw    VALUE 'M',
        xumlag    VALUE 'U',
        xvbelg    VALUE 'V',
        xnplan    VALUE 'N',
        xkonsi(2) VALUE 'KB',
        xwabel(2) VALUE 'WA',
        xwibel(2) VALUE 'WI',
        xwebel(2) VALUE 'WE',
         xsele,                            "Position selektiert
         xkont,                            "Kontierungswechsel
         xsamm,                            "Sammel-WE-Schein
         xanha.                            "Mehrfachkontierung
    DATA BEGIN OF theader.
            INCLUDE STRUCTURE thead.
    DATA END OF theader.
    *--- Interne Tabellen -------------------------------------------------*
    DATA:
       BEGIN OF dummy OCCURS 0,
         dummy,
       END OF dummy.
    DATA:
       BEGIN OF ausgabe OCCURS 20,
          mblnr LIKE mseg-mblnr,
       END OF ausgabe.
    DATA: BEGIN OF xekkn OCCURS 50.
            INCLUDE STRUCTURE ekkn.
    DATA: END OF xekkn.
    DATA: BEGIN OF xmseg OCCURS 50.
            INCLUDE STRUCTURE mseg.
    DATA: END OF xmseg.
    DATA: BEGIN OF dtext OCCURS 1.
            INCLUDE STRUCTURE tline.
    DATA: END OF dtext.
    DATA: BEGIN OF dktext OCCURS 1.
            INCLUDE STRUCTURE tline.
    DATA: END OF dktext.
    DATA: BEGIN OF dptext OCCURS 1.
            INCLUDE STRUCTURE thead.
    DATA: END OF dptext.
    DATA: BEGIN OF nast_key,
            mblnr LIKE mkpf-mblnr,
            mjahr LIKE mkpf-mjahr,
            zeile LIKE mseg-zeile,
          END OF nast_key.
    DATA: BEGIN OF beltab OCCURS 20.
            INCLUDE STRUCTURE mseg.
    DATA: vgart LIKE mkpf-vgart,
          blart LIKE mkpf-blart,
          blaum LIKE mkpf-blaum,
          bldat LIKE mkpf-bldat,
          budat LIKE mkpf-budat,
          cpudt LIKE mkpf-cpudt,
          cputm LIKE mkpf-cputm,
          aedat LIKE mkpf-aedat,
          usnam LIKE mkpf-usnam,
          tcode LIKE mkpf-tcode,
          xblnr LIKE mkpf-xblnr,
          bktxt LIKE mkpf-bktxt,
          frath LIKE mkpf-frath,
          frbnr LIKE mkpf-frbnr,
          wever LIKE mkpf-wever,
          kzdru LIKE t156-kzdru,
          END OF beltab.
    DATA: BEGIN OF traptab OCCURS 50.
            INCLUDE STRUCTURE mseg.
    DATA:   vgart LIKE mkpf-vgart,
            blart LIKE mkpf-blart,
            blaum LIKE mkpf-blaum,
            bldat LIKE mkpf-bldat,
            budat LIKE mkpf-budat,
            cpudt LIKE mkpf-cpudt,
            cputm LIKE mkpf-cputm,
            aedat LIKE mkpf-aedat,
            usnam LIKE mkpf-usnam,
            tcode LIKE mkpf-tcode,
            xblnr LIKE mkpf-xblnr,
            bktxt LIKE mkpf-bktxt,
            frath LIKE mkpf-frath,
            frbnr LIKE mkpf-frbnr,
            wever LIKE mkpf-wever,
          END OF traptab.
    DATA: BEGIN OF inthead OCCURS 50.
            INCLUDE STRUCTURE thead.
    DATA: END OF inthead.
    DATA: BEGIN OF intline OCCURS 50.
            INCLUDE STRUCTURE tline.
    DATA: END OF intline.
    DATA: BEGIN OF intline1 OCCURS 50.
            INCLUDE STRUCTURE tline.
    DATA: END OF intline1.
    *-------- Hilfsfelder -------------------------------------------------*
    DATA: index_z LIKE sy-tabix,
          drucker LIKE rm07m-ldest,
          old_tdform LIKE t159o-tdform,
          r_werks LIKE t001w-werks,
          r_name1 LIKE t001w-name1,
          x_form3 TYPE c,
          x_nopdest TYPE c,
          language LIKE t001w-spras,
          zaehler_m LIKE sy-tabix,
          edruck  TYPE c.
    DATA: old_mkpf LIKE mkpf-usnam,
          old_budat LIKE mkpf-budat,
          old_cpudt LIKE mkpf-cpudt,
          old_werks LIKE t001w-werks,
          old_name1 LIKE t001w-name1,
          old_mblnr LIKE mkpf-mblnr,
          old_lifnr LIKE ekko-lifnr,
          old_ebeln LIKE ekko-ebeln,
          old_ekgrp LIKE ekko-ekgrp,
          old_reswk LIKE ekko-reswk,
          old_linam LIKE am07m-name1,
          old_lina2 LIKE am07m-name2,
          old_eknam LIKE t024-eknam,
          old_ektel LIKE t024-ektel,
          old_ematn LIKE mseg-ematn,
          old_lfa1  LIKE lfa1,
          old_lgort LIKE mseg-lgort,
          old_ladr LIKE ladr,
          save_mkpf LIKE mkpf-usnam,
          save_budat LIKE mkpf-budat,
          save_cpudt LIKE mkpf-cpudt,
          save_werks LIKE t001w-werks,
          save_name1 LIKE t001w-name1,
          save_mblnr LIKE mkpf-mblnr,
          save_lifnr LIKE ekko-lifnr,
          save_reswk LIKE ekko-reswk,
          save_ebeln LIKE ekko-ebeln,
          save_ekgrp LIKE ekko-ekgrp,
          save_linam LIKE am07m-name1,
          save_lina2 LIKE am07m-name2,
          save_eknam LIKE t024-eknam,
          save_ektel LIKE t024-ektel,
          save_ematn LIKE mseg-ematn,
          save_lfa1  LIKE lfa1,
          save_lgort LIKE mseg-lgort,
          save_ladr LIKE ladr,
          offwhile TYPE c,
          & TYPE c VALUE '&',
          blank TYPE c VALUE ' ',
          fenster(5) TYPE c VALUE 'WIN  ',
          fcount(2) TYPE c,
          text1(21) TYPE c VALUE 'INTLINE-TDLINE+  (  )',
          text2(22) TYPE c VALUE 'INTLINE1-TDLINE+  (  )',
          text5(22) TYPE c VALUE 'INTLINE1-TDLINE+  (  )',
          hifeld1(21) TYPE c VALUE 'INTLINE-TDLINE+  (10)',
          shift(2) TYPE n,
          fpage LIKE sy-pagno,
          xscreen(1) TYPE c,
          retco LIKE sy-subrc,
          mblnr LIKE mkpf-mblnr,
          zeile LIKE mseg-zeile,
          new_page,
          xkopfdr,                         "Kopf bereits gedruckt
          n_vornr LIKE resb-vornr.         "Netzplanvorgang
    INCLUDE /SMB40/M07DRMTA.
    *------Lesen Tabelle T001----------------------------------------------*
    FORM TAB001_LESEN.
      IF NOT T001-BUKRS = MSEG-BUKRS.
        SELECT SINGLE * FROM T001 WHERE BUKRS = MSEG-BUKRS.
      ENDIF.
    ENDFORM.
    *-------Lesen Tabelle T001w--------------------------------------------*
    FORM TAB001W_LESEN.
      IF NOT T001W-WERKS = MSEG-WERKS.
        SELECT SINGLE * FROM T001W WHERE WERKS = MSEG-WERKS.
      ENDIF.
        R_WERKS = T001W-WERKS.
        R_NAME1 = T001W-NAME1.
    * Sprache für Formular aus Kondition, sonst aus Werk
      IF NOT NAST-SPRAS IS INITIAL.
        LANGUAGE = NAST-SPRAS.
      ELSE.
        LANGUAGE = T001W-SPRAS.
      ENDIF.
      SET LANGUAGE LANGUAGE.
    ENDFORM.
    *-------Lesen Tabelle T001w bei Werkswechsel --------------------------*
    FORM TAB001W_LESEN_2.
      IF NOT MSEG-WERKS = T001W-WERKS.
        SELECT SINGLE * FROM T001W WHERE WERKS = MSEG-WERKS.
      ENDIF.
    ENDFORM.
    *--------Lesen Tabelle T156--------------------------------------------*
    FORM TAB156_LESEN.
      IF NOT T156-BWART = MSEG-BWART.
        SELECT SINGLE * FROM T156 WHERE BWART = MSEG-BWART.
      ENDIF.
    ENDFORM.
    *-------Lesen Tabelle T156t--------------------------------------------*
    FORM TAB156T_LESEN.
      SELECT SINGLE * FROM T156T WHERE SPRAS = LANGUAGE
                                 AND   BWART = MSEG-BWART
                                 AND   SOBKZ = MSEG-SOBKZ
                                 AND   KZBEW = MSEG-KZBEW
                                 AND   KZZUG = MSEG-KZZUG
                                 AND   KZVBR = MSEG-KZVBR.
    ENDFORM.
    *------Lesen Tabelle T024----------------------------------------------*
    FORM TAB024_LESEN.
       IF NOT T024-EKGRP = EKKO-EKGRP.
         SELECT SINGLE * FROM T024 WHERE EKGRP = EKKO-EKGRP.
       ENDIF.
    ENDFORM.
    *------Lesen Tabelle T024D---------------------------------------------*
    FORM TAB024D_LESEN.
       SELECT SINGLE * FROM T024D WHERE WERKS = MSEG-WERKS
                                  AND   DISPO = AFKO-DISPO.
    ENDFORM.
    *---------------------- T027B,C lesen ---------------------------------*
    FORM T027_LESEN.
      SELECT SINGLE * FROM T027B WHERE SPRAS = LANGUAGE
                                 AND   EVERS = MSEG-EVERS.
      CHECK NOT MSEG-EVERE IS INITIAL.
      SELECT SINGLE * FROM T027C WHERE EVERS = MSEG-EVERS
                                 AND   EVERE = MSEG-EVERE.
      IF NOT T027C-EVDRK IS INITIAL.
        SELECT SINGLE * FROM T027D WHERE SPRAS = LANGUAGE
                                   AND   EVERS = MSEG-EVERS
                                   AND   EVERE = MSEG-EVERE.
      ENDIF.
    ENDFORM.
    *------------ Lesen der Tabelle T159P Barcode oder Mehrfachdruck ------*
    *----------------------- gewünscht ? ----------------------------------*
    FORM LESEN_T159P.
      IF NOT T159P-TDDEST = NAST-LDEST.
        SELECT SINGLE * FROM T159P WHERE TDDEST = NAST-LDEST.
      ENDIF.
    ENDFORM.
    *&      Form  T064B_LESEN
    *       Lesen Text zur Bestandsart Qualität/Gesperrt bei WE
    FORM T064B_LESEN.
      DATA: BSTAR LIKE T064B-BSTAR.
      CASE MSEG-INSMK.
        WHEN SPACE.
          CLEAR T064B.
          EXIT.
        WHEN F.
          CLEAR T064B.
          EXIT.
        WHEN X.
          BSTAR = ZWEI.
        WHEN ZWEI.
          BSTAR = ZWEI.
        WHEN S.
          BSTAR = VIER.
        WHEN DREI.
          BSTAR = VIER.
      ENDCASE.
      IF NOT T064B-BSTAR = BSTAR.
        SELECT SINGLE * FROM T064B WHERE SPRAS = LANGUAGE
                                   AND   BSTAR = BSTAR.
      ENDIF.
    ENDFORM.                    " T064B_LESEN
    INCLUDE /SMB40/M07DRMMA.
    *---------Material lesen-----------------------------------------------*
    FORM MATERIAL_LESEN.
      CLEAR MTCOM.
      MTCOM-KENNG = 'MABDR'.
      MTCOM-MATNR = MSEG-MATNR.
      MTCOM-WERKS = MSEG-WERKS.
      MTCOM-LGORT = MSEG-LGORT.
      MTCOM-SPRAS = LANGUAGE.
      MTCOM-NOMUS = 'X'.
      CALL FUNCTION 'MATERIAL_LESEN'
           EXPORTING
                SCHLUESSEL = MTCOM
           IMPORTING
                MATDATEN   = MABDR
                RETURN     = MTCOR
           TABLES
                SEQMAT01   = DUMMY.
      IF NOT T156-KZMHD IS INITIAL.
        IF NOT MABDR-MHDLP IS INITIAL.
          IF T001W-VLFKZ = B.              "Zentrale ?
            PERFORM MHD_BERECHNEN.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDFORM.
    *----------------- Mindesthaltbarkeit berechnen  ---------------------*
    FORM MHD_BERECHNEN.
      IF NOT EKPO-MHDRZ IS INITIAL.
        AM07M-MHDAT = MSEG-VFDAT - ( EKPO-MHDRZ * MABDR-MHDLP / 100 ).
      ELSEIF NOT MABDR-MHDRZ IS INITIAL.
        AM07M-MHDAT = MSEG-VFDAT - ( MABDR-MHDRZ * MABDR-MHDLP / 100 ).
      ENDIF.
    ENDFORM.
    *----------------- Prueftext lesen-------------------------------------*
    FORM PRUEFTEXT_LESEN.
      CLEAR  DPTEXT.
      CLEAR  THEADER.
      REFRESH DPTEXT.
      THEADER-TDID             = 'PRUE'.
      THEADER-TDSPRAS          = LANGUAGE.
      THEADER-TDNAME           = MSEG-MATNR.
      THEADER-TDOBJECT         = 'MATERIAL '.
      CALL FUNCTION 'SELECT_TEXT'
           EXPORTING
                ID         = THEADER-TDID
                LANGUAGE   = THEADER-TDSPRAS
                NAME       = THEADER-TDNAME
                OBJECT     = THEADER-TDOBJECT
           IMPORTING
                ENTRIES    = EINTRAEGE
           TABLES
                SELECTIONS = DPTEXT.
    ENDFORM.
    *                Lesen der Herstellerteilenummer                       *
    FORM LESEN_HTN.
      SELECT SINGLE MFRPN FROM MARA
               INTO (AM07M-MFRPN) WHERE MATNR = MSEG-EMATN.
    ENDFORM.
    INCLUDE /SMB40/M07DRMBE.
    *-------------Bestellung lesen-----------------------------------------*
    FORM BESTELLUNG_LESEN."ORDER READING
      DATA: NAME1 LIKE ADDR1_VAL-NAME1.
      DATA: OLD_LIFNR LIKE EKKO-LIFNR.
      CLEAR AM07M-NAME1.
      CLEAR AM07M-NAME2.
      IF EKKO-EBELN NE MSEG-EBELN.
        SELECT SINGLE * FROM EKKO WHERE EBELN = MSEG-EBELN.
      ENDIF.
      SELECT SINGLE * FROM EKPO WHERE EBELN = MSEG-EBELN
                                AND   EBELP = MSEG-EBELP.
    * Purchase order history because of XBLNR read, since from MKPF can
    *deviate
      SELECT SINGLE * FROM EKBE WHERE EBELN = MSEG-EBELN
                                AND   EBELP = MSEG-EBELP
                                AND   VGABE = '1'
                                AND   GJAHR = MSEG-MJAHR
                                AND   BELNR = MSEG-MBLNR
                                AND   BUZEI = MSEG-ZEILE.
      IF NOT SY-SUBRC IS INITIAL.
        CLEAR EKBE.
      ELSE.
        IF NOT EKBE-XBLNR IS INITIAL.
          MKPF-XBLNR = EKBE-XBLNR.
        ENDIF.
      ENDIF.
      CALL FUNCTION 'MM_ADDRESS_GET'
           EXPORTING  I_EKKO    = EKKO
           IMPORTING  E_NAME1   = NAME1
           EXCEPTIONS OTHERS    = 1.
      AM07M-NAME1 = NAME1.
      IF NOT EKKO-LLIEF IS INITIAL.
        OLD_LIFNR = EKKO-LIFNR.
        EKKO-LIFNR = EKKO-LLIEF.
        CALL FUNCTION 'MM_ADDRESS_GET'
             EXPORTING  I_EKKO    = EKKO
             IMPORTING  E_NAME1   = NAME1
             EXCEPTIONS OTHERS    = 1.
        AM07M-NAME2 = NAME1.
        EKKO-LIFNR = OLD_LIFNR.
      ENDIF.
      XPSTY = EKPO-KNTTP.
      CASE XPSTY.
        WHEN B.
          XPSTY = XKDE.
        WHEN D.
          XPSTY = XKDE.
        WHEN G.
          XPSTY = XPROJN.
        WHEN O.
          XPSTY = XPROJN.
        WHEN Q.
          XPSTY = XPROJN.
      ENDCASE.
    ENDFORM.
    *----------Bestelltext lesen, wenn Matnr. = 0--------------------------*
    FORM BESTELLTEXT_LESEN.
       CLEAR:   THEADER,
                THEAD,
                DTEXT.
       REFRESH
                DTEXT.
       THEADER-TDID          = 'F01 '.
       THEADER-TDSPRAS       = EKKO-SPRAS.
       THEADER-TDNAME(10)    = MSEG-EBELN.
       THEADER-TDNAME+10(5)  = MSEG-EBELP.
       THEADER-TDOBJECT      = 'EKPO      '.
       CALL FUNCTION 'READ_TEXT'
          EXPORTING ID          = THEADER-TDID
                    LANGUAGE    = THEADER-TDSPRAS
                    NAME        = THEADER-TDNAME
                    OBJECT      = THEADER-TDOBJECT
         IMPORTING  HEADER      = THEAD
         TABLES     LINES       = DTEXT
         EXCEPTIONS ID          = 1
                    LANGUAGE    = 2
                    NAME        = 3
                    NOT_FOUND   = 4
                    OBJECT      = 5.
    ENDFORM.
    *------------Bestellkopf lesen für WE-Version 2.-----------------------*
    FORM BESTELLKOPF_LESEN.
       CLEAR:   THEADER,
                THEAD,
                DKTEXT.
       REFRESH:
                DKTEXT.
       THEADER-TDID           = 'F01 '.
       THEADER-TDSPRAS        = EKKO-SPRAS.
       THEADER-TDNAME(10)     = MSEG-EBELN.
       THEADER-TDOBJECT       = 'EKKO      '.
       CALL FUNCTION 'READ_TEXT'
          EXPORTING ID        = THEADER-TDID
                    LANGUAGE  = THEADER-TDSPRAS
                    NAME      = THEADER-TDNAME
                    OBJECT    = THEADER-TDOBJECT
         IMPORTING  HEADER    = THEAD
         TABLES     LINES     = DKTEXT
         EXCEPTIONS ID        = 1
                    LANGUAGE  = 2
                    NAME      = 3
                    NOT_FOUND = 4
                    OBJECT    = 5.
    ENDFORM.
    INCLUDE /SMB40/M07DRMFA.
    *------ Auftragskopf lesen --------------------------------------------*
    FORM AUFTRAG_LESEN.
      SELECT SINGLE * FROM AFKO WHERE AUFNR = MSEG-AUFNR.
      IF MSEG-MATNR IS INITIAL.
        SELECT SINGLE * FROM AUFK WHERE AUFNR = MSEG-AUFNR.
        IF NOT SY-SUBRC IS INITIAL.
          MESSAGE E001 WITH 'AUFK' MSEG-AUFNR.
        ELSE.
          MABDR-MAKTX = AUFK-KTEXT.
        ENDIF.
      ENDIF.
    ENDFORM.
    INCLUDE /SMB40/M07DRKON.
    FORM KONTIERUNG_LESEN.
       REFRESH XEKKN. CLEAR XEKKN.
       SELECT * FROM EKKN WHERE EBELN = EKPO-EBELN
                          AND   EBELP = EKPO-EBELP.
         MOVE-CORRESPONDING EKKN TO XEKKN.
         APPEND XEKKN.
    *    x_kont = x.
       ENDSELECT.
       DESCRIBE TABLE XEKKN LINES INDEX_Z.
       IF INDEX_Z GT 1.
         X_KONT = X.
       ELSE.
         X_KONT1 = X.
       ENDIF.
    ENDFORM.
    * Network plan process determine.
    FORM NW_VORGANG_LESEN USING F_AUFPL F_APLZL.
      CALL FUNCTION 'READ_NETWORK_NPLNR_VORNR'
           EXPORTING
                APLZL     = F_APLZL
                AUFPL     = F_AUFPL
           IMPORTING
                VORNR     = N_VORNR
           EXCEPTIONS
                NOT_FOUND = 01.
    ENDFORM.
    *       FORM PSP_CONVERT                                               *
    *       Konvertierung des internen Felds PS_PSP_PNR zur Ausgabe        *
    FORM PSP_CONVERT USING PSPNR LIKE MSEG-PS_PSP_PNR.
      CALL FUNCTION 'CJPN_INTERN_TO_EXTERN_CONV'
           EXPORTING
                INT_NUM = PSPNR
           IMPORTING
                EXT_NUM = AM07M-KONTIERUNG.
    ENDFORM.
    INCLUDE /SMB40/M07DRF01.
    FORM WF01_DRUCK.
       CALL FUNCTION 'START_FORM'
          EXPORTING FORM = TNAPR-FONAM
                LANGUAGE = LANGUAGE.
          BELPOS-MBLNR = MKPF-MBLNR.
          BELPOS-ZEILE = MSEG-ZEILE.
          CONDENSE BELPOS NO-GAPS.
          AM07M-BELPOS = BELPOS.
          IF T156-SHKZG = H.
            AM07M-HDLNE = TEXT-020.
          ELSE.
            AM07M-HDLNE = TEXT-010.
          ENDIF.
          IF NOT T159P-BACOD IS INITIAL.
            CALL FUNCTION 'WRITE_FORM'
                 EXPORTING ELEMENT = 'W1BACOKOPF'.
          ELSE.
             CALL FUNCTION 'WRITE_FORM'
                 EXPORTING ELEMENT = 'W1KOPF'.
          ENDIF.
          IF XPSTY       IS INITIAL.
             IF MSEG-XBLVS IS INITIAL.
                PERFORM WF1_LAGERMATERIAL.             "Lagermaterial
             ELSE.
                PERFORM WF1_LVSMATERIAL.               "LVS-Material
             ENDIF.
          ELSE.
             PERFORM WF1_VERBRAUCHSMATERIAL.
          ENDIF.
       CALL FUNCTION 'END_FORM'.
       PERFORM MKTO_DRUCK.
    ENDFORM.
    *------------ Drucken Lagermaterial ---------------------------------*
    FORM WF1_LAGERMATERIAL.
       CALL FUNCTION 'WRITE_FORM'
          EXPORTING ELEMENT = 'W1LGMAT'.
       IF T156-SHKZG = H AND
         NOT MSEG-GRUND IS INITIAL.
         SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
                                    AND   GRUND = MSEG-GRUND
                                    AND   SPRAS = LANGUAGE.
         CALL FUNCTION 'WRITE_FORM'
              EXPORTING ELEMENT = 'RUELGGRUND'.
       ENDIF.
       CALL FUNCTION 'WRITE_FORM'
            EXPORTING ELEMENT = 'LGAUSST'.
    ENDFORM.
    FORM WF1_LVSMATERIAL.
       CALL FUNCTION 'WRITE_FORM'
          EXPORTING ELEMENT = 'W1LVSMAT'.
       IF T156-SHKZG = H AND
         NOT MSEG-GRUND IS INITIAL.
         SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
                                    AND   GRUND = MSEG-GRUND
                                    AND   SPRAS = LANGUAGE.
         CALL FUNCTION 'WRITE_FORM'
              EXPORTING ELEMENT = 'RUELVSGRUND'.
       ENDIF.
       CALL FUNCTION 'WRITE_FORM'
            EXPORTING ELEMENT = 'LVSAUSST'.
    ENDFORM.
    *-------------Drucken Verbrauchsmaterial------------------------------*
    FORM WF1_VERBRAUCHSMATERIAL.
       CASE XPSTY.
         WHEN XKDANR.                             "Kundenauftrag
           MOVE SPACE TO KUNDE.
           CLEAR AM07M-KOTXT.
           AM07M-KOTXT = TEXT-030.
           KUNDE-KDAUF = MSEG-KDAUF.
           KUNDE-KDPOS = MSEG-KDPOS.
           KUNDE-KDEIN = MSEG-KDEIN.
           MOVE SPACE TO AM07M-KONTIERUNG.
           CONDENSE KUNDE NO-GAPS.
           AM07M-KONTIERUNG = KUNDE.
         WHEN XANLAGE.                            "Anlage
           MOVE SPACE TO ANLAGE.
           CLEAR AM07M-KOTXT.
           AM07M-KOTXT = TEXT-040.
           ANLAGE-ANLN1 = MSEG-ANLN1.
           ANLAGE-ANLN2 = MSEG-ANLN2.
           MOVE SPACE TO AM07M-KONTIERUNG.
           CONDENSE ANLAGE NO-GAPS.
           AM07M-KONTIERUNG = ANLAGE.
         WHEN XKOSTL.                             "Kostenstelle
           CLEAR AM07M-KOTXT.
           AM07M-KOTXT = TEXT-050.
           AM07M-KONTIERUNG = MSEG-KOSTL.
         WHEN XPROJN.                             "Projekt/Netzplan
           CLEAR AM07M-KOTXT.
           IF MSEG-NPLNR IS INITIAL.
             AM07M-KOTXT = TEXT-060.
             PERFORM PSP_CONVERT USING MSEG-PS_PSP_PNR.
           ELSE.
             AM07M-KOTXT = TEXT-061.
             AM07M-KONTIERUNG = MSEG-NPLNR.
             PERFORM NW_VORGANG_LESEN USING MSEG-AUFPL MSEG-APLZL.
             IF NOT N_VORNR IS INITIAL.
               MOVE '/'     TO AM07M-KONTIERUNG+12.
               MOVE N_VORNR TO AM07M-KONTIERUNG+13.
             ENDIF.
           ENDIF.
       ENDCASE.
       CALL FUNCTION 'WRITE_FORM'
         EXPORTING ELEMENT = 'W1VERBRMAT'.
       IF T156-SHKZG = H AND
         NOT MSEG-GRUND IS INITIAL.
         SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
                                    AND   GRUND = MSEG-GRUND
                                    AND   SPRAS = LANGUAGE.
         CALL FUNCTION 'WRITE_FORM'
              EXPORTING ELEMENT = 'RUELVERBRGRUND'.
       ENDIF.
       CALL FUNCTION 'WRITE_FORM'
            EXPORTING ELEMENT = 'VERBRAUSST'.
    ENDFORM.
    INCLUDE /SMB40/M07DRF02.
    FORM WF02_DRUCK.
       T001W-WERKS = R_WERKS.
       T001W-NAME1 = R_NAME1.
       CALL FUNCTION 'START_FORM'
            EXPORTING FORM = TNAPR-FONAM
                  LANGUAGE = LANGUAGE.
       PERFORM PRUEFTEXT_LESEN.
          IF T156-SHKZG = 'H'.           "Kennzeichen Haben ?
            AM07M-HDLNE = TEXT-020.
          ELSE.
            AM07M-HDLNE = TEXT-010.
          ENDIF.
          IF NOT T159P-BACOD IS INITIAL.
            BELPOS-MBLNR = MKPF-MBLNR.
            BELPOS-ZEILE = MSEG-ZEILE.
            CONDENSE BELPOS NO-GAPS.
            AM07M-BELPOS = BELPOS.
            CALL FUNCTION 'WRITE_FORM'
                 EXPORTING ELEMENT = 'WE2BACOKOPF'.
          ELSE.
            CALL FUNCTION 'WRITE_FORM'
                 EXPORTING ELEMENT = 'WE2KOPF'.
          ENDIF.
          IF XPSTY       IS INITIAL.        "Lagermaterial ?
             PERFORM W2_LAGERMATERIAL.
          ELSE.
             PERFORM W2_VERBRAUCHSMATERIAL.
          ENDIF.
       CALL FUNCTION 'END_FORM'.
       PERFORM MKTO_DRUCK.
    ENDFORM.
    *-------------- Lagermaterial WE-Version 2 ---------------------------*
    FORM WF2_LAGERMATERIAL.
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING ELEMENT = 'WE2LGMAT'.
      IF T156-SHKZG = H AND
         NOT MSEG-GRUND IS INITIAL.
        SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
                                   AND   GRUND = MSEG-GRUND
                                   AND   SPRAS = LANGUAGE.
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING ELEMENT = 'RUELGGRUND'.
      ENDIF.
        THEAD-TDID     = THEADER-TDID.
        THEAD-TDNAME   = THEADER-TDNAME.
        THEAD-TDOBJECT = THEADER-TDOBJECT.
        THEAD-TDSPRAS  = THEADER-TDSPRAS.
        CALL FUNCTION 'WRITE_FORM'
            EXPORTING ELEMENT = 'PRTXTLGMAT'.
    ENDFORM.
    *------------ Verbrauchsmaterial WE-Version 2 ----------------------*
    FORM WF2_VERBRAUCHSMATERIAL.
        CASE XPSTY.
           WHEN XKDANR.
              MOVE SPACE TO KUNDE.
              CLEAR AM07M-KOTXT.
              AM07M-KOTXT = TEXT-030.
              KUNDE-KDAUF = MSEG-KDAUF.
              KUNDE-KDPOS = MSEG-KDPOS.
              KUNDE-KDEIN = MSEG-KDEIN.
              MOVE SPACE TO AM07M-KONTIERUNG.
              CONDENSE KUNDE NO-GAPS.
              AM07M-KONTIERUNG = KUNDE.
           WHEN XANLAGE.
              MOVE SPACE TO ANLAGE.
              CLEAR AM07M-KOTXT.
              AM07M-KOTXT = TEXT-040.
              ANLAGE-ANLN1 = MSEG-ANLN1.
              ANLAGE-ANLN2 = MSEG-ANLN2.
              MOVE SPACE TO AM07M-KONTIERUNG.
              CONDENSE ANLAGE NO-GAPS.
              AM07M-KONTIERUNG = ANLAGE.
           WHEN XKOSTL.
              CLEAR AM07M-KOTXT.
              AM07M-KOTXT = TEXT-050.
              AM07M-KONTIERUNG = MSEG-KOSTL.
           WHEN XPROJN.
              CLEAR AM07M-KOTXT.
              IF MSEG-NPLNR IS INITIAL.
                AM07M-KOTXT = TEXT-060.
                PERFORM PSP_CONVERT USING MSEG-PS_PSP_PNR.
              ELSE.
                AM07M-KOTXT = TEXT-061.
                AM07M-KONTIERUNG = MSEG-NPLNR.
                PERFORM NW_VORGANG_LESEN USING MSEG-AUFPL MSEG-APLZL.
                IF NOT N_VORNR IS INITIAL.
                  MOVE '/'     TO AM07M-KONTIERUNG+12.
                  MOVE N_VORNR TO AM07M-KONTIERUNG+13.
                ENDIF.
              ENDIF.
        ENDCASE.
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING ELEMENT = 'WE2VERBRMAT'.
       IF T156-SHKZG = H AND
         NOT MSEG-GRUND IS INITIAL.
         SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
                                    AND   GRUND = MSEG-GRUND
                                    AND   SPRAS = LANGUAGE.
         CALL FUNCTION 'WRITE_FORM'
              EXPORTING ELEMENT = 'RUEVERBRGRUND'.
       ENDIF.
         THEAD-TDID     = THEADER-TDID.
         THEAD-TDNAME   = THEADER-TDNAME.
         THEAD-TDOBJECT = THEADER-TDOBJECT.
         THEAD-TDSPRAS  = THEADER-TDSPRAS.
         CALL FUNCTION 'WRITE_FORM'
              EXPORTING ELEMENT = 'PRTXTVERBRMAT'.
    ENDFORM.
    INCLUDE /SMB40/M07DRE01.
    FORM WE01_DRUCK.
       T001W-WERKS = R_WERKS.
       T001W-NAME1 = R_NAME1.
    ENDFORM.
    *------------ Drucken Lagermaterial ---------------------------------*
    FORM W1_LAGERMATERIAL.
       CALL FUNCTION 'WRITE_FORM'
          EXPORTING ELEMENT = 'W1LGMAT'.
       IF T156-SHKZG = H AND
         NOT MSEG-GRUND IS INITIAL.
         SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
                                    AND   GRUND = MSEG-GRUND
                                    AND   SPRAS = LANGUAGE.
         CALL FUNCTION 'WRITE_FORM'
              EXPORTING ELEMENT = 'RUELGGRUND'.
       ENDIF.
       CALL FUNCTION 'WRITE_FORM'
            EXPORTING ELEMENT = 'LGAUSST'.
    ENDFORM.
    FORM W1_LVSMATERIAL.
       CALL FUNCTION 'WRITE_FORM'
          EXPORTING ELEMENT = 'W1LVSMAT'.
       IF T156-SHKZG = H AND
         NOT MSEG-GRUND IS INITIAL.
         SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
                                    AND   GRUND = MSEG-GRUND
                                    AND   SPRAS = LANGUAGE.
         CALL FUNCTION 'WRITE_FORM'
              EXPORTING ELEMENT = 'RUELVSGRUND'.
       ENDIF.
       CALL FUNCTION 'WRITE_FORM'
            EXPORTING ELEMENT = 'LVSAUSST'.
    ENDFORM.
    *-------------Drucken Verbrauchsmaterial------------------------------*
    FORM W1_VERBRAUCHSMATERIAL.
       CLEAR: AM07M-KOTXT, AM07M-KONTIERUNG.
       CASE XPSTY.
         WHEN XFERT.                            "Fertigungsauftrag
           AM07M-KOTXT = TEXT-062.
           IF X_KONT1 IS INITIAL.
             AM07M-KONTIERUNG = MSEG-AUFNR.
           ELSE.
             AM07M-KONTIERUNG = EKKN-AUFNR.
           ENDIF.
         WHEN XKDE.                             "Kundeneinzelbest.
           MOVE SPACE TO KUNDE.
           AM07M-KOTXT = TEXT-030.
           IF X_KONT1 IS INITIAL.
             KUNDE-KDAUF = MSEG-KDAUF.
             KUNDE-KDPOS = MSEG-KDPOS.
            ELSE.
             KUNDE-KDAUF = EKKN-VBELN.
             KUNDE-KDPOS = EKKN-VBELP.
            ENDIF.
           MOVE SPACE TO AM07M-KONTIERUNG.
           CONDENSE KUNDE NO-GAPS.
           AM07M-KONTIERUNG = KUNDE.
         WHEN XKDANR.                             "Kundenauftrag
           MOVE SPACE TO KUNDE.
           AM07M-KOTXT = TEXT-030.
           IF X_KONT1 IS INITIAL.
             KUNDE-KDAUF = MSEG-KDAUF.
             KUNDE-KDPOS = MSEG-KDPOS.
             KUNDE-KDEIN = MSEG-KDEIN.
            ELSE.
             KUNDE-KDAUF = EKKN-VBELN.
             KUNDE-KDPOS = EKKN-VBELP.
             KUNDE-KDEIN = EKKN-VETEN.
            ENDIF.
           MOVE SPACE TO AM07M-KONTIERUNG.
           CONDENSE KUNDE NO-GAPS.
           AM07M-KONTIERUNG = KUNDE.
         WHEN XANLAGE.                            "Anlage
           MOVE SPACE TO ANLAGE.
           AM07M-KOTXT = TEXT-040.
           IF X_KONT1 IS INITIAL.
             ANLAGE-ANLN1 = MSEG-ANLN1.
             ANLAGE-ANLN2 = MSEG-ANLN2.
           ELSE.
             ANLAGE-ANLN1 = EKKN-ANLN1.
             ANLAGE-ANLN2 = EKKN-ANLN2.
           ENDIF.
           MOVE SPACE TO AM07M-KONTIERUNG.
           CONDENSE ANLAGE NO-GAPS.
           AM07M-KONTIERUNG = ANLAGE.
         WHEN XKOSTL.                             "Kostenstelle
           AM07M-KOTXT = TEXT-050.
           IF X_KONT1 IS INITIAL.
             AM07M-KONTIERUNG = MSEG-KOSTL.
           ELSE.
             AM07M-KONTIERUNG = EKKN-KOSTL.
           ENDIF.
         WHEN XPROJN.                             "Projekt/Netzplan
           IF X_KONT1 IS INITIAL.
             IF MSEG-NPLNR IS INITIAL.
               AM07M-KOTXT = TEXT-060.
               PERFORM PSP_CONVERT USING MSEG-PS_PSP_PNR.
             ELSE.
               AM07M-KOTXT = TEXT-061.
               AM07M-KONTIERUNG = MSEG-NPLNR.
               PERFORM NW_VORGANG_LESEN USING MSEG-AUFPL MSEG-APLZL.
               IF NOT N_VORNR IS INITIAL.
                 MOVE '/'     TO AM07M-KONTIERUNG+12.
                 MOVE N_VORNR TO AM07M-KONTIERUNG+13.
               ENDIF.
             ENDIF.
           ELSE.
             IF EKKN-NPLNR IS INITIAL.
               AM07M-KOTXT = TEXT-060.
               PERFORM PSP_CONVERT USING EKKN-PS_PSP_PNR.
             ELSE.
               AM07M-KOTXT = TEXT-061.
               AM07M-KONTIERUNG = EKKN-NPLNR.
               PERFORM NW_VORGANG_LESEN USING EKKN-AUFPL EKKN-APLZL.
               IF NOT N_VORNR IS INITIAL.
                 MOVE '/'     TO AM07M-KONTIERUNG+12.
                 MOVE N_VORNR TO AM07M-KONTIERUNG+13.
               ENDIF.
             ENDIF.
           ENDIF.
       ENDCASE.
       CLEAR X_KONT1.
    * User-Exit über Erweiterung MBCF0005
       CALL CUSTOMER-FUNCTION '001'
            EXPORTING
                 I_MKPF  = MKPF
                 I_MSEG  = MSEG
                 I_EKKO  = EKKO
                 I_EKPO  = EKPO
                 I_NAST  = NAST
                 I_TNAPR = TNAPR
            TABLES
                 I_EKKN  = XEKKN
            CHANGING
                 C_AM07M = AM07M
            EXCEPTIONS
                 OTHERS  = 0.
       CALL FUNCTION 'WRITE_FORM'
         EXPORTING ELEMENT = 'W1VERBRMAT'.
       IF T156-SHKZG = H AND
         NOT MSEG-GRUND IS INITIAL.
         SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
                                    AND   GRUND = MSEG-GRUND
                                    AND   SPRAS = LANGUAGE.
         CALL FUNCTION 'WRITE_FORM'
              EXPORTING ELEMENT = 'RUELVERBRGRUND'.
       ENDIF.
       CALL FUNCTION 'WRITE_FORM'
            EXPORTING ELEMENT = 'VERBRAUSST'.
    ENDFORM.
    INCLUDE /SMB40/M07DRE02.
    *       FORM WE02_DRUCK                                               *
    FORM WE02_DRUCK.
      T001W-WERKS = R_WERKS.
      T001W-NAME1 = R_NAME1.
      CALL FUNCTION 'START_FORM'
           EXPORTING
                FORM     = TNAPR-FONAM
                LANGUAGE = LANGUAGE.
      PERFORM PRUEFTEXT_LESEN.
      IF NOT MSEG-VFDAT IS INITIAL.
        AM07M-MHTXT = TEXT-105.
      ENDIF.
      IF NOT AM07M-MHDAT IS INITIAL.
        AM07M-MHZTX = TEXT-106.
      ENDIF.
      IF EKKO-BSART = 'UB'.
        AM07M-LITXT = TEXT-101.
        AM07M-LIBZG = EKKO-RESWK.
      ELSE.
        AM07M-LITXT = TEXT-100.
        AM07M-LIBZG = EKKO-LIFNR.
        IF NOT EKKO-LLIEF IS INITIAL.
          AM07M-LIBZ2 = EKKO-LLIEF.
        ELSE.
          AM07M-LIBZ2 = EKKO-LIFNR.
        ENDIF.
      ENDIF.
      IF T156-SHKZG = 'H'.                 "Kennzeichen Haben ?
        AM07M-HDLNE = TEXT-020.
      ELSE.
        AM07M-HDLNE = TEXT-010.
      ENDIF.
      IF NOT T159P-BACOD IS INITIAL.
        BELPOS-MBLNR = MKPF-MBLNR.
        BELPOS-ZEILE = MSEG-ZEILE.
        CONDENSE BELPOS NO-GAPS.
        AM07M-BELPOS = BELPOS.
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = 'WE2BACOKOPF'.
      ELSE.
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = 'WE2KOPF'.
      ENDIF.
      IF XPSTY       IS INITIAL.           "Lagermaterial ?
    * User-Exit über Erweiterung MBCF0005
        CALL CUSTOMER-FUNCTION '001'
             EXPORTING
                  I_MKPF  = MKPF
                  I_MSEG  = MSEG
                  I_EKKO  = EKKO
                  I_EKPO  = EKPO
                  I_NAST  = NAST
                  I_TNAPR = TNAPR
             TABLES
                  I_EKKN  = XEKKN
             CHANGING
                  C_AM07M = AM07M
             EXCEPTIONS
                  OTHERS  = 0.
        IF MSEG-XBLVS IS INITIAL.
           PERFORM W2_LAGERMATERIAL.             "Lagermaterial
        ELSE.
           PERFORM W2_LVSMATERIAL.               "LVS-Material
        ENDIF.
      ELSE.
        PERFORM W2_VERBRAUCHSMATERIAL.
      ENDIF.
      CALL FUNCTION 'END_FORM'.
      PERFORM MKTO_DRUCK.
    ENDFORM.
    *-------------- Lagermaterial WE-Version 2 ---------------------------*
    FORM W2_LAGERMATERIAL.
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = 'WE2LGMAT'.
      IF T156-SHKZG = H AND
         NOT MSEG-GRUND IS INITIAL.
        SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
                                   AND   GRUND = MSEG-GRUND
                                   AND   SPRAS = LANGUAGE.
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = 'RUELGGRUND'.
      ENDIF.
      THEAD-TDID     = THEADER-TDID.
      THEAD-TDNAME   = THEADER-TDNAME.
      THEAD-TDOBJECT = THEADER-TDOBJECT.
      THEAD-TDSPRAS  = THEADER-TDSPRAS.
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = 'PRTXTLGMAT'.
    ENDFORM.
    *-------------- LVS-Daten     WE-Version 2 ---------------------------*
    FORM W2_LVSMATERIAL.
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = 'W1LVSMAT'.
      IF T156-SHKZG = H AND
         NOT MSEG-GRUND IS INITIAL.
        SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
                                   AND   GRUND = MSEG-GRUND
                                   AND   SPRAS = LANGUAGE.
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = 'RUELVSGRUND'.
      ENDIF.
      THEAD-TDID     = THEADER-TDID.
      THEAD-TDNAME   = THEADER-TDNAME.
      THEAD-TDOBJECT = THEADER-TDOBJECT.
      THEAD-TDSPRAS  = THEADER-TDSPRAS.
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = 'PRTXTLVSMAT'.
    ENDFORM.
    *------------ Verbrauchsmaterial WE-Version 2 ----------------------*
    FORM W2_VERBRAUCHSMATERIAL.
      CLEAR: AM07M-KOTXT, AM07M-KONTIERUNG.
      CASE XPSTY.
        WHEN XFERT.                        "Fertigungsauftrag
          AM07M-KOTXT = TEXT-062.
          IF X_KONT1 IS INITIAL.
            AM07M-KONTIERUNG = MSEG-AUFNR.
          ELSE.
            AM07M-KONTIERUNG = EKKN-AUFNR.
          ENDIF.
        WHEN XKDE.
          MOVE SPACE TO KUNDE.
          AM07M-KOTXT = TEXT-030.
          IF X_KONT1 IS INITIAL.
            KUNDE-KDAUF = MSEG-KDAUF.
            KUNDE-KDPOS = MSEG-KDPOS.
          ELSE.
            KUNDE-KDAUF = EKKN-VBELN.
            KUNDE-KDPOS = EKKN-VBELP.
          ENDIF.
          MOVE SPACE TO AM07M-KONTIERUNG.
          CONDENSE KUNDE NO-GAPS.
          AM07M-KONTIERUNG = KUNDE.
        WHEN XKDANR.
          MOVE SPACE TO KUNDE.
          AM07M-KOTXT = TEXT-030.
          IF X_KONT1 IS INITIAL.
            KUNDE-KDAUF = MSEG-KDAUF.
            KUNDE-KDPOS = MSEG-KDPOS.
            KUNDE-KDEIN = MSEG-KDEIN.
          ELSE.
            KUNDE-KDAUF = EKKN-VBELN.
            KUNDE-KDPOS = EKKN-VBELP.
            KUNDE-KDEIN = EKKN-VETEN.
          ENDIF.
          MOVE SPACE TO AM07M-KONTIERUNG.
          CONDENSE KUNDE NO-GAPS.
          AM07M-KONTIERUNG = KUNDE.
        WHEN XANLAGE.
          MOVE SPACE TO ANLAGE.
          AM07M-KOTXT = TEXT-040.
          IF X_KONT1 IS INITIAL.
            ANLAGE-ANLN1 = MSEG-ANLN1.
            ANLAGE-ANLN2 = MSEG-ANLN2.
          ELSE.
            ANLAGE-ANLN1 = EKKN-ANLN1.
            ANLAGE-ANLN2 = EKKN-ANLN2.
          ENDIF.
          MOVE SPACE TO AM07M-KONTIERUNG.
          CONDENSE ANLAGE NO-GAPS.
          AM07M-KONTIERUNG = ANLAGE.
        WHEN XKOSTL.
          AM07M-KOTXT = TEXT-050.
          IF X_KONT1 IS INITIAL.
            AM07M-KONTIERUNG = MSEG-KOSTL.
          ELSE.
            AM07M-KONTIERUNG = EKKN-KOSTL.
          ENDIF.
        WHEN XPROJN.
          IF X_KONT1 IS INITIAL.
            IF MSEG-NPLNR IS INITIAL.
              AM07M-KOTXT = TEXT-060.
              PERFORM PSP_CONVERT USING MSEG-PS_PSP_PNR.
            ELSE.
              AM07M-KOTXT = TEXT-061.
              AM07M-KONTIERUNG = MSEG-NPLNR.
              PERFORM NW_VORGANG_LESEN USING MSEG-AUFPL MSEG-APLZL.
              IF NOT N_VORNR IS INITIAL.
                MOVE '/'     TO AM07M-KONTIERUNG+12.
                MOVE N_VORNR TO AM07M-KONTIERUNG+13.
              ENDIF.
            ENDIF.
          ELSE.
            IF EKKN-NPLNR IS INITIAL.
              AM07M-KOTXT = TEXT-060.
              PERFORM PSP_CONVERT USING EKKN-PS_PSP_PNR.
            ELSE.
              AM07M-KOTXT = TEXT-061.
              AM07M-KONTIERUNG = EKKN-NPLNR.
              PERFORM NW_VORGANG_LESEN USING EKKN-AUFPL EKKN-APLZL.
              IF NOT N_VORNR IS INITIAL.
                MOVE '/'     TO AM07M-KONTIERUNG+12.
                MOVE N_VORNR TO AM07M-KONTIERUNG+13.
              ENDIF.
            ENDIF.
          ENDIF.
      ENDCASE.
      CLEAR X_KONT1.
    * User-Exit über Erweiterung MBCF0005
      CALL CUSTOMER-FUNCTION '001'
           EXPORTING
                I_MKPF  = MKPF
                I_MSEG  = MSEG
                I_EKKO  = EKKO
                I_EKPO  = EKPO
                I_NAST  = NAST
                I_TNAPR = TNAPR
           TABLES
                I_EKKN  = XEKKN
           CHANGING
                C_AM07M = AM07M
           EXCEPTIONS
                OTHERS  = 0.
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = 'WE2VERBRMAT'.
      IF T156-SHKZG = H AND
        NOT MSEG-GRUND IS INITIAL.
        SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
                                   AND   GRUND = MSEG-GRUND
                                   AND   SPRAS = LANGUAGE.
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = 'RUEVERBRGRUND'.
      ENDIF.
      THEAD-TDID     = THEADER-TDID.
      THEAD-TDNAME   = THEADER-TDNAME.
      THEAD-TDOBJECT = THEADER-TDOBJECT.
      THEAD-TDSPRAS  = THEADER-TDSPRAS.
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = 'PRTXTVERBRMAT'.
    ENDFORM.
    INCLUDE /SMB40/M07DRE03.
    *       FORM WE03_AUSGABE                                             *
    FORM WE03_AUSGABE using lgortsplit.
    *----------------Drucken WE-Version 3 Überschrift---------------------*
      if lgortsplit is initial.
         ON CHANGE OF MKPF-MBLNR OR MSEG-EBELN OR MSEG-BWART
                                 OR NAST-KSCHL OR MSEG-WERKS.
         CLEAR XKOPFDR.
         endon.
      else.
         ON CHANGE OF MKPF-MBLNR OR MSEG-EBELN OR MSEG-BWART
                                 OR NAST-KSCHL OR MSEG-WERKS
                                 OR MSEG-LGORT.
         CLEAR XKOPFDR.
         endon.
      endif.
      IF XKOPFDR IS INITIAL.
        XKOPFDR = X.
        IF NEW_PAGE = X.
          CALL FUNCTION 'CONTROL_FORM'
               EXPORTING
                    COMMAND = 'NEW-PAGE'.
        ENDIF.
        IF EKKO-BSART = 'UB'.
          AM07M-LITXT = TEXT-101.
          AM07M-LIBZG = EKKO-RESWK.
        ELSE.
          AM07M-LITXT = TEXT-100.
          AM07M-LIBZG = EKKO-LIFNR.
          IF NOT EKKO-LLIEF IS INITIAL.
            AM07M-LIBZ2 = EKKO-LLIEF.
          ELSE.
            AM07M-LIBZ2 = EKKO-LIFNR.
          ENDIF.
        ENDIF.
        IF T156-SHKZG = H.
          AM07M-HDLNE = TEXT-020.
        ELSE.
          AM07M-HDLNE = TEXT-010.
        ENDIF.
        IF XPSTY       IS INITIAL.         "Lagermaterial ?
          IF MSEG-XBLVS IS INITIAL.
            IF T156-SHKZG = H AND
               NOT MSEG-GRUND IS INITIAL.
              IF NOT T159P-BACOD IS INITIAL.
                CALL FUNCTION 'WRITE_FORM'
                     EXPORTING
                          ELEMENT = 'WE3BACOKOPF'
                          WINDOW  = 'RÜKOPF'.
                NEW_PAGE = X.
              ELSE.
                CALL FUNCTION 'WRITE_FORM'
                     EXPORTING
                          ELEMENT = 'WE3KOPF'
                          WINDOW  = 'RÜKOPF'.
                NEW_PAGE = X.
              ENDIF.
            ELSE.
              IF NOT T159P-BACOD IS INITIAL.
                CALL FUNCTION 'WRITE_FORM'
                     EXPORTING
                          ELEMENT = 'WE3BACOKOPF'
                          WINDOW  = 'KOPF'.
                NEW_PAGE = X.
              ELSE.
                CALL FUNCTION 'WRITE_FORM'
                     EXPORTING
                          ELEMENT = 'WE3KOPF'
                          WINDOW  = 'KOPF'.
                NEW_PAGE = X.
              ENDIF.
            ENDIF.
          ELSE.
            IF T156-SHKZG = H AND
               NOT MSEG-GRUND IS INITIAL.
              IF NOT T159P-BACOD IS INITIAL.
                CALL FUNCTION 'WRITE_FORM'
                     EXPORTING
                          ELEMENT = 'WE3BACOLVSKOPF'
                          WINDOW  = 'RÜKOPF'.
                NEW_PAGE = X.
              ELSE.
                CALL FUNCTION 'WRITE_FORM'
                     EXPORTING
                          ELEMENT = 'WE3LVSKOPF'  "RL-Material
                          WINDOW  = 'RÜKOPF'.
                NEW_PAGE = X.
              ENDIF.
            ELSE.
              IF NOT T159P-BACOD IS INITIAL.
                CALL FUNCTION 'WRITE_FORM'
                     EXPORTING
                          ELEMENT = 'WE3BACOLVSKOPF'
                          WINDOW  = 'KOPF'.
                NEW_PAGE = X.
              ELSE.
                CALL FUNCTION 'WRITE_FORM'
                     EXPORTING
                          ELEMENT = 'WE3LVSKOPF'  "RL-Material
                          WINDOW  = 'KOPF'.
                NEW_PAGE = X.
              ENDIF.
            ENDIF.
          ENDIF.
        ELSE.
          IF T156-SHKZG = H AND
             NOT MSEG-GRUND IS INITIAL.
            IF NOT T159P-BACOD IS INITIAL.
              CALL FUNCTION 'WRITE_FORM'
                   EXPORTING
                        ELEMENT = 'WE3BACOKOPF1'
                        WINDOW  = 'RÜKOPF'.
              NEW_PAGE = X.
            ELSE.
              CALL FUNCTION 'WRITE_FORM'
                   EXPORTING
                        ELEMENT = 'WE3KOPF1'
                        WINDOW  = 'RÜKOPF'.
              NEW_PAGE = X.
            ENDIF.
          ELSE.
            IF NOT T159P-BACOD IS INITIAL.
              CALL FUNCTION 'WRITE_FORM'
                   EXPORTING
                        ELEMENT = 'WE3BACOKOPF1'
                        WINDOW  = 'KOPF'.
              NEW_PAGE = X.
            ELSE.
              CALL FUNCTION 'WRITE_FORM'
                   EXPORTING
                        ELEMENT = 'WE3KOPF1'
                        WINDOW  = 'KOPF'.
              NEW_PAGE = X.
            ENDIF.
          ENDIF.
        ENDIF.
      ENDIF.
    *------------- Drucken WE-Version 3 Position --------------------------*
    **perform w3_lieferplan.                  "Routine Lieferplan
      CLEAR T157E.
      IF T156-SHKZG = H AND
         NOT MSEG-GRUND IS INITIAL.
        SELECT SINGLE * FROM T157E WHERE BWART = MSEG-BWART
                                   AND   GRUND = MSEG-GRUND
                                   AND   SPRAS = LANGUAGE.
      ENDIF.
      IF MSEG-EBELN IS INITIAL.
        IF NOT MABDR-MAKTX IS INITIAL.
          EKPO-TXZ01 = MABDR-MAKTX.
        ENDIF.
      ENDIF.
      IF MABDR-WERTU IS INITIAL AND
         MABDR-MENGU = X   OR              "Bestandsfuehrung = UNBW oder
         XPSTY       IS INITIAL.           "Lagermaterial ?
    * User-Exit über Erweiterung MBCF0005
        CALL CUSTOMER-FUNCTION '001'
             EXPORTING
                  I_MKPF  = MKPF
                  I_MSEG  = MSEG
                  I_EKKO  = EKKO
                  I_EKPO  = EKPO
                  I_NAST  = NAST
                  I_TNAPR = TNAPR
             TABLES
                  I_EKKN  = XEKKN
             CHANGING
                  C_AM07M = AM07M
             EXCEPTIONS
                  OTHERS  = 0.
        IF MSEG-XBLVS IS INITIAL.
          PERFORM W3_LAGERMATERIAL.        "Routine Lagermaterial
        ELSE.
          PERFORM W3_LVSMATERIAL.          "Routine RL-Material
        ENDIF.
      ELSE.
        PERFORM W3_VERBRAUCHSMATERIAL.     "Routine Verbrauchsmaterial
      ENDIF.
    *-------------- Drucken WE-Version 3 Seitenfuss ----------------------*
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT  = 'WE3FUSS'
                WINDOW   = 'FUSS'
                FUNCTION = 'APPEND'.
    ENDFORM.
    *--------------Unteroutinen für Positionsdruck -----------------------*
    FORM W3_LAGERMATERIAL.
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = 'WE3LGMAT'.
    ENDFORM.
    *       FORM W3_LVSMATERIAL                                           *
    FORM W3_LVSMATERIAL.
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = 'WE3LVSMAT'.
    ENDFORM.
    *       FORM W3_VERBRAUCHSMATERIAL                                    *
    FORM W3_VERBRAUCHSMATERIAL.
      CLEAR: AM07M-KONTIERUNG.
      AM07M-RSTYP = XPSTY.
      CASE XPSTY.
        WHEN XFERT.                        "Fertigungsauftrag
          IF X_KONT1 IS INITIAL.
            AM07M-KONTIERUNG = MSEG-AUFNR.
          ELSE.
            AM07M-KONTIERUNG = EKKN-AUFNR.
          ENDIF.
        WHEN XANLAGE.
          MOVE SPACE TO ANLAGE.
          IF X_KONT1 IS INITIAL.
            ANLAGE-ANLN1 = MSEG-ANLN1.
            ANLAGE-ANLN2 = MSEG-ANLN2.
          ELSE.
            ANLAGE-ANLN1 = EKKN-ANLN1.
            ANLAGE-ANLN2 = EKKN-ANLN2.
          ENDIF.
          MOVE SPACE TO AM07M-KONTIERUNG.
          CONDENSE ANLAGE NO-GAPS.
          AM07M-KONTIERUNG = ANLAGE.
        WHEN   XKDE.                     "Kundeneinzelbestand?
          MOVE SPACE TO KUNDE.
          IF X_KONT1 IS INITIAL.
            KUNDE-KDAUF = MSEG-KDAUF.
            KUNDE-KDPOS = MSEG-KDPOS.
          ELSE.
            KUNDE-KDAUF = EKKN-VBELN.
            KUNDE-KDPOS = EKKN-VBELP.
          ENDIF.
          MOVE SPACE TO AM07M-KONTIERUNG.
          CONDENSE KUNDE NO-GAPS.
          AM07M-KONTIERUNG = KUNDE.
        WHEN   XKDANR.                     "Kundenauftrag ?
          MOVE SPACE TO KUNDE.
          IF X_KONT1 IS INITIAL.
            KUNDE-KDAUF = MSEG-KDAUF.
            KUNDE-KDPOS = MSEG-KDPOS.
            KUNDE-KDEIN = MSEG-KDEIN.
          ELSE.
            KUNDE-KDAUF = EKKN-VBELN.
            KUNDE-KDPOS = EKKN-VBELP.
            KUNDE-KDEIN = EKKN-VETEN.
          ENDIF.
          MOVE SPACE TO AM07M-KONTIERUNG.
          CONDENSE KUNDE NO-GAPS.
          AM07M-KONTIERUNG = KUNDE.
        WHEN   XKOSTL.                     "auf Kostenstelle kontiert
          IF X_KONT1 IS INITIAL.
            AM07M-KONTIERUNG = MSEG-KOSTL.
          ELSE.
            AM07M-KONTIERUNG = EKKN-KOSTL.
          ENDIF.
        WHEN   XPROJN.                     "auf Projekt/Netzplan
          IF X_KONT1 IS INITIAL.
            IF MSEG-NPLNR IS INITIAL.
              PERFORM PSP_CONVERT USING MSEG-PS_PSP_PNR.
            ELSE.
              AM07M-KONTIERUNG = MSEG-NPLNR.
              PERFORM NW_VORGANG_LESEN USING MSEG-AUFPL MSEG-APLZL.
              IF NOT N_VORNR IS INITIAL.
                MOVE '/'     TO AM07M-KONTIERUNG+12.
                MOVE N_VORNR TO AM07M-KONTIERUNG+13.
              ENDIF.
            ENDIF.
          ELSE.
            IF EKKN-NPLNR IS INITIAL.
              PERFORM PSP_CONVERT USING EKKN-PS_PSP_PNR.
            ELSE.
              AM07M-KONTIERUNG = EKKN-NPLNR.
              PERFORM NW_VORGANG_LESEN USING EKKN-AUFPL EKKN-APLZL.
              IF NOT N_VORNR IS INITIAL.
      

  • Posting Program needed

    Dear All,
    1) Can anyone tell me if there is any Standard Posting Program to Post IDOC DELVRY03 from SAP to other external System. If there is no Standard program, Can any one let me know any Function module which can help me post IDOC DELVRY03.
    2) Do anyone know about transportation planning point. How this needs to be Set for External Systems?
    Thanks in advance,
    Aarti

    Hello Ravi,
    Thanks for your quick reply
    But I don't want to use FM :IDOC_OUTPUT_DELVRY as this would want me to create a output type to initiate the NAST table required for the FM
    Is there any standard transaction to Send Deliveries through IDOC DELVRY03 or any other FM which doesn't require to fill NAST table.
    I checked WE64 as well, it links me to same FM :IDOC_OUTPUT_DELVRY as processing routine.
    Regards,
    Aarti

  • Program need to change the milestone in the sales order

    Hello,
    I have a scenario to change the sales order milestone in the billing plan tab.
    Since the user doesn't want to do this manually. So they need a program to upload the milestone for the respective sales order.
    Kindly let me know is there any function module or any program available.
    Best Regards,
    Vijay
    Edited by: Vijayakumar Sundaram on Jul 12, 2010 4:03 PM

    HI Vijay,
    Please check the below FM.
    CN2M_ACT_MLST_CHANGE
    CN2M_MLST_CHANGE

  • I get error message:  Encountered error program needs to close

    Hi everyone,
    I keep getting an error message stating that the program didn't close properly when I try to run it or re-install. It also says that the program encountered an error and needs to close that any information might be lost. It gives me the options to debug, send error report or don't send error report. No matter what I click nothing happens. I tried all 3 options several time.
    I tried re-installing at least 4 times, downloaded the latest updates and software for iTune and iPod updater. When I run the install program, towards the end of the Installshield wizard the same error pops up. There is an icon of a music note inside a circle on the top right corner of the pop up box. No error message # is provided.
    I really don't know what is causing this or what might fix it. I haven't been able to find any information on here that seems to relate to this problem either. Please contact me at: [email protected]
    N/A   Windows XP  

    I called the Apple tech support line and they were able to fix my problem by:
    Disabling or un-installing all anti-virus, spyware, adware softwares on the computer.
    Uninstalling Quick Time
    Not uninstalling iTunes but repairing it.
    Everything loaded up like a charm afterwards with no error message
    Thanks to tech support!!!!
    N/A   Windows XP  

  • I need to go back to an older version of Firefox in because a SaaS program needed for work cannot be opened using Firefox 4

    One of the programs I need for my job is a SaaS. This is the error message received after upgrading to Firefox 4: "The iCIMS Talent Platform requires Internet Explorer 7/8 or Firefox 3.0/3.5/3.6.
    Please upgrade to a supported version of Internet Explorer or Firefox "

    You can get Firefox 3.6 from http://www.mozilla.com/en-US/firefox/all-older.html

Maybe you are looking for

  • FAQ: How Do I Download files from Revel?

    Downloading photos from Revel: Iphone or Ipad: On iOS you tap on the one photo, tap on the actions icon at the top right (up arrow) and then 'save original'. Downloading in this fashion will save the original full resolution photo without any edits t

  • Creating a Folder

    At my office we have a folder that contains a subfolder for each client we have.  Every year we need to make a new folder within each client folder that contains the files for new business of that year, so the folder path looks something like this: C

  • Zoom slider still doesn't zoom a photo to full screen

    Several versions of iPhoto ago, the Zoom slider would zoom to fill the frame with one picture. Now the Zoom slider's largest zoom shows 4 pictures and 2 half pictures. Why not be able to zoom into one? The workaround is to go into Edit, where one pic

  • Screen Cleaning

    What is the best way to clean the Macbook Pro screen... Not the Anti-Glare one ?

  • Logic froze..... recover?

    I have logic 8 and was in the middle of something when upon loading up a plugin (play), a white box appeared instead of the plugin window. Shortly thereafter, the the cursor became the beach ball and it has been that way for the last 5 minutes or so.