SAP SD公司间开票时字段替代增强

 包含文件 LV60AA95隐士增强

*&--- 公司间开票系统默认取交货时间作为发票日期，改为取POD日期做为发票日期：当公司间开票时(创建状态，即vbrk-vbeln还未生成)，取POD日期做为开票日期
      IF vbrk-fktyp = 'I' AND vbrk-vbeln IS INITIAL .

        SELECT SINGLE podat FROM likp INTO @DATA(ls_podat) WHERE vbeln = @vbrp-vgbel.

        IF sy-subrc = 0  AND ls_podat IS NOT INITIAL.
          vbrk-fkdat = ls_podat.
        ENDIF.

      ENDIF.

*&--- 当公司间销售开票时，取凭证货币替代客户主数据货币做为公司间开票货币
      IF vbrk-fktyp  = 'I'.
        IF vbrp-aubel IS NOT INITIAL AND vbrp-auref = 'X'.

          SELECT SINGLE waers FROM ekko INTO @DATA(lv_waers) WHERE ebeln = @vbrp-aubel.

          IF sy-subrc = 0.

            IF lv_waers NE vbrk-waerk.
              vbrk-waerk = lv_waers.
            ENDIF.
            IF lv_waers NE kuagv-waerk.
              kuagv-waerk = lv_waers.
            ENDIF.

          ENDIF.

        ENDIF.
      ENDIF.