private void Copy2NyFakturaToolStripButton_Click(object sender, EventArgs e)
        {
            bool bVareforbrug = true;
            Tblactebisfaktura recActebisfaktura = tblactebisfakturaBindingSource.Current as Tblactebisfaktura;

            if (recActebisfaktura.Leveringsadresse.ToUpper().Contains("HAFSJOLD"))
            {
                DialogResult result = DotNetPerls.BetterDialog.ShowDialog(
                    "TransSumma",                                                                  //titleString
                    " JA: Dette er en Hafsjold Data ApS anskaffelse.\nNEJ: Dette et vareforbrug.", //bigString
                    null,                                                                          //smallString
                    "JA",                                                                          //leftButton == OK
                    "NEJ",                                                                         //rightButton == Cancel
                    global::nsPuls3060.Properties.Resources.Message_info);                         //iconSet

                if (result == DialogResult.OK)
                {
                    bVareforbrug = false;
                }
            }
            Tblwfak recWfak = new Tblwfak
            {
                Sk               = "K",
                Dato             = recActebisfaktura.Ordredato,
                Konto            = 200064,
                Kreditorbilagsnr = recActebisfaktura.Fakturanr
            };

            foreach (Tblactebisordre recActebisordre in recActebisfaktura.Tblactebisordre)
            {
                Tblwfaklin recWfaklin = new Tblwfaklin
                {
                    Antal      = recActebisordre.Antal,
                    Enhed      = "stk",
                    Pris       = recActebisordre.Stkpris,
                    Varenr     = recActebisordre.Varenr.ToString(),
                    Nettobelob = recActebisordre.Antal * recActebisordre.Stkpris,
                    Tekst      = getVaretekst(recActebisfaktura, recActebisordre, bVareforbrug),
                    Konto      = getVarenrKonto(recActebisordre.Varenr, bVareforbrug),
                    Momskode   = KarKontoplan.getMomskode(getVarenrKonto(recActebisordre.Varenr, bVareforbrug))
                };
                recWfak.Tblwfaklin.Add(recWfaklin);
            }

            FrmMain frmMain = this.ParentForm as FrmMain;

            try
            {
                FrmNyfaktura frmNyfaktura = frmMain.GetChild("Ny faktura") as FrmNyfaktura;
                frmNyfaktura.AddNyActebisFaktura(recWfak);
            }
            catch
            {
                Program.dbDataTransSumma.Tblwfak.InsertOnSubmit(recWfak);
                Program.dbDataTransSumma.SubmitChanges();
            }
        }
Exemple #2
0
 private void tblwfaklinDataGridView1_MouseDown(object sender, MouseEventArgs e)
 {
     if (e.Button == System.Windows.Forms.MouseButtons.Right)
     {
         DataGridView.HitTestInfo hit = tblwfaklinDataGridView.HitTest(e.X, e.Y);
         int hitcol = hit.ColumnIndex;
         if (hit.Type == DataGridViewHitTestType.Cell && hit.ColumnIndex == 2)
         {
             tblwfaklinDataGridView.ClearSelection();
             DataGridViewCell cellVarenr = tblwfaklinDataGridView.Rows[hit.RowIndex].Cells[hit.ColumnIndex];
             cellVarenr.Selected = true;
             Point       startPoint    = tblwfaklinDataGridView.PointToScreen(new Point(e.X, e.Y));
             FrmVareList m_frmVareList = new FrmVareList(startPoint);
             m_frmVareList.ShowDialog();
             int?selectedVarenr = m_frmVareList.SelectedVarenr;
             m_frmVareList.Close();
             if (selectedVarenr != null)
             {
                 Tblwfak    recWfak    = tblwfakBindingSource.Current as Tblwfak;
                 Tblwfaklin recWfaklin = ((DataGridView)sender).Rows[hit.RowIndex].DataBoundItem as Tblwfaklin;
                 if (recWfaklin != null)
                 {
                     try
                     {
                         recVarer rec = (from k in Program.karVarer where k.Varenr == selectedVarenr select k).First();
                         recWfaklin.Varenr = rec.Varenr.ToString();
                         recWfaklin.Tekst  = rec.Varenavn;
                         recWfaklin.Enhed  = rec.Enhed;
                         if (recWfak.Sk == "S")
                         {
                             recWfaklin.Konto    = rec.Salgskonto;
                             recWfaklin.Momskode = KarKontoplan.getMomskode(rec.Salgskonto);
                             recWfaklin.Pris     = rec.Salgspris;
                         }
                         if (recWfak.Sk == "K")
                         {
                             recWfaklin.Konto    = rec.Kobskonto;
                             recWfaklin.Momskode = KarKontoplan.getMomskode(rec.Kobskonto);
                             recWfaklin.Pris     = rec.Kobspris;
                         }
                     }
                     catch {}
                 }
             }
         }
         else if (hit.Type == DataGridViewHitTestType.Cell && hit.ColumnIndex == 4)
         {
             tblwfaklinDataGridView.ClearSelection();
             tblwfaklinDataGridView.Rows[hit.RowIndex].Cells[hit.ColumnIndex].Selected = true;
             Point            startPoint         = tblwfaklinDataGridView.PointToScreen(new Point(e.X, e.Y));
             FrmKontoplanList m_frmKontoplanList = new FrmKontoplanList(startPoint, KontoType.Drift | KontoType.Status);
             m_frmKontoplanList.ShowDialog();
             int?   selectedKontonr  = m_frmKontoplanList.SelectedKontonr;
             string selectedMomskode = m_frmKontoplanList.SelectedMomskode;
             m_frmKontoplanList.Close();
             if (selectedKontonr != null)
             {
                 Tblwfaklin recWfaklin = ((DataGridView)sender).Rows[hit.RowIndex].DataBoundItem as Tblwfaklin;
                 if (recWfaklin != null)
                 {
                     recWfaklin.Konto    = selectedKontonr;
                     recWfaklin.Momskode = selectedMomskode;
                 }
             }
         }
         else if (hit.Type == DataGridViewHitTestType.RowHeader)
         {
             this.contextMenuLineCopyPaste.Show(this.tblwfaklinDataGridView, new Point(e.X, e.Y));
         }
     }
 }
