Hide some values of Dropdown in Standard ALV Webdynpro Component
Hello Webdynpro Gurus.
I have got one requirement that i have to hide the some values of Drop down in Standard ALV Webdynpro Component?
Thanks in Advance
Regards
Sumit
It seems to be a Parameter Transaction so Transaction Variant could not Work for this.
You can create variants only for Dialog transactions.
Similar Messages
-
Hide the value of certain cells in ALV GRID
Hello Gurus,
i need to hide the value or show a icon instead ib certain cells in the ALV GRID for the users that don't have the corresponding rights. Can anyone help?
Regards,
Ioan Constantin.Check this example, you'll need to adjust it to your authority object to run it.
TYPES: BEGIN OF t_alv,
mandt TYPE s_mandt,
carrid TYPE s_carr_id,
connid TYPE s_conn_id,
fldate TYPE s_date,
price TYPE s_price,
currency TYPE s_currcode,
planetype TYPE s_planetye,
seatsmax TYPE s_seatsmax,
seatsocc TYPE s_seatsocc,
paymentsum TYPE s_sum,
seatsmax_b TYPE s_smax_b,
seatsocc_b TYPE s_socc_b,
seatsmax_f TYPE s_smax_f,
seatsocc_f TYPE s_socc_f,
planetype2 TYPE s_planetye,
END OF t_alv.
DATA: go_alv TYPE REF TO cl_gui_alv_grid,
gt_sflight TYPE TABLE OF sflight,
gt_alv TYPE STANDARD TABLE OF t_alv,
wa_fl TYPE sflight,
wa_fl2 TYPE t_alv,
gt_fieldcat TYPE lvc_t_fcat,
wa_fcat TYPE lvc_s_fcat.
FIELD-SYMBOLS <gs_fcat> TYPE lvc_s_fcat.
SELECTION-SCREEN BEGIN OF SCREEN 1001.
SELECTION-SCREEN END OF SCREEN 1001.
START-OF-SELECTION.
SELECT * FROM sflight INTO TABLE gt_sflight.
LOOP AT gt_sflight INTO wa_fl.
wa_fl2 = wa_fl.
IF sy-tabix <> 5.
wa_fl2-planetype2 = wa_fl2-planetype.
ENDIF.
APPEND wa_fl2 TO gt_alv.
ENDLOOP.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'SFLIGHT'
CHANGING
ct_fieldcat = gt_fieldcat.
LOOP AT gt_fieldcat ASSIGNING <gs_fcat>.
wa_fcat = <gs_fcat>.
IF wa_fcat-fieldname = 'PLANETYPE'.
wa_fcat-fieldname = 'PLANETYPE2'.
wa_fcat-col_pos = 7.
AUTHORITY-CHECK OBJECT 'ZPERMISO16'
ID 'ZPERMI' FIELD '01'.
IF sy-subrc = 0.
wa_fcat-tech = 'X'.
wa_fcat-no_out = 'X'.
ELSE.
<gs_fcat>-tech = 'X'.
<gs_fcat>-no_out = 'X'.
ENDIF.
APPEND wa_fcat TO gt_fieldcat.
ENDIF.
ENDLOOP.
CREATE OBJECT go_alv
EXPORTING
i_parent = cl_gui_container=>screen0.
CALL METHOD go_alv->set_table_for_first_display
CHANGING
it_outtab = gt_alv
it_fieldcatalog = gt_fieldcat .
CALL SELECTION-SCREEN 1001. -
How to get selected-value of dropdown-field in alv ?
Hello experts,
I have a alv-table with dropdown-field.
When I open the dropdown I am able to select another value.
Now I use method ON_CLICK with ON_CELL_ACTION, and when
I change value in my alv, system jumps into this mehtod.
But how do I get now the selected dropdown value in this method ?
I use following code in comp-wdini in order to declare the dropdown:
Dropdownfield
DATA: lr_dp TYPE REF TO cl_salv_wd_uie_dropdown_by_key.
DATA: lr_node TYPE REF TO if_wd_context_node_info.
DATA: lt_valueset TYPE wdr_context_attr_value_list.
DATA: ls_valueset TYPE wdr_context_attr_value.
DATA : lr_nodeinfo TYPE REF TO if_wd_context_node_info.
DATA wa TYPE cdbc_tj30t.
DATA: lr_drdn_by_index TYPE REF TO cl_salv_wd_uie_dropdown_by_idx.
SELECT * FROM cdbc_tj30t INTO wa WHERE stsma = 'CRMOPPOR' AND
spras = 'DE'.
ls_valueset-value = wa-estat. " actual values
ls_valueset-text = wa-txt30. " text displaying on the dropdown
APPEND ls_valueset TO lt_valueset.
ENDSELECT.
LOOP AT lt_columns INTO ls_column.
CASE ls_column-id.
WHEN 'CONCATSTATUSER'.
CREATE OBJECT lr_drdn_by_index
EXPORTING
selected_key_fieldname = ls_column-id.
lr_drdn_by_index->set_valueset_fieldname( 'VALUESET' ).
lr_drdn_by_index->set_type( if_salv_wd_c_uie_drdn_by_index=>type_key_value ).
ls_column-r_column->set_cell_editor( lr_drdn_by_index ).
ENDCASE.
ENDLOOP.
In view-ini I fill the table which is bound to my alv-table:
LOOP AT lt_list_opportunities INTO lstru_list_opportunities
WHERE status = ls_opportunity_status-estat AND
valid_to <= ls_input-bdate AND valid_from >= ls_input-vdate.
ls_opportunities-valueset = lt_valueset.
MOVE-CORRESPONDING lstru_list_opportunities TO ls_opportunities.
APPEND ls_opportunities TO ltt_list_opportunities.
ENDLOOP.
lo_nd_opportunities = wd_context->get_child_node( name =
wd_this->wdctx_opportunities ).
lo_nd_opportunities->bind_table( new_items = ltt_list_opportunities ).
HOW can I now get the slected dropdown values in ON_CLICK with ON_CELL_ACTION method ?
Thanks for answers !!
GerdHello Abap,
when I have selected the value in the dropdown-box, then the event should start, and then I should have the
selected values of the dropdown box.
Hope you can help me !
Gerd -
Hide some column of the node in ALV
Hi experts,
I have one requirement in which the node contains 10 attribute,but i have to show only 5 attribute in ALV Table.
Can u plz tell me how i can do this.
Thanks
MaheshHi,
Try like this..
Declare ALV config table
data: ALV_CONFIG_TABLE type REF TO CL_SALV_WD_CONFIG_TABLE.
DATA: wd_table_usage TYPE REF TO if_wd_component_usage.
Create an instance of ALV component created ALV_COMP is usage name
wd_table_usage = wd_this->wd_cpuse_alv_comp( ).
IF wd_table_usage->has_active_component( ) IS INITIAL.
wd_table_usage->create_component( ).
ENDIF.
Get ALV component
DATA: wd_table TYPE REF TO iwci_salv_wd_table.
wd_table = wd_this->wd_cpifc_alv_comp( ).
alv_config_table = wd_table->get_model( ).
Declare variable to store column details
DATA: column_settings TYPE REF TO if_salv_wd_column_settings,
column TYPE REF TO cl_salv_wd_column.
column_settings ?= alv_config_table.
*HIDE COLUMNS *
column = column_settings->get_column( 'MANDT' ).
column->set_visible( if_wdl_core=>visibility_none ).
OR
If you want Delete Columns.
From the refernc eof CL_SALV_WD_CONFIG_TABLE you can access the method
CALL METHOD LR_FUNCTION_SETTINGS->IF_SALV_WD_COLUMN_SETTINGS~DELETE_COLUMN
EXPORTING
ID = ls_column-id.
Cheers,
Kris. -
Disabling/greying out some values in dropdown list
Hi All -
I have a dropdown select list (LOV from a table) and it lists all the employees and contractors from a table.
How do I greyout/disable contractors only i.e. user shouldn't be able to select the contractor from the list but it should be displayed in the dropdown list.
I am using ApEx 3.2 version.
Please share your expertise.
-SeenuI wasn't going to comment first, but next time search the forums before posting a question and then when it is necessary to post, please give people adequate time to respond. Oracle's forums were having technical problems which prevented me from posting earlier -- not that a 4 hour turn around is bad for free advice anyway....
My original planned response:
Patrick's response in this thread helped me:
Select List With Heading
I spiced it up a bit by actually changing the color of the option within the select list...
I added
<style>
.graySelect
color: gray;
font-size: 12px;
</style>
to the HTML Header and
modified Patrick's query by using something similar to (took my solution and put it in his example):
, JOB_ID||DECODE(JOB_ID, 'AC_MGR', '" class="graySelect" disabled="disabled') AS R
But you need to account for differences in browsers...
1) firefox (version 3 from my testing) will not let you select the disabled/grayed out option...
2) internet explorer (version 6 from my testing) WILL let you select the disabled option...it actually then sends in a NULL value for that HTTP POST parameter...so as patrick says you will need to have a page item validation to make sure they didn't submit a gray option (and return an error if they did)...
good luck! -
How to edit text of UI elements in sap standard ABAP webdynpro component
Hi All,
I have a requirement wherein I want to change the standard text of mainly LABEL UI in travel and expenses ABAP webdynpro components. As per my knowledge we canu2019t change UI text directly by changing it in layout in enhancement. We have to do it via wdmodify view method and post and pre exits methods.
Can you please help me with the steps that I have to follow and code?
Regards,
MadhvikaHi ,
Please go through this document.
[Doc|http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/700317da-bd79-2c10-368e-8f18bf5d8b81?quicklink=index&overridelayout=true]
Create a Pre Exit method for WDDOMODIFY method of the view , and in that method code somthing like this.
lo_button TYPE REF TO cl_wd_button.
lo_button ?= view->get_element( 'ID of button' ).
lo_button->set_text('New Text').
Thanks,
Aditya. -
How to Collapse standard MDM WD component trays?
Hi All,
I want to collapse some of the trays of Standard MDM WD component when loading the page. Is that possible through code? I know it is possible in custom trays. But I've no idea about standard components. Any help is highly appreciated.
Thanks & Regards,
ManojHi Manojkumar,
I checked your question with the MDM WD component experts and following is the answer provided by them
Collapse some of the trays… - not sure which trays are meant
But if the tray is a container of some MDM WD Component (e.g. Search), then usually customer can:
1. Add a 'ViewContainerUIElement' in his custom view to hold the interface view of the search.
2. Wrap this ViewContainer with a Tray UI element.
3. Control the try collapse with his custom code.
Please can you try this.
Regards,
Karthika S. -
Standard Webdynpro Component for Sales Order / Quotations ?
Hello Experts,
Is there any standard ABAP Webdynpro Component available for Sales orders / Quotations etc. ?
Else we have to create everything customized for the customers ?
Regards,
Ravi SharmaLORD_MAINTAIN - for sales order maintenance. Shipped with ERP 6.0 (no enhancement packages required - although there are improvements in the later enhancement packages).
-
Hide some cells while displaying ALV GRID !
Hi guyz!
Back with lill query,
While displaying ALV GRID using REUSE_ALV_GRID... FMs ,i need to hide
some cells by default, when the lists is generated.But those cells should
be availble to be displayed by the user from ALV layout settings.
Please advise
Thanks
jahanHi, Check for fm documentation.
Only relevant if layout parameter
LAYOUT-GET_SELINFOS of IMPORTING structure IS_LAYOUT is set.
Complex type for modifying information displayed on the selection dialog box:
mode: 'R' = Only entries passed in internal table
IS_SEL_HIDE-T_ENTRIES are output on
the dialog box. Selection information
obtained by the list tool by reading the
selection screen again (only if the report
is called with selection screen) are
replaced by the entries passed.
'S' = The selection information obtained by the
list tool by reading the selection screen
of the calling report again, are modified
by the entries of table
IS_SEL_HIDE-T_ENTRIES.
t_entries: Table with selection information
t_entries-mode: 'A' = Display selection information of the current
table row on the information dialog box.
'D' = Do not display selection information of the
the Select option or of parameter SELNAME
on the dialog box.
t_entries-selname: (required only if t_entries-mode = 'D')
name of Select option or parameter
The following table fields are only required if t_entries-mode = 'A'. They contain the selection information to be added.
t_entries-field: DDIC field name of the field for which selection
information is to be displayed
t_entries-table: DDIC table name of t_entries-field.
t_entries-stext: Field description on the information dialog box.
If t_entries-field and t_entries-table were
filled, this text is taken from the DDIC.
t_entries-valuf: Selection condition from-value (external format)
t_entries-valut: Selection condition to-value (external format)
t_entries-sign0: (I)nclusive (E)xclusive
t_entries-optio: All values of the option field of the Select
option are allowed.
The remaining fields are used internally and are irrelevant to the caller.
aRs -
Is there a way to hide some reports based on the selected values in prompt.
Hi Experts,
Is there a way to hide some reports based on the selected values in prompt.
For ex. if a year is selected in the prompt then the report should display year wise report.
If a year and half year both are selected in the drop down from prompt section then 2 reports should come.. One for year wise and another for half year wise.Kindly look into this.
Regards
AshishHi,
Use presentation values in prompts for year,half,qtr and month.Example- For year-y is presentation variable in the same way for halfyear-h,qtr-q and month-m.
create four intermediate reports.Example-Report r1 with only year column,r2 with only halfyear column,r3 with qtr column and r4 with month column.
Make column in each report(r1,r2,r3,r4) is equal to their presentation variables(y,h,q,m).
Use four sections.
Section1-Place report that should come when only year.
section2-Place report that should come for year and halfyear.
Section3-Place report that should come for year,halfyear and qtr.
Section4-Place report that should come for year,halfyear,qtr and month.
Apply guided navigation for each section selecting guided navigation-
For section1-
properties->Guided navigation->check this Reference Source Request(Yes)->select report r1(year)->check this Show Section(if request returns row)
In the same way do for remaining section2(select r2),section3(select r3) and section4(select r4)
Thanks,
Srikanth
http://bintelligencegroup.wordpress.com/ -
To hide some headings in top of page during sorting of fields...
dear experts,
I have a report in which i am fetching multiple company codes in report and in o/p they are displayed according to company codes, but during sorting of any field in list i want to hide some of the headings in top of page...for any of the radio buttons the headings which i want to hide are...
1) company code
2) opening balance and
3) closing balance
please help...my code is as follows...
TYPE-POOLS:slis.
TABLES:bkpf,bseg,kna1,bsid.
TYPES:BEGIN OF ty_bsad,
bukrs TYPE bsad-bukrs,
gjahr TYPE bsad-gjahr,
kunnr TYPE bsad-kunnr,
belnr TYPE bsad-belnr,
budat TYPE bsad-budat,
xblnr TYPE bsad-xblnr,
bldat TYPE bsad-bldat,
augdt TYPE bsad-augdt,
dmbtr type bsad-dmbtr,
END OF ty_bsad.
TYPES:BEGIN OF ty_kna1,
kunnr TYPE kna1-kunnr,
name1 TYPE kna1-name1,
city TYPE kna1-ort01,
END OF ty_kna1.
TYPES:BEGIN OF ty_knb1,
kunnr TYPE knb1-kunnr,
bukrs TYPE knb1-bukrs,
vzskz TYPE knb1-vzskz,
END OF ty_knb1.
TYPES:BEGIN OF ty_bkpf,
bukrs TYPE bkpf-bukrs,
gjahr TYPE bkpf-gjahr,
hwaer TYPE bkpf-hwaer,
kursf TYPE bkpf-kursf,
bktxt TYPE bkpf-bktxt,
belnr TYPE bkpf-belnr,
budat TYPE bkpf-budat,
xblnr TYPE bkpf-xblnr,
bldat TYPE bkpf-bldat,
waers TYPE bkpf-waers,
END OF ty_bkpf.
TYPES:BEGIN OF ty_bsid,
bukrs TYPE bsid-bukrs,
gjahr TYPE bsid-gjahr,
kunnr TYPE bsid-kunnr,
belnr TYPE bsid-belnr,
budat TYPE bsid-budat,
xblnr TYPE bsid-xblnr,
bldat TYPE bsid-bldat,
augdt TYPE bsid-augdt,
dmbtr type bsid-dmbtr,
END OF ty_bsid.
TYPES:BEGIN OF ty_bseg,
bukrs TYPE bseg-bukrs,
gjahr TYPE bseg-gjahr,
belnr TYPE bseg-belnr,
kunnr TYPE bseg-kunnr,
werks TYPE bseg-werks,
umskz TYPE bseg-umskz,
zuonr TYPE bseg-zuonr,
dmbtr TYPE bseg-dmbtr,
zbd1t TYPE bseg-zbd1t,
sgtxt TYPE bseg-sgtxt,
shkzg TYPE bseg-shkzg,
zterm TYPE bseg-zterm,
zfbdt TYPE bseg-zfbdt,
END OF ty_bseg.
TYPES:BEGIN OF ty_open,
bukrs TYPE bsid-bukrs,
shkzg TYPE bsid-shkzg,
dmbtr TYPE bsid-dmbtr,
umskz TYPE bsid-umskz,
END OF ty_open.
**Main internal Table
**For both open & cleared Customer
DATA:BEGIN OF it_main_all OCCURS 0,
bukrs TYPE bsad-bukrs,
gjahr TYPE bsad-gjahr,
kunnr TYPE bsad-kunnr,
belnr TYPE bsad-belnr,
budat TYPE bsad-budat,
xblnr TYPE bsad-xblnr,
bldat TYPE bsad-bldat,
augdt TYPE bsad-augdt,
dmbtr type bsad-dmbtr,
hwaer TYPE bkpf-hwaer,
kursf TYPE bkpf-kursf,
bktxt TYPE bkpf-bktxt,
name TYPE kna1-name1,
city TYPE kna1-ort01,
vzskz TYPE knb1-vzskz,
lights TYPE c,
END OF it_main_all.
**For Opening balance
DATA:BEGIN OF it_main_open1 OCCURS 0,
bukrs TYPE bsid-bukrs,
opening TYPE p DECIMALS 2,
END OF it_main_open1.
**Internal tables
DATA : t_bsad TYPE STANDARD TABLE OF ty_bsad,
w_bsad TYPE ty_bsad,
t_bkpf TYPE STANDARD TABLE OF ty_bkpf,
w_bkpf TYPE ty_bkpf,
t_kna1 TYPE STANDARD TABLE OF ty_kna1,
w_kna1 TYPE ty_kna1,
t_knb1 TYPE STANDARD TABLE OF ty_knb1,
w_knb1 TYPE ty_knb1,
t_bsid TYPE STANDARD TABLE OF ty_bsid,
w_bsid TYPE ty_bsid,
t_bseg TYPE STANDARD TABLE OF ty_bseg,
w_bseg TYPE ty_bseg,
t_open TYPE STANDARD TABLE OF ty_open,
w_open TYPE ty_open.
**ALV display variables
DATA:fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
gd_layout TYPE slis_layout_alv,
gt_events TYPE slis_t_event,
gt_list_top_of_page TYPE slis_t_listheader,
heading TYPE slis_t_listheader,
g_save(1) TYPE c,
g_exit(1) TYPE c,
g_variant TYPE disvariant,
gx_variant TYPE disvariant,
it_sort TYPE slis_t_sortinfo_alv,
x_sort TYPE slis_sortinfo_alv.
**Selection Screens
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:s_bukrs FOR bkpf-bukrs OBLIGATORY,
s_gjahr FOR bkpf-gjahr OBLIGATORY NO-EXTENSION NO INTERVALS,
s_kunnr FOR bseg-kunnr OBLIGATORY NO-EXTENSION NO INTERVALS,
s_name1 FOR kna1-name1 NO-EXTENSION NO INTERVALS,
s_date FOR bkpf-budat OBLIGATORY,
s_umskz FOR bsid-umskz.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS:xnorm AS CHECKBOX DEFAULT 'X',
xshbv AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b3.
DATA:golive TYPE d VALUE '20080401',
date TYPE d,
date1 TYPE d,
closing TYPE p DECIMALS 2 VALUE 0,
opening TYPE p DECIMALS 2 VALUE 0.
**Start Of Selection
START-OF-SELECTION.
PERFORM get_data.
PERFORM events.
PERFORM f_layout.
PERFORM display.
FORM get_data .
**Open Customers master data
SELECT
bukrs gjahr kunnr belnr budat xblnr bldat augdt dmbtr
FROM bsid
INTO TABLE t_bsid
WHERE bukrs IN s_bukrs
AND gjahr IN s_gjahr
AND kunnr IN s_kunnr
AND budat IN s_date
AND umskz IN s_umskz.
**Clear Customers master data
SELECT
bukrs gjahr kunnr belnr budat xblnr bldat augdt dmbtr
FROM bsad
INTO TABLE t_bsad
WHERE bukrs IN s_bukrs
AND gjahr IN s_gjahr
AND kunnr IN s_kunnr
AND budat IN s_date
AND umskz IN s_umskz.
****Open Customers data
IF NOT t_bsid[] IS INITIAL.
SORT t_bsid BY bukrs bldat.
SELECT
bukrs gjahr hwaer kursf bktxt belnr
FROM bkpf
INTO CORRESPONDING FIELDS OF TABLE t_bkpf
FOR ALL ENTRIES IN t_bsid
WHERE bukrs = t_bsid-bukrs
AND gjahr = t_bsid-gjahr
AND belnr = t_bsid-belnr.
SORT t_bkpf.
SELECT
kunnr name1 ort01
FROM kna1
INTO TABLE t_kna1
FOR ALL ENTRIES IN t_bsid
WHERE kunnr = t_bsid-kunnr
AND name1 IN s_name1.
SORT t_kna1.
SELECT
kunnr bukrs vzskz
FROM knb1
INTO TABLE t_knb1
FOR ALL ENTRIES IN t_bsid
WHERE kunnr = t_bsid-kunnr
AND bukrs = t_bsid-bukrs.
SORT t_knb1.
LOOP AT t_bsid INTO w_bsid.
it_main_all-bukrs = w_bsid-bukrs.
it_main_all-kunnr = w_bsid-kunnr.
it_main_all-gjahr = w_bsid-gjahr.
it_main_all-belnr = w_bsid-belnr.
it_main_all-budat = w_bsid-budat.
it_main_all-xblnr = w_bsid-xblnr.
it_main_all-bldat = w_bsid-bldat.
READ TABLE t_bkpf INTO w_bkpf WITH KEY bukrs = w_bsid-bukrs gjahr = w_bsid-gjahr belnr = w_bsid-belnr BINARY SEARCH.
IF sy-subrc EQ 0.
it_main_all-hwaer = w_bkpf-hwaer.
it_main_all-kursf = w_bkpf-kursf.
it_main_all-bktxt = w_bkpf-bktxt.
ENDIF.
READ TABLE t_kna1 INTO w_kna1 WITH KEY kunnr = w_bsid-kunnr BINARY SEARCH.
IF sy-subrc EQ 0.
it_main_all-name = w_kna1-name1.
it_main_all-city = w_kna1-city.
ENDIF.
READ TABLE t_knb1 INTO w_knb1 WITH KEY kunnr = w_bsid-kunnr BINARY SEARCH.
IF sy-subrc EQ 0.
it_main_all-vzskz = w_knb1-vzskz.
ENDIF.
it_main_all-lights = '1'.
APPEND it_main_all.
CLEAR it_main_all.
CLEAR : w_bsid, w_bkpf, w_kna1, w_knb1.
ENDLOOP .
ENDIF.
**Clear customers data
IF NOT t_bsad[] IS INITIAL.
SORT t_bsad BY bukrs bldat.
SELECT
bukrs gjahr hwaer kursf bktxt belnr
FROM bkpf
INTO CORRESPONDING FIELDS OF TABLE t_bkpf
FOR ALL ENTRIES IN t_bsad
WHERE bukrs = t_bsad-bukrs
AND gjahr = t_bsad-gjahr
AND belnr = t_bsad-belnr.
SORT t_bkpf.
SELECT
kunnr name1 ort01
FROM kna1
INTO TABLE t_kna1
FOR ALL ENTRIES IN t_bsad
WHERE kunnr = t_bsad-kunnr
AND name1 IN s_name1.
SORT t_kna1.
SELECT
kunnr bukrs vzskz
FROM knb1
INTO TABLE t_knb1
FOR ALL ENTRIES IN t_bsad
WHERE kunnr = t_bsad-kunnr
AND bukrs = t_bsad-bukrs.
SORT t_knb1.
LOOP AT t_bsad INTO w_bsad.
it_main_all-bukrs = w_bsad-bukrs.
it_main_all-gjahr = w_bsad-gjahr.
it_main_all-kunnr = w_bsad-kunnr.
it_main_all-belnr = w_bsad-belnr.
it_main_all-budat = w_bsad-budat.
it_main_all-xblnr = w_bsad-xblnr.
it_main_all-bldat = w_bsad-bldat.
READ TABLE t_bkpf INTO w_bkpf WITH KEY bukrs = w_bsad-bukrs gjahr = w_bsad-gjahr belnr = w_bsad-belnr BINARY SEARCH.
IF sy-subrc EQ 0.
it_main_all-hwaer = w_bkpf-hwaer.
it_main_all-kursf = w_bkpf-kursf.
it_main_all-bktxt = w_bkpf-bktxt.
ENDIF.
READ TABLE t_kna1 INTO w_kna1 WITH KEY kunnr = w_bsad-kunnr BINARY SEARCH.
IF sy-subrc EQ 0.
it_main_all-name = w_kna1-name1.
it_main_all-city = w_kna1-city.
ENDIF.
READ TABLE t_knb1 INTO w_knb1 WITH KEY kunnr = w_bsad-kunnr BINARY SEARCH.
IF sy-subrc EQ 0.
it_main_all-vzskz = w_knb1-vzskz.
ENDIF.
it_main_all-lights = '3'.
APPEND it_main_all.
CLEAR : w_bsad, w_bkpf, w_kna1, w_knb1.
ENDLOOP .
ENDIF.
ENDFORM. " get_data
*& Form events
FORM events .
DATA : l_i_event TYPE slis_alv_event.
l_i_event-name = 'TOP_OF_PAGE' .
l_i_event-form = 'TOP2' .
APPEND l_i_event TO gt_events .
CLEAR l_i_event .
ENDFORM. " events
*& Form f_layout
FORM f_layout .
CLEAR gd_layout.
gd_layout-detail_popup = 'X'.
gd_layout-zebra = 'X'.
gd_layout-no_vline = ' '.
gd_layout-lights_fieldname = 'LIGHTS'.
gd_layout-colwidth_optimize = 'X'.
ENDFORM. " f_layout
*& Form display
FORM display .
fieldcatalog-fieldname = 'BUKRS'.
fieldcatalog-tabname = 'IT_MAIN_ALL'.
fieldcatalog-seltext_m = 'Company Code'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'GJAHR'.
fieldcatalog-tabname = 'IT_MAIN_ALL'.
fieldcatalog-seltext_m = 'Fiscal year'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'BELNR'.
fieldcatalog-tabname = 'IT_MAIN_ALL'.
fieldcatalog-seltext_m = 'Doc No.'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'BLDAT'.
fieldcatalog-tabname = 'IT_MAIN_ALL'.
fieldcatalog-seltext_m = 'Doc Date'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'BUDAT'.
fieldcatalog-tabname = 'IT_MAIN_ALL'.
fieldcatalog-seltext_m = 'Posting date'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'DMBTR'.
fieldcatalog-tabname = 'IT_MAIN_ALL'.
fieldcatalog-seltext_m = 'Amt in local cur.'.
fieldcatalog-do_sum = 'X'.
fieldcatalog-just = 'R'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
**For Subtotal of fields
x_sort-fieldname = 'BUKRS' .
x_sort-group = '*'.
x_sort-subtot = 'X'.
APPEND x_sort TO it_sort.
CLEAR x_sort .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = sy-repid
is_layout = gd_layout
it_fieldcat = fieldcatalog[]
it_sort = it_sort
i_default = 'X'
it_events = gt_events[]
TABLES
t_outtab = it_main_all
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.
*& Form top_of_page
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
i_logo = 'RUCHI_LOGO'
it_list_commentary = heading[].
ENDFORM.
*& Form opening
FORM opening USING p_bukrs TYPE bsid-bukrs.
DATA : opdate TYPE d.
IF s_date-low < golive.
opening = 0.
ELSE.
opdate = s_date-low - 1.
SELECT
bukrs shkzg dmbtr umskz
FROM bsid
INTO TABLE t_open
WHERE bukrs IN s_bukrs
AND kunnr IN s_kunnr
AND gjahr IN s_gjahr
AND budat <= opdate.
LOOP AT t_open INTO w_open.
IF w_open-shkzg = 'S'.
opening = opening + w_open-dmbtr.
ELSEIF w_open-shkzg = 'H'.
w_open-dmbtr = w_open-dmbtr * ( -1 ).
opening = opening + w_open-dmbtr .
ENDIF.
CLEAR : w_open.
ENDLOOP.
SELECT
bukrs shkzg dmbtr umskz
FROM bsad
INTO TABLE t_open
WHERE bukrs IN s_bukrs
AND kunnr IN s_kunnr
AND gjahr IN s_gjahr
AND budat <= opdate.
LOOP AT t_open INTO w_open.
IF w_open-shkzg = 'S'.
opening = opening + w_open-dmbtr.
ELSEIF w_open-shkzg = 'H'.
w_open-dmbtr = w_open-dmbtr * ( -1 ).
opening = opening + w_open-dmbtr.
ENDIF.
CLEAR w_open.
ENDLOOP.
ENDIF.
ENDFORM.
*& Form top2
FORM top2 .
date = s_date-low.
date1 = s_date-high.
WRITE : / 'CUSTOMER LEDGER FOR ALL ITEMS' COLOR 7.
WRITE : / 'Customer Code:', it_main_all-kunnr.
WRITE : / 'Customer Name:', it_main_all-name.
WRITE : / 'Customer City:', it_main_all-city.
ON CHANGE OF it_main_all-bukrs.
WRITE : / 'Company Code:' COLOR 3 , it_main_all-bukrs COLOR 3.
PERFORM opening USING it_main_all-bukrs.
PERFORM closing USING it_main_all-bukrs.
WRITE : / 'Opening Balance : Rs.' , opening .
WRITE : / 'Closing Balance : Rs.' , closing .
ENDON.
CLEAR : closing, opening.
IF date1 IS INITIAL.
WRITE : / 'Date:', date DD/MM/YYYY.
ELSE.
WRITE : / 'Date:' , date DD/MM/YYYY, ' to ', date1 DD/MM/YYYY.
ENDIF.
ENDFORM.
*&Form closing
FORM closing USING c_bukrs TYPE bsid-bukrs.
LOOP AT it_main_all WHERE bukrs = c_bukrs.
closing = closing + it_main_all-dmbtr.
ENDLOOP .
closing = closing + opening .
ENDFORM.
Edited by: Vishu on Apr 20, 2009 9:32 AMit can be done with the help of a system code 'sy-xcode'. it is initialised the time list is sorted so just keeping a check point, we can solve this problem.
Vishu Khandelwal -
Selection screen PNPCE - hide som options
Hi group,
We have an infoset based on LDB PNPCE. We create queries that we assign to transaction codes for end users. So far so good. However, in the selection screen, we would like to hide some options.
Output format.
Hide the expand button. We want the user to be able to choose layout setting, but not to choose all the other options when you expand (like ABC-analysis).
Dynamic selection
We would like to hide this button as well. But not as important.
Any suggestions appreciated.
KirstenHi,
For the ALV output format control, you can look at standard auth. object S_ALV_LAYO. A value of 23 gives maintenance access within this and this controls whether you can change ALV options. Iu2019m not entirely sure though; please consult with your security team.
Maybe auth. object S_SCR for dynamic selection.
Hope this gives you a starting point.
Donnie -
Hi,everyone.
I have a problem with dropdown field in alv .
When i set some fields dropdown in alv created by oo.
i can't input words in this field . can anyone give me some advice?
ths!Hi,
steps..
1. X_FIELDCAT-DRDN_HNDL = '1'. "pass this to the field you want to show as drop down
2.
DATA: X_OCRC LIKE LINE OF IT_OCRC.
DATA:LT_DRAL TYPE LVC_T_DRAL,
LS_DRAL TYPE LVC_S_DRAL.
LOOP AT IT_OCRC INTO X_OCRC.
* First listbox (handle '1').
IF SY-INDEX = 1.
LS_DRAL-HANDLE = '1'.
LS_DRAL-VALUE = ' '.
LS_DRAL-INT_VALUE = ' '.
ELSE.
LS_DRAL-HANDLE = '1'.
LS_DRAL-VALUE = X_OCRC-COMBI.
LS_DRAL-INT_VALUE = X_OCRC-COMBI.
ENDIF.
APPEND LS_DRAL TO LT_DRAL.
ENDLOOP.
**Setting the Drop down table for field1
CALL METHOD G_GRID->SET_DROP_DOWN_TABLE
EXPORTING
IT_DROP_DOWN_ALIAS = LT_DRAL.
for sample code check here i gave one.
Event for the List Box in ALV Grid Control
Regards
vijay -
How do I Hide the text printed from a standard Text Element in SAP Script?
Hi,
I have created one SAP Script which gets printed from IW33 using a standard print program.
In config the standrad SAP script is replaced by the zsap script.
Since the Zscript is printed from a Standard print program, I had to keep all the text elements used by the original(standard) SAP script.
I only kept the text elemets and commented out the printing part.
But still some values are printing. How do I hide these text element values?
I want to delete whatever its printing from these text element. Icant delete the standard text elemetns , otherwise the standard print program will give error.Hi,
I am not printing any text under these text element in my zscript.
I had to include these standard text elemets as they are called from the standard print program using which my zscript is getting printed.
for example:
/E OPERATION
Under operation i didnot print anything. Still some values which are passed in text element Operation by the print program is being printed in the form. i want to hide/delete these values.
how do I do that? -
Hi,
My reqiurement is to add values in Dropdown list which is standard one. Already threre some values are there, like
hourly,daily,wekly.
Now I need to add montly value to the above dropdown list.How this can be done.
Suggest me.
Thanks,
BrahmajiHi,
Expand the Attribute Period_type and double click on its GET_V method.
You will find following code line :
lr_ddlb->set_selection_table( me->job_wizard ).
Double click on the Set_selection_table method to open the method code.
You will find a LOOP.. ENDLOOP there. Here,to remove the values, comment out this LOOP- ENDLOOP.
and add following lines
ls_ddlb-key = 'Y'.
ls_ddlb-value = 'Yearly'.
APPEND ls_ddlb TO me->ddlb.
Thats All .
Hope it Helps.
Regards,
Suchita
Maybe you are looking for
-
how can I reset my rescue email?
-
Updated Bridge and PS CC, added Output module - Bridge now slow
Trying to figure out why Bridge is lagging. Prior to the updates I ran a week ago, everything was fine. Now that I have 6.1.0.116 x64 - I click and wait. And wait some more. And wait and then finally, about 10-15 seconds later, Bridge comes back
-
new computer.... added itunes, when the message says ipod is asssociated with another computer and itunes library. I hit NO, so i don't lose the songs on my ipod, but it doesn't seem to want to add the songs on my ipod to the library in itunes. and o
-
My Adobe flash keeps crashing. Have tried all fixes.
My Adobe flash add on keeps crashing; I have done everything short of uninstalling Firefox. Please help.
-
Firefox shows in tasks but not on desktop. Have uninstalled and reinstalled but no change
I was using Firefox ans suddenly it will not show on desktop. It shows in Task Manager but NOT on desktop. Have uninstalled and reinstalled 3 times to no avail. Can you help? I hate all the other browsers!