topic Re: Need sample table control program in Application Development and Automation Discussions

Need sample table control program

Former Member — Mon, 12 Dec 2005 14:54:13 GMT

Hi Friends,

Can any one give me the sample table control program for changing,displaying and creating multiple entries for fields in a table.when i click new entries it should allow me to create multiple values instead of one.Change should allow me to change the field value and display should to display the field values in disable mode.Sure i will reward points for the correct program.

It is very urgent requirement.

Rgds,

Rama

Re: Need sample table control program

Former Member — Mon, 12 Dec 2005 14:57:13 GMT

see below example demo_dynpro_tabcont_loop_at

Re: Need sample table control program

andreas_mann3 — Mon, 12 Dec 2005 15:01:07 GMT

Hi,

look here (with se38):

DEMO_DYNPRO_TABLE_CONTROL_1

DEMO_DYNPRO_TABLE_CONTROL_2

Andreas

Re: Need sample table control program

Former Member — Mon, 12 Dec 2005 20:02:28 GMT

Hi,

you can see the Example programs in SAP itself.

goto SE38 --> Environment --> Examples --> ABAP examples

then

press BC-ABAP Programming --> ABAP User Dialogs --> SCREENS

in this on e see Processing screen and Complex Screen elements

You will get all the programs here with e Sample example. hope you get what you want here

Regards

Sudheer

Re: Need sample table control program

Former Member — Tue, 13 Dec 2005 01:18:51 GMT

I need sample table control program for creating multiple entries for the table.For example zemployee is the table.If i click on create new entries it should allow me to create multiple records instead of 1.If i click on change button it should allow me to change the existing records & it should not allow me to create new records and for display it should allow me to display the records in disable mode.

The existing SAP examples doesn't have create entries.So Can any one send me the sample program for the above.

Re: Need sample table control program

Former Member — Tue, 13 Dec 2005 01:30:12 GMT

Hi Ramadevi,

Please try this test program :

http://members.aol.com/_ht_a/skarkada/sap/table_control/table_control.htm

Hopr this helps you.

Re: Need sample table control program

Former Member — Tue, 13 Dec 2005 06:07:45 GMT

refer the following part:

Process Before Output Event , this will fires before output and also
after giving any input from user

PROCESS BEFORE OUTPUT.

This module contains the PF status of screen and also input help
fields binding

MODULE status_0100.

In this step we are moving data from internal table to table control
work area to display

LOOP WITH CONTROL tc1.

MODULE read_table_control.

ENDLOOP.

*----

Process After user input

PROCESS AFTER INPUT.

*This module will fires when the user presses exit or back or cancel

buttons

MODULE exit_screen AT EXIT-COMMAND.

*This will help to validate header level details

CHAIN.

FIELD : wk_werks,

wk_plant,

wk_shift,

wk_dept,

wk_date.

MODULE data_validation.

ENDCHAIN.

This will help to validate table control fields validation

LOOP WITH CONTROL tc1.

CHAIN.

FIELD :

it_tc1-matnr,

it_tc1-vornr,

it_tc1-opdes,

it_tc1-plnnr,

it_tc1-plnal,

it_tc1-arbpl,

it_tc1-pernr,

it_tc1-sertype,

it_tc1-quantity,

it_tc1-time,

it_tc1-targqty,

it_tc1-rejqty,

it_tc1-ot,

it_tc1-remarks.

MODULE validate_data .

ENDCHAIN.

ENDLOOP.

This module uses when the user presses any button

MODULE user_command_0100.

This module is used to get the F4 help for screen fields

PROCESS ON VALUE-REQUEST.

FIELD wk_shift MODULE shift_values.

FIELD wk_dept MODULE dept_values.

FIELD it_tc1-pernr MODULE pernr_values.

FIELD it_tc1-vornr MODULE vornr_values.

FIELD it_tc1-sertype MODULE sertype_values.

and the coding inside would look like this!!

PROGRAM zppm001_proddet MESSAGE-ID zpp .

