I Alt om DATA nr. 4/2006 handler kodekassen om en ASP.NET2-applikation der gør det nemt at oprette bilag til udgiftrefundering.

Se artiklen i bladet for information om hvordan applikationen er opbygget og kan installeres. Koden kan du finde her:
Udgiftsrefundering_website.zip (6,96 KB)
Applikationen er rimelig simpel, men skal man pille noget interessant ud er det opbygningen af et dataset med to tabeller og en indbyrdes relation. Dataset'et benyttes til at skabe tilstand mellem postbacks og gør det muligt at oprette, rette og slette bilag. Koden er som følger (find den også i zip-filen):
Public Shared Function OpretUdgiftsDatabase( _
ByVal filMedKonti As String) As DataSet
Dim dt As DataTable
Dim dc As DataColumn
Dim ds As New DataSet("udgiftsdatabase")
' Ny tabel med felter
dt = New DataTable("udgift")
dc = New Data.DataColumn("Kontonummer", _
GetType(System.String))
dt.Columns.Add(dc)
dc = New Data.DataColumn("Tekst", _
GetType(System.String))
dt.Columns.Add(dc)
dc = New Data.DataColumn("Beløb", _
GetType(System.Double))
dt.Columns.Add(dc)
ds.Tables.Add(dt)
' Ny tabel med felter
dt = New Data.DataTable("konto")
dc = New Data.DataColumn("Kontonummer", _
GetType(System.String))
dt.Columns.Add(dc)
dc = New Data.DataColumn("Navn", _
GetType(System.String))
dt.Columns.Add(dc)
dc = New Data.DataColumn("Default", _
GetType(System.Boolean))
dt.Columns.Add(dc)
dc = New Data.DataColumn("Saldo", _
GetType(System.Double))
dc.DefaultValue = 0
dt.Columns.Add(dc)
' opret poster fra XML-fil
Dim doc As New System.Xml.XmlDocument
doc.Load(filMedKonti)
For Each n As System.Xml.XmlNode In _
doc.SelectNodes("//konto")
dt.Rows.Add(n.Attributes("kontonummer") _
.InnerText, n.Attributes("navn").InnerText, _
n.Attributes("default").InnerText)
Next
ds.Tables.Add(dt)
' Opret relation mellem de to tabeller
Dim dr As New DataRelation("konto_udgift", _
ds.Tables("konto").Columns("kontonummer"), _
ds.Tables("udgift").Columns("kontonummer"))
ds.Relations.Add(dr)
Return ds
End Function
For at prøve at afvikle applikationen selv kan du hente den (endnu) gratis Visual Web Developer Express fra http://msdn.microsoft.com/vs. Når Visual Studio er installeret opretter du et nyt tomt website, og filer og mapper fra zip-filen trækkes ind i Solution Explorer-vinduet. Højreklik på refundering.aspx og angiv at denne side er startside. Tryk herefter på F5 hvorefter den indbyggede web server og Internet Explorer starter op.
Applikationen er i øvrigt oplagt til at teste AJAX/ATLAS-teknologi hvis man har mod på det.