如何把两个不能关联的内表的数关联起来

buparedeqie

1. 
   
2. TYPES:BEGIN OF TYP_TEMP1,
   
3. 如何把这个结构里的所有字段的数据取出来放到这个内表里啊
   
4. 希望老大把具体代码写一下 因为小弟确实不会呀  说思路不够呀
   
5.       SHKZG TYPE BSEG-SHKZG,                     "借方/贷方标识
   
6.       PRCTR TYPE BSEG-PRCTR,                     "利润中心
   
7.       PROJK TYPE BSEG-PROJK,                     "工作分解结构元素 (WBS 元素)
   
8.       DMBTR TYPE BSEG-DMBTR,                     "按本位币计的金额
   
9.       KOSTL TYPE BSEG-KOSTL,                     "成本中心
   
10.       MATNR TYPE BSEG-MATNR,                     "物料号
    
11.       EBELP TYPE BSEG-EBELP,                     "采购凭证的项目编号
    
12.       EBELN TYPE BSEG-EBELN,                     "采购凭证号
    
13.       BUKRS TYPE BSEG-BUKRS,                     "公司代码
    
14.       HKONT TYPE BSEG-HKONT,                     "总分类帐帐目
    
15.       BELNR TYPE BSEG-BELNR,                     "会计凭证号码
    
16.       GJAHR TYPE BSEG-GJAHR,                     "会计年度
    
17.       BUZEI TYPE BSEG-BUZEI,                     "会计凭证中的行项目数
    
18.       MONAT TYPE BKPF-MONAT,                     "会计期间
    
19.      END OF TYP_TEMP1.
    
20. 
    
21. TYPES:BEGIN OF TYP_TEMP2,
    
22.       MONAT TYPE BKPF-MONAT,
    
23.       BELNR TYPE BKPF-BELNR,
    
24.       GJAHR TYPE BKPF-GJAHR,
    
25.       END OF TYP_TEMP2.
    
26. 
    
27. 
    
28. SELECTION-SCREEN:BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
    
29. PARAMETERS: P_GJAHR LIKE BSEG-GJAHR DEFAULT SY-DATUM+0(4) OBLIGATORY.
    
30. SELECT-OPTIONS: S_MONAT FOR BKPF-MONAT OBLIGATORY DEFAULT '01' TO '12' NO-EXTENSION.
    
31. SELECT-OPTIONS: S_BELNR FOR BSEG-BELNR.
    
32. SELECTION-SCREEN:END OF BLOCK BLK1.

复制代码

admin

思路是这样的：
先从BKPF里把字段和会计年度，公司代码，凭证号码都取出，取出条件是根据会计年度，公司代码，凭证号码。取出后放在一个内部表里。

再从BSEG里把其他字段取出，取出条件是根据上面BKPF的内表内的会计年度，公司代码，凭证号码。用FOR ALL ENTRIES关键字就可以了。类似的代码如下，你可以参照一下。你的代码我就不写了。也没时间帮你写。

  SELECT BUKRS
         GJAHR
         BELNR
         MONAT
         BUDAT
   INTO  CORRESPONDING FIELDS OF TABLE IT_BKPF
   FROM  BKPF
  WHERE BUKRS IN P_BUKRS
    AND BSTAT = ' '
    AND BUDAT IN P_BUDAT.

  IF SY-SUBRC <> 0.
      MESSAGE S999 DISPLAY LIKE 'E'
      WITH 'There is no data for this paramater'.
      STOP.
  ENDIF.

  SELECT BUKRS
         GJAHR
         BELNR
         BUZEI
         RSTGR
         SHKZG
         DMBTR
   INTO CORRESPONDING FIELDS OF TABLE IT_BSEG
   FROM BSEG
   FOR ALL ENTRIES IN IT_BKPF
   WHERE BUKRS = IT_BKPF-BUKRS
     AND GJAHR = IT_BKPF-GJAHR
     AND BELNR = IT_BKPF-BELNR
     AND RSTGR <> SPACE
     AND LOKKT IN S_LOKKT.

sabap

我没懂你的意思，如果是想抓出BSEG和BKPF的数据，直接inner join 就好了啊。

zx8299zly

我都不知道怎么发贴呢

laohu

看的有点蒙，可能对系统还不熟悉，还是谢谢啦！

冰糖葫芦

学习