Ver Mensaje Individual
  #2  
Viejo 25/01/08, 22:12:13
emulation emulation is offline
Junior Member
 
Fecha de Ingreso: dic 2007
Mensajes: 3
bueno me respondo yo mismo ya que nadie me dijo nada....

REPORT z_exercise2_jvb.
TABLES sflight.
DATA: one(2),two(13),three(12),four(1),five(3),six(14),contador TYPE i.

TYPES: itt_sflight TYPE TABLE OF sflight.
DATA: it_sflight TYPE itt_sflight WITH HEADER LINE.
DATA: it_sflight2 TYPE itt_sflight WITH HEADER LINE.
data: var_aux type sflight-planetype.
FIELD-SYMBOLS: <fs> TYPE LINE OF itt_sflight.

WRITE: / 'SFLIGHT-CARRID',one,'SFLIGHT-CONNID',one,'SFLIGHT-FLDATE',five,'SFLIGHT-SEATSMAX',one,'SFLIGHT-PLANETYPE',one,'SFLIGHT-SEATSOCC_B'.

SELECT-OPTIONS s_ptype FOR sflight-planetype.
SELECT * FROM sflight INTO CORRESPONDING FIELDS OF TABLE it_sflight WHERE planetype IN s_ptype
ORDER BY carrid planetype.

LOOP AT it_sflight ASSIGNING <fs>.
AT NEW carrid.
WRITE: /.
ENDAT.

if var_aux NE <fs>-planetype.
var_aux = <fs>-planetype.
WRITE :/.
ENDIF.

WRITE: / <fs>-carrid, two,
<fs>-connid, three,
<fs>-fldate, four,
<fs>-seatsmax, six,
<fs>-planetype, one,
<fs>-seatsocc_b.
ENDLOOP.

como ven creo un campo del tipo que quiero y hago un condicional..
if var_aux NE <fs>-planetype. si esto es true entonces hago esto
var_aux = <fs>-planetype. sino pinto un espacio en blanco en la pantalla.

y listo solucionado mi problema
Responder Con Cita