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