MUNDOSAP

Regresar   MUNDOSAP > DESARROLLO > Programación ABAP IV
Nombre de Usuario
Contraseña
Home Descargas Registrar FAQ Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos




 
Respuesta
 
Herramientas Buscar en Tema Desplegado
  #11  
Viejo 15/02/10, 10:55:00
Neo_25 Neo_25 is offline
Member
 
Fecha de Ingreso: jun 2009
Mensajes: 51
Prueba esto:

*En P_FILE va a quedar guardada la ruta del archivo
PARAMETERS: p_file TYPE LOCALFILE. "Fichero local para upload/download

*Llamamos a la función que abre el browser apretando el matchcode
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = sy-repid
dynpro_number = sy-dynnr
field_name = 'path'
IMPORTING
file_name = p_file.
Responder Con Cita
  #12  
Viejo 15/02/10, 11:02:43
Neo_25 Neo_25 is offline
Member
 
Fecha de Ingreso: jun 2009
Mensajes: 51
Donde lo tienes q subir es una ruta del servidor?
Responder Con Cita
  #13  
Viejo 15/02/10, 11:07:21
zebalia zebalia is offline
Member
 
Fecha de Ingreso: dic 2009
Mensajes: 30


Eso mismo le he preguntado pero no me ha sabido responder. Me dice que es un directorio de SAP pero no se donde está fisicamente. Solo se que con la transacción AL11 puedo ver dicho directorio y tiene esa ruta "usr/sap/blablabla...."

De todos modos, voy a probar eso del machtcode que me has puesto, que además tengo que hacer unos cuantos para ciertos campos...a ver si investigo porque no he hecho uno en mi vida

Gracias por tu tiempo Neo
Responder Con Cita
  #14  
Viejo 15/02/10, 11:39:20
Neo_25 Neo_25 is offline
Member
 
Fecha de Ingreso: jun 2009
Mensajes: 51
Me pillas q tengo poca cosa q hacer, y q lo q estás haciendo lo he hecho más o menos, porque yo llevo poco tiempo con SAP.

Eso de la AL11 lo hice yo y es subirlo al servidor de SAP, te pongo el código q yo usé:

* Tabla interna donde guardaremos el fichero txt
DATA: i_txt TYPE ty_tab_txt.
DATA: w_ruta TYPE localfile.

PERFORM f_subir_txt_a_servidor USING i_txt
w_ruta.

*&---------------------------------------------------------------------*
*& Form F_SUBIR_TXT_A_SERVIDOR
*&---------------------------------------------------------------------*
* Subimos el fichero txt al servidor
*----------------------------------------------------------------------*
* -->PI_TXT Tabla que contiene todas las líneas a subir
* -->PI_RUTA Ruta donde guardar el fichero txt
*----------------------------------------------------------------------*
FORM f_subir_txt_a_servidor USING pi_txt TYPE ty_tab_txt
pi_ruta TYPE localfile.

FIELD-SYMBOLS: <fs_txt> TYPE ty_tyl_txt.

* si el fichero no existe lo crea
* con el appending añadimos al fichero más líneas, es decir
* la 1ª vez se meten 50 líneas,
* la 2ª vez habría 100 (50 + 50)
* no crea otro fichero nuevo, ni machaca al q ya existe

OPEN DATASET pi_ruta FOR APPENDING IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc = 0.
LOOP AT pi_txt ASSIGNING <fs_txt>.
TRANSFER <fs_txt> TO pi_ruta.
ENDLOOP.
CLOSE DATASET pi_ruta.
IF sy-subrc <> 0.
MESSAGE e999(pp) WITH text-003 pi_ruta. "mal cerrado
ENDIF.
ELSE.
MESSAGE e999(pp) WITH text-002 pi_ruta. "mal abierto
ENDIF.

ENDFORM. " F_SUBIR_TXT_A_SERVIDOR
Responder Con Cita
  #15  
Viejo 15/02/10, 11:55:11
zebalia zebalia is offline
Member
 
Fecha de Ingreso: dic 2009
Mensajes: 30
Pero mi fichero es un pdf...me dejará igualmente?? Es que lo de escritura por el final en un pdf... dudo mucho que me deje

Voy a probar
Responder Con Cita
  #16  
Viejo 15/02/10, 12:27:44
zebalia zebalia is offline
Member
 
Fecha de Ingreso: dic 2009
Mensajes: 30
Nada tio, no me tira... no me queda claro donde le pongo el nombre del fichero. Me imagino que en la propia ruta no?
Responder Con Cita
  #17  
