Urgent: sales report

Question

Hi All,
I want to devlop a sales report,
please can any one explain me how to write select and go ahead
the requiremnet is like this
Based on selection criteria
Sales organisation (VBRK-VKORG),
Distribution channel (VBRK-VTWEG),
Division (VBRK_SPART),
Billing date(VBRK-ERDAT),
Customer (VBRK-KUNAG),
plant (VBRP-WERKS), and
Material Group1(VBRP-MVGR1).
Check if VBRK-FKSTO # X, VBRK-RFBSK = C, VBRK-FKART #S1 and S2, take all VBRK-VBELNs (Print in Invoice number ).
VBRK-ERDAT(Print in Invoice Date).
Pass VBRK-VBELN to VBRP-VBELN and check for every VBRP-MVGR1 pass VBRP-POSNR to KONV-KPOSN and
For KONV-KSCHL =’ZPTS” sum all KONV-KWERT and display(PTS value).
For KONV-KSCHL =”YNRV” sum all KONV-KWERT and display(NRV Value).
thanks in advacne
points will be rewarded if it is use full
jay

Answer 1

Hi,
Refer this code.
REPORT  z_daily_sales
        NO STANDARD PAGE HEADING
        MESSAGE-ID sabapdocu.
                      TABLES                                         *
TABLES : vbak,                              "Sales Document: Header Data
         tfacs,                             "Factory calendar (display)
         vbrk,                              "Billing: Header Data
         vbrp,                              "Billing: Item Data
         vbpa,                              "Sales Document: Partner
         lips,                              "SD doc: Delivery: Item data
         mkpf,                              "Header: Material Document
         mseg,                              "Document Segment: Material
         konv.                              "Conditions (Trans Data)
                      CONSTANTS                                      *
CONSTANTS : c_top_of_page(15) TYPE c VALUE 'SUB_TOP_OF_PAGE'.
                      TYPE-POOL                                      *
TYPE-POOLS : slis. "Global types for generic cunning building blocks
                      VARIABLES                                      *
DATA : v_repid    TYPE sy-repid,             "Report ID
       v_month(2) TYPE c,                    "Variable for Month
       v_year(4)  TYPE c,                    "Variable for year
       v_days(31) TYPE c,                    "Variable for days
       v_ship(10) TYPE c VALUE 0,            "Variable for total days
       v_jan(31)  TYPE c,                    "Variable for month
       v_count(2) TYPE c VALUE 0,            "Variable for count
       v_wdays(2) TYPE c VALUE 0,            "Variable for working days
       v_ndays(2) TYPE c VALUE 0,            "Variable for non work days
       v_tdays(2) TYPE c VALUE 0,            "Variable for total days
       v_oltot    TYPE i VALUE 0,            "Variable for order total
       v_sotot    TYPE i VALUE 0,            "Variable for special order
       v_corebus  TYPE kzwi2 VALUE 0,        "Variable for core bus
       v_onbulk   TYPE kzwi2 VALUE 0,        "Variable for bulk orders
       v_premier  TYPE kzwi2 VALUE 0,        "Variable for premier prog
       v_shipit   TYPE kzwi2 VALUE 0,        "Variable for ship it prog
       v_onpromo  TYPE kzwi2 VALUE 0,        "Variable for on promo
       v_netrev   TYPE kzwi2 VALUE 0,        "Variable for net rev
       v_storev   TYPE kzwi2 VALUE 0,        "Variable for store rev
       v_connet   TYPE kzwi2 VALUE 0,        "Variable for consignment
       v_sporder  TYPE kzwi2 VALUE 0,        "Variable for special order
       v_stdvd    TYPE kzwi2 VALUE 0,        "Variable for dvd
       v_totrev   TYPE kzwi2 VALUE 0,        "Variable for total rev
       v_totbud   TYPE kzwi2 VALUE 0,        "Variable for total budget
       v_ordsize  TYPE kzwi2 VALUE 0.        "Variable for order size
                      TYPES                                          *
