abap

MANUAL DE INTRODUCCIÓN A LA PROGRAMACIÓN EN SAP LENGUAJE ABAP

Introducción a la programación en SAP - Lenguaje ABAP

Página 2 de 103


Página 2 de 103


TABLA, ELEMENTO ELEME NTO DE DA DATOS TOS Y DOMINIO DE DATOS, DATOS, ¿Cómo se relacionan? Una tabla es una estructura que almacena datos, un dominio es una norma que contiene la definición de datos y el elemento de datos contiene la definición de la etiqueta que tendrá el campo cuando sea utilizado en algún reporte. Como norma general de SAP, y para evitar redundancia de datos, al crear una tabla en SAP, lo recomendable es vincular el campo a crear a un elemento de datos del diccionario., y el elemento de datos debe estar vinculado a un Dominio de Datos. Para resumir lo anterior, se presenta el siguiente esquema:

Campo de tabla

Elemento de Datos

Dominio de Datos

Un campo de una tabla está asociado a un elemento de datos y a su vez un elemento de datos está asociado a un dominio de datos.

Si al momento de crear una tabla se detectara que uno de estos objetos no existe, se puede crear, lo cual se describe a continuación.

Página 3 de 103


DOMINIO DE DATOS. Creación de un dominio de datos. Para crear un Dominio de datos se deberán realizar los siguientes pasos:

Paso 1: 1.- Desde la pantalla principal de SAP, en la parte superior ingresar la transacción SE11 y luego presionar Intro.

1

A continuación se describe el paso 2.

Paso 2: Al hacer el paso anterior se desplegará la siguiente pantalla:

1 2

Página 4 de 103


1. Domain:: Marcar la opción Domain e ingresar el nombre del dominio a crear.

2. Create: Presionar el botón Create. Al hacerlo, se desplegará la siguiente pantalla:

1 4 2 3


Paso 3: 1. Short text: corresponde a la descripción del dominio, por ej: Código de la película , Nombre del cliente , etc.

2. Data type: corresponde al tipo de datos, por ej: CHAR, DATS, CURR. Etc. Al hacer clic en la orilla derecha del recuadro se desplegará el listado de tipos de datos que existen en el sistema.

No. Characters: número de caracteres que tendrá el campo (el largo). Decimal places: número de decimales de entrada que admitirá el campo.

Página 5 de 103


3. Output lenght: número de caracteres que se desplegarán en pantalla, (se desplegarán siempre y cuando el campo contenga datos). La opción Lowercase, sirve para indicar si el campo admitirá minúsculas, si se marca admite Mayúsculas / Minúsculas, sino sólo admitirá Mayúsculas.

4. Value Ranges: Una vez completados los campos de pantalla indicados, y en caso que se desee que el tipo de datos despliegue posteriormente un listado de datos, por ej, si el dominio fuera para el código de continente, se podría crear un listado con los continentes (en caso contrario saltar al paso 6). Dicho listado aparecerá cuando el campo sea utilizado en algún reporte o formulario, para realizarlo se deberá presionar la pestaña Value Ranges.

Paso 4: Al realizar el paso anterior se desplegará la siguiente pantalla:

2

1

Página 6 de 103


Donde:

1. Fix val: En la columna Fix val, se ingresa el código del campo, por ejemplo 001.

Short text se ingresa el detalle o descripción del campo, por ejemplo Oceanía.

Paso 5: 2. Activate: Presionar el botón Activate (

), de este modo el objeto a crear quedará en estado Activo en el diccionario de datos de SAP.

Página 7 de 103


Paso 6: Al realizar el paso anterior, aparecerá la siguiente ventana:

Opción A de desarrollo Nombre del paquete

Guardar

Opción B

Acá existen dos opciones:

Opción A: Guardar el objeto en una clase de desarrollo de SAP. Generalmente se utiliza esta opción, dado que de esta forma se pueden transportar luego los objetos a otro sistema.

Opción B:

Guardar el objeto en forma local. Esto se utiliza sólo si se crearán objetos de prueba o testeo. Al hacerlo de esta forma, el objeto NO podrá ser posteriormente transportado a otro sistema.

Guardar:

Cualquiera de las opciones antes mencionadas que se haya elegido, luego hay que guardar el objeto en el sistema, para ello se debe presionar el botón Guardar. Si se eligió la opción A, aparecerá la siguiente pantalla:

Página 8 de 103


Código de la orden de transporte

Botón Aceptar

En el cuadro señalado va el código de la orden de transporte en la que quedará almacenado el objeto. Este código se genera en forma automática. Luego se presiona el botón Aceptar.

Página 9 de 103


ELEMENTO DE DATOS Creación de un elemento de datos. Para crear un Elemento de datos se deben realizar los siguientes pasos:

Paso 1: Realizar el paso 1 descrito en el ítem “Pasos para la creación de un dominio de datos”.


1

2

1.- Marcar la opción Data type e ingresar el nombre del elemento de datos a crear. 2.- Luego ingresar el nombre del Elemento de datos y finalmente presionar

Create.

Paso 3: Luego aparecerá la siguiente pantalla, en este caso debemos: 1.- Seleccionar el ítem Data element, 2.- Luego hacer clic en el botón Enter.

Página 10 de 103


1

2

Paso 4: Al realizar el paso anterior aparecerá la siguiente pantalla, debemos completar los campos:

en donde

1 3 2

Página 11 de 103


Donde:

1. Short text: corresponde a la descripción del elemento de datos, por ej: Código de la película , Nombre del cliente , etc.

2. Domain: corresponde al nombre del dominio al cuál pertenecerá el elemento de datos.

3. Field Label: Una vez completados estos campos, se deberá presionar la pestaña Field Label , realizado esto, aparecerá la siguiente pantalla:

3

1

2

Paso 5: 1. Lenght:

Corresponde al largo que tendrán los campos asociados al elemento de datos, se expresa en números. Por Ej., si el elemento corresponde al nombre de cliente el largo podría ser 30, si fuese la edad sería 3, etc. En los casilleros Short, Médium, Long y Heading debe ir el mismo valor (número). la etiqueta del del campo, (cuando se use este 2. Field label: Corresponde a la campo en algún report o interface, el nombre aparecerá tal como se escriba acá,

Página 12 de 103


por eso es importante escribir un nombre simple y claro del campo en cuestión), por ej. si el campo correspondiera al nombre del cliente podría ser Nombre_clie. . En los casilleros Short, Médium, Long y Heading debe ir el mismo valor (texto), pero puede darse el caso de que el casillero Short no alcance para escribir la descripción. En este caso se debe escribir una descripción más corta y en los demás se escribe una más extensa.

Paso 6: Presionar nar el bot botón ón Activ Activate ate ( 3. Activate: Presio

), de este este modo modo el elemen elemento to de datos a crear quedará en estado Activo en el diccionario de datos de SAP.

Paso 7: Realizar los pasos 5 y 6 descrito en el ítem “Creación de un dominio de datos”.

Página 13 de 103


TABLAS Creación de una tabla. Para crear una tabla se deben realizar los siguientes pasos (se describirán los pasos básicos para llevar a cabo este proceso):

Paso 1: Realizar el paso 1 descrito en el ítem “Pasos para la creación de un dominio de datos”.


