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

Gesamtsicherheiten, Streamreader in PDF schließen.

Browse Source
This commit is contained in:
d.breimaier
2024-10-17 16:44:16 +02:00
parent aea776a71f
commit 66922965d3
4 changed files with 28 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -148,7 +148,7 @@ Public Class frmGesamtsicherheitenNEU
Case True
If Standort = "Verag GmbH" Then
.Columns("gs_ATBNr").HeaderText = "ATB"
.Columns("gs_ATBNr").HeaderText = "Reg-Nr."
Else
.Columns("gs_ATBNr").HeaderText = "T1 MRN"
End If
@@ -164,7 +164,7 @@ Public Class frmGesamtsicherheitenNEU
Case Else
If Standort = "Verag GmbH" Then
.Columns("gs_ATBNr").HeaderText = "ATB"
.Columns("gs_ATBNr").HeaderText = "Reg-Nr."
Else
.Columns("gs_ATBNr").HeaderText = "T1 MRN"
End If
@@ -228,7 +228,7 @@ Public Class frmGesamtsicherheitenNEU
Next
Dim SQLStringSicherheit = "select gs_gsnr as 'Nr',[gs_ATBNr] as 'ATB 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 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'
From [tblGesamtsicherheit]
Where [gs_gsnr] In (" & gsnr & ")
and isnull(gs_warenwert,0) <> 0
@@ -305,7 +305,7 @@ Public Class frmGesamtsicherheitenNEU
Next
Dim SQLStringSicherheit As String = "select [gs_ATBNr] as 'ATB 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
from [tblGesamtsicherheit]
inner join [tblGesamtsicherheitsPositionen] on [tblGesamtsicherheit].gs_gsId = [tblGesamtsicherheitsPositionen].gsp_gsId
@@ -319,7 +319,7 @@ Public Class frmGesamtsicherheitenNEU
dtSicherheiten.Columns.Add("SSaldo")
Dim drFirst = dtSicherheiten.NewRow
drFirst.Item("ATB Verwahrlager") = "Uebertrag vom " & datumVon
drFirst.Item("Reg-Nr. Verwahrlager") = "Uebertrag vom " & datumVon
drFirst.Item("SSaldo") = CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
dtSicherheiten.Rows.InsertAt(drFirst, 0)
@@ -344,7 +344,7 @@ Public Class frmGesamtsicherheitenNEU
Next
Dim drLast = dtSicherheiten.NewRow
drLast.Item("ATB Verwahrlager") = "Saldo zum " & datumBis
drLast.Item("Reg-Nr. Verwahrlager") = "Saldo zum " & datumBis
drLast.Item("SSaldo") = CDbl(dtSicherheiten.Rows(dtSicherheiten.Rows.Count - 1).Item("SSaldo"))
dtSicherheiten.Rows.InsertAt(drLast, dtSicherheiten.Rows.Count)
@@ -411,7 +411,7 @@ Public Class frmGesamtsicherheitenNEU
Select Case currentGesSichRef.brgakto_gs_ATR
Case True
If Standort = "Verag GmbH" Then
.Columns("gsp_ATCNr").HeaderText = "ATC / MRN"
.Columns("gsp_ATCNr").HeaderText = "Reg-Nr. / MRN"
ElseIf Standort = "VERAG AG" Then
.Columns("gsp_ATCNr").HeaderText = "T1 CRN"
Else
@@ -420,7 +420,7 @@ Public Class frmGesamtsicherheitenNEU
Case Else
If Standort = "Verag GmbH" Then
.Columns("gsp_ATCNr").HeaderText = "CRN / MRN"
.Columns("gsp_ATCNr").HeaderText = "Reg-Nr. / MRN"
ElseIf Standort = "VERAG AG" Then
.Columns("gsp_ATCNr").HeaderText = "T1 CRN"
Else
@@ -1615,7 +1615,7 @@ Public Class frmGesamtsicherheitenNEU
End If
If mutlitpleATBNr Then
lblWarningATB.Text = "ACHTUNG!" & vbCrLf & "Es wurden unterschiedl. ATB-Nummern markiert!"
lblWarningATB.Text = "ACHTUNG!" & vbCrLf & "Es wurden unterschiedl. Reg-Nr. markiert!"
Else
lblWarningATB.Text = ""
End If
@@ -1648,7 +1648,7 @@ Public Class frmGesamtsicherheitenNEU
End If
If mutlitpleATCNr Then
lblATCwarning.Text = "ACHTUNG!" & vbCrLf & "Es wurden unterschiedl. ATC-Nummern markiert!"
lblATCwarning.Text = "ACHTUNG!" & vbCrLf & "Es wurden unterschiedl. Reg-Nr.Nummern markiert!"
Else
lblATCwarning.Text = ""
End If
@@ -1701,7 +1701,7 @@ Public Class frmGesamtsicherheitenNEU
Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
If txtATCaendern.Text = "" Then
MsgBox("Bitte ATC/MRN-Nr angeben!")
MsgBox("Bitte Reg/MRN-Nr angeben!")
Exit Sub
End If
@@ -1836,10 +1836,10 @@ Public Class frmGesamtsicherheitenNEU
Private Sub changeLabel(Optional isATR As Boolean = True)
If Standort = "Verag GmbH" Then
Label1.Text = "ATB Nummer"
Label1.Text = "Reg-Nr."
If isATR Then
Label12.Text = "ATC / MRN"
Label12.Text = "Reg-Nr. / MRN"
Else
Label12.Text = "CRN / MRN"