Feature_Refactoring Gesamtsicherheiten
This commit is contained in:
@@ -53,7 +53,7 @@ Public Class frmGesamtsicherheiten
|
||||
LoadDGV()
|
||||
End If
|
||||
LoadStandort()
|
||||
cboATR.Enabled = GesSichRef.ATR
|
||||
cboATR.Enabled = GesSichRef.gsr_ATR
|
||||
|
||||
Me.Text = "Gesamtsicherheit " & Standort
|
||||
frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitCRN)
|
||||
@@ -61,62 +61,65 @@ Public Class frmGesamtsicherheiten
|
||||
|
||||
|
||||
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 = ""
|
||||
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"
|
||||
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 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.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.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
|
||||
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")
|
||||
Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialNr"))
|
||||
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 &= "Abfertigungsnummer: " & Me.Abfertigungsnummer
|
||||
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("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
|
||||
.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("Kennnummer").HeaderText = "ATB"
|
||||
.Columns("AtrJN").HeaderText = "ATR"
|
||||
.Columns("AtrJN").Width = 33
|
||||
.Columns("Ust").Width = 69
|
||||
.Columns("gs_kennNr").HeaderText = "ATB"
|
||||
.Columns("gs_atr").HeaderText = "ATR"
|
||||
.Columns("gs_atr").Width = 33
|
||||
.Columns("gs_ust").Width = 69
|
||||
Case Else
|
||||
.Columns("Kennnummer").HeaderText = "CRN"
|
||||
.Columns("gs_kennNr").HeaderText = "CRN"
|
||||
End Select
|
||||
.Columns("Kennnummer").Width = 146
|
||||
.Columns("gs_kennNr").Width = 146
|
||||
|
||||
.Columns("PosNr").Width = 20
|
||||
.Columns("DateTime").Width = 95
|
||||
.Columns("Warenwert").Width = 100
|
||||
.Columns("Saldo").Width = 100
|
||||
.Columns("gs_posNr").Width = 20
|
||||
.Columns("gs_datum").Width = 95
|
||||
.Columns("gs_warenwert").Width = 100
|
||||
.Columns("gs_saldo").Width = 100
|
||||
|
||||
.Columns("Sicherheitsbetrag").Width = 100
|
||||
.Columns("Freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("gs_sicherheitsbetrag").Width = 100
|
||||
.Columns("gs_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
End With
|
||||
' For Each col As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns
|
||||
'col.Width = 120
|
||||
@@ -126,22 +129,22 @@ Public Class frmGesamtsicherheiten
|
||||
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
|
||||
.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("Kennnummer").HeaderText = "ATC / MRN"
|
||||
.Columns("gs_kennNr").HeaderText = "ATC / MRN"
|
||||
Case Else
|
||||
.Columns("Kennnummer").HeaderText = "CRN"
|
||||
.Columns("gs_kennNr").HeaderText = "CRN"
|
||||
End Select
|
||||
.Columns("Kennnummer").Width = 120
|
||||
.Columns("DateTime").Width = 140
|
||||
.Columns("Warenwert").Width = 100
|
||||
.Columns("Sicherheitsbetrag").Width = 100
|
||||
.Columns("Freitext").Width = 220
|
||||
.Columns("gs_kennNr").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
|
||||
@@ -159,9 +162,10 @@ Public Class frmGesamtsicherheiten
|
||||
'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
|
||||
'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
|
||||
|
||||
|
||||
@@ -184,7 +188,7 @@ Public Class frmGesamtsicherheiten
|
||||
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)
|
||||
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
|
||||
@@ -243,60 +247,105 @@ Public Class frmGesamtsicherheiten
|
||||
Private Sub btnAddMRN_Click(sender As Object, e As EventArgs) Handles btnAddOpen.Click
|
||||
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
|
||||
.Kennnummer = txtMRN.Text
|
||||
.PosNr = Double.Parse(setNullToZero(txtPos.Text))
|
||||
.datum = 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.gessicherheitID
|
||||
.erstellungsdatum = Me.datum
|
||||
.Freitext = Me.txtFreitextOpen.Text
|
||||
.saldo = GesSichRef.Saldo
|
||||
.isATR = setNullToZero(cboATR.SelectedItem)
|
||||
.gs_kennNr = 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)
|
||||
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"
|
||||
OPEN.Save()
|
||||
OPEN.SAVE()
|
||||
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
|
||||
|
||||
|
||||
AfterButton()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
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(Me)
|
||||
Dim Close As New cSicherheiten()
|
||||
With Close
|
||||
.Kennnummer = txtCRN.Text
|
||||
.datum = 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.gessicherheitID
|
||||
.erstellungsdatum = Me.datum
|
||||
.Freitext = Me.txtFreitextClose.Text
|
||||
.saldo = GesSichRef.Saldo
|
||||
.gs_kennNr = 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.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"
|
||||
Close.Save()
|
||||
Close.SAVE()
|
||||
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
|
||||
|
||||
AfterButton()
|
||||
@@ -315,19 +364,25 @@ Public Class frmGesamtsicherheiten
|
||||
Return s
|
||||
End If
|
||||
End Function
|
||||
Function AfterButton()
|
||||
Sub AfterButton()
|
||||
GesSichRef.CalcSaldo()
|
||||
LoadDGV()
|
||||
EmptyTXT()
|
||||
End Function
|
||||
End Sub
|
||||
|
||||
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
|
||||
dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True)
|
||||
Dim LetzteGesSichNum As Integer = dt.Rows(0).Item(0)
|
||||
Me.gessicherheitID = LetzteGesSichNum + 1
|
||||
Me.Neu = False
|
||||
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
|
||||
|
||||
@@ -339,14 +394,14 @@ Public Class frmGesamtsicherheiten
|
||||
cboATR.SelectedItem = Nothing
|
||||
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
|
||||
|
||||
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
|
||||
dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
|
||||
If dt.Rows.Count > 0 Then
|
||||
Return dt.Rows(0).Item("GesamtsichNr").ToString
|
||||
Return dt.Rows(0).Item("gs_gsNr").ToString
|
||||
Else
|
||||
Return "Neu"
|
||||
End If
|
||||
@@ -369,24 +424,26 @@ Public Class frmGesamtsicherheiten
|
||||
|
||||
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
|
||||
|
||||
If checkNothingValue(cboWarenort.SelectedItem, "String") Then
|
||||
Try
|
||||
Me.warenortID = checkNothingValue(cboWarenort.SelectedItem, "String")
|
||||
|
||||
Me.warenortID = cboWarenort.SelectedItem
|
||||
Else
|
||||
Me.warenortID = ""
|
||||
End If
|
||||
Catch
|
||||
Me.warenortID = "-"
|
||||
End Try
|
||||
|
||||
Me.Abfertigungsnummer = txtAbfertNum.Text
|
||||
Me.LKWID = txtLKWID.Text
|
||||
|
||||
If setNullToZero(Me.gessicherheitID) > 0 Then
|
||||
Dim sqlstring = "Update [tblGesamtsicherheit] set FilialNummer = '" & Me.FilialNummer & "', Abfertigungsnummer = '" & Me.Abfertigungsnummer & "', LKWID = '" & Me.LKWID & "' WHERE GesamtSichNr = '" & Me.gessicherheitID & "' "
|
||||
If setNullToZero(Me.gessicherheitID) >= 0 Then
|
||||
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")
|
||||
LoadDGV()
|
||||
End If
|
||||
@@ -395,7 +452,7 @@ Public Class frmGesamtsicherheiten
|
||||
panOverlay.Visible = False
|
||||
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
|
||||
Case "String"
|
||||
If obj Is Nothing Then
|
||||
@@ -419,13 +476,13 @@ Public Class frmGesamtsicherheiten
|
||||
Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value)
|
||||
'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.isATR
|
||||
txtMRNDate.Text = Sicherh.datum.ToString("dd.MM.yyyy")
|
||||
txtMRNTime.Text = Sicherh.datum.ToString("HH:mm")
|
||||
txtMRN.Text = Sicherh.gs_kennNr
|
||||
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
|
||||
|
||||
@@ -436,18 +493,18 @@ Public Class frmGesamtsicherheiten
|
||||
|
||||
Private Sub btnUpdateOpen_Click(sender As Object, e As EventArgs) Handles btnUpdateOpen.Click
|
||||
With openopened
|
||||
.Kennnummer = txtMRN.Text
|
||||
.PosNr = Double.Parse(setNullToZero(txtPos.Text))
|
||||
.datum = 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.gessicherheitID
|
||||
.gs_kennNr = 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
|
||||
.Freitext = Me.txtFreitextOpen.Text
|
||||
.gs_freitext = Me.txtFreitextOpen.Text
|
||||
'.saldo = GesSichRef.Saldo
|
||||
.isATR = setNullToZero(cboATR.SelectedItem)
|
||||
.gs_atr = setNullToZero(cboATR.SelectedItem)
|
||||
End With
|
||||
openopened.Save()
|
||||
btnUpdateOpen.Visible = False
|
||||
@@ -458,13 +515,13 @@ Public Class frmGesamtsicherheiten
|
||||
|
||||
Private Sub btnDeleteClose_Click(sender As Object, e As EventArgs) Handles btnUpdateClose.Click
|
||||
With closedopened
|
||||
.Kennnummer = txtCRN.Text
|
||||
.datum = 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
|
||||
.gs_kennNr = 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
|
||||
@@ -478,11 +535,11 @@ Public Class frmGesamtsicherheiten
|
||||
Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value)
|
||||
'Sicherh.Load(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value)
|
||||
|
||||
txtCRN.Text = Sicherh.Kennnummer
|
||||
txtCRNWarenwert.Text = Sicherh.Warenwert
|
||||
txtFreitextClose.Text = Sicherh.freitext
|
||||
txtCRNDate.Text = Sicherh.datum.ToString("dd.MM.yyyy")
|
||||
txtCRNTime.Text = Sicherh.datum.ToString("HH:mm")
|
||||
txtCRN.Text = Sicherh.gs_kennNr
|
||||
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
|
||||
|
||||
@@ -519,6 +576,8 @@ Public Class frmGesamtsicherheiten
|
||||
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
|
||||
@@ -527,6 +586,30 @@ Public Class frmGesamtsicherheiten
|
||||
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_filialNr = gessich.FilialNummer
|
||||
sicherheiten.gs_abfertigungsnr = gessich.Abfertigungsnummer
|
||||
sicherheiten.gs_LKWID = gessich.LKWID
|
||||
sicherheiten.gs_warenort = gessich.warenortID
|
||||
sicherheiten.SAVE()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
'Public Class cSicherheit
|
||||
@@ -630,29 +713,29 @@ End Class
|
||||
|
||||
'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 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
|
||||
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
|
||||
End If
|
||||
Next
|
||||
Return Obj
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
Reference in New Issue
Block a user