Relatório TREE

Blog de guilhermerabelosap :Estudo  Sap -Abap, Relatório TREE

 

*----------------------------------------------------------------------*
* Programa.: ZGUI_TESTE
* Tipo.....: REPORT
* Módulo...:
* Transação:
* Descrição: Relatório ALV e Relatório ALV TREE
*
*                           [HISTÓRICO]
* ======== ========== ========== =======================================
*   Data     Autor     Request   Descrição
* ======== ========== ========== =======================================
* 21/09/10 Guilherme R.   DE1K901553 Codificação Inicial
*-----------------------------------------------------------------------

REPORT  ztestegui33 MESSAGE-ID sy LINE-SIZE 140   "Coluna
                                       LINE-COUNT 100. "Linha

*----------------------------------------------------------------------*
*                       TABELAS STANDARD R/3
*----------------------------------------------------------------------*
TABLES:ztbfi_fcont_lcto.
*----------------------------------------------------------------------*
*                       tipos
*----------------------------------------------------------------------*
TYPES: BEGIN OF y_ztbfi_fcont_lcto,
bukrs    TYPE  ztbfi_fcont_lcto-bukrs,
belnr    TYPE  ztbfi_fcont_lcto-belnr,
budat    TYPE  ztbfi_fcont_lcto-budat,
cod_cta  TYPE  ztbfi_fcont_lcto-cod_cta,
dmbtr    TYPE  ztbfi_fcont_lcto-dmbtr,
vl_dc    TYPE  ztbfi_fcont_lcto-vl_dc.
TYPES: END OF y_ztbfi_fcont_lcto.

TYPES: BEGIN OF y_saida,
bukrs    TYPE  ztbfi_fcont_lcto-bukrs,
belnr    TYPE  ztbfi_fcont_lcto-belnr,
budat    TYPE  ztbfi_fcont_lcto-budat,
cod_cta  TYPE  ztbfi_fcont_lcto-cod_cta,
dmbtr    TYPE  ztbfi_fcont_lcto-dmbtr,
vl_dc    TYPE  ztbfi_fcont_lcto-vl_dc,
total(10) TYPE c.
TYPES: END OF y_saida.

TYPE-POOLS: slis,  "Tabela para utilização do ALV.
            kkblo. "Tabela para utilização do ALV.

*----------------------------------------------------------------------*
*                       tabela interna
*----------------------------------------------------------------------*

DATA: t_ztbfi_fcont_lcto       TYPE TABLE OF y_ztbfi_fcont_lcto,
      t_saida                  TYPE TABLE OF y_saida.

* ALV
DATA: t_fcat        TYPE TABLE OF slis_fieldcat_alv,
      t_sort        TYPE TABLE OF slis_sortinfo_alv,
      t_top_of_page TYPE TABLE OF slis_listheader.

*----------------------------------------------------------------------*
*                      workareas
*----------------------------------------------------------------------*
DATA: wa_ztbfi_fcont_lcto        TYPE y_ztbfi_fcont_lcto,
      wa_saida                   TYPE y_saida.

* ALV
DATA: wa_fcat        TYPE slis_fieldcat_alv,
      wa_sort        TYPE slis_sortinfo_alv,
      wa_top_of_page TYPE slis_listheader,
      wa_layout      TYPE slis_layout_alv.

*----------------------------------------------------------------------*
*                       DECLARAÇÃO DE VARIAVEL
*----------------------------------------------------------------------*

DATA: v_final(10) TYPE c.

*----------------------------------------------------------------------*
*                       DECLARAÇÃO DE PARAMETROS
*----------------------------------------------------------------------*

SELECTION-SCREEN: BEGIN OF BLOCK block1 WITH FRAME TITLE text-001. "Critério de Seleção

SELECT-OPTIONS: s_cod    FOR ztbfi_fcont_lcto-bukrs.
PARAMETERS:     p_tree RADIOBUTTON GROUP g1.
PARAMETERS:     p_alv  RADIOBUTTON GROUP g1.