Viejo 15/02/10, 12:38:28
Neo_25 Neo_25 is offline
Member
 
Fecha de Ingreso: jun 2009
Mensajes: 51
Si, en la propia ruta y le dices q extensión es.

Yo creo q usé este código para subir un fichero txt al servidor.

No te vale lo de abrir una ventana e indicar donde s ebaja?
Responder Con Cita
  #18  
Viejo 16/02/10, 12:46:10
zebalia zebalia is offline
Member
 
Fecha de Ingreso: dic 2009
Mensajes: 30


Al final lo he hecho con una ventana. Gracias Neo, no lo habría conseguido sin tu ayuda
Responder Con Cita
  #19  
Viejo 16/02/10, 15:19:04
Neo_25 Neo_25 is offline
Member
 
Fecha de Ingreso: jun 2009
Mensajes: 51
De nada,
a mí también me viene bien cuando me ponen el código.

Si podrías explicar un poco lo de la ventana o poner el código.

Hasta otra.
Responder Con Cita
  #20  
Viejo 17/02/10, 11:42:15
zebalia zebalia is offline
Member
 
Fecha de Ingreso: dic 2009
Mensajes: 30
Si, yo he usado los siguientes forms para sacar la ventanita.

**************FORMS
*---------------------------------------------------------------------*
* FORM GET_FILE_OUT
*---------------------------------------------------------------------*
FORM get_file_out USING value(p_type) value(p_path)
CHANGING filename p_pc.
PERFORM get_file_in_out USING p_type p_path 'S'
CHANGING filename p_pc.
ENDFORM. " GET_FILE_OUT

*---------------------------------------------------------------------*
* FORM GET_FILE_in_out
*---------------------------------------------------------------------*
FORM get_file_in_out USING value(p_type) value(p_path) value(mode)
CHANGING filename p_pc.
DATA:
* mode VALUE 'S' , "Save mode
* mode VALUE 'O' , "Open mode
mask(120) ,
title(19).
title = 'Localizar fichero'.
IF p_type = 'ASC'.
mask = ',PDF,*.PDF.'.
"mask = ',PDF,*.pdf'.
ELSE.
* mask = ',TRACM ASC,*.ASC,TRACM SDF,*.SDF.'.
mask = ',*,*,BIN,*.bin,*.PDF.'.
"mask = ',*,*,BIN,*.bin,PDF,*.pdf.'.
ENDIF.

* WINDOW STARTING AT 1 25 ENDING AT 12 45.

CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
* DEF_FILENAME = ' '
def_path = p_path
mask = mask
mode = mode
title = title
IMPORTING
filename = filename
* RC =
EXCEPTIONS
inv_winsys = 01
no_batch = 02
selection_cancel = 03
selection_error = 04.

CASE sy-subrc.
WHEN 0.
* message s899.
p_pc = 'X'. "c_ftp_marcado.
WHEN 1.
MESSAGE ID '00' TYPE 'E' NUMBER '398' WITH
'Error nº '(915) sy-subrc
' Introduzca el nombre correcto '(916)
' No es posible ayuda selección '(917).
WHEN 2.
MESSAGE ID '00' TYPE 'E' NUMBER '398' WITH
'Error nº '(015) sy-subrc
' Introduzca el nombre correcto '(916)
' No es posible ayuda selección '(917).
WHEN 3.
MESSAGE ID '00' TYPE 'S' NUMBER '398' WITH
'Cancelación de selección de ficheros'(918).
WHEN 4.
MESSAGE ID '00' TYPE 'E' NUMBER '398' WITH
'Error nº'(915) sy-subrc.
ENDCASE.
ENDFORM.







Despues de todo esto, he puesto esto para llamar a la ventana.

PARAMETERS: p_fich LIKE rlgrap-filename OBLIGATORY, "Fichero de texto
p_pc AS CHECKBOX default 'X'.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fich.

* Ayuda para localizar los itabs locales.
PERFORM get_file_out USING 'ASC' 'C:\*.*'
CHANGING p_fich p_pc.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Reglas de Mensajes
no puedes crear nuevos temas
no puedes responder temas
no puedes adjuntar archivos
no puedes editar tus mensajes

El código vB está On
Las caritas están On
Código [IMG] está On
Código HTML está Off
Saltar a Foro


Husos Horarios son GMT. La hora en este momento es 22:53:04.


www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web