会计期间带不出来看看我代码哪写错了啊

buparedeqie · 发表于 2011-1-17 11:03:51

*&---------------------------------------------------------------------*
*& Report ZFI_RE0215
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZFI_RE0215.
*---------------------------------------------------------------------*
* Program ID : ZFI_RE0215 *
* Program Name : 出库凭证WBS查询 *
*---------------------------------------------------------------------*
* Date Created : < 2011/1/17> *
* Created By : <郭培成> *
* Description : <出库凭证WBS查询> *
*---------------------------------------------------------------------*
*Modification : *
* Date Modified Modified By Description *
* <YYYY/MM/DD> <修改人> <更新理由／内容> *
*---------------------------------------------------------------------*
TYPE-POOLS: SLIS.
TABLES:BKPF,BSEG.
*-----------------------------------------------------------------------
* 定义表结构
*-----------------------------------------------------------------------
TYPES:BEGIN OF TYP_TEMP1,
SHKZG TYPE BSEG-SHKZG, "借方/贷方标识
PRCTR TYPE BSEG-PRCTR, "利润中心
PROJK TYPE BSEG-PROJK, "工作分解结构元素 (WBS 元素)
DMBTR TYPE BSEG-DMBTR, "按本位币计的金额
KOSTL TYPE BSEG-KOSTL, "成本中心
MATNR TYPE BSEG-MATNR, "物料号
EBELP TYPE BSEG-EBELP, "采购凭证的项目编号
EBELN TYPE BSEG-EBELN, "采购凭证号
BUKRS TYPE BSEG-BUKRS, "公司代码
HKONT TYPE BSEG-HKONT, "总分类帐帐目
BELNR TYPE BSEG-BELNR, "会计凭证号码
GJAHR TYPE BSEG-GJAHR, "会计年度
BUZEI TYPE BSEG-BUZEI, "会计凭证中的行项目数
MONAT TYPE BKPF-MONAT, "会计期间
END OF TYP_TEMP1.
TYPES:BEGIN OF TYP_TEMP2,
MONAT TYPE BKPF-MONAT,
BELNR TYPE BKPF-BELNR,
GJAHR TYPE BKPF-GJAHR,
BUKRS TYPE BKPF-BUKRS,
END OF TYP_TEMP2.
*-----------------------------------------------------------------------
* 定义程序全局变量
*-----------------------------------------------------------------------
DATA: L_BEDAT LIKE BSEG-AUGDT.
DATA: L_ENDAT LIKE BSEG-AUGDT.
*-----------------------------------------------------------------------
*定义内表和工作区
*-----------------------------------------------------------------------
DATA: REC_OUT TYPE TYP_TEMP1,
TAB_OUT TYPE STANDARD TABLE OF TYP_TEMP1.
DATA: TAB_TEMP2 TYPE TABLE OF TYP_TEMP2 WITH HEADER LINE.
*---------------------------------------------------------------------*
* 声明ALV类变量
*---------------------------------------------------------------------*
DATA: WA_FCAT TYPE LVC_S_FCAT, "绑定字段目录（ALV表头字段说明）用的工作区；
IT_FCAT TYPE LVC_T_FCAT, "It_fcat是绑定字段目录时用到的内
V_POS TYPE INT4. "V_pos用来指定字段目录的索引
DATA: L_TITLE TYPE LVC_TITLE.
DATA: IT_LAYO TYPE LVC_S_LAYO,
L_LAYOUT TYPE SLIS_LAYOUT_ALV, "ALV布局变量结构
L_EVENTS TYPE SLIS_T_EVENT WITH HEADER LINE. "ALV事件结构
*-----------------------------------------------------------------------
*分类选择屏幕
*-----------------------------------------------------------------------
SELECTION-SCREEN:BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_GJAHR LIKE BSEG-GJAHR DEFAULT SY-DATUM+0(4) OBLIGATORY.
SELECT-OPTIONS: S_MONAT FOR BKPF-MONAT OBLIGATORY DEFAULT '01' TO '12' NO-EXTENSION.
SELECT-OPTIONS: S_BELNR FOR BSEG-BELNR.
SELECTION-SCREEN:END OF BLOCK BLK1.
*---------------------------------------------------------------------
* AT-OF-SELECTION
* 判断用户输入
*---------------------------------------------------------------------
AT SELECTION-SCREEN.
IF P_GJAHR = '' OR S_MONAT = ''.
MESSAGE '请填写会计年度、会计期间!' TYPE 'S'.
STOP.
ENDIF.
*-----------------------------------------------------------------------
* START-OF-SELECTION
*-----------------------------------------------------------------------
START-OF-SELECTION. "选择开始
PERFORM GET_DATA.
PERFORM DISPLAY_ALV.
END-OF-SELECTION.
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_DATA .
SELECT SHKZG
PRCTR
PROJK
DMBTR
KOSTL
MATNR
EBELP
EBELN
BUKRS
HKONT
BELNR
GJAHR
BUZEI
FROM BSEG
INTO CORRESPONDING FIELDS OF TABLE TAB_OUT
WHERE GJAHR = P_GJAHR
AND BELNR IN S_BELNR.
SORT TAB_OUT BY GJAHR BELNR.
*DATA: SUM TYPE I.
*DESCRIBE TABLE TAB_OUT LINES SUM.
*WRITE:/ SUM.
IF TAB_OUT[] IS NOT INITIAL.
SELECT MONAT
BELNR
GJAHR
BUKRS
FROM BKPF
INTO TABLE TAB_TEMP2
FOR ALL ENTRIES IN TAB_OUT
WHERE MONAT IN S_MONAT
AND BELNR = TAB_OUT-BELNR
AND GJAHR = TAB_OUT-GJAHR
AND BUKRS = TAB_OUT-BUKRS.
SORT TAB_TEMP2 BY GJAHR BELNR.
LOOP AT TAB_OUT INTO REC_OUT.
READ TABLE TAB_TEMP2 WITH KEY BELNR = TAB_TEMP2-BELNR GJAHR = TAB_TEMP2-GJAHR BUKRS = TAB_TEMP2-BUKRS.
IF SY-SUBRC = 0.
REC_OUT-MONAT = TAB_TEMP2-MONAT.
MODIFY TAB_OUT FROM REC_OUT.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM. " GET_DATA
*&---------------------------------------------------------------------*
*& Form DISPLAY_ALV
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM DISPLAY_ALV .
PERFORM FRM_FIELDCAT. "构造fieldcat，绑定字段
PERFORM FRM_LAYOUT . "ALV布局设置
PERFORM FRM_DISPLAY. "ALV展示
ENDFORM. " DISPLAY_ALV
*&---------------------------------------------------------------------*
*& Form FRM_FIELDCAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_FIELDCAT .
REFRESH IT_FCAT .
CLEAR WA_FCAT .
V_POS = V_POS + 1 . "输出行设为1
WA_FCAT-COL_POS = V_POS . "字段在EXCEL输出行的位置
WA_FCAT-FIELDNAME = 'SHKZG' . "输出表结果字段名
WA_FCAT-SCRTEXT_L = '借方/贷方标识' . "输出表结果字段的名字
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .
V_POS = V_POS + 1 . "输出行设为1
WA_FCAT-COL_POS = V_POS . "字段在EXCEL输出行的位置
WA_FCAT-FIELDNAME = 'PRCTR' . "输出表结果字段名
WA_FCAT-SCRTEXT_L = '利润中心' . "输出表结果字段的名字
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .
V_POS = V_POS + 1 . "输出行设为1
WA_FCAT-COL_POS = V_POS . "字段在EXCEL输出行的位置
WA_FCAT-FIELDNAME = 'PROJK' . "输出表结果字段名
WA_FCAT-SCRTEXT_L = 'WBS 元素' . "输出表结果字段的名字
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .
V_POS = V_POS + 1 . "输出行设为1
WA_FCAT-COL_POS = V_POS . "字段在EXCEL输出行的位置
WA_FCAT-FIELDNAME = 'DMBTR' . "输出表结果字段名
WA_FCAT-SCRTEXT_L = '本位币金额' . "输出表结果字段的名字
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .
V_POS = V_POS + 1 . "输出行设为1
WA_FCAT-COL_POS = V_POS . "字段在EXCEL输出行的位置
WA_FCAT-FIELDNAME = 'KOSTL' . "输出表结果字段名
WA_FCAT-SCRTEXT_L = '成本中心' . "输出表结果字段的名字
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .
V_POS = V_POS + 1 . "输出行设为1
WA_FCAT-COL_POS = V_POS . "字段在EXCEL输出行的位置
WA_FCAT-FIELDNAME = 'MATNR' . "输出表结果字段名
WA_FCAT-SCRTEXT_L = '物料号' . " 输出表结果字段的名字
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .
V_POS = V_POS + 1 . "输出行设为1
WA_FCAT-COL_POS = V_POS . "字段在EXCEL输出行的位置
WA_FCAT-FIELDNAME = 'EBELP' . "输出表结果字段名
WA_FCAT-SCRTEXT_L = '采购凭证项目号' . "输出表结果字段的名字
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .
V_POS = V_POS + 1 . "输出行设为1
WA_FCAT-COL_POS = V_POS . "字段在EXCEL输出行的位置
WA_FCAT-FIELDNAME = 'MONAT' . "输出表结果字段名
WA_FCAT-SCRTEXT_L = '会计期间' . "输出表结果字段的名字
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .
V_POS = V_POS + 1 . "输出行设为1
WA_FCAT-COL_POS = V_POS . "字段在EXCEL输出行的位置
WA_FCAT-FIELDNAME = 'BUKRS' . "输出表结果字段名
WA_FCAT-SCRTEXT_L = '公司代码' . "输出表结果字段的名字
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .
V_POS = V_POS + 1 . "输出行设为1
WA_FCAT-COL_POS = V_POS . "字段在EXCEL输出行的位置
WA_FCAT-FIELDNAME = 'HKONT' . "输出表结果字段名
WA_FCAT-SCRTEXT_L = '总账分类账目' . "输出表结果字段的名字
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .
V_POS = V_POS + 1 . "输出行设为1
WA_FCAT-COL_POS = V_POS . "字段在EXCEL输出行的位置
WA_FCAT-FIELDNAME = 'BELNR' . "输出表结果字段名
WA_FCAT-SCRTEXT_L = '会计凭证号' . "输出表结果字段的名字
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT .
V_POS = V_POS + 1 . "输出行设为1
WA_FCAT-COL_POS = V_POS . "字段在EXCEL输出行的位置
WA_FCAT-FIELDNAME = 'GJAHR' . "输出表结果字段名
WA_FCAT-SCRTEXT_L = '会计年度' . "输出表结果字段的名字
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .
V_POS = V_POS + 1 . "输出行设为1
WA_FCAT-COL_POS = V_POS . "字段在EXCEL输出行的位置
WA_FCAT-FIELDNAME = 'BUZEI' . "输出表结果字段名
WA_FCAT-SCRTEXT_L = '行项目数' . "输出表结果字段的名字
APPEND WA_FCAT TO IT_FCAT .
CLEAR WA_FCAT .
ENDFORM. " FRM_FIELDCAT
*&---------------------------------------------------------------------*
*& Form FRM_LAYOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_LAYOUT .
IT_LAYO-CWIDTH_OPT = 'X' . " 自动优化列宽
ENDFORM. " FRM_LAYOUT
*&---------------------------------------------------------------------*
*& Form FRM_DISPLAY
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_DISPLAY .
L_TITLE = '出库凭证WBS查询'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IS_LAYOUT_LVC = IT_LAYO
IT_FIELDCAT_LVC = IT_FCAT
I_GRID_TITLE = L_TITLE "ALV的标题 TABLES
TABLES
T_OUTTAB = TAB_OUT
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
ENDFORM. " FRM_DISPLAY