SELECTION-SCREEN: END OF BLOCK block1.

*----------------------------------------------------------------------*
*                      inicio da logica
*----------------------------------------------------------------------*

PERFORM seleciona_dados.
PERFORM monta_saida.
PERFORM imprimir_alv.

*&---------------------------------------------------------------------*
*&      Form  SELECIONA_DADOS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM seleciona_dados .

  SELECT bukrs
         belnr
         budat
         cod_cta
         dmbtr
         vl_dc
         FROM ztbfi_fcont_lcto
         INTO TABLE t_ztbfi_fcont_lcto
         WHERE bukrs IN s_cod.

ENDFORM.                    " SELECIONA_DADOS
*&---------------------------------------------------------------------*
*&      Form  MONTA_SAIDA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM monta_saida .

LOOP AT t_ztbfi_fcont_lcto INTO wa_ztbfi_fcont_lcto.
*soma dois o até mais campos e move o resultado para uma variavel
    v_final = wa_ztbfi_fcont_lcto-dmbtr + wa_ztbfi_fcont_lcto-vl_dc.

    MOVE: wa_ztbfi_fcont_lcto-bukrs   TO wa_saida-bukrs,
          wa_ztbfi_fcont_lcto-belnr   TO wa_saida-belnr,
          wa_ztbfi_fcont_lcto-budat   TO wa_saida-budat,
          wa_ztbfi_fcont_lcto-cod_cta TO wa_saida-cod_cta ,
          wa_ztbfi_fcont_lcto-dmbtr   TO wa_saida-dmbtr,
          wa_ztbfi_fcont_lcto-vl_dc   TO wa_saida-vl_dc,
          v_final                     TO wa_saida-total.

    APPEND wa_saida TO t_saida.
    CLEAR: wa_saida.

  ENDLOOP.

ENDFORM.                    " MONTA_SAIDA
*&---------------------------------------------------------------------*
*&      Form  IMPRIMIR_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM imprimir_alv .

  IF NOT t_saida[] IS INITIAL.

    PERFORM zf_monta_layout.
    PERFORM zf_monta_fieldcat.
    PERFORM zf_mostra_alv.

  ENDIF.

ENDFORM.                    " IMPRIMIR_ALV
*&---------------------------------------------------------------------*
*&      Form  ZF_MONTA_LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM zf_monta_layout .

*Imprimir linha clara e escura alternadamente
  wa_layout-zebra             = 'X'.

*Abre a lista com as colunas do tamanho necessário para mostragem
  wa_layout-colwidth_optimize = 'X'.

ENDFORM.                    " ZF_MONTA_LAYOUT
*&---------------------------------------------------------------------*
*&      Form  ZF_MONTA_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM zf_monta_fieldcat .

  PERFORM zf_fieldcat  USING:  'T_SAIDA'  'BUKRS'   'BUKRS',
                               'T_SAIDA'  'BELNR'   'BELNR',
                               'T_SAIDA'  'BUDAT'   'BUDAT',
                               'T_SAIDA'  'COD_CTA' 'COD_CTA',
                               'T_SAIDA'  'DMBTR'   'DMBTR',
                               'T_SAIDA'  'VL_DC'   'VL_DC',
                               'T_SAIDA'  'TOTAL'   'TOTAL'.
  
ENDFORM.                    " ZF_MONTA_FIELDCAT
*&---------------------------------------------------------------------*
*&      Form  ZF_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_0605   text
*      -->P_0606   text
*      -->P_0607   text
*----------------------------------------------------------------------*
FORM zf_fieldcat  USING p_tabela TYPE any
                        p_campo  TYPE any
                        p_texto  TYPE any.


* Move registros para Catálogo do ALV
  wa_fcat-tabname        = p_tabela.
  wa_fcat-fieldname      = p_campo.
  wa_fcat-reptext_ddic   = p_texto.


* Insere registro na tabela de Saída do Relatório
  APPEND wa_fcat TO t_fcat.
  CLEAR  wa_fcat.