1

2

Donde:

1. Database table: Marcar la opción Database table e ingresar el nombre de la tabla a crear.

2. Create: Presionar el botón Create.

Página 14 de 103



1 2

4 3

Donde:

1. Short text: corresponde a la descripción de la tabla, por ej: Clientes externos , Detalle de Facturas, etc.

2. Delivery Class: corresponde a la clase que pertenecerá la tabla, por general es A (tabla maestra y transacción de datos).

3. Data Browser/Table View Maint: corresponde a que tipo de acceso tendrà la tabla, se recomienda dejarla con Display/Maintenance Allowed (Visualización/Mantención permitida), con esto y una vez creada la tabla, se le pueden realizar modificaciones posteriores en caso de ser necesario.

4. Fields: corresponde a los campos que contendrá la tabla a crear.

Página 15 de 103



1

2

3

Donde:

1. Field: corresponde al nombre del campo. 2. Key: esta casilla debe seleccionarse en caso que el campo vaya a ser Primary Key (clave primaria, también a veces denominada llave ), lo cuál significa que este campo servirá para identificar a un conjunto de datos de la tabla. Por ej, en el caso de un cliente podría ser el RUT, en caso de una factura podría ser el Nº de factura, etc.

3. Data element: acá se debe señalar el elemento de datos al cuál pertenecerá el campo de la tabla a crear. Al hacer clic en este casillero, se habilita el icono con el cuál se pueden buscar los elementos de datos existentes en el sistema, también se puede hacer una búsqueda por cadena, por ej si se sabe que el elemento deseado empieza por “ZP”, se escribe ZP* y luego se presiona el icono indicado. De esta forma se buscarán los elementos de datos cuyo nombre comiencen por ZP.

Página 16 de 103


Una vez que se han ingresado los campos de la tabla, ésta debe ser activada en el sistema, para ello realizar el paso que se indica a continuación:

2. Technical Settings: Corresponde a las características técnicas de la tabla y se deben completar los campos indicados a continuación:

3.4

3.5

3.1 3.2

3.3

Donde:

2.1 Data class: corresponde a la clase de datos que contendrá la tabla, por lo general es APPL0 (datos maestros).

2.2 Size category: corresponde a la categoría de tamaño de la tabla.

2.3 Log data changes: se sugiere marcar esta opción para vaya que guardando en archivo de registro los cambios que se vayan efectuando a la tabla.

Página 17 de 103


2.4 Save: se debe presionar este botón para guardar las características técnicas de la tabla, al hacerlo y si no existen errores, en la parte inferior de la pantalla debe aparecer el mensaje “Saved” (Guardado).

2.5 Back: se debe presionar para volver a la pantalla anterior y continuar con el proceso de activación de la tabla. 4. Luego presionar el botón Activate ( ), de este modo el elemento de datos a crear quedará en estado Activo en el diccionario de datos de SAP.

5. Luego ir al Menú Utilities / Table maintenance generador, esto es para la generación del diálogo de mantención de la tabla, al hacerlo aparecerá la siguiente pantalla.

5.3 5.4 5.1 5.2

5.1 Authorization Group: es el grupo de autorización al cuál pertenecerá la tabla.

Página 18 de 103


5.2 Function group: es el grupo de funciones al cuál pertenecerá la tabla. Si no existe la función de grupo, se debe crear una, para ello revisar el ítem Crear una función de grupo .

5.3 Find Scr Numbers: este botón sirve para generar en forma automáticamente los valores para el item Mant Screen No.

5.4

Creación: se debe presionar este botón para concluir la

operación de generación del diálogo de mantención de la tabla.

Paso 5: Realizar el paso 6 descrito en el ítem “Creación de un dominio de datos ”.

Ejercicios Basándose en lo explicado en los ítems Dominio de Datos, Elemento de Datos, y Creación de una tabla, de este Documento, realizar los siguientes ejercicios:

Ejercicio Nº 1. Crear tabla ZPELICULAS en SAP (SE11) con los campos requeridos, para cada campo crear su respectivo Elementos de Datos y Dominio.

Field name

Type

Length

Description

NUMC

10

PELTXT

CHAR

40

AGNO DURACION

NUMC NUMC

4 4

PAIS_ID

CHAR

2

GENERO_ID

NUMC

3

DIRECTOR_ID

NUMC

10

Código Película Nombre Película original Año Duración en minutos Pais de origen ( Código Pais ISO ) Código género (Terror, Drama, etc.) Código director

PEL_ID

Key X

Página 19 de 103


Para Género crear en el dominio, ámbito de valores (Value Ranges)., con la siguiente lista: Cine de acción Cine de animación Cine de aventuras Cine Bélico Serie B Ciencia Ficción Cine de autor Cine fantástico Cine negro Cine pornográfico Comedia (cine) Comedia romántica Documental Drama Melodrama Cine histórico Intriga y suspense Cine musical Cine policiaco Cine de terror Western

Ejercicio Nº 2. Crear tabla ZDIRECTORES con los siguientes campos

Field name

Key

Type

Length

Description

DIRECTOR_ID NOMBRE

X

NUMC CHAR

10 60

NACION

NUMC

2

FEC_NAC FEC_MUE

DATS DATS

8 8

Código director Nombre Completo director Nacionalidad(Código ISO pais) Fecha nacimiento Fecha Fallecimiento

Crear Dominio y Elemento de datos respectivo para cada campo.

Página 20 de 103


Ejercicio Nº 3. Crear tabla ZDVD con los siguientes campos

Field name

Type

Length

NUMC NUMC

10 10

PRECIO

CURR

15

2

MONEDA STOCK ZONA

cuky DEC numc

5 5 1

0

DVD_ID PEL_ID

Key X X

decimals

Description Código DVD Código Película Precio Unitario DVD Moneda Stock DVD Zona DVD

En Moneda usar elemento de datos WAERS. Para DVD_ID, PRECIO y STOCK, crear elemento de datos.

Página 21 de 103


PROGRAMAS EN ABAP Creación de un programa. A continuación se describen los pasos para crear un simple programa en lenguaje ABAP en SAP.


1



Página 22 de 103


1

1.

2

Program: En esta casilla se debe ingresar el nombre del nuevo

programa. Por norma, el nombre debe empezar por Z ó Y. Por Ej., ZPRIMER_PROGRAMA

3. Create: Botón Create. Se debe presionar este botón una vez ingresado el nombre del programa.


Página 23 de 103


1

2

3 1. Title: corresponde a la descripción del programa, por ej.: Generación de fichero con listado de clientes, Listado de Facturas pendientes, etc.

2. Type:: corresponde al tipo de programa. Por lo general es Executable program (Programa ejecutable), pero también existe Module Pool, Include , entre otros. (estos tipos serán explicados más adelante).

3. Save: Botón Save (Guardar), se debe presionar para poder guardar el programa en el sistema.

Paso 4: Al realizar el paso anterior, aparecerá la siguiente ventana:

Página 24 de 103


Opción A

Guardar

Opción B

Acá existen dos opciones:

Opción A: Guardar el objeto en una clase de desarrollo de SAP. Generalmente se utiliza esta opción, dado que de esta forma se pueden transportar luego los objetos a otro sistema. Si no aparece nada, se presiona el icono que está en la orilla izquierda, al hacerlo se desplegarà la siguiente pantalla.

Opción B:

Guardar el objeto en forma local. Al hacerlo de esta forma, el objeto NO podrá ser posteriormente transportado a otro sistema (comunmente en las empresas los objetos deben ser transportados entre los diferentes ambientes existentes en ella, por ej: de Desarrollo al de Pruebas, y luego de éste último a Productivo).

Guardar:

Cualquiera de las opciones antes mencionadas que se haya elegido, luego hay que guardar el objeto en el sistema, para ello se debe presionar el botón Guardar. Si se realiza lo indicado en la opción A, aparecerá la siguiente pantalla:

Nombre del paquete Aceptar

Página 25 de 103


Luego, al presionar el botón Aceptar se desplegará la siguiente pantalla:

Guardar

Al presionar el botón Guardar aparecerá la siguiente pantalla.

Código orden de transporte Aceptar

En el cuadro señalado va el código de la orden de transporte en la que quedará almacenado el objeto. Este código se genera en forma automática. Luego se presiona el botón Aceptar.

Por cualquier duda acerca de los paquetes de desarrollo. Revisar el ítem Creación de un paquete de desarrollo (package).

Al presionar el botón Aceptar aparecerá la siguiente pantalla.

Página 26 de 103


Acá desarrollaremos el programa.

El siguiente código es una muestra básica de cómo declarar variables, para luego imprimirlas en pantalla. REPORT

ZPRIMER_PROGRAMA

.

DATA: NOMBRE(30) TYPE C, CARGO LIKE NOMBRE, EMPRESA LIKE NOMBRE, FECHA_NAC:TYPE D, EDAD TYPE I.

NOMBRE = 'ALAN BRITO'. CARGO = 'DESARROLLADOR SAP'. EMPRESA = 'EMPRESA DESARROLLADORA DE SOFTWARE'. FECHA_NAC = '19781201'. EDAD = '30'. EDAD = EDAD + 5. WRITE: NOMBRE, CARGO, EMPRESA, FECHA_NAC, EDAD.

Página 27 de 103


A continuación se ve el código mostrado anteriormente y los botones que más se utilizan:

Modificar

Procesar Activar Chequear

Donde:

Chequear: Se utiliza este botón para saber si la sintaxis del código es correcta.

Modificar: se utiliza este botón cuando se quiera modificar el código fuente del programa.

Página 28 de 103


Activar: su función es dejar en estado activo el programa en el sistema. Es importante que los programas sean activados antes de ejecutarlos o testearlos, ya que sólo así, al momento de compilar, tomará los cambios que se hayan efectuado.

Procesar: sirve para ejecutar ó compilar el programa.

Página 29 de 103


Cláusula SELECT La cláusula SELECT nos permite seleccionar datos de una tabla. Acá hay unos ejemplos básicos de selección de datos. ⇒

Seleccionar todas las películas e imprimir código y nombre: TABLES ZPELICULAS. SELECT * FROM ZPELICULAS . WRITE:/ ZPELICULAS-PEL_ID, ZPELICULAS-PELTXT.

ENDSELECT.

Lo anterior es equivalente a,

Data wa_zpeliculas like zpeliculas. SELECT * into wa_zpeliculas FROM ZPELICULAS . WRITE:/ wa_ZPELICULAS-PEL_ID, Wa_ZPELICULAS-PELTXT.

ENDSELECT. ⇒

Seleccionar todas las películas con país origen Chile e imprimir código y nombre: Data wa_zpeliculas like zpeliculas. SELECT * into wa_zpeliculas FROM ZPELICULAS WHERE PAIS_ID = ‘CL’. WRITE:/ wa_ZPELICULAS-PEL_ID, Wa_ZPELICULAS-PELTXT.

ENDSELECT. ⇒

Seleccionar todas las películas con país origen Chile o Argentina e imprimir código y nombre: Data wa_zpeliculas like zpeliculas. SELECT * into wa_zpeliculas FROM ZPELICULAS WHERE PAIS_ID = ‘CL’ OR PAIS_ID EQ ‘AR’. WRITE:/ wa_ZPELICULAS-PEL_ID, Wa_ZPELICULAS-PELTXT.

ENDSELECT.

Página 30 de 103


Operator =, EQ <>, NE <, LT >, GT <=, LE >=, GE ⇒

Meaning True, if the content of col is the same as the content of f. True, if the content of col is different to the content of f. True, if the content of col is less than the content of f. True, if the content of col is greater than the content of f. True, if the content of col is less than or equal to the content of f. True, if the content of col is greater than or equal to the content of f.

Seleccionar todas las películas con país origen Chile o Argentina cuya duración no sea mayor a 120 minutos, e imprimir código y nombre: Data wa_zpeliculas like zpeliculas. SELECT * into wa_zpeliculas FROM ZPELICULAS WHERE ( PAIS_ID = ‘CL’ OR PAIS_ID EQ ‘AR’ ) AND DURACION <= ‘120’. . WRITE:/ wa_ZPELICULAS-PEL_ID, Wa_ZPELICULAS-PELTXT.

ENDSELECT.

Notar que lo anterior es equivalente a: SELECT * into wa_zpeliculas FROM ZPELICULAS WHERE ( PAIS_ID = ‘CL’ AND DURACION <= ‘120’ ) OR ( PAIS_ID EQ ‘AR’ AND DURACION <= ‘120’. . WRITE:/ wa_ZPELICULAS-PEL_ID, Wa_ZPELICULAS-PELTXT.

ENDSELECT.

Página 31 de 103


TABLAS INTERNAS Las tablas internas permiten trabajar con los datos de una tabla de SAP en forma más eficiente. En forma lógica se trabaja de la siguiente forma: los datos se encuentran en una tabla de SAP, y través de código se crea una tabla interna con los datos de la tabla de SAP. La tabla interna queda almacenada en memoria mientras el programa o reporte se esté ejecutando. A continuación veremos algunos ejemplos:

Ejemplo Nº 1: Crear una tabla interna con campos de la tabla ZPELICULAS, se realizará de la siguiente forma:

Data: begin of tb_pel occurs 0, Pel_id like zpeliculas-pel_id , Peltxt like zpeliculas-peltxt , End of tb_pel. Lo anterior es equivalente a:

Data : begin of wa_pel, Pel_id like zpeliculas-pel_id , Peltxt like zpeliculas-peltxt , End of wa_pel . Data tb_pel like standard table of wa_pel with header line.

Ejemplo Nº 2: Seleccionar todas las películas e imprimir código y nombre:

Data tb_zpeliculas like Standard table of zpeliculas with header line. SELECT * into table tb_zpeliculas FROM ZPELICULAS . Loop at tb_zpeliculas WRITE:/ tb_ZPELICULAS-PEL_ID, Endloop.

tb_ZPELICULAS-PELTXT.

Página 32 de 103


Seleccionar todas las películas e imprimir código y nombre, creando una tabla interna y luego traspasando esa tabla interna a una estructura.

Data tb_zpeliculas like Standard table of zpeliculas. Data wa like tb_zpeliculas. SELECT * into table tb_zpeliculas FROM ZPELICULAS . Loop at tb_zpeliculas into wa. WRITE:/ wa-PEL_ID, wa-PELTXT.

Endloop.

Ejemplo Nº 4: Seleccionando datos usando la cláusula INTO CORRESPONDING FIELDS.

Data : begin of wa_aux, Pel_id like zpeliculas-pel_id , Peltxt like zpeliculas-peltxt , End of wa_aux. Data tb_aux like standard table of wa_aux with header line. SELECT * into corresponding fields of table tb_aux FROM ZPELICULAS . Loop at tb_aux. WRITE:/ tb_aux-PEL_ID, Endloop.

tb_aux-PELTXT.

Página 33 de 103


PARAMETERS (Parámetros). Los Parameters sirven para obtener información de una tabla interna ó tabla maestra de SAP teniendo como referencia un valor ingresado por el usuario. ¿Cómo funciona internamente?, el parámetro se vincula a un campo de tabla (a través del código fuente) y al momento de realizar la consulta, la búsqueda de datos se basa en el valor ingresado en pantalla por el usuario. A continuación veremos un ejemplo:

PARAMETERS p_pais like ZPELICULAS-pais_id. Data wa_zpeliculas like zpeliculas. SELECT * into wa_zpeliculas FROM ZPELICULAS WHERE PAIS_ID = p_pais. WRITE:/ wa_ZPELICULAS-PEL_ID, Wa_ZPELICULAS-PELTXT.

ENDSELECT.

OBS: En este ejemplo vemos un solo PARAMETERS, pero pueden ser agregados los que programador desee. Este código debe ser insertado en un programa nuevo. Al compilarlo, y si no existen errores, en la pantalla debería aparecer lo siguiente:

Página 34 de 103


Otros valores que podemos incluir al usar PARAMETERS son los siguientes (estos valores son opcionales):

OBLIGATORY: Indica si es obligatorio completar este campo. DEFAULT: Propone un valor por defecto. LOWER CASE: Indica si se permitirá ingresar minúsculas Al aplicarlo al código, basándose en el ejemplo anterior sería lo siguiente:

PARAMETERS: p_pais like ZPAISES-pais_id DEFAULT '120' LOWER CASE OBLIGATORY.

Data wa_zpeliculas like zpeliculas. SELECT * into wa_zpeliculas FROM ZPELICULAS WHERE PAIS_ID = p_pais. WRITE:/ wa_ZPELICULAS-PEL_ID, Wa_ZPELICULAS-PELTXT.

ENDSELECT.

Página 35 de 103


Al compilar debiera aparecer lo siguiente:

Al presionar este botón, aparecerá la ventana con el listado que ingresamos al momento de crear el dominio de datos.

Página 36 de 103


SELECT-OPTIONS (Opciones de selección). Los SELECT-OPTIONS sirven para obtener información de una tabla interna ó tabla maestra de SAP teniendo como referencia uno ó varios valores ingresados por el usuario. ¿Cómo funciona internamente?, el select-option se vincula a un campo de tabla (a través del código fuente) y al momento de realizar la consulta, la búsqueda de datos se basa en el valor ingresado en pantalla por el usuario. A continuación veremos un ejemplo:

SELECT-OPTIONS s_pais for ZPELICULAS-pais_id. Data wa_zpeliculas like zpeliculas. SELECT * into wa_zpeliculas FROM ZPELICULAS WHERE PAIS_ID IN s_pais. WRITE:/ wa_ZPELICULAS-PEL_ID, Wa_ZPELICULAS-PELTXT.

ENDSELECT.

OBS: En este ejemplo vemos un solo SELECT-OPTIONS, pero pueden ser agregados los que programador desee. Este código debe ser insertado en un programa nuevo. Al compilarlo, y si no existen errores, en la pantalla debería aparecer lo siguiente:

Página 37 de 103


Otros valores que podemos incluir al usar SELECT-OPTIONS son los siguientes (estos valores son opcionales):

OBLIGATORY: Indica si es obligatorio completar este campo. DEFAULT: Propone un valor por defecto. LOWER CASE: Indica si se permitirá ingresar minúsculas NO INTERVALS: Indica que no se utilizará un rango se valores (desde / hasta). Sin embargo se puede ingresar uno o varios valores por ejemplo un listado.

Al aplicarlo al código, basándose en el ejemplo anterior sería lo siguiente:

SELECT-OPTIONS s_pais for ZPAISES-pais_id DEFAULT '120' LOWER CASE OBLIGATORY NO INTERVALS. Data wa_zpeliculas like zpeliculas. SELECT * into wa_zpeliculas FROM ZPELICULAS WHERE PAIS_ID IN s_pais. WRITE:/ wa_ZPELICULAS-PEL_ID, Wa_ZPELICULAS-PELTXT.

ENDSELECT.

Página 38 de 103


Al compilar debiera aparecer lo siguiente:

Al presionar este botón, aparecerá la ventana para ingresar el listado de valores a utilizar en la búsqueda de datos.

Página 39 de 103


MODULARIZACION La modularización básicamente se trata de ir creando el programa y agrupando el código en subrutinas, éstas son llamadas a través de la cláusula Perform.

Ejemplo Nº 1: Data tb_zpeliculas like Standard table of zpeliculas with header line. Perform leer_peliculas. Perform write_peliculas. Form leer_peliculas. SELECT * into table tb_zpeliculas FROM ZPELICULAS . Endform. Form write_peliculas. Loop at tb_zpeliculas WRITE:/ tb_ZPELICULAS-PEL_ID, tb_ZPELICULAS-PELTXT.

Endloop. Endform.

Ejemplo Nº 2: Ejemplo de subrutina con parámetros de entrada.

Data tb_zpeliculas like Standard table of zpeliculas with header line. PARAMETERS p_pais like ZPELICULAS-pais_id. Perform leer_peliculas using p_pais. Perform write_peliculas. Form leer_peliculas using p_pais_de_entrada. SELECT * into table tb_zpeliculas FROM ZPELICULAS Where pais_id = p_pais_de_entrada. Endform.

Página 40 de 103


Form write_peliculas. Loop at tb_zpeliculas WRITE:/ tb_ZPELICULAS-PEL_ID, tb_ZPELICULAS-PELTXT.

Endloop. Endform.

Ejemplo Nº 3 Ejemplo de subrutina con parámetros de entrada y salida

Data tb_zpeliculas like Standard table of zpeliculas with header line. Data v_peltxt like ZPELICULAS-PELTXT. PARAMETERS p_id like ZPELICULAS-pel_id. Perform leer_peliculas using p_id changing v_peltxt. Perform write_peliculas using p_id V_peltxt..

Form leer_peliculas using p_pel_id changing p_nombre_pel. SELECT single peltxt into p_nombre_pel FROM ZPELICULAS Where pel_id = p_pel_id. Endform. Form write_peliculas using p_pel_id P_nombre_pel.

WRITE:/ p_PEL_ID, Endform.

P_nombre_pel.

Página 41 de 103


INCLUDES Los includes son programas que pueden ser llamados desde otros, la única diferencia con lo explicado en el item Creación de un programa es en el Paso 3, en donde el campo Type se debe seleccionar Include program, el resto es el mismo proceso.

Ejemplo Nº 1: Se crearán los siguientes includes ZPELICULAS_TOP.: Para declarar variables ZPELICULAS_F01 : Para declarar subrutinas

En el código del Include ZPELICULAS_TOP se deberá ir lo siguiente:

*INCLUDE ZPELICULAS_TOP. Data tb_zpeliculas like Standard table of zpeliculas with header line. Data v_peltxt like ZPELICULAS-PELTXT.

En el código del Include ZPELICULAS_F01 se deberá ir lo siguiente:

*INCLUDE ZPELICULAS_F01 Form leer_peliculas using p_pel_id changing p_nombre_pel. SELECT single peltxt into p_nombre_pel FROM ZPELICULAS Where pel_id = p_pel_id. Endform. Form write_peliculas using p_pel_id P_nombre_pel.

WRITE:/ p_PEL_ID, P_nombre_pel. Endform.

Página 42 de 103


Finalmente el código del programa principal (se debe crear un programa de tipo Executable) deberá quedar así:

INCLUDE ZPELICULAS_TOP. PARAMETERS p_id like ZPELICULAS-pel_id. Perform leer_peliculas using p_id changing v_peltxt. Perform write_peliculas using p_id V_peltxt. INCLUDE ZPELICULAS_F01 .

Página 43 de 103


EVENTOS INITIALIZATION En este ejemplo se propondrá el año actual para la búsqueda de películas. p_agno like zpeliculas-agno. PARAMETERS: SELECT-OPTIONS s_pais for ZPELICULAS-pais_id.

Data wa_zpeliculas like zpeliculas. INITIALIZATION. p_agno = sy-datum(4).

START-OF-SELECTION. SELECT * into wa_zpeliculas FROM ZPELICULAS WHERE PAIS_ID IN s_pais AND agno = p_agno. WRITE:/ wa_ZPELICULAS-PEL_ID, Wa_ZPELICULAS-PELTXT.

ENDSELECT. END-OF-SELECTION.

En este ejemplo siempre se propondrá el país ‘CL’ en la búsqueda.

SELECT-OPTIONS s_pais for ZPELICULAS-pais_id. Data wa_zpeliculas like zpeliculas. INITIALIZATION. s_pais-sign = ‘I’ s_pais-option = ‘EQ’. s_pais-low = ‘CL’. append s_pais.

START-OF-SELECTION. SELECT * into wa_zpeliculas FROM ZPELICULAS WHERE PAIS_ID IN s_pais. WRITE:/ wa_ZPELICULAS-PEL_ID, Wa_ZPELICULAS-PELTXT.


Página 44 de 103


AT-SELECTION-SCREEN Validar datos en la pantalla inicial del reporte. En este ejemplo validamos que en parámetro país este prohibido ingresar Argentina(AR).

PARAMETERS p_pais like ZPELICULAS-pais_id. Data wa_zpeliculas like zpeliculas. AT-SELECTION-SCREEN. if p_pais = ‘AR’. Message E398(00) with ‘Codigo de pais inválido’. Endif. START-OF-SELECTION. SELECT * into wa_zpeliculas FROM ZPELICULAS WHERE PAIS_ID EQ p_pais. WRITE:/ wa_ZPELICULAS-PEL_ID, Wa_ZPELICULAS-PELTXT.


OBS: los mensajes están en la tabla T100.

Página 45 de 103


FUNCTIONS (Funciones) Definición Una function se podría definir como un conjunto de instrucciones agrupadas que pueden ser llamadas desde uno o varios programas. Se utiliza para realizar diversas tareas.

Ejercicio Nº 1: Crear función Z_LEER_PELICULA que dado un id de película entregue el nombre. Entonces en el programa principal esta función se llamaría:

Cómo crear una función

Paso 1: Ir a la transacción SE37. Al hacerlo aparecerá la siguiente pantalla:

Crear

Luego presionar el botón Create.

Página 46 de 103


Paso 2: Al realizar el paso anterior se desplegará la siguiente pantalla. Acá se deben completar los campos Function group y Short text:

Una vez completados los campos se debe presionar el botón Save,

Paso 3: Al hacerlo aparecerá la siguiente pantalla:

De acuerdo al código ejemplo, se deben colocar en los campos. Se debe completar tal como se muestra en la figura y en base al código para llamar a la función. Una vez completados los campos se presiona la pestaña Export.

Página 47 de 103



Se debe completar tal como se muestra en la figura y en base al código para llamar a la función. Una vez completados los campos se presiona la pestaña Tables.

Página 48 de 103



Se debe completar tal como se muestra en la figura y en base al código para llamar a la función. Fijarse en la línea que sale la palabra PARAMETERS, en este caso la tabla a vincular es zpeliculas.

Página 49 de 103



Guardar

Activar

Esta ventana aparece casi en blanco, lo que se muestra es como queda una vez insertado el código En esta ventana debe ser insertado el siguiente código (pinchar la pestaña Source Code):

Página 50 de 103


Código para llamar a la función

Data tb_zpeliculas like Standard table of zpeliculas with header line. Data v_peltxt like ZPELICULAS-PELTXT. PARAMETERS p_id like ZPELICULAS-pel_id. Perform leer_peliculas using p_id changing v_peltxt. Perform write_peliculas using p_id V_peltxt..

Form leer_peliculas using p_pel_id changing p_nombre_pel. * SELECT single peltxt into p_nombre_pel FROM ZPELICULAS * Where pel_id = p_pel_id. CALL FUNCTION ‘Z_LEER_PELICULA’ EXPORTING PEL_ID = p_pel_id

TIPS: El campo que va en el EXPORTING de la función debe agregarse en la pestaña IMPORT tal como en el Paso 3).

Ver el paso 3

IMPORTING

PELTXT = p_nombre_pel

EXCEPTIONS

Not_ found = 1. If sy-subrc ne 0. Clear p_nombre_pel . Endif.

TIPS: El campo que va en el IMPORTING de la función debe agregarse en la pestaña EXPORT (tal como en el Paso 4 ).

Ver el paso 4

Endform. Form write_peliculas using p_pel_id P_nombre_pel.

WRITE:/ p_PEL_ID, Endform.

P_nombre_pel.

Finalmente guardamos y activamos la función.

Página 51 de 103


Ejercicio Nº 1 Crear función (SE37) Z_READ_DVD que dado un código de DVD, como salida entregue: ID_DVD Nombre Película Nombre Director Año Película Duración en minutos País de origen Género Precio DVD Stock DVD

Ejercicio Nº 2 Crear función Z_READ_DVD_2 que dado un código de DVD, como salida entregue estructura con siguientes campos. OBS: crear estructura ZQ_DVD con la SE11, para los campos usar las mismas definiciones que las tablas ZPELICULAS; ZDIRECTORES Y ZDVD

Field name

Key

Type

Length

DVD_ID PEL_ID

NUMC NUMC

10 10

PELTXT

CHAR

40

AGNO DURACION

NUMC NUMC

4 4

PAIS_ID

CHAR

2

GENERO_ID

NUMC

3

DIRECTOR_ID

NUMC

10

Description Código Película Nombre Película original Año Duración en minutos Pais de origen ( Código Pais ISO ) Código género (Terror, Drama, etc.) Código director

NOMBRE

Página 52 de 103