复制代码

admin · 发表于 2011-1-17 11:03:52

你这逻辑有问题的，取会计凭证的话，要先取BKPF，再取BSEG，BKPF是凭证头，BSEG是明细，一个头对应多个明细。你现弄反了

buparedeqie · 发表于 2011-1-17 13:10:06

回复 2# admin

FORM GET_DATA .

   SELECT MONAT
         BELNR
         GJAHR
         BUKRS
   FROM BKPF
   INTO TABLE  TAB_TEMP2
   WHERE MONAT IN S_MONAT
         AND BELNR IN S_BELNR
         AND GJAHR = P_GJAHR.
   SORT TAB_TEMP2 BY GJAHR BELNR.

  IF TAB_TEMP2[] IS NOT INITIAL.
  SELECT SHKZG
      PRCTR
      PROJK
      DMBTR
      KOSTL
      MATNR
      EBELP
      EBELN
      BUKRS
      HKONT
      BELNR
      GJAHR
      BUZEI
      FROM BSEG
      INTO CORRESPONDING FIELDS OF  TABLE TAB_OUT

      FOR ALL ENTRIES IN TAB_TEMP2
      WHERE GJAHR = TAB_TEMP2-GJAHR
      AND BUKRS = TAB_TEMP2-BUKRS
      AND BELNR = TAB_TEMP2-BELNR.

  SORT TAB_OUT BY  GJAHR BELNR.

