销售开票会计凭证行项目文本处理增强
CMOD:
用户出口:SDVFX008
Include:zxvvfu08
代码示例:
DATA: vbeln TYPE vbak-vbeln,
kunnr TYPE vbak-kunnr,
sortl TYPE kna1-sortl.
CLEAR: vbeln,kunnr,sortl.
LOOP AT xaccit.
IF xaccit-menge = 0.
xaccit-menge = xaccit-fkimg.
xaccit-vbel2 = xaccit-aubel.
xaccit-posn2 = xaccit-aupos.
ENDIF.
IF xaccit-aubel IS NOT INITIAL.
IF vbeln IS INITIAL.
vbeln = xaccit-aubel.
ENDIF.
ENDIF.
MODIFY xaccit.
ENDLOOP.
IF vbeln IS NOT INITIAL.
SELECT SINGLE kunnr INTO kunnr FROM vbak WHERE vbeln = vbeln.
SELECT SINGLE sortl INTO sortl FROM kna1 WHERE kunnr = kunnr.
CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_OUTPUT’
EXPORTING
input = vbeln
IMPORTING
output = vbeln.
LOOP AT xaccit.
xaccit-zuonr = vbeln.
CONCATENATE ‘收入确认’ sortl vbeln INTO xaccit-sgtxt SEPARATED BY ‘’.
MODIFY xaccit.
ENDLOOP.
ENDIF.