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