---
title: "ctrl+V - leken"
type: "forum-thread"
url: "https://www.webforum.nu/amne/smaprat/111121-ctrl-v-leken/page62"
topic: "Småprat"
topic_url: "https://www.webforum.nu/amne/smaprat"
author: "M.Cheraghi"
published: "2004-09-06T10:33:35.000Z"
updated: "2026-08-10T16:27:40.000Z"
replies: 4905
views: 846826
page: 62
pages: 246
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/smaprat/111121-ctrl-v-leken"
---

# ctrl+V - leken

_Sida 62 av 246._

## #1221 — Pedda, 2006-12-12T11:43Z

DisplayDriveInformation display = new DisplayDriveInformation();
DisplayInformationPanel.Controls.Clear();
display.LoadComboBox(drives);
DisplayInformationPanel.Controls.Add(display);

statusLabel.Text = "Välj disken som du vill ha information om.";

Permalänk: https://www.webforum.nu/p/1909348

## #1222 — Gein, 2006-12-12T11:54Z

LINKSYS SD205

Permalänk: https://www.webforum.nu/p/1909351

## #1223 — headbug, 2006-12-12T12:03Z

<https://www.gamehead.com.au/product.php?productid=90053>

Permalänk: https://www.webforum.nu/p/1909352

## #1224 — :stefan:, 2006-12-12T13:07Z

26540363

Permalänk: https://www.webforum.nu/p/1909377

## #1225 — obelix, 2006-12-12T13:08Z

tetris4000.key

Permalänk: https://www.webforum.nu/p/1909378

## #1226 — Kriko, 2006-12-14T13:07Z

Erbjudandet gäller vid nybeställning för minst 400 kronor efter avdragen rabatt.

Permalänk: https://www.webforum.nu/p/1910026

## #1227 — Koplik, 2006-12-14T13:29Z

```
            "Group By To_Char(DatTid, 'yyyy-mm-dd') " & _
            "Order By To_Char(DatTid, 'yyyy-mm-dd') Asc"
```

Permalänk: https://www.webforum.nu/p/1910030

## #1228 — silfver, 2006-12-14T13:36Z

Bah, gammal tråd. :L

Permalänk: https://www.webforum.nu/p/1910035

## #1229 — :stefan:, 2006-12-14T16:06Z

Svenne Rubins - Jag får skylla mig själv, Marianne

Permalänk: https://www.webforum.nu/p/1910065

## #1230 — DanneSt, 2006-12-18T23:08Z

css ramen kommer

Permalänk: https://www.webforum.nu/p/1911182

## #1231 — :stefan:, 2007-01-24T17:36Z

<http://www.usr.com/images/products/5463/5463.jpg>

(Syrrans router med omdömet "den ser ut som en stormtrooper!" :e)

Permalänk: https://www.webforum.nu/p/1926268

## #1232 — devotion, 2007-01-24T17:37Z

\<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"\>
\<html xmlns="http://www.w3.org/1999/xhtml"\>
\<head\>
\<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /\>
\<title\>Registrera materialrader\</title\>
\<link rel='stylesheet' href='././form.css' type='text/css'\>
\</head\>

\<%
	'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	function InsertPriceListOptions()
		Dim objConn, objRS, sSQL
		dim s, sName, sPriceListNr, n
		
		Set objConn = CreateObject("ADODB.Connection")
		objConn.Open Application.sDbConnectionString
		Set objRs = CreateObject("ADODB.Recordset")
		
		sSQL = "SELECT \* FROM \[tblPricelist\] WHERE \[Nr\] In('01','02','03','07','11') ORDER BY \[Name\]"
		objRS.Open sSQL, objConn
		
		s=""
		while not ObjRS.EOF
			sName=objRs("Name")
			n=InStr(sName, " (")
			if n\>0 then sName = Left(sName, n-1)
			
			sPriceListNr = objRS("Nr")
			s = s & "\<option value='" & sPriceListNr & "'\>" & sName & "\</option\>" 
			objRS.Movenext
		wend

		objRS.Close
		Set objRS = Nothing
		objConn.Close
		Set objConn = Nothing

		InsertPriceListOptions=s
	end function

	'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	function InsertMaterialRows()
		dim i, s
		
		s=""
		for i = 1 to 10
			s = s & "\<tr\>"
			s = s & "\<td\>\<label\>Artikelnummer: \<input name='article" & i & "' onkeyup='OnValidateArtNr(" & i & ")'\>\</label\>\</td\>"

			s = s & "\<td\>\<label\>Antal: "
			s = s & "\<select name='amount" & i & "' id='amount" & i & "'\>"
				for j = 1 to 100
					s = s & "\<option value='" & j & "'\>" & j & "\</option\>" & vbCrLf
				next
			s = s & "\</select\>"
			s = s & "\</label\>\</td\>"

			s = s & "\<td\>\<label\>Enhet: "
			s = s & "\<select name='unit" & i & "'\>"
				s = s & "\<option value='st'\>styck\</option\>"
				s = s & "\<option value='m'\>meter\</option\>"
			s = s & "\</select\>&nbsp;&nbsp;\</td\>"
			s = s & "\<td\>\<label id='artname" & i & "'\>(ingen artikel vald)\</label\>\</td\>"
			s = s & "\</tr\>"
		Next

		InsertMaterialRows = s
	end function
