<%
%>
<%
asp_include "include/customer_variables.asp",false
add_nocache_headers
asp_include "include/xtempl.asp",false
asp_include "classes/runnerpage.asp",false
asp_include "classes/searchclause.asp",false
Set xt = (CreateClass("Xtempl",0,Empty,Empty,Empty,Empty,Empty,Empty,Empty))
doAssignmentByRef query,gQuery.Copy()
filename = ""
message = ""
Set key = (CreateDictionary())
Set var_next = (CreateDictionary())
Set prev = (CreateDictionary())
doAssignmentByRef all,postvalue("all")
doAssignmentByRef pdf,postvalue("pdf")
mypage = 1
doAssignment inlineview,IIF(postvalue("onFly"),true,false)
if bValue(inlineview) then
doAssignmentByRef parId,postvalue("parId")
else
parId = 0
end if
if bValue(postvalue("id")) then
doAssignmentByRef id,postvalue("id")
else
id = 1
end if
xt.assign_p2 "id",id
Set params = (CreateDictionary3("pageType",PAGE_VIEW,"id",id,"tName",strTableName))
setArrElementByRef params,"xt",xt
setArrElement params,"useTabsOnView",useTabsOnView(strTableName)
if bValue(ArrayElement(params,"useTabsOnView")) then
setArrElement params,"arrViewTabs",GetViewTabs(strTableName)
end if
Set pageObject = (CreateClass("RunnerPage",1,params,Empty,Empty,Empty,Empty,Empty,Empty))
pageObject.searchClauseObj.parseRequest
setArrElement Session,CSmartStr(strTableName) & "_advsearch",serialize(pageObject.searchClauseObj)
doAssignmentByRef onLoadJsCode,GetTableData(pageObject.tName,".jsOnloadView","")
pageObject.addOnLoadJsEvent_p1 onLoadJsCode
pageObject.addButtonHandlers
Set dpParams = (CreateDictionary())
if bValue(pageObject.isShowDetailTables) then
doAssignment ids,id
setArrElementN pageObject.jsSettings,CreateArray3("tableSettings",strTableName,"dpParams"),CreateDictionary2("tableNames",ArrayElement(dpParams,"strTableNames"),"ids",ArrayElement(dpParams,"ids"))
pageObject.AddJSFile_p1 "include/detailspreview"
end if
if bValue(eventObj.exists_p1("BeforeProcessView")) then
eventObj.BeforeProcessView_p1 conn
end if
strWhereClause = ""
strHavingClause = ""
if not bValue(all) then
Set keys = (CreateDictionary())
strWhereClause = ""
setArrElement keys,"ID",postvalue("editid1")
doAssignmentByRef strWhereClause,KeyWhere(keys,"")
doAssignmentByRef strSQL,gSQLWhere(strWhereClause,"")
else
if not IsEqual(Session(CSmartStr(strTableName) & "_SelectedSQL"),"") and IsEqual(GetRequestValue(Request,"records"),"") then
doAssignment strSQL,Session(CSmartStr(strTableName) & "_SelectedSQL")
doAssignment strWhereClause,Session(CSmartStr(strTableName) & "_SelectedWhere")
else
doAssignment strWhereClause,Session(CSmartStr(strTableName) & "_where")
doAssignment strHavingClause,Session(CSmartStr(strTableName) & "_having")
doAssignmentByRef strSQL,gSQLWhere(strWhereClause,strHavingClause)
end if
doAssignment strOrderBy,Session(CSmartStr(strTableName) & "_order")
if not bValue(strOrderBy) then
doAssignment strOrderBy,gstrOrderBy
end if
strSQL = CSmartStr(strSQL) & (" " & CSmartStr(trim(strOrderBy)))
end if
doAssignment strSQLbak,strSQL
if bValue(eventObj.exists_p1("BeforeQueryView")) then
eventObj.BeforeQueryView_p2 strSQL,strWhereClause
end if
if IsEqual(strSQLbak,strSQL) then
doAssignmentByRef strSQL,gSQLWhere(strWhereClause,strHavingClause)
if bValue(all) then
doAssignmentByRef numrows,gSQLRowCount(strWhereClause,strHavingClause)
strSQL = CSmartStr(strSQL) & (" " & CSmartStr(trim(strOrderBy)))
end if
else
if bValue(all) then
doAssignmentByRef numrows,GetRowCount(strSQL)
end if
end if
if not bValue(all) then
LogInfo strSQL
doAssignmentByRef rs,db_query(strSQL,conn)
else
nPageSize = 0
if IsEqual(GetRequestValue(Request,"records"),"page") and bValue(numrows) then
mypage = CSmartLng(Session(CSmartStr(strTableName) & "_pagenumber"))
nPageSize = CSmartLng(Session(CSmartStr(strTableName) & "_pagesize"))
if IsLessOrEqual(numrows,(CSmartDbl(mypage)-1)*CSmartDbl(nPageSize)) then
doAssignmentByRef mypage,asp_ceil(CSmartDbl(numrows)/CSmartDbl(nPageSize))
end if
if not bValue(nPageSize) then
doAssignment nPageSize,gPageSize
end if
if not bValue(mypage) then
mypage = 1
end if
strSQL = CSmartStr(strSQL) & (((" limit " & CSmartStr((CSmartDbl(mypage)-1)*CSmartDbl(nPageSize))) & ",") & CSmartStr(nPageSize))
end if
doAssignmentByRef rs,db_query(strSQL,conn)
end if
doAssignmentByRef data,db_fetch_array(rs)
if bValue(eventObj.exists_p1("ProcessValuesView")) then
eventObj.ProcessValuesView_p1 data
end if
out = ""
first = true
templatefile = ""
Set fieldsArr = (CreateDictionary())
Set arr = (CreateDictionary())
setArrElement arr,"fName","FirstName"
setArrElement arr,"viewFormat",ViewFormat("FirstName",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","LastName"
setArrElement arr,"viewFormat",ViewFormat("LastName",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","Salutation"
setArrElement arr,"viewFormat",ViewFormat("Salutation",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","Position"
setArrElement arr,"viewFormat",ViewFormat("Position",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","Organization"
setArrElement arr,"viewFormat",ViewFormat("Organization",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","Adress1"
setArrElement arr,"viewFormat",ViewFormat("Adress1",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","Adress2"
setArrElement arr,"viewFormat",ViewFormat("Adress2",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","City"
setArrElement arr,"viewFormat",ViewFormat("City",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","State"
setArrElement arr,"viewFormat",ViewFormat("State",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","Country"
setArrElement arr,"viewFormat",ViewFormat("Country",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","PostalCode"
setArrElement arr,"viewFormat",ViewFormat("PostalCode",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","WorkPhone"
setArrElement arr,"viewFormat",ViewFormat("WorkPhone",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","CellPhone"
setArrElement arr,"viewFormat",ViewFormat("CellPhone",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","FaxNumber"
setArrElement arr,"viewFormat",ViewFormat("FaxNumber",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","Email"
setArrElement arr,"viewFormat",ViewFormat("Email",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","DateOfBirth"
setArrElement arr,"viewFormat",ViewFormat("DateOfBirth",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","ID"
setArrElement arr,"viewFormat",ViewFormat("ID",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","PassportNo"
setArrElement arr,"viewFormat",ViewFormat("PassportNo",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","VisaNo"
setArrElement arr,"viewFormat",ViewFormat("VisaNo",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","VisaStatus"
setArrElement arr,"viewFormat",ViewFormat("VisaStatus",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","FinancialSponsor"
setArrElement arr,"viewFormat",ViewFormat("FinancialSponsor",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","PaymentChoice"
setArrElement arr,"viewFormat",ViewFormat("PaymentChoice",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","TravelDate"
setArrElement arr,"viewFormat",ViewFormat("TravelDate",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","AirlineOrFlight"
setArrElement arr,"viewFormat",ViewFormat("AirlineOrFlight",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","HowReferred"
setArrElement arr,"viewFormat",ViewFormat("HowReferred",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","RegisterCID"
setArrElement arr,"viewFormat",ViewFormat("RegisterCID",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
Set arr = (CreateDictionary())
setArrElement arr,"fName","EssayOrCV"
setArrElement arr,"viewFormat",ViewFormat("EssayOrCV",strTableName)
setArrElement fieldsArr,asp_count(fieldsArr),arr
pageObject.setGoogleMapsParams_p1 fieldsArr
do while bValue(data)
xt.assign_p2 "show_key1",htmlspecialchars(GetData(data,"ID",""))
keylink = ""
keylink = CSmartStr(keylink) & ("&key1=" & CSmartStr(htmlspecialchars(asp_rawurlencode(ArrayElement(data,"ID")))))
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"FirstName",""),"","",MODE_VIEW,"")
xt.assign_p2 "FirstName_value",value
if not bValue(pageObject.isAppearOnTabs_p1("FirstName")) then
xt.assign_p2 "FirstName_fieldblock",true
else
xt.assign_p2 "FirstName_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"LastName",""),"","",MODE_VIEW,"")
xt.assign_p2 "LastName_value",value
if not bValue(pageObject.isAppearOnTabs_p1("LastName")) then
xt.assign_p2 "LastName_fieldblock",true
else
xt.assign_p2 "LastName_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"Salutation",""),"","",MODE_VIEW,"")
xt.assign_p2 "Salutation_value",value
if not bValue(pageObject.isAppearOnTabs_p1("Salutation")) then
xt.assign_p2 "Salutation_fieldblock",true
else
xt.assign_p2 "Salutation_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"Position",""),"","",MODE_VIEW,"")
xt.assign_p2 "Position_value",value
if not bValue(pageObject.isAppearOnTabs_p1("Position")) then
xt.assign_p2 "Position_fieldblock",true
else
xt.assign_p2 "Position_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"Organization",""),"","",MODE_VIEW,"")
xt.assign_p2 "Organization_value",value
if not bValue(pageObject.isAppearOnTabs_p1("Organization")) then
xt.assign_p2 "Organization_fieldblock",true
else
xt.assign_p2 "Organization_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"Adress1",""),"","",MODE_VIEW,"")
xt.assign_p2 "Adress1_value",value
if not bValue(pageObject.isAppearOnTabs_p1("Adress1")) then
xt.assign_p2 "Adress1_fieldblock",true
else
xt.assign_p2 "Adress1_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"Adress2",""),"","",MODE_VIEW,"")
xt.assign_p2 "Adress2_value",value
if not bValue(pageObject.isAppearOnTabs_p1("Adress2")) then
xt.assign_p2 "Adress2_fieldblock",true
else
xt.assign_p2 "Adress2_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"City",""),"","",MODE_VIEW,"")
xt.assign_p2 "City_value",value
if not bValue(pageObject.isAppearOnTabs_p1("City")) then
xt.assign_p2 "City_fieldblock",true
else
xt.assign_p2 "City_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"State",""),"","",MODE_VIEW,"")
xt.assign_p2 "State_value",value
if not bValue(pageObject.isAppearOnTabs_p1("State")) then
xt.assign_p2 "State_fieldblock",true
else
xt.assign_p2 "State_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"Country",""),"","",MODE_VIEW,"")
xt.assign_p2 "Country_value",value
if not bValue(pageObject.isAppearOnTabs_p1("Country")) then
xt.assign_p2 "Country_fieldblock",true
else
xt.assign_p2 "Country_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"PostalCode",""),"","",MODE_VIEW,"")
xt.assign_p2 "PostalCode_value",value
if not bValue(pageObject.isAppearOnTabs_p1("PostalCode")) then
xt.assign_p2 "PostalCode_fieldblock",true
else
xt.assign_p2 "PostalCode_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"WorkPhone",""),"","",MODE_VIEW,"")
xt.assign_p2 "WorkPhone_value",value
if not bValue(pageObject.isAppearOnTabs_p1("WorkPhone")) then
xt.assign_p2 "WorkPhone_fieldblock",true
else
xt.assign_p2 "WorkPhone_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"CellPhone",""),"","",MODE_VIEW,"")
xt.assign_p2 "CellPhone_value",value
if not bValue(pageObject.isAppearOnTabs_p1("CellPhone")) then
xt.assign_p2 "CellPhone_fieldblock",true
else
xt.assign_p2 "CellPhone_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"FaxNumber",""),"","",MODE_VIEW,"")
xt.assign_p2 "FaxNumber_value",value
if not bValue(pageObject.isAppearOnTabs_p1("FaxNumber")) then
xt.assign_p2 "FaxNumber_fieldblock",true
else
xt.assign_p2 "FaxNumber_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"Email",""),"","",MODE_VIEW,"")
xt.assign_p2 "Email_value",value
if not bValue(pageObject.isAppearOnTabs_p1("Email")) then
xt.assign_p2 "Email_fieldblock",true
else
xt.assign_p2 "Email_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"DateOfBirth","Short Date"),"","",MODE_VIEW,"")
xt.assign_p2 "DateOfBirth_value",value
if not bValue(pageObject.isAppearOnTabs_p1("DateOfBirth")) then
xt.assign_p2 "DateOfBirth_fieldblock",true
else
xt.assign_p2 "DateOfBirth_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"ID",""),"","",MODE_VIEW,"")
xt.assign_p2 "ID_value",value
if not bValue(pageObject.isAppearOnTabs_p1("ID")) then
xt.assign_p2 "ID_fieldblock",true
else
xt.assign_p2 "ID_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"PassportNo",""),"","",MODE_VIEW,"")
xt.assign_p2 "PassportNo_value",value
if not bValue(pageObject.isAppearOnTabs_p1("PassportNo")) then
xt.assign_p2 "PassportNo_fieldblock",true
else
xt.assign_p2 "PassportNo_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"VisaNo",""),"","",MODE_VIEW,"")
xt.assign_p2 "VisaNo_value",value
if not bValue(pageObject.isAppearOnTabs_p1("VisaNo")) then
xt.assign_p2 "VisaNo_fieldblock",true
else
xt.assign_p2 "VisaNo_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"VisaStatus",""),"","",MODE_VIEW,"")
xt.assign_p2 "VisaStatus_value",value
if not bValue(pageObject.isAppearOnTabs_p1("VisaStatus")) then
xt.assign_p2 "VisaStatus_fieldblock",true
else
xt.assign_p2 "VisaStatus_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"FinancialSponsor",""),"","",MODE_VIEW,"")
xt.assign_p2 "FinancialSponsor_value",value
if not bValue(pageObject.isAppearOnTabs_p1("FinancialSponsor")) then
xt.assign_p2 "FinancialSponsor_fieldblock",true
else
xt.assign_p2 "FinancialSponsor_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"PaymentChoice",""),"","",MODE_VIEW,"")
xt.assign_p2 "PaymentChoice_value",value
if not bValue(pageObject.isAppearOnTabs_p1("PaymentChoice")) then
xt.assign_p2 "PaymentChoice_fieldblock",true
else
xt.assign_p2 "PaymentChoice_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"TravelDate","Short Date"),"","",MODE_VIEW,"")
xt.assign_p2 "TravelDate_value",value
if not bValue(pageObject.isAppearOnTabs_p1("TravelDate")) then
xt.assign_p2 "TravelDate_fieldblock",true
else
xt.assign_p2 "TravelDate_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"AirlineOrFlight",""),"","",MODE_VIEW,"")
xt.assign_p2 "AirlineOrFlight_value",value
if not bValue(pageObject.isAppearOnTabs_p1("AirlineOrFlight")) then
xt.assign_p2 "AirlineOrFlight_fieldblock",true
else
xt.assign_p2 "AirlineOrFlight_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"HowReferred",""),"","",MODE_VIEW,"")
xt.assign_p2 "HowReferred_value",value
if not bValue(pageObject.isAppearOnTabs_p1("HowReferred")) then
xt.assign_p2 "HowReferred_fieldblock",true
else
xt.assign_p2 "HowReferred_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"RegisterCID",""),"","",MODE_VIEW,"")
xt.assign_p2 "RegisterCID_value",value
if not bValue(pageObject.isAppearOnTabs_p1("RegisterCID")) then
xt.assign_p2 "RegisterCID_fieldblock",true
else
xt.assign_p2 "RegisterCID_tabfieldblock",true
end if
value = ""
doAssignmentByRef value,ProcessLargeText(GetData(data,"EssayOrCV",""),"","",MODE_VIEW,"")
xt.assign_p2 "EssayOrCV_value",value
if not bValue(pageObject.isAppearOnTabs_p1("EssayOrCV")) then
xt.assign_p2 "EssayOrCV_fieldblock",true
else
xt.assign_p2 "EssayOrCV_tabfieldblock",true
end if
jsKeysObj = "window.recKeysObj = {"
jsKeysObj = CSmartStr(jsKeysObj) & (((("'" & CSmartStr(jsreplace("ID"))) & "': '") & CSmartStr(jsreplace(ArrayElement(data,"ID")))) & "', ")
doAssignmentByRef jsKeysObj,asp_substr(jsKeysObj,0,CSmartDbl(asp_strlen(jsKeysObj))-2)
jsKeysObj = CSmartStr(jsKeysObj) & "};"
pageObject.AddJsCode_p1 jsKeysObj
if bValue(pageObject.isShowDetailTables) then
Set options = (CreateDictionary())
setArrElement options,"mode",LIST_DETAILS
setArrElement options,"pageType",PAGE_LIST
setArrElement options,"masterPageType",PAGE_VIEW
setArrElement options,"mainMasterPageType",PAGE_VIEW
setArrElement options,"masterTable",strTableName
setArrElement options,"firstTime",1
if bValue(asp_count(ArrayElement(dpParams,"ids"))) then
xt.assign_p2 "detail_tables",true
asp_include "classes/listpage.asp",false
asp_include "classes/listpage_embed.asp",false
asp_include "classes/listpage_dpinline.asp",false
end if
Set dControlsMap = (CreateDictionary())
flyId = CSmartDbl(ids)+1
d = 0
view_exitLoop3=false
do while IsLess(d,asp_count(ArrayElement(dpParams,"ids")))
view_exitLoop3=false
do
doAssignment strTableName,ArrayElement(ArrayElement(dpParams,"strTableNames"),d)
asp_include ("include/" & CSmartStr(GetTableURL(strTableName))) & "_settings.asp",false
if not bValue(CheckSecurity(Session(("_" & CSmartStr(strTableName)) & "_OwnerID"),"Search")) then
strTableName = "customer"
exit do
end if
setArrElement options,"xt",CreateClass("Xtempl",0,Empty,Empty,Empty,Empty,Empty,Empty,Empty)
setArrElement options,"id",ArrayElement(ArrayElement(dpParams,"ids"),d)
setArrElement options,"flyId",postInc(flyId)
mkr = 1
GetCollectionBounds ArrayElement(mKeys,strTableName),view_loopIdx4,view_loopMax4
do while view_loopIdx4<=view_loopMax4
view_arrKey4 = GetCollectionKey(ArrayElement(mKeys,strTableName),view_loopIdx4)
doAssignment mk,ArrayElement(ArrayElement(mKeys,strTableName),view_arrKey4)
setArrElementN options,CreateArray2("masterKeysReq",postInc(mkr)),ArrayElement(data,mk)
view_loopIdx4=view_loopIdx4+1
loop
doAssignmentByRef listPageObject,method_ListPage_createListPage(this_object,strTableName,options)
listPageObject.prepareForBuildPage
flyId = CSmartDbl(listPageObject.recId)+1
if not bValue(pdf) and bValue(listPageObject.isDispGrid()) then
listPageObject.fillSetCntrlMaps
setArrElementN pageObject.jsSettings,CreateArray2("tableSettings",strTableName),ArrayElement(ArrayElement(listPageObject.jsSettings,"tableSettings"),strTableName)
setArrElementN dControlsMap,CreateArray2(strTableName,"video"),ArrayElement(ArrayElement(ArrayElement(ArrayElement(listPageObject.controlsHTMLMap,strTableName),PAGE_LIST),ArrayElement(ArrayElement(dpParams,"ids"),d)),"video")
setArrElementN dControlsMap,CreateArray2(strTableName,"gMaps"),ArrayElement(ArrayElement(ArrayElement(ArrayElement(listPageObject.controlsHTMLMap,strTableName),PAGE_LIST),ArrayElement(ArrayElement(dpParams,"ids"),d)),"gMaps")
GetCollectionBounds ArrayElement(ArrayElement(listPageObject.jsSettings,"global"),"shortTNames"),view_loopIdx5,view_loopMax5
do while view_loopIdx5<=view_loopMax5
keySet = GetCollectionKey(ArrayElement(ArrayElement(listPageObject.jsSettings,"global"),"shortTNames"),view_loopIdx5)
doAssignment val,ArrayElement(ArrayElement(ArrayElement(listPageObject.jsSettings,"global"),"shortTNames"),keySet)
if not bValue(asp_array_key_exists(keySet,ArrayElement(ArrayElement(pageObject.settingsMap,"globalSettings"),"shortTNames"))) then
setArrElementN pageObject.settingsMap,CreateArray3("globalSettings","shortTNames",keySet),val
end if
view_loopIdx5=view_loopIdx5+1
loop
pageObject.copyAllJSFiles_p1 listPageObject.grabAllJSFiles()
pageObject.copyAllCSSFiles_p1 listPageObject.grabAllCSSFiles()
end if
xt.assign_p2 "displayDetailTable_" & CSmartStr(GoodFieldName(strTableName)),CreateDictionary2("func","showDetailTable","params",CreateDictionary2("dpObject",listPageObject,"dpParams",strTableName))
loop while false
if view_exitLoop3 then _
exit do
d = CSmartDbl(d)+1
loop
strTableName = "customer"
setArrElement pageObject.controlsMap,"dControlsMap",dControlsMap
end if
if (not bValue(Session(CSmartStr(strTableName) & "_noNextPrev")) and not bValue(inlineview)) and not bValue(pdf) then
pageObject.getNextPrevRecordKeys_p4 data,"Search",var_next,prev
end if
if bValue(ArrayElement(pageObject.googleMapCfg,"isUseGoogleMap")) then
pageObject.initGmaps
end if
pageObject.addCommonJs
pageObject.fillCntrlTabGroups
if not bValue(inlineview) then
setArrElement pageObject.body,"begin",CSmartStr(ArrayElement(pageObject.body,"begin")) & "
"
setArrElement pageObject.body,"begin",CSmartStr(ArrayElement(pageObject.body,"begin")) & "" & vbcrlf
setArrElement pageObject.body,"begin",CSmartStr(ArrayElement(pageObject.body,"begin")) & "" & vbcrlf
if IsIdentical(pageObject.debugJSMode,true) then
setArrElement pageObject.body,"begin",CSmartStr(ArrayElement(pageObject.body,"begin")) & "" & vbcrlf
else
setArrElement pageObject.body,"begin",CSmartStr(ArrayElement(pageObject.body,"begin")) & "" & vbcrlf
end if
setArrElementN pageObject.jsSettings,CreateArray3("tableSettings",strTableName,"keys"),keys
setArrElementN pageObject.jsSettings,CreateArray3("tableSettings",strTableName,"prevKeys"),prev
setArrElementN pageObject.jsSettings,CreateArray3("tableSettings",strTableName,"nextKeys"),var_next
setArrElement pageObject.body,"end",CSmartStr(ArrayElement(pageObject.body,"end")) & (("")
setArrElement pageObject.body,"end",CreateDictionary()
setArrElementN pageObject.body,CreateArray2("end","method"),"assignBodyEnd"
setArrElementByRefN pageObject.body,CreateArray2("end","object"),pageObject
xt.assignbyref_p2 "body",pageObject.body
xt.assign_p2 "flybody",true
else
xt.assign_p2 "footer",""
xt.assign_p2 "flybody",pageObject.body
xt.assign_p2 "body",true
pageObject.fillSetCntrlMaps
setArrElement returnJSON,"controlsMap",pageObject.controlsHTMLMap
setArrElement returnJSON,"settings",pageObject.jsSettings
end if
xt.assign_p2 "style_block",true
xt.assign_p2 "stylefiles_block",true
if (not bValue(pdf) and not bValue(all)) and not bValue(inlineview) then
doAssignment nextlink,doAssignment(prevlink,"")
if bValue(asp_count(var_next)) then
xt.assign_p2 "next_button",true
nextlink = CSmartStr(nextlink) & ("editid1=" & CSmartStr(htmlspecialchars(asp_rawurlencode(ArrayElement(var_next,1)))))
xt.assign_p2 "nextbutton_attrs",((("id=""nextButton" & CSmartStr(id)) & """ onclick=""window.location.href='customer_view.asp?") & CSmartStr(nextlink)) & "'"""
else
xt.assign_p2 "next_button",false
end if
if bValue(asp_count(prev)) then
xt.assign_p2 "prev_button",true
prevlink = CSmartStr(prevlink) & ("editid1=" & CSmartStr(htmlspecialchars(asp_rawurlencode(ArrayElement(prev,1)))))
xt.assign_p2 "prevbutton_attrs",((("id=""prevButton" & CSmartStr(id)) & """ onclick=""window.location.href='customer_view.asp?") & CSmartStr(prevlink)) & "'"""
else
xt.assign_p2 "prev_button",false
end if
xt.assign_p2 "back_button",true
xt.assign_p2 "backbutton_attrs",("id=""backButton" & CSmartStr(id)) & """"
end if
doAssignment oldtemplatefile,templatefile
templatefile = "customer_view.htm"
if not bValue(all) then
if bValue(eventObj.exists_p1("BeforeShowView")) then
eventObj.BeforeShowView_p3 xt,templatefile,data
end if
if not bValue(pdf) then
if not bValue(inlineview) then
xt.display_p1 templatefile
else
xt.load_template_p1 templatefile
setArrElement returnJSON,"html",CSmartStr(xt.fetch_loaded_p1("style_block")) & CSmartStr(xt.fetch_loaded_p1("flybody"))
if bValue(pageObject.isShowDetailTables) then
setArrElement returnJSON,"html",CSmartStr(ArrayElement(returnJSON,"html")) & CSmartStr(xt.fetch_loaded_p1("detail_tables"))
end if
setArrElement returnJSON,"idStartFrom",CSmartDbl(id)+1
ResponseWrite my_json_encode(returnJSON)
end if
end if
exit do
end if
loop
%>