<blockquote> <p><code>sub ProcessEvent(App)<br /> ST_ClRef = App.Doc.FieldAsInteger(&quot;ARP_LOGICALREF&quot;)<br /> ST_CHRRef = CStr(ST_ClRef)<br /> BAKIYE = App.UQUERY_GETFLD(60,&quot;SUM(DEBIT)-SUM(CREDIT)&quot;,24,6,FALSE,&quot;CARDREF =&quot;+ST_CHRRef+&quot; AND TOTTYP = 1&quot; )<br /> App.Doc.WriteStartElement &quot;ADDITIONALDOCUMENTS/ADDITIONALDOCUMENT&quot;<br /> App.Doc.WriteElementString &quot;ID&quot;,Replace(cstr(BAKIYE),&quot;,&quot;,&quot;.&quot;)<br /> App.Doc.WriteElementString &quot;ISSUEDATE&quot;, Year(Date) &amp; &quot;-&quot; &amp; Right(&quot;0&quot; &amp; Month(Date),2) &amp; &quot;-&quot; &amp; Right(&quot;0&quot; &amp; Day(Date), 2)<br /> App.Doc.WriteElementString &quot;DOCUMENTTYPE&quot;, &quot;BAKIYE&quot;<br /> App.Doc.WriteEndElement<br /> App.Doc.SaveData<br /> end sub</code></p> <p>Xslt Kodu<br /> <br /> <code>&lt;br /&gt;<br /> &lt;xsl:for-each select=&quot;//n1:Invoice/cac:AdditionalDocumentReference&quot;&gt;<br /> &lt;xsl:if test =&quot;cbc:DocumentType = &#39;BAKIYE&#39;&quot;&gt;<br /> &lt;b&gt;Son Cari Hesap Bakiyesi : &lt;/b&gt;<br /> &lt;b&gt;<br /> &lt;xsl:value-of select=&quot;cbc:ID&quot;/&gt;<br /> &lt;/b&gt;<br /> &lt;b&gt; TL &lt;/b&gt;<br /> &lt;/xsl:if&gt;</code></p> </blockquote>