Dialog Program

Former Member · ‎2006 Jun 30

Hi Friends,

I have created a dialog program with two blocks, (1) Header and (2) Line item.

The Line item block is made using the Table control through wizard.

The Header is having single row whereas the Line item has multiple rows.

The data entered are :

Header : Single row.

Line item : 2 or 3 rows.

The problem observed is that, the header is getting saved in the header table whereas in the line item table, only the last row is getting saved, instead of all the rows.

Can any one help me in guiding me as to how to solve this problem. If any one is having a complete document on dialog program (for the basic program) pls forward the same to me.

Thanks in advace.

Regards,

Mark K

dani_mn · ‎2006 Jun 30

I think you are saving record form the header line of the internal table.

can you paste the code which is saving line items.

Regards,

Wasim Ahmed

Former Member · ‎2006 Jun 30

I have attahced the complete code herebelow for your referece. Kindly check the same and guide me the correction.

&----

*& Module pool ZTDR1

*&

&----

*&

&----

PROGRAM ZTDR1 MESSAGE-ID ZAUT.

TABLES : ZTDR, ZTDR_DTL.

DATA : WA_NAME(50) TYPE C,

WA_HONUM(10) TYPE C,

WA_HONUM1(10) TYPE C,

WA_DCNUM(10) TYPE C,

WA_DCNUM1(10) TYPE C.

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'GUI0100'.

SET TITLEBAR 'TITBAR'.

IF SY-UNAME NE 'TRAINING'.

IF SY-UNAME NE 'PMR'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'HO'.

SCREEN-INPUT = 0.

SCREEN-INVISIBLE = 1.
SCREEN-ACTIVE = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

TYPE-POOLS :VRM.

DATA:I_DDLIST TYPE VRM_VALUES,

W_DDLIST LIKE LINE OF I_DDLIST.

DATA: BEGIN OF I_PSTYP OCCURS 0,

PKEY(1) TYPE C,

PVAL(10) TYPE C,

END OF I_PSTYP.

CLEAR : W_DDLIST, I_DDLIST.

IF I_PSTYP[] IS INITIAL.

I_PSTYP-PKEY = 'P'.

I_PSTYP-PVAL = 'Primary'.

APPEND I_PSTYP.

I_PSTYP-PKEY = 'S'.

I_PSTYP-PVAL = 'Secondary'.

APPEND I_PSTYP.

ENDIF.

DELETE ADJACENT DUPLICATES FROM I_PSTYP.

LOOP AT I_PSTYP .

W_DDLIST-KEY = I_PSTYP-PKEY.

W_DDLIST-TEXT = I_PSTYP-PVAL.

APPEND W_DDLIST TO I_DDLIST.

CLEAR W_DDLIST.

ENDLOOP.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = 'ZTDR-PSTYP'

VALUES = I_DDLIST

EXCEPTIONS

ID_ILLEGAL_NAME = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDMODULE. " STATUS_0100 OUTPUT

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

MODULE USER_COMMAND_0100 INPUT.

DATA OK_CODE LIKE SY-UCOMM.

OK_CODE = SY-UCOMM.

CLEAR WA_HONUM.

CASE OK_CODE.

WHEN 'SAVE'.

WHEN 'INSR'(001).

AUTHORITY-CHECK OBJECT 'Z_REPORT_N'

ID 'WERKS' FIELD ZTDR-BRNCH.

IF SY-SUBRC <> 0.

MESSAGE E001 WITH ZTDR-BRNCH.

ELSE.

SELECT SINGLE MAX( HONUM )

INTO WA_HONUM

FROM ZTDR.

WA_HONUM1 = WA_HONUM + 1.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = WA_HONUM1

IMPORTING

OUTPUT = WA_HONUM1.

ZTDR-HONUM = WA_HONUM1.

SELECT SINGLE MAX( DCNUM )

INTO WA_DCNUM

FROM ZTDR

WHERE BRNCH EQ ZTDR-BRNCH.

WA_DCNUM1 = WA_DCNUM + 1.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = WA_DCNUM1

IMPORTING

OUTPUT = WA_DCNUM1.

ZTDR-DCNUM = WA_DCNUM1.

INSERT ZTDR.

*****----

Insert ZTDR_DTL -

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

ZTDR_DTL-HONUM = WA_HONUM1.

ZTDR_DTL-DCNUM = WA_DCNUM1.

INSERT ZTDR_DTL.

****----

End of ZTDR_DTL Insert -

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

CLEAR : ZTDR-RCDAT, ZTDR-BRNCH, ZTDR-TDNUM,

