Mostrar Mensajes
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
REPORT ZRICH_0001 .
parameters: p_check type c.
at selection-screen output.
CALL FUNCTION 'SWU_OBJECT_PUBLISH'
EXPORTING
objtype = 'BUS2038'
objkey = '1'
* CREATOR = ' '
* METHOD = ' '
* TABLES
* CONTAINER =
EXCEPTIONS
OBJTYPE_NOT_FOUND = 1
OTHERS = 2.
start-of-selection.
CALL FUNCTION 'SO_SPLIT_FILE_AND_PATH'
EXPORTING
full_name = p_ruta_completa " C:\CARPETA1\CARPETA2\FICHERO.EXE
IMPORTING
stripped_name = v_exe " FICHERO.EXE
file_path = v_cd. " C:\CARPETA1\CARPETA2\
DATA: file_table_clip TYPE STANDARD TABLE OF file_table.
DATA: wa_file(1024).
DATA: vv_menge(17).
DATA: hexa1 TYPE x VALUE '09'.
CALL METHOD cl_gui_frontend_services=>clipboard_import
IMPORTING
data = file_table_clip
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.
IF sy-subrc = 3.
EXIT.
ELSEIF sy-subrc <> 0.
EXIT.
ENDIF.
LOOP AT file_table_clip INTO wa_file.
SPLIT wa_file AT hexa1 INTO i_pantalla2-matnr
vv_menge
i_pantalla2-bstme.
MOVE: vv_menge TO i_pantalla2-menge.
APPEND i_pantalla2.
ENDLOOP.
CONSTANTS: c_valor TYPE trdir-cnam VALUE 'cnam'.
DATA: l_where TYPE string.
DATA: loquesea.
l_where = 'campo = c_valor'.
SELECT cnam INTO loquesea
FROM trdir
WHERE (l_where).
ENDSELECT.
DATA: l_where TYPE string.
DATA: loquesea.
l_where = 'campo = ''cnam'''.
SELECT cnam INTO loquesea
FROM trdir
WHERE (l_where).
ENDSELECT.
SELECT * FROM CRCO UP TO 10 ROWS WHERE OBJTY = 'A'
AND OBJID = AFRU-ARBID.
ENDSELECT.
DATA: v_fecha LIKE sy-datum,
dia LIKE scal-indicator,
txt_dia LIKE rnpb2-day_txt.
v_fecha = sy-datum.
CALL FUNCTION 'ISH_GET_DAY_OF_WEEK'
EXPORTING
DATE = v_fecha
IMPORTING
DAY = dia
DAY_TXT = txt_dia.
l_where = 'campo = ''valor'''.
SELECT lista_campos
INTO loquesea
FROM tabla
WHERE (l_where). CONSTANTS: c_valor TYPE tabla-campo VALUE 'valor'.
DATA: l_where TYPE string.
l_where = 'campo = c_valor'.
SELECT lista_campos
INTO loquesea
FROM tabla
WHERE (l_where). 
PARAMETERS: fichero LIKE rlgrap-filename.
*Funcion que ayuda a buscar un archivo en windows
AT SELECTION-SCREEN ON VALUE-REQUEST FOR fichero.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
* DEF_FILENAME = ' '
* DEF_PATH = ' '
mask = ',*.* ,*.*.'
mode = '0'
title = 'Datos de pedido'
IMPORTING
filename = fichero
* RC =
* EXCEPTIONS
* INV_WINSYS = 1
* NO_BATCH = 2
* SELECTION_CANCEL = 3
* SELECTION_ERROR = 4
* OTHERS = 5
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.