MUNDOSAP

Regresar   MUNDOSAP > DESARROLLO > Programación ABAP IV
Nombre de Usuario
Contraseña
Home Descargas Registrar FAQ Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos




 
 
 
Herramientas Buscar en Tema Desplegado
Prev Mensaje Previo   Próximo Mensaje Próx
  #1  
Viejo 20/10/08, 14:46:06
akiestudio akiestudio is offline
Member
 
Fecha de Ingreso: jul 2008
Mensajes: 46
no consigo cargar las tablas en el contenedor

Hola muchas gracias , tengo el problema de que no cargo los datos de la tabla sflight en el contenedor , alguien puede echarle un ojo que puede sucerderme , aqui esta el include , si creis que el error puede estar en la pai o pbo .... decidmelo , muchas gracias


***INCLUDE ZFRAN_SFLIGHT .
*----------------------------------------------------------------------*

DATA: IT_SFLIGHT TYPE TABLE OF SFLIGHT,
HE_SFILGHT LIKE LINE OF it_sflight.

DATA: IT_TABLA TYPE LVC_T_FCAT,
HE_TABLA LIKE LINE OF IT_TABLA.

DATA: CONTENEDOR TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
ALV TYPE REF TO CL_GUI_ALV_GRID.

* ESTO MEJORA LA ESTETICA DE LA TABLA

DATA LAYOUT TYPE LVC_S_LAYO.

START-OF-SELECTION.
*CREAMOS LOS OBJETOS

create object contenedor
exporting
container_name = 'CONTENEDOR'.


create object alv
exporting
i_parent = CONTENEDOR.

LAYOUT-ZEBRA = 'X'.
LAYOUT-SEL_MODE = 'C'.

*CARGAMOS LAS TABLAS CON LOS CAMPOS DESEADOS

HE_TABLA-FIELDNAME = 'CARRID'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
APPEND HE_TABLA TO IT_TABLA.
CLEAR HE_TABLA.

HE_TABLA-FIELDNAME = 'CONNID'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
APPEND HE_TABLA TO IT_TABLA.
CLEAR HE_TABLA.

HE_TABLA-FIELDNAME = 'FLDATE'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
APPEND HE_TABLA TO IT_TABLA.
CLEAR HE_TABLA.

HE_TABLA-FIELDNAME = 'PRICE'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
APPEND he_tabla TO IT_TABLA.
CLEAR HE_TABLA.

HE_TABLA-FIELDNAME = 'CURRENCY'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
append he_tabla TO IT_TABLA.
CLEAR HE_TABLA.

SELECT * INTO TABLE IT_SFLIGHT FROM SFLIGHT .

call method alv->set_table_for_first_display
exporting

is_layout = LAYOUT

changing
it_outtab = IT_SFLIGHT.
it_fieldcatalog = IT_TABLA.



end-of-selection.



*&---------------------------------------------------------------------*
*& Module PBO_SFLIGHT OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module PBO_SFLIGHT output.
SET PF-STATUS PBO_SFLIGHT.


endmodule. " PBO_SFLIGHT OUTPUT
*&---------------------------------------------------------------------*
*& Module PAI_SFLIGHT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module PAI_SFLIGHT input.

SA_CODE = OK_CODE.
CLEAR OK_CODE.

CASE SA_CODE.
WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.
LEAVE PROGRAM.
ENDCASE.



endmodule. " PAI_SFLIGHT INPUT
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Reglas de Mensajes
no puedes crear nuevos temas
no puedes responder temas
no puedes adjuntar archivos
no puedes editar tus mensajes

El código vB está On
Las caritas están On
Código [IMG] está On
Código HTML está Off
Saltar a Foro


Husos Horarios son GMT. La hora en este momento es 12:22:15.


www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web