PRECIO MONEDA STOCK

Precio Unitario DVD Moneda Stock DVD

Página 53 de 103


PAQUETES DE DESARROLLO (Package). Creación de un paquete de desarrollo. A continuación se describen los pasos para crear una clase de desarrollo (package).


1


Página 54 de 103


1

Acá se debe hacer clic sobre con el botón derecho del Mouse, sobre el primer ítem del listado Object Name / Create / Package


1

2 Donde:

Página 55 de 103


1. Package: corresponde al nombre del paquete, por norma debe comenzar por Z ó Y.

Short text: corresponde a la descripción del paquete. Software Component: corresponde al componente de software, por lo general es HOME.

2. Create: Se debe presionar este botón para crear el paquete.


Código de la orden de transporte

Crear orden

Una orden de transporte sirve para ir guardando los objetos a medida que se vayan creando objetos tales como tablas, reportes, elementos de datos, etc. en el ambiente de Desarrollo. Luego una vez que las pruebas en ambiente de Desarrollo han finalizadas esa orden es transportada a otro ambiente (Productivo por ej) Esta ventana indica en que orden de transporte quedará almacenado el objeto a crear. En caso de que no existe una orden se deberá crear, lo cuál se explica a continuación.

Código de la orden: Acá va el código de la orden de transporte. Crear orden: se debe presionar este botón en que caso de que no exista una orden de transporte.

Página 56 de 103



1

2

1.

Short description: corresponde al nombre del paquete, por

norma debe comenzar por Z ó Y.

2.

Guardar: se debe presionar este botón para guardar los

cambios.


Aceptar

Página 57 de 103


Al presionar el botón Aceptar de desplegará la siguiente pantalla:

Guardar

Acá se presiona el botón Guardar, con esta acción quedará almacenado en el diccionario el paquete creado.

Página 58 de 103


FUNCIONES DE GRUPO Crear una función de grupo A continuación se describen los pasos para crear una función de grupo.


1


Página 59 de 103


Acá se debe hacer clic sobre con el botón derecho del Mouse, sobre el primer ítem del listado Object Name / Create / Function Group

1


Donde:

Function group: corresponde al nombre del grupo de función. Página 60 de 103


Short text: corresponde a la descripción del grupo de función. Person responsible: es el usuario que creará, en este caso, el grupo de función.

Save: se debe presionar este botón para guardar el objeto a crear.

Paso 4: Realizar el paso 6 descrito en el ítem “Creación de un dominio de datos ”.

Página 61 de 103


Reportes ALV Los reportes ALV básicamente son un conjunto de datos obtenidos a partir de una consulta a una o más tablas de datos. La salida es generada con un formato “más elegante” que un reporte normal. A continuación veremos algunos ejemplos:

Ejemplo Nº 1 report grid_edit. * type-pools: slis. * Data to be displayed data: gs_layout type slis_layout_alv. Data tb_zpeliculas type table of

zpeliculas .

PARAMETERS p_pais like ZPELICULAS-pais_id. *---------------------------------------------------------------------* * Selection

SELECT * into table tb_zpeliculas FROM ZPELICULAS Where pais_id = p_pais. * Eingabebereit gs_layout-edit = 'X'. * Call ABAP List Viewer (ALV)

call function 'REUSE_ALV_GRID_DISPLAY' exporting i_callback_program = sy-cprog i_callback_user_command = 'USER_COMMAND' i_structure_name = 'ZPELICULAS' is_layout = gs_layout tables t_outtab = tb_zpeliculas. form user_command using r_ucomm type sy-ucomm rs_selfield type slis_selfield. if r_ucomm = '&DATA_SAVE'. message i000(0k) with text-001. call function 'REUSE_ALV_LIST_DISPLAY' exporting i_structure_name = 'ZPELICULAS' tables t_outtab = tb_zpeliculas. endif. endform.

Página 62 de 103


Ejemplo Nº 2 report grid_edit. * type-pools: slis. * Data to be displayed data: gs_layout type slis_layout_alv, it_fieldcat type slis_t_fieldcat_alv with header line. *********************************** Data tb_zpeliculas type table of zpeliculas . PARAMETERS p_pais like ZPELICULAS-pais_id. *---------------------------------------------------------------------* * Selection

SELECT * into table tb_zpeliculas FROM ZPELICULAS Where pais_id = p_pais_de_entrada. * Eingabebereit

gs_layout-edit = 'X'. perform create_fieldcat. * Call ABAP List Viewer (ALV) call function 'REUSE_ALV_GRID_DISPLAY' exporting i_callback_program = sy-cprog is_layout = gs_layout it_fieldcat = it_fieldcat[] tables t_outtab = tb_zpeliculas. form create_fieldcat. * Esturctura SLIS_FIELDCAT_ALV * tabname : Nombre de la tabla * fieldname : Nombre del campo de la tabla interna * ref_tabname : Tabla de referencia SAP * ref_fieldname: Campo de referencia SAP (el campo fieldname toma * las características del campo ref_fieldname) * ddictxt : El texto del encabezado sera (S)hort (M)iddle (L)ong * reptext_ddic : Información del encabezado de la columna * seltext_l : Texto largo * seltext_m : Texto medio * seltext_s : Texto pequeño * outputlen : 18. (ancho de la columna) * hotspot : 'X'. (se activa mano de selección) * key : 'X'. (muestra la columna en color verde y queda * fija en scrolling) * key_sel : Hace que la clave no sea obligatoria * col_pos : Numero de la posición de la columna * just : Justificación de salida (R)ight (L)eft (C)ent. * do_sum : El campo será sumado * currency : Moneda de calculo * no_zero : No muestra valores con 0

Página 63 de 103


*

* * * *

no_out : El campo no aparece en la salida del reporte it_fieldcat-fieldname = 'PEL_ID'. it_fieldcat-tabname = 'TB_ZPELICULAS'. it_fieldcat-ref_tabname = 'ZPELICULAS'. it_fieldcat-seltext_l = 'XXX'. it_fieldcat-seltext_m = 'XXX'. it_fieldcat-seltext_s = 'XXX'. it_fieldcat-reptext_ddic = 'XXX'. APPEND it_fieldcat. it_fieldcat-fieldname = 'PELTXT'. it_fieldcat-tabname = 'TB_ZPELICULAS'. it_fieldcat-ref_tabname = 'ZPELICULAS'. APPEND it_fieldcat. it_fieldcat-fieldname = 'AGNO'. it_fieldcat-tabname = 'TB_ZPELICULAS'. it_fieldcat-ref_tabname = 'ZPELICULAS'. APPEND it_fieldcat. it_fieldcat-fieldname = 'DURACION'. it_fieldcat-tabname = 'TB_ZPELICULAS'. it_fieldcat-ref_tabname = 'ZPELICULAS'. APPEND it_fieldcat. it_fieldcat-fieldname = 'PAIS_ID'. it_fieldcat-tabname = 'TB_ZPELICULAS'. it_fieldcat-ref_tabname = 'ZPELICULAS'. APPEND it_fieldcat. it_fieldcat-fieldname = 'GENERO_ID'. it_fieldcat-tabname = 'TB_ZPELICULAS'. it_fieldcat-ref_tabname = 'ZPELICULAS'. APPEND it_fieldcat. it_fieldcat-fieldname = 'DIRECTOR_ID'. it_fieldcat-tabname = 'TB_ZPELICULAS'. it_fieldcat-ref_tabname = 'ZPELICULAS'. APPEND it_fieldcat.

