4 904 svar · 817 972 visningar · startad av M.Cheraghi · sida 62 av 246
Jahapp! Det kan inte vara så himla svårt eller hur? Leken går altså ut på att man ska ctrl-v'a ut det man har lagrat, i \[ citat \] taggen! Om man nu inte har något i ctrl-v så låter man helt enkelt innehållet i \[ citat \] taggen vara tomt. :) Man skall heller således inte fuska och hitta något roligt att klistra in. Man tar det man har helt enkelt. Ibland kanske det kommer något roligt, andra gå
Läs frågan i sin helhet →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.";
LINKSYS SD205
26540363
tetris4000.key
Erbjudandet gäller vid nybeställning för minst 400 kronor efter avdragen rabatt.
"Group By To_Char(DatTid, 'yyyy-mm-dd') " & _
"Order By To_Char(DatTid, 'yyyy-mm-dd') Asc"
Bah, gammal tråd. :L
Svenne Rubins - Jag får skylla mig själv, Marianne
css ramen kommer
http://www.usr.com/images/products/5463/5463.jpg
(Syrrans router med omdömet "den ser ut som en stormtrooper!" :e)
<!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\> \</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>
Det eviga kriget
One million seven hundred and eighty seven thousand five hundred and sixty eight.
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...
mest för att det kanske inte är så
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!
Flight SK 026
Hejsan! Känner du någon som har ett moderkort med sockel AM2 och sälja?
