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

Gesamtsicherheiten: GUI-Verbesserungen

Browse Source
This commit is contained in:
d.breimaier
2022-10-31 16:31:21 +01:00
parent 52b9143157
commit e0a0e60440
2 changed files with 454 additions and 456 deletions
Download Patch File Download Diff File Expand all files Collapse all files

894
Aviso/frmGesamtsicherheitenNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

16
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -87,7 +87,7 @@ Public Class frmGesamtsicherheitenNEU
Public Sub LoadDGVSicherheiten(Optional withFilterParam As Boolean = False) Public Sub LoadDGVSicherheiten(Optional withFilterParam As Boolean = False)
lblSaldo.Text = "Saldo: € " & currentGesSichRef.gsr_Saldo.ToString() 'lblSaldo.Text = "Saldo: € " & currentGesSichRef.gsr_Saldo.ToString()
lblGestellungNr.Text = "" lblGestellungNr.Text = ""
Dim sqladd1 As String = "" 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_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & currentGesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust"
@@ -264,7 +264,7 @@ Public Class frmGesamtsicherheitenNEU
Zollsatz = currentGesSichRef.gsr_zollsatz Zollsatz = currentGesSichRef.gsr_zollsatz
txtZollsatzueberschreiben.Text = Zollsatz txtZollsatzueberschreiben.Text = Zollsatz
cbxZollsatzueberschreiben.Checked = False cbxZollsatzueberschreiben.Checked = False
lblReferenzwert.Text = "Referenzwert: €" & currentGesSichRef.gsr_referenzwert.ToString() lblReferenzwert.Text = "Referenzwert: € " & CDbl(currentGesSichRef.gsr_referenzwert).ToString("N")
lblZollsatz.Text = "Zollsatz: " & currentGesSichRef.gsr_zollsatz & "%" lblZollsatz.Text = "Zollsatz: " & currentGesSichRef.gsr_zollsatz & "%"
ZollsatzMulti = currentGesSichRef.gsr_zollsatz / 100 ZollsatzMulti = currentGesSichRef.gsr_zollsatz / 100
@@ -649,7 +649,7 @@ Public Class frmGesamtsicherheitenNEU
.gsp_freitext = txtPosFreitext.Text .gsp_freitext = txtPosFreitext.Text
.gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text) .gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text)
.gsp_warenwert = Double.Parse(txtPosWarenwert.Text) .gsp_warenwert = Double.Parse(txtPosWarenwert.Text)
.gsp_ATCNr = txtPositionenCRN.Text .gsp_ATCNr = If(txtPositionenCRN.Text <> "", txtPositionenCRN.Text, Nothing)
End With End With
If checkSicherheitsbetrag() = False Then Exit Sub If checkSicherheitsbetrag() = False Then Exit Sub
@@ -668,7 +668,7 @@ Public Class frmGesamtsicherheitenNEU
txtPosFreitext.Text = sPos.gsp_freitext txtPosFreitext.Text = sPos.gsp_freitext
txtPosSicherheitsbetrag.Text = sPos.gsp_sicherheitsbetrag txtPosSicherheitsbetrag.Text = sPos.gsp_sicherheitsbetrag
txtPosWarenwert.Text = sPos.gsp_warenwert txtPosWarenwert.Text = sPos.gsp_warenwert
txtPositionenCRN.Text = sPos.gsp_ATCNr txtPositionenCRN.Text = CStr(sPos.gsp_ATCNr)
txtPosDate.Text = sPos.gsp_erstellungsdatum.ToString("dd.MM.yyyy") txtPosDate.Text = sPos.gsp_erstellungsdatum.ToString("dd.MM.yyyy")
txtPosTime.Text = sPos.gsp_erstellungsdatum.ToString("HH:mm") txtPosTime.Text = sPos.gsp_erstellungsdatum.ToString("HH:mm")
@@ -864,10 +864,11 @@ Public Class frmGesamtsicherheitenNEU
Private Sub setSaldo() Private Sub setSaldo()
lbloffenerSaldo.Text = "offener S-Saldo: " lbloffenerSaldo.Text = "offener S-Betrag: €"
Dim offernerSB As Double = Me.calcOffenerSicherheitsbetrag() Dim offernerSB As Double = Me.calcOffenerSicherheitsbetrag()
If offernerSB <> 0 Then If offernerSB <> 0 Then
lbloffenerSaldo.Text &= Math.Round(offernerSB, 2).ToString lbloffenerSaldo.Text &= Decimal.Parse(Math.Round(offernerSB, 2)).ToString("N")
isOpen = True isOpen = True
Else Else
lbloffenerSaldo.Text &= "0" lbloffenerSaldo.Text &= "0"
@@ -1087,8 +1088,5 @@ Public Class frmGesamtsicherheitenNEU
End Sub End Sub
Private Sub pnlSummeGes_Paint(sender As Object, e As PaintEventArgs) Handles pnlSummeGes.Paint
End Sub
End Class End Class