Re: SET PARAMETER ID 'MAT' not working

Former Member — Tue, 20 Mar 2007 07:37:30 GMT

this is for va01 i hope it is helpfull for u.

&----

*& Report YSAI_INTERACTIVEREPORT *

*& *

&----

*& *

&----

REPORT YSAI_INTERACTIVEREPORT

NO STANDARD PAGE HEADING

LINE-COUNT (3).

&----

*& TABLES *

&----

TABLES :

KNA1, " CUSTMOER MASTER TABLE

VBAK, " SALES ORDER HEADER
VBAP, " SALES ORDER DETAILS

SPELL. " CURRENCY CONVERTER

&----

*& DATA TYPES *

&----

TYPES: BEGIN OF TY_KNA1, " STRUCTURE OF TY_KNA1.

KUNNR TYPE KUNNR, " CUSTOMER NUMBER

NAME1 TYPE NAME1, " CUSTOMER NAME

ORT01 TYPE ORT01, " CUSTOMER CITY

LAND1 TYPE LAND1, " COUNTRY

END OF TY_KNA1.

TYPES: BEGIN OF TY_VBAK, " STRUCTURE OF TY_VBAK.

VBELN TYPE VBELN, " ORDER NO

ERDAT TYPE ERDAT, " ORDER DATE

NETWR TYPE NETWR, " ORDER VALUE

END OF TY_VBAK.

TYPES: BEGIN OF TY_VBAP, " STRUCTURE OF TY_VBAP.

NETPR TYPE NETPR, " ITEM VALUE

POSNR TYPE POSNR, " ITEM NO

ARKTX TYPE ARKTX, " ITEM DESCRIPTION

WERKS TYPE WERKS_EXT, " PLANT NUMBER

END OF TY_VBAP.

&----

*& DATA TYPE *

&----

DATA: A TYPE I,

B TYPE I,

PN LIKE SY-PAGNO,

F(14) TYPE C,

G(15) TYPE C.

" SY-SROWS :THIS SYSTEM FIELD FOR NO OF LINES FOR WINDOW.

A = SY-SROWS. " THIS SY-SROWS IS FOR DECLAREING LINE COUNT GOLBLE

B = SY-SROWS - 2.

&----

*& WORK AREAS *

&----

DATA : WA_SALES TYPE TY_KNA1, " WORK AREA FOR SALES.

WA_ORDERS TYPE TY_VBAK, " WORK AREA FOR ORDERS.

WA_ITEM TYPE TY_VBAP. " WORK AREA FOR ITAM.

&----

*& BODY OF THE 3 INTERNAL TABLES *

&----

DATA : T_SALES TYPE STANDARD TABLE OF TY_KNA1 INITIAL SIZE 1, "INTERNAL TABLE FOR SALES.

T_ORDERS TYPE STANDARD TABLE OF TY_VBAK INITIAL SIZE 1, "INTERNAL TABLE FOR ORDERS.

T_ITEM TYPE STANDARD TABLE OF TY_VBAP INITIAL SIZE 1. "INTERNAL TABLE FOR ITEM.

&----

*& SELECTING OPTION *

&----

SELECTION-SCREEN SKIP 2.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-002 .

*selection-screen comment /2(50) text-001 .

*selection-screen uline /2(8) .

SELECTION-SCREEN SKIP .

SELECT-OPTIONS : S_CUSTNO FOR KNA1-KUNNR.

SELECTION-SCREEN END OF BLOCK B1.

S_ORDER FOR VBAK-VBELN.

*call selection-screen 1000 starting at 10 10 ending at 90 90.

&----

*& EVENT BLOCKS FOR INITIALIZATION *

&----

INITIALIZATION.

S_CUSTNO-SIGN = 'I'.

S_CUSTNO-OPTION = 'BT'.

S_CUSTNO-LOW = 1000.

S_CUSTNO-HIGH = 1500.

APPEND S_CUSTNO.

*S_ORDER-SIGN = 'I'.

*S_ORDER-OPTION = 'BT'.

*S_ORDER-LOW = 1000.

*S_ORDER-HIGH = 6000.

*APPEND S_ORDER.

&----

*& EVENT BLOCK FOR TOP-OF-PAGE *

&----

TOP-OF-PAGE .

FORMAT COLOR OFF INTENSIFIED ON.

ULINE .

WRITE: /30'****************INTERACTIVE REPORT*********************' COLOR 1.

ULINE.

FORMAT COLOR 1.

WRITE: /20'CUSTNO' COLOR 4 INVERSE,

35'CUSTNAME' ,

