SAP Scripts

Former Member — Mon, 17 Sep 2007 13:09:07 GMT

Hi all,

Iam gettiing the first record twice when I used this code. Please go through this code and give me a solution.

&----

*& Report ZSCRP_TEST

&----

REPORT ZSCRP_TEST.

tables : kna1.

data : begin of itab occurs 0,

kunnr type kna1-kunnr,

name1 type kna1-name1,

ort01 type kna1-ort01,

land1 type kna1-land1,

end of itab.

start-of-selection.

SELECT KUNNR NAME1 ORT01 LAND1 UP TO 5 ROWS FROM KNA1 INTO TABLE ITAB.

END-OF-SELECTION.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

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

FORM = 'Z_SCRP_TEST'

LANGUAGE = SY-LANGU

OPTIONS =
MAIL_SENDER =
MAIL_RECIPIENT =
MAIL_APPL_OBJECT =
RAW_DATA_INTERFACE = '*'
SPONUMIV =
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 '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 'WRITE_FORM'

EXPORTING

ELEMENT = 'FOOT'

FUNCTION = 'SET'
TYPE = 'BOTTOM'

WINDOW = 'FOOTER'

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.

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.

Thanks in advance.

Re: SAP Scripts

JozsefSzikszai — Mon, 17 Sep 2007 13:11:40 GMT

we have no idea what is in your SAPScript code, but it could matter...

Re: SAP Scripts

Former Member — Mon, 17 Sep 2007 13:15:37 GMT

Hi,

You can use the Write form to the MAIN window, for the footer window no need to call this one,

I think you are printing the same values in the Main window as well as the footer window

According to your code, first it will print the MAIN window value then it will print the FOOter window values, better to put the next OPEN_FORM outside the loop

Regards

Sudheer

topic Re: SAP Scripts in Application Development and Automation Discussions

SAP Scripts

Re: SAP Scripts

Re: SAP Scripts