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

gesamtsicherheit, calcSaldo nun auch vor einem Eintrag in die Gesamtsicherheitsliste, Auswerung, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-01-07 13:40:03 +01:00
parent e6f557a4c2
commit fd0af0f843
3 changed files with 38 additions and 17 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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.2.0.0")> <Assembly: AssemblyVersion("4.2.0.1")>
<Assembly: AssemblyFileVersion("4.2.0.0")> <Assembly: AssemblyFileVersion("4.2.0.1")>

16
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -516,10 +516,22 @@ Public Class frmGesamtsicherheitenMenuNEU
Dim datumVon As Date = CDate(txtDatVon.Text) Dim datumVon As Date = CDate(txtDatVon.Text)
datumVon = datumVon.AddDays(-1) datumVon = datumVon.AddDays(-1)
Dim detailINfo As Boolean = True
Dim nurErstellungsdatumNotAenderungsdatum As Boolean = False
If vbYes = MsgBox("Sollen nur Datensaetze angegeben werden, deren Erstellungsdatum/Änderungsdatum vom Gestellungsdatum abweicht?", vbYesNoCancel) Then
detailINfo = True
End If
If sender.ToString = "Detailliste" Then If sender.ToString = "Detailliste" Then
frm.LoadDataTableSicherheitenForExport2(list, datumVon.ToShortDateString, txtDatBis.Text) frm.LoadDataTableSicherheitenForExport2(list, datumVon.ToShortDateString, txtDatBis.Text, detailINfo, nurErstellungsdatumNotAenderungsdatum)
ElseIf sender.ToString = "Referenzliste-Zollamt" Then ElseIf sender.ToString = "Referenzliste-Zollamt" Then
frm.LoadDataTableSicherheitenForExport(list, datumVon.ToShortDateString, txtDatBis.Text, Standort)
If Not vbYes = MsgBox("Sollen interne Detailinfos angegeben werden?", vbYesNoCancel) Then
detailINfo = False
End If
frm.LoadDataTableSicherheitenForExport(list, datumVon.ToShortDateString, txtDatBis.Text, Standort, detailINfo, nurErstellungsdatumNotAenderungsdatum)
Else Else
MsgBox("Funktion nicht definiert!") MsgBox("Funktion nicht definiert!")
Exit Sub Exit Sub

