Notifikationer

Markér alle som læst Log ud

Jman Praktikant

29. august 2002 - 16:40 Der er 57 kommentarer og
1 løsning

Jeg skal bruge en superduper ASP-koder til denne opgave

Jeg vil gerne have lavet en beregning af tidsforbrug. Jeg har fået en xtension til quark, der poster i database hvornår et dokument er åbnet og lukket.
Jeg skal så have regnet arbejdstiden ud (forskellen mellem START og STOP.
Det jeg gør nu er at kalde felterne i db og poste dem - det går fint nok:
<kode>
strSQL = "Select * FROM ANNTID WHERE TEXT = '" & get_adno &"' order by timestamp"
</kode>
det giver flg. resultat:
TEXT EVENT TIMESTAMP STATIONID
215223.qxd START 29-08-2002 11:39:57 01_mac
215223.qxd STOP 29-08-2002 11:42:57 01_mac
215223.qxd START 29-08-2002 11:45:00 01_mac
215223.qxd STOP 29-08-2002 11:50:00 01_mac

Jeg vil så gerne lave en kolonne mere, hvor der ud for hver linie med STOP skal stå tidsforbruget.
I bunden skal der så være en række hvor tidsfobruget regnes sammen og ydermere skal der laves en tælling på hvor mange gange dokumentet har været åbnet (antal linier med EVENT "START"

Synes godt om

oasen Nybegynder

29. august 2002 - 16:53 #1

Er det ikke bare at udtrække værdien af start, inden du indsætter værdien af Stop og så indsætte differencen mellem de to værdier, samtidig med du indsætter Stop-værdien?

Synes godt om

somaliomar Praktikant

29. august 2002 - 16:53 #2

If EVENT <> START
timer = DateDiff("h", dato1, dato2)
min = DateDiff("n", dato1, dato2)
sek = DateDiff("s", dato1, dato2)

resultat = timer & ":" & min & ":" & sek

'Åbn database
'Gem "resultat" i den nye kollone
End If

Synes godt om

oasen Nybegynder

29. august 2002 - 16:54 #3

Måske misforstår jeg helt, men i så fald det er det, du mener, kan jeg da sagtens lave det til dig.

Synes godt om

Jman Praktikant

29. august 2002 - 16:55 #4

det kan godt være - men jeg har slet ikke arbejdet på datediff-kommandoen...
vil ovenstående også lykkes, når der er tale om at en ordre kan åbnes mere end en gang

Synes godt om

somaliomar Praktikant

29. august 2002 - 16:57 #5

"vil ovenstående også lykkes, når der er tale om at en ordre kan åbnes mere end en gang" ? Hvad mener du helt præcist?

Synes godt om

Jman Praktikant

29. august 2002 - 16:58 #6

Skulle gerne ende nogenlunde således:
-------------------------------------------------------------------
TEXT EVENT TIMESTAMP STATIONID TIDSFORBRUG
215223.qxd START 29-08-2002 11:39:57 01_mac
215223.qxd STOP 29-08-2002 11:42:57 01_mac 0:03:00
215223.qxd START 29-08-2002 11:45:00 01_mac
215223.qxd STOP 29-08-2002 11:50:00 01_mac 0:05:00

Orderen har været åbnet 2 gange og det samlede tidsforbrug var 8 minutter
-------------------------------------------------------------------

Synes godt om

Jman Praktikant

29. august 2002 - 16:59 #7

det ser lidt skævt ud, når det proppes ind her - skal jeg lave en htmlside, du kan se det på?

Synes godt om

somaliomar Praktikant

29. august 2002 - 17:00 #8

Jeg er ikke helt med. Du må meget gerne lave på en HTML-side :)

Synes godt om

Jman Praktikant

29. august 2002 - 17:13 #9

OK - here goes:
http://www.jman.dk/exempel.htm

Synes godt om

somaliomar Praktikant

29. august 2002 - 17:15 #10

Hvordan ved du, at orden er den samme?

Synes godt om

somaliomar Praktikant

29. august 2002 - 17:21 #11

Hvis du vil tælle antal gange START forekommer, kan du bruge SQL-sætningen:

SELECT COUNT(EVENT) FROM DitTabelNavn WHERE EVENT = "START"

Synes godt om

Jman Praktikant

29. august 2002 - 17:36 #12

Odren slås op!
via et input-felt

Synes godt om

somaliomar Praktikant

29. august 2002 - 17:47 #13

Jeg tror, jeg er med nu ;)

Synes godt om

Jman Praktikant

29. august 2002 - 18:02 #14

ok :)

Synes godt om

somaliomar Praktikant

29. august 2002 - 18:03 #15

Virker det nu?

Synes godt om

Jman Praktikant

29. august 2002 - 18:08 #16

om det virker - ja det virker som jeg har besrkvet det - jeg har ikke forsøgt din kode - jeg troede li'som der manglede noget.

Synes godt om

somaliomar Praktikant

29. august 2002 - 18:10 #17

Hvis alt virker som det skal burde du lukke spm'et.

Synes godt om

Jman Praktikant

29. august 2002 - 18:13 #18

jamen jeg mangler stadig alt det, jeg har beskrevet i mit problem (!) Jeg tror vi snakker forbi hinanden.

Synes godt om

somaliomar Praktikant

29. august 2002 - 18:15 #19

Har du afprøvet mine koder? Virker de?

Synes godt om

Jman Praktikant

29. august 2002 - 18:18 #20

nej, jeg regnede med du kom med noget mere - jeg kan nemlig ikke se hvordan de skulle virker, når der kan forekomme flere linier med start og stop

Synes godt om

somaliomar Praktikant

29. august 2002 - 18:22 #21

Jeg kan ikke komme med mere når jeg ikke ved præcist hvordan din kildekode ser ud.

Synes godt om

somaliomar Praktikant

29. august 2002 - 18:24 #22

Det vil hjælpe en hel del hvis du poster koden her

Synes godt om

Jman Praktikant

29. august 2002 - 18:40 #23

OK - her er HELE koden - Det er der hvor  jeg skal bruge det dersens datadiff...

<% Response.Buffer = True %>
<% mode = Request("mode") %>

<%
'This declares all the variables
Dim Counter
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits
'Sets location of the Counter File.
CounterFile = Server.MapPath ("counter.txt")
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")

'Opens the file for Read Access
Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)

If Not ReadCounterFile.AtEndOfStream Then
'Loads the stored value of the counter into CounterHits
CounterHits = Trim(ReadCounterFile.ReadLine)
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If

ReadCounterFile.Close
Set ReadCounterFile = Nothing
'Adds 1 to the value of the CounterHits
CounterHits = CounterHits + 1
'Opens the file for Writing
Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)
'Writes teh value of CounterHits to the file
WriteCounterFile.WriteLine(CounterHits)

WriteCounterFile.Close
Set WriteCounterFile = Nothing
Set ObjCounterFile = Nothing
%>

<html>
<head>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-store">
<LINK REL="STYLESHEET" TYPE="text/css" HREF=../../scripts/style.css>
<title>..:: SAPSS ::..</title>
</head>
<BODY>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber1">
<tr>
<td>
<h1 align="center">SAPSS</h1>
<h2 align="center" style="margin-top: 0; margin-bottom: 0">Ordre StyringsSystem</h2>
</td>
</tr>
<tr>
<td>
<form method="get" action="default_history.asp?action=get">
<h3 align="center">Indtast ordrenummer: <input name="ordrenummer" size="10"><input type="submit" value="hent info" style="font-size: 10px; font-weight: bold; border: 2px solid #000000; background-color: #CECFA5"></h3>
</form>
</td>
</tr>
<% If Request.Querystring ("Ordrenummer") > "0" Then %>
<%
Set dbOracle = CreateObject("ADODB.Connection")
get_adno = request.querystring ("ordrenummer")
strConn = "DSN=xxxxxxx;Database=xxx;uid=xxxxxxxx;pwd=xxxxxx"
dbOracle.Open strConn
//strSQL = "Select distinct(a.adno), p.pdate, a.iremarks, p.colour, p.xsize, p.ysize, p.paper, a.ad_type, p.prmethod, p.ready, a.maker, a.salno, p.modifier, p.remarks, p.adrno, a.adrname, a.adrtel, a.receiver FROM pub p, ad a WHERE p.adno=a.adno AND a.adno='"&get_adno&"' order by p.paper, length(p.paper)"
strSQL = "Select * FROM pub p, ad a WHERE p.adno=a.adno AND a.adno='"&get_adno&"' order by p.paper, length(p.paper)"
Set rsOracle = CreateObject("ADODB.Recordset")
rsOracle.Open strSQL, dbOracle

%>

<% if rsOracle.eof then %>
<h2><font align="center" color="#dd0000">Der er ikke noget ordrenummer, der hedder "<%=get_adno%>"....prøv igen.</font></h2>
<% else %>

<%
tmpVarMaker = rsOracle("maker")
tmpVarSalno = rsOracle("salno")
tmpVarModifier = rsOracle("modifier")
tmpVarRemarks = rsOracle("remarks")
%>

