Пример #1
0
        private void cmdAfstemt_Click(object sender, EventArgs e)
        {
            int       count     = 0;
            Tblafstem recAfstem = new Tblafstem
            {
                Udskriv = true
            };

            foreach (ListViewItem lvi in lvwAfstemBank.Items)
            {
                string       keyval       = lvi.Name;
                int          pid          = int.Parse(keyval);
                Tblbankkonto recBankkonto = (from b in Program.dbDataTransSumma.Tblbankkonto where b.Pid == pid select b).First();
                recAfstem.Tblbankkonto.Add(recBankkonto);
                count++;
            }
            foreach (ListViewItem lvi in lvwAfstemTrans.Items)
            {
                string   keyval   = lvi.Name;
                int      pid      = int.Parse(keyval);
                Tbltrans recTrans = (from b in Program.dbDataTransSumma.Tbltrans where b.Pid == pid select b).First();
                recAfstem.Tbltrans.Add(recTrans);
                count++;
            }
            if (count > 0)
            {
                Program.dbDataTransSumma.Tblafstem.InsertOnSubmit(recAfstem);
                Program.dbDataTransSumma.SubmitChanges();
                this.lvwAfstemBank.Items.Clear();
                this.lvwAfstemTrans.Items.Clear();
                this.lvwSumBank.Items.Clear();
                this.lvwSumTrans.Items.Clear();
            }
        }
Пример #2
0
        private void importerTransaktionerToolStripMenuItem_Click(object sender, EventArgs e)
        {
            int?     lastBilag      = null;
            string   Kontonavn      = null;
            Tblbilag recBilag       = null;
            var      qryPosteringer = from p in Program.karPosteringer
                                      join b in Program.dbDataTransSumma.Tbltrans on new { p.Regnskabid, p.Id, p.Nr } equals new { b.Regnskabid, b.Id, b.Nr } into tbltrans
            from b in tbltrans.DefaultIfEmpty(new Tbltrans {
                Pid = 0, Regnskabid = null, Id = null, Nr = null
            })
            where b.Pid == 0
            orderby p.Regnskabid, p.Bilag, p.Id, p.Nr
            select p;
            int antal = qryPosteringer.Count();

            foreach (var p in qryPosteringer)
            {
                if ((!(p.Bilag == null)) && (lastBilag != p.Bilag))
                {
                    try
                    {
                        recBilag = (from b in Program.dbDataTransSumma.Tblbilag
                                    where b.Regnskabid == p.Regnskabid && b.Bilag == p.Bilag
                                    select b).First();
                    }
                    catch
                    {
                        recBilag = new Tblbilag
                        {
                            Regnskabid = p.Regnskabid,
                            Bilag      = p.Bilag,
                            Dato       = p.Dato,
                            Udskriv    = true,
                        };
                        Program.dbDataTransSumma.Tblbilag.InsertOnSubmit(recBilag);
                    }
                }

                try
                {
                    Kontonavn = (from b in Program.karKontoplan where b.Kontonr == p.Konto select b.Kontonavn).First();
                }
                catch
                {
                    Kontonavn = null;
                }

                Tbltrans recTrans = new Tbltrans
                {
                    Regnskabid = p.Regnskabid,
                    Tekst      = p.Tekst,
                    Kontonr    = p.Konto,
                    Kontonavn  = Kontonavn,
                    Id         = p.Id,
                    Nr         = p.Nr,
                    Belob      = p.Nettobeløb + p.Momsbeløb,
                    Moms       = p.Momsbeløb,
                    Debet      = (p.Nettobeløb >= 0) ? p.Nettobeløb : (decimal?)null,
                    Kredit     = (p.Nettobeløb < 0) ? -p.Nettobeløb : (decimal?)null,
                };
                Program.dbDataTransSumma.Tbltrans.InsertOnSubmit(recTrans);
                if (!(p.Bilag == 0))
                {
                    recBilag.Tbltrans.Add(recTrans);
                }
                lastBilag = p.Bilag;
            }
            Program.dbDataTransSumma.SubmitChanges();


            lastBilag = 0;
            var qryKladder = from k in Program.karKladder
                             join b in Program.dbDataTransSumma.Tblkladder on new { k.Regnskabid, k.Id } equals new { b.Regnskabid, b.Id } into tblkladder
            from b in tblkladder.DefaultIfEmpty(new Tblkladder {
                Pid = 0, Regnskabid = null, Id = null
            })
            where b.Pid == 0
            orderby k.Regnskabid, k.Bilag, k.Id
            select k;

            antal = qryKladder.Count();
            foreach (var k in qryKladder)
            {
                if ((!(k.Bilag == null)) && (lastBilag != k.Bilag))
                {
                    try
                    {
                        recBilag = (from b in Program.dbDataTransSumma.Tblbilag
                                    where b.Regnskabid == k.Regnskabid && b.Bilag == k.Bilag
                                    select b).First();
                    }
                    catch
                    {
                        recBilag = new Tblbilag
                        {
                            Regnskabid = k.Regnskabid,
                            Bilag      = k.Bilag,
                            Dato       = k.Dato,
                            Udskriv    = true,
                        };
                        Program.dbDataTransSumma.Tblbilag.InsertOnSubmit(recBilag);
                    }
                }

                Tblkladder recKladder = new Tblkladder
                {
                    Regnskabid       = k.Regnskabid,
                    Tekst            = k.Tekst,
                    Afstemningskonto = k.Afstemningskonto,
                    Belob            = k.Belob,
                    Konto            = k.Konto,
                    Momskode         = k.Momskode,
                    Faktura          = k.Faktura,
                    Id = k.Id,
                };
                Program.dbDataTransSumma.Tblkladder.InsertOnSubmit(recKladder);
                if (!(k.Bilag == 0))
                {
                    recBilag.Tblkladder.Add(recKladder);
                }
                lastBilag = k.Bilag;
            }
            Program.dbDataTransSumma.SubmitChanges();
        }
