Kural Kodu
sub ProcessEvent(App)
SEVKIYATACIKLAMA = App.Doc.FieldAsString("SHIPLOC_DEF")
if SEVKIYATACIKLAMA <> Empty Then
App.Doc.WriteStartElement "ADDITIONALDOCUMENTS/ADDITIONALDOCUMENT"
App.Doc.WriteElementString "ID", SEVKIYATACIKLAMA
App.Doc.WriteElementString "ISSUEDATE", Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" & Day(Date), 2)
App.Doc.WriteElementString "DOCUMENTTYPE", "SEVKIYATACIKLAMA"
App.Doc.WriteEndElement App.Doc.SaveData
end if
end sub
Xslt Kodu
<xsl:for-each select="//n1:Invoice/cac:AdditionalDocumentReference">
<xsl:if test ="cbc:DocumentType = 'SEVKIYATACIKLAMA'">
<p style='margin-left: 40px;'>
<b>SEVKİYAT BİLGİSİ : </b>
<b>
<xsl:value-of select="cbc:ID"/>
</b>
</p>
</xsl:if>
</xsl:for-each>