Enhancements CO11N

CONFPP05      PP order conf.: Customer specific enhancements when saving

Function exit                  EXIT_SAPLCORF_105

  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S52 { color: #0000FF; } include zxcofu15 .

  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style. italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } *&---------------------------------------------------------------------*
*&  Include           ZXCOFU15
*&---------------------------------------------------------------------*

*if sy-uname = 'SAP013'.
  if sy-tcode = 'CO11N'." and i_mseg-BWART = '101' .           "mb31
    tables:mseg,resb.
    data itab like afpo .
    data erfmg like mseg-erfmg.
    data erfmg1 like mseg-erfmg.
    data bdmng like resb-bdmng.
    data enmng like resb-enmng.
    data it_resb like resb occurs 0 with header line.
    data itab1 like resb occurs 0 with header line.
    select single * into itab from afpo where aufnr = caufvd_tab-aufnr.
    if sy-subrc = 0.
*
      clear erfmg.
      erfmg = itab-wemng + caufvd_tab-igmng.
      clear erfmg1.
      select * into table it_resb from resb where aufnr = caufvd_tab-aufnr and bdmng <> 0.
      itab1[] = it_resb[].
      sort itab1 by matnr.
      delete adjacent duplicates from itab1 comparing matnr.
      loop at itab1.
        clear bdmng.
        loop at it_resb where matnr = itab1-matnr.
*  select * from resb where aufnr = i_mseg-aufnr.
          bdmng = bdmng + it_resb-bdmng.
        endloop.
        clear enmng.
        if itab1-alpgr <> ''.
          select * from resb where aufnr = caufvd_tab-aufnr and alpgr = itab1-alpgr.
            enmng = enmng  + resb-enmng.
          endselect.
        else.
          loop at it_resb where matnr = itab1-matnr.
            enmng = enmng + it_resb-enmng.
          endloop.
        endif.
        if itab-psmng <> 0.
          erfmg1 = ( bdmng / itab-psmng ) * erfmg.
        endif.

        if enmng           message 'Confirmed quantity exceed issued component quantity' type 'E'.
        endif.

      endloop.
    endif.
  endif.
*endif.

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/166523/viewspace-418972/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/166523/viewspace-418972/