ZTDR-DCNUM, ZTDR-DCDAT, ZTDR-LRNUM, ZTDR-LRDAT,

ZTDR-CARIR, ZTDR-TDDAT, ZTDR-DIVSN, ZTDR-MODEL,

ZTDR-PSTYP, ZTDR-QUANT, ZTDR-DAMGE, ZTDR-APAMT,

ZTDR-CLAMT, ZTDR-SNDAT, ZTDR-STLFR,

ZTDR-STLDT, ZTDR-CQNUM, ZTDR-CHOLA.

ENDIF.

WHEN 'VIEW'.

LOOP AT SCREEN.

IF SCREEN-GROUP2 = 'VV'.

SCREEN-INPUT = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

SELECT SINGLE * FROM ZTDR WHERE HONUM EQ ZTDR-HONUM.

WHEN 'MODIFY'.

MODIFY ZTDR.

CLEAR : ZTDR-RCDAT, ZTDR-BRNCH, ZTDR-TDNUM,

ZTDR-DCNUM, ZTDR-DCDAT, ZTDR-LRNUM, ZTDR-LRDAT,

ZTDR-CARIR, ZTDR-TDDAT, ZTDR-DIVSN, ZTDR-MODEL,

ZTDR-PSTYP, ZTDR-QUANT, ZTDR-DAMGE, ZTDR-APAMT,

ZTDR-CLAMT, ZTDR-SNDAT, ZTDR-STLFR,

ZTDR-STLDT, ZTDR-CQNUM, ZTDR-CHOLA.

WHEN 'EXIT'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

*----

*TABLES : S076.

*

*DATA : WA_WENUX LIKE S076-WENUX,

WA_NAME(25) TYPE C.

*

*WA_NAME = SY-UNAME.

*

*READ TABLE I_KEYFELDER WITH KEY FNAME = 'S076-WENUX'.

*IF SY-SUBRC = 0.

*

AUTHORITY-CHECK OBJECT 'Z_REPORT_N'
ID 'WERKS' FIELD I_KEYFELDER-VALUE.

*

IF SY-SUBRC <> 0.
RAISE NO_AUTHORITY.
ENDIF.

*

*ENDIF.

***&SPWIZARD: DATA DECLARATION FOR TABLECONTROL 'ZTDR_LINES'

*&SPWIZARD: DEFINITION OF DDIC-TABLE

TABLES: ZTDR_DTL.

*&SPWIZARD: TYPE FOR THE DATA OF TABLECONTROL 'ZTDR_LINES'

TYPES: BEGIN OF T_ZTDR_LINES,

POSNR LIKE ZTDR_DTL-POSNR,

DIVSN LIKE ZTDR_DTL-DIVSN,

MODEL LIKE ZTDR_DTL-MODEL,

QUANT LIKE ZTDR_DTL-QUANT,

DAMGE LIKE ZTDR_DTL-DAMGE,

END OF T_ZTDR_LINES.

*&SPWIZARD: INTERNAL TABLE FOR TABLECONTROL 'ZTDR_LINES'

DATA: G_ZTDR_LINES_ITAB TYPE T_ZTDR_LINES OCCURS 0,

G_ZTDR_LINES_WA TYPE T_ZTDR_LINES. "work area

DATA: G_ZTDR_LINES_COPIED. "copy flag

*&SPWIZARD: DECLARATION OF TABLECONTROL 'ZTDR_LINES' ITSELF

CONTROLS: ZTDR_LINES TYPE TABLEVIEW USING SCREEN 0100.

*&SPWIZARD: LINES OF TABLECONTROL 'ZTDR_LINES'

DATA: G_ZTDR_LINES_LINES LIKE SY-LOOPC.

*&SPWIZARD: OUTPUT MODULE FOR TC 'ZTDR_LINES'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: COPY DDIC-TABLE TO ITAB

Commented to check the initial display ***********

MODULE ZTDR_LINES_INIT OUTPUT.

IF G_ZTDR_LINES_COPIED IS INITIAL.

*&SPWIZARD: COPY DDIC-TABLE 'ZTDR_DTL'

*&SPWIZARD: INTO INTERNAL TABLE 'g_ZTDR_LINES_itab'

SELECT * FROM ZTDR_DTL

INTO CORRESPONDING FIELDS

OF TABLE G_ZTDR_LINES_ITAB.

G_ZTDR_LINES_COPIED = 'X'.

REFRESH CONTROL 'ZTDR_LINES' FROM SCREEN '0100'.

ENDIF.

ENDMODULE.

end of comment ***********************************