Пример #3
0
        public override DocumentPage GetPage(int pageNumber)
        {
            Tblbilag Bilag       = null;
            int      wpageNumber = 0;

            for (int i = 0; i < _BilagPages.Length; i++)
            {
                if ((pageNumber >= wpageNumber) && (pageNumber < wpageNumber + _BilagPages[i]))
                {
                    Bilag = new Tblbilag
                    {
                        Pid        = _Bilag[i].Pid,
                        Regnskabid = _Bilag[i].Regnskabid,
                        Bilag      = _Bilag[i].Bilag,
                        Dato       = _Bilag[i].Dato,
                        Udskriv    = _Bilag[i].Udskriv
                    };

                    int jMin = (pageNumber - wpageNumber) * _RowsPerPage;
                    int jMax = Math.Min(_Bilag[i].Tbltrans.Count(), jMin + _RowsPerPage);
                    Debug.Assert(jMin >= 0);
                    for (int j = jMin; j < jMax; j++)
                    {
                        Tbltrans Trans = new Tbltrans
                        {
                            Pid        = _Bilag[i].Tbltrans[j].Pid,
                            Regnskabid = _Bilag[i].Tbltrans[j].Regnskabid,
                            Skjul      = _Bilag[i].Tbltrans[j].Skjul,
                            Bilagpid   = _Bilag[i].Tbltrans[j].Bilagpid,
                            Tekst      = _Bilag[i].Tbltrans[j].Tekst,
                            Kontonr    = _Bilag[i].Tbltrans[j].Kontonr,
                            Kontonavn  = _Bilag[i].Tbltrans[j].Kontonavn,
                            Moms       = _Bilag[i].Tbltrans[j].Moms,
                            Debet      = _Bilag[i].Tbltrans[j].Debet,
                            Kredit     = _Bilag[i].Tbltrans[j].Kredit,
                            Id         = _Bilag[i].Tbltrans[j].Id,
                            Nr         = _Bilag[i].Tbltrans[j].Nr,
                            Belob      = _Bilag[i].Tbltrans[j].Belob,
                            Afstem     = _Bilag[i].Tbltrans[j].Afstem,
                        };
                        Bilag.Tbltrans.Add(Trans);
                    }
                    break;
                }
                else
                {
                    wpageNumber += _BilagPages[i];
                }
            }

            var page = new PageElement(Bilag)
            {
                Width  = PageSize.Width,
                Height = PageSize.Height,
            };

            page.Measure(PageSize);
            page.Arrange(new Rect(new Point(0, 0), PageSize));

            return(new DocumentPage(page));
        }