提问

[MM] SAP 寄售发票 修改开票金额 差生差异凭证 MRKO 增强

2021-06-08 00:05发布

站内文章 / MM
1543 0 0


          点击此处--->   EasySAP.com 群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

http://www.itpub.net/thread-2091351-1-1.html


注意事项写在前面:
1.我做的这个增强有bug,比如:
  a.价格改成 100  MRKO 开票
  b.冲销411K 形成412K
  c.价格改成200 对412K凭证 做MRKO 开冲销发票
  这时正向发票与反向发票就不平了.
  这里可以修改下代码:412K的凭证取对应411K的凭证的金额进行反向会计凭证生成.
  由于最近比较忙,还没有做调整,财务凭证看起来就头疼.

2.寄售物料凭证冲销时是实时取的表[RKWA] 里面的金额,出口的地方不还原为411K凭证金额的话,去看412K对应的会计凭证会有惊喜.
  说人话就是造成 411K 与 412K 的会计凭证不平

3.如果当月差异过大,进行平均分摊会造成成本失真,所以有必要让财务每月关注差异,并进行分摊操作.



SAP 寄售发票 正常流程说明:1.创建寄售采购订单:ME21N 订单上无价格
2.寄售转自有:MIGO 411K (需要寄售采购信息记录)
3.MRKO 对411K收货凭证,按照凭证收货金额形成会计凭证
4.如果寄售发票开错,需要冲销则需要MIGO: 取消对应411K凭证
5.MRKO 对冲销的412K凭证形成会计凭证
业务需求:
    1.要求供应商送大量物资到生产现场,并要求不占用库存资金.
    2.物资价格波动很大,客户不愿意每日维护寄售采购价格
    3.每月会与供应商协商一个开票价格,对使用的原料进行开票处理

系统需求点:
    1.MRKO开票时可以按照最新金额进行开票
    2.开票可冲销,修改金额重新开
难点:
    1.形成的差异不能进入物料分类账,只能进入主营业务成本.

实现过程:
1.创建自建表 [ZTMM_JSJG 寄售价格]


2.对MRKO做增强  
  a.增强查询显示:效果是,在MRKO选择显示进行查询时,总金额为 [凭证数量 * 自定义表单价]
     SE38 输入程序:RMVKON00
    在  FORM rkwa_partitionieren TABLES it_rkwa  TYPE typ_tab_rkwa it_block TYPE typ_tab_block.