%\>

\<SCRIPT language='vbscript'\>
	'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	' KOPIERAD FRÅN UN_GLOBAL.VBS:
	' Return a value from an SQL SELECT query to Uppdrag NU db
	'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	function GetUNValue(sSQL)
		dim Conn, Rs
		Set Conn=CreateObject("ADODB.Connection")
		Conn.Open "\<% =Application.sDbConnectionString %\>"
		Set Rs=CreateObject("ADODB.Recordset")
		Rs.Open sSQL, Conn
		if Rs.EOF then
			GetUNValue=""
		else
			GetUNValue=Rs.Fields(0)
		end If
		Rs.Close
		Set Rs=Nothing
		Set Conn=Nothing
	end function

	'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	sub OnValidateArtNr(nIndex)
		dim sArtNr, sArtName
		dim sPLNr, sSupplierPrice

		sArtNr=document.all.item("article" & nIndex).value
		if sArtNr="" then 
			document.all.item("artname" & nIndex).innerHtml="(ingen artikel vald)"
			exit sub
		end if

		sArtName=GetUNValue("SELECT \[Name\] FROM \[tblArticle\] WHERE \[Nr\]='" & sArtNr & "'")
		sUnit=GetUNValue("SELECT \[Unit\] FROM \[tblArticle\] WHERE \[Nr\]='" & sArtNr & "'")
		if sArtName="" then 
			document.all.item("artname" & nIndex).innerHtml="\<font color='#ff0000'\>(felaktigt artikelnr)\</font\>"
		else
			sPLNr=document.all.item("supplier").value
			sSupplierPrice=GetUNValue("SELECT \[Price\] FROM \[tblPrice\] WHERE \[PriceListNr\]='" & sPLNr & "' AND \[ArtNr\]='" & sArtNr & "' AND \[Type\]=4 AND \[FromAmount\]=0")
			if sSupplierPrice="" then
				document.all.item("artname" & nIndex).innerHtml="\<font color='#ff0000'\>(artikeln finns ej hos vald leverantör)\</font\>"
			else
				document.all.item("artname" & nIndex).innerHtml=sArtName
				document.all.item("unit" & nIndex).value=sUnit
			end if
		end if
	end sub
	
	'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
	sub OnSave()
		dim i
		dim sArtNr, sAtrName, fAmount, sUnit, sPLNr, fPrice
		dim s
		dim CrLf : CrLf = Chr(13) & Chr(10)
	
		sPLNr=document.all.item("supplier").value

		s=""
		for i=1 to 10
			sArtNr=document.all.item("article" & i).value
			sArtName=document.all.item("artname" & i).innerhtml
			fAmount=document.all.item("amount" & i).value
			sUnit=document.all.item("unit" & i).value
			if sArtNr\<\>"" and lcase(Left(sArtName, 5))\<\>"\<font" then
				fPrice=GetUNValue("SELECT TOP 1 \[Price\] FROM \[tblPrice\] WHERE \[Type\]=4 AND \[PriceListNr\]='" & sPLNr & "' AND \[ArtNr\]='" & sArtNr & "' AND \[FromAmount\]\<=" & fAmount & "ORDER BY \[FromAmount\] DESC")
				if not IsNumeric(fPrice) then fPrice=0
				s = s & fAmount & " " & sUnit & " av artikelnr " & sArtNr & ", pris " & fPrice & " kr" & Chr(13) & Chr(10)
			end if
		next
		if s\<\>"" then
			r=MsgBox("Följande materialrader kommer att registreras: " & CrLf & CrLf & s , 1, "Skapa materialrader")
			if r\<\>1 then exit sub
		else
			call MsgBox("Det finns inga godkända materialrader som kan skapas.", 0, "Fel")
		end if
	end sub