*&SPWIZARD: OUTPUT MODULE FOR TC 'ZTDR_LINES'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: MOVE ITAB TO DYNPRO

MODULE ZTDR_LINES_MOVE OUTPUT.

MOVE-CORRESPONDING G_ZTDR_LINES_WA TO ZTDR_DTL.

ENDMODULE.

*&SPWIZARD: OUTPUT MODULE FOR TC 'ZTDR_LINES'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: GET LINES OF TABLECONTROL

MODULE ZTDR_LINES_GET_LINES OUTPUT.

G_ZTDR_LINES_LINES = SY-LOOPC.

ENDMODULE.

*&SPWIZARD: INPUT MODULE FOR TC 'ZTDR_LINES'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: MODIFY TABLE

MODULE ZTDR_LINES_MODIFY INPUT.

MOVE-CORRESPONDING ZTDR_DTL TO G_ZTDR_LINES_WA.

MODIFY G_ZTDR_LINES_ITAB

FROM G_ZTDR_LINES_WA

INDEX ZTDR_LINES-CURRENT_LINE.

ENDMODULE.

*&SPWIZARD: INPUT MODULE FOR TC 'ZTDR_LINES'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: PROCESS USER COMMAND

MODULE ZTDR_LINES_USER_COMMAND INPUT.

OK_CODE = SY-UCOMM.

PERFORM USER_OK_TC USING 'ZTDR_LINES'

'G_ZTDR_LINES_ITAB'

'FLAG'

CHANGING OK_CODE.

SY-UCOMM = OK_CODE.

ENDMODULE.

----

INCLUDE TABLECONTROL_FORMS *

----

&----

*& Form USER_OK_TC *

&----

FORM USER_OK_TC USING P_TC_NAME TYPE DYNFNAM

P_TABLE_NAME

P_MARK_NAME

CHANGING P_OK LIKE SY-UCOMM.

&SPWIZARD: BEGIN OF LOCAL DATA----

DATA: L_OK TYPE SY-UCOMM,

L_OFFSET TYPE I.

&SPWIZARD: END OF LOCAL DATA----

*&SPWIZARD: Table control specific operations *

*&SPWIZARD: evaluate TC name and operations *

SEARCH P_OK FOR P_TC_NAME.

IF SY-SUBRC <> 0.

EXIT.

ENDIF.

L_OFFSET = STRLEN( P_TC_NAME ) + 1.

L_OK = P_OK+L_OFFSET.

*&SPWIZARD: execute general and TC specific operations *

CASE L_OK.

WHEN 'INSR'(001). "insert row

PERFORM FCODE_INSERT_ROW USING P_TC_NAME

P_TABLE_NAME.

CLEAR P_OK.

WHEN 'DELE'. "delete row

PERFORM FCODE_DELETE_ROW USING P_TC_NAME

P_TABLE_NAME

P_MARK_NAME.

CLEAR P_OK.

WHEN 'P--' OR "top of list

'P-' OR "previous page

'P+' OR "next page

'P++'. "bottom of list

PERFORM COMPUTE_SCROLLING_IN_TC USING P_TC_NAME

L_OK.

CLEAR P_OK.

WHEN 'L--'. "total left
PERFORM FCODE_TOTAL_LEFT USING P_TC_NAME.

*

WHEN 'L-'. "column left
PERFORM FCODE_COLUMN_LEFT USING P_TC_NAME.

*

WHEN 'R+'. "column right
PERFORM FCODE_COLUMN_RIGHT USING P_TC_NAME.

*

WHEN 'R++'. "total right
PERFORM FCODE_TOTAL_RIGHT USING P_TC_NAME.

*

WHEN 'MARK'. "mark all filled lines

PERFORM FCODE_TC_MARK_LINES USING P_TC_NAME

P_TABLE_NAME

P_MARK_NAME .

CLEAR P_OK.

WHEN 'DMRK'. "demark all filled lines

PERFORM FCODE_TC_DEMARK_LINES USING P_TC_NAME

P_TABLE_NAME

P_MARK_NAME .

CLEAR P_OK.

WHEN 'SASCEND' OR
'SDESCEND'. "sort column
PERFORM FCODE_SORT_TC USING P_TC_NAME
l_ok.

ENDCASE.

ENDFORM. " USER_OK_TC

&----

*& Form FCODE_INSERT_ROW *

&----

FORM fcode_insert_row

USING P_TC_NAME TYPE DYNFNAM

P_TABLE_NAME .

&SPWIZARD: BEGIN OF LOCAL DATA----

DATA L_LINES_NAME LIKE FELD-NAME.

DATA L_SELLINE LIKE SY-STEPL.

