Sidder med et lidt irriterende problem, som jeg nu har brugt et par dage til
at stirre mig blind på. Er ved at lave et skemaudtræk, som egentlig fungerer
fint!!, så længe at der ikke er lavet dobbeltbookning af en underviser til
2 eller flere lokaler i samme lektion. F.eks.
underviser abc, skal undervise klasse xyz i lokale 2 og 4 i lektion 3.
Forekommer denne hændelse, så kan min kode ikke rigtig gennemskue at den
bare skal skippe bookningen af den ene forekomst evt. nr. to og så ellers
bare gå videre i de øvrige poster.
Klip af kode, som det kan ses så har jeg gentagende kode for hver dag i ugen
med hvert sit recordsæt og jeg tror det er her det går galt med min
LektionsTeller og LektionsNr for hvert recordsæt.
Jeg kan godt få det til at virke ved at have en tæller for hvert recordsæt,
men så kan jeg ikke få posterne vist ved siden af hinanden.!?!?
Se eksempel på
www.hgmf.dk/skema2 og indtast pø for uge 10 og 9 lektioner
Det drejer sig om onsdag lektion 6, der vises som lektion 7 og tom hvidt
felt og fredag lektion 3, der vises som tom lektion 4. Disse skal sådan set
bare ikke vises.
En version hvor det virker men der har jeg snydt med opstillingen af
tabellerne og denne metode virker ikke på den nye skemaweb-version.
www.hgmf.dk/skema
Håber der er nogen der kan give mig et skub til at komme videre. - Hvis en
venlig sjæl vil se hele koden, så sig endelig til.
<%
AntalLektioner = 9
LektionsTeller = 1
Do While LektionsTeller <= AntalLektioner
Select Case True
Case rsMandag.eof %>
<tr>
<td align="center" width="28"
bgcolor="#C2C9D1"><font class="skematext">
<%'response.write(LektionsTeller)%>
</font> </td>
<td align="left" width="17"
bgcolor="#E0E5E9"><font class="skematext"><br>
<br>
</font></td>
<td align="left" width="123"
bgcolor="#E0E5E9"><font class="skematext"><br>
<br>
</font></td>
<%Case LektionsTeller =
rsMandag("x01_Temp_LEKTIONSNR")%>
<tr>
<td align="center" width="28"
bgcolor="#C2C9D1"><font class="skematext">
<%response.write(LektionsTeller)%>
</font> </td>
<td align="left" bgcolor="#E0E5E9"><font
class="skematext"><%=(rsMandag("STARTTID"))%><br>
<%=(rsMandag("SLUTTID"))%></font> </td>
<td align="left" bgcolor="#E0E5E9"><font
class="skematext"><%=left(rsMandag("AKTIVITET"),11)%>
- <%=left(rsMandag("LOKALENR"),6)%><br>
<%=(rsMandag("x04_Temp_KORT_BETEGNELSE"))%></font>
</td>
<% SidsteLektionsTid = (rsMandag("STARTTID")) '
Variabel til check på sidste lektions StartTid
rsMandag.MoveNext
'Vi laver et check om lektionteller er større end næste lektionsnr, hvis den
er det har vi en dobbeltbookning og lektionsteller sættes tilbage for at
skippe dobbeltbookning
Case LektionsTeller > rsMandag("x01_Temp_LEKTIONSNR")
LektionsTeller=LektionsTeller-1
rsMandag.MoveNext
Case else %>
<tr>
<td align="center" width="28"
bgcolor="#C2C9D1"><font class="skematext">
<%response.write(LektionsTeller)%>
</font> </td>
<td bgcolor="#E0E5E9"><font class="text"><br>
<br>
</font></td>
<td bgcolor="#E0E5E9"><font
class="skematext"> </font>
</td>
<%end select%>
mere kode for hver dag.....
<%Select Case True
Case rsFredag.eof %>
<td width="17" bgcolor="#E0E5E9"><font
class="skematext"><br>
<br>
</font></td>
<td align="left" width="123"
bgcolor="#E0E5E9"><font class="skematext"> </font></td>
<%case LektionsTeller = rsFredag("x01_Temp_LEKTIONSNR")%>
<td align="left" bgcolor="#E0E5E9"><font class="skematext">
<%=(rsFredag("STARTTID"))%><br>
<%=(rsFredag("SLUTTID"))%></font></td>
<td align="left" bgcolor="#E0E5E9"><font
class="skematext"><%=left(rsFredag("AKTIVITET"),11)%>
- <%=left(rsFredag("LOKALENR"),6)%><br>
<%=(rsFredag("x04_Temp_KORT_BETEGNELSE"))%></font>
</td>
<% SidsteLektionsTid = (rsFredag("STARTTID")) ' Variabel til check
på sidste lektions StartTid
rsFredag.MoveNext
%>
<%case LektionsTeller > rsFredag("x01_Temp_LEKTIONSNR")
LektionsTeller = rsFredag("x01_Temp_LEKTIONSNR")
rsFredag.movenext %>
<% case else%>
<td bgcolor="#E0E5E9"><font class="skematext"><br>
</font></td>
<td bgcolor="#E0E5E9"><font class="skematext"><br>
</font></td>
<%end select%>
<% lektionsTeller = LektionsTeller+1
loop%>