<div align="center">
<center>
<table border="0" cellspacing="5" style="border-collapse: collapse; border: 0px width=" id="AutoNumber1" "600">
<tr>
<td>
<table border="0" cellspacing="5" style="border:2px solid #000000; border-collapse: collapse" bordercolor="#111111" width="600" id="AutoNumber2" bgcolor="#FFFFFF" cellpadding="0">
<tr>
<td colspan="3"><h1 style="margin:0 1; "><%=(rsOracle("adno"))%> "<%=(rsOracle("iremarks"))%>"</h1>
<h3 align="right" style="margin:0 1; ">benyttet <%=(rsOracle("pdate"))%> </h3></td>
</tr>
<tr>
<td colspan="3" valign="top" bgcolor="#E6E6D0">
<h3 style="margin: 0 1"></h3>
<h2 style="margin:0 1; "> Kundeinformation</h2></td>
</tr>
<tr>
<td valign="top"><h4 style="margin:0 1; "><b>Kundenr.: </b><%=(rsOracle("adrno"))%></h4></td>
<td valign="top"><h4 style="margin:0 1; "><b>Kundenavn: </b><%=(rsOracle("adrname"))%></h4></td>
<td valign="top"><h4 style="margin:0 1; "><b>Tlf.nr.: </b><%=(rsOracle("adrtel"))%></h4></td>
</tr>
<tr>
<td valign="top" colspan="3"><h4 style="margin:0 1; "><b>Kontaktperson: </b><%=(rsOracle("caller"))%></h4></td>
</tr>
<tr>
<td colspan="3" valign="top" height="157">
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="600">
<tr>
<td width="586" colspan="6" bgcolor="#E6E6D0">
<h2 style="margin:0 1; "> ordreinformation </h2>
</tr>
<tr>
<% checkfarve = ("" & rsOracle("colour"))
If checkfarve = "" or null Then checkfarve = "sort/hvid"
%>
<%
checktype = ("" & rsOracle("ad_type"))
If checktype = "L" Then checktype = "L - Liners" else
If checktype = "D" Then checktype = "D - egenproduktion" else
If checktype = "M" Then checktype = "M - Materiale" else
If checktype = "S" Then checktype = "S - Scan" else
If checktype = "F" Then checktype = "F - Film" else
If checktype = "N" Then checktype = "N - Ikke elektronisk" else
If checktype = "P" Then checktype = "P - Via Posten" else
If checktype = "I" Then checktype = "I - ISDN" else
If checktype = "A" Then checktype = "A - Via ADS" else

checkstatus = ("" & rsOracle("ready"))
If checkstatus = "" or null Then checkstatus = "Ej Påbegyndt" else
If checkstatus = "S" Then checkstatus = "S - Sorteres" else
If checkstatus = "E" Then checkstatus = "E - Påbegyndt" else
If checkstatus = "B" Then checkstatus = "B - I kø i Batheps" else
If checkstatus = "R" Then checkstatus = "R - Tjekkes for Ripfejl" else
If checkstatus = "K" Then checkstatus = "K - Klar"

checkprodsted = ("" & rsOracle("prmethod"))
If checkprodsted = "1" or null Then checkprodsted = "1" else
If checkprodsted = "2" or null Then checkprodsted = "2" else
If checkprodsted = "3" or null Then checkprodsted = "3" else
If checkprodsted = "4" or null Then checkprodsted = "4" else
If checkprodsted = "5" or null Then checkprodsted = "5" else
If checkprodsted = "6" or null Then checkprodsted = "6" else
If checkprodsted = "7" or null Then checkprodsted = "7" else
If checkprodsted = "8" or null Then checkprodsted = "8" else
If checkprodsted = "U" or null Then checkprodsted = "Ut" else
If checkprodsted = "S" or null Then checkprodsted = "10" else
If checkprodsted = "Y" or null Then checkprodsted = "11" else
If checkprodsted = "K" or null Then checkprodsted = "12" else
If checkprodsted = "E" or null Then checkprodsted = "13" else
If checkprodsted = "V" or null Then checkprodsted = "14" else
If checkprodsted = "F" or null Then checkprodsted = "SKS" else
If checkprodsted = "P" or null Then checkprodsted = "PP" else
If checkprodsted = "A" or null Then checkprodsted = "17" else
If checkprodsted = "C" or null Then checkprodsted = "Creatix" else
If checkprodsted = "?" or null Then checkprodsted = "Ukendt"
%>
<tr>
<td colspan="6" valign="top" width="100%">
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
<tr>
<td valign="top"><h4 style="margin:0 1;"><b>Gl. ordrenummer: </b><%=rsOracle("pickupadno")%></h4></td>
<td valign="top"><h4 style="margin:0 1;"></h4> </td>
<td valign="top"><h4 style="margin:0 1;"></h4> </td>
<td valign="top"><h4 style="margin:0 1;"></h4> </td>
</tr>
<tr>
<td valign="bottom"><h4 style="margin:0 1; "><b>Annoncetype:</b></h4>
<td valign="bottom"><h4 style="margin:0 1; "><b>Produktionssted:</b></h4>
<td valign="bottom"><h4 style="margin:0 1; "><b>Status:</b></h4>
<td valign="top"> </td>
</tr>
<tr>
<form method="post" action="default.asp?mode=update&ordrenummer=<%=rsOracle("adno")%>">
<td valign="top">
<h6 style="margin:0 1; ">
<select size="1" name="ddtbl_ad_type" style="border-style:solid; border-width:1; font-size: 7pt; background-color:#E6E6D0">
<option value="<%=rsOracle("ad_type")%>" selected><%=checktype%></option>
<option value="L">L - Liners</option>
<option value="D">D - DTP-egenproduktion</option>
<option value="M">M - Materiale</option>
<option value="S">S - Scanning</option>
<option value="N">N - Ikke elektronisk</option>
<option value="P">P - Via posten</option>
<option value="I">I - Via ISDN</option>
<option value="A">A - Via ADS</option>
</select>
</h6>
</td>

