Migo收货取批次特性例子

REPORT  ztest3 .

TYPE-POOLS :slis .
TABLES :likp , lips .

DATA : BEGIN  OF wa_tab ,
  vbeln  LIKE likp -vbeln ,
  posnr  LIKE lips -posnr ,
  werks  LIKE lips -werks ,
  matnr  LIKE lips -matnr ,
  charg  LIKE lips -charg ,
  revision ( 10 )  TYPE  c ,
   END  OF wa_tab .
DATA :itab  LIKE  TABLE  OF wa_tab  WITH  HEADER  LINE .

DATA : allocvaluesnum  TYPE  STANDARD  TABLE  OF bapi1003_alloc_values_num  WITH  HEADER  LINE ,
        allocvalueschar  TYPE  STANDARD  TABLE  OF bapi1003_alloc_values_char  WITH  HEADER  LINE ,
        allocvaluescurr  TYPE  STANDARD  TABLE  OF bapi1003_alloc_values_curr  WITH  HEADER  LINE ,
        return  TYPE  STANDARD  TABLE  OF bapiret2 .

DATA :r_e_objek  TYPE objnum ,
      r_e_obtab  TYPE tabelle ,
      r_e_klart  TYPE klassenart ,
      r_e_class  TYPE klasse_d .

SELECTION-SCREEN  BEGIN  OF  BLOCK block1  WITH  FRAME  TITLE  text - 001 .
SELECT-OPTIONS :
s_matnr  FOR lips -vbeln .
SELECTION-SCREEN  END  OF  BLOCK block1 .

START-OF-SELECTION .
   PERFORM getdata .
   PERFORM alvdata .

*&---------------------------------------------------------------------*
*&      Form  getdata
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM getdata .
   SELECT
   vbeln
   posnr
   matnr
    werks
   charg  INTO CORRESPONDING  FIELDS  OF  TABLE itab  FROM lips
     WHERE vbeln  IN s_matnr .

   LOOP  AT itab .
     DATA :s_key ( 30 )  TYPE  c .

     " CONCATENATE itab-matnr itab-charg INTO s_key.

     CALL  FUNCTION  'VB_BATCH_2_CLASS_OBJECT'
       EXPORTING
        i_matnr  = itab -matnr
        i_charg  = itab -charg
        i_werks  = itab -werks
       IMPORTING
        e_objek  = r_e_objek
        e_obtab  = r_e_obtab
        e_klart  = r_e_klart
        e_class  = r_e_class .

     CALL  FUNCTION  'BAPI_OBJCL_GETDETAIL'
       EXPORTING
        objectkey        = r_e_objek
        objecttable      = r_e_obtab
        classnum         = r_e_class
        classtype        = r_e_klart
       TABLES
        allocvaluesnum   = allocvaluesnum
        allocvalueschar  = allocvalueschar
        allocvaluescurr  = allocvaluescurr
         return           =  return .
   ENDLOOP .

   LOOP  AT allocvalueschar .
*    IF  allocvalueschar-charact = charact.
*      rtnstr = allocvalueschar-value_char.
*    ENDIF.
   ENDLOOP .
   LOOP  AT allocvaluesnum .
*    IF  allocvaluesnum-charact = charact.
*      DATA:ps TYPE p DECIMALS 4.
*      MOVE allocvaluesnum-value_from TO ps.
*      MOVE ps TO rtnstr.
*    ENDIF.
   ENDLOOP .

ENDFORM .                     "getdata

*&---------------------------------------------------------------------*
*&      Form  alvdata
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM alvdata .
ENDFORM .                     "alvdata