topic Re: Reg Dialog Programming.. in Application Development and Automation Discussions

Reg Dialog Programming..

Former Member — Fri, 06 Jul 2007 11:14:51 GMT

Hi,

any one can tell me, how to create a tabscript control in Dialog Programming, if u have any program plz send.

I want step by step guidence of creating Dialog Program. Please help me.

Expecting ur Valuable Replay.

Regards,

Thanuskodi T.

Re: Reg Dialog Programming..

Former Member — Fri, 06 Jul 2007 11:20:35 GMT

Hi,

PLz check the code.

Check this info.

syntax:

CONTROLS .

if you only want to determine the row of the table control. SY´-SUBRC allows you to check if the cursor is placed in a row of a table control.

u need to comment the performs of table control fields and write ur own perform statements. And u have to declare the table control fields as separate internal tables.

Check these link:

http://www.sap-img.com/abap/difference-between-batch-input-and-call-transaction-in-bdc.htm

http://www.sap-img.com/abap/question-about-bdc-program.htm

http://www.itcserver.com/blog/2006/06/30/batch-input-vs-call-transaction/

http://www.planetsap.com/bdc_main_page.htm

Rgds,

Re: Reg Dialog Programming..

seshatalpasai_madala — Fri, 06 Jul 2007 11:21:47 GMT

Hi,

There is an option to create it using a WIZARD in the screen painter SE51.

There is a button on the LEFT SIDE toolbar.

Regards,

Sesh

Re: Reg Dialog Programming..

Former Member — Fri, 06 Jul 2007 11:23:55 GMT

check this for tabstrip

Dialog is a module pool program.It has to be executed via a transaction only.

Dialog programming is used for customization ofscreens

see these demo programs

demo_dynpro_tabcont_loop

demo_dynpro_tabcont_loop_at

TABLES: ZFIT_BGTYPE.
DATA: W_CSAV(1).
DATA: W_NSAV(1).
DATA: W_BGTYPE LIKE ZFIT_BGTYPE.

DATA: ok_code TYPE sy-ucomm OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF T_BGTYPE OCCURS 0,
BG_TYPE LIKE ZFIT_BGTYPE-BG_TYPE,
END OF T_BGTYPE.



process before output.
module status_9000.
module set_status_9000.
module set_screen_9000.
process after input.
module user_command_9000.
module change.
module save.
process on value-request.
field zfit_bgtype-bg_type module value_help.






*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_9000 INPUT.
IF SY-UCOMM = 'NEW'.

loop at screen.
if screen-group1 = '001'.
screen-ACTIVE = '1'.

modify screen.
endif.
endloop.
W_NSAV = 1.
ENDIF.

CASE OK_CODE.
WHEN 'BACK' .
LEAVE PROGRAM.

ENDCASE.


ENDMODULE. " USER_COMMAND_9000 INPUT
*&---------------------------------------------------------------------*
*& Module STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_9000 OUTPUT.
SET PF-STATUS 'BUTTONS'.
* SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_9000 OUTPUT


*&---------------------------------------------------------------------*
*& Module value_help INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE value_help INPUT.

select BG_TYPE from ZFIT_BGTYPE
into corresponding fields of table T_BGTYPE.


CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
* DDIC_STRUCTURE = 'ZFIT_BGTYPE'
RETFIELD = 'BG_TYPE'
* PVALKEY = ' '
DYNPPROG = 'SAPMZA_BGTYPE'
DYNPNR = '0100'
DYNPROFIELD = 'ZFIT_BGTYPE-BG_TYPE'
* STEPL = SY-STEPL
* WINDOW_TITLE =
* VALUE = ' '
VALUE_ORG = 'S'
* MULTIPLE_CHOICE = ' '
* DISPLAY = ' '
* CALLBACK_PROGRAM = ' '
* CALLBACK_FORM = ' '
* MARK_TAB =
* IMPORTING
* USER_RESET =
TABLES
VALUE_TAB = T_BGTYPE
* FIELD_TAB =
* RETURN_TAB =
* DYNPFLD_MAPPING =
* EXCEPTIONS
* PARAMETER_ERROR = 1
* NO_VALUES_FOUND = 2
* OTHERS = 3
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


*T_BGTYPE-BG_TYPE =


ENDMODULE. " value_help INPUT
*&---------------------------------------------------------------------*
*& Module SAVE INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE SAVE INPUT.
IF OK_CODE = 'SAVE'.
IF W_CSAV = 1.
DELETE ZFIT_BGTYPE FROM W_BGTYPE.
MODIFY ZFIT_BGTYPE.
CLEAR W_BGTYPE.
IF SY-SUBRC = 0.

COMMIT WORK.
ENDIF.
ENDIF.
ELSEIF W_NSAV = 1.
INSERT ZFIT_BGTYPE.
ENDIF.

CASE SY-UCOMM.
WHEN 'NEW'.
CLEAR ZFIT_BGTYPE.
WHEN 'REFRESH'.
CLEAR ZFIT_BGTYPE.
ENDCASE.


