<%
'
' Filename: relcliinstallconvporte.asp
' Generated with CodeCharge 2.0.5
' ASP 2.0.ccp build 01/22/2002
'
'-------------------------------
' relcliinstallconvporte CustomIncludes begin
%>
<%
' relcliinstallconvporte CustomIncludes end
'-------------------------------
'===============================
' Save Page and File Name available into variables
'-------------------------------
sFileName = "relcliinstallconvporte.asp"
'===============================
'===============================
' relcliinstallconvporte PageSecurity begin
CheckSecurity(1)
' relcliinstallconvporte PageSecurity end
'===============================
'===============================
' relcliinstallconvporte Open Event start
' relcliinstallconvporte Open Event end
'===============================
'===============================
' relcliinstallconvporte OpenAnyPage Event start
' relcliinstallconvporte OpenAnyPage Event end
'===============================
'===============================
' Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================
' relcliinstallconvporte Show begin
'===============================
' Page execution
'-------------------------------
'Initialize error variables
'-------------------------------
srelcliinstallconvporte1Err = ""
'-------------------------------
' Select the FormAction
'-------------------------------
Select Case sForm
Case "relcliinstallconvporte1"
relcliinstallconvporte1Action(sAction)
end select
'===============================
'===============================
' HTML Page layout
'-------------------------------
%>
EB Customers 1.09
|
<% RetourInstall1_Show %>
|
|
<% relcliinstallconvporte_Show %>
|
|
<% relcliinstallconvporte1_Show %>
|
<%
' relcliinstallconvporte Show end
' relcliinstallconvporte Close Event start
' relcliinstallconvporte Close Event end
'-------------------------------
' Destroy connection object
'-------------------------------
cn.close
Set cn = nothing
'===============================
'********************************************************************************
'===============================
' Display Grid Form
'-------------------------------
Sub relcliinstallconvporte_Show()
'-------------------------------
' Initialize variables
'-------------------------------
Dim rs
Dim sWhere : sWhere = ""
Dim sOrder : sOrder = ""
Dim sSQL : sSQL = ""
Dim sFormTitle: sFormTitle = "Portes propre"
Dim HasParam : HasParam = false
Dim bReq : bReq = true
Dim iSort : iSort = ""
Dim iSorted : iSorted = ""
Dim sDirection : sDirection = ""
Dim form_sorting : form_sorting = ""
Dim sSortParams : sSortParams = ""
Dim form_action : form_action = ""
Dim iRecordsPerPage : iRecordsPerPage = 50
Dim iCounter : iCounter = 0
Dim iPage : iPage = 0
Dim bEof : bEof = False
Dim sActionFileName : sActionFileName = "relcliinstallconvporte.asp"
Dim transit_params : transit_params = "idCli=" & ToURL(GetParam("idCli")) & "&idInst=" & ToURL(GetParam("idInst")) & "&idInstConv=" & ToURL(GetParam("idInstConv")) & "&"
Dim form_params : form_params = "idCli=" & ToURL(GetParam("idCli")) & "&idInst=" & ToURL(GetParam("idInst")) & "&idInstConv=" & ToURL(GetParam("idInstConv")) & "&"
'-------------------------------
' Build ORDER BY statement
'-------------------------------
sOrder = " order by r.idInstConv Asc"
iSort = GetParam("Formrelcliinstallconvporte_Sorting")
iSorted = GetParam("Formrelcliinstallconvporte_Sorted")
sDirection = ""
if IsEmpty(iSort) then
form_sorting = ""
else
if iSort = iSorted then
form_sorting = ""
sDirection = " DESC"
sSortParams = "Formrelcliinstallconvporte_Sorting=" & iSort & "&Formrelcliinstallconvporte_Sorted=" & iSort & "&"
else
form_sorting = iSort
sDirection = " ASC"
sSortParams = "Formrelcliinstallconvporte_Sorting=" & iSort & "&Formrelcliinstallconvporte_Sorted=" & "&"
end if
if iSort = 1 then sOrder = " order by t.Name" & sDirection
if iSort = 2 then sOrder = " order by r.numB2K" & sDirection
if iSort = 3 then sOrder = " order by t1.Name" & sDirection
if iSort = 4 then sOrder = " order by r.ModelePcPorte" & sDirection
if iSort = 5 then sOrder = " order by r.SNPcPorte" & sDirection
if iSort = 6 then sOrder = " order by r.emplacementCle" & sDirection
end if
'-------------------------------
' HTML column headers
'-------------------------------
%>
| <%=sFormTitle%> |
| idTypeExtraction |
numB2K |
idTypePcPorte |
ModelePcPorte |
SNPcPorte |
emplacementCle |
<%
'-------------------------------
' Build WHERE statement
'-------------------------------
pidCli = GetParam("idCli")
if IsNumeric(pidCli) and not isEmpty(pidCli) then pidCli = ToSQL(pidCli, "Number") else pidCli = Empty
if not isEmpty(pidCli) then
HasParam = true
sWhere = sWhere & "r.idCli=" & pidCli
else
bReq = false
end if
pidInst = GetParam("idInst")
if IsNumeric(pidInst) and not isEmpty(pidInst) then pidInst = ToSQL(pidInst, "Number") else pidInst = Empty
if not isEmpty(pidInst) then
if not (sWhere = "") then sWhere = sWhere & " and "
HasParam = true
sWhere = sWhere & "r.idInst=" & pidInst
else
bReq = false
end if
pidInstConv = GetParam("idInstConv")
if IsNumeric(pidInstConv) and not isEmpty(pidInstConv) then pidInstConv = ToSQL(pidInstConv, "Number") else pidInstConv = Empty
if not isEmpty(pidInstConv) then
if not (sWhere = "") then sWhere = sWhere & " and "
HasParam = true
sWhere = sWhere & "r.idInstConv=" & pidInstConv
else
bReq = false
end if
if HasParam then
sWhere = " AND (" & sWhere & ")"
end if
'-------------------------------
' Build base SQL statement
'-------------------------------
sSQL = "select r.ModelePcPorte as r_ModelePcPorte, " & _
"r.SNPcPorte as r_SNPcPorte, " & _
"r.emplacementCle as r_emplacementCle, " & _
"r.id as r_id, " & _
"r.idCli as r_idCli, " & _
"r.idInst as r_idInst, " & _
"r.idInstConv as r_idInstConv, " & _
"r.idTypeExtraction as r_idTypeExtraction, " & _
"r.idTypePcPorte as r_idTypePcPorte, " & _
"r.numB2K as r_numB2K, " & _
"t.id as t_id, " & _
"t.Name as t_Name, " & _
"t1.id as t1_id, " & _
"t1.Name as t1_Name " & _
" from relcliinstallconvporte r, typeextraction t, typepcporte t1" & _
" where t.id=r.idTypeExtraction and t1.id=r.idTypePcPorte "
'-------------------------------
'-------------------------------
' relcliinstallconvporte Open Event start
' relcliinstallconvporte Open Event end
'-------------------------------
'-------------------------------
' Assemble full SQL statement
'-------------------------------
sSQL = sSQL & sWhere & sOrder
'-------------------------------
'-------------------------------
' Process the link to the record page
'-------------------------------
form_action = sActionFileName
'-------------------------------
'-------------------------------
' Process if form has all required parameter
'-------------------------------
if not bReq then
%>
| No records |
<%
exit sub
end if
'-------------------------------
'-------------------------------
' Open the recordset
'-------------------------------
openrs rs, sSQL
'-------------------------------
'-------------------------------
' Process empty recordset
'-------------------------------
if rs.eof then
%>
| No records |
<%
end if
'-------------------------------
'-------------------------------
'Initialize page counter and records per page
'-------------------------------
iRecordsPerPage = 50
iCounter = 0
'-------------------------------
' Process page scroller
'-------------------------------
iPage = GetParam("Formrelcliinstallconvporte_Page")
if IsEmpty(iPage) then iPage = 1 else iPage = CLng(iPage)
while not rs.eof and iCounter < (iPage-1)*iRecordsPerPage
rs.movenext
iCounter = iCounter + 1
wend
iCounter = 0
'-------------------------------
'-------------------------------
' Display grid based on recordset
'-------------------------------
while not rs.EOF and iCounter < iRecordsPerPage
'-------------------------------
' Create field variables based on database fields
'-------------------------------
fldemplacementCle = GetValue(rs, "r_emplacementCle")
fldid = GetValue(rs, "r_id")
fldidCli = GetValue(rs, "r_idCli")
fldidInst = GetValue(rs, "r_idInst")
fldidInstConv = GetValue(rs, "r_idInstConv")
fldidTypeExtraction_URLLink = "relcliinstallconvporte.asp"
fldidTypeExtraction_id = GetValue(rs, "r_id")
fldidTypeExtraction = GetValue(rs, "t_Name")
fldidTypePcPorte = GetValue(rs, "t1_Name")
fldModelePcPorte = GetValue(rs, "r_ModelePcPorte")
fldnumB2K = GetValue(rs, "r_numB2K")
fldSNPcPorte = GetValue(rs, "r_SNPcPorte")
'-------------------------------
' relcliinstallconvporte Show begin
'-------------------------------
'-------------------------------
' relcliinstallconvporte Show Event start
' relcliinstallconvporte Show Event end
'-------------------------------
'-------------------------------
' Process the HTML controls
'-------------------------------
%>
| <%=fldidTypeExtraction%> |
<%=ToHTML(fldnumB2K)%> |
<%=ToHTML(fldidTypePcPorte)%> |
<%=ToHTML(fldModelePcPorte)%> |
<%=ToHTML(fldSNPcPorte)%> |
<%=ToHTML(fldemplacementCle)%> |
<%
'-------------------------------
' relcliinstallconvporte Show end
'-------------------------------
'-------------------------------
' Move to the next record and increase record counter
'-------------------------------
rs.MoveNext
iCounter = iCounter + 1
wend
'-------------------------------
'-------------------------------
' Process the bottom on the Grid. The insert link and record navigator.
'-------------------------------
%>
| Insert
<%
'-------------------------------
' relcliinstallconvporte Navigation begin
'-------------------------------
bEof = rs.eof
if not(rs.EOF and iPage=1) then
if iPage = 1 then
%>
Previous
<%
else
%>
Previous
<%
end if
response.write " [ " & iPage & " ] "
if bEof then
%>
Next
<%
else
%>
Next
<%
end if
end if
'-------------------------------
' relcliinstallconvporte Navigation end
'-------------------------------
'-------------------------------
' Finish form processing
'-------------------------------
set rs = nothing
%>
|
<%
'-------------------------------
' relcliinstallconvporte Close Event start
' relcliinstallconvporte Close Event end
'-------------------------------
end sub
'===============================
'===============================
' Action of the Record Form
'-------------------------------
Sub relcliinstallconvporte1Action(sAction)
'-------------------------------
' Initialize variables
'-------------------------------
Dim bExecSQL: bExecSQL = true
Dim sActionFileName : sActionFileName = ""
Dim sParams : sParams = "?"
Dim sWhere : sWhere = ""
Dim bErr : bErr = False
Dim pPKid : pPKid = ""
Dim fldidTypeExtraction : fldidTypeExtraction = ""
Dim fldnumB2K : fldnumB2K = ""
Dim fldidTypePcPorte : fldidTypePcPorte = ""
Dim fldModelePcPorte : fldModelePcPorte = ""
Dim fldSNPcPorte : fldSNPcPorte = ""
Dim fldemplacementCle : fldemplacementCle = ""
'-------------------------------
'-------------------------------
' relcliinstallconvporte1 Action begin
'-------------------------------
sActionFileName = "relcliinstallconvporte.asp"
sParams = sParams & "idCli=" & ToURL(GetParam("Trn_idCli")) & "&"
sParams = sParams & "idInst=" & ToURL(GetParam("Trn_idInst")) & "&"
sParams = sParams & "idInstConv=" & ToURL(GetParam("Trn_idInstConv"))
'-------------------------------
' CANCEL action
'-------------------------------
if sAction = "cancel" then
'-------------------------------
' relcliinstallconvporte1 BeforeCancel Event start
' relcliinstallconvporte1 BeforeCancel Event end
'-------------------------------
cn.Close
Set cn = Nothing
response.redirect sActionFileName & sParams
end if
'-------------------------------
'-------------------------------
' Build WHERE statement
'-------------------------------
if sAction = "update" or sAction = "delete" then
pPKid = GetParam("PK_id")
if IsEmpty(pPKid) then exit sub
sWhere = "id=" & ToSQL(pPKid, "Number")
end if
'-------------------------------
'-------------------------------
' Load all form fields into variables
'-------------------------------
fldidCli = GetParam("Rqd_idCli")
fldidInst = GetParam("Rqd_idInst")
fldidInstConv = GetParam("Rqd_idInstConv")
fldidTypeExtraction = GetParam("idTypeExtraction")
fldnumB2K = GetParam("numB2K")
fldidTypePcPorte = GetParam("idTypePcPorte")
fldModelePcPorte = GetParam("ModelePcPorte")
fldSNPcPorte = GetParam("SNPcPorte")
fldemplacementCle = GetParam("emplacementCle")
'-------------------------------
' Validate fields
'-------------------------------
if sAction = "insert" or sAction = "update" then
if IsEmpty(fldidTypeExtraction) then
srelcliinstallconvporte1Err = srelcliinstallconvporte1Err & "The value in field idTypeExtraction is required.
"
end if
if IsEmpty(fldidTypePcPorte) then
srelcliinstallconvporte1Err = srelcliinstallconvporte1Err & "The value in field idTypePcPorte is required.
"
end if
if not isNumeric(fldidTypeExtraction) then
srelcliinstallconvporte1Err = srelcliinstallconvporte1Err & "The value in field idTypeExtraction is incorrect.
"
end if
if not isNumeric(fldidTypePcPorte) then
srelcliinstallconvporte1Err = srelcliinstallconvporte1Err & "The value in field idTypePcPorte is incorrect.
"
end if
'-------------------------------
' relcliinstallconvporte1 Check Event start
' relcliinstallconvporte1 Check Event end
'-------------------------------
If len(srelcliinstallconvporte1Err) > 0 then
exit sub
end if
end if
'-------------------------------
'-------------------------------
' Create SQL statement
'-------------------------------
select case sAction
case "insert"
'-------------------------------
' relcliinstallconvporte1 Insert Event start
' relcliinstallconvporte1 Insert Event end
'-------------------------------
sSQL = "insert into relcliinstallconvporte (" & _
"idCli," & _
"idInst," & _
"idInstConv," & _
"idTypeExtraction," & _
"numB2K," & _
"idTypePcPorte," & _
"ModelePcPorte," & _
"SNPcPorte," & _
"emplacementCle)" & _
" values (" & _
ToSQL(fldidCli, "Number") & "," & _
ToSQL(fldidInst, "Number") & "," & _
ToSQL(fldidInstConv, "Number") & "," & _
ToSQL(fldidTypeExtraction, "Number") & "," & _
ToSQL(fldnumB2K, "Text") & "," & _
ToSQL(fldidTypePcPorte, "Number") & "," & _
ToSQL(fldModelePcPorte, "Text") & "," & _
ToSQL(fldSNPcPorte, "Text") & "," & _
ToSQL(fldemplacementCle, "Text") & _
")"
case "update"
'-------------------------------
' relcliinstallconvporte1 Update Event start
' relcliinstallconvporte1 Update Event end
'-------------------------------
sSQL = "update relcliinstallconvporte set " & _
"idTypeExtraction=" & ToSQL(fldidTypeExtraction, "Number") & _
",numB2K=" & ToSQL(fldnumB2K, "Text") & _
",idTypePcPorte=" & ToSQL(fldidTypePcPorte, "Number") & _
",ModelePcPorte=" & ToSQL(fldModelePcPorte, "Text") & _
",SNPcPorte=" & ToSQL(fldSNPcPorte, "Text") & _
",emplacementCle=" & ToSQL(fldemplacementCle, "Text")
sSQL = sSQL & " where " & sWhere
end select
'-------------------------------
'-------------------------------
' relcliinstallconvporte1 BeforeExecute Event start
' relcliinstallconvporte1 BeforeExecute Event end
'-------------------------------
'-------------------------------
' Execute SQL statement
'-------------------------------
if len(srelcliinstallconvporte1Err) > 0 then Exit Sub
on error resume next
if bExecSQL then
cn.execute sSQL
end if
srelcliinstallconvporte1Err = ProcessError
on error goto 0
if len(srelcliinstallconvporte1Err) > 0 then Exit Sub
cn.Close
Set cn = Nothing
response.redirect sActionFileName & sParams
'-------------------------------
' relcliinstallconvporte1 Action end
'-------------------------------
end sub
'===============================
'===============================
' Display Record Form
'-------------------------------
Sub relcliinstallconvporte1_Show()
'-------------------------------
' relcliinstallconvporte1 Show begin
'-------------------------------
sWhere = ""
Dim sFormTitle: sFormTitle = "Insert / Modify"
bPK = true
%>
<%
'-------------------------------
' relcliinstallconvporte1 Close Event start
' relcliinstallconvporte1 Close Event end
'-------------------------------
Set rs = Nothing
'-------------------------------
' relcliinstallconvporte1 Show end
'-------------------------------
End Sub
'===============================
'===============================
' Display Grid Form
'-------------------------------
Sub RetourInstall1_Show()
'-------------------------------
' Initialize variables
'-------------------------------
Dim rs
Dim sWhere : sWhere = ""
Dim sOrder : sOrder = ""
Dim sSQL : sSQL = ""
Dim sFormTitle: sFormTitle = ""
Dim HasParam : HasParam = false
Dim iRecordsPerPage : iRecordsPerPage = 20
Dim iCounter : iCounter = 0
Dim transit_params : transit_params = ""
Dim form_params : form_params = "idCli=" & ToURL(GetParam("idCli")) & "&idInst=" & ToURL(GetParam("idInst")) & "&"
'-------------------------------
' HTML column headers
'-------------------------------
%>
| Installation |
<%
'-------------------------------
' Build WHERE statement
'-------------------------------
pidCli = GetParam("idCli")
if IsNumeric(pidCli) and not isEmpty(pidCli) then pidCli = ToSQL(pidCli, "Number") else pidCli = Empty
if not isEmpty(pidCli) then
HasParam = true
sWhere = sWhere & "r.idCli=" & pidCli
end if
pidInst = GetParam("idInst")
if IsNumeric(pidInst) and not isEmpty(pidInst) then pidInst = ToSQL(pidInst, "Number") else pidInst = Empty
if not isEmpty(pidInst) then
if not (sWhere = "") then sWhere = sWhere & " and "
HasParam = true
sWhere = sWhere & "r.id=" & pidInst
end if
if HasParam then
sWhere = " AND (" & sWhere & ")"
end if
'-------------------------------
' Build base SQL statement
'-------------------------------
sSQL = "select r.id as r_id, " & _
"r.idCli as r_idCli, " & _
"r1.id as r1_id, " & _
"r1.Description as r1_Description " & _
" from relcliinstall r, relcliinstall r1" & _
" where r1.id=r.id "
'-------------------------------
'-------------------------------
' RetourInstall1 Open Event start
' RetourInstall1 Open Event end
'-------------------------------
'-------------------------------
' Assemble full SQL statement
'-------------------------------
sSQL = sSQL & sWhere & sOrder
'-------------------------------
'-------------------------------
' Open the recordset
'-------------------------------
openrs rs, sSQL
'-------------------------------
'-------------------------------
' Process empty recordset
'-------------------------------
if rs.eof then
%>
| No records |
<%
end if
'-------------------------------
'-------------------------------
'Initialize page counter and records per page
'-------------------------------
iRecordsPerPage = 20
iCounter = 0
'-------------------------------
' Display grid based on recordset
'-------------------------------
while not rs.EOF and iCounter < iRecordsPerPage
'-------------------------------
' Create field variables based on database fields
'-------------------------------
fldid_URLLink = "relcliinstallconv.asp"
fldid_idInst = GetValue(rs, "r_id")
fldid_idCli = GetValue(rs, "r_idCli")
fldid = GetValue(rs, "r1_Description")
'-------------------------------
' RetourInstall1 Show begin
'-------------------------------
'-------------------------------
' RetourInstall1 Show Event start
' RetourInstall1 Show Event end
'-------------------------------
'-------------------------------
' Process the HTML controls
'-------------------------------
%>
| <%=fldid%> |
<%
'-------------------------------
' RetourInstall1 Show end
'-------------------------------
'-------------------------------
' Move to the next record and increase record counter
'-------------------------------
rs.MoveNext
iCounter = iCounter + 1
wend
'-------------------------------
'-------------------------------
' Finish form processing
'-------------------------------
set rs = nothing
%>
<%
'-------------------------------
' RetourInstall1 Close Event start
' RetourInstall1 Close Event end
'-------------------------------
end sub
'===============================
%>