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

gesamtsicherheiten, Ref, Mail, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-04-09 13:01:46 +02:00
parent 47c24423b7
commit ed9bb82597
11 changed files with 7419 additions and 392 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Aviso/frmGesamtsicherheiten.vb
View File

@@ -5,7 +5,7 @@ Public Class frmGesamtsicherheiten
Public Property gessicherheitID As Integer
Public Property datum As DateTime = Nothing
Property GesSichRef As cGesamtSicherheitsReferenz
Property GesSichRef As VERAG_PROG_ALLGEMEIN.cAufschubKonten
Property Standort As String = ""
Public ZollsatzMulti As Double = 0
@@ -53,7 +53,7 @@ Public Class frmGesamtsicherheiten
LoadDGV()
End If
LoadStandort()
cboATR.Enabled = GesSichRef.gsr_ATR
cboATR.Enabled = GesSichRef.brgakto_gs_ATR
Me.Text = "Gesamtsicherheit " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitCRN)
@@ -62,11 +62,11 @@ Public Class frmGesamtsicherheiten
Public Sub LoadDGV()
'lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString("N")
lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString()
lblSaldo.Text = "Saldo: € " & GesSichRef.brgakto_gs_aktSaldo.ToString()
lblGestellungNr.Text = ""
Dim sqladd1 As String = ""
If GesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & GesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust"
If GesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]"
If GesSichRef.brgakto_gs_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & GesSichRef.brgakto_gs_ust & "/100), 'C', 'de-DE') as gs_ust"
If GesSichRef.brgakto_gs_ATR Then sqladd1 &= ", [gs_atr]"
Dim addtosqlstring As String = ""
@@ -102,7 +102,7 @@ Public Class frmGesamtsicherheiten
.Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").Visible = False
Select Case GesSichRef.gsr_ATR
Select Case GesSichRef.brgakto_gs_ATR
Case True
.Columns("gs_ATBNr").HeaderText = "ATB"
.Columns("gs_atr").HeaderText = "ATR"
@@ -134,7 +134,7 @@ Public Class frmGesamtsicherheiten
.Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").Visible = False
Select Case GesSichRef.gsr_ATR
Select Case GesSichRef.brgakto_gs_ATR
Case True
.Columns("gs_ATBNr").HeaderText = "ATC / MRN"
Case Else
@@ -163,9 +163,9 @@ Public Class frmGesamtsicherheiten
'Referenzwert = dt.Rows(0).Item("Referenzwert")
'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
ZollsatzMulti = GesSichRef.gsr_zollsatz / 100
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.getReferenzbetrag(Now()).ToString()
lblZollsatz.Text = "Zollsatz: " & GesSichRef.brgakto_gs_zollsatz & "%"
ZollsatzMulti = GesSichRef.brgakto_gs_zollsatz / 100
End Sub
@@ -188,7 +188,7 @@ Public Class frmGesamtsicherheiten
Select Case sender.name
Case "txtMRNWarenwert"
txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N")
If GesSichRef.gsr_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.gsr_ust / 100)
If GesSichRef.brgakto_gs_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.brgakto_gs_ust / 100)
Case "txtCRNWarenwert"
txtCRNSicherheitsbetrag.Text = (txtCRNWarenwert.Text * ZollsatzMulti).ToString("N")
End Select
@@ -266,7 +266,7 @@ Public Class frmGesamtsicherheiten
.gs_gsNr = Me.gessicherheitID
.gs_erstellungsdatum = Me.datum
.gs_freitext = Me.txtFreitextOpen.Text
.gs_saldo = GesSichRef.gsr_Saldo
.gs_saldo = GesSichRef.brgakto_gs_aktSaldo
.gs_atr = setNullToZero(cboATR.SelectedItem)
setEnviromentDataToObject(OPENWithMultiplePosNr, Me)
End With
@@ -305,7 +305,7 @@ Public Class frmGesamtsicherheiten
.gs_gsNr = Me.gessicherheitID
.gs_erstellungsdatum = Me.datum
.gs_freitext = Me.txtFreitextOpen.Text
.gs_saldo = GesSichRef.gsr_Saldo
.gs_saldo = GesSichRef.brgakto_gs_aktSaldo
.gs_atr = setNullToZero(cboATR.SelectedItem)
setEnviromentDataToObject(OPEN, Me)
End With
@@ -343,7 +343,7 @@ Public Class frmGesamtsicherheiten
.gs_gsNr = Me.gessicherheitID
.gs_erstellungsdatum = Me.datum
.gs_freitext = Me.txtFreitextClose.Text
.gs_saldo = GesSichRef.gsr_Saldo
.gs_saldo = GesSichRef.brgakto_gs_aktSaldo
End With
If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr()