edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

div. Änderungen, Gesamtsicherheiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-09-22 14:30:17 +02:00
parent 3cf0e28dac
commit d561ec8f27
7 changed files with 377 additions and 185 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.3.2.7")>
<Assembly: AssemblyFileVersion("4.3.2.7")>
<Assembly: AssemblyVersion("4.3.2.8")>
<Assembly: AssemblyFileVersion("4.3.2.8")>

10
Aviso/frmGesamtsicherheitenMenu.vb
View File

@@ -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

147
Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb generated
View File

@@ -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

161
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -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
Dim SQLPlausPruefung = "DECLARE @Standort varchar(100) = '" & Standort & "';
SELECT
gs.gs_gsnr,
gs.Sicherheitbetrag_Ausgang,
gsp.Sicherheitbetrag_Eingang,
gs.gs_standort
FROM
(
gs.Sicherheitsbetrag_Eingang,
gsp.Sicherheitsbetrag_Ausgang,
gs.gs_standort,
gsp.Sicherheitsbetrag_Ausgang
- gs.Sicherheitsbetrag_Eingang AS Differenz
FROM
(
SELECT
gs_gsnr,
gs_standort,
SUM(gs_sicherheitsbetrag) AS Sicherheitbetrag_Ausgang
FROM tblGesamtsicherheit
GROUP BY gs_standort, gs_gsnr
) gs
JOIN
(
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(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"
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

172
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -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

6
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -1129,6 +1129,9 @@ Public Class frmSendungsdetailsNEU
initZollTarife(c.KdNr)
End Sub
Private Sub frmSendungsdetailsShown(sender As Object, e As EventArgs) Handles Me.Shown
Try
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
@@ -1151,6 +1154,9 @@ Public Class frmSendungsdetailsNEU
'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()

6
Aviso/usrCntlSND_ATBGestellung.vb
View File

@@ -136,7 +136,7 @@ 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)
@@ -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)