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

19
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

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

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