- 博客(10)
- 收藏
- 关注
原创 ZFI19135循环中双层判断
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-
2021-08-29 23:51:06
96
原创 ZFI19135循环显示科目方向和差异字段颜色
LOOP AT IT_KMYE.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.IF IT_KMYE-SAPFX = ‘借方’.IT_KMYE-CY = IT_KMYE-SAPQMYE - I
2021-08-29 23:48:18
82
原创 ZFI19135 双层循环取管控对账信息
第一层循环在最后结束。LOOP AT IT_GK_KMYE .TAB_KMYE_O-HKONT = IT_GK_KMYE-HKONT .TAB_KMYE_O-GKKMBH = IT_GK_KMYE-GKKMBH .TAB_KMYE_O-GKKMMC = IT_GK_KMYE-GKKMMC .TAB_KMYE_O-QMFX = IT_GK_KMYE-QMFX .TAB_KMYE_O-QMYE = IT_GK_KMYE-QMYE .TAB_KMYE_O-ZZFI02 = IT_GK_KMYE-ZZ
2021-08-29 01:08:52
70
原创 ZFI19135逐行循环科目+维度的期初数和期末数
SORT IT_KMYE BY XH GKKMBH HKONT ERP_ZZFI02 ERP_ZZFI03 ERP_ZZFI04 ERP_ZZFI09 ERP_ZZFI10 ERP_ZDNLX ERP_ZRZLX ERP_ZYHZH ERP_ZZHSX. " SAP科目和管控科目存在多对一DELETE ADJACENT DUPLICATES FROM IT_KMYE COMPARING XH GKKMBH HKONT ERP_ZZFI02 ERP_ZZFI03 ERP_ZZFI04 ERP_ZZ
2021-08-29 00:19:56
107
原创 SAP ZFI19135处理银行账号
SAP ZFI19135处理银行账号LOOP AT ITAB INTO ITAB_WA .CLEAR IT_KMYE .IT_KMYE-HKONT = ITAB_WA-SAKNR.IT_KMYE-TXT50 = ITAB_WA-TXT50.IT_KMYE-ERP_ZZFI02 = ITAB_WA-ZZFI02.IT_KMYE-ERP_ZZFI03 = ITAB_WA-ZZFI03.IT_KMYE-ERP_ZZFI04 = ITAB_WA-ZZFI04.IT_KMYE-ERP_ZZFI09 =
2021-08-29 00:07:31
187
原创 调用CALL FUNCTION 'ZFI22F_JUDGE_CBXM'
&---------------------------------------------------------------------*& Form U607&---------------------------------------------------------------------运维检修费核算科目控制 按照项目类型替代原9*科目到...
2020-03-26 16:07:42
182
原创 取网络对应的项目编号
DATA: BEGIN OF wa_esll,srvpos LIKE esll-srvpos,ktext1 LIKE esll-ktext1,packno LIKE esll-packno,extrow LIKE esll-extrow, "服务行号END OF wa_esll.DATA: it_esll LIKE TABLE OF wa_esll WITH HEA...
2020-03-25 23:05:24
172
原创 ZFI19155程序代码(二)
ZFI19155程序代码(二) LOOP AT IT_ESSR. G_TABIX = SY-TABIX. SELECT SINGLE WERKS INTO IT_WERKS FROM EKPO WHERE EBELN = IT_ESSR-EBELN. IF SY-SUBRC = 0. SELECT SINGLE PRCTR INTO IT_PRCTR FROM...
2020-03-23 18:25:39
231
原创 ZFI19155主要程序代码(一)
变量SQLIF ESSR_REL-EBELN NE ‘’ AND ESSR_REL-LIFNR EQ ‘’.SQL = ‘ESSR_REL~EBELN EQ ESSR_REL-EBELN’.ELSEIF ESSR_REL-EBELN EQ ‘’ AND ESSR_REL-LIFNR NE ‘’.SQL = ‘ESSR_REL~LIFNR EQ ESSR_REL-LIFNR’.ELSEIF...
2020-03-23 18:11:00
190
原创 检修三费程序判断报错
检修三费程序判断报错IF BSEG-ZZFI09(4) = ‘CO02’ AND ( BSEG-HKONT = ‘5001020000’ OR BSEG-HKONT = ‘5001030000’ OR BSEG-HKONT = ‘5001040000’ ) AND BSEG-GJAHR >= ‘2019’."输配电成本的检修三费* IF BSEG-AUFNR IS INITIAL...
2020-03-23 18:05:16
312
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人