Display, Insert, Update, Delete???

[Former Member]

Hi

In screen paineter layout, I have a Input field Vendor No. , Table Control (Vcontrol) with Fileds (Name, City, Porder No.. ) and 4 Push buttons with FCT Codes 'Display', 'Insert', 'Update' & 'Delete'.

Now i want Flow logic to Display ,Insert, Update, Delete operations.

Possible with Code for Display & Insert Operations.

Thanks in advance

RK Nimma

[Former Member]

Hi,

Here is the sample program for insert, modify, delete the DB table values using Table Control.

REPORT Y_DB_TABLECONTROL.

TABLES: MARA.

CONTROLS MATERIAL TYPE TABLEVIEW USING SCREEN 130.

TYPES: BEGIN OF ST_MARA,

MATNR TYPE MARA-MATNR,

ERNAM TYPE MARA-ERNAM,

END OF ST_MARA.

DATA: IT_ST TYPE TABLE OF ST_MARA,

WA_ST TYPE ST_MARA,

IT_MARA TYPE MARA,

WA_MARA TYPE MARA,

MATNR TYPE MARA-MATNR,

ERNAM TYPE MARA-ERNAM.

CALL SCREEN 130.

MODULE V1 INPUT.

CASE sy-ucomm.

WHEN 'SAVE'.

WA_ST-MATNR = MATNR.

WA_ST-ERNAM = ERNAM.

MOVE-CORRESPONDING WA_ST TO WA_MARA.

INSERT INTO MARA VALUES WA_MARA.

if sy-subrc = 0.

MESSAGE s001(ZKAAR).

endif.

WHEN 'DELETE'.

WA_ST-MATNR = MATNR.

WA_ST-ERNAM = ERNAM.

MOVE-CORRESPONDING WA_ST TO WA_MARA.

DELETE MARA FROM WA_MARA.

WHEN 'MODIFY'.

WA_ST-MATNR = MATNR.

WA_ST-ERNAM = ERNAM.

MOVE-CORRESPONDING WA_ST TO WA_MARA.

MODIFY MARA FROM WA_MARA.

ENDCASE.

ENDMODULE. " V1 INPUT

MODULE EXIT INPUT.

IF sy-ucomm = 'EXIT' or sy-ucomm = 'BACK'.

LEAVE PROGRAM.

ENDIF.

ENDMODULE. " EXIT INPUT

&----

---

*& Module status OUTPUT

&----

---

• text

----

---

module status output.

set pf-status 'STAT'.

endmodule. " status OUTPUT

FLOW logic: (Need to be written for Table control)

PROCESS BEFORE OUTPUT.

module status.

LOOP WITH CONTROL MATERIAL.

ENDLOOP.

PROCESS AFTER INPUT.

MODULE exit.

LOOP WITH CONTROL MATERIAL.

MODULE V1.

ENDLOOP.

Reward points if useful

Cheers,

Shanthi.

[Former Member]

Hi shanti

I could get result for Insert, update & delete in the program.

but I wanted display logic also in the same program.

Thanks

RK

[Former Member]

Hi,

See the sample program RSDEMO02.

Pls reward points if useful.

Regards,

Renjith Michael.