private void FrmPbsnetdir_Load(object sender, EventArgs e)
{
clsSFTP objSFTP = new clsSFTP();
objSFTP.ReadDirFraSFtp();
objSFTP.DisconnectSFtp();
objSFTP = null;
this.bsMemPbsnetdir.DataSource = Program.memPbsnetdir;
}
private void betalingerFraPBSToolStripMenuItem_Click(object sender, EventArgs e)
{
string bigString = null;
string smallString = null;
int AntalImportFiler = 0;
clsPbs601 objPbs601 = new clsPbs601();
clsPbs602 objPbs602 = new clsPbs602();
clsPbs603 objPbs603 = new clsPbs603();
clsPbs686 objPbs686 = new clsPbs686();
clsSFTP objSFTP = new clsSFTP(Program.dbData3060);
AntalImportFiler = objSFTP.ReadFraSFtp(Program.dbData3060); //Læs direkte SFTP
objSFTP.DisconnectSFtp();
objSFTP = null;
//AntalImportFiler = objPbs602.ReadFraPbsFile(); //Læs fra Directory FraPBS
int Antal602Filer = objPbs602.betalinger_fra_pbs(Program.dbData3060);
int Antal603Filer = objPbs603.aftaleoplysninger_fra_pbs(Program.dbData3060);
int Antal686Filer = objPbs686.aftaleoplysninger_fra_pbs(Program.dbData3060);
Tuple <int, int> tresult = objPbs601.advis_auto(Program.dbData3060);
int AntalAdvis = tresult.Item1;
int lobnr = tresult.Item2;
if ((AntalAdvis > 0))
{
objPbs601.advis_email(Program.dbData3060, lobnr);
}
clsSumma objSumma = new clsSumma();
int AntalBetalinger = objSumma.BogforIndBetalinger();
if (AntalBetalinger > 0)
{
bigString = String.Format("Der er {0} bogførte betalinger.", AntalBetalinger);
}
else
{
bigString = "Der er ingen nye betalinger";
}
smallString = String.Format("Antal indlæste filer fra PBS: {0} \nAntal nye 602 filer: {1}\nAntal nye 603 filer: {3}\nAntal nye 686 filer: {4}\nAntal nye betalinger: {2}.", AntalImportFiler, Antal602Filer, AntalBetalinger, Antal603Filer, Antal686Filer);
DialogResult result = DotNetPerls.BetterDialog.ShowDialog(
"Filer fra PBS", //titleString
bigString, //bigString
smallString, //smallString
null, //leftButton
"OK", //rightButton
global::nsPuls3060.Properties.Resources.Message_info); //iconSet
}
private void button1_Click(object sender, EventArgs e)
{
int pbsfilesid = int.Parse(txtpbsfilesid.Text);
button1.Enabled = false;
txtpbsfilesid.Enabled = false;
clsSFTP objSFTP = new clsSFTP();
objSFTP.ReWriteTilSFtp(pbsfilesid);
objSFTP.DisconnectSFtp();
objSFTP = null;
button1.Text = "Udført";
}
private void payPalTilPBSNyeMedlemmerToolStripMenuItem_Click(object sender, EventArgs e)
{
puls3060_dkEntities jdb = new puls3060_dkEntities();
clsPbs601 objPbs601 = new clsPbs601();
Tuple <int, int> tresultc = objPbs601.rsmembeshhip_fakturer_auto(Program.dbData3060, jdb);
int AntalKontingent = tresultc.Item1;
int lobnrc = tresultc.Item2;
if ((AntalKontingent > 0))
{
objPbs601.faktura_og_rykker_601_action(Program.dbData3060, lobnrc, fakType.fdrsmembership);
clsSFTP objSFTPc = new clsSFTP(Program.dbData3060);
objSFTPc.WriteTilSFtp(Program.dbData3060, lobnrc);
objSFTPc.DisconnectSFtp();
objSFTPc = null;
}
}
private void betalingerFraPBSToolStripMenuItem_Click(object sender, EventArgs e)
{
string bigString = null;
string smallString = null;
int AntalImportFiler = 0;
clsPbs602 objPbs602 = new clsPbs602();
clsPbs603 objPbs603 = new clsPbs603();
clsSFTP objSFTP = new clsSFTP();
AntalImportFiler = objSFTP.ReadFraSFtp(); //Læs direkte SFTP
objSFTP.DisconnectSFtp();
objSFTP = null;
//AntalImportFiler = objPbs602.ReadFraPbsFile(); //Læs fra Directory FraPBS
int Antal602Filer = objPbs602.betalinger_fra_pbs();
int Antal603Filer = objPbs603.aftaleoplysninger_fra_pbs();
clsSumma objSumma = new clsSumma();
int AntalOrdre = objSumma.Order2Summa();
bigString = String.Format("Antal indlæste filer fra PBS: {0} \nAntal nye 602 filer: {1}\nAntal nye 603 filer: {3}\nAntal nye ordre: {2}.", AntalImportFiler, Antal602Filer, AntalOrdre, Antal603Filer);
if (AntalOrdre > 0)
{
smallString = String.Format("Åben SummaSummarum\nTryk på ikonet Bilag i venstre side\nbogfør de {0} nye ordre.", AntalOrdre);
}
else
{
smallString = "Der er ingen nye odre";
}
DialogResult result = DotNetPerls.BetterDialog.ShowDialog(
"Betalinger fra PBS", //titleString
bigString, //bigString
smallString, //smallString
null, //leftButton
"OK", //rightButton
global::nsPuls3060.Properties.Resources.Message_info); //iconSet
}
private void SendModtagPBSfilertoolStripMenuItem_Click(object sender, EventArgs e)
{
string bigString = null;
string smallString = null;
clsSFTP objAppEngSFTP = new clsSFTP();
//Send til PBS
string Status = "True";
int AntalFilerSendt = 0;
clsRest objRest = new clsRest();
while (Status == "True")
{
string strxmldata = objRest.HttpGet2(clsRest.urlBaseType.data, "tilpbs");
XDocument xmldata = XDocument.Parse(strxmldata);
Status = xmldata.Descendants("Status").First().Value;
if (Status == "True")
{
bool bSendt = objAppEngSFTP.WriteTilSFtp(xmldata);
if (bSendt)
{
AntalFilerSendt++;
}
}
}
//Modtag fra PBS
int AntalFilerModtaget = objAppEngSFTP.ReadFraSFtp();
bigString = String.Format("{0} filer sendt til PBS.\n{1} filer modtaget fra PBS", AntalFilerSendt, AntalFilerModtaget);
DialogResult result = DotNetPerls.BetterDialog.ShowDialog(
"Send/Modtag PBS filer", //titleString
bigString, //bigString
smallString, //smallString
null, //leftButton
"OK", //rightButton
global::nsPuls3060.Properties.Resources.Message_info); //iconSet
}
private void cmdImport_Click(object sender, EventArgs e)
{
clsSFTP objSFTP = new clsSFTP(Program.dbData3060);
int AntalImportFiler = objSFTP.ReadFromLocalFile(Program.dbData3060, textFilePath.Text);
objSFTP.DisconnectSFtp();
objSFTP = null;
cmdImport.Enabled = false;
textFilePath.Enabled = false;
if (AntalImportFiler == 1)
{
labelMessage.Text = string.Format("{0} er importeret", textFilePath.Text);
}
else
{
labelMessage.Text = string.Format("{0} kunne ikke importeres", textFilePath.Text);
labelMessage.ForeColor = Color.Red;
}
labelMessage.Visible = true;
}
private void cmdFakturer_Click(object sender, EventArgs e)
{
string TilPBSFilename = "Unknown";
int AntalFakturaer;
int imax;
string keyval;
DateTime fradato;
DateTime tildato;
bool tilmeldtpbs;
bool indmeldelse;
double advisbelob;
if ((this.cmdFakturer.Text == "Afslut"))
{
this.Close();
}
this.cmdForslag.Visible = false;
this.cmdCancel.Visible = false;
imax = lvwKontingent.Items.Count;
this.pgmFaktura.Maximum = (imax * 4);
this.pgmFaktura.Minimum = 0;
this.pgmFaktura.Value = 0;
this.pgmFaktura.Visible = true;
Program.dbData3060.tempKontforslags.DeleteAllOnSubmit(Program.dbData3060.tempKontforslags);
Program.dbData3060.SubmitChanges();
if ((imax == 0))
{
this.Label_Fakturatekst.Text = "Der ikke noget at fakturere";
this.Label_Fakturatekst.Visible = true;
}
else
{
tempKontforslag rec_tempKontforslag = new tempKontforslag
{
betalingsdato = clsOverfoersel.bankdageplus(this.DatoKontingentForfald.Value, 0),
bsh = this.DelsystemBSH.Checked
};
Program.dbData3060.tempKontforslags.InsertOnSubmit(rec_tempKontforslag);
var i = 0;
foreach (ListViewItem lvi in lvwKontingent.Items)
{
this.pgmFaktura.Value = ++i;
keyval = lvi.Name;
fradato = DateTime.Parse(lvi.SubItems[4].Text);
advisbelob = double.Parse(lvi.SubItems[5].Text);
tildato = DateTime.Parse(lvi.SubItems[6].Text);
indmeldelse = (lvi.SubItems[7].Text == "J") ? true : false;
tilmeldtpbs = (lvi.SubItems[8].Text == "J") ? true : false;
tempKontforslaglinie rec_tempKontforslaglinie = new tempKontforslaglinie
{
Nr = int.Parse(keyval),
advisbelob = (decimal)advisbelob,
fradato = fradato,
tildato = tildato,
indmeldelse = indmeldelse,
tilmeldtpbs = tilmeldtpbs,
};
rec_tempKontforslag.tempKontforslaglinies.Add(rec_tempKontforslaglinie);
}
Program.dbData3060.SubmitChanges();
clsPbs601 objPbs601 = new clsPbs601();
nsPuls3060.clsPbs601.SetLobnr += new nsPuls3060.clsPbs601.Pbs601DelegateHandler(On_clsPbs601_SetLobnr);
AntalFakturaer = objPbs601.kontingent_fakturer_bs1();
this.pgmFaktura.Value = imax * 2;
if ((AntalFakturaer > 0))
{
objPbs601.faktura_og_rykker_601_action(m_lobnr, fakType.fdfaktura);
this.pgmFaktura.Value = (imax * 3);
clsSFTP objSFTP = new clsSFTP();
TilPBSFilename = objSFTP.WriteTilSFtp(m_lobnr);
objSFTP.DisconnectSFtp();
objSFTP = null;
}
this.pgmFaktura.Value = (imax * 4);
cmdFakturer.Text = "Afslut";
this.DelsystemBSH.Visible = false;
this.Label_Fakturatekst.Text = ("Leverance til PBS i filen " + TilPBSFilename);
this.Label_Fakturatekst.Visible = true;
this.pgmFaktura.Visible = false;
}
}
private void cmdBetal_Click(object sender, EventArgs e)
{
string TilPBSFilename = "Unknown";
int AntalBetalinger;
int imax;
string keyval;
int Nr;
int faknr;
decimal advisbelob;
string Bank;
if ((this.cmdBetal.Text == "Afslut"))
{
this.Close();
}
this.cmdForslag.Visible = false;
this.cmdCancel.Visible = false;
imax = lvwKrdFaktura.Items.Count;
this.pgmBetal.Maximum = (imax * 4);
this.pgmBetal.Minimum = 0;
this.pgmBetal.Value = 0;
this.pgmBetal.Visible = true;
Program.dbData3060.tempBetalforslags.DeleteAllOnSubmit(Program.dbData3060.tempBetalforslags);
Program.dbData3060.SubmitChanges();
if ((imax == 0))
{
this.Label_Betaltekst.Text = "Der ikke noget at betale";
this.Label_Betaltekst.Visible = true;
}
else
{
tempBetalforslag rec_tempBetalforslag = new tempBetalforslag
{
betalingsdato = DateTime.Now,
};
Program.dbData3060.tempBetalforslags.InsertOnSubmit(rec_tempBetalforslag);
var i = 0;
foreach (ListViewItem lvi in lvwKrdFaktura.Items)
{
this.pgmBetal.Value = ++i;
keyval = lvi.Name;
Nr = int.Parse(lvi.SubItems[1].Text);
faknr = int.Parse(lvi.SubItems[4].Text);
advisbelob = decimal.Parse(lvi.SubItems[5].Text);
Bank = lvi.SubItems[6].Text;
tempBetalforslaglinie rec_tempBetalforslaglinie = new tempBetalforslaglinie
{
Nr = Nr,
fakid = int.Parse(keyval),
advisbelob = (decimal)advisbelob,
bankregnr = Bank.Substring(0, 4),
bankkontonr = Bank.Substring(5, 10),
faknr = faknr,
};
rec_tempBetalforslag.tempBetalforslaglinies.Add(rec_tempBetalforslaglinie);
}
Program.dbData3060.SubmitChanges();
clsOverfoersel objOverfoersel = new clsOverfoersel();
nsPuls3060.clsOverfoersel.SetLobnr += new nsPuls3060.clsOverfoersel.OverfoerselDelegateHandler(On_clsOverfoersel_SetLobnr);
AntalBetalinger = objOverfoersel.kreditor_fakturer_os1();
this.pgmBetal.Value = imax * 2;
if ((AntalBetalinger > 0))
{
objOverfoersel.krdfaktura_overfoersel_action(m_lobnr);
this.pgmBetal.Value = (imax * 3);
clsSFTP objSFTP = new clsSFTP();
TilPBSFilename = objSFTP.WriteTilSFtp(m_lobnr);
objSFTP.DisconnectSFtp();
objSFTP = null;
objOverfoersel.overfoersel_mail(m_lobnr);
clsSumma objSumma = new clsSumma();
objSumma.BogforUdBetalinger(m_lobnr);
}
this.pgmBetal.Value = (imax * 4);
cmdBetal.Text = "Afslut";
this.Label_Betaltekst.Text = ("Leverance til PBS i filen " + TilPBSFilename);
this.Label_Betaltekst.Visible = true;
this.pgmBetal.Visible = false;
}
}
private void cmdRykkere_Click(object sender, EventArgs e)
{
string TilPBSFilename;
int AntalRykkere;
int lobnr;
int imax;
string keyval;
int faknr;
double advisbelob;
if ((this.cmdRykkere.Text == "Afslut"))
{
this.Close();
}
this.cmdForslag.Visible = false;
this.cmdCancel.Visible = false;
imax = lvwRykker.Items.Count;
this.pgmRykker.Maximum = (imax * 4);
this.pgmRykker.Minimum = 0;
this.pgmRykker.Value = 0;
this.pgmRykker.Visible = true;
Program.dbData3060.tempRykkerforslags.DeleteAllOnSubmit(Program.dbData3060.tempRykkerforslags);
Program.dbData3060.SubmitChanges();
if ((imax == 0))
{
this.Label_Rykkertekst.Text = "Der ikke noget at rykkere";
this.Label_Rykkertekst.Visible = true;
}
else
{
nsPbs3060.tempRykkerforslag rec_tempRykkerforslag = new nsPbs3060.tempRykkerforslag
{
betalingsdato = clsOverfoersel.bankdageplus(DateTime.Today, 5),
bsh = this.DelsystemBSH.Checked
};
Program.dbData3060.tempRykkerforslags.InsertOnSubmit(rec_tempRykkerforslag);
var i = 0;
foreach (ListViewItem lvi in lvwRykker.Items)
{
this.pgmRykker.Value = ++i;
keyval = lvi.Name;
advisbelob = double.Parse(lvi.SubItems[5].Text);
faknr = int.Parse(lvi.SubItems[6].Text);
nsPbs3060.tempRykkerforslaglinie rec_tempRykkerforslaglinie = new nsPbs3060.tempRykkerforslaglinie
{
Nr = int.Parse(keyval),
advisbelob = (decimal)advisbelob,
faknr = faknr
};
rec_tempRykkerforslag.tempRykkerforslaglinies.Add(rec_tempRykkerforslaglinie);
}
Program.dbData3060.SubmitChanges();
clsPbs601 objPbs601 = new clsPbs601();
Tuple <int, int> tresult = objPbs601.rykkere_bsh(Program.dbData3060);
AntalRykkere = tresult.Item1;
lobnr = tresult.Item2;
this.pgmRykker.Value = imax * 2;
if ((AntalRykkere > 0))
{
if (this.DelsystemBSH.Checked) //RYKKERE med Indbetalingskort
{
objPbs601.faktura_og_rykker_601_action(Program.dbData3060, lobnr, fakType.fdrykker);
this.pgmRykker.Value = (imax * 3);
clsSFTP objSFTP = new clsSFTP(Program.dbData3060);
objSFTP.WriteTilSFtp(Program.dbData3060, lobnr);
objSFTP.DisconnectSFtp();
objSFTP = null;
}
else //RYKKERE som emails
{
objPbs601.rykker_email(Program.dbData3060, lobnr);
this.pgmRykker.Value = (imax * 3);
}
}
this.pgmRykker.Value = (imax * 4);
cmdRykkere.Text = "Afslut";
try
{
var rec_tilpbs = (from t in Program.dbData3060.tbltilpbs where t.id == lobnr select t).First();
TilPBSFilename = "PBS" + rec_tilpbs.leverancespecifikation + ".lst";
}
catch (System.InvalidOperationException)
{
TilPBSFilename = "PBSNotFound.lst";
}
this.Label_Rykkertekst.Text = ("Leverance til PBS er gemt i filen " + TilPBSFilename);
this.Label_Rykkertekst.Visible = true;
this.pgmRykker.Visible = false;
}
}
private void cmdRSMembership_Fakturer_Click(object sender, EventArgs e)
{
string TilPBSFilename = "Unknown";
int AntalFakturaer;
int lobnr;
int imax;
string keyval;
DateTime fradato;
DateTime tildato;
bool tilmeldtpbs;
bool indmeldelse;
double advisbelob;
if ((this.cmdFakturer.Text == "Afslut"))
{
this.Close();
}
this.cmdForslag.Visible = false;
this.cmdCancel.Visible = false;
imax = lvwKontingent.Items.Count;
this.pgmFaktura.Maximum = (imax * 4);
this.pgmFaktura.Minimum = 0;
this.pgmFaktura.Value = 0;
this.pgmFaktura.Visible = true;
if ((imax == 0))
{
this.Label_Fakturatekst.Text = "Der ikke noget at fakturere";
this.Label_Fakturatekst.Visible = true;
}
else
{
puls3060_dkEntities jdb = new puls3060_dkEntities();
Memkontingentforslag memKontingentforslag = new Memkontingentforslag();
var i = 0;
foreach (ListViewItem lvi in lvwKontingent.Items)
{
this.pgmFaktura.Value = ++i;
keyval = lvi.Name;
fradato = DateTime.Parse(lvi.SubItems[4].Text);
advisbelob = double.Parse(lvi.SubItems[5].Text);
tildato = DateTime.Parse(lvi.SubItems[6].Text);
indmeldelse = (lvi.SubItems[7].Text == "J") ? true : false;
tilmeldtpbs = (lvi.SubItems[8].Text == "J") ? true : false;
recKontingentforslag rec_Kontingentforslag = new recKontingentforslag
{
betalingsdato = clsOverfoersel.bankdageplus(this.DatoKontingentForfald.Value, 0),
bsh = this.DelsystemBSH.Checked,
user_id = int.Parse(keyval),
membership_id = 6,
advisbelob = (decimal)advisbelob,
fradato = fradato,
tildato = tildato,
indmeldelse = indmeldelse,
tilmeldtpbs = tilmeldtpbs,
};
memKontingentforslag.Add(rec_Kontingentforslag);
}
clsPbs601 objPbs601 = new clsPbs601();
Tuple <int, int> tresult = objPbs601.rsmembeshhip_kontingent_fakturer_bs1(Program.dbData3060, jdb, memKontingentforslag);
AntalFakturaer = tresult.Item1;
lobnr = tresult.Item2;
this.pgmFaktura.Value = imax * 2;
if ((AntalFakturaer > 0))
{
objPbs601.faktura_og_rykker_601_action(Program.dbData3060, lobnr, fakType.fdrsmembership);
this.pgmFaktura.Value = (imax * 3);
clsSFTP objSFTP = new clsSFTP(Program.dbData3060);
TilPBSFilename = objSFTP.WriteTilSFtp(Program.dbData3060, lobnr);
objSFTP.DisconnectSFtp();
objSFTP = null;
}
this.pgmFaktura.Value = (imax * 4);
cmdFakturer.Text = "Afslut";
this.DelsystemBSH.Visible = false;
this.Label_Fakturatekst.Text = ("Leverance til PBS i filen " + TilPBSFilename);
this.Label_Fakturatekst.Visible = true;
this.pgmFaktura.Visible = false;
}
}
private void cmdBetal_Click(object sender, EventArgs e)
{
string TilPBSFilename = "Unknown";
int imax;
string keyval;
int Nr;
int faknr;
decimal advisbelob;
string Bank;
if ((this.cmdBetal.Text == "Afslut"))
{
this.Close();
}
this.cmdForslag.Visible = false;
this.cmdCancel.Visible = false;
imax = lvwKrdFaktura.Items.Count;
this.pgmBetal.Maximum = (imax * 4);
this.pgmBetal.Minimum = 0;
this.pgmBetal.Value = 0;
this.pgmBetal.Visible = true;
if ((imax == 0))
{
this.Label_Betaltekst.Text = "Der ikke noget at betale";
this.Label_Betaltekst.Visible = true;
}
else
{
XElement headxml = new XElement("TempBetalforslag");
headxml.Add(new XElement("Betalingsdato", DateTime.Now));
var i = 0;
foreach (ListViewItem lvi in lvwKrdFaktura.Items)
{
this.pgmBetal.Value = ++i;
keyval = lvi.Name;
Nr = int.Parse(lvi.SubItems[1].Text);
faknr = int.Parse(lvi.SubItems[4].Text);
advisbelob = decimal.Parse(lvi.SubItems[5].Text);
Bank = lvi.SubItems[6].Text;
XElement linxml = new XElement("TempBetalforslaglinie");
linxml.Add(new XElement("Nr", Nr));
linxml.Add(new XElement("Fakid", int.Parse(keyval)));
linxml.Add(new XElement("Advisbelob", (decimal)advisbelob));
linxml.Add(new XElement("Bankregnr", Bank.Substring(0, 4)));
linxml.Add(new XElement("Bankkontonr", Bank.Substring(5, 10)));
linxml.Add(new XElement("Faknr", faknr));
headxml.Add(new XElement(linxml));
}
clsRest objRest = new clsRest();
string strheadxml = @"<?xml version=""1.0"" encoding=""utf-8"" ?> " + headxml.ToString();
string result = objRest.HttpPost2(clsRest.urlBaseType.data, "overforsel", strheadxml);
XDocument xmldata = XDocument.Parse(result);
string Status = xmldata.Descendants("Status").First().Value;
this.pgmBetal.Value = imax * 2;
if (Status == "True")
{
this.pgmBetal.Value = (imax * 3);
int lobnr = int.Parse(xmldata.Descendants("Lobnr").First().Value);
int antal = int.Parse(xmldata.Descendants("Antal").First().Value);
int sendqueueid = int.Parse(xmldata.Descendants("Sendqueueid").First().Value);
string strxmldata = objRest.HttpGet2(clsRest.urlBaseType.data, "tilpbs/" + sendqueueid.ToString());
XDocument xmldata2 = XDocument.Parse(strxmldata);
string Status2 = xmldata2.Descendants("Status").First().Value;
if (Status2 == "True")
{
clsSFTP objAppEngSFTP = new clsSFTP();
bool bSendt = objAppEngSFTP.WriteTilSFtp(xmldata2);
if (bSendt)
{
overfoersel_mail(lobnr);
}
objAppEngSFTP.DisconnectSFtp();
objAppEngSFTP = null;
}
clsSumma objSumma = new clsSumma();
objSumma.BogforUdBetalinger(lobnr);
}
this.pgmBetal.Value = (imax * 4);
cmdBetal.Text = "Afslut";
this.Label_Betaltekst.Text = ("Leverance til PBS i filen " + TilPBSFilename);
this.Label_Betaltekst.Visible = true;
this.pgmBetal.Visible = false;
}
}
