SAP FICO error 行项目无法显示（没有选择行项目）

版本：ECC6.0

新增公司代码时，使用FS15复制科目后。SKB1中的XLGCLR字段值成了”/”.

导致行项目无法查看

解决方法：

相关note：1437341

In Transaction SE38 create objects ZF_CORR_XLGCLR_BSEG and implement the attached source code. For ZF_CORR_XLGCLR_BSEG use the following selection texts in TransactionSE38: S_BELNR Document Number S_BUKRS Company Code S_GJAHR Fiscal Year UPDATE Update Please ensure that the report is executed with the selection criteria having one fiscal year for fewer company codes so that the time taken for the correction process is minimal and to avoid any further inconsistencies.

*&---------------------------------------------------------------------*
*& Report  ZF_CORR_XLGCLR_BSEG
*&
*&---------------------------------------------------------------------*
*& To correct the BSEG-XLGCLR field with the values in SKB1-XLGCLR
*&             after implementing the note 1323960
*&
*& Change log:
*& 16.06.2010: Check cleared BSEG for existing BSIS and delete BSIS
*&             (error case when BSEG-XLGCLR was filled with '/' AFTER
*&             the document was posted => no index update during
*&             clearing)
*&
*& 02.09.2010: Included SY-SUBRC check
*&
*& 22.09.2010: For asset accounting recon account is checked
*& 14.01.2011: Wrong SKB1-XLGCLR will be corrected as well
*&
*& 02.02.2011: New update form for SKB1 added to ensure that all
*&             affected accounts will be updated, not only those with
*&             inconsistent documents*& 04.09.2012: XLGCLR value in BSEG should be set to that in SKB1
*&             for the account, missing value for some fields in index
*&             update is filled.
*& Can be found in E38
*&---------------------------------------------------------------------*REPORT  zf_corr_xlgclr_bseg.*----------------------------------------------------------------------*
*             DATA DECLARATION                                         *
*----------------------------------------------------------------------*
TABLES: bkpf.                                               "SKJ020910DATA: it_bkpf TYPE TABLE OF bkpf WITH HEADER LINE,it_bseg TYPE TABLE OF bseg WITH HEADER LINE,it_bseg1 TYPE TABLE OF bseg WITH HEADER LINE,it_skb1 TYPE TABLE OF skb1 WITH HEADER LINE.DATA: letter TYPE c,l_lines TYPE i,l_lines_1 TYPE i,count TYPE i.*----------------------------------------------------------------------*
*             SELECTION-SCREEN                                         *
*----------------------------------------------------------------------*SELECTION-SCREEN BEGIN OF BLOCK 001 WITH FRAME.SELECT-OPTIONS: s_belnr FOR bkpf-belnr,s_bukrs FOR bkpf-bukrs,s_gjahr FOR bkpf-gjahr.SELECTION-SCREEN END OF BLOCK 001.PARAMETERS : update AS CHECKBOX.*----------------------------------------------------------------------*
*             START-OF-SELECTION                                       *
*----------------------------------------------------------------------*IF update = 'X'.WRITE:/ 'Update RUN' COLOR 5 INTENSIFIED.
ELSE.WRITE:/ 'Test RUN ' COLOR 3 INTENSIFIED.
ENDIF.REFRESH:it_bseg,it_bkpf,it_skb1,it_bseg1.* DB020211: new update form
PERFORM update_skb1.                                        "DB020211SELECT * FROM bseg INTO TABLE it_bseg
WHERE bukrs IN s_bukrs
AND belnr IN s_belnr
AND gjahr IN s_gjahr
AND xlgclr = '/'.IF sy-subrc = 0.                                            "SKJ020910DESCRIBE TABLE it_bseg LINES l_lines.*  WRITE:/ 'Lines seleted with BSEG-XLGCLR = / are:', l_lines.count = 0.it_bseg1[] = it_bseg[].SORT it_bseg1 BY bukrs belnr gjahr.DELETE ADJACENT DUPLICATES FROM it_bseg1 COMPARING bukrs belnr gjahr.SELECT * FROM bkpf INTO TABLE it_bkpfFOR ALL ENTRIES IN it_bseg1WHERE bukrs = it_bseg1-bukrsAND belnr = it_bseg1-belnrAND gjahr = it_bseg1-gjahr.IF sy-subrc = 0.SORT it_bkpf BY bukrs belnr gjahr.ENDIF.SELECT * FROM skb1 INTO TABLE it_skb1                     "DB020211WHERE bukrs IN s_bukrs.                         "DB020211
*
*   describe table it_skb1 lines l_lines_1.                 "DB020211
*   write:/ 'Number of gl accounts in company codes','is', l_lines_1.*C--Loop on BSEG and get values from SKB1 to update BSEGLOOP AT it_bseg.AT NEW bukrs.count = 0.NEW-PAGE.WRITE:/'Lines items to be updated in BSEG in company code',it_bseg-bukrs, ':'.SKIP 1.FORMAT COLOR 1 ON.WRITE:/(6) 'BUKRS',(10) 'BELNR',(5) 'Year',(5) 'BUZEI',(10) 'Account',(11) 'SBK1-XLGCLR',(20) 'COMMENT'.FORMAT COLOR OFF.ENDAT.* begin of DB020211: SKB1-check needs to be done for ALL accountsREAD TABLE it_skb1 WITHKEY bukrs = it_bseg-bukrssaknr = it_bseg-hkont.*begin of SKJ040912 : XLGCLR should be set based on the value in SKB1IF sy-subrc = 0.letter = it_skb1-xlgclr.
*end of SKJ040912*      IF letter = '/'.
* DB140111: change SKB1-XLGCLR in DB
*      WRITE:/ 'Please implement the note 1323960 immediately' COLOR 6.
*        EXIT.
*       IF update = 'X'.
*          CLEAR it_skb1-xlgclr.
*          UPDATE skb1
*          SET xlgclr = it_skb1-xlgclr
*            WHERE bukrs = it_skb1-bukrs
*            AND   saknr = it_skb1-saknr.
*        ENDIF.
* end of DB140111
*      ENDIF.
* end of DB020211WRITE:/(6) it_bseg-bukrs,(10) it_bseg-belnr,(5) it_bseg-gjahr,(5) it_bseg-buzei,(10) it_skb1-saknr,(11) letter.IF update = 'X'.UPDATE bseg SET: xlgclr = letterWHERE belnr = it_bseg-belnrAND bukrs = it_bseg-bukrsAND gjahr = it_bseg-gjahrAND buzei = it_bseg-buzei.IF sy-subrc = 0.PERFORM insert_index USING it_bseg.ENDIF.ENDIF.count = count + 1.* begin of SKJ040912ENDIF.
* end of SKJ040912AT END OF bukrs.SKIP 1.IF update = 'X'.WRITE:/ 'The number of lines updated in BSEG are:',count COLOR 3.ELSE.WRITE:/ 'The number of lines that will','be updated in BSEG are:', count COLOR 3.ENDIF.ENDAT.ENDLOOP.ELSE.                                                       "SKJ020910WRITE:/ 'No error documents found and no corrections','required for the given selection criteria'."SKJ020910ENDIF.                                                      "SKJ020910*&---------------------------------------------------------------------*
*&      Form  INSERT_INDEX
*&---------------------------------------------------------------------*
*       To insert the secondary index table entries
*----------------------------------------------------------------------*
*  -->  LS_BSEG   BSEG  processing BSEG table entry
*----------------------------------------------------------------------*
FORM insert_index USING ls_bseg TYPE bseg.DATA:    ls_bsis TYPE bsis.DATA:    ls_bsis_check TYPE bsis.                         "DB160610CLEAR:it_bkpf.READ TABLE it_bkpf WITH KEYbukrs = ls_bseg-bukrsbelnr = ls_bseg-belnrgjahr = ls_bseg-gjahr BINARY SEARCH.IF sy-subrc = 0.CASE ls_bseg-koart.WHEN 'K' OR 'D'.IF ls_bseg-augbl EQ space.
*C--Insert corresponding recon accountCHECK ( ls_bseg-xlgclr EQ ' ') .MOVE-CORRESPONDING it_bkpf TO ls_bsis.MOVE-CORRESPONDING ls_bseg TO ls_bsis.ls_bsis-zuonr = ls_bseg-hzuon.
*begin of SKJ040912 : updation of missing fieldsls_bsis-fkber = ls_bseg-fkber_long.CLEAR ls_bsis-xopvw.
*end of SKJ040912INSERT bsis FROM ls_bsis.IF sy-subrc EQ 0.WRITE: 'BSIS inserted' COLOR 5.ENDIF.ELSE.
*C--Insert corresponding recon accountCHECK ls_bseg-xhres EQ 'X'.MOVE-CORRESPONDING it_bkpf TO ls_bsis.MOVE-CORRESPONDING ls_bseg TO ls_bsis.ls_bsis-zuonr = ls_bseg-hzuon.
*begin of SKJ040912 : updation of missing fieldsls_bsis-fkber = ls_bseg-fkber_long.CLEAR ls_bsis-xopvw.
*end of SKJ040912INSERT bsas FROM ls_bsis.IF sy-subrc EQ 0.WRITE: 'BSAS inserted' COLOR 5.ENDIF.
*Check for existing BSIS if BSEG is cleared                 "DB160610SELECT SINGLE * FROM bsis INTO ls_bsis_check      "DB160610WHERE bukrs EQ ls_bsis-bukrs AND                  "DB160610hkont EQ ls_bsis-hkont AND                  "DB160610gjahr EQ ls_bsis-gjahr AND                  "DB160610belnr EQ ls_bsis-belnr AND                  "DB160610buzei EQ ls_bsis-buzei.                     "DB160610
*Delete BSIS                                                "DB160610IF sy-subrc = 0.                                  "DB160610DELETE bsis FROM ls_bsis_check.                 "DB160610IF sy-subrc EQ 0.                               "DB160610WRITE: 'DEL BSIS' COLOR 5.                    "DB160610ENDIF.                                          "DB160610ENDIF.                                            "DB160610ENDIF.WHEN 'S'.CHECK ls_bseg-xkres EQ 'X'.IF ls_bseg-augbl EQ space.MOVE-CORRESPONDING it_bkpf TO ls_bsis.MOVE-CORRESPONDING ls_bseg TO ls_bsis.
*begin of SKJ040912 : updation of missing fieldsls_bsis-fkber = ls_bseg-fkber_long.
*end of SKJ040912INSERT bsis FROM ls_bsis.IF sy-subrc EQ 0.WRITE: 'BSIS inserted' COLOR 5.ENDIF.ELSE.MOVE-CORRESPONDING it_bkpf TO ls_bsis.MOVE-CORRESPONDING ls_bseg TO ls_bsis.
*begin of SKJ040912 : updation of missing fieldsls_bsis-fkber = ls_bseg-fkber_long.
*end of SKJ040912INSERT bsas FROM ls_bsis.IF sy-subrc EQ 0.WRITE: 'BSAS inserted' COLOR 5.ENDIF.
*Check for existing BSIS if BSEG is cleared                 "DB160610SELECT SINGLE * FROM bsis INTO ls_bsis_check      "DB160610WHERE bukrs EQ ls_bsis-bukrs AND                  "DB160610hkont EQ ls_bsis-hkont AND                  "DB160610gjahr EQ ls_bsis-gjahr AND                  "DB160610belnr EQ ls_bsis-belnr AND                  "DB160610buzei EQ ls_bsis-buzei.                     "DB160610
*Delete BSIS                                                "DB160610IF sy-subrc = 0.                                  "DB160610DELETE bsis FROM ls_bsis_check.                 "DB160610IF sy-subrc EQ 0.                               "DB160610WRITE: 'DEL BSIS' COLOR 5.                    "DB160610ENDIF.                                          "DB160610ENDIF.                                            "DB160610ENDIF.*      WHEN 'M' OR 'A'.WHEN 'M'.                                             "SKJ220910CHECK ls_bseg-xkres EQ 'X'.MOVE-CORRESPONDING it_bkpf TO ls_bsis.MOVE-CORRESPONDING ls_bseg TO ls_bsis.
*begin of SKJ040912 : updation of missing fieldsls_bsis-fkber = ls_bseg-fkber_long.
*end of SKJ040912INSERT bsis FROM ls_bsis.IF sy-subrc EQ 0.WRITE: 'BSIS inserted' COLOR 5.ENDIF.WHEN 'A'.                                             "SKJ220910CHECK ls_bseg-xhres EQ 'X'.                         "SKJ220910MOVE-CORRESPONDING it_bkpf TO ls_bsis.              "SKJ220910MOVE-CORRESPONDING ls_bseg TO ls_bsis.              "SKJ220910ls_bsis-zuonr = ls_bseg-hzuon.
*begin of SKJ040912 : updation of missing fieldsls_bsis-fkber = ls_bseg-fkber_long.
*end of SKJ040912INSERT bsis FROM ls_bsis.                           "SKJ220910IF sy-subrc EQ 0.                                   "SKJ220910WRITE: 'BSIS inserted' COLOR 5.                   "SKJ220910ENDIF.                                              "SKJ220910WHEN OTHERS.ENDCASE.ENDIF.    "  IF SY-SUBRC = 0.
ENDFORM.                    " INSERT_INDEX*&---------------------------------------------------------------------*
*&      Form  UPDATE_SKB1
*&---------------------------------------------------------------------*
FORM update_skb1 .DATA: lt_skb1 TYPE TABLE OF skb1 WITH HEADER LINE.REFRESH lt_skb1.SELECT * FROM skb1 INTO TABLE lt_skb1WHERE bukrs IN s_bukrsAND   xlgclr = '/'.CHECK sy-subrc = 0.SKIP 2.WRITE:/ 'Affected GL account master entries to be changed:'.SKIP.FORMAT COLOR 1.WRITE:/(5) 'BUKRS',(10) 'SAKNR',(6) 'XLGCLR',(20) 'COMMENT'.FORMAT COLOR OFF.LOOP AT lt_skb1.WRITE:/(5) lt_skb1-bukrs,(10) lt_skb1-saknr,(6) lt_skb1-xlgclr.IF update = 'X'.CLEAR lt_skb1-xlgclr.UPDATE skb1SET xlgclr = lt_skb1-xlgclrWHERE bukrs = lt_skb1-bukrsAND   saknr = lt_skb1-saknr.IF sy-subrc = 0.WRITE: 'updated' COLOR 5.ENDIF.ENDIF.ENDLOOP.SKIP.NEW-LINE.ULINE (80).SKIP 2.ENDFORM.                    " UPDATE_SKB1

