*&---------------------------------------------------------------------* *& Form FRM_BDC_DYNPRO *----------------------------------------------------------------------* * 开始新屏幕 *----------------------------------------------------------------------* * <--PR_BDCDATA BDC 表 * -->PV_PROGRAM BDC 模块库 * -->PV_DYNPRO BDC 屏幕号码 *----------------------------------------------------------------------* FORM FRM_BDC_DYNPRO TABLES PR_BDCDATA STRUCTURE BDCDATA USING VALUE(PV_PROGRAM) TYPE BDC_PROG VALUE(PV_DYNPRO) TYPE BDC_DYNR. DATA: LWA_BDCDATA TYPE BDCDATA. MOVE PV_PROGRAM TO LWA_BDCDATA-PROGRAM. "BDC 模块库 MOVE PV_DYNPRO TO LWA_BDCDATA-DYNPRO. "BDC 屏幕号码 MOVE 'X' TO LWA_BDCDATA-DYNBEGIN. "BDC 屏幕启动 APPEND LWA_BDCDATA TO PR_BDCDATA. "BDC表 ENDFORM. " FRM_BDC_DYNPRO *&---------------------------------------------------------------------* *& Form FRM_BDC_FIELD *&---------------------------------------------------------------------* * BDC表的编辑 *----------------------------------------------------------------------* * <--PR_BDCDATA BDC 数据 * -->PV_FNAM 字段名 * -->PV_FVAL BDC 字段值 *----------------------------------------------------------------------* FORM FRM_BDC_FIELD TABLES PR_BDCDATA STRUCTURE BDCDATA USING VALUE(PV_FNAM) VALUE(PV_FVAL). DATA: LWA_BDCDATA TYPE BDCDATA. MOVE PV_FNAM TO LWA_BDCDATA-FNAM. "字段名 MOVE PV_FVAL TO LWA_BDCDATA-FVAL. "BDC 字段值 APPEND LWA_BDCDATA TO PR_BDCDATA. "BDC表 ENDFORM. " FRM_BDC_FIELD *&---------------------------------------------------------------------* *& Form FRM_BDC_TRANSACTION *&---------------------------------------------------------------------* * 调用事务 *----------------------------------------------------------------------* * -->PV_BDCDATA BDC表 * <--PR_RESULT 操作返回信息 * -->PV_TCODE SAP业务代码 *----------------------------------------------------------------------* FORM FRM_BDC_TRANSACTION TABLES PV_BDCDATA STRUCTURE BDCDATA PR_RESULT STRUCTURE BDCMSGCOLL USING VALUE(PV_TCODE). CALL TRANSACTION PV_TCODE USING PV_BDCDATA MODE 'N' UPDATE 'S' MESSAGES INTO PR_RESULT. ENDFORM. " FRM_BDC_TRANSACTION