我的SAP版本是:461行
    开始的位置增加显示增强

  1. FORM rkwa_partitionieren TABLES it_rkwa  TYPE typ_tab_rkwa

  2.                                 it_block TYPE typ_tab_block.

  3. """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form RKWA_PARTITIONIEREN, Start                                                                                                                   A

  4. *$*$-Start: (1)---------------------------------------------------------------------------------$*$*

  5. ENHANCEMENT 1  ZEMM_RMVKON00.    "active version

  6. * MRKO 增强,在结算时,使用配置表中价格 替换物料移动凭证金额


  8. DATA: lt_ztmm_jsjg TYPE STANDARD TABLE OF ztmm_jsjg INITIAL SIZE 0 WITH HEADER LINE,

  9.       lv_date      TYPE datum.


  11. FIELD-SYMBOLS: <fs_rkwa> TYPE rkwa.


  13. lv_date = sy-datum.


  15. LOOP AT it_rkwa ASSIGNING <fs_rkwa>  .


  17.   REFRESH: lt_ztmm_jsjg.


  19.   SELECT * INTO TABLE lt_ztmm_jsjg

  20.                  FROM ztmm_jsjg

  21.                 WHERE matnr EQ <fs_rkwa>-matnr

  22.                   AND lifnr EQ <fs_rkwa>-lifnr

  23.                   AND werks EQ <fs_rkwa>-werks

  24.                   AND datbi GE lv_date.


  26.   IF sy-subrc EQ 0.


  28.     SORT lt_ztmm_jsjg BY datab DESCENDING.


  30.     LOOP AT lt_ztmm_jsjg WHERE datab LE lv_date.


  32.       <fs_rkwa>-wrbtr = <fs_rkwa>-bstmg * lt_ztmm_jsjg-netpr.


  34.       EXIT.


  36.     ENDLOOP.


  38.   ENDIF.


  40. ENDLOOP.


  42. ENDENHANCEMENT.

  43. *$*$-End:   (1)---------------------------------------------------------------------------------$*$*

复制代码

b.增强凭证生成:效果是 物料凭证金额完全抵扣,同时将产生的差异写入主营业务成本科目中.并记录物料号,凭证号,供应商号,以便财务手工分摊差异
   SMOD  -->  RMVKON00  -->  EXIT_RMVKON00_001



  3. IF sy-tcode = 'MRKO'.

  4.   CLEAR sdmbtr.

  5.   sbuzei = lines( t_bseg ).

  6. *获取调整前 RKWA的值

  7.   SELECT * INTO CORRESPONDING FIELDS OF TABLE tm_rkwa FROM rkwa FOR ALL ENTRIES IN t_rkwa

  8.     WHERE mblnr = t_rkwa-mblnr

  9.       AND mjahr = t_rkwa-mjahr

  10.       AND zeile = t_rkwa-zeile.


  12.   LOOP AT tm_rkwa.

  13.     CLEAR:szuonr,t_bseg,sdmbtr,t_rkwa.

  14. *读取内存表 t_rkwa 将显示值修改回凭证金额 否则冲销物料凭证时,将取该数量

  15.     READ TABLE t_rkwa WITH KEY mblnr = tm_rkwa-mblnr mjahr = tm_rkwa-mjahr zeile = tm_rkwa-zeile.

  16.     IF sy-subrc = 0 AND t_rkwa-wrbtr <> tm_rkwa-wrbtr.

  17.       "将rkwa 数量改回原值

  18.       t_rkwa-wrbtr = tm_rkwa-wrbtr.

  19.       MODIFY t_rkwa TRANSPORTING wrbtr

  20.       WHERE mblnr = tm_rkwa-mblnr

  21.         AND mjahr = tm_rkwa-mjahr

  22.         AND zeile = tm_rkwa-zeile.


  24.       CONCATENATE tm_rkwa-mblnr tm_rkwa-mjahr INTO szuonr.

  25.       READ TABLE t_bseg WITH KEY zuonr = szuonr.

  26.       IF sy-subrc = 0.

  27.         CASE tm_rkwa-shkzg.

  28.           WHEN 'H'."正向

  29.             sdmbtr = tm_rkwa-wrbtr - t_bseg-wrbtr .

  30.             t_bseg-wrbtr = tm_rkwa-wrbtr.

  31.             t_bseg-txbfw = tm_rkwa-wrbtr.

  32.             t_bseg-rewwr = tm_rkwa-wrbtr.

  33.             IF   sdmbtr < 0  . "负: 50 H  正:40 S

  34.               MODIFY t_bseg TRANSPORTING  wrbtr txbfw rewwr

  35.                   WHERE bukrs = t_bseg-bukrs

  36.                     AND belnr = t_bseg-belnr

  37.                     AND gjahr = t_bseg-gjahr

  38.                     AND buzei = t_bseg-buzei.

  39.               t_bseg-buzid = 'P'.

  40.               t_bseg-bschl = '40'.

  41.               t_bseg-shkzg = 'S'.

  42.               t_bseg-dmbtr = 0 - sdmbtr.

  43.               t_bseg-wrbtr = 0 - sdmbtr.

  44.               t_bseg-pswbt = 0 - sdmbtr.

  45.               t_bseg-txbfw = '0'.

  46.               t_bseg-ktosl = ''.

  47.               CONCATENATE  'MRKO差异结转 ' szuonr INTO  t_bseg-sgtxt  .

  48.               t_bseg-vorgn = 'RFBU'.

  49.               t_bseg-saknr = '6401990000'.

  50.               t_bseg-hkont = '6401990000'.

  51.               t_bseg-lifnr = tm_rkwa-lifnr.

  52.               t_bseg-bustw = ''.

  53.               t_bseg-rewwr = '0'.

  54.               sbuzei = sbuzei + 1 .

  55.               t_bseg-buzei = sbuzei.

  56.               APPEND t_bseg.

  57.             ENDIF.

  58.             IF   sdmbtr > 0   . "负: 50 H  正:40 S

  59.               MODIFY t_bseg TRANSPORTING  wrbtr txbfw rewwr

  60.                   WHERE bukrs = t_bseg-bukrs

  61.                     AND belnr = t_bseg-belnr

  62.                     AND gjahr = t_bseg-gjahr

  63.                     AND buzei = t_bseg-buzei.

  64.               t_bseg-buzid = 'P'.

  65.               t_bseg-bschl = '50'.

  66.               t_bseg-shkzg = 'H'.

  67.               t_bseg-dmbtr =   sdmbtr.

  68.               t_bseg-wrbtr =  sdmbtr.

  69.               t_bseg-pswbt =  sdmbtr.

  70.               t_bseg-txbfw = '0'.

  71.               t_bseg-ktosl = ''.

  72.               CONCATENATE  'MRKO差异结转 ' szuonr INTO  t_bseg-sgtxt  .

  73.               t_bseg-vorgn = 'RFBU'.

  74.               t_bseg-saknr = '6401990000'.

  75.               t_bseg-hkont = '6401990000'.

  76.               t_bseg-lifnr = tm_rkwa-lifnr.

  77.               t_bseg-bustw = ''.

  78.               t_bseg-rewwr = '0'.

  79.               sbuzei = sbuzei + 1 .

  80.               t_bseg-buzei = sbuzei.

  81.               APPEND t_bseg.

  82.             ENDIF.

  83.           WHEN 'S'."逆向

  84.             sdmbtr =  tm_rkwa-wrbtr - t_bseg-wrbtr.

  85.             t_bseg-wrbtr = tm_rkwa-wrbtr.

  86.             t_bseg-txbfw = tm_rkwa-wrbtr.

  87.             t_bseg-rewwr = tm_rkwa-wrbtr.

  88.             IF   sdmbtr > 0  . "负: 50 H  正:40 S

  89.               MODIFY t_bseg TRANSPORTING  wrbtr txbfw rewwr

  90.                   WHERE bukrs = t_bseg-bukrs

  91.                     AND belnr = t_bseg-belnr

  92.                     AND gjahr = t_bseg-gjahr

  93.                     AND buzei = t_bseg-buzei.

  94.               t_bseg-buzid = 'P'.

  95.               t_bseg-bschl = '40'.

  96.               t_bseg-shkzg = 'S'.

  97.               t_bseg-dmbtr = sdmbtr.

  98.               t_bseg-wrbtr = sdmbtr.

  99.               t_bseg-pswbt = sdmbtr.

  100.               t_bseg-txbfw = '0'.

  101.               t_bseg-ktosl = ''.

  102.               CONCATENATE  'MRKO差异结转 ' szuonr INTO  t_bseg-sgtxt  .

  103.               t_bseg-vorgn = 'RFBU'.

  104.               t_bseg-saknr = '6401990000'.

  105.               t_bseg-hkont = '6401990000'.

  106.               t_bseg-lifnr = tm_rkwa-lifnr.

  107.               t_bseg-bustw = ''.

  108.               t_bseg-rewwr = '0'.

  109.               sbuzei = sbuzei + 1 .

  110.               t_bseg-buzei = sbuzei.

  111.               APPEND t_bseg.

  112.             ENDIF.

  113.             IF   sdmbtr < 0   . "负: 50 H  正:40 S

  114.               MODIFY t_bseg TRANSPORTING  wrbtr txbfw rewwr

  115.                   WHERE bukrs = t_bseg-bukrs

  116.                     AND belnr = t_bseg-belnr

  117.                     AND gjahr = t_bseg-gjahr

  118.                     AND buzei = t_bseg-buzei.

  119.               t_bseg-buzid = 'P'.

  120.               t_bseg-bschl = '50'.

  121.               t_bseg-shkzg = 'H'.

  122.               t_bseg-dmbtr = 0 - sdmbtr.

  123.               t_bseg-wrbtr = 0 - sdmbtr.

  124.               t_bseg-pswbt = 0 - sdmbtr.

  125.               t_bseg-txbfw = '0'.

  126.               t_bseg-ktosl = ''.

  127.               CONCATENATE  'MRKO差异结转 ' szuonr INTO  t_bseg-sgtxt  .

  128.               t_bseg-vorgn = 'RFBU'.

  129.               t_bseg-saknr = '6401990000'.

  130.               t_bseg-hkont = '6401990000'.

  131.               t_bseg-lifnr = tm_rkwa-lifnr.

  132.               t_bseg-bustw = ''.

  133.               t_bseg-rewwr = '0'.

  134.               sbuzei = sbuzei + 1 .

  135.               t_bseg-buzei = sbuzei.

  136.               APPEND t_bseg.

  137.             ENDIF.

  138.         ENDCASE.

  139.       ENDIF.

  140.     ENDIF.


  142.   ENDLOOP.

  143. ENDIF.

复制代码

c.退出前,将显示的内容改回物料凭证金额,否则冲销的时候,形成的会计凭证,会根据新的金额进行,会导致会计凭证不平.
SE38 --> RMVKON00  --> FORM user_exit001_aufrufen TABLES it_bkpf TYPE typ_tab_bkpf
我的SAP版本是:1687行
  在结束的位置写入显示增强

  1. FORM user_exit001_aufrufen TABLES it_bkpf TYPE typ_tab_bkpf

  2.                                   it_bseg TYPE typ_tab_bseg

  3.                                   it_bset TYPE typ_tab_bset

  4.                                   it_rkwa TYPE typ_tab_rkwa

  5.                             USING bukrs    LIKE bkpf-bukrs

  6.                                   lifnr    LIKE bseg-lifnr

  7.                          CHANGING x_fehler TYPE c

  8.                                   s_msg    TYPE typ_msg

  9.                                   e_gjahr  TYPE gjahr

  10.                                   e_monat  TYPE monat.


  12.   DATA: tab_bset TYPE typ_tab_bset,

  13.         tab_rkwa TYPE typ_tab_rkwa.

  14.   DATA: f_gjahr TYPE gjahr,

  15.         f_monat TYPE monat.


  17.   DATA: s_bseg TYPE bseg, s_bkpf TYPE bkpf.


  19.   CLEAR: x_fehler,

  20.          tab_bset,

  21.          tab_rkwa.


  23.   tab_bset[] = it_bset[].

  24.   tab_rkwa[] = it_rkwa[].

  25.   DATA: s_bset TYPE bset.

  26.   DATA: f_bset_gjahr TYPE bset-gjahr.

  27.   IF NOT it_bset[] IS INITIAL.

  28.     READ TABLE it_bset INDEX 1 INTO s_bset.

  29.     f_bset_gjahr = s_bset-gjahr.

  30.   ENDIF.


  32.   sy-subrc = 0.

  33.   CALL CUSTOMER-FUNCTION '001'

  34.     EXPORTING

  35.       i_bukrs = bukrs

  36.       i_lifnr = lifnr

  37.     TABLES

  38.       t_bkpf  = it_bkpf

  39.       t_bseg  = it_bseg

  40.       t_bset  = tab_bset

  41.       t_rkwa  = tab_rkwa

  42.     EXCEPTIONS

  43.       error   = 1.


  45.   IF ( sy-subrc <> 0 ).

  46.     PERFORM msg_fuellen_sysvar CHANGING s_msg.

  47.     x_fehler = x.

  48.     EXIT.                              "---------->

  49.   ENDIF.


  51.   READ TABLE it_bkpf INTO s_bkpf INDEX 1.

  52.   IF sy-subrc = 0.

  53.     IF NOT s_bkpf-bukrs IS INITIAL.

  54.       CALL FUNCTION 'FI_PERIOD_DETERMINE'

  55.         EXPORTING

  56.           i_budat = s_bkpf-budat

  57.           i_bukrs = s_bkpf-bukrs

  58.           i_monat = s_bkpf-monat

  59.         IMPORTING

  60.           e_gjahr = f_gjahr

  61.           e_monat = f_monat.

  62.       IF f_gjahr = s_bkpf-gjahr AND f_monat = s_bkpf-monat.

  63.         e_gjahr = f_gjahr.

  64.         e_monat = f_monat.

  65.       ELSE.

  66.         CLEAR s_msg.

  67.         s_msg-msgid = c_msgid_m8.

  68.         s_msg-msgty = c_msgty_error.

  69.         s_msg-msgno = '008'.

  70.         s_msg-msgv1 = 'user_exit001_aufrufen'.

  71.         x_fehler = x.

  72.         EXIT.                            "---------->

  73.       ENDIF.


  75.       LOOP AT it_bseg INTO s_bseg WHERE gjahr <> s_bkpf-gjahr.

  76.       ENDLOOP.

  77.       IF sy-subrc = 0.

  78.         CLEAR s_msg.

  79.         s_msg-msgid = c_msgid_m8.

  80.         s_msg-msgty = c_msgty_error.

  81.         s_msg-msgno = '008'.

  82.         s_msg-msgv1 = 'user_exit001_aufrufen'.

  83.         x_fehler = x.

  84.         EXIT.

  85.       ENDIF.

  86.     ENDIF.

  87.   ELSE.

  88.     CLEAR s_msg.

  89.     s_msg-msgid = c_msgid_m8.

  90.     s_msg-msgty = c_msgty_error.

  91.     s_msg-msgno = '008'.

  92.     s_msg-msgv1 = 'user_exit001_aufrufen'.

  93.     x_fehler = x.

  94.     EXIT.

  95.   ENDIF.

  96.   IF NOT it_bset[] IS INITIAL.

  97.     IF s_bkpf-gjahr <> f_bset_gjahr.

  98.       LOOP AT it_bset INTO s_bset.

  99.         s_bset-gjahr = s_bkpf-gjahr.

  100.         MODIFY it_bset FROM s_bset.

  101.       ENDLOOP.

  102.     ENDIF.

  103.   ENDIF.


  105. """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(2) Form USER_EXIT001_AUFRUFEN, End                                                                                                                   A

  106. *$*$-Start: (2)---------------------------------------------------------------------------------$*$*

  107. ENHANCEMENT 2  ZEMM_RMVKON00.    "active version

  108. *

  109.   it_rkwa[] = tab_rkwa[].


  111. ENDENHANCEMENT.

  112. *$*$-End:   (2)---------------------------------------------------------------------------------$*$*

  113. ENDFORM.                    "user_exit001_aufrufen

复制代码

主要代码是:
ENHANCEMENT 2 ZEMM_RMVKON00. "active version
it_rkwa[] = tab_rkwa[].
ENDENHANCEMENT.

到这里全部增强做完了.
还是效果图:

赞赏支持