DATA L_LASTLINE TYPE I.

DATA L_LINE TYPE I.

DATA L_TABLE_NAME LIKE FELD-NAME.

FIELD-SYMBOLS <TC> TYPE CXTAB_CONTROL.

FIELD-SYMBOLS <TABLE> TYPE STANDARD TABLE.

FIELD-SYMBOLS <LINES> TYPE I.

&SPWIZARD: END OF LOCAL DATA----

ASSIGN (P_TC_NAME) TO <TC>.

*&SPWIZARD: get the table, which belongs to the tc *

CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body

ASSIGN (L_TABLE_NAME) TO <TABLE>. "not headerline

*&SPWIZARD: get looplines of TableControl *

CONCATENATE 'G_' P_TC_NAME '_LINES' INTO L_LINES_NAME.

ASSIGN (L_LINES_NAME) TO <LINES>.

*&SPWIZARD: get current line *

GET CURSOR LINE L_SELLINE.

IF SY-SUBRC <> 0. " append line to table

L_SELLINE = <TC>-LINES + 1.

*&SPWIZARD: set top line *

IF L_SELLINE > <LINES>.

<TC>-TOP_LINE = L_SELLINE - <LINES> + 1 .

ELSE.

<TC>-TOP_LINE = 1.

ENDIF.

ELSE. " insert line into table

L_SELLINE = <TC>-TOP_LINE + L_SELLINE - 1.

L_LASTLINE = <TC>-TOP_LINE + <LINES> - 1.

ENDIF.

*&SPWIZARD: set new cursor line *

L_LINE = L_SELLINE - <TC>-TOP_LINE + 1.

*&SPWIZARD: insert initial line *

INSERT INITIAL LINE INTO <TABLE> INDEX L_SELLINE.

<TC>-LINES = <TC>-LINES + 1.

*&SPWIZARD: set cursor *

SET CURSOR LINE L_LINE.

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

CLEAR : ZTDR_DTL-POSNR, ZTDR_DTL-MODEL,

ZTDR_DTL-QUANT, ZTDR_DTL-DAMGE.

CLEAR :G_ZTDR_LINES_ITAB, G_ZTDR_LINES_WA.

ENDFORM. " FCODE_INSERT_ROW

&----

*& Form FCODE_DELETE_ROW *

&----

FORM fcode_delete_row

USING P_TC_NAME TYPE DYNFNAM

P_TABLE_NAME

P_MARK_NAME .

&SPWIZARD: BEGIN OF LOCAL DATA----

DATA L_TABLE_NAME LIKE FELD-NAME.

FIELD-SYMBOLS <TC> TYPE cxtab_control.

FIELD-SYMBOLS <TABLE> TYPE STANDARD TABLE.

FIELD-SYMBOLS <WA>.

FIELD-SYMBOLS <MARK_FIELD>.

&SPWIZARD: END OF LOCAL DATA----

ASSIGN (P_TC_NAME) TO <TC>.

*&SPWIZARD: get the table, which belongs to the tc *

CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body

ASSIGN (L_TABLE_NAME) TO <TABLE>. "not headerline

*&SPWIZARD: delete marked lines *

DESCRIBE TABLE <TABLE> LINES <TC>-LINES.

LOOP AT <TABLE> ASSIGNING <WA>.

*&SPWIZARD: access to the component 'FLAG' of the table header *

ASSIGN COMPONENT P_MARK_NAME OF STRUCTURE <WA> TO <MARK_FIELD>.

IF <MARK_FIELD> = 'X'.

DELETE <TABLE> INDEX SYST-TABIX.

IF SY-SUBRC = 0.

<TC>-LINES = <TC>-LINES - 1.

ENDIF.

ENDLOOP.

ENDFORM. " FCODE_DELETE_ROW

&----

*& Form COMPUTE_SCROLLING_IN_TC

&----

text

----

-->P_TC_NAME name of tablecontrol
-->P_OK ok code

----

FORM COMPUTE_SCROLLING_IN_TC USING P_TC_NAME

P_OK.

&SPWIZARD: BEGIN OF LOCAL DATA----

DATA L_TC_NEW_TOP_LINE TYPE I.

DATA L_TC_NAME LIKE FELD-NAME.

DATA L_TC_LINES_NAME LIKE FELD-NAME.

DATA L_TC_FIELD_NAME LIKE FELD-NAME.

FIELD-SYMBOLS <TC> TYPE cxtab_control.

FIELD-SYMBOLS <LINES> TYPE I.

&SPWIZARD: END OF LOCAL DATA----

