|
ESPERO TE ORIENTE BIEN.
program ztest2.
selection-screen begin of block archivo with frame title text-008.
parameters: p_obj1 TYPE C no-display.
parameters: p_obj2 TYPE C no-display.
parameters: p_obj3 TYPE C no-display.
parameters: p_obj4 TYPE C no-display.
parameters: p_obj5 TYPE C no-display.
parameters: p_obj6 TYPE C no-display.
parameters: p_pc like ibipparms-pc radiobutton group radi
user-command UCOMM1.
parameters: p_unix like ibipparms-unix radiobutton group radi.
parameters: p_server like ibipparms-server.
parameters: p_path like IBIPPARMS-PATH.
parameters: p_modi type char1 as checkbox .
selection-screen end of block archivo.
parameters p_dato1 type c as checkbox user-command c1.
parameters p_dato2 type c as checkbox user-command c2.
parameters p_dato3 type c as checkbox user-command c3.
at selection-screen.
case sy-ucomm.
when 'C1'.
message S001(00) with 'c1'.
when 'C2'.
message S001(00) with 'c2'.
when 'C3'.
message S001(00) with 'c3'.
endcase.
* F4 PARA SELECCION DE ARCHIVOS
at selection-screen on value-request for p_path.
IF p_pc = 'X'.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
field_name = 'P_PATH'
IMPORTING
file_name = P_PATH.
ELSEIF p_unix = 'X'.
CALL FUNCTION 'F4_FILENAME_SERVER' DESTINATION p_server
EXPORTING
pfad = P_PATH
EXCEPTIONS
no_file_on_server = 1
OTHERS = 2.
ENDIF.
|