交货单

文章

交货单冲销函数WS_REVERSE_GOODS_ISSUE

使用函数WS_REVERSE_GOODS_ISSUE冲销交货单，有时候会冲销失败，如果冲销失败可人工VL09试一下。

form cx_dn  using gt_out type typ_out.

  data ls_emkpf type emkpf.
  data lt_mesg type standard table of mesg.

  select single wbstk,vbtyp into @data(l_likp)
    from likp
    where vbeln = @gt_out-le_vbeln.

  call function 'WS_REVERSE_GOODS_ISSUE'
    exporting
      i_vbeln                   = gt_out-le_vbeln
      i_budat                   = gt_out-budat
      i_vbtyp                   = l_likp-vbtyp
      i_tcode                   = 'VL09'
    importing
      es_emkpf                  = ls_emkpf
    tables
      t_mesg                    = lt_mesg
    exceptions
      error_reverse_goods_issue = 1
      others                    = 2.
  if sy-subrc <> 0.
    rollback work.
    message e000 with 'DN冲销失败'.
  else.
    commit work and wait.
    message s000 with 'DN冲销成功'.
  endif.

endform.

form cx_dn using gt_out type typ_out.

data ls_emkpf type emkpf.

data lt_mesg type standard table of mesg.

select single wbstk,vbtyp into @data(l_likp)

from likp

where vbeln = @gt_out-le_vbeln.

call function 'WS_REVERSE_GOODS_ISSUE'

exporting

i_vbeln = gt_out-le_vbeln

i_budat = gt_out-budat

i_vbtyp = l_likp-vbtyp

i_tcode = 'VL09'

importing

es_emkpf = ls_emkpf

tables

t_mesg = lt_mesg

exceptions

error_reverse_goods_issue = 1

others = 2.

if sy-subrc <> 0.

rollback work.

message e000 with 'DN冲销失败'.

else.

commit work and wait.

message s000 with 'DN冲销成功'.

endif.

endform.

…

2020.05.17

4.3K000

文章

SAP批量打印交货单

批量打印交货单事务代码：VL71处理模式：第一次打印选择“1”，否则选择“2”或者“3” VL70 is output from picking list, it only use…

ag
2018.05.23
5.6K000

文章

abap实现交货单中显示销售价格，销售订单取价格

abap取销售订单价格

TABLES: NAST,  
        TNAPR, 
        LIKP,
        KNA1,
        ADR2,
        VBAK,
        KONV. 

DATA LV_KNUMV TYPE VBAK-KNUMV.
  SELECT * FROM LIPS INTO CORRESPONDING FIELDS OF TABLE LT_LIPS WHERE VBELN = VBELN.
如果交货类型LIKP－LFART是NLCC，取LIPS－VGBEL，LIPS－VGPOS，根据这两个值取EKPO－NETPR
*否则，根据交货单取订单VBAP-CMPRE
    IF LW_LIKP-LFART = 'NLCC'.
      SELECT SINGLE * FROM EKPO INTO CORRESPONDING FIELDS OF LW_EKPO WHERE EBELN = LS_LIPS-VGBEL AND  EBELP = LS_LIPS-VGPOS.
      IF SY-SUBRC = 0.
        IF LW_LIPS-WERKS = 'HK00'.
          LS_ITEM-CMPRE = LW_EKPO-NETPR / LW_EKPO-PEINH.
        ELSEIF LW_LIPS-WERKS = '1100'.
          LS_ITEM-CMPRE = LW_EKPO-NETPR / LW_EKPO-PEINH * '1.17' .
          LS_ITEM-NETPR = LW_EKPO-NETPR.
          LS_ITEM-PEINH = LW_EKPO-PEINH.
          "ls_item-WAERS = lw_ekpo-WAERS.
        ELSEIF LW_LIPS-WERKS = '1200'.
          LS_ITEM-CMPRE = LW_EKPO-NETPR / LW_EKPO-PEINH * '1.17' .
          LS_ITEM-NETPR = LW_EKPO-NETPR.
          LS_ITEM-PEINH = LW_EKPO-PEINH.
          "ls_item-WAERS = lw_ekpo-WAERS.
        ENDIF.
      ENDIF.
    ELSE.
      SELECT SINGLE * FROM VBAP INTO CORRESPONDING FIELDS OF LW_VBAP WHERE VBELN = LS_LIPS-VGBEL AND  POSNR = LS_LIPS-VGPOS.
      IF SY-SUBRC = 0.
        IF LW_VBAP-CMPRE NE 0.
          LS_ITEM-CMPRE = LW_VBAP-CMPRE. "普通销售订单.
        ELSE.
          "寄售补货订单在VBAP中是没有价格、信贷额字段的值的，需要根据SO单独去取条件表.
          "vbak-knumv = konv-knumv.
          "function:KONV_ARRAY_READ.
          CLEAR:LV_KNUMV,LS_ITEM-CMPRE.
          SELECT SINGLE KNUMV INTO LV_KNUMV FROM VBAK WHERE VBELN = LS_LIPS-VGBEL.
          SELECT SINGLE KBETR INTO LS_ITEM-CMPRE FROM KONV WHERE KNUMV = LV_KNUMV AND  KPOSN = LS_LIPS-VGPOS.
        ENDIF.
      ENDIF.
    ENDIF.

