Webservices(I): ficheros xml

Éste y (creo que) los dos siguientes posts del blog van a tratar sobre comunicaciones entre sistemas mediante servicios web o webservices. Explicaré cómo enviar y recibir información desde y hacia nuestro SAP, lo que comunmente llamamos interfaces. Siempre partiendo de que no disponemos del módulo XI/PI de SAP que seguramente nos facilitaría las cosas bastante.

Para empezar diré que la información que trasladaremos entre plataformas la convertiremos al “lenguaje” XML y en este primer post voy a explicar cómo hacerlo.

Transformaciones ABAP/XML y XML/ABAP

SAP provee de dos herramientas básicas para hacer transformaciones de información de ABAP a XML y de XML a ABAP.

• Utilizando la plantilla de transformación estándar de SAP.
• Mediante la creación de transformaciones simples a través de la transacción STRANS.
  
  

Voy a centrarme en el primer tipo haciendo un pequeño ejemplo. Primero vamos a crear un fichero XML a partir de datos de pedidos de venta extraídos de nuestro sistema. En segundo lugar, imaginaremos que el sistema externo nos ha devuelto esos datos modificados en otro fichero XML que convertiremos igualmente a datos ABAP.

De ABAP a XML

• Crearemos un pequeño programa ABAP en nuestro editor.

Herramientas / Workbench ABAP / Desarrollo / SE38 – Editor ABAP

• Extraemos los datos de la tabla de pedidos de posiciones de pedidos de venta VBAP.
• Llamamos a la función CALL_TRANSFORMATION que convierte los datos a XML.
  
  

REPORT zpruebas NO STANDARD PAGE HEADING LINE-SIZE 255.
*********************************************************************************
*Tablas
**********************************************************************************
TABLES:
  vbap.

*********************************************************************************
*Tablas internas
*********************************************************************************
DATA: BEGIN OF ti_vbap OCCURS 0,
  vbeln  LIKE vbap-vbeln,        "Documento
  posnr  LIKE vbap-posnr,        "Posición
  matnr  LIKE vbap-matnr,        "Material
END OF ti_vbap.

*********************************************************************************
*Datos globales
*********************************************************************************
DATA:
  g_xml TYPE string.

*********************************************************************************
***                            SELECTION-SCREEN                                  
*********************************************************************************
SELECT-OPTIONS:
  s_vbeln FOR vbap-vbeln.

*********************************************************************************
*START-OF-SELECTION
*********************************************************************************
START-OF-SELECTION.

  SELECT * FROM vbap
    INTO CORRESPONDING FIELDS OF TABLE ti_vbap
    WHERE vbeln IN s_vbeln.

*********************************************************************************
*END-OF-SELECTION
*********************************************************************************
END-OF-SELECTION.

  CALL TRANSFORMATION id SOURCE data = ti_vbap[]
                         RESULT XML    g_xml.

[…]

• El resultado para la selección del pedido de ventas 1320000021
  
  
  
  
  

De XML a ABAP

• Crearemos un pequeño programa ABAP en nuestro editor.

Herramientas / Workbench ABAP / Desarrollo / SE38 – Editor ABAP

• Subiríamos los datos a SAP. En próximos posts veremos cómo hacerlo a través de webservice.
• De nuevo llamamos a la función CALL_TRANSFORMATION para convertir los datos XML a ABAP.
  
  

REPORT zpruebas NO STANDARD PAGE HEADING LINE-SIZE 255.
*********************************************************************************
*Tablas
*********************************************************************************

*********************************************************************************
*Tablas internas
*********************************************************************************
* Tabla que contiene el xml
DATA: BEGIN OF ti_xml OCCURS 0,
  string TYPE string,
END OF ti_xml.

* Tabla de datos ABAP
DATA: BEGIN OF ti_vbap OCCURS 0,
  vbeln  LIKE vbap-vbeln,        "Documento
  posnr  LIKE vbap-posnr,        "Posición
  matnr  LIKE vbap-matnr,        "Material
END OF ti_vbap.

*********************************************************************************
*Datos globales
*********************************************************************************
DATA:
  g_xml TYPE string.

*********************************************************************************
***                            SELECTION-SCREEN                                **
*********************************************************************************
PARAMETERS:
  p_fich TYPE string.

*********************************************************************************
*START-OF-SELECTION
*********************************************************************************
START-OF-SELECTION.

* Aquí llenaríamos la variable g_xml con el string xml
* [...]

*********************************************************************************
*END-OF-SELECTION
*********************************************************************************
END-OF-SELECTION.

  CALL TRANSFORMATION id SOURCE XML g_xml
                         RESULT data = ti_vbap.

Al final, los datos del fichero xml estarían incorporados en nuestra tabla interna ABAP ti_vbap.

Más información

En este blog también tenéis información amplia sobre transformaciones XML. Y para una documentación más extensa también podéis consultar este documento.

Imagen inicial | ssinger3