public int OrderFaknrUpdate()
{
var qry = from k in Program.karFakturaer_s
where k.faknr > 0
join f in Program.dbData3060.Tblfak on k.fakid equals f.SFakID
where f.SFaknr == null
select new { f.Id, SFaknr = k.faknr };
int AntalFakturaer = qry.Count();
if (qry.Count() > 0)
{
foreach (var k in qry)
{
try
{
Tblfak rec_fak = (from f in Program.dbData3060.Tblfak
where f.Id == k.Id
select f).First();
rec_fak.SFaknr = k.SFaknr;
}
catch (System.InvalidOperationException)
{
throw;
}
}
Program.dbData3060.SubmitChanges();
}
return(AntalFakturaer);
}
private void cmdKopier_Click(object sender, EventArgs e)
{
FrmMain frmMain = this.ParentForm as FrmMain;
try
{
FrmNyfaktura frmNyfaktura = frmMain.GetChild("Ny faktura") as FrmNyfaktura;
Tblfak recFak = this.tblfakBindingSource.Current as Tblfak;
frmNyfaktura.AddNyFaktura(recFak);
}
catch { }
}
public void AddNyFaktura(Tblfak recFak)
{
var qry = from k in recFak.Tblfaklin
select new Tblwfaklin
{
Varenr = k.Varenr,
Tekst = k.Tekst,
Konto = k.Konto,
Momskode = k.Momskode,
Antal = k.Antal,
Enhed = k.Enhed,
Pris = k.Pris,
Rabat = k.Rabat,
Moms = k.Moms,
Nettobelob = k.Nettobelob,
Bruttobelob = k.Bruttobelob,
};
int antal = qry.Count();
if (antal > 0)
{
Tblwfak recwFak = new Tblwfak
{
Sk = recFak.Sk,
Dato = recFak.Dato,
Konto = recFak.Konto,
};
foreach (var k in qry)
{
recwFak.Tblwfaklin.Add(k);
}
this.tblwfakBindingSource.Add(recwFak);
}
this.tblwfakBindingSource.MoveLast();
}
public int Order2Summa()
{
var rec_regnskab = Program.qryAktivRegnskab();
if (rec_regnskab.Afsluttet == true)
{
return(0);
}
DateTime?Startdato = rec_regnskab.Start;
DateTime?Slutdato = rec_regnskab.S**t;
if (rec_regnskab.DatoLaas != null)
{
if (rec_regnskab.DatoLaas > Startdato)
{
Startdato = rec_regnskab.DatoLaas;
}
}
var qry_ord = from f in Program.dbData3060.Tblfak
where f.SFakID == null && Startdato <= f.Betalingsdato && f.Betalingsdato <= Slutdato
join b in Program.dbData3060.Tblbetlin on f.Faknr equals b.Faknr
where b.Pbstranskode == "0236" || b.Pbstranskode == "0297"
select new { f.Id, Pbsfaknr = f.Faknr, f.Nr, f.Advisbelob, f.Betalingsdato, f.Vnr, f.Bogfkonto, b.Indbetalingsdato };
int AntalOrdre = qry_ord.Count();
if (AntalOrdre > 0)
{
DateTime nu = DateTime.Now;
DateTime ToDay = new DateTime(nu.Year, nu.Month, nu.Day);;
int SidsteSFakID;
int SidsteRec_no;
try
{
SidsteSFakID = (from f in Program.karFakturaer_s select f.fakid).Max();
}
catch (System.InvalidOperationException)
{
SidsteSFakID = 0;
}
try
{
SidsteRec_no = (from f in Program.karFakturaer_s select f.rec_no).Max();
}
catch (System.InvalidOperationException)
{
SidsteRec_no = 0;
}
Program.karFakturastr_s = null;
Program.karFakturavarer_s = null;
foreach (var o in qry_ord)
{
SidsteSFakID++;
SidsteRec_no++;
int orebelob = (int)o.Advisbelob * 100;
ordtype_s ord = new ordtype_s
(
SidsteSFakID, //fakid
ToDay, //(o.Betalingsdato > o.Indbetalingsdato) ? (DateTime)o.Betalingsdato : (DateTime)o.Indbetalingsdato, //dato
ToDay, //(DateTime)o.Betalingsdato, //forfaldsdato
orebelob, //fakbeløb i øre
(int)Nr2Debktonr(o.Nr) //debitornr
);
recFakturaer_s rec = new recFakturaer_s {
rec_no = SidsteRec_no, rec_data = ord
};
Program.karFakturaer_s.Add(rec);
var m_rec = (from m in Program.karMedlemmer where m.Nr == o.Nr select m).First();
recFakturastr_s rec_Fakturastr_s = new recFakturastr_s
{
Fakid = SidsteSFakID.ToString(),
Navn = m_rec.Navn,
Adresse = m_rec.Adresse,
Postnr = m_rec.Postnr,
Bynavn = m_rec.Bynavn,
Faknr = (int)o.Pbsfaknr,
Email = m_rec.Email
};
Program.karFakturastr_s.Add(rec_Fakturastr_s);
recFakturavarer_s rec_Fakturavarer_s = new recFakturavarer_s
{
Fakid = SidsteSFakID.ToString(),
Varenr = (int)o.Vnr,
VareTekst = "Puls 3060 kontingent",
Bogfkonto = (int)o.Bogfkonto,
Antal = 1,
Fakturabelob = (double)o.Advisbelob
};
Program.karFakturavarer_s.Add(rec_Fakturavarer_s);
try
{
Tblfak rec_fak = (from f in Program.dbData3060.Tblfak
where f.Id == o.Id
select f).First();
rec_fak.SFakID = SidsteSFakID;
}
catch (System.InvalidOperationException)
{
throw;
}
}
Program.karFakturaer_s.save();
Program.karFakturastr_s.save();
Program.karFakturavarer_s.save();
try
{
recStatus rec_Status = (from s in Program.karStatus where s.key == "SidsteSFakID" select s).First();
rec_Status.value = SidsteSFakID.ToString();
}
catch (System.InvalidOperationException)
{
recStatus rec_Status = new recStatus
{
key = "SidsteSFakID",
value = SidsteSFakID.ToString()
};
Program.karStatus.Add(rec_Status);
}
Program.karStatus.save();
Program.dbData3060.SubmitChanges();
}
return(AntalOrdre);
}
public void ImportSalgsfakturaer()
{
int? lastFakid = null;
Tblfak recFak = null;
var rec_regnskab = Program.qryAktivRegnskab();
var qrySFak = from sfv in Program.karFakturavarer_s
join sf in Program.karFakturaer_s on new { fakid = sfv.Fakid } equals new { fakid = sf.fakid }
where sf.faknr != 0 && sf.faktype == 0
join fl in Program.dbDataTransSumma.Tblfaklin
on new
{
regnskabsid = (int?)rec_regnskab.Rid,
fakid = (int?)sfv.Fakid,
sk = "S",
line = (int?)sfv.Line
}
equals new
{
regnskabsid = fl.Regnskabid,
fakid = fl.Fakid,
sk = fl.Sk,
line = fl.Faklinnr
}
into tblfaklin
from fl in tblfaklin.DefaultIfEmpty(new Tblfaklin {
Pid = 0, Fakpid = 0, Regnskabid = null
})
where fl.Pid == 0
orderby sfv.Fakid, sfv.Line
select new
{
Regnskabid = rec_regnskab.Rid,
Sk = "S",
Fakid = sfv.Fakid,
Faknr = sf.faknr,
Dato = sf.dato,
debitornr = sf.debitornr,
Faklinnr = sfv.Line,
Varenr = sfv.Varenr,
Tekst = sfv.VareTekst,
Konto = sfv.Bogfkonto,
Momskode = KarKontoplan.getMomskode(sfv.Bogfkonto),
Antal = sfv.Antal,
Enhed = sfv.Enhed,
Pris = sfv.Pris,
Rabat = sfv.Rabat,
Moms = sfv.Moms,
Nettobelob = sfv.Nettobelob,
Bruttobelob = sfv.Bruttobelob,
};
int antal = qrySFak.Count();
foreach (var s in qrySFak)
{
if ((!(s.Fakid == 0)) && (lastFakid != s.Fakid))
{
try
{
recFak = (from f in Program.dbDataTransSumma.Tblfak
where f.Regnskabid == rec_regnskab.Rid && f.Sk == "S" && f.Fakid == s.Fakid
select f).First();
}
catch
{
recFak = new Tblfak
{
Udskriv = true,
Regnskabid = s.Regnskabid,
Sk = s.Sk,
Fakid = s.Fakid,
Faknr = s.Faknr,
Dato = s.Dato,
Konto = s.debitornr
};
Program.dbDataTransSumma.Tblfak.InsertOnSubmit(recFak);
}
}
Tblfaklin recFaklin = new Tblfaklin
{
Sk = s.Sk,
Regnskabid = s.Regnskabid,
Fakid = s.Fakid,
Faklinnr = s.Faklinnr,
Varenr = s.Varenr.ToString(),
Tekst = s.Tekst,
Konto = s.Konto,
Momskode = s.Momskode,
Antal = s.Antal,
Enhed = s.Enhed,
Pris = s.Pris,
Rabat = s.Rabat,
Moms = s.Moms,
Nettobelob = s.Nettobelob,
Bruttobelob = s.Bruttobelob
};
Program.dbDataTransSumma.Tblfaklin.InsertOnSubmit(recFaklin);
if (!(s.Fakid == 0))
{
recFak.Tblfaklin.Add(recFaklin);
}
lastFakid = s.Fakid;
}
Program.dbDataTransSumma.SubmitChanges();
}
