*&---------------------------------------------------------------------*
*& Report  ZREPORT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZREPORT.

TABLES: ztabela.
CONSTANTS: c_view  TYPE   char30  VALUE 'ZTABELA',
           c_u     TYPE   char1   VALUE 'U',
           c_and   TYPE   char3   VALUE 'AND'.
DATA: gt_seltab    TYPE STANDARD TABLE OF vimsellist.
DATA: g_fieldname  TYPE vimsellist-viewfield.
DATA: gt_exclude   TYPE TABLE OF vimexclfun,
      gwa_exclude  TYPE vimexclfun.

SELECT-OPTIONS: s_campo    FOR ztabela-campo.

*Add ID column to selection criteria of Table maintenanace view
g_fieldname = 'CAMPO'.

CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'
  EXPORTING
    fieldname          = g_fieldname
    append_conjunction = c_and
  TABLES
    sellist            = gt_seltab
    rangetab           = s_campo.
*
**Add Name column to selection criteria of Table maintenanace view
*g_fieldname = 'NAME'.
*
*CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'
*  EXPORTING
*    fieldname          = g_fieldname
*    append_conjunction = c_and
*  TABLES
*    sellist            = gt_seltab
*    rangetab           = s_name.
*
**Add Place column to selection criteria of Table maintenanace view
*g_fieldname = 'PLACE'.
*
*CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'
*  EXPORTING
*    fieldname          = g_fieldname
*    append_conjunction = c_and
*  TABLES
*    sellist            = gt_seltab
*    rangetab           = s_place.

*Deactivate New Entries
gwa_exclude-function = 'NEWL'.  " Function Code for New Entries
APPEND gwa_exclude TO gt_exclude.

*Deactivate Copy
gwa_exclude-function = 'KOPE'.  " Function Code for Copy
APPEND gwa_exclude TO gt_exclude.

*Deactivate Delete
gwa_exclude-function = 'DELE'.  " Function Code for Delete
APPEND gwa_exclude TO gt_exclude.

* Call to the 'VIEW_MAINTENANCE_CALL' function module
CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
  EXPORTING
    action         = c_u
    view_name      = c_view
  TABLES
    dba_sellist    = gt_seltab
    excl_cua_funct = gt_exclude.

+2

0

DATA:
  BEGIN OF gt_file OCCURS 0,
    line TYPE c LENGTH 400,
  END OF gt_file.

PARAMETERS: p_file     TYPE rlgrap-filename OBLIGATORY DEFAULT 'C:\'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  PERFORM z_upload_file.

START-OF-SELECTION.
  PERFORM z_load_file.


FORM z_load_file.
  DATA: lv_arq   TYPE string,
        vl_extab TYPE slis_t_extab.

* Abre arquivo de entrada.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename = p_file
      filetype = 'ASC'
    TABLES
      data_tab = gt_arquivo.

  IF sy-subrc <> 0.
    MESSAGE 'Error upload file' TYPE 'I'.
    EXIT.
  ENDIF.
ENDFORM.                    " z_load_file

FORM z_upload_file.
  DATA: ret TYPE int4,
        act TYPE int4.
  DATA: t_file TYPE TABLE OF file_table,
        s_file TYPE file_table.

  CLEAR: t_file[].

  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = 'Abrir...'
      default_extension       = '*.txt|*.csv|*.*'
      file_filter             = ' TXT (*.txt)|*.txt| CSV(*.csv)|*.csv| Todas(*.*)|*.* '
      multiselection          = space
    CHANGING
      file_table              = t_file[]
      rc                      = ret
      user_action             = act
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.

  IF sy-subrc EQ 0.
    READ TABLE t_file INTO s_file INDEX 1.
    MOVE s_file TO p_file.
  ENDIF.
ENDFORM.                    "z_upload_file

+3

0

DATA: itab TYPE TABLE OF mara WITH HEADER LINE,
      a(1) TYPE c.

BREAK-POINT.
MOVE: 1   TO itab-matnr,
      '1' TO itab-ernam,
      'X' TO a.
APPEND itab TO itab.

********************************************************************************
* -= CLEAR =-                                                                  *
* Se for tabela sem header line limpa o conteudo mas o espaço fica em memória  *
* Se for tabela com header line limpa o header mas o espaço fica em memória    *
********************************************************************************
CLEAR: itab, a.

MOVE: 2   TO itab-matnr,
      '2' TO itab-aenam.
APPEND itab TO itab.

********************************************************************************
* -= REFRESH =-                                                                *
* Limpa o conteudo mas o espaço fica em memória                                *
********************************************************************************
REFRESH: itab.

MOVE: 3   TO itab-matnr,
      '3' TO itab-vpsta.
APPEND itab TO itab.

********************************************************************************
* -= FREE =-                                                                   *
* Limpa o conteudo e libera o espaço em memória                                *
********************************************************************************
FREE: itab, a.

MOVE: 4   TO itab-matnr.
APPEND itab TO itab.

BREAK-POINT.

CLEAR: itab.
FREE:  itab.
MOVE: 1   TO itab-matnr,
      '1' TO itab-ernam.
APPEND itab TO itab.

CLEAR: itab[], a.

MOVE: 2   TO itab-matnr,
      '2' TO itab-aenam.
APPEND itab TO itab.

REFRESH: itab[].

MOVE: 3   TO itab-matnr,
      '3' TO itab-vpsta.
APPEND itab TO itab.

FREE: itab[].

MOVE: 4   TO itab-matnr.
APPEND itab TO itab.

BREAK-POINT.

+1

0

RSDU_EXEC_SQL

+1

0

DATA: r_kschl          TYPE RANGE OF konv-kschl,
      w_kschl          LIKE LINE OF r_kschl.

CONSTANTS: c_sign_i     TYPE char01          VALUE 'I',
           c_option_eq  TYPE char02          VALUE 'EQ',
           c_bx10       TYPE kscha           VALUE 'BX10',
           c_bx11       TYPE kscha           VALUE 'BX11'.

    CLEAR: r_kschl[], r_kschl.
    MOVE: c_sign_i TO w_kschl-sign,
          c_option_eq TO w_kschl-option,
          c_bx10 TO w_kschl-low.
    APPEND w_kschl TO r_kschl.
    MOVE: c_sign_i TO w_kschl-sign,
          c_option_eq TO w_kschl-option,
          c_bx11 TO w_kschl-low.
    APPEND w_kschl TO r_kschl.

    SELECT * 
      FROM komv 
     WHERE kschl IN r_kschl.

+3

-1

  FIELD-SYMBOLS: <fs_vbap>  TYPE any,
                 <fs_werks> TYPE any.

    UNASSIGN: <fs_vbap>, <fs_werks>.
    ASSIGN ('(SAPMV45A)XVBAP') TO <fs_vbap>.
    IF <fs_vbap> IS ASSIGNED.
      ASSIGN ('<fs_vbap>-werks') TO <fs_werks>.
      IF <fs_werks> IS ASSIGNED.
*----- Aqui sua lógica
      ENDIF.
    ENDIF.

+1

0

  data: v_i TYPE i,
        v_s TYPE string.

    SPLIT '010101-01' AT '-' INTO: v_num v_serie.

    CONCATENATE '000' v_serie INTO v_s.
    v_i = STRLEN( v_s ) - 3.
    v_serie = v_s+v_i(3).

    CONCATENATE '000000000' v_num INTO v_s.
    v_i = STRLEN( v_s ) - 9.
    v_num = v_s+v_i(9).

+1

0