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
Erwin  
#1 Posted : Wednesday, June 12, 2013 3:07:18 PM(UTC)
Erwin

Rank: Administration

Reputation:

Groups: Moderators, Administration, Member
Joined: 10/8/2008(UTC)
Posts: 44

By default it is not possible to show information of the customer in the footer of the shop orderform overview.
Even though you can select them from the dropdownlist. (it's currently a bug)

In the userEscape "UserEscape overrule orderform layout" add the following code and you can work around it:

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 Customerid As Integer = pbw.Get_Customerid_cookie(session)
Dim CustomerTable as string = ""
pbw.Get_Config(cid, ShopSettingIndex, "SHOPTABELNAAMKLANT", CustomerTable, constring)

Dim CustomerTableClean as string = CustomerTable.replace(prefix,"")
Dim CustomerTabelId as integer = 0
Dim QGetTableId as string = ""
QGetTableId & = "Select Id from " & Cid & "_TABEL where TABELNAAM='" & CustomerTableClean & "'"

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()
    CustomerTabelId = 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 " & CustomerTable & ".Id=" & Customerid.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 = ""

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

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.