• Domingo 15 de Diciembre de 2019, 16:25

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - Blag

Páginas: [1] 2
1
ABAP / Quien Lo Hubuiera Pensado...
« en: Miércoles 25 de Octubre de 2006, 21:41 »
Blag Runs SAP

Saludos,

Blag  :smartass:

2
ABAP / Feliz Con El Foro!!!
« en: Viernes 20 de Octubre de 2006, 16:05 »
Como se habrán podido dar cuenta...Desde hace unos días, ha habido un resurgimiento de este foro, que yo pensaba que estaba cayendo en lo más profundo del olvido  :(

Si bien es cierto...Este resurgimiento es gracias al intercambio de conocimientos entre senzao18 y yo  :lol:  Lo importante es que estamos generando una gran cantidad de mensajes  :comp:

Así que gracias senzao18  :bravo:  :beer:  :gracias:

Espero que más gente se anime a colaborar con nosotros  :hola:

Saludos,

Blag  :smartass:

3
ABAP / El Blog Tecnológico De Blag
« en: Viernes 13 de Octubre de 2006, 21:27 »

4
General / Foro - Lenguajes Script Y Sap
« en: Martes 29 de Agosto de 2006, 23:17 »
Para todos los programadores de Lenguajes Script, SAP y Lenguajes Script con SAP.

Lenguajes Script y SAP

Saludos,

Blag  :devil:

5
ABAP / Blag En El Sdn!
« en: Jueves 9 de Marzo de 2006, 20:27 »
Blag's SDN Personnal Space

Espero que les guste  :smartass:

Saludos,

Blag  :devil:

6
La taberna del BIT / Código Latino!
« en: Miércoles 14 de Diciembre de 2005, 15:55 »
Bueno, después de mucho....Su revista favorita está de nuevo en línea  :lol:  Y ahora con un nuevo formato....En HTML  B)

Pueden descargar los 3 primeros números desde aquí:

Código Latino

Saludos,

Blag  :comp:
Editor de Código Latino

7
General / Club De Aventuras Ad
« en: Lunes 5 de Diciembre de 2005, 17:01 »
Quería invitarlos a participar de esta comunidad que se especializa en el desarrollo de juegos de Ficción Interactiva o Conversacionales  B)

Foro - Club de Aventuras AD

Su página princiapal es:

Club de Aventuras AD - Principal

El foro se centra en el desarrollo de aventuras desarrolladas con:

InformATE, Superglús y Visual SINTAC

Espero verlos por allá  :hola:

Saludos,

Blag  :devil:

8
C/C++ / [Utilidad] El Arte de Programar - C++
« en: Domingo 21 de Agosto de 2005, 16:48 »
Tutorial introductorio de C++ que prepar� separado en capitulos en formato PDF.

Incluye todos los comandos b�sicos que necesitas para comenzar a programar con el C++, adem�s, ejemplos comentados y un cap�tulo de programac�n gr�fica con la librer�a BGI.

Autor: Alvaro "Blag" Tejada Galindo

http://www.singlepath.tk

Descarga: http://singlepath.freecoolsite.com/spanish/stuff/ctutorial.zip

9
Diseño de Algoritmos / [Utilidad] El Arte de Programar
« en: Viernes 19 de Agosto de 2005, 16:14 »
¿Nunca has programado antes? ¿Sabes programar, pero solamente puedes hacer un "Hola Mundo"?
El Arte de Programar 3.1 (Versión Actualizada), te ofrece todos los fundamentos básicos de los algoritmos computacionales, con explicaciones claras, ejemplos comentados.
Además, te ofrece un proyecto de 6 problemas comunes en algoritmos, que luego son convertidos a 10 lenguajes de programación distintos, tales como:

Qbasic, Pascal, C++, Euphoria, Java, JavaScript, Delphi,
PHP, C#, VB.NET, Python.

Y pronto la nueva versión del Arte de Programar, incluirán ASP.NET, TCL y D++.

Autor: Alvaro "Blag" Tejada Galindo

http://www.singlepath.tk

Descarga: http://singlepath.freecoolsite.com/spanish/stuff/ArteProg.zip

10
ABAP / Factorial En Abap Objects
« en: Miércoles 10 de Agosto de 2005, 19:49 »
En esta oportunidad...jejeje....vamos a ver un pequeño ejemplo de Factorial, pero está vez con ABAP Orientado a Objetos  :comp:

Código: Text
  1.  
  2. *****************************************************
  3. * Programa : Z_ATG_DUMMY                            *
  4. * Consultor ABAP : Alvaro Tejada Galindo            *
  5. * Descripción: Programa de Ejemplo de ABAP          *
  6. *****************************************************
  7.  
  8. REPORT Z_ATG_DUMMY.
  9.  
  10. *=======================================================================
  11. * CLASES
  12. *=======================================================================
  13. *Definición del Método
  14. CLASS C_MATH DEFINITION.
  15. *Parte Pública
  16.   PUBLIC SECTION.
  17. *Métodos
  18.     METHODS:
  19. *---> Este método recoge el parámetro de entrada            
  20.             FACTORIAL IMPORTING N TYPE I,
  21. *---> Este método retorna el valor del factorial            
  22.             GET_RESULT RETURNING VALUE(FACT) TYPE I.
  23. *Parte Privada
  24.   PRIVATE SECTION.
  25. *---> Variable de tipo entero  
  26.       DATA FACT TYPE I.
  27. ENDCLASS.
  28.  
  29. *Implementación del Método
  30. CLASS C_MATH IMPLEMENTATION.
  31.   METHOD FACTORIAL.
  32. *---> Cálculamos el factorial
  33.     FACT = 1.
  34.     IF N NE 0.
  35.      DO N TIMES.
  36.        FACT = FACT * SY-INDEX.
  37.      ENDDO.
  38.     ENDIF.
  39.   ENDMETHOD.
  40.  
  41.   METHOD GET_RESULT.
  42. *---> Asignamos el resultado del método a nuestra variable
  43.   FACT = ME->FACT.
  44. * --> Imprimimos el resultado  
  45.   WRITE: 'El Factorial es: ', FACT.
  46.   ENDMETHOD.
  47. ENDCLASS.
  48.  
  49. *=======================================================================
  50. * Selection screen
  51. *=======================================================================
  52. SELECTION-SCREEN BEGIN OF BLOCK DATA_INFO WITH FRAME TITLE TEXT-T03.
  53. *Parámetro de entrada
  54. PARAMETERS:
  55.            NUMBER TYPE I.
  56. SELECTION-SCREEN END OF BLOCK DATA_INFO.
  57.  
  58. *=======================================================================
  59. * START-OF-SELECTION
  60. *=======================================================================
  61. START-OF-SELECTION.
  62.  
  63. *=======================================================================
  64. * OBJETOS
  65. *=======================================================================
  66. *--> Definimos un objeto con referencia a nuestra clase
  67. DATA MY_OBJ TYPE REF TO C_MATH.
  68. DATA RESULT TYPE I.
  69.  
  70. *--> Creamos el objeto
  71. CREATE OBJECT MY_OBJ.
  72. *--> Llamamos al método que obtiene el valor del parámetro de entrada
  73. CALL METHOD MY_OBJ->FACTORIAL( EXPORTING N = NUMBER ).
  74. *---> Llamamos al método que imprime el resultado en pantalla
  75. CALL METHOD MY_OBJ->GET_RESULT.
  76.  
  77.  

Si lo ejecutamos por ejemplo con: 5, nos devolverá por pantalla....El Factorial es:         120

Saludos,

Blag  :smartass:

11
ADA / Getch() En Ada???
« en: Jueves 16 de Junio de 2005, 23:57 »
Hola:

Soy muy nuevo en ADA......recién llevo un par de horas de estarlo revisando......Y me surgió una duda......Como hago para que un programa que compilo en DOS, se mantenga funcionando???

Es decir, por ejemplo que me aparezca un mensaje como en PASCAL o QBasic que diga.....Presione una tecla para continuar y ahí recién el programa sale.....

En C++ yo utilizo el Getch();  :hola:  y en PASCAL utilizo el READLN  :ph34r:

Hay alguna manera de controlar esto en ADA?????

Y otra pregunta más  :lol:  Se pueden crear programas para Win32 o necesito necesariamente el gwindows????  :huh:

Saludos,

Blag  :devil:

12
ABAP / Decimal A Binario En Abap
« en: Sábado 11 de Junio de 2005, 00:37 »
Aquí está un Decimal a Binario en ABAP  B)

