Help on Table control

[Former Member]

Hi,

I cretaed my own Z table and i ve to insert new records as well update them when necessary..

now i ve a table control for that..so how i can insert and update my ztable with table control..?

In PBO and PAI. what should i mention in Loop at ........?

Normally it allows only Itab which contains Ztable data. But here itab is empty. since i am not populating itab from Ztable,

I need to populate the Ztable from Table ctrl datas.

Is there any parameter which holds the number of rows entered in table Ctrl?

help me in this regard.

[Former Member]

Hi,

Just go through these links,

http://sts1.sts.tu-harburg.de/teaching/sap_r3/ABAP4/contro02.htm

http://help.sap.com/saphelp_nw04/helpdata/en/9f/dbac1d35c111d1829f0000e829fbfe/content.htm

http://www.planetsap.com/online_pgm_main_page.htm

http://www.marist.idcp.org/shaine/ABAP/ABAP%20Programming/Dialog%20Programming%20-%20Table%20Control...

http://www.sapdevelopment.co.uk/dialog/tabcontrol/tc_basic.htm

http://sap.niraj.tripod.com/id29.html

http://www.sapmaterial.com/tablecontrol_sap.html

These are the standard DEMO Programs.

RSDEMO02

DEMO_DYNPRO_TABLE_CONTROL_1

DEMO_DYNPRO_TABLE_CONTROL_2

Hope this helps.

[Former Member]

hello Ram

im sending one table contro program it may use ful top u..

REPORT zsiva_bdctable .

*include bdcrecx1.

TYPES : BEGIN OF ty_head,

auart(4),

vkorg(4), "Sales Organization

vtweg(2), "Distribution Channel

spart(2), "Division

kunnr(10), "sold-to-party

bstkd(10), "Customer purchase order number

END OF ty_head.

TYPES: BEGIN OF ty_item,

matnr(18) TYPE c, "Material

kwmeng(13) TYPE c, "Quantity

END OF ty_item.

DATA: it_head TYPE TABLE OF ty_head.

DATA: wa_head LIKE LINE OF it_head.

DATA: it_item TYPE TABLE OF ty_item.

DATA: wa_item LIKE LINE OF it_item.

DATA :bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.

DATA:v_kwmeng(30) TYPE c,

v_mabnr(30) TYPE c.

DATA: val(2) TYPE n VALUE 01.

DATA : w_file2 TYPE string,

w_file1 TYPE string.

PARAMETERS: filename LIKE rlgrap-filename.

PARAMETERS: filenam1 LIKE rlgrap-filename.

****************************************************

AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.

CALL FUNCTION 'F4_FILENAME'

IMPORTING

file_name = filename.

******************************************************

AT SELECTION-SCREEN ON VALUE-REQUEST FOR filenam1.

CALL FUNCTION 'F4_FILENAME'

IMPORTING

file_name = filenam1.

*******************************************************

START-OF-SELECTION.

w_file2 = filename.

w_file1 = filenam1.

• HEADER ************************

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = w_file2

filetype = 'ASC'

has_field_separator = 'X'

TABLES

data_tab = it_head.

• ITEM *******************

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = w_file1

filetype = 'ASC'

has_field_separator = 'X'

TABLES

data_tab = it_item.

**********CREATE SESSION***************

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

client = sy-mandt

group = 'TABLECONT'

keep = 'X'

user = sy-uname.

******POPULATE BDCDATABLE***************

• PERFORM open_group.

LOOP AT it_head INTO wa_head.

PERFORM bdc_dynpro USING 'SAPMV45A' '0101'.

PERFORM bdc_field USING 'BDC_CURSOR'

'VBAK-AUART'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'VBAK-AUART'

wa_head-auart.

PERFORM bdc_field USING 'VBAK-VKORG'

wa_head-vkorg.

PERFORM bdc_field USING 'VBAK-VTWEG'

wa_head-vtweg.

PERFORM bdc_field USING 'VBAK-SPART'

wa_head-spart.

PERFORM bdc_dynpro USING 'SAPMV45A' '4001'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'VBKD-BSTKD'

wa_head-bstkd.

PERFORM bdc_field USING 'VBKD-BSTDK'

'30.01.2006'.

PERFORM bdc_field USING 'KUAGV-KUNNR'

wa_head-kunnr.

PERFORM bdc_field USING 'RV45A-KETDAT'

'30.01.2006'.

PERFORM bdc_field USING 'RV45A-KPRGBZ'

'D'.

PERFORM bdc_field USING 'VBKD-ZTERM'

'0001'.

PERFORM bdc_field USING 'VBKD-INCO1'

'CIF'.

PERFORM bdc_field USING 'VBKD-INCO2'

' COST INSUSRABCE FRIEGHT'.

LOOP AT it_item INTO wa_item .

CONCATENATE 'RV45A-MABNR(' '0' val ')' INTO v_mabnr.

CONCATENATE 'RV45A-KWMENG(' '0' val ')' INTO v_kwmeng.

• PERFORM bdc_field USING 'BDC_CURSOR'

• v_kwmeng.

PERFORM bdc_field USING v_mabnr

wa_item-matnr.

PERFORM bdc_field USING v_kwmeng

wa_item-kwmeng.

PERFORM bdc_dynpro USING 'SAPMV45A' '4001'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

val = val + 1.

IF val > 5.

val = 5.

ENDIF.

ENDLOOP.

val = 01.

PERFORM bdc_dynpro USING 'SAPMV45A' '4001'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=SICH'.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

tcode = 'VA01'

TABLES

dynprotab = bdcdata.

REFRESH bdcdata.

*PERFORM bdc_transaction USING 'VA01'.

ENDLOOP.

• PERFORM close_group.

CALL FUNCTION 'BDC_CLOSE_GROUP'.

----

---

• Start new screen *

----

---

FORM bdc_dynpro USING program dynpro.

CLEAR bdcdata.

bdcdata-program = program.

bdcdata-dynpro = dynpro.

bdcdata-dynbegin = 'X'.

APPEND bdcdata.

ENDFORM. "BDC_DYNPRO

----

---

• Insert field *

----

---

FORM bdc_field USING fnam fval.

CLEAR bdcdata.

bdcdata-fnam = fnam.

bdcdata-fval = fval.

APPEND bdcdata.

ENDFORM. "BDC_FIELD

[Former Member]

Hi,

In ur table control put the selection box and then all the fields and keep one button on th screen say submit

in the PAi of the screen

case sy-ucomm.

when 'submit'.

If sel_text eq 'X'.

Insert z_table value ur field string.

endif.

endcase.

then ur record will automatically get updated in the ztable.

PLzz reward points if it helps.