Stock

Question

Hi all,
   I have created a report for displaying stock details. if i give the material nos and date it should fetch the opening stock closing stock for that particular date and also for the first day of the given date month.  for the first day if there is no opening or closing stock it is giving the previus material no opening and closing stock. i cudn't correct this problem. i have attached the coding behind.. please help me in this regards,
karthi..
REPORT  ZMONTHLY_STOCKREPORT.
TABLES : mara,mkpf,mseg,mbew.
type-pools : slis.
DATA: it_sort         TYPE slis_t_sortinfo_alv,
      it_fieldcat     TYPE slis_t_fieldcat_alv,
      it_commentary   TYPE slis_t_listheader,
      it_events       TYPE slis_t_event,
      it_events_f     TYPE slis_t_event.
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_layout TYPE slis_layout_alv.
DATA: fieldcatalog1 TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_layout1 TYPE slis_layout_alv.
*WORK AREA
DATA: wa_fieldcat LIKE LINE OF it_fieldcat,
      wa_events   LIKE LINE OF it_events,
      wa_layout   TYPE slis_layout_alv,
      wa_print    TYPE slis_print_alv,
      wa_commentary   TYPE slis_listheader.
data : it_mara type table of mara with header line.
data : it_mkpf type table of mkpf with header line.
data : it_mseg type table of mseg with header line.
data : it_mbew type table of mbew with header line.
data : it_mkpft type table of mkpf with header line.
data : it_msegt type table of mseg with header line.
data : it_mbewt type table of mbew with header line.
DATA   : wrk_receipts TYPE mseg-menge,
         wrk_issues   TYPE mseg-menge,
         wrk_ret      TYPE mseg-menge.
DATA   : wrk_receipts1 TYPE mseg-menge,
         wrk_issues1   TYPE mseg-menge,
         wrk_ret1     TYPE mseg-menge.
DATA   : wrk_index TYPE i.
DATA   : wrk_index1 TYPE i.
DATA   : wa_mseg LIKE LINE OF it_mseg.
DATA   : wa_msegt LIKE LINE OF it_msegt.
data : begin of ts_output occurs 0 ,
         matnr   likE mara-matnr,
         opstock likE mbew-lbkum,
         clstock likE mbew-lbkum,
         rcpts   likE mseg-menge,
         issue   likE mseg-menge,
         rets    likE mseg-menge,
         rcpts1   likE mseg-menge,
         issue1   likE mseg-menge,
         rets1   likE mseg-menge,
         verpr   likE mbew-verpr,
         opstock1 likE mbew-lbkum,
         clstock1 likE mbew-lbkum,
        END OF ts_output.
data w_date(8) type c.
data w_date1(8) type c.
*data : begin of itab_output occurs 0,
      matnr type mara-matnr,
      opstock1 TYPE mbew-lbkum,
      clstock1 TYPE mbew-lbkum,
       rcpts1   TYPE mseg-menge,
        issue1   TYPE mseg-menge,
        rets1   TYPE mseg-menge,
*end of itab_output.
DATA : begin of it_output occurs 0,
       matnr   TYPE mara-matnr,
         opstock likE mbew-lbkum,
         clstock likE mbew-lbkum,
         rcpts   likE mseg-menge,
         issue   likE mseg-menge,
         rets    likE mseg-menge,
         verpr   likE mbew-verpr,
    end of it_output.
DATA : begin of itab_output occurs 0,
       matnr   TYPE mara-matnr,
         opstock1 likE mbew-lbkum,
         clstock1 likE mbew-lbkum,
         issue1 like mseg-menge,
         rets1 like mseg-menge,
         rcpts1 like mseg-menge,
         end of itab_output.
*DATA : it_output TYPE TABLE OF ts_output.
*DATA : itab_output TYPE TABLE OF ts_output.
DATA : wa_output LIKE LINE OF it_output.
DATA : wa_output1 LIKE LINE OF itab_output.
DATA : wa_itab LIKE LINE OF ts_output.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: MATNO  FOR MARA-MATNR,
                p_dat     FOR sy-datum   OBLIGATORY  NO-EXTENSION NO INTERVALS.
