diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index 4ce3075..a5403a2 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -540,6 +540,12 @@ Form + + frmGesamtsicherheitenNEU.vb + + + Form + frmNCTSRouten.vb @@ -606,16 +612,16 @@ Form - - frmGesSich.vb + + frmGesamtsicherheiten.vb - + Form - - frmGesSichMenu.vb + + frmGesamtsicherheitenMenu.vb - + Form @@ -1068,6 +1074,9 @@ frmFreigabeSetzenAnhaenge.vb + + frmGesamtsicherheitenNEU.vb + frmNCTSRouten.vb @@ -1101,11 +1110,11 @@ frmGelangensbestaetigung.vb - - frmGesSich.vb + + frmGesamtsicherheiten.vb - - frmGesSichMenu.vb + + frmGesamtsicherheitenMenu.vb frmHauptfenster.vb diff --git a/Aviso/frmFrachtkostenBerechnen.Designer.vb b/Aviso/frmFrachtkostenBerechnen.Designer.vb index 9c4a0c2..fe095de 100644 --- a/Aviso/frmFrachtkostenBerechnen.Designer.vb +++ b/Aviso/frmFrachtkostenBerechnen.Designer.vb @@ -291,7 +291,7 @@ Partial Class frmFrachtkostenBerechnen Me.cbxLandNach.FormattingEnabled = True Me.cbxLandNach.Location = New System.Drawing.Point(255, 23) Me.cbxLandNach.Name = "cbxLandNach" - Me.cbxLandNach.Size = New System.Drawing.Size(35, 21) + Me.cbxLandNach.Size = New System.Drawing.Size(45, 21) Me.cbxLandNach.TabIndex = 6 ' 'cbxLandVon @@ -304,7 +304,7 @@ Partial Class frmFrachtkostenBerechnen Me.cbxLandVon.FormattingEnabled = True Me.cbxLandVon.Location = New System.Drawing.Point(75, 22) Me.cbxLandVon.Name = "cbxLandVon" - Me.cbxLandVon.Size = New System.Drawing.Size(35, 21) + Me.cbxLandVon.Size = New System.Drawing.Size(45, 21) Me.cbxLandVon.TabIndex = 3 ' 'txbCalcDistanceNichtEU @@ -516,7 +516,7 @@ Partial Class frmFrachtkostenBerechnen Me.txbVonOrt.MaxLines_Warning = "" Me.txbVonOrt.MaxLines_Warning_Label = Nothing Me.txbVonOrt.Name = "txbVonOrt" - Me.txbVonOrt.Size = New System.Drawing.Size(105, 20) + Me.txbVonOrt.Size = New System.Drawing.Size(106, 20) Me.txbVonOrt.TabIndex = 9 ' 'txbNachPLZ @@ -557,12 +557,12 @@ Partial Class frmFrachtkostenBerechnen Me.txbVonPLZ._Waehrung = False Me.txbVonPLZ._WaehrungZeichen = True Me.txbVonPLZ.ForeColor = System.Drawing.Color.Black - Me.txbVonPLZ.Location = New System.Drawing.Point(116, 23) + Me.txbVonPLZ.Location = New System.Drawing.Point(121, 23) Me.txbVonPLZ.MaxLineLength = -1 Me.txbVonPLZ.MaxLines_Warning = "" Me.txbVonPLZ.MaxLines_Warning_Label = Nothing Me.txbVonPLZ.Name = "txbVonPLZ" - Me.txbVonPLZ.Size = New System.Drawing.Size(64, 20) + Me.txbVonPLZ.Size = New System.Drawing.Size(60, 20) Me.txbVonPLZ.TabIndex = 4 ' 'tbNichtEUAnteil diff --git a/Aviso/frmGesSich.vb b/Aviso/frmGesSich.vb deleted file mode 100644 index 991f8d8..0000000 --- a/Aviso/frmGesSich.vb +++ /dev/null @@ -1,632 +0,0 @@ -Imports System.Reflection - -Public Class frmGesSich - - Public Property GesamtsichNr As Integer - Public Property MakeDate As DateTime = Nothing - Property GesSichRef As cGesamtSicherheitsReferenz - Property Standort As String = "" - Public ZollsatzMulti As Double = 0 - Public Saldo As Integer = 0 - Public Neu As Boolean = False - Public FilialNummer As Integer - Public Abfertigungsnummer As String - Public LKWID As String - - Dim openopened As cSicherheit - dim closedopened as cSicherheit - - - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click - - Dim dgv As String = "" - For Each c As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns - dgv &= c.Width & c.HeaderText & vbCrLf - Next - ' MsgBox(dgv) - LoadDGV() - GesSichRef.LoadStandort(Standort) - LoadStandort() - End Sub - - Private Sub frmGesamtsicherheit_Load(sender As Object, e As EventArgs) Handles MyBase.Load - If nixzunull(GesamtsichNr) = 0 Or Neu = True Then - panOben.Enabled = False : panOben.Enabled = False - panOverlay.Visible = True - cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) - If MakeDate = Nothing Then MakeDate = Date.Now - Else - LoadDGV() - End If - LoadStandort() - cboATR.Enabled = GesSichRef.ATR - - Me.Text = "Gesamtsicherheit " & Standort - frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitCRN) - End Sub - - - Public Sub LoadDGV() - lblSaldo.Text = "Saldo: € " & GesSichRef.Saldo.ToString("N") - lblGestellungNr.Text = "" - Dim sqladd1 As String = "" - If GesSichRef.UstEnabled Then sqladd1 &= ", FORMAT(((Warenwert + Sicherheitsbetrag) * " & GesSichRef.Ust & "/100), 'C', 'de-DE') as Ust" - If GesSichRef.ATR Then sqladd1 &= ", ATRJN" - - - Dim addtosqlstring As String = "" - Dim SQLStringMRN As String = "select GesamtSichID, Kennnummer, PosNr, DateTime, Warenwert, Sicherheitsbetrag, Saldo " & sqladd1 & " , Freitext from [tblGesamtsicherheit] where GesamtsichNr = '" & GesamtsichNr & "' and Art = 'Open' order by DateTime" - dgvGesamtsicherheitMRN.SET_SQL(SQLStringMRN, "AVISO", ,) - dgvGesamtsicherheitMRN.LOAD() - - Dim SQLStringCRN As String = "select GesamtSichID, Kennnummer, DateTime, Warenwert, Sicherheitsbetrag, Saldo, Freitext from [tblGesamtsicherheit] where GesamtsichNr = '" & GesamtsichNr & "' and Art = 'Close' order by DateTime" - dgvGesamtsicherheitCRN.SET_SQL(SQLStringCRN, "AVISO", ,) - dgvGesamtsicherheitCRN.LOAD() - - Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where GesamtsichNr = '" & GesamtsichNr & "'" - Dim dt As New DataTable - dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) - - If dt.Rows.Count > 0 Then - 'Me.GesamtsichNr = dt.Rows(0).Item("GesamtsichNr") - Me.FilialNummer = dt.Rows(0).Item("FilialNummer") - Me.Abfertigungsnummer = dt.Rows(0).Item("Abfertigungsnummer") - - If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer - If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "Abfertigungsnummer: " & Me.Abfertigungsnummer - End If - - - If dgvGesamtsicherheitMRN.Columns.Count > 0 Then - With dgvGesamtsicherheitMRN - .RowHeadersWidth = 10 - .Columns("GesamtSichID").Visible = False - .Columns("Warenwert").DefaultCellStyle.Format = "c" - .Columns("Sicherheitsbetrag").DefaultCellStyle.Format = "c" - .Columns("Saldo").DefaultCellStyle.Format = "c" - .Columns("Saldo").Visible = False - Select Case GesSichRef.ATR - Case True - .Columns("Kennnummer").HeaderText = "ATB" - .Columns("AtrJN").HeaderText = "ATR" - .Columns("AtrJN").Width = 33 - .Columns("Ust").Width = 69 - Case Else - .Columns("Kennnummer").HeaderText = "CRN" - End Select - .Columns("Kennnummer").Width = 146 - - .Columns("PosNr").Width = 20 - .Columns("DateTime").Width = 95 - .Columns("Warenwert").Width = 100 - .Columns("Saldo").Width = 100 - - .Columns("Sicherheitsbetrag").Width = 100 - .Columns("Freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - End With - ' For Each col As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns - 'col.Width = 120 - 'Next - End If - - If dgvGesamtsicherheitCRN.Columns.Count > 0 Then - With dgvGesamtsicherheitCRN - .RowHeadersWidth = 10 - .Columns("GesamtSichID").Visible = False - .Columns("Warenwert").DefaultCellStyle.Format = "c" - .Columns("Sicherheitsbetrag").DefaultCellStyle.Format = "c" - .Columns("Saldo").DefaultCellStyle.Format = "c" - .Columns("Saldo").Visible = False - Select Case GesSichRef.ATR - Case True - .Columns("Kennnummer").HeaderText = "ATC / MRN" - Case Else - .Columns("Kennnummer").HeaderText = "CRN" - End Select - .Columns("Kennnummer").Width = 120 - .Columns("DateTime").Width = 140 - .Columns("Warenwert").Width = 100 - .Columns("Sicherheitsbetrag").Width = 100 - .Columns("Freitext").Width = 220 - End With - 'For Each col As DataGridViewColumn In dgvGesamtsicherheitCRN.Columns - ' col.Width = 120 - 'Next - End If - - - End Sub - - - Public Sub LoadStandort() - 'Dim StandortSqlString As String = "select * from [tblGesamtsicherheitReferenz] where Standort = " & "'" & Standort & "'" - 'Dim dt As New DataTable - 'dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) - 'Zollsatz = dt.Rows(0).Item("Zollsatz") - 'Referenzwert = dt.Rows(0).Item("Referenzwert") - - lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.Referenzwert.ToString("N") - lblZollsatz.Text = "Zollsatz: " & GesSichRef.Zollsatz & "%" - ZollsatzMulti = GesSichRef.Zollsatz / 100 - End Sub - - - - 'Private Sub CalcSaldo() - ' Dim SaldoString As String = "select SUM([MRN_Sicherheitsbetrag]) as sumone, SUM([CRN_Sicherheitsbetrag]) As sumtwo from [tblGesamtsicherheit]" - ' Dim dt As New DataTable - ' dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True) - ' Dim mrn As Integer = dt.Rows(0).Item(0) - ' Dim crn As Integer = dt.Rows(0).Item(1) - - ' Saldo = Referenzwert - mrn + crn - - ' lblSaldo.Text = "Saldo: €" & Saldo.ToString("N") - 'End Sub - - - Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtMRNWarenwert.TextChanged, txtCRNWarenwert.TextChanged - Try - Select Case sender.name - Case "txtMRNWarenwert" - txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N") - If GesSichRef.UstEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.Ust / 100) - Case "txtCRNWarenwert" - txtCRNSicherheitsbetrag.Text = (txtCRNWarenwert.Text * ZollsatzMulti).ToString("N") - End Select - Catch - End Try - End Sub - - Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtMRNWarenwert.KeyPress, txtCRNWarenwert.KeyPress, txtPos.KeyPress - Select Case Asc(e.KeyChar) - Case 48 To 57, 8, 44 - ' Zahlen, Backspace und , zulassen - - Case Else - ' alle anderen Eingaben unterdrücken - e.Handled = True - End Select - End Sub - - Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtCRNDate.KeyPress, txtCRNTime.KeyPress, txtMRNDate.KeyPress, txtMRNTime.KeyPress - Select Case Asc(e.KeyChar) - Case 48 To 57, 8, 46, 58 - ' Zahlen, Backspace, . und : zulassen - - Case Else - ' alle anderen Eingaben unterdrücken - e.Handled = True - End Select - End Sub - - - Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click - Try - Dim a As Date = Date.ParseExact(txtMRNDate.Text, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo) - Dim b As Date = Date.ParseExact(txtMRNTime.Text, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo) - - Dim ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute) - MsgBox(ab.ToString) - Catch ex As Exception - MsgBox(ex.Message) - End Try - End Sub - - Private Sub txtMRNDate_GotFocus(sender As Object, e As EventArgs) Handles txtMRNDate.GotFocus, txtCRNDate.GotFocus, txtMRNTime.GotFocus, txtCRNTime.GotFocus - Select Case sender.name - Case "txtMRNDate" - If txtMRNDate.Text.Length < 1 Then txtMRNDate.Text = Date.Today.ToString("dd.MM.yyyy") - Case "txtCRNDate" - If txtCRNDate.Text.Length < 1 Then txtCRNDate.Text = Date.Today.ToString("dd.MM.yyyy") - Case "txtMRNTime" - If txtMRNTime.Text.Length < 1 Then txtMRNTime.Text = Date.Now.ToString("HH:mm") - Case "txtCRNTime" - If txtCRNTime.Text.Length < 1 Then txtCRNTime.Text = Date.Now.ToString("HH:mm") - End Select - End Sub - - Private Sub btnAddMRN_Click(sender As Object, e As EventArgs) Handles btnAddOpen.Click - Try - - Dim OPEN As New cSicherheit(Me) - With OPEN - .Kennnummer = txtMRN.Text - .PosNr = Double.Parse(nixzunull(txtPos.Text)) - .DateTime = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) - .Warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") - .Sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") - .standort = Me.Standort - .Art = "OPEN" - .GesamtsichNr = Me.GesamtsichNr - .MakeDate = Me.MakeDate - .Freitext = Me.txtFreitextOpen.Text - .saldo = GesSichRef.Saldo - .ATRJN = nixzunull(cboATR.SelectedItem) - End With - - If Neu = True Then OPEN.GesamtsichNr = AddNewGesamtSichNr() - - Select Case TestIfExist(OPEN.Kennnummer, GesamtsichNr) - Case "Neu" - OPEN.Save() - Case Else - MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & TestIfExist(OPEN.Kennnummer, GesamtsichNr) & "eingetragen") : OPEN.Save() - End Select - - AfterButton() - Catch ex As Exception - MsgBox(ex.Message) - End Try - End Sub - - Private Sub btnAddCRN_Click(sender As Object, e As EventArgs) Handles btnAddClose.Click - Try - Dim Close As New cSicherheit(Me) - With Close - .Kennnummer = txtCRN.Text - .DateTime = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) - .Warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") - .Sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") - .standort = Me.Standort - .Art = "Close" - .GesamtsichNr = Me.GesamtsichNr - .MakeDate = Me.MakeDate - .Freitext = Me.txtFreitextClose.Text - .saldo = GesSichRef.Saldo - End With - - If Neu = True Then Close.GesamtsichNr = AddNewGesamtSichNr() - - Select Case TestIfExist(Close.Kennnummer, GesamtsichNr) - Case "Neu" - Close.Save() - Case Else - MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & TestIfExist(Close.Kennnummer, GesamtsichNr) & "eingetragen") : Exit Sub - End Select - - AfterButton() - Catch ex As Exception - MsgBox(ex.Message) - End Try - End Sub - - Function nixzunull(s As String, Optional type As String = "") - - If s = "" Then - Dim O As Double = 0 - - Return O - Else - Return s - End If - End Function - Function AfterButton() - GesSichRef.CalcSaldo() - LoadDGV() - EmptyTXT() - End Function - - Public Function AddNewGesamtSichNr() As Integer - Dim sqlq As String = "select MAX([GesamtsichNr]) as MaxGesSich from tblGesamtsicherheit" - Dim dt As New DataTable - dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True) - Dim LetzteGesSichNum As Integer = dt.Rows(0).Item(0) - Me.GesamtsichNr = LetzteGesSichNum + 1 - Me.Neu = False - Return Me.GesamtsichNr - End Function - - Public Sub EmptyTXT() - Dim a As New List(Of Control) - For Each contr As Control In panOben.Controls - If contr.GetType.FullName = "System.Windows.Forms.TextBox" Then contr.Text = "" - Next - cboATR.SelectedItem = Nothing - End Sub - - Public Function TestIfExist(KennnummerStr As String, Optional ByVal lkw As String = "") - If lkw = "" And Me.GesamtsichNr > 0 Then lkw = GesamtsichNr - - Dim SQLString As String = "Select * from [tblGesamtsicherheit] where Kennnummer = '" & KennnummerStr & "'" - Dim dt As New DataTable - dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True) - If dt.Rows.Count > 0 Then - Return dt.Rows(0).Item("GesamtsichNr").ToString - Else - Return "Neu" - End If - End Function - - Public Function DateTimeString2DateTimeKonvertinator(datum As String, uhrzeit As String) As DateTime - Try - Dim a As Date = Date.ParseExact(datum, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo) - Dim b As Date = Date.ParseExact(uhrzeit, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo) - - Dim ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute) - Return ab - Catch ex As Exception - MsgBox(ex.Message) - Return Date.Now - End Try - End Function - - - - Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click - Try - Me.FilialNummer = returnnothingehschonwissen(cboFiliale.SelectedItem, "Integer") - Catch - Me.FilialNummer = "0" - End Try - - Me.Abfertigungsnummer = txtAbfertNum.Text - Me.LKWID = txtLKWID.Text - - If nixzunull(Me.GesamtsichNr) > 0 Then - Dim sqlstring = "Update [tblGesamtsicherheit] set FilialNummer = '" & Me.FilialNummer & "', Abfertigungsnummer = '" & Me.Abfertigungsnummer & "', LKWID = '" & Me.LKWID & "' WHERE GesamtSichNr = '" & Me.GesamtsichNr & "' " - SQL.doSQL(sqlstring, "AVISO") - LoadDGV() - End If - - panOben.Enabled = True : panOben.Enabled = True - panOverlay.Visible = False - End Sub - - Private Function returnnothingehschonwissen(obj As Object, Optional type As String = "String") - Select Case type - Case "String" - If obj Is Nothing Then - Return "" - Else - Return obj.value.ToString - End If - Case "Integer" - If obj Is Nothing Then - Return Nothing - Else - Return Integer.Parse(obj.value) - End If - End Select - - - End Function - - Private Sub dgvGesamtsicherheitMRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitMRN.CellDoubleClick - - Dim Sicherh As New cSicherheit - Sicherh.Load(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value) - - txtMRN.Text = Sicherh.Kennnummer - txtPos.Text = Sicherh.PosNr - txtMRNWarenwert.Text = Sicherh.Warenwert - txtFreitextOpen.Text = Sicherh.Freitext - cboATR.SelectedItem = Sicherh.ATRJN - txtMRNDate.Text = Sicherh.DateTime.ToString("dd.MM.yyyy") - txtMRNTime.Text = Sicherh.DateTime.ToString("HH:mm") - - openopened = Sicherh - - btnAddOpen.Visible = False - btnUpdateOpen.Visible = True - btnDeleteOpen.Visible = True - End Sub - - Private Sub btnUpdateOpen_Click(sender As Object, e As EventArgs) Handles btnUpdateOpen.Click - With openopened - .Kennnummer = txtMRN.Text - .PosNr = Double.Parse(nixzunull(txtPos.Text)) - .DateTime = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) - .Warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") - .Sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") - .standort = Me.Standort - .Art = "OPEN" - .GesamtsichNr = Me.GesamtsichNr - '.MakeDate = Me.MakeDate - .Freitext = Me.txtFreitextOpen.Text - '.saldo = GesSichRef.Saldo - .ATRJN = nixzunull(cboATR.SelectedItem) - End With - openopened.Save() - btnUpdateOpen.Visible = False - btnAddOpen.Visible = True - btnDeleteOpen.Visible = False - AfterButton() - End Sub - - Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles btnUpdateClose.Click - With closedopened - .Kennnummer = txtCRN.Text - .DateTime = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) - .Warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") - .Sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") - .standort = Me.Standort - .Art = "Close" - .Freitext = Me.txtFreitextClose.Text - End With - closedopened.Save() - btnAddClose.Visible = True - btnUpdateClose.Visible = False - btnDeleteClose.Visible = False - AfterButton() - End Sub - - Private Sub dgvGesamtsicherheitCRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitCRN.CellDoubleClick - - Dim Sicherh As New cSicherheit - Sicherh.Load(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value) - - txtCRN.Text = Sicherh.Kennnummer - txtCRNWarenwert.Text = Sicherh.Warenwert - txtFreitextClose.Text = Sicherh.Freitext - txtCRNDate.Text = Sicherh.DateTime.ToString("dd.MM.yyyy") - txtCRNTime.Text = Sicherh.DateTime.ToString("HH:mm") - - closedopened = Sicherh - - btnDeleteClose.Visible = True - btnAddClose.Visible = False - btnUpdateClose.Visible = True - End Sub - - Private Sub btnDeleteOpen_Click(sender As Object, e As EventArgs) Handles btnDeleteOpen.Click - Try - openopened.Delete() - btnUpdateOpen.Visible = False - btnAddOpen.Visible = True - btnDeleteOpen.Visible = False - AfterButton() - Catch ex As Exception - MsgBox(ex.Message) - End Try - End Sub - - Private Sub FlatButton4_Click_1(sender As Object, e As EventArgs) Handles btnDeleteClose.Click - Try - closedopened.Delete() - btnUpdateClose.Visible = False - btnAddClose.Visible = True - btnDeleteClose.Visible = False - AfterButton() - Catch ex As Exception - MsgBox(ex.Message) - End Try - End Sub - - Private Sub lblGestellungNr_Click(sender As Object, e As EventArgs) Handles lblGestellungNr.DoubleClick - panOverlay.Visible = True - cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) - cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer) - txtAbfertNum.Text = Me.Abfertigungsnummer - txtLKWID.Text = Me.LKWID - panOben.Enabled = False - End Sub -End Class - -Public Class cSicherheit - Property GesamtSichID - Property Kennnummer As String - Property PosNr As Integer - Property DateTime As DateTime - Property MakeDate As DateTime - Property Warenwert As Double - Property Sicherheitsbetrag As Double - Property saldo As Double - Property standort As String - Property Art As String - Property GesamtsichNr As Integer - Property Ust As Integer - Property Freitext As String - Property FilialNummer As Integer - Property Abfertigungsnummer As String - Property LKWID As String - Property ATRJN As String = "" - - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - - Public Sub New(Optional ByVal gessich As frmGesSich = Nothing) - If gessich IsNot Nothing Then - Me.FilialNummer = gessich.FilialNummer - Me.Abfertigungsnummer = gessich.Abfertigungsnummer - Me.LKWID = gessich.LKWID - Me.GesamtSichID = GenerateID() - End If - End Sub - - Public Function Load(GsID As String) - Me.GesamtSichID = GsID - Load() - End Function - - Public Function Load() - Dim dt As New DataTable - Dim sqlstring As String = "SELECT * FROM [AVISO].[dbo].[tblGesamtsicherheit] where GesamtsichID = '" & Me.GesamtSichID & "'" - dt = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True) - Dim test As cSicherheit = SQLEintraege.Loadinator(Me, dt) - ' MsgBox("") - End Function - - Public Function GenerateID() As String - Return Date.Now.ToString.Replace(".", "").Replace("-", "").Replace(",", "").Replace(" ", "").Replace(":", "") - End Function - - Public Function Save() - 'MakeDate = frmGesSich.MakeDate - Dim ding As New List(Of SQLEintraege) - For Each prop As PropertyInfo In Me.GetType().GetProperties() - If prop.GetValue(Me, Nothing).GetType = GetType(Double) Then - ' MsgBox(prop.Name) - ding.Add(New SQLEintraege(prop.Name, prop.GetValue(Me, Nothing).ToString.Replace(",", "."))) - Else - ding.Add(New SQLEintraege(prop.Name, prop.GetValue(Me, Nothing))) - End If - ' ding.Add(New SQLEintraege(prop.Name, prop.GetValue(Me, Nothing))) - Next - - ''' - Dim dt As DataTable = SQL.loadDgvBySql("Select * from [tblGesamtsicherheit] where GesamtSichID = '" & Me.GesamtSichID & "'", "AVISO") - If dt.Rows.Count > 0 Then - Dim UpdateString As String = "" - For Each i In ding - If Not i.Spalte = "GesamtSichID" Then - UpdateString &= "[" & i.Spalte & "]='" & i.Wert & "'," - End If - Next - UpdateString = UpdateString.Substring(0, UpdateString.Length - 1) - - Dim sqlquery As String - sqlquery = "update [tblGesamtsicherheit] set " & UpdateString & " where GesamtSichID = '" & Me.GesamtSichID & "'" - SQL.doSQL(sqlquery, "AVISO") - Else - - Dim text, value, insert As String - For Each i In ding - text &= i.Spalte & ", " - value &= "'" & i.Wert & "', " - Next - text = text.Substring(0, text.Length - 2) - value = value.Substring(0, value.Length - 2) - - insert = "(" & text & ") VALUES (" & value & ")" - - Dim sqlquery As String - sqlquery = "insert into [tblGesamtsicherheit] (" & text & ") VALUES (" & value & ")" - SQL.doSQL(sqlquery, "AVISO") - End If - - End Function - - Public Function Delete() - SQL.doSQL("delete from [tblGesamtsicherheit] where GesamtSichID = '" & Me.GesamtSichID & "'", "AVISO") - End Function - -End Class - -Public Class SQLEintraege - Property Spalte As String - Property Wert As String - Public Sub New(_Spalte As String, _Wert As String) - Spalte = _Spalte - Wert = _Wert - End Sub - - Public Shared Function Loadinator(Obj As Object, dt As DataTable) As Object - Try - For Each prop As PropertyInfo In Obj.GetType().GetProperties() - If dt.Rows(0).Item(prop.Name) IsNot Nothing And dt.Rows(0).Item(prop.Name) IsNot DBNull.Value Then - If dt.Rows(0).Item(prop.Name).GetType Is GetType(Decimal) Then - prop.SetValue(Obj, Double.Parse(dt.Rows(0).Item(prop.Name))) - Else - prop.SetValue(Obj, dt.Rows(0).Item(prop.Name)) - End If - - End If - Next - Return Obj - Catch ex As Exception - MsgBox(ex.Message) - End Try - End Function -End Class \ No newline at end of file diff --git a/Aviso/frmGesSich.Designer.vb b/Aviso/frmGesamtsicherheiten.Designer.vb similarity index 91% rename from Aviso/frmGesSich.Designer.vb rename to Aviso/frmGesamtsicherheiten.Designer.vb index 7414cba..56ba84b 100644 --- a/Aviso/frmGesSich.Designer.vb +++ b/Aviso/frmGesamtsicherheiten.Designer.vb @@ -1,5 +1,5 @@  -Partial Class frmGesSich +Partial Class frmGesamtsicherheiten Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -28,12 +28,14 @@ Partial Class frmGesSich Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesSich)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheiten)) Me.dgvGesamtsicherheitMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel2 = New System.Windows.Forms.Panel() Me.panOverlay = New System.Windows.Forms.Panel() + Me.cboWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lblWarenort = New System.Windows.Forms.Label() Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnSave = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txtLKWID = New System.Windows.Forms.TextBox() Me.txtAbfertNum = New System.Windows.Forms.TextBox() Me.Label18 = New System.Windows.Forms.Label() @@ -48,7 +50,7 @@ Partial Class frmGesSich Me.txtCRNDate = New System.Windows.Forms.TextBox() Me.txtMRNTime = New System.Windows.Forms.TextBox() Me.txtMRNDate = New System.Windows.Forms.TextBox() - Me.btnSave = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnSaveOben = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.txtCRNSicherheitsbetrag = New System.Windows.Forms.TextBox() Me.txtCRNWarenwert = New System.Windows.Forms.TextBox() Me.txtCRN = New System.Windows.Forms.TextBox() @@ -84,11 +86,14 @@ Partial Class frmGesSich Me.Label1 = New System.Windows.Forms.Label() Me.txtFreitextClose = New System.Windows.Forms.TextBox() Me.txtFreitextOpen = New System.Windows.Forms.TextBox() + Me.ClosedErzeugenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel2.SuspendLayout() Me.panOverlay.SuspendLayout() CType(Me.dgvGesamtsicherheitCRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.panOben.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() Me.SuspendLayout() ' 'dgvGesamtsicherheitMRN @@ -105,6 +110,7 @@ Partial Class frmGesSich DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvGesamtsicherheitMRN.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 Me.dgvGesamtsicherheitMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvGesamtsicherheitMRN.ContextMenuStrip = Me.ContextMenuStrip1 DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -143,8 +149,10 @@ Partial Class frmGesSich 'panOverlay ' Me.panOverlay.BackColor = System.Drawing.SystemColors.ButtonHighlight + Me.panOverlay.Controls.Add(Me.cboWarenort) + Me.panOverlay.Controls.Add(Me.lblWarenort) Me.panOverlay.Controls.Add(Me.cboFiliale) - Me.panOverlay.Controls.Add(Me.FlatButton2) + Me.panOverlay.Controls.Add(Me.btnSave) Me.panOverlay.Controls.Add(Me.txtLKWID) Me.panOverlay.Controls.Add(Me.txtAbfertNum) Me.panOverlay.Controls.Add(Me.Label18) @@ -157,6 +165,30 @@ Partial Class frmGesSich Me.panOverlay.TabIndex = 2 Me.panOverlay.Visible = False ' + 'cboWarenort + ' + Me.cboWarenort._allowedValuesFreiText = Nothing + Me.cboWarenort._allowFreiText = False + Me.cboWarenort._value = "" + Me.cboWarenort.DropDownWidth = 300 + Me.cboWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboWarenort.FormattingEnabled = True + Me.cboWarenort.Location = New System.Drawing.Point(278, 64) + Me.cboWarenort.MaxLength = 4 + Me.cboWarenort.Name = "cboWarenort" + Me.cboWarenort.Size = New System.Drawing.Size(186, 24) + Me.cboWarenort.TabIndex = 9 + ' + 'lblWarenort + ' + Me.lblWarenort.AutoSize = True + Me.lblWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblWarenort.Location = New System.Drawing.Point(125, 68) + Me.lblWarenort.Name = "lblWarenort" + Me.lblWarenort.Size = New System.Drawing.Size(88, 20) + Me.lblWarenort.TabIndex = 8 + Me.lblWarenort.Text = "Warenort:" + ' 'cboFiliale ' Me.cboFiliale._allowedValuesFreiText = Nothing @@ -165,25 +197,25 @@ Partial Class frmGesSich Me.cboFiliale.DropDownWidth = 300 Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(279, 76) + Me.cboFiliale.Location = New System.Drawing.Point(279, 103) Me.cboFiliale.MaxLength = 4 Me.cboFiliale.Name = "cboFiliale" Me.cboFiliale.Size = New System.Drawing.Size(186, 24) Me.cboFiliale.TabIndex = 2 ' - 'FlatButton2 + 'btnSave ' - Me.FlatButton2.allowBorder = False - Me.FlatButton2.BackColor = System.Drawing.Color.Gainsboro - Me.FlatButton2.FlatAppearance.BorderSize = 0 - Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton2.ForeColor = System.Drawing.Color.Black - Me.FlatButton2.Location = New System.Drawing.Point(424, 232) - Me.FlatButton2.Name = "FlatButton2" - Me.FlatButton2.Size = New System.Drawing.Size(75, 23) - Me.FlatButton2.TabIndex = 7 - Me.FlatButton2.Text = "Speichern" - Me.FlatButton2.UseVisualStyleBackColor = False + Me.btnSave.allowBorder = False + Me.btnSave.BackColor = System.Drawing.Color.Gainsboro + Me.btnSave.FlatAppearance.BorderSize = 0 + Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSave.ForeColor = System.Drawing.Color.Black + Me.btnSave.Location = New System.Drawing.Point(424, 232) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(75, 23) + Me.btnSave.TabIndex = 7 + Me.btnSave.Text = "Speichern" + Me.btnSave.UseVisualStyleBackColor = False ' 'txtLKWID ' @@ -197,7 +229,7 @@ Partial Class frmGesSich 'txtAbfertNum ' Me.txtAbfertNum.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfertNum.Location = New System.Drawing.Point(279, 128) + Me.txtAbfertNum.Location = New System.Drawing.Point(279, 140) Me.txtAbfertNum.Margin = New System.Windows.Forms.Padding(0) Me.txtAbfertNum.Name = "txtAbfertNum" Me.txtAbfertNum.Size = New System.Drawing.Size(186, 24) @@ -217,7 +249,7 @@ Partial Class frmGesSich ' Me.Label17.AutoSize = True Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label17.Location = New System.Drawing.Point(68, 130) + Me.Label17.Location = New System.Drawing.Point(68, 142) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(181, 20) Me.Label17.TabIndex = 3 @@ -227,7 +259,7 @@ Partial Class frmGesSich ' Me.Label16.AutoSize = True Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label16.Location = New System.Drawing.Point(126, 80) + Me.Label16.Location = New System.Drawing.Point(126, 107) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(123, 20) Me.Label16.TabIndex = 1 @@ -239,6 +271,7 @@ Partial Class frmGesSich Me.btnClosePanOverlay.BackColor = System.Drawing.Color.White Me.btnClosePanOverlay.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 Me.btnClosePanOverlay.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnClosePanOverlay.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btnClosePanOverlay.FlatAppearance.BorderSize = 0 Me.btnClosePanOverlay.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnClosePanOverlay.ForeColor = System.Drawing.Color.Black @@ -358,19 +391,19 @@ Partial Class frmGesSich Me.txtMRNDate.Size = New System.Drawing.Size(85, 24) Me.txtMRNDate.TabIndex = 21 ' - 'btnSave + 'btnSaveOben ' - Me.btnSave.allowBorder = False - Me.btnSave.BackColor = System.Drawing.Color.White - Me.btnSave.FlatAppearance.BorderSize = 0 - Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSave.ForeColor = System.Drawing.Color.Black - Me.btnSave.Location = New System.Drawing.Point(12, 12) - Me.btnSave.Name = "btnSave" - Me.btnSave.Size = New System.Drawing.Size(75, 23) - Me.btnSave.TabIndex = 0 - Me.btnSave.Text = "Speichern" - Me.btnSave.UseVisualStyleBackColor = False + Me.btnSaveOben.allowBorder = False + Me.btnSaveOben.BackColor = System.Drawing.Color.White + Me.btnSaveOben.FlatAppearance.BorderSize = 0 + Me.btnSaveOben.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSaveOben.ForeColor = System.Drawing.Color.Black + Me.btnSaveOben.Location = New System.Drawing.Point(12, 12) + Me.btnSaveOben.Name = "btnSaveOben" + Me.btnSaveOben.Size = New System.Drawing.Size(75, 23) + Me.btnSaveOben.TabIndex = 0 + Me.btnSaveOben.Text = "Speichern" + Me.btnSaveOben.UseVisualStyleBackColor = False ' 'txtCRNSicherheitsbetrag ' @@ -450,7 +483,7 @@ Partial Class frmGesSich Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew Me.lblZollsatz.Location = New System.Drawing.Point(1010, 37) Me.lblZollsatz.Name = "lblZollsatz" - Me.lblZollsatz.Size = New System.Drawing.Size(86, 16) + Me.lblZollsatz.Size = New System.Drawing.Size(85, 16) Me.lblZollsatz.TabIndex = 4 Me.lblZollsatz.Text = "Zollsatz: 12%" ' @@ -462,7 +495,7 @@ Partial Class frmGesSich Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew Me.lblReferenzwert.Location = New System.Drawing.Point(1010, 15) Me.lblReferenzwert.Name = "lblReferenzwert" - Me.lblReferenzwert.Size = New System.Drawing.Size(137, 16) + Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16) Me.lblReferenzwert.TabIndex = 1 Me.lblReferenzwert.Text = "Referenzwert: €80.000" ' @@ -512,7 +545,7 @@ Partial Class frmGesSich Me.panOben.Controls.Add(Me.txtCRNDate) Me.panOben.Controls.Add(Me.txtMRNTime) Me.panOben.Controls.Add(Me.txtMRNDate) - Me.panOben.Controls.Add(Me.btnSave) + Me.panOben.Controls.Add(Me.btnSaveOben) Me.panOben.Controls.Add(Me.txtCRNSicherheitsbetrag) Me.panOben.Controls.Add(Me.txtCRNWarenwert) Me.panOben.Controls.Add(Me.txtCRN) @@ -794,7 +827,19 @@ Partial Class frmGesSich Me.txtFreitextOpen.Size = New System.Drawing.Size(256, 24) Me.txtFreitextOpen.TabIndex = 40 ' - 'frmGesSich + 'ClosedErzeugenToolStripMenuItem + ' + Me.ClosedErzeugenToolStripMenuItem.Name = "ClosedErzeugenToolStripMenuItem" + Me.ClosedErzeugenToolStripMenuItem.Size = New System.Drawing.Size(161, 22) + Me.ClosedErzeugenToolStripMenuItem.Text = "Closed erzeugen" + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ClosedErzeugenToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(162, 26) + ' + 'frmGesamtsicherheiten ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font @@ -804,7 +849,8 @@ Partial Class frmGesSich Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.MaximumSize = New System.Drawing.Size(1400, 815) Me.MinimumSize = New System.Drawing.Size(1400, 815) - Me.Name = "frmGesSich" + Me.Name = "frmGesamtsicherheiten" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "frmGesSich" CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel2.ResumeLayout(False) @@ -813,6 +859,7 @@ Partial Class frmGesSich CType(Me.dgvGesamtsicherheitCRN, System.ComponentModel.ISupportInitialize).EndInit() Me.panOben.ResumeLayout(False) Me.panOben.PerformLayout() + Me.ContextMenuStrip1.ResumeLayout(False) Me.ResumeLayout(False) End Sub @@ -827,7 +874,7 @@ Partial Class frmGesSich Friend WithEvents txtCRNDate As TextBox Friend WithEvents txtMRNTime As TextBox Friend WithEvents txtMRNDate As TextBox - Friend WithEvents btnSave As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnSaveOben As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents txtCRNSicherheitsbetrag As TextBox Friend WithEvents txtCRNWarenwert As TextBox Friend WithEvents txtCRN As TextBox @@ -860,7 +907,7 @@ Partial Class frmGesSich Friend WithEvents Label15 As Label Friend WithEvents txtPos As TextBox Friend WithEvents panOverlay As Panel - Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnSave As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents txtLKWID As TextBox Friend WithEvents txtAbfertNum As TextBox Friend WithEvents Label18 As Label @@ -872,4 +919,8 @@ Partial Class frmGesSich Friend WithEvents btnUpdateOpen As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btnDeleteClose As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btnDeleteOpen As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents cboWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents lblWarenort As Label + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Friend WithEvents ClosedErzeugenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Aviso/frmGesSichMenu.resx b/Aviso/frmGesamtsicherheiten.resx similarity index 100% rename from Aviso/frmGesSichMenu.resx rename to Aviso/frmGesamtsicherheiten.resx diff --git a/Aviso/frmGesamtsicherheiten.vb b/Aviso/frmGesamtsicherheiten.vb new file mode 100644 index 0000000..13ef88e --- /dev/null +++ b/Aviso/frmGesamtsicherheiten.vb @@ -0,0 +1,752 @@ +Imports System.Reflection +Imports VERAG_PROG_ALLGEMEIN + +Public Class frmGesamtsicherheiten + + Public Property gessicherheitID As Integer + Public Property datum As DateTime = Nothing + Property GesSichRef As cGesamtSicherheitsReferenz + Property Standort As String = "" + + Public ZollsatzMulti As Double = 0 + + Public Saldo As Integer = 0 + + Public Neu As Boolean = False + + Public FilialNummer As Integer + + Public Abfertigungsnummer As String + + Public LKWID As String + + Public warenortID As String + + Dim openopened As cSicherheiten + + Dim closedopened As cSicherheiten + + Dim sicherheiten As cSicherheiten + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click + + Dim dgv As String = "" + For Each c As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns + dgv &= c.Width & c.HeaderText & vbCrLf + Next + ' MsgBox(dgv) + LoadDGV() + GesSichRef.LOAD() + LoadStandort() + End Sub + + Private Sub frmGesamtsicherheit_Load(sender As Object, e As EventArgs) Handles MyBase.Load + If setNullToZero(gessicherheitID) = "" Or Neu = True Then + panOben.Enabled = False : panOben.Enabled = False + panOverlay.Visible = True + cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) + If datum = Nothing Then datum = Date.Now + Else + LoadDGV() + End If + LoadStandort() + cboATR.Enabled = GesSichRef.gsr_ATR + + Me.Text = "Gesamtsicherheit " & Standort + frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitCRN) + End Sub + + + Public Sub LoadDGV() + 'lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString("N") + lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString() + lblGestellungNr.Text = "" + Dim sqladd1 As String = "" + If GesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & GesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust" + If GesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]" + + + Dim addtosqlstring As String = "" + Dim SQLStringMRN As String = "select [gs_gsId], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Open' order by [gs_datum]" + dgvGesamtsicherheitMRN.SET_SQL(SQLStringMRN, "AVISO", ,) + dgvGesamtsicherheitMRN.LOAD() + + Dim SQLStringCRN As String = "select [gs_gsId], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo], [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Close' order by [gs_datum]" + dgvGesamtsicherheitCRN.SET_SQL(SQLStringCRN, "AVISO", ,) + dgvGesamtsicherheitCRN.LOAD() + + Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "'" + Dim dt As New DataTable + dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) + + If dt.Rows.Count > 0 Then + 'Me.GesamtsichNr = dt.Rows(0).Item("GesamtsichNr") + Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr")) + Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr")) + Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort")) + + If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " " + If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " " + If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " " + End If + + + If dgvGesamtsicherheitMRN.Columns.Count > 0 Then + With dgvGesamtsicherheitMRN + .RowHeadersWidth = 10 + .Columns("gs_gsId").Visible = False + .Columns("gs_warenwert").DefaultCellStyle.Format = "c" + .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c" + .Columns("gs_saldo").DefaultCellStyle.Format = "c" + .Columns("gs_saldo").Visible = False + Select Case GesSichRef.gsr_ATR + Case True + .Columns("gs_ATBNr").HeaderText = "ATB" + .Columns("gs_atr").HeaderText = "ATR" + .Columns("gs_atr").Width = 33 + .Columns("gs_ust").Width = 69 + Case Else + .Columns("gs_ATBNr").HeaderText = "CRN" + End Select + .Columns("gs_ATBNr").Width = 146 + + .Columns("gs_posNr").Width = 20 + .Columns("gs_datum").Width = 95 + .Columns("gs_warenwert").Width = 100 + .Columns("gs_saldo").Width = 100 + + .Columns("gs_sicherheitsbetrag").Width = 100 + .Columns("gs_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + End With + ' For Each col As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns + 'col.Width = 120 + 'Next + End If + + If dgvGesamtsicherheitCRN.Columns.Count > 0 Then + With dgvGesamtsicherheitCRN + .RowHeadersWidth = 10 + .Columns("gs_gsId").Visible = False + .Columns("gs_warenwert").DefaultCellStyle.Format = "c" + .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c" + .Columns("gs_saldo").DefaultCellStyle.Format = "c" + .Columns("gs_saldo").Visible = False + Select Case GesSichRef.gsr_ATR + Case True + .Columns("gs_ATBNr").HeaderText = "ATC / MRN" + Case Else + .Columns("gs_ATBNr").HeaderText = "CRN" + End Select + .Columns("gs_ATBNr").Width = 120 + .Columns("gs_datum").Width = 140 + .Columns("gs_warenwert").Width = 100 + .Columns("gs_sicherheitsbetrag").Width = 100 + .Columns("gs_freitext").Width = 220 + End With + 'For Each col As DataGridViewColumn In dgvGesamtsicherheitCRN.Columns + ' col.Width = 120 + 'Next + End If + + + End Sub + + + Public Sub LoadStandort() + 'Dim StandortSqlString As String = "select * from [tblGesamtsicherheitReferenz] where Standort = " & "'" & Standort & "'" + 'Dim dt As New DataTable + 'dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) + 'Zollsatz = dt.Rows(0).Item("Zollsatz") + 'Referenzwert = dt.Rows(0).Item("Referenzwert") + + 'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N") + lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString() + lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%" + ZollsatzMulti = GesSichRef.gsr_zollsatz / 100 + End Sub + + + + 'Private Sub CalcSaldo() + ' Dim SaldoString As String = "select SUM([MRN_Sicherheitsbetrag]) as sumone, SUM([CRN_Sicherheitsbetrag]) As sumtwo from [tblGesamtsicherheit]" + ' Dim dt As New DataTable + ' dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True) + ' Dim mrn As Integer = dt.Rows(0).Item(0) + ' Dim crn As Integer = dt.Rows(0).Item(1) + + ' Saldo = Referenzwert - mrn + crn + + ' lblSaldo.Text = "Saldo: €" & Saldo.ToString("N") + 'End Sub + + + Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtMRNWarenwert.TextChanged, txtCRNWarenwert.TextChanged + Try + Select Case sender.name + Case "txtMRNWarenwert" + txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N") + If GesSichRef.gsr_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.gsr_ust / 100) + Case "txtCRNWarenwert" + txtCRNSicherheitsbetrag.Text = (txtCRNWarenwert.Text * ZollsatzMulti).ToString("N") + End Select + Catch + End Try + End Sub + + Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtMRNWarenwert.KeyPress, txtCRNWarenwert.KeyPress, txtPos.KeyPress + Select Case Asc(e.KeyChar) + Case 48 To 57, 8, 44 + ' Zahlen, Backspace und , zulassen + + Case Else + ' alle anderen Eingaben unterdrücken + e.Handled = True + End Select + End Sub + + Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtCRNDate.KeyPress, txtCRNTime.KeyPress, txtMRNDate.KeyPress, txtMRNTime.KeyPress + Select Case Asc(e.KeyChar) + Case 48 To 57, 8, 46, 58 + ' Zahlen, Backspace, . und : zulassen + + Case Else + ' alle anderen Eingaben unterdrücken + e.Handled = True + End Select + End Sub + + + Private Sub btnSaveOben_Click(sender As Object, e As EventArgs) Handles btnSaveOben.Click + Try + Dim a As Date = Date.ParseExact(txtMRNDate.Text, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Dim b As Date = Date.ParseExact(txtMRNTime.Text, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo) + + Dim ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute) + MsgBox(ab.ToString) + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub txtMRNDate_GotFocus(sender As Object, e As EventArgs) Handles txtMRNDate.GotFocus, txtCRNDate.GotFocus, txtMRNTime.GotFocus, txtCRNTime.GotFocus + Select Case sender.name + Case "txtMRNDate" + If txtMRNDate.Text.Length < 1 Then txtMRNDate.Text = Date.Today.ToString("dd.MM.yyyy") + Case "txtCRNDate" + If txtCRNDate.Text.Length < 1 Then txtCRNDate.Text = Date.Today.ToString("dd.MM.yyyy") + Case "txtMRNTime" + If txtMRNTime.Text.Length < 1 Then txtMRNTime.Text = Date.Now.ToString("HH:mm") + Case "txtCRNTime" + If txtCRNTime.Text.Length < 1 Then txtCRNTime.Text = Date.Now.ToString("HH:mm") + End Select + End Sub + + Private Sub btnAddMRN_Click(sender As Object, e As EventArgs) Handles btnAddOpen.Click + Try + + If Integer.Parse(setNullToZero(txtPos.Text)) > 1 Then + + Dim limit As Integer = Integer.Parse(setNullToZero(txtPos.Text)) + + For count As Integer = 1 To limit + If (count > 1) Then txtMRNWarenwert.Text = 0 + Dim OPENWithMultiplePosNr As New cSicherheiten() + + With OPENWithMultiplePosNr + .gs_ATBNr = txtMRN.Text + .gs_posNr = count + .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) + .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_standort = Me.Standort + .gs_art = "OPEN" + .gs_gsNr = Me.gessicherheitID + .gs_erstellungsdatum = Me.datum + .gs_freitext = Me.txtFreitextOpen.Text + .gs_saldo = GesSichRef.gsr_Saldo + .gs_atr = setNullToZero(cboATR.SelectedItem) + setEnviromentDataToObject(OPENWithMultiplePosNr, Me) + End With + + If Neu = True AndAlso count <= 1 Then OPENWithMultiplePosNr.gs_gsNr = AddNewGesamtSichNr() + + Select Case checkIfExist(OPENWithMultiplePosNr.gs_ATBNr, gessicherheitID) + Case "Neu" + OPENWithMultiplePosNr.SAVE() + Case Else + If (count > 1) Then + OPENWithMultiplePosNr.SAVE() + Else + MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPENWithMultiplePosNr.gs_ATBNr, gessicherheitID) & "eingetragen") : OPENWithMultiplePosNr.SAVE() + End If + + End Select + + Next + + AfterButton() + + Else + + 'Dim OPEN As New cSicherheiten(Me) + Dim OPEN As New cSicherheiten() + + With OPEN + .gs_ATBNr = txtMRN.Text + .gs_posNr = Integer.Parse(setNullToZero(txtPos.Text)) + .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) + .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_standort = Me.Standort + .gs_art = "OPEN" + .gs_gsNr = Me.gessicherheitID + .gs_erstellungsdatum = Me.datum + .gs_freitext = Me.txtFreitextOpen.Text + .gs_saldo = GesSichRef.gsr_Saldo + .gs_atr = setNullToZero(cboATR.SelectedItem) + setEnviromentDataToObject(OPEN, Me) + End With + + + If Neu = True Then OPEN.gs_gsNr = AddNewGesamtSichNr() + + Select Case checkIfExist(OPEN.gs_ATBNr, gessicherheitID) + Case "Neu" + OPEN.SAVE() + Case Else + MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") : OPEN.SAVE() + End Select + + + AfterButton() + + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + Private Sub btnAddCRN_Click(sender As Object, e As EventArgs) Handles btnAddClose.Click + Try + 'Dim Close As New cSicherheiten(Me) + Dim Close As New cSicherheiten() + With Close + .gs_ATBNr = txtCRN.Text + .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) + .gs_warenwert = Integer.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_standort = Me.Standort + .gs_art = "CLOSE" + .gs_gsNr = Me.gessicherheitID + .gs_erstellungsdatum = Me.datum + .gs_freitext = Me.txtFreitextClose.Text + .gs_saldo = GesSichRef.gsr_Saldo + End With + + If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr() + + Select Case checkIfExist(Close.gs_ATBNr, gessicherheitID) + Case "Neu" + Close.SAVE() + Case Else + MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_ATBNr, gessicherheitID) & "eingetragen") : Exit Sub + End Select + + AfterButton() + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Function setNullToZero(s As String, Optional type As String = "") + + If s = "" Then + Dim zero As Double = 0 + + Return zero + Else + Return s + End If + End Function + Sub AfterButton() + GesSichRef.CalcSaldo() + LoadDGV() + EmptyTXT() + End Sub + + Public Function AddNewGesamtSichNr() As Integer + Dim sqlq As String = "select MAX([gs_gsNr]) as MaxGesSich from tblGesamtsicherheit" + Dim dt As New DataTable + dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True) + Dim LetzteGesSichNum As Integer = -1 + If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then + + LetzteGesSichNum = dt.Rows(0).Item(0) + Me.gessicherheitID = LetzteGesSichNum + 1 + Me.Neu = False + + End If + + Return Me.gessicherheitID + End Function + + Public Sub EmptyTXT() + Dim a As New List(Of Control) + For Each contr As Control In panOben.Controls + If contr.GetType.FullName = "System.Windows.Forms.TextBox" Then contr.Text = "" + Next + cboATR.SelectedItem = Nothing + End Sub + + Public Function checkIfExist(KennnummerStr As String, Optional ByVal lkw As String = "") As String + If lkw = "" And Me.gessicherheitID > 0 Then lkw = gessicherheitID + + Dim SQLString As String = "Select * from [tblGesamtsicherheit] where [gs_ATBNr] = '" & KennnummerStr & "'" + Dim dt As New DataTable + dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True) + If dt.Rows.Count > 0 Then + Return dt.Rows(0).Item("gs_gsNr").ToString + Else + Return "Neu" + End If + End Function + + Public Function DateTimeString2DateTimeKonvertinator(datum As String, uhrzeit As String) As DateTime + Try + Dim a As Date = Date.ParseExact(datum, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Dim b As Date = Date.ParseExact(uhrzeit, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo) + + Dim ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute) + Return ab + Catch ex As Exception + MsgBox(ex.Message) + Return Date.Now + End Try + End Function + + + + Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click, btnSaveOben.Click + + If checkMandatoryFieldsAreFilled() = False Then Exit Sub + + Try + Me.FilialNummer = checkNothingValue(cboFiliale.SelectedItem, "Integer") + Catch + Me.FilialNummer = "0" + End Try + + Try + Me.warenortID = checkNothingValue(cboWarenort.SelectedItem, "String") + + Catch + Me.warenortID = "-" + End Try + + Me.Abfertigungsnummer = txtAbfertNum.Text + Me.LKWID = txtLKWID.Text + + If setNullToZero(Me.gessicherheitID) >= 0 Then + Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialenNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_LKWID] = '" & Me.LKWID & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' " + SQL.doSQL(sqlstring, "AVISO") + LoadDGV() + End If + + panOben.Enabled = True : panOben.Enabled = True + panOverlay.Visible = False + End Sub + + Private Function checkNothingValue(obj As Object, Optional type As String = "String") As Object + Select Case type + Case "String" + If obj Is Nothing Then + Return "" + Else + Return obj.value.ToString + End If + Case "Integer" + If obj Is Nothing Then + Return Nothing + Else + Return Integer.Parse(obj.value) + End If + End Select + + + End Function + + Private Sub dgvGesamtsicherheitMRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitMRN.CellDoubleClick + + Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("gs_gsId").Value) + 'Sicherh.Load(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value) + + txtMRN.Text = Sicherh.gs_ATBNr + txtPos.Text = Sicherh.gs_posNr + txtMRNWarenwert.Text = Sicherh.gs_warenwert + txtFreitextOpen.Text = Sicherh.gs_freitext + cboATR.SelectedItem = Sicherh.gs_atr + txtMRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy") + txtMRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm") + + openopened = Sicherh + + btnAddOpen.Visible = False + btnUpdateOpen.Visible = True + btnDeleteOpen.Visible = True + End Sub + + Private Sub btnUpdateOpen_Click(sender As Object, e As EventArgs) Handles btnUpdateOpen.Click + With openopened + .gs_ATBNr = txtMRN.Text + .gs_posNr = Double.Parse(setNullToZero(txtPos.Text)) + .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) + .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_standort = Me.Standort + .gs_art = "OPEN" + .gs_gsNr = Me.gessicherheitID + '.MakeDate = Me.MakeDate + .gs_freitext = Me.txtFreitextOpen.Text + '.saldo = GesSichRef.Saldo + .gs_atr = setNullToZero(cboATR.SelectedItem) + End With + openopened.SAVE() + btnUpdateOpen.Visible = False + btnAddOpen.Visible = True + btnDeleteOpen.Visible = False + AfterButton() + End Sub + + Private Sub btnDeleteClose_Click(sender As Object, e As EventArgs) Handles btnUpdateClose.Click + With closedopened + .gs_ATBNr = txtCRN.Text + .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) + .gs_warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_standort = Me.Standort + .gs_art = "CLOSE" + .gs_freitext = Me.txtFreitextClose.Text + End With + closedopened.SAVE() + btnAddClose.Visible = True + btnUpdateClose.Visible = False + btnDeleteClose.Visible = False + AfterButton() + End Sub + + Private Sub dgvGesamtsicherheitCRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitCRN.CellDoubleClick + + Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value) + 'Sicherh.Load(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value) + + txtCRN.Text = Sicherh.gs_ATBNr + txtCRNWarenwert.Text = Sicherh.gs_warenwert + txtFreitextClose.Text = Sicherh.gs_freitext + txtCRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy") + txtCRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm") + + closedopened = Sicherh + + btnDeleteClose.Visible = True + btnAddClose.Visible = False + btnUpdateClose.Visible = True + End Sub + + Private Sub btnDeleteOpen_Click(sender As Object, e As EventArgs) Handles btnDeleteOpen.Click + Try + openopened.Delete() + btnUpdateOpen.Visible = False + btnAddOpen.Visible = True + btnDeleteOpen.Visible = False + AfterButton() + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub btnDeleteClose_Click_1(sender As Object, e As EventArgs) Handles btnDeleteClose.Click + Try + closedopened.Delete() + btnUpdateClose.Visible = False + btnAddClose.Visible = True + btnDeleteClose.Visible = False + AfterButton() + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub lblGestellungNr_Click(sender As Object, e As EventArgs) Handles lblGestellungNr.DoubleClick + panOverlay.Visible = True + cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer) + cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) + cboWarenort.SelectedIndex = cboWarenort.FindString(Me.warenortID) + txtAbfertNum.Text = Me.Abfertigungsnummer + txtLKWID.Text = Me.LKWID + panOben.Enabled = False + End Sub + + Private Sub btnClosePanOverlay_Click(sender As Object, e As EventArgs) Handles btnClosePanOverlay.Click + Close() + End Sub + + Private Function checkMandatoryFieldsAreFilled() As Boolean + Dim isFilled = True + + If cboWarenort._value = Nothing Or cboWarenort._value = "" Then + + MsgBox("Bitte Warenort angeben!") + isFilled = False + End If + + Return isFilled + + End Function + + Private Sub setEnviromentDataToObject(sicherheiten As cSicherheiten, Optional ByVal gessich As frmGesamtsicherheiten = Nothing) + + sicherheiten.gs_filialenNr = gessich.FilialNummer + sicherheiten.gs_abfertigungsnr = gessich.Abfertigungsnummer + sicherheiten.gs_LKWID = gessich.LKWID + sicherheiten.gs_warenort = gessich.warenortID + End Sub + + Private Sub ClosedErzeugenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClosedErzeugenToolStripMenuItem.Click + MsgBox("") + + + + End Sub +End Class + +'Public Class cSicherheit +' Property GesamtSichID As Object +' Property Kennnummer As String +' Property PosNr As Integer +' Property DateTime As DateTime +' Property MakeDate As DateTime +' Property Warenwert As Double +' Property Sicherheitsbetrag As Double +' Property saldo As Double +' Property standort As String +' Property Art As String +' Property GesamtsichNr As Integer +' Property Ust As Integer +' Property Freitext As String +' Property FilialNummer As Integer +' Property Abfertigungsnummer As String +' Property LKWID As String +' Property ATRJN As String = "" +' Property gs_warenort As String + +' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + +' Public Sub New(Optional ByVal gessich As frmGesamtsicherheiten = Nothing) +' If gessich IsNot Nothing Then +' Me.FilialNummer = gessich.FilialNummer +' Me.Abfertigungsnummer = gessich.Abfertigungsnummer +' Me.LKWID = gessich.LKWID +' Me.gs_warenort = gessich.warenortID +' Me.GesamtSichID = GenerateID() +' End If +' End Sub + +' Public Function Load(GsID As String) +' Me.GesamtSichID = GsID +' Load() +' End Function + +' Public Function Load() +' Dim dt As New DataTable +' Dim sqlstring As String = "SELECT * FROM [AVISO].[dbo].[tblGesamtsicherheit] where GesamtsichID = '" & Me.GesamtSichID & "'" +' dt = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True) +' Dim test As cSicherheit = SQLEintraege.LoadEntities(Me, dt) +' ' MsgBox("") +' End Function + +' Public Function GenerateID() As String +' Return Date.Now.ToString.Replace(".", "").Replace("-", "").Replace(",", "").Replace(" ", "").Replace(":", "") +' End Function + +' Public Function Save() +' 'MakeDate = frmGesSich.MakeDate +' Dim entities As New List(Of SQLEintraege) +' For Each prop As PropertyInfo In Me.GetType().GetProperties() +' If prop.GetValue(Me, Nothing).GetType = GetType(Double) Then +' ' MsgBox(prop.Name) +' entities.Add(New SQLEintraege(prop.Name, prop.GetValue(Me, Nothing).ToString.Replace(",", "."))) +' Else +' entities.Add(New SQLEintraege(prop.Name, prop.GetValue(Me, Nothing))) +' End If +' ' entities.Add(New SQLEintraege(prop.Name, prop.GetValue(Me, Nothing))) +' Next + +' ''' +' Dim dt As DataTable = SQL.loadDgvBySql("Select * from [tblGesamtsicherheit] where GesamtSichID = '" & Me.GesamtSichID & "'", "AVISO") +' If dt.Rows.Count > 0 Then +' Dim UpdateString As String = "" +' For Each i In entities +' If Not i.Spalte = "GesamtSichID" Then +' UpdateString &= "[" & i.Spalte & "]='" & i.Wert & "'," +' End If +' Next +' UpdateString = UpdateString.Substring(0, UpdateString.Length - 1) + +' Dim sqlquery As String +' sqlquery = "update [tblGesamtsicherheit] set " & UpdateString & " where GesamtSichID = '" & Me.GesamtSichID & "'" +' SQL.doSQL(sqlquery, "AVISO") +' Else + +' Dim text, value, insert As String +' For Each i In entities +' text &= i.Spalte & ", " +' value &= "'" & i.Wert & "', " +' Next +' text = text.Substring(0, text.Length - 2) +' value = value.Substring(0, value.Length - 2) + +' insert = "(" & text & ") VALUES (" & value & ")" + +' Dim sqlquery As String +' sqlquery = "insert into [tblGesamtsicherheit] (" & text & ") VALUES (" & value & ")" +' SQL.doSQL(sqlquery, "AVISO") +' End If + +' End Function + +' Public Function Delete() +' SQL.doSQL("delete from [tblGesamtsicherheit] where GesamtSichID = '" & Me.GesamtSichID & "'", "AVISO") +' End Function + +'End Class + +Public Class SQLEintraege + Property Spalte As String + Property Wert As String + Public Sub New(_Spalte As String, _Wert As String) + Spalte = _Spalte + Wert = _Wert + End Sub + + Public Shared Function LoadEntities(Obj As Object, dt As DataTable) As Object + Try + For Each prop As PropertyInfo In Obj.GetType().GetProperties() + If dt.Rows(0).Item(prop.Name) IsNot Nothing And dt.Rows(0).Item(prop.Name) IsNot DBNull.Value Then + If dt.Rows(0).Item(prop.Name).GetType Is GetType(Decimal) Then + prop.SetValue(Obj, Double.Parse(dt.Rows(0).Item(prop.Name))) + Else + prop.SetValue(Obj, dt.Rows(0).Item(prop.Name)) + End If + + End If + Next + Return Obj + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Function +End Class \ No newline at end of file diff --git a/Aviso/frmGesSichMenu.Designer.vb b/Aviso/frmGesamtsicherheitenMenu.Designer.vb similarity index 75% rename from Aviso/frmGesSichMenu.Designer.vb rename to Aviso/frmGesamtsicherheitenMenu.Designer.vb index 38c334a..6e62602 100644 --- a/Aviso/frmGesSichMenu.Designer.vb +++ b/Aviso/frmGesamtsicherheitenMenu.Designer.vb @@ -1,5 +1,5 @@  _ -Partial Class frmGesSichMenu +Partial Class frmGesamtsicherheitenMenu Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -23,7 +23,7 @@ Partial Class frmGesSichMenu _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesSichMenu)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenMenu)) Me.dgvListe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel1 = New System.Windows.Forms.Panel() Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() @@ -42,6 +42,10 @@ Partial Class frmGesSichMenu Me.lblReferenzwert = New System.Windows.Forms.Label() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ExportCSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.lblFiliale = New System.Windows.Forms.Label() + Me.cbxStandort = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label4 = New System.Windows.Forms.Label() CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() @@ -54,15 +58,19 @@ Partial Class frmGesSichMenu Me.dgvListe.AllowUserToDeleteRows = False Me.dgvListe.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvListe.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvListe.Location = New System.Drawing.Point(0, 156) + Me.dgvListe.Location = New System.Drawing.Point(0, 196) Me.dgvListe.Name = "dgvListe" Me.dgvListe.ReadOnly = True - Me.dgvListe.Size = New System.Drawing.Size(502, 565) + Me.dgvListe.Size = New System.Drawing.Size(502, 525) Me.dgvListe.TabIndex = 1 ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel1.Controls.Add(Me.cbxWarenort) + Me.Panel1.Controls.Add(Me.Label4) + Me.Panel1.Controls.Add(Me.cbxStandort) + Me.Panel1.Controls.Add(Me.lblFiliale) Me.Panel1.Controls.Add(Me.FlatButton2) Me.Panel1.Controls.Add(Me.btnSucheStarten) Me.Panel1.Controls.Add(Me.txtbis) @@ -80,17 +88,18 @@ Partial Class frmGesSichMenu Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(502, 156) + Me.Panel1.Size = New System.Drawing.Size(502, 196) Me.Panel1.TabIndex = 0 ' 'FlatButton2 ' Me.FlatButton2.allowBorder = False + Me.FlatButton2.Anchor = System.Windows.Forms.AnchorStyles.Right Me.FlatButton2.BackColor = System.Drawing.Color.White Me.FlatButton2.FlatAppearance.BorderSize = 0 Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton2.ForeColor = System.Drawing.Color.Black - Me.FlatButton2.Location = New System.Drawing.Point(112, 101) + Me.FlatButton2.Location = New System.Drawing.Point(112, 133) Me.FlatButton2.Name = "FlatButton2" Me.FlatButton2.Size = New System.Drawing.Size(81, 20) Me.FlatButton2.TabIndex = 10 @@ -100,11 +109,12 @@ Partial Class frmGesSichMenu 'btnSucheStarten ' Me.btnSucheStarten.allowBorder = False + Me.btnSucheStarten.Anchor = System.Windows.Forms.AnchorStyles.Right Me.btnSucheStarten.BackColor = System.Drawing.Color.White Me.btnSucheStarten.FlatAppearance.BorderSize = 0 Me.btnSucheStarten.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnSucheStarten.ForeColor = System.Drawing.Color.Black - Me.btnSucheStarten.Location = New System.Drawing.Point(201, 127) + Me.btnSucheStarten.Location = New System.Drawing.Point(201, 159) Me.btnSucheStarten.Name = "btnSucheStarten" Me.btnSucheStarten.Size = New System.Drawing.Size(81, 20) Me.btnSucheStarten.TabIndex = 11 @@ -116,15 +126,18 @@ Partial Class frmGesSichMenu Me.txtbis._DateTimeOnly = False Me.txtbis._numbersOnly = False Me.txtbis._numbersOnlyKommastellen = "" + Me.txtbis._numbersOnlyTrennzeichen = True Me.txtbis._Prozent = False Me.txtbis._ShortDateNew = False Me.txtbis._ShortDateOnly = False Me.txtbis._TimeOnly = False + Me.txtbis._TimeOnly_Seconds = False Me.txtbis._value = "" Me.txtbis._Waehrung = False Me.txtbis._WaehrungZeichen = True + Me.txtbis.Anchor = System.Windows.Forms.AnchorStyles.Right Me.txtbis.ForeColor = System.Drawing.Color.Black - Me.txtbis.Location = New System.Drawing.Point(112, 77) + Me.txtbis.Location = New System.Drawing.Point(112, 109) Me.txtbis.MaxLineLength = -1 Me.txtbis.MaxLines_Warning = "" Me.txtbis.MaxLines_Warning_Label = Nothing @@ -137,15 +150,18 @@ Partial Class frmGesSichMenu Me.txtVon._DateTimeOnly = False Me.txtVon._numbersOnly = False Me.txtVon._numbersOnlyKommastellen = "" + Me.txtVon._numbersOnlyTrennzeichen = True Me.txtVon._Prozent = False Me.txtVon._ShortDateNew = False Me.txtVon._ShortDateOnly = False Me.txtVon._TimeOnly = False + Me.txtVon._TimeOnly_Seconds = False Me.txtVon._value = "" Me.txtVon._Waehrung = False Me.txtVon._WaehrungZeichen = True + Me.txtVon.Anchor = System.Windows.Forms.AnchorStyles.Right Me.txtVon.ForeColor = System.Drawing.Color.Black - Me.txtVon.Location = New System.Drawing.Point(12, 77) + Me.txtVon.Location = New System.Drawing.Point(12, 109) Me.txtVon.MaxLineLength = -1 Me.txtVon.MaxLines_Warning = "" Me.txtVon.MaxLines_Warning_Label = Nothing @@ -159,7 +175,7 @@ Partial Class frmGesSichMenu Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.Label3.ForeColor = System.Drawing.Color.Honeydew - Me.Label3.Location = New System.Drawing.Point(109, 59) + Me.Label3.Location = New System.Drawing.Point(109, 90) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(24, 15) Me.Label3.TabIndex = 5 @@ -171,7 +187,7 @@ Partial Class frmGesSichMenu Me.Label2.AutoSize = True Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.Label2.ForeColor = System.Drawing.Color.Honeydew - Me.Label2.Location = New System.Drawing.Point(12, 59) + Me.Label2.Location = New System.Drawing.Point(12, 90) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(28, 15) Me.Label2.TabIndex = 4 @@ -183,7 +199,7 @@ Partial Class frmGesSichMenu Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.Label1.ForeColor = System.Drawing.Color.Honeydew - Me.Label1.Location = New System.Drawing.Point(12, 11) + Me.Label1.Location = New System.Drawing.Point(12, 4) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(45, 15) Me.Label1.TabIndex = 0 @@ -192,12 +208,13 @@ Partial Class frmGesSichMenu 'FlatButton1 ' Me.FlatButton1.allowBorder = False + Me.FlatButton1.Anchor = System.Windows.Forms.AnchorStyles.Right Me.FlatButton1.BackColor = System.Drawing.Color.White Me.FlatButton1.FlatAppearance.BorderSize = 0 Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton1.ForeColor = System.Drawing.Color.Black Me.FlatButton1.Image = Global.AVISO.My.Resources.Resources.refresh - Me.FlatButton1.Location = New System.Drawing.Point(233, 22) + Me.FlatButton1.Location = New System.Drawing.Point(233, 18) Me.FlatButton1.Name = "FlatButton1" Me.FlatButton1.Size = New System.Drawing.Size(32, 33) Me.FlatButton1.TabIndex = 2 @@ -205,18 +222,20 @@ Partial Class frmGesSichMenu ' 'txtSuchbegriff ' - Me.txtSuchbegriff.Location = New System.Drawing.Point(12, 29) + Me.txtSuchbegriff.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.txtSuchbegriff.Location = New System.Drawing.Point(12, 22) Me.txtSuchbegriff.Name = "txtSuchbegriff" Me.txtSuchbegriff.Size = New System.Drawing.Size(181, 20) Me.txtSuchbegriff.TabIndex = 1 ' 'chkOffen ' + Me.chkOffen.Anchor = System.Windows.Forms.AnchorStyles.Right Me.chkOffen.AutoSize = True Me.chkOffen.Checked = True Me.chkOffen.CheckState = System.Windows.Forms.CheckState.Checked Me.chkOffen.ForeColor = System.Drawing.SystemColors.ButtonHighlight - Me.chkOffen.Location = New System.Drawing.Point(28, 131) + Me.chkOffen.Location = New System.Drawing.Point(28, 163) Me.chkOffen.Name = "chkOffen" Me.chkOffen.Size = New System.Drawing.Size(120, 17) Me.chkOffen.TabIndex = 12 @@ -226,11 +245,12 @@ Partial Class frmGesSichMenu 'btnNeu ' Me.btnNeu.allowBorder = False + Me.btnNeu.Anchor = System.Windows.Forms.AnchorStyles.Right Me.btnNeu.BackColor = System.Drawing.Color.White Me.btnNeu.FlatAppearance.BorderSize = 0 Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnNeu.ForeColor = System.Drawing.Color.Black - Me.btnNeu.Location = New System.Drawing.Point(415, 127) + Me.btnNeu.Location = New System.Drawing.Point(415, 159) Me.btnNeu.Name = "btnNeu" Me.btnNeu.Size = New System.Drawing.Size(75, 23) Me.btnNeu.TabIndex = 13 @@ -243,7 +263,7 @@ Partial Class frmGesSichMenu Me.lblSaldo.AutoSize = True Me.lblSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew - Me.lblSaldo.Location = New System.Drawing.Point(294, 24) + Me.lblSaldo.Location = New System.Drawing.Point(294, 17) Me.lblSaldo.Name = "lblSaldo" Me.lblSaldo.Size = New System.Drawing.Size(147, 24) Me.lblSaldo.TabIndex = 3 @@ -255,9 +275,9 @@ Partial Class frmGesSichMenu Me.lblZollsatz.AutoSize = True Me.lblZollsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew - Me.lblZollsatz.Location = New System.Drawing.Point(295, 86) + Me.lblZollsatz.Location = New System.Drawing.Point(295, 79) Me.lblZollsatz.Name = "lblZollsatz" - Me.lblZollsatz.Size = New System.Drawing.Size(86, 16) + Me.lblZollsatz.Size = New System.Drawing.Size(85, 16) Me.lblZollsatz.TabIndex = 9 Me.lblZollsatz.Text = "Zollsatz: 12%" ' @@ -267,9 +287,9 @@ Partial Class frmGesSichMenu Me.lblReferenzwert.AutoSize = True Me.lblReferenzwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew - Me.lblReferenzwert.Location = New System.Drawing.Point(295, 59) + Me.lblReferenzwert.Location = New System.Drawing.Point(295, 52) Me.lblReferenzwert.Name = "lblReferenzwert" - Me.lblReferenzwert.Size = New System.Drawing.Size(137, 16) + Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16) Me.lblReferenzwert.TabIndex = 6 Me.lblReferenzwert.Text = "Referenzwert: €80.000" ' @@ -277,15 +297,63 @@ Partial Class frmGesSichMenu ' Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(132, 26) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(133, 26) ' 'ExportCSVToolStripMenuItem ' Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem" - Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(131, 22) + Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(132, 22) Me.ExportCSVToolStripMenuItem.Text = "Export CSV" ' - 'frmGesSichMenu + 'lblFiliale + ' + Me.lblFiliale.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.lblFiliale.AutoSize = True + Me.lblFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.lblFiliale.ForeColor = System.Drawing.Color.Honeydew + Me.lblFiliale.Location = New System.Drawing.Point(12, 45) + Me.lblFiliale.Name = "lblFiliale" + Me.lblFiliale.Size = New System.Drawing.Size(43, 15) + Me.lblFiliale.TabIndex = 14 + Me.lblFiliale.Text = "Filiale:" + ' + 'cbxStandort + ' + Me.cbxStandort._allowedValuesFreiText = Nothing + Me.cbxStandort._allowFreiText = False + Me.cbxStandort._value = "" + Me.cbxStandort.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.cbxStandort.FormattingEnabled = True + Me.cbxStandort.Location = New System.Drawing.Point(12, 63) + Me.cbxStandort.Name = "cbxStandort" + Me.cbxStandort.Size = New System.Drawing.Size(81, 21) + Me.cbxStandort.TabIndex = 15 + ' + 'cbxWarenort + ' + Me.cbxWarenort._allowedValuesFreiText = Nothing + Me.cbxWarenort._allowFreiText = False + Me.cbxWarenort._value = "" + Me.cbxWarenort.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.cbxWarenort.FormattingEnabled = True + Me.cbxWarenort.Location = New System.Drawing.Point(112, 63) + Me.cbxWarenort.Name = "cbxWarenort" + Me.cbxWarenort.Size = New System.Drawing.Size(81, 21) + Me.cbxWarenort.TabIndex = 17 + ' + 'Label4 + ' + Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.Label4.ForeColor = System.Drawing.Color.Honeydew + Me.Label4.Location = New System.Drawing.Point(112, 45) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(60, 15) + Me.Label4.TabIndex = 16 + Me.Label4.Text = "Warenort:" + ' + 'frmGesamtsicherheitenMenu ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font @@ -295,7 +363,8 @@ Partial Class frmGesSichMenu Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.MaximumSize = New System.Drawing.Size(800, 760) Me.MinimumSize = New System.Drawing.Size(499, 760) - Me.Name = "frmGesSichMenu" + Me.Name = "frmGesamtsicherheitenMenu" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "frmGesSichMenu" CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) @@ -323,4 +392,8 @@ Partial Class frmGesSichMenu Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents ExportCSVToolStripMenuItem As ToolStripMenuItem + Friend WithEvents lblFiliale As Label + Friend WithEvents cbxStandort As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label4 As Label End Class diff --git a/Aviso/frmGesSich.resx b/Aviso/frmGesamtsicherheitenMenu.resx similarity index 98% rename from Aviso/frmGesSich.resx rename to Aviso/frmGesamtsicherheitenMenu.resx index 428f736..2cbc5c2 100644 --- a/Aviso/frmGesSich.resx +++ b/Aviso/frmGesamtsicherheitenMenu.resx @@ -117,6 +117,9 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 17, 17 + diff --git a/Aviso/frmGesSichMenu.vb b/Aviso/frmGesamtsicherheitenMenu.vb similarity index 53% rename from Aviso/frmGesSichMenu.vb rename to Aviso/frmGesamtsicherheitenMenu.vb index 7ffe33d..26a2af0 100644 --- a/Aviso/frmGesSichMenu.vb +++ b/Aviso/frmGesamtsicherheitenMenu.vb @@ -1,6 +1,6 @@ Imports System.Reflection -Public Class frmGesSichMenu +Public Class frmGesamtsicherheitenMenu ' Public Zollsatz As Integer = 0 ' Public ZollsatzMulti As Double = 0 ' Public Referenzwert As Integer = 0 @@ -8,13 +8,18 @@ Public Class frmGesSichMenu 'Public Ust As Integer ' Public Saldo As Integer = 0 Public SQL As New VERAG_PROG_ALLGEMEIN.SQL - Dim GesSichRef As New cGesamtSicherheitsReferenz + 'Dim GesSichRef As New cGesamtSicherheitsReferenz + Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz + 'Public ATR As Boolean = False Public Property Standort As String = "" Private Sub frmGesamtsicherheiten_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load + cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) Me.Text = "Gesamtsicherheiten " & Standort frmHauptfenster.EnableDoubleBuffered(dgvListe) - GesSichRef.LoadStandort(Standort) + GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort) + 'GesSichRef.LOAD("standort", Standort) lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") txtVon._ShortDateOnly = True @@ -28,7 +33,9 @@ Public Class frmGesSichMenu Public Function LoadDGV() Dim sqladdon As String = "" - If chkOffen.Checked Then sqladdon &= " AND Sicherheitssaldo != '0,00 €'" + If chkOffen.Checked Then sqladdon &= " AND gs_Sicherheitssaldo != '0,00 €'" + If cbxStandort._value <> "" Then sqladdon &= " AND gs_filialenNr = '" & cbxStandort._value.ToString & "'" + If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'" ' Dim sqlstring As String = "select * from (Select GesamtsichNr, MIN(Standort) as Standort, MIN(FilialNummer) as FilialNummer, min(Abfertigungsnummer) as Abfertigungsnummer, 'max(LKWID) as LKWID, min (MakeDate) as Datum, FORMAT(SUM( @@ -42,21 +49,24 @@ Public Class frmGesSichMenu '" & sqladdon & " 'order by GesamtsichNr" - Dim sqlstring As String = " select * from (Select gesamtsichnr, MIN(Standort) as Standort, MIN(FilialNummer) as FilialNummer, min(Abfertigungsnummer) as Abfertigungsnummer, -max(LKWID) as LKWID, min (MakeDate) as Datum, FORMAT(SUM( -Case - when Art = 'Open' then (Sicherheitsbetrag * -1) - when Art = 'Close' then Sicherheitsbetrag -End) , 'C', 'de-DE')As SicherheitsSaldo -From (select * from (select GesamtsichNr as ding from [tblGesamtsicherheit] where -Freitext like '%" & txtSuchbegriff.Text & "%' OR -Abfertigungsnummer like '%" & txtSuchbegriff.Text & "%' OR -Kennnummer like '%" & txtSuchbegriff.Text & "%' OR -LKWID like '%" & txtSuchbegriff.Text & "%' -)as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.GesamtsichNr) as meh group by GesamtsichNr) as meh2 -Where Standort = '" & Standort & "' " & sqladdon & " -AND Datum > '" & Date.Parse(txtVon.Text) & "' -AND Datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'" + Dim sqlstring As String = + " select * from (Select gs_gsNr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr, + max(gs_LKWID) as gs_LKWID, min (gs_datum) as gs_datum, FORMAT(SUM( + Case + when gs_art = 'Open' then (gs_sicherheitsbetrag * -1) + when gs_art = 'Close' then gs_sicherheitsbetrag + End) , 'C', 'de-DE')As gs_SicherheitsSaldo + + From (select * from (select gs_gsNr as ding from [tblGesamtsicherheit] where + gs_freitext like '%" & txtSuchbegriff.Text & "%' OR + gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR + gs_ATBNr like '%" & txtSuchbegriff.Text & "%' OR + gs_LKWID like '%" & txtSuchbegriff.Text & "%' OR + gs_warenort like '%" & txtSuchbegriff.Text & "%' + ) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.gs_gsNr) as meh group by gs_gsNr) as meh2 + Where gs_standort = '" & Standort & "' " & sqladdon & " + AND gs_datum > '" & Date.Parse(txtVon.Text) & "' + AND gs_datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'" dgvListe.SET_SQL(sqlstring, "AVISO") dgvListe.LOAD() @@ -64,19 +74,22 @@ AND Datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'" With dgvListe .SelectionMode = DataGridViewSelectionMode.FullRowSelect .RowHeadersWidth = 6 - .Columns("Standort").Visible = False - .Columns("GesamtsichNr").HeaderText = "#" - .Columns("GesamtsichNr").Width = 36 - .Columns("Filialnummer").HeaderText = "Filiale" - .Columns("Filialnummer").Width = 43 - .Columns("Abfertigungsnummer").HeaderText = "Abfert.Nr." - .Columns("Abfertigungsnummer").Width = 107 - .Columns("Datum").Width = 112 - .Columns("SicherheitsSaldo").Width = 96 + .Columns("gs_standort").Visible = False + .Columns("gs_gsnr").HeaderText = "#" + .Columns("gs_gsnr").Width = 36 + .Columns("gs_filialenNr").HeaderText = "Filiale" + .Columns("gs_filialenNr").Width = 43 + .Columns("gs_abfertigungsNr").HeaderText = "Abfert.Nr." + .Columns("gs_abfertigungsNr").Width = 107 + .Columns("gs_datum").Width = 112 + .Columns("gs_SicherheitsSaldo").Width = 106 + .Columns("gs_Warenort").Width = 96 + .Columns("gs_Warenort").HeaderText = "Warenort" + End With For Each row As DataGridViewRow In dgvListe.Rows - If row.Cells("SicherheitsSaldo").Value <> 0 Then + If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then row.DefaultCellStyle.BackColor = Color.Red Else row.DefaultCellStyle.BackColor = Color.Green @@ -86,8 +99,9 @@ AND Datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'" End Function Public Sub ShowStandort() - lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.Referenzwert.ToString("N") - lblZollsatz.Text = "Zollsatz: " & GesSichRef.Zollsatz & "%" + 'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N") + lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString() + lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%" lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") End Sub @@ -95,15 +109,16 @@ AND Datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'" Private Sub OpenFRM(sender As Object, e As DataGridViewCellEventArgs) Handles dgvListe.CellDoubleClick - Dim frm As New frmGesSich + Dim frm As New frmGesamtsicherheiten With frm .GesSichRef = GesSichRef - .GesamtsichNr = dgvListe.CurrentRow.Cells("GesamtsichNr").Value + .gessicherheitID = dgvListe.CurrentRow.Cells("gs_gsnr").Value .Standort = Me.Standort - .MakeDate = dgvListe.CurrentRow.Cells("Datum").Value - .LKWID = dgvListe.CurrentRow.Cells("LKWID").Value - .FilialNummer = dgvListe.CurrentRow.Cells("FilialNummer").Value - .Abfertigungsnummer = dgvListe.CurrentRow.Cells("Abfertigungsnummer").Value + .datum = dgvListe.CurrentRow.Cells("gs_datum").Value + .LKWID = dgvListe.CurrentRow.Cells("gs_LKWID").Value + .FilialNummer = dgvListe.CurrentRow.Cells("gs_filialenNr").Value + .Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value + .warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value End With AddHandler frm.FormClosing, Function() @@ -116,11 +131,11 @@ AND Datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'" End Sub Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click - Dim frm As New frmGesSich + Dim frm As New frmGesamtsicherheiten With frm .GesSichRef = GesSichRef .Standort = Me.Standort - .MakeDate = Date.Now + .datum = Date.Now '.ATR = GesSichRef.ATR '.Ust = GesSichRef.Ust '.UstEnabled = GesSichRef.UstEnabled @@ -158,6 +173,9 @@ AND Datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'" txtSuchbegriff.Text = "" : chkOffen.Checked = True txtVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy") txtbis.Text = Date.Today.ToString("dd.MM.yyyy") + cbxStandort._value = "" + cbxWarenort._value = "" + btnSucheStarten_Click(sender, e) End Sub Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) @@ -228,55 +246,63 @@ AND Datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'" End Function End Class -Public Class cGesamtSicherheitsReferenz - Public SQL As New VERAG_PROG_ALLGEMEIN.SQL +'Public Class cGesamtSicherheitsReferenz +' Public SQL As New VERAG_PROG_ALLGEMEIN.SQL - Property Zollsatz As Integer = 0 - Property ZollsatzMulti As Double = 0 - Property Referenzwert As Double = 0 - Property UstEnabled As Boolean = False - Property Ust As Integer - Property Saldo As Double = 0 - Property ATR As Boolean = False - Property Standort As String = "" +' Property Zollsatz As Integer = 0 +' Property ZollsatzMulti As Double = 0 +' Property Referenzwert As Double = 0 +' Property UstEnabled As Boolean = False +' Property Ust As Integer +' Property Saldo As Double = 0 +' Property ATR As Boolean = False +' Property Standort As String = "" - Public Sub LoadStandort(_Standort As String) - Dim StandortSqlString As String = "select * from [tblGesamtsicherheitReferenz] where Standort = " & "'" & _Standort & "'" - Dim dt As New DataTable - dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) - Zollsatz = dt.Rows(0).Item("Zollsatz") - Referenzwert = dt.Rows(0).Item("Referenzwert") - UstEnabled = dt.Rows(0).Item("UstEnabled") - Ust = dt.Rows(0).Item("Ust") - ATR = dt.Rows(0).Item("ATR") - ZollsatzMulti = Zollsatz / 100 - Saldo = dt.Rows(0).Item("aktSaldo") - Standort = _Standort - End Sub +' Public Sub LoadStandort(_Standort As String) +' 'Dim StandortSqlString As String = "select * from [tblGesamtsicherheitReferenz] where Standort = " & "'" & _Standort & "'" +' Dim StandortSqlString As String = "select * from [tblGesamtsicherheitReferenz] where gsr_standort = " & "'" & _Standort & "'" +' Dim dt As New DataTable +' dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) +' 'Zollsatz = dt.Rows(0).Item("Zollsatz") +' Zollsatz = dt.Rows(0).Item("gsr_zollsatz") +' 'Referenzwert = dt.Rows(0).Item("Referenzwert") +' Referenzwert = dt.Rows(0).Item("gsr_referenzwert") +' UstEnabled = dt.Rows(0).Item("gsr_ustEnabled") +' 'UstEnabled = dt.Rows(0).Item("UstEnabled") +' Ust = dt.Rows(0).Item("gsr_ust") +' 'Ust = dt.Rows(0).Item("Ust") +' ATR = dt.Rows(0).Item("gsr_ATR") +' 'ATR = dt.Rows(0).Item("ATR") +' ZollsatzMulti = Zollsatz / 100 +' Saldo = dt.Rows(0).Item("gsr_aktSaldo") +' 'Saldo = dt.Rows(0).Item("aktSaldo") +' Standort = _Standort +' End Sub - Public Function CalcSaldo() As String - Dim SaldoString As String = "select SUM( -case - when Art = 'Open' then (Sicherheitsbetrag * -1) - when Art = 'Close' then Sicherheitsbetrag -end) as SicherheitsSaldo -from [tblGesamtsicherheit] Where Standort = '" & Standort & "'" +' Public Function CalcSaldo() As String +' Dim SaldoString As String = +' "select SUM( +' case +' when gs_art = 'Open' then (gs_sicherheitsbetrag * -1) +' when gs_art = 'Close' then gs_sicherheitsbetrag +' end) as SicherheitsSaldo +' from [tblGesamtsicherheit] Where gs_standort = '" & Standort & "'" - Dim dt As New DataTable - Dim mrn As Double = 0 - dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True) - If dt.Rows(0).Item(0).ToString.Length > 0 Then - mrn = dt.Rows(0).Item(0) - End If +' Dim dt As New DataTable +' Dim mrn As Double = 0 +' dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True) +' If dt.Rows(0).Item(0).ToString.Length > 0 Then +' mrn = dt.Rows(0).Item(0) +' End If - Saldo = Referenzwert + mrn +' Saldo = Referenzwert + mrn - UpdateSaldo() - Return Saldo - End Function +' updateSaldo() +' Return Saldo +' End Functio - Public Function UpdateSaldo() - SQL.doSQL("Update [tblGesamtsicherheitReferenz] Set aktSaldo = '" & Saldo & "' WHERE Standort = '" & Standort & "'", "AVISO") - End Function +' Public Function updateSaldo() +' SQL.doSQL("Update [tblGesamtsicherheitReferenz] Set gsr_aktSaldo = '" & Saldo & "' WHERE gsr_Standort = '" & Standort & "'", "AVISO") +' End Function -End Class \ No newline at end of file +'End Class \ No newline at end of file diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb new file mode 100644 index 0000000..22f9f7d --- /dev/null +++ b/Aviso/frmGesamtsicherheitenNEU.Designer.vb @@ -0,0 +1,1397 @@ + +Partial Class frmGesamtsicherheitenNEU + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenNEU)) + Me.dgvGesamtsicherheitMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ClosedErzeugenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.panOverlay = New System.Windows.Forms.Panel() + Me.cboWarenort = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lblWarenort = New System.Windows.Forms.Label() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.btnSave = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtLKWID = New System.Windows.Forms.TextBox() + Me.txtAbfertNum = New System.Windows.Forms.TextBox() + Me.Label18 = New System.Windows.Forms.Label() + Me.Label17 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.btnClosePanOverlay = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.dgvGesamtsicherheitCRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.btnAddClose = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnAddOpen = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.lblGestellungNr = New System.Windows.Forms.Label() + Me.txtCRNTime = New System.Windows.Forms.TextBox() + Me.txtCRNDate = New System.Windows.Forms.TextBox() + Me.txtMRNTime = New System.Windows.Forms.TextBox() + Me.txtMRNDate = New System.Windows.Forms.TextBox() + Me.btnSaveOben = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtCRNSicherheitsbetrag = New System.Windows.Forms.TextBox() + Me.txtCRNWarenwert = New System.Windows.Forms.TextBox() + Me.txtCRN = New System.Windows.Forms.TextBox() + Me.txtMRNSicherheitsbetrag = New System.Windows.Forms.TextBox() + Me.txtMRNWarenwert = New System.Windows.Forms.TextBox() + Me.txtMRN = New System.Windows.Forms.TextBox() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.lblZollsatz = New System.Windows.Forms.Label() + Me.lblReferenzwert = New System.Windows.Forms.Label() + Me.lblSaldo = New System.Windows.Forms.Label() + Me.panOben = New System.Windows.Forms.Panel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.btnSuche = New System.Windows.Forms.Button() + Me.Label26 = New System.Windows.Forms.Label() + Me.Button7 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.txtDatVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label24 = New System.Windows.Forms.Label() + Me.btnJahr = New System.Windows.Forms.Button() + Me.btnBisJahr = New System.Windows.Forms.Button() + Me.btnVonJahr = New System.Windows.Forms.Button() + Me.btnMonat = New System.Windows.Forms.Button() + Me.btnBisMonat = New System.Windows.Forms.Button() + Me.btnVonMonat = New System.Windows.Forms.Button() + Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() + Me.Label25 = New System.Windows.Forms.Label() + Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.btnSucheStarten = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.Label23 = New System.Windows.Forms.Label() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.btnDeleteClose = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnDeleteOpen = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnUpdateClose = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnUpdateOpen = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.Label15 = New System.Windows.Forms.Label() + Me.txtPos = New System.Windows.Forms.TextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.txtEust = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.cboATR = New System.Windows.Forms.ComboBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtFreitextClose = New System.Windows.Forms.TextBox() + Me.txtFreitextOpen = New System.Windows.Forms.TextBox() + Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + Me.Panel2.SuspendLayout() + Me.panOverlay.SuspendLayout() + CType(Me.dgvGesamtsicherheitCRN, System.ComponentModel.ISupportInitialize).BeginInit() + Me.panOben.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'dgvGesamtsicherheitMRN + ' + Me.dgvGesamtsicherheitMRN.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvGesamtsicherheitMRN.AllowUserToAddRows = False + Me.dgvGesamtsicherheitMRN.AllowUserToDeleteRows = False + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvGesamtsicherheitMRN.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvGesamtsicherheitMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvGesamtsicherheitMRN.ContextMenuStrip = Me.ContextMenuStrip1 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvGesamtsicherheitMRN.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvGesamtsicherheitMRN.Dock = System.Windows.Forms.DockStyle.Left + Me.dgvGesamtsicherheitMRN.Location = New System.Drawing.Point(0, 0) + Me.dgvGesamtsicherheitMRN.Name = "dgvGesamtsicherheitMRN" + Me.dgvGesamtsicherheitMRN.ReadOnly = True + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvGesamtsicherheitMRN.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvGesamtsicherheitMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvGesamtsicherheitMRN.Size = New System.Drawing.Size(692, 486) + Me.dgvGesamtsicherheitMRN.TabIndex = 0 + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ClosedErzeugenToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(162, 26) + ' + 'ClosedErzeugenToolStripMenuItem + ' + Me.ClosedErzeugenToolStripMenuItem.Name = "ClosedErzeugenToolStripMenuItem" + Me.ClosedErzeugenToolStripMenuItem.Size = New System.Drawing.Size(161, 22) + Me.ClosedErzeugenToolStripMenuItem.Text = "Closed erzeugen" + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.panOverlay) + Me.Panel2.Controls.Add(Me.dgvGesamtsicherheitCRN) + Me.Panel2.Controls.Add(Me.dgvGesamtsicherheitMRN) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel2.Location = New System.Drawing.Point(0, 290) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(1384, 486) + Me.Panel2.TabIndex = 1 + ' + 'panOverlay + ' + Me.panOverlay.BackColor = System.Drawing.SystemColors.ButtonHighlight + Me.panOverlay.Controls.Add(Me.cboWarenort) + Me.panOverlay.Controls.Add(Me.lblWarenort) + Me.panOverlay.Controls.Add(Me.cboFiliale) + Me.panOverlay.Controls.Add(Me.btnSave) + Me.panOverlay.Controls.Add(Me.txtLKWID) + Me.panOverlay.Controls.Add(Me.txtAbfertNum) + Me.panOverlay.Controls.Add(Me.Label18) + Me.panOverlay.Controls.Add(Me.Label17) + Me.panOverlay.Controls.Add(Me.Label16) + Me.panOverlay.Controls.Add(Me.btnClosePanOverlay) + Me.panOverlay.Location = New System.Drawing.Point(27, 183) + Me.panOverlay.Name = "panOverlay" + Me.panOverlay.Size = New System.Drawing.Size(527, 275) + Me.panOverlay.TabIndex = 2 + Me.panOverlay.Visible = False + ' + 'cboWarenort + ' + Me.cboWarenort._allowedValuesFreiText = Nothing + Me.cboWarenort._allowFreiText = False + Me.cboWarenort._value = "" + Me.cboWarenort.DropDownWidth = 300 + Me.cboWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboWarenort.FormattingEnabled = True + Me.cboWarenort.Location = New System.Drawing.Point(278, 64) + Me.cboWarenort.MaxLength = 4 + Me.cboWarenort.Name = "cboWarenort" + Me.cboWarenort.Size = New System.Drawing.Size(186, 24) + Me.cboWarenort.TabIndex = 9 + ' + 'lblWarenort + ' + Me.lblWarenort.AutoSize = True + Me.lblWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblWarenort.Location = New System.Drawing.Point(125, 68) + Me.lblWarenort.Name = "lblWarenort" + Me.lblWarenort.Size = New System.Drawing.Size(88, 20) + Me.lblWarenort.TabIndex = 8 + Me.lblWarenort.Text = "Warenort:" + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 300 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(279, 103) + Me.cboFiliale.MaxLength = 4 + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(186, 24) + Me.cboFiliale.TabIndex = 2 + ' + 'btnSave + ' + Me.btnSave.allowBorder = False + Me.btnSave.BackColor = System.Drawing.Color.Gainsboro + Me.btnSave.FlatAppearance.BorderSize = 0 + Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSave.ForeColor = System.Drawing.Color.Black + Me.btnSave.Location = New System.Drawing.Point(424, 232) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(75, 23) + Me.btnSave.TabIndex = 7 + Me.btnSave.Text = "Speichern" + Me.btnSave.UseVisualStyleBackColor = False + ' + 'txtLKWID + ' + Me.txtLKWID.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtLKWID.Location = New System.Drawing.Point(279, 178) + Me.txtLKWID.Margin = New System.Windows.Forms.Padding(0) + Me.txtLKWID.Name = "txtLKWID" + Me.txtLKWID.Size = New System.Drawing.Size(186, 24) + Me.txtLKWID.TabIndex = 6 + ' + 'txtAbfertNum + ' + Me.txtAbfertNum.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertNum.Location = New System.Drawing.Point(279, 140) + Me.txtAbfertNum.Margin = New System.Windows.Forms.Padding(0) + Me.txtAbfertNum.Name = "txtAbfertNum" + Me.txtAbfertNum.Size = New System.Drawing.Size(186, 24) + Me.txtAbfertNum.TabIndex = 4 + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label18.Location = New System.Drawing.Point(173, 180) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(76, 20) + Me.Label18.TabIndex = 5 + Me.Label18.Text = "LKW-ID:" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label17.Location = New System.Drawing.Point(68, 142) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(181, 20) + Me.Label17.TabIndex = 3 + Me.Label17.Text = "Abfertigungsnummer:" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.Location = New System.Drawing.Point(126, 107) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(123, 20) + Me.Label16.TabIndex = 1 + Me.Label16.Text = "Filial-Nummer:" + ' + 'btnClosePanOverlay + ' + Me.btnClosePanOverlay.allowBorder = False + Me.btnClosePanOverlay.BackColor = System.Drawing.Color.White + Me.btnClosePanOverlay.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnClosePanOverlay.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnClosePanOverlay.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.btnClosePanOverlay.FlatAppearance.BorderSize = 0 + Me.btnClosePanOverlay.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnClosePanOverlay.ForeColor = System.Drawing.Color.Black + Me.btnClosePanOverlay.Location = New System.Drawing.Point(475, 24) + Me.btnClosePanOverlay.Name = "btnClosePanOverlay" + Me.btnClosePanOverlay.Size = New System.Drawing.Size(24, 24) + Me.btnClosePanOverlay.TabIndex = 0 + Me.btnClosePanOverlay.UseVisualStyleBackColor = False + ' + 'dgvGesamtsicherheitCRN + ' + Me.dgvGesamtsicherheitCRN.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvGesamtsicherheitCRN.AllowUserToAddRows = False + Me.dgvGesamtsicherheitCRN.AllowUserToDeleteRows = False + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvGesamtsicherheitCRN.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvGesamtsicherheitCRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvGesamtsicherheitCRN.DefaultCellStyle = DataGridViewCellStyle5 + Me.dgvGesamtsicherheitCRN.Dock = System.Windows.Forms.DockStyle.Right + Me.dgvGesamtsicherheitCRN.Location = New System.Drawing.Point(692, 0) + Me.dgvGesamtsicherheitCRN.Name = "dgvGesamtsicherheitCRN" + Me.dgvGesamtsicherheitCRN.ReadOnly = True + Me.dgvGesamtsicherheitCRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvGesamtsicherheitCRN.Size = New System.Drawing.Size(692, 486) + Me.dgvGesamtsicherheitCRN.TabIndex = 1 + ' + 'btnAddClose + ' + Me.btnAddClose.allowBorder = False + Me.btnAddClose.BackColor = System.Drawing.Color.White + Me.btnAddClose.BackgroundImage = Global.AVISO.My.Resources.Resources.plus + Me.btnAddClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnAddClose.FlatAppearance.BorderSize = 0 + Me.btnAddClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAddClose.ForeColor = System.Drawing.Color.Black + Me.btnAddClose.Location = New System.Drawing.Point(1348, 104) + Me.btnAddClose.Name = "btnAddClose" + Me.btnAddClose.Size = New System.Drawing.Size(24, 24) + Me.btnAddClose.TabIndex = 31 + Me.btnAddClose.UseVisualStyleBackColor = False + ' + 'btnAddOpen + ' + Me.btnAddOpen.allowBorder = False + Me.btnAddOpen.BackColor = System.Drawing.Color.White + Me.btnAddOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.plus + Me.btnAddOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnAddOpen.FlatAppearance.BorderSize = 0 + Me.btnAddOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAddOpen.ForeColor = System.Drawing.Color.Black + Me.btnAddOpen.Location = New System.Drawing.Point(654, 205) + Me.btnAddOpen.Name = "btnAddOpen" + Me.btnAddOpen.Size = New System.Drawing.Size(24, 24) + Me.btnAddOpen.TabIndex = 30 + Me.btnAddOpen.UseVisualStyleBackColor = False + ' + 'lblGestellungNr + ' + Me.lblGestellungNr.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.lblGestellungNr.AutoSize = True + Me.lblGestellungNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblGestellungNr.ForeColor = System.Drawing.Color.Honeydew + Me.lblGestellungNr.Location = New System.Drawing.Point(23, 17) + Me.lblGestellungNr.Name = "lblGestellungNr" + Me.lblGestellungNr.Size = New System.Drawing.Size(171, 24) + Me.lblGestellungNr.TabIndex = 2 + Me.lblGestellungNr.Text = "Gesamtsicherheit" + ' + 'txtCRNTime + ' + Me.txtCRNTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtCRNTime.Location = New System.Drawing.Point(1006, 204) + Me.txtCRNTime.Margin = New System.Windows.Forms.Padding(0) + Me.txtCRNTime.Name = "txtCRNTime" + Me.txtCRNTime.Size = New System.Drawing.Size(55, 24) + Me.txtCRNTime.TabIndex = 27 + ' + 'txtCRNDate + ' + Me.txtCRNDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtCRNDate.Location = New System.Drawing.Point(921, 204) + Me.txtCRNDate.Margin = New System.Windows.Forms.Padding(0) + Me.txtCRNDate.Name = "txtCRNDate" + Me.txtCRNDate.Size = New System.Drawing.Size(85, 24) + Me.txtCRNDate.TabIndex = 26 + ' + 'txtMRNTime + ' + Me.txtMRNTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtMRNTime.Location = New System.Drawing.Point(368, 204) + Me.txtMRNTime.Margin = New System.Windows.Forms.Padding(0) + Me.txtMRNTime.Name = "txtMRNTime" + Me.txtMRNTime.Size = New System.Drawing.Size(55, 24) + Me.txtMRNTime.TabIndex = 22 + ' + 'txtMRNDate + ' + Me.txtMRNDate.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append + Me.txtMRNDate.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource + Me.txtMRNDate.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtMRNDate.Location = New System.Drawing.Point(283, 204) + Me.txtMRNDate.Margin = New System.Windows.Forms.Padding(0) + Me.txtMRNDate.Name = "txtMRNDate" + Me.txtMRNDate.Size = New System.Drawing.Size(85, 24) + Me.txtMRNDate.TabIndex = 21 + ' + 'btnSaveOben + ' + Me.btnSaveOben.allowBorder = False + Me.btnSaveOben.BackColor = System.Drawing.Color.White + Me.btnSaveOben.FlatAppearance.BorderSize = 0 + Me.btnSaveOben.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSaveOben.ForeColor = System.Drawing.Color.Black + Me.btnSaveOben.Location = New System.Drawing.Point(12, 163) + Me.btnSaveOben.Name = "btnSaveOben" + Me.btnSaveOben.Size = New System.Drawing.Size(75, 23) + Me.btnSaveOben.TabIndex = 0 + Me.btnSaveOben.Text = "Speichern" + Me.btnSaveOben.UseVisualStyleBackColor = False + ' + 'txtCRNSicherheitsbetrag + ' + Me.txtCRNSicherheitsbetrag.Enabled = False + Me.txtCRNSicherheitsbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtCRNSicherheitsbetrag.Location = New System.Drawing.Point(1172, 204) + Me.txtCRNSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0) + Me.txtCRNSicherheitsbetrag.Name = "txtCRNSicherheitsbetrag" + Me.txtCRNSicherheitsbetrag.Size = New System.Drawing.Size(100, 24) + Me.txtCRNSicherheitsbetrag.TabIndex = 29 + ' + 'txtCRNWarenwert + ' + Me.txtCRNWarenwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtCRNWarenwert.Location = New System.Drawing.Point(1072, 204) + Me.txtCRNWarenwert.Margin = New System.Windows.Forms.Padding(0) + Me.txtCRNWarenwert.Name = "txtCRNWarenwert" + Me.txtCRNWarenwert.Size = New System.Drawing.Size(100, 24) + Me.txtCRNWarenwert.TabIndex = 28 + ' + 'txtCRN + ' + Me.txtCRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtCRN.Location = New System.Drawing.Point(708, 204) + Me.txtCRN.Margin = New System.Windows.Forms.Padding(0) + Me.txtCRN.Name = "txtCRN" + Me.txtCRN.Size = New System.Drawing.Size(205, 24) + Me.txtCRN.TabIndex = 25 + ' + 'txtMRNSicherheitsbetrag + ' + Me.txtMRNSicherheitsbetrag.Enabled = False + Me.txtMRNSicherheitsbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtMRNSicherheitsbetrag.Location = New System.Drawing.Point(523, 204) + Me.txtMRNSicherheitsbetrag.Margin = New System.Windows.Forms.Padding(0) + Me.txtMRNSicherheitsbetrag.Name = "txtMRNSicherheitsbetrag" + Me.txtMRNSicherheitsbetrag.Size = New System.Drawing.Size(100, 24) + Me.txtMRNSicherheitsbetrag.TabIndex = 24 + ' + 'txtMRNWarenwert + ' + Me.txtMRNWarenwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtMRNWarenwert.Location = New System.Drawing.Point(423, 204) + Me.txtMRNWarenwert.Margin = New System.Windows.Forms.Padding(0) + Me.txtMRNWarenwert.Name = "txtMRNWarenwert" + Me.txtMRNWarenwert.Size = New System.Drawing.Size(100, 24) + Me.txtMRNWarenwert.TabIndex = 23 + ' + 'txtMRN + ' + Me.txtMRN.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtMRN.Location = New System.Drawing.Point(34, 204) + Me.txtMRN.Margin = New System.Windows.Forms.Padding(0) + Me.txtMRN.Name = "txtMRN" + Me.txtMRN.Size = New System.Drawing.Size(205, 24) + Me.txtMRN.TabIndex = 19 + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.BackColor = System.Drawing.Color.White + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Image = Global.AVISO.My.Resources.Resources.refresh + Me.FlatButton1.Location = New System.Drawing.Point(1340, 15) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(32, 33) + Me.FlatButton1.TabIndex = 3 + Me.FlatButton1.UseVisualStyleBackColor = False + ' + 'lblZollsatz + ' + Me.lblZollsatz.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.lblZollsatz.AutoSize = True + Me.lblZollsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew + Me.lblZollsatz.Location = New System.Drawing.Point(1010, 190) + Me.lblZollsatz.Name = "lblZollsatz" + Me.lblZollsatz.Size = New System.Drawing.Size(85, 16) + Me.lblZollsatz.TabIndex = 4 + Me.lblZollsatz.Text = "Zollsatz: 12%" + ' + 'lblReferenzwert + ' + Me.lblReferenzwert.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.lblReferenzwert.AutoSize = True + Me.lblReferenzwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew + Me.lblReferenzwert.Location = New System.Drawing.Point(1010, 168) + Me.lblReferenzwert.Name = "lblReferenzwert" + Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16) + Me.lblReferenzwert.TabIndex = 1 + Me.lblReferenzwert.Text = "Referenzwert: €80.000" + ' + 'lblSaldo + ' + Me.lblSaldo.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.lblSaldo.AutoSize = True + Me.lblSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew + Me.lblSaldo.Location = New System.Drawing.Point(1152, 160) + Me.lblSaldo.Name = "lblSaldo" + Me.lblSaldo.Size = New System.Drawing.Size(147, 24) + Me.lblSaldo.TabIndex = 5 + Me.lblSaldo.Text = "Saldo: €80.000" + ' + 'panOben + ' + Me.panOben.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.panOben.Controls.Add(Me.Panel1) + Me.panOben.Controls.Add(Me.btnDeleteClose) + Me.panOben.Controls.Add(Me.btnDeleteOpen) + Me.panOben.Controls.Add(Me.btnUpdateClose) + Me.panOben.Controls.Add(Me.btnUpdateOpen) + Me.panOben.Controls.Add(Me.Label15) + Me.panOben.Controls.Add(Me.txtPos) + Me.panOben.Controls.Add(Me.Label14) + Me.panOben.Controls.Add(Me.txtEust) + Me.panOben.Controls.Add(Me.Label13) + Me.panOben.Controls.Add(Me.cboATR) + Me.panOben.Controls.Add(Me.Label7) + Me.panOben.Controls.Add(Me.Label8) + Me.panOben.Controls.Add(Me.Label9) + Me.panOben.Controls.Add(Me.Label10) + Me.panOben.Controls.Add(Me.Label11) + Me.panOben.Controls.Add(Me.Label12) + Me.panOben.Controls.Add(Me.Label6) + Me.panOben.Controls.Add(Me.Label5) + Me.panOben.Controls.Add(Me.Label4) + Me.panOben.Controls.Add(Me.Label3) + Me.panOben.Controls.Add(Me.Label2) + Me.panOben.Controls.Add(Me.Label1) + Me.panOben.Controls.Add(Me.txtFreitextClose) + Me.panOben.Controls.Add(Me.txtFreitextOpen) + Me.panOben.Controls.Add(Me.btnAddClose) + Me.panOben.Controls.Add(Me.btnAddOpen) + Me.panOben.Controls.Add(Me.lblGestellungNr) + Me.panOben.Controls.Add(Me.txtCRNTime) + Me.panOben.Controls.Add(Me.txtCRNDate) + Me.panOben.Controls.Add(Me.txtMRNTime) + Me.panOben.Controls.Add(Me.txtMRNDate) + Me.panOben.Controls.Add(Me.btnSaveOben) + Me.panOben.Controls.Add(Me.txtCRNSicherheitsbetrag) + Me.panOben.Controls.Add(Me.txtCRNWarenwert) + Me.panOben.Controls.Add(Me.txtCRN) + Me.panOben.Controls.Add(Me.txtMRNSicherheitsbetrag) + Me.panOben.Controls.Add(Me.txtMRNWarenwert) + Me.panOben.Controls.Add(Me.txtMRN) + Me.panOben.Controls.Add(Me.FlatButton1) + Me.panOben.Controls.Add(Me.lblZollsatz) + Me.panOben.Controls.Add(Me.lblReferenzwert) + Me.panOben.Controls.Add(Me.lblSaldo) + Me.panOben.Dock = System.Windows.Forms.DockStyle.Top + Me.panOben.Location = New System.Drawing.Point(0, 0) + Me.panOben.Margin = New System.Windows.Forms.Padding(0) + Me.panOben.Name = "panOben" + Me.panOben.Size = New System.Drawing.Size(1384, 290) + Me.panOben.TabIndex = 0 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight + Me.Panel1.Controls.Add(Me.txtDatBis) + Me.Panel1.Controls.Add(Me.btnSuche) + Me.Panel1.Controls.Add(Me.Label26) + Me.Panel1.Controls.Add(Me.Button7) + Me.Panel1.Controls.Add(Me.Button6) + Me.Panel1.Controls.Add(Me.Button5) + Me.Panel1.Controls.Add(Me.txtDatVon) + Me.Panel1.Controls.Add(Me.Label24) + Me.Panel1.Controls.Add(Me.btnJahr) + Me.Panel1.Controls.Add(Me.btnBisJahr) + Me.Panel1.Controls.Add(Me.btnVonJahr) + Me.Panel1.Controls.Add(Me.btnMonat) + Me.Panel1.Controls.Add(Me.btnBisMonat) + Me.Panel1.Controls.Add(Me.btnVonMonat) + Me.Panel1.Controls.Add(Me.DateTimePicker2) + Me.Panel1.Controls.Add(Me.Label25) + Me.Panel1.Controls.Add(Me.DateTimePicker1) + Me.Panel1.Controls.Add(Me.btnSucheStarten) + Me.Panel1.Controls.Add(Me.Label23) + Me.Panel1.Controls.Add(Me.MyComboBox1) + Me.Panel1.Controls.Add(Me.Label19) + Me.Panel1.Controls.Add(Me.MyComboBox2) + Me.Panel1.Controls.Add(Me.FlatButton2) + Me.Panel1.Controls.Add(Me.TextBox1) + Me.Panel1.Controls.Add(Me.TextBox2) + Me.Panel1.Controls.Add(Me.Label20) + Me.Panel1.Controls.Add(Me.Label21) + Me.Panel1.Controls.Add(Me.Label22) + Me.Panel1.Location = New System.Drawing.Point(0, 44) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1316, 97) + Me.Panel1.TabIndex = 10 + Me.Panel1.Visible = False + ' + 'btnSuche + ' + Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSuche.Location = New System.Drawing.Point(921, 5) + Me.btnSuche.Name = "btnSuche" + Me.btnSuche.Size = New System.Drawing.Size(162, 52) + Me.btnSuche.TabIndex = 35 + Me.btnSuche.Text = "Gesamtsicherheit Suche starten" + Me.btnSuche.UseVisualStyleBackColor = True + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label26.Location = New System.Drawing.Point(24, 12) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(43, 13) + Me.Label26.TabIndex = 34 + Me.Label26.Text = "Datum" + ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button7.ForeColor = System.Drawing.Color.Black + Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.Location = New System.Drawing.Point(284, 7) + Me.Button7.Margin = New System.Windows.Forms.Padding(0) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(34, 23) + Me.Button7.TabIndex = 26 + Me.Button7.Text = ">>" + Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button6.ForeColor = System.Drawing.Color.Black + Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.Location = New System.Drawing.Point(165, 7) + Me.Button6.Margin = New System.Windows.Forms.Padding(0) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(34, 23) + Me.Button6.TabIndex = 24 + Me.Button6.Text = "<<" + Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button5.ForeColor = System.Drawing.Color.Black + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button5.Location = New System.Drawing.Point(198, 7) + Me.Button5.Margin = New System.Windows.Forms.Padding(0) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(87, 23) + Me.Button5.TabIndex = 25 + Me.Button5.Text = "Heute" + Me.Button5.UseVisualStyleBackColor = True + ' + 'txtDatVon + ' + Me.txtDatVon._DateTimeOnly = False + Me.txtDatVon._numbersOnly = False + Me.txtDatVon._numbersOnlyKommastellen = "" + Me.txtDatVon._numbersOnlyTrennzeichen = True + Me.txtDatVon._Prozent = False + Me.txtDatVon._ShortDateNew = False + Me.txtDatVon._ShortDateOnly = True + Me.txtDatVon._TimeOnly = False + Me.txtDatVon._TimeOnly_Seconds = False + Me.txtDatVon._value = "" + Me.txtDatVon._Waehrung = False + Me.txtDatVon._WaehrungZeichen = True + Me.txtDatVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDatVon.ForeColor = System.Drawing.Color.Black + Me.txtDatVon.Location = New System.Drawing.Point(53, 37) + Me.txtDatVon.MaxLength = 10 + Me.txtDatVon.MaxLineLength = -1 + Me.txtDatVon.MaxLines_Warning = "" + Me.txtDatVon.MaxLines_Warning_Label = Nothing + Me.txtDatVon.Name = "txtDatVon" + Me.txtDatVon.Size = New System.Drawing.Size(63, 20) + Me.txtDatVon.TabIndex = 20 + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(24, 65) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(23, 13) + Me.Label24.TabIndex = 23 + Me.Label24.Text = "bis:" + ' + 'btnJahr + ' + Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnJahr.ForeColor = System.Drawing.Color.Black + Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnJahr.Location = New System.Drawing.Point(198, 59) + Me.btnJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnJahr.Name = "btnJahr" + Me.btnJahr.Size = New System.Drawing.Size(87, 23) + Me.btnJahr.TabIndex = 32 + Me.btnJahr.Text = "2016" + Me.btnJahr.UseVisualStyleBackColor = True + ' + 'btnBisJahr + ' + Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisJahr.ForeColor = System.Drawing.Color.Black + Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisJahr.Location = New System.Drawing.Point(284, 59) + Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisJahr.Name = "btnBisJahr" + Me.btnBisJahr.Size = New System.Drawing.Size(34, 23) + Me.btnBisJahr.TabIndex = 33 + Me.btnBisJahr.Text = ">>" + Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisJahr.UseVisualStyleBackColor = True + ' + 'btnVonJahr + ' + Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonJahr.ForeColor = System.Drawing.Color.Black + Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonJahr.Location = New System.Drawing.Point(165, 59) + Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonJahr.Name = "btnVonJahr" + Me.btnVonJahr.Size = New System.Drawing.Size(34, 23) + Me.btnVonJahr.TabIndex = 31 + Me.btnVonJahr.Text = "<<" + Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonJahr.UseVisualStyleBackColor = True + ' + 'btnMonat + ' + Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnMonat.ForeColor = System.Drawing.Color.Black + Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnMonat.Location = New System.Drawing.Point(198, 33) + Me.btnMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnMonat.Name = "btnMonat" + Me.btnMonat.Size = New System.Drawing.Size(87, 23) + Me.btnMonat.TabIndex = 29 + Me.btnMonat.Text = "September" + Me.btnMonat.UseVisualStyleBackColor = True + ' + 'btnBisMonat + ' + Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisMonat.ForeColor = System.Drawing.Color.Black + Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisMonat.Location = New System.Drawing.Point(284, 33) + Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisMonat.Name = "btnBisMonat" + Me.btnBisMonat.Size = New System.Drawing.Size(34, 23) + Me.btnBisMonat.TabIndex = 30 + Me.btnBisMonat.Text = ">>" + Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisMonat.UseVisualStyleBackColor = True + ' + 'btnVonMonat + ' + Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonMonat.ForeColor = System.Drawing.Color.Black + Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonMonat.Location = New System.Drawing.Point(165, 33) + Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonMonat.Name = "btnVonMonat" + Me.btnVonMonat.Size = New System.Drawing.Size(34, 23) + Me.btnVonMonat.TabIndex = 28 + Me.btnVonMonat.Text = "<<" + Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonMonat.UseVisualStyleBackColor = True + ' + 'DateTimePicker2 + ' + Me.DateTimePicker2.CustomFormat = "''" + Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker2.Location = New System.Drawing.Point(53, 62) + Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker2.Name = "DateTimePicker2" + Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20) + Me.DateTimePicker2.TabIndex = 22 + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Location = New System.Drawing.Point(24, 41) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(28, 13) + Me.Label25.TabIndex = 27 + Me.Label25.Text = "von:" + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.CustomFormat = "''" + Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker1.Location = New System.Drawing.Point(53, 37) + Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20) + Me.DateTimePicker1.TabIndex = 21 + ' + 'btnSucheStarten + ' + Me.btnSucheStarten.allowBorder = False + Me.btnSucheStarten.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.btnSucheStarten.BackColor = System.Drawing.Color.White + Me.btnSucheStarten.FlatAppearance.BorderSize = 0 + Me.btnSucheStarten.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSucheStarten.ForeColor = System.Drawing.Color.Black + Me.btnSucheStarten.Location = New System.Drawing.Point(1194, 60) + Me.btnSucheStarten.Name = "btnSucheStarten" + Me.btnSucheStarten.Size = New System.Drawing.Size(81, 20) + Me.btnSucheStarten.TabIndex = 17 + Me.btnSucheStarten.Text = "Suche starten" + Me.btnSucheStarten.UseVisualStyleBackColor = False + ' + 'Label23 + ' + Me.Label23.Anchor = System.Windows.Forms.AnchorStyles.Right + Me.Label23.AutoSize = True + Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.Label23.ForeColor = System.Drawing.Color.Honeydew + Me.Label23.Location = New System.Drawing.Point(139, 5) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(24, 15) + Me.Label23.TabIndex = 13 + Me.Label23.Text = "Bis" + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.DropDownWidth = 300 + Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(336, 13) + Me.MyComboBox1.MaxLength = 4 + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(95, 24) + Me.MyComboBox1.TabIndex = 9 + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.Location = New System.Drawing.Point(333, 0) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(63, 13) + Me.Label19.TabIndex = 8 + Me.Label19.Text = "Warenort:" + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.DropDownWidth = 300 + Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(456, 16) + Me.MyComboBox2.MaxLength = 4 + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(95, 21) + Me.MyComboBox2.TabIndex = 2 + ' + 'FlatButton2 + ' + Me.FlatButton2.allowBorder = False + Me.FlatButton2.BackColor = System.Drawing.Color.Gainsboro + Me.FlatButton2.FlatAppearance.BorderSize = 0 + Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton2.ForeColor = System.Drawing.Color.Black + Me.FlatButton2.Location = New System.Drawing.Point(1194, 16) + Me.FlatButton2.Name = "FlatButton2" + Me.FlatButton2.Size = New System.Drawing.Size(75, 23) + Me.FlatButton2.TabIndex = 7 + Me.FlatButton2.Text = "Speichern" + Me.FlatButton2.UseVisualStyleBackColor = False + ' + 'TextBox1 + ' + Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox1.Location = New System.Drawing.Point(728, 16) + Me.TextBox1.Margin = New System.Windows.Forms.Padding(0) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(79, 24) + Me.TextBox1.TabIndex = 6 + ' + 'TextBox2 + ' + Me.TextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox2.Location = New System.Drawing.Point(571, 16) + Me.TextBox2.Margin = New System.Windows.Forms.Padding(0) + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(122, 24) + Me.TextBox2.TabIndex = 4 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label20.Location = New System.Drawing.Point(725, 0) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(55, 13) + Me.Label20.TabIndex = 5 + Me.Label20.Text = "LKW-ID:" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label21.Location = New System.Drawing.Point(568, 0) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(125, 13) + Me.Label21.TabIndex = 3 + Me.Label21.Text = "Abfertigungsnummer:" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label22.Location = New System.Drawing.Point(453, 0) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(44, 13) + Me.Label22.TabIndex = 1 + Me.Label22.Text = "Filiale:" + ' + 'btnDeleteClose + ' + Me.btnDeleteClose.allowBorder = False + Me.btnDeleteClose.BackColor = System.Drawing.Color.White + Me.btnDeleteClose.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnDeleteClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnDeleteClose.FlatAppearance.BorderSize = 0 + Me.btnDeleteClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDeleteClose.ForeColor = System.Drawing.Color.Black + Me.btnDeleteClose.Location = New System.Drawing.Point(1348, 74) + Me.btnDeleteClose.Name = "btnDeleteClose" + Me.btnDeleteClose.Size = New System.Drawing.Size(24, 24) + Me.btnDeleteClose.TabIndex = 7 + Me.btnDeleteClose.UseVisualStyleBackColor = False + Me.btnDeleteClose.Visible = False + ' + 'btnDeleteOpen + ' + Me.btnDeleteOpen.allowBorder = False + Me.btnDeleteOpen.BackColor = System.Drawing.Color.White + Me.btnDeleteOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.del2 + Me.btnDeleteOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnDeleteOpen.FlatAppearance.BorderSize = 0 + Me.btnDeleteOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDeleteOpen.ForeColor = System.Drawing.Color.Black + Me.btnDeleteOpen.Location = New System.Drawing.Point(654, 175) + Me.btnDeleteOpen.Name = "btnDeleteOpen" + Me.btnDeleteOpen.Size = New System.Drawing.Size(24, 24) + Me.btnDeleteOpen.TabIndex = 6 + Me.btnDeleteOpen.UseVisualStyleBackColor = False + Me.btnDeleteOpen.Visible = False + ' + 'btnUpdateClose + ' + Me.btnUpdateClose.allowBorder = False + Me.btnUpdateClose.BackColor = System.Drawing.Color.White + Me.btnUpdateClose.BackgroundImage = Global.AVISO.My.Resources.Resources.ok + Me.btnUpdateClose.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnUpdateClose.FlatAppearance.BorderSize = 0 + Me.btnUpdateClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpdateClose.ForeColor = System.Drawing.Color.Black + Me.btnUpdateClose.Location = New System.Drawing.Point(1348, 136) + Me.btnUpdateClose.Name = "btnUpdateClose" + Me.btnUpdateClose.Size = New System.Drawing.Size(24, 24) + Me.btnUpdateClose.TabIndex = 37 + Me.btnUpdateClose.UseVisualStyleBackColor = False + Me.btnUpdateClose.Visible = False + ' + 'btnUpdateOpen + ' + Me.btnUpdateOpen.allowBorder = False + Me.btnUpdateOpen.BackColor = System.Drawing.Color.White + Me.btnUpdateOpen.BackgroundImage = Global.AVISO.My.Resources.Resources.ok + Me.btnUpdateOpen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.btnUpdateOpen.FlatAppearance.BorderSize = 0 + Me.btnUpdateOpen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUpdateOpen.ForeColor = System.Drawing.Color.Black + Me.btnUpdateOpen.Location = New System.Drawing.Point(654, 237) + Me.btnUpdateOpen.Name = "btnUpdateOpen" + Me.btnUpdateOpen.Size = New System.Drawing.Size(24, 24) + Me.btnUpdateOpen.TabIndex = 35 + Me.btnUpdateOpen.UseVisualStyleBackColor = False + Me.btnUpdateOpen.Visible = False + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label15.Location = New System.Drawing.Point(242, 191) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(25, 13) + Me.Label15.TabIndex = 9 + Me.Label15.Text = "Pos" + ' + 'txtPos + ' + Me.txtPos.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPos.Location = New System.Drawing.Point(242, 204) + Me.txtPos.Margin = New System.Windows.Forms.Padding(0) + Me.txtPos.Name = "txtPos" + Me.txtPos.Size = New System.Drawing.Size(35, 24) + Me.txtPos.TabIndex = 20 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Enabled = False + Me.Label14.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label14.Location = New System.Drawing.Point(194, 237) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(59, 13) + Me.Label14.TabIndex = 33 + Me.Label14.Text = "19% EUST" + ' + 'txtEust + ' + Me.txtEust.Enabled = False + Me.txtEust.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtEust.Location = New System.Drawing.Point(197, 250) + Me.txtEust.Margin = New System.Windows.Forms.Padding(0) + Me.txtEust.Name = "txtEust" + Me.txtEust.Size = New System.Drawing.Size(100, 24) + Me.txtEust.TabIndex = 39 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Enabled = False + Me.Label13.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label13.Location = New System.Drawing.Point(76, 234) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(73, 13) + Me.Label13.TabIndex = 32 + Me.Label13.Text = "A.TR Ja/Nein" + ' + 'cboATR + ' + Me.cboATR.Enabled = False + Me.cboATR.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!) + Me.cboATR.FormattingEnabled = True + Me.cboATR.Items.AddRange(New Object() {"JA", "NEIN"}) + Me.cboATR.Location = New System.Drawing.Point(74, 250) + Me.cboATR.Name = "cboATR" + Me.cboATR.Size = New System.Drawing.Size(120, 26) + Me.cboATR.TabIndex = 38 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label7.Location = New System.Drawing.Point(1014, 237) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(41, 13) + Me.Label7.TabIndex = 36 + Me.Label7.Text = "Freitext" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label8.Location = New System.Drawing.Point(1075, 191) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(59, 13) + Me.Label8.TabIndex = 17 + Me.Label8.Text = "Warenwert" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label9.Location = New System.Drawing.Point(1169, 191) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(89, 13) + Me.Label9.TabIndex = 18 + Me.Label9.Text = "Sicherheitsbetrag" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label10.Location = New System.Drawing.Point(1003, 191) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(40, 13) + Me.Label10.TabIndex = 16 + Me.Label10.Text = "Uhrzeit" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label11.Location = New System.Drawing.Point(918, 191) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(38, 13) + Me.Label11.TabIndex = 15 + Me.Label11.Text = "Datum" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label12.Location = New System.Drawing.Point(765, 191) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(64, 13) + Me.Label12.TabIndex = 14 + Me.Label12.Text = "ATC / MRN" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label6.Location = New System.Drawing.Point(364, 237) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(41, 13) + Me.Label6.TabIndex = 34 + Me.Label6.Text = "Freitext" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label5.Location = New System.Drawing.Point(426, 191) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(59, 13) + Me.Label5.TabIndex = 12 + Me.Label5.Text = "Warenwert" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label4.Location = New System.Drawing.Point(520, 191) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(89, 13) + Me.Label4.TabIndex = 13 + Me.Label4.Text = "Sicherheitsbetrag" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label3.Location = New System.Drawing.Point(365, 191) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(40, 13) + Me.Label3.TabIndex = 11 + Me.Label3.Text = "Uhrzeit" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label2.Location = New System.Drawing.Point(274, 191) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(38, 13) + Me.Label2.TabIndex = 10 + Me.Label2.Text = "Datum" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ForeColor = System.Drawing.SystemColors.ButtonHighlight + Me.Label1.Location = New System.Drawing.Point(76, 191) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(70, 13) + Me.Label1.TabIndex = 8 + Me.Label1.Text = "ATB Nummer" + ' + 'txtFreitextClose + ' + Me.txtFreitextClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtFreitextClose.Location = New System.Drawing.Point(1017, 250) + Me.txtFreitextClose.Margin = New System.Windows.Forms.Padding(0) + Me.txtFreitextClose.Name = "txtFreitextClose" + Me.txtFreitextClose.Size = New System.Drawing.Size(255, 24) + Me.txtFreitextClose.TabIndex = 41 + ' + 'txtFreitextOpen + ' + Me.txtFreitextOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtFreitextOpen.Location = New System.Drawing.Point(367, 250) + Me.txtFreitextOpen.Margin = New System.Windows.Forms.Padding(0) + Me.txtFreitextOpen.Name = "txtFreitextOpen" + Me.txtFreitextOpen.Size = New System.Drawing.Size(256, 24) + Me.txtFreitextOpen.TabIndex = 40 + ' + 'txtDatBis + ' + Me.txtDatBis._DateTimeOnly = False + Me.txtDatBis._numbersOnly = False + Me.txtDatBis._numbersOnlyKommastellen = "" + Me.txtDatBis._numbersOnlyTrennzeichen = True + Me.txtDatBis._Prozent = False + Me.txtDatBis._ShortDateNew = False + Me.txtDatBis._ShortDateOnly = True + Me.txtDatBis._TimeOnly = False + Me.txtDatBis._TimeOnly_Seconds = False + Me.txtDatBis._value = "" + Me.txtDatBis._Waehrung = False + Me.txtDatBis._WaehrungZeichen = True + Me.txtDatBis.Enabled = False + Me.txtDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDatBis.ForeColor = System.Drawing.Color.Black + Me.txtDatBis.Location = New System.Drawing.Point(53, 63) + Me.txtDatBis.MaxLength = 10 + Me.txtDatBis.MaxLineLength = -1 + Me.txtDatBis.MaxLines_Warning = "" + Me.txtDatBis.MaxLines_Warning_Label = Nothing + Me.txtDatBis.Name = "txtDatBis" + Me.txtDatBis.Size = New System.Drawing.Size(63, 20) + Me.txtDatBis.TabIndex = 36 + ' + 'frmGesamtsicherheitenNEU + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1384, 776) + Me.Controls.Add(Me.Panel2) + Me.Controls.Add(Me.panOben) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MaximumSize = New System.Drawing.Size(1400, 815) + Me.MinimumSize = New System.Drawing.Size(1400, 815) + Me.Name = "frmGesamtsicherheitenNEU" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "frmGesSich" + CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.Panel2.ResumeLayout(False) + Me.panOverlay.ResumeLayout(False) + Me.panOverlay.PerformLayout() + CType(Me.dgvGesamtsicherheitCRN, System.ComponentModel.ISupportInitialize).EndInit() + Me.panOben.ResumeLayout(False) + Me.panOben.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents dgvGesamtsicherheitMRN As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents Panel2 As Panel + Friend WithEvents dgvGesamtsicherheitCRN As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents btnAddClose As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnAddOpen As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents lblGestellungNr As Label + Friend WithEvents txtCRNTime As TextBox + Friend WithEvents txtCRNDate As TextBox + Friend WithEvents txtMRNTime As TextBox + Friend WithEvents txtMRNDate As TextBox + Friend WithEvents btnSaveOben As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents txtCRNSicherheitsbetrag As TextBox + Friend WithEvents txtCRNWarenwert As TextBox + Friend WithEvents txtCRN As TextBox + Friend WithEvents txtMRNSicherheitsbetrag As TextBox + Friend WithEvents txtMRNWarenwert As TextBox + Friend WithEvents txtMRN As TextBox + Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents lblZollsatz As Label + Friend WithEvents lblReferenzwert As Label + Friend WithEvents lblSaldo As Label + Friend WithEvents panOben As Panel + Friend WithEvents txtFreitextClose As TextBox + Friend WithEvents txtFreitextOpen As TextBox + Friend WithEvents Label14 As Label + Friend WithEvents txtEust As TextBox + Friend WithEvents Label13 As Label + Friend WithEvents cboATR As ComboBox + Friend WithEvents Label7 As Label + Friend WithEvents Label8 As Label + Friend WithEvents Label9 As Label + Friend WithEvents Label10 As Label + Friend WithEvents Label11 As Label + Friend WithEvents Label12 As Label + Friend WithEvents Label6 As Label + Friend WithEvents Label5 As Label + Friend WithEvents Label4 As Label + Friend WithEvents Label3 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Label1 As Label + Friend WithEvents Label15 As Label + Friend WithEvents txtPos As TextBox + Friend WithEvents panOverlay As Panel + Friend WithEvents btnSave As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents txtLKWID As TextBox + Friend WithEvents txtAbfertNum As TextBox + Friend WithEvents Label18 As Label + Friend WithEvents Label17 As Label + Friend WithEvents Label16 As Label + Friend WithEvents btnClosePanOverlay As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents btnUpdateClose As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnUpdateOpen As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnDeleteClose As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnDeleteOpen As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents cboWarenort As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents lblWarenort As Label + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Friend WithEvents ClosedErzeugenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents Panel1 As Panel + Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label19 As Label + Friend WithEvents MyComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents TextBox1 As TextBox + Friend WithEvents TextBox2 As TextBox + Friend WithEvents Label20 As Label + Friend WithEvents Label21 As Label + Friend WithEvents Label22 As Label + Friend WithEvents btnSucheStarten As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents Label23 As Label + Friend WithEvents Label26 As Label + Friend WithEvents Button7 As Button + Friend WithEvents Button6 As Button + Friend WithEvents Button5 As Button + Friend WithEvents txtDatVon As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label24 As Label + Friend WithEvents btnJahr As Button + Friend WithEvents btnBisJahr As Button + Friend WithEvents btnVonJahr As Button + Friend WithEvents btnMonat As Button + Friend WithEvents btnBisMonat As Button + Friend WithEvents btnVonMonat As Button + Friend WithEvents DateTimePicker2 As DateTimePicker + Friend WithEvents Label25 As Label + Friend WithEvents DateTimePicker1 As DateTimePicker + Friend WithEvents btnSuche As Button + Friend WithEvents txtDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox +End Class diff --git a/Aviso/frmGesamtsicherheitenNEU.resx b/Aviso/frmGesamtsicherheitenNEU.resx new file mode 100644 index 0000000..2cbc5c2 --- /dev/null +++ b/Aviso/frmGesamtsicherheitenNEU.resx @@ -0,0 +1,200 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + AAABAAEAICAAAAEAIACoEAAAFgAAACgAAAAgAAAAQAAAAAEAIAAAAAAAABAAABILAAASCwAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAgAAAAMAAAAEAAAAChEAEQ8NAA0TAAAAFgAA + ABkAAAAbAAAAGgAAABgAAAAUAAAADgAAAAwAAAAIAAAABAAAAAMAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAUgICAIEhISDg0NDRQAAAAbAAAAJAAA + ACsAAAAvAAAAMgAAADQAAAAzAAAAMAAAACsAAAAmAAAAHgAAABYAAAAQAAAACwAAAAYAAAAEAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAFAAAACg8PDxEJCQkbBwcHJQUF + BTEEBAQ9AAAARwAAAE0AAABSAAAAUwAAAFIAAABOAAAESAAABD8AAAAzAAAAKAAAAB0AAAAUAAAADQAA + AAcAAAADAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAgAAAAQCgAKGg0G + DSgJDgk4BwcHSAYGBlsCAgVqAAAAcgAAAHUAAAB0AAAAcwAAAnAAAAVoAwMGWwMDA0wEAAA8AAAALQAA + AB4AAAAUAAAADAAAAAUAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAEAAAACgwM + DBUICAgiCgoKMwMHB0oFBQViCggCfmhWALWZfwDXpIYA37mXAOyxkQDmqIcA25d8AMlbSgCYAAMAZAMD + AE0ABAA6AAAAKAAAABoAAAAQAAAABwAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA + AAYAAAAMFhYWFw0NDScFBQU3RjgAX7SUAM/XsQD/37YA/9+0AP/ftQD/37UA/9+1AP/etgD/3rUA/9+2 + AP/UrQD5qosArSMjAEEABgYqAAAAHAAAABEAAAAJAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABgAAAAsMDAwWGhoJHcCdAJ7ctwD/3rYA/9+2AP/htgD/4rcA/+K3AP/itwD/4rcA/+K3 + AP/itwD/4bYA/9+2AP/etgD/2bMA9LKTAG0NDQ0UAAAAEAAAAAgAAAADAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAADAAAAB3ZiAA3YtADF3rYA/+C2AP/iuAD/5LgA/+W5AP/mugD/57oA/+e6 + AP/nugD/57oA/+a5AP/luQD/47gA/+K3AP/ftgD/3bYA/9eyAJEAAAAAAAAABAAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAA3bcA1963AP/iuAD/5LoA/+e7AP/nvAD/6LwA/+m8 + AP/rvQD/7L4A/+2+AP/svwD/7L4A/+q8AP/ovAD/5rsA/+O6AP/huAD/3bYA/+C6AJsAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOC6ALXfuAD/4roA/+a8AP/nvAD/6b0A/+u+ + AP/svwD/7MAA/76cAP+NdwD/e2sb/3JkIv+HcwD/p4kA/+K5AP/qvQD/57wA/+W8AP/hugD/3rgA/965 + AG0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADfugBn3rkA/+K7AP/mvgD/6b4A/+u/ + AP/rwAD/78QA/8CeAP9WTzL/QEBB/0JERf9ERUX/QUFB/zs8PP81NTX/Qzwn//DDAP/rvwD/6L4A/+a9 + AP/huwD/3bgA/9WxACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd25AO/hvAD/5r4A/+nA + AP/rwQD/7MIA//DEAP+ykwD/Ozw+/0VGRv9JSUn/SEtK/0dHSP9BQkT/Ozs8/zQ0NP9vYBP/8MUA/+zC + AP/rwQD/6L8A/+W+AP/huwD/27gAugAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADduQB44bwA/+a+ + AP/pwQD/7MMA/+7EAP/wxQD/1a8A/zw+Pv9HR0f/TU5O/05PUP+QgC7/uJsA/9WwAP/DowD/m4MA/6yQ + AP/xxQD/78QA/+7EAP/rwgD/6MAA/+W9AP/guwD/3LkALAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN26 + ANrkvgD/6MEA/+vEAP/uxAD/8MUA//TJAP9wYiv/Q0ZG/05PT/9RVFX/up0Q//TJAP/xxwD/8ccA//HH + AP/yxwD/8scA//DGAP/wxgD/8MUA/+3FAP/rwwD/58AA/+K+AP/euwCZAAAAAAAAAAAAAAAAAAAAAAAA + AADcuQAW4L4A/+XBAP/qxQD/7cYA/+/IAP/1ywD/7cQA/z9BQP9MTU3/VVZW/351TP/4zwD/9MsA//XL + AP/1ywD/9csA//TLAP/xyQD/8ckA//HJAP/wyQD/78cA/+3GAP/pxAD/5cAA/969AOoAAAAAAAAAAAAA + AAAAAAAAAAAAAN27AEvjwAD/6MQA/+zGAP/vyAD/9swA/0xEHv8yMjT/QkRE/09QUP9XWFj/Wltb/1dZ + XP9SVFb/Sk1P/0JERv86Ojv/ZFgr//bNAP/zygD/88oA//PKAP/xygD/78gA/+vFAP/nwwD/4b8A/8aq + AAkAAAAAAAAAAAAAAAAAAAAA378Jb+TCAP/qxgD/7skA//DMAP/1zwD/dmUf/0xHNP9CRET/T1BQ/1dY + WP9zblX/e3NR/3dvTP9yaUb/bGI+/2NcNf+Ccyf/9tAA//PNAP/zzQD/880A//LMAP/wywD/7cgA/+jG + AP/jwQD/274GKwAAAAAAAAAAAAAAAAAAAADfvx545MQT/+rHAv/uywD/8s0A//TPAP/evAD/kn4q/0BB + Qf9OTk7/VVZX/7ykOv/fwBH/3b4V/9y9Ev/buxb/2roK/9++AP/10AD/9M8A//TPAP/0zwD/884A//HM + AP/uygD/6cYF/+TDFf/fvxs4AAAAAAAAAAAAAAAAAAAAAODCJXXlxiL/68oX//DND//zzwH/+NMA/0pD + If8tLi7/PDw8/0hKSf9SUlL/VVdY/1VXWf9RVFb/S05R/0VGSf87PD//Zlwz//nUAP/20QD/9tEA//bR + AP/10QD/888B/+7MEv/qyRn/5MQk/968IS4AAAAAAAAAAAAAAAAAAAAA4cMwVeXGLv/ryyn/8M4l//PR + Iv/31CH/lIEg/31tLf80NTX/QUFB/0pMTP9lYVD/m41J/5mISf+XiEb/lINB/5B/Of+ljzD/+NUf//fT + Hv/30x7/9tMe//XRIf/y0CP/7s0m/+rKKv/kxTD/2b8mFAAAAAAAAAAAAAAAAAAAAADixTMj5cY4/+vM + M//w0DL/9NIw//bUMf/51zD//9sw/0pELf83Nzf/QUJC/05OSv/y0TH/+9ct//rXLf/61y3/+tcw//rX + MP/41i//+NYv//jWL//31TD/9tQx//PRMf/vzzP/6ss0/+LFNvcAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AADkxj/06sw//+/QPv/z0z7/9tY8//jXPf/62D//tJw1/ywtLf83Nzf/QEBA/2pjSP/lyEL//No9//rZ + Pv/72T7//Ns8//TTPv/51z3/+Nc9//jXPf/21Tz/8tI+/+7PPf/oyj7/4sU+qAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAOHFRJLoy0T/7s9F//LTRv/21kf/+NdF//nYR//+3Ej/a2Aw/ywsLP81NTX/Ozs7/0VG + QP9vZ0X/k4VH/3dtQf9DQDT/s50+//vbR//52Ef/+NdF//bWR//x0kX/7c5G/+fJRf/hw0JNAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA379AEObKSv/sz0v/8dNM//XXTv/32U7/+dtN//rcTv/52k3/cGQy/ygo + KP8uLi7/MjQ0/zU2Nv81NTX/MTIy/ywsLP97bjf//NxQ//naTf/32E//9NZM//DSTf/rzkv/5MhI2AAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5clNiOnNUf/v0VP/89ZV//fZVf/521j/+txX//vc + Wf//4Vr/wqpJ/1xTL/8lJSX/KCkp/ygpKf8mJib/Ly0n/4Z3Of/93Vj/+dpX//bYVv/y1VT/7dFT/+fM + Uf/hyE5FAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC/v0AE5spS3ezQVf/w1Fj/9dda//fa + XP/53Fz/+t1d//veXf/932D//+Fg/+zQWP/ZwFP/2cFU/93DVf/+4l7//d9e//ncXP/22Vz/89da/+/S + V//qzlT/5MpTowAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADbwlUV5stY9+zR + W//w1V7/9dhg//fbYv/53GL/+t1k//veY//73mX//OBk//zgZf/832b//N9k//ndY//53GP/9tpg//PX + Xv/w1F3/69Ba/+XKV9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AADizFcj5stb7ezRXv/w1GL/89dj//XZZf/322b/+Nxn//ncZ//53Gf/+dxn//ncZ//43Gf/99tm//XZ + ZP/y12P/79Ng/+vQXf/my1rJ1apVBgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADVv1UM5stcxevQYP/u02L/8NZk//PXZv/02Wf/9dpo//XaaP/12mj/9dpo//TZ + Z//y12X/8NVk/+3SYv/pz1//5stdjwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5ctfWebNYOLq0WP/7NJk/+7UZv/w1Wf/8NZn//DW + Z//v1Wb/7tRl/+vSZP/q0GL/58xfvuLMXyMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOLLYyzlzGOB5s1izefP + ZNTp0GP/6dBj/ejOY9HmzWLA5sthcefCYRUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA+AAAf/AAAB/wAAAP4AAAD+AAAA/gAAAP4AAAB+AAAE/0AAA/+AAAH/AA + AA/gAAAP4AAAB+AAAAfAAAAHwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAH4AAAB+AAAAfgAAAP8AAAD/AA + AB/4AAA//AAAP/4AAP//gAH//+AH//////8= + + + \ No newline at end of file diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb new file mode 100644 index 0000000..1a967c3 --- /dev/null +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -0,0 +1,704 @@ +Imports System.Reflection +Imports DocumentFormat.OpenXml.Bibliography +Imports DocumentFormat.OpenXml.Presentation +Imports DocumentFormat.OpenXml.Spreadsheet +Imports VERAG_PROG_ALLGEMEIN + +Public Class frmGesamtsicherheitenNEU + + Public Property gessicherheitID As Integer + Public Property datum As DateTime = Nothing + Property GesSichRef As cGesamtsicherheitsReferenz + Property GesSichPos As cGesamtssicherheitsPositionen + Property Standort As String = "" + + Public ZollsatzMulti As Double = 0 + + Public Saldo As Integer = 0 + + Public Neu As Boolean = False + + Public FilialNummer As Integer + + Public Abfertigungsnummer As String + + Public LKWID As String + + Public warenortID As String + + Dim openopened As cSicherheiten + + Dim closedopened As cSicherheiten + + Dim sicherheiten As cSicherheiten + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) + Dim srcTAG As Date = CDate(Now.ToShortDateString) + + Dim JAHR As Date = CDate("01.01." & Now.Year) + + Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click + + Dim dgv As String = "" + For Each c As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns + dgv &= c.Width & c.HeaderText & vbCrLf + Next + ' MsgBox(dgv) + LoadDGV() + GesSichRef.LOAD() + LoadStandort() + End Sub + + Private Sub frmGesamtsicherheit_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + + If setNullToZero(gessicherheitID) = "" Or Neu = True Then + panOben.Enabled = False : panOben.Enabled = False + panOverlay.Visible = True + cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) + If datum = Nothing Then datum = Date.Now + Else + LoadDGV() + End If + LoadStandort() + cboATR.Enabled = GesSichRef.gsr_ATR + + Me.Text = "Gesamtsicherheit " & Standort + frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitCRN) + End Sub + + + Public Sub LoadDGV() + 'lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString("N") + lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString() + lblGestellungNr.Text = "" + Dim sqladd1 As String = "" + If GesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & GesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust" + If GesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]" + + + Dim addtosqlstring As String = "" + Dim SQLStringMRN As String = "select [gs_gsId], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Open' order by [gs_datum]" + dgvGesamtsicherheitMRN.SET_SQL(SQLStringMRN, "AVISO", ,) + dgvGesamtsicherheitMRN.LOAD() + + Dim SQLStringCRN As String = "select [gs_gsId], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo], [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Close' order by [gs_datum]" + dgvGesamtsicherheitCRN.SET_SQL(SQLStringCRN, "AVISO", ,) + dgvGesamtsicherheitCRN.LOAD() + + Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "'" + Dim dt As New DataTable + dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) + + If dt.Rows.Count > 0 Then + 'Me.GesamtsichNr = dt.Rows(0).Item("GesamtsichNr") + Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr")) + Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr")) + Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort")) + + If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " " + If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " " + If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " " + End If + + + If dgvGesamtsicherheitMRN.Columns.Count > 0 Then + With dgvGesamtsicherheitMRN + .RowHeadersWidth = 10 + .Columns("gs_gsId").Visible = False + .Columns("gs_warenwert").DefaultCellStyle.Format = "c" + .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c" + .Columns("gs_saldo").DefaultCellStyle.Format = "c" + .Columns("gs_saldo").Visible = False + Select Case GesSichRef.gsr_ATR + Case True + .Columns("gs_ATBNr").HeaderText = "ATB" + .Columns("gs_atr").HeaderText = "ATR" + .Columns("gs_atr").Width = 33 + .Columns("gs_ust").Width = 69 + Case Else + .Columns("gs_ATBNr").HeaderText = "CRN" + End Select + .Columns("gs_ATBNr").Width = 146 + + .Columns("gs_posNr").Width = 20 + .Columns("gs_datum").Width = 95 + .Columns("gs_warenwert").Width = 100 + .Columns("gs_saldo").Width = 100 + + .Columns("gs_sicherheitsbetrag").Width = 100 + .Columns("gs_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + End With + ' For Each col As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns + 'col.Width = 120 + 'Next + End If + + If dgvGesamtsicherheitCRN.Columns.Count > 0 Then + With dgvGesamtsicherheitCRN + .RowHeadersWidth = 10 + .Columns("gs_gsId").Visible = False + .Columns("gs_warenwert").DefaultCellStyle.Format = "c" + .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c" + .Columns("gs_saldo").DefaultCellStyle.Format = "c" + .Columns("gs_saldo").Visible = False + Select Case GesSichRef.gsr_ATR + Case True + .Columns("gs_ATBNr").HeaderText = "ATC / MRN" + Case Else + .Columns("gs_ATBNr").HeaderText = "CRN" + End Select + .Columns("gs_ATBNr").Width = 120 + .Columns("gs_datum").Width = 140 + .Columns("gs_warenwert").Width = 100 + .Columns("gs_sicherheitsbetrag").Width = 100 + .Columns("gs_freitext").Width = 220 + End With + 'For Each col As DataGridViewColumn In dgvGesamtsicherheitCRN.Columns + ' col.Width = 120 + 'Next + End If + + + End Sub + + + Public Sub LoadStandort() + 'Dim StandortSqlString As String = "select * from [tblGesamtsicherheitReferenz] where Standort = " & "'" & Standort & "'" + 'Dim dt As New DataTable + 'dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) + 'Zollsatz = dt.Rows(0).Item("Zollsatz") + 'Referenzwert = dt.Rows(0).Item("Referenzwert") + + 'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N") + lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString() + lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%" + ZollsatzMulti = GesSichRef.gsr_zollsatz / 100 + End Sub + + + + 'Private Sub CalcSaldo() + ' Dim SaldoString As String = "select SUM([MRN_Sicherheitsbetrag]) as sumone, SUM([CRN_Sicherheitsbetrag]) As sumtwo from [tblGesamtsicherheit]" + ' Dim dt As New DataTable + ' dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True) + ' Dim mrn As Integer = dt.Rows(0).Item(0) + ' Dim crn As Integer = dt.Rows(0).Item(1) + + ' Saldo = Referenzwert - mrn + crn + + ' lblSaldo.Text = "Saldo: €" & Saldo.ToString("N") + 'End Sub + + + Private Sub Warenwert_TextChanged(sender As Object, e As EventArgs) Handles txtMRNWarenwert.TextChanged, txtCRNWarenwert.TextChanged + Try + Select Case sender.name + Case "txtMRNWarenwert" + txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N") + If GesSichRef.gsr_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.gsr_ust / 100) + Case "txtCRNWarenwert" + txtCRNSicherheitsbetrag.Text = (txtCRNWarenwert.Text * ZollsatzMulti).ToString("N") + End Select + Catch + End Try + End Sub + + Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtMRNWarenwert.KeyPress, txtCRNWarenwert.KeyPress, txtPos.KeyPress + Select Case Asc(e.KeyChar) + Case 48 To 57, 8, 44 + ' Zahlen, Backspace und , zulassen + + Case Else + ' alle anderen Eingaben unterdrücken + e.Handled = True + End Select + End Sub + + Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtCRNDate.KeyPress, txtCRNTime.KeyPress, txtMRNDate.KeyPress, txtMRNTime.KeyPress + Select Case Asc(e.KeyChar) + Case 48 To 57, 8, 46, 58 + ' Zahlen, Backspace, . und : zulassen + + Case Else + ' alle anderen Eingaben unterdrücken + e.Handled = True + End Select + End Sub + + + Private Sub btnSaveOben_Click(sender As Object, e As EventArgs) Handles btnSaveOben.Click + Try + Dim a As Date = Date.ParseExact(txtMRNDate.Text, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Dim b As Date = Date.ParseExact(txtMRNTime.Text, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo) + + Dim ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute) + MsgBox(ab.ToString) + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub txtMRNDate_GotFocus(sender As Object, e As EventArgs) Handles txtMRNDate.GotFocus, txtCRNDate.GotFocus, txtMRNTime.GotFocus, txtCRNTime.GotFocus + Select Case sender.name + Case "txtMRNDate" + If txtMRNDate.Text.Length < 1 Then txtMRNDate.Text = Date.Today.ToString("dd.MM.yyyy") + Case "txtCRNDate" + If txtCRNDate.Text.Length < 1 Then txtCRNDate.Text = Date.Today.ToString("dd.MM.yyyy") + Case "txtMRNTime" + If txtMRNTime.Text.Length < 1 Then txtMRNTime.Text = Date.Now.ToString("HH:mm") + Case "txtCRNTime" + If txtCRNTime.Text.Length < 1 Then txtCRNTime.Text = Date.Now.ToString("HH:mm") + End Select + End Sub + + Private Sub btnAddMRN_Click(sender As Object, e As EventArgs) Handles btnAddOpen.Click + Try + + If Integer.Parse(setNullToZero(txtPos.Text)) > 1 Then + + Dim limit As Integer = Integer.Parse(setNullToZero(txtPos.Text)) + + For count As Integer = 1 To limit + If (count > 1) Then txtMRNWarenwert.Text = 0 + Dim OPENWithMultiplePosNr As New cSicherheiten() + + With OPENWithMultiplePosNr + .gs_ATBNr = txtMRN.Text + .gs_posNr = count + .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) + .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_standort = Me.Standort + .gs_art = "OPEN" + .gs_gsNr = Me.gessicherheitID + .gs_erstellungsdatum = Me.datum + .gs_freitext = Me.txtFreitextOpen.Text + .gs_saldo = GesSichRef.gsr_Saldo + .gs_atr = setNullToZero(cboATR.SelectedItem) + setEnviromentDataToObject(OPENWithMultiplePosNr, Me) + End With + + If Neu = True AndAlso count <= 1 Then OPENWithMultiplePosNr.gs_gsNr = AddNewGesamtSichNr() + + Select Case checkIfExist(OPENWithMultiplePosNr.gs_ATBNr, gessicherheitID) + Case "Neu" + OPENWithMultiplePosNr.SAVE() + Case Else + If (count > 1) Then + OPENWithMultiplePosNr.SAVE() + Else + MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPENWithMultiplePosNr.gs_ATBNr, gessicherheitID) & "eingetragen") : OPENWithMultiplePosNr.SAVE() + End If + + End Select + + Next + + AfterButton() + + Else + + 'Dim OPEN As New cSicherheiten(Me) + Dim OPEN As New cSicherheiten() + + With OPEN + .gs_ATBNr = txtMRN.Text + .gs_posNr = Integer.Parse(setNullToZero(txtPos.Text)) + .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) + .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_standort = Me.Standort + .gs_art = "OPEN" + .gs_gsNr = Me.gessicherheitID + .gs_erstellungsdatum = Me.datum + .gs_freitext = Me.txtFreitextOpen.Text + .gs_saldo = GesSichRef.gsr_Saldo + .gs_atr = setNullToZero(cboATR.SelectedItem) + setEnviromentDataToObject(OPEN, Me) + End With + + + If Neu = True Then OPEN.gs_gsNr = AddNewGesamtSichNr() + + Select Case checkIfExist(OPEN.gs_ATBNr, gessicherheitID) + Case "Neu" + OPEN.SAVE() + Case Else + MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") : OPEN.SAVE() + End Select + + + AfterButton() + + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + Private Sub btnAddCRN_Click(sender As Object, e As EventArgs) Handles btnAddClose.Click + Try + 'Dim Close As New cSicherheiten(Me) + Dim Close As New cSicherheiten() + With Close + .gs_ATBNr = txtCRN.Text + .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) + .gs_warenwert = Integer.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_standort = Me.Standort + .gs_art = "CLOSE" + .gs_gsNr = Me.gessicherheitID + .gs_erstellungsdatum = Me.datum + .gs_freitext = Me.txtFreitextClose.Text + .gs_saldo = GesSichRef.gsr_Saldo + End With + + If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr() + + Select Case checkIfExist(Close.gs_ATBNr, gessicherheitID) + Case "Neu" + Close.SAVE() + Case Else + MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_ATBNr, gessicherheitID) & "eingetragen") : Exit Sub + End Select + + AfterButton() + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Function setNullToZero(s As String, Optional type As String = "") + + If s = "" Then + Dim zero As Double = 0 + + Return zero + Else + Return s + End If + End Function + Sub AfterButton() + GesSichRef.CalcSaldo() + LoadDGV() + EmptyTXT() + End Sub + + Public Function AddNewGesamtSichNr() As Integer + Dim sqlq As String = "select MAX([gs_gsNr]) as MaxGesSich from tblGesamtsicherheit" + Dim dt As New DataTable + dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True) + Dim LetzteGesSichNum As Integer = -1 + If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then + + LetzteGesSichNum = dt.Rows(0).Item(0) + Me.gessicherheitID = LetzteGesSichNum + 1 + Me.Neu = False + + End If + + Return Me.gessicherheitID + End Function + + Public Sub EmptyTXT() + Dim a As New List(Of Windows.Forms.Control) + For Each contr As Windows.Forms.Control In panOben.Controls + If contr.GetType.FullName = "System.Windows.Forms.TextBox" Then contr.Text = "" + Next + cboATR.SelectedItem = Nothing + End Sub + + Public Function checkIfExist(KennnummerStr As String, Optional ByVal lkw As String = "") As String + If lkw = "" And Me.gessicherheitID > 0 Then lkw = gessicherheitID + + Dim SQLString As String = "Select * from [tblGesamtsicherheit] where [gs_ATBNr] = '" & KennnummerStr & "'" + Dim dt As New DataTable + dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True) + If dt.Rows.Count > 0 Then + Return dt.Rows(0).Item("gs_gsNr").ToString + Else + Return "Neu" + End If + End Function + + Public Function DateTimeString2DateTimeKonvertinator(datum As String, uhrzeit As String) As DateTime + Try + Dim a As Date = Date.ParseExact(datum, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Dim b As Date = Date.ParseExact(uhrzeit, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo) + + Dim ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute) + Return ab + Catch ex As Exception + MsgBox(ex.Message) + Return Date.Now + End Try + End Function + + + + Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click, btnSaveOben.Click + + If checkMandatoryFieldsAreFilled() = False Then Exit Sub + + Try + Me.FilialNummer = checkNothingValue(cboFiliale.SelectedItem, "Integer") + Catch + Me.FilialNummer = "0" + End Try + + Try + Me.warenortID = checkNothingValue(cboWarenort.SelectedItem, "String") + + Catch + Me.warenortID = "-" + End Try + + Me.Abfertigungsnummer = txtAbfertNum.Text + Me.LKWID = txtLKWID.Text + + If setNullToZero(Me.gessicherheitID) >= 0 Then + Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialenNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_LKWID] = '" & Me.LKWID & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' " + SQL.doSQL(sqlstring, "AVISO") + LoadDGV() + End If + + panOben.Enabled = True : panOben.Enabled = True + panOverlay.Visible = False + End Sub + + Private Function checkNothingValue(obj As Object, Optional type As String = "String") As Object + Select Case type + Case "String" + If obj Is Nothing Then + Return "" + Else + Return obj.value.ToString + End If + Case "Integer" + If obj Is Nothing Then + Return Nothing + Else + Return Integer.Parse(obj.value) + End If + End Select + + + End Function + + Private Sub dgvGesamtsicherheitMRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitMRN.CellDoubleClick + + Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("gs_gsId").Value) + 'Sicherh.Load(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value) + + txtMRN.Text = Sicherh.gs_ATBNr + txtPos.Text = Sicherh.gs_posNr + txtMRNWarenwert.Text = Sicherh.gs_warenwert + txtFreitextOpen.Text = Sicherh.gs_freitext + cboATR.SelectedItem = Sicherh.gs_atr + txtMRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy") + txtMRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm") + + openopened = Sicherh + + btnAddOpen.Visible = False + btnUpdateOpen.Visible = True + btnDeleteOpen.Visible = True + End Sub + + Private Sub btnUpdateOpen_Click(sender As Object, e As EventArgs) Handles btnUpdateOpen.Click + With openopened + .gs_ATBNr = txtMRN.Text + .gs_posNr = Double.Parse(setNullToZero(txtPos.Text)) + .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) + .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_standort = Me.Standort + .gs_art = "OPEN" + .gs_gsNr = Me.gessicherheitID + '.MakeDate = Me.MakeDate + .gs_freitext = Me.txtFreitextOpen.Text + '.saldo = GesSichRef.Saldo + .gs_atr = setNullToZero(cboATR.SelectedItem) + End With + openopened.SAVE() + btnUpdateOpen.Visible = False + btnAddOpen.Visible = True + btnDeleteOpen.Visible = False + AfterButton() + End Sub + + Private Sub btnDeleteClose_Click(sender As Object, e As EventArgs) Handles btnUpdateClose.Click + With closedopened + .gs_ATBNr = txtCRN.Text + .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) + .gs_warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") + .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") + .gs_standort = Me.Standort + .gs_art = "CLOSE" + .gs_freitext = Me.txtFreitextClose.Text + End With + closedopened.SAVE() + btnAddClose.Visible = True + btnUpdateClose.Visible = False + btnDeleteClose.Visible = False + AfterButton() + End Sub + + Private Sub dgvGesamtsicherheitCRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitCRN.CellDoubleClick + + Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value) + 'Sicherh.Load(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value) + + txtCRN.Text = Sicherh.gs_ATBNr + txtCRNWarenwert.Text = Sicherh.gs_warenwert + txtFreitextClose.Text = Sicherh.gs_freitext + txtCRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy") + txtCRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm") + + closedopened = Sicherh + + btnDeleteClose.Visible = True + btnAddClose.Visible = False + btnUpdateClose.Visible = True + End Sub + + Private Sub btnDeleteOpen_Click(sender As Object, e As EventArgs) Handles btnDeleteOpen.Click + Try + openopened.Delete() + btnUpdateOpen.Visible = False + btnAddOpen.Visible = True + btnDeleteOpen.Visible = False + AfterButton() + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub btnDeleteClose_Click_1(sender As Object, e As EventArgs) Handles btnDeleteClose.Click + Try + closedopened.Delete() + btnUpdateClose.Visible = False + btnAddClose.Visible = True + btnDeleteClose.Visible = False + AfterButton() + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Sub + + Private Sub lblGestellungNr_Click(sender As Object, e As EventArgs) Handles lblGestellungNr.DoubleClick + panOverlay.Visible = True + cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer) + cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True) + cboWarenort.SelectedIndex = cboWarenort.FindString(Me.warenortID) + txtAbfertNum.Text = Me.Abfertigungsnummer + txtLKWID.Text = Me.LKWID + panOben.Enabled = False + End Sub + + Private Sub btnClosePanOverlay_Click(sender As Object, e As EventArgs) Handles btnClosePanOverlay.Click + Close() + End Sub + + Private Function checkMandatoryFieldsAreFilled() As Boolean + Dim isFilled = True + + If cboWarenort._value = Nothing Or cboWarenort._value = "" Then + + MsgBox("Bitte Warenort angeben!") + isFilled = False + End If + + Return isFilled + + End Function + + Private Sub setEnviromentDataToObject(sicherheiten As cSicherheiten, Optional ByVal gessich As frmGesamtsicherheitenNEU = Nothing) + + sicherheiten.gs_filialenNr = gessich.FilialNummer + sicherheiten.gs_abfertigungsnr = gessich.Abfertigungsnummer + sicherheiten.gs_LKWID = gessich.LKWID + sicherheiten.gs_warenort = gessich.warenortID + End Sub + + Private Sub ClosedErzeugenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClosedErzeugenToolStripMenuItem.Click + MsgBox("") + End Sub + Sub initBtns(MonatJahr) + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + Select Case MonatJahr + Case "Monat" + DateTimePicker1.Value = MONAT + DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1) + Case "Jahr" + ' If cbxGeschaftsjahr.Checked Then + 'DateTimePicker1.Value = JAHR.AddMonths(1) + ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1) + ' Else + DateTimePicker1.Value = JAHR + DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1) + 'End If + Case "Tag" + ' If cbxGeschaftsjahr.Checked Then + 'DateTimePicker1.Value = JAHR.AddMonths(1) + ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1) + ' Else + DateTimePicker1.Value = srcTAG + DateTimePicker2.Value = srcTAG + If srcTAG = Now.ToShortDateString Then + Button5.Text = "Heute" + ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then + Button5.Text = "Gestern" + ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then + Button5.Text = "Vorgestern" + Else + Button5.Text = srcTAG.ToString("dd.MM") + End If + + 'End If + Case "" + DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year) + DateTimePicker2.Value = Now + End Select + + End Sub + + + Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click + initBtns("Jahr") + End Sub + + Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click + MONAT = MONAT.AddMonths(1) + initBtns("Monat") + End Sub + + Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click + MONAT = MONAT.AddMonths(-1) + initBtns("Monat") + End Sub + + Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click + JAHR = JAHR.AddYears(1) + initBtns("Jahr") + End Sub + + Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged + txtDatVon._value = CDate(sender.value).ToShortDateString + End Sub + + Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged + txtDatBis._value = CDate(sender.value).ToShortDateString + End Sub + + +End Class + diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index c47af49..3c5a621 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -3992,25 +3992,25 @@ Public Class frmHauptfenster End Sub Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragAGToolStripMenuItem.Click - Dim frm As New frmGesSichMenu + Dim frm As New frmGesamtsicherheitenMenu frm.Standort = "VERAG AG" frm.Show() End Sub Private Sub DEGesamtsicherheitVeragGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEGesamtsicherheitVeragGmbHToolStripMenuItem.Click - Dim frm As New frmGesSichMenu + Dim frm As New frmGesamtsicherheitenMenu frm.Standort = "Verag GmbH" frm.Show() End Sub Private Sub ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Click - Dim frm As New frmGesSichMenu + Dim frm As New frmGesamtsicherheitenMenu frm.Standort = "IMEX" frm.Show() End Sub Private Sub ATGesamtsicherheitVeragCSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragCSToolStripMenuItem.Click - Dim frm As New frmGesSichMenu + Dim frm As New frmGesamtsicherheitenMenu frm.Standort = "Verag CS" frm.Show() End Sub diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb index 5fa9ab7..f09d37b 100644 --- a/Aviso/frmSendungsdetailsNEU.Designer.vb +++ b/Aviso/frmSendungsdetailsNEU.Designer.vb @@ -114,9 +114,9 @@ Partial Class frmSendungsdetailsNEU Me.pnlDetails = New System.Windows.Forms.Panel() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage4 = New System.Windows.Forms.TabPage() - Me.Button18 = New System.Windows.Forms.Button() - Me.txtFrachtkostenGesamt = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label10 = New System.Windows.Forms.Label() + Me.btn_FrachtkostenBerechnen = New System.Windows.Forms.Button() + Me.txtFrachtkostenGesamt = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label6 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.txtFrachtkostenNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -1503,7 +1503,7 @@ Partial Class frmSendungsdetailsNEU 'TabPage4 ' Me.TabPage4.Controls.Add(Me.Label10) - Me.TabPage4.Controls.Add(Me.Button18) + Me.TabPage4.Controls.Add(Me.btn_FrachtkostenBerechnen) Me.TabPage4.Controls.Add(Me.txtFrachtkostenGesamt) Me.TabPage4.Controls.Add(Me.Label6) Me.TabPage4.Controls.Add(Me.Label1) @@ -1543,15 +1543,25 @@ Partial Class frmSendungsdetailsNEU Me.TabPage4.Text = "Aktendeckel" Me.TabPage4.UseVisualStyleBackColor = True ' - 'Button18 + 'Label10 ' - Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button18.Location = New System.Drawing.Point(269, 76) - Me.Button18.Name = "Button18" - Me.Button18.Size = New System.Drawing.Size(156, 21) - Me.Button18.TabIndex = 60 - Me.Button18.Text = "berechnen" - Me.Button18.UseVisualStyleBackColor = True + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.Label10.Location = New System.Drawing.Point(383, 43) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(43, 13) + Me.Label10.TabIndex = 62 + Me.Label10.Text = "Gesamt" + ' + 'btn_FrachtkostenBerechnen + ' + Me.btn_FrachtkostenBerechnen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_FrachtkostenBerechnen.Location = New System.Drawing.Point(269, 76) + Me.btn_FrachtkostenBerechnen.Name = "btn_FrachtkostenBerechnen" + Me.btn_FrachtkostenBerechnen.Size = New System.Drawing.Size(156, 21) + Me.btn_FrachtkostenBerechnen.TabIndex = 60 + Me.btn_FrachtkostenBerechnen.Text = "berechnen" + Me.btn_FrachtkostenBerechnen.UseVisualStyleBackColor = True ' 'txtFrachtkostenGesamt ' @@ -1577,16 +1587,6 @@ Partial Class frmSendungsdetailsNEU Me.txtFrachtkostenGesamt.TabIndex = 61 Me.txtFrachtkostenGesamt.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'Label10 - ' - Me.Label10.AutoSize = True - Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label10.Location = New System.Drawing.Point(383, 43) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(43, 13) - Me.Label10.TabIndex = 62 - Me.Label10.Text = "Gesamt" - ' 'Label6 ' Me.Label6.AutoSize = True @@ -5570,7 +5570,7 @@ Partial Class frmSendungsdetailsNEU Friend WithEvents txtFrachtkostenNichtEU As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label6 As Label Friend WithEvents Label7 As Label - Friend WithEvents Button18 As Button + Friend WithEvents btn_FrachtkostenBerechnen As Button Friend WithEvents txtFrachtkostenGesamt As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label10 As Label End Class diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index d438610..6607067 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -5377,11 +5377,12 @@ Public Class frmSendungsdetailsNEU If frachkosten.ShowDialog() = DialogResult.OK Then txtFrachtkostenEU._value = frachkosten.EUAnteil txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil + txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value End If End Sub - Private Sub Button18_Click_1(sender As Object, e As EventArgs) Handles Button18.Click + Private Sub btn_FrachtkostenBerechnen_Click(sender As Object, e As EventArgs) Handles btn_FrachtkostenBerechnen.Click If txtFrachtkostenGesamt.Text = "" AndAlso txtGewicht.Text = "" Then MsgBox("Bitte Gewicht oder Gesamtfrachtkosten angeben!")