ABAP:RV_CONDITION_COPY、VK11/VK12创建/修改销售价格注意点-----------血泪

”VK11/VK12创建/修改销售价格

  "默认值
  ts_input-kschl = 'YA01'."定价类型	YA01
  ts_input-konwa = 'CNY'."单位（货币单位）  固定值【CNY】
  ts_input-kpein = '1'."单位（数量）  固定值【1】
  ts_input-kmein = 'PCS'."单位（基本计量单位）  固定值【PCS】
  ts_input-prodh = ls_xfdata-prdha."产品层次
  ts_input-kbetr = ls_xfdata-xfnetpr ."现返金额

  "检查创建还是修改
  SELECT SINGLE *
  INTO @DATA(ls_a808)
  FROM a808  AS a INNER JOIN konp  AS b ON a~knumh = b~knumh
  WHERE a~kappl = 'V'
    AND a~kunnr = @ts_input-kunnr
    AND vkorg = @ts_input-vkorg
    AND prodh = @ts_input-prodh
    AND datbi = @ts_input-datbi
    AND datab = @ts_input-datab
    AND a~kschl = @ts_input-kschl
    AND b~loevm_ko = '' .
  IF sy-subrc = 0 .
    lv_mode = 'B' . " 修改
  ELSE.
    lv_mode  = 'A'.  "创建
  ENDIF.

  " B