ABAP-已有运费金额的基础上分摊到交货单行

VI01-创建装运成本

SMOD-V54KSFRC

CMOD-增强分配-V54KSFRC

CHECK NOT c_vtrfkz[] IS INITIAL."分摊
CASE i_refobj-tvtk-shtyp.
  WHEN 'ZDR1' OR 'ZDR2'.
    LOOP AT c_vtrfkz.
      READ TABLE i_refobj-vbplp INTO DATA(ls_vbplp) WITH KEY vbeln = c_vtrfkz-rebel posnr = c_vtrfkz-repos.
      IF sy-subrc = 0.
        IF ls_vbplp-voleh = 'M3'.
        ELSE.
          CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
            EXPORTING
              input                = ls_vbplp-volum
              unit_in              = ls_vbplp-voleh
              unit_out             = 'M3'
            IMPORTING
              output               = ls_vbplp-volum
            EXCEPTIONS
              conversion_not_found = 1
              division_by_zero     = 2
              input_invalid        = 3
              OTHERS               = 4.
          IF sy-subrc NE 0.
            DATA(l_false) = abap_true.
          ENDIF.
        ENDIF.
        IF l_false NE abap_true.
          c_vtrfkz-frshr = ls_vbplp-volum.
          MODIFY c_vtrfkz[] FROM c_vtrfkz TRANSPORTING frshr.
          IF sy-subrc = 0.
            DATA(l_true) = abap_true.
          ELSE.
            CLEAR l_true.
          ENDIF.
        ENDIF.
      ENDIF.
      CLEAR ls_vbplp.
    ENDLOOP.
    IF l_false EQ abap_false AND l_true EQ abap_true.
      e_factors_determined = abap_true.
    ENDIF.
    CLEAR:l_true,l_false,ls_vbplp.
  WHEN OTHERS.
ENDCASE.