METHOD IF_EX_AC_DOCUMENT~CHANGE_INITIAL.
DATA:IT_ACCIT TYPE ACCIT_T.
DATA:WA_ACCIT TYPE ACCIT.
DATA:L_ACCIT TYPE ACCIT.
DATA:IT_SUB_T TYPE ACCIT_SUB_T.
DATA:WA_ACCIT_SUB TYPE ACCIT_SUB.
IT_ACCIT = IM_DOCUMENT-ITEM[].
LOOP AT IT_ACCIT INTO WA_ACCIT. "获取客户的统驭科目
IF WA_ACCIT-HKONT IS INITIAL AND WA_ACCIT-KUNNR IS
DATA:IT_ACCIT TYPE ACCIT_T.
DATA:WA_ACCIT TYPE ACCIT.
DATA:L_ACCIT TYPE ACCIT.
DATA:IT_SUB_T TYPE ACCIT_SUB_T.
DATA:WA_ACCIT_SUB TYPE ACCIT_SUB.
IT_ACCIT = IM_DOCUMENT-ITEM[].
LOOP AT IT_ACCIT INTO WA_ACCIT. "获取客户的统驭科目
IF WA_ACCIT-HKONT IS INITIAL AND WA_ACCIT-KUNNR IS