Rank: Administration
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)
|
