SoloCodigo

hola blag, gracias por responder a todo..
te cuento q estoy usando el sap nuevo... y nos indican q empecemos a declarar las tablas de esta forma:

TYPES: BEGIN OF TI_SFLIGHT ,
      CONNID LIKE SFLIGHT-CONNID,
      CARRID LIKE SFLIGHT-CARRID,
      FLDATE LIKE SFLIGHT-FLDATE,
      PRICE LIKE SFLIGHT-PRICE,
      CURRENCY LIKE SFLIGHT-CURRENCY,
      PLANETYPE LIKE SFLIGHT-PLANETYPE,
END OF TI_SFLIGHT.

DATA: IT_SFLIGHT TYPE TABLE OF TI_SFLIGHT.

DATA: wa_sflight TYPE TI_SFLIGHT.

Esto no entiendo por q standard y q hace el with header line...
DATA: T_MARA TYPE STANDARD TABLE OF MARA WITH HEADER LINE.

pd: te agregue al msn..

desde ya gracias, Sami

Código: Text

1.  
2. ************************************************************************
3. * Programa : Z_PRUEBA_ABAP
4. * Módulo   : FI - Finanzas
5. * Documento:
6. * Usuario responsable:
7. * Consultor funcional:
8. * Consultor ABAP     : Alvaro Tejada Galindo
9. * Descripción: Programa de Ejemplo de ABAP
10. * Transacción:
11. * Juego de datos:
12. ************************************************************************
13.  
14. REPORT Z_PRUEBA_ABAP.
15.  
16. *=======================================================================
17. * Tablas
18. *=======================================================================
19.  
20. "Definimos las tablas que vamos a leer
21. TABLES: BKPF,BSEG.
22.  
23. *=======================================================================
24. * Estructuras
25. *=======================================================================
26.  
27. "Creamos una tabla interna con los campos necesarios
28. "El OCCURS 0 indica que es una tabla dinámica
29. DATA: BEGIN OF T_DATOS OCCURS 0,
30.       BUKRS LIKE BKPF-BUKRS,
31.       BELNR LIKE BKPF-BELNR,
32.       GJAHR LIKE BKPF-GJAHR,
33.       BLART LIKE BKPF-BLART,
34.       WAERS LIKE BKPF-WAERS,
35.       DMBTR LIKE BSEG-DMBTR,
36.       END OF T_DATOS.
37.  
38. *=======================================================================
39. * Variables
40. *=======================================================================
41.  
42. "Una variable a modo de contador
43. DATA: CONTADOR TYPE I.
44.  
45. *=======================================================================
46. * Selection screen
47. *=======================================================================
48.  
49. "Estos son los parámetros de selección de nuestro programa
50.  
51. SELECTION-SCREEN BEGIN OF BLOCK DATA WITH FRAME TITLE TEXT-T01.
52. "Podemos elegir un rango de valores
53. SELECT-OPTIONS:
54.       S_BUKRS FOR BKPF-BUKRS,
55.       S_BELNR FOR BKPF-BELNR.
56. "Podemos elegir solamente un valor
57. "OBLIGATORY indica que es obligatorio para ejecutar el programa
58. PARAMETERS:
59.       P_GJAHR LIKE BKPF-GJAHR OBLIGATORY.
60. SELECTION-SCREEN END OF BLOCK DATA.
61.  
62. *=======================================================================
63. * Start-of-selection
64. *=======================================================================
65.  
66. "Comienza la ejecución del programa
67.  
68. START-OF-SELECTION.
69. "Llamamos a las funciones que hemos creado
70. PERFORM OBTENER_DATOS.
71. PERFORM IMPRIMIR_DATOS.
72.  
73. *=======================================================================
74. * Subrutinas
75. *=======================================================================
76.  
77. *&---------------------------------------------------------------------*
78. *&      Form  OBTENER_DATOS
79. *&---------------------------------------------------------------------*
80. * Obtenemos los datos de las tablas BKPF y BSEG.
81. *----------------------------------------------------------------------*
82.  
83. FORM OBTENER_DATOS.
84.  
85. "Seleccionamos los valores de la tabla BKPF que cumplan con los
86. "requisitos y los guardamos en nuestra tabla interna.
87. "El APPEND sirve para almacenar los valores en la ultima fila
88. "de la tabla interna
89.  
90. SELECT BUKRS BELNR GJAHR BLART WAERS
91. INTO T_DATOS
92. FROM BKPF
93. WHERE BUKRS IN S_BUKRS
94.   AND BELNR IN S_BELNR
95.   AND GJAHR EQ P_GJAHR.
96. APPEND T_DATOS.
97. ENDSELECT.
98.  
99. "Hacemos un LOOP para recorrer todos los registros de nuestra
100. "tabla interna
101.  
102. LOOP AT T_DATOS.
103. "El SY-TABIX es una variable del sistema que nos indica el número
104. "de vueltas que ha dado un LOOP.
105. CONTADOR = SY-TABIX.
106. "Seleccionamos un dato y lo almacenamos en uno de los campos
107. "de nuestra tabla interna. El SINGLE indica que solo queremos un
108. "valor
109. SELECT SINGLE DMBTR
110. INTO T_DATOS-DMBTR
111. FROM BSEG
112. WHERE BUKRS EQ T_DATOS-BUKRS
113.   AND BELNR EQ T_DATOS-BELNR
114.   AND GJAHR EQ T_DATOS-GJAHR.
115.  
116. "El MODIFY modifica la tabla interna, para agregar el valor
117. "que hemos obtenido en el query anterior, utilizando como
118. "indice, el número de vuelta del LOOP
119.  
120. MODIFY T_DATOS INDEX CONTADOR.
121.  
122. ENDLOOP.
123.  
124. ENDFORM.
125.  
126. *&---------------------------------------------------------------------*
127. *&      Form  IMPRIMIR_DATOS
128. *&---------------------------------------------------------------------*
129. * Imprimimos en pantalla los datos generados
130. *----------------------------------------------------------------------*
131.  
132. FORM IMPRIMIR_DATOS.
133.  
134. "Imprimimos una pequeña cabecera con los titulos
135.  
136. WRITE:/1 'Sociedad',15 'Doc. Contable',30 'Año',37 'Moneda',
137. 55 'Monto'.
138.  
139. "Recorremos nuestra tabla interna e imprimimos en pantalla
140. "registro por registro...
141.  
142. LOOP AT T_DATOS.
143. WRITE:/1 T_DATOS-BUKRS,15 T_DATOS-BELNR,30 T_DATOS-GJAHR,
144. 38 T_DATOS-WAERS,45 T_DATOS-DMBTR.
145. ENDLOOP.
146.  
147. ENDFORM.
148.  
149.  

Saludos,

Blag  

Hola gente busco info sobre OCCURS... el unico valor q toma es 0??
Significa q es una tabla dinamica nada mas??
Desde ya muchas gracias!
Sami

"Creamos una tabla interna con los campos necesarios
"El OCCURS 0 indica que es una tabla dinámica
DATA: BEGIN OF T_DATOS OCCURS 0,