*&---------------------------------------------------------------------*
*& Report  ZTEST_KURS
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST_KURS.

type-pools: abap,
            sai.

types: begin of ty_s_valute,
        VNAME type string,
        VNOM  type string,
        VCURS type string,
        VCODE type string,
        VCH_CODE type string,
       end of ty_S_valute,
       ty_T_valute type table of ty_s_valute.


data: go_cbr      type ref to ZTEST_CO_DAILY_INFO_SOAP,
      go_err_sys  type ref to CX_AI_SYSTEM_FAULT,
      go_err_appl type ref to CX_AI_APPLICATION_FAULT,
      go_err_xlst type ref to CX_TRANSFORMATION_ERROR,
      gd_message  type string,
      gs_input    type ZTEST_GET_CURS_ON_DATE_XMLSOA1,
      gs_output   type ZTEST_GET_CURS_ON_DATE_XMLSOAP,
      gd_tz       TYPE ttzz-tzone VALUE IS INITIAL,
      go_payload_protocol TYPE REF TO if_wsprotocol_payload,
      go_payload          type ref to IF_WS_PAYLOAD,
      gd_xml_bin type XSTRING,
      gt_valute  type ty_T_valute.

PARAMETERS: P_DATE type sy-datum,
            p_time type sy-uzeit.

initialization.

  p_date = sy-datum + 1.

start-of-selection.

  TRY.
    CREATE OBJECT go_cbr
      EXPORTING
        LOGICAL_PORT_NAME  = 'ZTEST_CO_DAILY_INFO_SOAP'.

    go_payload_protocol ?= go_cbr->get_protocol( if_wsprotocol=>payload ).

    go_payload_protocol->announce_payload_consumption( ).

    CONVERT DATE p_date TIME p_time INTO TIME STAMP gs_input-ON_DATE TIME ZONE gd_tz.

    CALL METHOD GO_CBR->GET_CURS_ON_DATE_XML
      EXPORTING
        INPUT  = gs_input
      importing
        output = gs_output.

    go_payload = GO_PAYLOAD_PROTOCOL->GET_SENT_RESPONSE_PAYLOAD( ).

    gd_xml_bin = GO_PAYLOAD->GET_XML_BINARY( ).

    CALL TRANSFORMATION ZTEST_CBRF_KURS_XML_TO_ABAP
      SOURCE XML gd_xml_bin
      RESULT IT_VALUTE = gt_valute.

    CATCH CX_AI_SYSTEM_FAULT into go_err_sys.
      message go_err_sys->errortext type 'E'.

    CATCH CX_AI_APPLICATION_FAULT into go_err_appl.
      gd_message = GO_ERR_APPL->IF_AI_APPLICATION_FAULT~GET_RT_FAULT_TEXT( ).
      message gd_message type 'E'.

    catch CX_TRANSFORMATION_ERROR into go_err_xlst.
      gd_message = go_err_xlst->get_text( ).
      message gd_message type 'E'.

  ENDTRY.

<xsl:transform xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:sap="http://www.sap.com/sapxsl" version="1.0" xmlns:n0="http://web.cbr.ru/">

  <xsl:strip-space elements="*"/>

  <xsl:template match="/">
    <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
      <asx:values>
        <IT_VALUTE>
          <xsl:apply-templates select="//n0:GetCursOnDateXMLResponse"/>
        </IT_VALUTE>
     </asx:values>
    </asx:abap>
  </xsl:template>

  <xsl:template match="//n0:GetCursOnDateXMLResponse">
    <xsl:apply-templates select="//n0:GetCursOnDateXMLResult"/>
  </xsl:template>

  <xsl:template match="//n0:GetCursOnDateXMLResult">
    <xsl:for-each select="ValuteData/ValuteCursOnDate">
     <item>
      <VNAME>     <xsl:value-of select="Vname"/>   </VNAME>
      <VNOM>      <xsl:value-of select="Vnom"/>    </VNOM>
      <VCURS>     <xsl:value-of select="Vcurs"/>   </VCURS>
      <VNAME>     <xsl:value-of select="Vname"/>   </VNAME>
      <VCODE>     <xsl:value-of select="Vcode"/>   </VCODE>
      <VCH_CODE>  <xsl:value-of select="VchCode"/> </VCH_CODE>
     </item>
    </xsl:for-each>
  </xsl:template>

</xsl:transform>

data: go_cbr type ref to ZTEST_CO_DAILY_INFO_SOAP,
gs_input type ZTEST_GET_CURS_ON_DATE_XMLSOA1,
gs_output type ZTEST_GET_CURS_ON_DATE_XMLSOAP,