<td valign="top">
<h6 style="margin:0 1; ">
<select size="1" name="ddtbl_prmethod" style="border:1px solid #000000; font-size: 7pt; background-color:#E6E6D0">
<option value="<%=rsOracle("prmethod")%>" selected><%=checkprodsted%></option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="U">Ut</option>
<option value="S">10</option>
<option value="Y">11</option>
<option value="K">12</option>
<option value="E">13</option>
<option value="V">14</option>
<option value="F">SKS</option>
<option value="P">PP</option>
<option value="A">17</option>
<option value="C">Creatix </option>
<option value="?">Ukendt</option>
</select>
</h6>
</td>
<td valign="top">
<h6 style="margin:0 1; ">
<select size="1" name="ddtbl_ready" style="border-style:solid; border-width:1; font-size: 7pt; background-color:#E6E6D0">
<option value="<%=rsOracle("ready")%>" selected><%=checkstatus%></option>
<option value="">NY</option>
<option value="E">Påbegyndt</option>
<option value="S">Sortéres</option>
<option value="B">I kø i BatchEps</option>
<option value="R">Tjekkes for Ripcheck</option>
<option value="K">Klarmeldt</option>
</select>
</h6>
</td>
<td valign="top">
<p style="margin-top: 0; margin-bottom: 0"><INPUT type=submit value=ret></p>
</td>

</form>
</tr>
</table>

</td>
</tr>
<td colspan="2" valign="top" width="190">
<h4 style="margin:0 1; "><b>Størrelse: </b><%=(rsOracle("xsize")) & "x" & (rsOracle("ysize"))%></h4></td>
<td colspan="2" valign="top" width="184">
<h4 style="margin:0 1; "><b>Farver: </b><%=checkfarve%></h4></td>
<td colspan="2" valign="top" width="206"><h4><b>Plac. kode:  </b><%=rsOracle("class")%> <b>Underrubrik: </b><%=rsOracle("subclass")%></h4>
</td>
</tr>
<tr>
<td colspan="6" valign="top" width="206"><h4 style="margin: 0 1"><b>Indrykkes i:  </b>
<% DO WHILE NOT rsOracle.EOF %>
<%=rsOracle("paper") & ", "%>
<%
rsOracle.movenext
Loop
%>
</h4>
</td>
</tr>
<tr>
<td valign="top" colspan="6"><hr></td>
</tr>
<tr>
<td valign="top" width="112"><h3 style="margin:0 1; ">Ansvarlige DTP'er:</h3></td>
<td valign="top" width="75"><h4 style="margin:0 1; "><%=tmpVarMaker%></h4></td>
<td valign="top" width="134"><p style="margin: 0 1"></td>
<td valign="top" width="47"><p style="margin: 0 1"></td>
<td valign="top" width="107"><p style="margin: 0 1"> </td>
<td valign="top" width="96"><p style="margin: 0 1"> </td>
</tr>
<tr>
<td valign="top" width="112"><h3 style="margin:0 1; ">Ansvarlige:</h3></td>
<td valign="top" width="75"><h4 style="margin:0 1; "><%=tmpVarSalno%></h4></td>
<td valign="top" width="181" colspan="2"><h4 style="margin:0 1; "><b>Initialer: </b><a href="mailto:<%=tmpVarModifier%>@mail.dk"><img border="0" src="images/ikoner/email.gif"> <%=tmpVarModifier%></a></h4></td>
<td valign="top" width="107">
<p style="margin: 0 1"> </td>
<td valign="top" width="96">
<p style="margin: 0 1"> </td>
</tr>
<tr>
<%
chkremarks = ("" & tmpVarRemarks)
if chkremarks = "" or null then chkremarks = "ingen bemærkninger"
%>
<td colspan="6" valign="top" width="600"><h4 style="margin:0 1; "><b>Bemærkninger: </b><%=chkremarks%></h4></td>
</td>
</tr>
</table>
</td>
</tr>
<%