\</SCRIPT\>

\<body bgcolor='#\<COLOR_3DFACE\>'\>

\<h1\>Registrera materialrader för uppdrag: \<% =GetUNValue("SELECT \[TaskNr\] FROM \[tblTask\] WHERE \[Id\]=\<TaskId\>") %\>\</h1\>

\<form name='myform' action="javascript:OnSave()" method="post"\>

\<label\>Välj leverantör: 
\<select name='supplier'\>\<% =InsertPriceListOptions() %\>\</select\>
\</label\>
\<p\>
\<table border='0'\>
\<% =InsertMaterialRows() %\>
\</table\>
\<input name="addArticles" type="submit" value="Lägg till"\>
\</form\>
\</body\>
\</html\>

Permalänk: https://www.webforum.nu/p/1926269

## #1233 — Quid, 2007-01-24T18:07Z

Det eviga kriget

Permalänk: https://www.webforum.nu/p/1926279

## #1234 — nitro2k01, 2007-01-24T18:35Z

One million seven hundred and eighty seven thousand five hundred and sixty eight.

Permalänk: https://www.webforum.nu/p/1926288

## #1235 — Lasp, 2007-01-24T18:59Z

Det ska köras på en PC med ett modernt OS.

Det ska minimum ha något liknande:

Case ID \| Prioritet \| Anmält av \| Anmält datum \| Ärende text \| Ärende rubrik \| Status \| Hanteras av \| Nästa kontaktperson 

Ett case bör kunna ha flera "händelser". En händelse kan vara svar på ett email.

Jag ser gärna att det är skrivet i ASP.

Gränssnittmässigt så är väl det vanliga konceptet att man har ett inmatnings GUI, en kölista, en lista över dina öppnade case och eventuellt lite statistik.

Viktigt: Det måste gå att skapa en pappersrapport av det du har i din kö. Min erfarenhet av dessa system är att när vi har prioriteringsmöten så är det lättast att diskutera en agenda som finns på papper.

Killer funktionalitet hade varit möjligheten att importera email från outlook och koppla detta till ett befintligt (eller nytt) case.

Jag gjorde en enkel accessdatabas som hanterade tänket, förutom outlook importen, men jag har slarvat bort hela lösningen...

Permalänk: https://www.webforum.nu/p/1926293

## #1236 — Fia, 2007-01-24T19:02Z

mest för att det kanske inte är så

Permalänk: https://www.webforum.nu/p/1926294

## #1237 — medialabs, 2007-01-24T20:23Z

Och politik det är skit! Göran Persson för rik, Fredrik Reinfeldt ser ut som ett jävla lik. 
Leijonborg är rasist, Wetterstrand är för trist, och Lars Ohly är nån slags jävla kommunist. 
Och Maud hon är dum som ett tåg, Peter Erikson han är ett jävla spån, 
och Hägglund till sist, han kan inte va’ frisk, våran alldeles egna antikrist!

Permalänk: https://www.webforum.nu/p/1926315

## #1238 — Akerlundh, 2007-01-24T21:19Z

<http://www.webforum.nu/showthread.php?t=152618>

Permalänk: https://www.webforum.nu/p/1926335

## #1239 — M@gnus, 2007-01-24T21:29Z

Flight SK 026

Permalänk: https://www.webforum.nu/p/1926340

## #1240 — Akerlundh, 2007-01-24T21:34Z

Hejsan! Känner du någon som har ett moderkort med sockel AM2 och sälja?

Permalänk: https://www.webforum.nu/p/1926345

---

Tråden på webben: https://www.webforum.nu/amne/smaprat/111121-ctrl-v-leken/page62  
Föregående sida: https://www.webforum.nu/amne/smaprat/111121-ctrl-v-leken/page61.md  
Nästa sida: https://www.webforum.nu/amne/smaprat/111121-ctrl-v-leken/page63.md