LOOP AT TAB_OUT INTO REC_OUT.
   READ TABLE TAB_TEMP2 WITH KEY BELNR = TAB_TEMP2-BELNR GJAHR = TAB_TEMP2-GJAHR BUKRS = TAB_TEMP2-BUKRS.
   IF SY-SUBRC = 0.
      REC_OUT-MONAT = TAB_TEMP2-MONAT.
      MODIFY TAB_OUT FROM REC_OUT.
   ENDIF.
ENDLOOP.
  ENDIF.
ENDFORM.
这样对吗

buparedeqie · 发表于 2011-1-17 13:46:00

回复 3# buparedeqie

经测试正确的代码

FORM GET_DATA .

   SELECT MONAT
         BELNR
         GJAHR
         BUKRS
   FROM BKPF
   INTO TABLE  TAB_TEMP2
   WHERE MONAT IN S_MONAT
         AND BELNR IN S_BELNR
         AND GJAHR = P_GJAHR.
   SORT TAB_TEMP2 BY GJAHR BELNR.

  IF TAB_TEMP2[] IS NOT INITIAL.
  SELECT SHKZG
      PRCTR
      PROJK
      DMBTR
      KOSTL
      MATNR
      EBELP
      EBELN
      BUKRS
      HKONT
      BELNR
      GJAHR
      BUZEI
      FROM BSEG
      INTO CORRESPONDING FIELDS OF  TABLE TAB_OUT

      FOR ALL ENTRIES IN TAB_TEMP2
      WHERE GJAHR = TAB_TEMP2-GJAHR
      AND BUKRS = TAB_TEMP2-BUKRS
      AND BELNR = TAB_TEMP2-BELNR.

  SORT TAB_OUT BY  GJAHR BELNR BUKRS.

