BDC程序示例

最新推荐文章于 2024-03-21 17:25:33 发布
最新推荐文章于 2024-03-21 17:25:33 发布
阅读量126 收藏
点赞数

1，调用事物方法

2，传统方法

3，凑合着看吧~！

[@more@]

REPORT Z_ABAPDEMOprojload

NO STANDARD PAGE HEADING LINE-SIZE 255.

*

*INCLUDE Z_ABAPDEMOprojload_top.

*&---------------------------------------------------------------------*

*& Include Z_ABAPDEMOPROJLOAD_TOP *

*&---------------------------------------------------------------------*

TABLES Z_ABAPDEMOproj.

DATA : BEGIN OF i_proj OCCURS 0,

project LIKE Z_ABAPDEMOproj-project,

proj_desc LIKE Z_ABAPDEMOproj-proj_desc,

stdat(10) TYPE c,

enddat(10) TYPE c,

customer LIKE Z_ABAPDEMOproj-customer,

location LIKE Z_ABAPDEMOproj-location,

END OF i_proj.

DATA i_bdctab LIKE bdcdata OCCURS 0 WITH HEADER LINE.

DATA messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.

*INCLUDE Z_ABAPDEMOprojload_form.

*&---------------------------------------------------------------------*

*& Include Z_ABAPDEMOPROJLOAD_FORM *

*&---------------------------------------------------------------------*

*&---------------------------------------------------------------------*

*& Form insert

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --&gt p1 text

* p2 text

*----------------------------------------------------------------------*

FORM insert .

*这里面的代码不是手动输入的，是通过一个录屏程序生成的，录屏程序的TR-CODE是SM35，在此你还需要

*指定一个transaction。

* perform open_group.

LOOP AT i_proj.

CLEAR i_bdctab[].

PERFORM bdc_dynpro USING 'Z_ABAPDEMO_D9_DIALOG' '0100'.

PERFORM bdc_field USING 'BDC_CURSOR'

'Z_ABAPDEMOPROJ-PROJECT'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'Z_ABAPDEMOPROJ-PROJECT'

i_proj-project.

PERFORM bdc_dynpro USING 'Z_ABAPDEMO_D9_DIALOG' '0200'.

PERFORM bdc_field USING 'BDC_CURSOR'

'Z_ABAPDEMOPROJ-LOCATION'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=SAVE'.

PERFORM bdc_field USING 'Z_ABAPDEMOPROJ-PROJ_DESC'

i_proj-proj_desc.

PERFORM bdc_field USING 'Z_ABAPDEMOPROJ-STDAT'

i_proj-stdat.

PERFORM bdc_field USING 'Z_ABAPDEMOPROJ-ENDDAT'

i_proj-enddat.

PERFORM bdc_field USING 'Z_ABAPDEMOPROJ-CUSTOMER'

i_proj-customer.

PERFORM bdc_field USING 'Z_ABAPDEMOPROJ-LOCATION'

i_proj-location.

PERFORM bdc_dynpro USING 'SAPLSPO1' '0500'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=OPT1'.

PERFORM bdc_dynpro USING 'Z_ABAPDEMO_D9_DIALOG' '0200'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/EEXIT'.

PERFORM bdc_field USING 'BDC_CURSOR'

'LPROJID'.

PERFORM transaction USING 'Z_ABAPDEMOPROJ1'.

ENDLOOP.

* perform close_group.

ENDFORM. " insert

*&---------------------------------------------------------------------*

*& Form process

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --&gt p1 text

* p2 text

*----------------------------------------------------------------------*

FORM process .

ENDFORM. " process

*&---------------------------------------------------------------------*

*& Form upload

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --&gt p1 text

* p2 text

*----------------------------------------------------------------------*

FORM upload .

*上传文本文件，这是一个以TAB分隔的表内容文件，它的字段以我后面的数据库表字段的顺序排列

*这里使用的是GUI_UPLOAD，还可以是WS_UPLOAD，大同小异

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = 'C:Documents and Settingsxincheng24DesktopPROJ.TXT'

filetype = 'ASC'

has_field_separator = '#'

* HEADER_LENGTH = 0

* READ_BY_LINE = 'X'

* DAT_MODE = ' '

* CODEPAGE = ' '

* IGNORE_CERR = ABAP_TRUE

