发票到会计凭证时，将利润中心分配到所有项目中

CMOD:SDVFX002

DATA:LS_VBRPVB TYPE VBRPVB.

READ TABLE CVBRP INTO LS_VBRPVB INDEX 1.
IF SY-SUBRC = 0.
  XACCIT-VBEWA = LS_VBRPVB-PRCTR+0(4).
ENDIF.