Stat Delivery Date in PO

Hello,
When I am creating PO system is not populating stat delivery date ? Even I tried to change the Delivery date and still I couldn't see Stat delivery date pouplated.Am I missing something ?
Thanks

Did you have defined the planned delivery time in the Mateiral or in the info record?
Try this out and see this has any impact on this or not?
otherwise check OSS nore and with SAP

Similar Messages

  • Mass change of "Stat.Delivery Date"

    We have a process of getting "Commitment dates" from Vendors against our Required delivery dates
    This commitment dates have to be uploaded in system
    I am trying to do the same by LSMW
    Is there any T-code in which I input specific PO number , Item no and Schedule number and the Stat.Delivery date can get changed.

    There is no transaction where you can enter "specific PO number , Item no and Schedule number and the Stat.Delivery date can get changed"
    Users do this activity in ME22N, in case of batch inputs you better make use of ME22 as the N-transactions are not designed for batch input.
    Alternative you can use BAPI technique.
    I hope you dont mix some SAP terms.
    Commited dates are usually entered in Confirmation tab, here you can make use of IDOCs.
    Stat. Delivery date is used for vendor evaluation only, a change in this field does not effect your planning, so nobody will know about a new committed date if you enter it here.

  • Stat. Delivery Date SLFDT not updated in ME21N

    Hello.
    We have updated SAP from 4.6C to ECC 6.0 and now SLFDT is not filled when creating PO (ME21N).
    Not first time and not when delivery date is changed (and not printed).
    Does anyone have an idea on where to look/debug? Where in the code is this field updated?
    Could there be a userexit/BADI that stop this field to be updated?
    Regards,
    Allan Finden

    The document which are already exist before your changes than it will not report.
    becuase the info sturcture updates is not happend for those transaction.

  • Delivery date field has no data in the output

    Hii
    I have a program like this, when I try to execute it i found no data in the Delivery date colum. Can anyone correct the code.
    Thanks
    SP
    Global data declaration
    TYPE-POOLS: slis.
    TABLES: vbap, vbrk, vbfa, vbak, vbrp, konv, kna1, bkpf, bsad, bkpf_bsad,
    knvv, pa0002, t005u, mvke, lips, likp, vbpa.
    DATA: BEGIN OF i_list OCCURS 0,
          vbeln LIKE vbak-vbeln,
          posnr LIKE vbap-posnr,
          matnr LIKE vbap-matnr,
          erdat LIKE vbap-erdat,
          mvgr1 LIKE mvke-mvgr1,
          wadat_ist LIKE likp-wadat_ist,
          lfdat like likp-lfdat,
          days TYPE i,
          werks LIKE vbap-werks,
          lgort LIKE vbap-lgort,
          kwmeng LIKE vbap-kwmeng,"                                  CH01+
          lfimg  LIKE lips-lfimg,"                                   CH01+
          pstyv  LIKE vbap-pstyv,"                                   CH01+
          obd    LIKE lips-vbeln,"                                   CH01+
          obd_pos LIKE lips-posnr,"                                  CH01+
          soldto  LIKE vbaK-kunnr,"                                  JR+
          shipto  LIKE vbpa-kunnr,"                                  JR+
          END OF i_list.
    DATA: i_list2 LIKE i_list OCCURS 0 WITH HEADER LINE,
          i_list3 LIKE i_list OCCURS 0 WITH HEADER LINE.
    DATA: i_list4 LIKE vbap OCCURS 0 WITH HEADER LINE.
    *ALV Output Header
    DATA: gt_list_top_of_page TYPE slis_t_listheader,
          prognm     LIKE sy-repid,
          gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',
          gt_events   TYPE slis_t_event,
          is_layout TYPE slis_layout_alv,
          is_variant LIKE disvariant,
          it_sort  TYPE slis_t_sortinfo_alv WITH HEADER LINE.
    DATA:gt_fieldcat TYPE slis_t_fieldcat_alv.
    DATA:gt_outtab LIKE i_list OCCURS 0 WITH HEADER LINE.
    DATA:   g_repid LIKE sy-repid,
            g_count LIKE sy-tabix.
    SELECTION-SCREEN BEGIN OF BLOCK block0 WITH FRAME TITLE text-t01.
    SELECTION-SCREEN: BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(79) text-t10.
    SELECTION-SCREEN: END OF LINE.
    SELECTION-SCREEN: BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(79) text-t11.
    SELECTION-SCREEN: END OF LINE.
    SELECTION-SCREEN: BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(79) text-t12.
    SELECTION-SCREEN: END OF LINE.
    SELECTION-SCREEN END OF BLOCK block0.
    */ Selection and Input Parameters
    SELECTION-SCREEN BEGIN OF BLOCK blocko WITH FRAME TITLE text-001.
    SELECT-OPTIONS: s_vbeln FOR vbap-vbeln, "SO
                    s_auart FOR vbak-auart DEFAULT 'KB' OBLIGATORY,
                    s_matnr FOR vbap-matnr," obligatory,
                    s_mvgr1 FOR mvke-mvgr1,
                    s_erdat FOR vbap-erdat OBLIGATORY,
                    s_werks FOR vbap-werks,
                    s_lgort FOR vbap-lgort.
    PARAMETERS:     p_vkorg LIKE vbak-vkorg DEFAULT '5010'.
    SELECTION-SCREEN SKIP 2.
    +EC1
    Addition                                                          +EC1
    +EC1
    PARAMETERS: p_vari LIKE disvariant-variant.
    +EC1
    End Addition                                                      +EC1
    +EC1
    SELECTION-SCREEN END OF BLOCK blocko.
    +EC1
    Addition                                                          +EC1
    +EC1
    DATA:   g_save(1) TYPE c,
           g_default(1) TYPE c,
            g_exit(1) TYPE c,
            gx_variant LIKE disvariant,
            g_variant LIKE disvariant.
    +EC1
    End Addition                                                      +EC1
    +EC1
    Initialization fieldcatalog
    INITIALIZATION.
    PERFORM clear_tables.
      g_repid = sy-repid.
      PERFORM fieldcat_init USING gt_fieldcat[].
    +EC1
    Addition                                                          +EC1
    +EC1
      g_save = 'A'.
      PERFORM variant_init.
    Get default variant
      gx_variant = g_variant.
      CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
           EXPORTING
                i_save     = g_save
           CHANGING
                cs_variant = gx_variant
           EXCEPTIONS
                not_found  = 2.
      IF sy-subrc = 0.
        p_vari = gx_variant-variant.
      ENDIF.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
      PERFORM f4_for_variant.
    AT SELECTION-SCREEN.
      PERFORM auth_check.  "+ESC
      PERFORM pai_of_selection_screen.
    +EC1
    End Addition                                                      +EC1
    +EC1
    START-OF-SELECTION.
      PERFORM get_data.
      PERFORM alv.
    END-OF-SELECTION.
          FORM get_data                                                 *
    FORM get_data.
    *CH01 - Added kwmeng(order qty) to selection, excluded rejects
    *JR -added soldto and shipto code
      SELECT a~vbeln a~posnr a~matnr a~erdat a~werks a~lgort
             a~kwmeng a~pstyv b~kunnr"                               CH01+
      INTO
    (i_list-vbeln, i_list-posnr, i_list-matnr, i_list-erdat, i_list-werks,
    i_list-lgort,
    i_list-kwmeng , i_list-pstyv, i_list-soldto)"                   CH01+
      FROM vbap AS a INNER JOIN vbak AS b ON a~vbeln = b~vbeln
      WHERE b~vkorg = p_vkorg
      AND   a~werks IN s_werks
      AND   a~lgort IN s_lgort
      AND   b~auart IN s_auart
      AND   a~vbeln IN s_vbeln
      AND   a~erdat IN s_erdat
      AND   a~abgru = ''"                                            CH01+
      AND   a~matnr IN s_matnr.
        APPEND i_list.
      ENDSELECT.
      COMMIT WORK AND WAIT.
      LOOP AT i_list.
        SELECT SINGLE mvgr1 INTO i_list-mvgr1 FROM mvke
        WHERE matnr = i_list-matnr.
        MODIFY i_list.
        CLEAR: i_list.
      ENDLOOP.
      COMMIT WORK AND WAIT.
      LOOP AT i_list.
        IF i_list-mvgr1 IN s_mvgr1.
          CONTINUE.
        ELSE.
          DELETE i_list.
          COMMIT WORK AND WAIT.
        ENDIF.
    ENDLOOP.
    CH01 - commented these lines out and redid logic below
    LOOP AT i_list.
       select single vbeln into lips-vbeln from lips
       where vgbel = i_list-vbeln
       and   vgpos = i_list-posnr.
       select single wadat_ist into i_list-wadat_ist from likp
       where vbeln = lips-vbeln.
      SELECT single bwadat_ist blfdat INTO (i_list-wadat_ist,
    i_list-lfdat) FROM lips AS a INNER JOIN likp AS b ON avbeln = bvbeln
    WHERE avgbel = i_list-vbeln AND avgpos = i_list-posnr.
          MODIFY i_list.
          CLEAR: i_list, lips-vbeln.
       ENDSELECT.
      ENDLOOP.
    CH01 - Changed to select multiple delivery lines & del qty
    summing the total deliveries per OBD# and date
      LOOP AT i_list.
        SELECT avbeln   sum( alfimg ) b~wadat_ist
        INTO (i_list-obd , i_list-lfimg , i_list-wadat_ist)
        FROM lips AS a INNER JOIN
        likp AS b ON avbeln = bvbeln WHERE a~vgbel = i_list-vbeln
                                       AND   a~vgpos = i_list-posnr
                                       AND   a~pstyv = i_list-pstyv
          group by avbeln bwadat_ist.
          i_list2 = i_list.
          APPEND i_list2.
        ENDSELECT.
        IF sy-subrc <> 0.
          i_list2 = i_list.
          APPEND i_list2.
        ENDIF.
      ENDLOOP.
      i_list[] = i_list2[].
    *End CH01
      COMMIT WORK AND WAIT.
      LOOP AT i_list.
        IF  i_list-wadat_ist IS INITIAL.
          CONTINUE.
        ELSE.
          i_list-days = i_list-wadat_ist - i_list-erdat.
        ENDIF.
        MODIFY i_list.
        CLEAR: i_list.
        COMMIT WORK AND WAIT.
      ENDLOOP.
      COMMIT WORK AND WAIT.
      LOOP AT i_list.
        IF i_list-vbeln IS INITIAL.
          DELETE i_list.
        ENDIF.
      ENDLOOP.
      COMMIT WORK AND WAIT.
    *JR
      LOOP AT i_list.
        SELECT SINGLE KUNNR INTO i_list-shipto FROM vbpa
        WHERE vbeln = i_list-vbeln
         AND parvw = 'WE'.
        MODIFY i_list.
      ENDLOOP.
    *END JR
      gt_outtab[] = i_list[].
      COMMIT WORK AND WAIT.
    ENDFORM.
          FORM alv                                                      *
    FORM alv.
      PERFORM e03_eventtab_build USING gt_events[].             "+EC1
      PERFORM e04_comment_build  USING gt_list_top_of_page[].   "+EC1
      prognm = sy-repid.                                        "+EC1
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
          EXPORTING
               i_callback_user_command = 'USER_COMMAND'
               i_callback_program      = g_repid
               it_fieldcat             = gt_fieldcat[]
               it_events               = gt_events[]    "+ESC
               it_sort                 = it_sort[]
    +EC1
    Addition                                                          +EC1
    +EC1
               is_variant              = g_variant
               i_save                  = g_save
    +EC1
    End Addition                                                      +EC1
    +EC1
          TABLES
               t_outtab                = gt_outtab.
      COMMIT WORK AND WAIT.
    ENDFORM.
          FORM fieldcat_init                                            *
    -->  I_FIELDCAT                                                    *
    FORM fieldcat_init
          USING i_fieldcat TYPE slis_t_fieldcat_alv.
      DATA: ls_fieldcat TYPE slis_fieldcat_alv.
      DATA: pos TYPE i VALUE 1.
      CLEAR ls_fieldcat.
      ls_fieldcat-col_pos       =  pos.
      ls_fieldcat-fieldname     = 'VBELN'.
      ls_fieldcat-ref_tabname   = 'VBAK'.
      ls_fieldcat-key           = 'X'.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
      ls_fieldcat-col_pos       =  pos.
      ls_fieldcat-fieldname     = 'POSNR'.
      ls_fieldcat-ref_tabname   = 'VBAP'.
      ls_fieldcat-key           = 'X'.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
      ls_fieldcat-col_pos       =  pos.
      ls_fieldcat-fieldname     = 'MATNR'.
      ls_fieldcat-ref_tabname   = 'VBAP'.
      ls_fieldcat-key           = 'X'.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
      ls_fieldcat-col_pos       =  pos.
      ls_fieldcat-fieldname     = 'MVGR1'.
      ls_fieldcat-ref_tabname   = 'MVKE'.
      ls_fieldcat-key           = 'X'.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
      ls_fieldcat-col_pos       =  pos.
      ls_fieldcat-fieldname     = 'WERKS'.
      ls_fieldcat-ref_tabname   = 'VBAP'.
    ls_fieldcat-key           = 'X'.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
      ls_fieldcat-col_pos       =  pos.
      ls_fieldcat-fieldname     = 'LGORT'.
      ls_fieldcat-ref_tabname   = 'VBAP'.
    ls_fieldcat-key           = 'X'.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
      ls_fieldcat-col_pos       =  pos.
      ls_fieldcat-fieldname     = 'ERDAT'.
      ls_fieldcat-ref_tabname   = 'VBAP'.
    ls_fieldcat-key           = 'X'.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
      ls_fieldcat-col_pos       =  pos.
      ls_fieldcat-fieldname     = 'WADAT_IST'.
      ls_fieldcat-ref_tabname   = 'LIKP'.
    ls_fieldcat-key           = 'X'.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
      ls_fieldcat-col_pos = pos.
      ls_fieldcat-fieldname = 'LFDAT'.
      ls_fieldcat-ref_tabname = 'LIKP'.
    ls_fieldcat-key = 'X'.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
      ls_fieldcat-col_pos       =  pos.
      ls_fieldcat-fieldname     = 'DAYS'.
      ls_fieldcat-ref_fieldname = 'DAYS'.
      ls_fieldcat-seltext_s     = '# Of Days'.
      ls_fieldcat-seltext_m     = '# Of Days'.
      ls_fieldcat-seltext_l     = '# Of Days'.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
    *Begin CH01
      ls_fieldcat-col_pos       =  pos.
      ls_fieldcat-fieldname     = 'KWMENG'.
      ls_fieldcat-ref_tabname   = 'VBAP'.
      ls_fieldcat-outputlen     = 7.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
      ls_fieldcat-col_pos       =  pos.
      ls_fieldcat-fieldname     = 'LFIMG'.
      ls_fieldcat-ref_tabname   = 'LIPS'.
      ls_fieldcat-outputlen     = 7.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
      ls_fieldcat-col_pos       =  pos.
      ls_fieldcat-fieldname     = 'OBD'.
      ls_fieldcat-seltext_s     = 'OBD'.
      ls_fieldcat-seltext_m     = 'Outbound Del'.
      ls_fieldcat-seltext_l     = 'Outbound Delivery'.
      ls_fieldcat-outputlen     = 10.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
    ls_fieldcat-col_pos       =  pos.
    ls_fieldcat-fieldname     = 'OBD_POS'.
    ls_fieldcat-seltext_s     = 'OBD Ln'.
    ls_fieldcat-seltext_m     = 'Outbound Del Ln'.
    ls_fieldcat-seltext_l     = 'Outbound Del Line'.
    ls_fieldcat-outputlen     = 10.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    *End CH01
    *JR
      ls_fieldcat-col_pos       =  pos.
      ls_fieldcat-fieldname     = 'SOLDTO'.
      ls_fieldcat-ref_tabname   = 'VBAP'.
      ls_fieldcat-seltext_m     = 'Sold To'.
      ls_fieldcat-seltext_l     = 'Sold To'.
      ls_fieldcat-outputlen     = 10.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
      ls_fieldcat-col_pos       =  pos.
      ls_fieldcat-fieldname     = 'SHIPTO'.
      ls_fieldcat-ref_tabname   = 'VBPA'.
      ls_fieldcat-seltext_m     = 'Ship To'.
      ls_fieldcat-seltext_l     = 'Ship To'.
      ls_fieldcat-outputlen     = 10.
      APPEND ls_fieldcat TO i_fieldcat.
      CLEAR ls_fieldcat.
    *END JR
    *FOR ALV SORT & SUBTOTAL
      CLEAR it_sort.
      it_sort-spos = '0'.
      it_sort-fieldname = 'VBELN'.
      it_sort-tabname = 'GT_OUTTAB'.
      it_sort-up = 'X'.
    it_sort-subtot = 'X'.
      APPEND it_sort.
      CLEAR it_sort.
      it_sort-spos = '1'.
      it_sort-fieldname = 'POSNR'.
      it_sort-tabname = 'GT_OUTTAB'.
      it_sort-up = 'X'.
      it_sort-subtot = 'X'.
    it_sort-subtot = 'X'.
      APPEND it_sort.
      CLEAR it_sort.
      it_sort-spos = '2'.
      it_sort-fieldname = 'MATNR'.
      it_sort-tabname = 'GT_OUTTAB'.
      it_sort-up = 'X'.
    it_sort-subtot = 'X'.
      APPEND it_sort.
      CLEAR it_sort.
      it_sort-spos = '3'.
      it_sort-fieldname = 'MVGR1'.
      it_sort-tabname = 'GT_OUTTAB'.
      it_sort-up = 'X'.
    it_sort-subtot = 'X'.
      APPEND it_sort.
      CLEAR it_sort.
      it_sort-spos = '4'.
      it_sort-fieldname = 'ERDAT'.
      it_sort-tabname = 'GT_OUTTAB'.
      it_sort-up = 'X'.
    it_sort-subtot = 'X'.
      APPEND it_sort.
      CLEAR it_sort.
      it_sort-spos = '5'.
      it_sort-fieldname = 'WADAT_IST'.
      it_sort-tabname = 'GT_OUTTAB'.
      it_sort-down = 'X'.
    it_sort-subtot = 'X'.
      APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '6'.
    it_sort-fieldname = 'PERNR'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '7'.
    it_sort-fieldname = 'VORNA'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '8'.
    it_sort-fieldname = 'NACHN'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '9'.
    it_sort-fieldname = 'VKGRP'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '10'.
    it_sort-fieldname = 'VBELN'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '11'.
    it_sort-fieldname = 'ERDAT'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '12'.
    it_sort-fieldname = 'BEZEI'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    clear it_sort.
    it_sort-spos = '1'.
    it_sort-fieldname = 'BELNR'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    append it_sort.
    ENDFORM.
    +EC1
    Addition                                                          +EC1
    +EC1
    *&      Form  VARIANT_INIT
          text
    -->  p1        text
    <--  p2        text
    FORM variant_init.
      CLEAR g_variant.
      g_variant-report = g_repid.
    ENDFORM.                               " VARIANT_INIT
          FORM f4_for_variant                                           *
    FORM f4_for_variant.
      CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
           EXPORTING
                is_variant          = g_variant
                i_save              = g_save
              it_default_fieldcat =
           IMPORTING
                e_exit              = g_exit
                es_variant          = gx_variant
           EXCEPTIONS
                not_found = 2.
      IF sy-subrc = 2.
        MESSAGE ID sy-msgid TYPE 'S'      NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ELSE.
        IF g_exit = space.
          p_vari = gx_variant-variant.
        ENDIF.
      ENDIF.
    ENDFORM.
    *&      Form  PAI_OF_SELECTION_SCREEN
          text
    FORM pai_of_selection_screen.
      IF NOT p_vari IS INITIAL.
        MOVE g_variant TO gx_variant.
        MOVE p_vari TO gx_variant-variant.
        CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
             EXPORTING
                  i_save     = g_save
             CHANGING
                  cs_variant = gx_variant.
        g_variant = gx_variant.
      ELSE.
        PERFORM variant_init.
      ENDIF.
    ENDFORM.                               " PAI_OF_SELECTION_SCREEN
    +EC1
    End Addition                                                      +EC1
    +EC1
          FORM e03_eventtab_build                                       *
    -->  E03_LT_EVENTS                                                 *
    FORM e03_eventtab_build USING e03_lt_events TYPE slis_t_event.
      DATA: ls_event TYPE slis_alv_event.
      CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
           EXPORTING
                i_list_type = 0
           IMPORTING
                et_events   = e03_lt_events.
      READ TABLE e03_lt_events WITH KEY name =  slis_ev_top_of_page
                               INTO ls_event.
      IF sy-subrc = 0.
        MOVE gc_formname_top_of_page TO ls_event-form.
        APPEND ls_event TO e03_lt_events.
      ENDIF.
    ENDFORM.
          FORM e04_comment_build                                        *
    -->  E04_LT_TOP_OF_PAGE                                            *
    FORM e04_comment_build USING e04_lt_top_of_page TYPE slis_t_listheader.
      DATA: ls_line TYPE slis_listheader.
    *Report Title
      CLEAR ls_line.
      ls_line-typ  = 'H'.
      ls_line-info = text-007.
      APPEND ls_line TO e04_lt_top_of_page.
    **Doc Type Desc.
    clear ls_line.
    ls_line-typ  = 'S'.
    ls_line-key = text-008.
    ls_line-info = p_matnr.
    append ls_line to e04_lt_top_of_page.
    clear ls_line.
    ls_line-typ  = 'S'.
    ls_line-key  = text-009.
    ls_line-info = p_werks.
    append ls_line to e04_lt_top_of_page.
    clear ls_line.
    ls_line-typ  = 'S'.
    ls_line-key = text-010.
    ls_line-info = p_stlan.
    append ls_line to e04_lt_top_of_page.
    clear ls_line.
    ls_line-typ  = 'S'.
    ls_line-key = text-011.
    ls_line-info = p_stlal.
    append ls_line to e04_lt_top_of_page.
    clear ls_line.
    ls_line-typ  = 'S'.
    ls_line-key = text-012.
    ls_line-info = p_stlal.
    append ls_line to e04_lt_top_of_page.
    ENDFORM.
          FORM top_of_page                                              *
    FORM top_of_page.
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
           EXPORTING
                it_list_commentary = gt_list_top_of_page.
    ENDFORM.
          FORM auth_check                                               *
    FORM auth_check.
      AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'
                      ID 'VKORG' FIELD p_vkorg.
      IF sy-subrc NE 0.
        MESSAGE e054 WITH p_vkorg.
      ENDIF.
    ENDFORM.                    " auth_check
    *&      Form  USER_COMMAND
    FORM user_command  USING r_ucomm LIKE sy-ucomm
                             rs_selfield TYPE slis_selfield.
      CASE r_ucomm.
        WHEN '&IC1'.
          PERFORM display_so_order USING r_ucomm
                                        rs_selfield.
      ENDCASE.
    ENDFORM.
    *&      Form  display_sales_order
          text
         -->P_R_UCOMM  text
         -->P_RS_SELFIELD  text
    FORM display_so_order USING    r_ucomm LIKE sy-ucomm
                                             rs_selfield TYPE slis_selfield.
      CASE rs_selfield-sel_tab_field.
        WHEN '1-VBELN'.
          SET PARAMETER ID 'AUN' FIELD rs_selfield-value.
          CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
        WHEN '1-MATNR'.
          SET PARAMETER ID 'MAT' FIELD rs_selfield-value.
          CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
        WHEN '1-OBD'.
          SET PARAMETER ID 'VL' FIELD rs_selfield-value.
          CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.
        WHEN OTHERS.
          MESSAGE i000(z1) WITH 'Please Click on the Valid Selection'.
          EXIT.
      ENDCASE.
    ENDFORM.                    " display_sales_order
          FORM EDit_table                                               *

    Hi,
      Try this..I commented the continue statement and I didn't change the SQL to add the LFDAT..If I change the SQL the calculations might change..
      CHeck this..Changes are marked in bold..
    Global data declaration
    TYPE-POOLS: slis.
    TABLES: vbap, vbrk, vbfa, vbak, vbrp, konv, kna1, bkpf, bsad, bkpf_bsad,
    knvv, pa0002, t005u, mvke, lips, likp, vbpa.
    DATA: BEGIN OF i_list OCCURS 0,
    vbeln LIKE vbak-vbeln,
    posnr LIKE vbap-posnr,
    matnr LIKE vbap-matnr,
    erdat LIKE vbap-erdat,
    mvgr1 LIKE mvke-mvgr1,
    wadat_ist LIKE likp-wadat_ist,
    lfdat like likp-lfdat,
    days TYPE i,
    werks LIKE vbap-werks,
    lgort LIKE vbap-lgort,
    kwmeng LIKE vbap-kwmeng," CH01+
    lfimg LIKE lips-lfimg," CH01+
    pstyv LIKE vbap-pstyv," CH01+
    obd LIKE lips-vbeln," CH01+
    obd_pos LIKE lips-posnr," CH01+
    soldto LIKE vbaK-kunnr," JR+
    shipto LIKE vbpa-kunnr," JR+
    END OF i_list.
    DATA: i_list2 LIKE i_list OCCURS 0 WITH HEADER LINE,
    i_list3 LIKE i_list OCCURS 0 WITH HEADER LINE.
    DATA: i_list4 LIKE vbap OCCURS 0 WITH HEADER LINE.
    *ALV Output Header
    DATA: gt_list_top_of_page TYPE slis_t_listheader,
    prognm LIKE sy-repid,
    gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',
    gt_events TYPE slis_t_event,
    is_layout TYPE slis_layout_alv,
    is_variant LIKE disvariant,
    it_sort TYPE slis_t_sortinfo_alv WITH HEADER LINE.
    DATA:gt_fieldcat TYPE slis_t_fieldcat_alv.
    DATA:gt_outtab LIKE i_list OCCURS 0 WITH HEADER LINE.
    DATA: g_repid LIKE sy-repid,
    g_count LIKE sy-tabix.
    SELECTION-SCREEN BEGIN OF BLOCK block0 WITH FRAME TITLE text-t01.
    SELECTION-SCREEN: BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(79) text-t10.
    SELECTION-SCREEN: END OF LINE.
    SELECTION-SCREEN: BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(79) text-t11.
    SELECTION-SCREEN: END OF LINE.
    SELECTION-SCREEN: BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(79) text-t12.
    SELECTION-SCREEN: END OF LINE.
    SELECTION-SCREEN END OF BLOCK block0.
    */ Selection and Input Parameters
    SELECTION-SCREEN BEGIN OF BLOCK blocko WITH FRAME TITLE text-001.
    SELECT-OPTIONS: s_vbeln FOR vbap-vbeln, "SO
    s_auart FOR vbak-auart DEFAULT 'KB' OBLIGATORY,
    s_matnr FOR vbap-matnr," obligatory,
    s_mvgr1 FOR mvke-mvgr1,
    s_erdat FOR vbap-erdat OBLIGATORY,
    s_werks FOR vbap-werks,
    s_lgort FOR vbap-lgort.
    PARAMETERS: p_vkorg LIKE vbak-vkorg DEFAULT '5010'.
    SELECTION-SCREEN SKIP 2.
    +EC1
    Addition +EC1
    +EC1
    PARAMETERS: p_vari LIKE disvariant-variant.
    +EC1
    End Addition +EC1
    +EC1
    SELECTION-SCREEN END OF BLOCK blocko.
    +EC1
    Addition +EC1
    +EC1
    DATA: g_save(1) TYPE c,
    g_default(1) TYPE c,
    g_exit(1) TYPE c,
    gx_variant LIKE disvariant,
    g_variant LIKE disvariant.
    +EC1
    End Addition +EC1
    +EC1
    Initialization fieldcatalog
    INITIALIZATION.
    PERFORM clear_tables.
    g_repid = sy-repid.
    PERFORM fieldcat_init USING gt_fieldcat[].
    +EC1
    Addition +EC1
    +EC1
    g_save = 'A'.
    PERFORM variant_init.
    Get default variant
    gx_variant = g_variant.
    CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
    i_save = g_save
    CHANGING
    cs_variant = gx_variant
    EXCEPTIONS
    not_found = 2.
    IF sy-subrc = 0.
    p_vari = gx_variant-variant.
    ENDIF.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
    PERFORM f4_for_variant.
    AT SELECTION-SCREEN.
    PERFORM auth_check. "+ESC
    PERFORM pai_of_selection_screen.
    +EC1
    End Addition +EC1
    +EC1
    START-OF-SELECTION.
    PERFORM get_data.
    PERFORM alv.
    END-OF-SELECTION.
    FORM get_data *
    FORM get_data.
    *CH01 - Added kwmeng(order qty) to selection, excluded rejects
    *JR -added soldto and shipto code
    SELECT a~vbeln a~posnr a~matnr a~erdat a~werks a~lgort
    a~kwmeng a~pstyv b~kunnr" CH01+
    INTO
    (i_list-vbeln, i_list-posnr, i_list-matnr, i_list-erdat, i_list-werks,
    i_list-lgort,
    i_list-kwmeng , i_list-pstyv, i_list-soldto)" CH01+
    FROM vbap AS a INNER JOIN vbak AS b ON a~vbeln = b~vbeln
    WHERE b~vkorg = p_vkorg
    AND a~werks IN s_werks
    AND a~lgort IN s_lgort
    AND b~auart IN s_auart
    AND a~vbeln IN s_vbeln
    AND a~erdat IN s_erdat
    AND a~abgru = ''" CH01+
    AND a~matnr IN s_matnr.
    APPEND i_list.
    ENDSELECT.
    COMMIT WORK AND WAIT.
    LOOP AT i_list.
    SELECT SINGLE mvgr1 INTO i_list-mvgr1 FROM mvke
    WHERE matnr = i_list-matnr.
    MODIFY i_list.
    CLEAR: i_list.
    ENDLOOP.
    COMMIT WORK AND WAIT.
    LOOP AT i_list.
    IF i_list-mvgr1 IN s_mvgr1.
    <b>* CONTINUE</b>
    ELSE.
    DELETE i_list.
    COMMIT WORK AND WAIT.
    ENDIF.
    ENDLOOP.
    CH01 - commented these lines out and redid logic below
    LOOP AT i_list.
    select single vbeln into lips-vbeln from lips
    where vgbel = i_list-vbeln
    and vgpos = i_list-posnr.
    select single wadat_ist into i_list-wadat_ist from likp
    where vbeln = lips-vbeln.
    SELECT single bwadat_ist blfdat INTO (i_list-wadat_ist,
    i_list-lfdat) FROM lips AS a INNER JOIN likp AS b ON avbeln = bvbeln
    WHERE avgbel = i_list-vbeln AND avgpos = i_list-posnr.
    MODIFY i_list.
    CLEAR: i_list, lips-vbeln.
    ENDSELECT.
    ENDLOOP.
    CH01 - Changed to select multiple delivery lines & del qty
    summing the total deliveries per OBD# and date
    LOOP AT i_list.
    SELECT avbeln sum( alfimg ) b~wadat_ist
    INTO (i_list-obd , i_list-lfimg , i_list-wadat_ist)
    FROM lips AS a INNER JOIN
    likp AS b ON avbeln = bvbeln WHERE a~vgbel = i_list-vbeln
    AND a~vgpos = i_list-posnr
    AND a~pstyv = i_list-pstyv
    group by avbeln bwadat_ist.
    i_list2 = i_list.
    APPEND i_list2.
    ENDSELECT.
    IF sy-subrc <> 0.
    i_list2 = i_list.
    APPEND i_list2.
    ENDIF.
    ENDLOOP.
    i_list[] = i_list2[].
    *End CH01
    COMMIT WORK AND WAIT.
    LOOP AT i_list.
    IF i_list-wadat_ist IS INITIAL.
    CONTINUE.
    ELSE.
    i_list-days = i_list-wadat_ist - i_list-erdat.
    ENDIF.
    MODIFY i_list.
    CLEAR: i_list.
    COMMIT WORK AND WAIT.
    ENDLOOP.
    COMMIT WORK AND WAIT.
    LOOP AT i_list.
    IF i_list-vbeln IS INITIAL.
    DELETE i_list.
    ENDIF.
    ENDLOOP.
    COMMIT WORK AND WAIT.
    *JR
    LOOP AT i_list.
    SELECT SINGLE KUNNR INTO i_list-shipto FROM vbpa
    WHERE vbeln = i_list-vbeln
    AND parvw = 'WE'.
    MODIFY i_list.
    ENDLOOP.
    *END JR
    gt_outtab[] = i_list[].
    COMMIT WORK AND WAIT.
    ENDFORM.
    FORM alv *
    FORM alv.
    PERFORM e03_eventtab_build USING gt_events[]. "+EC1
    PERFORM e04_comment_build USING gt_list_top_of_page[]. "+EC1
    prognm = sy-repid. "+EC1
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
    i_callback_user_command = 'USER_COMMAND'
    i_callback_program = g_repid
    it_fieldcat = gt_fieldcat[]
    it_events = gt_events[] "+ESC
    it_sort = it_sort[]
    +EC1
    Addition +EC1
    +EC1
    is_variant = g_variant
    i_save = g_save
    +EC1
    End Addition +EC1
    +EC1
    TABLES
    t_outtab = gt_outtab.
    COMMIT WORK AND WAIT.
    ENDFORM.
    FORM fieldcat_init *
    --> I_FIELDCAT *
    FORM fieldcat_init
    USING i_fieldcat TYPE slis_t_fieldcat_alv.
    DATA: ls_fieldcat TYPE slis_fieldcat_alv.
    DATA: pos TYPE i VALUE 1.
    CLEAR ls_fieldcat.
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'VBELN'.
    ls_fieldcat-ref_tabname = 'VBAK'.
    ls_fieldcat-key = 'X'.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'POSNR'.
    ls_fieldcat-ref_tabname = 'VBAP'.
    ls_fieldcat-key = 'X'.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'MATNR'.
    ls_fieldcat-ref_tabname = 'VBAP'.
    ls_fieldcat-key = 'X'.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'MVGR1'.
    ls_fieldcat-ref_tabname = 'MVKE'.
    ls_fieldcat-key = 'X'.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'WERKS'.
    ls_fieldcat-ref_tabname = 'VBAP'.
    ls_fieldcat-key = 'X'.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'LGORT'.
    ls_fieldcat-ref_tabname = 'VBAP'.
    ls_fieldcat-key = 'X'.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'ERDAT'.
    ls_fieldcat-ref_tabname = 'VBAP'.
    ls_fieldcat-key = 'X'.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'WADAT_IST'.
    ls_fieldcat-ref_tabname = 'LIKP'.
    ls_fieldcat-key = 'X'.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'LFDAT'.
    ls_fieldcat-ref_tabname = 'LIKP'.
    ls_fieldcat-key = 'X'.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'DAYS'.
    ls_fieldcat-ref_fieldname = 'DAYS'.
    ls_fieldcat-seltext_s = '# Of Days'.
    ls_fieldcat-seltext_m = '# Of Days'.
    ls_fieldcat-seltext_l = '# Of Days'.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    *Begin CH01
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'KWMENG'.
    ls_fieldcat-ref_tabname = 'VBAP'.
    ls_fieldcat-outputlen = 7.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'LFIMG'.
    ls_fieldcat-ref_tabname = 'LIPS'.
    ls_fieldcat-outputlen = 7.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'OBD'.
    ls_fieldcat-seltext_s = 'OBD'.
    ls_fieldcat-seltext_m = 'Outbound Del'.
    ls_fieldcat-seltext_l = 'Outbound Delivery'.
    ls_fieldcat-outputlen = 10.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'OBD_POS'.
    ls_fieldcat-seltext_s = 'OBD Ln'.
    ls_fieldcat-seltext_m = 'Outbound Del Ln'.
    ls_fieldcat-seltext_l = 'Outbound Del Line'.
    ls_fieldcat-outputlen = 10.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    *End CH01
    *JR
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'SOLDTO'.
    ls_fieldcat-ref_tabname = 'VBAP'.
    ls_fieldcat-seltext_m = 'Sold To'.
    ls_fieldcat-seltext_l = 'Sold To'.
    ls_fieldcat-outputlen = 10.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    ls_fieldcat-col_pos = pos.
    ls_fieldcat-fieldname = 'SHIPTO'.
    ls_fieldcat-ref_tabname = 'VBPA'.
    ls_fieldcat-seltext_m = 'Ship To'.
    ls_fieldcat-seltext_l = 'Ship To'.
    ls_fieldcat-outputlen = 10.
    APPEND ls_fieldcat TO i_fieldcat.
    CLEAR ls_fieldcat.
    *END JR
    *FOR ALV SORT & SUBTOTAL
    CLEAR it_sort.
    it_sort-spos = '0'.
    it_sort-fieldname = 'VBELN'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '1'.
    it_sort-fieldname = 'POSNR'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '2'.
    it_sort-fieldname = 'MATNR'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '3'.
    it_sort-fieldname = 'MVGR1'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '4'.
    it_sort-fieldname = 'ERDAT'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '5'.
    it_sort-fieldname = 'WADAT_IST'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-down = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '6'.
    it_sort-fieldname = 'PERNR'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '7'.
    it_sort-fieldname = 'VORNA'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '8'.
    it_sort-fieldname = 'NACHN'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '9'.
    it_sort-fieldname = 'VKGRP'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '10'.
    it_sort-fieldname = 'VBELN'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '11'.
    it_sort-fieldname = 'ERDAT'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    CLEAR it_sort.
    it_sort-spos = '12'.
    it_sort-fieldname = 'BEZEI'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    it_sort-subtot = 'X'.
    APPEND it_sort.
    clear it_sort.
    it_sort-spos = '1'.
    it_sort-fieldname = 'BELNR'.
    it_sort-tabname = 'GT_OUTTAB'.
    it_sort-up = 'X'.
    append it_sort.
    ENDFORM.
    +EC1
    Addition +EC1
    +EC1
    *& Form VARIANT_INIT
    text
    --> p1 text
    <-- p2 text
    FORM variant_init.
    CLEAR g_variant.
    g_variant-report = g_repid.
    ENDFORM. " VARIANT_INIT
    FORM f4_for_variant *
    FORM f4_for_variant.
    CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
    is_variant = g_variant
    i_save = g_save
    it_default_fieldcat =
    IMPORTING
    e_exit = g_exit
    es_variant = gx_variant
    EXCEPTIONS
    not_found = 2.
    IF sy-subrc = 2.
    MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ELSE.
    IF g_exit = space.
    p_vari = gx_variant-variant.
    ENDIF.
    ENDIF.
    ENDFORM.
    *& Form PAI_OF_SELECTION_SCREEN
    text
    FORM pai_of_selection_screen.
    IF NOT p_vari IS INITIAL.
    MOVE g_variant TO gx_variant.
    MOVE p_vari TO gx_variant-variant.
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
    EXPORTING
    i_save = g_save
    CHANGING
    cs_variant = gx_variant.
    g_variant = gx_variant.
    ELSE.
    PERFORM variant_init.
    ENDIF.
    ENDFORM. " PAI_OF_SELECTION_SCREEN
    +EC1
    End Addition +EC1
    +EC1
    FORM e03_eventtab_build *
    --> E03_LT_EVENTS *
    FORM e03_eventtab_build USING e03_lt_events TYPE slis_t_event.
    DATA: ls_event TYPE slis_alv_event.
    CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
    i_list_type = 0
    IMPORTING
    et_events = e03_lt_events.
    READ TABLE e03_lt_events WITH KEY name = slis_ev_top_of_page
    INTO ls_event.
    IF sy-subrc = 0.
    MOVE gc_formname_top_of_page TO ls_event-form.
    APPEND ls_event TO e03_lt_events.
    ENDIF.
    ENDFORM.
    FORM e04_comment_build *
    --> E04_LT_TOP_OF_PAGE *
    FORM e04_comment_build USING e04_lt_top_of_page TYPE slis_t_listheader.
    DATA: ls_line TYPE slis_listheader.
    *Report Title
    CLEAR ls_line.
    ls_line-typ = 'H'.
    ls_line-info = text-007.
    APPEND ls_line TO e04_lt_top_of_page.
    **Doc Type Desc.
    clear ls_line.
    ls_line-typ = 'S'.
    ls_line-key = text-008.
    ls_line-info = p_matnr.
    append ls_line to e04_lt_top_of_page.
    clear ls_line.
    ls_line-typ = 'S'.
    ls_line-key = text-009.
    ls_line-info = p_werks.
    append ls_line to e04_lt_top_of_page.
    clear ls_line.
    ls_line-typ = 'S'.
    ls_line-key = text-010.
    ls_line-info = p_stlan.
    append ls_line to e04_lt_top_of_page.
    clear ls_line.
    ls_line-typ = 'S'.
    ls_line-key = text-011.
    ls_line-info = p_stlal.
    append ls_line to e04_lt_top_of_page.
    clear ls_line.
    ls_line-typ = 'S'.
    ls_line-key = text-012.
    ls_line-info = p_stlal.
    append ls_line to e04_lt_top_of_page.
    ENDFORM.
    FORM top_of_page *
    FORM top_of_page.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
    it_list_commentary = gt_list_top_of_page.
    ENDFORM.
    FORM auth_check *
    FORM auth_check.
    AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'
    ID 'VKORG' FIELD p_vkorg.
    IF sy-subrc NE 0.
    *MESSAGE e054 WITH p_vkorg.
    ENDIF.
    ENDFORM. " auth_check
    *& Form USER_COMMAND
    FORM user_command USING r_ucomm LIKE sy-ucomm
    rs_selfield TYPE slis_selfield.
    CASE r_ucomm.
    WHEN '&IC1'.
    PERFORM display_so_order USING r_ucomm
    rs_selfield.
    ENDCASE.
    ENDFORM.
    *& Form display_sales_order
    text
    -->P_R_UCOMM text
    -->P_RS_SELFIELD text
    FORM display_so_order USING r_ucomm LIKE sy-ucomm
    rs_selfield TYPE slis_selfield.
    CASE rs_selfield-sel_tab_field.
    WHEN '1-VBELN'.
    SET PARAMETER ID 'AUN' FIELD rs_selfield-value.
    CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
    WHEN '1-MATNR'.
    SET PARAMETER ID 'MAT' FIELD rs_selfield-value.
    CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
    WHEN '1-OBD'.
    SET PARAMETER ID 'VL' FIELD rs_selfield-value.
    CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.
    WHEN OTHERS.
    MESSAGE i000(z1) WITH 'Please Click on the Valid Selection'.
    EXIT.
    ENDCASE.
    ENDFORM. " display_sales_order
    FORM EDit_table *
    Thanks,
    Naren

  • How to calculate delivery date

    Hello,
    I'm trying to use a formatted search in a Sales Order to calculate the delivery date per row.
    I found the following that could be my answer, but not sure how to proceed:
    DATEADD (datepart, number, date)
    Based on the item information on tab 'Planning' field Lead Time (OITM.LeadTime) I want to calculate the document date plus the Lead Time (or should I create a UDF?).
    I did created the following query:
    DATEADD(day, $[OITM.LeadTime], $[$10.0.DATE])
    When running the query I get the following:
    DATEADD(day, N'', CONVERT(DATETIME, '20080325', 112))
    As you can see it didn't fill the 'number' with the leadtime information (which is 3 in my case).
    And I receive the following error:
    1). [Microsoft][SQL Native Client][SQL Server] Incorrect syntax near 'day'. 2).[Microsoft][SQL Native Client][SQL Server] Statement 'User-Defined Values'(CSHS) (s) could not be prepared.
    How can I my result?
    Regards,
    Petronella

    This seems to work.
    SELECT DATEADD(day, (SELECT LeadTime FROM OITM WHERE ItemCode = $[$38.1.0]), $[$10.0.DATE])
    Regards,
    Douglas

  • In MIGO, i need to see delivery dates from the purchase order

    Is there a way to see in transaction MIGO, the delivery dates from the purchase order?  I hope there is some exit or BADI or BAPI or .... to perform this copy function? 
    We have multi-line POs for the same material with staggered delivery dates and the Warehouse needs to know which PO line to receive against.

    when you enter the PO number in MIGO and hit enter, then you only get the items that can be received.
    If you make sure that the PO items are created by ascending delivery date, then you can always take the first.
    if you have the personal setting to display all items (even the already received ones), then you can take the first with a quantity proposal. already received items do not propose quantities.
    I would ask purchasing to tell the vendor that he has to state the PO number along with the item number in all papers (delivery note, invoice).

  • Vl10b change delivery date definition on selection screen

    Okay - here is the scenario.
    I have a custom field that i wish to use as the basis for delivery date fields on the selection screen in VL10B.
    The selection screen use the fields VEPVG-LEDAT for the delivery date range.  i wish to use my own custom delivery field for the selection.
    I have noted that VL10B actually executes VL10X -and VL10X has several user exits that could be applied.
    Anyone know how I could accomplish this?
    Thank!

    Fields on selection screen are mere names. You can give any name. In this case its ST_LEDAT .
    How they are used inside the program is something you may like to change.
    If you do a "find" for ST_LEDAT in program RVV50R10C you will see at how many places this select option is used .
    If you want to change the behaviour ( select statements) you can copy the report and modify it.
    Cheers

  • Delivery date should fall on every monday for a PR created by MRP

    Hi Gurus,
    A PR is created by MRP. I need to have delivery date of the PR on every monday. Please let me know , what settings has to be done...
    Regards,
    Vibin

    Friends Thanks for your reply.
    Here is the answer
    1. Set the planning calendar as the period stats with Monday.
    2. Set the weekly lot sizing procedure in such way that the scheduling field as 1 = requirement date = delivery date.
    3. Assign these settings in the MRP view of material master.
    If you run the MD02 then your requirement date will only falls on Monday.
    But since our requirement is delivery date should fall on Monday.
    4. So the GR processing time should be zero in the MRP 2 view of material master.
    Because the delivery date calculated as follows
    Delivery date = Requirement date - GR processing time.
    By this way the delivery date also falls on the same day (Monday ) as the Requirement date.
    Again thanks for your answers and expecting the comments on the same.
    Regards
    Vibin

  • Statistical Delivery date vs Confirmed Delivery date

    Hi Experts,
    Been browsing a bit in the threads and found that there are two notes that need to be implemented for a correct refreshing of Statistical Delivery date.
    We would like the system to take the Confirmed delivery date as the Statistical Delivery date.
    My question is, since we are using manual confirmations in the PO, Is it possible that the manually confirmed date in the PO is copied automatically in the Statistical Delivery date?
    Or we need to manually confirm, and then again manually copy the same date in Stat. Del. Date field?

    Toni,
    In Standard SAP, there is no relationship between 'Statistical Delivery date' and any date contained in the confirmations.  If you want them to somehow be linked, this will require custom programming.  Spec it out and hand the requirements off to your ABAPers.
    One thing to bear in mind is that the Statistical delivery date(s) are related to the Purchase Order Item SCHEDULES.  Confirmation date(s) are related to the Purchase Order ITEMS (not the schedules).  If you decide to create some custom code, you will need to accommodate the instances when the number of confirmation lines is different from the number of schedule lines.
    For example, for one Purchase order item, I might have 3 schedules, with 3 statistical delivery dates.  When the Purchase order item confirmations are entered, I might have 1 confirmation, 3 confirmations, or 4 confirmations, all for the single PO Item.  You will then have to decide which date should be moved to Statistical delivery date.
    Regards,
    DB49

  • Credit Card Authorization for Confirmed Delivery Date

    When a credit card order is placed and the confirmed delivery date is beyond the expiration date on the credit card SAP allows the order to be placed and authorized. If the confirmed ship date is beyond the expiration date of the card then shouldn't SAP block the  order? Currently, it is not doing this in our systems.
    Is anyone aware of how to change SAP to check if the confirmed delivery date is passed the expiration date of the credit card?
    Many Thanks!
    Kyle

    Hi Deborah Bourgeois,
    There is no Credit Hold check box enabled in the Customer window, We are getting same error in order management too.
    Scenario 1:
    When we set the profiles like below iStore,OM,AR order getting confirmed with Hold and tangibleId is starting with as shown below
    TangibleId:
    iStore = ASO%.
    Order Management = ONT%.
    AR Manual orders = AR%
    Profiles:
    ASO: Credit Card Authorization = No
    IBE: Perform Payment authorization = Yes
    ASO: Default Order State profile = Booked
    Scenario 2:
    When we set the profiles like below iStore,OM,AR order getting confirmed without any Hold and all the tangibleId is starting with ONT%
    ASO: Credit Card Authorization = Yes
    IBE: Perform Payment authorization = No
    ASO: Default Order State profile = Booked
    Our Expectation:
    1. Order should be confirmed with out any Hold.
    2. Tangible id should as below
    a. iStore = ASO%.
    b. Order Management = ONT%.
    c. AR Manual orders = AR%
    3. All this should work for iStore when the below profile is enabled
    IBE: Perform Payment authorization = Yes
    Could you please help me on this.
    Thanks
    Vino.

  • Delivery Date not Set in Production Order

    Hi,
    I am trying to settle a MTS (make to stock) production order that is both CNF and DLV. When I try to calculate variances, I get a KV 239 message stating that the delivery date is not set. I set this order to TECO and went to recalculate WIP but the production order cannot settle because this error still remains. When I drill down on the error, it states that there was an error in the program which set this order to DLV status, when no delivery date has been set. I can't see where this is looking for the delivery date. Has anyone come across this issue and if so, how would I go about correcting this?
    Thanks!

    Hi Team,
    Looks like it is not a common problem probably you need to look out for any OSS notes.
    Any you can check the Delivery date of the order by
    1. In the order display mode CO03 hit the "I" - Status Information Icon which on the right side where order status is displayed. Now system should take you to the Display status screen, here place your cursor on the "Delivered" text and go to the menu bar : Extras-->Change documents-->For Status, now system will display when the DLV status was set.
    Other option.
    2.In the order display mode CO03 use the menu Goto--->Documented Goods Movment. Now system will display all the goods moved against this order select the last GR-101 movement and double click the line, now system should take you to the Material Document in this check the posting date... that should be the delivery date.
    Regards,
    Prasobh

  • Change of PO Delivery Date

    Hi All,
    We have this user requirement. User wants to change the delivery date of aged  purchase orders raised. If the purchase order is more than three months old, then they are reevaluating the delivery date.
    Is it possible to change the delivery date for the purchase orders for which GR and invoice is already done. i find this field to editable in all the purchase orders but if i change, the delivery date converts back to original one and it is not getting changed.
    Please help.
    Thanks,
    Nisha

    We have this user requirement. User wants to
    change the delivery date of aged  purchase orders raised.
    If the purchase order is more than three months old, then they are reevaluating the delivery date.
    Is it possible to change the delivery date for the
    purchase orders for which GR and invoice is already done
    If it is partiially GR & invoiced,then enter add fresh delivery schedule date for open GR qty.
    i find this field to editable in all the purchase orders
    You statement itself answers question.
    but if i change, the delivery date converts back to original one
    and it is not getting changed.
    Based on planned delivery time mentioned in info record/ material master dellivery date is calculated.

  • Prevent past date entry on the delivery date field

    Hi Guys,
    I was wondering whether it is possible within standard SAP Business one 8.8 to prevent users from entering past date in the delivery date field on the Sales order screen.   I have people making mistakes by entering 10/10/2010 instead of 10/10/2011.  This caused problems with reports etc..
    Is there a formatted search query i can create to warn/alert users with a message stating incorrect date entered? Please advice best course of action?
    Regards
    nick

    Deepak,
    The following code is already in this section?  Can i just add Gordon query below the last "END" statement?
    --    ADD   YOUR  CODE  HERE
    declare @islocked int
    select @islocked = 0
    if(@object_type = '17' and @transaction_type <> 'A')
    select @islocked = U_LockedForEdit from [@A1WMS_Staging] where U_objType = '17' and U_docEntry = @list_of_cols_val_tab_del
    if(@object_type = '22' and @transaction_type <> 'A')
    select @islocked = U_LockedForEdit from [@A1WMS_Staging] where U_objType = '22' and U_docEntry = @list_of_cols_val_tab_del
    if(@object_type = '202' and @transaction_type <> 'A')
    select @islocked = U_LockedForEdit from [@A1WMS_Staging] where U_objType = '202' and U_docEntry = @list_of_cols_val_tab_del
    if(@islocked <> 0)
    begin
    select @error = 999
    select @error_message = 'Order Cannot be Updated/Canceled/Deleted as it is Locked in WMS'
    end

  • Statistics-Relevant Delivery Date is not copied

    Hi,
    when i tried to change delivery date of PO at item level , the Statistics-Relevant Delivery Date is not updated automatically  with item level delivery date in delivery shedule, but delivery field is updated with item level delivery date .
    Can anyone update this query if you have any idea.
    <REMOVED BY MODERATOR - REQUEST OR OFFER POINTS ARE FORBIDDEN>
    Thanks
    Ramakrishnaiah Y
    Edited by: Alvaro Tejada Galindo on Sep 1, 2008 4:03 PM

    Hi,
    Here I checked in me22n with changing delivery date that time Stat.Del.Date is updating automatically in delivery schedule in item level with that same date.
    U just check this with the help of ABAPer why this date is not changing.
    Thanks,
    Sanket.

  • Problem in updating delivery date in va02

    hi abapers,
    my requirement is to update the delivery date in va02 at header level. i have this code in sapmv45a, include is mv45afzz,
    written code in move_fields_to_vbak.
    when ever iam running the va02 tcode i am getting my updated delivery date , when iam saving again this exit triggering so that again delivery date is updatting.
    here x is the updated date getting from z function module. iam pasing this value to below statement
    vbak-vdatu = x.
    so that how to stop triggering the code  while saving.

    hi abapers i posted the code, here the problem iam facing is that, when ever iam opening the va02  tcode updated delivery date  is coming but when ia msaving again this is triggering so that first updated date is again updating .
    here x is the day no comes from function module  in below code , iwll compare x with following zroutern  function module .
    suppose .
    updated date is 17.12.2010 so that i will push to vbak-vdatu = 17.12.2010. but here again date_compute_day is again calcultaing day from 17.12.2010 so that again that day  which is stored is x again compared to zroutern function module .
    here i aim is when ever i get updated date then  it shuold come out of this application .
    plese suggest .
    READ TABLE XVBAP INDEX 1.
    READ TABLE XVBPA WITH KEY  VBELN = XVBAP-VBELN
                               "POSNR = XVBAP-POSNR
                               PARVW = 'WE'.
    IF SY-SUBRC = 0.
      L_KUNNR = XVBPA-KUNNR.
      ENDIF.
      IF SY-UZEIT+0(2) >= 15.
        E_RDD = SY-DATUM + 2.
        ELSE.
          E_RDD = SY-DATUM + 1.
          ENDIF.
          IF E_RDD > VBAK-VDATU.
            OP_RDD = E_RDD.
            ELSE.
              OP_RDD = VBAK-VDATU.
         endif.
              CALL FUNCTION 'DATE_COMPUTE_DAY'
                EXPORTING
                  DATE          = OP_RDD
               IMPORTING
                DAY           = X.
      CALL FUNCTION 'ZROUTESCHEDULE'
        EXPORTING
         KUNNR         = L_KUNNR
        VSBED         =
          VSTEL         = VBAP-VSTEL
          ROUTE         = VBAP-ROUTE
       IMPORTING
         ZRETURN       = IT_RETURN.
    READ TABLE IT_RETURN INTO WA_RETURN INDEX 1 .
            IF       WA_RETURN-MONDAY    = 'X'.
                     wa_days-num = '1'.
             append  wa_days to it_days.
            ENDIF.
           IF        WA_RETURN-TUESDAY   = 'X'.
                     wa_days-num = '2'.
            append   wa_days to it_days.
           ENDIF.
           IF        WA_RETURN-WEDNESDAY = 'X'.
                     wa_days-num = '3'.
            append   wa_days to it_days.
         ENDIF.
           IF        WA_RETURN-THURSDAY  = 'X'.
                     wa_days-num = '4'.
           append    wa_days to it_days.
             ENDIF.
            IF       WA_RETURN-FRIDAY    = 'X'.
                     wa_days-num = '5'.
            append  wa_days to it_days.
             ENDIF.
           IF     WA_RETURN-SATURDAY  = 'X'.
                  wa_days-num = '6'.
         append  wa_days to it_days.
         ENDIF.
           IF    WA_RETURN-SUNDAY    = 'X'.
                 wa_days-num = '7'.
         append  wa_days to it_days.
            ENDIF.
    SORT IT_DAYS BY NUM.
    CLEAR WA_DAYS.
    IF NOT IT_DAYS[] IS INITIAL.    "#1 CHECKING
    READ TABLE IT_DAYS INTO WA_DAYS WITH KEY NUM = X.
    IF SY-SUBRC <> 0.
    IF NOT IT_DAYS[] IS INITIAL.
    LOOP AT IT_DAYS INTO WA_DAYS.
    IF WA_DAYS-NUM GT X.
      Z  = ( WA_DAYS-NUM ) - X.
      UP_DATE  = OP_RDD + Z.
      EXIT.
    ENDIF.
    ENDLOOP.
    ENDIF.
    SORT IT_DAYS BY NUM DESCENDING.
    IF UP_DATE IS INITIAL.
      IF NOT IT_DAYS IS INITIAL.
      READ TABLE IT_DAYS INTO WA_DAYS INDEX 1.
      Y = X - WA_DAYS-NUM.
      UP_DATE = OP_RDD + 7 - Y.
    ENDIF.
        ENDIF.
       VBAK-VDATU  = UP_DATE.
    ENDIF.
    CLEAR: X,UP_DATE,Y.
    ENDIF.   "#1 CHECKING
    ENDIF.    "1 YVBAK
    ENDIF.

