sap-abap-交货出口-交货单保存前设定所有行项发货仓位且过账前检查是否仓位一致

sap-abap-交货出口-交货单保存前设定所有行项发货仓位且过账前检查是否仓位一致

2011年10月25日 13:16:23 fangkailove 阅读数 5662更多

所属专栏： SAP

版权声明：转载请注明来源: http://blog.csdn.net/fangkailove https://blog.csdn.net/fangkailove/article/details/6903587

 开发要求：制作交货单的人员，需要同一张单的交货仓位保持一致，设计成在保存前将所有行都改为和第一行项的仓位一致。

在发货过时会检查如发现不一致，不于过账。

用户出口如下：

修改 Userexit_save_document_prepare 例程

 

代码如下：

1. *---------------------------------------------------------------------*

2. * FORM USEREXIT_SAVE_DOCUMENT_PREPARE *

3. *---------------------------------------------------------------------*

4. * This userexit can be used for changes or checks, before a *

5. * document is saved. *

6. * *

7. * If field T180-TRTYP contents 'H', the document will be *

8. * created, else it will be changed. *

9. * *

10. * This form is called at the beginning of form BELEG_SICHERN *

11. * *

12. *---------------------------------------------------------------------*

13. FORM userexit_save_document_prepare.

14.  

15. IF sy-uname = 'HS014'.

16. BREAK-POINT.

17. ENDIF.

18.  

19. "只处理对客户发货，公司间交易不处理.

20. IF ( tcode = 'VL02N' OR tcode = 'VL02' OR tcode = 'VL01N' OR tcode = 'VL01' ) and ( xlikp-VKORG = '1010' or xlikp-VKORG = '1020' ).

21.  

22. "DATA: XLIPS_C LIKE LIPSVB OCCURS 0 WITH HEADER LINE.

23. "DATA: I_LIPS LIKE LIPSVB OCCURS 0 WITH HEADER LINE.

24. data: c_lgort like xlips-lgort , i_idx type i,i_Cnt type i, msg type string.

25.  

26. IF sy-ucomm = 'WABU_T'. "过账 需要检查 如果有不同仓位，则报错.

27. c_lgort = ''.

28. i_idx = 0.

29. loop at xlips .

30. if i_idx = 0 . "取得第一行的库位

31. i_idx = i_idx + 1.

32. c_lgort = c_lgort = xlips-lgort.

33. endif.

34. if c_lgort <> xlips-lgort.

35. message '交货单内存在不同的交货仓位，请通知销售助理修改正确后再过账.' type 'E'.

36. endif.

37. clear xlips.

38. endloop.

39. endif.

40.  

41. IF sy-ucomm = 'SICH_T' or sy-ucomm = 'YES' . "如果是保存(或退出提示保存) ,则统一更新仓位.

42. c_lgort = ''.

43. i_idx = 0.

44. i_Cnt = 0.

45. loop at xlips .

46. if i_idx = 0 . "取得第一行的仓位

47. i_idx = i_idx + 1.

48. c_lgort = c_lgort = xlips-lgort.

49. if c_lgort = ''.

50. message '在保存交货单前请填写第一行项的交货仓位' type 'E'.

51. else.

52. concatenate '你在第一行项输入的仓是' c_lgort ',增强系统将按此仓位更新所有行项' into msg.

53. message msg type 'I'.

54. endif.

55. endif.

56.  

57. if c_lgort <> xlips-lgort.

58. "更新仓位

59. xlips-lgort = c_lgort.

60.  

61. "更新标识 U 表示该纪录被修改，需要更新,D表示删除,I表示新增

62. if xlips-updkz = ' '.

63. xlips-updkz = 'U'.

64. endif.

65. modify xlips.

66. i_Cnt = i_Cnt + 1.

67.  

68. endif.

69. clear xlips.

70. endloop.

71. if i_Cnt > 1.

72. msg = i_Cnt .

73. concatenate '更新了' msg '个行项的仓位' into msg.

74. message msg type 'I'.

75. endif.

76. endif.

77. ENDIF.

78. ENDFORM. "USEREXIT_SAVE_DOCUMENT_PREPARE

79.