Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

regarding table control

former_member585865
Contributor
0 Kudos

Hi all,

i have an requirement that in table control when i entered the data and presses save it should save to the database(i.e. ztable) how i can achieve this.Also in table control i have created 31 fields for 31 days bcoz am working in timesheet program, how can dynamically say the days like Monday or Tuesday depends on that day fields.I have created month and year in dropdown list, when i presses save(for all triggering events) the dropdown becomes empty, i want that to be saved in the database how i can achieve this?

1 ACCEPTED SOLUTION

Former Member
0 Kudos

hi,

write this in user_command_1000 of PAI.

<b>MODULE user_command_1000 INPUT.</b>

CASE ok_code.

WHEN 'SAVE' .

IF srno IS INITIAL.

CLEAR srn.

SELECT MAX( srno ) FROM zform_track_mast INTO srn.

srn = srn + 1.

itab_mast-clnt = sy-mandt.

itab_mast-srno = srn.

itab_mast-comp_code = zform_track_mast-comp_code.

itab_mast-form_type = ifmtp-form_type.

itab_mast-form_series = form_series.

itab_mast-form_no = form_no.

itab_mast-form_date = zform_track_mast-form_date.

itab_mast-rcvd_issu = 'I'.

itab_mast-form_amt = form_amt.

INSERT INTO zform_track_mast VALUES itab_mast.

LOOP AT itab_det INTO wa_det.

IF wa_det-vend_cust_code <> ''.

MOVE-CORRESPONDING wa_det TO wa_det1.

wa_det1-clnt = sy-mandt.

wa_det1-srno = srn.

wa_det1-sub_srno = sy-tabix.

wa_det1-comp_code = zform_track_mast-comp_code.

INSERT INTO zform_track_det VALUES wa_det1.

ENDIF.

ENDLOOP.

MESSAGE s000(zmsg_fmtr) WITH srn.

ENDCASE.

<b>ENDMODULE. " USER_COMMAND_1000 INPUT</b>

1 REPLY 1

Former Member
0 Kudos

hi,

write this in user_command_1000 of PAI.

<b>MODULE user_command_1000 INPUT.</b>

CASE ok_code.

WHEN 'SAVE' .

IF srno IS INITIAL.

CLEAR srn.

SELECT MAX( srno ) FROM zform_track_mast INTO srn.

srn = srn + 1.

itab_mast-clnt = sy-mandt.

itab_mast-srno = srn.

itab_mast-comp_code = zform_track_mast-comp_code.

itab_mast-form_type = ifmtp-form_type.

itab_mast-form_series = form_series.

itab_mast-form_no = form_no.

itab_mast-form_date = zform_track_mast-form_date.

itab_mast-rcvd_issu = 'I'.

itab_mast-form_amt = form_amt.

INSERT INTO zform_track_mast VALUES itab_mast.

LOOP AT itab_det INTO wa_det.

IF wa_det-vend_cust_code <> ''.

MOVE-CORRESPONDING wa_det TO wa_det1.

wa_det1-clnt = sy-mandt.

wa_det1-srno = srn.

wa_det1-sub_srno = sy-tabix.

wa_det1-comp_code = zform_track_mast-comp_code.

INSERT INTO zform_track_det VALUES wa_det1.

ENDIF.

ENDLOOP.

MESSAGE s000(zmsg_fmtr) WITH srn.

ENDCASE.

<b>ENDMODULE. " USER_COMMAND_1000 INPUT</b>