Foro de programacion ABAP

Te aconsejo paciencia y que pongas un breakpoint en todas las sentencias MESSAGE del código (es una opción del /h). Si no salta, debe poner un breakpoint en todos los call function dado que lo que está haciendo el programa es rellenar una tabla interna que más tarde sacará en pop-up

Te recomiendo usar siempre bases de datos lógicas o la función: HR_READ_INFOTYPE

En patrón pulsa el segundo radiobutton

Se me olvidaba, los datos que se cambien pasarán por las validaciones que tenga asociada la tabla.

Permite borrado masivo, inserción masiva,... Cuidado en las insersiones de registros si la tabla posee muchas validaciones de datos porque se puede quedar tostao el sistema....

function ztratamiento_ficheros.
*"----------------------------------------------------------------------
*"*"Interfase local
*"  IMPORTING
*"     REFERENCE(P_RUTA1) TYPE  STRING
*"     REFERENCE(P_FICH) TYPE  STRING
*"     REFERENCE(P_RUTA2) TYPE  STRING OPTIONAL
*"     REFERENCE(P_ACCION) TYPE  CHAR01 DEFAULT 'M'
*"  EXCEPTIONS
*"      ACCION_INVALIDA
*"      PARAMETROS_INVALIDOS
*"      FICHERO_NO_BORRADO
*"      DESTINO_NO_ENCONTRADO
*"      FICHERO_NO_ENCONTRADO
*"      FALLO_TRATAMIENTO
*"----------------------------------------------------------------------

* Validación de la acción
  if p_accion ne 'M' and p_accion ne 'B' and p_accion ne 'C'.
    raise accion_invalida.
    exit.
  endif.

  if ( ( p_accion eq 'M' or p_accion eq 'C' ) and p_ruta2 is initial ) or
       p_ruta1 is initial or p_fich is initial.
    raise parametros_invalidos.
    exit.
  endif.

  case p_accion.

    when 'C'.

      clear d_retorno.
      perform copiar_fichero using p_ruta1
                                   p_fich
                                   p_ruta2
                                   d_retorno.
      if d_retorno is initial.
        write: /01(100) 'Fichero copiado'.
      endif.

    when 'M'.

      clear d_retorno.
      perform copiar_fichero using p_ruta1
                                   p_fich
                                   p_ruta2
                                   d_retorno.

      if d_retorno is initial.
        perform borrar_fichero using p_ruta1
                                     p_fich
                                     d_retorno.
      endif.

      if d_retorno is initial.
        write: /01(100) 'Fichero movido'.
      endif.

    when 'B'.

      perform borrar_fichero using p_ruta1
                                   p_fich
                                   d_retorno.

      if d_retorno is initial.
        write: /01(100) 'Fichero borrado'.
      endif.

  endcase.

endfunction.

*********************************
*  INCLUDE DE DECLARACION DE DATOS    *
*********************************
function-pool zficheros.                    "MESSAGE-ID ..


data: d_ruta type string,
      d_retorno(1) type c.


types: begin of t_fichero,
         campo(1000) type c,
       end of t_fichero.

data: i_fichero type t_fichero occurs 0.

data: w_fichero(1000) type c.


*************************
*  INCLUDE DE SUBRUTINASS    *
*************************
*----------------------------------------------------------------------*
***INCLUDE LZFICHEROSF01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  COPIAR_FICHERO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form copiar_fichero using p_ruta1 type any
                          p_fich  type any
                          p_ruta2 type any
                          p_retorno type any.

  data: l_longitud  type i,
        ld_ruta_ini type string,
        ld_ruta_fin type string.

  concatenate p_ruta1
              p_fich
        into ld_ruta_ini.

  concatenate p_ruta2
              p_fich
        into ld_ruta_fin.

  open dataset ld_ruta_ini for input
                         in text mode
                         encoding non-unicode.

  if sy-subrc <> 0.
    raise fichero_no_encontrado.
    p_retorno = 'X'.
    exit.
  else.

    do.
      clear w_fichero.
      read dataset ld_ruta_ini into w_fichero.
      if sy-subrc ne 0.
        p_retorno = 'X'.
        exit.
      else.
        append w_fichero to i_fichero.
      endif.
    enddo.

* Cerrar el fichero
    close dataset ld_ruta_ini.

    if sy-subrc ne 0.
      raise fallo_tratamiento.
      p_retorno = 'X'.
    else.
      clear p_retorno.
    endif.

  endif.

* Se copia el contenido de la tabla
  open dataset ld_ruta_fin for output
                           in text mode
                           encoding non-unicode.

  if sy-subrc <> 0.
    raise destino_no_encontrado.
    p_retorno = 'X'.
    exit.
  else.

    clear l_longitud.
    describe field w_fichero length l_longitud
                             in character mode.

    clear w_fichero.
    loop at i_fichero into w_fichero.

      transfer w_fichero to ld_ruta_fin
                       length l_longitud.

      clear w_fichero.
    endloop.

    close dataset ld_ruta_fin.

    if sy-subrc ne 0.
      raise fallo_tratamiento.
      p_retorno = 'X'.
    else.
      clear p_retorno.
    endif.

  endif.

  free i_fichero.

endform.                    " COPIAR_FICHERO
*&---------------------------------------------------------------------*
*&      Form  BORRAR_FICHERO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_P_RUTA1  text
*      -->P_P_FICH  text
*----------------------------------------------------------------------*
form borrar_fichero  using    p_ruta1
                              p_fich
                              d_retorno.

  clear d_ruta.

  concatenate p_ruta1
              p_fich
         into d_ruta.

  delete dataset d_ruta.

  if sy-subrc ne 0.
    raise fichero_no_borrado.
    d_retorno = 'X'.
    exit.
  else.
    clear d_retorno.
  endif.

endform.                    " BORRAR_FICHERO