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 int BogforIndBetalinger()
{
int saveBetid = 0;
var bogf = from s in Program.karFakturaer_s
//where s.saldo != 0
join f in Program.dbData3060.Tblfak on s.fakid equals f.SFakID
where f.SFaknr != null
join m in Program.karMedlemmer on f.Nr equals m.Nr
join bl in Program.dbData3060.Tblbetlin on f.Faknr equals bl.Faknr
join b in Program.dbData3060.Tblbet on bl.Betid equals b.Id
where b.Summabogfort != true
join p in Program.dbData3060.Tblfrapbs on b.Frapbsid equals p.Id
orderby p.Id, b.Id, bl.Id
select new
{
Frapbsid = p.Id,
p.Leverancespecifikation,
Betid = b.Id,
GruppeIndbetalingsbelob = b.Indbetalingsbelob,
Betlinid = bl.Id,
Fakid = f.Id,
bl.Betalingsdato,
bl.Indbetalingsdato,
m.Navn,
bl.Indbetalingsbelob,
f.SFaknr
};
int AntalBetalinger = bogf.Count();
if (bogf.Count() > 0)
{
DateTime nu = DateTime.Now;
DateTime ToDay = new DateTime(nu.Year, nu.Month, nu.Day);;
int BS1_SidsteNr = 0;
try
{
recStatus rec_Status = (from s in Program.karStatus where s.key == "BS1_SidsteNr" select s).First();
BS1_SidsteNr = int.Parse(rec_Status.value);
}
catch (System.InvalidOperationException)
{
}
Program.karKladde = null;
foreach (var b in bogf)
{
if (saveBetid != b.Betid) // ny gruppe
{
saveBetid = b.Betid;
recKladde gkl = new recKladde
{
Dato = ToDay, //(b.Betalingsdato > b.Indbetalingsdato) ? (DateTime)b.Betalingsdato : (DateTime)b.Indbetalingsdato,
Bilag = ++BS1_SidsteNr,
Tekst = "Indbetalingskort K 81131945-" + ((DateTime)b.Indbetalingsdato).Day + "." + ((DateTime)b.Indbetalingsdato).Month,
Afstemningskonto = "Bank",
Belob = b.GruppeIndbetalingsbelob,
Kontonr = null,
Faknr = null
};
Program.karKladde.Add(gkl);
var rec_bet = (from ub in Program.dbData3060.Tblbet where ub.Id == b.Betid select ub).First();
rec_bet.Summabogfort = true;
}
recKladde kl = new recKladde
{
Dato = ToDay, //(b.Betalingsdato > b.Indbetalingsdato) ? (DateTime)b.Betalingsdato : (DateTime)b.Indbetalingsdato,
Bilag = BS1_SidsteNr,
Tekst = "F" + b.SFaknr + " " + b.Navn,
Afstemningskonto = null,
Belob = b.Indbetalingsbelob,
Kontonr = 56100,
Faknr = b.SFaknr
};
Program.karKladde.Add(kl);
}
Program.karStatus.save();
Program.karKladde.save();
Program.dbData3060.SubmitChanges();
}
return(AntalBetalinger);
}
public int BogforUdBetalinger(int lobnr)
{
var bogf = from f in Program.karFakturaer_k
where f.saldo != 0
join o in Program.dbData3060.Tbloverforsel on f.fakid equals o.SFakID
where o.Tilpbsid == lobnr
join m in Program.karMedlemmer on o.Nr equals m.Nr
orderby o.Betalingsdato ascending
select new
{
Fakid = o.Id,
m.Navn,
o.SFaknr,
o.Betalingsdato,
o.Advisbelob
};
int AntalBetalinger = bogf.Count();
if (bogf.Count() > 0)
{
int BS1_SidsteNr = 0;
try
{
recStatus rec_Status = (from s in Program.karStatus where s.key == "BS1_SidsteNr" select s).First();
BS1_SidsteNr = int.Parse(rec_Status.value);
}
catch (System.InvalidOperationException)
{
}
Program.karKladde = null;
foreach (var b in bogf)
{
recKladde gkl = new recKladde
{
Dato = clsOverfoersel.bankdageplus((DateTime)b.Betalingsdato, -1),
Bilag = ++BS1_SidsteNr,
Tekst = "Overførsel",
Afstemningskonto = "Bank",
Belob = -b.Advisbelob,
Kontonr = null,
Faknr = null
};
Program.karKladde.Add(gkl);
recKladde kl = new recKladde
{
Dato = clsOverfoersel.bankdageplus((DateTime)b.Betalingsdato, -1),
Bilag = BS1_SidsteNr,
Tekst = "KF" + b.SFaknr + " " + b.Navn,
Afstemningskonto = null,
Belob = -b.Advisbelob,
Kontonr = 65100,
Faknr = b.SFaknr
};
Program.karKladde.Add(kl);
}
Program.karStatus.save();
Program.karKladde.save();
Program.dbData3060.SubmitChanges();
}
return(AntalBetalinger);
}
public int BogforIndBetalinger()
{
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;
}
}
int saveBetid = 0;
var bogf = from bl in Program.dbData3060.tblbetlins
where (bl.pbstranskode == "0236" || bl.pbstranskode == "0297") && (Startdato <= bl.indbetalingsdato && bl.indbetalingsdato <= Slutdato)
join b in Program.dbData3060.tblbets on bl.betid equals b.id
where b.summabogfort == null || b.summabogfort == false
join p in Program.dbData3060.tblfrapbs on b.frapbsid equals p.id
orderby p.id, b.id, bl.id
select new
{
Frapbsid = p.id,
p.leverancespecifikation,
Betid = b.id,
GruppeIndbetalingsbelob = b.indbetalingsbelob,
Betlinid = bl.id,
bl.betalingsdato,
bl.indbetalingsdato,
bl.indbetalingsbelob,
bl.faknr,
bl.debitorkonto
};
int AntalBetalinger = bogf.Count();
if (bogf.Count() > 0)
{
DateTime nu = DateTime.Now;
DateTime ToDay = new DateTime(nu.Year, nu.Month, nu.Day);;
int BS1_SidsteNr = 0;
try
{
recStatus rec_Status = (from s in Program.karStatus where s.key == "BS1_SidsteNr" select s).First();
BS1_SidsteNr = int.Parse(rec_Status.value);
}
catch (System.InvalidOperationException)
{
}
Program.karKladde = null;
foreach (var b in bogf)
{
if (saveBetid != b.Betid) // ny gruppe
{
saveBetid = b.Betid;
recKladde gkl = new recKladde
{
Dato = ToDay,
Bilag = ++BS1_SidsteNr,
Tekst = "Indbetalingskort K 81131945-" + ((DateTime)b.indbetalingsdato).Day + "." + ((DateTime)b.indbetalingsdato).Month,
Afstemningskonto = "Bank",
Belob = b.GruppeIndbetalingsbelob,
Kontonr = null,
Faknr = null,
Sagnr = null
};
Program.karKladde.Add(gkl);
var rec_bet = (from ub in Program.dbData3060.tblbets where ub.id == b.Betid select ub).First();
rec_bet.summabogfort = true;
}
/*
* var fak = from f in Program.dbData3060.tblfaks
* where f.faknr == b.faknr
* join m in Program.dbData3060.tblMedlems on f.Nr equals m.Nr
* select new { f.faknr, f.Nr, m.Navn, f.bogfkonto };
*/
var bet = from bi in Program.dbData3060.tblbetalingsidentifikations
where bi.betalingsidentifikation == b.debitorkonto
join m in Program.dbData3060.tblMedlems on bi.Nr equals m.Nr
select new { bi.Nr, m.Navn, bi.bogfkonto };
var msm = from f in Program.dbData3060.tblfaks
where f.faknr == b.faknr
join m in Program.dbData3060.tblrsmembership_transactions on f.Nr equals m.memberid
select new { f.faknr, f.Nr, m.name, f.bogfkonto, f.fradato, f.tildato };
/*
* if (fak.Count() == 1) //Kontingent betaling
* {
* var f = fak.First();
* recKladde kl = new recKladde
* {
* Dato = ToDay,
* Bilag = BS1_SidsteNr,
* Tekst = ("F" + f.faknr + " " + f.Nr + " " + f.Navn).PadRight(40, ' ').Substring(0, 40),
* Afstemningskonto = null,
* Belob = b.indbetalingsbelob,
* Kontonr = f.bogfkonto,
* Faknr = null,
* Sagnr = null
* };
* Program.karKladde.Add(kl);
* }
* else
*/
/*
* if (bet.Count() == 1) //Betaling med betalingsidentifikation
* {
* var f = bet.First();
* recKladde kl = new recKladde
* {
* Dato = ToDay,
* Bilag = BS1_SidsteNr,
* Tekst = (f.Nr + " " + f.Navn).PadRight(40, ' ').Substring(0, 40),
* Afstemningskonto = null,
* Belob = b.indbetalingsbelob,
* Kontonr = f.bogfkonto,
* Faknr = null,
* Sagnr = null
*
* };
* Program.karKladde.Add(kl);
* }
* else
*/
if (msm.Count() == 1) //Kontingent betaling for RSMembership
{
var f = msm.First();
decimal[] arrBelob = clsPbs602.fordeling((decimal)b.indbetalingsbelob, (DateTime)f.fradato, (DateTime)f.tildato, (DateTime)Startdato, (DateTime)Slutdato);
recKladde kl;
string wTekst = ("F" + f.faknr + " " + f.Nr + " " + f.name).PadRight(40, ' ').Substring(0, 40);
try
{
if (((DateTime)b.indbetalingsdato - (DateTime)b.betalingsdato).Days > 300) // faktura mere end 300 dage gammel
{
wTekst = ("???" + wTekst).PadRight(40, ' ').Substring(0, 40);
}
}
catch { }
if (arrBelob[0] > 0)
{
kl = new recKladde
{
Dato = ToDay,
Bilag = BS1_SidsteNr,
Tekst = wTekst,
Afstemningskonto = null,
Belob = arrBelob[0],
Kontonr = f.bogfkonto,
Faknr = null,
Sagnr = null
};
Program.karKladde.Add(kl);
}
if (arrBelob[1] > 0)
{
kl = new recKladde
{
Dato = ToDay,
Bilag = BS1_SidsteNr,
Tekst = wTekst,
Afstemningskonto = null,
Belob = arrBelob[1],
Kontonr = 64200,
Faknr = null,
Sagnr = null
};
Program.karKladde.Add(kl);
}
}
else //Anden betaling
{
recKladde kl = new recKladde
{
Dato = ToDay,
Bilag = BS1_SidsteNr,
Tekst = ("Ukendt betaling").PadRight(40, ' ').Substring(0, 40),
Afstemningskonto = null,
Belob = b.indbetalingsbelob,
Kontonr = 65050,
Faknr = null,
Sagnr = null
};
Program.karKladde.Add(kl);
}
}
Program.karStatus.save();
Program.karKladde.save();
Program.dbData3060.SubmitChanges();
}
return(AntalBetalinger);
}
public int BogforIndBetalinger()
{
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;
}
}
int saveBetid = 0;
var bogf = from f in Program.dbData3060.tblfaks
where Startdato <= f.betalingsdato && f.betalingsdato <= Slutdato
join m in Program.dbData3060.tblMedlems on f.Nr equals m.Nr
join bl in Program.dbData3060.tblbetlins on f.faknr equals bl.faknr
where bl.pbstranskode == "0236" || bl.pbstranskode == "0297"
join b in Program.dbData3060.tblbets on bl.betid equals b.id
where b.summabogfort == null || b.summabogfort == false
join p in Program.dbData3060.tblfrapbs on b.frapbsid equals p.id
orderby p.id, b.id, bl.id
select new
{
Frapbsid = p.id,
p.leverancespecifikation,
Betid = b.id,
GruppeIndbetalingsbelob = b.indbetalingsbelob,
Betlinid = bl.id,
Fakid = f.id,
bl.betalingsdato,
bl.indbetalingsdato,
m.Navn,
bl.indbetalingsbelob,
f.Nr,
f.bogfkonto,
f.faknr
};
int AntalBetalinger = bogf.Count();
if (bogf.Count() > 0)
{
DateTime nu = DateTime.Now;
DateTime ToDay = new DateTime(nu.Year, nu.Month, nu.Day);;
int BS1_SidsteNr = 0;
try
{
recStatus rec_Status = (from s in Program.karStatus where s.key == "BS1_SidsteNr" select s).First();
BS1_SidsteNr = int.Parse(rec_Status.value);
}
catch (System.InvalidOperationException)
{
}
Program.karKladde = null;
foreach (var b in bogf)
{
if (saveBetid != b.Betid) // ny gruppe
{
saveBetid = b.Betid;
recKladde gkl = new recKladde
{
Dato = ToDay,
Bilag = ++BS1_SidsteNr,
Tekst = "Indbetalingskort K 81131945-" + ((DateTime)b.indbetalingsdato).Day + "." + ((DateTime)b.indbetalingsdato).Month,
Afstemningskonto = "Bank",
Belob = b.GruppeIndbetalingsbelob,
Kontonr = null,
Faknr = null
};
Program.karKladde.Add(gkl);
var rec_bet = (from ub in Program.dbData3060.tblbets where ub.id == b.Betid select ub).First();
rec_bet.summabogfort = true;
}
recKladde kl = new recKladde
{
Dato = ToDay,
Bilag = BS1_SidsteNr,
Tekst = ("F" + b.faknr + " " + b.Nr + " " + b.Navn).PadRight(40, ' ').Substring(0, 40),
Afstemningskonto = null,
Belob = b.indbetalingsbelob,
Kontonr = b.bogfkonto,
Faknr = null
};
Program.karKladde.Add(kl);
}
Program.karStatus.save();
Program.karKladde.save();
Program.dbData3060.SubmitChanges();
}
return(AntalBetalinger);
}
public int BogforPaypalBetalinger()
{
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;
}
}
puls3060_dkEntities jdb = new puls3060_dkEntities();
clsPbs602 objPbs602 = new clsPbs602();
MemBogfoeringsKlader bogf = objPbs602.konter_paypal_betalinger_fra_rsmembership(jdb, (DateTime)Startdato, (DateTime)Slutdato);
int AntalBetalinger = 0;
if (bogf.Count() > 0)
{
DateTime nu = DateTime.Now;
DateTime ToDay = new DateTime(nu.Year, nu.Month, nu.Day);;
int BS1_SidsteNr = 0;
try
{
recStatus rec_Status = (from s in Program.karStatus where s.key == "BS1_SidsteNr" select s).First();
BS1_SidsteNr = int.Parse(rec_Status.value);
}
catch (System.InvalidOperationException)
{
}
Program.karKladde = null;
foreach (var b in bogf)
{
recKladde kl = new recKladde
{
Dato = b.Dato,
Bilag = b.Bilag + BS1_SidsteNr,
Tekst = b.Tekst,
Afstemningskonto = b.Afstemningskonto,
Belob = b.Belob,
Kontonr = b.Kontonr,
Faknr = b.Faknr,
Sagnr = b.Sagnr
};
Program.karKladde.Add(kl);
AntalBetalinger = (int)b.Bilag;
}
Program.karStatus.save();
Program.karKladde.save();
Program.dbData3060.SubmitChanges();
}
return(AntalBetalinger);
}
public int BogforUdBetalinger(int lobnr)
{
int AntalBetalinger = 0;
clsRest objRest = new clsRest();
string strxmldata = objRest.HttpGet2(clsRest.urlBaseType.data, "udbetaling2summa/" + lobnr.ToString());
XDocument xmldata = XDocument.Parse(strxmldata);
string Status2 = xmldata.Descendants("Status").First().Value;
if (Status2 == "True")
{
var overforsel = from o in xmldata.Descendants("Overforsel")
select new
{
Id = clsPassXmlDoc.attr_val_int(o, "Id"),
Nr = clsPassXmlDoc.attr_val_int(o, "Nr"),
SFaknr = clsPassXmlDoc.attr_val_int(o, "SFaknr"),
SFakID = clsPassXmlDoc.attr_val_int(o, "SFakID"),
Tilpbsid = clsPassXmlDoc.attr_val_int(o, "Tilpbsid"),
Betalingsdato = clsPassXmlDoc.attr_val_datetime(o, "Betalingsdato"),
Advisbelob = (decimal)clsPassXmlDoc.attr_val_double(o, "Advisbelob"),
};
var bogf = from f in Program.karFakturaer_k
where f.saldo != 0
join o in overforsel on f.fakid equals o.SFakID
where o.Tilpbsid == lobnr
join m in Program.karMedlemmer on o.Nr equals m.Nr
orderby o.Betalingsdato ascending
select new
{
Fakid = o.Id,
m.Navn,
o.SFaknr,
o.Betalingsdato,
o.Advisbelob
};
AntalBetalinger = bogf.Count();
if (bogf.Count() > 0)
{
int BS1_SidsteNr = 0;
try
{
recStatus rec_Status = (from s in Program.karStatus where s.key == "BS1_SidsteNr" select s).First();
BS1_SidsteNr = int.Parse(rec_Status.value);
}
catch (System.InvalidOperationException)
{
}
Program.karKladde = null;
foreach (var b in bogf)
{
recKladde gkl = new recKladde
{
Dato = clsUtil.bankdageplus((DateTime)b.Betalingsdato, -1),
Bilag = ++BS1_SidsteNr,
Tekst = "Overførsel",
Afstemningskonto = "Bank",
Belob = -b.Advisbelob,
Kontonr = null,
Faknr = null
};
Program.karKladde.Add(gkl);
recKladde kl = new recKladde
{
Dato = clsUtil.bankdageplus((DateTime)b.Betalingsdato, -1),
Bilag = BS1_SidsteNr,
Tekst = "KF" + b.SFaknr + " " + b.Navn,
Afstemningskonto = null,
Belob = -b.Advisbelob,
Kontonr = 65100,
Faknr = b.SFaknr
};
Program.karKladde.Add(kl);
}
Program.karStatus.save();
Program.karKladde.save();
}
}
return(AntalBetalinger);
}
public int BogforIndBetalinger()
{
clsRest objRest = new clsRest();
string strxmldata = objRest.HttpGet2(clsRest.urlBaseType.data, "bogforindbetalinger");
XDocument xmldata = XDocument.Parse(strxmldata);
string Status = xmldata.Descendants("Status").First().Value;
if (Status != "True")
{
int saveBetid = 0;
var qry_bet = from h in xmldata.Descendants("BogforIndBetalinger")
select new
{
Frapbsid = clsPassXmlDoc.attr_val_int(h, "Frapbsid"),
Betid = (int)clsPassXmlDoc.attr_val_int(h, "Betid"),
Fakid = clsPassXmlDoc.attr_val_int(h, "Fakid"),
Betlinid = clsPassXmlDoc.attr_val_int(h, "Betlinid"),
Nr = clsPassXmlDoc.attr_val_int(h, "Nr"),
Leverancespecifikation = clsPassXmlDoc.attr_val_string(h, "Leverancespecifikation"),
GruppeIndbetalingsbelob = (decimal)clsPassXmlDoc.attr_val_double(h, "GruppeIndbetalingsbelob"),
Betalingsdato = clsPassXmlDoc.attr_val_date(h, "Betalingsdato"),
Indbetalingsdato = clsPassXmlDoc.attr_val_date(h, "Indbetalingsdato"),
Indbetalingsbelob = (decimal)clsPassXmlDoc.attr_val_double(h, "Indbetalingsbelob"),
SFakID = (int)clsPassXmlDoc.attr_val_int(h, "SFakID"),
SFaknr = clsPassXmlDoc.attr_val_int(h, "SFaknr"),
};
var bogf = from s in Program.karFakturaer_s
//where s.saldo != 0
join f in qry_bet on s.fakid equals f.SFakID
where f.SFaknr != null
join m in Program.karMedlemmer on f.Nr equals m.Nr
orderby f.Frapbsid, f.Betid, f.Betlinid
select new
{
f.Frapbsid,
f.Leverancespecifikation,
f.Betid,
f.GruppeIndbetalingsbelob,
f.Betlinid,
f.Fakid,
f.Betalingsdato,
f.Indbetalingsdato,
m.Navn,
f.Indbetalingsbelob,
f.SFaknr
};
int AntalBetalinger = bogf.Count();
if (bogf.Count() > 0)
{
DateTime nu = DateTime.Now;
DateTime ToDay = new DateTime(nu.Year, nu.Month, nu.Day);;
int BS1_SidsteNr = 0;
try
{
recStatus rec_Status = (from s in Program.karStatus where s.key == "BS1_SidsteNr" select s).First();
BS1_SidsteNr = int.Parse(rec_Status.value);
}
catch (System.InvalidOperationException)
{
}
Program.karKladde = null;
XElement SummabogfortUpdatexml = new XElement("SummabogfortUpdate");
foreach (var b in bogf)
{
if (saveBetid != b.Betid) // ny gruppe
{
saveBetid = b.Betid;
recKladde gkl = new recKladde
{
Dato = ToDay, //(b.Betalingsdato > b.Indbetalingsdato) ? (DateTime)b.Betalingsdato : (DateTime)b.Indbetalingsdato,
Bilag = ++BS1_SidsteNr,
Tekst = "Indbetalingskort K 81131945-" + ((DateTime)b.Indbetalingsdato).Day + "." + ((DateTime)b.Indbetalingsdato).Month,
Afstemningskonto = "Bank",
Belob = b.GruppeIndbetalingsbelob,
Kontonr = null,
Faknr = null
};
Program.karKladde.Add(gkl);
XElement betxml = new XElement("Bet");
betxml.Add(new XElement("Id", b.Betid));
betxml.Add(new XElement("Summabogfort", true));
SummabogfortUpdatexml.Add(new XElement(betxml));
}
recKladde kl = new recKladde
{
Dato = ToDay, //(b.Betalingsdato > b.Indbetalingsdato) ? (DateTime)b.Betalingsdato : (DateTime)b.Indbetalingsdato,
Bilag = BS1_SidsteNr,
Tekst = "F" + b.SFaknr + " " + b.Navn,
Afstemningskonto = null,
Belob = b.Indbetalingsbelob,
Kontonr = 56100,
Faknr = b.SFaknr
};
Program.karKladde.Add(kl);
}
string strSummabogfortUpdatexml = @"<?xml version=""1.0"" encoding=""utf-8"" ?> " + SummabogfortUpdatexml.ToString();
string result = objRest.HttpPost2(clsRest.urlBaseType.data, "bogforindbetalinger", strSummabogfortUpdatexml);
Program.karStatus.save();
Program.karKladde.save();
}
return(AntalBetalinger);
}
return(0);
}
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;
}
}
int AntalOrdre = 0;
clsRest objRest = new clsRest();
string strxmldata = objRest.HttpGet2(clsRest.urlBaseType.data, "order2summa");
XDocument xmldata = XDocument.Parse(strxmldata);
string Status = xmldata.Descendants("Status").First().Value;
if (Status != "True")
{
return(AntalOrdre);
}
var qry_ord = from forslag in xmldata.Descendants("Fak") select forslag;
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;
XElement SFakIDupdatexml = new XElement("SFakIDupdate");
foreach (var o in qry_ord)
{
string Key = o.Descendants("Key").First().Value;
string strval = o.Descendants("Id").First().Value;
int Id = int.Parse(strval);
strval = o.Descendants("Nr").First().Value;
int Nr = int.Parse(strval);
strval = o.Descendants("Advisbelob").First().Value;
double Advisbelob = double.Parse(strval.Replace('.', ','));
strval = o.Descendants("Pbsfaknr").First().Value;
int Pbsfaknr = int.Parse(strval);
strval = o.Descendants("Vnr").First().Value;
int Vnr = int.Parse(strval);
strval = o.Descendants("Bogfkonto").First().Value;
int Bogfkonto = int.Parse(strval);
SidsteSFakID++;
SidsteRec_no++;
int orebelob = (int)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(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 == 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)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)Vnr,
VareTekst = "Puls 3060 kontingent",
Bogfkonto = (int)Bogfkonto,
Antal = 1,
Fakturabelob = (double)Advisbelob
};
Program.karFakturavarer_s.Add(rec_Fakturavarer_s);
try
{
XElement fakxml = new XElement("Fak");
fakxml.Add(new XElement("Key", Key));
fakxml.Add(new XElement("Id", Id));
fakxml.Add(new XElement("SFakID", SidsteSFakID));
SFakIDupdatexml.Add(new XElement(fakxml));
}
catch (System.InvalidOperationException)
{
throw;
}
}
string strSFakIDupdatexml = @"<?xml version=""1.0"" encoding=""utf-8"" ?> " + SFakIDupdatexml.ToString();
string result = objRest.HttpPost2(clsRest.urlBaseType.data, "order2summa", strSFakIDupdatexml);
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();
}
return(AntalOrdre);
}
public int KøbsOrder2Summa(IList <Tblwfak> wFak)
{
var rec_regnskab = Program.qryAktivRegnskab();
if (rec_regnskab.Afsluttet == true)
{
return(0);
}
KarFakturastr_k m_karFakturastr_k = null;
KarFakturavarer_k m_karFakturavarer_k = null;
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 sf in wFak
where sf.Sk == "K"
select sf;
int AntalOrdre = qry_ord.Count();
if (AntalOrdre > 0)
{
DateTime ToDay = DateTime.Today;
int SidsteKFakID;
int SidsteRec_no;
try
{
SidsteKFakID = (from f in Program.karFakturaer_k select f.fakid).Max();
}
catch (System.InvalidOperationException)
{
SidsteKFakID = 0;
}
try
{
SidsteRec_no = (from f in Program.karFakturaer_k select f.rec_no).Max();
}
catch (System.InvalidOperationException)
{
SidsteRec_no = 0;
}
m_karFakturastr_k = new KarFakturastr_k();
m_karFakturavarer_k = new KarFakturavarer_k(true);
foreach (var o in qry_ord)
{
var qry_ordlin = from sfl in o.Tblwfaklin select sfl;
if (qry_ordlin.Count() == 0) //der findes ingen ordrelinier
{
continue;
}
SidsteKFakID++;
SidsteRec_no++;
int orebelob = (int)((from s in qry_ordlin select s.Bruttobelob).Sum() * 100);
int momsbelob = (int)((from s in qry_ordlin select s.Moms).Sum() * 100);
if (o.Dato == null)
{
o.Dato = ToDay;
}
if (o.Konto == null)
{
o.Konto = 0;
}
if (o.Kreditorbilagsnr == null)
{
o.Kreditorbilagsnr = 0;
}
ordtype_k ord = new ordtype_k
(
SidsteKFakID, //fakid
(DateTime)o.Dato, //dato
((DateTime)o.Dato).AddDays(14), //forfaldsdato
orebelob, //fakbeløb i øre
(int)(o.Konto), //kreditornr
momsbelob, //momsbeløb i øre
(int)(o.Kreditorbilagsnr) //kreditorbilagsnr
);
recFakturaer_k rec = new recFakturaer_k {
rec_no = SidsteRec_no, rec_data = ord
};
Program.karFakturaer_k.Add(rec);
var m_rec = (from m in Program.karKartotek where m.Kontonr == o.Konto select m).First();
string[] wAdresse = new string[1];
wAdresse[0] = m_rec.Adresse;
clsNavnAdresse wFakNavnAdresse = new clsNavnAdresse
{
Navn = m_rec.Kontonavn,
Adresse = wAdresse,
Postnr = m_rec.Postnr,
Bynavn = m_rec.Bynavn,
};
recFakturastr_k rec_Fakturastr_k = new recFakturastr_k
{
Fakid = SidsteKFakID,
FakNavnAdresse = wFakNavnAdresse,
Cvrnr = m_rec.Cvrnr,
};
m_karFakturastr_k.Add(rec_Fakturastr_k);
foreach (var ol in qry_ordlin)
{
recFakturavarer_k rec_Fakturavarer_k = new recFakturavarer_k
{
Fakid = SidsteKFakID,
Varenr = Microsoft.VisualBasic.Information.IsNumeric(ol.Varenr) ? int.Parse(ol.Varenr) : (int?)null,
VareTekst = ol.Tekst,
Bogfkonto = ol.Konto,
Antal = ol.Antal,
Enhed = ol.Enhed,
Pris = ol.Pris,
Moms = ol.Moms,
Nettobelob = ol.Nettobelob,
Bruttobelob = ol.Bruttobelob,
Momspct = KarMoms.getMomspct(ol.Momskode)
};
m_karFakturavarer_k.Add(rec_Fakturavarer_k);
}
}
try
{
recStatus rec_Status = (from s in Program.karStatus where s.key == "SidsteKFakID" select s).First();
rec_Status.value = SidsteKFakID.ToString();
}
catch (System.InvalidOperationException)
{
recStatus rec_Status = new recStatus
{
key = "SidsteKFakID",
value = SidsteKFakID.ToString()
};
Program.karStatus.Add(rec_Status);
}
Program.karStatus.save();
Program.karFakturaer_k.save();
m_karFakturastr_k.save();
m_karFakturavarer_k.save();
Program.dbDataTransSumma.SubmitChanges();
}
return(AntalOrdre);
}