SELECTION-SCREEN END OF BLOCK b1.
PERFORM data_retreival.
perform processdata.
PERFORM build_fieldcatalog.
PERFORM build_layout.
IF it_output[] IS NOT INITIAL.
  PERFORM display_alv_report.
ELSE.
  MESSAGE 'No data matches Selection' TYPE 'E'.
ENDIF.
*&      Form  build_fieldcatalog
      text
-->  p1        text
<--  p2        text
FORM build_fieldcatalog .
  fieldcatalog-fieldname   = 'MATNR'.
  fieldcatalog-seltext_m   = 'Material No'.
  fieldcatalog-col_pos     = 1.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'OPSTOCK'.
  fieldcatalog-seltext_m   = 'Opening Stock'.
  fieldcatalog-col_pos     = 2.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'CLSTOCK'.
  fieldcatalog-seltext_m   = 'Closing Stock'.
  fieldcatalog-col_pos     = 3.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'RCPTS'.
  fieldcatalog-seltext_m   = 'Receipts'.
  fieldcatalog-col_pos     =  4.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'ISSUE'.
  fieldcatalog-seltext_m   = 'Issue'.
  fieldcatalog-col_pos     = 5.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'RETS'.
  fieldcatalog-seltext_m   = 'Returns'.
  fieldcatalog-col_pos     =  6.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'VERPR'.
  fieldcatalog-seltext_m   = 'Moving Avg Price'.
  fieldcatalog-col_pos     =  7.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'OPSTOCK1'.
  fieldcatalog-seltext_m   = 'Op month for Month'.
  fieldcatalog-col_pos     =  8.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'clstock1'.
  fieldcatalog-seltext_m   = 'Cl stock for month'.
  fieldcatalog-col_pos     =  9.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
ENDFORM.                    " build_fieldcatalog
*&      Form  build_layout
      text
-->  p1        text
<--  p2        text
FORM build_layout .
  gd_layout-no_input  = 'X'.
  gd_layout-colwidth_optimize = 'X'.
  gd_layout-zebra = 'X'.
ENDFORM.                    " build_layout
*&      Form  display_alv_report
      text
-->  p1        text
<--  p2        text
FORM display_alv_report .
  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           = '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                         = gd_layout
     it_fieldcat                       = fieldcatalog[]
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
  IT_SORT                           =
  IT_FILTER                         =
  IS_SEL_HIDE                       =
     i_default                         = 'X'
     i_save                            = 'A'
  IS_VARIANT                        =
  it_events                         = v_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                          = ts_output
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.                    " display_alv_report
*&      Form  data_retreival
      text
-->  p1        text
<--  p2        text
FORM data_retreival .
  SELECT   *
           FROM  MARA
           INTO  TABLE it_MARA
           WHERE matNR   IN MATNO.
  IF it_mara[] IS NOT INITIAL.
    SELECT *
           FROM
           mbew
           INTO TABLE
           it_mbew
           FOR ALL ENTRIES IN it_mara
           WHERE matnr EQ it_mara-matnr.
  ENDIF.
IF sy-subrc = 0.
    LOOP AT it_mbew.
      wa_output-matnr   = it_mbew-matnr.
      wa_output-clstock = it_mbew-lbkum.                 " * 1000.
      wa_output-opstock = it_mbew-lbkum .               "  * 1000.
      wa_output-verpr   = it_mbew-verpr.
      APPEND wa_output TO it_output.
      CLEAR : it_mbew,
              wa_output.
    ENDLOOP.
  ENDIF.
SELECT *
         FROM
         mkpf
         INTO TABLE it_mkpf
         WHERE
         budat LE sy-datum
         AND
         budat GE p_dat-low.
       and bwart in ('101','102','122','123','201','202').
  IF sy-subrc EQ 0.
    SELECT *
           FROM
           mseg
           INTO TABLE it_mseg
           FOR ALL ENTRIES IN it_mkpf
           WHERE mblnr EQ it_mkpf-mblnr
           AND   bwart IN ('101','102','122','123','201','202').
    IF sy-subrc EQ 0.
      SORT it_mseg BY matnr.
      LOOP AT it_mseg.
        wrk_index = sy-tabix + 1.
        READ TABLE it_mseg INTO wa_mseg INDEX wrk_index.
        IF it_mseg-matnr EQ wa_mseg-matnr.
