From d561ec8f27897bfaf1d790330cfd90ab64781e94 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 22 Sep 2026 14:30:17 +0200 Subject: [PATCH] =?UTF-8?q?div.=20=C3=84nderungen,=20Gesamtsicherheiten,?= =?UTF-8?q?=20etc.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Aviso/My Project/AssemblyInfo.vb | 4 +- Aviso/frmGesamtsicherheitenMenu.vb | 10 +- .../frmGesamtsicherheitenMenuNEU.Designer.vb | 147 ++++++++------- Aviso/frmGesamtsicherheitenMenuNEU.vb | 173 ++++++++++++------ Aviso/frmGesamtsicherheitenNEU.vb | 172 ++++++++++++++--- Aviso/frmSendungsdetailsNEU.vb | 48 ++--- Aviso/usrCntlSND_ATBGestellung.vb | 8 +- 7 files changed, 377 insertions(+), 185 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 2b51d02..4b92ea3 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmGesamtsicherheitenMenu.vb b/Aviso/frmGesamtsicherheitenMenu.vb index 804b4b0..fc60f70 100644 --- a/Aviso/frmGesamtsicherheitenMenu.vb +++ b/Aviso/frmGesamtsicherheitenMenu.vb @@ -20,7 +20,7 @@ Public Class frmGesamtsicherheitenMenu frmHauptfenster.EnableDoubleBuffered(dgvListe) GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort) 'GesSichRef.LOAD("standort", Standort) - lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") + lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo_new()).ToString("N") txtVon._ShortDateOnly = True txtbis._ShortDateOnly = True @@ -102,7 +102,7 @@ Public Class frmGesamtsicherheitenMenu 'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N") lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.getReferenzbetrag(Now()).ToString() lblZollsatz.Text = "Zollsatz: " & GesSichRef.brgakto_gs_zollsatz & "%" - lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") + lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo_new()).ToString("N") End Sub @@ -122,7 +122,7 @@ Public Class frmGesamtsicherheitenMenu End With AddHandler frm.FormClosing, Function() - GesSichRef.CalcSaldo() + GesSichRef.CalcSaldo_new() ShowStandort() LoadDGV() Me.BringToFront() @@ -142,7 +142,7 @@ Public Class frmGesamtsicherheitenMenu .Neu = True End With AddHandler frm.FormClosing, Function() - GesSichRef.CalcSaldo() + GesSichRef.CalcSaldo_new() ShowStandort() LoadDGV() Me.BringToFront() @@ -151,7 +151,7 @@ Public Class frmGesamtsicherheitenMenu End Sub Private Sub lblSaldo_Click(sender As Object, e As EventArgs) Handles lblSaldo.Click - lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") + lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo_new()).ToString("N") LoadDGV() End Sub diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb b/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb index 118cc7f..51ef1b0 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb @@ -37,14 +37,13 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.SicherheitsbetragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MehrfacheATBNrToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel1 = New System.Windows.Forms.Panel() + Me.cbxAUTO = New System.Windows.Forms.CheckBox() Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.btnOpenOver85Days = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label26 = New System.Windows.Forms.Label() Me.btnBisTag = New System.Windows.Forms.Button() Me.btnVonTag = New System.Windows.Forms.Button() Me.btnTag = New System.Windows.Forms.Button() - Me.txtDatVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label24 = New System.Windows.Forms.Label() Me.btnJahr = New System.Windows.Forms.Button() Me.btnBisJahr = New System.Windows.Forms.Button() @@ -70,7 +69,9 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.lblReferenzwert = New System.Windows.Forms.Label() Me.btnExcel = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.dgvListe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.cbxAUTO = New System.Windows.Forms.CheckBox() + Me.GestellungenInDerZukunftToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtDatVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.ContextMenuStrip1.SuspendLayout() Me.Panel1.SuspendLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() @@ -81,7 +82,7 @@ Partial Class frmGesamtsicherheitenMenuNEU ' Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem, Me.SaldenNeuBerechnenToolStripMenuItem, Me.SaldoZumStichtagToolStripMenuItem, Me.PrüfungAusPlausibilitätToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(202, 92) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(202, 114) ' 'ExportCSVToolStripMenuItem ' @@ -113,6 +114,7 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.RLZollamtBereinigtToolStripMenuItem.Name = "RLZollamtBereinigtToolStripMenuItem" Me.RLZollamtBereinigtToolStripMenuItem.Size = New System.Drawing.Size(183, 22) Me.RLZollamtBereinigtToolStripMenuItem.Text = "RL-Zollamt bereinigt" + Me.RLZollamtBereinigtToolStripMenuItem.Visible = False ' 'SaldenNeuBerechnenToolStripMenuItem ' @@ -128,7 +130,7 @@ Partial Class frmGesamtsicherheitenMenuNEU ' 'PrüfungAusPlausibilitätToolStripMenuItem ' - Me.PrüfungAusPlausibilitätToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AusgangEingangToolStripMenuItem, Me.SicherheitsbetragToolStripMenuItem, Me.MehrfacheATBNrToolStripMenuItem}) + Me.PrüfungAusPlausibilitätToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AusgangEingangToolStripMenuItem, Me.SicherheitsbetragToolStripMenuItem, Me.MehrfacheATBNrToolStripMenuItem, Me.GestellungenInDerZukunftToolStripMenuItem}) Me.PrüfungAusPlausibilitätToolStripMenuItem.Name = "PrüfungAusPlausibilitätToolStripMenuItem" Me.PrüfungAusPlausibilitätToolStripMenuItem.Size = New System.Drawing.Size(201, 22) Me.PrüfungAusPlausibilitätToolStripMenuItem.Text = "Prüfung auf Plausibilität" @@ -136,19 +138,19 @@ Partial Class frmGesamtsicherheitenMenuNEU 'AusgangEingangToolStripMenuItem ' Me.AusgangEingangToolStripMenuItem.Name = "AusgangEingangToolStripMenuItem" - Me.AusgangEingangToolStripMenuItem.Size = New System.Drawing.Size(178, 22) + Me.AusgangEingangToolStripMenuItem.Size = New System.Drawing.Size(221, 22) Me.AusgangEingangToolStripMenuItem.Text = "Ausgang < Eingang" ' 'SicherheitsbetragToolStripMenuItem ' Me.SicherheitsbetragToolStripMenuItem.Name = "SicherheitsbetragToolStripMenuItem" - Me.SicherheitsbetragToolStripMenuItem.Size = New System.Drawing.Size(178, 22) + Me.SicherheitsbetragToolStripMenuItem.Size = New System.Drawing.Size(221, 22) Me.SicherheitsbetragToolStripMenuItem.Text = "Sicherheitsbetrag" ' 'MehrfacheATBNrToolStripMenuItem ' Me.MehrfacheATBNrToolStripMenuItem.Name = "MehrfacheATBNrToolStripMenuItem" - Me.MehrfacheATBNrToolStripMenuItem.Size = New System.Drawing.Size(178, 22) + Me.MehrfacheATBNrToolStripMenuItem.Size = New System.Drawing.Size(221, 22) Me.MehrfacheATBNrToolStripMenuItem.Text = "mehrfache ATB-Nr" ' 'Panel1 @@ -192,6 +194,19 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.Panel1.Size = New System.Drawing.Size(706, 288) Me.Panel1.TabIndex = 0 ' + 'cbxAUTO + ' + Me.cbxAUTO.AutoSize = True + Me.cbxAUTO.Checked = True + Me.cbxAUTO.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAUTO.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.cbxAUTO.Location = New System.Drawing.Point(36, 233) + Me.cbxAUTO.Name = "cbxAUTO" + Me.cbxAUTO.Size = New System.Drawing.Size(56, 17) + Me.cbxAUTO.TabIndex = 133 + Me.cbxAUTO.Text = "AUTO" + Me.cbxAUTO.UseVisualStyleBackColor = True + ' 'PictureBox5 ' Me.PictureBox5.BackColor = System.Drawing.Color.White @@ -218,31 +233,6 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.btnOpenOver85Days.UseVisualStyleBackColor = False Me.btnOpenOver85Days.Visible = False ' - 'txtDatBis - ' - Me.txtDatBis._DateTimeOnly = False - Me.txtDatBis._numbersOnly = False - Me.txtDatBis._numbersOnlyKommastellen = "" - Me.txtDatBis._numbersOnlyTrennzeichen = True - Me.txtDatBis._Prozent = False - Me.txtDatBis._ShortDateNew = False - Me.txtDatBis._ShortDateOnly = True - Me.txtDatBis._TimeOnly = False - Me.txtDatBis._TimeOnly_Seconds = False - Me.txtDatBis._value = "" - Me.txtDatBis._Waehrung = False - Me.txtDatBis._WaehrungZeichen = True - Me.txtDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtDatBis.ForeColor = System.Drawing.Color.Black - Me.txtDatBis.Location = New System.Drawing.Point(62, 170) - Me.txtDatBis.MaxLength = 10 - Me.txtDatBis.MaxLineLength = -1 - Me.txtDatBis.MaxLines_Warning = "" - Me.txtDatBis.MaxLines_Warning_Label = Nothing - Me.txtDatBis.Name = "txtDatBis" - Me.txtDatBis.Size = New System.Drawing.Size(63, 20) - Me.txtDatBis.TabIndex = 25 - ' 'Label26 ' Me.Label26.AutoSize = True @@ -301,31 +291,6 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.btnTag.Text = "Heute" Me.btnTag.UseVisualStyleBackColor = False ' - 'txtDatVon - ' - Me.txtDatVon._DateTimeOnly = False - Me.txtDatVon._numbersOnly = False - Me.txtDatVon._numbersOnlyKommastellen = "" - Me.txtDatVon._numbersOnlyTrennzeichen = True - Me.txtDatVon._Prozent = False - Me.txtDatVon._ShortDateNew = False - Me.txtDatVon._ShortDateOnly = True - Me.txtDatVon._TimeOnly = False - Me.txtDatVon._TimeOnly_Seconds = False - Me.txtDatVon._value = "" - Me.txtDatVon._Waehrung = False - Me.txtDatVon._WaehrungZeichen = True - Me.txtDatVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtDatVon.ForeColor = System.Drawing.Color.Black - Me.txtDatVon.Location = New System.Drawing.Point(62, 146) - Me.txtDatVon.MaxLength = 10 - Me.txtDatVon.MaxLineLength = -1 - Me.txtDatVon.MaxLines_Warning = "" - Me.txtDatVon.MaxLines_Warning_Label = Nothing - Me.txtDatVon.Name = "txtDatVon" - Me.txtDatVon.Size = New System.Drawing.Size(63, 20) - Me.txtDatVon.TabIndex = 18 - ' 'Label24 ' Me.Label24.AutoSize = True @@ -648,18 +613,61 @@ Partial Class frmGesamtsicherheitenMenuNEU Me.dgvListe.Size = New System.Drawing.Size(706, 394) Me.dgvListe.TabIndex = 1 ' - 'cbxAUTO + 'GestellungenInDerZukunftToolStripMenuItem ' - Me.cbxAUTO.AutoSize = True - Me.cbxAUTO.Checked = True - Me.cbxAUTO.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxAUTO.ForeColor = System.Drawing.SystemColors.ButtonHighlight - Me.cbxAUTO.Location = New System.Drawing.Point(36, 233) - Me.cbxAUTO.Name = "cbxAUTO" - Me.cbxAUTO.Size = New System.Drawing.Size(56, 17) - Me.cbxAUTO.TabIndex = 133 - Me.cbxAUTO.Text = "AUTO" - Me.cbxAUTO.UseVisualStyleBackColor = True + Me.GestellungenInDerZukunftToolStripMenuItem.Name = "GestellungenInDerZukunftToolStripMenuItem" + Me.GestellungenInDerZukunftToolStripMenuItem.Size = New System.Drawing.Size(221, 22) + Me.GestellungenInDerZukunftToolStripMenuItem.Text = "Gestellungen in der Zukunft" + ' + 'txtDatBis + ' + Me.txtDatBis._DateTimeOnly = False + Me.txtDatBis._numbersOnly = False + Me.txtDatBis._numbersOnlyKommastellen = "" + Me.txtDatBis._numbersOnlyTrennzeichen = True + Me.txtDatBis._Prozent = False + Me.txtDatBis._ShortDateNew = False + Me.txtDatBis._ShortDateOnly = True + Me.txtDatBis._TimeOnly = False + Me.txtDatBis._TimeOnly_Seconds = False + Me.txtDatBis._value = "" + Me.txtDatBis._Waehrung = False + Me.txtDatBis._WaehrungZeichen = True + Me.txtDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDatBis.ForeColor = System.Drawing.Color.Black + Me.txtDatBis.Location = New System.Drawing.Point(62, 170) + Me.txtDatBis.MaxLength = 10 + Me.txtDatBis.MaxLineLength = -1 + Me.txtDatBis.MaxLines_Warning = "" + Me.txtDatBis.MaxLines_Warning_Label = Nothing + Me.txtDatBis.Name = "txtDatBis" + Me.txtDatBis.Size = New System.Drawing.Size(63, 20) + Me.txtDatBis.TabIndex = 25 + ' + 'txtDatVon + ' + Me.txtDatVon._DateTimeOnly = False + Me.txtDatVon._numbersOnly = False + Me.txtDatVon._numbersOnlyKommastellen = "" + Me.txtDatVon._numbersOnlyTrennzeichen = True + Me.txtDatVon._Prozent = False + Me.txtDatVon._ShortDateNew = False + Me.txtDatVon._ShortDateOnly = True + Me.txtDatVon._TimeOnly = False + Me.txtDatVon._TimeOnly_Seconds = False + Me.txtDatVon._value = "" + Me.txtDatVon._Waehrung = False + Me.txtDatVon._WaehrungZeichen = True + Me.txtDatVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDatVon.ForeColor = System.Drawing.Color.Black + Me.txtDatVon.Location = New System.Drawing.Point(62, 146) + Me.txtDatVon.MaxLength = 10 + Me.txtDatVon.MaxLineLength = -1 + Me.txtDatVon.MaxLines_Warning = "" + Me.txtDatVon.MaxLines_Warning_Label = Nothing + Me.txtDatVon.Name = "txtDatVon" + Me.txtDatVon.Size = New System.Drawing.Size(63, 20) + Me.txtDatVon.TabIndex = 18 ' 'frmGesamtsicherheitenMenuNEU ' @@ -731,4 +739,5 @@ Partial Class frmGesamtsicherheitenMenuNEU Friend WithEvents RLZollamtBereinigtToolStripMenuItem As ToolStripMenuItem Friend WithEvents MehrfacheATBNrToolStripMenuItem As ToolStripMenuItem Friend WithEvents cbxAUTO As CheckBox + Friend WithEvents GestellungenInDerZukunftToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index ba766d3..871d4d0 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb @@ -81,6 +81,10 @@ Public Class frmGesamtsicherheitenMenuNEU If txtSuchbegriff.Text <> "" Then + Dim sqlWhereZusatz As String = "" + If IsNumeric(txtSuchbegriff.Text) Then + sqlWhereZusatz = " OR gs.gs_gsNr = " & txtSuchbegriff.Text + End If sqlWhere = " AND ( gs.gs_freitext LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR gs.gs_abfertigungsNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR @@ -89,42 +93,14 @@ Public Class frmGesamtsicherheitenMenuNEU gs.gs_VeralteteWeitereRegistriernummer LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR gs.gs_MRNNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR gs.gs_LKWKZ LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR - gs.gs_warenort LIKE '%" & txtSuchbegriff.Text.Trim() & "%' - )" + gs.gs_warenort LIKE '%" & txtSuchbegriff.Text.Trim() & "%'" & sqlWhereZusatz & + ")" End If - 'Dim sqlstring As String = - ' " select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr, MIN(gs_avisoId) as gs_avisoId, - ' max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT( - ' (Select SUM( Case - 'when gs_art = 'Open' then (gs_sicherheitsbetrag * -1) - 'when gs_art = 'Close' then gs_sicherheitsbetrag - ' End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheit] where gs_gsnr = meh.gs_gsnr - ' ) - ' + - ' (Select SUM( Case - 'when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1) - 'when gsp_art = 'Close' then gsp_sicherheitsbetrag - ' End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheitsPositionen] where gsp_gsnr = meh.gs_gsnr - ' ) , 'C', 'de-DE') as gs_SicherheitsSaldo - - ' From (select * from (select gs_gsnr as ding from [tblGesamtsicherheit] where - ' gs_freitext like '%" & txtSuchbegriff.Text & "%' OR - ' gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR - ' gs_avisoId like '%" & txtSuchbegriff.Text & "%' OR - ' gs_ATBNr like '%" & txtSuchbegriff.Text & "%' OR - ' gs_LKWKZ like '%" & txtSuchbegriff.Text & "%' OR - ' gs_warenort like '%" & txtSuchbegriff.Text & "%' - ' ) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.gs_gsnr) as meh group by gs_gsnr) as meh2 - ' Where gs_standort = '" & Standort & "' " & sqladdon & " - ' AND gs_datum > '" & Date.Parse(txtDatVon.Text) & "' - ' AND gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "' ORDER BY gs_gsnr" - - Dim sqlstring As String = "WITH SicherheitsSaldo AS ( SELECT @@ -581,7 +557,7 @@ Public Class frmGesamtsicherheitenMenuNEU Exit Sub End If - If Not zollliste_bereinigt Then SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten) + If Not zollliste_bereinigt Then SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten, {"K1:K" & (frm.dtSicherheiten.Rows.Count + 1)}) End Sub @@ -629,7 +605,7 @@ Public Class frmGesamtsicherheitenMenuNEU Dim f As New frmDatumsabfrage("Saldo zum Stichtag", False) f.ShowDialog() If f.DialogResult = DialogResult.OK Then - GesSichRef.CalcSaldo(, f.Datum, True) + GesSichRef.CalcSaldo_new(, f.Datum, True) End If @@ -639,9 +615,16 @@ Public Class frmGesamtsicherheitenMenuNEU - Dim SQLPlausPruefung = "select gs_gsnr as Nr,gs_ATBNr as ATBNr, gs_Sicherheitsbetrag as Sicherheitsbetrag ,gsp_ATCNr as ATCNr , cast(gs_datum as Date) as Ausgangsdatum, cast(gsp_datum as Date) as Eingangsdatum, [gs_erstellungsdatum] as Erstellungsdatum, [gs_zuletztgeandert] as GeänderAm, [gs_systemuser] as Benutzer from tblGesamtsicherheit - inner join tblGesamtsicherheitsPositionen on gs_gsId = gsp_gsId - where cast(gsp_datum as Date) < cast(gs_datum as Date) and not ( [gs_sicherheitsbetrag] = 0.00 and [gsp_sicherheitsbetrag] = 0.00) and gs_standort = '" & Standort & "'" + Dim SQLPlausPruefung = "SELECT + gs.gs_gsId, + gs.gs_datum AS GestellungDatum, + gsp.gsp_datum AS PositionDatum, + gsp.gsp_sicherheitsbetrag + FROM dbo.tblGesamtsicherheit AS gs + INNER JOIN dbo.tblGesamtsicherheitsPositionen AS gsp + ON gsp.gsp_gsId = gs.gs_gsId + WHERE gs.gs_standort = '" & Standort & "' + AND gsp.gsp_datum < gs.gs_datum;" Dim dt As New DataTable @@ -666,29 +649,45 @@ Public Class frmGesamtsicherheitenMenuNEU Private Sub SicherheitsbetragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SicherheitsbetragToolStripMenuItem.Click - Dim SQLPlausPruefung = "SELECT - gs.gs_gsnr, - gs.Sicherheitbetrag_Ausgang, - gsp.Sicherheitbetrag_Eingang, - gs.gs_standort -FROM -( - SELECT - gs_gsnr, - gs_standort, - SUM(gs_sicherheitsbetrag) AS Sicherheitbetrag_Ausgang - FROM tblGesamtsicherheit - GROUP BY gs_standort, gs_gsnr -) gs -JOIN -( - SELECT - gsp_gsnr, - SUM(gsp_sicherheitsbetrag) AS Sicherheitbetrag_Eingang - FROM tblGesamtsicherheitsPositionen - GROUP BY gsp_gsnr -) gsp - ON gs.gs_gsnr = gsp.gsp_gsnr WHERE gs.Sicherheitbetrag_Ausgang < gsp.Sicherheitbetrag_Eingang and gs_standort = '" & Standort & "' and gs_gsnr <> 2030 order by gs.gs_gsnr" + Dim SQLPlausPruefung = "DECLARE @Standort varchar(100) = '" & Standort & "'; + + SELECT + gs.gs_gsnr, + gs.Sicherheitsbetrag_Eingang, + gsp.Sicherheitsbetrag_Ausgang, + gs.gs_standort, + gsp.Sicherheitsbetrag_Ausgang + - gs.Sicherheitsbetrag_Eingang AS Differenz + FROM + ( + SELECT + gs_gsnr, + gs_standort, + SUM(ISNULL(gs_sicherheitsbetrag, 0)) + AS Sicherheitsbetrag_Eingang + FROM dbo.tblGesamtsicherheit + WHERE gs_standort = @Standort + AND gs_gsnr <> 2030 + GROUP BY + gs_gsnr, + gs_standort + ) AS gs + INNER JOIN + ( + SELECT + gsp_gsnr, + SUM(ISNULL(gsp_sicherheitsbetrag, 0)) + AS Sicherheitsbetrag_Ausgang + FROM dbo.tblGesamtsicherheitsPositionen + GROUP BY + gsp_gsnr + ) AS gsp + ON gsp.gsp_gsnr = gs.gs_gsnr + WHERE + gs.Sicherheitsbetrag_Eingang + < gsp.Sicherheitsbetrag_Ausgang + ORDER BY + gs.gs_gsnr;" Dim dt As New DataTable @@ -697,7 +696,7 @@ JOIN If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - MsgBox(dt.Rows.Count & " Datensätze müssen korrigiert werden (S-Betrag des Gestellungseinganges darf nicht größer als der des dem Gestellungsausganges)! " & vbNewLine & "Ansonsten können keine korrekten Werte über die Saldenliste ermittelt werden.") + MsgBox(dt.Rows.Count & " Datensätze müssen korrigiert werden (S-Betrag des Gestellungseinganges darf nicht größer als der des Gestellungsausganges)! " & vbNewLine & "Ansonsten können keine korrekten Werte über die Saldenliste ermittelt werden.") SDL.cProgramFunctions.genExcelFromDT_NEW(dt) Else @@ -737,4 +736,60 @@ JOIN End If End Sub + + Private Sub GestellungenInDerZukunftToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GestellungenInDerZukunftToolStripMenuItem.Click + + + Dim SQLPlausPruefung = "DECLARE @Heute date = CAST(GETDATE() AS date) DECLARE @Standort varchar(100) = '" & Standort & "'; + + -- Zukünftige Gestellungen + SELECT + gs.gs_gsnr AS Nummer, + 'Gestellung' AS Typ, + gs.gs_datum AS Datum, + gs.gs_standort AS Standort, + gs.gs_ATBNr AS Registriernummer, + gs.gs_MRNNr AS MRN, + gs.gs_sicherheitsbetrag AS Sicherheitsbetrag + FROM tblGesamtsicherheit AS gs + WHERE gs.gs_datum >= DATEADD(day, 1, @Heute) AND gs.gs_standort = @Standort + + UNION ALL + + -- Zukünftige Gestellungspositionen + SELECT + gsp.gsp_gsnr AS Nummer, + 'Gestellungsposition' AS Typ, + gsp.gsp_datum AS Datum, + gs.gs_standort AS Standort, + gsp.gsp_ATCNr AS Registriernummer, + gsp.gsp_MRNNr AS MRN, + gsp.gsp_sicherheitsbetrag AS Sicherheitsbetrag + FROM tblGesamtsicherheitsPositionen AS gsp + INNER JOIN tblGesamtsicherheit AS gs + ON gs.gs_gsnr = gsp.gsp_gsnr + WHERE gsp.gsp_datum >= DATEADD(day, 1, @Heute) AND gs.gs_standort = @Standort + + ORDER BY + Datum, + Nummer, + Typ;" + + + Dim dt As New DataTable + dt = SQL.loadDgvBySql(SQLPlausPruefung, "AVISO", 100, True) + + + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + + MsgBox(dt.Rows.Count & " Datensätze befinden sich in der Zukunft, bitte korrektes Datum eintragen. " & vbNewLine & "Ansonsten können keine korrekten Werte über die Saldenliste ermittelt werden.") + SDL.cProgramFunctions.genExcelFromDT_NEW(dt) + + Else + + MsgBox("keine fehlerhaften Eingaben vorhanden!") + + End If + + End Sub End Class diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 5efb562..fea5a47 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -80,7 +80,7 @@ Public Class frmGesamtsicherheitenNEU End Select currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaId) - SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo()) + SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo_new()) lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N") Me.Text = "Gesamtsicherheit " & Standort @@ -295,7 +295,7 @@ Public Class frmGesamtsicherheitenNEU and isnull(gs_sicherheitsbetrag,0) <> 0 and gs_datum is not null UNION - Select gsp_gsnr, [gsp_ATCNr],gsp_MRNNr,'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag], [gsp_freitext],'',[gsp_ust] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") & " From [tblGesamtsicherheitsPositionen] + Select gsp_gsnr, [gsp_ATCNr],gsp_MRNNr,'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") & " From [tblGesamtsicherheitsPositionen] Where gsp_gsnr In ( SELECT [gs_gsnr] FROM tblGesamtsicherheit WHERE gs_standort = '" & standort & "' AND cast(gs_datum as Date) > '" & datumVon.ToShortDateString & "' AND cast(gs_datum as Date) <= '" & datumBis.ToShortDateString & "' @@ -305,41 +305,159 @@ Public Class frmGesamtsicherheitenNEU ) as Temp order by Temp.Datum, Temp.Uhrzeit " - Dim SQLStringSicherheit_new_new As String = " select * from (select gs_gsnr as 'Nr',[gs_ATBNr] as 'Reg-Nr. Verwahrlager " & standort & "', gs_MRNNr as MRN,'Eingang Verwahrlager' as 'Typ', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_sicherheitsbetrag] *-1 as Sicherheitbetrag_Calc, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt' " & IIf(detailinfo, ", [gs_erstellungsdatum] as Erstellungsdatum, [gs_zuletztgeandert] as GeänderAm, [gs_systemuser] as Benutzer ", "") & " + Dim SQLStringSicherheit_new_new As String = " select * from (select gs_gsnr as 'Nr',[gs_ATBNr] as 'Reg-Nr. Verwahrlager " & standort & "', gs_MRNNr as MRN,'Eingang Verwahrlager' as 'Typ', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_sicherheitsbetrag] *-1 as Sicherheitbetrag_Calc " & IIf(detailinfo, ", [gs_erstellungsdatum] as Erstellungsdatum, [gs_zuletztgeandert] as GeänderAm, [gs_systemuser] as Benutzer ", "") & " From [tblGesamtsicherheit] Where gs_standort = '" & standort & "' AND cast(gs_datum as Date) > '" & datumVon.ToShortDateString & "' AND cast(gs_datum as Date) <= '" & datumBis.ToShortDateString & "' and gs_datum is not null UNION - Select gsp_gsnr, [gsp_ATCNr],gsp_MRNNr,'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag], [gsp_freitext],'',[gsp_ust] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") & " From [tblGesamtsicherheitsPositionen] + Select gsp_gsnr, [gsp_ATCNr],gsp_MRNNr,'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") & " From [tblGesamtsicherheitsPositionen] Where gsp_gsnr In ( SELECT [gs_gsnr] FROM tblGesamtsicherheit WHERE gs_standort = '" & standort & "' ) and gsp_datum is not null AND cast(gsp_datum as Date) >= '" & datumVon.ToShortDateString & "' ) as Temp order by Temp.Datum, Temp.Uhrzeit " - dtSicherheiten = SQL.loadDgvBySql(SQLStringSicherheit_new_new, "AVISO", 100, True) + + Dim SQLStringSicherheit_refactored As String = " DECLARE @DatumVon date = '" & datumVon.ToShortDateString & "'; + DECLARE @DatumBis date = '" & datumBis.ToShortDateString & "'; + DECLARE @Standort varchar(100) = '" & standort & "'; - dtSicherheiten.Columns.Add("Saldo") +;WITH ReferenzHistorie AS +( + SELECT + k.brgakto_gs_standort AS Standort, + r.brgarefb_id, + r.brgarefb_refbetrag, + r.brgarefb_gueltig_ab, + LAG(r.brgarefb_refbetrag, 1, 0) OVER + ( + PARTITION BY k.brgakto_gs_standort + ORDER BY + r.brgarefb_gueltig_ab, + r.brgarefb_id + ) AS VorherigerReferenzbetrag + FROM [ADMIN].[dbo].[tblBrgAufschubKonten] AS k + INNER JOIN [ADMIN].[dbo].[tblBrgAufschubReferenzberaege] AS r + ON r.brgarefb_gsid = k.brgakto_id + WHERE k.brgakto_gs_standort = @Standort + AND ISNULL(r.brgarefb_gs_aktiv, 1) = 1 +), +Saldenliste AS +( + /* Referenzbetragsänderungen nach dem Anfangssaldo */ +SELECT + 0 AS Nr, + CAST(NULL AS varchar(100)) AS RegNr, + CAST(NULL AS varchar(100)) AS MRN, + 'Änderung Referenzbetrag' AS Typ, + CAST(rh.brgarefb_gueltig_ab AS date) AS Datum, + CAST('00:00:00' AS time) AS Uhrzeit, + CAST(NULL AS decimal(18,2)) AS Warenwert, + rh.brgarefb_refbetrag AS Sicherheitbetrag, + rh.brgarefb_refbetrag + - rh.VorherigerReferenzbetrag AS Sicherheitbetrag_Calc, + rh.Standort, + 0 AS Sortierung +FROM ReferenzHistorie AS rh +WHERE rh.brgarefb_gueltig_ab > @DatumVon + AND rh.brgarefb_gueltig_ab < DATEADD(day, 1, @DatumBis) + AND rh.brgarefb_refbetrag <> rh.VorherigerReferenzbetrag + + UNION ALL + + /* Eingang Verwahrlager */ + SELECT + gs.gs_gsnr AS Nr, + gs.gs_ATBNr AS RegNr, + gs.gs_MRNNr AS MRN, + 'Eingang Verwahrlager' AS Typ, + CAST(gs.gs_datum AS date) AS Datum, + CAST(gs.gs_datum AS time) AS Uhrzeit, + gs.gs_warenwert AS Warenwert, + gs.gs_sicherheitsbetrag AS Sicherheitbetrag, + gs.gs_sicherheitsbetrag * -1 AS Sicherheitbetrag_Calc, + gs.gs_standort AS Standort, + 1 AS Sortierung + FROM dbo.tblGesamtsicherheit AS gs + WHERE gs.gs_standort = @Standort + AND gs.gs_datum >= @DatumVon + AND gs.gs_datum < DATEADD(day, 1, @DatumBis) + AND gs.gs_datum IS NOT NULL + AND ISNULL(gs.gs_ReferenzAenderung, 0) = 0 + + UNION ALL + + /* Ausgang Verwahrlager */ +SELECT + gsp.gsp_gsnr AS Nr, + gsp.gsp_ATCNr AS RegNr, + gsp.gsp_MRNNr AS MRN, + 'Ausgang Verwahrlager' AS Typ, + CAST(gsp.gsp_datum AS date) AS Datum, + CAST(gsp.gsp_datum AS time) AS Uhrzeit, + gsp.gsp_warenwert AS Warenwert, + gsp.gsp_sicherheitsbetrag AS Sicherheitbetrag, + gsp.gsp_sicherheitsbetrag AS Sicherheitbetrag_Calc, + @Standort AS Standort, + 2 AS Sortierung +FROM dbo.tblGesamtsicherheitsPositionen AS gsp +WHERE gsp.gsp_datum >= @DatumVon + AND gsp.gsp_datum < DATEADD(day, 1, @DatumBis) + AND gsp.gsp_datum IS NOT NULL + AND EXISTS + ( + SELECT 1 + FROM dbo.tblGesamtsicherheit AS gs + WHERE gs.gs_gsId = gsp.gsp_gsId + AND gs.gs_standort = @Standort + AND gs.gs_datum IS NOT NULL + AND gs.gs_datum < DATEADD(day, 1, @DatumBis) + AND ISNULL(gs.gs_ReferenzAenderung, 0) = 0 + ) +) +SELECT + Nr, + RegNr, + MRN, + Typ, + Datum, + Uhrzeit, + Warenwert, + Sicherheitbetrag, + Sicherheitbetrag_Calc, + Standort +FROM Saldenliste +ORDER BY + Datum ASC, + Sortierung ASC, + Uhrzeit ASC, + Nr ASC;" + + + dtSicherheiten = SQL.loadDgvBySql(SQLStringSicherheit_refactored, "AVISO", 100, True) + + + dtSicherheiten.Columns.Add("Saldo", GetType(Decimal)) Dim drFirst = dtSicherheiten.NewRow drFirst.Item("Nr") = 0 drFirst.Item("Typ") = "Uebertrag vom" drFirst.Item("Datum") = CDate(datumVon).ToShortDateString Dim DefaultSaldo As Double = currentGesSichRef.getReferenzbetrag(CDate(datumVon).ToShortDateString) - drFirst.Item("Saldo") = currentGesSichRef.CalcSaldo(, datumVon) 'SQL.getValueTxtBySql("SELECT TOP 1 isnull([gs_saldo],0) FROM [tblGesamtsicherheit] where gs_standort = '" & standort & "' AND gs_datum <'" & CDate(datumVon).ToShortDateString & "' order by gs_datum desc", "AVISO",,, DefaultSaldo) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo")) + drFirst.Item("Saldo") = currentGesSichRef.CalcSaldo_new(, datumVon) 'SQL.getValueTxtBySql("SELECT TOP 1 isnull([gs_saldo],0) FROM [tblGesamtsicherheit] where gs_standort = '" & standort & "' AND gs_datum <'" & CDate(datumVon).ToShortDateString & "' order by gs_datum desc", "AVISO",,, DefaultSaldo) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo")) dtSicherheiten.Rows.InsertAt(drFirst, 0) - Dim sicherheitsbetrag As Double - Dim saldo As Double - Dim c1 As Double - Dim saldoStart As Double + Dim sicherheitsbetrag As Decimal + Dim saldo As Decimal + Dim c1 As Decimal + Dim saldoStart As Decimal For i As Integer = 1 To dtSicherheiten.Rows.Count - 1 - saldoStart = CDbl(dtSicherheiten.Rows(0).Item("Saldo")) - saldo = CDbl(dtSicherheiten.Rows(i - 1).Item("Saldo")) + saldoStart = CDec(dtSicherheiten.Rows(0).Item("Saldo")) + saldo = CDec(dtSicherheiten.Rows(i - 1).Item("Saldo")) - sicherheitsbetrag = IIf(dtSicherheiten.Rows(i).Item("Sicherheitbetrag_Calc") IsNot Nothing, CDbl(dtSicherheiten.Rows(i).Item("Sicherheitbetrag_Calc")), 0) + sicherheitsbetrag = If(IsDBNull(dtSicherheiten.Rows(i)("Sicherheitbetrag_Calc")), 0, CDec(dtSicherheiten.Rows(i)("Sicherheitbetrag_Calc"))) c1 = saldo + sicherheitsbetrag @@ -351,7 +469,7 @@ Public Class frmGesamtsicherheitenNEU drLast.Item("Nr") = 0 drLast.Item("Typ") = "Saldo zum" drLast.Item("Datum") = CDate(datumBis).ToShortDateString - drLast.Item("Saldo") = CDbl(dtSicherheiten.Rows(dtSicherheiten.Rows.Count - 1).Item("Saldo")) + drLast.Item("Saldo") = CDec(dtSicherheiten.Rows(dtSicherheiten.Rows.Count - 1).Item("Saldo")) dtSicherheiten.Rows.InsertAt(drLast, dtSicherheiten.Rows.Count) @@ -410,7 +528,7 @@ Public Class frmGesamtsicherheitenNEU drFirst_new.Item("Nr") = 0 drFirst_new.Item("Typ") = "Uebertrag vom" drFirst_new.Item("Datum") = CDate(datumVon).ToShortDateString - drFirst_new.Item("Saldo") = CDbl(startSaldo) + drFirst_new.Item("Saldo") = CDec(startSaldo) sicherheiten_cleared.Rows.InsertAt(drFirst_new, 0) @@ -419,11 +537,15 @@ Public Class frmGesamtsicherheitenNEU drLast_new.Item("Nr") = 0 drLast_new.Item("Typ") = "Saldo zum" drLast_new.Item("Datum") = CDate(datumBis).ToShortDateString - drLast_new.Item("Saldo") = CDbl(endSaldo) + drLast_new.Item("Saldo") = CDec(endSaldo) sicherheiten_cleared.Rows.InsertAt(drLast_new, sicherheiten_cleared.Rows.Count) - If sicherheiten_cleared.Rows.Count > 2 Then SDL.cProgramFunctions.genExcelFromDT_NEW(sicherheiten_cleared) + If sicherheiten_cleared.Rows.Count > 2 Then + + SDL.cProgramFunctions.genExcelFromDT_NEW(sicherheiten_cleared, {"K1:K" & (sicherheiten_cleared.Rows.Count + 1)}) + + End If End If @@ -466,7 +588,7 @@ Public Class frmGesamtsicherheitenNEU Next - Dim SQLStringSicherheit As String = "select [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', gs_MRNNr as MRN, CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt', gs_art, + Dim SQLStringSicherheit As String = "select [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', gs_MRNNr as MRN, CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, gs_art, [gsp_MRNNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext, gsp_art" & IIf(detailinfo, ", gs_erstellungsdatum as 'Eingang erstellt am', gs_systemuser as 'von', gs_zuletztgeandert as ' Eingang geändert am', gsp_erstellungsdatum as 'Ausgang erstellt am', gsp_systemuser as 'von_', gsp_zuletztgeandert as ' Ausgang geändert am'", "") & "from [tblGesamtsicherheit] @@ -477,7 +599,7 @@ Public Class frmGesamtsicherheitenNEU - Dim SQLStringSicherheit_new As String = " select [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', gs_MRNNr as MRN, CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt', + Dim SQLStringSicherheit_new As String = " select [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', gs_MRNNr as MRN, CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gsp_MRNNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext" & IIf(detailinfo, ", gs_erstellungsdatum as 'Eingang erstellt am', gs_systemuser as 'von', gs_zuletztgeandert as ' Eingang geändert am', gsp_erstellungsdatum as 'Ausgang erstellt am', gsp_systemuser as 'von_', gsp_zuletztgeandert as ' Ausgang geändert am'", "") & "From tblGesamtsicherheit @@ -500,7 +622,7 @@ Public Class frmGesamtsicherheitenNEU Dim drFirst = dtSicherheiten.NewRow drFirst.Item("Reg-Nr. Verwahrlager") = "Uebertrag vom " & datumVon - drFirst.Item("SSaldo") = currentGesSichRef.CalcSaldo(, datumVon) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo")) + drFirst.Item("SSaldo") = currentGesSichRef.CalcSaldo_new(, datumVon) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo")) dtSicherheiten.Rows.InsertAt(drFirst, 0) @@ -805,7 +927,7 @@ Public Class frmGesamtsicherheitenNEU Private Sub btnAddSicherheit_Click(sender As Object, e As EventArgs) Handles btnAddSicherheit.Click Try - SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo()) + SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo_new()) lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N") If (txtSicherheitATBNr.Text = "") Then @@ -940,7 +1062,7 @@ Public Class frmGesamtsicherheitenNEU Private Sub btnAddPos_Click(sender As Object, e As EventArgs) Handles btnAddPos.Click - SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo()) + SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo_new()) lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N") If dgvGesamtsicherheit.SelectedRows.Count = 0 Then @@ -1023,7 +1145,7 @@ Public Class frmGesamtsicherheitenNEU End Function Sub AfterButton() 'currentGesSichRef.CalcSaldo() - lblSaldo.Text = "Saldo: €" & Decimal.Parse(currentGesSichRef.CalcSaldo()).ToString("N") + lblSaldo.Text = "Saldo: €" & Decimal.Parse(currentGesSichRef.CalcSaldo_new()).ToString("N") LoadDGVSicherheiten(True) EmptyTXT() End Sub @@ -2136,7 +2258,7 @@ Public Class frmGesamtsicherheitenNEU Private Sub btnRundungsdifAusgl_Click(sender As Object, e As EventArgs) Handles btnRundungsdifAusgl.Click Try - SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo()) + SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo_new()) lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N") If (rundungsdiff <> 0) AndAlso checkIfRundungsPosExists() = False Then diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index c0bc441..64417c2 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -1129,28 +1129,34 @@ Public Class frmSendungsdetailsNEU initZollTarife(c.KdNr) End Sub Private Sub frmSendungsdetailsShown(sender As Object, e As EventArgs) Handles Me.Shown - If False Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then - Dim u As New SDL.usrCntlATLAS_NCTS(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.T2, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "") - u.Dock = DockStyle.Fill - tbZollabfertigung.Controls.Clear() - tbZollabfertigung.Controls.Add(u) - Else - 'TabControl1.TabPages.Remove(tbZollabfertigung) - End If + Try - If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetails", Me) And Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetailsNEU", Me) Then - Me.Close() - End If - If TabControl1.SelectedTab Is tbKundenInfo Then - txtAuftraggeber.Focus() ' Damit in tbKundeninfo ausgewählt - End If - ' Button13.Location = New Point(Button13.Left, 0) - ' Dim ber As Integer = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG(Me) - ' If ber >= 99 Then - 'Me.Dispose() - 'Me.Close() - ' Exit Sub - 'nd If + + If False Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then + Dim u As New SDL.usrCntlATLAS_NCTS(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.T2, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "") + u.Dock = DockStyle.Fill + tbZollabfertigung.Controls.Clear() + tbZollabfertigung.Controls.Add(u) + Else + 'TabControl1.TabPages.Remove(tbZollabfertigung) + End If + + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetails", Me) And Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmSendungsdetailsNEU", Me) Then + Me.Close() + End If + If TabControl1.SelectedTab Is tbKundenInfo Then + txtAuftraggeber.Focus() ' Damit in tbKundeninfo ausgewählt + End If + ' Button13.Location = New Point(Button13.Left, 0) + ' Dim ber As Integer = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG(Me) + ' If ber >= 99 Then + 'Me.Dispose() + 'Me.Close() + ' Exit Sub + 'nd If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Sub changeSelectedButton() diff --git a/Aviso/usrCntlSND_ATBGestellung.vb b/Aviso/usrCntlSND_ATBGestellung.vb index 8661401..18554a1 100644 --- a/Aviso/usrCntlSND_ATBGestellung.vb +++ b/Aviso/usrCntlSND_ATBGestellung.vb @@ -136,9 +136,9 @@ Public Class usrCntlSND_ATBGestellung Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaID) If GesSichRef Is Nothing Then MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub - Dim saldo = CDbl(GesSichRef.CalcSaldo()) + Dim saldo = CDbl(GesSichRef.CalcSaldo_new()) - Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.brgakto_gs_zollsatz / 100) + Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.brgakto_gs_zollsatz / 100) If sicherheitsbertrag > saldo Then If MsgBox(Standort & vbNewLine & "Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert in EUR: " & WarenwertEUR & " (Sicherheitsbetrag: " & sicherheitsbertrag & ") übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub @@ -228,7 +228,7 @@ Public Class usrCntlSND_ATBGestellung End With AddHandler frm.FormClosing, Function() - GesSichRef.CalcSaldo() + GesSichRef.CalcSaldo_new() Me.BringToFront() End Function frm.Show() @@ -305,7 +305,7 @@ Public Class usrCntlSND_ATBGestellung .txtSicherheitATBNr.Text = txtATBT1.Text End With AddHandler frm.FormClosing, Function() - GesSichRef.CalcSaldo() + GesSichRef.CalcSaldo_new() Me.BringToFront() End Function frm.Show(Me)