Exemple #3
0
        public void ImportSalgsfakturaer()
        {
            int?   lastFakid    = null;
            Tblfak recFak       = null;
            var    rec_regnskab = Program.qryAktivRegnskab();
            var    qrySFak      = from sfv in Program.karFakturavarer_s
                                  join sf in Program.karFakturaer_s on new { fakid = sfv.Fakid } equals new { fakid = sf.fakid }
            where sf.faknr != 0 && sf.faktype == 0
            join fl in Program.dbDataTransSumma.Tblfaklin
            on new
            {
                regnskabsid = (int?)rec_regnskab.Rid,
                fakid       = (int?)sfv.Fakid,
                sk          = "S",
                line        = (int?)sfv.Line
            }
            equals new
            {
                regnskabsid = fl.Regnskabid,
                fakid       = fl.Fakid,
                sk          = fl.Sk,
                line        = fl.Faklinnr
            }
            into tblfaklin
            from fl in tblfaklin.DefaultIfEmpty(new Tblfaklin {
                Pid = 0, Fakpid = 0, Regnskabid = null
            })
            where fl.Pid == 0
            orderby sfv.Fakid, sfv.Line
                   select new
            {
                Regnskabid  = rec_regnskab.Rid,
                Sk          = "S",
                Fakid       = sfv.Fakid,
                Faknr       = sf.faknr,
                Dato        = sf.dato,
                debitornr   = sf.debitornr,
                Faklinnr    = sfv.Line,
                Varenr      = sfv.Varenr,
                Tekst       = sfv.VareTekst,
                Konto       = sfv.Bogfkonto,
                Momskode    = KarKontoplan.getMomskode(sfv.Bogfkonto),
                Antal       = sfv.Antal,
                Enhed       = sfv.Enhed,
                Pris        = sfv.Pris,
                Rabat       = sfv.Rabat,
                Moms        = sfv.Moms,
                Nettobelob  = sfv.Nettobelob,
                Bruttobelob = sfv.Bruttobelob,
            };

            int antal = qrySFak.Count();

            foreach (var s in qrySFak)
            {
                if ((!(s.Fakid == 0)) && (lastFakid != s.Fakid))
                {
                    try
                    {
                        recFak = (from f in Program.dbDataTransSumma.Tblfak
                                  where f.Regnskabid == rec_regnskab.Rid && f.Sk == "S" && f.Fakid == s.Fakid
                                  select f).First();
                    }
                    catch
                    {
                        recFak = new Tblfak
                        {
                            Udskriv    = true,
                            Regnskabid = s.Regnskabid,
                            Sk         = s.Sk,
                            Fakid      = s.Fakid,
                            Faknr      = s.Faknr,
                            Dato       = s.Dato,
                            Konto      = s.debitornr
                        };
                        Program.dbDataTransSumma.Tblfak.InsertOnSubmit(recFak);
                    }
                }


                Tblfaklin recFaklin = new Tblfaklin
                {
                    Sk          = s.Sk,
                    Regnskabid  = s.Regnskabid,
                    Fakid       = s.Fakid,
                    Faklinnr    = s.Faklinnr,
                    Varenr      = s.Varenr.ToString(),
                    Tekst       = s.Tekst,
                    Konto       = s.Konto,
                    Momskode    = s.Momskode,
                    Antal       = s.Antal,
                    Enhed       = s.Enhed,
                    Pris        = s.Pris,
                    Rabat       = s.Rabat,
                    Moms        = s.Moms,
                    Nettobelob  = s.Nettobelob,
                    Bruttobelob = s.Bruttobelob
                };
                Program.dbDataTransSumma.Tblfaklin.InsertOnSubmit(recFaklin);
                if (!(s.Fakid == 0))
                {
                    recFak.Tblfaklin.Add(recFaklin);
                }
                lastFakid = s.Fakid;
            }
            Program.dbDataTransSumma.SubmitChanges();
        }