ENDFORM.                    " ZF_FIELDCAT
*&---------------------------------------------------------------------*
*&      Form  ZF_MOSTRA_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM zf_mostra_alv .

  IF p_alv = 'X'.

    DATA: vl_repid TYPE sy-repid. "Nome do Programa

    vl_repid = sy-repid.

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        i_callback_program = vl_repid
        is_layout          = wa_layout
        it_fieldcat        = t_fcat
        i_default          = 'X'
      TABLES
        t_outtab           = t_saida
      EXCEPTIONS
        program_error      = 1
        OTHERS             = 2.

    IF NOT sy-subrc IS INITIAL.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
  ENDIF.
  PERFORM z_mostra_tree.

ENDFORM.                    " ZF_MOSTRA_ALV

*&---------------------------------------------------------------------*
*&      Form  Z_MOSTRA_TREE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM z_mostra_tree .

  IF  p_tree = 'X'.

    TYPE-POOLS : fibs,stree.

    DATA : t_node TYPE snodetext.

    DATA : node_tab LIKE t_node OCCURS 0 WITH HEADER LINE.

    CLEAR : node_tab, node_tab[].

    node_tab-type = 'T'.
    node_tab-name = 'Relatório Tree'.
    node_tab-tlevel = '15'.
    node_tab-nlength = '15'.
    node_tab-color = 4.
    APPEND node_tab.
    CLEAR node_tab.

    node_tab-type = 'P'.
    node_tab-name = 'Relatório Blocos I200 e I250'.
    node_tab-tlevel = '03'.
    node_tab-nlength = '25'.
    node_tab-color = '4'.
    APPEND node_tab.
    CLEAR node_tab.

    node_tab-text1      = 'BUKRS'.
    node_tab-tlength1   = 5.
    node_tab-tlevel     = 4.
    node_tab-tcolor1    = 4.
    node_tab-tintensiv1 = '0'.

    node_tab-text2      = 'BELNR'.
    node_tab-tlength2   = 5.
    node_tab-tlevel     = 4.
    node_tab-tcolor2    = 4.
    node_tab-tintensiv2 = '0'.

    node_tab-text3      = 'BUDAT'.
    node_tab-tlength3   = 5.
    node_tab-tlevel     = 4.
    node_tab-tcolor3    = 4.
    node_tab-tintensiv3 = '0'.

    node_tab-text4      = 'COD_CTA'.
    node_tab-tlength4   = 7.
    node_tab-tlevel     = 4.
    node_tab-tcolor4    = 4.
    node_tab-tintensiv4 = '0'.

    node_tab-text5      = 'DMBTR'.
    node_tab-tlength5   = 5.
    node_tab-tlevel     = 4.
    node_tab-tcolor5    = 4.
    node_tab-tintensiv5 = '0'.

    node_tab-text6      = 'VL_DC'.
    node_tab-tlength6   = 7.
    node_tab-tlevel     = 4.
    node_tab-tcolor6    = 4.
    node_tab-tintensiv6 = '0'.

    node_tab-text7      = 'TOTAL'.
    node_tab-tlength7   = 7.
    node_tab-tlevel     = 4.
    node_tab-tcolor7    = 4.
    node_tab-tintensiv7 = '0'.
    APPEND node_tab.
    CLEAR node_tab.

    node_tab-text1      = wa_ztbfi_fcont_lcto-bukrs.
    node_tab-tlength1   = 5.
    node_tab-tlevel     = 4.
    node_tab-tcolor1    = 7.
    node_tab-tintensiv1 = '0'.

    node_tab-text2      = wa_ztbfi_fcont_lcto-belnr.
    node_tab-tlength2   = 5.
    node_tab-tlevel     = 4.
    node_tab-tcolor2    = 7.
    node_tab-tintensiv2 = '0'.

    node_tab-text3      = wa_ztbfi_fcont_lcto-budat.
    node_tab-tlength3   = 5.
    node_tab-tlevel     = 4.
    node_tab-tcolor3    = 7.
    node_tab-tintensiv3 = '0'.

    node_tab-text4      = wa_ztbfi_fcont_lcto-cod_cta.
    node_tab-tlength4   = 7.
    node_tab-tlevel     = 4.
    node_tab-tcolor4    = 7.
    node_tab-tintensiv4 = '0'.

    node_tab-text5      = wa_ztbfi_fcont_lcto-dmbtr.
    node_tab-tlength5   = 5.
    node_tab-tlevel     = 4.
    node_tab-tcolor5    = 7.
    node_tab-tintensiv5 = '0'.

    node_tab-text6      = wa_ztbfi_fcont_lcto-vl_dc.
    node_tab-tlength6   = 7.
    node_tab-tlevel     = 4.
    node_tab-tcolor6    = 7.
    node_tab-tintensiv6 = '0'.

    node_tab-text7      = v_final.
    node_tab-tlength7   = 7.
    node_tab-tlevel     = 4.
    node_tab-tcolor7    = 7.
    node_tab-tintensiv7 = '0'.
    APPEND node_tab.
    CLEAR node_tab.

    CALL FUNCTION 'RS_TREE_CONSTRUCT'
      TABLES
        nodetab = node_tab.

    DATA: type_mapping TYPE stree_ctl_type_mapping_tab.
    DATA: wa_type TYPE stree_ctl_type_mapping.
    CLEAR: type_mapping[].

    wa_type-type = 'A'.
    wa_type-icon = '@BL@'.
    APPEND wa_type TO type_mapping.

    CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
      EXPORTING
        use_control = 'L'.
  ENDIF.
