sub ProcessEvent(App)
strShipLoc_Code = App.Doc.FieldAsString(“SHIPLOC_CODE”)
SEVKIYATACIKLAMA = App.UQUERY_GETFLD(58, “NAME”, 200, 52, FALSE, “CODE = ‘”+strShipLoc_Code+”‘” )
App.Doc.WriteStartElement “ADDITIONALDOCUMENTS/ADDITIONALDOCUMENT”
App.Doc.WriteElementString “ID”, SEVKIYATACIKLAMA
App.Doc.WriteElementString “ISSUEDATE”, Year(Date()) & “-” & Right(“0” & Month(Date), 2) & “-” & Day(Date())
App.Doc.WriteElementString “DOCUMENTTYPE”, “SEVKIYATACIKLAMA”
App.Doc.WriteEndElement
App.Doc.SaveData
end sub
XSLT ye Eklenecek Kod
<xsl:for-each select=”//n1:Invoice/cac:AdditionalDocumentReference”>
<xsl:if test =”cbc:DocumentType = ‘SEVKIYATACIKLAMA'”>
<p style=’margin-left: 20px;’>
<b>SEVKİYAT BİLGİSİ :</b>
<b>
<xsl:value-of select=”cbc:ID”/>
</b>
</p>
</xsl:if>