ASSIGN (P_TC_NAME) TO <TC>.

*&SPWIZARD: get looplines of TableControl *

CONCATENATE 'G_' P_TC_NAME '_LINES' INTO L_TC_LINES_NAME.

ASSIGN (L_TC_LINES_NAME) TO <LINES>.

*&SPWIZARD: is no line filled? *

IF <TC>-LINES = 0.

*&SPWIZARD: yes, ... *

L_TC_NEW_TOP_LINE = 1.

ELSE.

*&SPWIZARD: no, ... *

CALL FUNCTION 'SCROLLING_IN_TABLE'

EXPORTING

ENTRY_ACT = <TC>-TOP_LINE

ENTRY_FROM = 1

ENTRY_TO = <TC>-LINES

LAST_PAGE_FULL = 'X'

LOOPS = <LINES>

OK_CODE = P_OK

OVERLAPPING = 'X'

IMPORTING

ENTRY_NEW = L_TC_NEW_TOP_LINE

EXCEPTIONS

NO_ENTRY_OR_PAGE_ACT = 01
NO_ENTRY_TO = 02
NO_OK_CODE_OR_PAGE_GO = 03

OTHERS = 0.

ENDIF.

*&SPWIZARD: get actual tc and column *

GET CURSOR FIELD L_TC_FIELD_NAME

AREA L_TC_NAME.

IF SYST-SUBRC = 0.

IF L_TC_NAME = P_TC_NAME.

*&SPWIZARD: et actual column *

SET CURSOR FIELD L_TC_FIELD_NAME LINE 1.

ENDIF.

*&SPWIZARD: set the new top line *

<TC>-TOP_LINE = L_TC_NEW_TOP_LINE.

ENDFORM. " COMPUTE_SCROLLING_IN_TC

&----

*& Form FCODE_TC_MARK_LINES

&----

marks all TableControl lines

----

-->P_TC_NAME name of tablecontrol

----

FORM FCODE_TC_MARK_LINES USING P_TC_NAME

P_TABLE_NAME

P_MARK_NAME.

&SPWIZARD: EGIN OF LOCAL DATA----

DATA L_TABLE_NAME LIKE FELD-NAME.

FIELD-SYMBOLS <TC> TYPE cxtab_control.

FIELD-SYMBOLS <TABLE> TYPE STANDARD TABLE.

FIELD-SYMBOLS <WA>.

FIELD-SYMBOLS <MARK_FIELD>.

&SPWIZARD: END OF LOCAL DATA----

ASSIGN (P_TC_NAME) TO <TC>.

*&SPWIZARD: get the table, which belongs to the tc *

CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body

ASSIGN (L_TABLE_NAME) TO <TABLE>. "not headerline

*&SPWIZARD: mark all filled lines *

LOOP AT <TABLE> ASSIGNING <WA>.

*&SPWIZARD: access to the component 'FLAG' of the table header *

ASSIGN COMPONENT P_MARK_NAME OF STRUCTURE <WA> TO <MARK_FIELD>.

<MARK_FIELD> = 'X'.

ENDLOOP.

ENDFORM. "fcode_tc_mark_lines

&----

*& Form FCODE_TC_DEMARK_LINES

&----

demarks all TableControl lines

----

-->P_TC_NAME name of tablecontrol

----

FORM FCODE_TC_DEMARK_LINES USING P_TC_NAME

P_TABLE_NAME

P_MARK_NAME .

&SPWIZARD: BEGIN OF LOCAL DATA----

DATA L_TABLE_NAME LIKE FELD-NAME.

FIELD-SYMBOLS <TC> TYPE cxtab_control.

FIELD-SYMBOLS <TABLE> TYPE STANDARD TABLE.

FIELD-SYMBOLS <WA>.

FIELD-SYMBOLS <MARK_FIELD>.

&SPWIZARD: END OF LOCAL DATA----

ASSIGN (P_TC_NAME) TO <TC>.

*&SPWIZARD: get the table, which belongs to the tc *

CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body

ASSIGN (L_TABLE_NAME) TO <TABLE>. "not headerline

*&SPWIZARD: demark all filled lines *

LOOP AT <TABLE> ASSIGNING <WA>.

*&SPWIZARD: access to the component 'FLAG' of the table header *

ASSIGN COMPONENT P_MARK_NAME OF STRUCTURE <WA> TO <MARK_FIELD>.

<MARK_FIELD> = SPACE.

ENDLOOP.

ENDFORM. "fcode_tc_mark_lines

-

To save the data, I have created a push button as INSR. This is done in PAI part.

Regards,

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My Account

My Account

Dialog Program