Ver el código de «CDHDR»

Sample Code: I want to know, for statistic reasons, how many sales orders were blocked for “Credit limit” ( Delivery block status to 01 ) and then released during a period.( using Select Statement )

<pre>
REPORT  z_stat_so_blocked                                 .

TABLES : cdhdr, cdpos.

DATA : BEGIN OF t_cdhdr OCCURS 0,
       objectid LIKE cdhdr-objectid,
       changenr LIKE cdhdr-changenr,
       udate    LIKE cdhdr-udate,
       username LIKE cdhdr-username,
       END OF t_cdhdr.

DATA : BEGIN OF t_cdpos OCCURS 0,
       objectid LIKE vbap-vbeln,
       END OF t_cdpos.

*-
SELECT-OPTIONS : period   FOR cdhdr-udate OBLIGATORY.

*-
START-OF-SELECTION.

  CLEAR cdhdr.
  SELECT  objectid
          changenr
          udate
          username
          INTO TABLE t_cdhdr
          FROM cdhdr
          WHERE objectclas EQ 'VERKBELEG'     "This is the Class
                                              "for Sales Order
          AND   udate IN period
          AND   tcode EQ 'VA02'               " T-code
          AND   change_ind EQ 'U'.            " Update

  SORT t_cdhdr BY objectid.

  CHECK NOT t_cdhdr[] IS INITIAL.

  CLEAR cdpos.
  SELECT objectid
         INTO TABLE t_cdpos
         FROM cdpos
         FOR ALL ENTRIES IN t_cdhdr
         WHERE objectclas EQ 'VERKBELEG'
         AND   objectid EQ t_cdhdr-objectid
         AND   changenr EQ t_cdhdr-changenr
         AND   tabname  EQ 'VBAK'
         AND   fname    EQ 'LIFSK'       " Field name for Delivery Block
         AND   chngind  EQ 'U'           " Update
         AND   value_old EQ '01'.

  SORT t_cdpos BY objectid.

  LOOP AT t_cdpos.
    WRITE : / t_cdpos-objectid.
  ENDLOOP.

END-OF-SELECTION.
</pre>

<br>
[[TABLAS_BC|Tablas BC]]<br>
[[Tablas|Tablas]]<br>
[[Página_principal|Página principal]]<br>