Código: Text
  1.  
  2. *****************************************************
  3. * Programa : Z_ATG_DUMMY                            *
  4. * Consultor ABAP : Alvaro Tejada Galindo            *
  5. * Descripción: Programa de Ejemplo de ABAP          *
  6. *****************************************************
  7.  
  8. *---Este es el nombre del programa
  9. REPORT Z_ATG_DUMMY.
  10.  
  11. *=======================================================================
  12. * Variables
  13. *=======================================================================
  14. *---Declaramos la variables para el programa
  15. *--- I es INTEGER y C es CHAR
  16. DATA: SUMA(20) TYPE C,
  17.       DIGITO TYPE I,
  18.       AUX TYPE I,
  19.       EXPO TYPE I.
  20.  
  21. DATA: DIVISION TYPE I,
  22.       RESIDUO TYPE I.
  23.  
  24. *=======================================================================
  25. * Selection screen
  26. *=======================================================================
  27. *---Declaramos el espacio en donde va a estar la interfaz del programa
  28. SELECTION-SCREEN BEGIN OF BLOCK BLOCK WITH FRAME TITLE TEXT-T01.
  29. *---Declaramos el parámetro de entrada
  30. PARAMETERS:
  31.            NUMERO TYPE I.
  32. SELECTION-SCREEN END OF BLOCK BLOCK.
  33.  
  34. *=======================================================================
  35. * Start-of-selection
  36. *=======================================================================
  37. *---Cuando se ejecuta el programa
  38. START-OF-SELECTION.
  39. *---Llamamos a la función CALCULA_BINARIO, y le pasamos como parámetro
  40. *---el número que leímos en la pantalla del programa
  41.   PERFORM CALCULA_BINARIO USING NUMERO.
  42.  
  43. *&---------------------------------------------------------------------*
  44. *&      Form  CALCULA_BINARIO
  45. *&---------------------------------------------------------------------*
  46. *       Obtiene el número binario de un decimal.
  47. *----------------------------------------------------------------------*
  48. FORM CALCULA_BINARIO USING P_DECIMAL.
  49.   SUMA = 0.
  50.   EXPO = 1.
  51. *---Mientras la variable NUMERO sea mayor igual que 1
  52.   WHILE NUMERO GE 1.
  53. *---Llamamos a la función CALCULA_RESIDUO, pasandolo 2 parámetros
  54. *---de entrada NUMERO y 2. Además, un tercer parámetro de cambio
  55. *---de variable RESIDUO
  56.     PERFORM CALCULA_RESIDUO USING NUMERO '2'
  57.                             CHANGING RESIDUO.
  58.  
  59.     DIGITO = RESIDUO.
  60. *---Dividimos NUMERO entre 2 y truncamos el resultado, es decir,
  61. *---no tomamos los decimales y lo redondeamos al entero inferior
  62.     NUMERO = TRUNC( NUMERO / '2' ).
  63.     AUX = DIGITO * EXPO.
  64.     SUMA = SUMA + AUX.
  65.     EXPO = EXPO * '10'.
  66.  
  67.   ENDWHILE.
  68.  
  69. *---Imprimos el número en binario
  70.   WRITE:/ 'El número binario es: ', SUMA.
  71. ENDFORM.
  72.  
  73. *---------------------------------------------------------------------*
  74. *       FORM CALCULA_RESIDUO                                          *
  75. *---------------------------------------------------------------------*
  76. *       Calcula el residuo de la división.                            *
  77. *---------------------------------------------------------------------*
  78. FORM CALCULA_RESIDUO USING P_DIVS P_DIVD
  79.                      CHANGING RESIDUO.
  80. *---Dividimos NUMERO entre 2 y truncamos el resultado, es decir,
  81. *---no tomamos los decimales y lo redondeamos al entero inferior
  82.   DIVISION = TRUNC( P_DIVS / P_DIVD ).
  83.   RESIDUO = P_DIVS - ( DIVISION * P_DIVD ).
  84. ENDFORM.
  85.  
  86.  

Si lo ejecutamos por ejemplo con el número 30 como parámetro, nos dará el siguiente resultado:

Código: Text
  1.  
  2. Programa de Pruebas Variadas              
  3.                                          
  4. El número binario es:                11110
  5.  
  6.  

Saludos,

Blag  :smartass:

13
ABAP / Pocas Visitas Al Foro...
« en: Miércoles 8 de Junio de 2005, 22:11 »
Hola amigos:

Ya sé que he estado un poco alejado del foro de ABAP  :losiento:  Pero es que ando muy ocupado con el trabajo  :(

Así que les propongo algo interesante  :lol:  Diganme sobre tema quieren saber más, y yo me encargo de escribir algún artículo intersante  B)

Saludos,

Blag  :smartass:

14
ABAP / Sap Club
« en: Martes 19 de Abril de 2005, 21:40 »
Hola a todos:

Les dejo en enlace para descargar SAP Club, una publicación gratuita producida por SAP España....Muy buena, gratuita y en formato PDF

SAP Club - España

Una muy buena oportunidad para conocer todo lo que SAP puede ofrecernos  :hola:

Saludos,

Blag  :smartass:

15
La taberna del BIT / ¿porqué Los Nicks?
« en: Lunes 4 de Abril de 2005, 03:26 »
Alguna vez se han preguntado porque utilizamos nicks en internet????  :huh:

Cuál fué el primer nick que se utilizo???? quien lo creó?????

Cuál es la explicación de sus propios nick??? han utilizado algún otro antes???

------------------------------------------------------------------------------------------

Mi primer nick era: Eskizofrenico :argh: Por una canción del grupo español de Punk, llamado Eskorbuto  B)



Y el nick que utilizo desde hace varios años y con el cual todos me conocen  :lol:  es
Blag....en honor a Blag Dahlia, vocalista del grupo punk de Estados Unidos....The Dwarves  :devil:



Saludos,

Blag  :devil:

16
ABAP / Select's En Abap
« en: Martes 22 de Marzo de 2005, 17:06 »
En ABAP, se pueden utilizar muchos tipos de selects.....o maneras de acceder a datos en tablas.....

Para esto, crearemos primero una simple tabla interna....

Código: Text
  1.  
  2. *---Occurs 0 --> Indica que nuestra tabla interna puede almacenar todos los datos.
  3. DATA: BEGIN OF TABLE T_TAB OCCURS 0,
  4.           BUKRS LIKE BKPF-BUKRS, "Sociedad
  5.           BELNR LIKE BKPF-BELNR,  "Número de un documento contable
  6.           GJAHR LIKE BKPF-GJAHR, "Ejercicio o Año Contable
  7.           END OF T_TAB.
  8.  
  9.  

Ahora, podemos hacer nuestros selects.....  :lol:

Select

Código: Text
  1.  
  2. SELECT *  "Seleccionamos todos los datos
  3. *Los almacenamos en los campos correspondientes de nuestra tabla interna
  4. INTO CORRESPONDING-FIELDS OF T_TAB
  5. *de la tabla BKPF
  6. FROM BKPF
  7. *donde el ejercicio es "2005"
  8. WHERE GJAHR EQ '2005'.
  9.  
  10.  

Otro tipo de Select

Código: Text
  1.  
  2. *Elegimos solamente los campos que queremos obtener
  3. SELECT BUKRS BELNR GJAHR
  4. *Se guardan en la tabla en el mismo orden
  5. INTO T_TAB
  6. *de la tabla BKPF
  7. FROM BKPF
  8. *donde el ejercicio es "2005"
  9. WHERE GJAHR EQ '2005'.
  10.  
  11.  

En algunos casos, necesitaremos solamente un registro...así que hacemos esto  :ph34r:

Select Single

Código: Text
  1.  
  2. *Elegimos solamente los campos que queremos obtener de la primera coindencia
  3. SELECT SINGLE BUKRS BELNR GJAHR
  4. *Se guardan en la tabla en el mismo orden
  5. INTO T_TAB
  6. *de la tabla BKPF
  7. FROM BKPF
  8. *donde el ejercicio es "2005"
  9. WHERE GJAHR EQ '2005'.
  10.  
  11.  

Otro Select Single

Código: Text
  1.  
  2. SELECT SINGLE *  "Seleccionamos todos los datos, de la primera coincidencia
  3. *Los almacenamos en los campos correspondientes de nuestra tabla interna
  4. INTO CORRESPONDING-FIELDS OF T_TAB
  5. *de la tabla BKPF
  6. FROM BKPF
  7. *donde el ejercicio es "2005"
  8. WHERE GJAHR EQ '2005'.
  9.  
  10.  

Ahora bien....supongamos que tenemos llena nuestra tabla interna....

Citar
BUKRS     BELNR           GJAHR
ENER       200000001      2005
TBLP        200000005      2005
TSIP        200000025      2005

Ahora bien....a una tabla interna no podemos hacerle un select...así que tenemos que recurrir a un READ TABLE

Código: Text
  1.  
  2. *Leemos un registro de la tabla interna, donde la sociedad sea "ENER".
  3. READ TABLE T_TAB WITH KEY BUKRS = 'ENER'.
  4.  
  5.  

También podemos leer por número de registro.....

Código: Text
  1.  
  2. *Leemos un registro de la tabla interna, que tenga el índice 2.
  3. READ TABLE T_TAB INDEX 2.
  4.  
  5.  

Con lo cual tendríamos.....

Citar
BUKRS     BELNR           GJAHR
TBLP        200000005      2005

Si necesitamos leer todos los registros.....podríamos utilizar un loop. Pero primero deberemos de crear una variable, que almacene el valor del índice

Código: Text
  1.  
  2. *Declaramos una variable que tiene como tipo, la variable del sistema SY-TABIX.
  3. *SY-TABIX, almacena el valor del índice a través de un LOOP.
  4. DATA: W_TABIX LIKE SY-TABIX.
  5.  
  6.  

Código: Text
  1.  
  2. *Leemos todos los registros de la tabla interna, uno por uno.
  3. LOOP AT T_TAB.
  4. *Almacenamos el valor de SY-TABIX en nuestra variable.
  5. WA_TABIX = SY-TABIX.
  6. *Leemos nuestra tabla interna por cada indice.
  7. READ TABLE T_TAB INDEX WA_TABIX.
  8. *XXX --> Hacemos algo con los valores leídos.....
  9. ENDLOOP.
  10.  
  11.  

Saludos,

Blag  :smartass:

17
Publicaciones y e-books / ¿Qué Opinan De Código Latino?
« en: Martes 22 de Marzo de 2005, 16:44 »
Revista "Código Latino"

Saludos,

Blag  :smartass:

18
Enlaces a Sitios sobre programación / Revista "Código Latino"
« en: Viernes 18 de Marzo de 2005, 16:20 »
Código Latino, es un revista de programación gratuita en formato PDF. Realizada en conjunto por programadores de Perú, México, Costa Rica, Colombia y España.

Se aceptan contribuciones de códigos fuente, artículos, etc.

Revista "Código Latino"

Pueden escribirnos al mail:

                   codigolatino@gmail.com

Saludos,

Blag.

Autor: Alvaro "Blag" Tejada Galindo

http://singlepath.freecoolsite.com/spanish/private/latino.php

19
ABAP / El Arte De Programar - Sap R/3
« en: Sábado 26 de Febrero de 2005, 17:25 »
Hola a todos:

Ya se que no he posteado nada en el foro desde hace bastante.....Lo que pasa es que he estado ocupado, escribiendo mi nuevo libro El Arte de Programar - SAP R/3.......Todavía falta mucho  :(  .....Pero tendrán la oportunidad de leer la versión Extremadamente Alpha  :lol:  Espero que les guste  B)

El Arte de Programar - SAP R/3

Saludos,

Blag  :smartass:

20
ABAP / El Lenguaje Del Sap
« en: Miércoles 2 de Febrero de 2005, 14:40 »
Hola:

Este es un pequeño artículo que escribí para la página web de mi amigo Rilart, espero que les guste  :lol:

El Lenguaje del SAP

Saludos,

Blag  :smartass:

21
ABAP / Algunas Imagenes De Sap
« en: Martes 25 de Enero de 2005, 20:09 »
Hola:

Se me ocurrió que sería una buena idea, postear unas cuantas imagenes de SAP, para que puedan familiarizarse un poco más con el entorno  :lol:

Form Painter --> Es donde se crean las pantallas "Coloridas" en SAP....Aunque casi nunca se utiliza B)

Editor ABAP --> Es donde se programa con ABAP, como ven, no es nada visual, así que uno tiene que escribir todo su código....tal como debe ser  :comp:

