ZFI19135循环中双层判断

zq35185

于 2021-08-29 23:51:06 发布

阅读量98

点赞数

文章标签：科目余额管控数据数据库查询字段更新程序逻辑

本文链接：https://blog.csdn.net/zq35185/article/details/119987978

版权

CLEAR:L_SAPKM,L_GKKM.
LOOP AT IT_KMYE.
IF IT_KMYE-TXT50 IS INITIAL .
SELECT SINGLE TXT50 FROM SKAT INTO IT_KMYE-TXT50 WHERE SPRAS = 1 AND KTOPL = ‘SEPC’ AND SAKNR = IT_KMYE-HKONT.
ENDIF.

IF IT_KMYE-HKONT <> L_SAPKM. "科目一对多时只显示第一行值
"获取科目余额 it_kmye-sapqmye
CLEAR ITAB_WA .

READ TABLE ITAB INTO ITAB_WA WITH KEY SAKNR = IT_KMYE-HKONT
                                      ZZFI09 = IT_KMYE-ERP_ZZFI09
                                      ZZFI10 = IT_KMYE-ERP_ZZFI10
                                      ZZFI02 = IT_KMYE-ERP_ZZFI02
                                      ZZFI03 = IT_KMYE-ERP_ZZFI03
                                      ZZFI04 = IT_KMYE-ERP_ZZFI04
                                      ZYHZH  = IT_KMYE-ERP_ZYHZH
                                     ZZHSX  = IT_KMYE-ERP_ZZHSX
                                     ZZFIELD1 = IT_KMYE-ERP_ZDNLX
                                     ZZFIELD2 = IT_KMYE-ERP_ZRZLX.
IT_KMYE-SAPQMYE = ITAB_WA-ENDINGBALANCE.
IT_KMYE-SAPQCYE = ITAB_WA-OPENINGBALANCE.

*SAP方向
IF IT_KMYE-SAPQCYE > 0.
IT_KMYE-SAPQCFX = ‘借方’.
ELSEIF IT_KMYE-SAPQCYE < 0.
IT_KMYE-SAPQCFX = ‘贷方’.
ELSE.
IT_KMYE-SAPQCFX = ‘平’.
ENDIF.
IF IT_KMYE-SAPQMYE > 0.
IT_KMYE-SAPFX = ‘借方’.
ELSEIF IT_KMYE-SAPQMYE < 0.
IT_KMYE-SAPFX = ‘贷方’.

```
   it_kmye-sapqmye = it_kmye-sapqmye * -1.
```
ELSE.
IT_KMYE-SAPFX = ‘平’.
ENDIF.
L_SAPSUM = IT_KMYE-SAPQMYE.
ENDIF.

*管控数据
IF IT_KMYE-GKKMBH IS NOT INITIAL .
READ TABLE TAB_KMYE_O WITH KEY GKKMBH = IT_KMYE-GKKMBH
ZZFI09 = IT_KMYE-GK_ZZFI09
ZZFI10 = IT_KMYE-GK_ZZFI10
ZZFI02 = IT_KMYE-GK_ZZFI02
ZZFI03 = IT_KMYE-GK_ZZFI03
ZZFI04 = IT_KMYE-GK_ZZFI04
ZYHZH = IT_KMYE-GK_ZYHZH
ZDNLX = IT_KMYE-GK_ZDNLX
ZRZLX = IT_KMYE-GK_ZRZLX.
IF SY-SUBRC = 0.
IT_KMYE-GKKMBH = TAB_KMYE_O-GKKMBH. "管控科目
IT_KMYE-GKKMMC = TAB_KMYE_O-GKKMMC. "管控科目名称
IT_KMYE-GK_ZZFI02 = TAB_KMYE_O-ZZFI02.
IT_KMYE-GK_ZZFI03 = TAB_KMYE_O-ZZFI03.
IT_KMYE-GK_ZZFI04 = TAB_KMYE_O-ZZFI04.
IT_KMYE-GK_ZZFI09 = TAB_KMYE_O-ZZFI09.
IT_KMYE-GK_ZZFI10 = TAB_KMYE_O-ZZFI10.
IT_KMYE-GK_ZYHZH = TAB_KMYE_O-ZYHZH.
IT_KMYE-GK_ZDNLX = TAB_KMYE_O-ZDNLX.
IT_KMYE-GK_ZRZLX = TAB_KMYE_O-ZRZLX.

   IF IT_KMYE-GKKMBH <> L_GKKM.   "科目一对多时只显示第一行值
  IT_KMYE-GKQMFX  = TAB_KMYE_O-QMFX.                     "管控期末方向
  IT_KMYE-GKQMYE  = TAB_KMYE_O-QMYE.                     "管控期末余额
  L_GKSUM = IT_KMYE-GKQMYE.

```
   ENDIF.
ENDIF.
```
ENDIF.

MODIFY IT_KMYE.
L_SAPKM = IT_KMYE-HKONT.
L_GKKM = IT_KMYE-GKKMBH.
CLEAR: GLT0_FIELD,TAB_GLT0,TAB_GLT0[].",l_sapkm,l_gkkm.
ENDLOOP.