*Adding up the Receipts and subtracting reversal of receipts
          IF it_mseg-bwart EQ '101'.
            wrk_receipts = wrk_receipts + it_mseg-menge.
          ELSEIF it_mseg-bwart EQ '102'.
            wrk_receipts = wrk_receipts - it_mseg-menge.
          ENDIF.
*Adding up the Issues and subtracting the reversals
          IF it_mseg-bwart EQ '201'.
            wrk_issues = wrk_issues + it_mseg-menge.
          ELSEIF it_mseg-bwart EQ '202'.
            wrk_issues = wrk_issues - it_mseg-menge.
          ENDIF.
*Adding up the Returns and subtracting the reversals
          IF it_mseg-bwart EQ '122'.
            wrk_ret = wrk_ret + it_mseg-menge.
          ELSEIF it_mseg-bwart EQ '123'.
            wrk_ret = wrk_ret - it_mseg-menge.
          ENDIF.
        ELSE."when last record or no
*Adding up the Receipts and subtracting reversal of receipts
          IF it_mseg-bwart EQ '101'.
            wrk_receipts = wrk_receipts + it_mseg-menge.
          ELSEIF it_mseg-bwart EQ '102'.
            wrk_receipts = wrk_receipts - it_mseg-menge.
          ENDIF.
*Adding up the Issues and subtracting the reversals
          IF it_mseg-bwart EQ '201'.
            wrk_issues = wrk_issues + it_mseg-menge.
          ELSEIF it_mseg-bwart EQ '202'.
            wrk_issues = wrk_issues - it_mseg-menge.
          ENDIF.
*Adding up the Returns and subtracting the reversals
          IF it_mseg-bwart EQ '122'.
            wrk_ret = wrk_ret + it_mseg-menge.
          ELSEIF it_mseg-bwart EQ '123'.
            wrk_ret = wrk_ret - it_mseg-menge.
          ENDIF.
          READ TABLE it_output INTO wa_output WITH KEY matnr = it_mseg-matnr.
          IF sy-subrc EQ 0.
            wa_output-rcpts = wrk_receipts.
            wa_output-issue = wrk_issues.
            wa_output-rets  = wrk_ret.
            wa_output-opstock = wa_output-clstock + wa_output-issue + wa_output-rets -  wa_output-rcpts.
            modify it_output FROM wa_output INDEX sy-tabix TRANSPORTING rcpts issue rets opstock.
          ENDIF.
          CLEAR : wrk_receipts,
                  wrk_issues,
                  wrk_ret,
                  wrk_index.
        ENDIF.
        CLEAR : wa_output,
                it_mseg,
                wa_mseg.
      ENDLOOP.
    ENDIF.
  ENDIF.
w_date = p_dat+3(6).
concatenate  w_date '01' into w_date1 .
SELECT *
      FROM
      mkpf
      INTO TABLE it_mkpft
      WHERE
      budat le sy-datum and
      budat ge w_date1.
IF sy-subrc EQ 0.
    SELECT *
           FROM
           mseg
           INTO TABLE it_msegt
           FOR ALL ENTRIES IN it_mkpft
           WHERE mblnr EQ it_mkpft-mblnr
           AND   bwart IN ('101','102','122','123','201','202').
delete it_msegt where matnr not in matno.
IF sy-subrc EQ 0.
  select * from mbew into table it_mbewt for all entries in it_msegt where matnr eq it_msegt-matnr.
ENDIF.
  IF sy-subrc EQ 0.
    LOOP AT it_mbewt.
      wa_output1-matnr   = it_mbewt-matnr.
      wa_output1-clstock1 = it_mbewt-lbkum .
      wa_output1-opstock1 = it_mbewt-lbkum .
      append wa_output1 TO itab_output .
CLEAR : it_mbewt,
              wa_output1.
    ENDLOOP.
  ENDIF.
