Creación y consuso de web services sap

Tutorial de creación y consumo de Web Services en SAP
Creando un Web Service
1.- En la TX SE37 crear un Function Module, en este caso zbus_consultacontactos

2.- En la pestaña atributosseleccionar “Remote-Enable Module”


3.- Llenar los campos de Import, Export, Tablas, etc. En nuestro ejemplo haremos una consulta a la tabla zcontactos por idcontactos por lo que en import tendremosnuestro campo ID TYPE CHAR4 y en export tendremos:
NOMBRE TYPE CHAR30
APELLIDOP TYPE CHAR30
APELLIDOM TYPE CHAR30
DIRECCION TYPE CHAR100
TELEFONO TYPE CHAR20
CORREO TYPE CHAR20

4.-Seleccionamos el check-box Pass Value en los parámetros de import y export, ya que nos interesa pasar una copia del parámetro.

5.- El código ABAP para la consulta quedaría de la siguiente formaFUNCTION zbus_consultacontactos.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(IDCONTACTO) TYPE  CHAR4
*"  EXPORTING*"     VALUE(NOMBRE) TYPE  CHAR30
*"     VALUE(APELLIDOP) TYPE  CHAR30
*"     VALUE(APELLIDOM) TYPE  CHAR30
*"     VALUE(DIRECCION) TYPE  CHAR100
*"     VALUE(TELEFONO) TYPE  CHAR20*"     VALUE(CORREO) TYPE  CHAR20
*"----------------------------------------------------------------------

data: it_contactos like zcontactos.
SELECT SINGLE * FROM zcontactos into it_contactos WHERE idcontacto =
idcontacto.  nombre = it_contactos-nombre.
  apellidop = it_contactos-apellidop.
  apellidom = it_contactos-apellidom.
  direccion = it_contactos-direccion.
  telefono  = it_contactos-telefono.  correo = it_contactos-correo.

ENDFUNCTION.

6.- Guardamos, Checamos sintaxis y activamos.

7.- Para crear el Web Service. Utilities More Utilities Create Web Service From the Funtcion Module.

8.-Dentro delWizard definir un nombre de Web Service, en esta caso zws_consultacontacto
y una descripción. Click en continuar.

9.- Nos aparece el nombre del Function Module que se va a...