Este es el programa:
REPORT Y_PRUEBA_2011_03_02.
*-----------------------------------------------------------------------
* DECLARACIÓN DE TABLAS
*-----------------------------------------------------------------------
tables: KNA1, T005T.
*-----------------------------------------------------------------------
* DECLARACIÓN DE ESTRUCTURAS
*-----------------------------------------------------------------------
* Estructura para mostrar los datos de salida por ALV
data: begin of gt_data OCCURS 0,
KUNNR like KNA1-KUNNR, "Cliente
LAND1 like KNA1-LAND1, "Pais
NAME1 like KNA1-NAME1, "Nombre
KUKLA like KNA1-KUKLA, "Clase de Cliente
LANDX like T005T-LANDX, " Descripcion Pais
end of gt_data.
DATA: P_LAND1 LIKE KNA1-LAND1.
*-----------------------------------------------------------------------
* DECLARACIÓN DE TYPE-POOLS
*-----------------------------------------------------------------------
type-pools: icon, slis, kkblo.
*-----------------------------------------------------------------------
* PARAMETROS DE SELECCIÓN
*-----------------------------------------------------------------------
selection-screen begin of block 1 with frame title text-001.
select-options:
p_KUNNR for KNA1-KUNNR.
parameters:
p_SPRAS like T005T-SPRAS obligatory default 'ES'.
selection-screen end of block 1.
*-----------------------------------------------------------------------
* START OF SELECTION
*-----------------------------------------------------------------------
start-of-selection.
select KUNNR LAND1 NAME1 KUKLA INTO TABLE gt_data
from KNA1
where KUNNR in p_KUNNR.
P_LAND1 = gt_data-LAND1.
SELECT LANDX INTO TABLE gt_data
from T005T
where LAND1 EQ p_LAND1
and SPRAS eq p_SPRAS.
* Muestro el ALV
perform ejecutar_alv tables gt_data.
Lo del perform esta bien xq ya lo use y aprendi bastante sobre eso en otros, ademas q debaguando veo como se me borra la tabla gt_data.
|