Re: GUI_DOWNLOAD example

Former Member — Thu, 12 Jul 2007 18:29:56 GMT

Check the below program :

REPORT Z4PG_EXTEND_MATERIAL

NO STANDARD PAGE HEADING

LINE-SIZE 150

MESSAGE-ID Z4.

TABLES :

mard, "#EC * " Storage Location Data for Material

marc. "#EC * " Plant Data for Material

----

INTERNAL TABLES DECLARATIONS

----

1. INTERNAL TABLE FOR MATERIALS THAT ARE MAINTAINED FOR lgort = '0001'

DATA : BEGIN OF it_mard OCCURS 0,

matnr LIKE mard-matnr, " Material No.

werks LIKE mard-werks, " Plant

lgort LIKE mard-lgort, " Storage Location

END OF it_mard.

2. INTERNAL TABLE TO STORE MATERIALS WHICH ARE ALREADY MAINTAINED FOR

*lgort = 'ABCD'.

DATA: BEGIN OF it_verify OCCURS 0,

matnr LIKE mard-matnr, " Material No.

werks LIKE mard-werks, " Plant

lgort LIKE mard-lgort, " Storage Location

dismm LIKE marc-dismm, " MRP type

END OF it_verify.

3. INTERNAL TABLE TO STORE MATERIALS WHICH HAS NO MRP TYPE ASSIGNED.

DATA: BEGIN OF it_marc OCCURS 0,

matnr LIKE marc-matnr, " Material No.

werks LIKE marc-werks, " Plant

dismm LIKE marc-dismm, " MRP type

END OF it_marc.

3. INTERNAL TABLE TO STORE MATERIALS WHICH ARE ALREADY MAINTAINED FOR

*lgort = 'ABCD'.

DATA: BEGIN OF it_error OCCURS 0, "#EC *

index TYPE I,

fname(25),

fval(30),

err_msg(40),

END OF it_error.

DATA: BEGIN OF it_error1 OCCURS 0, "#EC *

matnr LIKE mard-matnr,

type LIKE bapiret2-type,

id LIKE bapiret2-id,

message LIKE bapiret2-message,

END OF it_error1.

----

TABLES FOR FUNCTION - BAPI_MATERIAL_SAVEDATA

----

DATA: I_HEADDATA LIKE BAPIMATHEAD, " HEADER DATA

I_STORAGELOCATIONDATA LIKE BAPI_MARD, " STORAGE

*LOCATION SPECIFIC MATERIAL DATA

I_STORAGELOCATIONDATAX LIKE BAPI_MARDX, " Information on

*update for STORAGELOCATIONDATA

I_RETURN LIKE BAPIRET2, " RETURN FROM

*BAPI

I_RETURNMESSAGES LIKE BAPI_MATRETURN2 OCCURS 0 WITH

HEADER LINE.

----

SELECTION PARAMETERS

----

SELECTION-SCREEN BEGIN OF BLOCK MAIN WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS s_matnr FOR mard-matnr. " Material Number

SELECTION-SCREEN END OF BLOCK MAIN.

----

SELECTION SCREEN VALIDATION.

----

AT SELECTION-SCREEN .

PERFORM validate_material.

----

START OF SELECTION

----

START-OF-SELECTION.

PERFORM extract_itmard.

PERFORM extract_itmarc.

PERFORM extract_itverify.

PERFORM verify_material.

PERFORM display_error_report.

&----

*& Form extract_itmard

&----

text

----

--> p1 text
<-- p2 text

----

form extract_itmard .

SELECT matnr werks lgort

FROM mard

INTO TABLE it_mard

WHERE matnr IN s_matnr AND

werks = 'RAPI' AND " Plant

lgort = 'RAPI' . " Storage Location

IF sy-subrc NE 0.

MESSAGE s114. " Success Message --> Data

Not Available

STOP.

ENDIF.

endform. " extract_itmard

&----

*& Form extract_itmarc

&----

text

----

--> p1 text
<-- p2 text

----

form extract_itmarc . "Fetch Materials for which the MRP

*Type is not maintained

SELECT matnr werks dismm

FROM marc

INTO TABLE it_marc

FOR ALL ENTRIES IN it_mard

WHERE matnr = it_mard-matnr AND

werks = it_mard-werks AND

dismm = ' '.

endform. " extract_itmarc

&----

*& Form extract_itverify

&----

text

----

--> p1 text
<-- p2 text

----

form extract_itverify . " Fetch All the Materials

which are already extended for the Storage Location

IF it_mard[] IS NOT INITIAL. "Check it_likp for not

