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

Feature_Refactoring Gesamtsicherheiten

Browse Source
This commit is contained in:
d.breimaier
2022-10-17 17:43:30 +02:00
parent 8f213f0789
commit 1b0c272c32
6 changed files with 296 additions and 206 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Aviso/frmGesamtsicherheiten.Designer.vb generated
View File

@@ -834,6 +834,7 @@ Partial Class frmGesamtsicherheiten
Me.MaximumSize = New System.Drawing.Size(1400, 815) Me.MaximumSize = New System.Drawing.Size(1400, 815)
Me.MinimumSize = New System.Drawing.Size(1400, 815) Me.MinimumSize = New System.Drawing.Size(1400, 815)
Me.Name = "frmGesamtsicherheiten" Me.Name = "frmGesamtsicherheiten"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmGesSich" Me.Text = "frmGesSich"
CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False) Me.Panel2.ResumeLayout(False)

381
Aviso/frmGesamtsicherheiten.vb
View File

@@ -53,7 +53,7 @@ Public Class frmGesamtsicherheiten
LoadDGV() LoadDGV()
End If End If
LoadStandort() LoadStandort()
cboATR.Enabled = GesSichRef.ATR cboATR.Enabled = GesSichRef.gsr_ATR
Me.Text = "Gesamtsicherheit " & Standort Me.Text = "Gesamtsicherheit " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitCRN) frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitCRN)
@@ -61,62 +61,65 @@ Public Class frmGesamtsicherheiten
Public Sub LoadDGV() Public Sub LoadDGV()
lblSaldo.Text = "Saldo: € " & GesSichRef.Saldo.ToString("N") 'lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString("N")
lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString()
lblGestellungNr.Text = "" lblGestellungNr.Text = ""
Dim sqladd1 As String = "" Dim sqladd1 As String = ""
If GesSichRef.UstEnabled Then sqladd1 &= ", FORMAT(((Warenwert + Sicherheitsbetrag) * " & GesSichRef.Ust & "/100), 'C', 'de-DE') as Ust" If GesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & GesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust"
If GesSichRef.ATR Then sqladd1 &= ", ATRJN" If GesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]"
Dim addtosqlstring As String = "" Dim addtosqlstring As String = ""
Dim SQLStringMRN As String = "select GesamtSichID, Kennnummer, PosNr, DateTime, Warenwert, Sicherheitsbetrag, Saldo " & sqladd1 & " , Freitext from [tblGesamtsicherheit] where GesamtsichNr = '" & gessicherheitID & "' and Art = 'Open' order by DateTime" Dim SQLStringMRN As String = "select [gs_gsId], [gs_kennNr], [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.SET_SQL(SQLStringMRN, "AVISO", ,)
dgvGesamtsicherheitMRN.LOAD() dgvGesamtsicherheitMRN.LOAD()
Dim SQLStringCRN As String = "select GesamtSichID, Kennnummer, DateTime, Warenwert, Sicherheitsbetrag, Saldo, Freitext from [tblGesamtsicherheit] where GesamtsichNr = '" & gessicherheitID & "' and Art = 'Close' order by DateTime" Dim SQLStringCRN As String = "select [gs_gsId], [gs_kennNr], [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.SET_SQL(SQLStringCRN, "AVISO", ,)
dgvGesamtsicherheitCRN.LOAD() dgvGesamtsicherheitCRN.LOAD()
Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where GesamtsichNr = '" & gessicherheitID & "'" Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "'"
Dim dt As New DataTable Dim dt As New DataTable
dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True) dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)
If dt.Rows.Count > 0 Then If dt.Rows.Count > 0 Then
'Me.GesamtsichNr = dt.Rows(0).Item("GesamtsichNr") 'Me.GesamtsichNr = dt.Rows(0).Item("GesamtsichNr")
Me.FilialNummer = dt.Rows(0).Item("FilialNummer") Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialNr"))
Me.Abfertigungsnummer = dt.Rows(0).Item("Abfertigungsnummer") 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.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " "
If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "Abfertigungsnummer: " & Me.Abfertigungsnummer If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " "
If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " "
End If End If
If dgvGesamtsicherheitMRN.Columns.Count > 0 Then If dgvGesamtsicherheitMRN.Columns.Count > 0 Then
With dgvGesamtsicherheitMRN With dgvGesamtsicherheitMRN
.RowHeadersWidth = 10 .RowHeadersWidth = 10
.Columns("GesamtSichID").Visible = False .Columns("gs_gsId").Visible = False
.Columns("Warenwert").DefaultCellStyle.Format = "c" .Columns("gs_warenwert").DefaultCellStyle.Format = "c"
.Columns("Sicherheitsbetrag").DefaultCellStyle.Format = "c" .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
.Columns("Saldo").DefaultCellStyle.Format = "c" .Columns("gs_saldo").DefaultCellStyle.Format = "c"
.Columns("Saldo").Visible = False .Columns("gs_saldo").Visible = False
Select Case GesSichRef.ATR Select Case GesSichRef.gsr_ATR
Case True Case True
.Columns("Kennnummer").HeaderText = "ATB" .Columns("gs_kennNr").HeaderText = "ATB"
.Columns("AtrJN").HeaderText = "ATR" .Columns("gs_atr").HeaderText = "ATR"
.Columns("AtrJN").Width = 33 .Columns("gs_atr").Width = 33
.Columns("Ust").Width = 69 .Columns("gs_ust").Width = 69
Case Else Case Else
.Columns("Kennnummer").HeaderText = "CRN" .Columns("gs_kennNr").HeaderText = "CRN"
End Select End Select
.Columns("Kennnummer").Width = 146 .Columns("gs_kennNr").Width = 146
.Columns("PosNr").Width = 20 .Columns("gs_posNr").Width = 20
.Columns("DateTime").Width = 95 .Columns("gs_datum").Width = 95
.Columns("Warenwert").Width = 100 .Columns("gs_warenwert").Width = 100
.Columns("Saldo").Width = 100 .Columns("gs_saldo").Width = 100
.Columns("Sicherheitsbetrag").Width = 100 .Columns("gs_sicherheitsbetrag").Width = 100
.Columns("Freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("gs_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End With End With
' For Each col As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns ' For Each col As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns
'col.Width = 120 'col.Width = 120
@@ -126,22 +129,22 @@ Public Class frmGesamtsicherheiten
If dgvGesamtsicherheitCRN.Columns.Count > 0 Then If dgvGesamtsicherheitCRN.Columns.Count > 0 Then
With dgvGesamtsicherheitCRN With dgvGesamtsicherheitCRN
.RowHeadersWidth = 10 .RowHeadersWidth = 10
.Columns("GesamtSichID").Visible = False .Columns("gs_gsId").Visible = False
.Columns("Warenwert").DefaultCellStyle.Format = "c" .Columns("gs_warenwert").DefaultCellStyle.Format = "c"
.Columns("Sicherheitsbetrag").DefaultCellStyle.Format = "c" .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
.Columns("Saldo").DefaultCellStyle.Format = "c" .Columns("gs_saldo").DefaultCellStyle.Format = "c"
.Columns("Saldo").Visible = False .Columns("gs_saldo").Visible = False
Select Case GesSichRef.ATR Select Case GesSichRef.gsr_ATR
Case True Case True
.Columns("Kennnummer").HeaderText = "ATC / MRN" .Columns("gs_kennNr").HeaderText = "ATC / MRN"
Case Else Case Else
.Columns("Kennnummer").HeaderText = "CRN" .Columns("gs_kennNr").HeaderText = "CRN"
End Select End Select
.Columns("Kennnummer").Width = 120 .Columns("gs_kennNr").Width = 120
.Columns("DateTime").Width = 140 .Columns("gs_datum").Width = 140
.Columns("Warenwert").Width = 100 .Columns("gs_warenwert").Width = 100
.Columns("Sicherheitsbetrag").Width = 100 .Columns("gs_sicherheitsbetrag").Width = 100
.Columns("Freitext").Width = 220 .Columns("gs_freitext").Width = 220
End With End With
'For Each col As DataGridViewColumn In dgvGesamtsicherheitCRN.Columns 'For Each col As DataGridViewColumn In dgvGesamtsicherheitCRN.Columns
' col.Width = 120 ' col.Width = 120
@@ -159,9 +162,10 @@ Public Class frmGesamtsicherheiten
'Zollsatz = dt.Rows(0).Item("Zollsatz") 'Zollsatz = dt.Rows(0).Item("Zollsatz")
'Referenzwert = dt.Rows(0).Item("Referenzwert") 'Referenzwert = dt.Rows(0).Item("Referenzwert")
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.Referenzwert.ToString("N") 'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
lblZollsatz.Text = "Zollsatz: " & GesSichRef.Zollsatz & "%" lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
ZollsatzMulti = GesSichRef.Zollsatz / 100 lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
ZollsatzMulti = GesSichRef.gsr_zollsatz / 100
End Sub End Sub
@@ -184,7 +188,7 @@ Public Class frmGesamtsicherheiten
Select Case sender.name Select Case sender.name
Case "txtMRNWarenwert" Case "txtMRNWarenwert"
txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N") txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N")
If GesSichRef.UstEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.Ust / 100) If GesSichRef.gsr_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.gsr_ust / 100)
Case "txtCRNWarenwert" Case "txtCRNWarenwert"
txtCRNSicherheitsbetrag.Text = (txtCRNWarenwert.Text * ZollsatzMulti).ToString("N") txtCRNSicherheitsbetrag.Text = (txtCRNWarenwert.Text * ZollsatzMulti).ToString("N")
End Select End Select
@@ -243,60 +247,105 @@ Public Class frmGesamtsicherheiten
Private Sub btnAddMRN_Click(sender As Object, e As EventArgs) Handles btnAddOpen.Click Private Sub btnAddMRN_Click(sender As Object, e As EventArgs) Handles btnAddOpen.Click
Try Try
Dim OPEN As New cSicherheiten(Me) If Integer.Parse(setNullToZero(txtPos.Text)) > 1 Then
Dim limit As Integer = Integer.Parse(setNullToZero(txtPos.Text))
For count As Integer = 1 To limit
Dim OPENNew As New cSicherheiten()
setEnviromentDataToObject(OPENNew, Me)
With OPENNew
.gs_kennNr = 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)
End With
If Neu = True Then OPENNew.gs_gsNr = AddNewGesamtSichNr()
Select Case checkIfExist(OPENNew.gs_kennNr, gessicherheitID)
Case "Neu"
OPENNew.SAVE()
Case Else
MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPENNew.gs_kennNr, gessicherheitID) & "eingetragen") : OPENNew.SAVE()
End Select
'AfterButton()
Next
End If
'Dim OPEN As New cSicherheiten(Me)
Dim OPEN As New cSicherheiten()
setEnviromentDataToObject(OPEN, Me)
With OPEN With OPEN
.Kennnummer = txtMRN.Text .gs_kennNr = txtMRN.Text
.PosNr = Double.Parse(setNullToZero(txtPos.Text)) .gs_posNr = Integer.Parse(setNullToZero(txtPos.Text))
.datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
.Warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.Sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.standort = Me.Standort .gs_standort = Me.Standort
.Art = "OPEN" .gs_art = "OPEN"
.GesamtsichNr = Me.gessicherheitID .gs_gsNr = Me.gessicherheitID
.erstellungsdatum = Me.datum .gs_erstellungsdatum = Me.datum
.Freitext = Me.txtFreitextOpen.Text .gs_freitext = Me.txtFreitextOpen.Text
.saldo = GesSichRef.Saldo .gs_saldo = GesSichRef.gsr_Saldo
.isATR = setNullToZero(cboATR.SelectedItem) .gs_atr = setNullToZero(cboATR.SelectedItem)
End With End With
If Neu = True Then OPEN.GesamtsichNr = AddNewGesamtSichNr()
Select Case checkIfExist(OPEN.Kennnummer, gessicherheitID) If Neu = True Then OPEN.gs_gsNr = AddNewGesamtSichNr()
Select Case checkIfExist(OPEN.gs_kennNr, gessicherheitID)
Case "Neu" Case "Neu"
OPEN.Save() OPEN.SAVE()
Case Else Case Else
MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.Kennnummer, gessicherheitID) & "eingetragen") : OPEN.Save() MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_kennNr, gessicherheitID) & "eingetragen") : OPEN.SAVE()
End Select End Select
AfterButton() AfterButton()
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
Private Sub btnAddCRN_Click(sender As Object, e As EventArgs) Handles btnAddClose.Click Private Sub btnAddCRN_Click(sender As Object, e As EventArgs) Handles btnAddClose.Click
Try Try
Dim Close As New cSicherheiten(Me) 'Dim Close As New cSicherheiten(Me)
Dim Close As New cSicherheiten()
With Close With Close
.Kennnummer = txtCRN.Text .gs_kennNr = txtCRN.Text
.datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text)
.Warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") .gs_warenwert = Integer.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.Sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.standort = Me.Standort .gs_standort = Me.Standort
.Art = "Close" .gs_art = "CLOSE"
.GesamtsichNr = Me.gessicherheitID .gs_gsNr = Me.gessicherheitID
.erstellungsdatum = Me.datum .gs_erstellungsdatum = Me.datum
.Freitext = Me.txtFreitextClose.Text .gs_freitext = Me.txtFreitextClose.Text
.saldo = GesSichRef.Saldo .gs_saldo = GesSichRef.gsr_Saldo
End With End With
If Neu = True Then Close.GesamtsichNr = AddNewGesamtSichNr() If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr()
Select Case checkIfExist(Close.Kennnummer, gessicherheitID) Select Case checkIfExist(Close.gs_kennNr, gessicherheitID)
Case "Neu" Case "Neu"
Close.Save() Close.SAVE()
Case Else Case Else
MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.Kennnummer, gessicherheitID) & "eingetragen") : Exit Sub MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_kennNr, gessicherheitID) & "eingetragen") : Exit Sub
End Select End Select
AfterButton() AfterButton()
@@ -315,19 +364,25 @@ Public Class frmGesamtsicherheiten
Return s Return s
End If End If
End Function End Function
Function AfterButton() Sub AfterButton()
GesSichRef.CalcSaldo() GesSichRef.CalcSaldo()
LoadDGV() LoadDGV()
EmptyTXT() EmptyTXT()
End Function End Sub
Public Function AddNewGesamtSichNr() As Integer Public Function AddNewGesamtSichNr() As Integer
Dim sqlq As String = "select MAX([GesamtsichNr]) as MaxGesSich from tblGesamtsicherheit" Dim sqlq As String = "select MAX([gs_gsNr]) as MaxGesSich from tblGesamtsicherheit"
Dim dt As New DataTable Dim dt As New DataTable
dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True) dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True)
Dim LetzteGesSichNum As Integer = dt.Rows(0).Item(0) Dim LetzteGesSichNum As Integer = -1
Me.gessicherheitID = LetzteGesSichNum + 1 If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then
Me.Neu = False
LetzteGesSichNum = dt.Rows(0).Item(0)
Me.gessicherheitID = LetzteGesSichNum + 1
Me.Neu = False
End If
Return Me.gessicherheitID Return Me.gessicherheitID
End Function End Function
@@ -339,14 +394,14 @@ Public Class frmGesamtsicherheiten
cboATR.SelectedItem = Nothing cboATR.SelectedItem = Nothing
End Sub End Sub
Public Function checkIfExist(KennnummerStr As String, Optional ByVal lkw As String = "") Public Function checkIfExist(KennnummerStr As String, Optional ByVal lkw As String = "") As String
If lkw = "" And Me.gessicherheitID > 0 Then lkw = gessicherheitID If lkw = "" And Me.gessicherheitID > 0 Then lkw = gessicherheitID
Dim SQLString As String = "Select * from [tblGesamtsicherheit] where Kennnummer = '" & KennnummerStr & "'" Dim SQLString As String = "Select * from [tblGesamtsicherheit] where [gs_kennNr] = '" & KennnummerStr & "'"
Dim dt As New DataTable Dim dt As New DataTable
dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True) dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
If dt.Rows.Count > 0 Then If dt.Rows.Count > 0 Then
Return dt.Rows(0).Item("GesamtsichNr").ToString Return dt.Rows(0).Item("gs_gsNr").ToString
Else Else
Return "Neu" Return "Neu"
End If End If
@@ -369,24 +424,26 @@ Public Class frmGesamtsicherheiten
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click, btnSaveOben.Click Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click, btnSaveOben.Click
If checkMandatoryFieldsAreFilled() = False Then Exit Sub
Try Try
Me.FilialNummer = checkNothingValue(cboFiliale.SelectedItem, "Integer") Me.FilialNummer = checkNothingValue(cboFiliale.SelectedItem, "Integer")
Catch Catch
Me.FilialNummer = "0" Me.FilialNummer = "0"
End Try End Try
If checkNothingValue(cboWarenort.SelectedItem, "String") Then Try
Me.warenortID = checkNothingValue(cboWarenort.SelectedItem, "String")
Me.warenortID = cboWarenort.SelectedItem Catch
Else Me.warenortID = "-"
Me.warenortID = "" End Try
End If
Me.Abfertigungsnummer = txtAbfertNum.Text Me.Abfertigungsnummer = txtAbfertNum.Text
Me.LKWID = txtLKWID.Text Me.LKWID = txtLKWID.Text
If setNullToZero(Me.gessicherheitID) > 0 Then If setNullToZero(Me.gessicherheitID) >= 0 Then
Dim sqlstring = "Update [tblGesamtsicherheit] set FilialNummer = '" & Me.FilialNummer & "', Abfertigungsnummer = '" & Me.Abfertigungsnummer & "', LKWID = '" & Me.LKWID & "' WHERE GesamtSichNr = '" & Me.gessicherheitID & "' " Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_LKWID] = '" & Me.LKWID & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' "
SQL.doSQL(sqlstring, "AVISO") SQL.doSQL(sqlstring, "AVISO")
LoadDGV() LoadDGV()
End If End If
@@ -395,7 +452,7 @@ Public Class frmGesamtsicherheiten
panOverlay.Visible = False panOverlay.Visible = False
End Sub End Sub
Private Function checkNothingValue(obj As Object, Optional type As String = "String") Private Function checkNothingValue(obj As Object, Optional type As String = "String") As Object
Select Case type Select Case type
Case "String" Case "String"
If obj Is Nothing Then If obj Is Nothing Then
@@ -419,13 +476,13 @@ Public Class frmGesamtsicherheiten
Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value) Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value)
'Sicherh.Load(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value) 'Sicherh.Load(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value)
txtMRN.Text = Sicherh.Kennnummer txtMRN.Text = Sicherh.gs_kennNr
txtPos.Text = Sicherh.PosNr txtPos.Text = Sicherh.gs_posNr
txtMRNWarenwert.Text = Sicherh.Warenwert txtMRNWarenwert.Text = Sicherh.gs_warenwert
txtFreitextOpen.Text = Sicherh.freitext txtFreitextOpen.Text = Sicherh.gs_freitext
cboATR.SelectedItem = Sicherh.isATR cboATR.SelectedItem = Sicherh.gs_atr
txtMRNDate.Text = Sicherh.datum.ToString("dd.MM.yyyy") txtMRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy")
txtMRNTime.Text = Sicherh.datum.ToString("HH:mm") txtMRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm")
openopened = Sicherh openopened = Sicherh
@@ -436,18 +493,18 @@ Public Class frmGesamtsicherheiten
Private Sub btnUpdateOpen_Click(sender As Object, e As EventArgs) Handles btnUpdateOpen.Click Private Sub btnUpdateOpen_Click(sender As Object, e As EventArgs) Handles btnUpdateOpen.Click
With openopened With openopened
.Kennnummer = txtMRN.Text .gs_kennNr = txtMRN.Text
.PosNr = Double.Parse(setNullToZero(txtPos.Text)) .gs_posNr = Double.Parse(setNullToZero(txtPos.Text))
.datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text) .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
.Warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.Sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.standort = Me.Standort .gs_standort = Me.Standort
.Art = "OPEN" .gs_art = "OPEN"
.GesamtsichNr = Me.gessicherheitID .gs_gsNr = Me.gessicherheitID
'.MakeDate = Me.MakeDate '.MakeDate = Me.MakeDate
.Freitext = Me.txtFreitextOpen.Text .gs_freitext = Me.txtFreitextOpen.Text
'.saldo = GesSichRef.Saldo '.saldo = GesSichRef.Saldo
.isATR = setNullToZero(cboATR.SelectedItem) .gs_atr = setNullToZero(cboATR.SelectedItem)
End With End With
openopened.Save() openopened.Save()
btnUpdateOpen.Visible = False btnUpdateOpen.Visible = False
@@ -458,13 +515,13 @@ Public Class frmGesamtsicherheiten
Private Sub btnDeleteClose_Click(sender As Object, e As EventArgs) Handles btnUpdateClose.Click Private Sub btnDeleteClose_Click(sender As Object, e As EventArgs) Handles btnUpdateClose.Click
With closedopened With closedopened
.Kennnummer = txtCRN.Text .gs_kennNr = txtCRN.Text
.datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text) .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text)
.Warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".") .gs_warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
.Sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".") .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
.standort = Me.Standort .gs_standort = Me.Standort
.Art = "Close" .gs_art = "CLOSE"
.Freitext = Me.txtFreitextClose.Text .gs_freitext = Me.txtFreitextClose.Text
End With End With
closedopened.Save() closedopened.Save()
btnAddClose.Visible = True btnAddClose.Visible = True
@@ -478,11 +535,11 @@ Public Class frmGesamtsicherheiten
Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value) Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value)
'Sicherh.Load(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value) 'Sicherh.Load(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value)
txtCRN.Text = Sicherh.Kennnummer txtCRN.Text = Sicherh.gs_kennNr
txtCRNWarenwert.Text = Sicherh.Warenwert txtCRNWarenwert.Text = Sicherh.gs_warenwert
txtFreitextClose.Text = Sicherh.freitext txtFreitextClose.Text = Sicherh.gs_freitext
txtCRNDate.Text = Sicherh.datum.ToString("dd.MM.yyyy") txtCRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy")
txtCRNTime.Text = Sicherh.datum.ToString("HH:mm") txtCRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm")
closedopened = Sicherh closedopened = Sicherh
@@ -519,6 +576,8 @@ Public Class frmGesamtsicherheiten
panOverlay.Visible = True 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.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) 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 txtAbfertNum.Text = Me.Abfertigungsnummer
txtLKWID.Text = Me.LKWID txtLKWID.Text = Me.LKWID
panOben.Enabled = False panOben.Enabled = False
@@ -527,6 +586,30 @@ Public Class frmGesamtsicherheiten
Private Sub btnClosePanOverlay_Click(sender As Object, e As EventArgs) Handles btnClosePanOverlay.Click Private Sub btnClosePanOverlay_Click(sender As Object, e As EventArgs) Handles btnClosePanOverlay.Click
Close() Close()
End Sub 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_filialNr = gessich.FilialNummer
sicherheiten.gs_abfertigungsnr = gessich.Abfertigungsnummer
sicherheiten.gs_LKWID = gessich.LKWID
sicherheiten.gs_warenort = gessich.warenortID
sicherheiten.SAVE()
End Sub
End Class End Class
'Public Class cSicherheit 'Public Class cSicherheit
@@ -630,29 +713,29 @@ End Class
'End Class 'End Class
'Public Class SQLEintraege Public Class SQLEintraege
' Property Spalte As String Property Spalte As String
' Property Wert As String Property Wert As String
' Public Sub New(_Spalte As String, _Wert As String) Public Sub New(_Spalte As String, _Wert As String)
' Spalte = _Spalte Spalte = _Spalte
' Wert = _Wert Wert = _Wert
' End Sub End Sub
' Public Shared Function LoadEntities(Obj As Object, dt As DataTable) As Object Public Shared Function LoadEntities(Obj As Object, dt As DataTable) As Object
' Try Try
' For Each prop As PropertyInfo In Obj.GetType().GetProperties() 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) 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 If dt.Rows(0).Item(prop.Name).GetType Is GetType(Decimal) Then
' prop.SetValue(Obj, Double.Parse(dt.Rows(0).Item(prop.Name))) prop.SetValue(Obj, Double.Parse(dt.Rows(0).Item(prop.Name)))
' Else Else
' prop.SetValue(Obj, dt.Rows(0).Item(prop.Name)) prop.SetValue(Obj, dt.Rows(0).Item(prop.Name))
' End If End If
' End If End If
' Next Next
' Return Obj Return Obj
' Catch ex As Exception Catch ex As Exception
' MsgBox(ex.Message) MsgBox(ex.Message)
' End Try End Try
' End Function End Function
'End Class End Class

