Ir al contenido principal

Entradas

Mostrando las entradas de febrero, 2021

Añadir botón a pantalla de selección sin dynpro z

  Cuando queremos agregar un botón que nos envíe a una tabla (y poder regresar a nuestro report), en este caso es Z, con acceso a modificación por SM30 * Declaraciones TABLES : sscrfields .   DATA : gwa_dyntxt TYPE smp_dyntxt .   * Pantalla de selección de prueba SELECTION-SCREEN : FUNCTION KEY 1 . SELECTION-SCREEN : BEGIN OF BLOCK b01 WITH FRAME TITLE text - 001 . PARAMETERS : p_matnr TYPE mara - matnr , p_mtart TYPE mara - mtart . SELECTION-SCREEN : END OF BLOCK b01 .   INITIALIZATION . * Atributos del botón gwa_dyntxt - icon_id = '@3W@' . gwa_dyntxt - QUICKINFO = 'Tabla de prueba' . gwa_dyntxt - icon_text = 'Ordenes Previsionales' . sscrfields - functxt_01 = gwa_dyntxt .   AT SELECTION-SCREEN . IF sy - ucomm = 'FC01' . * Agregar funcionalidad del botón      CALL  FUNCTION  'VIEW_MAINTENANCE_CALL'        EXPORTING         action     =  'U'         view_name  = 

OPEN DATASET - Trabajar con archivos del servidor (sy-subrc 8)

 OPEN DATASET - Trabajar con archivos del servidor Muchas veces nos encontramos que no sabemos que pasa con un archivo en el servidor, porque el comando OPEN DATASET, nos devuelve un SY-SUBRC = 8, muy poco explicito. No sabemos si no existe, o simplemente no tenemos permiso. Con este código, podremos detectar lo que sucede del lado del servidor. REPORT  y_test_data_set_joel . PARAMETERS :  p_rt  LIKE  rlgrap - filename OBLIGATORY .  "ruta en servidor PARAMETERS :  pa1  AS  CHECKBOX .            "crea y escribe archivo PARAMETERS :  pa2  AS  CHECKBOX .            "Levanta archivo y lo lista PARAMETERS :  p_l1  LIKE  rlgrap - filename .  "linea 1 PARAMETERS :  p_l2  LIKE  rlgrap - filename .  "linea 2 CONSTANTS :  c_error  TYPE  sy - msgty  VALUE  'E' . DATA :  l_message    TYPE  string ,       o_exception  TYPE  REF  TO  cx_root . DATA :  BEGIN  OF  rec  OCCURS  0 ,         campo1  TYPE  rlgrap - filename ,         campo2  TYPE  rlgrap - filename . DATA