vl02n 发货过账 增强

ruishihuihui

在过账的时候，如何获得序列号呢？

hkr26

ruishihuihui 发表于 2016-7-22 09:49
在过账的时候，如何获得VL02N中的序列号呢？

序列号是什么鬼？

ruishihuihui

hkr26 发表于 2016-7-22 15:17
序列号是什么鬼？

交货单上的SN号

hkr26

ruishihuihui 发表于 2016-7-22 17:11
交货单上的SN号

搞不懂，交货单号？截图看看

ruishihuihui

hkr26 发表于 2016-7-25 08:43
搞不懂，交货单号？截图看看

就是这里的序列号，在交货单过账的时候，如何取到；不能直接从SER01中直接取，因为这个表存的是过账前的数，可能在过账时修改了，修改之后会修改这个表；

hkr26

ruishihuihui 发表于 2016-7-25 10:17
就是这里的序列号，在交货单过账的时候，如何取到；不能直接从SER01中直接取，因为这个表存的是过账前的 ...

哦，我们这边没有配置这个序列号，所以不清楚~不过应该也可以在这里取出数据然后添加一个message直接显示出来~或者弄个报表取过账之后的序列号数据，取这个LETZNR字段的最大值应该也行~具体要看数据

增强SE38-MV50AFZ1-USEREXIT_SAVE_DOCUMENT_PREPARE

IF  sy-tcode = 'VL02N'.   "事务代码
IF sy-ucomm = 'WABU_T'.  "点过账按钮
*代码*
endif.
endif.

ruishihuihui

hkr26 发表于 2016-7-25 11:02
哦，我们这边没有配置这个序列号，所以不清楚~不过应该也可以在这里取出数据然后添加一个message直接显示 ...

谢谢啦，不过可能我没说清楚我的意思；；我是想知道，如何在交货单点过账的时候，取到这个交货单的序列号的信息，我要通过序列号进行一些校验；我现在的问题是，取不到这个信息，等取到了，交货单已经过账完了；

xiao472613694

ruishihuihui 发表于 2016-7-25 11:51
谢谢啦，不过可能我没说清楚我的意思；；我是想知道，如何在交货单点过账的时候，取到这个交货单的序列号 ...

给段代码你参考下

1.   ls_keydata-taser = 'SER01'.
   
2.   ls_keydata-lief_nr = likp-vbeln.
   
3.   APPEND ls_keydata TO lt_keydata.
   
4. 
   
5. if ls_keydata is NOT INITIAL .
   
6.   CALL FUNCTION 'GET_SERNOS_OF_DOCUMENT'
   
7.     EXPORTING
   
8.       key_data   = ls_keydata
   
9.       equnr_corr = 'X'
   
10.     TABLES
    
11.       sernos     = lt_sernos
    
12.   .
    
13. if sy-subrc eq 0 .
    
14.   LOOP AT lt_sernos INTO ls_sernos .
    
15.     ls_sernr-matnr = ls_sernos-matnr.
    
16.     ls_sernr-sernr = ls_sernos-sernr.
    
17.     ls_sernr-equnr = ls_sernos-equnr.
    
18.     APPEND ls_sernr to lt_sernr .
    
19.     CLEAR ls_sernr.
    
20.   ENDLOOP.
    
21. endif.

复制代码

ruishihuihui

xiao472613694 发表于 2016-8-1 15:54
给段代码你参考下

非常感谢！

ronsn_lee

好厉害，学习了。