目录
一、管理应用程序对象类型激活
二、编写输出类型调用程序
TCODE:SE38 - ABAP 编辑器
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZSD_MESSAGEOUTPUT001.
TABLES: NAST.
*&---------------------------------------------------------------------*
*& Form Process
*&---------------------------------------------------------------------*
* Process message
*----------------------------------------------------------------------*
FORM PROCESS USING RETURN_CODE US_SCREEN.
"NAST-OBJKY 中为系统发票号
*****************************************************************
*>>>>>>>>>>>自定义程序逻辑
*****************************************************************
DATA: EW_RETURN TYPE ZSFSSCSD003.
DATA: WA_ZTSD029 TYPE ZTSD029.
DATA: L_VBELN TYPE VBRK-VBELN.
CLEAR: L_VBELN.
L_VBELN = NAST-OBJKY.
CLEAR: EW_RETURN.
CALL FUNCTION 'ZHTTP_FSSC_SD001'
EXPORTING
IV_VBELN = L_VBELN
IMPORTING
E_RETURN = EW_RETURN.
***********记录接口报错重处理日志表
CLEAR: WA_ZTSD029.
WA_ZTSD029-VBELN = L_VBELN.
WA_ZTSD029-ZTYPE = EW_RETURN-MSGTYPE.
WA_ZTSD029-ZMSG = EW_RETURN-MSGTEXT.
WA_ZTSD029-ERDAT = SY-DATUM.
WA_ZTSD029-ERZET = SY-UZEIT.
WA_ZTSD029-ERNAM = SY-UNAME.
WA_ZTSD029-AEDAT = SY-DATUM.
WA_ZTSD029-AEZET = SY-UZEIT.
WA_ZTSD029-AENAM = SY-UNAME.
MODIFY ZTSD029 FROM WA_ZTSD029.
DATA: L_MSG_V1 TYPE SYST_MSGV.
L_MSG_V1 = EW_RETURN-MSGTEXT.
CALL FUNCTION 'NAST_PROTOCOL_UPDATE'
EXPORTING
MSG_ARBGB = 'ZSD'
MSG_NR = '000'
MSG_TY = 'S'
MSG_V1 = L_MSG_V1
MSG_V2 = ''
MSG_V3 = ''
MSG_V4 = ''
EXCEPTIONS
OTHERS = 1.
*****************************************************************
*<<<<<<<<<<<自定义程序逻辑
*****************************************************************
"RETURN_CODE = 0 时输出类型显示为成功
"RETURN_CODE = 4 时输出类型显示为失败
RETURN_CODE = 0.
ENDFORM.
三、维护输出类型
四、维护输出确定过程
五、分配输出确定过程
六、维护输出类型条件记录
TCODE:VV31 - 创建输出 : 出具发票