logo
Welcome Guest! To enable all features please Login. New Registrations are disabled.

Notification

Icon
Error

Options
Go to last post Go to first unread
bart  
#1 Posted : Thursday, September 17, 2009 12:58:57 PM(UTC)
bart

Rank: Administration

Reputation:

Groups: Administration
Joined: 10/8/2008(UTC)
Posts: 190
Man

Was thanked: 1 time(s) in 1 post(s)
By default it is not possible to add information of the ordertable in your mail.
The only things you can add are the ones you can sellect from the dropdownlist. But if you want some other information of your ordertable you have a problem.
but you can create a fix for it.
In the userEscape "UserEscape overrule mail" add the following text and you're done.

Code:

Dim Cid as string = pbw.get_Cid_Currentdomain()
Dim Prefix as string= Cid & "U_"
Dim ErrString as string = ""
Dim UserEscapeIndex as integer = pbw.UserEscape_Shop_UserEscape_Index("SOURCESHOP25", Cid, False, pbw.Get_RunSource_CreateAssembly, pbw.Get_RunSource_RunFromAssembly(), Server, Request, Session, Constring, "", "", Response, errstring)
Dim ShopSettingIndex as integer = pbw.UserEscape_Shop_Settings_Index("SOURCESHOP24", Cid, False, pbw.Get_RunSource_CreateAssembly, pbw.Get_RunSource_RunFromAssembly(), Server, Request, Session, Constring, "", "", Response, errstring)

Dim OrderId As Integer = pbw.Get_Orderid_cookie(session)
Dim OrderTable as string = ""
pbw.Get_Config(cid, ShopSettingIndex, "SHOPORDERTABELNAAM", OrderTable, constring)

Dim OrderTableClean as string = OrderTable.replace(prefix,"")
Dim OrderTabelId as integer = 0
Dim QGetTableId as string = ""
QGetTableId & = "Select Id from " & Cid & "_TABEL where TABELNAAM='" & OrderTableClean & "'"

Dim con as new SqlConnection(pbw.Get_Constring)
  Dim com as new SqlCommand(QGetTableId,con)
  con.open()
  try
    Dim reader as SqlDataREader = Com.ExecuteReader()
    reader.read()
    OrderTabelId = Reader(0)
  catch
  Finally
  con.close()
  end try
  
 Dim WeergegevenRecords As Integer
 Dim Querystring As String
 Dim ShopVeldnaamPrijs As String = ""
 Dim ShopVeldnaamBTW As String = ""
 Dim Shopprijs As Decimal = 0
 Dim ShopBTWKlasse As Integer = 0
 Querystring = " WHERE " & OrderTable & ".Id=" & OrderId.ToString
 Dim tmp_titelaanvulling, tmp_titelkeywords, tmp_titeldescription As String
 Dim tmp_TitelAanvullingOverrule, tmp_titelkeywordsOverrule, tmp_titelDescriptionOverrule As Boolean
 Dim ShopResultaatLeeg as string = ""
 Dim Vorigepagina as string = ""

 Mailtext = pbw.Create_View(ShopSettingIndex,UserEscapeIndex,"/", 0, Server, "", "", "", "", session, response, request, True, Mailtext, OrderTabelId, ShopResultaatLeeg, ShopVeldnaamPrijs, ShopVeldnaamBTW, Shopprijs, ShopBTWKlasse, -1, -1, -1, -1, -1, -1, False, True, Querystring, False, "", False, "", 0, -1, CID, WeergegevenRecords, Vorigepagina, Constring)



Now you still can't select the database fields from the dropdownlist. But you can type them manually(Case-sensitive). And you can use every field of the order

Edited by user Monday, October 26, 2009 4:45:34 PM(UTC)  | Reason: Not specified

Wanna join the discussion?! Login to your Sienn Forum forum account. New Registrations are disabled.

Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.