*--Structure for VBRP Table
TYPES : BEGIN OF t_vbrp,
        vbeln  TYPE vbeln,                  "Billing document
        fkdat  TYPE fkdat,                  "Billing date
        fktyp  TYPE fktyp,                  "Billing category
        fkart  TYPE fkart,                  "Billing type
        vtweg  TYPE vtweg,                  "Distribution channel
        knumv  TYPE knumv,                  "Number of doc condition
        posnr  TYPE posnr,                  "Billing item
        matnr  TYPE matnr,                  "Material Number
        werks  TYPE werks_d,                "Plant
        vgbel  TYPE xblnr,                  "Referance
        vgbel1 TYPE vgbel,                  "Doc no reference document
        kzwi2  TYPE kzwi2,                  "Subtotal 2
        wavwr  TYPE wavwr,                  "Cost in document currency
        kunnr  TYPE kunnr,                  "Customer
        END OF t_vbrp,
*--Structure for MKPF Table
        BEGIN OF t_mkpf,
        fkdat TYPE fkdat,                   "Billing date
        mblnr TYPE mblnr,                   "Number of material document
        mjahr TYPE mjahr,                   "Material doc. year
        xblnr TYPE xblnr,                   "Referance
        kunnr  TYPE kunnr,                  "Customer
        END OF t_mkpf,
*--Structure for MSEG Table
        BEGIN OF t_mseg,
        fkdat TYPE fkdat,                   "Billing date
        mblnr TYPE mblnr,                   "Number of material document
        mjahr TYPE mjahr,                   "Material doc. year
        bwart TYPE bwart,                   "Movement type
        sobkz TYPE sobkz,                   "Special Stock indicator
        dmbtr TYPE dmbtr,                   "Amount in local currency
        kunnr TYPE kunnr,                   "Customer
        matnr TYPE matnr,                   "Material Number
        werks TYPE werks_d,                 "Plant
        END OF t_mseg,
*--Structure for LIPS Table
        BEGIN OF t_lips,
        vbeln TYPE vbeln_vl,                "Delivery
        fkdat TYPE fkdat,                   "Billing date
        knumv TYPE knumv,                   "Number of doc condition
        matnr TYPE matnr,                   "Material Number
        werks TYPE werks_d,                 "Plant
        bwart TYPE bwart,                   "Movement type
        kzwi2 TYPE kzwi2,                   "Subtotal 2
        lfimg TYPE lfimg,                   "Quantity
        END OF t_lips,
*--Structure for VBAK Table
        BEGIN OF t_vbak,
        erdat TYPE erdat,                   "Created On
        vbeln TYPE vbeln_va,                "Delivery
        auart TYPE auart,                   "Sales document type
        vtweg TYPE vtweg,                   "Distribution channel
        knumv TYPE knumv,                   "Number of doc condition
        END OF t_vbak,
*--Structure for KONV Table
        BEGIN OF t_konv,
        knumv TYPE knumv,                   "Number of doc condition
        kschl TYPE kscha,                   "Condition type
        kbetr TYPE kbetr,                   "Rate
        END OF t_konv,
*--Structure for DUMMY Table
        BEGIN OF t_dummy,
        fkdat TYPE fkdat,                   "Billing date
        matnr TYPE matnr,                   "Material Number
        bwart TYPE bwart,                   "Movement type
        kbetr TYPE kzwi2,                   "Net value of billing item
        END OF t_dummy,
*--Structure for NDAY table
        BEGIN OF t_nday,
        erdat   TYPE erdat,                 "Created On
        flag(1) TYPE c,                     "Flag
        END OF t_nday,