17
Aviso/frmGesamtsicherheitenMenu.Designer.vb generated
View File

@@ -116,10 +116,12 @@ Partial Class frmGesamtsicherheitenMenu
Me.txtbis._DateTimeOnly = False Me.txtbis._DateTimeOnly = False
Me.txtbis._numbersOnly = False Me.txtbis._numbersOnly = False
Me.txtbis._numbersOnlyKommastellen = "" Me.txtbis._numbersOnlyKommastellen = ""
Me.txtbis._numbersOnlyTrennzeichen = True
Me.txtbis._Prozent = False Me.txtbis._Prozent = False
Me.txtbis._ShortDateNew = False Me.txtbis._ShortDateNew = False
Me.txtbis._ShortDateOnly = False Me.txtbis._ShortDateOnly = False
Me.txtbis._TimeOnly = False Me.txtbis._TimeOnly = False
Me.txtbis._TimeOnly_Seconds = False
Me.txtbis._value = "" Me.txtbis._value = ""
Me.txtbis._Waehrung = False Me.txtbis._Waehrung = False
Me.txtbis._WaehrungZeichen = True Me.txtbis._WaehrungZeichen = True
@@ -137,10 +139,12 @@ Partial Class frmGesamtsicherheitenMenu
Me.txtVon._DateTimeOnly = False Me.txtVon._DateTimeOnly = False
Me.txtVon._numbersOnly = False Me.txtVon._numbersOnly = False
Me.txtVon._numbersOnlyKommastellen = "" Me.txtVon._numbersOnlyKommastellen = ""
Me.txtVon._numbersOnlyTrennzeichen = True
Me.txtVon._Prozent = False Me.txtVon._Prozent = False
Me.txtVon._ShortDateNew = False Me.txtVon._ShortDateNew = False
Me.txtVon._ShortDateOnly = False Me.txtVon._ShortDateOnly = False
Me.txtVon._TimeOnly = False Me.txtVon._TimeOnly = False
Me.txtVon._TimeOnly_Seconds = False
Me.txtVon._value = "" Me.txtVon._value = ""
Me.txtVon._Waehrung = False Me.txtVon._Waehrung = False
Me.txtVon._WaehrungZeichen = True Me.txtVon._WaehrungZeichen = True
@@ -257,7 +261,7 @@ Partial Class frmGesamtsicherheitenMenu
Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew
Me.lblZollsatz.Location = New System.Drawing.Point(295, 86) Me.lblZollsatz.Location = New System.Drawing.Point(295, 86)
Me.lblZollsatz.Name = "lblZollsatz" 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.TabIndex = 9
Me.lblZollsatz.Text = "Zollsatz: 12%" Me.lblZollsatz.Text = "Zollsatz: 12%"
' '
@@ -269,7 +273,7 @@ Partial Class frmGesamtsicherheitenMenu
Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew
Me.lblReferenzwert.Location = New System.Drawing.Point(295, 59) Me.lblReferenzwert.Location = New System.Drawing.Point(295, 59)
Me.lblReferenzwert.Name = "lblReferenzwert" 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.TabIndex = 6
Me.lblReferenzwert.Text = "Referenzwert: €80.000" Me.lblReferenzwert.Text = "Referenzwert: €80.000"
' '
@@ -277,15 +281,15 @@ Partial Class frmGesamtsicherheitenMenu
' '
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem}) Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(132, 26) Me.ContextMenuStrip1.Size = New System.Drawing.Size(133, 26)
' '
'ExportCSVToolStripMenuItem 'ExportCSVToolStripMenuItem
' '
Me.ExportCSVToolStripMenuItem.Name = "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" Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
' '
'frmGesSichMenu 'frmGesamtsicherheitenMenu
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -295,7 +299,8 @@ Partial Class frmGesamtsicherheitenMenu
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximumSize = New System.Drawing.Size(800, 760) Me.MaximumSize = New System.Drawing.Size(800, 760)
Me.MinimumSize = New System.Drawing.Size(499, 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" Me.Text = "frmGesSichMenu"
CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)

