From 9525e5adc67509992cbcc25b71db2e881bbd1bb8 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 14 Nov 2022 13:13:39 +0100 Subject: [PATCH] Bugfix Besonderheiten,Preise --- .../FormulareBaukasten/usrcntlVerzollungspreise.vb | 4 ++-- SDL/kunden/frmKundenBesonderheiten_Add.vb | 2 +- SDL/kunden/usrCntlKundenBesonderheiten.vb | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index 013194f7..68d40d9c 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -299,7 +299,6 @@ DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "348", "Fremdgrenze", CDbl(20).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 @@ -308,6 +307,7 @@ dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") dgvZusatzleistung.Rows.Add("", "", "Zollbeschau**", CDbl(60).ToString("C2") & "/Std.") + dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) @@ -327,7 +327,6 @@ DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "348", "Fremdgrenze", CDbl(20).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 @@ -337,6 +336,7 @@ ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) Case "EUST" diff --git a/SDL/kunden/frmKundenBesonderheiten_Add.vb b/SDL/kunden/frmKundenBesonderheiten_Add.vb index f339baa5..296cef30 100644 --- a/SDL/kunden/frmKundenBesonderheiten_Add.vb +++ b/SDL/kunden/frmKundenBesonderheiten_Add.vb @@ -57,7 +57,7 @@ End Sub Private Sub frmKundenBesonderheiten_Add_Load(sender As Object, e As EventArgs) Handles Me.Load - cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien] WHERE (kdbkat_Firma IS NULL OR kdbkat_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ) ", False, "FMZOLL", True) + cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien] WHERE (isnull(kdbkat_Firma,'')='' OR kdbkat_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ) ", False, "FMZOLL", True) If KD_BESONSERHEITEN.hasEntry Then rtbText.Text = KD_BESONSERHEITEN.kdb_text diff --git a/SDL/kunden/usrCntlKundenBesonderheiten.vb b/SDL/kunden/usrCntlKundenBesonderheiten.vb index 60237546..4a53fe5e 100644 --- a/SDL/kunden/usrCntlKundenBesonderheiten.vb +++ b/SDL/kunden/usrCntlKundenBesonderheiten.vb @@ -30,7 +30,7 @@ End Sub Private Sub usrCntlKundenBesonderheiten_Load(sender As Object, e As EventArgs) Handles Me.Load 'initDGV() - cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien]", False, "FMZOLL", True) + cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien] WHERE (isnull(kdbkat_Firma,'')='' OR kdbkat_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ) ", False, "FMZOLL", True) If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Besonderheiten_Bearbeiten", "SDL") Then showhideOptions(True)