ENDFORM.                    " Z_MOSTRA_TREE

quarta 21 setembro 2011 09:23


Relatório WRITE

Blog de guilhermerabelosap :Estudo  Sap -Abap, Relatório WRITE

  *&---------------------------------------------------------------------*
*& Report  ZTESTE_GUI3
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTESTE_GUI3.
*Parametro de seleção                                                      *
****************************************************************************

PARAMETERS: pa_num TYPE i.

****************************************************************************
*Variável                                                                  *
****************************************************************************

data : gv_result TYPE i.

****************************************************************************
*Lógica                                                                    *
****************************************************************************
move:
pa_num to gv_result.

do 10 times.
  add 1 to gv_result.
ENDDO.

WRITE: 'your input:',
pa_num.

NEW-LINE.

WRITE:'result:',gv_result.

quarta 21 setembro 2011 09:18


Relatório ALV

Blog de guilhermerabelosap :Estudo  Sap -Abap, Relatório ALV

 ALV - Abap List View  - Basicamente uma função Standard que pega a sua tabela interna de dados e transforma em um relatório. Existem algumas funcionalidades como gerar um arquivo Excel, gráficos, somatórias de campos, "links" para chamar uma outra transação, etc.. etc..

 Criando um Relatório ALV.

Nesse meu exemplo Irei usar somente tabelas STANDARD

REPORT  Zteste_Alv MESSAGE-ID sy LINE-SIZE 140   "Coluna
                                       LINE-COUNT 100. "Linha

*----------------------------------------------------------------------*
*                       TABELAS STANDARD R/3
*----------------------------------------------------------------------*

TABLES: ekko,
        ekpo,
        makt.

*----------------------------------------------------------------------*
*          TIPOS
*----------------------------------------------------------------------*

TYPES: BEGIN OF y_ekko,
       ebeln TYPE ekko-ebeln,
END OF y_ekko.

TYPES: BEGIN OF y_ekpo,
        ebeln TYPE ekpo-ebeln,
        ebelp TYPE ekpo-ebelp,
        matnr TYPE ekpo-matnr.
TYPES: END OF y_ekpo.

TYPES: BEGIN OF y_makt,
       matnr TYPE makt-matnr,
       maktx TYPE makt-maktx.
TYPES: END OF y_makt.

TYPES : BEGIN OF y_saida,
        ebeln TYPE ekpo-ebeln,
        ebelp TYPE ekpo-ebelp,
        matnr  TYPE ekpo-matnr,
        maktx  TYPE makt-maktx.
