sap script

Former Member — Thu, 06 Dec 2007 06:47:40 GMT

Hai All Experts,

i have problem with my script,i created script but i dont how to link all the tables to get the data in script,

here,

po = purchsae order no.

date = created date,

to = company address,

deliver to = plant address,

so in this i should get the data related to particular purchase order, n it should display all quantity ,decription, total amount n so on,

TABLES : LFA1,

EKKO,

EKPO,

MAKT,

T001W.

SELECT-OPTIONS : S_EBELN FOR EKKO-EBELN.

*TYPES : BEGIN OF ITAB,

EBELN TYPE EKKO-EBELN, "P.O.NUMBER
AEDAT TYPE EKKO-AEDAT, "DATE
NETWR TYPE EKPO-NETWR, "UNIT PRICE
MENGE TYPE EKPO-MENGE, "Purchase order quantity
WERKS TYPE T001W-WERKS, "PLANT
BRTWR TYPE EKPO-BRTWR, "Gross order value in PO
STRAS TYPE LFA1-STRAS, "House number and street
LIFNR TYPE T001W-LIFNR, "VENDOR NO
NAME1 TYPE LFA1-NAME1, "V NAME
ORT01 TYPE LFA1-ORT01, "CITY
LAND1 TYPE LFA1-LAND1, "LAND
PSTLZ TYPE LFA1-PSTLZ, "POSTAL CODE
MAKTX TYPE MAKT-MAKTX, "DESCRIPTION

*END OF ITAB.

*DATA : W_ITAB TYPE ITAB.

*DATA : T_ITAB TYPE STANDARD TABLE OF ITAB INITIAL SIZE 1.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

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

FORM = 'Z_RA_FORM2'

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.

*SELECT EKKO~EBELN

EKKO~AEDAT

*EKPO~netwr

*EKPO~MENGE

*EKPO~WERKS

*EKPO~BRTWR

*LFA1~LIFNR

*LFA1~STRAS

*LFA1~NAME1

*LFA1~ORT01

*LFA1~LAND1

*LFA1~PSTLZ

*MAKT~MAKTX

*INTO TABLE T_ITAB

*FROM EKKO

*INNER JOIN EKPO

*ON EKKO_{EBELN = EKPO}EBELN join LFA1 on EKKO_{lifnr = lfa1}lifnr join

*T001W on ekPo_{werks = t001W}werks join MAKT ON

*EKpO_{matnr = makt}matnr

*WHERE EKKO~EBELN IN S_EBELN.

SELECT * FROM LFA1.

ENDSELECT.

SELECT * FROM EKPO.

ENDSELECT.

SELECT * FROM MAKT.

ENDSELECT.

SELECT * FROM EKKO WHERE EBELN IN S_EBELN.

ENDSELECT.

SELECT * FROM T001W.

ENDSELECT.

CALL FUNCTION 'START_FORM'

EXPORTING

ARCHIVE_INDEX =

FORM = 'Z_RA_FORM2'

LANGUAGE = SY-LANGU

STARTPAGE = 'PAGE1'

PROGRAM = 'Z_RA_FORM2'

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 = 'ADDRESS'

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.

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.

this is my code plz relate all this in correct form,n my form is like this

Re: sap script

Former Member — Thu, 06 Dec 2007 07:30:21 GMT

get all the data from different tables into one internal table.

call function modules open_form,write_form,close_form.

pass your final internal table to function module.

your data will be passed to script automatically.

topic sap script in Application Development and Automation Discussions

sap script

Re: sap script