dbOracle.Close
Set dbOracle = Nothing
%>
<% End if %>
<% End if %>

</table>

<%
Set dboracle = CreateObject("ADODB.Connection")
strConn = "DSN=xxxxxxxx;Database=xxx;uid=xxxxxxxx;pwd=xxxxx"
get_adno = request.querystring("ordrenummer")&".qxd"
dboracle.Open strConn
strSQL = "Select * FROM ANNTID WHERE TEXT = '" & get_adno &"' order by timestamp"
Set rsoracle = CreateObject("ADODB.Recordset")
rsoracle.Open strSQL, dbOracle
%>
<% if not rsoracle.EOF then %>
<table border="2" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" bgcolor="#FFFFFF">
<tr>
<td colspan="3">
<h3>historik for <%=get_adno%></h3>
<tr>
<td width="60" bgcolor="#E6E6D0"><h3 style="margin: 0 3">dato & tid</h3></td>
<td width="40" bgcolor="#E6E6D0"><h3 style="margin: 0 3">handling</h3></td>
<td bgcolor="#E6E6D0"><h3 style="margin: 0 3">udført på arbejdsstation:</h3></td>
</tr>
<% do while not rsoracle.EOF %>
<tr>
<td>
<h4 style="margin: 0 3"><% =rsoracle("timestamp")%></h4>
</td>
<td>
<h4 style="margin: 0 3"><% =rsoracle("event")%></h4>
</td>
<td>
<h4 style="margin: 0 3"><% =rsoracle("stationid")%></h4>
</td>
</tr>
<%rsoracle.movenext%>
<% loop %>

<% end if %>
<%
rsoracle.Close
Set rsoracle = Nothing
Set SQL = Nothing
%>

</td>
</tr>
</table>
<%

dbOracle.Close
Set dbOracle = Nothing
%>


</td>
</tr>
</table>
</div>
<h6 align="center"><span style="font-weight: 400">Denne side er blevet vist <% =CounterHits %> gange</span></h6>
</body>
</html>
<% If mode = "update" then %>
<%
ADNO = Request.Querystring ("Ordrenummer")

Set dbOracle = CreateObject("ADODB.Connection")
strConn = "DSN=xxxxxxxx;Database=xxxx;uid=xxxxxxxx;pwd=xxxxx"
dbOracle.Open strConn

Ann_type = Request.Form("ddtbl_ad_type")
Pr_sted = Request.Form("ddtbl_prmethod")
Status = Request.Form("ddtbl_ready")

//SQLstmt = "UPDATE pub p, ad a SET a.ad_type = '" & Ann_type & "', p.prmethod = '" & Pr_sted & "',p.ready = '" & Status & "' WHERE p.adno = a.adno AND a.ADNO =" & ADNO
//'SQLstmt = SQLstmt & "VALUES ('" & Request.Form("ddtbl_ad_type") & "', '" & Request.Form("ddtbl_prmethod") & "','" & Request.Form("ddtbl_ready") & "')"
//response.write sqlstmt

SQLstmt = "UPDATE pub SET prmethod = '" & Pr_sted & "',ready = '" & Status & "' WHERE ADNO =" & ADNO
'SQLstmt = SQLstmt & "VALUES ('" & Request.Form("ddtbl_prmethod") & "','" & Request.Form("ddtbl_ready") & "')"

SQLstmt2 = "UPDATE Ad SET ad_type = '" & Ann_type & "' WHERE ADNO =" & ADNO
'SQLstmt2 = SQLstmt & "VALUES ('" & Request.Form("ddtbl_ad_type") & "')"

response.write sqlstmt
response.write sqlstmt2

dbOracle.Execute (SQLstmt)
dbOracle.Execute (SQLstmt2)

dbOracle.Close
Set dbOracle = nothing
Set SQLstmt = nothing
Set SQLstmt2 = nothing

response.redirect "default?ordrenummer=" & get_adno
End if
%>

Synes godt om

somaliomar Praktikant

29. august 2002 - 18:52 #24

Kigger på sagen...

Synes godt om

somaliomar Praktikant

29. august 2002 - 18:55 #25

Prøv at se om det her virker:


<%
Set dboracle = CreateObject("ADODB.Connection")
strConn = "DSN=xxxxxxxx;Database=xxx;uid=xxxxxxxx;pwd=xxxxx"
get_adno = request.querystring("ordrenummer")&".qxd"
dboracle.Open strConn
strSQL = "Select * FROM ANNTID WHERE TEXT = '" & get_adno &"' order by timestamp"
Set rsoracle = CreateObject("ADODB.Recordset")
rsoracle.Open strSQL, dbOracle
%>
<% if not rsoracle.EOF then %>
<table border="2" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" bgcolor="#FFFFFF">
<tr>
<td colspan="3">
<h3>historik for <%=get_adno%></h3>
<tr>
<td width="60" bgcolor="#E6E6D0"><h3 style="margin: 0 3">dato & tid</h3></td>
<td width="40" bgcolor="#E6E6D0"><h3 style="margin: 0 3">handling</h3></td>
<td bgcolor="#E6E6D0"><h3 style="margin: 0 3">udført på arbejdsstation:</h3></td>
<td bgcolor="#E6E6D0"><h3 style="margin: 0 3">tidsforbrug:</h3></td>
</tr>
<% do while not rsoracle.EOF %>
<tr>
<td>
<h4 style="margin: 0 3"><% =rsoracle("timestamp")%></h4>
</td>
<td>
<h4 style="margin: 0 3"><% =rsoracle("event")%></h4>
</td>
<td>
<h4 style="margin: 0 3"><% =rsoracle("stationid")%></h4>
</td>
<td>
<h4 style="margin: 0 3">

<%

If rsoracle("event") = "START" Then
eventstart = rsoracle("timestamp")
Else
eventstop = rsoracle("timestamp")
hour = datediff("h", eventstart, eventstop)
min = datediff("n", eventstart, eventstop)
sek = datediff("s", eventstart, eventstop)

Response.Write hour & ":" & min & ":" & sek
End If
%>
</h4>
</td>
</tr>
<%rsoracle.movenext%>
<% loop %>

<% end if %>
<%
rsoracle.Close
Set rsoracle = Nothing
Set SQL = Nothing
%>

</td>
</tr>
</table>
<%

dbOracle.Close
Set dbOracle = Nothing
%>

Synes godt om

Jman Praktikant

29. august 2002 - 18:58 #26

nope - jeg får en fejl:
Microsoft VBScript runtime error '800a01f5'

Illegal assignment: 'hour'

Synes godt om

Jman Praktikant

29. august 2002 - 19:01 #27

det skulle hedde hours

Synes godt om

Jman Praktikant

29. august 2002 - 19:02 #28

ok - det sklrider fremad (jeg er utrolig glad for din tid)
nu har jeg tidsforbrug, men den viser "0:11:627" ved første start/stop og "0:28:1673" ved anden - så man må vel kunne lave en eller anden forkortelse med decimaler ?

Synes godt om

Jman Praktikant

29. august 2002 - 19:05 #29

... og naturligvis sammenlægningen af tidsforbruget :)

Synes godt om

somaliomar Praktikant

29. august 2002 - 19:15 #30

Æhh...det har jeg aldrig oplevet før. Prøv med:

Response.Write hour & ":" & min & ":" & Left(sek, 2)

Synes godt om

Jman Praktikant

29. august 2002 - 19:23 #31

Den tager kun 2 cifre, men det er forkert regnet ud - det er ikke vitgit sekunderne tæller alligevel ikke med i sidste ende.. det er vigtigere at få lagt datdiff'erne sammen

Synes godt om

Jman Praktikant

29. august 2002 - 19:24 #32

Du får i hvert fald dine point - de er fuldt fortjente

Synes godt om

somaliomar Praktikant

29. august 2002 - 19:25 #33

"det er vigtigere at få lagt datdiff'erne sammen" Hvordan mener du det?

Synes godt om

somaliomar Praktikant

29. august 2002 - 19:26 #34

Hvordan mener du det? -> Hvad mener du med et?

Synes godt om

somaliomar Praktikant

29. august 2002 - 19:28 #35

Jeg takker for points 8)

Synes godt om

Jman Praktikant

29. august 2002 - 19:42 #36

ja, f.eks. en ordre, der har været åbnet 2 gange; 1. gang var den åben i 11 minutter og anden gang var den åben i 17 minutter.
Inder histaorikken skulle der så gerne stå "ordren har været under i behandling i 28 minutter"
Altså en sammenlægning af den kode du har lavet for mig.