*--Structure for TFACS Table
        BEGIN OF t_tfacs,
        ident TYPE wfcid,                   "Factory calendar ID
        jahr  TYPE kjahr,                   "Fiscal Year
        mon01 TYPE mon00,                   "Calendar: Days in a month
        mon02 TYPE mon00,                   "Calendar: Days in a month
        mon03 TYPE mon00,                   "Calendar: Days in a month
        mon04 TYPE mon00,                   "Calendar: Days in a month
        mon05 TYPE mon00,                   "Calendar: Days in a month
        mon06 TYPE mon00,                   "Calendar: Days in a month
        mon07 TYPE mon00,                   "Calendar: Days in a month
        mon08 TYPE mon00,                   "Calendar: Days in a month
        mon09 TYPE mon00,                   "Calendar: Days in a month
        mon10 TYPE mon00,                   "Calendar: Days in a month
        mon11 TYPE mon00,                   "Calendar: Days in a month
        mon12 TYPE mon00,                   "Calendar: Days in a month
        END OF t_tfacs,
*--Structure for shipping days table.
        BEGIN OF t_ship,
        title(35) TYPE c,                   "Title
        days(10)  TYPE c,                   "Days
        END OF t_ship,
*--Structure for Final Table
        BEGIN OF t_final,
        erdat   TYPE erdat,                 "Date
        oltot   TYPE i,                     "Online Order total
        sotot   TYPE i,                     "Special Order Total
        corebus TYPE kzwi2,                 "ECS Online Promo Rev
        onbulk  TYPE kzwi2,                 "ECS online Bulk Orders
        premier TYPE kzwi2,                 "MSFT Premier Program
        shipit  TYPE kzwi2,                 "MSFT online shipit program
        onpromo TYPE kzwi2,                 "MSFT online promo rev
        netrev  TYPE kzwi2,                 "MSFT/Xbox Consignment
        storev  TYPE kzwi2,                 "MSFT Retail Store promo rev
        connet  TYPE kzwi2,                 "MSFT Retail Consign net rev
        sporder TYPE kzwi2,                 "Special order revenue
        stdvd   TYPE kzwi2,                 "Traveling Store/DVD
        totrev  TYPE kzwi2,                 "Total ECS Revenue
        totbud  TYPE kzwi2,                 "Total ECS Budget
        ordsize TYPE kzwi2,                 "Avg online order size
        END OF t_final,
*--Structure for Total Table
        BEGIN OF t_total,
        title(10) TYPE c,                   "Date
        oltot     TYPE i,                   "Online Order total
        sotot     TYPE i,                   "Special Order Total
        corebus   TYPE kzwi2,               "ECS Online Promo Rev
        onbulk    TYPE kzwi2,               "ECS online Bulk Orders
        premier   TYPE kzwi2,               "MSFT Premier Program
        shipit    TYPE kzwi2,               "MSFT online shipit program
        onpromo   TYPE kzwi2,               "MSFT online promo rev
        netrev    TYPE kzwi2,               "MSFT/Xbox Consignment
        storev    TYPE kzwi2,               "MSFT Retail Store promo rev
        connet    TYPE kzwi2,               "MSFT Retail Consign net rev
        sporder   TYPE kzwi2,               "Special order revenue
        stdvd     TYPE kzwi2,               "Traveling Store/DVD
        totrev    TYPE kzwi2,               "Total ECS Revenue
        totbud    TYPE kzwi2,               "Total ECS Budget
        ordsize   TYPE kzwi2,               "Avg online order size
        END OF t_total,
*--Structure for MKPF Table
        BEGIN OF t_jkmkpf,
        budat TYPE budat,                   "Posting date
        mblnr TYPE mblnr,                   "Number of material document
        mjahr TYPE mjahr,                   "Material doc. year
        END OF t_jkmkpf,
*--Structure for MSEG Table
        BEGIN OF t_jkmseg,
        fkdat TYPE fkdat,                   "Billing date
        matnr TYPE matnr,                   "Material Number
        mblnr TYPE mblnr,                   "Number of material document
        mjahr TYPE mjahr,                   "Material doc. year
        bwart TYPE bwart,                   "Movement type
        menge TYPE menge_d,                 "Quantity
        kbetr TYPE kbetr_kond,              "Rate
        dmbtr TYPE dmbtr,                   "Amount in local currency
        END OF t_jkmseg,