SAP FICO error 行项目无法显示（没有选择行项目）相关推荐

firebase 发生消息_如何在命令行提示符下显示当前的Firebase项目名称，以防止发生危险错误...
firebase 发生消息 by Thang Minh Vu Thang Minh Vu 如何在命令行提示符下显示当前的Firebase项目名称,以防止发生危险错误 (How to show your ...
css如何实现让div中的多行文字居中显示
标题css如何实现让div中的多行文字居中显示最近在做项目的时候遇到一个div中有多行文字(可能一行也可能多行)需要实现居中显示,试了好多方法都不行,显然不能使用padding来居中,因为文字有多少 ...
linux查看最后几行命令,linux查看文件的后几行(文件查看如何显示最后几行，某几行)...
效果图 tail -n 20 filename 说明:显示filename最后20行. Linux下tail命令的使用方法 linux tail命令用途是依照要求将指定的文件的最后部分输出到标准设备, ...
需求：过滤下面这个网页里共723行校对中里行数为两位数的行并设置sz和rz在Windows和Linux之间发送和接收文件不用搭FTP...
需求:过滤下面这个网页里共723行校对中里行数为两位数的行并设置sz和rz在Windows和Linux之间发送和接收文件不用搭FTP 需求:过滤下面这个网页里共723行校对中里行数为两位数 ...
IntelliJ IDEA中打开项目时用 Import Project（导入项目）和 Open（打开项目）的区别
文章目录创建测试目录使用 Open 方式打开用 Import Project 方式打开用 Open 方式打开文件夹下的多个项目用 Import Project 的方式打开多个项目总结对于 ...
Java面试重点项目推荐，吃透15个项目五个offer拿到手软轻松应对2022春招
项目名称:JeeSite 项目所用技术栈:Spring.Spring MVC.MyBatis.Apache Shiro.Bootstrap UI等项目简介:JeeSite 是一个 Java EE 企 ...
SAP中总账科目行项目不显示的处理方法
如下图,查询总账科目行项目是财务常规操作.某科目在事务FBL3N中提示不可能显示行项目在SAP社区查找了一下资料,提取一段相关问题的描述如下: A precondition for using th ...
【FICO系列】SAP FICO 凭证错误：BKPFF$PRDCLN800在FI中达到的项目最大编号
公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[FICO系列]SAP FICO 凭证错误:BK ...
SAP FICO AS03显示固定资产主数据
SAP FICO AS03显示固定资产主数据执行事务代码AS03, 进入如下界面, 输入固定资产号,公司代码,回车, Class:1901 Account Determination:1901. C ...

SAP FICO error 行项目无法显示（没有选择行项目）

SAP FICO error 行项目无法显示（没有选择行项目）相关推荐

最新文章

热门文章