57
Aviso/frmGesamtsicherheitenMenu.vb
View File

@@ -16,7 +16,7 @@ Public Class frmGesamtsicherheitenMenu
Private Sub frmGesamtsicherheiten_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmGesamtsicherheiten_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = "Gesamtsicherheiten " & Standort Me.Text = "Gesamtsicherheiten " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvListe) frmHauptfenster.EnableDoubleBuffered(dgvListe)
Dim GesSichRef As New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort) GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
'GesSichRef.LOAD("standort", Standort) 'GesSichRef.LOAD("standort", Standort)
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
@@ -25,13 +25,13 @@ Public Class frmGesamtsicherheitenMenu
txtVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy") txtVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
txtbis.Text = Date.Today.ToString("dd.MM.yyyy") txtbis.Text = Date.Today.ToString("dd.MM.yyyy")
ShowStandort() 'ShowStandort()
LoadDGV() LoadDGV()
End Sub End Sub
Public Function LoadDGV() Public Function LoadDGV()
Dim sqladdon As String = "" Dim sqladdon As String = ""
If chkOffen.Checked Then sqladdon &= " AND Sicherheitssaldo != '0,00 €'" If chkOffen.Checked Then sqladdon &= " AND gs_Sicherheitssaldo != '0,00 €'"
' Dim sqlstring As String = "select * from (Select GesamtsichNr, MIN(Standort) as Standort, MIN(FilialNummer) as FilialNummer, min(Abfertigungsnummer) as Abfertigungsnummer, ' 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( 'max(LKWID) as LKWID, min (MakeDate) as Datum, FORMAT(SUM(
@@ -46,22 +46,22 @@ Public Class frmGesamtsicherheitenMenu
'order by GesamtsichNr" 'order by GesamtsichNr"
Dim sqlstring As String = Dim sqlstring As String =
" select * from (Select gs_gesamtsichnr, MIN(gs_standort) as Standort, MIN(gs_filialNr) as FilialNummer, min(gs_abfertigungsNr) as Abfertigungsnummer, " select * from (Select gs_gsNr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_filialNr) as gs_filialNr, min(gs_abfertigungsNr) as gs_abfertigungsNr,
max(gs_LKWID) as LKWID, min (gs_datum) as Datum, FORMAT(SUM( max(gs_LKWID) as gs_LKWID, min (gs_datum) as gs_datum, FORMAT(SUM(
Case Case
when gs_art = 'Open' then (gs_sicherheitsbetrag * -1) when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
when gs_art = 'Close' then gs_sicherheitsbetrag when gs_art = 'Close' then gs_sicherheitsbetrag
End) , 'C', 'de-DE')As SicherheitsSaldo End) , 'C', 'de-DE')As gs_SicherheitsSaldo
From (select * from (select gs_gsNr as ding from [tblGesamtsicherheit] where From (select * from (select gs_gsNr as ding from [tblGesamtsicherheit] where
gs_freitext like '%" & txtSuchbegriff.Text & "%' OR gs_freitext like '%" & txtSuchbegriff.Text & "%' OR
gs_abfertigungsnummer like '%" & txtSuchbegriff.Text & "%' OR gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR
gs_kennNr like '%" & txtSuchbegriff.Text & "%' OR gs_kennNr like '%" & txtSuchbegriff.Text & "%' OR
gs_LKWID like '%" & txtSuchbegriff.Text & "%' gs_LKWID like '%" & txtSuchbegriff.Text & "%'
) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.GesamtsichNr) as meh group by GesamtsichNr) as meh2 ) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.gs_gsNr) as meh group by gs_gsNr) as meh2
Where Standort = '" & Standort & "' " & sqladdon & " Where gs_standort = '" & Standort & "' " & sqladdon & "
AND Datum > '" & Date.Parse(txtVon.Text) & "' AND gs_datum > '" & Date.Parse(txtVon.Text) & "'
AND Datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'" AND gs_datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'"
dgvListe.SET_SQL(sqlstring, "AVISO") dgvListe.SET_SQL(sqlstring, "AVISO")
dgvListe.LOAD() dgvListe.LOAD()
@@ -69,19 +69,19 @@ Public Class frmGesamtsicherheitenMenu
With dgvListe With dgvListe
.SelectionMode = DataGridViewSelectionMode.FullRowSelect .SelectionMode = DataGridViewSelectionMode.FullRowSelect
.RowHeadersWidth = 6 .RowHeadersWidth = 6
.Columns("Standort").Visible = False .Columns("gs_standort").Visible = False
.Columns("GesamtsichNr").HeaderText = "#" .Columns("gs_gsnr").HeaderText = "#"
.Columns("GesamtsichNr").Width = 36 .Columns("gs_gsnr").Width = 36
.Columns("Filialnummer").HeaderText = "Filiale" .Columns("gs_filialNr").HeaderText = "Filiale"
.Columns("Filialnummer").Width = 43 .Columns("gs_filialNr").Width = 43
.Columns("Abfertigungsnummer").HeaderText = "Abfert.Nr." .Columns("gs_abfertigungsNr").HeaderText = "Abfert.Nr."
.Columns("Abfertigungsnummer").Width = 107 .Columns("gs_abfertigungsNr").Width = 107
.Columns("Datum").Width = 112 .Columns("gs_datum").Width = 112
.Columns("SicherheitsSaldo").Width = 96 .Columns("gs_SicherheitsSaldo").Width = 96
End With End With
For Each row As DataGridViewRow In dgvListe.Rows 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 row.DefaultCellStyle.BackColor = Color.Red
Else Else
row.DefaultCellStyle.BackColor = Color.Green row.DefaultCellStyle.BackColor = Color.Green
@@ -91,8 +91,9 @@ Public Class frmGesamtsicherheitenMenu
End Function End Function
Public Sub ShowStandort() Public Sub ShowStandort()
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.referenzwert.ToString("N") 'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
lblZollsatz.Text = "Zollsatz: " & GesSichRef.Zollsatz & "%" lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N") lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
End Sub End Sub
@@ -103,12 +104,12 @@ Public Class frmGesamtsicherheitenMenu
Dim frm As New frmGesamtsicherheiten Dim frm As New frmGesamtsicherheiten
With frm With frm
.GesSichRef = GesSichRef .GesSichRef = GesSichRef
.gessicherheitID = dgvListe.CurrentRow.Cells("GesamtsichNr").Value .gessicherheitID = dgvListe.CurrentRow.Cells("gs_gsnr").Value
.Standort = Me.Standort .Standort = Me.Standort
.datum = dgvListe.CurrentRow.Cells("Datum").Value .datum = dgvListe.CurrentRow.Cells("gs_datum").Value
.LKWID = dgvListe.CurrentRow.Cells("LKWID").Value .LKWID = dgvListe.CurrentRow.Cells("gs_LKWID").Value
.FilialNummer = dgvListe.CurrentRow.Cells("FilialNummer").Value .FilialNummer = dgvListe.CurrentRow.Cells("gs_filialNr").Value
.Abfertigungsnummer = dgvListe.CurrentRow.Cells("Abfertigungsnummer").Value .Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value
End With End With
AddHandler frm.FormClosing, Function() AddHandler frm.FormClosing, Function()

