SAP MG174 无法传输税务数据

gavin_gxh

已于 2024-08-06 09:58:19 修改

阅读量366

点赞数 7

分类专栏： SAP PP 文章标签：经验分享其他

于 2024-07-22 15:55:17 首次发布

gavin-gxh

本文链接：https://blog.csdn.net/xiaofei2008gxh/article/details/140609230

版权

SAP 同时被 2 个专栏收录

155 篇文章 15 订阅

订阅专栏

51 篇文章 2 订阅

订阅专栏

传入的参数 MPTAB[] 没有 MLAN数据

在function MATERIAL_TABLES_NEW 中

115行 PERFORM TABELLEN_ZUM_AKTVSTATUS USING P_AKTVSTATUS.

读取T130P



  CALL FUNCTION 'T130P_ARRAY_READ_PSTAT_STRING'
    EXPORTING
      pstat  = p_aktvstatus
    TABLES
      tt130p = tt130p.
  LOOP AT tt130p.
    MOVE tt130p-tbnam TO pftb-tbnam.
    COLLECT pftb.
  ENDLOOP.

  SORT pftb.

120行 PERFORM TABELLEN_REDUZIEREN_ZU_KEYS USING HERKUNFT.

FORM tabellen_reduzieren_zu_keys USING p_herkunft LIKE t130r-tbher.


  DATA: BEGIN OF tt130r OCCURS 10.
          INCLUDE STRUCTURE t130r.
  DATA: END OF tt130r.

  CALL FUNCTION 'T130R_ARRAY_READ_PTAB'
    EXPORTING
      herkunft = p_herkunft
    TABLES
      tt130r   = tt130r          "Output-Parameter
      mtab     = pftb.           "Input-Parameter
  LOOP AT tt130r.
    IF tt130r-tbnam NE t_mlan.
      IF NOT tt130r-fname IS INITIAL.
        ASSIGN TABLE FIELD (tt130r-fname) TO <f>.
        IF <f> IS INITIAL.
          READ TABLE pftb WITH KEY tt130r-tbnam BINARY SEARCH.
          IF sy-subrc EQ 0.
            DELETE pftb INDEX sy-tabix.
          ENDIF.
        ENDIF.
      ENDIF.
    ELSE.
* Sonderlogik für MLAN, da ab 3.0 auch für Einkauf vorgesehen:
* Key Organisationsebene Verkauf oder Einkauf muß gesetzt sein !
* (del) IF RMMG1-VKORG IS INITIAL.
*{   INSERT         DEVK907788                                        1
     if  rmmg1 is INITIAL.
       move IRMMG1 to rmmg1.
     endif.
*}   INSERT
      IF rmmg1-vkorg IS INITIAL AND rmmg1-werks IS INITIAL.
        READ TABLE pftb WITH KEY tt130r-tbnam.
        IF sy-subrc EQ 0.
          DELETE pftb INDEX sy-tabix.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDLOOP.

ENDFORM.                               " TABELLEN_REDUZIEREN_ZU_KEYS

如果 vkorg 是初始值或者 werks是初始值，则不要MLAN那个数据