SoloCodigo

El resultado de ejecutar este reporte sería:

Programa ejemplo de ABAP                                   
                                                           
Sociedad    Doc. Contable  Año    Moneda           Monto
ENER          400000001      2004    USD             700,00
ENER          400000002      2004    USD             700,00
ENER          400000003      2004    USD             700,00
ENER          400000004      2004    USD             700,00
ENER          400000005      2004    USD             700,00
ENER          2000000001     2004    PEN          14.752,05
ENER          2000000002     2004    PEN          13.231,37
ENER          2000000003     2004    PEN           1.519,35
ENER          2000000004     2004    PEN           7.677,52
ENER          2000000005     2004    PEN           9.917,00
ENER          2000000006     2004    PEN          28.342,32
ENER          2000000007     2004    PEN              97,14
ENER          2000000008     2004    PEN           1.873,83
ENER          2000000009     2004    PEN              96,24
ENER          2000000010     2004    PEN              20,98
ENER          2000000011     2004    PEN              32,96
ENER          2000000012     2004    PEN              26,59
ENER          2000000013     2004    PEN              16,48
ENER          2000000014     2004    PEN              32,96
ENER          2000000015     2004    PEN              83,91
ENER          2000000016     2004    PEN              32,96
ENER          2000000017     2004    PEN             106,02
ENER          2000000018     2004    PEN             176,81
ENER          2000000019     2004    PEN           3.699,22
ENER          2000000020     2004    PEN           1.312,86
ENER          2000000021     2004    PEN              47,95
ENER          2000000022     2004    PEN              26,63
ENER          2000000023     2004    PEN             156,73
ENER          2000000024     2004    PEN             179,80
ENER          2000000025     2004    PEN              55,44
ENER          2000000026     2004    PEN             542,09

Saludos,

Blag  

Me suena mucho a Cobol

Le faltan unos jeroglificos por aqui y por alla y termino siendo chino

Bueno la verdad que no entiendo ni "michi" de ese codigo, sera porque no programo en cobol, parece un arañado de gato      bueno ya poco por poco ire entendiendo estas jeroglificos.  

 

En mi opinion tiene mucho de SQL. Supongo que será porque en SAP practicamente todo se guarda en tablas de la base de datos.
Había miles de tablas, no?

Tienes toda la razón del mundo amigo Güorker....En SAP todo se guarda en tablas, inclusive el código fuente de los programas.....

Miles??? Bueno....las tablas estandard de SAP son aproximante 23,500 tablas.......Y claro, como usuario puedes crear miles de tablas más  

Bueno la verdad que no entiendo ni "michi" de ese codigo, sera porque no programo en cobol, parece un arañado de gato

Bueno....lo mismo me pasó a mi la primera vez que lo vi.....Y yo tampoco he programado nunca en COBOL    Pero con el tiempo, se me hace lo más natural del mundo ver códigos como ese.....Y eso que es uno de los ejemplos más simples.....Lo hice para que entendieran   ......No quiero imaginar que pasa si les pongo que el código de un Reporte Interactivo o de un ALV.......

Bueno....ya será con el tiempo, y con la serie de tutoriales que voy a comenzar a escribir, apenas tenga un tiempo libre  

Saludos,

Blag  

Una pregunta, este codigo de Abap se parace bastante a las sentencias de SQL con parte de Pascal y algo de basic. Su entorno es grafico como Visual o es como pascal..????

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,

Hola, muchas gracias por lo del occurs.. me sirvio mucho..
Otra cosa alguien tiene definido tablas internas con el type?

SORRY QUE PREGUNTE TONTERIAS PERO HACE 2 DIAS Q EMPECE A LABURAR CON ESTO!!
GRACIAS!

SAMI

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

hola! que buen ejemplo: me sono al abuelo cuando dice "Chicos, vengan todos que les cuento un cuento " (valga la redundacia..) jajajajaja! no tenes mas cuentos como éste? o sea tan faciles de llevar? y con cada cuento vas agregando cosas? jeje! Saludos amigo!