To pass value in field like LEV_BAL wchich exist only in custom structure
Hi All,
1> I have to make a function module which is showing employee leave balance for leave type
I have a table pa2006 and pa2005 in which data is available for available leave (ANZHL)and taken leave (KVERB) by employee. But ther is no field for leave balance.
What my point is i am using a structure in which i defined a field LEV_BAL type ANZHL. This field does not exist in any sap table.
I can put select query for available field in pa2006. Now what should i do to get data into LEV_BAL field of structure and same can reflect in my internal table for function module.
2> There is a bapi function module BAPI_TIMEQUOTA_GETDETAILEDLIST which is using a structure BAPIHRQUOTA. This structure hold field as ENTITLE, DEDUCT, ACCOUNT, REST for Quota entitlement, Quota used, Quota calculated, Quota remaining as of respectively. Can one can give me idea from which SAP table these values are fetched in to this structure for function module.
Regards
Ranjeet Singh
Suppose the RFC is called ZRFC, and the table structure is called TableStruct, then this works for me (in execute method before calling execute):
ZRFCInput input = wdContext.currentZRFCElement().modelObject();
// these are regular import parameters
input.setAaa(aaa);
input.setBbb(bbb);
if (input.getTableStruct()!=null) {
input.getTableStruct().clear();
// In this loop table rows are added
for (int i=0; i<sourcList.size(); i++) {
ZTableStruct table = new ZTableStruct();
table.setDdd(((SomeBean) sourcList.get(i)).getDdd()); // for property ddd
input.addTableStruct(table);
Good luck, Roelof
Edited by: R. Knibbe on Jan 23, 2008 3:25 PM
Similar Messages
-
Passing values for field catalog
Hi experts,
To pass values to fieldcatalog i need one practical example
Can anyone help me
Reg
R.Vijai*& Report ZSUJ
REPORT zsuj.
TYPE-POOLS: slis.
Data Declaration Section
DATA:wa_fieldcat_alv TYPE slis_fieldcat_alv.
DATA:it_fieldcat_alv TYPE slis_t_fieldcat_alv.
DATA:BEGIN OF itab OCCURS 0,
ch TYPE c,
vbeln TYPE vbak-vbeln,
posnr TYPE vbap-posnr,
netwr TYPE vbap-netwr,
vkorg TYPE vbak-vkorg,
matnr TYPE vbap-matnr,
meins TYPE vbap-meins,
END OF itab.
DATA:BEGIN OF it_head OCCURS 0,
vbeln TYPE vbak-vbeln,
vkorg TYPE vbak-vkorg,
END OF it_head.
DATA:BEGIN OF it_item OCCURS 0,
vbeln TYPE vbak-vbeln,
posnr TYPE vbap-posnr,
netwr TYPE vbap-netwr,
vkorg TYPE vbak-vkorg,
matnr TYPE vbap-matnr,
meins TYPE vbap-meins,
END OF it_item.
DATA:wa_keyinfo TYPE slis_keyinfo_alv.
DATA:it_events TYPE slis_t_event,
wa_event TYPE slis_alv_event.
DATA:it_listheader TYPE slis_t_listheader,
wa_listheader TYPE slis_listheader.
DATA:wa_sortinfo TYPE slis_sortinfo_alv,
it_sortinfo TYPE slis_t_sortinfo_alv.
DATA:wa_layout TYPE slis_layout_alv.
DATA: v_report TYPE sy-repid.
Selection Screen
SELECTION-SCREEN SKIP 3.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : so_erdat FOR sy-datum.
PARAMETERS : r_list RADIOBUTTON GROUP rad1,
r_grid RADIOBUTTON GROUP rad1,
r_hier RADIOBUTTON GROUP rad1,
r_blck RADIOBUTTON GROUP rad1.
SELECTION-SCREEN : END OF BLOCK b1.
Start-of-selection.
START-OF-SELECTION.
IF r_list EQ 'X' OR r_grid EQ 'X'.
SELECT vbakvbeln vbapposnr vbapnetwr vbakvkorg vbapmatnr vbapmeins
INTO CORRESPONDING FIELDS OF TABLE itab
FROM vbak INNER JOIN vbap ON vbakvbeln = vbapvbeln
WHERE vbak~erdat IN so_erdat.
ELSEIF r_hier EQ 'X'.
SELECT vbeln FROM vbak INTO TABLE it_head
WHERE erdat IN so_erdat.
IF it_head[] IS NOT INITIAL.
SELECT vbeln posnr netwr matnr meins FROM vbap INTO TABLE it_item
FOR ALL ENTRIES IN it_head
WHERE vbeln = it_head-vbeln.
ENDIF.
ELSEIF r_blck EQ 'X'.
ENDIF.
Build Field Catalogue
IF r_list EQ 'X' OR r_grid EQ 'X'.
PERFORM build_catalog.
ELSEIF r_hier EQ 'X'.
PERFORM build_catalog1.
ELSEIF r_blck EQ 'X'.
PERFORM build_catalog2.
ENDIF.
Events
PERFORM get_events.
Build Comment
PERFORM buil_comment.
Sort Info on Table
PERFORM build_sortinfo.
Layout
PERFORM build_layout.
Key info for Heirarchical list.
PERFORM set_keyinfo.
v_report = sy-repid.
End-of-selection.
END-OF-SELECTION.
IF r_list EQ 'X'.
PERFORM list_display.
ELSEIF r_grid EQ 'X'.
PERFORM grid_display.
ELSEIF r_hier EQ 'X'.
PERFORM hier_display.
ELSEIF r_blck EQ 'X'.
PERFORM blockd_list.
ENDIF.
*& Form build_catalog
Build Field Catalogue.
FORM build_catalog .
DATA : c_pos TYPE i.
row_pos like sy-curow, " output in row
col_pos like sy-cucol, " position of the column
fieldname type slis_fieldname,
tabname type slis_tabname,
currency(5) type c,
cfieldname type slis_fieldname, " field with currency unit
ctabname type slis_tabname, " and table
ifieldname type slis_fieldname, " initial column
quantity(3) type c,
qfieldname type slis_fieldname, " field with quantity unit
qtabname type slis_tabname, " and table
round type i, " round in write statement
exponent(3) type c, " exponent for floats
key(1) type c, " column with key-color
icon(1) type c, " as icon
symbol(1) type c, " as symbol
checkbox(1) type c, " as checkbox
just(1) type c, " (R)ight (L)eft (C)ent.
lzero(1) type c, " leading zero
no_sign(1) type c, " write no-sign
no_zero(1) type c, " write no-zero
no_convext(1) type c,
edit_mask type slis_edit_mask, "
emphasize(4) type c, " emphasize
fix_column(1) type c, " Spalte fixieren
do_sum(1) type c, " sum up
no_out(1) type c, " (O)blig.(X)no out
tech(1) type c, " technical field
outputlen like dd03p-outputlen,
offset type dd03p-outputlen, " offset
seltext_l like dd03p-scrtext_l, " long key word
seltext_m like dd03p-scrtext_m, " middle key word
seltext_s like dd03p-scrtext_s, " short key word
ddictxt(1) type c, " (S)hort (M)iddle (L)ong
rollname like dd03p-rollname,
datatype like dd03p-datatype,
inttype like dd03p-inttype,
intlen like dd03p-intlen,
lowercase like dd03p-lowercase,
*ref_fieldname like dd03p-fieldname,
ref_tabname like dd03p-tabname,
roundfieldname type slis_fieldname,
roundtabname type slis_tabname,
decimalsfieldname type slis_fieldname,
decimalstabname type slis_tabname,
decimals_out(6) type c, " decimals in write statement
text_fieldname type slis_fieldname,
reptext_ddic like dd03p-reptext, " heading (ddic)
ddic_outputlen like dd03p-outputlen,
*key_sel(1) type c, " field not obligatory
no_sum(1) type c, " do not sum up
sp_group(4) type c, " group specification
reprep(1) type c, " selection for rep/rep
input(1) type c, " input
edit(1) type c, " internal use only
hotspot(1) type c, " hotspot
c_pos = 1.
wa_fieldcat_alv-col_pos = c_pos.
wa_fieldcat_alv-fieldname = 'CH'.
wa_fieldcat_alv-tabname = 'ITAB'.
wa_fieldcat_alv-outputlen = 2.
wa_fieldcat_alv-seltext_l = ' '.
wa_fieldcat_alv-no_out = ' '.
wa_fieldcat_alv-checkbox = 'X'.
wa_fieldcat_alv-edit = 'X'.
wa_fieldcat_alv-input = 'X'.
APPEND wa_fieldcat_alv TO it_fieldcat_alv.
CLEAR wa_fieldcat_alv.
c_pos = c_pos + 1.
wa_fieldcat_alv-col_pos = c_pos.
wa_fieldcat_alv-fieldname = 'VBELN'.
wa_fieldcat_alv-tabname = 'ITAB'.
wa_fieldcat_alv-outputlen = 20.
wa_fieldcat_alv-seltext_l = 'Sales Doc'.
wa_fieldcat_alv-no_out = ' '.
wa_fieldcat_alv-hotspot = 'X'.
APPEND wa_fieldcat_alv TO it_fieldcat_alv.
CLEAR wa_fieldcat_alv.
c_pos = c_pos + 1.
wa_fieldcat_alv-col_pos = c_pos.
wa_fieldcat_alv-fieldname = 'POSNR'.
wa_fieldcat_alv-tabname = 'ITAB'.
wa_fieldcat_alv-outputlen = 6.
wa_fieldcat_alv-seltext_l = 'Item'.
wa_fieldcat_alv-no_out = ' '.
APPEND wa_fieldcat_alv TO it_fieldcat_alv.
CLEAR wa_fieldcat_alv.
c_pos = c_pos + 1.
wa_fieldcat_alv-col_pos = c_pos.
wa_fieldcat_alv-fieldname = 'NETWR'.
wa_fieldcat_alv-tabname = 'ITAB'.
wa_fieldcat_alv-outputlen = 20.
wa_fieldcat_alv-seltext_l = 'Net Price in Doc Curr'.
wa_fieldcat_alv-no_out = ' '.
wa_fieldcat_alv-do_sum = 'X'.
APPEND wa_fieldcat_alv TO it_fieldcat_alv.
CLEAR wa_fieldcat_alv.
c_pos = c_pos + 1.
wa_fieldcat_alv-col_pos = c_pos.
wa_fieldcat_alv-fieldname = 'VKORG'.
wa_fieldcat_alv-tabname = 'ITAB'.
wa_fieldcat_alv-outputlen = 6.
wa_fieldcat_alv-seltext_l = 'Sales Org'.
wa_fieldcat_alv-no_out = ' '.
APPEND wa_fieldcat_alv TO it_fieldcat_alv.
CLEAR wa_fieldcat_alv.
c_pos = c_pos + 1.
wa_fieldcat_alv-col_pos = c_pos.
wa_fieldcat_alv-fieldname = 'MATNR'.
wa_fieldcat_alv-tabname = 'ITAB'.
wa_fieldcat_alv-outputlen = 20.
wa_fieldcat_alv-seltext_l = 'Mat Invoiced'.
wa_fieldcat_alv-no_out = ' '.
APPEND wa_fieldcat_alv TO it_fieldcat_alv.
CLEAR wa_fieldcat_alv.
c_pos = c_pos + 1.
wa_fieldcat_alv-col_pos = c_pos.
wa_fieldcat_alv-fieldname = 'MEINS'.
wa_fieldcat_alv-tabname = 'ITAB'.
wa_fieldcat_alv-outputlen = 4.
wa_fieldcat_alv-seltext_l = 'UoM'.
wa_fieldcat_alv-no_out = ' '.
APPEND wa_fieldcat_alv TO it_fieldcat_alv.
CLEAR wa_fieldcat_alv.
ENDFORM. " build_catalog
*& Form build_fieldcat
Build Field Catalog.
--> p_col_pos : Column Position
--> p_fieldname : Field name
--> p_tabname : Table Name
--> p_outputlen : Output Length
--> p_seltext_l : Field Name
--> p_no_out : No Output flag
FORM build_fieldcat USING p_col_pos TYPE sy-curow
p_fieldname TYPE slis_fieldname
p_tabname TYPE slis_tabname
p_outputlen TYPE dd03p-outputlen
p_seltext_l TYPE dd03p-scrtext_l
p_no_out TYPE c
p_hotspot TYPE c.
wa_fieldcat_alv-col_pos = p_col_pos.
wa_fieldcat_alv-fieldname = p_fieldname.
wa_fieldcat_alv-tabname = p_tabname.
wa_fieldcat_alv-outputlen = p_outputlen.
wa_fieldcat_alv-seltext_l = p_seltext_l.
wa_fieldcat_alv-no_out = p_no_out.
wa_fieldcat_alv-hotspot = p_hotspot.
APPEND wa_fieldcat_alv TO it_fieldcat_alv.
CLEAR wa_fieldcat_alv.
ENDFORM. " build_fieldcat
*& Form top_of_page
Top_of_page
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
i_logo = 'XANSA_LOGO'
it_list_commentary = it_listheader
I_END_OF_LIST_GRID =
I_ALV_FORM = 'X'
ENDFORM. " build_heading
*& Form get_events
Events.
FORM get_events .
wa_event-name = slis_ev_top_of_page.
wa_event-form = 'TOP_OF_PAGE'.
APPEND wa_event TO it_events.
CLEAR wa_event.
ENDFORM. " get_events
*& Form buil_comment
text
FORM buil_comment .
REFRESH it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'H'.
wa_listheader-info = 'DEMO EXAMPLE'.
APPEND wa_listheader TO it_listheader.
ENDFORM. " buil_comment
*& Form build_layout
Layout Settings
FORM build_layout.
wa_layout-zebra = 'X'.
ENDFORM. " build_layout
*& Form build_sortinfo
Sort Information
FORM build_sortinfo .
spos like alvdynp-sortpos,
fieldname type slis_fieldname,
tabname type slis_fieldname,
up(1) type c,
down(1) type c,
group(2) type c,
subtot(1) type c,
up like alvdynp-sortup,
down like alvdynp-sortdown,
group like alvdynp-grouplevel,
subtot like alvdynp-subtotals,
comp(1) type c,
expa(1) type c,
obligatory(1) type c,
wa_sortinfo-fieldname = 'MEINS'.
wa_sortinfo-tabname = 'IT_DATA'.
wa_sortinfo-subtot = 'X'.
APPEND wa_sortinfo TO it_sortinfo.
CLEAR wa_sortinfo.
ENDFORM. " build_sortinfo
*& Form user_command
Handle User command
FORM user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield.
SET PARAMETER ID 'AUN' FIELD rs_selfield-value.
CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
ENDFORM. "user_command
*& Form LIST_DISPLAY
Data in List display
FORM list_display .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
i_callback_program = v_report
I_CALLBACK_PF_STATUS_SET = ' '
i_callback_user_command = 'USER_COMMAND'
I_STRUCTURE_NAME =
is_layout = wa_layout
it_fieldcat = it_fieldcat_alv
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
it_events = 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
IR_SALV_LIST_ADAPTER =
IT_EXCEPT_QINFO =
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = itab
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. " LIST_DISPLAY
*& Form GRID_DISPLAY
Data in Grid Display
FORM grid_display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
i_callback_program = v_report
I_CALLBACK_PF_STATUS_SET = ' '
i_callback_user_command = '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 = wa_layout
it_fieldcat = it_fieldcat_alv
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
it_events = 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
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = itab
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. " GRID_DISPLAY
*& Form hier_display
Heirarchical display of Data.
FORM hier_display .
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
i_callback_program = v_report
I_CALLBACK_PF_STATUS_SET = ' '
i_callback_user_command = 'USER_COMMAND'
is_layout = wa_layout
it_fieldcat = it_fieldcat_alv
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
it_events = it_events
IT_EVENT_EXIT =
i_tabname_header = 'IT_HEAD'
i_tabname_item = 'IT_ITEM'
I_STRUCTURE_NAME_HEADER = 'IT_HEAD'
I_STRUCTURE_NAME_ITEM = 'IT_ITEM'
is_keyinfo = wa_keyinfo
IS_PRINT =
IS_REPREP_ID =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
IR_SALV_HIERSEQ_ADAPTER =
IT_EXCEPT_QINFO =
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab_header = it_head
t_outtab_item = it_item
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. " hier_display
*& Form set_keyinfo
Set key information
FORM set_keyinfo .
wa_keyinfo-header01 = 'VBELN'.
wa_keyinfo-item01 = 'VBELN'.
ENDFORM. " set_keyinfo
*& Form BUILD_CATALOG1
text
--> p1 text
<-- p2 text
FORM build_catalog1 .
wa_fieldcat_alv-fieldname = 'VBELN'.
wa_fieldcat_alv-tabname = 'IT_HEAD'.
wa_fieldcat_alv-outputlen = 20.
wa_fieldcat_alv-seltext_l = 'Sales Doc'.
wa_fieldcat_alv-no_out = ' '.
wa_fieldcat_alv-hotspot = 'X'.
APPEND wa_fieldcat_alv TO it_fieldcat_alv.
CLEAR wa_fieldcat_alv.
wa_fieldcat_alv-fieldname = 'VBELN'.
wa_fieldcat_alv-tabname = 'IT_ITEM'.
wa_fieldcat_alv-outputlen = 20.
wa_fieldcat_alv-seltext_l = 'Sales Doc'.
wa_fieldcat_alv-no_out = ' '.
wa_fieldcat_alv-hotspot = 'X'.
APPEND wa_fieldcat_alv TO it_fieldcat_alv.
CLEAR wa_fieldcat_alv.
wa_fieldcat_alv-fieldname = 'POSNR'.
wa_fieldcat_alv-tabname = 'IT_ITEM'.
wa_fieldcat_alv-outputlen = 6.
wa_fieldcat_alv-seltext_l = 'Item'.
wa_fieldcat_alv-no_out = ' '.
APPEND wa_fieldcat_alv TO it_fieldcat_alv.
CLEAR wa_fieldcat_alv.
wa_fieldcat_alv-fieldname = 'NETWR'.
wa_fieldcat_alv-tabname = 'IT_ITEM'.
wa_fieldcat_alv-outputlen = 20.
wa_fieldcat_alv-seltext_l = 'Net Price in Doc Curr'.
wa_fieldcat_alv-no_out = ' '.
wa_fieldcat_alv-do_sum = 'X'.
APPEND wa_fieldcat_alv TO it_fieldcat_alv.
CLEAR wa_fieldcat_alv.
wa_fieldcat_alv-fieldname = 'MATNR'.
wa_fieldcat_alv-tabname = 'IT_ITEM'.
wa_fieldcat_alv-outputlen = 20.
wa_fieldcat_alv-seltext_l = 'Mat Invoiced'.
wa_fieldcat_alv-no_out = ' '.
APPEND wa_fieldcat_alv TO it_fieldcat_alv.
CLEAR wa_fieldcat_alv.
wa_fieldcat_alv-fieldname = 'MEINS'.
wa_fieldcat_alv-tabname = 'IT_ITEM'.
wa_fieldcat_alv-outputlen = 4.
wa_fieldcat_alv-seltext_l = 'UoM'.
wa_fieldcat_alv-no_out = ' '.
APPEND wa_fieldcat_alv TO it_fieldcat_alv.
CLEAR wa_fieldcat_alv.
ENDFORM. " BUILD_CATALOG1
*& Form BUILD_CATALOG2
text
FORM build_catalog2 .
ENDFORM. " BUILD_CATALOG2
*& Form blockd_list
text
FORM blockd_list .
ENDFORM. " blockd_list
I hope this will help u. -
Hi, Can anyone tell me how can I pass values between two fields. I have a combobox feild in edit.uix and I want to pass this value to a text field in browse.uix. Can anyone tell me how can I do it.
Thanksadd a second form in your jsp.
and put this hidden field in it.
and post this new form. -
Passing value from field symbol / variable type ref to data to variable
hey ,
DATA: NODE_FLIGHTS TYPE REF TO IF_WD_CONTEXT_NODE.
DATA: RT_CARRID TYPE REF TO DATA.
FIELD-SYMBOLS: <FS_CARRID> TYPE TABLE
.* Retrieve the data from the select option
RT_CARRID = WD_THIS->M_HANDLER->GET_RANGE_TABLE_OF_SEL_FIELD( I_ID = 'S_WEIGHT).
Assign it to a field symbol
ASSIGN RT_CARRID->* TO <FS_CARRID>.
how can i pass RT_CARRID or <FS_CARRID> to a varible with type vbap-netgrw ( net weight ) ?
thanks
ASA>
ASA MOKED wrote:
> hey ,
>
>
> DATA: NODE_FLIGHTS TYPE REF TO IF_WD_CONTEXT_NODE.
> DATA: RT_CARRID TYPE REF TO DATA.
> FIELD-SYMBOLS: <FS_CARRID> TYPE TABLE
>
> .* Retrieve the data from the select option
> RT_CARRID = WD_THIS->M_HANDLER->GET_RANGE_TABLE_OF_SEL_FIELD( I_ID = 'S_WEIGHT).
> * Assign it to a field symbol
> ASSIGN RT_CARRID->* TO <FS_CARRID>.
create a work area of type <FS_CARRID>.
field-symbol: <fs_wa> type line of <FS_CARRID>.
loop at <FS_CARRID> into <fs_wa>.
lv_netgr = <fs_wa>-netgr. -
Assigning value to field in proxy report
Hello,
I am writing the abap report for sproxy.
The link to the field in structure is very long.
e.g. it-fault_message_mt-request-calldata-requester-gid = 'Z12345'.
In the structure one field in calldata is ADDITIONAL_ATTRIBUTE which is of table type.
I want to assign values to the fields of ADDITIONAL_ATTRIBUTE.
When I click on field ADDITIONAL_ATTRIBUTE we can see line type ZFAULT_MESSAGE_ADDITIONAL_ATTR and this line type is having NAME as on of the field.
I want to pass value to field NAME.
Regards,
NeelambariHi,
Create a work area as line type. and loop at table type into work area.
*wa like line type
*loop at table_type into wa.
*wa-name = Value.
*append wa to target table type.
****target table type structure should be same as that of source table type. *****
Sachin -
Mapping isssue for two fields must be checked and passed to target field
Hi all
I am using IDOCS, ORDERS05, in which i have shipment country in header level and Item level,
so in my mapping i must check if i shipment exist in item level , if it exists it should pass to target field, and if doesnot exist it should pass the header level data , is it possiable in graphical mapping , please help me
thanking you
Sridhar>
sridhar loganathan wrote:
> Hi all
> I am using IDOCS, ORDERS05, in which i have shipment country in header level and Item level,
> so in my mapping i must check if i shipment exist in item level , if it exists it should pass to target field, and if doesnot exist it should pass the header level data , is it possiable in graphical mapping , please help me
> thanking you
> Sridhar
yes.
lets call the item level shipment as itemshipment and the header level as headershipment.
the logic will be;
itemshipment
|
itemshipment --- *exist* *if -- then* - TargetField
|
*else* - headershipment -
Pass value to a field dynamically..
Hi Experts,
Can any one solve this issue?.
I want to pass value to different fields dynamically..
Egu2026
I have work are having fields
lwa_table-var1,
lwa_table-var2,
lwa_table-var3,
lwa_table-var4,
u2026.. up to lwa_table-var100.
My logic is I have to pass l_tot value .. based on the last letter like below.
if l_tot value is 1 we have pass to lwa_table-var1
if l_tot value is 2 we have pass to lwa_table-var2
if l_tot value is 3 we have pass to lwa_table-var3
if l_tot value is 100 we have pass to lwa_table-var100.
<removed_by_moderator>
Thanks in advance.
Regards,
Kumar.
Edited by: Julius Bussche on Aug 12, 2009 8:41 AMHi Friend,
U can do Following.....
data: text(12) type c.
data : num type n.
data: int type i.
data: begin of wa_test,
var1,
var2,
var3,
var4,
end of wa_test.
FIELD-SYMBOLS <fs_wa> TYPE ANY.
do 4 times.
int = int + 1.
num = int.
CONCATENATE 'wa_test-' 'var' num into text.
ASSIGN (text) to <fs_wa>.
<fs_wa> = num.
UNASSIGN <fs_wa>.
enddo.
write : wa_test-var1 , wa_test-var2 , wa_test-var3 ,wa_test-var4 .
ouput will be : 1 2 3 4.
Lets take Your Scenario----
>>>>>>>>>>>>>>>>>
Data: begin of lwa_table,
Var1,
Var2,
Var3,
u2026..
u2026u2026
Var100,
End of lwa_table.
Data: l_tot type i.
u2022 For example l_tot = 36.
u2022 Then u want to pass the same to lwa_table36.
For this do followingu2026..
Now Define-->>>
data: text(13) type c.
data : num type n.
FIELD-SYMBOLS <fs_wa> TYPE ANY.
*Now till now we done all the data definitions now u have to do following to pass it dynamically,
l_tot = 36.
Num = l_tot.
CONCATENATE lwa_table-' 'var' num into text.
ASSIGN (text) to <fs_wa>.
<fs_wa> = num.
UNASSIGN <fs_wa>.
Write : lwa_table-var36.
Output will be 36.
Hope this resolves ur issue,
Regards,
Akash Rana
Edited by: AKASH RANA on Aug 12, 2009 8:53 AM -
How to pass variable value to field of standard sap transaction.
Hi Experts,
i want to pass the value of variable to field of standard sap transaction. but that field is not having the parameter ID. so please tell me how i pass the value to field.
thanks in advance.You might like to provide a few more details of which field and transaction you are trying to interact with... typical solutions involve user exits / BAdIs / Enhancements, or transaction variants, or building a BDC to part fill the screens of the Tcode you are calling.
Jonathan -
Regarding how to pass values to the fields of a screen.
Hi all :
there is a field called approver on screen. I'd like to pass value to it ,
may I use the statement like approver-text = 'xxx'. ?
is this ok?
Thanks for any of your reply.Hi,
Parameters: p_name type char20 default 'XXX'.
you can give like this.
or
parameters: p_name type char20.
Initialization.
p_name = 'XXX'.
both these will work
regards
Sarves -
How to pass values in dynamic fields in LX03
HI ,
i want to pass values for dyanmic fields in lx03 program by calling this in my own program through call transction or submit report .LX03 is the report program so you have to use Submit report.
See the simple example :
REPORT ZTEST_98 .
DATA: t_param LIKE rsparams OCCURS 10 WITH HEADER LINE.
parameters p_LGNUM like lagp-lgnum obligatory.
start-of-selection.
t_param-selname = 'S1_LGNUM'.
t_param-kind = 'P'.
t_param-low = p_lgnum.
APPEND t_param.
*-- Period
SUBMIT RLS10030 VIA SELECTION-SCREEN
WITH SELECTION-TABLE t_param
AND RETURN.
Just press F1 on submit and you get good documentation.
Thanks
Seshu -
Passing a table-field value in Crystal to a Store Procedure in SQL Server
I have been checking all over the interenet via searches and although some seem to come close to this, its still not what I want.
Essentially I need to pass value from Table-Field record (for each record read/selected) via a paramete to a Stored Procedure(SP) in SQL Server 2205/2008. I do NOT want to be prompted for a value for this parameter each time the report is run, simple pass the value in which will be used along with other select criteria to bring back one value for the report to use in a calcuation per record.
The value of the parameter is a date, but I understand it would be better to pass it in as a varchar(8) - 'YYYYMMDD' - and then reconvert it inside the SP, as follows:
In Crystal Reports 2008 SP3, I have a formula defined as,
trans_date = ToText ({F1ARS_STMT_WS_TRAN.TRANS_DATEI}, 'YYYYMMDD')
and essential just want to pass this to the SP below ... i.e. trans_date ---> @strTransDate
I then link the key fields [EXCH_RATE_TABLE_NAME] and [TRANS_CCY_CODE] to other tables in the Database Expert, and put [EXCH_RATE_AMT] on the report and use it to calculate what I want.
This works fine when the prompt comes up and I put in a proper date, but I don't what it to prompt, but simple pass the F1ARS_STMT_WS_TRAN.TRANS_DATEI in via the fornula/parameter and let teh SQL do the rest for each record selected..
CREATE PROCEDURE [dbo].sp_GET_EXCH_RATE_AMT (@strTransDate varchar(8)) --use format 'YYYYMMDD' to represent the date as a string.
-- Add the parameters for the stored procedure here
-- @TransDate datetime = now
AS
declare @TransDate datetime
set @TransDate = CONVERT(DATETIME, @strTransDate, 112)
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;
-- Insert statements for procedure here
SELECT [EXCH_RATE_TABLE_NAME], [TRANS_CCY_CODE], [EXCH_RATE_AMT]
FROM [F1CCY_EXCH_RATE]
WHERE [MAJOR_CCY_CODE] = 'BBD'
AND [START_DATEI] =
SELECT MAX([START_DATEI])
FROM [F1CCY_EXCH_RATE]
WHERE [MAJOR_CCY_CODE] = 'BBD'
AND [START_DATEI] <= @TransDate
END
GO
GRANT EXECUTE ON sp_GET_EXCH_RATE_AMT TO PUBLIC
GO
Thanks for any help. Can't tell the headache this has caused my both literally and figuratively.Hello,
I moved your post to the Report Design forum. Lots of SQL help in here...
I believe the problem is due to you using a Parameterized Stored Procedure. The first thing CR has to do is connect to your DB source which requires the date parameter before it can run the query to add the date filter, it's the SP that is prompting for the parameter. Therefore the report has not run so it can't get the field value from the report until you fill in the info for the SP. Catch 22 problem.... Which came first, the Chicken or the Parameter....
The report will work as you have noted but I don't know of anyway to refresh unless parameter is filled in again....
Jason has a lot of great solutions when it comes to these dilemmas, Possibly using a Command Object may help but I believe you will still run into the same issue....
Only way I can think of is to not use a parameter in the SP and let CR do the filtering client side. Of course this means all data is coming back to the client PC as you are likely trying to find a work around for.
Thank you
Don -
I need to pass value for Actual GI date field in VL01N t code, I am using BAPI_DELIVERYPROCESSING_EXEC. can any one tell me how can i pass vaule ?
Hi Abdul,
Sorry for my unprecise answer, but you talk about a tcode, but you're using a BAPI Call. Maybe you want to call the transaction in batch mode?
http://help.sap.com/saphelp_erp60_sp/helpdata/de/fa/09715a543b11d1898e0000e8322d00/content.htm
Regards,
Franz -
Passing values from function to unbound field on report
i've created a function to calculate certain values. i would like those values to be assigned to fields i've put on the report (these fields have no source) at runtime. how is this done. i've tried the ':' used for binding variables (parameters)...but in this case, it's not a 'parameter' in that sense.
How about using placeholders? Take a look at the online help for placeholders as it sounds like it should fit your needs. You can have a formula column that calls the function and sets the values of the placeholders. However, please note that if the function sets the placeholders directly, the placeholders will have a indirect dependency on the formula column and this could cause problems at run time. You will need to use srw.reference to establish a direct dependency in that case. srw.reference is also in the online help. If you run into problems, Support should be able to assist you with this.
Hope that helps, Toby -
Hi All,
I have written BDC, in which when i pass value for second screen "Description type field" it's passing '*************************' instead of internal table value.
It's picking correct value for first internal table value. Could anyone please give an idea why it's happening?
Please find the code:
LOOP AT it_record.
header data for BDC
AT NEW CLASS.
IF sy-tabix <> 1.
perform bdc_dynpro using 'SAPLCLMO' '7777'.
perform bdc_field using 'BDC_OKCODE'
'=SAVE'.
CALL TRANSACTION 'CLWM' USING bdcdata
MODE p_mode
UPDATE 'S'
MESSAGES INTO messtab.
clear : bdcdata[],bdcdata.
ENDIF.
perform bdc_dynpro using 'SAPLCLMO' '0200'.
perform bdc_field using 'BDC_CURSOR'
'RMCLM-CLASS'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'RMCLM-CLASS'
it_record-class.
perform bdc_dynpro using 'SAPLCLMO' '7777'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'BDC_CURSOR'
'RMCLM-KLBEZ'.
perform bdc_field using 'RMCLM-KLBEZ'
it_record-klbez.
perform bdc_field using 'RMCLM-STATU'
'1'.
perform bdc_dynpro using 'SAPLCLMO' '7777'.
perform bdc_field using 'BDC_OKCODE'
'=MERK'.
perform bdc_field using 'BDC_CURSOR'
'RMCLM-KLBEZ'.
perform bdc_field using 'RMCLM-KLBEZ'
it_record-klbez.
perform bdc_field using 'RMCLM-STATU'
'1'.
MOVE 1 TO IDX.
ENDAT.
line item data for BDC
perform bdc_dynpro using 'SAPLCLMO' '7777'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'BDC_CURSOR'
'RMCLM-RELEV(02)'.
CONCATENATE 'RMCLM-MERKMA(' IDX ')' INTO FNAM.
perform bdc_field using FNAM
it_record-merkma.
CONCATENATE 'RMCLM-RELEV(' IDX ')' INTO FNAM.
perform bdc_field using FNAM
it_record-relev.
IDX = IDX + 1.
ENDLOOP.
Thanks,
UjjwalHi Ujjwal
The reason behind this is that you are using AT NEW.... ENDAT block in your coding.
When you use AT NEW field statements, the fields in the work area after the field get converted into ********.
Check values in your work area I_RECORD in debugging inside AT NEW statement and you will understand what I am saying.
In your case all the fields from header line of I_RECORDS which come after field CLASS are getting converted into *******,
hence the error.
Try using a temporary work area, say w_record. Pass value of I_record to w_record before AT NEW statement.
And use w_record-fields instead of I_record-fields. And your program should work. -
Passing value to a field of SAP Program which do not have "Parameter ID"
Dear Experts,
My requirement is that i need to pass a value from my dialog program to a field of SAP Program which do not have "Parameter ID" attached to it.
For example: If you run SAP Transaction CS14, it has two sections viz., Primary BOM and Secondary BOM. I need to copy and create own screen using Dialog program. The screen appears in custom screen would be similar to that of the SAP Transaction CS14. If you check the fields, all the fields have "Parameter ID" attached to it, except for the following fields which do not have Parameter IDs are "Alternative", "Valid From" and "Required Qty".
Hence how do i pass value to those fields? Kindly help me
To those fields where "Parameter IDs" are attached, i can use below two statements:
Set parameter id <par> field <field>.
call transaction 'CS14' and skip first screen.
Regards,
Ramesh ManoharanHi Harald Boeing,
Thanks you very much. My problem is solved.
Rewarded Points.
Regards,
Ramesh Manoharan
Maybe you are looking for
-
How to get back the deleted request.
Hi BW gurus, I was having a problem in ZFIGL_01 cube. 1 request was showing some error so i deleted that request without changing its status from green to red. i then loaded the data again and now its not allowing me to activate th
-
How can I stop Firefox from loading automatically when I startup my computer?
A while ago I setup Windows so Outlook and Firefox opened automatically when I log on. Now I want to stop FF from opening automatically. I have gone into the Startup folder and removed the shortcut to FF several times but it keeps coming back. I chan
-
Pre-requisites to withholding tax reporting
We have configured the extended withholding tax. Transactions are being posted with withholding tax. Now, we want to test the withholding tax reporting. How do we go about it? Is there any additional step prior to running the report? Thanks in advanc
-
Oracle Database 10g Enterprise Edition Release 10.2.0.1.0 dbws-callout-utility 10.1.3.1 JPublisher 10g Release 10.2 Generating command: ./jpub -u reklaam/pswd -proxywsdl=http://auster.mbp.ee:8082/Service.asmx?WSDL -endpoint=http://auster.mbp.ee:8082/
-
Oracle RAC Installation: Unix nodes, Windows ASM
I have a question about configuring Oracle RAC. I have never done any RAC or ASM installation before. Might be a stupid question for some of you. Is it possible to install Oracle RAC using following options? 2 node RAC using Sun Solaris Shared Storag