Scribd Logo
Upload

Welcome to Scribd!

  • 11 views

    ZR038 3

    Uploaded by

    nelsondarla12
    The document describes a report that selects material, description, material type, base unit of measure and plant center from tables and writes it to a file. It uses selection screens, internal tables, formatting and a function module to export the data to a file.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as RTF, PDF, TXT or read online from Scribd

    ZR038 3

    Uploaded by

    nelsondarla12
    11 views3 pages
    The document describes a report that selects material, description, material type, base unit of measure and plant center from tables and writes it to a file. It uses selection screens, internal tables, formatting and a function module to export the data to a file.

    Original Description:

    ZR038_3

    Original Title

    ZR038_3

    Copyright

    © Attribution Non-Commercial (BY-NC)

    Available Formats

    RTF, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    The document describes a report that selects material, description, material type, base unit of measure and plant center from tables and writes it to a file. It uses selection screens, internal tables, formatting and a function module to export the data to a file.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as RTF, PDF, TXT or read online from Scribd
    Download as rtf, pdf, or txt
    11 views3 pages

    ZR038 3

    Uploaded by

    nelsondarla12
    The document describes a report that selects material, description, material type, base unit of measure and plant center from tables and writes it to a file. It uses selection screens, internal tables, formatting and a function module to export the data to a file.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as RTF, PDF, TXT or read online from Scribd
    Download as rtf, pdf, or txt
    You are on page 1of 3

    *&---------------------------------------------------------------------*

    *& Report ZR038_3


    *
    *&
    *
    *&---------------------------------------------------------------------*
    *&
    *
    *&
    *
    *&---------------------------------------------------------------------*
    *----------------------------------------------------------------------*
    *
    Academia ABAP
    *
    *----------------------------------------------------------------------*
    * Programa: ZR038_3
    *
    * Autor:
    Nedson / Gabriel
    *
    * Data:
    21.05.2007
    *
    * Objetivo: Treinamento de Inserts
    *----------------------------------------------------------------------*
    *
    Alteraes
    *
    *----------------------------------------------------------------------*
    * Verso Autor Data
    Observaes
    *----------------------------------------------------------------------*
    * 1.0
    Nedson 20.05.2007 Desenvolvimento Inicial
    *
    *
    *----------------------------------------------------------------------*
    REPORT zr038_3 NO STANDARD PAGE HEADING
    LINE-SIZE 100
    LINE-COUNT 60(1).

    TABLES marc.
    TABLES marav.
    *----------------------------------------------------------------------* Tipo
    *----------------------------------------------------------------------TYPES: BEGIN OF y_marav,
    matnr TYPE marav-matnr,
    maktx TYPE marav-maktx,
    mtart TYPE marav-mtart,
    meins TYPE marav-meins,
    werks TYPE marc-werks,
    END OF y_marav.

    *----------------------------------------------------------------------* Tabelas
    *----------------------------------------------------------------------DATA: t_marav TYPE TABLE OF y_marav.
    *----------------------------------------------------------------------* Work Areas
    *----------------------------------------------------------------------DATA: w_marav TYPE y_marav.

    *
    *

    *----------------------------------------------------------------------* Variaveis.
    *----------------------------------------------------------------------DATA: v_var TYPE i,
    v_cami TYPE string,
    v_cor TYPE i,
    v_cont TYPE i.
    *----------------------------------------------------------------------* Inicio Programa
    *----------------------------------------------------------------------SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-001.
    SELECT-OPTIONS s_werks FOR marc-werks.
    PARAMETER: p_cami TYPE rlgrap-filename.
    SELECTION-SCREEN END OF BLOCK bl1.

    INITIALIZATION.
    *---------------------------------------------------------------------TOP-OF-PAGE.
    write: /1(48) '-----------------------------------------------------'.
    WRITE: /'|',2(5) 'MATERIAL','|',9(10) 'DESCRIO','|',22(8) 'TIPO DO MAT','|',32(8) 'U.M.
    BSICA',
    '|',42(5) 'CENTRO','|'.
    write: /1(48) '-----------------------------------------------------'.
    *---------------------------------------------------------------------END-OF-PAGE.
    write: /1(48) '-----------------------------------------------------'.

    *---------------------------------------------------------------------AT SELECTION-SCREEN OUTPUT.


    p_cami = 'C:\Documents and Settings\abap\Desktop\text.txt'.

    *---------------------------------------------------------------------START-OF-SELECTION.
    v_cami = p_cami.
    SELECT a~matnr a~maktx a~mtart a~meins b~werks
    INTO TABLE t_marav
    FROM marav AS a INNER JOIN marc AS b ON a~matnr = b~matnr
    WHERE b~werks IN s_werks.

    SORT t_marav BY werks ASCENDING.


    LOOP AT t_marav INTO w_marav.
    v_cont = v_cont + 1.
    IF v_cor = 1.
    FORMAT RESET.
    FORMAT COLOR 5.
    WRITE: /'|',2(5) w_marav-matnr,'|',9(10) w_marav-maktx,'|',22(8) w_marav-mtart,'|',32(8)
    w_marav-meins,
    '|',42(5) w_marav-werks,'|'.
    v_cor = 0.
    ELSE.
    FORMAT RESET.
    FORMAT COLOR 6.
    WRITE: /'|',2(5) w_marav-matnr,'|',9(10) w_marav-maktx,'|',22(8) w_marav-mtart,'|',32(8)
    w_marav-meins,
    '|',42(5) w_marav-werks,'|'.
    v_cor = 1.
    ENDIF.
    AT LAST.
    uline at 1(48).
    FORMAT RESET.
    FORMAT COLOR 7.
    uline at 1(48).
    WRITE: /'|',1(48)'O numero de registro : ', v_cont, '|'.
    ENDAT.
    ENDLOOP.

    CALL FUNCTION 'GUI_DOWNLOAD'


    EXPORTING
    filename = v_cami
    IMPORTING
    filelength = v_var
    TABLES
    data_tab = t_marav.

    IF v_var <> ' '.


    MESSAGE 'arquivo gerado com sucesso' TYPE 'I'.
    ENDIF.

    You might also like

    pFad - Phonifier reborn

    Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

    Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


    Alternative Proxies:

    Alternative Proxy

    pFad Proxy

    pFad v3 Proxy

    pFad v4 Proxy