Maybe you are looking for

  • How to backup an image of internal hard drive on external hard drive with disk utility

    I've followed the instructions under the paragraphph 'Instructions for backing up to an external hard disk via Disk Utility in this article: http://support.apple.com/kb/ht1553. My external hard drive is plugged in. I mount my install DVD of Leopard a

  • IPQos in solaris 11

    hi dear i find a problem in os1111(oracle solaris 11 /11) front of solaris 10 we have IPQos command in solaris 10 but its not already in solaris 11 can you help me for find this . baut i think dladm decries instead of IPQos although i don t know .

  • Invoke-IpamGpoProvisioning : Failed to import GPO. The system cannot find the file specified. (Exception from HRESULT: 0x80070002)

    Hello Im trying to configure IPAM but im getting this error. PS C:\Users\Administrator.IPADE.MX> Invoke-IpamGpoProvisioning –Domain actdir.ipade.mx –GpoPrefixName IPAM –IpamServerFq dn minte.actdir.ipade.mx –DelegatedGpoUser Administrator -DomainCont

  • Rereplicating of deleted vendors in SRM 4.0

    Hi All, Due to some reasons, we have deleted all vendors. We have deleted vendors from, 1. Vendor Root 2. From tables Venmap & BUT000 3. Also by using report BUPA_TEST_DELETE. Now when we tried to re-replicate them again by using BBPGETVD, we are get

  • IPad 1 won't Update to 5.1--3194

    I am trying to convince my neighbor of just how special the iPad is. He is not exactly a techie (-:  He couldn't send outgoing e-mail, but that was a simple problem of lack of outgoing mail server password. As I tried to update his 18 apps needing up