topic BDC data help in Application Development and Automation Discussions

BDC data help

Former Member — Thu, 01 Mar 2007 10:26:28 GMT

plz send me a code which makes use of BDC DATA in the program .

PLZ EXPLAIND D BDCDATA USED IN THE CODE.

is it used in call transaction & session method both???

Re: BDC data help

Former Member — Thu, 01 Mar 2007 10:29:35 GMT

http://www.sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm

To appreciate its usage,

do the following:

record some transaction you like in SHDB transaction.

When you save the recording , you will see a table like structure with all screen names and program names.

This is what a BDCDATA internal table will look like.

In the program also, we are trying to build such a table which we see in the recording.

Regards,

Ravi

Re: BDC data help

Former Member — Thu, 01 Mar 2007 10:31:06 GMT

Hi,

Please check the code below for Call transaction:

&----

*& Report YFII_GL_VOUCHER_UPLOAD *

*& *

&----

*& *

&----

REPORT yfii_gl_voucher_upload

NO STANDARD PAGE HEADING LINE-SIZE 150 MESSAGE-ID yfi.

&----

*& Tables

&----

TABLES: bkpf,

t100.

&----

*& Type-pools

&----

TYPE-POOLS : slis,

icon. "For Icon display

&----

*& Global Variables

&----

DATA: g_okcode(6) TYPE c,

g_sodate(10) TYPE c,

p_bldat1(10) TYPE c,

p_budat1(10) TYPE c,

g_count(2) TYPE c VALUE 1,

g_flnam TYPE string,

g_mstring(250) TYPE c ,

g_field(30) TYPE c,

g_msg(120) TYPE c, "To hold desc of error

g_scol TYPE i VALUE '1', "for start coloum

g_srow TYPE i VALUE '1', "for start row

g_ecol TYPE i VALUE '256', "for end coloum

g_erow TYPE i VALUE '65536', "for end row

g_lines_1 TYPE i, "To hold no.of error

g_ans TYPE c.

DATA: w_tabix LIKE sy-tabix. "For sy-tabix.

&----

*& Constants

&----

CONSTANTS: c_x(1) TYPE c VALUE 'X',

c_sync TYPE c VALUE 'S'. "Synchronous update

&----

*& Internal Tables

&----

TYPES: BEGIN OF tp_file ,

hkont(10) ,

shkzg(1),

gsber(8),

kostl(8),

aufnr(16),

prctr(25),

mwskz(2),

sgtxt(50),

wrbtr(15),

geber(10),

fistl(16),

menge(13),

meins(3),

END OF tp_file.

TYPES: BEGIN OF tp_final ,

bukrs LIKE bkpf-bukrs,

blart LIKE bkpf-blart,

bldat LIKE bkpf-bldat,

budat LIKE bkpf-budat,

waers LIKE bkpf-waers,

kursf LIKE bkpf-kursf,

xblnr LIKE bkpf-xblnr,

bktxt LIKE bkpf-bktxt,

hkont LIKE bseg-hkont,

shkzg LIKE bseg-shkzg,

gsber LIKE bseg-gsber,

kostl LIKE bseg-kostl,

aufnr LIKE bseg-aufnr,

prctr LIKE bseg-prctr,

mwskz LIKE bseg-mwskz,

sgtxt LIKE bseg-sgtxt,

wrbtr(10) TYPE c,

geber LIKE bseg-geber,

fistl LIKE bseg-fistl,

menge(10) TYPE c,

meins(10) TYPE c,

w_msg(200) TYPE c,

status TYPE icon-id,

END OF tp_final.

----

Declaration for Internal Tables

----

Internal table for excel file

DATA : ig_intern TYPE STANDARD TABLE OF kcde_cells ,

wg_intern LIKE LINE OF ig_intern ,

Internal table for populating the screens and fields for VK11

ig_bdcdata TYPE STANDARD TABLE OF bdcdata ,

wg_bdcdata LIKE LINE OF ig_bdcdata ,

Internal table for populating the screens and fields for VK12

ig_bdcdata1 TYPE STANDARD TABLE OF bdcdata ,

wg_bdcdata1 LIKE LINE OF ig_bdcdata1 ,

Internal table and work areas for ALV

ig_fcat TYPE STANDARD TABLE OF slis_fieldcat_alv,

wg_fcat TYPE slis_fieldcat_alv ,

wg_layout TYPE slis_layout_alv ,

Internal table for flatfile structure

ig_file TYPE TABLE OF tp_file ,

wg_file TYPE tp_file,

Internal table to hold data for uploading

ig_final TYPE TABLE OF tp_final ,

wg_final TYPE tp_final ,

Internal table to hold data for uploading

ig_final1 TYPE TABLE OF tp_final ,

wg_final1 TYPE tp_final ,

Internal table for error records

ig_messtab TYPE TABLE OF bdcmsgcoll ,

wg_messtab TYPE bdcmsgcoll .

DATA: g_custom_container TYPE REF TO cl_gui_custom_container,

