private void importerTransaktionerToolStripMenuItem_Click(object sender, EventArgs e)
{
int? lastBilag = null;
string Kontonavn = null;
tblbilag recBilag = null;
var qryPosteringer = from p in Program.karPosteringer
join b in Program.dbDataTransSumma.tbltrans on new { p.Regnskabid, p.Id, p.Nr } equals new { Regnskabid = b.regnskabid, Id = b.id, Nr = b.nr } into tbltrans
from b in tbltrans.DefaultIfEmpty(new tbltran {
pid = 0, regnskabid = null, id = null, nr = null
})
where b.pid == 0
orderby p.Regnskabid, p.Bilag, p.Id, p.Nr
select p;
int antal = qryPosteringer.Count();
foreach (var p in qryPosteringer)
{
if ((!(p.Bilag == null)) && (lastBilag != p.Bilag))
{
try
{
recBilag = (from b in Program.dbDataTransSumma.tblbilags
where b.regnskabid == p.Regnskabid && b.bilag == p.Bilag
select b).First();
}
catch
{
recBilag = new tblbilag
{
regnskabid = p.Regnskabid,
bilag = p.Bilag,
dato = p.Dato,
udskriv = true,
};
Program.dbDataTransSumma.tblbilags.InsertOnSubmit(recBilag);
}
}
try
{
Kontonavn = (from b in Program.karKontoplan where b.Kontonr == p.Konto select b.Kontonavn).First();
}
catch
{
Kontonavn = null;
}
tbltran recTrans = new tbltran
{
regnskabid = p.Regnskabid,
tekst = p.Tekst,
kontonr = p.Konto,
kontonavn = Kontonavn,
id = p.Id,
nr = p.Nr,
belob = p.Nettobeløb + p.Momsbeløb,
moms = p.Momsbeløb,
debet = (p.Nettobeløb >= 0) ? p.Nettobeløb : (decimal?)null,
kredit = (p.Nettobeløb < 0) ? -p.Nettobeløb : (decimal?)null,
};
Program.dbDataTransSumma.tbltrans.InsertOnSubmit(recTrans);
if (!(p.Bilag == 0))
{
recBilag.tbltrans.Add(recTrans);
}
lastBilag = p.Bilag;
}
Program.dbDataTransSumma.SubmitChanges();
lastBilag = 0;
var qryKladder = from k in Program.karKladder
join b in Program.dbDataTransSumma.tblkladders on new { k.Regnskabid, k.Id } equals new { Regnskabid = b.regnskabid, Id = b.id } into tblkladder
from b in tblkladder.DefaultIfEmpty(new tblkladder {
pid = 0, regnskabid = null, id = null
})
where b.pid == 0
orderby k.Regnskabid, k.Bilag, k.Id
select k;
antal = qryKladder.Count();
foreach (var k in qryKladder)
{
if ((!(k.Bilag == null)) && (lastBilag != k.Bilag))
{
try
{
recBilag = (from b in Program.dbDataTransSumma.tblbilags
where b.regnskabid == k.Regnskabid && b.bilag == k.Bilag
select b).First();
}
catch
{
recBilag = new tblbilag
{
regnskabid = k.Regnskabid,
bilag = k.Bilag,
dato = k.Dato,
udskriv = true,
};
Program.dbDataTransSumma.tblbilags.InsertOnSubmit(recBilag);
}
}
tblkladder recKladder = new tblkladder
{
regnskabid = k.Regnskabid,
tekst = k.Tekst,
afstemningskonto = k.Afstemningskonto,
belob = k.Belob,
konto = k.Konto,
momskode = k.Momskode,
faktura = k.Faktura,
id = k.Id,
};
Program.dbDataTransSumma.tblkladders.InsertOnSubmit(recKladder);
if (!(k.Bilag == 0))
{
recBilag.tblkladders.Add(recKladder);
}
lastBilag = k.Bilag;
}
Program.dbDataTransSumma.SubmitChanges();
}
private void opdaterBilagToolStripMenuItem_Click(object sender, EventArgs e)
{
var qryPosteringer = from p in Program.karPosteringer
join b in Program.dbDataTransSumma.tbltrans on new { p.Regnskabid, p.Id, p.Nr } equals new { Regnskabid = b.regnskabid, Id = b.id, Nr = b.nr } into tbltrans
from b in tbltrans.DefaultIfEmpty(new tbltran {
pid = 0, regnskabid = null, id = null, nr = null
})
where b.pid > 0
orderby p.Regnskabid, p.Bilag, p.Id, p.Nr
select p;
int antal = qryPosteringer.Count();
foreach (var p in qryPosteringer)
{
if (p.Sag > 0)
{
try
{
tbltran recTrans = (from b in Program.dbDataTransSumma.tbltrans
where b.regnskabid == p.Regnskabid && b.id == p.Id && b.nr == p.Nr
select b).First();
recTrans.sag = p.Sag;
}
catch
{
var x = 1;
}
}
}
Program.dbDataTransSumma.SubmitChanges();
var qryKladder = from k in Program.karKladder
join b in Program.dbDataTransSumma.tblkladders on new { k.Regnskabid, k.Id } equals new { Regnskabid = b.regnskabid, Id = b.id } into tblkladder
from b in tblkladder.DefaultIfEmpty(new tblkladder {
pid = 0, regnskabid = null, id = null
})
where b.pid > 0
orderby k.Regnskabid, k.Bilag, k.Id
select k;
antal = qryKladder.Count();
foreach (var k in qryKladder)
{
if ((!(k.Sag == null)) && (k.Sag > 0))
{
try
{
tblkladder recKladder = (from b in Program.dbDataTransSumma.tblkladders
where b.regnskabid == k.Regnskabid && b.id == k.Id
select b).First();
recKladder.sag = k.Sag;
}
catch
{
var y = 1;
}
}
}
Program.dbDataTransSumma.SubmitChanges();
}