* REPLACEMENT = '#'

* CHECK_BOM = ' '

* IMPORTING

* FILELENGTH =

* HEADER =

TABLES

data_tab = i_proj

EXCEPTIONS

file_open_error = 1

file_read_error = 2

no_batch = 3

gui_refuse_filetransfer = 4

invalid_type = 5

no_authority = 6

unknown_error = 7

bad_data_format = 8

header_not_allowed = 9

separator_not_allowed = 10

header_too_long = 11

unknown_dp_error = 12

access_denied = 13

dp_out_of_memory = 14

disk_full = 15

dp_timeout = 16

OTHERS = 17

.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. " upload

*&--------------------------------------------------------------------*

*& Form BDC_DYNPRO

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

* --&gtPROGRAM text

* --&gtDYNPRO text

*---------------------------------------------------------------------*

FORM bdc_dynpro USING program dynpro.

*该子程序也是由录屏程序生成的

CLEAR i_bdctab.

i_bdctab-program = program.

i_bdctab-dynpro = dynpro.

i_bdctab-dynbegin = 'X'.

APPEND i_bdctab.

ENDFORM. "BDC_DYNPRO

*&--------------------------------------------------------------------*

*& Form bdc_field

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

* --&gtFNAM text

* --&gtFVAL text

*---------------------------------------------------------------------*

FORM bdc_field USING fnam fval.

*该子程序同样由录屏程序生成

CLEAR i_bdctab.

i_bdctab-fnam = fnam.

i_bdctab-fval = fval.

APPEND i_bdctab.

ENDFORM. "DBC_FIELD

*&--------------------------------------------------------------------*

*& Form transaction

*&--------------------------------------------------------------------*

* text

*---------------------------------------------------------------------*

* --&gtFNAM text

* --&gtFVAL text

*---------------------------------------------------------------------*

FORM transaction USING tcode.

*这就是调用事务类型的体现，需要主意的就是模式MODE和UPDATE。AS的组合就是显示所有log

*同步更新

REFRESH messtab.

CALL TRANSACTION tcode USING i_bdctab

MODE 'A'

UPDATE 'S'

MESSAGES INTO messtab.

ENDFORM. "TRANSACTION

*Main program

START-OF-SELECTION.

*upload the data from text file to internal table

PERFORM upload.

*process the data type. mainly used to convert date type

PERFORM process.

*insert the data from internal table to database table

PERFORM insert.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

传统方法：

*&---------------------------------------------------------------------*

*& *

*& Report Zsapdemo_BDC_SESSION *

*& *

*& This program Obtain a list report for Customer Debt including each *

*& note created for the documents. *

*&---------------------------------------------------------------------*

*& Change Log: *

*& *

*&---------------------------------------------------------------------*

*& Init.| Who | Date | Text |*

*&---------------------------------------------------------------------*

REPORT zsapdemo_bdc_session

NO STANDARD PAGE HEADING

LINE-COUNT 150(5)

LINE-SIZE 135 .

*----------------------------------------------------------------------*

* Constants

*----------------------------------------------------------------------*

DATA: g_repid TYPE sy-repid,

strfilelocn TYPE string.

*----------------------------------------------------------------------*

* DB-Tables

*----------------------------------------------------------------------*

TABLES: zshilpa_1.

*----------------------------------------------------------------------*

* Variables/Internal Tables

*----------------------------------------------------------------------*

DATA: it_tab TYPE zshilpa_1 OCCURS 0 WITH HEADER LINE,

it_bdctab TYPE bdcdata OCCURS 0 WITH HEADER LINE,

it_messtab TYPE bdcmsgcoll OCCURS 0 WITH HEADER LINE.

*----------------------------------------------------------------------*

* Select options / parameters *

*----------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS: sfileloc LIKE rlgrap-filename

DEFAULT 'C:Documents and Settingsxincheng24Desktopzshilpa_1.txt'

OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b1.

*----------------------------------------------------------------------*

* Initialization *

*----------------------------------------------------------------------*

INITIALIZATION.

*-- Initialize Values

PERFORM initialize_values.

*----------------------------------------------------------------------*

* Selection screen checks *

*----------------------------------------------------------------------*

AT SELECTION-SCREEN ON VALUE-REQUEST FOR sfileloc.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