*--Structure for A006 Table
        BEGIN OF t_a006,
        fkdat TYPE fkdat,                   "Billing date
        matnr TYPE matnr,                   "Material Number
        kappl TYPE kappl,                   "Application
        kschl TYPE kschl,                   "Condition type
        vkorg TYPE vkorg,                   "Sales organization
        vtweg TYPE vtweg,                   "Distribution channel
        datbi TYPE kodatbi,                 "Validity end date
        datab TYPE kodatab,                 "Validity start date
        knumh TYPE knumh,                   "Condition record number
        END OF t_a006,
*--Structure for KONP Table
        BEGIN OF t_konp,
        fkdat TYPE fkdat,                   "Billing date
        matnr TYPE matnr,                   "Material Number
        knumh TYPE knumh,                   "Condition record number
        kappl TYPE kappl,                   "Application
        kschl TYPE kschl,                   "Condition type
        kbetr TYPE kbetr_kond,              "Rate
        END OF t_konp.
                      WORK AREAS                                     *
DATA : wa_vbrp   TYPE t_vbrp,          "Work area for VBRP Table
       wa_mkpf   TYPE t_mkpf,          "Work area for MKPF Table
       wa_mseg   TYPE t_mseg,          "Work area for MSEG Table
       wa_jkmkpf TYPE t_jkmkpf,        "Work area for MKPF Table
       wa_jkmseg TYPE t_jkmseg,        "Work area for MSEG Table
       wa_kjmseg TYPE t_jkmseg,        "Work area for MSEG Table
       wa_lips   TYPE t_lips,          "Work area for LIPS Table
       wa_vbak   TYPE t_vbak,          "Work area for VBAK Table
       wa_konv   TYPE t_konv,          "Work area for KONV Table
       wa_dummy  TYPE t_dummy,         "Work area for DUMMY Table
       wa_tfacs  TYPE t_tfacs,         "Work area for TFACS Table
       wa_final  TYPE t_final,         "Work area for Final Table
       wa_total  TYPE t_total,         "Work area for Total Table
       wa_ship   TYPE t_ship,          "Work area for Ship Table
       wa_a006   TYPE t_a006,
       wa_konp   TYPE t_konp,          "Work area for KONP Table
       wa_nday   TYPE t_nday,
       wa_fieldcat TYPE slis_fieldcat_alv,"Work area for fieldcatalog
       wa_layout1 TYPE slis_layout_alv,
       wa_layout2 TYPE slis_layout_alv,
       wa_layout3 TYPE slis_layout_alv.
                      INTERNAL TABLES                                *
DATA : it_vbrp   TYPE STANDARD TABLE OF t_vbrp   INITIAL SIZE 0,
       it_mkpf   TYPE STANDARD TABLE OF t_mkpf   INITIAL SIZE 0,
       it_mseg   TYPE STANDARD TABLE OF t_mseg   INITIAL SIZE 0,
       it_jkmkpf TYPE STANDARD TABLE OF t_jkmkpf INITIAL SIZE 0,
       it_jkmseg TYPE STANDARD TABLE OF t_jkmseg INITIAL SIZE 0,
       it_kjmseg TYPE STANDARD TABLE OF t_jkmseg INITIAL SIZE 0,
       it_lips   TYPE STANDARD TABLE OF t_lips   INITIAL SIZE 0,
       it_vbak   TYPE STANDARD TABLE OF t_vbak   INITIAL SIZE 0,
       it_konv   TYPE STANDARD TABLE OF t_konv   INITIAL SIZE 0,
       it_dummy  TYPE STANDARD TABLE OF t_dummy  INITIAL SIZE 0,
       it_tfacs  TYPE STANDARD TABLE OF t_tfacs  INITIAL SIZE 0,
       it_final  TYPE STANDARD TABLE OF t_final  INITIAL SIZE 0,
       it_total  TYPE STANDARD TABLE OF t_total  INITIAL SIZE 0,
       it_ship   TYPE STANDARD TABLE OF t_ship   INITIAL SIZE 0,
       it_nday   TYPE STANDARD TABLE OF t_nday   INITIAL SIZE 0,
       it_a006   TYPE STANDARD TABLE OF t_a006   INITIAL SIZE 0,
       it_konp   TYPE STANDARD TABLE OF t_konp   INITIAL SIZE 0,
       it_fieldcat  TYPE slis_t_fieldcat_alv WITH HEADER LINE,
       it_fieldcat2 TYPE slis_t_fieldcat_alv WITH HEADER LINE,
       it_events TYPE slis_t_event,
       it_event1 TYPE slis_t_event,
       it_event2 TYPE slis_t_event,
       it_header TYPE slis_t_listheader.
                  PARAMETERS &  SELECT-OPTIONS                       *
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_erdat FOR vbak-erdat NO-DISPLAY. "Created On
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(10) text-003.
PARAMETERS : p_month(7) TYPE c OBLIGATORY.  "Month
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(40) text-030.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(10) text-004.
PARAMETERS : p_bud(16) TYPE c OBLIGATORY.   "Budget
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK blk1.
                  AT SELECTION SCREEN                                *
AT SELECTION-SCREEN ON p_month.
*--Create the date range
  PERFORM sub_create_date.
                  START-OF-SELECTION                                 *
START-OF-SELECTION.
*--Select data from TFACS Table
  PERFORM sub_read_tfacs.
*--Select Data from VBAK Table
  PERFORM sub_read_vbak.
*--Select Data from VBRP Table
  PERFORM sub_read_vbrp.
*--Select Data from MKPF Table
  PERFORM sub_read_mkpf.
*--Select Data from MSEG Table
  PERFORM sub_read_mseg.
*--Select Data from LIPS Table
  PERFORM sub_read_lips.
*--Select Data from KONV Table
  PERFORM sub_read_konv.
*--Collect all the data into final inetrnal table
  PERFORM sub_collect_data.
*--Collect all the data into final inetrnal table
  PERFORM sub_collect_vbrp.
*--Collect all the data into final inetrnal table
  PERFORM sub_collect_lips.
*--Collect MSFT retail store promo rev & MSFT retail
store consignment net rev
  PERFORM sub_jk_column.
*--Collect consignment cost
  PERFORM sub_collect_consign.
*--Calculate Plug Numbers
  PERFORM sub_claculate_plug.
*--Collect data from vbrp
  PERFORM sub_collect_cost.
*--Calculate the total & avarages
  PERFORM sub_calculate_total.
*--Collect totals & avarages into final internal table
  PERFORM sub_collect_total.
                  END-OF-SELECTION                                   *
END-OF-SELECTION.
*--This perform creates the ALV events
  PERFORM sub_create_events.
*--This perform prepare field catalog.
  PERFORM sub_field_catalogmerge.
*--This perform displays an ALV report
  PERFORM sub_alv_display.
*&      Form  sub_read_vbrp
      text
FORM sub_read_vbrp .
*--Local Variables
  DATA : lv_index LIKE sy-tabix.
*--Select query to pick the Billing document Billing date Billing
category Billing type Distribution channel Number of doc condition
Billing item Material Number Plant Referance Subtotal 2 Cost in
document currency and Partner function from table VBRK VBRP and VBPA
using inner join
  SELECT a~vbeln                            "Billing document
         a~fkdat                            "Billing date
         a~fktyp                            "Billing category
         a~fkart                            "Billing type
         a~vtweg                            "Distribution channel
         a~knumv                            "Number of doc condition
         b~posnr                            "Billing item
         b~matnr                            "Material Number
         b~werks                            "Plant
         b~vgbel                            "Referance
         b~kzwi2                            "Subtotal 2
         b~wavwr                            "Cost in document currency
         c~kunnr                            "Partner function
         FROM vbrk AS a
         INNER JOIN vbrp AS b
         ON avbeln EQ bvbeln
         INNER JOIN vbpa AS c
         ON  bvbeln EQ cvbeln
         INTO CORRESPONDING FIELDS OF TABLE it_vbrp
         WHERE fkdat IN s_erdat
         AND   parvw EQ 'ZS'.
  IF sy-subrc EQ 0.
*--Sort table by Referance
    SORT it_vbrp BY vgbel1.
  ENDIF.
  LOOP AT it_vbrp INTO wa_vbrp.
    lv_index = sy-tabix.
    wa_vbrp-vgbel1 = wa_vbrp-vgbel.
    MODIFY it_vbrp FROM wa_vbrp INDEX lv_index TRANSPORTING
                                      vgbel1.
*--Clear
    CLEAR : wa_vbrp.
  ENDLOOP.
ENDFORM.                    " sub_read_vbrp
*&      Form  sub_read_mkpf
      text
FORM sub_read_mkpf .
*--Local Variables
  DATA : lv_index LIKE sy-tabix.
  IF NOT it_vbrp[] IS INITIAL.
*--Select query to pick the Number of material document Material
document year and Referance from table MKPF
    SELECT DISTINCT
           mblnr                            "Number of material document
           mjahr                            "Material doc. year
           xblnr                            "Referance
           FROM mkpf
           INTO CORRESPONDING FIELDS OF TABLE it_mkpf
           FOR ALL ENTRIES IN it_vbrp
           WHERE xblnr EQ it_vbrp-vgbel.
  ENDIF.
*--Sort table by No of material document and fiscal year
  SORT it_mkpf BY mblnr mjahr.
  IF sy-subrc EQ 0.
    DELETE ADJACENT DUPLICATES FROM it_mkpf COMPARING mblnr mjahr.
  ENDIF.
*--Sort table by referance document
  SORT it_vbrp BY vgbel.
  SORT it_mkpf BY xblnr.
  IF NOT it_mkpf[] IS INITIAL.
    LOOP AT it_mkpf INTO wa_mkpf.
      lv_index = sy-tabix.
*--Clear
      CLEAR : wa_vbrp.
      READ TABLE it_vbrp INTO wa_vbrp WITH KEY vgbel = wa_mkpf-xblnr
                                               BINARY SEARCH.
      IF sy-subrc EQ 0.
        wa_mkpf-fkdat = wa_vbrp-fkdat.
        wa_mkpf-kunnr = wa_vbrp-kunnr.
      ENDIF.
      MODIFY it_mkpf FROM wa_mkpf INDEX lv_index TRANSPORTING
                                        fkdat kunnr.
*--Clear
      CLEAR : wa_mkpf.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " sub_read_mkpf
*&      Form  sub_read_mseg
      text
FORM sub_read_mseg .
*--Local Variables
  DATA : lv_index LIKE sy-tabix.
  IF NOT it_mkpf[] IS INITIAL.
*--Select query to pick the Number of material document Material
document year Movement type Special Stock indicator and Amount in
local currency from table MSEG
    SELECT mblnr                            "Number of material document
           mjahr                            "Material doc. year
           bwart                            "Movement type
           sobkz                            "Special Stock indicator
           dmbtr                            "Amount in local currency
           matnr                            "Material
           werks                            "Plant
           FROM mseg
           INTO CORRESPONDING FIELDS OF TABLE it_mseg
           FOR ALL ENTRIES IN it_mkpf
           WHERE mblnr EQ it_mkpf-mblnr
           AND   mjahr EQ it_mkpf-mjahr.
          AND   bwart EQ '601'.
          AND   sobkz EQ 'K'.
  ENDIF.
*--Sort table by Number of material document
  SORT it_mkpf BY mblnr.
*--Sort table by Number of material document
  SORT it_mseg BY mblnr.
  IF NOT it_mseg[] IS INITIAL.
    LOOP AT it_mseg INTO wa_mseg.
      lv_index = sy-tabix.
*--Clear
      CLEAR : wa_mkpf.
      READ TABLE it_mkpf INTO wa_mkpf WITH KEY mblnr = wa_mseg-mblnr
                                               BINARY SEARCH.
      IF sy-subrc EQ 0.
        wa_mseg-fkdat = wa_mkpf-fkdat.
        wa_mseg-kunnr = wa_mkpf-kunnr.
      ENDIF.
      MODIFY it_mseg FROM wa_mseg INDEX lv_index TRANSPORTING
                                        fkdat kunnr.
*--Clear
      CLEAR: wa_mseg.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " sub_read_mseg
*&      Form  sub_read_lips
      text
FORM sub_read_lips .
*--Local Variables
  DATA : lv_index LIKE sy-tabix.
  IF NOT it_vbrp[] IS INITIAL.
*--Select query to pick the Delivery Material Number Plant
Movement type Subtotal 2 and Quantity from table LIPS
    SELECT vbeln                            "Delivery
           matnr                            "Material Number
           werks                            "Plant
           bwart                            "Movement type
           kzwi2                            "Subtotal 2
           lfimg                            "Quantity
           FROM lips
           INTO CORRESPONDING FIELDS OF TABLE it_lips
           FOR ALL ENTRIES IN it_vbrp
           WHERE vbeln EQ it_vbrp-vgbel1.
    IF sy-subrc EQ 0.
*--Sort table by Delivery
      SORT it_lips BY vbeln.
    ENDIF.
  ENDIF.
*--Sort table
  SORT it_vbrp BY vgbel1.
  LOOP AT it_lips INTO wa_lips.
    lv_index = sy-tabix.
*--CLear
    CLEAR : wa_vbrp.
    READ TABLE it_vbrp INTO wa_vbrp WITH KEY vgbel1 = wa_lips-vbeln
                                             BINARY SEARCH.
    IF sy-subrc EQ 0.
      wa_lips-fkdat = wa_vbrp-fkdat.
      wa_lips-knumv = wa_vbrp-knumv.
    ENDIF.
    MODIFY it_lips FROM wa_lips INDEX lv_index TRANSPORTING
                                fkdat knumv.
*--Clear
    CLEAR : wa_lips.
  ENDLOOP.
ENDFORM.                    " sub_read_lips
*&      Form  sub_read_konv
      text
FORM sub_read_konv .
  IF NOT it_vbrp[] IS INITIAL.
*--Select query to pick the Number of doc condition Condition type
and Rate from table KONV
    SELECT knumv                            "Number of doc condition
           kschl                            "Condition type
           kbetr                            "Rate
           FROM konv
           INTO TABLE it_konv
           FOR ALL ENTRIES IN it_vbrp
           WHERE knumv EQ it_vbrp-knumv
           AND   kschl EQ 'ZR00'.
  ENDIF.
ENDFORM.                    " sub_read_konv
*&      Form  sub_read_vbak
      text
FORM sub_read_vbak .
*--Select query to pick the Created On Delivery Sales document type
Distribution channel and Number of doc condition from table VBAK
  SELECT erdat                              "Created On
         vbeln                              "Delivery
         auart                              "Sales document type
         vtweg                              "Distribution channel
         knumv                              "Number of doc condition
         FROM vbak
         INTO TABLE it_vbak
         WHERE erdat IN s_erdat.
  IF sy-subrc EQ 0.
*--Sort table by created on
    SORT it_vbak BY erdat.
  ENDIF.
ENDFORM.                    " sub_read_vbak
Regards,
prashant