null

SELECT matnr werks lgort

FROM mard

INTO TABLE it_verify

FOR ALL ENTRIES IN it_mard

WHERE matnr = it_mard-matnr AND

werks = 'RAPI' AND " For Plant

lgort = '0001'. " For Storage

Location

ELSE.

MESSAGE s114. "Success Message -->

Data Not Available

STOP.

ENDIF.

endform. " extract_itverify

&----

*& Form verify_material

&----

text

----

--> p1 text
<-- p2 text

----

FORM verify_material .

DATA: v_cnt TYPE I.

v_cnt = 1.

IF it_verify[] IS NOT INITIAL AND it_marc[] IS NOT INITIAL.

"Check it_likp for not null

SORT it_mard BY matnr.

SORT it_verify BY matnr.

ENDIF.

LOOP AT it_mard.

IF it_verify[] IS NOT INITIAL. " Check it_verify

for not null

READ TABLE it_verify WITH KEY matnr = it_mard-matnr BINARY

SEARCH. " Check Material is not extended

IF sy-subrc <> 0.

READ TABLE it_marc WITH KEY matnr = it_mard-matnr BINARY

SEARCH. " Check MRP Type for the Material is Maintained

IF sy-subrc <> 0.

PERFORM extend_material USING it_mard-matnr

" Extend Material

it_mard-werks.

ELSE.

it_error-index = v_cnt.

" Generate Error Report

it_error-fname = 'MATERIAL NO'.

it_error-fval = it_mard-matnr.

it_error-err_msg = 'MRP Type Not Maintained'.

APPEND it_error.

v_cnt = v_cnt + 1.

ENDIF.

ELSE.

READ TABLE it_marc WITH KEY matnr = it_mard-matnr BINARY

SEARCH.

IF sy-subrc <> 0.

PERFORM extend_material USING it_mard-matnr

it_mard-werks.

ENDIF.

ENDLOOP.

ENDFORM. " verify_material

&----

*& Form extend_material

&----

text

----

-->P_IT_MARD_MATNR text
-->P_IT_MARD_WERKS text
-->P_IT_MARD_LGORT text

----

FORM extend_material USING P_IT_MARD_MATNR TYPE mard-matnr

P_IT_MARD_WERKS TYPE mard-werks.

DATA: v_str(50).

CLEAR I_HEADDATA.

I_HEADDATA-MATERIAL = P_IT_MARD_MATNR.

I_HEADDATA-MRP_VIEW = 'X'.

CLEAR I_STORAGELOCATIONDATA.

CLEAR I_STORAGELOCATIONDATAX.

I_STORAGELOCATIONDATA-PLANT = P_IT_MARD_WERKS.

I_STORAGELOCATIONDATA-STGE_LOC = '0001'.

I_STORAGELOCATIONDATAX-PLANT = P_IT_MARD_WERKS.

I_STORAGELOCATIONDATAX-STGE_LOC = '0001'.

CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'

EXPORTING

headdata = i_headdata

CLIENTDATA =
CLIENTDATAX =
PLANTDATA =
PLANTDATAX =
FORECASTPARAMETERS =
FORECASTPARAMETERSX =
PLANNINGDATA =
PLANNINGDATAX =

STORAGELOCATIONDATA = i_storagelocationdata

STORAGELOCATIONDATAX = i_storagelocationdatax

VALUATIONDATA =
VALUATIONDATAX =
WAREHOUSENUMBERDATA =
WAREHOUSENUMBERDATAX =
SALESDATA =
SALESDATAX =
STORAGETYPEDATA =
STORAGETYPEDATAX =
FLAG_ONLINE = ' '
FLAG_CAD_CALL = ' '
NO_DEQUEUE = ' '

IMPORTING

RETURN = i_return

TABLES

MATERIALDESCRIPTION =
UNITSOFMEASURE =
UNITSOFMEASUREX =
INTERNATIONALARTNOS =
MATERIALLONGTEXT =
TAXCLASSIFICATIONS =

RETURNMESSAGES = i_returnmessages

PRTDATA =
PRTDATAX =
EXTENSIONIN =
EXTENSIONINX =

LOOP at i_returnmessages.

write: / i_returnmessages-message.

ENDLOOP.

v_str = 'Material No does not Exist'.

IF i_return-type = 'E'.

it_error1-matnr = P_IT_MARD_MATNR.

it_error1-type = i_return-type.

it_error1-id = i_return-id.

it_error1-message = v_str.

APPEND it_error1.

ELSEIF i_return-type = 'S'.

