Need help in Interactive Report
hi,
i am using a ALV report now i want to make it interactive. as i click on the current page i need to go MIR4 transaction. how can i do it?
please please help on this issue.
to make an alv interactive i did the following steps
try it by yourself then only u can learn dont copy and paste the code
step1: declare an iternal table and work area of the type
data: it_events type standard table of slis_t_alv_events,
wa_events like line of it_data.
step2: use the function module
reuse_alv_get_events
and pass the internal table to the fm so that u will get all the events in an internal table . This internal table will have 2 fields like name and form. In the name field u will have all the names of events like
top_of_page,end_of_page,user_command etc
so what ever event u want to use modify the internal table according it.For example if u want to use user_command.
read the internal table it_events into wa_events with key name eq 'USER_COMMAND'.
after reading the internal table
move 'f_user_command' to wa_events-form.
then modify the internal table according to it
modify it_events from wa_events transporting form.
after this the internal table will have name = USER_COMMAND and
form = 'f_user_command'.
call this form anywhere in the program
form f_user_command using r_ucomm like sy-ucomm
rs_selfield like slis_selfield.
case r_ucomm.
write u r code as appropiate
WHEN '&IC1'.
SET parameter ID 'AUN' FIELD rs_selfield-value.( aun is the parameter id for the field for which u r clicking depending on that select the parameter id)
CALL TRANSACTION 'VA02' AND SKIP FIRST SCREEN.
ENDIF.
Similar Messages
-
NEED HELP FOR INTERACTIVE REPORT..PARAMETERISED
I have a report which output is displayed after a field is selected from select list..
The output of query is empty ..
This is the query .... it doesnt work when i try to put the value of variable in other page...and call it from the query like below..
select apex_item.checkbox(1,ai.ino,'CHECKED') " ",ai.advtno,findisname(ai.adissue) issue_name,a.cfname fname,a.csname sname,a.tot_amt tot_amt,ai.inv_no
from advertiser a,advertiser_client ac,adv_invoice ai
where a.clientnumber = ac.adv_clnt_no and a.advtno = ai.advtno
and findisname(ai.adissue) = LTRIM(RTRIM(:P298_ISSUES))
:p298_issues = 'JUL2012' ; -- This exist in other page...
:p298_issues i TRIED Making it a item with source as database coloumn or even preference item..
The same query works if i put the query as..
select apex_item.checkbox(1,ai.ino,'CHECKED') " ",ai.advtno,findisname(ai.adissue) issue_name,a.cfname fname,a.csname sname,a.tot_amt tot_amt,ai.inv_no
from advertiser a,advertiser_client ac,adv_invoice ai
where a.clientnumber = ac.adv_clnt_no and a.advtno = ai.advtno
and findisname(ai.adissue) = 'JUL2012' ;
Why is it not able to find value of text item :p298_issues ...This i have made it as text item currently ..
actually it is a select list in other page..
and the database source i have set it to ..database column while ithere is no such column present..i need this to be a parameter
do i need to use preferences for this ?? Kindly inform and help...
Edited by: pauljohny on 23-May-2012 23:43..Hello First post was about what i was trying to accomplish..
Some thing in line of global variables..
I needed the value of apex item to be accessed in other page.. it was select list..
There were two ways to accomplish it..One using apex collection or second
using new change item dynamic action and submitting the item..
Using these methods i was able to access the .page item in other page.
Second post i had, was about how I had solved the issue..
I hat forgotten earlier to close the post.
Edited by: pauljohny on 28-May-2012 17:55 -
Need help on interactive report parameter value based on a sequence
At a press of a button..
i have a form where i insert data in a table .a unique number is generated via sequence.
And then a report is called .. all at the press of the same button
Now i need to make a query such that
select * from table_name where no1 = (select d_table_name_seq.currval from dual);
Such statement is not possible in apex..
So what should i do ..Use page_items
How can i store the sequence value in a page item
Edited by: susf on Nov 29, 2012 6:32 AMok solved..using apex application item thanks
-
hi friends i need help on classical reports,
sold-party,
material
sales and distrubitutation channel ,division,
incoming orders,order number,invoice ,credit,
i need sub totals and final total of invoice and each customer should display in new page .Hi
Use the Tables KNA1,VBAk,VBAP,VBRK and VBRP and design the report
see the sample report using KNA1,VBAK and VBAP.
REPORT ZTEJ_INTAB1 LINE-SIZE 103 LINE-COUNT 35(5) NO STANDARD PAGE
HEADING.
*TABLES DECLARATION
TABLES : KNA1, VBAK, VBAP.
*SELECT OPTIONS
SELECT-OPTIONS: CUST_NO FOR KNA1-KUNNR.
*INITIALIZATION
INITIALIZATION.
CUST_NO-LOW = '01'.
CUST_NO-HIGH = '5000'.
CUST_NO-SIGN = 'I'.
CUST_NO-OPTION = 'BT'.
APPEND CUST_NO.
*SELECTION SCREEN VALIDATION
AT SELECTION-SCREEN ON CUST_NO.
LOOP AT SCREEN.
IF CUST_NO-LOW < 1 OR CUST_NO-HIGH > 5000.
MESSAGE E001(ZTJ1).
ENDIF.
ENDLOOP.
*BASIC LIST SELECTION
START-OF-SELECTION.
SELECT KUNNR NAME1 ORT01 LAND1 INTO
(KNA1-KUNNR, KNA1-NAME1,KNA1-ORT01,KNA1-LAND1)
FROM KNA1
WHERE KUNNR IN CUST_NO.
WRITE:/1 SY-VLINE,
KNA1-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,
16 SY-VLINE,
KNA1-NAME1 UNDER 'NAME',
61 SY-VLINE,
KNA1-ORT01 UNDER 'CITY',
86 SY-VLINE,
KNA1-LAND1 UNDER 'COUNTRY',
103 SY-VLINE.
HIDE: KNA1-KUNNR.
ENDSELECT.
ULINE.
*SECONDARY LIST ACCESS
AT user-command.
IF SY-UCOMM = 'IONE'.
PERFORM SALES_ORD.
ENDIF.
IF SY-UCOMM = 'ITWO'.
PERFORM ITEM_DET.
ENDIF.
*TOP OF PAGE
TOP-OF-PAGE.
FORMAT COLOR 1.
WRITE : 'CUSTOMER DETAILS'.
FORMAT COLOR 1 OFF.
ULINE.
FORMAT COLOR 3.
WRITE : 1 SY-VLINE,
3 'CUSTOMER NO.',
16 SY-VLINE,
18 'NAME',
61 SY-VLINE,
63 'CITY',
86 SY-VLINE,
88 'COUNTRY',
103 SY-VLINE.
ULINE.
FORMAT COLOR 3 OFF.
*TOP OF PAGE FOR SECONDARY LISTS
TOP-OF-PAGE DURING LINE-SELECTION.
*TOP OF PAGE FOR 1ST SECONDARY LIST
IF SY-UCOMM = 'IONE'.
ULINE.
FORMAT COLOR 1.
WRITE : 'SALES ORDER DETAILS'.
ULINE.
FORMAT COLOR 1 OFF.
FORMAT COLOR 3.
WRITE : 1 SY-VLINE,
3 'CUSTOMER NO.',
16 SY-VLINE,
18 'SALES ORDER NO.',
40 SY-VLINE,
42 'DATE',
60 SY-VLINE,
62 'CREATOR',
85 SY-VLINE,
87 'DOC DATE',
103 SY-VLINE.
ULINE.
ENDIF.
FORMAT COLOR 3 OFF.
*TOP OF PAGE FOR 2ND SECONDARY LIST
IF SY-UCOMM = 'ITWO'.
ULINE.
FORMAT COLOR 1.
WRITE : 'ITEM DETAILS'.
ULINE.
FORMAT COLOR 1 OFF.
FORMAT COLOR 3.
WRITE : 1 SY-VLINE,
3 'SALES ORDER NO.',
40 SY-VLINE,
42 'SALES ITEM NO.',
60 SY-VLINE,
62 'ORDER QUANTITY',
103 SY-VLINE.
ULINE.
ENDIF.
FORMAT COLOR 3 OFF.
*END OF PAGE
END-OF-PAGE.
ULINE.
WRITE :'USER :',SY-UNAME,/,'DATE :', SY-DATUM, 85 'END OF PAGE:',
SY-PAGNO.
SKIP.
*& Form SALES_ORD
*& FIRST SECONDARY LIST FORM
FORM SALES_ORD .
SELECT KUNNR VBELN ERDAT ERNAM AUDAT INTO
(VBAK-KUNNR, VBAK-VBELN, VBAK-ERDAT, VBAK-ERNAM, VBAK-AUDAT)
FROM VBAK
WHERE KUNNR = KNA1-KUNNR.
WRITE:/1 SY-VLINE,
VBAK-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,
16 SY-VLINE,
VBAK-VBELN UNDER 'SALES ORDER NO.' HOTSPOT ON,
40 SY-VLINE,
VBAK-ERDAT UNDER 'DATE',
60 SY-VLINE,
VBAK-ERNAM UNDER 'CREATOR',
85 SY-VLINE,
VBAK-AUDAT UNDER 'DOC DATE',
103 SY-VLINE.
HIDE : VBAK-VBELN.
ENDSELECT.
ULINE.
ENDFORM. " SALES_ORD
*& Form ITEM_DET
*& SECOND SECONDARY LIST FORM
FORM ITEM_DET .
SELECT VBELN POSNR KWMENG INTO
(VBAP-VBELN, VBAP-POSNR, VBAP-KWMENG)
FROM VBAP
WHERE VBELN = VBAK-VBELN.
WRITE : /1 SY-VLINE,
VBAP-VBELN UNDER 'SALES ORDER NO.',
40 SY-VLINE,
VBAP-POSNR UNDER 'SALES ITEM NO.',
60 SY-VLINE,
VBAP-KWMENG UNDER 'ORDER QUANTITY',
103 SY-VLINE.
ENDSELECT.
ULINE.
ENDFORM. " ITEM_DET
REPORT demo_list_at_pf.
START-OF-SELECTION.
WRITE 'Basic List, Press PF5, PF6, PF7, or PF8'.
AT pf5.
PERFORM out.
AT pf6.
PERFORM out.
AT pf7.
PERFORM out.
AT pf8.
PERFORM out.
FORM out.
WRITE: 'Secondary List by PF-Key Selection',
/ 'SY-LSIND =', sy-lsind,
/ 'SY-UCOMM =', sy-ucomm.
ENDFORM.
After executing the program, the system displays the basic list. The user can press the function keys F5 , F6 , F7 , and F8 to create secondary lists. If, for example, the 14th key the user presses is F6 , the output on the displayed secondary list looks as follows:
Secondary List by PF-Key Selection
SY-LSIND = 14
SY-UCOMM = PF06
Example for AT USER-COMMAND.
REPORT demo_list_at_user_command NO STANDARD PAGE HEADING.
START-OF-SELECTION.
WRITE: 'Basic List',
/ 'SY-LSIND:', sy-lsind.
TOP-OF-PAGE.
WRITE 'Top-of-Page'.
ULINE.
TOP-OF-PAGE DURING LINE-SELECTION.
CASE sy-pfkey.
WHEN 'TEST'.
WRITE 'Self-defined GUI for Function Codes'.
ULINE.
ENDCASE.
AT LINE-SELECTION.
SET PF-STATUS 'TEST' EXCLUDING 'PICK'.
PERFORM out.
sy-lsind = sy-lsind - 1.
AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'FC1'.
PERFORM out.
WRITE / 'Button FUN 1 was pressed'.
WHEN 'FC2'.
PERFORM out.
WRITE / 'Button FUN 2 was pressed'.
WHEN 'FC3'.
PERFORM out.
WRITE / 'Button FUN 3 was pressed'.
WHEN 'FC4'.
PERFORM out.
WRITE / 'Button FUN 4 was pressed'.
WHEN 'FC5'.
PERFORM out.
WRITE / 'Button FUN 5 was pressed'.
ENDCASE.
sy-lsind = sy-lsind - 1.
FORM out.
WRITE: 'Secondary List',
/ 'SY-LSIND:', sy-lsind,
/ 'SY-PFKEY:', sy-pfkey.
ENDFORM.
When you run the program, the system displays the following basic list with a the page header defined in the program:
You can trigger the AT LINE-SELECTION event by double-clicking a line. The system sets the status TEST and deactivates the function code PICK. The status TEST contains function codes FC1 to FC5. These are assigned to pushbuttons in the application toolbar. The page header of the detail list depends on the status.
Here, double-clicking a line no longer triggers an event. However, there is now an application toolbar containing five user-defined pushbuttons. You can use these to trigger the AT USER-COMMAND event. The CASE statement contains a different reaction for each pushbutton.
For each interactive event, the system decreases the SY-LSIND system field by one, thus canceling out the automatic increase. All detail lists now have the same level as the basic list and thus overwrite it. While the detail list is being created, SY-LSIND still has the value 1.
Reward points for useful Answers
Regards
Anji -
Need help on Oracle Report format
Hi,
I need help on Oracle Reports. I am generating a report in excel sheet. I have a column which is 13 digit number (In database it is CHAR datatype). In excel sheet it showing some thing like 9.78381E+12. I want to show complete number like 9783805591331.
Also sometimes leading zero's are not showing when my column values is something like 0098794859583. I need to show the leading zero's as well in excel without losing them.
Below are the parameters i am using for the report
DESFORMAT=SPREADSHEET AND DESTYPE=FILE
My Oracle 9i developer version.
Any help on this would be much appreciated.
Thanks
KishoreAn additional quote string ' character with the number field will solve this problem but if u want to display this field in report then it will look ugly
'''||yourfield from table; check ur regional settings also
plz mark it helpful correct if it is -
Need help Connecting Crystal Reports 8.5 with GBS Agency Expert 6.7.6c
Need help Connecting Crystal Reports 8.5 with GBS Agency Expert 6.7.6c. I need assistance on connecting these together so I can run a report. I am not an IT person so if someone could dumb it down it would be great.
Thanks,
NBGHealthHello,
I assume GBS Agency Expert 6.7.6c is some sort of database or data source? If you have an ODBC driver then create or use a System DSN to the database. Then you can create a report using that DSN.
Otherwise I suggest you contact the makers of GBS Agency Expert 6.7.6c and ask them how to connect to the database.
Let them know CR is ANSII 92 ODBC 3 compliant.
Thank you
Don -
Need Help XML Publisher Report
Hi Friends
I need to generate a report in xml publisher responsibility .
I have create and designed the RTF file using word , And i have genetared an XML file(template )
I have some doubt please clarify by doubts
In RTF template i have some 4columns
For EXample i Give some column name
Invoice Number , Invoice Line Number ,Tax Type ,Tax Code Name etc....
In my RTF I have done like this
I have created two 2 row and 4column
In the 1st row i have all the 4 column heading
In the 2nd row i have done like this
Developer tab> Design mode > In the legacy tool i have selected text Form field
Once i double click the text form field in the default text i have Given C1 Then in the Add help text button i have given <?C_INVOICE_NUMBER?> like this i have done for alls the columns
My RTF design is completed
Now i need load the XML is it?
In the XMl data query i have placed my sql statement
Here my doubt starts
wether all the column in the RTF should be in the XML sql statement ha?
2)In the top of my RTF i need to add date and page No how to add that ?
Thanks In advance
ATHi Friend
Iam saying this is my XML file
<LIST_G_TAX_NAME>
<G_TAX_NAME>
<C_SORT_TAX_NAME>USE TAX</C_SORT_TAX_NAME>
<C_TAX_NAME>Use Tax</C_TAX_NAME>
<C_TAX_RATE>8.25</C_TAX_RATE>
<C_TAX_TYPE>USE</C_TAX_TYPE>
<C_PERIOD_NAME>OCT-11</C_PERIOD_NAME>
<LIST_G_VENDOR>
<G_VENDOR>
<C_SORT_VENDOR_NAME/>
<C_SORT_SITE_CODE/>
<C_VENDOR_ID>851</C_VENDOR_ID>
<C_VENDOR_NAME>ORACLE CORPORATION</C_VENDOR_NAME>
<C_SITE_CODE>CHICAGO</C_SITE_CODE>
<LIST_G_INVOICE>
<G_INVOICE>
<C_INVOICE_DATE>17-OCT-11</C_INVOICE_DATE>
<C_SORT_INVOICE_NUMBER>1308</C_SORT_INVOICE_NUMBER>
<C_INVOICE_ID>350889</C_INVOICE_ID>
<C_INVOICE_NUMBER>1308</C_INVOICE_NUMBER>
<C_INVOICE_LINE_NUMBER>1</C_INVOICE_LINE_NUMBER>
<C_PO_NUMBER>256388</C_PO_NUMBER>
<C_DESCRIPTION>TEST</C_DESCRIPTION>
<C_GL_DATE>17-OCT-11</C_GL_DATE>
<C_INVOICE_LINE_AMOUNT>15</C_INVOICE_LINE_AMOUNT>
<C_CHARGE_ACCOUNT>412.00.6410.7831.1076.1001.00.000.0000</C_CHARGE_ACCOUNT>
<C_LIABILITY_ACCOUNT>412.00.0000.2152.1208.1001.00.000.0000</C_LIABILITY_ACCOUNT>
<C_BATCH_NAME>101711</C_BATCH_NAME>
<C_SITE_CODE2>CHICAGO</C_SITE_CODE2>
<C_INVOICE_AMOUNT>15</C_INVOICE_AMOUNT>
<LIST_G_DIST>
<G_DIST>
<C_INVOICE_TAX_ID>10061</C_INVOICE_TAX_ID>
<C_LINE_TYPE>ITEM</C_LINE_TYPE>
</G_DIST>
</LIST_G_DIST>
<C_TAXABLE_AMOUNT>15</C_TAXABLE_AMOUNT>
<C_TAX_AMOUNT>1.24</C_TAX_AMOUNT>
<C_INVOICE_AMOUNT_DISP> 15.00 </C_INVOICE_AMOUNT_DISP>
<C_TAXABLE_AMOUNT_DISP> 15.00 </C_TAXABLE_AMOUNT_DISP>
<C_TAX_AMOUNT_DISP> 1.24 </C_TAX_AMOUNT_DISP>
</G_INVOICE>
</LIST_G_INVOICE>
<C_INVOICE_SITE_SUM>124.9</C_INVOICE_SITE_SUM>
<C_INVOICE_SITE_SUM_DISP> 124.90 </C_INVOICE_SITE_SUM_DISP>
<C_TAX_SITE_SUM>5.4</C_TAX_SITE_SUM>
<C_TAX_SITE_SUM_DISP> 5.40 </C_TAX_SITE_SUM_DISP>
<C_TAXABLE_SITE_SUM>65.66</C_TAXABLE_SITE_SUM>
<C_TAXABLE_SITE_SUM_DISP> 65.66 </C_TAXABLE_SITE_SUM_DISP>
</G_VENDOR>
</LIST_G_VENDOR>
<C_OLD_VENDOR_ID>0</C_OLD_VENDOR_ID>
<C_INVOICE_SUM>124.9</C_INVOICE_SUM>
<C_INVOICE_SUM_DISP> 124.90 </C_INVOICE_SUM_DISP>
<C_TAX_SUM>5.4</C_TAX_SUM>
<C_TAX_SUM_DISP> 5.40 </C_TAX_SUM_DISP>
<C_TAXABLE_SUM>65.66</C_TAXABLE_SUM>
<C_TAXABLE_SUM_DISP> 65.66 </C_TAXABLE_SUM_DISP>
</G_TAX_NAME>
</LIST_G_TAX_NAME>
And if i need all the column to be displayed in my report
1)Invoice Number
2)Invoice Line Number
3)Tax Type
4)Tax Code Name
5)Tax Rate Percent
6)Supplier Name
7)Description
8)Gl Date
9)Invoive Line Amount
10)Taxable Line Amount
11)Tax Liability
12)Po Number
13)Charge Account
14)Liability Account
Which tag do i need to use fro grouping
For ex
Instead of this <?for-each:G_TAX_NAME?> <?end for-each?>
which one i need to use
Please help
Thanks
AT -
Need help in dynamic report for a range of year and period
Dear all,
I need help in creating an ALV report with dynamic columns based on the Year and period entered on the selection screen. for example if in the year we enter 2002 and period range from 10 to 12 then we should get the 3 columns display for cost(example) for period 10/2002, 11/2002 and 12/2002.
Can anyone help me in achieving this dynamically since the user can enter the year also in intervals along with the period and data also needs to be populated in the corresponding columns.
An example code would be of great help.
Thanks,
AmitHi,
Use field symbols as follows.
TYPE-POOLS : SLIS.
TABLES : MARC,T001W.
DATA : BEGIN OF ITAB OCCURS 0,
MATNR LIKE MARC-MATNR,
END OF ITAB.
DATA : FIELDSTAB TYPE LVC_T_FCAT,
STAB TYPE LVC_S_FCAT,
T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
S_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
NEW_LINE TYPE REF TO DATA,
NEW_TABLE TYPE REF TO DATA,
INDEX(3) TYPE C,
STR(70),
TEXT(6),
CNT(1),
TEXT1(16),
REPID LIKE SY-REPID.
FIELD-SYMBOLS : <FS> TYPE STANDARD TABLE,
<WA> TYPE ANY.
SELECT-OPTIONS : S_WERKS FOR MARC-WERKS NO INTERVALS,
S_MATNR FOR MARC-MATNR NO INTERVALS.
INITIALIZATION.
REPID = SY-REPID.
START-OF-SELECTION.
SELECT * FROM MARC
INTO CORRESPONDING FIELDS OF TABLE ITAB
WHERE MATNR IN S_MATNR
AND WERKS IN S_WERKS.
SORT ITAB BY MATNR.
DELETE ADJACENT DUPLICATES FROM ITAB COMPARING MATNR.
STAB-FIELDNAME = 'MATNR'.
STAB-DATATYPE = 'CHAR'.
STAB-INTLEN = '18'.
APPEND STAB TO FIELDSTAB.
CLEAR CNT.
LOOP AT S_WERKS.
CLEAR TEXT.
CNT = CNT + 1.
CONCATENATE 'EISLO' CNT INTO TEXT.
STAB-FIELDNAME = TEXT.
STAB-DATATYPE = 'CHAR'.
STAB-INTLEN = '16'.
APPEND STAB TO FIELDSTAB.
CLEAR S_WERKS.
ENDLOOP.
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
EXPORTING
IT_FIELDCATALOG = FIELDSTAB
IMPORTING
EP_TABLE = NEW_TABLE.
ASSIGN NEW_TABLE->* TO <FS>.
CREATE DATA NEW_LINE LIKE LINE OF <FS>.
ASSIGN NEW_LINE->* TO <WA>.
PERFORM MOVE_DATA.
CLEAR S_FIELDCAT.
S_FIELDCAT-FIELDNAME = 'MATNR'.
S_FIELDCAT-TABNAME = ITAB.
S_FIELDCAT-SELTEXT_M = 'Part Number'.
S_FIELDCAT-NO_ZERO = 'X'.
S_FIELDCAT-DDICTXT = 'M'.
APPEND S_FIELDCAT TO T_FIELDCAT.
CLEAR CNT.
LOOP AT S_WERKS.
CLEAR T001W.
CNT = CNT + 1.
SELECT SINGLE * FROM T001W WHERE WERKS = S_WERKS-LOW AND SPRAS = SY-LANGU.
CLEAR TEXT.
CONCATENATE 'EISLO' CNT INTO TEXT.
S_FIELDCAT-FIELDNAME = TEXT.
S_FIELDCAT-SELTEXT_M = T001W-NAME2.
S_FIELDCAT-NO_ZERO = 'X'.
S_FIELDCAT-DDICTXT = 'M'.
APPEND S_FIELDCAT TO T_FIELDCAT.
CLEAR S_WERKS.
ENDLOOP.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IT_FIELDCAT = T_FIELDCAT[]
TABLES
T_OUTTAB = <FS>.
*& Form MOVE_DATA
text
FORM MOVE_DATA.
LOOP AT ITAB.
CLEAR STR.
CONCATENATE ITAB-MATNR ' ' INTO STR SEPARATED BY SPACE.
LOOP AT S_WERKS.
CLEAR MARC.
SELECT SINGLE * FROM MARC WHERE MATNR = ITAB-MATNR AND WERKS = S_WERKS-LOW.
IF SY-SUBRC EQ 0.
CLEAR TEXT1.
TEXT1 = MARC-EISLO.
CONCATENATE STR TEXT1 INTO STR SEPARATED BY SPACE.
ELSE.
CONCATENATE STR '0' INTO STR SEPARATED BY SPACE.
ENDIF.
ENDLOOP.
<WA> = STR.
APPEND <WA> TO <FS>.
CLEAR ITAB.
ENDLOOP.
ENDFORM. "MOVE_DATA
Reward points if helpful.
Regards,
Sankar.. -
I need help in Custom Reporting
Hi,
i need help in auditing, SCOM 2012 R2 is deployed in 2 servers with ACS, i have 2 file server that has some shared folder in which users work on some certain document i need to have a report that i can run on certain file that will show me who access that
file when he access what he did like (read write, delete). i don't think we have this type of capability in default report. let me know if someone can help me in that. (free/paid) i know its a bit customized. let me know if u need any more info.
Syed KasifHi,
As far as I know, to audit file access, we should Enable Audit Policy, and then Set up Audit System Access Control List (SACL).
After that, we can make sure that under security event logs there are auditing logs for file access.
Please refer to the below link for more details about auditing file access on file server:
http://blogs.technet.com/b/mspfe/archive/2013/08/27/auditing-file-access-on-file-servers.aspx
And for Collecting Security Events Using Audit Collection Services in Operations Manager:
http://technet.microsoft.com/en-us/library/hh212908.aspx
Regards,
Yan Li
Regards, Yan Li -
Need Help on calling report in OAF Page
Hi,
At present i am wokring EAM Module. Here i need to call one report.
In my OAF Page one button is there("The name of the button is *Issue*"). After clicking this button i need to fire one report(The name of the report is "Maintenance Picking Slip Issued Report").
Please help me how to call report? I don't have any idea how to proceed for this.please explain clearly.
Thanks in advance..
Thanks,
Somasekhar.Somasekhar,
you want to call PLSQL Report or XML Publisher report or you want to submit the concurrent request.
If this XML Publisher report then refer following code for your refrence
public BlobDomain getXMLData(String as[], String s, String s1, String s2, String s3, String s4, String s5,
String s6, String s7, String s8, String s9, String s10)
throws Throwable
int i;
int j;
int k;
int l;
int i1;
int j1;
int k1;
int l1;
int i2;
int j2;
int k2;
OracleCallableStatement oraclecallablestatement;
ARRAY array;
int ai[] = new int[as.length];
i = 0;
j = 0;
k = 0;
l = 0;
i1 = 0;
j1 = 0;
k1 = 0;
l1 = 0;
i2 = 0;
j2 = 0;
k2 = 0;
for(int l2 = 0; l2 < as.length; l2++)
ai[l2] = Integer.parseInt(as[l2]);
if(s.equals("Y"))
i = 1;
if(s1.equals("Y"))
j = 1;
if(s2.equals("Y"))
k = 1;
if(s3.equals("Y"))
l = 1;
if(s4.equals("Y"))
i1 = 1;
if(s5.equals("Y"))
j1 = 1;
if(s6.equals("Y"))
k1 = 1;
if(s7.equals("Y"))
l1 = 1;
if(s8.equals("Y"))
j2 = 1;
if(s10.equals("Y"))
k2 = 1;
i2 = Integer.parseInt(s9);
DBTransaction dbtransaction = getDBTransaction();
String s11 = "BEGIN :1 :=EAM_WorkOrderRep_PVT.getWoReportXML(:2, :3, :4, :5, :6, :7, :8, :9,:10,:11,:12,:13); END;";
oraclecallablestatement = (OracleCallableStatement)dbtransaction.createCallableStatement(s11, 1);
java.sql.Connection connection = oraclecallablestatement.getConnection();
ArrayDescriptor arraydescriptor = ArrayDescriptor.createDescriptor("SYSTEM.EAM_WIPID_TAB_TYPE", connection);
array = new ARRAY(arraydescriptor, connection, ai);
BlobDomain blobdomain;
oraclecallablestatement.registerOutParameter(1, 2005);
oraclecallablestatement.setArray(2, array);
oraclecallablestatement.setInt(3, i);
oraclecallablestatement.setInt(4, j);
oraclecallablestatement.setInt(5, k);
oraclecallablestatement.setInt(6, l);
oraclecallablestatement.setInt(7, k1);
oraclecallablestatement.setInt(8, l1);
oraclecallablestatement.setInt(10, i1);
oraclecallablestatement.setInt(11, j1);
oraclecallablestatement.setInt(9, j2);
oraclecallablestatement.setInt(12, i2);
oraclecallablestatement.setInt(13, k2);
oraclecallablestatement.execute();
CLOB clob = ((OracleCallableStatement)oraclecallablestatement).getCLOB(1);
blobdomain = new BlobDomain();
OutputStream outputstream = blobdomain.getBinaryOutputStream();
long l3 = clob.length();
byte abyte0[] = new byte[(int)l3];
String s12 = clob.getSubString(1L, (int)l3);
abyte0 = s12.getBytes("UTF-8");
outputstream.write(abyte0);
outputstream.close();
return blobdomain;
SQLException sqlexception;
sqlexception;
try
oraclecallablestatement.close();
catch(Exception exception) { }
throw OAException.wrapperException(sqlexception);
public void initSearchCriteria()
log(this, "init search crieria", 1);
getWorkPlanSearchCriteriaVO().executeQuery();
Let me know you got your point or not.
Thanks,
Kumar -
Need help to create report with jpeg/gif image
Hello,
I need help with creating a form with a special jpeg/gif seal. I never done this Java. Until now, I created all forms with ansi C++ with HP escape characters to draw lines, boxs, and text. This form will contain boxes which is populated with database information read from a text file.
Since this form contains a special seal on the upper right, I don't think it can be done with old fashion ansi C++. How can I create a form with Java and create it as a simple exe to just print the form to a specified printer.
Thanks,
JohnHi,
I am creating a form with boxes (lines and text). What is special about this form is that it has an image jpeg or gif at the top right corner. Is is a state department seal. Up to this form, I had used ansi C++ and print out escape HP character to print out the lines, boxes, and text. I have no idea how to print out the image. I am new to JAVA and only 1 class in it. Is there sample code out there to create this type of form with the image? I need a starting point.
Thanks,
John -
i m facing another problem in interactive report .
as i m displaying records in secondary index with check box in front of them .
now i want disply the records against these selected check box , how i would come to know which check box are selected , to process these records further .
Please reply .
Mahesh.Hi Mahesh ,
i am sending an example go through it.
REPORT test.
DATA:
W_CHECKBOX TYPE C. " Check box
*" Declaration of Structure to hold Flight information.
DATA:
BEGIN OF FS_SPFLI,
CARRID TYPE SPFLI-CARRID, " Carrier Id
CONNID TYPE SPFLI-CONNID, " Connection Id
END OF FS_SPFLI.
*" Declaration of Structure to hold Seats Occupancy information
DATA:
BEGIN OF FS_SFLIGHT,
CARRID TYPE SFLIGHT-CARRID, " Carrier ID
CONNID TYPE SFLIGHT-CONNID, " Connection ID
FLDATE TYPE SFLIGHT-FLDATE, " Flight Date
SEATSMAX TYPE SFLIGHT-SEATSMAX," Maximum Seats
SEATSOCC TYPE SFLIGHT-SEATSOCC," Occupied Seats
END OF FS_SFLIGHT.
DATA:
BEGIN OF FS_SSFLIGHT,
CARRID TYPE SFLIGHT-CARRID, " Carrier ID
CONNID TYPE SFLIGHT-CONNID, " Connection ID
END OF FS_SSFLIGHT.
*" Tables Declaration to hold Flight information
DATA:
T_SSPFLI LIKE STANDARD TABLE OF FS_SPFLI.
*" Tables Declaration to hold Seats Occupancy information
DATA:
T_SFLIGHT LIKE STANDARD TABLE OF FS_SFLIGHT.
DATA:
T_SSFLIGHT LIKE STANDARD TABLE OF FS_SSFLIGHT.
*" START-OF-SELECTION EVENT..........................................
START-OF-SELECTION.
IMPORT T_SSPFLI TO T_SSPFLI FROM MEMORY ID'YH630'.
PERFORM DISPLAY_SFLIGHT.
*" END-OF-SELECTION EVENT..........................................
END-OF-SELECTION.
SET PF-STATUS 'BOOKING'.
*" AT USER-COMMAND EVENT..........................................
AT USER-COMMAND.
CASE SY-UCOMM.
WHEN 'BOOKING'.
PERFORM BOOKING.
EXPORT T_SSFLIGHT FROM T_SSFLIGHT TO MEMORY ID'YH630'.
SUBMIT YH630_030502.
ENDCASE.
Form DISPLAY_SFLIGHT
This subroutine displays the SFLIGHT details. *
There are no interface parameters to be passed to this subroutine. *
FORM BOOKING.
DATA:
LW_LINES TYPE I, " No of Lines
LW_LINENO TYPE I, " Line Number
LW_COUNT TYPE I. " Counter
DESCRIBE TABLE T_SFLIGHT LINES LW_LINES.
DO LW_LINES TIMES.
READ LINE LW_LINENO
FIELD VALUE W_CHECKBOX INTO W_CHECKBOX
FS_SFLIGHT-CARRID INTO FS_SFLIGHT-CARRID
FS_SFLIGHT-CONNID INTO FS_SFLIGHT-CONNID.
IF W_CHECKBOX EQ 'X'.
ADD 1 TO LW_COUNT.
FS_SSFLIGHT-CARRID = FS_SFLIGHT-CARRID.
FS_SSFLIGHT-CONNID = FS_SFLIGHT-CONNID.
APPEND FS_SSFLIGHT TO T_SSFLIGHT.
CLEAR T_SFLIGHT.
ENDIF. " IF W_CHECKBOX.....
ADD 1 TO LW_LINENO.
ENDDO. " DO LW_LINES....
ENDFORM.
Form DISPLAY_SFLIGHT
This subroutine displays the SFLIGHT details. *
There are no interface parameters to be passed to this subroutine. *
FORM DISPLAY_SFLIGHT .
SELECT CARRID " Carrier ID
CONNID " Connection ID
FLDATE " Flight date
SEATSMAX " Maximum Seats
SEATSOCC " Seats occupied
FROM SFLIGHT
INTO TABLE T_SFLIGHT
FOR ALL ENTRIES IN T_SSPFLI
WHERE CARRID EQ T_SSPFLI-CARRID AND
CONNID EQ T_SSPFLI-CONNID.
WRITE:/10 TEXT-001,
30 TEXT-002,
50 TEXT-003,
70 TEXT-004,
90 TEXT-005.
SKIP.
IF SY-SUBRC EQ 0.
LOOP AT T_SFLIGHT INTO FS_SFLIGHT.
WRITE: / W_CHECKBOX AS CHECKBOX.
WRITE:10 FS_SFLIGHT-CARRID,
30 FS_SFLIGHT-CONNID,
50 FS_SFLIGHT-FLDATE,
70 FS_SFLIGHT-SEATSMAX,
90 FS_SFLIGHT-SEATSOCC.
ENDLOOP. " LOOP AT......
ELSE.
MESSAGE ' NO DATA FOUND' TYPE 'I'.
ENDIF. " IF SY-SUBRC EQ 0
ENDFORM. " DISPLAY_SFLIGHT -
Need help with simple report built in CR in Eclipse
I'm using the Java SDK in Eclipse to be able to leverage a function that does not appear to be native in Crystal Reports - auto refresh. Looking at the SDK, it appears straight forward to create a viewer on an existing report (built via Crystal Reports) and then refresh the data in a loop. First glance at the SDK it appeared CrystalReportViewer would be the right class, but I didn't find that in the CR Java Runtime Library that comes with cr4e download. So, I used ReportViewerBean, at least to prove out the concept. Here's the prototype code (high-level), using the bean:
public static void main (...) throws ReportSDKException
ReportViewerBean viewer = new ReportViewerBean();
viewer.setReportSource(path to the .rpt file);
viewer.init();
viewer.start();
while (...) {
viewer.refreshReport();
What else is needed to display the report?
Thanks,
RogerI'm using the Java SDK in Eclipse to be able to leverage a function that does not appear to be native in Crystal Reports - auto refresh. Looking at the SDK, it appears straight forward to create a viewer on an existing report (built via Crystal Reports) and then refresh the data in a loop. First glance at the SDK it appeared CrystalReportViewer would be the right class, but I didn't find that in the CR Java Runtime Library that comes with cr4e download. So, I used ReportViewerBean, at least to prove out the concept. Here's the prototype code (high-level), using the bean:
public static void main (...) throws ReportSDKException
ReportViewerBean viewer = new ReportViewerBean();
viewer.setReportSource(path to the .rpt file);
viewer.init();
viewer.start();
while (...) {
viewer.refreshReport();
What else is needed to display the report?
Thanks,
Roger -
Need Help in Interactive ALV Report
Hi guru's,
I need sample code of Interactive ALV when on selecting an particular field, it should open an another ALV windows or pop-up window. Please help me and points will be rewarded for the right code.
Regards
Rajiv Christopherhi,
may b it will b helpful 2 u.
INTERACTIVE ALV
REPORT Z50651_ALV_INTERACTIVE MESSAGE-ID ZMSG_50651
LINE-SIZE 100
LINE-COUNT 60
NO STANDARD PAGE HEADING.
******************TABLES DECLARATION*****************
TABLES : VBAP,MARA.
*****************TYPE POOLS**************************
TYPE-POOLS : SLIS.
****************INTERNAL TABLES**********************
DATA : BEGIN OF IT_VBAP OCCURS 0,
VBELN LIKE VBAP-VBELN, "SALES DOCUMENT
POSNR LIKE VBAP-POSNR, "SALES DOCUMENT ITEM
MATNR LIKE VBAP-MATNR, "MATERIAL NUMBER
END OF IT_VBAP.
****************TEMPORARY VARIABLES******************
DATA : V_VBELN LIKE VBAP-VBELN."SALES DOCUMENT
DATA : V_MTART LIKE MARA-MTART. "MATERIAL TYPE
*****************FIELD CATALOG***********************
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
****************LAYOUT*******************************
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
***************VARIANT*******************************
DATA : G_VARIANT LIKE DISVARIANT.
****************SAVE*********************************
DATA : G_SAVE(1) TYPE C.
*****************EVENTS******************************
DATA : XS_EVENTS TYPE SLIS_ALV_EVENT,
G_EVENTS TYPE SLIS_T_EVENT.
******************PF STATUS**************************
DATA : PF_STATUS TYPE SLIS_FORMNAME VALUE 'SET_PF_STATUS'.
******************USER COMMAND************************
DATA : USER_COMMAND TYPE SLIS_FORMNAME VALUE 'SET_USER_COMMAND',
R_UCOMM LIKE SY-UCOMM.
****************SELECTION SCREEN************************
SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN.
***************AT SELECTION SCREEN*********************
AT SELECTION-SCREEN.
PERFORM VALIDATE.
**************START-OF-SELECTION**************************
START-OF-SELECTION.
PERFORM GET_DETAILS.
PERFORM FIELDCAT.
PERFORM LAYOUT.
PERFORM VARIANT.
PERFORM SAVE.
PERFORM EVENTS.
PERFORM ALV_DISPLAY.
*********************FORMS*******************************************
*& Form validate
text
--> p1 text
<-- p2 text
FORM VALIDATE .
SELECT SINGLE VBELN
FROM VBAP
INTO V_VBELN
WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
MESSAGE E000 WITH 'enter valid vbeln'.
ENDIF.
ENDFORM. " validate
*& Form get_details
text
--> p1 text
<-- p2 text
FORM GET_DETAILS .
SELECT VBELN
POSNR
MATNR
FROM VBAP
INTO TABLE IT_VBAP
WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
MESSAGE E000 WITH 'no details found'.
ENDIF.
ENDFORM. " get_details
*& Form fieldcat
text
--> p1 text
<-- p2 text
FORM FIELDCAT .
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-OUTPUTLEN = 10.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'POSNR'.
WA_FIELDCAT-OUTPUTLEN = 6.
WA_FIELDCAT-SELTEXT_L = 'ITEM'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-OUTPUTLEN = 18.
WA_FIELDCAT-SELTEXT_L = 'MATERIAL NO'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. " fieldcat
*& Form LAYOUT
text
--> p1 text
<-- p2 text
FORM LAYOUT .
WA_LAYOUT-ZEBRA = 'X'.
ENDFORM. " LAYOUT
*& Form VARIANT
text
--> p1 text
<-- p2 text
FORM VARIANT .
CLEAR G_VARIANT.
G_VARIANT-REPORT = SY-REPID.
ENDFORM. " VARIANT
*& Form SAVE
text
--> p1 text
<-- p2 text
FORM SAVE .
CLEAR G_SAVE.
G_SAVE = 'A'.
ENDFORM. " SAVE
*& Form EVENTS
text
--> p1 text
<-- p2 text
FORM EVENTS .
CLEAR XS_EVENTS.
XS_EVENTS-NAME = SLIS_EV_TOP_OF_PAGE.
XS_EVENTS-FORM = 'TOP_OF_PAGE'.
APPEND XS_EVENTS TO G_EVENTS.
ENDFORM. " EVENTS
*& Form TOP_OF_PAGE
text
FORM TOP_OF_PAGE.
WRITE :/ ' INTELLI GROUP'.
ENDFORM. "TOP_OF_PAGE
*& Form ALV_DISPLAY
text
--> p1 text
<-- p2 text
FORM ALV_DISPLAY .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = PF_STATUS
I_CALLBACK_USER_COMMAND = USER_COMMAND
I_STRUCTURE_NAME =
IS_LAYOUT = WA_LAYOUT
IT_FIELDCAT = IT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = G_SAVE
IS_VARIANT = G_VARIANT
IT_EVENTS = G_EVENTS
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = IT_VBAP
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
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. " ALV_DISPLAY
*& Form SET_PF_STATUS
text
FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'Z50651_PFSTATUS' EXCLUDING EXTAB.
ENDFORM. "SET_PF_STATUS
*& Form SET_USER_COMMAND
text
FORM SET_USER_COMMAND USING R_UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
WHEN 'DC'.
READ TABLE IT_VBAP INDEX RS_SELFIELD-TABINDEX.
IF SY-SUBRC = 0.
SELECT SINGLE MTART
FROM MARA
INTO V_MTART
WHERE MATNR = IT_VBAP-MATNR.
IF SY-SUBRC 0.
MESSAGE E000 WITH 'NO MATERIAL DESCRIPTION FOR SELECTED MATERIAL NO'.
ELSE.
WRITE :/ 'MATERIAL NO :',IT_VBAP-MATNR.
WRITE :/ 'MATERIAL TYPE :' , V_MTART.
ENDIF.
ENDIF.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
WHEN 'CLOSE'.
CALL TRANSACTION 'SE38'.
ENDCASE.
ENDFORM. "SET_USER_COMMAND
Reward if useful... -
Need your help on interactive report
hi all
I have generated a report(below one) ,actually i need EKORG,EKGRP,NETWR in basic list i am not getting any value in NETWR field and also I need MAKTX field in secondary list but i am not getting any value in that field what can i do ,please suggest me any modifications to be done.
thanks and regard
kumar
--INITIALIZATION----
INITIALIZATION.
TABLES: EKKO, EKPO, MAKT.
DATA: BEGIN OF I_EKKO OCCURS 0,
EBELN LIKE EKKO-EBELN,
EKORG LIKE EKKO-EKORG,
EKGRP LIKE EKKO-EKGRP,
END OF I_EKKO.
DATA: BEGIN OF I_EKPO OCCURS 0,
EBELP LIKE EKPO-EBELP,
MATNR LIKE EKPO-MATNR,
NETWR LIKE EKPO-NETWR,
MENGE LIKE EKPO-MENGE,
NETPR LIKE EKPO-NETPR,
END OF I_EKPO.
DATA: BEGIN OF I_MAKT OCCURS 0,
MAKTX LIKE MAKT-MAKTX,
MATNR LIKE MAKT-MATNR,
END OF I_MAKT.
DATA: BEGIN OF I_OUT OCCURS 0,
EBELN LIKE EKKO-EBELN,
EKORG LIKE EKKO-EKORG,
EKGRP LIKE EKKO-EKGRP,
EBELP LIKE EKPO-EBELP,
MATNR LIKE EKPO-MATNR,
NETWR LIKE EKPO-NETWR,
MENGE LIKE EKPO-MENGE,
NETPR LIKE EKPO-NETPR,
MAKTX LIKE MAKT-MAKTX,
END OF I_OUT.
DATA: BEGIN OF JTAB OCCURS 0,
EBELN LIKE EKKO-EBELN,
EBELP LIKE EKPO-EBELP,
MATNR LIKE EKPO-MATNR,
MENGE LIKE EKPO-MENGE,
NETPR LIKE EKPO-NETPR,
maktx like makt-maktx,
end of jtab.
--AT SELECTIONSCREEN--
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_EBELN FOR EKKO-EBELN OBLIGATORY.
SELECT-OPTIONS: S_EKORG FOR EKKO-EKORG OBLIGATORY.
SELECT-OPTIONS: S_EKGRP FOR EKKO-EKGRP.
SELECTION-SCREEN END OF BLOCK B1.
--START-OF-SELECTION----
START-OF-SELECTION.
SELECT EBELN EKORG EKGRP FROM EKKO
INTO TABLE I_EKKO
WHERE EBELN IN S_EBELN.
SELECT EBELP MATNR NETWR MENGE NETPR FROM EKPO
INTO TABLE I_EKPO FOR ALL ENTRIES IN I_EKKO
WHERE EBELN = I_EKKO-EBELN.
SELECT MAKTX MATNR FROM MAKT
INTO TABLE I_MAKT FOR ALL ENTRIES IN I_EKPO
WHERE MATNR = I_EKPO-MATNR.
--END-OF-SELECTION--
END-OF-SELECTION.
LOOP AT I_EKKO.
MOVE: I_EKKO-EBELN TO I_OUT-EBELN,
I_EKKO-EKORG TO I_OUT-EKORG,
I_EKKO-EKGRP TO I_OUT-EKGRP.
READ TABLE I_EKPO WITH KEY EBELP = I_EKKO-EBELN.
MOVE: I_EKPO-EBELP TO I_OUT-EBELP,
I_EKPO-MATNR TO I_OUT-MATNR,
I_EKPO-NETWR TO I_OUT-NETWR,
I_EKPO-MENGE TO I_OUT-MENGE,
I_EKPO-NETPR TO I_OUT-NETPR.
READ TABLE I_MAKT WITH KEY MATNR = I_EKKO-EBELN.
MOVE: I_MAKT-MAKTX TO I_OUT-MAKTX,
I_MAKT-MATNR TO I_OUT-MATNR.
APPEND I_OUT.
ENDLOOP.
LOOP AT I_OUT.
FORMAT HOTSPOT ON.
FORMAT COLOR 2 ON.
WRITE : / SY-VLINE,
2 I_OUT-EKORG,
9 SY-VLINE,
10 I_OUT-EKGRP,
24 SY-VLINE,
25 I_OUT-NETWR,
40 SY-VLINE.
FORMAT HOTSPOT OFF.
FORMAT COLOR 2 OFF.
HIDE: I_OUT-EBELN .
*,I_OUT-MAKTX,i_out-matnr,i_out-menge.
ENDLOOP.
--TOP-OF-PAGE--
TOP-OF-PAGE.
FORMAT COLOR 3 ON.
WRITE : / 'EKORG',
10 'EKGRP',
35 'NETWR'.
FORMAT COLOR 3 OFF.
---------END-OF-PAGE------------
END-OF-PAGE.
FORMAT COLOR 6 ON.
WRITE : /100 'PAGE NUMBER:',SY-PAGNO.
FORMAT COLOR 6 OFF.
--AT LINE-SELECTION--
AT LINE-SELECTION.
SELECT EBELN EBELP MATNR MENGE NETPR
FROM EKPO
INTO corresponding fields of TABLE JTAB WHERE EBELN = I_OUT-EBELN.
LOOP AT JTAB.
format color 2 on.
WRITE : / SY-VLINE,
2 jtab-EBELN,
13 SY-VLINE,
15 jtab-EBELP,
28 SY-VLINE,
30 jtab-MATNR,
43 SY-VLINE,
45 jtab-MENGE,
49 SY-VLINE,
50 jtab-NETPR,
59 SY-VLINE,
60 I_OUT-MAKTX,
68 SY-VLINE.
format color 2 off.
ENDLOOP.
TOP-OF-PAGE DURING LINE-SELECTION.
FORMAT COLOR 3 ON.
WRITE: / 'EBELN',
15 'EBELP',
30 'MATNR',
45 'MENGE',
53 'NETPR',
63 'MAKTX'.
FORMAT COLORHi,
Check this..I am able to see the material description and netwr..
--INITIALIZATION----
INITIALIZATION.
TABLES: ekko, ekpo, makt.
DATA: BEGIN OF i_ekko OCCURS 0,
ebeln LIKE ekko-ebeln,
ekorg LIKE ekko-ekorg,
ekgrp LIKE ekko-ekgrp,
END OF i_ekko.
DATA: BEGIN OF i_ekpo OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
netwr LIKE ekpo-netwr,
menge LIKE ekpo-menge,
netpr LIKE ekpo-netpr,
END OF i_ekpo.
DATA: BEGIN OF i_makt OCCURS 0,
maktx LIKE makt-maktx,
matnr LIKE makt-matnr,
END OF i_makt.
DATA: BEGIN OF i_out OCCURS 0,
ebeln LIKE ekko-ebeln,
ekorg LIKE ekko-ekorg,
ekgrp LIKE ekko-ekgrp,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
netwr LIKE ekpo-netwr,
menge LIKE ekpo-menge,
netpr LIKE ekpo-netpr,
maktx LIKE makt-maktx,
END OF i_out.
DATA: BEGIN OF jtab OCCURS 0,
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
menge LIKE ekpo-menge,
netpr LIKE ekpo-netpr,
maktx LIKE makt-maktx,
END OF jtab.
--AT SELECTIONSCREEN--
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_ebeln FOR ekko-ebeln OBLIGATORY.
SELECT-OPTIONS: s_ekorg FOR ekko-ekorg OBLIGATORY.
SELECT-OPTIONS: s_ekgrp FOR ekko-ekgrp.
SELECTION-SCREEN END OF BLOCK b1.
--START-OF-SELECTION----
START-OF-SELECTION.
SELECT ebeln ekorg ekgrp FROM ekko
INTO TABLE i_ekko
WHERE ebeln IN s_ebeln.
IF NOT i_ekko[] IS INITIAL.
SELECT ebeln ebelp matnr netwr menge netpr FROM ekpo
INTO TABLE i_ekpo FOR ALL ENTRIES IN i_ekko
WHERE ebeln = i_ekko-ebeln.
ENDIF.
IF NOT i_ekpo[] IS INITIAL.
SELECT maktx matnr FROM makt
INTO TABLE i_makt FOR ALL ENTRIES IN i_ekpo
WHERE matnr = i_ekpo-matnr.
ENDIF.
--END-OF-SELECTION--
END-OF-SELECTION.
LOOP AT i_ekko.
MOVE: i_ekko-ebeln TO i_out-ebeln,
i_ekko-ekorg TO i_out-ekorg,
i_ekko-ekgrp TO i_out-ekgrp.
READ TABLE i_ekpo WITH KEY ebeln = i_ekko-ebeln.
MOVE: i_ekpo-ebelp TO i_out-ebelp,
i_ekpo-matnr TO i_out-matnr,
i_ekpo-netwr TO i_out-netwr,
i_ekpo-menge TO i_out-menge,
i_ekpo-netpr TO i_out-netpr.
READ TABLE i_makt WITH KEY matnr = i_ekpo-matnr.
MOVE: i_makt-maktx TO i_out-maktx,
i_makt-matnr TO i_out-matnr.
APPEND i_out.
ENDLOOP.
LOOP AT i_out.
FORMAT HOTSPOT ON.
FORMAT COLOR 2 ON.
WRITE : / sy-vline,
2 i_out-ekorg,
9 sy-vline,
10 i_out-ekgrp,
24 sy-vline,
25 i_out-netwr,
40 sy-vline.
FORMAT HOTSPOT OFF.
FORMAT COLOR 2 OFF.
HIDE: i_out-ebeln .
*,I_OUT-MAKTX,i_out-matnr,i_out-menge.
ENDLOOP.
--TOP-OF-PAGE--
TOP-OF-PAGE.
FORMAT COLOR 3 ON.
WRITE : / 'EKORG',
10 'EKGRP',
35 'NETWR'.
FORMAT COLOR 3 OFF.
---------END-OF-PAGE------------
END-OF-PAGE.
FORMAT COLOR 6 ON.
WRITE : /100 'PAGE NUMBER:',sy-pagno.
FORMAT COLOR 6 OFF.
--AT LINE-SELECTION--
AT LINE-SELECTION.
SELECT ebeln ebelp matnr menge netpr
FROM ekpo
INTO CORRESPONDING FIELDS OF TABLE jtab WHERE ebeln = i_out-ebeln.
LOOP AT jtab.
READ TABLE i_makt WITH KEY matnr = jtab-matnr.
MOVE: i_makt-maktx TO i_out-maktx.
FORMAT COLOR 2 ON.
WRITE : / sy-vline,
2 jtab-ebeln,
13 sy-vline,
15 jtab-ebelp,
28 sy-vline,
30 jtab-matnr,
43 sy-vline,
45 jtab-menge,
49 sy-vline,
50 jtab-netpr,
59 sy-vline,
60 i_out-maktx,
68 sy-vline.
FORMAT COLOR 2 OFF.
ENDLOOP.
TOP-OF-PAGE DURING LINE-SELECTION.
FORMAT COLOR 3 ON.
WRITE: / 'EBELN',
15 'EBELP',
30 'MATNR',
45 'MENGE',
53 'NETPR',
63 'MAKTX'.
Thanks,
Naren
Maybe you are looking for
-
SQL Server: 2008 R2 SP2 Before describing my problem, I have gone via the forum, there is no view or functions inside my stored procedure When running a particular stored procedure inside crystal report, the error " Could not continue scan with noloc
-
10.5.2 doesn't fix UPS battery level display
I was hoping this bug in Leopard would be squashed in 10.5.2. Nope! When I reboot, the battery level display in the Menu bar and Energy Saver Prefs Panel show an empty battery and 0% charge level even though my APC 1500 SmartUPS is fully (100%) charg
-
I've tried to reinstall Killer drivers to no avail. When using internet, it sometimes drops connection and I have to restart to get back the internet. If I use a wireless adapter I'm fine. 4670k G65 Gaming 7970 GHZ 1866 DDR3 8gb 750W PSU
-
Why does my home screen light stay on all the time.
My homescreen stays on all the time. The only way to turn it off os to puch the top button. It even stays on while its charging. Its draining my battery! HELP
-
MVP List #31 (March 24 - 30, 2012)
The Verizon Community Forums Most Valuable Posting List is where we recognize great work and words happening every day right here on our community. We know the success as a community is based on the continual and lively contributions of our valued me