TYPES: END OF y_saida.

* ALV
TYPE-POOLS: slis,  "Tabela para utilização do ALV.
            kkblo. "Tabela para utilização do ALV.

*----------------------------------------------------------------------*
*                        TABELAS INTERNA
*----------------------------------------------------------------------*

DATA: t_ekko  TYPE TABLE OF y_ekko.
DATA: t_ekpo  TYPE TABLE OF y_ekpo.
DATA: t_makt  TYPE TABLE OF y_makt.
DATA: t_saida TYPE TABLE OF y_saida.

* ALV
DATA: t_fcat        TYPE TABLE OF slis_fieldcat_alv,
      t_sort        TYPE TABLE OF slis_sortinfo_alv,
      t_top_of_page TYPE TABLE OF slis_listheader.

*----------------------------------------------------------------------*
*                        ESTRUTURAS
*----------------------------------------------------------------------*

DATA: wa_ekko  TYPE y_ekko.
DATA: wa_ekpo  TYPE y_ekpo.
DATA: wa_makt  TYPE y_makt.
DATA: wa_saida TYPE y_saida.

* ALV
DATA: wa_fcat        TYPE slis_fieldcat_alv,
      wa_sort        TYPE slis_sortinfo_alv,
      wa_top_of_page TYPE slis_listheader,
      wa_layout      TYPE slis_layout_alv.

*----------------------------------------------------------------------*
*                       DECLARAÇÃO DE PARAMETROS
*----------------------------------------------------------------------*

SELECTION-SCREEN: BEGIN OF BLOCK block1 WITH FRAME TITLE text-001. "Critério de Seleção

SELECT-OPTIONS: s_ebeln FOR ekko-ebeln.



SELECTION-SCREEN: END OF BLOCK block1.

*----------------------------------------------------------------------*
*                         INICIO DA LÓGICA
*----------------------------------------------------------------------*

START-OF-SELECTION.

  PERFORM seleciona_dados.
  PERFORM monta_saida.

    PERFORM imprimir_alv.
END-OF-SELECTION.




*----------------------------------------------------------------------*
* Form SELECIONA_DADOS
*----------------------------------------------------------------------*
* Rotina para Selecionar todos os Dados
*----------------------------------------------------------------------*
FORM seleciona_dados .

  SELECT  ebeln
    FROM ekko
    INTO TABLE t_ekko
    WHERE ebeln IN s_ebeln.

  IF sy-subrc <> 0.
    MESSAGE s002(sy) WITH 'dados nao encontrados' DISPLAY LIKE 'E'.
    LEAVE LIST-PROCESSING.
  ENDIF.

  IF NOT t_ekko[] IS INITIAL.

    SELECT ebeln ebelp matnr
      FROM ekpo
      INTO TABLE t_ekpo
      FOR ALL ENTRIES IN t_ekko
      WHERE ebeln = t_ekko-ebeln.

  ENDIF.


  IF NOT t_ekpo[] IS INITIAL.

    SELECT matnr maktx
      FROM makt
      INTO TABLE t_makt
      FOR ALL ENTRIES IN t_ekpo
      WHERE matnr = t_ekpo-matnr.

  ENDIF.

ENDFORM.                    " SELECIONA_DADOS

*----------------------------------------------------------------------*
* Form MONTA_SAIDA
*----------------------------------------------------------------------*
* Rotina para montar a tabela T_SAIDA
*----------------------------------------------------------------------*
FORM monta_saida.

  LOOP AT t_ekpo INTO wa_ekpo.

    CLEAR: wa_ekko.
    READ TABLE t_ekko INTO wa_ekko WITH KEY ebeln = wa_ekpo-ebeln.

    CLEAR: wa_makt.
    READ TABLE t_makt INTO wa_makt WITH KEY matnr = wa_ekpo-matnr.

    IF sy-subrc = 0.

      MOVE wa_ekko-ebeln TO wa_saida-ebeln.
      MOVE wa_ekpo-ebelp TO wa_saida-ebelp.
      MOVE wa_makt-matnr TO wa_saida-matnr.
      MOVE wa_makt-maktx TO wa_saida-maktx.

      APPEND wa_saida TO t_saida.
      CLEAR: wa_saida.

    ENDIF.

  ENDLOOP.