READ TABLE i_returnmessages WITH KEY TYPE = 'S' id = 'M3'.

IF sy-subrc = 0.

it_error1-matnr = P_IT_MARD_MATNR.

it_error1-type = i_return-type.

it_error1-id = i_return-id.

it_error1-message = i_returnmessages-message.

APPEND it_error1.

CLEAR it_error1.

ENDIF.

REFRESH i_returnmessages.

CLEAR it_error1.

CLEAR i_return.

ENDFORM. " extend_material

&----

*& Form display_error_report

&----

text

----

--> p1 text
<-- p2 text

----

FORM display_error_report .

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

BIN_FILESIZE =

FILENAME = 'C:/Error1.txt'

FILETYPE = 'ASC'

APPEND = ' '
WRITE_FIELD_SEPARATOR = ' '
HEADER = '00'
TRUNC_TRAILING_BLANKS = ' '
WRITE_LF = 'X'
COL_SELECT = ' '
COL_SELECT_MASK = ' '
DAT_MODE = ' '
IMPORTING
FILELENGTH =

TABLES

DATA_TAB = it_error1

EXCEPTIONS

FILE_WRITE_ERROR = 1

NO_BATCH = 2

GUI_REFUSE_FILETRANSFER = 3

INVALID_TYPE = 4

NO_AUTHORITY = 5

UNKNOWN_ERROR = 6

HEADER_NOT_ALLOWED = 7

SEPARATOR_NOT_ALLOWED = 8

FILESIZE_NOT_ALLOWED = 9

HEADER_TOO_LONG = 10

DP_ERROR_CREATE = 11

DP_ERROR_SEND = 12

DP_ERROR_WRITE = 13

UNKNOWN_DP_ERROR = 14

ACCESS_DENIED = 15

DP_OUT_OF_MEMORY = 16

DISK_FULL = 17

DP_TIMEOUT = 18

FILE_NOT_FOUND = 19

DATAPROVIDER_EXCEPTION = 20

CONTROL_FLUSH_ERROR = 21

OTHERS = 22

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 'GUI_DOWNLOAD'

EXPORTING

BIN_FILESIZE =

FILENAME = 'C:/Error.txt'

FILETYPE = 'ASC'

APPEND = ' '
WRITE_FIELD_SEPARATOR = ' '
HEADER = '00'
TRUNC_TRAILING_BLANKS = ' '
WRITE_LF = 'X'
COL_SELECT = ' '
COL_SELECT_MASK = ' '
DAT_MODE = ' '
IMPORTING
FILELENGTH =

TABLES

DATA_TAB = it_error

EXCEPTIONS

FILE_WRITE_ERROR = 1

NO_BATCH = 2

GUI_REFUSE_FILETRANSFER = 3

INVALID_TYPE = 4

NO_AUTHORITY = 5

UNKNOWN_ERROR = 6

HEADER_NOT_ALLOWED = 7

SEPARATOR_NOT_ALLOWED = 8

FILESIZE_NOT_ALLOWED = 9

HEADER_TOO_LONG = 10

DP_ERROR_CREATE = 11

DP_ERROR_SEND = 12

DP_ERROR_WRITE = 13

UNKNOWN_DP_ERROR = 14

ACCESS_DENIED = 15

DP_OUT_OF_MEMORY = 16

DISK_FULL = 17

DP_TIMEOUT = 18

FILE_NOT_FOUND = 19

DATAPROVIDER_EXCEPTION = 20

CONTROL_FLUSH_ERROR = 21

OTHERS = 22

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " display_error_report

&----

*& Form validate_material

&----

text

----

--> p1 text
<-- p2 text

----

form validate_material .

IF NOT s_matnr[] IS INITIAL.

SELECT matnr

INTO mard-matnr

FROM mard

UP TO 1 ROWS

WHERE matnr IN s_matnr.

ENDSELECT.

IF SY-SUBRC <> 0.

MESSAGE E115 WITH 'Invalid' mard-matnr. " Error

Message-->Invalid Parameters

ENDIF.

IF NOT s_matnr[] IS INITIAL.

SELECT matnr

INTO marc-matnr

FROM marc

UP TO 1 ROWS

WHERE matnr IN s_matnr.

ENDSELECT.

IF sy-subrc <> 0.

MESSAGE s114. "Success Message -->

Data Not Available

STOP.

ENDIF.

endform. " validate_material

Thanks

Seshu

topic Re: GUI_DOWNLOAD example in Application Development and Automation Discussions

GUI_DOWNLOAD example

Re: GUI_DOWNLOAD example

Re: GUI_DOWNLOAD example