TABLES : zppt001_prod, " PRODUCTION INCENTIVE DETAILS TABLE

t001w, " PLANT MASTER TABLE

mapl, " MATERIAL TASK LIST TABLE

plas, " TASK LIST

plpo, " TASK LIST / OPERATIONS

crhd, " WORK CENTER HEADER

tc37a, " SHIFT DEFINITION

t552a, " MONTHLY WORK SCHEDULE

pa0001, " ORG.ASSIGNMENT

pa0000, " ACTION INFO TYPE

hrp1008, " ORG.UNITS

hrp1000. " DEPARTMENT TEXTS

Table control Declaration

CONTROLS tc1 TYPE TABLEVIEW USING SCREEN 100.

Table control column declaration

DATA: cols LIKE LINE OF tc1-cols.

&----

*Internal Table Declaration

&----

DATA : BEGIN OF it_tc1,

sel,

matnr LIKE zppt001_prod-matnr,

plnnr LIKE zppt001_prod-plnnr,

plnal LIKE mapl-plnal,

vornr LIKE zppt001_prod-vornr,

opdes LIKE plpo-ltxa1,

arbpl LIKE zppt001_prod-arbpl,

targqty LIKE zppt001_prod-quantity,

sertype LIKE zppt001_prod-sertype,

pernr LIKE pa0000-pernr,

quantity LIKE zppt001_prod-quantity,

time LIKE zppt001_prod-time,

downtime LIKE zppt001_prod-downtime,

rejqty LIKE zppt001_prod-quantity,

ot,

remarks LIKE zppt001_prod-remarks,

END OF it_tc1.

Internal table for Table control

DATA : it_tc1_temp LIKE it_tc1 OCCURS 0 WITH HEADER LINE.

Work area used to for COPY & PASTE buttons

DATA : wk_tc1 LIKE it_tc1.

Internal table to store production details before saving into database
table

DATA : it_zppt001 LIKE zppt001_prod OCCURS 0 WITH HEADER LINE.

Internal table for Material tasklist details

DATA : BEGIN OF it_mapl OCCURS 0,

matnr LIKE mapl-matnr,

werks LIKE mapl-werks,

plnty LIKE mapl-plnty,

plnnr LIKE mapl-plnnr,

plnal LIKE mapl-plnal,

zkriz LIKE mapl-zkriz,

zaehl LIKE mapl-zaehl,

loekz LIKE mapl-loekz,

END OF it_mapl.

Internal table for operations of tasklist

DATA : BEGIN OF it_plas OCCURS 0,

plnty LIKE plas-plnty,

plnnr LIKE plas-plnnr,

plnal LIKE plas-plnal,

plnfl LIKE plas-plnfl,

plnkn LIKE plas-plnkn,

zaehl LIKE plas-zaehl,

loekz LIKE plas-loekz,

END OF it_plas.

Internal table for operation tasklist activity

DATA : BEGIN OF it_plpo OCCURS 0,

plnty LIKE plpo-plnty,

plnnr LIKE plpo-plnnr,

plnkn LIKE plpo-plnkn,

zaehl LIKE plpo-zaehl,

loekz LIKE plpo-loekz,

vornr LIKE plpo-vornr,

arbid LIKE plpo-arbid,

ltxa1 LIKE plpo-ltxa1,

usr04 LIKE plpo-usr04,

END OF it_plpo.

Internal table for Work Centre

DATA : BEGIN OF it_crhd OCCURS 0,

objty LIKE crhd-objty,

objid LIKE crhd-objid,

arbpl LIKE crhd-arbpl,

END OF it_crhd.

&----

DATA DECLARATION

&----

DATA : v_ucomm LIKE sy-ucomm,

v_lines TYPE i,

wk_date LIKE zppt001_prod-audat,

wk_werks LIKE zppt001_prod-werks,

wk_plant LIKE t001w-name1,

wk_dept LIKE zppt001_prod-orgeh,

wk_pernr LIKE zppt001_prod-pernr,

