diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 91af997..5da5923 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index 1cb8e67..8e67203 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb @@ -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 diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 26469b4..04f7837 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -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