frmHauotfensterNew
This commit is contained in:
597
Aviso/AktenErfassung/frmEintragSammelakt.vb
Normal file
597
Aviso/AktenErfassung/frmEintragSammelakt.vb
Normal file
@@ -0,0 +1,597 @@
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
|
||||
|
||||
Public Class frmEintragSammelakt
|
||||
' Public frmHilf As frmMain
|
||||
|
||||
Dim Firmen As New cFirmenDAL
|
||||
Dim AvisoDAL As New cAvisoDAL
|
||||
Dim myAviso As New cAviso
|
||||
Dim AVISOFUNC As New AvisoStatusFunctions
|
||||
Dim ADMIN As New cADMIN
|
||||
Dim hÄnderung As Boolean = False
|
||||
Dim Neuanlage As Boolean = False
|
||||
Public EingangsDatum As Date = CDate("01.01.1990")
|
||||
|
||||
Dim hStatus As Integer
|
||||
Dim showSendungsdetails As Boolean = False
|
||||
Dim hAdresse As String = ""
|
||||
Dim hCC As String = ""
|
||||
Public aktiv As Boolean = False
|
||||
|
||||
Public ATT As List(Of String)
|
||||
Dim PROG As New cProgramFunctions
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
|
||||
Public FIRMA_TMP As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
Icon = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.GetProgrammIcon
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub frmEintragAviso_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
'Escape händisch abfangen und auf Abbruch-Taste legen
|
||||
If e.KeyCode = Keys.Escape Then
|
||||
btnAbbruch.PerformClick()
|
||||
End If
|
||||
If e.KeyCode = Keys.Return Then
|
||||
e.Handled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub initAttachment()
|
||||
If ATT Is Nothing Then dgvAnhaenge.Visible = False : Exit Sub
|
||||
dgvAnhaenge.Rows.Clear()
|
||||
If ATT.Count = 0 Then
|
||||
' btnSaveAttachments.Enabled = False
|
||||
Else
|
||||
dgvAnhaenge.Visible = True
|
||||
|
||||
For Each a In ATT
|
||||
Dim display = a
|
||||
If a.Contains("\") Then
|
||||
Dim sp = a.Split("\")
|
||||
display = sp(sp.Count - 1)
|
||||
End If
|
||||
dgvAnhaenge.Rows.Add({display, a})
|
||||
Next
|
||||
End If
|
||||
dgvAnhaenge.ClearSelection()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub frmEintragAviso_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
||||
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
||||
' MsgBox("Keine Berechtigung!")
|
||||
' Me.Close()
|
||||
'End If
|
||||
|
||||
|
||||
Me.CenterToParent()
|
||||
btnOK.Enabled = False
|
||||
kdAuftraggeber.initKdBox(Me)
|
||||
|
||||
MyComboBox1.Items.Clear()
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM", "CBAM"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUDR", "EUDR"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FGAS", "FGAS"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLLBERATUNG", "COMPLIANCE"))
|
||||
MyComboBox1.changeItem("")
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
ATILLA_NEUERAKTENDECKEL = True
|
||||
End If
|
||||
|
||||
' SDL.cProgramFunctions.initDrucker(cboPrinter)
|
||||
|
||||
|
||||
cboFirma.Items.Clear()
|
||||
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
|
||||
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
|
||||
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
|
||||
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
|
||||
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
|
||||
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
|
||||
cboFirma.changeItem(FIRMA_TMP)
|
||||
cboFirma.Enabled = False
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
||||
cboFirma.Enabled = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
AddHandler kdAuftraggeber.PropertyChanged, Sub()
|
||||
If kdAuftraggeber.KdNr_value > 0 Then
|
||||
btnAuftraggeber.Enabled = True
|
||||
Else
|
||||
btnAuftraggeber.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
btnOK.Enabled = True
|
||||
|
||||
|
||||
|
||||
Dim bearb As Boolean = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me.FindForm)
|
||||
|
||||
If cGlobal.Aktive_ID = 0 Then
|
||||
'es erfolgt eine Neuanlage
|
||||
Neuanlage = True
|
||||
Me.Text = "Neuanlage LKW-Aviso"
|
||||
dtpDatum.Value = Now
|
||||
If Not bearb Then dtpDatum.Enabled = False
|
||||
|
||||
txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter
|
||||
lblStatus.Text = "Neuanlage"
|
||||
|
||||
kdAuftraggeber.Text = ""
|
||||
|
||||
|
||||
Else
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
|
||||
Me.Text = "Änderung LKW-Aviso"
|
||||
'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False
|
||||
|
||||
'txtInfo.Visible = False
|
||||
'Label3.Visible = False
|
||||
''ausgewählter Datensatz wird geladen
|
||||
'Button3.Visible = False
|
||||
|
||||
myAviso = AvisoDAL.LesenAviso(cGlobal.Aktive_ID, "")
|
||||
|
||||
'Werte(zuweisen)
|
||||
dtpDatum.Value = myAviso.Datum
|
||||
If Not bearb Then dtpDatum.Enabled = False
|
||||
|
||||
If myAviso.Auftraggeber_KdNr > 0 Then
|
||||
kdAuftraggeber.KdNr = myAviso.Auftraggeber_KdNr
|
||||
Else
|
||||
kdAuftraggeber.Text = myAviso.Auftraggeber
|
||||
End If
|
||||
|
||||
txtInfo.Text = myAviso.Info.Trim
|
||||
txtLKW_Nr.Text = myAviso.LKW_Nr
|
||||
|
||||
|
||||
txtÄnderungen.Text = myAviso.Änderungen.Trim
|
||||
|
||||
hStatus = myAviso.Status
|
||||
|
||||
If myAviso.Status <> cGlobal.Status_Erfasst Then txtInfo.Enabled = False
|
||||
|
||||
'optOhneAviso.Checked = txtÄnderungen.Text.Contains("Neuanlage Ankunft ohne Aviso")
|
||||
|
||||
'Status anzeigen
|
||||
|
||||
Select Case hStatus
|
||||
Case cGlobal.Status_Ankunft
|
||||
lblStatus.Text = "Ankunft"
|
||||
If myAviso.Ankunft <> LeerDatum Then lblStatus.Text += " " & Format(myAviso.Ankunft, "dd.MM. HH:mm")
|
||||
lblStatus.ForeColor = Color.Blue
|
||||
Case cGlobal.Status_Erfasst
|
||||
lblStatus.Text = "erfasst"
|
||||
lblStatus.ForeColor = Color.Red
|
||||
Case cGlobal.Status_Freigegeben
|
||||
lblStatus.Text = "Freigabe " & Format(myAviso.Freigabe, "dd.MM. HH:mm")
|
||||
lblStatus.ForeColor = Color.Green
|
||||
btnOK.Enabled = bearb
|
||||
Case cGlobal.Status_NichtEingetroffen
|
||||
lblStatus.Text = "LKW nicht eingetroffen"
|
||||
lblStatus.ForeColor = Color.DarkGray
|
||||
btnOK.Enabled = bearb
|
||||
Case cGlobal.Status_Vorbereitet
|
||||
lblStatus.Text = "Vorbereitet"
|
||||
lblStatus.ForeColor = Color.Brown
|
||||
btnOK.Enabled = bearb
|
||||
Case cGlobal.Status_Vorgeschrieben
|
||||
lblStatus.Text = "Vorgeschrieben"
|
||||
lblStatus.ForeColor = Color.Purple
|
||||
btnOK.Enabled = bearb
|
||||
Case Else
|
||||
lblStatus.Text = ""
|
||||
End Select
|
||||
lblStatus.Text = " " & lblStatus.Text & " " 'für bessere farbliche Hervorhebung
|
||||
cboFirma.changeItem("")
|
||||
cboFirma.changeItem(myAviso.FIRMA)
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
If bearb Then Me.Text += " (Verwaltung)"
|
||||
|
||||
hÄnderung = False
|
||||
|
||||
dtpDatum.Enabled = bearb 'nur Administrator darf Erfassungsdatum ändern/bearbeiten
|
||||
'If Neuanlage Then
|
||||
' dtpAvisoEingangDatum.Value = Now.Date
|
||||
' dtpAvisoEingangZeit.Value = LeerDatum
|
||||
'Else
|
||||
' dtpAvisoEingangDatum.Enabled = bearb
|
||||
' dtpAvisoEingangZeit.Enabled = bearb
|
||||
'End If
|
||||
|
||||
|
||||
initAttachment()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dgvAnhaenge_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvAnhaenge.KeyDown
|
||||
If e.KeyCode = Keys.Delete Then
|
||||
|
||||
If dgvAnhaenge.SelectedRows.Count > 0 Then
|
||||
For Each row In dgvAnhaenge.SelectedRows.Cast(Of DataGridViewRow)().OrderByDescending(Function(dgvr) dgvr.Index)
|
||||
ATT.RemoveAt(row.Index)
|
||||
Next
|
||||
|
||||
'ATT.RemoveAt(dgvAnhaenge.SelectedRows(0).Index) 'Inex-Rows = Index-Att
|
||||
initAttachment()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtLKW_Nr.GotFocus
|
||||
CType(sender, TextBox).SelectAll()
|
||||
End Sub
|
||||
|
||||
Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
|
||||
Try
|
||||
|
||||
|
||||
If Not aktiv Then Exit Sub
|
||||
|
||||
|
||||
lblErrErfasstDat.Visible = False
|
||||
lblErr_Aktentyp.Visible = False
|
||||
lblErr_Kunde.Visible = False
|
||||
lblErr_LKW.Visible = False
|
||||
|
||||
If FIRMA_TMP = "VERIMEX" Then
|
||||
If cboFirma._value = "" Then
|
||||
MsgBox("Firma auswählen!", vbInformation)
|
||||
cboFirma.Focus()
|
||||
Exit Sub
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If dtpDatum.Enabled AndAlso CDate(dtpDatum.Value) > Now Then
|
||||
lblErrErfasstDat.Visible = True
|
||||
dtpDatum.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If MyComboBox1._value.Trim = "" Then
|
||||
' MsgBox("Bitte die LKW-Nummer eingegeben.", vbInformation)
|
||||
lblErr_Aktentyp.Visible = True
|
||||
MyComboBox1.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If txtLKW_Nr.Text.Trim = "" Then
|
||||
' MsgBox("Bitte die LKW-Nummer eingegeben.", vbInformation)
|
||||
lblErr_LKW.Visible = True
|
||||
txtLKW_Nr.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If kdAuftraggeber.KdNr_value <= 0 Then
|
||||
lblErr_Kunde.Visible = True
|
||||
kdAuftraggeber.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Neuanlage Then
|
||||
'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
|
||||
Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
|
||||
If hLKWCheck2 <> "" Then
|
||||
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
|
||||
"Aviso-Eintrag")
|
||||
If antwort = vbNo Then
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
If hLKWCheck2 = "" Then
|
||||
'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
|
||||
Dim hLKWCheck As String = AvisoDAL.Suche_LKW(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
|
||||
If hLKWCheck <> "" Then
|
||||
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
|
||||
"Aviso-Eintrag")
|
||||
If antwort = vbNo Then
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim aendart As String = ""
|
||||
Dim aendText As String = ""
|
||||
|
||||
'Werte zuweisen
|
||||
myAviso.Telefonisch = ""
|
||||
myAviso.Datum = dtpDatum.Value
|
||||
myAviso.LKW_Nr = txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", "")
|
||||
|
||||
|
||||
If kdAuftraggeber.KdNr_value > 0 Then
|
||||
myAviso.Auftraggeber = IIf(kdAuftraggeber.KdName <> "", kdAuftraggeber.KdName, kdAuftraggeber.Text)
|
||||
myAviso.Auftraggeber_KdNr = kdAuftraggeber.KdNr_value
|
||||
Else
|
||||
myAviso.Auftraggeber = kdAuftraggeber.Text
|
||||
myAviso.Auftraggeber_KdNr = -1
|
||||
End If
|
||||
|
||||
If myAviso.Auftraggeber.Length > 50 Then myAviso.Auftraggeber = myAviso.Auftraggeber.Substring(0, 50)
|
||||
|
||||
myAviso.Frächter = myAviso.Auftraggeber
|
||||
myAviso.Frächter_KdNr = myAviso.Auftraggeber_KdNr
|
||||
|
||||
|
||||
myAviso.Grenzstelle = ""
|
||||
myAviso.Info = ""
|
||||
|
||||
If Neuanlage Then
|
||||
myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
|
||||
myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
||||
End If
|
||||
|
||||
If Neuanlage Then
|
||||
myAviso.Änderungen = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
|
||||
aendart = "Neuanlage"
|
||||
aendText = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
|
||||
|
||||
Else
|
||||
myAviso.Änderungen = "Änderung per Eingabefenster von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & myAviso.Änderungen
|
||||
aendart = "Änderung per Eingabefenster"
|
||||
aendText = "Änderung per Eingabefenster von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
|
||||
End If
|
||||
|
||||
Dim DatAnkunftNow = AVISOFUNC.getAnkunftDateNow()
|
||||
|
||||
|
||||
myAviso.Status = cGlobal.Status_Ankunft
|
||||
|
||||
|
||||
myAviso.Status = cGlobal.Status_Erfasst
|
||||
myAviso.Ankunft = LeerDatum
|
||||
myAviso.Freigabe = LeerDatum
|
||||
myAviso.Vorbereitet = LeerDatum
|
||||
myAviso.Vorgeschrieben = LeerDatum
|
||||
myAviso.Dauer = 0
|
||||
|
||||
|
||||
|
||||
|
||||
myAviso.FIRMA = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP)
|
||||
myAviso.Cluster = If(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, "")
|
||||
|
||||
|
||||
|
||||
|
||||
Dim tmpId = AvisoDAL.SpeichernAviso(myAviso)
|
||||
|
||||
|
||||
myAviso.AvisoID = tmpId
|
||||
AvisoDAL.addAenderung(tmpId, aendart, aendText)
|
||||
|
||||
|
||||
'Infotext als Vermerk:
|
||||
If txtInfo.Text.Trim <> "" Then
|
||||
If txtInfo.Text.Length <= 80 Then
|
||||
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Trim, 46)
|
||||
ElseIf txtInfo.Text.Length <= 160 Then
|
||||
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(0, 80), 46)
|
||||
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(80, 80), 46)
|
||||
ElseIf txtInfo.Text.Length <= 240 Then
|
||||
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(0, 80), 46)
|
||||
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(80, 80), 46)
|
||||
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(160, 80), 46)
|
||||
End If
|
||||
End If
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
'Jetzt wird Fenster geschlossen
|
||||
Me.Close()
|
||||
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
|
||||
frmHauptfenster.setAktDetails(tmpId, showSendungsdetails)
|
||||
If showSendungsdetails Then
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Me.Cursor = Cursors.Default
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
''threadsicherer Aufruf
|
||||
'Delegate Sub setCboEntryCallback(i As String)
|
||||
'Private Sub setCboEntry(i As String)
|
||||
' Try
|
||||
' If Me.InvokeRequired Then
|
||||
' Dim d As New setCboEntryCallback(AddressOf setCboEntry)
|
||||
' Me.Invoke(d, New Object() {i})
|
||||
' Else
|
||||
' cboPrinter.Items.Add(i)
|
||||
' End If
|
||||
|
||||
' Catch ex As Exception
|
||||
|
||||
' End Try
|
||||
'End Sub
|
||||
|
||||
''threadsicherer Aufruf
|
||||
'Delegate Sub setCboSelectedCallback(standardDrucker As String)
|
||||
'Private Sub setCboSelected(standardDrucker As String)
|
||||
' If Me.InvokeRequired Then
|
||||
' Dim d As New setCboSelectedCallback(AddressOf setCboSelected)
|
||||
' Me.Invoke(d, New Object() {standardDrucker})
|
||||
' Else
|
||||
' Dim found As Boolean = False
|
||||
' ' For Each i In cboPrinter.Items
|
||||
' 'If i.ToString.ToUpper.Contains("TALLY") Then
|
||||
' 'found = True
|
||||
' ' cboPrinter.SelectedItem = i : Exit For
|
||||
' ' End If
|
||||
' ' Next
|
||||
|
||||
' If found = False Then 'Falls kein TALLY, Standarddrucker
|
||||
' cboPrinter.SelectedIndex = 0
|
||||
' For Each i In cboPrinter.Items
|
||||
' If i.ToString = standardDrucker Then
|
||||
' cboPrinter.SelectedItem = i
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
' End If
|
||||
' End If
|
||||
|
||||
'End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Private Function Platzhalter_ersetzen(hText As String, hLKW As String, hGrenzstelle As String) As String
|
||||
If hText = "" Then
|
||||
Platzhalter_ersetzen = hText
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
'hier werden alle möglichen Platzhalter ersetzt
|
||||
hText = hText.Replace("%LKW%", hLKW)
|
||||
If hGrenzstelle <> "" Then
|
||||
Dim Standorte As New cStandorteDAL
|
||||
Dim Standort As New cStandort
|
||||
Standort = Standorte.LesenStandort(0, hGrenzstelle, "")
|
||||
If Not IsNothing(Standort) Then
|
||||
hGrenzstelle = Standort.Standort_Text.Trim
|
||||
End If
|
||||
End If
|
||||
hText = hText.Replace("%Standort%", hGrenzstelle)
|
||||
hText = hText.Replace("%Uhrzeit%", Format(Now, "HH:mm"))
|
||||
hText = hText.Replace("&", "und")
|
||||
|
||||
Platzhalter_ersetzen = hText
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Private Sub txtLKW_Nr_TextChanged(sender As Object, e As EventArgs) Handles txtLKW_Nr.Leave
|
||||
txtLKW_Nr.Text = txtLKW_Nr.Text.ToUpper
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub frmEintragAviso_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
'dtpAvisoEingangZeit.Focus()
|
||||
aktiv = True
|
||||
'If EingangsDatum > CDate("01.01.1990") Then
|
||||
' dtpAvisoEingangDatum.Value = EingangsDatum
|
||||
' dtpAvisoEingangZeit.Value = EingangsDatum
|
||||
'End If
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
If StartFromOUTLOOK Then
|
||||
MsgBox("Diese Funktion ist im Outlook Addin nicht verfügbar!")
|
||||
Exit Sub
|
||||
End If
|
||||
' Me.showSendungsdetails = True
|
||||
btnOK.PerformClick()
|
||||
|
||||
|
||||
'If dgvSendungen.SelectedRows.Count > 0 Then
|
||||
'sendId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
|
||||
'End If
|
||||
If myAviso.AvisoID > 0 Then
|
||||
|
||||
If Process.GetCurrentProcess().ProcessName.ToUpper() = "AVISO" Then
|
||||
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
||||
Dim frmSendungsdetails As New frmSendungsdetailsNEU(myAviso.AvisoID, -1)
|
||||
frmSendungsdetails.ShowDialog(frmGrayOut)
|
||||
|
||||
|
||||
frmGrayOut.Close()
|
||||
Else
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.SendMessageToAviso("OpenAvisoSnd_" & myAviso.AvisoID)
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
'initDgvSendungen()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub btnAuftraggeber_Click(sender As Object, e As EventArgs) Handles btnAuftraggeber.Click
|
||||
If kdAuftraggeber.KdNr > 0 Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
AVISOFUNC.showKd(kdAuftraggeber.KdNr)
|
||||
Me.Cursor = Cursors.Default
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub dgvAnhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick, dgvAnhaenge.CellContentDoubleClick
|
||||
Try
|
||||
If dgvAnhaenge.SelectedRows.Count > 0 Then
|
||||
If dgvAnhaenge.SelectedRows(0).Cells(1).Value <> "" Then
|
||||
Process.Start(dgvAnhaenge.SelectedRows(0).Cells(1).Value)
|
||||
End If
|
||||
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 MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
|
||||
Select Case MyComboBox1._value
|
||||
Case "CBAM"
|
||||
PictureBox1.BackgroundImage = My.Resources.cbam_s
|
||||
Case "EUDR"
|
||||
PictureBox1.BackgroundImage = My.Resources.eudr
|
||||
Case "FGAS"
|
||||
PictureBox1.BackgroundImage = My.Resources.fgas_s
|
||||
Case "COMPLIANCE"
|
||||
PictureBox1.BackgroundImage = My.Resources.compliance_s
|
||||
Case Else
|
||||
PictureBox1.BackgroundImage = Nothing
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user