Foro de programación ABAP

Hasta el día de hoy la función que me dijiste me fue de maravilla. Pero por causas desconocidas con un material no me funcionaba correctamente.

Y después de buscar y buscar encontré esta otra función: CSAP_MAT_BOM_READ

Por ahora me va bien, de todas formas por si a alguien le viene bien he podido ver que las tablas que guardan las explosiones de los materiales se encuentran en las siguientes...

MAST.   " Enlace material - lista de materiales
STKO.   " Cabecera de lista de materiales
STPO.   " Posición de lista de materiales

Saludos. 

Hola, estoy buscando un programa que ejecuté hace un tiempo.

Hay alguna transacción o algún truco para ver los últimos reports ejecutados? Un historial o algo similar?

Gracias...

Hola, exactamente lo que estoy buscando es una función que me de algo así:

Un material A consume un material B y este a su vez consume un material C...

Saludosss

Muchas gracias Oscar, no se me había ocurrido. 

Hola,

Aunque me parece que la respuesta va a ser negativa, por si las moscas la pregunto.

Hay alguna manera de hacer las cajas de un formulario con las esquinas redondeadas?
 
Gracias...

La función WS_DOWNLOAD esta obsoleta, aunque sigue funcionando ahora se debe utilizar la GUI_DOWNLOAD.

La nueva versión tiene algunas opciones mas en las entradas y salidas como parámetros.


Un saludo.

Muchas gracias oscar. 

Buscando por internet encontré este programa de Alvaro (Blag) en el siguiente enlace:

http://atejada.blogspot.com/2006/10/backup-de-programas-en-abap.html


**************************************************************
* Programa : Z_PROGRAMS_DOWNLOAD.                            *
* Módulo : BC - Basis.                                       *
* Consultor ABAP : Alvaro Tejada Galindo.                    *
* February 14, 2006 12:33:22 PM                              *
**************************************************************

REPORT z_dummy_atg NO STANDARD PAGE HEADING.

*=============================================================
* VARIABLES
*=============================================================
DATA: fullname(30) TYPE c,
one LIKE pcfile-drive,
two LIKE pcfile-path,
filepath(128) TYPE c.

DATA: app_name TYPE string,
ddtext_name TYPE string,
dummy TYPE string,
include_name TYPE string.

*=============================================================
* TABLAS INTERNAS
*=============================================================
DATA: BEGIN OF source_table OCCURS 0,
linea(150) TYPE c.
DATA: END OF source_table.

DATA: BEGIN OF include_table OCCURS 0,
linea(150) TYPE c.
DATA: END OF include_table.

DATA: BEGIN OF dynpro_table OCCURS 0,
linea(250) TYPE c.
DATA: END OF dynpro_table.

DATA: BEGIN OF t_trdir OCCURS 0,
name LIKE trdir-name,
END OF t_trdir.

DATA: BEGIN OF t_log OCCURS 0,
error TYPE string,
END OF t_log.

DATA: data_ddtext TYPE STANDARD TABLE OF textpool
WITH HEADER LINE.

*=============================================================
* SELECTION-SCREEN
*=============================================================
SELECTION-SCREEN BEGIN OF BLOCK test WITH FRAME.
PARAMETERS:
prgname LIKE trdir-name,
listname LIKE rlgrap-filename.
SELECTION-SCREEN END OF BLOCK test.

*=============================================================
* AT SELECTION-SCREEN
*=============================================================
AT SELECTION-SCREEN ON VALUE-REQUEST FOR listname.
  PERFORM get_filename CHANGING listname.

*=============================================================
* START-OF-SELECTION
*=============================================================
START-OF-SELECTION.
  PERFORM load_data.

  IF NOT t_log[] IS INITIAL.
    WRITE: 'se encontraron los siguientes errores: '.
  ENDIF.

  ULINE.
  SKIP 1.

  LOOP AT t_log.
    WRITE:/ t_log-error.
  ENDLOOP.

*———————————————————–*
* FORM GET_FILENAME  *
*———————————————————–*
FORM get_filename CHANGING listname.

  CALL FUNCTION 'ws_filename_get'
    EXPORTING
      def_filename     = listname
      def_path         = 'c:\downloads\lista'
      mask             = ',*.*,*.*. '
      mode             = 's'
      title            = 'guardar en'
    IMPORTING
      filename         = listname
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.

ENDFORM.                    "GET_FILENAME

*———————————————————–*
* FORM LOAD_DATA     *
*———————————————————–*
FORM load_data.

  DATA: w_file LIKE pcfile-path.
  w_file = listname.
  CALL FUNCTION 'pc_split_complete_filename'
    EXPORTING
      complete_filename = w_file
    IMPORTING
      drive             = one
      path              = two
    EXCEPTIONS
      invalid_drive     = 1
      invalid_extension = 2
      invalid_name      = 3
      invalid_path      = 4
      OTHERS            = 5.
  CONCATENATE one ':' two INTO filepath.

  CONCATENATE prgname '%' INTO fullname.

  SELECT name
  INTO TABLE t_trdir
  FROM trdir
  WHERE name LIKE fullname.

  IF sy-subrc EQ 0.
    PERFORM fill_list.

    PERFORM download_apps.
  ENDIF.

