Extracting rate field
hi i need to get the rate field . ( konv-kbetr)
but i am not gettting some unique key to get it from the data i already have. do i need to get some more table . here is what i have
DATA:begin of itab occurs 0,
kunag like vbrk-kunag,
augru_auft like vbrp-augru_auft,
matnr like vbrp-matnr,
fkdat like vbrk-fkdat,
vbtyp like vbrk-vbtyp,
fksto like vbrk-fksto,
knumv like vbrk-knumv,
gjahr like vbrk-gjahr,
vbeln like vbrk-vbeln,
posnr like vbrp-posnr,
arktx like vbrp-arktx,
vrkme like vbrp-vrkme,
fkimg like vbrp-fkimg,
netwr like vbrp-netwr,
kostl like vbrp-kostl,
name1 like kna1-name1,
kdmat like vbap-kdmat,
kzwi1 like vbrp-kzwi1,
end of itab.
SELECT *
FROM vbrk
INNER JOIN vbrp ON vbrkvbeln = vbrpvbeln
INNER JOIN kna1 ON vbrkkunag = kna1kunnr
INTO corresponding fields of TABLE itab
where
vbrkvbeln in p_vbeln and vbrkkunag in p_kunag and vbrpmatnr in p_matnr and vbrpaugru_auft in p_augru
and vbrk~fkdat in p_fkdat
And vbrk~vbtyp IN ('M', 'P', 'O')
And vbrk~fksto NE 'X'.
sort itab by kunag augru_auft matnr.
loop at itab.
select kbetr
from konv
into itab1-kbetr
where knumv = itab-knumv.
endselect.
but this wont work coz there are many kbetr for the one corespondding knumv.
please help.
Look for example report and i am getting material price from a004 and konp table.
REPORT ZMM_KITCHEN_COST no standard page heading
line-size 255
message-id zwave .
======================================================================
Program Name : ZMM_KITCHEN_COST *
Description : This Program is SAP List Viewer Program *
This Program would be used for Kitchen cost report *
from table MARA,MARC,MBEW and KONP *
Author : Seshu *
Date : 08/04/2006 *
MODIFICATION HISTORY *
DATE | AUTHOR | CHANGE # | DESCRIPTION OF MODIFICATION *
--|||--
09/15/06| Seshu | DEVK921591 | ALV Interactive to MD04 *
09/18/06| Seshu | DEVK921599 | Added Price unit in MBEW *
09/18/06| Seshu | DEVK921601 | Added price unit to all fields *
09/28/06| Seshu | DEVK921624 | Added Material Status field *
01/09/06| Seshu | DEVK921949 | Added Unit of measure field *
======================================================================
type-pools
type-pools : slis.
Tables
tables : mara,
makt,
mbew,
konp,
pgmi,
marc,
RMCP3,
sscrfields,
mvke.
Internal Table for MARC and MARA
data : begin of i_join occurs 0,
matnr like mara-matnr, " Material #
meins like mara-meins, " Unit of Measure
werks like marc-werks, " Plant
zzdept like marc-zzdept," Department
end of i_join.
Internal table for PGMI
data : begin of i_pgmi occurs 0,
werks like pgmi-werks, " Plant,
nrmit like pgmi-nrmit, " Material #
wemit like pgmi-wemit, " Plant
end of i_pgmi.
Internal Table for MBEW
data i_mbew like mbew occurs 0 with header line.
Internal Table for Output
data : begin of i_output occurs 0 ,
matnr like mara-matnr, " Material #
maktx like makt-maktx, " Material Desc
VPRSV like mbew-VPRSV, " Price Control Indicator
VERPR like mbew-VERPR, " Moving Avg Price
meins like mara-meins, " Base Unit of Measure
STPRS like mbew-STPRS, " Standard Price
LPLPR like mbew-LPLPR, " Current Planned Price
ZPLPR like mbew-ZPLPR, " Future Planned Price
VPLPR like mbew-VPLPR, " Previous Planned Price
kbetr like konp-kbetr, " Sales Price
KMEIN like konp-KMEIN, " Sales Unit
margin(5) type p decimals 2,
vmsta like mvke-vmsta, " Material Status.
end of i_output.
Internal Table for A004
data : i_a004 like a004 occurs 0 with header line.
Variables
data : wa_lines type i,
wa_maktx type makt-maktx,
v_flag type c.
ALV Function Module Variables
DATA: g_repid like sy-repid,
gs_layout type slis_layout_alv,
g_exit_caused_by_caller,
gs_exit_caused_by_user type slis_exit_by_user.
DATA: gt_fieldcat type slis_t_fieldcat_alv,
gs_print type slis_print_alv,
gt_events type slis_t_event,
gt_list_top_of_page type slis_t_listheader,
g_status_set type slis_formname value 'PF_STATUS_SET',
g_user_command type slis_formname value 'USER_COMMAND',
g_top_of_page type slis_formname value 'TOP_OF_PAGE',
g_top_of_list type slis_formname value 'TOP_OF_LIST',
g_end_of_list type slis_formname value 'END_OF_LIST',
g_variant LIKE disvariant,
g_save(1) TYPE c,
g_tabname_header TYPE slis_tabname,
g_tabname_item TYPE slis_tabname,
g_exit(1) TYPE c,
gx_variant LIKE disvariant.
data : gr_layout_bck type slis_layout_alv.
Selection-screen
selection-screen : begin of block blk with frame title text-001.
parameters : p_werks like marc-werks default '1000' obligatory.
select-options : s_dept for marc-zzdept obligatory,
s_matnr for mara-matnr,
s_mtart for mara-mtart,
s_vprsv for mbew-VPRSV,
s_PRGRP for RMCP3-PRGRP MATCHCODE OBJECT MAT2 ,
s_vmsta for mvke-vmsta.
selection-screen: end of block blk.
*SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
*PARAMETERS: p_vari LIKE disvariant-variant.
*SELECTION-SCREEN END OF BLOCK b3.
At slection screen events *
*-- Process on value request
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
PERFORM f4_for_variant.
Initialization *
Initialization.
g_repid = sy-repid.
sscrfields-functxt_01 = 'Clear Selection'.
selection-screen function key 1.
AT SELECTION-SCREEN.
case sscrfields-ucomm.
when 'Clear Selection' or 'FC01'.
clear: s_matnr,
p_werks.
refresh: s_matnr,
s_dept,
s_mtart,
s_vprsv,
s_PRGRP,
s_vmsta.
endcase.
Start-of-selection.
start-of-selection.
Clear the all data.
perform clear_data.
Get the data from PGMI Table
perform get_pgmi.
Get the data from MARC and MARA Table
perform get_mara_marc.
Get the data from MBEW Table
perform get_mbew.
Move the data into OUTPUT Table
perform move_output_internal.
*end-of-selection.
end-of-selection.
if not i_output[] is initial.
ALV Function Module
perform print_alv.
endif.
*& Form get_pgmi
Select the data from PGMI Table
FORM get_pgmi.
clear v_flag.
If Product group has a value at Selection-screen.
if not s_prgrp is initial.
select werks nrmit wemit from pgmi into table i_pgmi
where prgrp in s_prgrp
and werks = p_werks
and wemit = p_werks.
v_flag = 'X'.
endif.
ENDFORM. " get_pgmi
*& Form get_mara_marc
Select the data from MARA and MARC
FORM get_mara_marc.
if v_flag = 'X'.
select amatnr ameins bwerks bzzdept into table i_join
from mara as a inner join marc as b on amatnr = bmatnr
for all entries in i_pgmi
where a~matnr in s_matnr
and b~werks = p_werks
and b~zzdept in s_dept
and a~mtart in s_mtart
and a~matnr = i_pgmi-nrmit
and b~werks = i_pgmi-werks.
else.
Get the data from MARA and MARC Table
select amatnr ameins bwerks bzzdept into table i_join
from mara as a inner join marc as b on amatnr = bmatnr
where a~matnr in s_matnr
and b~werks = p_werks
and b~zzdept in s_dept
and a~mtart in s_mtart.
endif.
clear wa_lines.
describe table i_join lines wa_lines.
if wa_lines is initial.
message i000(zwave) with 'List contains no data'.
stop.
endif.
sort i_join by matnr werks zzdept.
ENDFORM. " get_mara_marc
*& Form get_mbew
Select the data from MBEW Table
FORM get_mbew.
Get the data from MBEW.
select * from mbew into table i_mbew
for all entries in i_join
where matnr = i_join-matnr.
clear wa_lines.
describe table i_mbew lines wa_lines.
if wa_lines is initial.
message i000(zwave) with 'List contains no data'.
stop.
endif.
sort i_mbew by matnr bwkey.
ENDFORM. " get_mbew
*& Form move_output_internal
Final Results
FORM move_output_internal.
loop at i_join.
clear wa_maktx.
Compare the data with MVKE Table
select single vmsta from mvke into mvke-vmsta
where matnr = i_join-matnr
and vkorg = '0001'
and vtweg = '01'
and vmsta in s_vmsta.
if sy-subrc ne 0.
continue.
else.
i_output-vmsta = mvke-vmsta.
endif.
read table i_mbew with key matnr = i_join-matnr
bwkey = i_join-werks
binary search.
if sy-subrc eq 0.
Price Control Indicator
i_output-VPRSV = i_mbew-VPRSV.
Moving Average Price
i_output-VERPR = i_mbew-VERPR / i_mbew-peinh.
Standard Price
i_output-STPRS = i_mbew-STPRS / i_mbew-peinh.
Current Planned Price
i_output-LPLPR = i_mbew-LPLPR / i_mbew-peinh.
Future Planned Price
i_output-ZPLPR = i_mbew-ZPLPR / i_mbew-peinh.
Previous Planned Price
i_output-VPLPR = i_mbew-VPLPR / i_mbew-peinh.
Base Unit of Measure - Added by Seshu 01/09/2007
i_output-meins = i_join-meins.
else.
continue.
endif.
Get the sales Price.
perform get_sales_data.
if i_mbew-VPRSV = 'V'.
Get the Percentage of Margin
if i_output-kbetr ne '0.00'.
i_output-margin = ( ( i_output-kbetr - i_mbew-VERPR )
/ i_output-kbetr ) * 100 .
endif.
else.
Get the Percentage of Margin
if i_output-kbetr ne '0.00'.
i_output-margin = ( ( i_output-kbetr - i_output-stprs )
/ i_output-kbetr ) * 100 .
endif.
endif.
Get the material Description from MAKT Table
select single maktx from makt into wa_maktx
where matnr = i_join-matnr
and spras = 'E'.
if sy-subrc eq 0.
i_output-matnr = i_join-matnr.
i_output-maktx = wa_maktx.
endif.
append i_output.
clear : i_output,
i_join,
i_mbew.
endloop.
ENDFORM. " move_output_internal
*& Form get_sales_data
Get the Sales Price for each material
FORM get_sales_data.
Get the data from A004 table to get KNUMH
Added new field Sales Unit - Seshu 01/09/2006
refresh : i_a004.
clear : i_a004.
data : lv_kbetr like konp-kbetr," Condition value
lv_KPEIN like konp-kpein , "per
lv_KMEIN like konp-KMEIN. " Sales Unit
select * from a004 into table i_a004
where matnr = i_join-matnr
and vkorg = '0001'
and vtweg = '01'.
if sy-subrc eq 0.
sort i_a004 by DATAB descending.
Get the Latetest Date
read table i_a004 with key matnr = i_join-matnr
vkorg = '0001'
vtweg = '01'
binary search.
Get the Sales Value
select single kbetr KPEIN KMEIN from konp
into (lv_kbetr,lv_KPEIN, lv_KMEIN)
where knumh = i_a004-knumh
and kappl = i_a004-kappl
and kschl = i_a004-kschl.
if sy-subrc eq 0.
i_output-kbetr = lv_kbetr / lv_KPEIN.
i_output-KMEIN = lv_KMEIN.
endif.
endif.
clear : lv_kbetr,
lv_kpein,
lv_KMEIN.
ENDFORM. " get_sales_data
*& Form print_alv
ALV Function Module
FORM print_alv.
Fill the Fiedlcat
PERFORM fieldcat_init using gt_fieldcat[].
gr_layout_bck-edit_mode = 'D'.
gr_layout_bck-colwidth_optimize = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = g_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = g_user_command
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT = gr_layout_bck
IT_FIELDCAT = gt_fieldcat[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = g_save
IS_VARIANT =
IT_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
IT_ALV_GRAPHICS =
IT_ADD_FIELDCAT =
IT_HYPERLINK =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IT_EXCEPT_QINFO =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = i_output
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. " print_alv
*& Form fieldcat_init
Fieldcat
FORM fieldcat_init USING e01_lt_fieldcat type slis_t_fieldcat_alv.
DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
Material #
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'MATNR'.
LS_FIELDCAT-ref_fieldname = 'MATNR'.
LS_FIELDCAT-ref_tabname = 'MARA'.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Material'.
ls_fieldcat-seltext_M = 'Material'.
ls_fieldcat-seltext_S = 'Material'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Material Description
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'MAKTX'.
LS_FIELDCAT-OUTPUTLEN = 35.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Description'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Price Indicator
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'VPRSV'.
LS_FIELDCAT-OUTPUTLEN = 7.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Price Control Indicator'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Moving Avg Price
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'VERPR'.
LS_FIELDCAT-OUTPUTLEN = 11.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Moving Avg Price'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Base Unit of Measure
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'MEINS'.
LS_FIELDCAT-OUTPUTLEN = 7.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Base Unit'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Standard Price
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'STPRS'.
LS_FIELDCAT-OUTPUTLEN = 11.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Standard Price'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Current Planned Price
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'LPLPR'.
LS_FIELDCAT-OUTPUTLEN = 11.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Current Planned Price'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Future Planned Price
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'ZPLPR'.
LS_FIELDCAT-OUTPUTLEN = 11.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Future Planned Price'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Previous Planned Price
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'VPLPR'.
LS_FIELDCAT-OUTPUTLEN = 11.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Previous Planned Price'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Sales Price
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'KBETR'.
LS_FIELDCAT-OUTPUTLEN = 13.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Sales Price'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Sales Unit
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'KMEIN'.
LS_FIELDCAT-OUTPUTLEN = 7.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Sales Unit'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
% of Gross Margin
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'MARGIN'.
LS_FIELDCAT-OUTPUTLEN = 13.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = '% of Gross Margin'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Material Status
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'VMSTA'.
LS_FIELDCAT-OUTPUTLEN = 13.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Material Status'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
ENDFORM. " fieldcat_init
**& Form f4_for_variant
text
*FORM f4_for_variant.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
EXPORTING
is_variant = g_variant
i_save = g_save
i_tabname_header = g_tabname_header
i_tabname_item = g_tabname_item
it_default_fieldcat =
IMPORTING
e_exit = g_exit
es_variant = gx_variant
EXCEPTIONS
not_found = 2.
IF sy-subrc = 2.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
IF g_exit = space.
p_vari = gx_variant-variant.
ENDIF.
ENDIF.
*ENDFORM. " f4_for_variant
*& Form clear_data
Clear the Internal table
FORM clear_data.
clear : i_output,
i_join,
i_mbew,
i_a004,
i_pgmi.
refresh : i_output,
i_join,
i_mbew,
i_a004,
i_pgmi.
ENDFORM. " clear_data
FORM USER_COMMAND *
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield. "#EC CALLED
CASE R_UCOMM.
WHEN '&IC1'.
read table i_output index rs_selfield-tabindex.
SET PARAMETER ID 'MAT' FIELD i_output-matnr.
SET PARAMETER ID 'WRK' FIELD p_werks.
if not i_output-matnr is initial.
call transaction 'MD04' and skip first screen.
endif.
ENDCASE.
ENDFORM.
Similar Messages
-
New G/L Line item Datasource 0FI_GL_14 not extracting exchange rate field
Hi,
We are implementing new G/L Line item datasource and standarad field of this datasource KURSE - exchange rate field not extracting data.
Debugged standard extractor function module but field for exchange rate is not populating even there is a value in the base table BKPF.
Please advise on this.
Thanks
UDAY
Edited by: Udaybi on Apr 12, 2011 5:30 AMDid you solve the issue? I am facing the same issue too.
-
Problem with Exchange rate field in MBEPOH in 4.7
Hi Experts,
I am working on data transfer of POs from 4.6 to 4.7 using the standard extract program RM06EEEX and then loading it using LSMW.
Problem is with the exchnage rate field(WKURS). Length of this field in MBEPOH is 9 characters in 4.6 and it is 1 character long in 4.7
So the data is getting truncated becuase of this mismatch. Is there any sap note avaliable to correct the field length MBEPOH-WKURS or any other way to pass correct data to the strucure.
Thanks in Advance ,
HarkamalHi,
Can you please check the valid date of that exchange rate and the goods receipt posting date?
Check in Purchase order also.
Regards,
Kumar -
Problem with EXchange rate field in MBEPOH structure
Hi Experts,
I am working on data transfer of POs from 4.6 to 4.7 using the standard extract program RM06EEEX and then loading it using LSMW.
Problem is with the exchnage rate field(WKURS). Length of this field in MBEPOH is 9 characters in 4.6 and it is 1 character long in 4.7
So the data is getting truncated becuase of this mismatch. Is there any sap note avaliable to correct the field length MBEPOH-WKURS or any other way to pass correct data to the strucure in LSMW.
Thanks in Advance ,
HarkamalMaybe you can use Idoc PORDCR1 (Create Purchase Order) as import method in LSMW.
Exchange rate field (WKURS) corresponds to field EXCH_RATE in E1BPMEPOHEADER segment. -
AFS Elementary Field Extraction (Category Fields)
Hello Guru's,
I have a problem of extracting category fields. The problem is in the mapping of Characteristics (Category) to the Elementary fields in the R3 AFS BW interface. For an example if you take the category characteristic 'Quality" it has two elementary fields,
Stock(J_3ABWEL_QUAL ) & Requirement(J_3ABWEL_QUAL_R). But the problem in R3 is, there is only ONE Characteristic available for "Quality". In the AFS BW interface it is not possible to map one Characteristic into two Elementary Fields.
Please let me know how to handle this.
Any thoughts will be greatly appreciated.
Thanks
RJHi AFS Gurus,
Could you please help me out?
Cheers,
DM -
How to extract a field from Binary object
Hi Guys,
I have a Binary object in custom aggregator and I would like to extract a field from the Binary object without de-serializing the Binary object. I know this can be done but figure out how.. Appreciate your help.
Have tried this
PofValue value = PofValueParser.parse(Binary, (PofContext) BinaryEntry.getSerializer());
PofValue child = value.getChild(1);
Object value = child1.getValue();
but no luck.
Thanks
DHi JK,
Thanks.. I have Binary and tried
PofValue pofValue = PofValueParser.parse(binary, pofContext);
PofNavigator path = new SimplePofPath(1);
PofValue target = path.navigate(pofValue);
Object value = target != null ? target.getValue() : null;
but no luck.. I must be missing something.
Basically, am trying to do cache joins using aggregator and data affinity. Sample code snippet
@Override
public Object aggregate(Set values) {
List extractedValues = new ArrayList();
for (Map.Entry entry : (Set<Map.Entry>)values) {
try {
//these are BinaryEntries in TESTCACHE1
BinaryEntry binaryEntry = (BinaryEntry)entry;
Long compId = (Long)binaryEntry.extract(new KeyExtractor("getComponentId"));
Long contId = (Long)binaryEntry.extract(new KeyExtractor("getPartyId"));
BackingMapContext backingMapContext = binaryEntry.getContext().getBackingMapContext("TESTCACHE2");
ObservableMap backingMap = backingMapContext.getBackingMap();
MapIndex mapIndex = backingMapContext.getIndexMap().get(new KeyExtractor("getComponentId"));
com.tangosol.util.InflatableSet keySet = (com.tangosol.util.InflatableSet) mapIndex.getIndexContents().get(compId);
Binary object = null;
for(Object key : keySet ) {
object = (Binary)backingMap.get(key);
PofNavigator path = new SimplePofPath(2);
PofValue value = PofValueParser.parse(object, (PofContext) binaryEntry.getSerializer());
PofValue target = path.navigate(value);
Object extractedValue = target != null ? target.getValue(): null;
extractedValues.add(extractedValue);
} catch (Throwable t) {
log.error("Exception in aggregate method ", t);
throw new RuntimeException("Exception in aggregate method", t);
return extractedValues; -
Purchase Orders Summary, Currency Rate Field
Recently we applied Patch INV.RUP 14, after that users notice that
Purchase Order summary screen => Purchase Order Headers Block => Rate field, it shows the Foreign Currency Rate,
while it used to show Local Currency rate before applying the patch.
Does INV.RUP 14 patch change/amend on the PO behavior?Hello,
RUP is called "Oracle Inventory and Receiving (PO): Release 11.5.10, Rollup Patch 14". You see PO that why this patch can change this or another prerequisite. You can create SR in metalink it seems to be bug. Always after upgrade something is missing:)
Regards,
Luko -
How to retrive rate field in taxinvoice
hi Guru ,
i Write following code but rate field not retrive.
select kbetr kwert kschl from konv INTO CORRESPONDING FIELDS OF table it_konv
FOR ALL ENTRIES IN IT_VBRk where KNUMV = IT_VBrK-KNUMV and kschl = 'ZRPR'.
loop at it_konv.
endloop.
select kbetr kwert kschl from konv INTO CORRESPONDING FIELDS OF table it1_konv
for all entries in IT_VBRk where KNUMV = IT_VBRK-KNUMV and kschl eq 'ZFAB'.
loop at it1_konv.
endloop.
select kbetr kwert kschl from konv INTO CORRESPONDING FIELDS OF table it2_konv
for all entries in IT_VBRk where KNUMV = IT_VBRK-KNUMV and kschl eq 'ZRLB'.
loop at it2_konv .
endloop.
loop at it_vbrp.
read table it_konv with key knumv = it_vbrk-knumv .
read table it1_konv with key knumv = it_vbrk-knumv.
read table it2_konv with key knumv = it_vbrk-knumv.
itabfinal-amount1 = it_konv-kbetr + it1_konv-kbetr + it2_konv-kbetr .
itabfinal-value = it_konv-KWERT + it1_konv-KWERT + it2_konv-KWERT .
append itabfinal.
refresh itabfinal.
endloop.
this code get same rate in different material.
please help.Hi,
Why you r writing so many times a select query on KONV.
I think you can write the logic as follows
select kbetr kwert kschl from konv INTO CORRESPONDING FIELDS OF table it_konv
for all entries in IT_VBRK
where KNUMV = IT_VBRK-KNUMV
and ( kschl eq 'ZRPR'
or kschl eq 'ZFAB'
or kschl eq 'ZRLB' ) .
loop at IT_VBRP.
read table IT_VBRK with key ebeln = IT_VBRP-VBELN.
if sy-subrc = 0.
loop at IT_KONV where knumv = IT_VBRK-KNUMV
sum the condition values as required.
endloop.
endloop.
With Regards,
Dwarakanath.S -
How to activate the "Set Exchange Rate" field in billing document header?
Dear All,
I would like to get the exchange rate at the time of the billing without changing the sales order exchange value.
The set exchange rate field is grayed off.
Thanks in adavance.
Regards,
NiketanHi,
This can be achieved using the copy control setting for billing at the Item level. The field is: PricingExchRate type
and the possible values relevant for you are:
C Exchange rate determination according to billing date
E Exchange rate determination according to current date
Hope this helps!
Thanks
Siva -
HI Experts,
How to enable me to edit the exchange rate field in Ap Credit Memo? Coz i have diffrent rate in all transactions within a document....
Thanks.
Regards,
DannyHi Danny,
The field cannot be changed.
There should be no exchange rate difference posting as no money changed hands. You sent the Invoice, it was never paid, you clear it with a Credit Note.
For the stock in the movement, stock is always kept in Local Currency in B1, no exchange rate posting.
Hope it helps,
Jesper -
Enabling 'AT1 Rate' field in J1IEX for entry
Hello experts,
I have a requirement of enabling 'AT1 Rate' field in J1IEX for entry for caputuring excise invoice without PO. Currently it is greyed out.
Is there any configuration available, with which we can achieve this?
Thanks & Regards,
AmitThanks Mahesh,
Combination of following notes seems relevant. Work is in progress; hope these will resolve the issue.
1. 926506 - Data Dictionary Changes for Additional tax fields.
2. 926857 - Function Module changes for additional tax fields
3. 926707 - Additional tax fields and changes thereon for J1IEX & MIGO -
Transaction J1IEX (Domestic procurement)and Transaction MIGO and Excise Invoice together (Enterprise release)
Thanks & Regards,
Amit -
hi friends
where should i get the exchange rate field in va03 transaction....
can any one telme the field name plz...This must be a good reading for you.
Difference in Billing Exchange rate(VBRP-KURSK) w.r.t OB08 -
Can anybody tell me how to extract TDS field
Hi,
Is there any function module or any other alternative to extract the TDS field.
Regards
Mave.Hi,
See this fields
KOMV-KBETR---tax rate
KOMV-KWETR---tax amount
I hope this will help you.
Thanks. -
Need help on extraction of field VBUP-UVP01 in BW
Hi All,
In our system, we have enhanced 2LIS_11_VAITM datasource to bring data for UVP01 field in BW.
I can see the field in append structure of extract structure MC11VA0ITM (see attached screenshot), but I don't see any ABAP code in CMOD to populate this field. So my question is how this field is getting populated?
Other problem is we are not getting correct delta for this field. Some orders
are closed and has VBUP-UVP01 as "C" in in R/3, but in BW it still shows as
open.
Please suggest how can we capture delta for this field correctly, without going for full load option everyday.
Thanks and Regards,
Jharna Patel.might be the code is written in BADi check it using tcode SE18 .
-
Exchange rate field greyed out when i use custom PO order type
Hi!
Upon creation of PO using SAP standard order type NB, the field exhange rate is editable. While when i used csutom PO order type, it is greyed out. How can we edit this? Where is the configuration of the exchange rate per order type?
If this is configured in IMG please include path, on how exchange rate is configured.
Thanks a lot.Hi,
Spro>Materials Management>Purchasing>Purchase Order>Define Document Types
Here check the "Field Selection Key" against the PO doc type
(ex: Standard NB doc type the "Field Selection Key" would be "NBF")
Then go to
Spro>Materials Management>Purchasing>Purchase Order>Define Screen Layout at Document Level
Select the " Field Selection Key" of ur doc type..Just Double click on that
then check for field " Exchange rate "
against that field you can see three options, Reqd.entry Opt. entry Display...
Here tick the field "Opt. entry", So that You can get this field in Change mode in ME21N trx...
Thx
Raju
Maybe you are looking for
-
Reg: Error in Mail sending through background job in SCOT
Hello experts, I am trying to schedule a background job through SCOT so as to send the mails present in SOST. The job is running but it is giving error as "Invalid status for recipient" in SOST. But when I am sending it directly from SOST it is deli
-
Implement conforming dimensions with business objects
Hey guys, I have 2 fact tables joined to 3 conforming dimensions, how can I build the universe to aggregate the fields in facts in one query? Someone told me to create merged dimensions at report level, but our clients don't want us to do like that.
-
How to cancel A\r Invoice
HI, please help me
-
Creating Report with three parameter
Hi Team, Please tell me how to create report having more than one PARAMETER in BI Publisher... I am able to create DATA MODEL but when I am creating Report from the Data Source on dragging the table.... *THE TABLES HAVE NULL RECORDS...Please tell me
-
I seem to be having one of the dominate challenges with iWeb. Publishing photos or albums to .mac; I have reviewed many of the post and checked everything from cache to republishing and creating a new site, but still no images. All other pages appear