//Buzzzz
Når bilen blir lagt inn i databasen så legges det kun data i tblbiler.
Følgende data blir lagt inn tblbiler:
oRS.AddNew
oRs("FKEier") = strEier
oRS("Regnr") = strRegNr
oRS("FKFabrikat") = strFabrikat
oRS("FKModell") = strModell
oRS("FKType") = strType
oRS("Arsmodell") = strArsmodell
oRS("MotorStorrelse") = strMotor
oRS("ListePris") = strListePris
oRS("FKPremie") = strPremie
oRS("PeriodePremie") = Clng(strPeriodePremie)
oRS("FKBRAvdeling") = strKunde
oRS("OpprettetDato") = now()
oRS("FKRegAv") = Session("BRID")
oRS("GjelderFra") = strGjelderFra
oRS("Aktiv") = "JA"
oRS("EndretDato") = date()
oRS.Update
Når bilen blir slettet legges følgende data inn i tblbiler:
oRS.Find "BID='" & strBID & "'"
oRS("Aktiv") = "NEI"
oRS("SlettetAv") = Session("BRID")
oRS("SlettetDato") = now()
oRS("SiOppForsikringFra") = txtDato
oRS("EndretDato") = date()
oRS.update
Og det bli lagt i loggen:
oRs("SlettetFKBID") = strBID
oRs("SlettetEier") = strEID
oRS("SlettetRegnr") = strRegNr
oRS("SlettetAvdeling") = strKunde
oRS("SlettetAv") = Session("BRID")
oRS("SlettetDato") = now()
oRS("SlettetSiOppForsikringFra") = txtDato
Se på diagrammet (nytt)
http://www.cyren.no/diagram2.gifDet vil si at når man sletter en bil så settes den til inaktiv i tblbiler. Man kan så registrere regnr på nytt men bilen får en ny ID.