| English | Italiano | |
| tendril n | (stem of a vine) | viticcio nm |
| The tendril had only one leaf. | ||
| Il viticcio aveva solo una foglia. | ||
| tendril n | (fine lock or curl of hair) | riccio nm |
| The little girl's face was framed by two tendrils of hair. | ||
| Il viso della bambina era incorniciato da due riccioli di capelli. | ||
*---------------------------------------------------------------------*
* CLASS lcl_handle_events DEFINITION *
*---------------------------------------------------------------------*
CLASS lcl_handle_events DEFINITION.
PUBLIC SECTION.
METHODS:
on_after_refresh FOR EVENT after_refresh OF cl_gui_alv_grid
IMPORTING sender,
on_user_command FOR EVENT added_function OF cl_salv_events_table
IMPORTING e_salv_function.
ENDCLASS.
*---------------------------------------------------------------------*
* CLASS lcl_handle_events IMPLEMENTATION *
*---------------------------------------------------------------------*
CLASS lcl_handle_events IMPLEMENTATION.
METHOD on_after_refresh.
DATA: ls_layout TYPE lvc_s_layo,
lt_fcat TYPE lvc_t_fcat.
FIELD-SYMBOLS: LIKE LINE OF lt_fcat.
TRY.
SET HANDLER on_after_refresh FOR ALL INSTANCES ACTIVATION space.
sender->get_frontend_fieldcatalog( IMPORTING et_fieldcatalog = lt_fcat ).
sender->register_edit_event( i_event_id = cl_gui_alv_grid=>mc_evt_modified ).
LOOP AT lt_fcat ASSIGNING .
IF -fieldname EQ 'ZINCSTOCKPREC'
OR -fieldname EQ 'ZINCSTOCKSUCC'.
-edit = abap_true.
ENDIF.
ENDLOOP.
sender->set_frontend_fieldcatalog( lt_fcat ).
* ls_layout-edit = abap_true. "Edit ALL
* sender->set_frontend_layout( ls_layout ).
sender->set_ready_for_input( 1 ).
CATCH cx_salv_error.
ENDTRY.
ENDMETHOD.
ENDCLASS.
*----------------------------------------------------------------------*
* FORM OUTPUT_ALV *
*----------------------------------------------------------------------*
FORM output_alv.
DATA: lo_content TYPE REF TO cl_salv_form_element.
TRY.
CASE 'X'.
WHEN rb_issr.
cl_salv_table=>factory(
IMPORTING
r_salv_table = go_alv
CHANGING
t_table = gt_terri[] ).
ENDCASE.
CATCH cx_salv_msg.
ENDTRY.
IF go_alv IS BOUND.
CREATE OBJECT go_events.
CASE 'X'.
WHEN rb_cdc OR rb_issr.
go_alv->set_screen_status(
pfstatus = 'STANDARD_STOCK'
report = sy-cprog
set_functions = go_alv->c_functions_all ).
IF rb_cdc = 'X'.
PERFORM set_settings.
ELSE.
PERFORM build_header CHANGING lo_content.
go_alv->set_top_of_list( lo_content ).
SET HANDLER go_events->on_after_refresh FOR ALL INSTANCES ACTIVATION 'X'.
ENDIF.
ENDCASE.
SET HANDLER go_events->on_user_command FOR go_alv->get_event( ).
go_alv->get_columns( )->set_optimize( 'X' ).
go_alv->display( ).
ENDIF.
ENDFORM.
IF ( gs_manual_xls-bsart IN gr_jomtr OR
gs_manual_xls-bsart IN gr_jomtt OR
gs_manual_xls-bsart IN gr_jomtp ) AND
gs_manual_xls-zprodunit IS NOT INITIAL AND
strlen( gs_manual_xls-zprodunit ) < 8.
gv_status = gs_outputadv-zstatus = gc_ko.
gv_message =
gs_outputadv-zmessage = replace( val = TEXT-e42
sub = '&'
with = |{ gs_outputadv-zgenericarticle }_{ gs_outputadv-zzcolor }_{ gs_outputadv-zzsize }|
occ = 1 ).
ELSE.
gs_outputadv-zprodunit = gs_manual_xls-zprodunit.
gs_outputadv-zmessage = gv_message.
ENDIF.
METHOD on_user_command.
DATA: lv_retc TYPE c,
lt_fields TYPE TABLE OF sval,
ls_rows TYPE lvc_s_row,
lt_rows TYPE lvc_t_row,
lv_answer TYPE char1,
lt_royriutil TYPE TABLE OF ztsdo_royriutil,
ls_royriutil TYPE ztsdo_royriutil,
ls_h TYPE ztsdo_condcontrh,
ls_d TYPE ztsdo_condcontrd.
CASE e_salv_function.
WHEN 'NEW'.
IF rb_cdc = 'X'.
CLEAR gs_condiz.
CALL SCREEN 100 STARTING AT 5 5 ENDING AT 80 20.
ELSE.
APPEND VALUE #( tabname = 'TVKBT'
fieldname = 'VKBUR'
fieldtext = 'Territory'
) TO lt_fields.
APPEND VALUE #( tabname = 'ZTSDO_ROYRIUTIL'
fieldname = 'ZINCSTOCKPREC'
) TO lt_fields.
APPEND VALUE #( tabname = 'ZTSDO_ROYRIUTIL'
fieldname = 'ZINCSTOCKSUCC'
) TO lt_fields.
CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
popup_title = 'Nuova riga'
IMPORTING
returncode = lv_retc
TABLES
fields = lt_fields
EXCEPTIONS
error_in_fields = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno.
ENDIF.
CHECK lv_retc <> 'A'.
gs_terri-zvkbur = lt_fields[ 1 ]-value.
SELECT SINGLE bezei
FROM tvkbt
INTO gs_terri-bezei
WHERE spras = sy-langu
AND vkbur = gs_terri-zvkbur.
IF sy-subrc <> 0.
MESSAGE |Non valido: Territory { gs_terri-zvkbur }| TYPE 'I'.
EXIT.
ELSE.
gs_terri-zincstockprec = lt_fields[ 2 ]-value.
gs_terri-zincstocksucc = lt_fields[ 3 ]-value.
APPEND gs_terri TO gt_terri.
go_alv->refresh( ).
ENDIF.
ENDIF.
WHEN 'ANNU'.
[...]
WHEN 'SAVE'.
[...]
WHEN 'CONF'.
[...]
ENDCASE.
ENDMETHOD.
DATA: lr_zauth TYPE RANGE OF zesd_auth.
SELECT DISTINCT 'I', 'EQ', z_auth
FROM ztsdo_ret_cancel
UNION DISTINCT
SELECT 'I', 'EQ', z_auth
FROM ztsdo_ret_rej
INTO TABLE @lr_zauth.
IF lr_zauth[] IS NOT INITIAL.
DELETE gi_gr_items WHERE zsd_auth IN lr_zauth.
ENDIF.