program_name = g_repid

IMPORTING

file_name = sfileloc.

*----------------------------------------------------------------------*

* *** MAIN PROCESSING *** *

*----------------------------------------------------------------------*

START-OF-SELECTION.

strfilelocn = sfileloc.

PERFORM upload_data.

END-OF-SELECTION.

PERFORM bdc_session.

CHECK sy-subrc IS INITIAL.

MESSAGE s002(zsapdemo_msg_class).

*&---------------------------------------------------------------------*

*& Form initialize_values

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --&gt p1 text

* p2 text

*----------------------------------------------------------------------*

FORM initialize_values .

*-- Get the Program Name

g_repid = sy-repid.

ENDFORM. " initialize_values

*&---------------------------------------------------------------------*

*& Form upload_data

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --&gt p1 text

* p2 text

*----------------------------------------------------------------------*

FORM upload_data .

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = strfilelocn

filetype = 'ASC'

has_field_separator = '#'

TABLES

data_tab = it_tab

EXCEPTIONS

file_open_error = 1

file_read_error = 2

no_batch = 3

gui_refuse_filetransfer = 4

invalid_type = 5

no_authority = 6

unknown_error = 7

bad_data_format = 8

header_not_allowed = 9

separator_not_allowed = 10

header_too_long = 11

unknown_dp_error = 12

access_denied = 13

dp_out_of_memory = 14

disk_full = 15

dp_timeout = 16

OTHERS = 17.

IF sy-subrc <> 0.

* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. " upload_data

*&---------------------------------------------------------------------*

*& Form fill_bdcdata

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --&gtP_0129 text

* --&gtP_0130 text

* --&gtP_0131 text

* --&gtP_0132 text

* --&gtP_0133 text

*----------------------------------------------------------------------*

FORM fill_bdcdata USING value(bdc_program)

value(bdc_dynpro)

value(bdc_dynbegin)

value(bdc_fnam)

value(bdc_fval).

it_bdctab-program = bdc_program.

it_bdctab-dynpro = bdc_dynpro.

it_bdctab-dynbegin = bdc_dynbegin.

it_bdctab-fnam = bdc_fnam.

it_bdctab-fval = bdc_fval.

APPEND it_bdctab.

CLEAR it_bdctab.

ENDFORM. " fill_bdcdata

*&---------------------------------------------------------------------*

*& Form bdc_session

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --&gt p1 text

* p2 text

*----------------------------------------------------------------------*

FORM bdc_session .

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

client = sy-mandt

group = 'Zsapdemo_BDC'

user = 'FIUSER'

prog = sy-cprog

EXCEPTIONS

client_invalid = 1

destination_invalid = 2

group_invalid = 3

group_is_locked = 4

holddate_invalid = 5

internal_error = 6

queue_error = 7

running = 8

system_lock_error = 9

user_invalid = 10

OTHERS = 11.

IF sy-subrc <> 0.

WRITE: / 'Error Occured while Opening BDC Group.'.

ENDIF.

LOOP AT it_tab.

PERFORM fill_bdcdata USING :

'SAPMSVMA' '0100' 'X' ' ' ' ',

' ' ' ' ' ' 'BDC_CURSOR' 'VIEWNAME',

' ' ' ' ' ' 'BDC_OKCODE' '=UPD',

' ' ' ' ' ' 'VIEWNAME' 'ZSHILPA_1',

' ' ' ' ' ' 'VIMDYNFLDS-LTD_DTA_NO' 'X',

'SAPLZSHILPA_1' '0001' 'X' ' ' ' ',

' ' ' ' ' ' 'BDC_CURSOR' 'ZSHILPA_1-ZMAT_NO(01)',

' ' ' ' ' ' 'BDC_OKCODE' '=NEWL',

'SAPLZSHILPA_1' '0002' 'X' ' ' ' ',

' ' ' ' ' ' 'BDC_CURSOR' 'ZSHILPA_1-ZMAN',

' ' ' ' ' ' 'BDC_OKCODE' '=SAVE',

' ' ' ' ' ' 'ZSHILPA_1-NAME' it_tab-name,

' ' ' ' ' ' 'ZSHILPA_1-ZMAT_NO' it_tab-zmat_no,

' ' ' ' ' ' 'ZSHILPA_1-ZMAN' it_tab-zman,

