Sap Programação

*&---------------------------------------------------------------------*
*& Report ZTESTE_D
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zteste_d.
"declaraçao para alv"
TYPE-POOLS: slis.

"tabelas transparentes"
TABLES: vbak,vbap.

"tabela interna"
TYPES: BEGIN OF ty_vbak, vbeln TYPE vbak-vbeln, erdat TYPE vbak-erdat, vbtyp TYPE vbak-vbtyp, END OF ty_vbak.

TYPES: BEGIN OF ty_vbap, vbeln TYPE vbap-vbeln, posnr TYPE vbap-posnr, matnr TYPE vbap-matnr, charg TYPE vbap-charg, END OF ty_vbap.

*--------------------------------------------------------------------*
* Temos que criar uma tabela de saída que contenha todos os campos
* que vão ser exibidos no relatório ALV
*--------------------------------------------------------------------*
TYPES: BEGIN OF ty_total, vbeln LIKE vbak-vbeln, erdat LIKE vbak-erdat, vbtyp LIKE vbak-vbtyp, posnr LIKE vbap-posnr, matnr LIKE vbap-matnr, charg LIKE vbap-charg, END OF ty_total.

*--------------------------------------------------------------------*
* Tabelas internas a serem utilizdas
*--------------------------------------------------------------------*
DATA: t_saida TYPE TABLE OF ty_total, t_vbap TYPE TABLE OF ty_vbap, t_vbak TYPE TABLE OF ty_vbak.

*--------------------------------------------------------------------*
* Estruturas
*--------------------------------------------------------------------*
DATA: wa_saida TYPE ty_total.
DATA: wa_vbak TYPE ty_vbak.
DATA: wa_vbap TYPE ty_vbap.

PARAMETERS: p_vbeln TYPE vbak-vbeln.

PERFORM f_seleciona_dados.
PERFORM f_monta_dados.
PERFORM f_exibe_dados.

"seleciona todos os dados da tabela"
*&---------------------------------------------------------------------*
*& Form f_seleciona_dados