g_grid TYPE REF TO cl_gui_alv_grid,

g_fieldcat TYPE lvc_t_fcat, "#EC NEEDED

wa_fieldcatalog TYPE lvc_s_fcat,

g_layout TYPE lvc_s_layo,

it_exclude TYPE ui_functions.

DATA: con_x(1) VALUE 'X',

str_variant TYPE disvariant.

----

S E L E C T - O P T I O N S

----

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

PARAMETERS: p_bukrs LIKE bkpf-bukrs ,

p_blart LIKE bkpf-blart DEFAULT 'SA' ,

p_bldat LIKE bkpf-bldat DEFAULT sy-datum,

p_budat LIKE bkpf-budat DEFAULT sy-datum,

p_waers LIKE bkpf-waers DEFAULT 'USD' ,

p_kursf LIKE bkpf-kursf ,

p_xblnr LIKE bkpf-xblnr ,

p_bktxt LIKE bkpf-bktxt DEFAULT 'Excel Mass Jrnl Upload'.

SELECTION-SCREEN END OF BLOCK blk1.

SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-s02.

PARAMETERS:

rb_text RADIOBUTTON GROUP r1 DEFAULT 'X',

rb_excel RADIOBUTTON GROUP r1,

p_flnam TYPE rlgrap-filename OBLIGATORY,

p_dismod TYPE ctu_params-dismode OBLIGATORY DEFAULT 'N'.

SELECTION-SCREEN END OF BLOCK blk2.

----

AT SELECTION-SCREEN ON VALUE-REQUEST

----

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_flnam.

PERFORM get_filename.

----

AT SELECTION-SCREEN ON FIELD

----

AT SELECTION-SCREEN ON p_flnam.

PERFORM check_file_path.

----

START-OF-SELECTION

----

START-OF-SELECTION.

PERFORM refresh_tables.

For selecting the text file

IF rb_text EQ c_x.

PERFORM uploading_text_file.

ELSE.

Excel file

PERFORM upload_excel_file TABLES ig_file

USING p_flnam

g_scol

g_srow

g_ecol

g_erow.

ENDIF.

PERFORM populate.

PERFORM call_bdc.

CALL SCREEN 0100.

&----

*& Form UPLOADING_FLAT_FILE

&----

Upload the data from text file to internal table

----

FORM uploading_text_file .

CLEAR g_flnam.

g_flnam = p_flnam.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = g_flnam

filetype = 'ASC'

has_field_separator = c_x

TABLES

data_tab = ig_file

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 NE 0.

MESSAGE e000 WITH 'Error uploading file'.

ENDIF.

Check if the input file is blank

IF ig_file[] IS INITIAL.

MESSAGE e000 WITH 'No data in the file to process'.

ENDIF.

ENDFORM. " UPLOADING_FLAT_FILE

&----

*& Form UPLOAD_EXCEL_FILE

&----

upload excel spreadsheet into internal table

----

-->P_TABLE Table to return excel data into
-->P_FILE file name and path
-->P_SCOL start column
-->P_SROW start row
-->P_ECOL end column
-->P_EROW end row

----

FORM upload_excel_file TABLES p_table

USING p_flnam

p_scol

p_srow

p_ecol

p_erow.

DATA : l_index TYPE i.

FIELD-SYMBOLS : <fs_intern> TYPE ANY.

CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'

EXPORTING

filename = p_flnam

i_begin_col = p_scol

i_begin_row = p_srow

i_end_col = p_ecol

i_end_row = p_erow

TABLES

intern = ig_intern

EXCEPTIONS

inconsistent_parameters = 1

upload_ole = 2

OTHERS = 3.

IF sy-subrc NE 0.

MESSAGE e000 WITH 'Error uploading file'(006).

ENDIF.

Check if the input file is blank

IF ig_intern[] IS INITIAL.

MESSAGE e000 WITH 'No data in the file to process'(012).

ELSE.

SORT ig_intern BY row col.

CLEAR wg_intern.

LOOP AT ig_intern INTO wg_intern.

MOVE wg_intern-col TO l_index.

ASSIGN COMPONENT l_index OF STRUCTURE wg_file TO <fs_intern>.

MOVE wg_intern-value TO <fs_intern>.

AT END OF row.

APPEND wg_file TO p_table.

CLEAR: wg_intern,wg_file.

ENDAT.

CLEAR : wg_intern,l_index.

ENDLOOP.

ENDIF.

ENDFORM. " uploading_excel_file

&----

*& Form populate

&----

FORM populate .

CLEAR wg_file.

LOOP AT ig_file INTO wg_file.

MOVE: p_bukrs TO wg_final-bukrs,

p_blart TO wg_final-blart,

p_bldat TO wg_final-bldat,

p_budat TO wg_final-budat,

p_waers TO wg_final-waers,

p_kursf TO wg_final-kursf,

p_xblnr TO wg_final-xblnr,

p_bktxt TO wg_final-bktxt.

WRITE icon_green_light AS ICON TO wg_final-status.