ENDFORM.                    "LOAD_DATA

*———————————————————–*
* FORM FILL_LIST     *
*———————————————————–*
FORM fill_list.

  CALL FUNCTION 'ws_download'
    EXPORTING
      filename            = filepath
      filetype            = 'asc'
    TABLES
      data_tab            = t_trdir
    EXCEPTIONS
      file_open_error     = 1
      file_write_error    = 02
      invalid_filesize    = 03
      invalid_table_width = 04
      invalid_type        = 05
      no_batch            = 06
      unknown_error       = 07.

ENDFORM.                    "FILL_LIST

*————————————————————————*
* FORM FILL_LIST_INCLUDE *
*————————————————————————*
FORM fill_list_include.

  CONCATENATE filepath 'includes.txt' INTO listname.

  CALL FUNCTION 'ws_download'
    EXPORTING
      filename            = listname
      filetype            = 'asc'
      mode                = 'a'
    TABLES
      data_tab            = include_table
    EXCEPTIONS
      file_open_error     = 1
      file_write_error    = 02
      invalid_filesize    = 03
      invalid_table_width = 04
      invalid_type        = 05
      no_batch            = 06
      unknown_error       = 07.

ENDFORM.                    "FILL_LIST_INCLUDE

*&———————————————————-*
*& Form DOWNLOAD_APPS *
*&———————————————————-*
FORM download_apps.

  LOOP AT t_trdir.
    CLEAR: app_name, include_name.

    REFRESH: source_table.
    CLEAR: source_table.

    READ REPORT t_trdir-name INTO source_table.
    READ TEXTPOOL t_trdir-name INTO data_ddtext LANGUAGE sy-langu.

    CONCATENATE filepath t_trdir-name '.abp' INTO app_name.
    CONCATENATE filepath t_trdir-name '_ddtext.txt'
    INTO ddtext_name.

    PERFORM download_form USING app_name.
    PERFORM download_ddtext USING ddtext_name.

    LOOP AT source_table.
      SEARCH source_table-linea FOR 'include'.
      IF sy-subrc EQ 0.

        IF source_table-linea+0( NE 'include'.
          CONTINUE.
        ENDIF.

        CLEAR include_name.

        SPLIT source_table-linea AT space
        INTO dummy include_name.
        SPLIT include_name AT '.'
        INTO include_name dummy.

        REFRESH: source_table.
        CLEAR: source_table.

        MOVE include_name TO include_table.
        READ TABLE include_table WITH KEY linea = include_table.
        IF sy-subrc NE 0.
          APPEND include_table.
        ENDIF.

        READ REPORT include_table INTO source_table.

        IF sy-subrc EQ 0.
          CONCATENATE filepath include_name '.abp'
          INTO include_name.
          PERFORM download_form USING include_name.
          PERFORM fill_list_include.
        ENDIF.

      ENDIF.
    ENDLOOP.

  ENDLOOP.

ENDFORM.                    "DOWNLOAD_APPS

*———————————————————–*
* FORM DOWNLOAD_FORM *
*———————————————————–*
FORM download_form USING app_name.

  CALL FUNCTION 'gui_download'
    EXPORTING
      filename         = app_name
      filetype         = 'asc'
    TABLES
      data_tab         = source_table
    EXCEPTIONS
      file_write_error = 1
      no_batch         = 2
      invalid_type     = 4
      no_authority     = 5
      unknown_error    = 6
      file_not_found   = 19
      OTHERS           = 22.

  IF sy-subrc NE 0.
    t_log-error = app_name.
    APPEND t_log.
  ENDIF.

ENDFORM.                    "DOWNLOAD_FORM

*———————————————————–--*
* FORM DOWNLOAD_DDTEXT *
*———————————————————–--*
FORM download_ddtext USING ddtext_name.

  CALL FUNCTION 'gui_download'
    EXPORTING
      filename         = ddtext_name
      filetype         = 'asc'
    TABLES
      data_tab         = data_ddtext
    EXCEPTIONS
      file_write_error = 1
      no_batch         = 2
      invalid_type     = 4
      no_authority     = 5
      unknown_error    = 6
      file_not_found   = 19
      OTHERS           = 22.

  IF sy-subrc NE 0.
    t_log-error = ddtext_name.
    APPEND t_log.
  ENDIF.

ENDFORM.                    "DOWNLOAD_DDTEXT

Buahhhhhhhhhh....

Muchas gracias... me viene de pelas.

Gracias...