E-Fatura Tasarımına Kur Bilgisi

Merhaba,

Aşağıdaki kodları LogoConnect’e script kural olarak ekleyebilirsiniz.

sub ProcessEvent(App)

  strDBUser  = "sa"

  strDBPass  = "1234"

  strDBServer = "Feyyaz"

  strDBName  = "LOGO"

  Set conn = CreateObject("ADODB.Connection")

  conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" + strDBUser + ";Password=" + strDBPass + ";Initial Catalog=" + strDBName+ ";Data Source=" + strDBServer

  conn.Open

  Set rs = CreateObject("adodb.recordset")

  Set rs1 = CreateObject("adodb.recordset")

  ref = App.Doc.FieldAsString("DATA_LINK_REFERENCE")

   strQuery = " SELECT RATES2 FROM L_DAILYEXCHANGES E LEFT JOIN LG_001_01_INVOICE I ON I.DATE_=E.EDATE WHERE CRTYPE=20 AND I.LOGICALREF= " + ref

   rs.Open strQuery, conn

   EUR = rs.Fields(0).value

   strQuery1 = " SELECT RATES2 FROM L_DAILYEXCHANGES E LEFT JOIN LG_001_01_INVOICE I ON I.DATE_=E.EDATE WHERE CRTYPE=1 AND I.LOGICALREF= " + ref

   rs1.Open strQuery1, conn

   USD = rs1.Fields(0).value

  App.Doc.WriteStartElement "ADDITIONALDOCUMENTS/ADDITIONALDOCUMENT" 

  App.Doc.WriteElementString "ID", EUR

  App.Doc.WriteElementString "ISSUEDATE", Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" & Day(Date), 2)

  App.Doc.WriteElementString "DOCUMENTTYPE", "EUR"

  App.Doc.WriteEndElement

  App.Doc.WriteStartElement "ADDITIONALDOCUMENTS/ADDITIONALDOCUMENT" 

  App.Doc.WriteElementString "ID", USD

  App.Doc.WriteElementString "ISSUEDATE", Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" & Day(Date), 2)

  App.Doc.WriteElementString "DOCUMENTTYPE", "USD"

  App.Doc.WriteEndElement

  rs.close

  rs1.close

  App.Doc.SaveData

end sub

• Öncelikle sql bilgilerinizi değiştirin.
• Sql sorgusundaki firma ve dönem bilgilerini kendi bilgilerinizle değiştirin. (LG_001_01)
• Kuralı uygulayacağınız firma, ortak döviz kuru tablosu (L_DAILYEXCHANGES) kullanıyorsa herhangi bir şey değiştirmenize gerek yok. Ayrı döviz kuru tablosu kullanıyorsa LG_EXCHANGE_001 şeklinde değiştirin.
• Sorgularda RATES2 (MB Satış Kuru) kullanılmıştır değiştirmek isterseniz değiştirebilirsiniz.

Kuralı çalıştırdıktan sonra, aşağıdaki kodu xslt tasarımınızda gelmesini istediğiniz yere yapıştırın. Ben Genel Açıklamaların altına getirdim.

<xsl:for-each select="//n1:Invoice/cac:AdditionalDocumentReference">

<xsl:if test ="cbc:DocumentType = 'USD'">

<b><span style="color:blue;">             USD Kur : </span></b>

<b>

<xsl:value-of select="cbc:ID"/>

</b>

</xsl:if>

</xsl:for-each>

<xsl:for-each select="//n1:Invoice/cac:AdditionalDocumentReference">

<xsl:if test ="cbc:DocumentType = 'EUR'">

<b><span style="color:blue;">             EURO Kur : </span></b>

<b>

<xsl:value-of select="cbc:ID"/>

</b>

</xsl:if>

</xsl:for-each>

Aşağıdaki gibi bir görüntü elde ettim.