set objso = createObject("Superoffice.Application")    

forandre = 0 
soid = objso.database.find.firstmatch("contact", "contact_id", "name", "IKT Kompetanse%")
'msgbox(soid)

if trim(soid) = "" then 	
	soid = objso.database.find.firstmatch("contact", "contact_id", "name", "IKT Tjenester%")
end if

if trim(soid) = "" then 
	'spør etter navn 
	navn = msgbox("Fant ikke kontakten IKT Kompetanse. Skal vi forandre gjeldende kontakt i SuperOffice?" & vbcrlf & "Dette er """ & objso.currentcontact.name & """.", 4,"Ikke funnet")
	if navn = vbyes then 
		soid = objso.currentcontact.identity
		forandre = 1 
	end if
end if

if trim(soid) = "" then 
	'spør etter navn 
	navn = inputbox("Fant ikke kontakten IKT Kompetanse." & vbcrlf & "Vennligst skriv inn rett navn som det står i SuperOffice", "Ikke funnet")
	soid = objso.database.find.firstmatch("contact", "contact_id", "name", navn)
end if


if trim(soid) <> ""  then 
	set kon = objso.database.getcontact(soid)
	svar = msgbox("Bruker kontakten """ & kon.name & """. " & vbcrlf & "Er du sikker på at dette er rett kontakt?", 4, "BEKREFT" )
	else 
	msgbox("Fant ikke kontakten i SuperOffice.")
end if 

if svar = vbyes then

	kon.name = "ZPartner Bergen (IKT Kompetanse AS)"
	kon.Department = ""
	for i = 0  to kon.emails.count + 20
		kon.emails.remove(i)
	next
	kon.Emails.Add "bergen@zpartner.no", "Salg"
	kon.Emails.Add "support.bergen@zpartner.no", "Support"
	kon.Emails.Add "support@iktk.no", "Gammel support"
	for i = 0  to kon.phones.count +20
		kon.Phones.remove(i) 
	next
	kon.Phones.Add "94 00 92 90", "Tlf"
	kon.OrgNr = "989821571"
	kon.StreetAddress.Address1= "Leirvikåsen 43 B, 5179 GODVIK"
	kon.PostalAddress.Address1="Leirvikåsen 43 B"
	kon.PostalAddress.ZipCode = "5179"
	kon.PostalAddress.City= "GODVIK"
	for i = 0  to kon.urls.count +20
		kon.urls.remove(i)
	next
	kon.Urls.add "support.iktk.no", "Support"
	kon.Urls.Add "http://www.zpartner.no/om-kontakt-oss/bergen", "Hjemmeside"
	kon.save
	
	idegil = 0 
	idbjorn = 0
	idtrond = 0
	idroger = 0
	
	for each p in kon.getpersons
	    behandlet = 0 
		if strcomp(p.firstname, "Egil",1) = 0 then 
			idegil = p.identity
			behandlet = 1
		end if
		if strcomp(p.firstname, "Trond",1) = 0 then 
			idtrond = p.identity
			behandlet = 1
		end if
		if strcomp(p.firstname, "Bjørn",1) = 0 then 
			idbjorn = p.identity
			behandlet = 1
		end if
		if strcomp(p.firstname, "Roger",1) = 0 then 
			idroger = p.identity
			behandlet = 1
		end if	
		if behandlet = 0 then 
			p.retired = true
			p.save
		end if
	next
	if idegil = 0 then 
		set egil = objso.database.createperson
		egil.firstname = "Egil"
		egil.contact = kon
		egil.save
		idegil = egil.identity
	end if
    if idbjorn = 0 then 
		set bjorn = objso.database.createperson
		bjorn.firstname = "Bjorn"
		bjorn.contact = kon
		bjorn.save
		idbjorn = bjorn.identity
	end if
	if idroger = 0 then 
		set roger = objso.database.createperson
		roger.firstname = "roger"
		roger.contact = kon
		roger.save
		idroger = roger.identity
	end if
	if idtrond = 0 then 
		set trond = objso.database.createperson
		trond.firstname = "trond"
		trond.contact = kon
		trond.save
		idtrond = trond.identity
	end if
	
	
	Set myPerson = objso.database.getperson(idegil)
	myPerson.FirstName = "Egil"
	myPerson.LastName = "Kvinge"
	myPerson.Title = "Bedriftsrådgiver CRM"
	for i = 0 to myperson.phones.count + 20
		myperson.Phones.remove(i) 
	next
	myPerson.Phones.Add "92 84 31 69", "Mobiltelefon", 5
	for i = 0  to myperson.emails.count +20
		myperson.emails.remove(i) 
	next
	myPerson.Emails.Add "egil.kvinge@zpartner.no", "Epost"
	myPerson.Emails.Add "ek@iktk.no", "Gammel epost"
	myPerson.Country = objso.database.GetListItem(19, kon.country.id)
	myPerson.Save
	
	Set myPerson = objso.database.getperson(idroger)
	myPerson.FirstName = "Roger"
	myPerson.LastName = "Brakstad"
	myPerson.Title = "Daglig leder"
	for i = 0 to myperson.phones.count +20
		myperson.Phones.remove(i) 
	next
	myPerson.Phones.Add "95 08 85 71", "Mobiltelefon", 5
	for i = 0  to myperson.emails.count +20
		myperson.emails.remove(i) 
	next
	myPerson.Emails.Add "roger.brakstad@zpartner.no", "Epost"
	myPerson.Emails.Add "rb@iktk.no", "Gammel epost"
	myPerson.Country = objso.database.GetListItem(19, kon.country.id)
	myPerson.Save

	Set myPerson = objso.database.getperson(idbjorn)
	myPerson.FirstName = "Bjørn"
	myPerson.LastName = "Rønnestad"
	myPerson.Title = "Teknisk konsulent"
	for i = 0 to myperson.phones.count +20
		myperson.Phones.remove(i) 
	next	
	myPerson.Phones.Add "97 03 70 33", "Mobiltelefon", 5
	for i = 0  to myperson.emails.count +20
		myperson.emails.remove(i) 
	next
	myPerson.Emails.Add "bjorn.ronnestad@zpartner.no", "Epost"
	myPerson.Emails.Add "br@iktk.no", "Gammel epost"
	myPerson.Country = objso.database.GetListItem(19, kon.country.id)
	myPerson.Save
		
	Set myPerson = objso.database.getperson(idtrond)
	myPerson.FirstName = "Trond"
	myPerson.LastName = "Heimvik"
	myPerson.Title = "Teknisk konsulent"
	for i = 0 to myperson.phones.count +20
		myperson.Phones.remove(i) 
	next		
	myPerson.Phones.Add "94 00 22 61", "Mobiltelefon", 5
	for i = 0  to myperson.emails.count +20
		myperson.emails.remove(i) 
	next
	myPerson.Emails.Add "trond.heimvik@zpartner.no", "Epost"
	myPerson.Emails.Add "th@iktk.no", "Gammel epost"
	myPerson.Country = objso.database.GetListItem(19, kon.country.id)
	myPerson.Save

	msgbox("Edringer utført")
end if