70'CITY' ,

95'COUNTRY'.

ULINE.

&----

*& EVENT BLOCK FOR TOP-OF-PAGE AT LINE-SELECTION FOR CASE 1 *

&----

TOP-OF-PAGE DURING LINE-SELECTION .

CASE SY-LSIND.

WHEN '1'.

ULINE.

WRITE: /30'****************CUSTMOER DETAILS*********************' COLOR 1.

ULINE.

WRITE: /05 'CUSTNO :', WA_SALES-KUNNR COLOR 5 ,

'CUSTNAME :', WA_SALES-NAME1 COLOR 5.

ULINE.

FORMAT COLOR 1.

WRITE: /20 'ORDERNO' COLOR 4 INVERSE ,

35 'ORDER DATE',

70 'ORDER VALUE'.

ULINE.

&----

*& EVENT BLOCK FOR TOP-OF-PAGE AT LINE-SELECTION FOR CASE 2 *

&----

WHEN '2'.

ULINE.

WRITE: /30'****************ITEM DETAILS*********************' COLOR 1.

ULINE.

WRITE: /05 'CUSTNO :', WA_SALES-KUNNR COLOR 5,

25 'CUSTNAME :', WA_SALES-NAME1 COLOR 5,

70 'ORDER NO :', WA_ORDERS-VBELN COLOR 5,

100 'ORDER DATE :', WA_ORDERS-ERDAT COLOR 5.

ULINE.

FORMAT COLOR 1.

WRITE: /20 'ITEM NO' COLOR 4 INVERSE,

35 'ITEM DISCRIPTION',

75 'ITEM VALUE',

95 'PLANT NO'.

ULINE.

ENDCASE.

&----

*& EVENT BLOCK FOR END-OF-PAGE *

&----

END-OF-PAGE.

FORMAT COLOR 1.

ULINE.

WRITE:/30'**************END OF THE PAGE : ',SY-PAGNO, '***************' .

ULINE.

&----

*& REPORT EVENT : AT SELECTION SCREEN *

&----

AT SELECTION-SCREEN .

IF S_CUSTNO-LOW = SPACE AND S_CUSTNO-HIGH = SPACE.

MESSAGE E001(YSAI).

ELSEIF S_CUSTNO-LOW < 1000 .

MESSAGE E002(YSAI).

ELSEIF S_CUSTNO-HIGH > 8000.

MESSAGE E003(YSAI) WITH S_CUSTNO-HIGH.

ENDIF.

&----

*& EVENT BLOCKS FOR START-OF-SELECTION *

&----

START-OF-SELECTION.

FORMAT COLOR OFF INTENSIFIED ON. " Intensified - affects the background color BY DEFULT ON.

NEW-PAGE LINE-COUNT A.

&----

*& EXTRACTING DATA FROM KNA1 *

&----

SELECT

KUNNR

NAME1

ORT01

LAND1

FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE T_SALES

WHERE KUNNR IN S_CUSTNO .

&----

*& DISPLAY DATA FROM SALES TABLES *

&----

LOOP AT T_SALES INTO WA_SALES.

*FORMAT COLOR 2 FRAMES OFF.

FORMAT COLOR 2 FRAMES ON. "Effects lines and borders. In the default setting FRAMES ON.

WRITE:/20 WA_SALES-KUNNR HOTSPOT COLOR 4 INVERSE ON ,"Determines whether the user can enter data.

35 WA_SALES-NAME1 , "You can change the contents of list lines

70 WA_SALES-ORT01 , "output with the format INPUT on the screen.

95 WA_SALES-LAND1 .

HIDE WA_SALES-KUNNR. "The contents of f related to the current output line are stored.

"If this line is selected, f is filled automatically with the stored value.

ENDLOOP.

*WRITE:/50 WA_SALES-KUNNR INPUT ON.

SKIP TO LINE B.

&----

*& EVENT BLOCKS FOR AT LINE-SELECTION *

&----

AT LINE-SELECTION.

*WINDOW STARTING AT 15 15 ENDING AT 115 40.

NEW-PAGE LINE-COUNT A.

CASE SY-LSIND.

&----

*& FIRST SECONDARY LIST *

&----

WHEN '1'.

GET CURSOR FIELD F. " THIS STATEMENT FOR STATING THE CURSOR FIELD FOR KUNNR.

IF F = 'WA_SALES-KUNNR'.

&----

*& EXTRACTING DATA FROM VBAK *

&----

SELECT

VBELN

ERDAT

NETWR

FROM VBAK INTO CORRESPONDING FIELDS OF TABLE T_ORDERS

