‎2008 Jul 31 8:02 AM
Hi
i am haveing problem while save data in ztable throught
table control if i select the check boc on table control.
i have coded like this..
----
MODULE USER_COMMAND_0112 INPUT
----
*
----
MODULE USER_COMMAND_0112 INPUT.
CASE okcode .
WHEN 'BACK' or 'CANCEL'.
SET SCREEN 0.
WHEN 'ENTER'.
if itf-sel = 'x'.
insert zacg_nsi from itf..
endif.
endcase.
ENDMODULE. " USER_COMMAND_0112 INPUT
----
MODULE read_table_control INPUT
----
*
----
MODULE read_table_control INPUT.
READ table iti INDEX tc-current_line.
ENDMODULE. "read_table_control INPUT
can any one help me
‎2008 Jul 31 8:05 AM
if itf-sel = 'x'.
check by passing value in Uppercase.........
if itf-sel = 'X'..
‎2008 Jul 31 8:07 AM
Hi,
itf-sel = 'X'.
u need to provide in capital letter..
Thnaks & Regards
Ashu Singh
‎2008 Jul 31 11:16 AM
hi,
still i am not able to save it can any one help me.
i have modify like this..
&----
*& Module STATUS_0112 OUTPUT
&----
text
----
MODULE STATUS_0112 OUTPUT.
SET PF-STATUS 'ZTC'.
SET TITLEBAR 'xxx'.
DESCRIBE TABLE iti LINES tc-lines.
ENDMODULE. " STATUS_0112 OUTPUT
----
MODULE fill_table_control OUTPUT
----
*
----
MODULE fill_table_control OUTPUT.
READ table iti index tc-current_line.
MOVE iti-INGR_CODE to itf-ingr_code.
MOVE iti-INGR_DESC TO ITF-COL_NAME.
MOVE iti-CONC TO ITF-CONC.
MOVE iti-PERCQTY TO ITF-PERCQTY.
MOVE iti-QUANTITY TO ITF-QUANTITY.
move iti-uom to itf-uom.
ENDMODULE. "fill_table_control OUTPUT
&----
*& Include ZACG_NS_TC *
&----
----
MODULE USER_COMMAND_0112 INPUT
----
*
----
MODULE USER_COMMAND_0112 INPUT.
CASE okcode .
WHEN 'BACK' or 'CANCEL'.
SET SCREEN 0.
WHEN 'ENTER'.
LOOP AT ITF INTO WKA1 WHERE SEL = 'X'.
MOVE ITF-INGR_CODE TO WKA1-INGR_CODE.
MOVE ITF-COL_NAME TO WKA1-COL_NAME.
MOVE ITF-CONC TO WKA1-CONC.
MOVE ITF-PERCQTY TO WKA1-PERCQTY.
MOVE ITF-QUANTITY TO WKA1-QUANTITY.
MOVE ITF-UOM to WKA1-UOM.
INSERT INTO ZACG_NSI VALUES WKA1.
ENDLOOP.
ENDCASE.
ENDMODULE. " USER_COMMAND_0112 INPUT
----
MODULE read_table_control INPUT
----
*
----
MODULE read_table_control INPUT.
IF ROW = 'X'.
ITF-SEL = 'X'.
ENDIF.
modify itf index tc-current_line.
ENDMODULE. "read_table_control INPUT
‎2008 Jul 31 4:39 PM