'SAPLZSHILPA_1' '0002' 'X' ' ' ' ',

' ' ' ' ' ' 'BDC_CURSOR' 'ZSHILPA_1-ZMAT_NO',

' ' ' ' ' ' 'BDC_OKCODE' '=SAVE',

' ' ' ' ' ' 'ZSHILPA_1-ZMAT_NO' 'it_tab-zmat_no',

' ' ' ' ' ' 'ZSHILPA_1-ZMAN' 'it_tab-zman',

'SAPLZSHILPA_1' '0002' 'X' ' ' ' ',

' ' ' ' ' ' 'BDC_CURSOR' 'ZSHILPA_1-ZMAT_NO',

' ' ' ' ' ' 'BDC_OKCODE' '=UEBE',

' ' ' ' ' ' 'ZSHILPA_1-ZMAT_NO' '2',

' ' ' ' ' ' 'ZSHILPA_1-ZMAN' '2',

'SAPLZSHILPA_1' '0001' 'X' ' ' ' ',

' ' ' ' ' ' 'BDC_CURSOR' ' ZSHILPA_1-ZMAT_NO(01)',

' ' ' ' ' ' 'BDC_OKCODE' '=BACK',

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8356764/viewspace-969062/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8356764/viewspace-969062/

cudaidie2044
关注
通过一个具体的例子，讲解 SAP BDC 技术的使用步骤
汪子熙的专家技术分享
06-03 2342
BDC 是 Batch Data Communication，批处理数据交互的英文缩写。这种技术的理念其实不复杂，而且不少游戏玩家想必都已经接触过和 BDC 类似的工具，那就是按键精灵。比如我们玩一些网络游戏时，有一些每日任务的领取和完成方式比较固定，比如在一个固定位置同固定的 NPC 对话，领取任务。然后出城在固定的地方，击杀固定的怪物，然后回城交付任务。此时为了避免重复操作，我们可以用一些按键精灵软件，提前录制一遍完成该任务的整个流程，然后选择按键精灵的回放模式，即可自动完成每日任务的执行了。SAP A
SAP BDC精华教程
05-10
BDC介绍, 在SAP系统里，由于某种原因，可能需要重复输入数据，数据不同，但是操作是相同的，典型的情形就是切换系统的时候，旧系统的数据需要导入SAP
BDC技术教程
01-18
在SAP系统里，由于某种原因，可能需要重复输入数据，（数据不同，但是操作是相同的，典型的情形就是切换系统的时候，旧系统的数据需要导入SAP），大致过程不外乎是这样： 输入一个t-code， 进入一个某个屏幕，然后输入一个值（有时还要加上一些附加的checkbox选项等），点执行或者确定按钮， 进入另一个屏幕，在某些字段输入值（也可能是标注checkbox选中或者不选中）或者修改这些字段里的值。 然后按“Eneter”…… 最后按“SAVE”……， 一条记录完成了，继续下一条，如此循环。
BDC教程
cmwl67986的博客
09-10 253
学了abap一个月了，写个教程试一下 以下以MM01为例介绍一下如何编写BDC程序 首先运行T-codeSHDB 录屏是比较简单的，按你需要的步骤做就可以了，最后可以得到一张BDC表如下所示： 见附件 点击后...
BDC——BDC批导源码DEMO
SAP_老茂
04-22 518
&--------------------------------------------------------------------- *& Report YWMQ_TEST_BDC001 &--------------------------------------------------------------------- *& &-------...
ABAP程序BDC调用F110的功能Demo
weixin_41886784的博客
03-24 404
用BDC调用F110功能
BDC程序步骤
anchangong3418的博客
01-01 594
(1)记录屏幕操作； (2)产生相关程序和数据格式文件； (3)调整数据文件； (4)运行BDC产生的程序读取文件导入数据； (5)源代码分析； (6)用BDC 导入单据； 在理解ABAP 开发的screen 技术后就能理解程序中哪个屏幕，哪个字段，及Tcode 的意思->意义。 * SAPLSETB 0230 X . 表示数据表选择窗口， * /1B...
微信小程序首页界面示例+源码（示例二）
05-25
https://img-blog.csdnimg.cn/af3fffb1c5f64703bdc9f3dc71298f1f.jpeg#pic_center 1、微信小程序首页界面布局源码； 2、实现自定义顶部状态栏； 3、实现3D轮播图效果； 4、进度条展示效果； 5、包含按钮或图片的监听...
SAP ABAP BDC程序实例：调用MM01事务处理数据
这段代码示例展示了如何编写一个BDC程序，主要涉及以下几个关键知识点： 1. **BDC程序结构**： - 报告ZMMB001定义了一个名为`REPORTZMMB001`的程序，这是BDC程序的基本结构，用于处理业务逻辑。 - `TABLES`关键字...
sap abap BDC程序举例
08-07
综上所述，这个示例不仅展示了如何通过 BDC 在后台自动执行事务处理，还详细介绍了从文件读取数据、转换数据格式以及最终执行事务的具体步骤。这对于那些希望了解如何利用 BDC 自动化 SAP 系统中重复性任务的开发...
SAP BDC 数据导入详解与示例代码
这里提供的代码示例展示了如何在两个报告程序之间传递和导入数据，帮助理解BDC的工作流程。" 在SAP环境中，BDC（Business Data Collection）是一种常用的数据导入工具，特别适合于处理大量结构化的数据。以下是对...
SAP BDC学习
最新发布
m0_45846097的博客
03-21 854
SAP BDC练习
音哥X-Gorgon？
qq_41638632的博客
06-02 1984
抖音最新版X-Gorgon?X-Gorgon不见了？ 分享下最新版本抖音X-Gorgon获取方法，个人思路大佬勿喷，（仅供学习交流使用） X-Gorgon不见了？ 大家在抓最近版本的抖音（14.0以上？）时，按照传统传统的网络上的教程会发现：咦？X-Gorgon关键字怎么搜索不到？hhhhha 魔高一尺道高一丈， ...
BDC批导入
weixin_57712008的博客
10-20 1051
BDC简述、创建BDC、执行BDC（BDCDATA的结构、分析数据结构）
基于Excel的SAP角色快速复制
GAVIN
03-29 1401
FUNCTION ZRFC_BC_ROLE_DEL. *"-------------------------------------------------------------------- *"*"局部接口： *" IMPORTING *" VALUE(CTU) LIKE APQI-PUTACTIVE DEFAULT 'X' *" VALUE(MODE) LIKE APQI-PUTACTIVE DEFAULT 'N' *" VALUE(UPDATE) LIKE APQ.
一个完整的BDC程序，仅供参考！（包括各种参数的配置）
ABAP成长之路
08-09 7275
LOOP AT IT_BDC.     PERFORM bdc_dynpro USING 'SAPMF05A' '0122'.     PERFORM bdc_field  USING:  'BDC_CURSOR'  'BKPF-WAERS',                                'BDC_OKCODE'  '=SL',                    
SAP 使用BDC的一些心得
csucoder_zone的博客
04-17 7755
BDC操作的组成主要有三个FORM: 1.BDC_DYNPRO 2.BDC_FIELD 3.BDC_TRANSACTION 语句形如的作用是指定后续操作基于哪个屏幕,其中SAPLMGMM是函数组名称，0070是屏幕编号； 语句形如的作用是选中屏幕中的第几行，如下如图所示： 其中MSICHTAUSW-KZSEL（09）为第9行的“选择按钮”（CHECKBOX），MSICH.........
SAP 录屏BDC使用—实例
热门推荐
兔宝学习ABAP整理笔记
10-29 7万+
1）  输入TCode：SHDB进入BDC录制初始界面，该界面可以实现已创建BDC Session信息的查看、删除及锁定等操作 2）  单击工具栏 Newrecording 按钮创建一个新的BDC，系统将弹出Create Recording对话框，要求输入记录名称(此名称可以不用Y或Z开头来定义)和录制程序的事务码，本例以创建物料主数据MM01为例。 3）  单击Sta
BDC 开发步骤
少年休闲海
07-10 5784
Step 1. 录制 BDC.         SM35/SHDB 进入 BDC 录制界面, 开始录制. Step 2. 把录制好的 BDC 转成 ABAP 程式.   定义通过 EXCEL 上传用到的参数, DATA: if_intern TYPE alsmex_tabline OCCURS 0 WITH HEADER LINE. DATA: vf_start_col 
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值