endform.

Página 64 de 103


Ejercicio Nº 1: Crear reporte ALV, dado nombre de película y nombre de director (select-options), entregue el siguiente listado: DVD ID Nombre Película original Año Duración en minutos País de origen Género Nombre director Precio Unitario DVD Moneda Stock DVD Hint: Crear tabla interna con la mismos campos que se exigen en la salida del reporte, después crear el fieldcat con esos campos. Hint: buscar en la se38 programas BCALV*, que son ejemplos dados por SAP. Por ejemplo el BCALV_FULLSCREEN_DEMO

Solucion:

Tables: zpeliculas, Zdirectores. Data tb_dvd like Standard table of zdvd with header line. Select-options: s_dnombre for zdirectores-nombre, S_pnombre for zpeliculas-peltxt. Start-of-selection. . Form read_dvd. Data v_director_id like zdirectores-director_id. Data v_pel_id like zpeliculas-pel_id.

Página 65 de 103


Select director_id into v_director_id from zdirectores Where nombre in s_dnombre. Select pel_id into v_pel_id from zpeliculas Where peltxt in s_pnombre And director_id = v_director_id. Select * into table tb_dvd from zdvd Where pel_id = v_pel_id. Endselect. Endselect. Endform.

Página 66 de 103


DYNPROS Definición Una dynpro se podría definir como un conjunto de elementos que tiene por finalidad obtener interfaces para que el usuario realice diversas operaciones tales como ingreso de datos a tablas del sistema, exportación de datos a un fichero (archivo) local ó a un servidor externo, entre otras.

Creación de una dynpro

Paso 1: Con la transacción SE38 creamos programa tipo M (modulpool)

Página 67 de 103


Paso 2: Ir a la transacción SE51

Y creamos la dynpro, en este caso la ‘0200’. OBS : el Nº es arbitrario.

Página 68 de 103


Paso 3: 1. Atributes: Se deben revisar los atributos de la Dynpro

2 1

Disposición: al presionar este botón se abrirá una ventana donde podremos diseñar la pantalla de la dynpro. Al hacerlo se desplegará la siguiente pantalla:

Página 69 de 103


Objetos que se pueden agregar a la dynpro

A la izquierda está el listado de objetos que podemos agregar a una dynpro. En nuestro caso queremos agregar “campos de entrada/salida” para ingresar datos de directores.

Página 70 de 103


Para insertar un objeto en la dynpro, simplemente se hace clic en el objeto de la lista y luego se dibuja con el mouse sobre la pantalla.

Página 71 de 103


Variable ABAP en que “guardaremos” valor de campo de entrada

largo

tipo

Ahora agregaremos un texto, para describir el campo de entrada. Para ello agregamos “campo de texto”.

Página 72 de 103


Página 73 de 103


Texto a desplegar

Se debe utilizar el mismo procedimiento para crear los otros campos,

Página 74 de 103


Una vez que se han creado los campos, se debe presionar el botón Logic Process (Lógica del Proceso)

Logic Process

Página 75 de 103


Al realizar el paso anterior, se desplegará la siguiente pantalla:

Acá tenemos el PBO y en el PAI. En el PBO definiremos el status GUI, de la dynpro, y el titulo. Para ello definiremos el modulo STATUS_0200. Tip ¡: basta con descomentar la línea y hacer doble clic sobre “Module…” y lo creas. En este caso lo crearemos dentro del mismo programa ZDIRECTORES, pero se estila crearlo en un include para modulos PBO.

Página 76 de 103


*&---------------------------------------------------------------------* *& Module STATUS_0200 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* module STATUS_0200 output. SET PF-STATUS 'STATUS'. SET TITLEBAR 'T01'. endmodule.

" STATUS_0200

OUTPUT

Definimos un status gui “STATUS” y un Titulo “T01”. Tip: doble clic sobre cada línea y directamente lo creamos.

Al aparecer el mensaje, de debe hacer clic en SI.

Página 77 de 103


Nombre del Status GUI Descripción del Status GUI

Luego al hacer clic en Aceptar aparecerá la siguiente pantalla:

A los iconos le asignamos un nombre de comando: SAVE BACK CANC

Grabamos y activamos. Volvemos a la dynpro, lógica. Creamos el título, equivalentemente, con doble clic:

Página 78 de 103


Al hacer el paso anterior aparecerá la siguiente ventana:

En campo Titulo le damos nombre y luego se presiona el botón Enter. Al hacerlo, volveremos a la ventana de la lógica del programa. En el PAI tenemos que “traspasar” los campos de entrada en la pantalla al programa principal. Para ello usamos la instrucción field para cada campo de entrada.

Instrucción FIELD

Página 79 de 103


Cada comando que ejecutamos en la dynpro tiene que asignarse a una variable, para ello, nos vamos a “Lista Elem.”

OK_CODE es solo un nombre

Lo definimos como “OK_CODE”. Ahora agregamos la variable en el codigo ABAP *&---------------------------------------------------------------------* *& Modulpool ZDIRECTORES *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* PROGRAM

ZDIRECTORES.

data ok_code like sy-ucomm.

Ahora tenemos que definir que hacer por cada acción que existe dentro de la pantalla, para eso creamos el modulo USER_COMMAND_0200 (doble clic).

Página 80 de 103


*&---------------------------------------------------------------------* *& Module USER_COMMAND_0200 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_0200 INPUT. DATA fcode LIKE ok_code. fcode = ok_code. CLEAR ok_code. CASE fcode. WHEN 'SAVE'. PERFORM grabar_director USING zdirectores. WHEN 'BACK'. LEAVE TO SCREEN 0. ENDCASE. ENDMODULE.

" USER_COMMAND_0200

INPUT

*&---------------------------------------------------------------------**& Form grabar_director *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->ZDIRECTORES text *----------------------------------------------------------------------* FORM grabar_director USING zdirectores STRUCTURE zdirectores. INSERT INTO zdirectores VALUES zdirectores. IF sy-subrc = 0. MESSAGE s000(fb) WITH 'Director ingresado con éxito'. Clear zdirector. ELSE. MESSAGE e000(fb) WITH 'Error ingreso director'. ENDIF. ENDFORM. "grabar_director

Si observan, utilizamos la variable ok_code para determinar que “botón se presionó”. En este caso definimos que para el botón SAVE (ver status GUI), grabamos el director y en el caso de BACK salimos de la transacción.

Ahora hay que asignar una transacción a la dynpro

Página 81 de 103


Página 82 de 103


Código

Nombre

Tipo

Página 83 de 103


Guardar

Crear nueva sesión

Nª de la Dynpro

Luego presionamos el botón Guardar y listo. Para probar, primero presionemos el botón indicado como Crear nueva sesión Ahora ejecutamos la transacción, vía comando, para ello nos posicionamos en la parte superior de la pantalla e ingresamos la transacción.

Página 84 de 103


Esta es la DYNPRO que fuimos creando paso a paso anteriormente.