ENDFORM.                    " MONTA_SAIDA



*----------------------------------------------------------------------*
* Form IMPRIMIR_ALV
*----------------------------------------------------------------------*
* Rotina para imprimir o relatório em formato ALV
*----------------------------------------------------------------------*
FORM imprimir_alv.

  IF NOT t_saida[] IS INITIAL.

  SORT t_saida BY ebeln ebelp ASCENDING. "ASCENDING  - Crecente
                                         "DESCENDING - Decrecente

    PERFORM zf_monta_layout.
    PERFORM zf_monta_fieldcat.
    PERFORM zf_mostra_alv.

  ENDIF.

ENDFORM.                    " IMPRIMIR_ALV

*----------------------------------------------------------------------*
* Form zf_monta_layout
*----------------------------------------------------------------------*
* Rotina para montar o Layout de saida.
*----------------------------------------------------------------------*
FORM zf_monta_layout.

*Imprimir linha clara e escura alternadamente
  wa_layout-zebra             = 'X'.

*Abre a lista com as colunas do tamanho necessário para mostragem
  wa_layout-colwidth_optimize = 'X'.

ENDFORM.                    " zf_monta_layout

*----------------------------------------------------------------------*
* Form zf_monta_fieldcat
*----------------------------------------------------------------------*
* Rotina para Montar a Tabela Fieldcat.
*----------------------------------------------------------------------*
FORM zf_monta_fieldcat.

  PERFORM zf_fieldcat USING: 'T_SAIDA' 'EBELN' 'Doc. Compra',
                             'T_SAIDA' 'EBELP' 'Item',
                             'T_SAIDA' 'MATNR' 'Material',
                             'T_SAIDA' 'MAKTX' 'Descrição Material'.

ENDFORM.                    " zf_monta_fieldcat

*----------------------------------------------------------------------*
* Form zf_fieldcat
*----------------------------------------------------------------------*
* Paramêtros que será usados na estrutura fielcat.
*----------------------------------------------------------------------*
*      --> P_TABELA: Paramêtro com o nome da tabela.
*      --> P_CAMPO:  Paramêtro com o nome do campo.
*      --> P_TEXTO:  Paramêtro com o nome do texto.
*----------------------------------------------------------------------*
FORM zf_fieldcat USING p_tabela TYPE any
                       p_campo  TYPE any
                       p_texto  TYPE any.

  wa_fcat-tabname        = p_tabela.
  wa_fcat-fieldname      = p_campo.
  wa_fcat-reptext_ddic   = p_texto.

  APPEND wa_fcat TO t_fcat.
  CLEAR  wa_fcat.

ENDFORM.                    " zf_fieldcat

*----------------------------------------------------------------------*
* Form zf_mostra_alv
*----------------------------------------------------------------------*
* Função para mostrar o Relatório ALV
*----------------------------------------------------------------------*
FORM zf_mostra_alv.

  DATA: vl_repid TYPE sy-repid.

  vl_repid = sy-repid.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = vl_repid
      is_layout          = wa_layout
      it_fieldcat        = t_fcat
      i_default          = 'X'
    TABLES
      t_outtab           = t_saida
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.

  IF NOT sy-subrc IS INITIAL.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

ENDFORM.                    " zf_mostra_alv

 

 

quarta 20 julho 2011 12:14


A história da SAP

Blog de guilhermerabelosap :Estudo  Sap -Abap, A história da SAP

Sistemas, Aplicações e Produtos em Processamento de Dados"Systeme, Anwendungen, Produkte in der Datenverarbeitung"

 Softwarehouse fundada na Alemanha em 1972. Emprega mais de 29.100 funcionários. 19.000 Clientes,  60.000 instalações em + 120 Países. Mais de 12 milhões de usuários finais.   Receita de mais de USD 8 bilhões em 2002