wk_empname LIKE pa0001-ename,

wk_deptname LIKE hrp1000-stext,

wk_start LIKE t550a-sobeg,

wk_end LIKE t550a-soend,

wk_motpr LIKE t550a-motpr,

wk_shift LIKE t550a-tprog,

v_persa LIKE hrp1008-persa,

v_btrtl LIKE hrp1008-btrtl.

DATA : wk_year(4) TYPE c,

wk_month(2) TYPE c,

wk_day(2) TYPE c,

wk_days(31) TYPE c,

wk_flag,

wk_tot_rec TYPE i,

wk_persk LIKE pa0001-persk.

&----

Internal Table Declaration for F4 help for screen fields

&----

Structure for Shift help

TYPES : BEGIN OF values,

motpr LIKE t550a-motpr,

sobeg LIKE t550a-sobeg,

soend LIKE t550a-soend,

tprog LIKE t550a-tprog,

END OF values.

Structure for Material help

TYPES : BEGIN OF values1,

maktx LIKE makt-maktx,

matnr LIKE makt-matnr,

END OF values1.

Structure for Department help

TYPES : BEGIN OF values2,

stext LIKE hrp1000-stext,

objid LIKE hrp1000-objid,

END OF values2.

Structure for Employee help

TYPES : BEGIN OF values3,

ename LIKE pa0001-ename,

pernr LIKE pa0001-pernr,

END OF values3.

Structure for Operation help

TYPES : BEGIN OF values4,

matnr LIKE mapl-matnr,

plnnr LIKE mapl-plnnr,

plnal LIKE mapl-plnal,

arbpl LIKE crhd-arbpl,

usr04 LIKE plpo-usr04,

ltxa1 LIKE plpo-ltxa1,

vornr LIKE plpo-vornr,

END OF values4.

Structure for type of employee help ( Operator , Helper or Others )

TYPES : BEGIN OF values5,

sno TYPE i,

text LIKE zppt001_prod-plnnr,

sertype LIKE zppt001_prod-sertype,

END OF values5.

Internal tables used in F4 help

DATA : BEGIN OF it_matnr OCCURS 0,

matnr LIKE mara-matnr,

END OF it_matnr.

DATA : BEGIN OF it_hrp1008 OCCURS 0,

objid LIKE hrp1008-objid,

END OF it_hrp1008.

DATA : BEGIN OF it_pa0001 OCCURS 0,

pernr LIKE pa0001-pernr,

ename LIKE pa0001-ename,

END OF it_pa0001.

DATA : BEGIN OF it_pa0000 OCCURS 0,

pernr LIKE pa0000-pernr,

END OF it_pa0000.

DATA: progname LIKE sy-repid,

dynnum LIKE sy-dynnr,

dynpro_values TYPE TABLE OF dynpread,

field_value LIKE LINE OF dynpro_values,

values_tab TYPE TABLE OF values WITH HEADER LINE,

values_tab1 TYPE TABLE OF values1 WITH HEADER LINE,

values_tab2 TYPE TABLE OF values2 WITH HEADER LINE,

values_tab3 TYPE TABLE OF values3 WITH HEADER LINE,

values_tab4 TYPE TABLE OF values4 WITH HEADER LINE,

values_tab5 TYPE TABLE OF values5 WITH HEADER LINE.

DATA : person_tab LIKE rhldapp OCCURS 0 WITH HEADER LINE,

orgunits LIKE rhldapo OCCURS 0 WITH HEADER LINE.

DATA : return_tab LIKE ddshretval OCCURS 0 WITH HEADER LINE.

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

MODULE status_0100 OUTPUT.

PF status of screen ( Application tool bar settings )

SET PF-STATUS 'ZPPM_TOOL'.

SET TITLEBAR 'ZPPM_TITLE'.

progname = sy-repid.

dynnum = sy-dynnr.

CLEAR: field_value, dynpro_values.

Screen Fields for F4 help

field_value-fieldname = 'WK_SHIFT'.