Malzeme Kodu ile Özel kodu Yer değiştirme kuralı

sub ProcessEvent(App)

   Kontrol=App.Doc.FirstChild(“TRANSACTIONS.TRANSACTION”)
   while Kontrol
               Ref = App.Doc.FieldAsInteger(“TRANSACTIONS.TRANSACTION.MASTER_ORGLOGICALREF”)
               KODUU     = App.Doc.FieldAsInteger(“TRANSACTIONS.TRANSACTION.MASTER_CODE”)
               OZELKOD = App.UQuery_GetFld(1, “SPECODE”, 25, 52, FALSE, “LOGICALREF=”+ cstr(Ref))
               App.Doc.ModifyData “TRANSACTIONS.TRANSACTION.MASTER_CODE”, OZELKOD
   Kontrol=App.Doc.NextChild
    wend
App.Doc.SaveData

end sub

Logo Connect Sevkiyat Açıklamasını Fatura Alanına Getirme Kuralı

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>

 

Logo Connect Son Bakiye Kuralı

Kural Kodu

sub ProcessEvent(App)
ST_ClRef = App.Doc.FieldAsInteger("ARP_LOGICALREF")
ST_CHRRef = CStr(ST_ClRef)
BAKIYE = App.UQUERY_GETFLD(60,"SUM(DEBIT)-SUM(CREDIT)",24,6,FALSE,"CARDREF ="+ST_CHRRef+" AND TOTTYP = 1" )
App.Doc.WriteStartElement "ADDITIONALDOCUMENTS/ADDITIONALDOCUMENT"
App.Doc.WriteElementString "ID",Replace(cstr(BAKIYE),",",".")
App.Doc.WriteElementString "ISSUEDATE", Year(Date) & "-" & Right("0" & Month(Date),2) & "-" & Right("0" & Day(Date), 2)
App.Doc.WriteElementString "DOCUMENTTYPE", "BAKIYE"
App.Doc.WriteEndElement
App.Doc.SaveData
end sub

Xslt Kodu

<br />
<xsl:for-each select="//n1:Invoice/cac:AdditionalDocumentReference">
<xsl:if test ="cbc:DocumentType = 'BAKIYE'">
<b>Son Cari Hesap Bakiyesi : </b>
<b>
<xsl:value-of select="cbc:ID"/>
</b>
<b> TL </b>
</xsl:if>

Logo Connect Faturayı Oluşturan Kullanıcı Kuralı

sub ProcessEvent(App)
strDBUser = "..."
strDBPass = "..."
strDBServer = "..."
strDBName = "..."
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")
rs.ActiveConnection = conn
UserRef = App.Doc.FieldAsInteger("CREATED_BY")
strQuery = "SELECT USERNAME +SPACE(1)+ USERSURNAME FROM L_CAPIUSER WHERE LOGICALREF = " ++cstr( UserRef)
rs.Open strQuery, conn
do while (rs.EOF = false)
AdiSoyadi = rs.Fields(0).value
rs.MoveNext()
loop
rs.close
conn.close
Foo = "Faturayı Oluşturan: " + AdiSoyadi
App.Doc.ModifyData "NOTES5", Foo
App.Doc.SaveData
end sub

Logo Connect Satır / Ürün Açıklamasını Yer Değiştirme Kuralı

sub ProcessEvent(App)
StokSatirlari=App.Doc.FirstChild("TRANSACTIONS.TRANSACTION")
  while StokSatirlari
   ManuelAciklama = App.Doc.FieldAsString("TRANSACTIONS.TRANSACTION.DESCRIPTION")
   if ManuelAciklama <> Empty then
    App.Doc.ModifyData "TRANSACTIONS.TRANSACTION.MASTER_DEF", ManuelAciklama
   end if
   StokSatirlari=App.Doc.NextChild
   wend
App.Doc.SaveData
end sub