44
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -114,9 +114,9 @@ Partial Class frmSendungsdetailsNEU
Me.pnlDetails = New System.Windows.Forms.Panel() Me.pnlDetails = New System.Windows.Forms.Panel()
Me.tbcntr = New System.Windows.Forms.TabControl() Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage4 = New System.Windows.Forms.TabPage() 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.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.Label6 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.txtFrachtkostenNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtFrachtkostenNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -1503,7 +1503,7 @@ Partial Class frmSendungsdetailsNEU
'TabPage4 'TabPage4
' '
Me.TabPage4.Controls.Add(Me.Label10) 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.txtFrachtkostenGesamt)
Me.TabPage4.Controls.Add(Me.Label6) Me.TabPage4.Controls.Add(Me.Label6)
Me.TabPage4.Controls.Add(Me.Label1) Me.TabPage4.Controls.Add(Me.Label1)
@@ -1543,15 +1543,25 @@ Partial Class frmSendungsdetailsNEU
Me.TabPage4.Text = "Aktendeckel" Me.TabPage4.Text = "Aktendeckel"
Me.TabPage4.UseVisualStyleBackColor = True Me.TabPage4.UseVisualStyleBackColor = True
' '
'Button18 'Label10
' '
Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Label10.AutoSize = True
Me.Button18.Location = New System.Drawing.Point(269, 76) Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Button18.Name = "Button18" Me.Label10.Location = New System.Drawing.Point(383, 43)
Me.Button18.Size = New System.Drawing.Size(156, 21) Me.Label10.Name = "Label10"
Me.Button18.TabIndex = 60 Me.Label10.Size = New System.Drawing.Size(43, 13)
Me.Button18.Text = "berechnen" Me.Label10.TabIndex = 62
Me.Button18.UseVisualStyleBackColor = True 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 'txtFrachtkostenGesamt
' '
@@ -1577,16 +1587,6 @@ Partial Class frmSendungsdetailsNEU
Me.txtFrachtkostenGesamt.TabIndex = 61 Me.txtFrachtkostenGesamt.TabIndex = 61
Me.txtFrachtkostenGesamt.TextAlign = System.Windows.Forms.HorizontalAlignment.Right 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 'Label6
' '
Me.Label6.AutoSize = True Me.Label6.AutoSize = True
@@ -5570,7 +5570,7 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents txtFrachtkostenNichtEU As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtFrachtkostenNichtEU As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As Label Friend WithEvents Label6 As Label
Friend WithEvents Label7 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 txtFrachtkostenGesamt As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label10 As Label Friend WithEvents Label10 As Label
End Class End Class

2
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -5382,7 +5382,7 @@ Public Class frmSendungsdetailsNEU
End Sub 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 If txtFrachtkostenGesamt.Text = "" AndAlso txtGewicht.Text = "" Then
MsgBox("Bitte Gewicht oder Gesamtfrachtkosten angeben!") MsgBox("Bitte Gewicht oder Gesamtfrachtkosten angeben!")