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

gesamtsicherheiten_Umbau auf ADMIN-tbl

Browse Source
This commit is contained in:
d.breimaier
2022-11-14 12:12:15 +01:00
parent 5055074cf6
commit 068d35126e
3 changed files with 27 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -8,7 +8,7 @@ Public Class frmGesamtsicherheitenNEU
Property currentSicherheit As cSicherheiten
Property currentSPos As cGesamtsicherheitsPositionen
Property currentGesSichRef As cGesamtsicherheitsReferenz
Property currentGesSichRef As cAufschubKonten
Public Property gessicherheitID As Integer
Public Property prevGessicherheitID As Integer
Public Property nextGessicherheitID As Integer
@@ -46,7 +46,7 @@ Public Class frmGesamtsicherheitenNEU
Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load
currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
lblSaldo.Text = "Saldo: €" & Decimal.Parse(currentGesSichRef.CalcSaldo()).ToString("N")
Me.Text = "Gesamtsicherheit " & Standort
@@ -73,7 +73,7 @@ Public Class frmGesamtsicherheitenNEU
LoadDGVSicherheiten()
End If
LoadStandort()
cboSicherheitATR.Enabled = currentGesSichRef.gsr_ATR
cboSicherheitATR.Enabled = currentGesSichRef.brgakto_gs_ATR
cbx_offene.Checked = True
initPrevNextButtons()
@@ -90,8 +90,8 @@ Public Class frmGesamtsicherheitenNEU
'lblSaldo.Text = "Saldo: € " & currentGesSichRef.gsr_Saldo.ToString()
lblGestellungNr.Text = ""
Dim sqladd1 As String = ""
If currentGesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & currentGesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust"
If currentGesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]"
If currentGesSichRef.brgakto_gs_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & currentGesSichRef.brgakto_gs_ust & "/100), 'C', 'de-DE') as gs_ust"
If currentGesSichRef.brgakto_gs_ATR Then sqladd1 &= ", [gs_atr]"
Dim sqlSearchSting As String = ""
If withFilterParam = True Then
If txt_Suche.Text <> "" Then sqlSearchSting &= "AND ([gs_abfertigungsNr] Like '%" & txt_Suche.Text & "%' OR [gs_ATBNr] Like '%" & txt_Suche.Text & "%' OR [gs_LKWKZ] like '%" & txt_Suche.Text & "%' OR [gs_avisoId] like '%" & txt_Suche.Text & "%' OR [gs_freitext] like '%" & txt_Suche.Text & "%')"
@@ -113,7 +113,7 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").Visible = True
Select Case currentGesSichRef.gsr_ATR
Select Case currentGesSichRef.brgakto_gs_ATR
Case True
.Columns("gs_ATBNr").HeaderText = "ATB"
.Columns("gs_ATBNr").Width = 130
@@ -225,7 +225,7 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gsp_gsnr").Visible = False
.Columns("gsp_warenwert").DefaultCellStyle.Format = "c"
.Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c"
Select Case currentGesSichRef.gsr_ATR
Select Case currentGesSichRef.brgakto_gs_ATR
Case True
.Columns("gsp_ATCNr").HeaderText = "ATC / MRN"
Case Else
@@ -293,12 +293,12 @@ Public Class frmGesamtsicherheitenNEU
Public Sub LoadStandort()
Zollsatz = currentGesSichRef.gsr_zollsatz
Zollsatz = currentGesSichRef.brgakto_gs_zollsatz
txtZollsatzueberschreiben.Text = Zollsatz
cbxZollsatzueberschreiben.Checked = False
lblReferenzwert.Text = "Referenzwert: € " & CDbl(currentGesSichRef.gsr_referenzwert).ToString("N")
lblZollsatz.Text = "Zollsatz: " & currentGesSichRef.gsr_zollsatz & "%"
ZollsatzMulti = currentGesSichRef.gsr_zollsatz / 100
lblReferenzwert.Text = "Referenzwert: € " & CDbl(currentGesSichRef.brgakto_betrag).ToString("N")
lblZollsatz.Text = "Zollsatz: " & currentGesSichRef.brgakto_gs_zollsatz & "%"
ZollsatzMulti = currentGesSichRef.brgakto_gs_zollsatz / 100
End Sub
@@ -325,7 +325,7 @@ Public Class frmGesamtsicherheitenNEU
Select Case sender.name
Case "txtSicherheitWarenwert"
txtSicherheitSicherheitsbetrag.Text = (txtSicherheitWarenwert.Text * ZollsatzMulti).ToString("N")
If currentGesSichRef.gsr_ustEnabled Then txtSicherheitEust.Text = (Double.Parse(txtSicherheitWarenwert.Text) + Double.Parse(txtSicherheitSicherheitsbetrag.Text)) * (currentGesSichRef.gsr_ust / 100)
If currentGesSichRef.brgakto_gs_ustEnabled Then txtSicherheitEust.Text = (Double.Parse(txtSicherheitWarenwert.Text) + Double.Parse(txtSicherheitSicherheitsbetrag.Text)) * (currentGesSichRef.brgakto_gs_ust / 100)
Case "txtPosWarenwert"
txtPosSicherheitsbetrag.Text = (txtPosWarenwert.Text * ZollsatzMulti).ToString("N")
End Select
@@ -409,7 +409,7 @@ Public Class frmGesamtsicherheitenNEU
.gs_art = "OPEN"
.gs_erstellungsdatum = Me.datum
.gs_freitext = Me.txtSicherheitFreitext.Text
.gs_saldo = currentGesSichRef.gsr_Saldo
.gs_saldo = currentGesSichRef.brgakto_gs_aktSaldo
.gs_atr = setNullToZero(cboSicherheitATR.SelectedItem)
.gs_zollsatz = Me.Zollsatz
.gs_avisoId = Me.avisioID
@@ -497,7 +497,7 @@ Public Class frmGesamtsicherheitenNEU
.gs_art = "OPEN"
.gs_erstellungsdatum = Me.datum
.gs_freitext = Me.txtSicherheitFreitext.Text
.gs_saldo = currentGesSichRef.gsr_Saldo
.gs_saldo = currentGesSichRef.brgakto_gs_aktSaldo
.gs_atr = setNullToZero(cboSicherheitATR.SelectedItem)
.gs_zollsatz = Me.Zollsatz
.gs_avisoId = Me.avisioID
@@ -1089,7 +1089,7 @@ Public Class frmGesamtsicherheitenNEU
txtZollsatzueberschreiben.Enabled = True
Else
txtZollsatzueberschreiben.Enabled = False
txtZollsatzueberschreiben.Text = currentGesSichRef.gsr_zollsatz.ToString
txtZollsatzueberschreiben.Text = currentGesSichRef.brgakto_gs_zollsatz.ToString
End If
End Sub