From which tables i would find the delivery and billing document field..??

Question

I need to create an ALV report which displays the following details in the output.
Order No  Item No     Material     Order Qty     Item Category     Plant     Delivery     Billing Document     Sales Org     Dist Channel     Division     Created By     Created On      Changed On
For(Order No  Item No     Material     Order Qty     Item Category     Plant) i took the fields from vbap and
for(Sales Org     Dist Channel     Division     Created By     Created On      Changed On)i took the fields from vbak..
From which tables i would find the delivery and billing document field related to sales document.??
need help...
Moderator message : Requirements dumping not allowed, thread locked.
Edited by: Vinod Kumar on Mar 6, 2012 2:53 PM

Answer 1

i am new to abap...so i dont have idea about sd table relationship.
so please reply how to add delivery and billing doc in my coding below..
*& Report  ZINAA_SD
REPORT  zinaa_sd.
TABLES: vbap, vbak, vbfa.
TYPE-POOLS: slis.
CONSTANTS: c_x TYPE char1 VALUE 'X'.
TYPES:
        BEGIN OF st_vbap,
         vbeln TYPE vbap-vbeln,
         posnr TYPE vbap-posnr,
         matnr TYPE vbap-matnr,
         pstyv TYPE vbap-pstyv,
         kwmeng TYPE vbap-kwmeng,
         werks TYPE vbap-werks,
        END OF st_vbap,
        BEGIN OF st_vbak,
          vbeln TYPE vbak-vbeln,
          erdat TYPE vbak-erdat,
          ernam TYPE vbak-ernam,
          vkorg TYPE vbak-vkorg,
          vtweg TYPE vbak-vtweg,
          spart TYPE vbak-spart,
          aedat TYPE vbak-aedat,
        END OF st_vbak, 
       BEGIN OF st_final,
         vbeln TYPE vbap-vbeln,
         posnr TYPE vbap-posnr,
         matnr TYPE vbap-matnr,
         pstyv TYPE vbap-pstyv,
         kwmeng TYPE vbap-kwmeng,
         werks TYPE vbap-werks,
         erdat TYPE vbak-erdat,
         ernam TYPE vbak-ernam,
         vkorg TYPE vbak-vkorg,
         vtweg TYPE vbak-vtweg,
         spart TYPE vbak-spart,
         aedat TYPE vbak-aedat,
       END OF st_final.
DATA:
      lt_vbap TYPE TABLE OF st_vbap,
      ls_vbap TYPE st_vbap,
      lt_vbak TYPE TABLE OF st_vbak,
      ls_vbak TYPE st_vbak,
      lt_final TYPE TABLE OF st_final,
      ls_final TYPE st_final,
      lt_fieldcat TYPE slis_t_fieldcat_alv,
      ls_fieldcat TYPE slis_fieldcat_alv,
      layout TYPE slis_layout_alv,
      lt_sort TYPE slis_t_sortinfo_alv,
      ls_sort TYPE slis_sortinfo_alv.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_vbeln FOR vbap-vbeln,
                s_erdat FOR vbap-erdat.
SELECTION-SCREEN END OF BLOCK b1.
PERFORM select_data.
PERFORM loop_final.
PERFORM sort.
PERFORM a USING:
      'VBELN' TEXT-002,
      'POSNR' TEXT-003,
      'MATNR' TEXT-004,
      'KWMENG' TEXT-005,
      'PSTYV' TEXT-006,
      'WERKS' TEXT-007,
      'VKORG' TEXT-008,
      'VTWEG' TEXT-009,
      'SPART' TEXT-010,
      'ERNAM' TEXT-011,
      'ERDAT' TEXT-012,
      'AEDAT' TEXT-013.
PERFORM display.
*&      Form  SELECT_DATA
      text
FORM select_data.
  SELECT
   vbeln
   vkorg
   vtweg
   spart
   ernam
   erdat
   aedat
   INTO CORRESPONDING FIELDS OF TABLE lt_vbak
   FROM vbak
   WHERE vbeln IN s_vbeln AND erdat IN s_erdat.
  IF sy-subrc = 0.
    SORT lt_vbak by vbeln.
  ENDIF.
  SELECT
   vbeln
   posnr
   matnr
   kwmeng
   pstyv
   werks
   INTO CORRESPONDING FIELDS OF TABLE lt_vbap
   FROM vbap
   FOR ALL ENTRIES IN lt_vbak
   WHERE vbeln = lt_vbak-vbeln.
  IF sy-subrc = 0.
    SORT lt_vbap by vbeln.
  ENDIF.
ENDFORM.                    "SELECT_DATA
*&      Form  LOOP_FINAL
      text
FORM loop_final.
  LOOP AT lt_vbap INTO ls_vbap.
    ls_final-vbeln = ls_vbap-vbeln.
    ls_final-posnr = ls_vbap-posnr.
    ls_final-matnr = ls_vbap-matnr.
    ls_final-kwmeng = ls_vbap-kwmeng.
    ls_final-pstyv = ls_vbap-pstyv.
    ls_final-werks = ls_vbap-werks.
    READ TABLE lt_vbak INTO ls_vbak WITH KEY vbeln = ls_vbap-vbeln BINARY SEARCH.
    ls_final-vkorg = ls_vbak-vkorg.
    ls_final-vtweg = ls_vbak-vtweg.
    ls_final-spart = ls_vbak-spart.
    ls_final-ernam = ls_vbak-ernam.
    ls_final-erdat = ls_vbak-erdat.
    ls_final-aedat = ls_vbak-aedat.
    APPEND ls_final TO lt_final.
    CLEAR ls_final.
  ENDLOOP.
  ENDFORM.                    "LOOP_FINAL
*&      Form  SORT
      text
FORM sort.
  ls_sort-spos = '01' .
  ls_sort-fieldname = 'VBELN'.
  ls_sort-tabname = 'LT_FINAL'.
  ls_sort-up = c_x.
  ls_sort-subtot = c_x.
  APPEND ls_sort TO lt_sort .
ENDFORM.                    "SORT
*&      Form  A
      text
     -->FNAME      text
     -->SELTEXT    text
     -->EMPHA      text
FORM a USING fname TYPE string seltext TYPE string.
  IF fname = 'KWMENG'.
    ls_fieldcat-do_sum =  c_x.
  ENDIF.
  ls_fieldcat-fieldname = fname.
  ls_fieldcat-seltext_m = seltext.
  APPEND ls_fieldcat TO lt_fieldcat.
  CLEAR ls_fieldcat.
ENDFORM.                    "A
*&      Form  ALV
      text
FORM display.
  layout-zebra = c_x.
  layout-colwidth_optimize = c_x.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
  I_BUFFER_ACTIVE                   = ' '
   i_callback_program                = sy-repid
  I_CALLBACK_PF_STATUS_SET          = ' '
  I_CALLBACK_USER_COMMAND           = ' '
  I_CALLBACK_TOP_OF_PAGE            = ' '
  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                         = layout
    it_fieldcat                       = lt_fieldcat
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
    it_sort                           = lt_sort
  IT_FILTER                         =
  IS_SEL_HIDE                       =
  I_DEFAULT                         = C_X
  I_SAVE                            = ' '
  IS_VARIANT                        =
  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                          = lt_final
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.                    "ALV