topic Re: main window is getting repeated--Sap scripts in Application Development and Automation Discussions

main window is getting repeated--Sap scripts

Former Member — Wed, 03 Aug 2005 05:47:53 GMT

content of main window is getting repeated in Sap scripts. In the print preview while running the executable program content of main window is displayed twice. while when print preview is done in se71 form painter it showing only once.

Re: main window is getting repeated--Sap scripts

former_member221770 — Wed, 03 Aug 2005 06:00:32 GMT

Nagesh,

The Form Painter (SE71) is simply a layout template. The Print Program prints out data and uses the SAPscript for layout purposes only.

Therefore you will only see the Text Element (say let's call it TEXT1) appear in the Main Window only once:

(in SE71)

/E TEXT1

stuff

more stuff

/E TEXT2

....

but if there is code in your Print Program like:

do 2 times.

call function 'WRITE_FORM'

exporting

element = 'TEXT1'

function = 'APPEND'

type = 'BODY'

window = 'MAIN'.

enddo.

you will print out the contents of Text Element 'TEXT1' twice:

ie.

stuff

more stuff

stuff

more stuff

Let me know if you need more clarification.

Cheers,

Pat.

Re: main window is getting repeated--Sap scripts

Former Member — Wed, 03 Aug 2005 06:05:37 GMT

Hi Pat,

thanq for spending a few moments in replying for my doubt, is there any way for avoiding the repetition. here is the sample code.

REPORT ZNAG_FORM1_PRO .

DATA : BEGIN OF ITAB OCCURS 0,

NAME1 LIKE KNA1-NAME1,

NAME2 LIKE KNA1-NAME2,

ORT01 LIKE KNA1-ORT01,

END OF ITAB.

SELECT NAME1 NAME2 ORT01 FROM KNA1 INTO TABLE ITAB UP TO 100 ROWS.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

APPLICATION = 'TX'
ARCHIVE_INDEX =
ARCHIVE_PARAMS =
DEVICE = 'PRINTER'
DIALOG = 'X'

FORM = 'ZNAG_FORM3'

LANGUAGE = SY-LANGU

OPTIONS =
MAIL_SENDER =
MAIL_RECIPIENT =
MAIL_APPL_OBJECT =
RAW_DATA_INTERFACE = '*'
IMPORTING
LANGUAGE =
NEW_ARCHIVE_PARAMS =
RESULT =
EXCEPTIONS
CANCELED = 1
DEVICE = 2
FORM = 3
OPTIONS = 4
UNCLOSED = 5
MAIL_OPTIONS = 6
ARCHIVE_ERROR = 7
INVALID_FAX_NUMBER = 8
MORE_PARAMS_NEEDED_IN_BATCH = 9
SPOOL_ERROR = 10
CODEPAGE = 11
OTHERS = 12

IF sy-subrc <> 0.

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

ENDIF.

LOOP AT ITAB.

CALL FUNCTION 'START_FORM'

EXPORTING

ARCHIVE_INDEX =

FORM = 'ZNAG_FORM3'

LANGUAGE = SY-LANGU

STARTPAGE = 'PAGE1'

PROGRAM = SY-CPROG

MAIL_APPL_OBJECT =
IMPORTING
LANGUAGE =
EXCEPTIONS
FORM = 1
FORMAT = 2
UNENDED = 3
UNOPENED = 4
UNUSED = 5
SPOOL_ERROR = 6
CODEPAGE = 7
OTHERS = 8

IF sy-subrc <> 0.

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

ENDIF.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = ' '
FUNCTION = 'SET'
TYPE = 'BODY'

WINDOW = 'A_WIND'

IMPORTING
PENDING_LINES =
EXCEPTIONS
ELEMENT = 1
FUNCTION = 2
TYPE = 3
UNOPENED = 4
UNSTARTED = 5
WINDOW = 6
BAD_PAGEFORMAT_FOR_PRINT = 7
SPOOL_ERROR = 8
CODEPAGE = 9
OTHERS = 10

IF sy-subrc <> 0.

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

ENDIF.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = ' '
FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN'

IMPORTING
PENDING_LINES =
EXCEPTIONS
ELEMENT = 1
FUNCTION = 2
TYPE = 3
UNOPENED = 4
UNSTARTED = 5
WINDOW = 6
BAD_PAGEFORMAT_FOR_PRINT = 7
SPOOL_ERROR = 8
CODEPAGE = 9
OTHERS = 10

IF sy-subrc <> 0.

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

ENDIF.

CALL FUNCTION 'END_FORM'

IMPORTING
RESULT =
EXCEPTIONS
UNOPENED = 1
BAD_PAGEFORMAT_FOR_PRINT = 2
SPOOL_ERROR = 3
CODEPAGE = 4
OTHERS = 5

IF sy-subrc <> 0.

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

ENDIF.

ENDLOOP.

CALL FUNCTION 'CLOSE_FORM'

IMPORTING
RESULT =
RDI_RESULT =
TABLES
OTFDATA =
EXCEPTIONS
UNOPENED = 1
BAD_PAGEFORMAT_FOR_PRINT = 2
SEND_ERROR = 3
SPOOL_ERROR = 4
CODEPAGE = 5
OTHERS = 6

IF sy-subrc <> 0.

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

ENDIF.

Re: main window is getting repeated--Sap scripts

Former Member — Wed, 03 Aug 2005 06:08:57 GMT

Hi pat,

Thanq for spending a few moments in clearing my doubts, is there any way of eleminating the repitition.

here is my code suggest me a solution thanq.

REPORT ZNAG_FORM1_PRO .

DATA : BEGIN OF ITAB OCCURS 0,

NAME1 LIKE KNA1-NAME1,

NAME2 LIKE KNA1-NAME2,

ORT01 LIKE KNA1-ORT01,

END OF ITAB.

SELECT NAME1 NAME2 ORT01 FROM KNA1 INTO TABLE ITAB UP TO 100 ROWS.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

APPLICATION = 'TX'
ARCHIVE_INDEX =
ARCHIVE_PARAMS =
DEVICE = 'PRINTER'
DIALOG = 'X'

FORM = 'ZNAG_FORM3'

LANGUAGE = SY-LANGU

OPTIONS =
MAIL_SENDER =
MAIL_RECIPIENT =
MAIL_APPL_OBJECT =
RAW_DATA_INTERFACE = '*'
IMPORTING
LANGUAGE =
NEW_ARCHIVE_PARAMS =
RESULT =
EXCEPTIONS
CANCELED = 1
DEVICE = 2
FORM = 3
OPTIONS = 4
UNCLOSED = 5
MAIL_OPTIONS = 6
ARCHIVE_ERROR = 7
INVALID_FAX_NUMBER = 8
MORE_PARAMS_NEEDED_IN_BATCH = 9
SPOOL_ERROR = 10
CODEPAGE = 11
OTHERS = 12

IF sy-subrc <> 0.

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

ENDIF.

LOOP AT ITAB.

CALL FUNCTION 'START_FORM'

EXPORTING

ARCHIVE_INDEX =

FORM = 'ZNAG_FORM3'

LANGUAGE = SY-LANGU

STARTPAGE = 'PAGE1'

PROGRAM = SY-CPROG

MAIL_APPL_OBJECT =
IMPORTING
LANGUAGE =
EXCEPTIONS
FORM = 1
FORMAT = 2
UNENDED = 3
UNOPENED = 4
UNUSED = 5
SPOOL_ERROR = 6
CODEPAGE = 7
OTHERS = 8

IF sy-subrc <> 0.

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

ENDIF.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = ' '
FUNCTION = 'SET'
TYPE = 'BODY'

WINDOW = 'A_WIND'

IMPORTING
PENDING_LINES =
EXCEPTIONS
ELEMENT = 1
FUNCTION = 2
TYPE = 3
UNOPENED = 4
UNSTARTED = 5
WINDOW = 6
BAD_PAGEFORMAT_FOR_PRINT = 7
SPOOL_ERROR = 8
CODEPAGE = 9
OTHERS = 10

IF sy-subrc <> 0.

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

ENDIF.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = ' '
FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN'

IMPORTING
PENDING_LINES =
EXCEPTIONS
ELEMENT = 1
FUNCTION = 2
TYPE = 3
UNOPENED = 4
UNSTARTED = 5
WINDOW = 6
BAD_PAGEFORMAT_FOR_PRINT = 7
SPOOL_ERROR = 8
CODEPAGE = 9
OTHERS = 10

IF sy-subrc <> 0.

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

ENDIF.

CALL FUNCTION 'END_FORM'

IMPORTING
RESULT =
EXCEPTIONS
UNOPENED = 1
BAD_PAGEFORMAT_FOR_PRINT = 2
SPOOL_ERROR = 3
CODEPAGE = 4
OTHERS = 5

IF sy-subrc <> 0.

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

ENDIF.

ENDLOOP.

CALL FUNCTION 'CLOSE_FORM'

IMPORTING
RESULT =
RDI_RESULT =
TABLES
OTFDATA =
EXCEPTIONS
UNOPENED = 1
BAD_PAGEFORMAT_FOR_PRINT = 2
SEND_ERROR = 3
SPOOL_ERROR = 4
CODEPAGE = 5
OTHERS = 6

IF sy-subrc <> 0.

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

ENDIF.

Re: main window is getting repeated--Sap scripts

former_member221770 — Wed, 03 Aug 2005 06:15:19 GMT

Hi Nagesh,

What text element are you trying to call in the MAIN window? (your second WRITE_FORM ststement). Or does the MAIN window have no Text Elements and you are happy to print out all it's contents? If this is the case (and I know this sounds silly, but I have done it before) make sure you have not pasted the contents of the MAIN window in twice!

Let me know what you find.

Pat.

Re: main window is getting repeated--Sap scripts

Former Member — Wed, 03 Aug 2005 06:21:49 GMT

Hi,

delete the CALL FUNCTION 'START_FORM' and CALL FUNCTION 'END_FORM'from the loop.

it will work fine.

regards

balu

Re: main window is getting repeated--Sap scripts

Former Member — Wed, 03 Aug 2005 14:32:58 GMT

hi Nagesh,

u have not specified ur elements.

Get rid of the comments for element in write_form.

And u r also looping before start_form. u don't have to do it. U have to loop the write_form.

lemme give u a sample write_form code

LOOP AT ITAB.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'MAIN'

FUNCTION = 'SET'
TYPE = 'BODY'

WINDOW = 'MAIN'

EXCEPTIONS

UNOPENED = 1

OTHERS = 2.

ENDLOOP.

where in MAIN is the text element in the layout for main window.

it has to be like

/E MAIN

P1 &ITAB-NAME1& &ITAB-NAME2& &ITAB-ORTO1&

hope this is helpful. If so plz don't forget to award points.

Regards,

Message was edited by:

Alchemi

Re: main window is getting repeated--Sap scripts

Former Member — Wed, 03 Aug 2005 14:36:17 GMT

nagesh,

u only need

open_form

write_form

close_form

if u r writing script for single page.

For multiple pages u need

open_form

start_form

write_form

end_form

close_form.

Regards,

Message was edited by:

Alchemi