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;
}
}
