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

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("3.8.2.3")> <Assembly: AssemblyVersion("3.8.2.4")>
<Assembly: AssemblyFileVersion("3.8.2.3")> <Assembly: AssemblyFileVersion("3.8.2.4")>

19
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -1,12 +1,10 @@
Imports System.Reflection Imports SDL
Imports SDL
Imports Spire.PdfViewer.Forms
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class frmGesamtsicherheitenMenuNEU Public Class frmGesamtsicherheitenMenuNEU
Public SQL As New VERAG_PROG_ALLGEMEIN.SQL Public SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cAufschubKonten
Public dataTable As DataTable Public dataTable As DataTable
Public Property Standort As String = "" Public Property Standort As String = ""
@@ -17,7 +15,7 @@ Public Class frmGesamtsicherheitenMenuNEU
Me.Text = "Gesamtsicherheiten " & Standort Me.Text = "Gesamtsicherheiten " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvListe) frmHauptfenster.EnableDoubleBuffered(dgvListe)
GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort) GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
If GesSichRef.hasEntry = False Then If GesSichRef.hasEntry = False Then
MsgBox("Für den Standort " & Standort & " wurde keine Referenz hingerlegt!") MsgBox("Für den Standort " & Standort & " wurde keine Referenz hingerlegt!")
Exit Sub Exit Sub
@@ -26,15 +24,18 @@ Public Class frmGesamtsicherheitenMenuNEU
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
'txtDatVon.Text = Now.ToShortDateString
txtDatVon.Text = Now.ToShortDateString 'Hiermit werden alle offenen Gestellungen angezeigt.
txtDatVon.Text = Date.Parse("01.01.1970")
txtDatBis.Text = Now.ToShortDateString txtDatBis.Text = Now.ToShortDateString
chkOffen.Checked = True
btnMonat.Text = MONAT.ToString("MMMM") btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year btnJahr.Text = JAHR.Year
If GesSichRef.gsr_ATR = True Then If GesSichRef.brgakto_gs_ATR = True Then
Dim anzahlOffenerGSUeber85Tage As Integer = checkOpenATBs() Dim anzahlOffenerGSUeber85Tage As Integer = checkOpenATBs()
If anzahlOffenerGSUeber85Tage > 0 Then If anzahlOffenerGSUeber85Tage > 0 Then
btnOpenOver85Days.Visible = True btnOpenOver85Days.Visible = True
@@ -140,8 +141,8 @@ Public Class frmGesamtsicherheitenMenuNEU
End Function End Function
Public Sub ShowStandort() Public Sub ShowStandort()
lblReferenzwert.Text = "Referenzwert: €" & CDbl(GesSichRef.gsr_referenzwert).ToString("N") lblReferenzwert.Text = "Referenzwert: €" & CDbl(GesSichRef.brgakto_betrag).ToString("N")
lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%" lblZollsatz.Text = "Zollsatz: " & GesSichRef.brgakto_gs_zollsatz & "%"
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
End Sub End Sub

30
Aviso/frmGesamtsicherheitenNEU.vb
View File

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