Example #1
0
        private void FrmPbsnetdir_Load(object sender, EventArgs e)
        {
            clsSFTP objSFTP = new clsSFTP();

            objSFTP.ReadDirFraSFtp();
            objSFTP.DisconnectSFtp();
            objSFTP = null;
            this.bsMemPbsnetdir.DataSource = Program.memPbsnetdir;
        }
Example #2
0
        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
        }
Example #3
0
        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";
        }
Example #4
0
        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;
            }
        }
Example #5
0
        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
        }
Example #6
0
        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
        }
Example #7
0
        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;
        }
Example #8
0
        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;
            }
        }
Example #9
0
        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;
            }
        }
Example #10
0
        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;
            }
        }
Example #11
0
        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;
            }
        }
Example #12
0
        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;
            }
        }