MOVE: wg_file-hkont TO wg_final-hkont,

wg_file-shkzg TO wg_final-shkzg,

wg_file-gsber TO wg_final-gsber,

wg_file-kostl TO wg_final-kostl,

wg_file-aufnr TO wg_final-aufnr,

wg_file-prctr TO wg_final-prctr,

wg_file-sgtxt TO wg_final-sgtxt,

wg_file-wrbtr TO wg_final-wrbtr,

wg_file-mwskz TO wg_final-mwskz,

wg_file-geber TO wg_final-geber,

wg_file-fistl TO wg_final-fistl,

wg_file-menge TO wg_final-menge,

wg_file-meins TO wg_final-meins,

wg_file-sgtxt TO wg_final-sgtxt,

wg_file-menge TO wg_final-menge.

APPEND wg_final TO ig_final.

CLEAR wg_final.

ENDLOOP.

ENDFORM. " populate

&----

*& Form call_bdc

&----

FORM call_bdc .

PERFORM bdc_dynpro USING 'SAPLACHD' '1000'.
PERFORM bdc_field USING 'BDC_CURSOR' 'BKPF-BUKRS'.
PERFORM bdc_field USING 'BKPF-BUKRS'
p_bukrs.

PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.

PERFORM bdc_dynpro USING 'SAPMF05A' '1001'.

PERFORM bdc_field USING 'BDC_OKCODE'

'BS'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/ECCDE'.

WRITE p_bldat TO p_bldat1.

PERFORM bdc_field USING 'ACGL_HEAD-BLDAT'

p_bldat1.

PERFORM bdc_field USING 'ACGL_HEAD-WAERS'

p_waers.

WRITE p_budat TO p_budat1.

PERFORM bdc_field USING 'ACGL_HEAD-BUDAT'

p_budat1.

PERFORM bdc_field USING 'ACGL_HEAD-XBLNR'

p_xblnr.

PERFORM bdc_field USING 'ACGL_HEAD-BKTXT'

p_bktxt.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

g_count = 1.

LOOP AT ig_final INTO wg_final.

CLEAR g_field.

PERFORM bdc_dynpro USING 'SAPMF05A' '1001'.

CONCATENATE 'ACGL_ITEM-HKONT' '(' g_count ')' INTO g_field.

PERFORM bdc_field USING g_field

wg_final-hkont.

CLEAR g_field.

CONCATENATE 'ACGL_ITEM-SHKZG' '(' g_count ')' INTO g_field.

PERFORM bdc_field USING g_field

wg_final-shkzg.

CLEAR g_field.

CONCATENATE 'ACGL_ITEM-WRBTR' '(' g_count ')' INTO g_field.

PERFORM bdc_field USING g_field

wg_final-wrbtr.

CLEAR g_field.

CONCATENATE 'ACGL_ITEM-MWSKZ' '(' g_count ')' INTO g_field.

PERFORM bdc_field USING g_field

wg_final-mwskz.

CLEAR g_field.

CONCATENATE 'ACGL_ITEM-SGTXT' '(' g_count ')' INTO g_field.

PERFORM bdc_field USING g_field

wg_final-sgtxt.

CLEAR g_field.

CONCATENATE 'ACGL_ITEM-MENGE' '(' g_count ')' INTO g_field.

PERFORM bdc_field USING g_field

wg_final-menge.

CLEAR g_field.

CONCATENATE 'ACGL_ITEM-MEINS' '(' g_count ')' INTO g_field.

PERFORM bdc_field USING g_field

wg_final-meins.

PERFORM bdc_field USING 'BDC_CURSOR'

'ACGL_ITEM-HKONT(10)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

ADD 1 TO g_count.

ENDLOOP.

PERFORM bdc_dynpro USING 'SAPMSSY0' '0120'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=PBBP'.

PERFORM call_transaction USING 'FV50' p_dismod.

PERFORM check CHANGING g_fieldcat .

PERFORM layout CHANGING g_layout

ENDFORM. " call_bdc

&----

*& Form BDC_DYNPRO

&----

Start dynpro processing

----

FORM bdc_dynpro USING p_program

p_dynpro.

CLEAR: wg_bdcdata.

wg_bdcdata-program = p_program.

wg_bdcdata-dynpro = p_dynpro.

wg_bdcdata-dynbegin = c_x.

APPEND wg_bdcdata TO ig_bdcdata .

ENDFORM. " BDC_DYNPRO

&----

*& Form BDC_FIELD

&----

Create dynpro field

----

FORM bdc_field USING p_nam p_val.

CLEAR: wg_bdcdata.

wg_bdcdata-fnam = p_nam.

wg_bdcdata-fval = p_val.

APPEND wg_bdcdata TO ig_bdcdata.

ENDFORM. " BDC_FIELD

&----

*& Form check

&----

text

----

-->G_FIELDCAT text

----

FORM check CHANGING g_fieldcat TYPE lvc_t_fcat .

DATA: line_fieldcat TYPE slis_fieldcat_alv

REFRESH g_fieldcat.