<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Insert - Update Event
<%
CheckSecurity(1)
CBNewCustomer = GetParam("AddCustIntList")
Customer = GetParam("CustInt")
CustomerList = GetParam("CustIntList")
' Response.Write("CustomerList: " & CustomerList & "
Type: " & VarType(CustomerList) & "
")
CustomerList = CInt(CustomerList)
' Response.Write("CustomerList: " & CustomerList & "
Type: " & VarType(CustomerList) & "
")
RegisterCustomer = ""
DateIntervention = GetParam("DateInterv")
FlagDebut = FormatDateTime(DateIntervention,2)
dayFlagDebut = day(FlagDebut)
monthFlagDebut = month(FlagDebut)
yearFlagDebut = year(FlagDebut)
FlagDebutToSql = yearFlagDebut & "-" & monthFlagDebut & "-" & dayFlagDebut
FlagFin = FormatDateTime(GetParam("CalOutputElm"),2)
dayFlagFin = day(FlagFin)
monthFlagFin = month(FlagFin)
yearFlagFin = year(FlagFin)
FlagFinToSql = yearFlagFin & "-" & monthFlagFin & "-" & dayFlagFin
ChkDates = DateDiff("d",FlagDebut,FlagFin)
NbDays = 0
If ChkDates < 0 then
Response.Redirect("EBAddNewEvent.asp?DateInterv=" & DateIntervention & "&IdEmpl=" & IdEmpl & "&BTH=" & BTH & "&BTM=" & BTM & "Ð=" & ETH & "&ETM=" & ETM & "&CBNC=" & CBNewCustomer & "&CBFD=" & CBFullDay & "&CustInt=" & Customer & "&CustIntList=" & CustomerList & "&JD=" & JD & "&ShowEndDate=" & FlagFin & "&Mess=5")
else
NbDays = NbDays + ChkDates
end if
Response.Write(ChkDates & "
" & NbDays& "
")
IdEmpl = GetParam("IdEmpl")
BTH = GetParam("BeginTimeHour")
BTM = GetParam("BeginTimeMinutes")
ETH = GetParam("EndTimeHour")
ETM = GetParam("EndTimeMinutes")
CBFullDay = GetParam("FullDay")
JD = GetParam("JobDescription")
''''''''''''''''''''''''''''''''''''''''''''''
' Vérification avant encodage nouveau client '
''''''''''''''''''''''''''''''''''''''''''''''
If CBNewCustomer = "on" AND Customer = "" then
Response.Redirect("EBAddNewEvent.asp?DateInterv=" & DateIntervention & "&IdEmpl=" & IdEmpl & "&BTH=" & BTH & "&BTM=" & BTM & "Ð=" & ETH & "&ETM=" & ETM & "&CBNC=" & CBNewCustomer & "&CBFD=" & CBFullDay & "&CustInt=" & Customer & "&CustIntList=" & CustomerList & "&JD=" & JD & "&ShowEndDate=" & FlagFin & "&Mess=1")
End if
If CStr(CustomerList) = "1" AND Customer = "" then
Response.Redirect("EBAddNewEvent.asp?DateInterv=" & DateIntervention & "&IdEmpl=" & IdEmpl & "&BTH=" & BTH & "&BTM=" & BTM & "Ð=" & ETH & "&ETM=" & ETM & "&CBNC=" & CBNewCustomer & "&CBFD=" & CBFullDay & "&CustInt=" & Customer & "&CustIntList=" & CustomerList & "&JD=" & JD & "&ShowEndDate=" & FlagFin & "&Mess=2")
End if
If Customer = "" then
RegisterCustomer = DLookUp("custint", "Customer", "id=" & CustomerList)
else
RegisterCustomer = Customer
'''''''''''''''''''''''''''
' Encodage nouveau client '
'''''''''''''''''''''''''''
If CBNewCustomer = "on" then
checkCli = ""
checkCli = DLookUp("custint", "Customer", "Customer='" & Customer & "'")
If checkCli = "" then
Set rsInsertCli = Server.CreateObject("ADODB.Recordset")
sqlInsertCli = "insert into custint (" & _
"Customer)" & _
" values (" & _
ToSQL(Customer, "Text") & _
")"
openrs rsInsertCli, sqlInsertCli
End if
End if
end if
FullDay = 0
If CBFullDay = "on" then
FullDay = 1
BeginTime = "00:00"
EndTime = "23:59"
else
FullDay = 0
BeginTime = BTH & ":" & BTM
If CStr(ETH) = "24" AND Cstr(ETM) = "0" then
EndTime = "23:59"
else
EndTime = ETH & ":" & ETM
end if
If IsDate(BeginTime) AND IsDate(EndTime) then
BeginTime = FormatDateTime(BeginTime,4)
EndTime = FormatDateTime(EndTime,4)
else
Response.Redirect("EBAddNewEvent.asp?DateInterv=" & DateIntervention & "&IdEmpl=" & IdEmpl & "&BTH=" & BTH & "&BTM=" & BTM & "Ð=" & ETH & "&ETM=" & ETM & "&CBNC=" & CBNewCustomer & "&CBFD=" & CBFullDay & "&CustInt=" & Customer & "&CustIntList=" & CustomerList & "&JD=" & JD & "&ShowEndDate=" & FlagFin & "&Mess=4")
end if
end if
DateCalcul = DateDiff("n",BeginTime,EndTime)
' Response.Write("BeginTime: " & BeginTime & "
EndTime: " & EndTime & "
Calcul: " & DateCalcul & "
")
If DateCalcul < 0 then
RecordBeginTime = EndTime
RecordEndTime = BeginTime
else
RecordBeginTime = BeginTime
RecordEndTime = EndTime
end if
' Response.Write("RecordBeginTime: " & RecordBeginTime & "
RecordEndTime: " & RecordEndTime & "
")
WeekNumInt = DatePart("ww",DateIntervention,2,3)
RecordBeginTime = RecordBeginTime & ":00"
RecordEndTime = RecordEndTime & ":00"
For cptdays = 0 to NbDays
tmpRecordTime = Dateserial(yearFlagDebut,monthFlagDebut,dayFlagDebut+cptdays)
tmpRecordDay = day(tmpRecordTime)
tmpRecordMonth = month(tmpRecordTime)
tmpRecordYear = year(tmpRecordTime)
tmpRecordTime = tmpRecordYear & "-" & tmpRecordMonth & "-" & tmpRecordDay
set rs1 = Server.CreateObject("ADODB.recordset")
SQL1 = "insert into reldatelieupers_2 (" & _
"DateInt," & _
"CustInt," & _
"idEmpl," & _
"FullDay," & _
"BeginTime," & _
"EndTime," & _
"JobDescription," & _
"FlagDebut," & _
"FlagFin)" & _
" values (" & _
ToSQL(tmpRecordTime, "Text") & "," & _
ToSQL(RegisterCustomer, "Text") & "," & _
ToSQL(IdEmpl, "Number") & "," & _
ToSQL(FullDay, "Number") & "," & _
ToSQL(RecordBeginTime, "Text") & "," & _
ToSQL(RecordEndTime, "Text") & "," & _
ToSQL(JD, "Text") & "," & _
ToSQL(FlagDebutToSql, "Text") & "," & _
ToSQL(FlagFinToSql, "Text") & _
")"
openrs rs1, SQL1
' Response.Write(SQL1 & "
")
next
Response.Redirect("EBAgenda.asp?Semaine=" & WeekNumInt & "")
%>