35
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -226,7 +226,7 @@ Public Class frmGesamtsicherheitenNEU
End Sub End Sub
Public Sub LoadDataTableSicherheitenForExport(list As List(Of Integer), datumVon As String, datumBis As String, standort As String) Public Sub LoadDataTableSicherheitenForExport(list As List(Of Integer), datumVon As String, datumBis As String, standort As String, Optional detailinfo As Boolean = False, Optional nurErstellungisNichtAenderungsdatum As Boolean = False)
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
@@ -245,18 +245,16 @@ Public Class frmGesamtsicherheitenNEU
Next Next
Dim SQLStringSicherheit = "select gs_gsnr as 'Nr',[gs_ATBNr] as 'Reg-Nr. Verwahrlager " & standort & "','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' Dim SQLStringSicherheit = " select * from (select gs_gsnr as 'Nr',[gs_ATBNr] as 'Reg-Nr. Verwahrlager " & standort & "','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 ", "") & "
From [tblGesamtsicherheit] From [tblGesamtsicherheit]
Where [gs_gsnr] In (" & gsnr & ") Where [gs_gsnr] In (" & gsnr & ")
and isnull(gs_warenwert,0) <> 0 and isnull(gs_warenwert,0) <> 0
UNION UNION
Select gsp_gsnr, [gsp_ATCNr],'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag], [gsp_freitext],[gsp_art],[gsp_ust] Select gsp_gsnr, [gsp_ATCNr],'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag], [gsp_freitext],[gsp_art],[gsp_ust] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") &
From [tblGesamtsicherheitsPositionen] " From [tblGesamtsicherheitsPositionen]
where [gsp_gsnr] In (" & gsnr & ") where [gsp_gsnr] In (" & gsnr & ")
and isnull(gsp_warenwert,0) <> 0 and isnull(gsp_warenwert,0) <> 0 ) as Temp " & IIf(nurErstellungisNichtAenderungsdatum, " WHERE (Temp.Erstellungsdatum is not null AND cast(Temp.Erstellungsdatum as Date) <> cast(Temp.Datum as Date)) OR (Temp.GeänderAm is not null AND cast(Temp.GeänderAm as Date) <> cast(Temp.Datum as Date))", "") &
order by Datum, Uhrzeit" "order by Temp.Datum, Temp.Uhrzeit "
dtSicherheiten = SQL.loadDgvBySql(SQLStringSicherheit, "AVISO", 100, True) dtSicherheiten = SQL.loadDgvBySql(SQLStringSicherheit, "AVISO", 100, True)
@@ -307,7 +305,7 @@ Public Class frmGesamtsicherheitenNEU
Public Sub LoadDataTableSicherheitenForExport2(list As List(Of Integer), datumVon As String, datumBis As String) Public Sub LoadDataTableSicherheitenForExport2(list As List(Of Integer), datumVon As String, datumBis As String, Optional detailinfo As Boolean = False, Optional nurErstellungisNichtAenderungsdatum As Boolean = False)
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
@@ -323,11 +321,13 @@ Public Class frmGesamtsicherheitenNEU
Next Next
Dim SQLStringSicherheit As String = "select [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', 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 As String = "select [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', 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',
[gsp_ATCNr] 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_ATCNr] 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" &
from [tblGesamtsicherheit] 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]
inner join [tblGesamtsicherheitsPositionen] on [tblGesamtsicherheit].gs_gsId = [tblGesamtsicherheitsPositionen].gsp_gsId inner join [tblGesamtsicherheitsPositionen] on [tblGesamtsicherheit].gs_gsId = [tblGesamtsicherheitsPositionen].gsp_gsId
where [gs_gsnr] IN (" & gsnr & ") where [gs_gsnr] IN (" & gsnr & ")" & IIf(nurErstellungisNichtAenderungsdatum, " AND (
order by gs_gsId" (cast(gs_datum as Date) <> cast(gs_erstellungsdatum as Date) OR gs_zuletztgeandert is not null and cast(gs_datum as Date) <> cast(gs_zuletztgeandert as Date))
OR gsp_zuletztgeandert is not null and cast(gsp_datum as Date) <> cast(gsp_zuletztgeandert as Date)) ", " ") & "order by gs_gsId"
dtSicherheiten = SQL.loadDgvBySql(SQLStringSicherheit, "AVISO", 100, True) dtSicherheiten = SQL.loadDgvBySql(SQLStringSicherheit, "AVISO", 100, True)
@@ -639,6 +639,9 @@ Public Class frmGesamtsicherheitenNEU
Private Sub btnAddSicherheit_Click(sender As Object, e As EventArgs) Handles btnAddSicherheit.Click Private Sub btnAddSicherheit_Click(sender As Object, e As EventArgs) Handles btnAddSicherheit.Click
Try Try
SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
If (txtSicherheitATBNr.Text = "") Then If (txtSicherheitATBNr.Text = "") Then
txtSicherheitATBNr.Focus() txtSicherheitATBNr.Focus()
Exit Sub Exit Sub
@@ -767,6 +770,9 @@ Public Class frmGesamtsicherheitenNEU
Private Sub btnAddPos_Click(sender As Object, e As EventArgs) Handles btnAddPos.Click Private Sub btnAddPos_Click(sender As Object, e As EventArgs) Handles btnAddPos.Click
SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
If dgvGesamtsicherheit.SelectedRows.Count = 0 Then If dgvGesamtsicherheit.SelectedRows.Count = 0 Then
MsgBox("Bitte eine Gestellung markieren, zu diese eine Pos hinzugefügt/entfernt/aktualisiert werden soll") MsgBox("Bitte eine Gestellung markieren, zu diese eine Pos hinzugefügt/entfernt/aktualisiert werden soll")
Exit Sub Exit Sub
@@ -1988,6 +1994,9 @@ Public Class frmGesamtsicherheitenNEU
Private Sub btnRundungsdifAusgl_Click(sender As Object, e As EventArgs) Handles btnRundungsdifAusgl.Click Private Sub btnRundungsdifAusgl_Click(sender As Object, e As EventArgs) Handles btnRundungsdifAusgl.Click
Try Try
SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
If (rundungsdiff <> 0) AndAlso checkIfRundungsPosExists() = False Then If (rundungsdiff <> 0) AndAlso checkIfRundungsPosExists() = False Then
Dim OPEN As New cSicherheiten() Dim OPEN As New cSicherheiten()