Rich item report mobile page
Hi
I use apex 4.2, i create mobile application which include report page, the problem is i have clob database column include html data, i need to display this data as html, the problem when i create report page it display data as text? how can i display it as html format?
Thanks
Hi Hani,
Sorry for the slow reply, there seems to be something going on with my communications console.
You were talking about a report, but are you using a lsit view instead?
A standard report in a mobile appplication does have column properties to set, a list view doesn't.
For a list view it's a bit more complicated. Only thing a can think of is checking the "Advanced Formatting" checkbox. That will give you some extra attributes to set.
Regards,
Vincent Deelen
Similar Messages
-
Vendor open items report without page break after changing vendor account
Hi,
I would like to get the vendor open items report without pagination when the vendor account changes.
The option of deleting the * mark in the Filter page is not valid for me, because this way the vendor's name dissappear. I mean, it would be ok if I could show in the output of the report the name of the vendors.
Thanks in advance.HI,
If I understood your issue correctly then in the report S_ALR_87012085 is a field "Summarization level (0-4)" in the output controls.
You just have to set this field to the value '2'.
When you set the field to two, the page break will first executed, when the page is "full".
If you want to see information about the "Summarization level (0-4)" field, you just have to set the cursor in it, and press F1.
I believe this answer solve your problem.
Please assign points if it useful.
Regards
Ravinagh Boni -
Discoverer Viewer Report with Page Items Slow Performance
I created a report in Discoverer User that has page items and parameters and runs fine (under 3 minutes) in Discoverer User, but when I try and run it in Discoverer Viewer it takes a long time. It took over 70 minutes before manually terminating it. I made a copy of the report and removed the page items and tried to run it again in Discoverer Viewer and now the report runs in under 3 minutes. Any idea why a report with page items would run in Discoverer user fine, but not discoverer viewer?
I am using Oracle Business Intelligence Plus 10g (10.1.2.55.26)As long as you can access the middle-tier server where Discoverer Viewer is running, you should be able to run and view Discoverer worksheets.
While it is difficult to even start guessing what the problem might be, if the machine you installed Discoverer on has DHCP addressing, you will run into problems.
Thanks
Abhinav
Oracle Business Intelligence Product Management
BI on Oracle: http://www.oracle.com/bi/
BI on OTN : http://www.oracle.com/technology/products/bi/
Discoverer : http://www.oracle.com/technology/products/discoverer/
BI Software : http://www.oracle.com/technology/software/products/ias/devuse.html
Documentation: http://www.oracle.com/technology/documentation/appserver1012.html
BI Samples : http://www.oracle.com/technology/products/bi/samples/
Blog : http://oraclebi.blogspot.com/ -
Interactive Report & Item Value in Page 0
Hi,
Is it true that Interactive Report query couldn't read item value from Page 0?
I have this Interactive Report region using the :P0_EMP_SEQ in the where CLAUSE, i found out that the value is always blank/NULL.
I created a normal Report region to test the SQL, I can see records being returned.
Cheers,
-JoelHi,
When you are on page 32, check that there is value on page 34 item session state
http://download.oracle.com/docs/cd/E23903_01/doc/doc.41/e21674/concept_ses.htm#sthref100
Regards,
Jari -
Hello all,
I am using APEX 4.0.3 and I would like to create a report where I could have editable page items within it. My objective was having for instance a variable number with its characteristics displayed in the report and the in one column be able to choose one second from a select list to associate to the first one.
In resume I need to have both a select list in the report, and I need to know how do I access the value of this item in each of this rows.
Thank you,
MikeYou need to loop.
Check out "Referencing Arrays,Referencing Values Within an On Submit Process" sections in following documentation.
This should give you fair idea.
http://download.oracle.com/docs/cd/E10513_01/doc/apirefs.310/e12855/apex_app.htm
For example if you have report with following query
SELECT APEX_ITEM.TEXT(1,column_name) FROM myTable;
and if you have 10 rows in table, then 10 text items will display on your page.
Since we have given the ID (p_idx) as 1, we can refer these text items using G_F01 global array. (If its 2 then G_F02 etc. we can have upto 50 dynamic item on one page)
G_F01.COUNT gives us "number of items"
G_F01(i) gives us value of i ^th^ text item value.
Hope it helps
Regards,
Hari -
Fbl5n: The printer provides me only one customer items for each page...
Hi all,
launching t.code FBL5N, and printing the repost list, the printer provides me only one customer items for each page...
I'd like obtaining more customer items for each page...
What to do?
ThanksHi Umberto..
Thats how the standard report works..
To meet your requirement, you would probably need to look at another standard report.
In case you need further clarification, please feel free to write to me..
Good Luck!
Lucid-Mind... -
How do you pass more than 3 items to another page via a Column Link?
I know this is a simple question, but I don't see it covered in the manual.
I have a report on page 1, when the user clicks on a column link, I'd like to pass 4 items to the page that is called.
The Column Link area allows you to specify 3 items. How do people normally accomplish this?
Do you somehow use page zero? Do you use Application Items for this purpose?
Also, can someone recommend a good APEX book to supplement the manuals?
ThankshI
Oh Varad I didnt know this, Thanks for a new tip ;)
Just change the target to URL and enter a simple statement
in the URL section
f?p=&APP_ID.:50:&SESSION.:10:&DEBUG.::P50_item1,P50_item2,P50_item3,P50_item4:value1,#column_name2#,#column_name3#,#column_name4#
Use value when u know a fixed value to be passed
and column names on the same report can be passes by using #column_name#
Hope this helps
Thanks
Ashri
Edited by: Ashri on Nov 14, 2008 8:34 AM -
GL open items report needs OSS Note
Hi All,
Report S_alr_87012282 is run at period end and year end to validate that A/P 21010000 is in balance against the open items report. For the 7th period (12/13/08) I could not run the report as it timed out. If you run this in the background there are 100,000 pages and you can not see the last page. I need a resolution for this report as accounting said I have to use to balance.
I tried in foreground and it still timed out. I recommended FS10N,Please provide the OSS for any performance improvement notes.
Thanks in Advance
PrathapHello everybody:
I need open clearing items to clearing with other items. For example in my job was issued a payment to a supplier, but was applied to the wrong invoice, for this reason I need to open this compensation payment and apply it to the right invoice, the Tx FBRA, tells me that I must cancel the payment, but the payment was delivered and collected by the supplier, so I can not avoid it and just need to open the clearing.
Can us help me please????
Thanks
María -
Reporting on DSO for Broker's Statement (Line Item Reporting)?
Dear experts,
I need to create a BW report based on data from FS-CD and ICM for a client in the insurance industry. The report is broker's statement which has in total 3 sections/pages (or in 3 levels). The requirements are as follows:
1. Overview of the total commissions (grouped by different categories) earned by a broker for a specific month
2. When the broker clicks on the "commission group", it will jump to another page showing each commission items of that group
3. Details for each commission item (line item in DSO) can be drill-downed in another separate page
Currently, I have a consolidated DSO for the commission line items. The data will be loaded to an InfoCube followed by a MultiProvider for reporting.
I am new to BI and I assume that I should follow the following approach:
1. Use RRI for the jumps between different details levels
2. Use DSO for reporting the line item on third page
3. Use Report Designer for the layout because the reports are formatted like Balance Sheet
Is it possible that I report on the InfoCube via MultiProvider for the 1st and 2nd levels whereas DSO for the 3rd level?
Could anyone please give me some suggestions on this?
Thanks in advance.
Regards,
JoonHi,
any updates? I read that the RRI capability of the query is not supported in BEx report. Is it true?
If so, is there any workaround to enable this?
Regards,
Joon -
Current Header Rows Not Appearing on FBL1N - A/P Detailed Line Item Report
Our A/P staff somehow turned off the header rows at the top of the FBL1N report. The rows contain the various variables related to the report such as vendor name, vendor address, city, state etc.
Does anyone know how I can change the report so that these variables once again appear on the report?
Thanks,Michael,
Do you mean that you can not access via the following link?
http://service.sap.com/notes
Well, if this is your case, I will copy note 181592 here since there is only text information and not code correction. I am sorry but the format is not good, but I think this note will help you to insert header again.
If this note does not help you, let me know and I will check the other notes that I have provided.
Please kindly check the note text below:
Best Regards,
Vanessa Barth.
==============================================================
SAP Note No. 181592 20.01.2009 Page 1
Number 181592
Version 6 from 03.03.2000
Status Released for Customer
Set on 02.03.2000
Language EN
Master language DE
Short text Line item: Setting-up the headers
Responsible Christian Auth
Component FI-GL-GL-D
Reporting/Analysis/Display
Long text
Symptom
You want to display information in the headers or change information
preset in the headers for the following: line item display for vendors,
G/L accounts customers or customer information on an account.
Additional key words
Program RFITEMAP, RFITEMGL, RFITEMAR, Transactions FBL1N, FBL3N, FBL5N,
layout variants, layout headers
Cause and prerequisites
You are not familiar with the option of individually setting header
information or how to use maintenance transactions.
Solution
1. Overview
In the line item report you can display information in the header of
the list (given that this information is equal for all items
displayed).
For example, a customer accounts clerk wants to display the
following data in the header: account number and name of the
customer, name and telephone number of the responsible accounting
clerk for the customer, current date.
You can use information taken from the account master data. General
variables like the time and date are also available.
The following describes how you can set up the layout of header
information yourself. A header layout is always assigned to the
particular display variant of the list which you set on the bottom
of the selection screen or which you can choose using CTRL+F9 on the
display ('Choose' button). You can therefore personalize the header
layout as well as the remaining display layout.
The header layout is output if the account number group is changed,
if the list has been sorted according to the 'Account' field, and if
a page break has been set for this field. You can maintain these
Page 2
settings under the menu option Edit -> Subtotal (Ctrl+F1).
2. Setting up the headers
Choose from the menu
Settings -> Display Variant -> Current header rows
You now see rows in which you can arrange variables. Using the
pushbuttons in the function bar, you can create or delete rows.
When you position the cursor at the start position and choose
function "Gen. variables" (Shift+F5) or "Characteristics..."
(Shift+F8) a new variable is positioned in the header area. From the
following dialog box, you can choose the variable (also called
characteristic) from an inventory.
Under "Text type", you determine whether the label for the variable
(for example, the label 'Customer') or if the value itself should be
used (that is, the appropriate customer number for the items
displayed in each case). You can display pairs as follows:
<Label>: <Value>
for example,
Customer: 47110815
If the value is a key for a short or long text (either a name or a
description), you can also select this under "Text type".
After selecting and positioning the characteristics, save and return
to the list. The headers are displayed immediately with correct
values so that you can check your results right away.
3. Save the list variant
Choose "Save" (Ctrl+F12) in the list. In the following dialog box,
you can enter a name and a label for the list variant that will be
stored together with your header layout.
Note that general variants visible to every user have a name
Page 3
starting with the character '/'. User-specific variants on the other
hand must begin with a letter and are only visible to you.
Standard variants delivered by SAP in general start with a number
and have preconfigured headers. You cannot change the SAP variants,
but you can use them as template for your own enhancements, which
you can store under another variant name.
Valid releases
Software Component Release
from to
SAP_APPL
SAP Application
46C - 46C
46A - 46B X
Further components
FI-AP-AP-D
Reporting/Analysis/Display
FI-AR-AR-D
Reporting/Display/Credit Management
Reference to related Notes
Number Short text
306225 Line item: page break when printing lists
213144 Line item: Header information disappears
181697 Line item: Header information is missing -
4.2 select list on mobile page not setting session state
Hi,
Like I've done dozens of times in the past, I created a Select list that submits on change, and I expected session state to be updated accordingly.
I tried this on a mobile page but session state is not updated for the item.
Has anyone else experienced this?
ScottHi Scott,
is it possible that you are hitting bug# 14680379 - PAGE SUBMIT ACTIONS DO NOT WORK FOR LONGER MOBILE SELECT LISTS, WHEN DEFINED TO FIRE WHEN THE SELECT LIST VALUE CHANGES
on our Known Issues List http://www.oracle.com/technetwork/developer-tools/apex/application-express/apex-42-known-issues-1863578.html ?
Is your select list selection displayed as native control or as popup? Can you create a test case on apex.oracle.com?
Thanks
Patrick
My Blog: http://www.inside-oracle-apex.com
APEX Plug-Ins: http://apex.oracle.com/plugins
Twitter: http://www.twitter.com/patrickwolf -
Final total cannot appear when the last line item reached the page end
Hi All,
My report included 2 pages. Problem is the final total cannot appear when the last line item reached the page end. (page 2)
final total will appear on the middle of last page (page 3) when i comment (type = 'BOTTOM').
Below is the program.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
device = 'PRINTER'
dialog = 'X'
form = 'ZBOTM_VOUCHER'
language = sy-langu.
sort itab by vblnr.
LOOP AT itab INTO wa_itab.
move wa_itab-vblnr to reguh-vblnr.
move wa_itab-lifnr to reguh-lifnr.
move wa_itab-rbetr to reguh-rbetr.
reguh-rbetr = reguh-rbetr * -1.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'MAIN'
element = 'DETAIL'.
t_rbetr = reguh-rbetr + t_rbetr.
AT LAST.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'LINE'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'TOTAL'.
type = 'BOTTOM'
WINDOW = 'MAIN'.
ENDAT.
Thanks.Hi,
Where should I include the code for bottom?
How to open text editor?
Thanks.
Edited by: Alice8 on Feb 7, 2011 9:09 AM -
Linked Column to Item on Another Page
How does one link a report column to an item on another page? I can link to another page, but I can't get the value into an item on that page.
Hi - I presume you want to implement something like an 'edit' link, where you click on a row in a report and get redirected to a form where you can edit that record's data.
What's going on here is this:
1. Redirect to the form page;
2. Set the primary key field's value on that page; and
3. Perform a row fetch to populate the form items.
The 'edit' column of the report will normally hold the PK value.
In the link attributes for the edit column you need specify the value you want to set when you redirect (the name of the PK item on the form page) and the value you want to set it to (normally the edit column name).
Easiest way to see this in action is to create a Form and Report on a Table using the wizard and look at what APEX puts into the first report column. You can see the ID value being passed in the URL as you link to the form page.
Hope this helps.
Regards,
John. -
Hello Experts,
I am issuing the output of the shipment through VT02N. Both Print program and the form are customized(Z).
The form contains two pages each with different layouts.
<b>First page to print the item
Second page is to print an Acknowledgement</b>
My requirement is If the Shipment has the two items of two <b>different delivery address</b> then I have print the item in each page like
Page 1 - Item 1
Page 2 - Ackonwledgement
Page 3 - Item 2
Page 4 - Ackonwledgement and so on.
SImilarly if the shippment has 5 items and with same Delivery address then I have print all the 5 items in the same page.
I have tried with New-Page option but it is not solving my requirement.
Hope the requirement is clear.
Could anyone please suggest a solution for this Issue.
Thanks in Advance.
VasanthHello Goutham,
This is my code:
REPORT Z48V_RV56TD00.
SET EXTENDED CHECK OFF.
*---------------------------------------------------------------Tables
TABLES: ADCP, "Zuordnung Person/Adresse
ADR6, "SMTP-Nummern
ADR7, "Remote-Mail-Adressen
ADRP, "Personen
LIKP, "Lieferung: Kopfdaten
LIPS, "Lieferung: Positionsdaten
MAKT, "
T001, "Buchungskreise
T005, "Länder
T006A, "Maßeinheit
THEAD, "SAPscript: Text-Header
TVKO,
TTXER, "Textverarbeitung: Text-Id-Gruppen
TTXIT, "Texte zu Text-Id's
SADR, "Adressverwaltung: Firmendaten
STXH, "SAPscript Text-Datei Header
USR21, "Zuord. Benutzer zu Adressschlussel
VBDDL, "Druckview für Versandtermine
VBPLA, "allgemeine Transportdaten
Z48V_INCOTEXT "spezielle Textbausteine zu Incoterms
"z00_sd_vstel_dru
INCLUDE VTTKDATA. "Shipment Header
INCLUDE VTTSDATA. "Shipment Segment
INCLUDE VTTPDATA. "Shipment Items
INCLUDE VBPADATA. "Partner
INCLUDE VTFADATA. "Flow
INCLUDE SADRDATA. "Address
INCLUDE VTLFDATA. "Delivery Selection
INCLUDE RVADTABL. "Messages
INCLUDE VSEDATA. "shipping units
INCLUDE RV56ACOM. "I/O-Structure
SET EXTENDED CHECK ON.
*------------------------------------------------------------Constants
CONSTANTS: NO(1) VALUE SPACE,
YES(1) VALUE 'X'.
*----------------------------------------------------------Hilfsfelder
DATA: XSCREEN(1) TYPE C,
RETCODE LIKE SY-SUBRC VALUE 0,
THERE_WAS_OUTPUT(1) TYPE C VALUE SPACE,
NEW_PAGE_WAS_ORDERED(1) TYPE C VALUE SPACE.
DATA: BEGIN OF ITAB OCCURS 0,
VPOBJKEY LIKE VBPLK-VPOBJKEY,
* 001 vsm1kor 09.08.07 - sn OPL 1815
KUNWE LIKE VTTS-KUNNZ,
* 001 vsm1kor 09.08.07 - sn OPL 1815
BRGEW LIKE VBPLK-BRGEW,
LAENG LIKE VBPLK-LAENG,
BREIT LIKE VBPLK-BREIT,
HOEHE LIKE VBPLK-HOEHE,
MEABM LIKE VBPLK-MEABM,
VOLEH LIKE VBPLK-VOLEH,
GEWEI LIKE VBPLK-GEWEI,
GEWEI_MAX LIKE VBPLK-GEWEI_MAX,
VEBEZ LIKE VBPLK-VEBEZ,
VSTEL LIKE VBPLK-VSTEL,
VENUM LIKE VBPLK-VENUM,
VHILM LIKE VBPLK-VHILM,
END OF ITAB.
DATA: W-ITAB LIKE ITAB.
* 001 vsm1kor 09.08.07 - sn OPL 1815
DATA: GV_KUNWE LIKE VTTS-KUNNZ.
DATA: BEGIN OF G_T_KUNWE OCCURS 0,
KUNWE LIKE VTTS-KUNNZ,
TDNAME(10),
END OF G_T_KUNWE.
* 001 vsm1kor 09.08.07 - en OPL 1815
DATA: TB_COLLI LIKE SLK-ANZPK.
*DATA: tb_brgew LIKE vbplk-brgew.
DATA: TB_ABMES(33).
DATA: TB_LAENG(10).
DATA: TB_BREIT(10).
DATA: TB_HOEHE(10).
DATA: TB_SAVE-GEWEI LIKE VBPLK-GEWEI.
DATA: TB_VSTEL1 LIKE TVST-VSTEL.
DATA: TB_VSTEL2 LIKE TVST-VSTEL.
DATA: TB_VSTEL3 LIKE TVST-VSTEL.
DATA: TB_ADRC1 LIKE ADRC.
DATA: TB_ADRC2 LIKE ADRC.
DATA: TB_ADRC3 LIKE ADRC.
DATA: TB_TDNAME(10).
DATA: TB_KZVST.
DATA: TB_NETWR LIKE SLK-NETWR.
DATA: TB_VOLUM TYPE P DECIMALS 3.
DATA: BEGIN OF IT_VSTEL OCCURS 0,
VSTEL LIKE XVTTP-VSTEL,
END OF IT_VSTEL.
DATA: TB_PSVON LIKE VBPLK-VENUM.
DATA: TB_PSBIS LIKE VBPLK-VENUM.
DATA: TB_VENUM(10).
DATA: TB_KZSPD.
DATA: TB_WETXT.
DATA: TB_TABIX LIKE SY-TABIX.
DATA: BEGIN OF W,
LSNUM LIKE LIKP-VBELN,
LSANZPK LIKE SLK-ANZPK,
VPOBJKEYALT LIKE VBPLK-VPOBJKEY,
SUM1 LIKE VBPLK-BRGEW,
SUM2 LIKE VBPLK-BRGEW,
SUM3 LIKE VBPLK-BRGEW,
ELEMENT(30),
END OF W.
DATA: W_SPED LIKE ADDR1_VAL.
DATA: G_TITLE_MEDI LIKE TSAD3T-TITLE_MEDI.
* FORM ENTRY *
* Called from the Output Controll program *
* --> RETURN_CODE Status *
* --> US_SCREEN *
FORM ENTRY USING RETURN_CODE LIKE SY-SUBRC "#EC CALLED
US_SCREEN TYPE C. "#EC CALLED
RETURN_CODE = 1.
PERFORM DATA_INIT USING US_SCREEN.
PERFORM GET_DATA.
CHECK RETCODE EQ 0.
PERFORM OPEN_FORM USING US_SCREEN.
CHECK RETCODE EQ 0.
LOOP AT G_T_KUNWE.
* IF SY-TABIX EQ 1.
PERFORM PRINT_DOCUMENT.
CHECK RETCODE EQ 0.
* ELSE.
* PERFORM START_FORM.
* CHECK RETCODE EQ 0.
* PERFORM PRINT_DOCUMENT.
* CHECK RETCODE EQ 0.
* PERFORM END_FORM.
* CHECK RETCODE EQ 0.
* ENDIF.
ENDLOOP.
PERFORM CLOSE_FORM.
CHECK RETCODE EQ 0.
RETURN_CODE = 0.
ENDFORM.
* FORM data_init *
FORM DATA_INIT USING VALUE(US_SCREEN) TYPE C.
XSCREEN = US_SCREEN.
CLEAR:
RETCODE,
THERE_WAS_OUTPUT,
NEW_PAGE_WAS_ORDERED.
ENDFORM.
* FORM GET_DATA *
FORM GET_DATA.
DATA LANGUAGE LIKE NAST-SPRAS.
DATA SHIPMENT_NUMBER LIKE VTTK-TKNUM.
LANGUAGE = NAST-SPRAS.
SHIPMENT_NUMBER = NAST-OBJKY.
CALL FUNCTION 'RV_SHIPMENT_PRINT_VIEW'
EXPORTING
SHIPMENT_NUMBER = SHIPMENT_NUMBER
OPTION_TVTK = 'X' "Shipmenttype J/N
OPTION_TTDS = 'X' "Disposition J/N
LANGUAGE = LANGUAGE
OPTION_ITEMS = 'X' "Transport Items J/N
OPTION_SEGMENTS = 'X' "Transport Segments J/N
OPTION_PARTNERS = 'X' "Partners J/N
OPTION_SALES_ORDERS = 'X' "Sales orders J/N
OPTION_EXPORT_DATA = 'X' "Export data J/N
OPTION_PACKAGES = 'X' "Packages J/N
OPTION_FLOW = ' ' "Flow J/N
OPTION_NO_REFRESH = ' ' "Refresh Tables J/N
IMPORTING
F_VTTKVB = VTTKVB "Shipment Header
F_TVTK = TVTK "Shipmenttype
F_TVTKT = TVTKT "Description Shipmenttype
F_TTDS = TTDS "Disposition
F_TTDST = TTDST "Description Disposition
F_VBPLA = VBPLA "Packages
TABLES
F_VTTP = XVTTP "Shipment Items
F_TRLK = SLK "Delivery
F_TRLP = SLP "Delivery Item
F_VTTS = XVTTS "Shipment Segments
F_VTSP = XVTSP "Segments/Items
F_VBPA = XVBPA "Partner
F_VBADR = XVBADR "Address
F_VTFA = XVTFA "Flow
F_VBPLK = XVBPLK "Shipment Unit Header
F_VBPLP = XVBPLP "Shipment Unit
F_VBPLS = XVBPLS "Shipment Unit Sum
EXCEPTIONS
NOT_FOUND = 1.
IF SY-SUBRC NE 0.
SYST-MSGID = 'VW'.
SYST-MSGNO = '010'.
SYST-MSGTY = 'E'.
SYST-MSGV1 = DBVTTK-TKNUM.
SYST-MSGV2 = SY-SUBRC.
RETCODE = 1.
PERFORM PROTOCOL_UPDATE.
ENDIF.
CHECK RETCODE EQ 0.
* SORT SEGMENTS BY CORRECT ORDER (I.E. TSRFO)
SORT XVTTS BY TSRFO.
* CONVERT UNITS IN DELIVERIES AND DELIVERY-ITEMS
* TO BE CONFORM TO VTTK-UNITS:
LOOP AT SLK.
* 001 vsm1kor 09.08.07 - sn OPL 1815
G_T_KUNWE-KUNWE = SLK-KUNWE.
G_T_KUNWE-TDNAME = SLK-TDNAME.
APPEND G_T_KUNWE.
* 001 vsm1kor 09.08.07 - en OPL 1815
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
EXPORTING
INPUT = SLK-BTGEW
UNIT_IN = SLK-GEWEI
UNIT_OUT = VTTKVB-DTMEG
IMPORTING
OUTPUT = SLK-BTGEW.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
EXPORTING
INPUT = SLK-NTGEW
UNIT_IN = SLK-GEWEI
UNIT_OUT = VTTKVB-DTMEG
IMPORTING
OUTPUT = SLK-NTGEW.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
EXPORTING
INPUT = SLK-VOLUM
UNIT_IN = SLK-VOLEH
UNIT_OUT = VTTKVB-DTMEV
IMPORTING
OUTPUT = SLK-VOLUM.
SLK-GEWEI = VTTKVB-DTMEG.
SLK-VOLEH = VTTKVB-DTMEV.
MODIFY SLK.
ADD SLK-NETWR TO TB_NETWR.
ENDLOOP.
* 001 vsm1kor 09.08.07 - sn OPL 1815
IF NOT G_T_KUNWE[] IS INITIAL.
SORT G_T_KUNWE.
DELETE ADJACENT DUPLICATES FROM G_T_KUNWE COMPARING KUNWE.
ENDIF.
* 001 vsm1kor 09.08.07 - en OPL 1815
LOOP AT SLP.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
EXPORTING
INPUT = SLP-BRGEW
UNIT_IN = SLP-GEWEI
UNIT_OUT = VTTKVB-DTMEG
IMPORTING
OUTPUT = SLP-BRGEW.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
EXPORTING
INPUT = SLP-NTGEW
UNIT_IN = SLP-GEWEI
UNIT_OUT = VTTKVB-DTMEG
IMPORTING
OUTPUT = SLP-NTGEW.
SLP-GEWEI = VTTKVB-DTMEG.
MODIFY SLP.
ENDLOOP.
PERFORM GET_ERFASSER.
LOOP AT XVBPLK.
"SELECT SINGLE * FROM z00_sd_vstel_dru WHERE vstel = xvbplk-vstel.
"IF sy-subrc = 0 AND NOT z00_sd_vstel_dru-vstel_d IS INITIAL.
" it_vstel-vstel = z00_sd_vstel_dru-vstel_d.
"ELSE.
IT_VSTEL-VSTEL = XVBPLK-VSTEL.
"ENDIF.
XVBPLK-VSTEL = IT_VSTEL-VSTEL.
MODIFY XVBPLK.
COLLECT IT_VSTEL.
ENDLOOP.
SORT IT_VSTEL BY VSTEL.
TB_TDNAME = VTTKVB-TKNUM.
PERFORM ERMITTELN_SPED_ADRESSE.
SELECT SINGLE * FROM TVKO INTO TVKO
WHERE VKORG = SLK-VKORG.
CLEAR: T001W.
SELECT SINGLE * FROM T001W WHERE WERKS = SLK-WERKS.
CLEAR: T001.
SELECT SINGLE * FROM T001 WHERE BUKRS = TTDS-BUKRS.
* Ermitteln Text Ausfuhrkontrollmeldung
CLEAR: T005, TB_KZVST.
SELECT SINGLE * FROM T005 WHERE LAND1 = SLK-LAND1.
IF SY-SUBRC = 0 AND T005-XEGLD = ''.
TB_KZVST = 'X'.
ENDIF.
ENDFORM.
* FORM PRINT_DOCUMENT *
FORM PRINT_DOCUMENT.
* Ermitteln und ausgeben der Beladstelle
PERFORM AUSGEBEN_BELADESTELLE.
* Ausgeben der Empfaenger und Kundenadresse
PERFORM AUSGEBEN_EMPF_KUNDE.
* Ausgeben Rechnungsempfänger
PERFORM AUSGEBEN_RE.
* Ausgeben der Verpackungsdaten
PERFORM AUSGEBEN_VERPACKUNG.
* Ausgeben der Versandbedigungen
PERFORM AUSGEBEN_VERSANDBEDINGUNG.
* Ausgeben des Versendervermerks
PERFORM AUSGEBEN_VERSENDERVERMERK.
* Ausgeben der Ausfuhrkontrollmeldung
W-ELEMENT = 'AUSFUHRKONTROLLMELDUNG'.
PERFORM WRITE_ELEMENT.
* Ausgeben der Anlagen
W-ELEMENT = 'ANLAGEN'.
PERFORM WRITE_ELEMENT.
* Ausgeben des Uebernahmetextes
IF TTDS-BUKRS EQ '1060'.
W-ELEMENT = 'UEBERNAHMETEXT'.
PERFORM WRITE_ELEMENT.
ENDIF.
* Ausgeben Luftfrachterklärung I1.2
IF VTTKVB-VSART = '05' "Luftfracht
OR VTTKVB-VSART = '17'. "Luftfrachtsammelverkehr
W-ELEMENT = 'LUFTFRACHTERKL'.
PERFORM WRITE_ELEMENT.
ENDIF.
* Ausgeben Kopftext
W-ELEMENT = 'TEXT'.
PERFORM WRITE_ELEMENT.
ENDFORM.
* FORM OPEN_FORM *
* --> VALUE(US_SCREEN) Output on screen *
* ' ' = printer *
* 'X' = screen *
FORM OPEN_FORM USING VALUE(US_SCREEN) TYPE C.
DATA US_COUNTRY LIKE T005-LAND1.
PERFORM GET_SENDER_COUNTRY USING US_COUNTRY.
CHECK RETCODE EQ 0.
INCLUDE RVADOPFO.
ENDFORM.
* FORM Get_Sender_Country
* Determines the country of the transport-disposition-unit *
FORM GET_SENDER_COUNTRY USING SENDER_COUNTRY LIKE T005-LAND1.
* data:
* l_addr1_sel like addr1_sel.
DATA: L_VBADR LIKE VBADR.
DATA: L_VBPA LIKE VBPA.
LOOP AT XVBPA WHERE VBELN = NAST-OBJKY AND
PARVW = NAST-PARVW.
SENDER_COUNTRY = XVBPA-LAND1.
EXIT.
ENDLOOP.
IF SY-SUBRC IS INITIAL AND SENDER_COUNTRY IS INITIAL.
L_VBPA = XVBPA.
CALL FUNCTION 'VIEW_VBADR'
EXPORTING
INPUT = L_VBPA
PARTNERNUMMER = NAST-PARNR
IMPORTING
ADRESSE = L_VBADR.
SENDER_COUNTRY = L_VBADR-LAND1.
ENDIF.
ENDFORM.
* FORM CLOSE_FORM *
FORM CLOSE_FORM.
CALL FUNCTION 'CLOSE_FORM'
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC NE 0.
RETCODE = SY-SUBRC.
PERFORM PROTOCOL_UPDATE.
ENDIF.
SET COUNTRY SPACE.
ENDFORM.
* FORM PROTOCOL_UPDATE *
* The messages are collected for the processing protocol. *
FORM PROTOCOL_UPDATE.
IF XSCREEN = SPACE.
CALL FUNCTION 'NAST_PROTOCOL_UPDATE'
EXPORTING
MSG_ARBGB = SYST-MSGID
MSG_NR = SYST-MSGNO
MSG_TY = SYST-MSGTY
MSG_V1 = SYST-MSGV1
MSG_V2 = SYST-MSGV2
MSG_V3 = SYST-MSGV3
MSG_V4 = SYST-MSGV4.
ELSE.
MESSAGE ID SYST-MSGID TYPE 'I' NUMBER SYST-MSGNO
WITH SYST-MSGV1 SYST-MSGV2 SYST-MSGV3 SYST-MSGV4.
ENDIF.
ENDFORM.
* FORM get_erfasser *
FORM GET_ERFASSER.
* Lesen der Adressnummer zum Benutzer
SELECT SINGLE * FROM USR21 WHERE BNAME = VTTKVB-ERNAM.
IF SY-SUBRC <> 0.
SELECT * FROM ADR7 WHERE UNAME = VTTKVB-ERNAM
AND DATE_FROM <= SY-DATUM
ORDER BY CONSNUMBER DESCENDING.
EXIT.
ENDSELECT.
CHECK SY-SUBRC = 0.
USR21-BNAME = ADR7-UNAME.
USR21-PERSNUMBER = ADR7-PERSNUMBER.
USR21-ADDRNUMBER = ADR7-ADDRNUMBER.
ENDIF.
* Lesen allgemeine Adressedaten Benutzer
SELECT * FROM ADRP WHERE PERSNUMBER = USR21-PERSNUMBER
AND DATE_FROM <= SY-DATUM
ORDER BY DATE_FROM DESCENDING.
EXIT.
ENDSELECT.
CHECK SY-SUBRC = 0.
* Lesen weiter Adressdaten Benutzer
SELECT * FROM ADCP WHERE PERSNUMBER = USR21-PERSNUMBER
AND DATE_FROM <= SY-DATUM
AND COMP_PERS = 'C'
ORDER BY DATE_FROM DESCENDING.
EXIT.
ENDSELECT.
CHECK SY-SUBRC = 0.
* Lesen Email-Adresse
SELECT * FROM ADR6 WHERE ADDRNUMBER = USR21-ADDRNUMBER
AND PERSNUMBER = USR21-PERSNUMBER
AND DATE_FROM <= SY-DATUM
ORDER BY DATE_FROM DESCENDING.
EXIT.
ENDSELECT.
ENDFORM. " GET_ERFASSER
*& Form AUSGEBEN_BELADESTELLE
FORM AUSGEBEN_BELADESTELLE.
FIELD-SYMBOLS: <F>.
DATA: TB_FIELD(20).
CLEAR: TB_VSTEL1, TB_VSTEL2, TB_VSTEL3,
TB_ADRC1, TB_ADRC2, TB_ADRC3.
LOOP AT IT_VSTEL.
IF SY-TABIX > 3.
EXIT.
ENDIF.
TB_FIELD = 'TB_VSTEL'.
TB_FIELD+8(1) = SY-TABIX.
ASSIGN (TB_FIELD) TO <F>.
<F> = IT_VSTEL-VSTEL.
SELECT SINGLE * FROM TVST WHERE VSTEL = IT_VSTEL-VSTEL.
CHECK SY-SUBRC = 0.
TB_FIELD = 'TB_ADRC'.
TB_FIELD+7(1) = SY-TABIX.
ASSIGN (TB_FIELD) TO <F>.
SELECT * FROM ADRC INTO <F>
WHERE ADDRNUMBER = TVST-ADRNR
AND DATE_FROM <= SY-DATUM
AND DATE_TO >= SY-DATUM
ORDER BY DATE_FROM DESCENDING.
EXIT.
ENDSELECT.
ENDLOOP.
*>>> INS BO88WA2 Ansteuerung Ausgabeschacht
W-ELEMENT = 'SCHACHT_STEUERN'.
PERFORM WRITE_ELEMENT.
*<<< INS BO88WA2
SELECT SINGLE * FROM STXH
WHERE TDNAME = VTTKVB-TKNUM
AND TDOBJECT = 'VTTK'
AND TDID = 'CM13'.
IF SY-SUBRC = 0.
W-ELEMENT = 'BELADESTELLE1'.
ELSE.
W-ELEMENT = 'BELADESTELLE2'.
ENDIF.
PERFORM WRITE_ELEMENT.
ENDFORM. " AUSGEBEN_BELADESTELLE
*& Form ERMITTELN_SPED_ADRESSE
FORM ERMITTELN_SPED_ADRESSE.
CLEAR: LFA1, TB_KZSPD.
*> SELECT SINGLE * FROM lfa1 WHERE lifnr = vttkvb-tdlnr.
* Pruefen Spediteur-Adresse in Text
SELECT SINGLE * FROM STXH WHERE TDOBJECT = 'VTTK'
AND TDNAME = TB_TDNAME
AND TDID = '0003'
AND TDSPRAS = NAST-SPRAS.
IF SY-SUBRC = 0.
TB_KZSPD = 'X'.
EXIT.
ENDIF.
DATA:
ADDR_SEL LIKE ADDR1_SEL,
W_SADR LIKE SADR
SELECT SINGLE ADRNR FROM VTPA INTO ADDR_SEL-ADDRNUMBER
WHERE VBELN = VTTKVB-TKNUM
AND POSNR = SPACE
AND PARVW = 'SP'.
CHECK SY-SUBRC = 0.
CALL FUNCTION 'ADDR_GET'
EXPORTING
ADDRESS_SELECTION = ADDR_SEL
* ADDRESS_GROUP =
* READ_SADR_ONLY = ' '
* READ_TEXTS = ' '
IMPORTING
ADDRESS_VALUE = W_SPED
* ADDRESS_ADDITIONAL_INFO =
* RETURNCODE =
* ADDRESS_TEXT =
SADR = W_SADR
* TABLES
* ADDRESS_GROUPS =
* ERROR_TABLE =
* VERSIONS =
EXCEPTIONS
PARAMETER_ERROR = 1
ADDRESS_NOT_EXIST = 2
VERSION_NOT_EXIST = 3
INTERNAL_ERROR = 4
OTHERS = 5.
BREAK BO88WA2.
CLEAR G_TITLE_MEDI.
IF NOT W_SPED-TITLE IS INITIAL.
SELECT SINGLE TITLE_MEDI
INTO G_TITLE_MEDI
FROM TSAD3T
WHERE LANGU EQ NAST-SPRAS
AND TITLE EQ W_SPED-TITLE.
ENDIF.
ENDFORM. " ERMITTELN_SPED_ADRESSE
*& Form UMRECHNEN
FORM UMRECHNEN USING P_IWERT
P_OWERT
P_IMEIN LIKE T006-MSEHI
P_OMEIN LIKE T006-MSEHI.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
EXPORTING
INPUT = P_IWERT
UNIT_IN = P_IMEIN
UNIT_OUT = P_OMEIN
IMPORTING
OUTPUT = P_OWERT
EXCEPTIONS
CONVERSION_NOT_FOUND = 1
DIVISION_BY_ZERO = 2
INPUT_INVALID = 3
OUTPUT_INVALID = 4
OVERFLOW = 5
TYPE_INVALID = 6
UNITS_MISSING = 7
UNIT_IN_NOT_FOUND = 8
UNIT_OUT_NOT_FOUND = 9
OTHERS = 10.
ENDFORM. " UMRECHNEN
*& Form AUSGEBEN_EMPF_KUNDE
FORM AUSGEBEN_EMPF_KUNDE.
CLEAR: SLK.
* 001 vsm1kor 09.08.07 - sm " OPL 1815
* READ TABLE SLK INDEX 1.
READ TABLE SLK WITH KEY KUNWE = G_T_KUNWE-KUNWE.
* 001 vsm1kor 09.08.07 - em " OPL 1815
CLEAR: KNA1, TB_WETXT.
SELECT SINGLE * FROM KNA1 WHERE KUNNR = SLK-KUNWE.
SELECT SINGLE * FROM STXH WHERE TDOBJECT = 'VTTK'
AND TDNAME = VTTKVB-TKNUM
AND TDID = 'Z002'
AND TDSPRAS = NAST-SPRAS.
IF SY-SUBRC = 0.
TB_WETXT = 'X'.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ADRESSE_EMPF'.
"IF slk-adrnr_ag <> slk-adrnr_we.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ADRESSE_KUNDE'.
"ENDIF.
ENDFORM. " AUSGEBEN_EMPF_KUNDE
*& Form AUSGEBEN_VERPACKUNG
FORM AUSGEBEN_VERPACKUNG.
DATA:
WA_ITAB_LAST TYPE ITAB.
PERFORM GET_BFART_TEXT. "BT82FE
W-ELEMENT = 'ITEM_HEADER'.
PERFORM WRITE_ELEMENT.
BREAK BO88WA2.
LOOP AT XVBPLK. "Übetr. relevantes wegen Sortierfolge "BT82FE
IF XVBPLK-UEVEL IS INITIAL.
MOVE-CORRESPONDING XVBPLK TO ITAB.
* 001 vsm1kor 09.08.07 - sn OPL 1815
READ TABLE XVTTP WITH KEY VBELN = XVBPLK-VPOBJKEY.
IF SY-SUBRC EQ 0.
ITAB-KUNWE = XVTTP-KUNWE.
ENDIF.
* 001 vsm1kor 09.08.07 - en OPL 1815
APPEND ITAB.
ENDIF.
ENDLOOP.
SORT ITAB BY VPOBJKEY KUNWE BRGEW LAENG BREIT HOEHE MEABM.
* 001 vsm1kor 09.08.07 - en OPL 1815
DELETE ITAB WHERE KUNWE NE G_T_KUNWE-KUNWE.
* 001 vsm1kor 09.08.07 - en OPL 1815
* SORT itab by vhilm laeng breit hoehe meabm brgew .
CLEAR W.
CLEAR: TB_COLLI.
LOOP AT ITAB.
W-ITAB = ITAB.
AT NEW VPOBJKEY. "Anzahl Packungen holen "BT82FE
PERFORM GET_ANZPACK.
ENDAT. "BT82FE
**--- AT NEW BO88WA2
* if wa_itab_last-vhilm ne itab-vhilm or
* wa_itab_last-laeng ne itab-laeng or
* wa_itab_last-breit ne itab-breit or
* wa_itab_last-hoehe ne itab-hoehe or
* wa_itab_last-brgew ne itab-brgew.
* perform get_anzpack.
* endif.
PERFORM PRUEFEN_PACKELEMENT.
CHECK SY-SUBRC = 0.
PERFORM GET_MATTEXT_UND_UMRECHNEN.
ADD ITAB-BRGEW TO W-SUM1.
ADD ITAB-BRGEW TO W-SUM2.
ADD ITAB-BRGEW TO W-SUM3.
* AT END OF brgew.
AT END OF MEABM.
TB_SAVE-GEWEI = ITAB-GEWEI.
W-ELEMENT = 'ITEM_LINE'.
PERFORM WRITE_ELEMENT.
CLEAR: W-SUM1, W-SUM2.
ENDAT.
AT END OF VPOBJKEY.
W-ELEMENT = 'LS_SUM'.
PERFORM WRITE_ELEMENT.
CLEAR:W-SUM1, W-SUM2.
ENDAT.
**--- Nächstes Record lesen
* ADD 1 TO l_index.
* READ TABLE l_t_verpdat INTO l_r_verpdat_next INDEX l_index.
* IF sy-subrc NE 0 OR
AT LAST.
W-ELEMENT = 'ITEM_SUM'.
PERFORM WRITE_ELEMENT.
ENDAT.
ENDLOOP.
REFRESH ITAB.
ENDFORM. " AUSGEBEN_VERPACKUNG
*& Form AUSGEBEN_VERSANDBEDINGUNG
FORM AUSGEBEN_VERSANDBEDINGUNG.
"TABLES: z00_sd_slvs.
* Ermitteln Versandbedingung
CLEAR: T173T.
IF VTTKVB-VSART IS INITIAL.
IF VTTKVB-VSART IS INITIAL AND NOT VTTKVB-ROUTE IS INITIAL.
SELECT SINGLE * FROM TVRO WHERE ROUTE = VTTKVB-ROUTE.
CHECK SY-SUBRC = 0.
SELECT SINGLE * FROM T173T WHERE SPRAS = NAST-SPRAS
AND VSART = TVRO-VSART.
ELSE.
SELECT SINGLE * FROM T173T WHERE SPRAS = NAST-SPRAS
AND VSART = VTTKVB-VSART.
ENDIF.
ELSE.
SELECT SINGLE * FROM T173T WHERE SPRAS = NAST-SPRAS
AND VSART = VTTKVB-VSART.
ENDIF.
* Ermitteln Versicherungstext abhaengig von Incoterm
CLEAR: Z48V_INCOTEXT.
SELECT SINGLE * FROM Z48V_INCOTEXT WHERE INCO1 = SLK-INCO1.
* Ermitteln Versicherungswert
* CLEAR: z00_sd_slvs.
* SELECT * FROM z00_sd_slvs WHERE vswrt > tb_netwr
* ORDER BY vswrt ASCENDING.
* EXIT.
* ENDSELECT.
* IF sy-subrc = 0.
* tb_netwr = z00_sd_slvs-vswrt.
* ENDIF.
W-ELEMENT = 'VERSAND'.
PERFORM WRITE_ELEMENT.
ENDFORM. " AUSGEBEN_VERSANDBEDINGUNG
*& Form AUSGEBEN_VERSENDERVERMERK
FORM AUSGEBEN_VERSENDERVERMERK.
IF SLK-LAND1_WE <> 'DE'.
W-ELEMENT = 'VERSENDERVERMERK'.
PERFORM WRITE_ELEMENT.
ENDIF.
ENDFORM. " AUSGEBEN_VERSENDERVERMERK
*& Form AUSGEBEN_RE
FORM AUSGEBEN_RE.
SELECT SINGLE * FROM VBPA WHERE VBELN = SLK-VBELN
AND POSNR = '000000'
AND PARVW = 'RE'.
IF SY-SUBRC = 0.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ADRESSE_RE'.
ENDIF.
ENDFORM. " AUSGEBEN_RE
FORM GET_MATTEXT_UND_UMRECHNEN.
SELECT SINGLE * FROM MAKT WHERE MATNR = W-ITAB-VHILM
AND SPRAS = SY-LANGU.
PERFORM UMRECHNEN USING W-ITAB-BRGEW W-ITAB-BRGEW
W-ITAB-GEWEI_MAX 'KG'.
PERFORM UMRECHNEN USING W-ITAB-LAENG W-ITAB-LAENG
W-ITAB-MEABM 'CM'.
WRITE W-ITAB-LAENG TO TB_LAENG LEFT-JUSTIFIED DECIMALS 0.
PERFORM UMRECHNEN USING W-ITAB-BREIT W-ITAB-BREIT
W-ITAB-MEABM 'CM'.
WRITE W-ITAB-BREIT TO TB_BREIT LEFT-JUSTIFIED DECIMALS 0.
PERFORM UMRECHNEN USING W-ITAB-HOEHE W-ITAB-HOEHE
W-ITAB-MEABM 'CM'.
WRITE W-ITAB-HOEHE TO TB_HOEHE LEFT-JUSTIFIED DECIMALS 0.
SELECT SINGLE * FROM T006A WHERE SPRAS = NAST-SPRAS
AND MSEHI = W-ITAB-GEWEI_MAX.
IF SY-SUBRC <> 0.
T006A-MSEH6 = W-ITAB-GEWEI_MAX.
ENDIF.
CONCATENATE TB_LAENG TB_BREIT TB_HOEHE
INTO TB_ABMES SEPARATED BY 'x'.
IF W-ITAB-VEBEZ CA ' '.
IF SY-FDPOS <> 0.
W-ITAB-VEBEZ = W-ITAB-VEBEZ(SY-FDPOS).
ENDIF.
ENDIF.
READ TABLE IT_VSTEL WITH KEY VSTEL = W-ITAB-VSTEL.
ENDFORM.
FORM GET_ANZPACK.
READ TABLE SLK WITH KEY VBELN = W-ITAB-VPOBJKEY. "BT82FE
CHECK SY-SUBRC = 0. "BT82FE
ADD SLK-ANZPK TO TB_COLLI. "BT82FE
W-LSANZPK = SLK-ANZPK. "BT82FE
W-LSNUM = W-ITAB-VPOBJKEY+4(8). "BT82FE
ENDFORM.
*& Form PRUEFEN_PACKELEMENT
FORM PRUEFEN_PACKELEMENT.
TABLES: VBFA.
SELECT * FROM VBFA WHERE VBELV = W-ITAB-VPOBJKEY
AND VBELN = W-ITAB-VENUM
AND VBTYP_N = 'X'.
EXIT.
ENDSELECT.
ENDFORM. " PRUEFEN_PACKELEMENT
FORM WRITE_ELEMENT.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = W-ELEMENT
EXCEPTIONS
ELEMENT = 1
FUNCTION = 2
TYPE = 3
UNOPENED = 4
UNSTARTED = 5
WINDOW = 6
BAD_PAGEFORMAT_FOR_PRINT = 7
OTHERS = 8.
ENDFORM.
FORM GET_BFART_TEXT. "BT82FE
CALL FUNCTION 'SD_SHIPMENT_HEADER_DESCRIPTION'
EXPORTING
I_XVTTK = VTTKVB
* i_adrnr = vttk-adrnr
CHANGING
C_TXT_SHIPMENT_TYPE = TVTKT-BEZEI
C_TXT_PROCESSING_TYPE = RV56A-TXT_ABFER
C_TXT_PROCESS_CONTROL = RV56A-TXT_ABWST
C_TXT_SERVICE_LEVEL = RV56A-TXT_BFART.
* C_TXT_SHIPPING_TYPE = RV56A-TXT_VSART
* C_TXT_SHIP_TYP_PREL = RV56A-TXT_VSAVL
* C_TXT_SHIP_TYP_SUBS = RV56A-TXT_VSANL
* C_TXT_LEG_INDICATOR = RV56A-TXT_LAUFK
* C_TXT_SHIPPING_COND = RV56A-TXT_VSBED
* C_TXT_ROUTE = VTTKD-TXROU
* C_TXT_CARRIER = VTTKD-TXDIL
* C_TXT_OVERALL_STATUS = RV56A-TXT_STTRG
* C_ICON_OVERALL_STATUS = RV56A-TRG_AMPEL
* C_TXT_FREIGHT_COST_RELEVANCE = VTTK_TXT-FRKRL_TXT
* C_TXT_FREIGHT_CALC_STATUS = VTTK_TXT-FBSTA_TXT
* C_TXT_FREIGHT_SETT_STATUS = VTTK_TXT-ARSTA_TXT
* C_TXT_OVRL_FREIGHT_CALC_STATUS = VTTK_TXT-FBGST_TXT
* C_TXT_OVRL_FREIGHT_SETT_STATUS = VTTK_TXT-ARGST_TXT
* C_TXT_SPECIAL_PROCESSING = VTTK_TXT-SDABW_TXT
* C_TXT_PRICING_PROCEDURE = VTTK_TXT-KKALSM_TXT
* C_TXT_STATUS_PLANNED = RV56A-TXT_STDIS
* C_TXT_STATUS_REGISTRATED = RV56A-TXT_STREG
* C_TXT_STATUS_LOAD_START = RV56A-TXT_STLBG
* C_TXT_STATUS_LOAD_END = RV56A-TXT_STLAD
* C_TXT_STATUS_PROCESSING = RV56A-TXT_STABF
* C_TXT_STATUS_SHIPM_START = RV56A-TXT_STTBG
* C_TXT_STATUS_SHIPM_END = RV56A-TXT_STTEN
* C_ROUTID = VTTK_TXT-ROUTID
* C_TXT_LEG_DET_TYPE = RV56A-TXT_STERM
* C_TXT_ROUTE_STAGES = RV56A-TXT_ROTSTA
* C_TXT_ADD_INFO_1 = VTADD01T-BEZEI
* C_TXT_ADD_INFO_2 = VTADD02T-BEZEI
* C_TXT_ADD_INFO_3 = VTADD03T-BEZEI
* C_TXT_ADD_INFO_4 = VTADD04T-BEZEI.
ENDFORM.
*& Form START_FORM
* text
* --> p1 text
* <-- p2 text
FORM START_FORM.
CALL FUNCTION 'START_FORM'
* EXPORTING
* ARCHIVE_INDEX =
* FORM = ' '
* LANGUAGE = ' '
* STARTPAGE = ' '
* PROGRAM = ' '
* MAIL_APPL_OBJECT =
* IMPORTING
* LANGUAGE =
* EXCEPTIONS
* FORM = 1
* FORMAT = 2
* UNENDED = 3
* UNOPENED = 4
* UNUSED = 5
* SPOOL_ERROR = 6
* OTHERS = 7
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. " START_FORM
*& Form END_FORM
* text
* --> p1 text
* <-- p2 text
FORM END_FORM.
CALL FUNCTION 'END_FORM'
* IMPORTING
* RESULT =
* EXCEPTIONS
* UNOPENED = 1
* BAD_PAGEFORMAT_FOR_PRINT = 2
* SPOOL_ERROR = 3
* OTHERS = 4
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. " END_FORM
Regards,
Vasanth
Message was edited by:
Vasanth M -
Export complete "Most Popular Items" report
I need to take snapshots of the Most Popular Items (views) report for a pages library so we can analyze the data to get weekly/monthly/yearly visit trends/data for each page within the library. Our typical pages library (being used as KB's) contains 200+
pages (in one instance, over 1,000) so exporting & combining the data for each individual page every week is just not an option. What I'm looking for is a way to export the "Most Popular Items" (accessed via Library tab > Most Popular Items)
to an Excel spreadsheet without having to manually copy/paste/clean up each page of data. Has anyone found a way (programmatically or otherwise) to accomplish this?
Is it possible to modify the "topreport.aspx" page to include an 'Export to Excel' type function? Or at the least, is it possible to customize the layout of that page to be more Excel-friendly (for example: show all results on 1 page or make each
entry appear as a single row)? Is this data able to be captured through PerformancePoint?
Any help/guidance will be greatly appreciated!
Thank You!
- KyleHi Kyle,
Per my understanding, you might want to export the Most Popular Items related data to an Excel report in a specific format.
As there is no OOTB feature can meet your requirement, custom code would be required.
In Microsoft.Office.Server.Search.Analytics namespace, there is a method “UsageAnalytics.GetAnalyticsItemData”
which can help to “Retrieves aggregated usage data for a specified item for a specified event type”.
A demo about how to identify view count for each item in a Pages library for your reference:
http://www.sharepointpals.com/post/Step-by-steps-on-how-to-display-Most-Visited-Sites-with-number-of-view-count-in-SharePoint-2013-Web-Analytics#sthash.ETDAKw1Y.dpuf
About creating Excel file with data programmatically, the links below would be helpful:
https://msdn.microsoft.com/en-us/library/ms173186(v=vs.80).aspx
http://www.codeproject.com/Articles/20228/Using-C-to-Create-an-Excel-Document
Thanks
Patrick Liang
Forum Support
Please remember to mark the replies as answers if they help and unmark them if they provide no help. If you have feedback for TechNet Subscriber Support,
contact [email protected]
Patrick Liang
TechNet Community Support
Maybe you are looking for
-
How to find out the idoc type required for our requirement
Hi, How to find out the list of available idoc type in SAP. It will be good if i get to know the table name where all the idoc type definitions are gets stored. Say i have some requirement and for that requirement how i can find the proper idoc
-
Snow Leopard does not remember screen position with dual monitor
Hello, I have an external monitor, which I like to be on top of my Macbook Pro monitor. In the monitor preference pane, I can set the monitor disposition such that my external monitor (main monitor) appears on top of my laptop (secondary monitor). Ho
-
New (iMac) Apple keyboard - don't hurry to replace it
I've been a fan of "clicky" keyboards since my first computer, an IBM PS/2 from a long time ago in a galaxy far away. When Matias sold the first "Tactile Pro" keyboard ( http://matias.ca/tactilepro/index.php ), I quickly purchased one for my old iMac
-
HT1665 Can iPad be connected to TV screen
I have a mini ipad is there a accessory you can use to connect to tv screen thanks !
-
HT5492 How do I enable Books in the list of Controls?
I can't even select Books .. It's disabled. It's the only option in the list I can't change. Every other one is enabled. How do I enable Books to change it?