IF sy-subrc EQ 0.
      SORT it_msegt BY matnr.
delete it_msegt where matnr not in matno.
LOOP AT it_msegt.
        wrk_index1 = sy-tabix + 1.
        READ TABLE it_msegt INTO wa_msegt INDEX wrk_index1.
        IF it_msegt-matnr EQ wa_msegt-matnr.
*Adding up the Receipts and subtracting reversal of receipts
          IF it_msegt-bwart EQ '101'.
            wrk_receipts1 = wrk_receipts1 + it_msegt-menge.
          ELSEIF it_msegt-bwart EQ '102'.
            wrk_receipts1 = wrk_receipts1 - it_msegt-menge.
          ENDIF.
*Adding up the Issues and subtracting the reversals
          IF it_msegt-bwart EQ '201'.
            wrk_issues1 = wrk_issues1 + it_msegt-menge.
          ELSEIF it_msegt-bwart EQ '202'.
            wrk_issues1 = wrk_issues1 - it_msegt-menge.
          ENDIF.
*Adding up the Returns and subtracting the reversals
          IF it_msegt-bwart EQ '122'.
            wrk_ret1 = wrk_ret1 + it_msegt-menge.
          ELSEIF it_msegt-bwart EQ '123'.
            wrk_ret1 = wrk_ret1 - it_msegt-menge.
          ENDIF.
        ELSE."when last record or no
*Adding up the Receipts and subtracting reversal of receipts
          IF it_msegt-bwart EQ '101'.
            wrk_receipts1 = wrk_receipts1 + it_msegt-menge.
          ELSEIF it_msegt-bwart EQ '102'.
            wrk_receipts1 = wrk_receipts1 - it_msegt-menge.
          ENDIF.
*Adding up the Issues and subtracting the reversals
          IF it_msegt-bwart EQ '201'.
            wrk_issues1 = wrk_issues1 + it_msegt-menge.
          ELSEIF it_msegt-bwart EQ '202'.
            wrk_issues1 = wrk_issues1 - it_msegt-menge.
          ENDIF.
*Adding up the Returns and subtracting the reversals
          IF it_msegt-bwart EQ '122'.
            wrk_ret1 = wrk_ret1 + it_msegt-menge.
          ELSEIF it_msegt-bwart EQ '123'.
            wrk_ret1 = wrk_ret1 - it_msegt-menge.
          ENDIF.
          READ TABLE itab_output INTO wa_output1 WITH KEY matnr = it_msegt-matnr.    " changed mbewt instead of msegt
               IF sy-subrc EQ 0.
            wa_output1-rcpts1 = wrk_receipts1.
            wa_output1-issue1 = wrk_issues1.
            wa_output1-rets1  = wrk_ret1.
            wa_output1-opstock1 = wa_output1-clstock1 + wa_output1-issue1 + wa_output1-rets1 -  wa_output1-rcpts1.
          MODIFY itab_output FROM wa_output1 INDEX sy-tabix TRANSPORTING opstock1 issue1 rets1 rcpts1.
         ENDIF.
          CLEAR : wrk_receipts1,
                  wrk_issues1,
                  wrk_ret1,
                  wrk_index1.
        ENDIF.
        CLEAR : wa_output1,
                it_msegt,
                wa_msegt.
      ENDLOOP.
    ENDIF.
  ENDIF.
endform.
form processdata.
loop at it_output.
  clear ts_output.
  wa_itab-matnr = it_output-matnr.
  wa_itab-opstock = it_output-opstock.
  wa_itab-clstock = it_output-clstock.
  wa_itab-rcpts = it_output-rcpts.
  wa_itab-issue = it_output-issue.
  wa_itab-rets = it_output-rets.
  read table itab_output with  key matnr = it_output-matnr.
  if sy-subrc = 0.
  wa_itab-opstock1 = itab_output-opstock1.
  wa_itab-clstock1 = itab_output-clstock1.
  endif.
append  wa_itab to ts_output.
  endloop.
endform.

Answer 1

See this thread: http://discussions.apple.com/thread.jspa?threadID=1780647&tstart=255