Data Dictionary --> Diccionario de Datos, donde se pueden ver las estructuras de las tablas, como están definidas, etc.....

Que les parece??? Interesante no???  :hola:

Saludos,

Blag  :smartass:

22
ABAP / Programa De Ejemplo En Abap
« en: Miércoles 19 de Enero de 2005, 17:28 »
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  :smartass:

23
ABAP / Algunos Enlaces Interesantes....
« en: Miércoles 19 de Enero de 2005, 15:10 »

24
ABAP / ¿qué Es Abap?
« en: Miércoles 19 de Enero de 2005, 14:59 »
ABAP (Advanced Business Aplication Programming), es el lenguaje de programación utilizado por SAP.....Un ERP (Enterprise Resource Planning) de origen Alemán, pero extendido a todo el mundo.

El ABAP es un lenguaje orientado a los negocios basado en el poderoso COBOL, que fué muy usuado en las grandes corporaciones.

El ABAP, utiliza un paradigma de programación estructurada, aunque comenzó a ingresar al mundo de la programación orientada a objetos en la versión 4.6....Actualmente se encuentra en la versión 4.7

La sintaxis puede asustar un poco al principio, puesto que a mi modo de ver, es una mezcla entre Cobol, Pascal y Sql.

Cuenta con miles de funciones predifinidas y BAPIS que son funciones diseñadas  para trabajar con productos externos, por ejemplo, programación de aplicaciones SAP-VB, SAP-PHP,SAP-C++,SAP-C#, etc....

A modo de entender un poco mejor la figura, [/B]SAP, se divide en tres entornos o ambientes......

DEV o Desarrollo, que es donde se hacen todos los programas utilizando ABAP y donde se realizan todas las configuraciones y parametrizaciones del sistema.

QAS, que es un ambiente de pruebas, en donde se pueden probar los programas realizados en DEV.

PRD o Producción, que es en donde están ubicados los datos reales de la empresa y es el ambiente en el cual, se trabaja diariamente.

Además, el
SAP, está dividido en una gran cantidad de módulos...entre ellos tenemos a:
  • FI - Finanzas</li>
  • HR - Recursos Humanos</li>
  • SD - Ventas</li>
  • CO - Logistica</li>
  • MM - Manejo de Materiales</li>
  • CRM - Manejo de Relaciones con los Clientes</li>
  • ISU - Utilidades para Soluciones Industriales</li>
  • Etc....</li>
Y por ende, cada uno cuenta con sus propias tablas y sus propias configuraciones, aunque finalmente, todas se integran de una u otra manera....Esto es importante saberlo, puesto que al momento de programar en
ABAP
, no todos los módulos son iguales....Sobre todo el módulo de HR - Recursos Humanos, que es el más complejo de todos.......Por lo tanto, los Consultores ABAP, se enfocan en uno dos módulos principalmente aunque sepan programar en todos.......

Para poder programar en ABAP y tener SAP, tenemos dos opciones......
  • Trabajar en una consultora de SAP</li>
  • Comprar el MiniSap por 50 dolares</li>
  • Ahorrar 1,000,000 de dolares y comprar solamente el modulo de DEV</li>
  • Con 3,000,000 de dolares tenemos el paquete completo DEV,QAS y PRD</li>
Saludos,

Blag   :smartass:

25
Sobre los Foros de SoloCodigo / Foro De Abap???
« en: Martes 11 de Enero de 2005, 16:41 »
Yo se que es muy poca la gente que programa en ABAP  B)
Pero creo que sería interesante contar con un foro.....puesto que así atraeriamos a más participantes al foro  :ph34r:

Y para aclarar las cosas....Que muchas veces preguntan......

El SAP es un ERP (Enterprise Resource Planning), es decir, un sistema integrado de gestión para empresas......No existe ninguna versión trial que se pueda descargar.......A lo más, existe el MiniSAP, que se puede conseguir por unos $50 dólares.....y necesita 5 GB de espacio es disco, además de una Base de Datos SQLServer en adelante........

Las únicas formas de aprenderlo es trabajar en una consultora de SAP.....o pagar un curso que cuesta $4000 dólares o conseguirse el MiniSAP y algunos buenos tutoriales.......

Después de esto.....Se animan a tener un foro de ABAP?????  :P

Saludos,

Blag  :devil:

Páginas: [1] 2