求解释呀~

edisonwx

REPORT  Z_REPORT_K02_BK.

TYPES: BEGIN OF S_VBFA,            
        VBELV LIKE VBFA-VBELV,      
        POSNV LIKE VBFA-POSNV,      
        VBELN LIKE VBFA-VBELN,        
        POSNN LIKE VBFA-POSNN,      
        VBTYP_N LIKE VBFA-VBTYP_N,   
        MATNR LIKE VBFA-MATNR,        
      END OF S_VBFA.

TYPES: BEGIN OF S_LFA1,            
        LIFNR LIKE LFA1-LIFNR,      
        NAME1 LIKE LFA1-NAME1,   
      END OF S_LFA1.

TYPES: BEGIN OF S_VBAP,            
        VBELN LIKE VBAP-VBELN,     
        POSNR LIKE VBAP-POSNR,   
        MATNR LIKE VBAP-MATNR,      
      END OF S_VBAP.

TYPES: BEGIN OF S_LIKP,            
        VBELN LIKE LIKP-VBELN,      
        LFDAT LIKE LIKP-LFDAT,      
      END OF S_LIKP.

TYPES: BEGIN OF S_VBRK,            
        VBELN LIKE VBRK-VBELN,      
        NETWR LIKE VBRK-NETWR,     
      END OF S_VBRK.

TYPES: BEGIN OF S_RESULT,
        VBELV LIKE VBFA-VBELV,      
        POSNV LIKE VBFA-POSNV,      
        VBELN LIKE VBFA-VBELN,      
        POSNN LIKE VBFA-POSNN,        
        VBTYP_N LIKE VBFA-VBTYP_N,  
        MATNR1 LIKE VBFA-MATNR,      

        LIFNR LIKE LFA1-LIFNR,      
        NAME1 LIKE LFA1-NAME1,      

        VBELN1 LIKE VBAP-VBELN,      
        POSNR LIKE VBAP-POSNR,     
        MATNR2 LIKE VBAP-MATNR,     

        VBELN2 LIKE LIKP-VBELN,      
        LFDAT LIKE LIKP-LFDAT,      

        VBELN3 LIKE VBRK-VBELN,      
        NETWR LIKE VBRK-NETWR,      
      END OF S_RESULT.

DATA: T_VBFA TYPE STANDARD TABLE OF S_VBFA.
DATA: T_LFA1 TYPE STANDARD TABLE OF S_LFA1.
DATA: T_VBAP TYPE STANDARD TABLE OF S_VBAP.
DATA: T_LIKP TYPE STANDARD TABLE OF S_LIKP.
DATA: T_VBRK TYPE STANDARD TABLE OF S_VBRK.
DATA: T_RESULT TYPE STANDARD TABLE OF S_RESULT.

DATA: W_VBFA TYPE S_VBFA.
DATA: W_LFA1 TYPE S_LFA1.
DATA: W_VBAP TYPE S_VBAP.
DATA: W_LIKP TYPE S_LIKP.
DATA: W_VBRK TYPE S_VBRK.
DATA: W_RESULT TYPE S_RESULT.

tables vbfa.

select-options s_erdat for vbfa-erdat.                             
SELECT  VBELV POSNV VBELN POSNN VBTYP_N MATNR
INTO TABLE T_VBFA
FROM VBFA WHERE erdat in s_erdat.


SELECT  LIFNR NAME1 INTO TABLE T_LFA1 FROM LFA1.
SELECT  VBELN POSNR MATNR INTO TABLE T_VBAP FROM VBAP.
SELECT  VBELN LFDAT INTO TABLE T_LIKP FROM LIKP.

SELECT  VBELN NETWR INTO TABLE T_VBRK FROM VBRK.
DATA: LINE TYPE I.

LINE = LINES( T_VBFA ).
WRITE:/  'LINE=', LINE.

LINE = LINES( T_LFA1 ).
WRITE:/  'LINE=', LINE.

LINE = LINES( T_VBAP ).
WRITE:/  'LINE=', LINE.

LINE = LINES( T_LIKP ).
WRITE:/  'LINE=', LINE.

LINE = LINES( T_VBRK ).
WRITE:/  'LINE=', LINE.
求大侠帮忙解释下·从select-options s_erdat for vbfa-erdat之后那一段代码怎么解释呢？
还有DATA: LINE TYPE I. 这个动机是什么意思呢？对之下的不理解·
求好心人帮帮忙呀·

wyzlt216123

呵呵 我试试！如有不对的地方还请指出。
从select-options s_erdat for vbfa-erdat之后那一段代码怎么解释呢？
这段代码是从数据库表vbfa中取出VBELV POSNV VBELN POSNN VBTYP_N MATNR5 这些字段，存放到内部表T_VBFA
中，取出字段时要满足的条件是erdat在屏幕输入的范围中···

DATA: LINE TYPE I
上条语句是定义了一个整型的变量。他的作用要看下面的语句：LINE = LINES( T_VBFA ).
LINES是返回内部表T_VBFA中记录的数目，LINE就是存储这个数目。
仅供参考！

admin

完全正确

edisonwx

s_erdat. s_作为前缀 是什么意思呢？也就是说要从 VBFA中取出 VBELV POSNV VBELN POSNN VBTYP_N MATNR5 这些字段 s_erdat for vbfa-erdat.起到的是一个时间限定的作用吗？
对line的作用还是有点迷糊呢·~

edisonwx

还有就是 为什么在前面 定义的字段都是主键呢？

admin

s_没有什么特殊的意思，一般是指定义选择画面的时间有FROM和TO的两个框时用加个s_，以区别开P_,P_是只有FROM的框，还有取数据是取数据，从 VBFA中取出 VBELV POSNV VBELN POSNN VBTYP_N MATNR5 这些字段就是取数据，而S_erdat for vbfa-erdat只是定义选择画面，是两个不同的东西，没有联系的。

paul

学习学习