LOOP AT TAB_OUT INTO REC_OUT.
   READ TABLE TAB_TEMP2 WITH KEY BELNR = REC_OUT-BELNR GJAHR = REC_OUT-GJAHR BUKRS = REC_OUT-BUKRS.
   IF SY-SUBRC = 0.
      REC_OUT-MONAT = TAB_TEMP2-MONAT.
      MODIFY TAB_OUT FROM REC_OUT.
   ENDIF.
ENDLOOP.
  ENDIF.
ENDFORM.

wuzhaohua21 · 发表于 2011-1-19 15:33:54

FORM GET_DATA .
* K7 u9 a  G" g! b# Y
! O3 I% c+ z; K+ }) X* C  g$ q
( Y; ?5 _1 h, e% m) H( X6 }6 z6 H
9 h9 D- j1 J! l) G9 N6 a8 \
" v5 }# n4 p1 @3 r. f/ E    SELECT MONAT" e4 h2 \9 B5 `; @9 C
         BELNR/ ~9 ~: L) y7 A6 M* n: F
         GJAHR- y3 ?$ U4 K4 A5 M/ q
         BUKRS
/ i. S; g; k3 J3 {    FROM BKPF
' j" s* w. {. U3 {9 x" l( J    INTO TABLE  TAB_TEMP25 A, ^1 a: \" l8 C* Q9 l2 ^
   WHERE MONAT IN S_MONAT1 u! Q6 J. T4 V8 B* |
         AND BELNR IN S_BELNR
( _1 C, \% k6 w6 l  o! c5 H0 R; r          AND GJAHR = P_GJAHR.
4 U, I/ @, H) B' L% ~, o    SORT TAB_TEMP2 BY GJAHR BELNR.% n) f/ _6 V4 E' Z+ o$ i. p

/ n, C4 C5 P2 L( ^8 h! h$ C7 ]6 c
: L% p* y1 a# D0 l4 i! B4 b  IF TAB_TEMP2[] IS NOT INITIAL.# n# M0 G4 y5 r; {4 }9 w! a2 M
  SELECT SHKZG
& F7 X" ^3 d' C; I4 \2 S$ \       PRCTR8 G+ @4 Z; I( k1 C
      PROJK
+ V" k  ~% P' k- u7 D       DMBTR
+ Q( G' [, U8 J/ ~* |* k1 k       KOSTL
. Y5 J6 G6 Z6 y* h       MATNR
; `/ b  a1 S& t6 _# F       EBELP+ \% b$ q, S, t( A; Z  I, I7 O
      EBELN
