Skip to content

Instantly share code, notes, and snippets.

@dantesco
dantesco / sel-screen-button
Created November 11, 2013 16:10
Crear un boton en la pantalla de selección
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON (40) isel_all USER-COMMAND uc VISIBLE LENGTH 4.
SELECTION-SCREEN END OF LINE.
INITIALIZATION.
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = icon_select_all
IMPORTING
@dantesco
dantesco / f4-variant
Created November 11, 2013 16:58
Matchcode para campo de variante
PARAMETERS: p_var TYPE disvariant-variant. "ALV
INITIALIZATION.
* Search help
at selection-screen on value-request for p_var.
is_variant-variant = p_var.
is_variant-report = sy-repid.
call function 'REUSE_ALV_VARIANT_F4'
exporting
@dantesco
dantesco / selec-options_restrict
Created November 11, 2013 17:04
Limitar los select option a valores especificos, sin rangos.
* Include type pool SSCR
TYPE-POOLS sscr.
* Variables for populating restriction data
DATA: gd_restrict TYPE sscr_restrict. "structure containing 2 tables
DATA: gd_optlist TYPE sscr_opt_list, "header line for table 1
gd_ass TYPE sscr_ass. "header line for table 2
SELECT-OPTIONS: s_konret FOR bseg-hkont NO INTERVALS,
s_koniva FOR bseg-hkont NO INTERVALS.
@dantesco
dantesco / f4-mes y año
Created November 11, 2013 17:07
Matchcode para mes y año
PARAMETER: p_spbup TYPE spbup OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_spbup.
CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
EXPORTING
actual_month = sy-datum(6)
IMPORTING
selected_month = p_spbup
EXCEPTIONS
@dantesco
dantesco / f4- indicador de impuestos
Created November 11, 2013 17:08
Matchcode para indicador de impuestos
PARAMETERS: p_mwskz TYPE mwskz.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_mwskz.
CALL FUNCTION 'FI_F4_MWSKZ'
EXPORTING
i_kalsm = 'TAXJC'
* I_STBUK = ' '
* I_XSHOW = ' '
* I_LSTML = ' '
@dantesco
dantesco / time diff
Created November 11, 2013 17:17
diferencia entre 2 fechas y sus horas
* Variables necesarias para la función
DATA v_delta_time LIKE mcwmit-be_ae.
DATA v_delta_unit LIKE mcwmit-lzeit.
* Obtén la diferencia entre 2 fechas y 2 horas
CALL FUNCTION 'L_MC_TIME_DIFFERENCE'
EXPORTING
date_from = '20130716' "16.07.2013
date_to = '20130717' "17.07.2013
@dantesco
dantesco / invierte itab
Created November 11, 2013 17:19
Invierte el orden de una tabla interna, sin ordenarla.
CALL METHOD cl_rs_data=>switch_order
CHANGING c_t_data = my_internal_table.
@dantesco
dantesco / get report info
Created November 11, 2013 17:22
Obtener la salida de un programa y guardarla en memoria
DATA: BEGIN OF tabla OCCURS 0.
INCLUDE STRUCTURE abaplist.
DATA:END OF tabla.
* Ejecutar programa Transacciòn S_ALR_87012332.
SUBMIT rfausz00 WITH br_budat IN s_budat
WITH br_bukrs-low EQ s_bukrs WITH br_gjahr-low EQ s_any
LINE-SIZE 255 EXPORTING LIST TO MEMORY AND RETURN.
@dantesco
dantesco / write to server
Created November 11, 2013 17:30
Selecciona información, guardala en el server y extraela nuevamente para mostrarla * cuidado con la ruta en donde se guarda el archivo
*&---------------------------------------------------------------------
*& Report ZVK_CL_RSAN_UT_APPSERV
*&
*&---------------------------------------------------------------------
*& Purpose : Use of Class CL_RSAN_UT_APPSERV_FILE_READER &
*& CL_RSAN_UT_APPSERV_FILE_WRITER for Read/write operations
*& on Application Server Files
*&---------------------------------------------------------------------
REPORT zvk_cl_rsan_ut_appserv.
** Text Elements
@dantesco
dantesco / file:save_dialog
Created November 14, 2013 23:37
dialogo para salvar archivo
* Llama al diálogo para salvar el archivo
CALL METHOD cl_gui_frontend_services=>file_save_dialog
EXPORTING
* window_title = ' '
default_extension = 'TXT'
default_file_name = lv_fnam "'demofile'
initial_directory = str "'c:\'
CHANGING
filename = ld_filename
path = ld_path