Se evt. på det eksempel (den nederste tabel på http://www.jman.dk/exempel.htm) jeg lavede. De to tidsforbrug er lagt sammen til sidst

Synes godt om

somaliomar Praktikant

29. august 2002 - 19:51 #37

Mener du sådan her:

<%

If rsoracle("event") = "START" Then
eventstart = rsoracle("timestamp")
Else
eventstop = rsoracle("timestamp")
hours = datediff("h", eventstart, eventstop)
min = datediff("n", eventstart, eventstop)

If hours = 0 Then
Response.Write "Ordren har været under behandling i " & min & " minutter"
Else
Response.Write "Ordren har været under behandling i " & hours & " timer og " & min & " minutter"
End If
End If

%>

Synes godt om

Jman Praktikant

29. august 2002 - 19:58 #38

nej, nej.
Det du har lavet indtil nu er fint - den viser tiden godt nok nu mellem de forskellige START/STOP-sessioner.
Det jeg søger er den sammenlagte tid - d.v.s tiden fra den allerførste START til den allersidste SLUT.
men det skal så bare komme efter det, du allerede har lavet.

Synes godt om

Jman Praktikant

29. august 2002 - 19:58 #39

det er den linie, der hedder "samlet forbrug" på mit eksempel i den nederste tabel

Synes godt om

Jman Praktikant

29. august 2002 - 20:11 #40

jeg tænkte om man kunne lave en
select first where TEXT = get_adno
og en
select last where TEXT = get_adno

og sammenligne dem - ville det være en mulighed og i så fald....hvordan

Synes godt om

somaliomar Praktikant

29. august 2002 - 20:25 #41

Prøv lige om det her virker:


<%
Set dboracle = CreateObject("ADODB.Connection")
strConn = "DSN=xxxxxxxx;Database=xxx;uid=xxxxxxxx;pwd=xxxxx"
get_adno = request.querystring("ordrenummer")&".qxd"
dboracle.Open strConn
strSQL = "Select * FROM ANNTID WHERE TEXT = '" & get_adno &"' order by timestamp"
Set rsoracle = CreateObject("ADODB.Recordset")
rsoracle.Open strSQL, dbOracle
%>
<% if not rsoracle.EOF then %>
<table border="2" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" bgcolor="#FFFFFF">
<tr>
<td colspan="3">
<h3>historik for <%=get_adno%></h3>
<tr>
<td width="60" bgcolor="#E6E6D0"><h3 style="margin: 0 3">dato & tid</h3></td>
<td width="40" bgcolor="#E6E6D0"><h3 style="margin: 0 3">handling</h3></td>
<td bgcolor="#E6E6D0"><h3 style="margin: 0 3">udført på arbejdsstation:</h3></td>
<td bgcolor="#E6E6D0"><h3 style="margin: 0 3">tidsforbrug:</h3></td>
</tr>
<%
totalhours = 0
totalmins = 0

do while not rsoracle.EOF %>
<tr>
<td>
<h4 style="margin: 0 3"><% =rsoracle("timestamp")%></h4>
</td>
<td>
<h4 style="margin: 0 3"><% =rsoracle("event")%></h4>
</td>
<td>
<h4 style="margin: 0 3"><% =rsoracle("stationid")%></h4>
</td>
<td>
<h4 style="margin: 0 3">

<%

If rsoracle("event") = "START" Then
eventstart = rsoracle("timestamp")
Else
eventstop = rsoracle("timestamp")
hours = datediff("h", eventstart, eventstop)
min = datediff("n", eventstart, eventstop)
sek = datediff("s", eventstart, eventstop)

totalhours = totalhours + hours
totalmins = totalmins + min
totalseks = totalseks + sek

Response.Write hours & ":" & min & ":" & sek
End If
%>
</h4>
</td>
</tr>
<%rsoracle.movenext%>
<% loop %>

<% end if %>
<%
rsoracle.Close
Set rsoracle = Nothing
Set SQL = Nothing
%>

</td>
</tr>
</table>
<%
totalmins = totalmins + (totalseks div 60)
totalseks = totalseks mod 60
totalhours = totalhours + (totalmins div 60)
totalmins = totalmins mod 60

Response.Write "Samlet forbrug på ordre xxxxxx.qxd: " & totalhours & ":" & totalmins & ":" & totalseks

dbOracle.Close
Set dbOracle = Nothing
%>

Synes godt om

somaliomar Praktikant

29. august 2002 - 20:26 #42

"jeg tænkte om man kunne lave en
select first where TEXT = get_adno
og en
select last where TEXT = get_adno

og sammenligne dem - ville det være en mulighed og i så fald....hvordan"

Hvad vil du bruge det til?

Synes godt om

Jman Praktikant

29. august 2002 - 20:29 #43

næ - den gav en intern serverfejl

Synes godt om

somaliomar Praktikant

29. august 2002 - 20:30 #44

Kan du se hvor fejlen ligger?

Synes godt om

Jman Praktikant

29. august 2002 - 20:31 #45

den skriver bare intern serverfejl

Synes godt om

Jman Praktikant

29. august 2002 - 20:34 #46

jeg fandt den!!!!!
Det var + (totalseks div 60) og + (totalmins div 60)

Synes godt om

Jman Praktikant

29. august 2002 - 20:35 #47

denb kan åbenbart ikke lide de sekunder

Synes godt om

somaliomar Praktikant

29. august 2002 - 20:35 #48

Virker så alt som det skal

Synes godt om

Jman Praktikant

29. august 2002 - 20:40 #49

kun en lille detalje - og det er de forbandede sekunder.. men det vil jeg prøve at lege lidt med - ellers bliver de bare ikke vist - du skal have tusind tak for hjælpen!!

:oD

Synes godt om

somaliomar Praktikant

29. august 2002 - 20:43 #50

Det er pga. at div-operatoren ikke findes i VBScript.

Synes godt om

Jman Praktikant

29. august 2002 - 20:44 #51

ok - det bliver nok uden skunder, så

Synes godt om

somaliomar Praktikant

29. august 2002 - 20:45 #52

Prøv med "\" i stedet for "div":

totalmins = totalmins + (totalseks \ 60)
totalseks = totalseks mod 60
totalhours = totalhours + (totalmins \ 60)
totalmins = totalmins mod 60

Synes godt om

somaliomar Praktikant

29. august 2002 - 20:46 #53

<%
Set dboracle = CreateObject("ADODB.Connection")
strConn = "DSN=xxxxxxxx;Database=xxx;uid=xxxxxxxx;pwd=xxxxx"
get_adno = request.querystring("ordrenummer")&".qxd"
dboracle.Open strConn
strSQL = "Select * FROM ANNTID WHERE TEXT = '" & get_adno &"' order by timestamp"
Set rsoracle = CreateObject("ADODB.Recordset")
rsoracle.Open strSQL, dbOracle
%>
<% if not rsoracle.EOF then %>
<table border="2" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" bgcolor="#FFFFFF">
<tr>
<td colspan="3">
<h3>historik for <%=get_adno%></h3>
<tr>
<td width="60" bgcolor="#E6E6D0"><h3 style="margin: 0 3">dato & tid</h3></td>
<td width="40" bgcolor="#E6E6D0"><h3 style="margin: 0 3">handling</h3></td>
<td bgcolor="#E6E6D0"><h3 style="margin: 0 3">udført på arbejdsstation:</h3></td>
<td bgcolor="#E6E6D0"><h3 style="margin: 0 3">tidsforbrug:</h3></td>
</tr>
<%
totalhours = 0
totalmins = 0

do while not rsoracle.EOF %>
<tr>
<td>
<h4 style="margin: 0 3"><% =rsoracle("timestamp")%></h4>
</td>
<td>
<h4 style="margin: 0 3"><% =rsoracle("event")%></h4>
</td>
<td>
<h4 style="margin: 0 3"><% =rsoracle("stationid")%></h4>
</td>
<td>
<h4 style="margin: 0 3">

<%

If rsoracle("event") = "START" Then
eventstart = rsoracle("timestamp")
Else
eventstop = rsoracle("timestamp")
hours = datediff("h", eventstart, eventstop)
min = datediff("n", eventstart, eventstop)
sek = datediff("s", eventstart, eventstop)

totalhours = totalhours + hours
totalmins = totalmins + min
totalseks = totalseks + sek

Response.Write hours & ":" & min & ":" & sek
End If
%>
</h4>
</td>
</tr>
<%rsoracle.movenext%>
<% loop %>

<% end if %>
<%
rsoracle.Close
Set rsoracle = Nothing
Set SQL = Nothing
%>

</td>
</tr>
</table>
<%
totalmins = totalmins + (totalseks \ 60)
totalseks = totalseks mod 60
totalhours = totalhours + (totalmins \ 60)
totalmins = totalmins mod 60

Response.Write "Samlet forbrug på ordre xxxxxx.qxd: " & totalhours & ":" & totalmins & ":" & totalseks

dbOracle.Close
Set dbOracle = Nothing
%>

Synes godt om

Jman Praktikant

29. august 2002 - 21:04 #54

stadig ikke - den giver ikke fejl men de to tal jeg har på min ordre hedder
1:30:1840 og 0:6:354

Det skulle have været 0:30:40 og 0:05:54

ammenlagt skulle det give 0:36:34 men det giver 2:12:34

Synes godt om

somaliomar Praktikant

29. august 2002 - 21:09 #55

Kan vi ikke fortsætte i morgen?

Synes godt om

Jman Praktikant

29. august 2002 - 21:11 #56

det behøves ikke - jeg er taknemmelig for sådan det ser ud nu - Jeg viller meget gerne vise dig resultatet, men det er på intranet, sorry

Synes godt om

Jman Praktikant

30. august 2002 - 15:12 #57

sidespørgsmål (kan godt oprette et nyt sp, hvis du ønsker det)

Jeg har lavet en historik, hvor jeg slår alle ordre op på en given dato.
Den viser også alle ordrene fint. ...men-men-men det er kun den sidste ordre, hvor den sammenlagte tid bliver beregnet... Hvorledes kan man slå alle ordrene sammen i bunden, så der er en sammenlgt tidsberegning på alle ordrene ?

Synes godt om

Jman Praktikant

30. august 2002 - 15:16 #58

nej - jeg oprette lige et nyt sp :)

Se http://www.eksperten.dk/spm/252195

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS