Interne Tabelle als Mail versenden

Code: Alles auswählen.

TYPES: BEGIN OF ty_apqi,
  groupid       TYPE      apqi-groupid,
  qstate        TYPE      apqi-qstate,
  creator       TYPE      apqi-creator,
  credate       TYPE      apqi-credate,
END OF ty_apqi.

TYPES: BEGIN OF ty_apqi_aus,      
  groupid       TYPE      apqi-groupid,
  qstate        TYPE      apqi-qstate,
  creator       TYPE      apqi-creator,
  datum         TYPE      c LENGTH 10,
END OF ty_apqi_aus.

DATA: gt_apqi TYPE TABLE OF ty_apqi,
      wa_apqi TYPE ty_apqi.

DATA: gt_apqi_aus TYPE STANDARD TABLE OF ty_apqi_aus,
      wa_apqi_aus TYPE ty_apqi_aus.

Code: Alles auswählen.

SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_apqi FROM apqi
  WHERE  credate = yesterday
  AND    qstate  = 'E'.

IF sy-subrc = 0.

  LOOP AT gt_apqi INTO wa_apqi.                       
      wa_apqi_aus-groupid = wa_apqi-groupid.
      wa_apqi_aus-qstate = wa_apqi-qstate.
      wa_apqi_aus-creator = wa_apqi-creator.
      CONCATENATE wa_apqi-credate+6(2) '.' wa_apqi-credate+4(2) '.' wa_apqi-credate(4) INTO gv_datum.       "Datum formatieren
      wa_apqi_aus-datum = gv_datum.
      APPEND wa_apqi_aus TO gt_apqi_aus.
    ENDLOOP.

  PERFORM mailapqi.

ELSE.
  WRITE : / 'Keine Daten gefunden.'.
ENDIF.

CLEAR gv_datum.

Code: Alles auswählen.

FORM MAILAPQI.

DATA: lv_html TYPE string,                  
         lt_soli TYPE soli_tab.

  CALL TRANSFORMATION z_sap_rout_apqi
  SOURCE apqi = gt_apqi_aus
  RESULT XML lv_html.

  CALL FUNCTION 'SCMS_STRING_TO_FTEXT'
  EXPORTING
    TEXT      = lv_html
  TABLES
    ftext_tab = lt_soli.

***Mailversendungs-FuBa eures Vertrauens***

COMMIT WORK.

ENDFORM.

Code: Alles auswählen.

<xsl:transform xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:sap="http://www.sap.com/sapxsl" version="1.0">
  <xsl:output encoding="iso-8859-1" indent="yes" method="html" version="4.0"/>
  <xsl:strip-space elements="*"/>

  <xsl:template match="/">

    <xsl:element name="html">

      <xsl:element name="head">

        <xsl:element name="style">
          <xsl:text>body{font-family: Arial, sans-serif;} table{border-collapse: collapse; font-size: small;} th, td {border: 1px solid black; padding: 5px} th{background-color:#A0A0A0;} td{background-color:#D7E6f5;}</xsl:text>
        </xsl:element>

      </xsl:element>

      <xsl:element name="body">

        <xsl:element name="table">

          <xsl:element name="tr">
            <xsl:element name="th">
              <xsl:text>Group Name</xsl:text>
            </xsl:element>
            <xsl:element name="th">
              <xsl:text>Status</xsl:text>
            </xsl:element>
            <xsl:element name="th">
              <xsl:text>UserID</xsl:text>
            </xsl:element>
            <xsl:element name="th">
              <xsl:text>Erstellung</xsl:text>
            </xsl:element>
          </xsl:element>

          <xsl:for-each select="//APQI/item">

            <xsl:element name="tr">
              <xsl:element name="td">
                <xsl:value-of select="GROUPID"/>
              </xsl:element>
              <xsl:element name="td">
                <xsl:value-of select="QSTATE"/>
              </xsl:element>
              <xsl:element name="td">
                <xsl:value-of select="CREATOR"/>
              </xsl:element>
              <xsl:element name="td">
                <xsl:value-of select="DATUM"/>
              </xsl:element>
            </xsl:element>

          </xsl:for-each>

        </xsl:element>

      </xsl:element>

    </xsl:element>

  </xsl:template>