BillPrinter

softeyesStraßePlzOrttelfaxname@domain.deKreditinstitutBankleitzahlKonto-Nrxxx/xxx/xxxxxdexxxxxxxxxDresdenOrtDatumKd-Nr.RechnungMonatsgebühr12.99Datenverkehr24.99 (let ((format-currency-de (lambda (x) x))) (let listposten ((nl (select-elements (children (node-list-first (xsl-variable "rechnung"))) 'posten)) (nr 1) (gnetto 0) (gust 0) (gtotal 0)) (if (node-list-empty? nl) (make element gi:'Total (make element gi:'Netto (literal (format-currency-de gnetto))) (make element gi:'Ust (literal (format-currency-de gust))) (make element gi:'Gesamt (literal (format-currency-de gtotal))) (make element gi:'Gesamt-dm (literal (format-currency-de (/ (round (* gtotal 195.583)) 100.0))))) (let* ((row (children (node-list-first nl))) (text (data (select-elements row 'text))) (menge (data (select-elements row 'menge))) (preis (data (select-elements row 'preis))) (nmenge (string->number menge)) (npreis (string->number preis)) (netto (* npreis nmenge)) (ust (exact->inexact (/ (round (* netto 16)) 100))) (total (+ netto ust))) (node-list (make element gi:'Posten (make element gi:'Pos-Nr (literal (number->string nr))) (make element gi:'Bez (literal text)) (make element gi:'Netto-E (literal (format-currency-de npreis))) (make element gi:'Menge (literal menge)) (make element gi:'Netto (literal (format-currency-de netto))) (make element gi:'Ust (literal (format-currency-de ust))) (make element gi:'Gesamt (literal (format-currency-de total)))) (listposten (node-list-rest nl) (+ nr 1) (+ gnetto netto) (+ gust ust) (+ gtotal total)))))))

Ihr Zeichen	Unser Zeichen

(data (select-elements (children (xsl-variable "rechnung")) 'betreff)) Nummer: (data (select-elements (children (xsl-variable "rechnung")) 'rechnungsnr))

wir erlauben uns, Ihnen folgende Positionen in Rechnung zu stellen:

Pos.Nr.	Bezeichnung	Netto/E EUR	Menge	Netto EUR	16% Ust. EUR	Gesamt EUR

Bitte zahlen Sie den Betrag von  EUR (entspricht  DM) bis zum     auf unser Konto.

Bis zur vollständigen Bezahlung bleibt die Ware unser Eigentum.

Wir wünschen weiterhin gute Zusammenarbeit.

Mit freundlichen Grüssen

---

Telefon: Telefax: E-Mail:

St.-Nr. Ust-ID

Bankverbindung Blz. Kto.-Nr.

---

 

Gesamt

(case (string->symbol (car (msg 'destination))) ((xml) (xsl-variable "rechung-voll")) ((html) (xsl-variable "html")) ((pdf) (make element gi: 'output attributes: '((media-type "application/pdf") (method "htmldoc")) (xsl-variable "html"))) (else (make element gi: 'rechnung (map xsl-variable '("rechnung-voll" "html")))))

Source code:

<xsl:stylesheet xmlns:d="http://www.askemos.org/2000/NameSpaceDSSSL" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xml:space="preserve">
@BillForm
@BillPDF
<!-- ReadRequests -->
<xsl:template match="*[@type=&quot;read&quot;]"><!--  <xsl:output media-type="application/pdf" method="htmldoc"> -->
 <xsl:choose><!-- FORWARD? -->
  <d:when test="(pair? (msg &apos;destination))">
   <d:copy-of select="#CONTENT">
(case (string-&gt;symbol (car (msg 'destination)))
 ((xml) (xsl-variable "rechung-voll"))
 ((html) (xsl-variable "html"))
 ((pdf)
  (make element gi: 'output
   attributes: '((media-type "application/pdf") (method "htmldoc"))
   (xsl-variable "html")))
 (else (make element gi: 'rechnung
            (map xsl-variable '("rechnung-voll" "html")))))
    </d:copy-of>
  </d:when><!-- META-VIEW? -->
  <d:when test="(and (is-meta-form? msg) (service-level))">
   <d:copy-of select="
       (cdr (assq &apos;body/parsed-xml (car (metaview me msg))))"></d:copy-of>
  </d:when>
  <xsl:otherwise>
   <d:copy-of select="(debug &apos;OUTHTML (xsl-variable (debug &apos;INHTML &quot;html&quot;)))"></d:copy-of>
  </xsl:otherwise>
 </xsl:choose><!--  </xsl:output> -->
</xsl:template>

<!-- ============ C O N T R O L E R  ============ -->

 <xsl:template xmlns:xsl="http://www.w3.org/1999/XSL/Transform" match="*[@type=&quot;write&quot;]" xml:space="default"><d:if test="(service-level)"><xsl:choose>@ChangeCtrl@ProtectCtrl@OtherwiseError</xsl:choose></d:if></xsl:template>

</xsl:stylesheet>