ENDMODULE. " SAVE INPUT
*&---------------------------------------------------------------------*
*& Module set_screen_9000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE set_screen_9000 OUTPUT.
IF sy-ucomm = 'CHANGE'.
loop at screen.
screen-active = '1'.
screen-input = '1'.
modify screen.
endloop.
ELSEIF SY-UCOMM EQ 'NEW'.
LOOP AT SCREEN.
check screen-group1 = '001'.
screen-input = '1'.
modify screen.
endloop.
ELSE.
LOOP AT SCREEN.
check screen-group1 = '001'.
screen-input = '0'.
modify screen.
endloop.
ENDIF.

ENDMODULE. " set_screen_9000 OUTPUT
*&---------------------------------------------------------------------*
*& Module change INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE change INPUT.
IF SY-UCOMM = 'CHANGE'.

LOOP AT SCREEN.
check screen-group1 = '001'.
screen-ACTIVE = '1'.
modify screen.
ENDLOOP.
W_CSAV = 1.
SELECT SINGLE * FROM ZFIT_BGTYPE INTO W_BGTYPE.


ENDIF.
ENDMODULE. " change INPUT
*&---------------------------------------------------------------------*
*& Module set_status_9000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE set_status_9000 OUTPUT.
* clear OK_CODE[].
* IF SY-UCOMM NE 'NEW'.
* APPEND 'SAVE' TO OK_CODE.
* endif.
* set pf-status 'BUTTONS' excluding OK_CODE.
ENDMODULE. " set_status_9000 OUTPUT

Reward all helpfull answers

Regards

Pavan

Re: Reg Dialog Programming..

Former Member — Fri, 06 Jul 2007 11:26:53 GMT

DATA: OK_CODE TYPE SY-UCOMM.

DATA: SCR TYPE SY-DYNNR VALUE '110'.

CONTROLS: TABSTRIP TYPE TABSTRIP.

PAI ________________________________

CASE OK_CODE.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'F2'.

TABSTRIP-ACTIVETAB = 'F2'.

SCR = '0120'.

WHEN 'F1'.

TABSTRIP-ACTIVETAB = 'F1'.

SCR = '0110'.

WHEN 'F3'.

TABSTRIP-ACTIVETAB = 'F3'.

SCR = '0130'.

WHEN 'F4'.

TABSTRIP-ACTIVETAB = 'F4'.

SCR = '0140'.

screen 100.____________________________--

PROCESS BEFORE OUTPUT.

MODULE STATUS_0100.

CALL SUBSCREEN SSAREA INCLUDING SY-REPID SCR.

PROCESS AFTER INPUT.

CALL SUBSCREEN SSAREA.

MODULE USER_COMMAND_0100.

<b>if useful reward points.</b>

Re: Reg Dialog Programming..

Former Member — Fri, 06 Jul 2007 11:28:18 GMT

Hi,

1.First create a screen (2000) in module pool program.

2.in layout option select tabstrip and give a name.

3.select the subscreen and paste it in any one tab for dynamic call , name the subscreen.

4.now create two screens(2100 ,2200) , with screen type as subscreen.

5. in 2100 layout and 2200 layout place ur requirements and continue

Example code.

in PBO of 2000 write this code.

PROCESS BEFORE OUTPUT.

MODULE STATUS_2000.

CALL SUBSCREEN SUB INCLUDING SY-REPID DNR.

PROCESS AFTER INPUT.

CALL SUBSCREEN SUB.

MODULE USER_COMMAND_2000.

main prgram

ROGRAM ZSCREENSAMPLE .

CONTROLS MYTAB TYPE TABSTRIP. "tabstrip name

DATA : EXIT1, EXIT2.

DATA : DNR TYPE SY-DYNNR.

MYTAB-ACTIVETAB = 'TAB1'.

DNR = '2100'.

CALL SCREEN 2000.

MODULE USER_COMMAND_2000 INPUT.

CASE SY-UCOMM.

WHEN 'TAB1'.

MYTAB-ACTIVETAB = 'TAB1'.

DNR = '2100'.

WHEN 'TAB2'.

MYTAB-ACTIVETAB = 'TAB2'.

DNR = '2200'.

ENDCASE.

ENDMODULE.

&----

*& Module USER_COMMAND_2100 INPUT

&----

text

----

MODULE USER_COMMAND_2100 INPUT.

CASE SY-UCOMM.

WHEN 'EXIT1'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_2100 INPUT

&----

*& Module USER_COMMAND_2200 INPUT

&----

text

----

MODULE USER_COMMAND_2200 INPUT.

CASE SY-UCOMM.

WHEN 'EXIT2'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_2200 INPUT

Reward points if it helps..

Regards,

Omkar.

Re: Reg Dialog Programming..

Former Member — Fri, 06 Jul 2007 11:29:59 GMT

ssarea is tabstrip name.

and function codes

F1-student name

F2-address

F3-sex

F4-phone no.

and exit for exit.

i think it is good to u.

Re: Reg Dialog Programming..

Former Member — Fri, 06 Jul 2007 11:30:41 GMT

Hi,

Pls refer this link.

<a href="http://help.sap.com/saphelp_nw2004s/helpdata/en/04/10f2469e0811d1b4700000e8a52bed/content.htm">http://help.sap.com/saphelp_nw2004s/helpdata/en/04/10f2469e0811d1b4700000e8a52bed/content.htm</a>

Pls reward points.

Regards,

Ameet