TABLES: NAST,

TNAPR,

LIKP,

KNA1,

ADR2,

VBAK,

KONV.

DATA LV_KNUMV TYPE VBAK-KNUMV.

SELECT * FROM LIPS INTO CORRESPONDING FIELDS OF TABLE LT_LIPS WHERE VBELN = VBELN.

如果交货类型LIKP－LFART是NLCC，取LIPS－VGBEL，LIPS－VGPOS，根据这两个值取EKPO－NETPR

*否则，根据交货单取订单VBAP-CMPRE

IF LW_LIKP-LFART = 'NLCC'.

SELECT SINGLE * FROM EKPO INTO CORRESPONDING FIELDS OF LW_EKPO WHERE EBELN = LS_LIPS-VGBEL AND EBELP = LS_LIPS-VGPOS.

IF SY-SUBRC = 0.

IF LW_LIPS-WERKS = 'HK00'.

LS_ITEM-CMPRE = LW_EKPO-NETPR / LW_EKPO-PEINH.

ELSEIF LW_LIPS-WERKS = '1100'.

LS_ITEM-CMPRE = LW_EKPO-NETPR / LW_EKPO-PEINH * '1.17' .

LS_ITEM-NETPR = LW_EKPO-NETPR.

LS_ITEM-PEINH = LW_EKPO-PEINH.

"ls_item-WAERS = lw_ekpo-WAERS.

ELSEIF LW_LIPS-WERKS = '1200'.

LS_ITEM-CMPRE = LW_EKPO-NETPR / LW_EKPO-PEINH * '1.17' .

LS_ITEM-NETPR = LW_EKPO-NETPR.

LS_ITEM-PEINH = LW_EKPO-PEINH.

"ls_item-WAERS = lw_ekpo-WAERS.

ENDIF.

ELSE.

SELECT SINGLE * FROM VBAP INTO CORRESPONDING FIELDS OF LW_VBAP WHERE VBELN = LS_LIPS-VGBEL AND POSNR = LS_LIPS-VGPOS.

IF SY-SUBRC = 0.

IF LW_VBAP-CMPRE NE 0.

LS_ITEM-CMPRE = LW_VBAP-CMPRE. "普通销售订单.

ELSE.

"寄售补货订单在VBAP中是没有价格、信贷额字段的值的，需要根据SO单独去取条件表.

"vbak-knumv = konv-knumv.

"function:KONV_ARRAY_READ.

CLEAR:LV_KNUMV,LS_ITEM-CMPRE.

SELECT SINGLE KNUMV INTO LV_KNUMV FROM VBAK WHERE VBELN = LS_LIPS-VGBEL.

SELECT SINGLE KBETR INTO LS_ITEM-CMPRE FROM KONV WHERE KNUMV = LV_KNUMV AND KPOSN = LS_LIPS-VGPOS.

ENDIF.

2017.05.19

3.5K010

2 / 2
上一页
1
2

交货单

交货单冲销函数WS_REVERSE_GOODS_ISSUE

SAP批量打印交货单

abap实现交货单中显示销售价格，销售订单取价格