WHERE KUNNR = WA_SALES-KUNNR." AND VBELN IN S_ORDER .

&----

*& DISPLAY DATA *

&----

IF SY-DBCNT NE SPACE.

FORMAT COLOR 2.

LOOP AT T_ORDERS INTO WA_ORDERS.

WRITE:/20 WA_ORDERS-VBELN HOTSPOT COLOR 4 INVERSE,

35 WA_ORDERS-ERDAT HOTSPOT,

60 WA_ORDERS-NETWR .

HIDE WA_ORDERS.

&----

*& EVENT BLOCKS FOR ADDING ALL ORDER VALUES *

&----

AT LAST.

SUM.

WRITE: /66 SY-ULINE(18).

FORMAT COLOR 3.

WRITE: /22 'SUB-TOTAL OF CUSTOMER',58 'RS',60 WA_ORDERS-NETWR,'/-'.

WRITE: /66 SY-ULINE(18).

&----

*& EVENT BLOCKS FOR CALLING FUNCTION SPELL_AMOUNT *

&----

CALL FUNCTION 'SPELL_AMOUNT'

EXPORTING

AMOUNT = WA_ORDERS-NETWR

CURRENCY = 'DEM '

IMPORTING

IN_WORDS = SPELL.

WRITE:/ 'TOTAL IN-WORDS:', 20 SPELL-WORD .

WRITE: 75'AND',78 SPELL-DECWORD.

ENDAT.

ENDLOOP.

SKIP TO LINE B.

ELSE. "THIS IS ENDING STATEMENT FOR DBCNT.

MESSAGE E000(YSAI).

ENDIF.

ELSE. "THIS IS ENDING STATEMENT FOR SORSOR FIELD.

MESSAGE E004(YSAI).

ENDIF.

&----

*& SECOND SECONDARY LIST *

&----

WHEN '2'.

GET CURSOR FIELD G. " THIS STATEMENT FOR STATING THE CURSOR FIELD.

IF G = 'WA_ORDERS-VBELN'.

&----

*& EXTRACTING DATA FROM VBAP *

&----

SELECT

NETPR

POSNR

ARKTX

WERKS

FROM VBAP INTO CORRESPONDING FIELDS OF TABLE T_ITEM

WHERE VBELN = WA_ORDERS-VBELN .

&----

*& DISPLAY DATA OF ITEM TABLE *

&----

FORMAT COLOR 2.

WINDOW STARTING AT 15 15 ENDING AT 115 40.

LOOP AT T_ITEM INTO WA_ITEM.

WRITE:/20 WA_ITEM-POSNR COLOR 4 INVERSE,

35 WA_ITEM-ARKTX,

70 WA_ITEM-NETPR,

95 WA_ITEM-WERKS.

&----

*& EVENT BLOCKS FOR ADDING ALL ITEM VALUES *

&----

AT LAST.

SUM.

SKIP.

ULINE 72(18).

FORMAT COLOR 3.

WRITE: /22 'SUB-TOTAL OF ITEMS VALUE ',65 'RS',70 WA_ITEM-NETPR,'/-'.

WRITE: /72 SY-ULINE(18).

&----

*& EVENT BLOCKS FOR CALLING FUNCTION SPELL_AMOUNT *

&----

CALL FUNCTION 'SPELL_AMOUNT'

EXPORTING

AMOUNT = WA_ITEM-NETPR

CURRENCY = 'DEM '

IMPORTING

IN_WORDS = SPELL.

WRITE: / 'TOTAL IN-WORDS:', 20 SPELL-WORD,/33 'AND', 38 SPELL-DECWORD.

FORMAT COLOR OFF.

ENDAT.

ENDLOOP.

SKIP TO LINE B.

ELSE.

IF G = 'WA_ORDERS-ERDAT'.

&----

*& EVENT BLOCKS FOR SETING PARAMETER AND CALLING TRANSACTION *

&----

SET PARAMETER ID 'AUN' FIELD WA_ORDERS-VBELN.

CALL TRANSACTION 'VA02'.

ELSE.

MESSAGE I005(YSAI).

ENDIF.

SCROLL LIST INDEX 1 TO FIRST PAGE.

ENDCASE.

topic SET PARAMETER ID 'MAT' not working in Application Development and Automation Discussions

SET PARAMETER ID 'MAT' not working

Re: SET PARAMETER ID 'MAT' not working

Re: SET PARAMETER ID 'MAT' not working

Re: SET PARAMETER ID 'MAT' not working

Re: SET PARAMETER ID 'MAT' not working