, d0 Z+ C4 N5 m$ a       BUKRS
1 ]* Q% _" N0 F, i' i- D7 p2 T       HKONT
7 i. q+ t# O" B: C       BELNR9 b, u' Y4 k# d3 }1 A
      GJAHR
; X- S) ^# m6 Z3 g. g4 W7 G0 |       BUZEI2 R$ {* S% x9 m1 b. C0 L% D# p
      FROM BSEG( |4 o2 r$ j9 m
      INTO CORRESPONDING FIELDS OF  TABLE TAB_OUT- |8 r, y6 ]# H$ U% v4 _
2 w: Q; O' x, D+ Y8 S
      FOR ALL ENTRIES IN TAB_TEMP2) I( W6 M( I2 F- S4 ]* \4 @
      WHERE GJAHR = TAB_TEMP2-GJAHR
8 w0 [5 a- e! v       AND BUKRS = TAB_TEMP2-BUKRS
* q8 }1 C' a4 H- U# o       AND BELNR = TAB_TEMP2-BELNR.% ?3 c  t+ r4 s0 k0 D4 t
1 G( R  x9 [# [; f
  SORT TAB_OUT BY  GJAHR BELNR BUKRS.' F( e6 W! I0 x( A9 o$ [3 n
" ~% t/ p; \2 b( _: }

' n& i' ~5 }8 c' F: x7 } LOOP AT TAB_OUT INTO REC_OUT.# s3 h: U! W! E8 g
   READ TABLE TAB_TEMP2 WITH KEY BELNR = REC_OUT-BELNR GJAHR = REC_OUT-GJAHR BUKRS = REC_OUT-BUKRS.
3 [1 Q9 c. _; Z- r5 @5 ^    IF SY-SUBRC = 0.+ N' [! U3 p; m) ?. N/ ?% z8 |
      REC_OUT-MONAT = TAB_TEMP2-MONAT.. d* F5 G3 @- o  o2 H7 |
      MODIFY TAB_OUT FROM REC_OUT., s  o- W$ a  u1 l: Q& V" `, F3 J* x- k
   ENDIF.
' B1 r& q9 L+ Y/ `7 A9 j6 M3 ` ENDLOOP.4 T6 d! Q3 m: e. k; ~0 Z, b( {5 `
  ENDIF.
' Q7 D) u* l" jENDFORM.

laohu · 发表于 2011-4-1 22:21:42

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

冰糖葫芦 · 发表于 2013-6-24 22:53:44

学习

		自动登录	找回密码
密码			注册

[ABAP问题] 会计期间带不出来看看我代码哪写错了啊

最佳答案

[ABAP问题] 会计期间带不出来 看看我代码哪写错了啊

最佳答案

[ABAP问题] 会计期间带不出来看看我代码哪写错了啊