zq35185-CSDN博客

原创 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 88

原创 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 74

原创 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 60

原创 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 93

原创 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 170

原创调用CALL FUNCTION 'ZFI22F_JUDGE_CBXM'

&---------------------------------------------------------------------*& Form U607&---------------------------------------------------------------------运维检修费核算科目控制按照项目类型替代原9*科目到...

2020-03-26 16:07:42 169

原创取网络对应的项目编号

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 165

原创 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 221

原创 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 174

原创检修三费程序判断报错

检修三费程序判断报错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 303

zq35185的博客