ABAP code needed to convert from 0calmonth2 & 0calyear to 0calmonth
Hi SAP GURUS,
Can anybody give me the ABAP code to convert from 0calmonth2 and 0calyear to 0calmonth.and please suggest me whether i have to write start routine or end routine in transformations.
Thanks ALL.
hi,
in the transformation map 0calmonth2 and 0calyear to the 0calmonth field, and from drop down choose routine.
there will be an area where it will be mentioned write your piece of code below this line.
paste the below code:
Concatenate source_fields-0calmonth2 source_fields-0calyear into result.
also delete the line result = .
save the routine and execute the package.
regards,
Arvind.
Similar Messages
-
Here i need to convert from EA to CS.
Hi Dear friends,
iam having one requirement. that is conversion.
here is need to convert from EA to CS, for that one iam using FM: conversion_factor_get
But this is not converting and when i run program it was showing the error is "conversion of dimensionless units is possible".
Here i need to convert from EA to CS.
this is Eg:
DATA : LV_SS TYPE F,
LV_DEC(100) TYPE N,
LV_NUM(100) TYPE N.
call function 'CONVERSION_FACTOR_GET'
EXPORTING
NO_TYPE_CHECK = ' '
UNIT_IN = 'EA'
UNIT_OUT = 'CS'
IMPORTING
ADD_CONST = LV_SS
DECIMALS = LV_DECI
DENOMINATOR = LV_DEC
DIMENSION =
NUMERATOR = LV_NUM
EXCEPTIONS
CONVERSION_NOT_FOUND = 1
OVERFLOW = 2
TYPE_INVALID = 3
UNITS_MISSING = 4
UNIT_IN_NOT_FOUND = 5
UNIT_OUT_NOT_FOUND = 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.
write : lv_ss, lv_dec, lv_num.Hi
first ensure that the both values CS and EA exist in the table T006
then only the conversion of the units is possible using the fun module
'CONVERSION_FACTOR_GET'
Since the unit CS is not available in T006 table it is not working
This fun module in turn uses the table data T006 for the conversion of units
Regards
Anji -
To write ABAP code to retrieve data from RSTMANPART table
hello everyone...
Actually, i need help to write a ABAP code....
i need to record the number of data records which is transferred and added to 3 cubes... i need to read the latest request number from the RSSTATMANPART table, for the 3 datatargets, and gather the transferred records, added records , start time n end time from that specific req num....
And i have to store it in an internal table....
Please help me with the same.....
Thanks....
Edited by: neethacj on Dec 2, 2010 10:27 AMDear Neetha,
The table name is RSSTATMANPART.
Now the relevant fields are
DTA(Data Target)
DTA_TYPE(Data Target Type = Cube)
RNR (Request ID)
STATUS(Data Load Status )
TSTATUS(Technical Status)
DATUM_ANF(Request date)
DATUM_VERB(Loaded Date)
ZEIT_ANF(Start Time)
ZEIT_VERB(Finishing Time)-->just do one load and compare the entries with Process monitor
OLTPSOURCE(Datasource).
ANZ_RECS(Transferred Records)
INSERT_RECS(Inserted Records)
*Create an Internal Table :
DATA: IT_MANPART1 TYPE TABLE OF RSSTATMANPART,
IT_MANPART2 TYPE TABLE OF RSSTATMANPART,
IT_MANPART3 TYPE TABLE OF RSSTATMANPART,
WA_MANPART LIKE LINE OF IT_MANPART1.
*Fill the internal table
SELECT * FROM RSSTATMANPART INTO TABLE IT_MANPART1 WHERE
DTA = 'CUBE1'.
SELECT * FROM RSSTATMANPART INTO TABLE IT_MANPART2 WHERE
DTA = 'CUBE1'.
SELECT * FROM RSSTATMANPART INTO TABLE IT_MANPART3 WHERE
DTA = 'CUBE1'.
SORT IT_RSSTATMANPART1 BY RNR DESCENDING.
SORT IT_RSSTATMANPART1 BY RNR DESCENDING.
SORT IT_RSSTATMANPART1 BY RNR DESCENDING.
It will fill up your Internal table with all the requests of the RSSTATMANPART for the three Infocubes.The requests have been sorted in descending order ,the most latest will be at the top.
You can do whatever you want to do with these three internal tables..you can have them in one talbe also..depends on ur exact requirement.
Regards,
RK -
ABAP Code to Read Characteristic from Another DSO
Gurus and Experts,
Plain and simple, I need a piece of ABAP code that reads a characteristic value from a different DSO.
Here is the story. I have a data flow from DSO Delivery1 to DSO Delivery2. I need to write a code in the start routine of the transformation to read Sales_Doc_Type from DSO Sales1. The condition is, if Delivery1-Ref_Doc_Nr = Sales1-Sales_Nr then Delivery1-Sales_Doc_Type = Sales1_Sales_Doc_Type.
I am a beginner in SAP BI and know nothing about ABAP. But I do have experience in SQL and Java.
Any help or links or direction will be appriciated. Thanks in advance.
HerruHello,
I think there is a correction in your Ques. That there are two DSO Delivery1 and Sales1...... I Hope this is Ok.
Tables Required:---- Go To SE11 and *<DSO_NAME>00 You will get active table for your DSO. EG. /bic/Delivary100 and /bic/sales100
Logic In start Riutine:----
1. Define structure in Global Def. for Sales1 DSO.
2. Also Define Internal table in Global Def. (I hope you know the syntax)
3. now you will find that start writing code from below.
Inclue:------ Select Statement from Slaes1 DSO into itab for all entries in source package.
4. Loop source_package assigning <result_fields>.
read itab into wa where Sales1-Sales_Nr = <result_fields>-Ref_Doc_Nr.
<result_fields>-Sales_Doc_Type = wa-Sales1_Sales_Doc_Type.
endloop.
This logic will work..........
If still you are find it difficult then take some abaper help.
Regards,
Ankit. -
ABAP code needed to populate data in the fields............
Hi,
I have added 3 new fields to the datasource 0PROJETC_ATTR
fields names are : ZZPROFL , ZZPLFAZ and ZZPLSEZ
Can some body tell me the ABAP code to fill data in these 3 fields.
Thanks,
Jeetuhi Jeetu,
we need the logic,
but the code will something like following sample ...
Declaration for datasource 0MATERIAL_ATTR
DATA : BEGIN OF S_BIW_MARA_S.
INCLUDE STRUCTURE BIW_MARA_S.
DATA : END OF S_BIW_MARA_S.
*Here BIW_MARA_S corresponds to the structure of your datasource *0MATERIAL_ATTR
*then you have to declare a when with the datasource on which you want to *populate the appended new fields.
*for example :
WHEN '0MATERIAL_ATTR'.
*then do a loop across your strcuture
LOOP AT C_T_DATA INTO S_BIW_MARA_S.
*a select from the table
SELECT SINGLE * FROM MARA
WHERE MATNR = S_BIW_MARA_S-MATNR.
*a check to see if your select is ok
IF SY-SUBRC = 0.
*if it is ok then your field in your structure is corresponding to a field in the table
S_BIW_MARA_S-Z1 = MARA-Z1.
S_BIW_MARA_S-Z2 = MARA-Z2.
*the c_t_data will be updated from what you get in your structure.
MODIFY C_T_DATA FROM S_BIW_MARA_S.
ENDIF.
ENDLOOP.
hope this helps. -
ABAP code for Hierarchy Loading from Flat File
Hi,
Can anyone give me some idea / ABAP code for generating parent - child relationships (NODEIDS) from a flat file and load into BW.
Best regards
Any insight into this development is highly appreciatedHi,
also have a look at this how to to get informations about the file structure:
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/0403a990-0201-0010-38b3-e1fc442848cb
/manfred -
Need help converting from 4.0 to 2011
hello,
Need help converting files from 4.0 to 2011.
thank you
Solved!
Go to Solution.
Attachments:
noise source.vi 73 KB
8673D.vi 30 KB
8970 FREQ.vi 26 KBattached as 8.2, which you can open
missing some subVIs - not sure if you already have them
Attachments:
8673D.vi 13 KB
8970 FREQ.vi 11 KB
noise source.vi 24 KB -
Error in Abap code when combining data from two tables
Hi,
I got error in my code when i try to select data based on two tables
error message Unknown column name "(" field list. field list. field list. field list.
select ( WLK1~ARTNR )
into ZOXE1D0041-ZZPROMO
from WLK1 INNER JOIN T001W
ON WLK1FILIA = T001WKUNNR.
where WLK1-PFLKN NE 'P' AND
WLK1-QUELL NE '2'.
Table 1 WLK1
ARTNR FILIA PFLKN QUELL
001 C001 P 2
002 C001 A 1
Table 2 T001W
KUNNR WERKS
C001 P001
My requirement is to extract from article number from table WLK1 where the customer number (FILIA) matches with Customer number from (T001W) and plant (WERKS).
In conclusion I like to have this only this row
ARTNR FILIA PFLKN QUELL
002 C001 A 1Hi
You need to append every article number after each select is performed
is this an intermal table ZOXE1D0041 with header line ? if yes
then do this way
select WLK1~ARTNR
into ZZARTICLE
from WLK1 INNER JOIN T001W
ON WLK1FILIA = T001WKUNNR
where WLK1~PFLKN NE 'P' AND
WLK1~PFLKN NE 'S' AND
WLK1~QUELL NE '2'.
ZOXE1D0041-ZZLISTARTICLE = ZZARTICLE.
Append ZOXE1D0041. " <edited>
endselect.
then ZOXE1D0041 will have all article numbers.
Edited by: Sonal Patel on Sep 5, 2009 10:27 AM -
[AS] Beast of a script needs help converting from Quark 8 to InDesign CS5
First off, THANK YOU for even reading this post. Here's the dilema. I work in a publishing company that used an AppleScript from Quark 8 to automate our pagination from set text we pull from our sales reps worksheets. About 8 months ago we switched fully to InDesign CS5, but have had to hold onto Quark 8 to be able to keep running our pagination. I'd like to see if the geniuses (yes, I've been trolling these forums looking to solve this myself and seen some great problems fixed) on these forums can help me figure out the proper conversion I would need to be able to leave Quark 8 in the rearview.
Here's our current code... (I warned you it was a beast)
set Ad_Props to {¬
{Ad_Label:"SPREAD – ", Ad_Width:2.495, Ad_Height:1.62, Ad_Text_Angle:0}, ¬
{Ad_Label:"FULL – ", Ad_Width:1.225, Ad_Height:1.62, Ad_Text_Angle:0}, ¬
{Ad_Label:"SPREAD – ", Ad_Width:2.495, Ad_Height:1.62, Ad_Text_Angle:0}, ¬
{Ad_Label:"JUNIOR – ", Ad_Width:0.90625, Ad_Height:1.62, Ad_Text_Angle:0}, ¬
{Ad_Label:"1/2H – ", Ad_Width:1.225, Ad_Height:0.785, Ad_Text_Angle:0}, ¬
{Ad_Label:"1/2V – ", Ad_Width:0.5875, Ad_Height:1.62, Ad_Text_Angle:90}, ¬
{Ad_Label:"1/3V – ", Ad_Width:0.5875, Ad_Height:1.2025, Ad_Text_Angle:90}, ¬
{Ad_Label:"1/4 – ", Ad_Width:0.5875, Ad_Height:0.785, Ad_Text_Angle:0}, ¬
{Ad_Label:"1/4 Strip – ", Ad_Width:0.26875, Ad_Height:1.62, Ad_Text_Angle:90}, ¬
{Ad_Label:"1/8H – ", Ad_Width:0.5875, Ad_Height:0.3675, Ad_Text_Angle:0}, ¬
{Ad_Label:"1/8V – ", Ad_Width:0.26875, Ad_Height:0.785, Ad_Text_Angle:90}, ¬
{Ad_Label:"Junior (GOLF) – ", Ad_Width:0.8, Ad_Height:1.62, Ad_Text_Angle:0}, ¬
{Ad_Label:"1/3V (GOLF) – ", Ad_Width:0.375, Ad_Height:1.62, Ad_Text_Angle:90}, ¬
{Ad_Label:"1/3sq. (GOLF) – ", Ad_Width:0.8, Ad_Height:0.785, Ad_Text_Angle:0}, ¬
{Ad_Label:"1/6V (GOLF) – ", Ad_Width:0.375, Ad_Height:0.785, Ad_Text_Angle:90}, ¬
{Ad_Label:"Directory Listing Only – ", Ad_Width:0.3, Ad_Height:0.3, Ad_Text_Angle:0}, ¬
{Ad_Label:"INSERT (# in notes) – ", Ad_Width:0.3, Ad_Height:0.3, Ad_Text_Angle:0}, ¬
{Ad_Label:"Other (See Notes) – ", Ad_Width:0.3, Ad_Height:0.3, Ad_Text_Angle:0}, ¬
{Ad_Label:"------------ – ", Ad_Width:0.3, Ad_Height:0.3, Ad_Text_Angle:0}}
set Position_Width to number
set Position_Width to 11.375
set Position_Height to number
set Position_Height to 1.875
set Jump_Height to number
set Jump_Height to 0
set Variable_Count to number
set Variable_Count to 0
set Variable_Height to number
set Variable_Height to (1.875 + (1.62 * Variable_Count))
set Last_Ad to number
set Last_Ad to 0
tell application "QuarkXPress"
activate
try
display dialog "WARNING: This version of 'Dummy Square Maker' runs much slower than the last version, a confirmation will tell you when you are finished. Please be patient." & return & return & "Make sure to have the text box selected" buttons {"Cancel", "Accept"} default button 2 with icon caution
set ThisBox to object reference of current box
tell story 1 of ThisBox
set (every paragraph where it is return) to ""
set style sheet of every text to null
set style sheet of every text to "DUMMY TEXTS"
repeat with i from 1 to (count of paragraphs)
try
tell paragraph i
set ThePage to my get_CurrentPage()
try
if it contains " – " then
set style sheet to "AD SIZE"
set Ad_Size to contents
set {This_Width, This_Height, this_angle} to {"", "", ""}
repeat with This_Ad in Ad_Props
if Ad_Size contains (Ad_Label of This_Ad) then
set This_Width to Ad_Width of This_Ad
set This_Height to Ad_Height of This_Ad
set this_angle to Ad_Text_Angle of This_Ad
exit repeat
end if
end repeat
set Ad_Box to my Make_Box(ThePage, {1.875, 10.875, This_Height + 1.875, This_Width + 10.875}, this_angle)
duplicate contents to (end of Ad_Box)
else if it contains "—" then
set style sheet to "AD REP/PLACEMENT"
duplicate contents to (end of Ad_Box)
else if it starts with "©" then
set style sheet to "AD REP/PLACEMENT"
delete (character 1)
duplicate contents to end of Ad_Box
if Position_Width ≤ 19.75 then
set Jump_Height to Jump_Height + This_Height
(*_________________This is where Ad Boxes Stack_________________*)
if (Jump_Height ≤ 1.62) then
set origin of bounds of Ad_Box to {Position_Height, Position_Width}
set Position_Height to Position_Height + This_Height
(*_________________This is where Ad Boxes more right_________________*)
else
set Position_Height to Variable_Height
(*set Position_Width to Position_Width + This_Width + 0.05*)
set Position_Width to Position_Width + Last_Ad + 0.05
set origin of bounds of Ad_Box to {Position_Height, Position_Width}
set Jump_Height to This_Height
set Position_Height to Variable_Height + This_Height
end if
set Last_Ad to This_Width
(*_________________This is where New Row appears_________________*)
else
set Position_Width to 11.375
set Variable_Count to Variable_Count + 1
set Variable_Height to (1.875 + (1.62 * Variable_Count))
set Position_Height to Variable_Height
set origin of bounds of Ad_Box to {Position_Height, Position_Width}
set Position_Height to Position_Height + This_Height
set Jump_Height to This_Height
set Last_Ad to This_Width
end if
else
duplicate contents to (end of Ad_Box)
end if
end try
end tell
on error errmsg number errnum
display dialog "There has been an error " & "[" & i & "] (" & errmsg & " [" & errnum & "])" buttons {"Okay"} default button 1 with icon stop
end try
end repeat
delete contents
set style sheet of every text to null
end tell
beep 2
display dialog "Automation Finished" & return & return & "IMPORTANT NOTE: Color your Ad Squares according to Sales Rep, and select them all and 'BRING TO FRONT [F5]', this is VITAL." buttons {"Okay"} default button 1 with icon stop
on error errmsg number errnum
beep 3
if errnum ≠ -128 then
beep
display dialog errmsg & " [" & errnum & "]" buttons {"OK"} default button 1 with icon stop
end if
end try
end tell
on Make_Box(ThePage, TheBounds, this_angle)
local ThePage, TheBounds, this_angle
tell application "QuarkXPress"
tell page ThePage of document 1
set Ad_Box to make new text box at end with properties {bounds:TheBounds, vertical justification:centered, color:"Rep_Other", shade:100, opacity:10, text angle:this_angle, frame:{style:solid line, color:"Black", shade:60, width:0.1}}
end tell
end tell
(*end tell*)
return Ad_Box
end Make_Box
on get_CurrentPage()
tell application "QuarkXPress"
tell document 1
return page number of current page
end tell
end tell
end get_CurrentPageHi,
I think with this, you can already make good progress in your work.
Good luck!
global mydocument
tell application "Adobe InDesign CS5.5"
set mydocument to active document
tell mydocument
set myParaStyle to paragraph style "DUMMY TEXTS"
tell page 1
set TheBounds to {0, 0, 20, 50}
set Ad_Box to make text frame
tell Ad_Box
set geometric bounds to TheBounds
set vertical justification of text frame preferences to center align
set contents to "This is the contents"
end tell
set myStory to parent story of Ad_Box
set applied paragraph style of every paragraph of myStory to myParaStyle
end tell
end tell
end tell
Your two handlers then look like this:
on Make_Box(ThePage, TheBounds, this_angle)
local ThePage, TheBounds, this_angle
tell application "Adobe InDesign CS5.5"
tell page ThePage of mydocument
set Ad_Box to make text frame
tell Ad_Box
set geometric bounds to TheBounds
set vertical justification of text frame preferences to center align
end tell
end tell
end tell
return Ad_Box
end Make_Box
on get_CurrentPage(CurrentTextFrame)
tell application "Adobe InDesign CS5.5"
tell mydocument
return name of parent page of parent page of CurrentTextFrame
end tell
end tell
end get_CurrentPage
Shorter version:
on get_CurrentPage(CurrentTextFrame)
tell mydocument of application "Adobe InDesign CS5.5"
return name of parent page of parent page of CurrentTextFrame
end tell
end get_CurrentPage
Ce message a été modifié par: OlivierBerquin -
ABAP Code Changes During Upgrade from 4.7C to ECC6
Hi all,
I'm in process of collecting information for our next upgrade.
We are on 4.7C and are planning to upgrade to ECC6. We wanted to know what changes shall be required on ABAP side during this upgrade. e.g. certain ABAP commands which are obselete, few tables , few fucntional modules being obselete.
Any specific functional areas/transcation codes being obselete which in turn would make Uer Exit redudant etc.....
Could somebody please help me out with some info regarding this upgrade? Some links or any hint you can give would help me a lot. (Whether technical or functional..all very welcome!).
Thanks in advance
Moderator message: topic too broad to be answered in a forum thread, many people had to go through this, please search for available information/documentation.
Edited by: Thomas Zloch on Jun 14, 2011 9:31 AMHi ,
I too got an error of this type .
The resolution is as follows :
login as user SAP<SID> in the oracle database .
SQL> drop tabel <tablename>;
Restart the upgrade from PARMVNT_SHD phase.
Regards
Ratnajit -
ABAP Code to Select Invoices from VBRP
Hi
I have the following code to summrise the invoice total by
Z_VBRP_NETWR_TOT =
IF Z_VBRP = 'X'.
select sum( NETWR ) sum( FKIMG ) from VBRP
into (Z_VBRP_NETWR_TOT, Z_VBRP_FKIMG_TOT)
where
AUBEL = VBAP-VBELN
and
AUPOS = VBAP-POSNR
and
SHKZG = ' '.
ENDIF.
The problem I have is when a proforma invoice and normal invoice is issued then the values are doubled, we just want to report on 1 invoice and not both, I checked the VBRK table and the difference between the 2 is field VGTYP. Therefore I added in the a AND statement before the ENDIF statement : and VGTYP = ‘J’.
This is ok when there are 2 invoices eg field VGTYP = "C" or "J" but when there is only 1 type "C" I want the program to sum all the as per the above code, is there ELSE statement I should use?
thanks
JoeHi Joe,
try to do the following steps:
*1 First of all define a internal table and structure with the following four fields:
TYPES: BEGIN OF TYPE TY_INV_DAT,
AUBEL TYPE VBRP-AUBEL,
AUPOS TYPE VBRP-AUPOS,
NETWR TYPE VBRP-NETWR,
FKIMG TYPE VBRP-FKIMG
END OF TYPE LT_INV_DATA,
TY_T_INV_DAT TYPE STANDARD TABLE OF TY_INV_DAT.
DATA: LT_INV_DATA TYPE TY_T_INV_DAT,
LS_INV_DATA TYPE TY_INV_DAT.
*2. Select and store the data in the internal table.(I think that this kind of selection will improver also the performance of your coding)
select AUBEL AUPOS NETWR FKIMG from VBRP
into table lt_inv_data
where AUBEL = VBAP-VBELN
and AUPOS = VBAP-POSNR
and SHKZG = space.
if sy-subrc = 0.
*3 proceed to delete the duplicate entries.
SORT LT_INV_DATA BY AUBEL ASCENDING AUPOS ASCENDING.
DELETE ADJACENT DUPLICATES FROM LT_INV_DATA COMPARING AUBEL AUPOS.
* summarize table amounts/quantities.
clear: Z_VBRP_NETWR_TOT, Z_VBRP_FKIMG_TOT.
loop at lt_inv_data into ls_inv_data.
add ls_inv_data-NETWR to Z_VBRP_NETWR_TOT.
add ls_inv_data-FKIMG to Z_VBRP_FKIMG_TOT.
endloop.
endif.
Regards,
Marc. -
Need VIs converted from LV 5.1
Could someone please convert the VIs in the zip files attached from LV 5.1 to perhaps LV 7 or 8? I have 8.5 and can't open them because they're "too old".
Attachments:
20hzsqwv.zip 30 KB
loopback.zip 139 KBHi Sima,
I can convert these for you, as I have 7.1 and 8.5.1. However, there are many controls missing as I do the converts - so the version in 8.5.1 have large numbers of vi's missing. So a better option maybe to build the vi's in the newer version. Not ideal I know. Let me know what you think, or if you can attach the library which will cause me the problems.
Regards,
Kind Regards
James Hillman
Applications Engineer 2008 to 2009 National Instruments UK & Ireland
Loughborough University UK - 2006 to 2011
Remember Kudos those who help! -
Need help converting from Actionscript 2.0 to 3.0
I have an old flash file that I need to update. Ufortunately I only ahve access to Flash Pro CC and when I open the file it says the program no longer supports Actionscript 2.0. When I test the file, I get the following compiler errors:
Symbol 'MoneySlider', Layer 'AS', Frame 1, Line 7, Column 3
1120: Access of undefined property ratio.
Symbol 'MoneySlider', Layer 'AS', Frame 1, Line 7, Column 20
1180: Call to a possibly undefined method number.
Symbol 'MoneySlider', Layer 'AS', Frame 1, Line 7, Column 27
1120: Access of undefined property _root.
Symbol 'MoneySlider', Layer 'AS', Frame 1, Line 9, Column 27
1120: Access of undefined property ratio.
And on the MoneySlide layer in Actions:
this.ratio = 0;
this.loadBar._width = 0;
this.dragger.ratio.text= "$0";
dragger.onPress=function(){
this.startDrag(true,0,0,line._width,0);
this.onEnterFrame=function(){
ratio=Math.round(number(_root.transitBenefitLimit/100)*(thi s._x/(line._width/100)));
loadBar._width = Math.round(this._x);
dragger.ratio.text= "$"+ratio;
dragger.onRelease=dragger.onReleaseOutside=stopDrag;
Any help changing the code to be compatible with Actionscript 3? thanks in advance...as3:
this.ratio = 0;
this.loadBar.width = 0;
this.dragger.ratio.text= "$0";
dragger.addEventListener(MouseEvent.MOUSE_DOWN,downF);
var dragged_mc:MovieClip;
function downF(e:MouseEvent):void{
dragged_mc=MovieClip(e.currentTarget);
dragged_mc.startDrag(true,0,0,line.width,0);
dragged_mc.addEventListener(Event.ENTER_FRAME,enterframeF);
stage.addEventListener(MouseEvent.MOUSE_UP,upF);
function enterframeF(e:Event):void{
ratio=Math.round(Number(MovieClip(root).transitBenefitLimit/100)*(dragged_mc.x/(line.widt h/100)));
loadBar.width = Math.round(dragged_mc.x);
dragger.ratio.text= "$"+ratio;
function upF(e:MouseEvent):void{
stage.removeEventListener(MouseEvent.MOUSE_UP,upF);
dragged_mc.removeEventListener(Event.ENTER_FRAME,enterframeF);
dragged_mc.stopDrag(); -
ABAP Query Need to Convert ABAP Report
Dear All,
We have 3 queries which are linked to service management, now, user wants to consolidated one ABAP report with feilds of 3 queries, which consist of total 100 feilds. he want provision of downloading each single query (in ABAP report).
Is ther anyway whee we can pass all the 3 quries values in internal tables and pass to ABAP report?? is there any better way so that we will reduce the writing of big logic for 100 feilds??
Thanks in advance.
Regards
RamkiHi ,
you can do this way..
for every query there is a
* Validating Variant name for Query Name
CONCATENATE '%' <query group> '%' <Query name > '%' INTO w_rname.
SELECT SINGLE * FROM varid WHERE report LIKE w_rname
AND variant EQ p_variant.
IF sy-subrc NE 0.
ENDIF.
* Submit report in background and creating spool
SUBMIT (w_rname) USING SELECTION-SET p_variant
TO SAP-SPOOL WITHOUT SPOOL DYNPRO
SPOOL PARAMETERS wa_pri_params AND RETURN.
COMMIT WORK AND WAIT.
"create spool like above for three query and and capture in Spool and format the three spools
"into one internal table and form one report.
Prabhudas -
Need ABAP Code to enhance the 0PRODORDER_ATTR?
I want to enhance the datasource 0PRODORDER_ATTR with the below JCDS Table fields like UDATE,STAT,OBJNR,INACT,CHGNR.
Can anyone please let me know the ABAP Code need to be written in the CMOD to populate the data for the above fields in the 0PRODORDER_ATTR?Hi,
You can use below code to enhancemnt .
You need to change the table, structure and field names
Below code you have to write in tocde CMOD if you are enhancing the master data. It applies for any master data, although, I have taken 0VENDOR_ATTR as the example. I assume that You have already added/appended the fields in the extract structure of 0VENDOR_ATTR i.e. to the structure BIW_LFA1_S. ( Check this link for how to enhance the DataSource : https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/b0af763b-066e-2910-a784-dc6731660f46 )
We have enhanced the datasorce for the following two fields from table LFA1:
ERDAT- Date on which the Record Was Created
KRAUS - Credit information number.
We have also enhaced the structure for the following fields from table LFB1.
MINDK - Minority Indicators
ZTERM - Terms of payment key
CERDT - Certification date.
Now we will poulate these two fields in the code written in CMOD tcode. Here is the code:
Go to the tcode CMOD in R3 and select the component EXIT_SAPLRSAP_002. Write this code in INCLUDE ZXLOFU01.
data : l_t_data like biw_lfa1_s.
data : l_tabix like sy-tabix.
CASE i_datasource.
WHEN '0VENDOR_ATTR'.
LOOP AT i_t_data INTO l_t_data.
l_tabix = sy-tabix.
CLEAR: l_t_data-yyerdat,
l_t_data-yykraus.
SELECT SINGLE erdat kraus FROM lfa1 INTO
( l_t_data-yyerdat, l_t_data-yykraus)
WHERE lifnr EQ l_t_data-lifnr.
SELECT SINGLE mindk zterm cerdt FROM lfb1 INTO
(l_t_data-yymindk, l_t_data-yyzterm, l_t_data-yycerdt)
WHERE lifnr = l_t_data-lifnr.
MODIFY i_t_data FROM l_t_data INDEX l_tabix.
CLEAR: l_t_data, l_tabix.
ENDLOOP.
ENDCASE.
Labels parameters
Maybe you are looking for
-
My Mac can access internet through my time capsule but can't find TC so I can set up time machine
I have an iMac and a MacBook. I can access the internet with both Macs using my time capsule. I can access the Time Capsule with my iMac and use it with Time Machine for backups. I can't use my Time Capsule for Time Machine backup since my MacBook c
-
When i got my BT home hub 4 in and set my ps3 my nat type was strict... I logged in to the homehub manager and set the ip address as static (i think as thats what id read online to do) anyways it is now on moderate ... How on earth do i get the NAT t
-
<%@page language="abap" %> <html> <page> <FORM NAME="formlist"> <input type = 'dropdown' name = "d1"> <htmlb:dropdownListBox id = "d1" > table = "<%= catsdb11 %>" nameOfKeyColumn = "pernr" nameOfValueColumn = "Value" </htmlb:dropdownListBox> </FOR
-
OLE Write at footer of document
Hi I user oracle fusion middleware 11g, i want to write at word document by using OLE, the problem is i need to write in header and footer area, how can i do that? is there any property to write on it like position? DECLARE app OLE2.OBJ_TYPE; docs OL
-
I am having trouble with my disabled iphon
I am having trouble with my disabled iphone PLEASE HELP