A través de esta interfaz, podemos ir agregando datos a la tabla. Para grabarlos debemos presionar el botón Guardar de la barra de herramientas.

Página 85 de 103


A continuación se muestra el código que debe ser inserto, para ello se debe volver a la ventana de la lógica del programa

*&---------------------------------------------------------------------* *& Modulpool ZDIRECTORES *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* program

zdirectores.

data ok_code like sy-ucomm.

data: begin of zdirectores, director_id(10) type c, nombre(10) type c, nacion(2) type n, fec_nac type d, fec_mue type d, end of zdirectores. *&---------------------------------------------------------------------* *& Module STATUS_0200 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* module status_0200 output. set pf-status 'STATUS'. set titlebar 'T01'. endmodule. " STATUS_0200 OUTPUT *&---------------------------------------------------------------------* *& Module USER_COMMAND_0200 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* module user_command_0200 input. data fcode like ok_code. fcode = ok_code. clear ok_code. case fcode. when 'SAVE'. perform grabar_director using zdirectores. when 'BACK'. leave to screen 0. endcase. endmodule.

" USER_COMMAND_0200

INPUT

*&---------------------------------------------------------------------* *& Form grabar_director *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------*

Página 86 de 103


* -->ZDIRECTORES text *----------------------------------------------------------------------* form grabar_director using zdirectores structure zdirectores. INSERT INTO zdirectores VALUES zdirectores. if sy-subrc = 0. message s000(fb) with 'Director ingresado con éxito'. clear zdirectores. else. message e000(fb) with 'Error ingreso director'. endif. endform. "grabar_director

process before output. module status_0200. * process after input. field field field field field

zdirectores-director_id. zdirectores-nombre. zdirectores-nacion. zdirectores-fec_nac. zdirectores-fec_mue.

module user_command_0200.999

Una vez inserto este código, chequeamos si no existen errores, guardamos y estaríamos en condiciones en usar la interfaz para ir agregando, en este caso, nuevos directores.

Página 87 de 103


SMARTFORMS Ejercicio N° 1. El jefe quiere el listado de los usuarios que hay en Sap y quiere imprimir la siguiente carta:

Santiago, 23 de Enero del 2006 LISTADO DE USUARIOS SAP Empresa GlobalSap consulting, tiene los siguientes usuarios registrados en SAP. (Antes se deberá crear la tabla ZUSUARIOS con estos campos).

Codigo Usuario JVASQUEZ CRUIZ GGONZALEZ PTAPIA

Nombre Jaime Vazquez Cristian Ruiz German Gonzalez Pablo Tapia

Solución: Desde la ventana principal de SAP, escribimos la transacción SMARTFORM, creamos el smartform y definimos la tabla de entrada usuarios

Página 88 de 103


2. TABLAS 1. Interface form. 3. Def. Tabla ZUSUARIOS

En este ejemplo usaremos la ventana MAIN que se crea por defecto, acuérdense que el concepto de MAIN es el mismo que en el de los SAPSCRIPT. A la ventana MAIN le definiremos un texto llamado HEADER para colocar el texto de cabecera de la tabla.

Página 89 de 103


Crear texto, HEADER

Fíjate en el botón Lista de campos, ahí en el extremo inferior izquierdo, salen todos los campos visibles para programa smartform, para poner la fecha utilizaremos la variable de sistema DATE, fíjate que esto es drag & drop.

Página 90 de 103


1. Lista de campos

4. drag & drop 2. Lista de campos

3. variable de sistema DATE

De ahí simplemente le colocas el texto tal cual como en un editor.

Página 91 de 103


Ahora hay que definir la tabla para la impresión de los usuarios: Creamos tabla: Lo que hay que definir es lo siguiente, la cantidad de columnas que tendrá, Vamos a details

Página 92 de 103


1. Details

Página 93 de 103


Definimos las columnas, en este caso son 2, una para usuario y otra para nombre, ojo con los largos que tiene que ser igual al ancho de tabla.

Ojo con esto

Página 94 de 103


Para trabajar con la tabla tenemos que definir un work area, que definimos en definiciones globales

Página 95 de 103


1. Datos globales

Work area para la tabla

Volvamos a la tabla

Página 96 de 103


Fíjarse que las tablas tienen áreas para Cabecera: normalmente aquí definimos el nombre de las columnas. Principal: las líneas se imprimen aquí. Pie: Ejemplo, impresión de los totales

Página 97 de 103


Entonces creamos “Entrada en tabla”, y definimos el tipo de línea

Página 98 de 103


Notar que en cada columna(CELL), ponemos un campo de la work area y eso es todo

Página 99 de 103


Para que esto tengo sentido, hay que crear el programa ABAP de impresión, en este caso el YTEST_SMART, en la rutina siguiente se imprime: *&---------------------------------------------------------------------* *& Form print_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* form print_data. data: *smartforms related func_module_name type rs38l_fnam, control_parameters type ssfctrlop, output_options type ssfcompop. data: pa_form LIKE ssfscreen-fname . pa_form = 'YTEST_SMART'. output_options-tdnewid = 'X'. output_options-tdimmed = 'X'. output_options-tddelete = 'X'. control_parameters-no_dialog = ' '. * determine the name of the generated function module for the SMartform CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' EXPORTING OBS: Un smartform es una formname = pa_form función(SE37), entonces acá le IMPORTING pasamos el nombre del smartform y fm_name = func_module_name te pasa el nombre de la funcion. El EXCEPTIONS nombre es del estilo no_form = 1 no_function_module = 2 /1BCDWB/SF00000172 OTHERS = 3.

* call the generated function module of the form CALL FUNCTION func_module_name EXPORTING control_parameters = control_parameters output_options = output_options user_settings = space TABLES usuarios = user_name_address_tab EXCEPTIONS formatting_error = 1 internal_error = 2 send_error = 3 user_canceled = 4 my_exception = 5 OTHERS = 6.

endform.

Aca ejecutamos la llamada al smartform como una función, le pasamos los parámetros de impresión y la tabla USUARIOS para imprimir

"print_data

Lo ejecutamos y podremos observar el formulario creado.

Página 100 de 103


Página 101 de 103


*&---------------------------------------------------------------------* *& Report YTEST_SMART *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT

YTEST_SMART.

data data

USER_NAME_TAB like standard table of USUSERS. USER_NAME_ADDRESS_TAB like standard table of USADDR3.

start-of-selection. perform get_users. perform print_data.

*&---------------------------------------------------------------------* *& Form get_users *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* form get_users.

* *

* * * * *

* *

CALL FUNCTION 'SUSR_USER_ADDRESS_READ_ARRAY' EXPORTING ALL_USERS = 'X' IMPORTING RETURNCODE = TABLES USER_NAME_TAB = user_name_tab USER_ADDRESS_TAB = USER_NAME_ADDRESS_TAB = user_name_address_tab EXCEPTIONS INTERNAL_ERROR = 1 USER_NAME_TAB_IS_EMPTY = 2 OTHERS = 3 . IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.

endform.

"get_users

*&---------------------------------------------------------------------* *& Form print_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* form print_data. data: *smartforms related func_module_name type rs38l_fnam, control_parameters type ssfctrlop,

Página 102 de 103

abap

Recommend Documents