Introdução ao SAP Os passos iniciais para que o SAP viesse ao mundo começaram a ser dados em 1972, na cidade de Waldorf, na Alemanha, quando cinco engenheiros, funcionários da IBM, decidiram criar sua própria empresa de desenvolvimento de sistemas: a SAP AG. Isso mesmo, SAP não é apenas o nome do pacote de gestão mais falado no mundo, é também o nome da empresa que o desenvolveu.

O nome da empresa era na verdade uma acrossemia (nome formado pelas iniciais de uma série de palavras). As iniciais SAP significam Systeme, Anwendung und Programme (Sistemas, Aplicações e Produtos). O AG era a abreviação de aktiengesellschaft (sociedade anónima em alemão).

O primeiro produto importante da nova empresa foi o SAP R/2 (Realtime System Version 2), um conjunto de módulos de software destinado a mainframes, que em 1995 ainda era utilizado por mais de 2000 empresas.

A medida que novos conceitos iam surgindo no campo da informática, a SAP ia atualizando seu produto, até que em 1989, as primeiras aplicações do SAP R/3 foram apresentadas numa conferência em Hanover, Alemanha.

Neste ponto devo esclarecer que R/2 e R/3 não representam versões de um mesmo sistema, tratam-se na verdade de produtos diferentes. O R/2 era um conjunto de módulos de software destinado a mainframes, enquanto o R/3 foi desenvolvido para o ambiente cliente/servidor (ambiente em que algumas estações solicitam serviços, os clientes, e outras, os servidores, atendem, realizando determinados tipos de processamento ou compartilhando recursos como impressoras, arquivos e bancos de dados). O SAP R/3 é um sistema que oferece um conjunto de módulos com diversas aplicações de negócio. Os módulos são integrados e contém a maior parte das funcionalidades necessárias às grandes corporações , incluindo manufatura, finanças, vendas e distribuição e recursos humanos. Cada módulo é responsável por mais de 1000 processos de negócio, cada um deles baseado em práticas consagradas no mundo dos negócios. A configurabilidade do sistema é tornada possível por 8000 tabelas que administram desde a estrutura corporativa até a política de desconto oferecida aos clientes. O sistema oferece o processamento de informações em verdadeiro tempo real ao longo da empresa onde estiver implementado. Não é a toa que o sistema é um best-seller. como provam os números a seguir.

Em 1995, a SAP AG tinha mais de 6600 colaboradores ao redor do mundo. Neste mesmo ano, a SAP liderava o mercado de softwares para ambiente cliente/servidor. Além disso a SAP ocupava a quinta posição no ranking das empresas de software. Hoje mais de 4000 empresas possuem o produto da SAP implementado..Um dos motivos do sucesso da SAP é o montante investido em pesquisa e desenvolvimento e as alianças estratégicas que forma com outros desenvolvedores de sistemas. Estes parceiros criam add-ons (programas complementares) que suprem algumas deficiências do R/3. Este tipo de união permite que a SAP foque seus esforços no seu principal produto.

maiores informações segue o link:http://br.answers.yahoo.com/question/index?qid=20061120102346AA3SNZH

segunda 18 julho 2011 22:12


Eu e minha namorada linda!!!!!!!!!!!!!!!!!

Blog de guilhermerabelosap :Estudo  Sap -Abap, Eu e minha namorada linda!!!!!!!!!!!!!!!!!

Amanhã eu e minha namora  Ariani completaremos mais eu mês de namoro.

E que essa data se repita sempre.

Amor eu  quero te dizer  que eu te amo muito e que estou muito feliz ao seu lado!  e quero sempre te fazer feliz.

segunda 18 julho 2011 22:16



Abrir a barra
Fechar a barra

Precisa estar conectado para enviar uma mensagem para guilhermerabelosap

Precisa estar conectado para adicionar guilhermerabelosap para os seus amigos

 
Criar um blog