4154 lines
194 KiB
VB.net
4154 lines
194 KiB
VB.net
|
|
Imports System.IO
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
|
|
|
|
Imports VERAG_PROG_ALLGEMEIN.cglobal
|
|
'Imports Gemeinsames.cDatenbank
|
|
Imports System.Drawing
|
|
'Imports SDL
|
|
Imports Hardcodet.Wpf.TaskbarNotification
|
|
Imports com.esendex.sdk.messaging
|
|
|
|
|
|
'Imports UID
|
|
Public Class frmHauptfenster
|
|
Public aktiv = False
|
|
Private AvisoDAL As New cAvisoDAL
|
|
Private VermerkeDAL As New cVermerkeDAL
|
|
Private Standorte As New cStandorteDAL
|
|
Private FUNC As New AvisoStatusFunctions
|
|
Private locZeilen As Integer = -1
|
|
Private Anzahl As Integer
|
|
Private Grid_aktiv As Boolean = False
|
|
Private Details_aktiv As Boolean = False
|
|
Private Zähler As Long = 0
|
|
Private hMerkZeit As Date
|
|
Private hMerkZeit2 As Date
|
|
|
|
Private hMerkZeit_MeineAviso As Date
|
|
Dim cProgramFunctions As New cProgramFunctions
|
|
Private Paketdienste_EXE As String
|
|
|
|
Private SucheStandort As String = ""
|
|
Private GridAnzeigen As Integer = 0
|
|
Private GridZeichnen As Integer = 0
|
|
Dim lkwbackcolor As Color = Color.FromArgb(220, 220, 220)
|
|
Dim lkwbackcolorSel As Color = Color.FromArgb(200, 200, 200)
|
|
Dim VermerkeAktuelleAvisoId As Integer = -1
|
|
Private infotxt As String = ""
|
|
Dim gridFont As New Font(Me.Font.FontFamily, 8)
|
|
Dim cFormularManager As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
|
' Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
|
|
Dim sd = 0
|
|
Dim closeOK = False
|
|
Dim Fullscreen = False
|
|
Dim rowHeight = 20
|
|
Dim chkFarben = True
|
|
|
|
Private VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Dim WithEvents hideErr As New Timer
|
|
|
|
Dim WithEvents UpdateUpdater As New Timer
|
|
Dim WithEvents UpdateSession As New Timer
|
|
|
|
Public Sub New()
|
|
InitializeComponent()
|
|
Icon = cMeineFunktionenAVISO.GetProgrammIcon
|
|
End Sub
|
|
|
|
Private Sub frmMain_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
|
|
If Not closeOK Then
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGOUT()
|
|
My.Settings.frmMainSize = Me.Size
|
|
My.Settings.frmMainPosition = Me.Location
|
|
My.Settings.Save()
|
|
Application.Exit()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmHauptfenster_GotFocus(sender As Object, e As EventArgs) Handles MyBase.GotFocus
|
|
Timer1_Tick(Timer1, New EventArgs)
|
|
End Sub
|
|
|
|
|
|
Private Sub frmMain_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
|
|
|
|
If e.KeyCode = Keys.F2 Or e.KeyCode = Keys.F5 Then
|
|
btnRefresh_Click(sender, e) 'F2 löst Aktualisierung aus
|
|
End If
|
|
|
|
'If e.KeyCode = Keys.F5 Then
|
|
' FUNC.setAnkunft(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
'End If
|
|
|
|
'If e.KeyCode = Keys.F9 Then
|
|
' FUNC.setFreigabe(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, Me)
|
|
' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
'End If
|
|
|
|
If e.KeyCode = Keys.F11 Then
|
|
FUNC.AktUebernehmen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
|
|
If e.KeyCode = Keys.Escape Then
|
|
Grid_aktiv = False
|
|
cboGrenzstelle.SelectedIndex = 0
|
|
' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
|
|
'cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
|
|
' End If
|
|
tbcntrAviso.SelectedIndex = 0
|
|
txtSuche.Text = ""
|
|
txtSuche.Focus()
|
|
Grid_aktiv = True
|
|
Aviso_anzeigen("")
|
|
End If
|
|
If (e.KeyCode) = Keys.Add AndAlso e.Control Then
|
|
btnNeu.PerformClick()
|
|
End If
|
|
|
|
If e.KeyCode = Keys.D1 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 1 : txtSuche.Focus()
|
|
If e.KeyCode = Keys.D2 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 2 : txtSuche.Focus()
|
|
If (e.KeyCode) = Keys.D3 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 3 : txtSuche.Focus()
|
|
If (e.KeyCode) = Keys.D4 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 4 : txtSuche.Focus()
|
|
If (e.KeyCode) = Keys.D5 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 5 : txtSuche.Focus()
|
|
If (e.KeyCode) = Keys.D0 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 6 : txtSuche.Focus()
|
|
If (e.KeyCode) = Keys.Oem5 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 0 : txtSuche.Focus()
|
|
|
|
End Sub
|
|
|
|
Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
|
|
Me.AutoScaleMode = Windows.Forms.AutoScaleMode.Dpi
|
|
hideErr.Interval = 3000
|
|
|
|
UpdateUpdater.Interval = 5000
|
|
UpdateUpdater.Enabled = True
|
|
|
|
lblVersion.Text = "V " & My.Resources.Version
|
|
UpdateSession.Interval = 60000
|
|
UpdateSession.Enabled = True
|
|
|
|
' transparentpnl.Visible = True
|
|
'transparentpnl.BackColor = Color.FromArgb(25, Color.Red)
|
|
' transparentpnl.BackColor = Color.Transparent
|
|
|
|
TimerAkte.Enabled = True
|
|
Grid_aktiv = False
|
|
|
|
Dim OptionenDAL As New cOptionenDAL
|
|
|
|
cboGrenzstelle.SelectedIndex = 0
|
|
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "VERAG", "IMEX"
|
|
|
|
'AVISO vom PC übernehmen
|
|
Dim zeilen As Integer = OptionenDAL.setAVISOFromPcName()
|
|
Select Case zeilen
|
|
Case 0 : lblAkte.Visible = False
|
|
Case 1 : lblAkte.Text = zeilen & " Akt vom Arbeitsplatz übernommen"
|
|
Case Else : lblAkte.Text = zeilen & " Akte vom Arbeitsplatz übernommen"
|
|
End Select
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
|
|
cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
|
|
End If
|
|
Case Else
|
|
lklErweitereSuche.Visible = False
|
|
MDMParkplatzkartenToolStripMenuItem.Visible = False
|
|
End Select
|
|
|
|
|
|
'Einlesen der Standardoptionen (ist normalerweise immer ID 1)
|
|
Try
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Optionen = OptionenDAL.LesenOptionen(1, "")
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Betreff = ""
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Text = ""
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Betreff = ""
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Text = ""
|
|
End Try
|
|
|
|
' VERAG_PROG_ALLGEMEIN.cglobal.Admin = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Sicherheitsstufe = 0
|
|
|
|
'Menü je nach Berechtigungsebene anzeigen
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
|
|
AdministrationToolStripMenuItem.Visible = True
|
|
lblMitarbeiter.Text += " (Admin)"
|
|
|
|
End If
|
|
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG", "SDL") Then
|
|
btnFakturierung.Visible = True
|
|
End If
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("RECHNUNGSSUCHE", "SDL") Then
|
|
btnRg.Visible = True
|
|
End If
|
|
|
|
'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
|
|
' btnSpedBuch.Visible = False
|
|
'End If
|
|
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Stammref_Verwalten", "AVISO") Then
|
|
DAKOSYToolStripMenuItem.Visible = False
|
|
End If
|
|
|
|
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
|
'MenuStrip1.Items.Clear()
|
|
MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)
|
|
MenuStrip1.Items.Remove(StatistikToolStripMenuItem)
|
|
'While MenuStrip1.Items.Count > 1
|
|
' MenuStrip1.Items.RemoveAt(1)
|
|
'End While
|
|
btnGenerelleGestellungen.Visible = False
|
|
btnSpedBuch.Visible = False
|
|
btnDienstplan.Visible = True
|
|
btnNeu.Enabled = False
|
|
SplitContainer2.Visible = False
|
|
btnDrucken.Visible = False
|
|
'SplitContainer2.Panel2Collapsed = True
|
|
splitMain.Panel2Collapsed = True
|
|
End If
|
|
|
|
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN", "AVISO") Then
|
|
btnKunden.Visible = False
|
|
End If
|
|
|
|
MyComboBox1.Items.Clear()
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("<keine Einschr.>", UStatus_none))
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Aviso-Eingang", UStatus_AVEingang))
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erfasst", Status_Erfasst))
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorbereit.QS", Status_Vorgeschrieben))
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorgeschrieben", Status_Vorbereitet))
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ankunft", Status_Ankunft))
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Freigabe", Status_Freigegeben))
|
|
MyComboBox1.changeItem(UStatus_AVEingang)
|
|
|
|
'Größe wird sicherheitshalber maximiert angezeigt, da es mit dem Größe-/Positionsspeichern teilweise Probleme in der virtuellen Umgebung gibt
|
|
' Me.WindowState = FormWindowState.Normal
|
|
|
|
'Position+Größe wird in ApplicationSettings vom Formular gespeichert
|
|
'Try
|
|
'Me.Size = My.Settings.frmMainSize
|
|
'Me.Location = My.Settings.frmMainPosition
|
|
'Me.Left = 100
|
|
'Me.Top = 100
|
|
'Catch ex As Exception
|
|
'bei Fehler nichts machen
|
|
'End Try
|
|
|
|
'Mitarbeiterinfos anzeigen
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter += "/" & SystemInformation.UserName.ToString
|
|
lblMitarbeiter.Text = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
|
|
lblMitarbeiter.Text += " (Verwaltung)Then"
|
|
End If
|
|
|
|
lblGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
|
|
chkFarben = True
|
|
|
|
' btnAlleAnzeigen.Visible = cGlobal.Admin
|
|
|
|
'zuerst noch prüfen, ob unerledigte Aviso auf nicht eingetroffen gesetzt werden können
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
|
|
Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " And Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
|
|
Dim anz As Integer = AvisoDAL.Check_Nicht_eingetroffen(hSQL)
|
|
If anz > 0 Then
|
|
MsgBox("HINWEIS: " & vbCrLf & anz & " LKW-Aviso wurden auf 'LKW nicht eingetroffen' gesetzt, da bereits seit mehr als 21 Tagen offen.", vbInformation)
|
|
End If
|
|
End If
|
|
|
|
|
|
'jetzt noch den Pfad zum Programm Paketdienste einlesen und zuweisen
|
|
Try
|
|
Dim pfadPaketdienste As String = Application.StartupPath & "\Paketdienste.txt"
|
|
If Not File.Exists(pfadPaketdienste) Then
|
|
'MsgBox("nicht gefunden: " & pfadDatei)
|
|
'Sonderfall zum Debuggen
|
|
pfadPaketdienste = "c:\projekte.net\verag\aviso\Paketdienste.txt"
|
|
End If
|
|
If Not File.Exists(Paketdienste_EXE) Then
|
|
Paketdienste_EXE = "C:\Projekte.NET\Verag\Paketdienste\Paketdienste\bin\Debug\Paketdienste.exe"
|
|
'Paketdienste_EXE = "C:\Program Files\Calibre2\calibre.exe"
|
|
End If
|
|
If File.Exists(pfadPaketdienste) Then
|
|
Dim fs As New FileStream(pfadPaketdienste, FileMode.Open, FileAccess.Read)
|
|
Dim strmReader As New StreamReader(fs)
|
|
Paketdienste_EXE = strmReader.ReadLine
|
|
End If
|
|
Catch ex As Exception
|
|
Paketdienste_EXE = ""
|
|
End Try
|
|
|
|
|
|
'Vorschlagswerte werden gesetzt
|
|
' tbcntrAviso.SelectedIndex = 0
|
|
|
|
'Grid jetzt aktivieren und befüllen - Standardanzeige ident mit Button Wichtig
|
|
dtpVon.Value = Now.AddDays(-15)
|
|
dtpBis.Value = Now.AddDays(1)
|
|
'optAnkunft.Checked = True
|
|
tbcntrAviso.SelectedTab = tabAnkunft
|
|
Grid_aktiv = True
|
|
SucheStandort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
|
|
If SucheStandort <> "" Then btnWichtigeStandort.Text = "Wichtig " & SucheStandort.Trim.ToUpper
|
|
Aviso_anzeigen(" ORDER BY Ankunft")
|
|
|
|
|
|
' gridAviso_SpaltenFestlegen() 'Auskommentiert, do bei Aviso anzeigen schon ausgeführt wird
|
|
'gridVermerke_SpaltenFestlegen()
|
|
|
|
|
|
|
|
|
|
Timer1.Enabled = True
|
|
|
|
If gridAviso.RowCount > 0 Then
|
|
gridAviso.Rows(0).Selected = True
|
|
End If
|
|
' MsgBox(gridVermerke.Rows(0).Cells(5).Value)
|
|
|
|
If Me.Height * 0.3 < 220 Then
|
|
SplitContainer2.Height = 220
|
|
Else
|
|
SplitContainer2.Height = Me.Height * 0.3
|
|
End If
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE", "SDL") Or
|
|
VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE_BH_Login", "SDL") Or
|
|
VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE_Saldo_Anzeige", "SDL") Then
|
|
btnKassenbuch.Visible = True
|
|
End If
|
|
|
|
Panel1.Height -= pnlSearch.Height
|
|
|
|
End Sub
|
|
|
|
Public Sub setAktDetails(id, showSendungsdetails)
|
|
Details_anzeigen(id) ', showSendungsdetails)
|
|
End Sub
|
|
|
|
Private Sub gridAviso_SpaltenFestlegen()
|
|
If gridAviso.RowCount = 0 Then Exit Sub
|
|
Dim bfont = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold)
|
|
With gridAviso
|
|
|
|
.Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen
|
|
|
|
If Fullscreen Then
|
|
.Columns("Datum").Visible = True 'Mitarb. nicht anzeigen
|
|
.Columns("Freigabe").Visible = True 'Mitarb. nicht anzeigen
|
|
.Columns("Handling").Visible = True 'Mitarb. nicht anzeigen
|
|
.Columns("Vorbereitet").Visible = True
|
|
.Columns("Vorgeschrieben").Visible = True
|
|
Else
|
|
.Columns("Datum").Visible = False 'Mitarb. nicht anzeigen
|
|
.Columns("Freigabe").Visible = False 'Mitarb. nicht anzeigen
|
|
.Columns("Handling").Visible = False 'Mitarb. nicht anzeigen
|
|
.Columns("Vorbereitet").Visible = False
|
|
.Columns("Vorgeschrieben").Visible = False
|
|
|
|
End If
|
|
|
|
.Columns("Status").Width = 25
|
|
.Columns("Status").HeaderText = "St."
|
|
|
|
.Columns("LetzterMitarbeiter").Width = 135
|
|
.Columns("LetzterMitarbeiter").HeaderText = "akt. Mitarb"
|
|
|
|
|
|
.Columns("AvisoEingang").Width = 95
|
|
.Columns("AvisoEingang").HeaderText = "Av.Eingang"
|
|
.Columns("AvisoEingang").DefaultCellStyle.Format = "dd.MM. HH:mm"
|
|
|
|
.Columns("Datum").Width = 95
|
|
.Columns("Datum").HeaderText = "Erfasst"
|
|
.Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm"
|
|
.Columns("Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
|
|
.Columns("Vorbereitet").Width = 100
|
|
.Columns("Vorbereitet").HeaderText = "Vorbereitet"
|
|
.Columns("Vorbereitet").DefaultCellStyle.Format = "dd.MM. HH:mm"
|
|
|
|
|
|
.Columns("Vorgeschrieben").Width = 100
|
|
.Columns("Vorgeschrieben").HeaderText = "Vorgeschrieben"
|
|
.Columns("Vorgeschrieben").DefaultCellStyle.Format = "dd.MM. HH:mm"
|
|
|
|
|
|
.Columns("Ankunft").Width = 100
|
|
.Columns("Ankunft").HeaderText = "Ankunft"
|
|
.Columns("Ankunft").DefaultCellStyle.Format = "dd.MM. HH:mm"
|
|
|
|
|
|
.Columns("Freigabe").Width = 100
|
|
.Columns("Freigabe").HeaderText = "Freigabe"
|
|
.Columns("Freigabe").DefaultCellStyle.Format = "dd.MM. HH:mm"
|
|
|
|
.Columns("Dauer").Width = 60
|
|
.Columns("Dauer").HeaderText = "Dauer"
|
|
.Columns("Dauer").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns("Dauer").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
' If cGlobal.AktiverMitarbeiter.Abteilung = "quick-stop" Then
|
|
'.Columns(10).Visible = True
|
|
' Else
|
|
' .Columns(10).Visible = False
|
|
' End If
|
|
|
|
.Columns("Grenzstelle").Width = 40
|
|
.Columns("Grenzstelle").HeaderText = "Grenz."
|
|
.Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
|
|
|
|
.Columns("LKW_Nr").Width = 150
|
|
'.Columns("LKW_Nr").MinimumWidth = 90
|
|
.Columns("LKW_Nr").HeaderText = "LKW-Nr"
|
|
' .Columns("LKW_Nr").DefaultCellStyle.Font = New Font(.DefaultCellStyle.Font.FontFamily, .DefaultCellStyle.Font.Size, FontStyle.Bold)
|
|
'.Columns("LKW_Nr").DefaultCellStyle.BackColor = lkwbackcolor
|
|
'.Columns("LKW_Nr").DefaultCellStyle.SelectionBackColor = lkwbackcolor
|
|
|
|
.Columns("Auftraggeber").MinimumWidth = 150
|
|
.Columns("Auftraggeber").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("Auftraggeber").HeaderText = "Avisierer"
|
|
|
|
.Columns("Frächter").MinimumWidth = 150
|
|
.Columns("Frächter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("Frächter").HeaderText = "Frächter"
|
|
|
|
.Columns("Telefonisch").Visible = False 'Status Telefon nicht anzeigen
|
|
.Columns("AvisoTVHinweis").Visible = False 'Status Telefon nicht anzeigen
|
|
|
|
.Columns("LKW_fertig").Width = 35
|
|
.Columns("LKW_fertig").HeaderText = "OK"
|
|
.Columns("LKW_fertig").DefaultCellStyle.ForeColor = Color.White
|
|
.Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns("LKW_fertig").DefaultCellStyle.Font = bfont
|
|
|
|
.Columns("Info").Visible = False
|
|
.Columns("Info").MinimumWidth = 200
|
|
.Columns("Info").HeaderText = "Info (Einträge bis zum Status ERFASST)"
|
|
.Columns("Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
.Columns("Handling").Width = 50
|
|
.Columns("Handling").HeaderText = "Handling"
|
|
|
|
|
|
'.Columns(12).Width = 700
|
|
'.Columns(12).HeaderText = "Änderungen"
|
|
|
|
initDauerLKWFertig()
|
|
|
|
End With
|
|
End Sub
|
|
|
|
Sub initDauerLKWFertig()
|
|
'Dauer berechnen:
|
|
With gridAviso
|
|
|
|
For Each r As DataGridViewRow In .Rows
|
|
If r.Cells("Dauer").Value Is DBNull.Value Or r.Cells("Dauer").Value = 0 Then
|
|
If CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
|
|
If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then
|
|
r.Cells("Dauer").Value = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now)
|
|
Else
|
|
r.Cells("Dauer").Value = "0"
|
|
End If
|
|
End If
|
|
End If
|
|
If r.Cells("LKW_fertig").Value = "OK" Then
|
|
r.Cells("LKW_fertig").Style.ForeColor = Color.White
|
|
r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128)
|
|
'Else
|
|
'r.Cells("LKW_fertig").Style.BackColor = Color.White
|
|
End If
|
|
|
|
|
|
Next
|
|
End With
|
|
End Sub
|
|
|
|
|
|
Public Sub Details_anzeigen(ByVal id As Integer, Optional reloadIfSameId As Boolean = True) ', Optional opensendungsDetails As Boolean = False)
|
|
Me.Cursor = Cursors.AppStarting
|
|
If Not Details_aktiv Then Exit Sub
|
|
|
|
If id > 0 Then
|
|
pnlDetailsRechts.Visible = True
|
|
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "VERAG"
|
|
If pnlDetailsRechts.Controls.Count = 0 Then
|
|
Dim usrCntl As New usrcntlAktDetails(id)
|
|
usrCntl.Dock = DockStyle.Fill
|
|
pnlDetailsRechts.Controls.Add(usrCntl)
|
|
Else
|
|
If reloadIfSameId Then
|
|
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
|
|
Else
|
|
If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> id Then
|
|
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
|
|
End If
|
|
End If
|
|
End If
|
|
Case "IMEX"
|
|
If pnlDetailsRechts.Controls.Count = 0 Then
|
|
Dim usrCntl As New usrcntlAktDetails(id)
|
|
usrCntl.Dock = DockStyle.Fill
|
|
pnlDetailsRechts.Controls.Add(usrCntl)
|
|
Else
|
|
If reloadIfSameId Then
|
|
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
|
|
Else
|
|
If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> id Then
|
|
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
|
|
End If
|
|
End If
|
|
End If
|
|
Case "ATILLA"
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then
|
|
|
|
If pnlDetailsRechts.Controls.Count = 0 Then
|
|
Dim usrCntl As New usrcntlAktDetailsATILLANeu(id)
|
|
usrCntl.Dock = DockStyle.Fill
|
|
pnlDetailsRechts.Controls.Add(usrCntl)
|
|
Else
|
|
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).reload(id)
|
|
End If
|
|
Else
|
|
If pnlDetailsRechts.Controls.Count = 0 Then
|
|
Dim usrCntl As New usrcntlAktDetailsATILLA(id)
|
|
usrCntl.Dock = DockStyle.Fill
|
|
pnlDetailsRechts.Controls.Add(usrCntl)
|
|
Else
|
|
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).reload(id)
|
|
End If
|
|
End If
|
|
End Select
|
|
|
|
|
|
Else
|
|
pnlDetailsRechts.Visible = False
|
|
End If
|
|
lblEintraege.Text = gridAviso.RowCount & " Einträge" & If(gridAviso.RowCount = 2000, " (begrenzt)", "")
|
|
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
' Dim AVISOBinding As New cBinding("AVISO")
|
|
|
|
Public Sub Aviso_anzeigen(hSort As String, Optional showDetails As Boolean = True)
|
|
'Paint wieder reaktivieren
|
|
locZeilen = -1
|
|
If Not Grid_aktiv Then Exit Sub
|
|
' Grid_aktiv = False
|
|
Dim hStart As Integer = My.Computer.Clock.TickCount
|
|
Details_aktiv = False
|
|
gridAviso.GetOrder()
|
|
|
|
|
|
Dim datumseinschr = ""
|
|
Dim top = "TOP 1000 "
|
|
'Bei ANKUNFT nicht nach Datum einschränken
|
|
If tbcntrAviso.SelectedTab Is tabAnkunft Or tbcntrAviso.SelectedTab Is tabErfasst Or tbcntrAviso.SelectedTab Is tabVorbereitet Or tbcntrAviso.SelectedTab Is tabVorgeschrieben Then
|
|
pnlTime.Visible = False
|
|
Else
|
|
pnlTime.Visible = True
|
|
Select Case MyComboBox1._value
|
|
Case UStatus_none
|
|
top = " TOP 1000 "
|
|
Case UStatus_AVEingang : datumseinschr &= " AND AvisoEingang >= " & SQLDatum(dtpVon.Value) & " AND AvisoEingang < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
Case Status_Erfasst : datumseinschr &= " AND Datum >= " & SQLDatum(dtpVon.Value) & " AND Datum < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
Case Status_Vorgeschrieben : datumseinschr &= " AND Vorgeschrieben >= " & SQLDatum(dtpVon.Value) & " AND Vorgeschrieben < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
Case Status_Vorbereitet : datumseinschr &= " AND Vorbereitet >= " & SQLDatum(dtpVon.Value) & " AND Vorbereitet < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
Case Status_Ankunft : datumseinschr &= " AND Ankunft >= " & SQLDatum(dtpVon.Value) & " AND Ankunft < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
Case Status_Freigegeben : datumseinschr &= " AND Freigabe >= " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1))
|
|
End Select
|
|
End If
|
|
|
|
If pnlSearch.Visible Then
|
|
top = " TOP 1000 "
|
|
End If
|
|
|
|
|
|
|
|
Dim hSQL As String = "SELECT " & top & " AvisoID, Status, LKW_Nr, Auftraggeber, Frächter, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, "
|
|
hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis "
|
|
hSQL &= " FROM Aviso "
|
|
hSQL &= " WHERE 1=1 "
|
|
hSQL &= " AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
|
|
|
|
If pnlSearch.Visible Then
|
|
Dim srchkrit = False
|
|
Dim hSQLSnd = ""
|
|
hSQLSnd &= " AND ( SELECT COUNT(*) FROM tblSendungen where tblSnd_AvisoId=AvisoId "
|
|
If txtEmpfänger.Text <> "" Then hSQLSnd &= " AND tblSnd_Empfaenger LIKE '" & txtEmpfänger.Text.Replace("*", "%") & "%' " : srchkrit = True
|
|
If txtAuftraggeber.Text <> "" Then hSQLSnd &= " AND tblSnd_Auftraggeber LIKE '" & txtAuftraggeber.Text.Replace("*", "%") & "%' " : srchkrit = True
|
|
If txtKdAuftragsnr.Text <> "" Then hSQLSnd &= " AND (tblSnd_KdAuftragsNr LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrAvisierer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrEmpfaenger LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrFrachtfuehrer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%') " : srchkrit = True
|
|
If cboFiliale._value <> "" Then hSQLSnd &= " AND FilialenNr ='" & cboFiliale._value & "'" : srchkrit = True
|
|
If txtAbfertigungsnummer.Text <> "" Then hSQLSnd &= " AND AbfertigungsNr LIKE '" & txtAbfertigungsnummer.Text.Replace("*", "%") & "' " : srchkrit = True
|
|
hSQLSnd &= " ) > 0 "
|
|
If srchkrit = True Then hSQL &= hSQLSnd
|
|
If txtlkwId.Text <> "" Then hSQL &= " AND AvisoID LIKE '" & txtlkwId.Text.Replace("*", "%") & "' "
|
|
|
|
|
|
If cbxAlle.Checked = False Then
|
|
Dim statWhere = ""
|
|
If cbxErfasst.Checked Then statWhere &= Status_Erfasst & ","
|
|
If cbxVorb.Checked Then statWhere &= Status_Vorbereitet & ","
|
|
If cbxVorg.Checked Then statWhere &= Status_Vorgeschrieben & ","
|
|
If cbxAnkunft.Checked Then statWhere &= Status_Ankunft & ","
|
|
If cbxFreigabe.Checked Then statWhere &= Status_Freigegeben & ","
|
|
If cbxNE.Checked Then statWhere &= Status_NichtEingetroffen & ","
|
|
If statWhere.EndsWith(",") Then statWhere = statWhere.Substring(0, statWhere.Length - 1)
|
|
If statWhere <> "" Then hSQL &= " AND Status IN ( " & statWhere & " ) " Else hSQL &= " AND 1<>1 "
|
|
End If
|
|
End If
|
|
|
|
hSQL &= datumseinschr
|
|
|
|
|
|
|
|
' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'"
|
|
If cboGrenzstelle.Text <> "ALLE" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle.Text & "'"
|
|
|
|
'je nach Auswahl SQL anpassen
|
|
If tbcntrAviso.SelectedTab Is tabAlle Then
|
|
'alle
|
|
'Falls Freigabe/NE bei "ALLE" eingeschränkt werden sollte::: 'hSQL += " AND (Status NOT IN (1,2) OR (Status=1 AND Freigabe >= " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1)) & ") OR (Status=2 AND [Datum] >= " & SQLDatum(dtpVon.Value) & " AND [Datum] < " & SQLDatum(dtpBis.Value.AddDays(1)) & "))"
|
|
|
|
ElseIf tbcntrAviso.SelectedTab Is tabErfasst Then 'Erfasst
|
|
hSQL += " AND Status = 0"
|
|
ElseIf tbcntrAviso.SelectedTab Is tabVorbereitet Then 'Vorbereitet
|
|
hSQL += " AND Status = 4"
|
|
ElseIf tbcntrAviso.SelectedTab Is tabVorgeschrieben Then 'Vorgeschrieben
|
|
hSQL += " AND Status = 5"
|
|
ElseIf tbcntrAviso.SelectedTab Is tabAnkunft Then 'Ankunft
|
|
hSQL += " AND Status = 3"
|
|
ElseIf tbcntrAviso.SelectedTab Is tabFreigegeben Then 'Freigegeben
|
|
hSQL += " AND Status = 1"
|
|
ElseIf tbcntrAviso.SelectedTab Is tabNichtEingetroffen Then 'Nicht Eingetroffen
|
|
hSQL += " AND Status = 2"
|
|
End If
|
|
|
|
Dim search = txtSuche.Text.Trim
|
|
If search <> "" Then
|
|
hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search &
|
|
"%' OR Frächter LIKE '%" & search & "%')"
|
|
End If
|
|
|
|
hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC"
|
|
|
|
'If hSort = "" Then
|
|
'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC"
|
|
' Else
|
|
' hSQL += " " & hSort
|
|
' End If
|
|
gridAviso.DefaultCellStyle.Font = gridFont
|
|
gridAviso.RowTemplate.Height = rowHeight 'muss vor Bindung sein
|
|
'gridAviso.DataSource = AvisoDAL.loadDataTableBySQL(hSQL)
|
|
gridAviso.SET_SQL(hSQL, "AVISO")
|
|
gridAviso.LOAD()
|
|
' AVISOBinding.setARITHABORTOn()
|
|
'AVISOBinding.initBinding(hSQL, "Aviso")
|
|
'gridAviso.DataSource = AVISOBinding.bindingSource
|
|
|
|
' MsgBox(hSQL)
|
|
'Grid neu designen
|
|
|
|
gridAviso_SpaltenFestlegen()
|
|
'Tabelle Kommt/Geht bereinigen
|
|
If gridAviso.RowCount = 0 Then
|
|
gridAviso.DataSource = Nothing
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0
|
|
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID)
|
|
End If
|
|
|
|
'Anzeige der Anzahl gewählter Datensätze
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl = gridAviso.RowCount
|
|
'If AnzahlAuswahl > AnzahlAlle Then AnzahlAlle = AnzahlAuswahl
|
|
lblAnzahl.Text = "Einträge: " & Format(VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl, "#,##0") & " ausgewählt" ' / " & Format(AnzahlAlle, "#,##0") & " gesamt"
|
|
|
|
hMerkZeit = Now
|
|
lblZeit_aktuell.Text = "letzte Aktualisierung: " & Format(Now, "HH:mm")
|
|
|
|
|
|
|
|
'Focus auf 1. Zeile setzen, falls Auswahl vorhanden
|
|
If showDetails Then
|
|
If VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl > 0 Then gridAviso.CurrentCell = gridAviso.Rows(0).Cells(1)
|
|
End If
|
|
|
|
Dim hEnde As Integer = My.Computer.Clock.TickCount
|
|
Dim hDifferenz As Integer = hEnde - hStart
|
|
' btnÜbernehmen.Visible = True
|
|
Grid_aktiv = True
|
|
meineAviso_anzeigen()
|
|
If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID <= 0 Then
|
|
If gridAviso.RowCount > 0 Then gridAviso.Rows(0).Selected = True
|
|
End If
|
|
|
|
gridAviso.SetOrder()
|
|
Details_aktiv = True
|
|
|
|
If showDetails Then
|
|
If gridAviso.SelectedRows.Count > 0 Then
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = gridAviso.SelectedRows(0).Cells("AvisoID").Value
|
|
End If
|
|
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
If chkFarben Then GridZeichnenAviso()
|
|
Label8.Visible = False
|
|
lblDauer.Text = "Dauer Anzeige aufbauen: " & hDifferenz.ToString & " ms"
|
|
End Sub
|
|
|
|
|
|
|
|
Function setAkive_AuswahlID() As Integer
|
|
If gridMyAviso.SelectedRows.Count > 0 Then
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("AvisoID").Value)
|
|
ElseIf gridAviso.SelectedRows.Count > 0 Then
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridAviso.Rows(gridAviso.SelectedRows(0).Index).Cells("AvisoID").Value)
|
|
Else
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
|
|
End If
|
|
|
|
|
|
Return VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
|
|
End Function
|
|
|
|
|
|
|
|
Function formatdate(s) As String
|
|
If s IsNot Nothing AndAlso IsDate(s) AndAlso CDate(s) > LeerDatum Then
|
|
If CDate(s).ToShortDateString = Now.ToShortDateString Then
|
|
Return "heute, " & CDate(s).ToShortTimeString & ""
|
|
End If
|
|
Return "" & CDate(s).ToString("dd.MM.") & ", " & CDate(s).ToShortTimeString & ""
|
|
End If
|
|
Return ""
|
|
End Function
|
|
|
|
|
|
Private Sub meineAviso_anzeigen()
|
|
Try
|
|
|
|
If Not Grid_aktiv Then Exit Sub
|
|
' Grid_aktiv = False
|
|
hMerkZeit_MeineAviso = Now
|
|
|
|
|
|
'Dim hSQL As String = " EXECUTE spMyAviso @maId='" & (cGlobal.AktiverMitarbeiter.MitarbeiterID) & "' "
|
|
If gridMyAviso Is Nothing Then Exit Sub
|
|
|
|
gridMyAviso.DefaultCellStyle.Font = gridFont
|
|
gridMyAviso.RowTemplate.Height = rowHeight 'muss vor Bindung sein
|
|
|
|
|
|
If gridMyAviso.Columns IsNot Nothing AndAlso gridMyAviso.ColumnCount > 0 Then ' Sunst komischer Fehler DataAreaMouseLeave
|
|
'gridMyAviso.Columns.Clear() 'Macht CellMouseLeave-Fehler?????
|
|
Try
|
|
gridMyAviso.Columns.Clear()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End If
|
|
|
|
'If gridMyAviso.ColumnCount = 0 Then Exit Sub
|
|
|
|
' Dim sqlStr As String = " SELECT top 5 AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " &
|
|
'" FROM Aviso " &
|
|
'" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
|
|
'" AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND (LetzterMitarbeiterId=@maId OR " &
|
|
'" AVISOid IN ( SELECT distinct(tblSnd_AvisoID) FROM [tblSendungen] WHERE tblSnd_inbearbeitung=1 AND tblSnd_Bearbeitung_MaId=@maId) ) " &
|
|
'"ORDER BY case " &
|
|
'" when [Status] =3 then 0 " &
|
|
'" when [Status] =1 then 1 " &
|
|
'" when [Status] =99 then 2 " &
|
|
'" when [Status] =4 then 3 " &
|
|
'" when [Status] =5 then 4 " &
|
|
'" when [Status] =0 then 5 " &
|
|
'" END, Ankunft"
|
|
|
|
Dim inBearbeitungSQL = " 1<>1 "
|
|
Dim dt As DataTable = VERAGSQL.loadDgvBySql(" SELECT distinct(tblSnd_AvisoID) FROM [tblSendungen] WHERE tblSnd_inbearbeitung=1 AND tblSnd_Bearbeitung_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "", "AVISO")
|
|
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
|
inBearbeitungSQL = " AVISOid IN ("
|
|
For Each r In dt.Rows
|
|
inBearbeitungSQL &= r(0) & ","
|
|
Next
|
|
inBearbeitungSQL = inBearbeitungSQL.Substring(0, inBearbeitungSQL.Length - 1)
|
|
inBearbeitungSQL &= " ) "
|
|
End If
|
|
|
|
Dim sqlStr As String = " SELECT AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " &
|
|
" FROM Aviso " &
|
|
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
|
|
" AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND (LetzterMitarbeiterId=@maId OR " & inBearbeitungSQL & ") " &
|
|
"ORDER BY case " &
|
|
" when [Status] =3 then 0 " &
|
|
" when [Status] =1 then 1 " &
|
|
" when [Status] =99 then 2 " &
|
|
" when [Status] =4 then 3 " &
|
|
" when [Status] =5 then 4 " &
|
|
" when [Status] =0 then 5 " &
|
|
" END, Ankunft"
|
|
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID))
|
|
If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '? vlt hilfts...
|
|
|
|
gridMyAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list)
|
|
|
|
' gridMyAviso.DataSource = VermerkeDAL.loadTableMyAviso(VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID)
|
|
' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate("16.12.2013 11:02:08")), CDate(VarToDate("16.12.2013 12:02:08"))))
|
|
' MsgBox(gridMyAviso.RowCount)
|
|
|
|
Dim bfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold)
|
|
|
|
With gridMyAviso
|
|
.MultiSelect = False
|
|
.Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen
|
|
.Columns("Freigabe").Visible = False 'AvisoID nicht anzeigen
|
|
.Columns("maId").Visible = False 'maID nicht anzeigen
|
|
.Columns("Vorbereitung").Visible = False 'Vorber. nicht anzeigen
|
|
.Columns("LetzterMitarbeiter").Visible = False 'Mitarb. nicht anzeigen
|
|
.Columns("statVorb").Visible = False 'Mitarb. nicht anzeigen
|
|
|
|
.Columns("Status").Width = 110
|
|
.Columns("Status").HeaderText = "Status"
|
|
|
|
.Columns("LKW_Nr").MinimumWidth = 95
|
|
.Columns("LKW_Nr").HeaderText = "LKW-Kennzeichen"
|
|
.Columns("LKW_Nr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
.Columns("AvisoTVHinweis").Visible = False ' = 60
|
|
.Columns("Dauer").Visible = False ' = 60
|
|
|
|
.Columns("Datum").Width = 145 '115
|
|
.Columns("Datum").HeaderText = "Erfasst"
|
|
.Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"
|
|
.Columns("Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
.Columns("AvisoEingang").Visible = False
|
|
' .Columns("AvisoEingang").Width = 120
|
|
' .Columns("AvisoEingang").HeaderText = "Av.Eingang"
|
|
' .Columns("AvisoEingang").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"
|
|
' .Columns("AvisoEingang").DefaultCellStyle.Format = "HH:mm, dddd"
|
|
|
|
.Columns("Ankunft").Width = 145 '115
|
|
.Columns("Ankunft").HeaderText = "Ankunft"
|
|
.Columns("Ankunft").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
|
|
.Columns("Grenzstelle").Visible = True
|
|
.Columns("Grenzstelle").Width = 70
|
|
.Columns("Grenzstelle").HeaderText = "Grenzstelle"
|
|
.Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
Else
|
|
.Columns("Grenzstelle").Visible = False
|
|
End If
|
|
|
|
.Columns("Freigabe").Width = 80
|
|
.Columns("Freigabe").HeaderText = "Freigabe"
|
|
' .Columns("Freigabe").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"
|
|
|
|
.Columns("LKW_fertig").Width = 35
|
|
.Columns("LKW_fertig").HeaderText = "OK"
|
|
.Columns("LKW_fertig").DefaultCellStyle.ForeColor = Color.White
|
|
.Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns("LKW_fertig").DefaultCellStyle.Font = bfont
|
|
|
|
Dim c As New DataGridViewTextBoxColumn
|
|
c.Name = "DauerText"
|
|
c.Width = 115
|
|
c.HeaderText = "Dauer"
|
|
c.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
c.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns.Insert(7, c)
|
|
|
|
|
|
If gridMyAviso.RowCount = 0 Then gridMyAviso.Columns.Clear() : Exit Sub
|
|
|
|
'Dauer berechnen:
|
|
For Each r As DataGridViewRow In .Rows
|
|
|
|
' MsgBox(r.Cells(1).Value)
|
|
' MsgBox(r.Cells(6).Value)
|
|
' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells(6).Value)), Now))
|
|
If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then
|
|
If CInt(r.Cells("Status").Value) > VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then
|
|
r.Cells("Dauer").Value = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now)
|
|
r.Cells("DauerText").Value = cProgramFunctions.MinToTime2(DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now))
|
|
End If
|
|
Else
|
|
r.Cells("DauerText").Value = "0"
|
|
r.Cells("Dauer").Value = "0"
|
|
|
|
End If
|
|
|
|
|
|
If r.Cells("LKW_fertig").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128)
|
|
If r.Cells("Dauer").Value > 120 Then r.Cells("DauerText").Style.ForeColor = Color.Red
|
|
' MsgBox(r.Cells("Dauer").Value)
|
|
|
|
' If CBool(r.Cells("Vorbereitung").Value) = True Then
|
|
'r.Cells("Status").Value = 99
|
|
'End If
|
|
|
|
Next
|
|
|
|
'.Width = gridAviso.Width - gridVermerke.Width
|
|
'.Sort(.Columns(3), System.ComponentModel.ListSortDirection.Descending)
|
|
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
|
.ClearSelection()
|
|
End With
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
' Grid_aktiv = True
|
|
|
|
End Sub
|
|
|
|
Private Sub gridMyAviso_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles gridMyAviso.CellFormatting
|
|
Try
|
|
|
|
|
|
If gridMyAviso Is Nothing Then Exit Sub
|
|
If gridMyAviso.Columns Is Nothing Then Exit Sub
|
|
If gridMyAviso.ColumnCount = 0 Then Exit Sub
|
|
|
|
|
|
'Anzahl Minuten als verständlichen Text anzeigen
|
|
Select Case gridMyAviso.Columns(e.ColumnIndex).Name
|
|
Case "Status" 'Status
|
|
|
|
Dim vb As Boolean = gridMyAviso.Rows(e.RowIndex).Cells("statVorb").Value
|
|
Select Case VarToInt(e.Value)
|
|
Case 0 : e.Value = IIf(vb, "Erfasst (in VB)", "Erfasst") : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60)
|
|
Case 1 : e.Value = IIf(vb, "Freigegeben (in VB)", "Freigegeben")
|
|
Case 2 : e.Value = IIf(vb, "LKW n.e. (in VB)", "LKW n.e.")
|
|
Case 3 : e.Value = IIf(vb, "Ankunft (in VB)", "Ankunft") : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
|
|
Case 4 : e.Value = IIf(vb, "Vorber. (in VB)", "Vorbereitet")
|
|
Case 5 : e.Value = IIf(vb, "Vorg. (in VB)", "Vorgeschrieben")
|
|
' Case 99 : e.Value = "in Vorbereitung" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
|
|
'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown
|
|
' gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
|
|
Case Else : e.Value = "unbekannt"
|
|
End Select
|
|
|
|
' If gridMyAviso.Rows(e.RowIndex).Cells("statVorb").Value = "1" Then
|
|
'e.Value &= " (VB)"
|
|
' End If
|
|
|
|
Case "AvisoEingang" 'Aviso-Eingang
|
|
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
|
|
|
|
Case "Ankunft" 'Ankunft
|
|
If VarToDate(e.Value) = LeerDatum Then
|
|
e.Value = ""
|
|
Else
|
|
' If DateDiff(DateInterval.Minute, CDate(VarToDate(e.Value)), Now) > 120 Then
|
|
' 'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red
|
|
' gridMyAviso.Rows(e.RowIndex).Cells("Dauer").Style.ForeColor = Color.Red
|
|
' gridMyAviso.Rows(e.RowIndex).Cells("Ankunft").Style.ForeColor = Color.Red
|
|
' End If
|
|
End If
|
|
End Select
|
|
|
|
|
|
Catch ex As Exception
|
|
MsgBox("gridMyAviso_CellFormatting" & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub gridAviso_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles gridAviso.CellFormatting
|
|
'Anzahl Minuten als verständlichen Text anzeigen
|
|
Select Case gridAviso.Columns(e.ColumnIndex).Name
|
|
Case "Status" 'Status
|
|
Select Case VarToInt(e.Value)
|
|
Case 0 : e.Value = "Erfasst"
|
|
Case 1 : e.Value = "Freigegeben"
|
|
Case 2 : e.Value = "LKW n.e."
|
|
Case 3 : e.Value = "Ankunft"
|
|
Case 4 : e.Value = "Vorbereitet"
|
|
Case 5 : e.Value = "Vorgeschrieben"
|
|
Case Else : e.Value = "unbekannt"
|
|
End Select
|
|
|
|
Case "AvisoEingang" 'Aviso-Eingang
|
|
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
|
|
|
|
Case "Datum" 'Aviso-Eingang
|
|
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
|
|
|
|
Case "Erfasst" 'Aviso-Eingang
|
|
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
|
|
|
|
Case "Vorbereitet" 'Vorbereitet
|
|
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
|
|
|
|
Case "Vorgeschrieben" 'Vorgeschrieben
|
|
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
|
|
|
|
Case "Ankunft" 'Ankunft
|
|
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
|
|
|
|
Case "Freigabe" 'Abfahrt
|
|
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
|
|
|
|
Case "Dauer" 'Dauer
|
|
|
|
If VarToInt(e.Value) > 120 Then
|
|
gridAviso.Rows(e.RowIndex).Cells("Dauer").Style.ForeColor = Color.Red
|
|
End If
|
|
If VarToInt(e.Value) = 0 Then
|
|
e.Value = ""
|
|
Else
|
|
e.Value = Minuten_auf_Text(VarToLng(e.Value))
|
|
End If
|
|
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
Private Sub GridZeichnenAviso()
|
|
'hier wird der Grid speziell designed
|
|
If gridAviso.RowCount = 0 Then Exit Sub
|
|
'Falls Kunde auf inaktiv steht, dann wird Zeile ausgegraut angezeigt
|
|
For Each dr As DataGridViewRow In gridAviso.Rows
|
|
Select Case VarToInt(dr.Cells("Status").Value)
|
|
Case 0 'erfasst
|
|
dr.DefaultCellStyle.SelectionBackColor = Color.FromArgb(230, 0, 0)
|
|
dr.DefaultCellStyle.ForeColor = Color.FromArgb(230, 0, 0)
|
|
dr.DefaultCellStyle.SelectionForeColor = Color.White
|
|
Case 1 'freigegeben
|
|
dr.DefaultCellStyle.SelectionBackColor = Color.Green
|
|
dr.DefaultCellStyle.ForeColor = Color.Green
|
|
dr.DefaultCellStyle.SelectionForeColor = Color.White
|
|
Case 2 'LKW nicht eingetroffen
|
|
dr.DefaultCellStyle.SelectionBackColor = Color.Gray
|
|
dr.DefaultCellStyle.ForeColor = Color.Gray
|
|
dr.DefaultCellStyle.SelectionForeColor = Color.White
|
|
Case 3 'Ankunft
|
|
dr.DefaultCellStyle.SelectionBackColor = Color.Blue
|
|
dr.DefaultCellStyle.ForeColor = Color.Blue
|
|
dr.DefaultCellStyle.SelectionForeColor = Color.White
|
|
Case 4 'Vorbereitet
|
|
dr.DefaultCellStyle.SelectionBackColor = Color.Brown
|
|
dr.DefaultCellStyle.ForeColor = Color.Brown
|
|
dr.DefaultCellStyle.SelectionForeColor = Color.White
|
|
Case 5 'Vorbereitet
|
|
dr.DefaultCellStyle.SelectionBackColor = Color.Purple
|
|
dr.DefaultCellStyle.ForeColor = Color.Purple
|
|
dr.DefaultCellStyle.SelectionForeColor = Color.White
|
|
End Select
|
|
dr.Cells("Status").Style.BackColor = dr.DefaultCellStyle.ForeColor
|
|
dr.Cells("Status").Style.SelectionForeColor = dr.DefaultCellStyle.ForeColor
|
|
dr.Cells("LKW_Nr").Style.BackColor = lkwbackcolor
|
|
'dr.Cells("LKW_Nr").Style.SelectionBackColor = lkwbackcolorSel
|
|
' dr.Cells("LKW_Nr").Style.SelectionForeColor = Color.Black
|
|
Next
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub mnuPunkt_Click(sender As Object, e As System.EventArgs) Handles mnuInfo.Click, mnuFirmen.Click
|
|
'Hier werden alle Menüpunkte abgearbeitet
|
|
If sender Is mnuInfo Then
|
|
Dim f As New frmInfo
|
|
f.ShowDialog(Me)
|
|
Exit Sub
|
|
End If
|
|
End Sub
|
|
|
|
Sub initDat()
|
|
Dim tmpGrid_aktiv = Grid_aktiv
|
|
Grid_aktiv = False
|
|
If tbcntrAviso.SelectedIndex = 0 Then
|
|
cboGrenzstelle.SelectedIndex = 0
|
|
MyComboBox1.changeItem(UStatus_AVEingang)
|
|
dtpVon.Value = Now.AddDays(-15)
|
|
dtpBis.Value = Now.AddDays(1)
|
|
ElseIf tbcntrAviso.SelectedTab Is tabFreigegeben Then
|
|
MyComboBox1.changeItem(Status_Freigegeben)
|
|
dtpVon.Value = Now
|
|
dtpBis.Value = Now
|
|
End If
|
|
Grid_aktiv = tmpGrid_aktiv
|
|
End Sub
|
|
|
|
Private Sub tbcntrAviso_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntrAviso.SelectedIndexChanged
|
|
If Not Grid_aktiv Then Exit Sub
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
|
|
SucheStandort = ""
|
|
initDat()
|
|
Aviso_anzeigen("")
|
|
|
|
setAkive_AuswahlID() 'Lädt die aktuelle ID
|
|
If gridAviso.SelectedRows.Count > 0 Or gridMyAviso.SelectedRows.Count > 0 Then
|
|
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, False)
|
|
Else
|
|
pnlDetailsRechts.Visible = False
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub btnAlleAnzeigen_Click(sender As System.Object, e As System.EventArgs) Handles btnAlleAnzeigen.Click
|
|
|
|
If sender Is btnAlleAnzeigen Then
|
|
'Auswahl wird zurückgesetzt, alle Einträge werden angezeigt
|
|
Grid_aktiv = False
|
|
dtpVon.Value = #1/1/2013#
|
|
dtpBis.Value = #12/31/2099#
|
|
txtSuche.Text = ""
|
|
'optAlle.Checked = True
|
|
tbcntrAviso.SelectedIndex = 0
|
|
Grid_aktiv = True
|
|
SucheStandort = ""
|
|
Aviso_anzeigen("")
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
|
|
|
|
Private Sub txtSuche_GotFocus(sender As Object, e As EventArgs) Handles txtSuche.Enter
|
|
Try
|
|
If My.Computer.Keyboard.CapsLock Then
|
|
Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 1, 0)
|
|
Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 3, 0)
|
|
End If
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub txtSuche_KeyDown1(sender As Object, e As PreviewKeyDownEventArgs) Handles txtSuche.PreviewKeyDown
|
|
If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Tab Then
|
|
Aviso_anzeigen("")
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub txtSuche_KeyDown(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
|
|
Label8.Visible = True
|
|
' Exit Sub
|
|
'If e.KeyCode = Keys.Return Then
|
|
If Not Grid_aktiv Then Exit Sub
|
|
' If txtSuche.Text.Length = 1 Then Exit Sub
|
|
If txtSuche.Text.StartsWith("/") Then
|
|
If txtSuche.Text.Length > 3 And txtSuche.Text.EndsWith("/") Then 'AVISO ID
|
|
If txtSuche.Text.Count(Function(c As Char) c = "/") > 2 Then
|
|
Exit Sub
|
|
End If
|
|
If txtSuche.Text.Contains("-") Then
|
|
|
|
Dim t As String = txtSuche.Text
|
|
' t = t.Replace("/V003/", "")
|
|
t = t.Replace("/", "")
|
|
Dim v() = t.Split("-")
|
|
'Dim o As New cOptionenDAL
|
|
If v.Length > 1 Then
|
|
|
|
Dim dt As DataTable = AvisoDAL.loadDataTableBySQL("SELECT TOP 1 tblSnd_AvisoID,tblSnd_SendungID FROM [tblSendungen] WHERE [FilialenNr]='" & v(0) & "' AND [AbfertigungsNr]='" & v(1) & "' AND [UnterNr]='" & v(2) & "' ")
|
|
If dt.Rows.Count > 0 Then
|
|
|
|
Dim avisoidTmp = dt.Rows(0)("tblSnd_AvisoID")
|
|
Dim sndidTmp = dt.Rows(0)("tblSnd_SendungID")
|
|
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = avisoidTmp
|
|
FUNC.AktUebernehmen(avisoidTmp) 'Übernahme des Aktes
|
|
gridAviso.ClearSelection()
|
|
gridMyAviso.ClearSelection()
|
|
Details_anzeigen(avisoidTmp, False)
|
|
selectRow(avisoidTmp)
|
|
Try
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "VERAG", "IMEX"
|
|
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).openSnd(sndidTmp)
|
|
End Select
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
txtSuche.Text = ""
|
|
End If
|
|
|
|
End If
|
|
Else
|
|
Dim avisoidTmp = txtSuche.Text.Replace("/", "")
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = avisoidTmp
|
|
FUNC.AktUebernehmen(avisoidTmp) 'Übernahme des Aktes
|
|
gridAviso.ClearSelection()
|
|
gridMyAviso.ClearSelection()
|
|
Details_anzeigen(avisoidTmp)
|
|
selectRow(avisoidTmp)
|
|
txtSuche.Text = ""
|
|
End If
|
|
End If
|
|
Else
|
|
' SucheStandort = ""
|
|
' Aviso_anzeigen("")
|
|
' JETZT NU BEI ENTER
|
|
|
|
'gridAviso.Refresh() 'für Variante mit Treffer gelb anzeigen
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub selectRow(AvisoId)
|
|
Try
|
|
For Each r As DataGridViewRow In gridAviso.Rows
|
|
If r.Cells("AvisoId").Value = AvisoId Then
|
|
r.Selected = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
For Each r As DataGridViewRow In gridMyAviso.Rows
|
|
If r.Cells("AvisoId").Value = AvisoId Then
|
|
r.Selected = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
Private Sub dtp_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpVon.ValueChanged, dtpBis.ValueChanged
|
|
If Not pnlSearch.Visible Then
|
|
If Not Grid_aktiv Then Exit Sub
|
|
Aviso_anzeigen("")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub WichtigChanged(sender As System.Object, e As System.EventArgs) Handles btnWichtigeStandort.Click, btnWichtige.Click
|
|
Grid_aktiv = False
|
|
Dim hSort As String = ""
|
|
|
|
' SucheStandort = ""
|
|
|
|
dtpVon.Value = Now.AddDays(-15)
|
|
dtpBis.Value = Now.AddDays(1)
|
|
'optAnkunft.Checked = True
|
|
tbcntrAviso.SelectedTab = tabAnkunft
|
|
txtSuche.Text = ""
|
|
hSort = " ORDER BY Ankunft"
|
|
' If sender Is btnWichtigeStandort Then SucheStandort = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Grenzstelle.Trim
|
|
If sender Is btnWichtigeStandort Then
|
|
cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
|
|
End If
|
|
If sender Is btnWichtige Then
|
|
cboGrenzstelle.SelectedIndex = 0
|
|
End If
|
|
|
|
Grid_aktiv = True
|
|
Aviso_anzeigen(hSort)
|
|
End Sub
|
|
|
|
Private Sub GrenzstelleChanged(sender As System.Object, e As System.EventArgs) Handles cboGrenzstelle.SelectedIndexChanged
|
|
If Grid_aktiv Then
|
|
' SucheStandort = cboGrenzstelle.Text.Replace("ALLE", "")
|
|
Aviso_anzeigen("")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnHeute_Click(sender As System.Object, e As System.EventArgs) Handles MyComboBox1.SelectedIndexChanged, btnWoche.Click, btnHeute.Click, btnGestern.Click
|
|
If Not Grid_aktiv Then Exit Sub
|
|
Grid_aktiv = False
|
|
Dim hSort As String = ""
|
|
|
|
' SucheStandort = ""
|
|
If sender Is btnHeute Then
|
|
dtpVon.Value = Now.Date
|
|
dtpBis.Value = Now.Date
|
|
ElseIf sender Is btnGestern Then
|
|
dtpVon.Value = Now.Date.AddDays(-1)
|
|
dtpBis.Value = Now.Date.AddDays(-1)
|
|
ElseIf sender Is btnWoche Then
|
|
dtpVon.Value = Now.Date.AddDays(-7)
|
|
dtpBis.Value = Now.Date
|
|
End If
|
|
Grid_aktiv = True
|
|
Aviso_anzeigen(hSort)
|
|
End Sub
|
|
|
|
Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr
|
|
|
|
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
|
|
|
|
Try
|
|
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
|
|
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
|
|
End If
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
If False Then 'NUR AKTUALISIEREN; WENN FENSTER AKTIV --> bei 2. Monitor PROBLEM
|
|
Try
|
|
If GetActiveWindow = Me.Handle Then
|
|
|
|
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
|
|
' System.Threading.Thread.Sleep(1000) '? warum??
|
|
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
|
|
End If
|
|
Else
|
|
hMerkZeit = hMerkZeit.AddSeconds(-60) 'Somit wird beid er nächste Aktiveierung aktualisiert
|
|
If DateDiff(DateInterval.Second, hMerkZeit2, Now) > 10 Then
|
|
gridAviso.RELOAD()
|
|
GridZeichnenAviso()
|
|
initDauerLKWFertig()
|
|
hMerkZeit2 = Now
|
|
End If
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click
|
|
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub gridAviso_ColumnHeaderMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridAviso.ColumnHeaderMouseClick
|
|
GridZeichnenAviso()
|
|
End Sub
|
|
|
|
Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles Button1.MouseEnter, Button7.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnNeu.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnGenerelleGestellungen.MouseEnter, btnDrucken.MouseEnter
|
|
Try
|
|
Dim cF As Color = DirectCast(sender, Button).ForeColor
|
|
Dim cB As Color = DirectCast(sender, Button).BackColor
|
|
If cF = Color.Black Then cF = Color.Gray
|
|
DirectCast(sender, Button).ForeColor = cB
|
|
DirectCast(sender, Button).BackColor = cF
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave, Button7.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnNeu.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnGenerelleGestellungen.MouseLeave, btnDrucken.MouseLeave
|
|
Try
|
|
Dim cF As Color = DirectCast(sender, Button).ForeColor
|
|
Dim cB As Color = DirectCast(sender, Button).BackColor
|
|
If cB = Color.Gray Then cB = Color.Black
|
|
DirectCast(sender, Button).ForeColor = cB
|
|
DirectCast(sender, Button).BackColor = cF
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridMyAviso.DoubleClick, gridAviso.DoubleClick
|
|
|
|
|
|
If gridAviso.SelectedRows.Count = 0 And gridMyAviso.SelectedRows.Count = 0 Then Exit Sub
|
|
|
|
' VERAG_PROG_ALLGEMEIN.cglobal.Aktive_Zeile = -1
|
|
' If gridAviso.SelectedRows.Count > 0 Then VERAG_PROG_ALLGEMEIN.cglobal.Aktive_Zeile = gridAviso.CurrentRow.Index
|
|
|
|
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
|
Dim f As New frmEintragAviso
|
|
f.ShowDialog(frmGrayOut)
|
|
frmGrayOut.Close()
|
|
btnRefresh.PerformClick() 'Aviso_anzeigen("")
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub btnNeu_Click(sender As System.Object, e As System.EventArgs) Handles btnNeu.Click
|
|
Try
|
|
gridAviso.ClearSelection()
|
|
gridMyAviso.ClearSelection()
|
|
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
|
Dim f As New frmEintragAviso
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0
|
|
' f.frmHilf = Me
|
|
If Not f.IsDisposed And f IsNot Nothing And Not frmGrayOut.IsDisposed And frmGrayOut IsNot Nothing Then
|
|
f.ShowDialog(frmGrayOut)
|
|
End If
|
|
frmGrayOut.Close()
|
|
btnRefresh.PerformClick() 'Aviso_anzeigen("")
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub btnLöschen_Click(sender As System.Object, e As System.EventArgs)
|
|
|
|
End Sub
|
|
|
|
Private Sub btnDrucken_Click(sender As System.Object, e As System.EventArgs) Handles btnDrucken.Click
|
|
|
|
'MsgBox("Druck steht derzeit noch nicht zur Verfügung.", vbInformation)
|
|
Dim f As New frmAuswahl_Aviso
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub btnPaketdienst_Click(sender As System.Object, e As System.EventArgs) Handles btnKunden.Click
|
|
'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing
|
|
If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then
|
|
Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront()
|
|
Exit Sub
|
|
End If
|
|
' Next
|
|
Dim zoll As New SDL.frmKundenUebersichtZOLL
|
|
zoll.Show()
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
|
|
|
|
For Each ft As Form In Application.OpenForms
|
|
If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then
|
|
ft.BringToFront()
|
|
Exit Sub
|
|
End If
|
|
Next
|
|
|
|
Dim sped As New SDL.frmSpeditionsbuchSuche
|
|
sped.Show()
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Declare Function ShowWindow Lib "user32" _
|
|
(ByVal hWnd As System.IntPtr, ByVal nCmdShow As Long) As Long
|
|
|
|
Private Const SW_RESTORE = 9
|
|
|
|
|
|
Private Function DoesProcessExists(ByVal PName As String) As Boolean
|
|
If System.Diagnostics.Process.GetProcessesByName(PName).Count = 0 Then Return False
|
|
Shell("UID.exe", AppWinStyle.NormalFocus)
|
|
' ShowWindow(System.Diagnostics.Process.GetProcessesByName(PName)(0).MainWindowHandle, SW_RESTORE)
|
|
Return True
|
|
For Each p As Process In System.Diagnostics.Process.GetProcessesByName(PName)
|
|
|
|
If p.StartInfo.UserName = Environment.UserName Then
|
|
|
|
|
|
' ShowWindow(p.MainWindowHandle, SW_RESTORE)
|
|
|
|
Return True
|
|
End If
|
|
Next
|
|
Return False
|
|
End Function
|
|
Private Sub old_Click(sender As System.Object, e As System.EventArgs)
|
|
|
|
|
|
|
|
|
|
If Paketdienste_EXE = "" Then
|
|
MsgBox("Es ist kein Pfad für den Programm-Aufruf zugewiesen. Bitte den Administrator verständigen.", vbInformation)
|
|
Exit Sub
|
|
End If
|
|
If Not File.Exists(Paketdienste_EXE) Then
|
|
MsgBox("Die Zuweisung zum Programm-Aufruf ist falsch." & vbCrLf & vbCrLf & Paketdienste_EXE & vbCrLf & vbCrLf &
|
|
"Bitte den Administrator verständigen.", vbInformation)
|
|
Exit Sub
|
|
End If
|
|
|
|
'Dim Program As ProcessStartInfo = New ProcessStartInfo
|
|
'Dim ProgramProcess As Process = New Process
|
|
|
|
'Program.Arguments = Paketdienste_EXE
|
|
'Program.UseShellExecute = True
|
|
'Program.CreateNoWindow = False
|
|
'Program.WindowStyle = ProcessWindowStyle.Normal
|
|
'Program.WorkingDirectory = ""
|
|
Try
|
|
Process.Start(Paketdienste_EXE)
|
|
Catch ex As Exception
|
|
Throw New ApplicationException("Startshell", ex)
|
|
End Try
|
|
|
|
End Sub
|
|
Private Sub kexdown(sender As Object, e As KeyEventArgs) Handles gridMyAviso.KeyUp, gridAviso.KeyUp
|
|
Try
|
|
|
|
If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
|
|
If sender.selectedRows.count = 0 Then Exit Sub
|
|
Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
|
|
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
|
|
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Public Sub lblHinweiseVisible()
|
|
If gridMyAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridMyAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "")
|
|
If gridAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "")
|
|
End Sub
|
|
Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True)
|
|
|
|
pic.Visible = False
|
|
Try
|
|
|
|
|
|
If Not Grid_aktiv Then Exit Sub
|
|
Details_aktiv = False
|
|
|
|
|
|
If Aviso_anzeigenBool Then Aviso_anzeigen("", False) ': meineAviso_anzeigen()
|
|
|
|
|
|
|
|
gridMyAviso.ClearSelection()
|
|
gridAviso.ClearSelection()
|
|
For Each r As DataGridViewRow In gridAviso.Rows
|
|
If CInt(r.Cells("AvisoId").Value) = tmpid Then
|
|
' gridMyAviso.ClearSelection()
|
|
gridAviso.CurrentCell = r.Cells("Status")
|
|
r.Selected = True : Exit For
|
|
End If
|
|
Next
|
|
For Each r As DataGridViewRow In gridMyAviso.Rows
|
|
If CInt(r.Cells("AvisoId").Value) = tmpid Then
|
|
' gridAviso.ClearSelection()
|
|
gridMyAviso.CurrentCell = r.Cells("Status")
|
|
r.Selected = True : Exit For
|
|
End If
|
|
Next
|
|
|
|
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid
|
|
Details_aktiv = True
|
|
|
|
If pnlDetailsRechts.Controls.Count > 0 Then
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "VERAG"
|
|
Dim usrcntl As usrcntlAktDetails = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails)
|
|
If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
|
|
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
Else
|
|
If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
|
|
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End If
|
|
Case "IMEX"
|
|
Dim usrcntl As usrcntlAktDetails = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails)
|
|
If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
|
|
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
Else
|
|
If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
|
|
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End If
|
|
Case "ATILLA"
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then
|
|
Dim usrcntl As usrcntlAktDetailsATILLANeu = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu)
|
|
If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
|
|
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
Else
|
|
If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
|
|
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End If
|
|
Else
|
|
Dim usrcntl As usrcntlAktDetailsATILLA = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA)
|
|
If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
|
|
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
Else
|
|
If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
|
|
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
End Select
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
' pic.Visible = True
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridMyAviso.CellMouseClick, gridAviso.CellMouseClick
|
|
|
|
If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
|
|
'If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
|
|
'gridMyAviso.ClearSelection() 'WARUM?
|
|
If sender Is gridAviso Then gridMyAviso.ClearSelection()
|
|
If sender Is gridMyAviso Then gridAviso.ClearSelection()
|
|
' MsgBox(Grid_aktiv)
|
|
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
|
|
If e.Button = Windows.Forms.MouseButtons.Right Then
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
|
If sender Is gridAviso Then
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(sender.Rows(e.RowIndex).Cells("AvisoId").Value)
|
|
sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex)
|
|
conMenuAviso.Show(Windows.Forms.Cursor.Position)
|
|
End If
|
|
Else
|
|
Dim tmpId = CInt(sender.Rows(e.RowIndex).Cells("AvisoId").Value)
|
|
setAkive_AuswahlID()
|
|
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
|
|
Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status
|
|
If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
|
|
'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation)
|
|
lblErrVermerk.Width = 300
|
|
lblErrVermerk.Visible = True
|
|
hideErr.Enabled = True
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
|
Dim sv As New frmAddAktenvermerkShort(tmpId)
|
|
sv.Location = Me.PointToClient(System.Windows.Forms.Cursor.Position)
|
|
' sv.ShowDialog()
|
|
sv.ShowDialog(frmGrayOut)
|
|
frmGrayOut.Close()
|
|
|
|
End If
|
|
ElseIf e.Button = Windows.Forms.MouseButtons.Left Then
|
|
Dim tmpId = CInt(sender.Rows(e.RowIndex).Cells("AvisoId").Value)
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
|
|
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVorgeschrieben.Click, conVorbereitet.Click, conÜbernehmen.Click, conNichtEingetroffen.Click, conFreigabe.Click, conFertig.Click, conAnkunft.Click ',conVermerkLöschen.Click
|
|
|
|
Timer1.Enabled = False
|
|
|
|
If sender Is conFertig Then
|
|
btnFertig.PerformClick()
|
|
End If
|
|
|
|
If sender Is conVorbereitet Then
|
|
FUNC.setVorbereitet(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
' If btnVorbereitet.Visible Then
|
|
'btnVorbereitet.PerformClick()
|
|
'Else
|
|
' MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation)
|
|
' End If
|
|
End If
|
|
|
|
If sender Is conVorgeschrieben Then
|
|
FUNC.setVorgeschreiben(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
'If btnVorgeschrieben.Visible Then
|
|
'btnVorgeschrieben.PerformClick()
|
|
'Else
|
|
' MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation)
|
|
'End If
|
|
End If
|
|
|
|
|
|
If sender Is conAnkunft Then
|
|
FUNC.setAnkunft(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
' If btnFreigabe.Visible Then
|
|
' btnAnkunft.PerformClick()
|
|
' Else
|
|
' MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation)
|
|
' End If
|
|
End If
|
|
|
|
If sender Is conFreigabe Then
|
|
FUNC.setFreigabe(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, Me)
|
|
'If btnFreigabe.Visible Then
|
|
' btnFreigabe.PerformClick()
|
|
' Else
|
|
' MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation)
|
|
' End If
|
|
End If
|
|
|
|
If sender Is conNichtEingetroffen Then
|
|
FUNC.setNichtEingeftroffen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
' If btnFreigabe.Visible Then
|
|
' btnNichtEingetroffen.PerformClick()
|
|
' Else
|
|
' MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation)
|
|
' End If
|
|
End If
|
|
|
|
If sender Is conÜbernehmen Then
|
|
FUNC.AktUebernehmen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
'btnÜbernehmen.PerformClick()
|
|
End If
|
|
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
|
|
Timer1.Enabled = True
|
|
End Sub
|
|
|
|
|
|
' Private Sub chkFarben_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkFarbenChanged
|
|
'Aviso_anzeigen("")
|
|
' End Sub
|
|
|
|
Public Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click
|
|
frmLogin.UpdateAVISO()
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs)
|
|
'MsgBox(cGlobal.AktiverMitarbeiter.Mitarbeiter)
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
|
|
frmAuswertung.Show()
|
|
Else
|
|
MsgBox("Nicht verfügbar!", vbInformation)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
|
|
Me.Visible = False
|
|
Me.MaximumSize = Screen.PrimaryScreen.WorkingArea.Size
|
|
'Me.MaximumSize = New Size(1920, 1000)
|
|
Me.WindowState = FormWindowState.Normal
|
|
Me.Location = New Point(0, 0)
|
|
Me.Size = Screen.PrimaryScreen.WorkingArea.Size
|
|
' MsgBox(Me.Size.Height)
|
|
|
|
Details_aktiv = True
|
|
' If gridMyAviso.RowCount > 0 Then
|
|
'gridMyAviso.Rows(0).Selected = True
|
|
'ElseIf gridAviso.RowCount > 0 Then
|
|
'gridAviso.Rows(0).Selected = True
|
|
'End If
|
|
|
|
' Details_anzeigen(setAkive_AuswahlID())
|
|
timerStart.Interval = 500
|
|
timerStart.Enabled = True
|
|
TimerUPDATE.Enabled = True
|
|
Me.Visible = True
|
|
If sd = 0 Then sd = SplitContainer1.SplitterDistance
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
|
btnGenerelleGestellungen.Visible = False
|
|
Button6.Visible = False
|
|
tbcntrAviso.TabPages.RemoveAt(2)
|
|
btnWichtigeStandort.Visible = False
|
|
pnlLinks.Visible = False
|
|
Label4.Visible = False
|
|
cboGrenzstelle.Visible = False
|
|
BürgschaftenExcelToolStripMenuItem.Visible = True
|
|
ToolStripMenuItem4.Visible = True
|
|
ToolStripMenuItem5.Visible = True
|
|
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
|
|
btnGenerelleGestellungen.Visible = False
|
|
Else 'VERAG
|
|
BürgschaftenExcelToolStripMenuItem.Visible = True
|
|
ToolStripMenuItem4.Visible = True
|
|
ToolStripMenuItem5.Visible = True
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
|
|
Button5.Visible = True
|
|
End If
|
|
End If
|
|
If SplitContainer2.Width > 800 Then
|
|
'SplitContainer2.Panel2MinSize = 600
|
|
SplitContainer2.SplitterDistance = SplitContainer2.Width - 750
|
|
End If
|
|
|
|
If My.Computer.Screen.WorkingArea.Width < 1300 Then
|
|
'tabAnkunft.Text = "ANKUNFT."
|
|
'tabErfasst.Text = "ERFASST"
|
|
tabVorbereitet.Text = "2.Vorb.QS"
|
|
tabVorgeschrieben.Text = "3.Vorgeschr."
|
|
'tabFreigegeben.Text = "FREIGABE"
|
|
tabNichtEingetroffen.Text = "N.E."
|
|
' tabVorgeschrieben.Text = "VORGESCHR."
|
|
|
|
End If
|
|
tbcntrAviso.Width = Panel1.Width
|
|
End Sub
|
|
|
|
WithEvents timerStart As New Timer
|
|
|
|
Private Sub timerStart_Tick(sender As Object, e As EventArgs) Handles timerStart.Tick
|
|
Details_anzeigen(setAkive_AuswahlID())
|
|
|
|
Try
|
|
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
timerStart.Enabled = False
|
|
End Sub
|
|
|
|
|
|
Private Sub frmMain_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
|
|
If Me.WindowState = FormWindowState.Minimized Then Exit Sub
|
|
|
|
' If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 760) > 0 Then
|
|
' SplitContainer1.SplitterDistance = SplitContainer1.Width - 760
|
|
' End If
|
|
If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 630) > 0 Then
|
|
SplitContainer1.SplitterDistance = SplitContainer1.Width - 630
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub KdNrZuordnenToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
|
If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
|
|
frmZuordnungKd.Show()
|
|
Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.")
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
cntxt.Show(Cursor.Position)
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnMinimieren.Click
|
|
Me.WindowState = FormWindowState.Minimized
|
|
End Sub
|
|
|
|
Private Sub TimerAkte_Tick(sender As Object, e As EventArgs) Handles TimerAkte.Tick
|
|
lblAkte.Visible = False
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub btnBar_Click(sender As Object, e As EventArgs)
|
|
frmBarcodeGenerator.Show()
|
|
End Sub
|
|
|
|
Private Sub NacherfassungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NacherfassungToolStripMenuItem.Click
|
|
If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
|
|
Dim frmNacherfassung As New SDL.frmNacherfassungNEU
|
|
frmNacherfassung.Show()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub StatistikADMINToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StatistikADMINToolStripMenuItem.Click
|
|
'MsgBox(cGlobal.AktiverMitarbeiter.Mitarbeiter)
|
|
If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
|
|
frmAuswertung.Show()
|
|
Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LKWBerichtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LKWBerichtToolStripMenuItem.Click
|
|
frmLKWBericht.ShowDialog(Me)
|
|
End Sub
|
|
|
|
Private Sub GenerelleGestellungenDurchsuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GenerelleGestellungenDurchsuchenToolStripMenuItem.Click
|
|
frmGenerelleGestellungen.ShowDialog()
|
|
|
|
End Sub
|
|
|
|
Private Sub KundenVonFremdenSpeditionenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KundenVonFremdenSpeditionenToolStripMenuItem.Click
|
|
Dim frmKundenFremdeSpeditionen As New frmKundenFremdeSpeditionen
|
|
frmKundenFremdeSpeditionen.ShowDialog()
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub StandorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StandorteToolStripMenuItem.Click
|
|
Dim f As New frmTabelleStandorte
|
|
f.ShowDialog(Me)
|
|
Exit Sub
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub KdNrZuordnenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles KdNrZuordnenToolStripMenuItem.Click
|
|
If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
|
|
frmZuordnungKd.Show()
|
|
Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OptionenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles OptionenToolStripMenuItem1.Click
|
|
gridAviso.ClearSelection()
|
|
gridMyAviso.ClearSelection()
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 1
|
|
Dim f As New frmEintragOptionen
|
|
f.ShowDialog(Me)
|
|
End Sub
|
|
|
|
Private Sub VorlagenUploadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlagenUploadToolStripMenuItem.Click
|
|
Dim vu As New VERAG_PROG_ALLGEMEIN.frmVorlagen
|
|
vu.ShowDialog()
|
|
|
|
End Sub
|
|
|
|
Private Sub gridAviso_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridAviso.CellContentClick
|
|
|
|
End Sub
|
|
|
|
Private Sub BarcodeTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BarcodeTestToolStripMenuItem.Click
|
|
If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
|
|
frmBarcodeGenerator.Show()
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub btnAsd_Click(sender As Object, e As EventArgs) Handles btnAsd.Click
|
|
newNotify(1, gridMyAviso.Rows(0).Cells("LKW_Nr").Value, gridMyAviso.Rows(0).Cells("AvisoId").Value)
|
|
End Sub
|
|
|
|
Sub newNotify(title As Integer, text As String, id As Integer)
|
|
Exit Sub 'NICHT AKTIV
|
|
Dim frmNotify As New frmNotify(title, text, id)
|
|
|
|
Dim tmpY As Integer = Me.Height
|
|
For Each ft As Form In Application.OpenForms
|
|
If ft.GetType.ToString = "AVISO.frmNotify" Then
|
|
If ft.Location.Y < tmpY Then tmpY = ft.Location.Y
|
|
End If
|
|
Next
|
|
frmNotify.Y = tmpY - frmNotify.Height - 10
|
|
frmNotify.Show()
|
|
End Sub
|
|
|
|
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
|
|
newNotify(3, gridMyAviso.Rows(1).Cells("LKW_Nr").Value, gridMyAviso.Rows(1).Cells("AvisoId").Value)
|
|
End Sub
|
|
|
|
Private Sub timerStandzeit_Tick(sender As Object, e As EventArgs) Handles timerStandzeit.Tick
|
|
Dim maId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
|
|
Dim dt As DataTable = AvisoDAL.getStandzeitInfo(maId, 1441, 9999999, 2)
|
|
|
|
For Each r As DataRow In dt.Rows
|
|
newNotify(3, dt.Rows(0).Item("LKW_Nr").ToString, dt.Rows(0).Item("AvisoId").ToString)
|
|
AvisoDAL.UpdateWarnstufe(dt.Rows(0).Item("AvisoId").ToString, 2)
|
|
Next
|
|
|
|
dt = Nothing
|
|
dt = AvisoDAL.getStandzeitInfo(maId, 120, 1440, 1)
|
|
For Each r As DataRow In dt.Rows
|
|
newNotify(1, dt.Rows(0).Item("LKW_Nr").ToString, dt.Rows(0).Item("AvisoId").ToString)
|
|
AvisoDAL.UpdateWarnstufe(dt.Rows(0).Item("AvisoId").ToString, 1)
|
|
Next
|
|
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs)
|
|
'timerStandzeit_Tick(timerStandzeit, New EventArgs)
|
|
' Dim zt As New SDL.frmZolltarif
|
|
' zt.Show()
|
|
Dim f As New Form
|
|
f.WindowState = FormWindowState.Maximized
|
|
|
|
Dim usr As New SDL.usrcntlKundeBearbeitenFull(401053)
|
|
usr.Dock = DockStyle.Fill
|
|
f.Controls.Add(usr)
|
|
f.Show()
|
|
'Dim k As New cAdressen(401053)
|
|
'MsgBox(k.BLZ)
|
|
End Sub
|
|
|
|
|
|
Private Sub btnFertig_Click(sender As Object, e As EventArgs) Handles btnFertig.Click
|
|
FUNC.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End Sub
|
|
|
|
|
|
Private Sub pnlDetailsLinks_Paint(sender As Object, e As PaintEventArgs) Handles pnlDetailsLinks.Paint
|
|
|
|
End Sub
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnGenerelleGestellungen.Click
|
|
frmGenerelleGestellungen.ShowDialog()
|
|
End Sub
|
|
|
|
|
|
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
|
MsgBox("Noch nicht verfügbar")
|
|
Exit Sub
|
|
Dim frmKundenFremdeSpeditionen As New frmKundenFremdeSpeditionen
|
|
frmKundenFremdeSpeditionen.ShowDialog()
|
|
End Sub
|
|
|
|
|
|
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Gestellungsgarantie)
|
|
End Sub
|
|
|
|
Private Sub ZollvollmachtDEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolStrVM_de.Click
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Vollmacht)
|
|
'cFormularManager.fillVollmacht(-1, "ZVM_DE")
|
|
End Sub
|
|
|
|
|
|
Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK)
|
|
End Sub
|
|
|
|
Private Sub ZollFiskalVMCustomsServiceGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolStrVM_at.Click
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht)
|
|
' cFormularManager.fillVollmacht(-1, "ZVM_CS")
|
|
End Sub
|
|
|
|
Private Sub ExportVMToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolStrVM_at4200.Click
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Fiskal)
|
|
' cFormularManager.fillVollmacht(-1, "ZVM_CS_4200")
|
|
End Sub
|
|
|
|
Private Sub VeragCustomsServiceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VeragCustomsServiceToolStripMenuItem.Click
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_CS)
|
|
|
|
End Sub
|
|
|
|
Private Sub ImportavisoVorauskasseToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK)
|
|
'cFormularManager.fillImportaviso(-1, "Vorauskasse")
|
|
End Sub
|
|
Private Sub ToolStripMenuItem15_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem15.Click
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe)
|
|
End Sub
|
|
|
|
|
|
Private Sub VUBVERAGSpeditionAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VUBVERAGSpeditionAGToolStripMenuItem.Click
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_AG)
|
|
End Sub
|
|
|
|
|
|
Private Sub MANAGERToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MANAGERToolStripMenuItem.Click
|
|
Dim f As New SDL.frmFormulare
|
|
f.Show()
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click
|
|
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungspreise)
|
|
End Sub
|
|
|
|
Private Sub toolVPCreditreformTRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolVPCreditreform.Click
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Boniteatsauskunft)
|
|
' cFormularManager.fillCreditreform(-1)
|
|
End Sub
|
|
|
|
|
|
Private Sub hideErr_Tick(sender As Object, e As EventArgs) Handles hideErr.Tick
|
|
lblErrVermerk.Visible = False
|
|
hideErr.Enabled = False
|
|
End Sub
|
|
|
|
Private Sub UpdateUpdater_Tick(sender As Object, e As EventArgs) Handles UpdateUpdater.Tick
|
|
UpdateUpdater.Enabled = False
|
|
cProgramFunctions.updateUpdater()
|
|
End Sub
|
|
|
|
Private Sub UpdateSession_Tick(sender As Object, e As EventArgs) Handles UpdateSession.Tick
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.UPDATE_TIME()
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
|
Dim frmTV As New frmTv
|
|
frmTV.avisoID = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
|
|
frmTV.ShowDialog()
|
|
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
If gridMyAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridMyAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "")
|
|
If gridAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "")
|
|
End Sub
|
|
|
|
Public Sub showHideDetails()
|
|
If sd <> SplitContainer1.SplitterDistance Or SplitContainer1.Panel2.Size.Width = 15 Then
|
|
SplitContainer1.SplitterDistance = sd
|
|
SplitContainer1.Panel2MinSize = 300
|
|
Fullscreen = False
|
|
Else
|
|
SplitContainer1.Panel2MinSize = 15
|
|
SplitContainer1.SplitterDistance = Me.Width - 15
|
|
'SHOW FREIGBAE, etc
|
|
Fullscreen = True
|
|
End If
|
|
' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID)
|
|
gridAviso_SpaltenFestlegen()
|
|
tbcntrAviso.Width = Panel1.Width
|
|
End Sub
|
|
|
|
Private Sub btnSmall_Click(sender As Object, e As EventArgs) Handles btnSmall.Click
|
|
Me.showHideDetails()
|
|
btnSmall.Text = IIf(btnSmall.Text = "<", ">", "<")
|
|
End Sub
|
|
|
|
Private Sub ZeilenInFarbeEinausToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZeilenInFarbeEinausToolStripMenuItem.Click
|
|
chkFarben = Not chkFarben
|
|
End Sub
|
|
|
|
Private Sub btnKassenbuch_Click(sender As Object, e As EventArgs) Handles btnKassenbuch.Click
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "IMEX"
|
|
pnlOptionen.Visible = Not pnlOptionen.Visible
|
|
Case Else
|
|
Dim s As New SDL.frmSecureLoginKassenbuch
|
|
s.openKB = True
|
|
s.disableCBO = False
|
|
' End If
|
|
s.ShowDialog(Me)
|
|
End Select
|
|
|
|
' Dim ADMIN As New cADMIN
|
|
' Dim PersID As Integer = ADMIN.getValueTxtBySql("SELECT isnull(mit_FMZollPersID,-1) FROM tblMitarbeiter WHERE [mit_id]=" & VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID, "ADMIN")
|
|
' Dim KBNr = ADMIN.getValueTxtBySql("SELECT isnull(KassenbuchNr,-1) FROM Personal WHERE [ID]=" & PersID, "FMZOLL")
|
|
|
|
' If KBNr > 0 Then
|
|
' s.KassenbuchNr_tmp = KBNr
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
|
'Process.Start("http://www.zoll.de/DE/Fachthemen/Zoelle/Zollwert/Aktuelle-Umrechnungskurse/Datenbankanwendung/datenbankanwendung_node.html")
|
|
Process.Start("http://www.zoll.de/SiteGlobals/Forms/KursSuche/KurseSuche_Formular_NotierteWaehrung.html?method=post&iso2code2=TR")
|
|
'http://www.zoll.de/SiteGlobals/Functions/Kurse/KursExport.xml?nn=21174&date=20170127165538660&kursart=1&iso2code2=TR&view=xmlexportkurse !!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
End Sub
|
|
|
|
Private Sub LogoutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LogoutToolStripMenuItem.Click
|
|
frmLogin.Visible = True
|
|
closeOK = True
|
|
'Me.Close()
|
|
' Me.Dispose()
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub gridAviso_MouseMove(sender As Object, e As DataGridViewCellMouseEventArgs) Handles gridAviso.CellMouseMove ', gridMyAviso.CellMouseMove
|
|
Exit Sub ' Klappt nicht richtig
|
|
If e.RowIndex >= 0 And e.ColumnIndex >= 0 Then
|
|
sender.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.SteelBlue
|
|
sender.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.White
|
|
If sender Is gridAviso Then
|
|
sender.Rows(e.RowIndex).Cells("Status").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor
|
|
sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.BackColor = Color.SteelBlue
|
|
sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.ForeColor = Color.White
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub gridAviso_CellMouseLeave(sender As Object, e As DataGridViewCellEventArgs) Handles gridAviso.CellMouseLeave ', gridMyAviso.CellMouseLeave
|
|
Exit Sub ' Klappt nicht richtig
|
|
If e.RowIndex >= 0 And e.ColumnIndex >= 0 Then
|
|
sender.Rows(e.RowIndex).DefaultCellStyle.BackColor = sender.Rows(e.RowIndex).DefaultCellStyle.SelectionForeColor
|
|
sender.Rows(e.RowIndex).DefaultCellStyle.ForeColor = sender.Rows(e.RowIndex).DefaultCellStyle.SelectionBackColor
|
|
If sender Is gridAviso Then
|
|
sender.Rows(e.RowIndex).Cells("Status").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor
|
|
sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor
|
|
sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.BackColor = Color.LightGray
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TabellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TabellenToolStripMenuItem.Click
|
|
Dim f As New Form
|
|
Dim c As New SDL.usrCntlAdministration
|
|
c.Dock = DockStyle.Fill
|
|
f.Controls.Add(c)
|
|
f.Width = 850
|
|
f.Height = 800
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub HandbuchToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HandbuchToolStripMenuItem.Click
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "", "", "", "AVISO_Benutzerhandbuch 3.0.pdf")
|
|
DS.OPEN_SINGLE()
|
|
'
|
|
' Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
|
|
'cDATENSERVER.openDataTMP(cDATENSERVER.getTOP1Path("DOKUMENTE", "VORLAGEN", , "AVISO_Benutzerhandbuch 3.0.pdf"))
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub EinheitspapierToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EinheitspapierToolStripMenuItem.Click
|
|
' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim eh As New SDL.frmEinheitspapier
|
|
eh.Show()
|
|
Me.Cursor = Cursors.Default
|
|
' End If
|
|
End Sub
|
|
|
|
Private Sub Einheitspapier0735VersandverfahrenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Einheitspapier0735VersandverfahrenToolStripMenuItem.Click
|
|
' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim eh As New SDL.frmEinheitspapierVersandverfahren
|
|
eh.Show()
|
|
Me.Cursor = Cursors.Default
|
|
' End If
|
|
End Sub
|
|
|
|
Private Sub CMRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CMRToolStripMenuItem.Click
|
|
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim eh As New SDL.frmCMR
|
|
eh.Show()
|
|
Me.Cursor = Cursors.Default
|
|
' End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub btnRg_Click(sender As Object, e As EventArgs) Handles btnRg.Click
|
|
For Each ft As Form In Application.OpenForms
|
|
If ft.GetType.ToString = "SDL.frmRechnungenSuche" Then
|
|
ft.BringToFront()
|
|
Exit Sub
|
|
End If
|
|
Next
|
|
|
|
Dim sped As New SDL.frmRechnungenSuche
|
|
sped.Show()
|
|
End Sub
|
|
|
|
Private Sub TimerUPDATE_Tick(sender As Object, e As EventArgs) Handles TimerUPDATE.Tick
|
|
Dim cADMIN As New cADMIN
|
|
If CInt(cADMIN.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.Version.Replace(".", "")) Then
|
|
Label9.Visible = True
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub lklErweitereSuche_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklErweitereSuche.LinkClicked
|
|
initPnlSearch()
|
|
End Sub
|
|
Sub initPnlSearch()
|
|
If pnlSearch.Visible Then
|
|
pnlSearch.Visible = False
|
|
Panel1.Height -= pnlSearch.Height
|
|
Panel1.Height += tbcntrAviso.Height
|
|
tbcntrAviso.Visible = True
|
|
Aviso_anzeigen("")
|
|
Else
|
|
pnlSearch.Visible = True
|
|
Panel1.Height += pnlSearch.Height
|
|
Panel1.Height -= tbcntrAviso.Height
|
|
tbcntrAviso.Visible = False
|
|
initDat()
|
|
gridAviso.Columns.Clear()
|
|
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
|
cbxAlle.Checked = True
|
|
cboGrenzstelle.SelectedIndex = 0
|
|
End If
|
|
|
|
If tbcntrAviso.SelectedTab IsNot tabAlle Then
|
|
Grid_aktiv = False
|
|
tbcntrAviso.SelectedIndex = 0
|
|
End If
|
|
|
|
Grid_aktiv = True
|
|
End Sub
|
|
|
|
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
|
|
Aviso_anzeigen("")
|
|
End Sub
|
|
|
|
Private Sub cbxAlle_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlle.CheckedChanged
|
|
'If cbxAlle.Checked Then
|
|
cbxErfasst.Checked = cbxAlle.Checked
|
|
cbxVorg.Checked = cbxAlle.Checked
|
|
cbxVorb.Checked = cbxAlle.Checked
|
|
cbxAnkunft.Checked = cbxAlle.Checked
|
|
cbxFreigabe.Checked = cbxAlle.Checked
|
|
cbxNE.Checked = cbxAlle.Checked
|
|
' End If
|
|
End Sub
|
|
|
|
|
|
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles btnDienstplan.Click
|
|
Dim f As New SDL.frmDienstplan
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub MDMParkplatzkartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MDMParkplatzkartenToolStripMenuItem.Click
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_VERAG_CARD", Me) Then
|
|
|
|
'Dim f As New SDL.frmKundenblatt()
|
|
Dim f As New Form
|
|
Dim u As New SDL.usrCntlVERAGCard
|
|
u.Dock = DockStyle.Fill
|
|
f.Controls.Add(u)
|
|
f.WindowState = FormWindowState.Maximized
|
|
f.Text = "MDM VERAG Card"
|
|
f.StartPosition = FormStartPosition.CenterScreen
|
|
f.Show()
|
|
Else
|
|
MsgBox("Sie sind für diese Funktion nicht freigeschaltet.")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub BürgschafrtsbuchungenFremdToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BürgschafrtsbuchungenFremdToolStripMenuItem.Click
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", Me) Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("IMEX_VERWALTUNG", Me) Or
|
|
VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Auswertung_Fremdbürgschaften", Me) Then
|
|
|
|
Dim f As New Form
|
|
Dim u As New SDL.usrCntlBrgBuchungenFremd
|
|
f.Size = New Size(720, 185)
|
|
f.Icon = Me.Icon
|
|
u.Dock = DockStyle.Fill
|
|
f.Controls.Add(u)
|
|
f.StartPosition = FormStartPosition.CenterScreen
|
|
f.Show(Me)
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SDLAuswertungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SDLAuswertungenToolStripMenuItem.Click
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("BH_Hauptmenü", "SDL") = 0 Then
|
|
|
|
Dim f As New Form
|
|
Dim u As New SDL.usrCntlBH
|
|
f.Size = New Size(1200, 900)
|
|
f.Icon = Me.Icon
|
|
u.Dock = DockStyle.Fill
|
|
f.Controls.Add(u)
|
|
f.StartPosition = FormStartPosition.CenterScreen
|
|
f.WindowState = FormWindowState.Normal
|
|
f.Show(Me)
|
|
Else
|
|
MsgBox("Keine Berechtigung!")
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub VorauskassenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauskassenToolStripMenuItem.Click
|
|
Dim f As New SDL.frmVorauskasse
|
|
f.Show(Me)
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub VerzollungsunterlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerzollungsunterlagenToolStripMenuItem.Click
|
|
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen)
|
|
End Sub
|
|
|
|
Private Sub ZollprogrammeNachEORIDurchsuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Click
|
|
Dim f As New SDL.frmZollprogrammeDurchsuchen
|
|
f.Show(Me)
|
|
End Sub
|
|
|
|
Private Sub SDLAbholaufträgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SDLAbholaufträgeToolStripMenuItem.Click
|
|
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") btnFakturierung
|
|
Dim f As New SDL.frmSDLAbholung(True)
|
|
f.Show(Me)
|
|
'Else
|
|
' MsgBox("Noch nicht verfügbar!")
|
|
' End If
|
|
End Sub
|
|
|
|
Private Sub SMSTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SMSTestToolStripMenuItem.Click
|
|
|
|
Dim f As New SDL.frmSendSMS("", "")
|
|
f.ShowDialog()
|
|
Exit Sub
|
|
Dim messagingService As New MessagingService("al@verag.ag", "Developer#2")
|
|
messagingService.SendMessage(New SmsMessage("00436644178557", "Hello!", "EX0252513"))
|
|
End Sub
|
|
|
|
|
|
Private Sub NeueSMSSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueSMSSendenToolStripMenuItem.Click
|
|
Dim f As New SDL.frmSendSMS("", "")
|
|
f.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub GesendeteSMSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GesendeteSMSToolStripMenuItem.Click
|
|
Dim f As New SDL.frmSMS
|
|
f.Show(Me)
|
|
End Sub
|
|
|
|
Private Sub StammreferenzenVerwaltenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StammreferenzenVerwaltenToolStripMenuItem.Click
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Stammref_Verwalten", "AVISO") Then
|
|
Dim f As New SDL.frmDakosyStammreferenzVerwalten
|
|
f.Show(Me)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub AuftragÜberwachungsdokumentToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragÜberwachungsdokumentToolStripMenuItem.Click
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.QS_UeDok)
|
|
End Sub
|
|
|
|
Private Sub QSTeamsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QSTeamsToolStripMenuItem.Click
|
|
Dim f As New SDL.frmTeamsZuordnung()
|
|
f.Show(Me)
|
|
End Sub
|
|
|
|
Private Sub BerechtigungenNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BerechtigungenNeuLadenToolStripMenuItem.Click
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER()
|
|
End Sub
|
|
|
|
Private Sub LeereRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LeereRechnungToolStripMenuItem.Click
|
|
Dim f As New SDL.frmAbrechnungsMaskeEinzeln
|
|
f.Show(Me)
|
|
End Sub
|
|
|
|
Private Sub EMAILTESTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMAILTESTToolStripMenuItem.Click
|
|
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("luxbauer@gmail.com", "TESTMAIL", "TESTMAIL", , False, True)
|
|
|
|
End Sub
|
|
|
|
Private Sub FreigabeMailTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FreigabeMailTestToolStripMenuItem.Click
|
|
AvisoStatusFunctions.Email_senden(2, AvisoDAL.LesenAviso(451993, ""), "al@verag.ag", "", "", 711104)
|
|
End Sub
|
|
|
|
Private Sub KundenverwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KundenverwaltungToolStripMenuItem.Click
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then
|
|
Dim f As New SDL.frmKundenSucheUebersicht
|
|
f.Show(Me)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ATILLAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLAToolStripMenuItem.Click
|
|
If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "ATILLA")) Then
|
|
showMeNew()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub IMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IMEXToolStripMenuItem.Click
|
|
If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "IMEX")) Then
|
|
showMeNew()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub VERAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGToolStripMenuItem.Click
|
|
If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "VERAG")) Then
|
|
showMeNew()
|
|
End If
|
|
End Sub
|
|
Sub showMeNew()
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA()
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER()
|
|
closeOK = True
|
|
Dim f As New frmHauptfenster
|
|
f.Show()
|
|
f.Visible = True
|
|
f.WindowState = FormWindowState.Maximized
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub NeuesPasswortToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesPasswortToolStripMenuItem.Click
|
|
Dim f As New frmChangePWD(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER)
|
|
If f.ShowDialog() = Windows.Forms.DialogResult.OK Then
|
|
MsgBox("Passwort geändert!", vbInformation)
|
|
'Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch()
|
|
'frmSecureLoginKassenbuch.openKB = True
|
|
'frmSecureLoginKassenbuch.ShowDialog(Me.Parent)
|
|
'Me.Close()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button2_Click_2(sender As Object, e As EventArgs) Handles btnFakturierung.Click
|
|
Dim f As New SDL.frmAbrechnungsMaske
|
|
f.Show(Me)
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem1_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub SDLAuswertungenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SDLAuswertungenToolStripMenuItem1.Click
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ZOLL_Auswertungen", "SDL") = 0 Then
|
|
|
|
Dim f As New Form
|
|
Dim u As New SDL.usrCntlZOLLAuswertungen
|
|
f.Size = New Size(1200, 900)
|
|
f.Icon = Me.Icon
|
|
u.Dock = DockStyle.Fill
|
|
f.Controls.Add(u)
|
|
f.StartPosition = FormStartPosition.CenterScreen
|
|
f.WindowState = FormWindowState.Normal
|
|
f.Show(Me)
|
|
Else
|
|
MsgBox("Keine Berechtigung!")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnÄndern_Click(sender As Object, e As EventArgs) Handles btnKasse_LG.Click
|
|
pnlOptionen.Visible = False
|
|
Dim s As New SDL.frmSecureLoginKassenbuch
|
|
s.openKB = True
|
|
s.KassenbuchNr_tmp = 5030
|
|
s.disableCBO = False
|
|
s.ShowDialog(Me)
|
|
|
|
End Sub
|
|
|
|
Private Sub btnLöschen_Click_1(sender As Object, e As EventArgs) Handles btnKasse_User.Click
|
|
pnlOptionen.Visible = False
|
|
Dim s As New SDL.frmSecureLoginKassenbuch
|
|
s.openKB = True
|
|
s.disableCBO = False
|
|
s.ShowDialog(Me)
|
|
End Sub
|
|
|
|
Dim secondmonitorSelected = False
|
|
Private Sub Button2_Click_3(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Dim secondaryMonitor = Screen.AllScreens.FirstOrDefault(Function(x) Not x.Primary)
|
|
If secondmonitorSelected Then
|
|
secondaryMonitor = Screen.AllScreens.FirstOrDefault(Function(x) x.Primary) 'Hauptbildschirm
|
|
End If
|
|
If secondaryMonitor IsNot Nothing Then
|
|
Me.WindowState = FormWindowState.Normal
|
|
Dim newLocation = secondaryMonitor.Bounds.Location
|
|
newLocation.Offset(0, 0) ' adjust as needed
|
|
Me.Location = newLocation
|
|
Me.Refresh()
|
|
Me.WindowState = FormWindowState.Maximized
|
|
' Also see Me.Size and Me.Bounds
|
|
End If
|
|
secondmonitorSelected = Not secondmonitorSelected
|
|
End Sub
|
|
|
|
Private Sub SDLProgrammStartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SDLProgrammStartenToolStripMenuItem.Click
|
|
Dim main As New SDL.frmMain
|
|
main.Show()
|
|
End Sub
|
|
|
|
Private Sub BundesanzeigerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BundesanzeigerToolStripMenuItem.Click
|
|
Dim frmBundesanzeigerZollTarif As New frmBundesanzeigerZollTarif
|
|
If Not frmBundesanzeigerZollTarif.Visible Then
|
|
frmBundesanzeigerZollTarif.Show()
|
|
End If
|
|
frmBundesanzeigerZollTarif.BringToFront()
|
|
End Sub
|
|
|
|
Private Sub EUTaricToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EUTaricToolStripMenuItem.Click
|
|
Dim frmBundesanzeigerZollTarif As New frmBundesanzeigerZollTarif("EU")
|
|
If Not frmBundesanzeigerZollTarif.Visible Then
|
|
frmBundesanzeigerZollTarif.Show()
|
|
End If
|
|
frmBundesanzeigerZollTarif.BringToFront()
|
|
End Sub
|
|
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "ATILLA", "", "ATILLA_Bürgschaften")
|
|
DS.OPEN_SINGLE()
|
|
End Sub
|
|
Private Sub BürgschaftenExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BürgschaftenExcelToolStripMenuItem.Click
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_CS")
|
|
'MsgBox(DS.da_id)
|
|
DS.OPEN_SINGLE_ORIG()
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_GmbH")
|
|
'MsgBox(DS.da_id)
|
|
DS.OPEN_SINGLE_ORIG()
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_AG")
|
|
'MsgBox(DS.da_id)
|
|
DS.OPEN_SINGLE_ORIG()
|
|
End Sub
|
|
|
|
|
|
Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_IMPORT_TR")
|
|
DS.OPEN_SINGLE_ORIG()
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_EXPORT_TR")
|
|
DS.OPEN_SINGLE_ORIG()
|
|
End Sub
|
|
|
|
Private Sub AnnahmeblattIMPORTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnnahmeblattIMPORTToolStripMenuItem.Click
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_IMPORT_SRB")
|
|
DS.OPEN_SINGLE_ORIG()
|
|
End Sub
|
|
|
|
Private Sub AnnahmeblattEXPORTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnnahmeblattEXPORTToolStripMenuItem.Click
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_EXPORT_SRB")
|
|
DS.OPEN_SINGLE_ORIG()
|
|
End Sub
|
|
|
|
Private Sub ChecklisteVerwahrlagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChecklisteVerwahrlagerToolStripMenuItem.Click
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Checkliste_Verwahrlager_WAI")
|
|
DS.OPEN_SINGLE_ORIG()
|
|
End Sub
|
|
|
|
Private Sub LKWEingetroffenNachToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LKWEingetroffenNachToolStripMenuItem.Click
|
|
Dim f As New SDL.frmLKWEingetroffen_nach
|
|
f.Show(Me)
|
|
End Sub
|
|
|
|
Private Sub TICKETWaidhausToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TICKETWaidhausToolStripMenuItem.Click
|
|
Dim frmLKWTicket As New frmLKWTicketInfo(cGlobal.Aktive_ID)
|
|
frmLKWTicket.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
|
|
Dim frmLKWTicket As New frmLKWTicket(cGlobal.Aktive_ID)
|
|
frmLKWTicket.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
|
|
Dim frmLKWTicket As New frmLKWTicket(cGlobal.Aktive_ID)
|
|
frmLKWTicket.ShowDialog()
|
|
End Sub
|
|
End Class
|
|
|
|
Public Class AvisoStatusFunctions
|
|
Dim Standorte As New cStandorteDAL
|
|
|
|
Dim AvisoDAL As New cAvisoDAL
|
|
Dim VermerkeDAL As New cVermerkeDAL
|
|
Public Function setAnkunft(AvisoID) As Boolean
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
|
MsgBox("Keine Berechtigung!")
|
|
Return False
|
|
End If
|
|
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
|
|
If AvisoID <= 0 Then
|
|
MsgBox("Kein Aviso ausgewählt!")
|
|
Return False
|
|
End If
|
|
|
|
'jetzt ausgewählten Datensatz einlesen
|
|
Dim Aviso As New cAviso
|
|
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
|
|
If Aviso Is Nothing Then Return False
|
|
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
|
|
|
|
|
|
Dim msg As String
|
|
Dim antwort As MsgBoxResult
|
|
|
|
' Taste ANKUNFT
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
|
|
MsgBox("Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt.", vbInformation)
|
|
Return False
|
|
End If
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
|
|
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
|
|
"Soll es jetzt trotzdem auf ANKUNFT (zurück)gesetzt werden?"
|
|
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), "Status-Änderung")
|
|
If antwort = vbNo Then Return False
|
|
End If
|
|
Dim Rücksetzen As Boolean = False
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
|
|
msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf &
|
|
"Soll der Status wieder auf ANKUNFT geändert werden?"
|
|
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), "Status-Änderung")
|
|
If antwort = vbNo Then Return False
|
|
'Status ist offen - jetzt auf Ankunft setzen
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then
|
|
Aviso.Vorbereitet = LeerDatum
|
|
Aviso.Vorgeschrieben = LeerDatum
|
|
End If
|
|
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft
|
|
Aviso.Freigabe = LeerDatum
|
|
Aviso.Dauer = 0
|
|
Rücksetzen = True
|
|
Else
|
|
Aviso.Ankunft = Now
|
|
End If
|
|
If Aviso.Grenzstelle.Replace("???", "") <> "" Then
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
|
End If
|
|
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft
|
|
Aviso.Änderungen = "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
|
|
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
|
|
AvisoDAL.addAenderung(tmpid, "auf ANKUNFT gesetzt", "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
|
|
If Not Rücksetzen Then
|
|
'nach dem erfolgreichem Speichern wird jetzt noch ein automatisches Mail für den Frächter und Auftraggeber erstellt
|
|
'Mail-Adressen aus Firmentabelle holen
|
|
SendAnkunftEmail(Aviso)
|
|
End If
|
|
|
|
'Wenn Atilla, dann Eintrag anzeigen, um zu korrigieren und Aktendeckel auszudrucken
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then 'And VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Then
|
|
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
|
Dim f As New frmEintragAviso
|
|
f.AktenzetteldruckenVisible = True
|
|
f.ShowDialog(frmGrayOut)
|
|
frmGrayOut.Close()
|
|
End If
|
|
|
|
Return (tmpid > 0)
|
|
End Function
|
|
|
|
|
|
Shared Sub SendAnkunftEmail(AVISO As cAviso)
|
|
Dim AvisoDAL As New cAvisoDAL
|
|
Dim art = 1
|
|
If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 3
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
|
|
Case "VERAG", "IMEX"
|
|
Dim EMails As String = ""
|
|
Dim EMails_CC As String = ""
|
|
Dim EMails_BCC As String = ""
|
|
|
|
Dim Emails_list_sent As New SDL.cEmailBenachrichtigungList
|
|
|
|
|
|
eMails_einlesen(AVISO.Auftraggeber_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
|
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Auftraggeber_KdNr)
|
|
|
|
'Frächter und Avisierer werden getrennt voneinander eingelesen, damit es kein Problem mit gesendeten VBD/Steuerbescheiden gibt!
|
|
If AVISO.Frächter_KdNr <> AVISO.Auftraggeber_KdNr Then
|
|
eMails_einlesen(AVISO.Frächter_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
|
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr)
|
|
End If
|
|
|
|
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
|
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AVISO.AvisoID).Rows
|
|
SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
|
|
Next
|
|
For Each s In SENDUNG_LIST
|
|
eMails_einlesen(s.tblSnd_EmpfaengerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
|
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_EmpfaengerKdNr)
|
|
eMails_einlesen(s.tblSnd_AuftraggeberKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
|
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr)
|
|
Next
|
|
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
'freigabe
|
|
Shared Sub SendFreigabeEmail(AVISO As cAviso)
|
|
Dim AvisoDAL As New cAvisoDAL
|
|
Dim art = 2
|
|
If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 4
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
|
|
Case "VERAG", "IMEX"
|
|
|
|
'Mail-Adressen aus Firmentabelle holen
|
|
Dim EMails As String = ""
|
|
Dim EMails_CC As String = ""
|
|
Dim EMails_BCC As String = ""
|
|
|
|
|
|
Dim Emails_list_sent As New SDL.cEmailBenachrichtigungList
|
|
|
|
eMails_einlesen(AVISO.Auftraggeber_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
|
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Auftraggeber_KdNr)
|
|
|
|
'Frächter und Avisierer werden getrennt voneinander eingelesen, damit es kein Problem mit gesendeten VBD/Steuerbescheiden gibt!
|
|
If AVISO.Frächter_KdNr <> AVISO.Auftraggeber_KdNr Then
|
|
eMails_einlesen(AVISO.Frächter_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
|
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr)
|
|
End If
|
|
|
|
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
|
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AVISO.AvisoID).Rows
|
|
SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
|
|
Next
|
|
For Each s In SENDUNG_LIST
|
|
eMails_einlesen(s.tblSnd_EmpfaengerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
|
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_EmpfaengerKdNr)
|
|
eMails_einlesen(s.tblSnd_AuftraggeberKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
|
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr)
|
|
Next
|
|
|
|
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
Shared Sub Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, KundenNr)
|
|
'art = 1 : Ankunft
|
|
'art = 2 : Freigabe
|
|
'art = 3 : Ankunft Export
|
|
'art = 4 : Freigabe Export
|
|
If KundenNr <= 0 Then Exit Sub
|
|
Dim Standorte As New cStandorteDAL
|
|
'nur Mail erstellen, falls mindestens ein Empfänger vorhanden
|
|
|
|
If EMails <> "" Or EMails_CC <> "" Or EMails_BCC <> "" Then
|
|
Dim hBetreff As String = If(art = 1 Or art = 3, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Betreff, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Betreff)
|
|
Dim hBody As String = If(art = 1 Or art = 3, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Text, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Text)
|
|
'jetzt nachsehen, ob indiv. eMail-Text für Standort vorhanden
|
|
|
|
Dim GrenzstelleMail = AVISO.Grenzstelle.replace("?", "")
|
|
If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
|
|
|
If GrenzstelleMail <> "" Then
|
|
Dim Standort As New cStandort
|
|
|
|
Standort = Standorte.LesenStandort(0, GrenzstelleMail, "")
|
|
|
|
If Not IsNothing(Standort) Then
|
|
Select Case art
|
|
Case 1, 3
|
|
If Standort.eMail_Ankunft_Betreff <> "" Then
|
|
hBetreff = Standort.eMail_Ankunft_Betreff
|
|
hBody = Standort.eMail_Ankunft_Text
|
|
End If
|
|
Case 2, 4
|
|
If Standort.eMail_Freigabe_Betreff <> "" Then
|
|
hBetreff = Standort.eMail_Freigabe_Betreff
|
|
hBody = Standort.eMail_Freigabe_Text
|
|
End If
|
|
End Select
|
|
End If
|
|
End If
|
|
|
|
Dim anhaenge As New List(Of String)
|
|
hBetreff = Platzhalter_ersetzen(hBetreff, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, 0, AVISO, KundenNr, anhaenge) ' art 0 damit nicht beim betreff auch die DY-Daten durchsuht werden und die Sendungsliste erstellt wird.
|
|
hBody = Platzhalter_ersetzen(hBody, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, art, AVISO, KundenNr, anhaenge)
|
|
|
|
|
|
hBody = hBody.Replace("%0", "<br>")
|
|
|
|
hBody = hBody.Replace("%Firma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' gibts noch nicht!
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then hBody = hBody.Replace("VERAG", "IMEX") 'hier der Ersatz
|
|
|
|
EMails_BCC &= If(EMails_BCC <> "", ";", "") & getAbsenderEmail() 'Damit Mails gespeichert werden.
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, hBetreff, hBody, getAbsenderEmail(), False, False, EMails_CC, EMails_BCC, anhaenge) Then
|
|
Dim txt = " E-Mail gesendet an: " & EMails
|
|
If EMails_CC.ToString.Trim <> "" Then txt &= " CC: " & EMails_CC
|
|
If EMails_BCC.ToString.Trim <> "" Then txt &= " BCC: " & EMails_BCC
|
|
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, If(art = 1 Or art = 3, "Ankunft", "Freigabe") & txt, 46, , "(AUTO)")
|
|
Else
|
|
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & If(art = 1 Or art = 3, "Ankunft", "Freigabe") & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)")
|
|
End If
|
|
|
|
'OLD ----------------------------------
|
|
If False Then
|
|
Dim hMail As String = "mailto:" & EMails & "?subject=" & hBetreff
|
|
If EMails_CC.ToString.Trim <> "" Then hMail += "&CC=" & EMails_CC
|
|
If EMails_BCC.ToString.Trim <> "" Then hMail += "&BCC=" & EMails_BCC
|
|
If hBody <> "" Then hMail += "&Body=" & hBody
|
|
Try
|
|
System.Diagnostics.Process.Start(hMail)
|
|
Catch ex As Exception
|
|
MsgBox("Beim Mail-Versenden ist ein Fehler aufgetreten: " & vbCrLf & vbCrLf & ex.Message)
|
|
End Try
|
|
End If
|
|
' ----------------------------------
|
|
End If
|
|
End Sub
|
|
|
|
Public Shared Function getAbsenderEmail() As String
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "IMEX" : Return "noreply@imex-group.at"
|
|
Case "ATILLA" : Return "noreply@verag.ag"
|
|
Case Else : Return "noreply@verag.ag"
|
|
End Select
|
|
End Function
|
|
|
|
Public Function setVorbereitet(AvisoID) As Boolean
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
|
MsgBox("Keine Berechtigung!")
|
|
Return False
|
|
End If
|
|
|
|
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
|
|
If AvisoID <= 0 Then
|
|
MsgBox("Kein Aviso ausgewählt!")
|
|
Return False
|
|
End If
|
|
|
|
'jetzt ausgewählten Datensatz einlesen
|
|
Dim Aviso As New cAviso
|
|
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
|
|
If Aviso Is Nothing Then Return False
|
|
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
|
|
|
|
Dim msg As String
|
|
Dim antwort As MsgBoxResult
|
|
|
|
' Taste VORBEREITET
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
|
|
MsgBox("Dieses LKW-Aviso ist bereits auf VORBEREITET gesetzt.", vbInformation)
|
|
Return False
|
|
End If
|
|
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
|
|
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
|
|
"Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?"
|
|
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
|
|
"Status-Änderung")
|
|
If antwort = vbNo Then Return False
|
|
End If
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
|
|
msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf &
|
|
"Soll der Status wieder auf VORBEREITET geändert werden?"
|
|
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
|
|
"Status-Änderung")
|
|
If antwort = vbNo Then Return False
|
|
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet
|
|
Aviso.Freigabe = LeerDatum
|
|
Aviso.Ankunft = LeerDatum
|
|
Aviso.Vorgeschrieben = LeerDatum
|
|
Aviso.Vorbereitet = Now
|
|
Aviso.Dauer = 0
|
|
Else
|
|
Aviso.Vorbereitet = Now
|
|
' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle
|
|
End If
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
|
|
msg = "Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt." & vbCrLf & vbCrLf &
|
|
"Soll der Status wieder auf VORBEREITET geändert werden?"
|
|
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
|
|
"Status-Änderung")
|
|
If antwort = vbNo Then Return False
|
|
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet
|
|
Aviso.Freigabe = LeerDatum
|
|
Aviso.Ankunft = LeerDatum
|
|
Aviso.Vorgeschrieben = LeerDatum
|
|
Aviso.Vorbereitet = Now
|
|
Aviso.Dauer = 0
|
|
Else
|
|
Aviso.Vorbereitet = Now
|
|
' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle
|
|
End If
|
|
|
|
'Status ist offen - jetzt auf VORBEREITET setzen
|
|
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet
|
|
Aviso.Änderungen = "auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
|
|
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
|
|
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
|
|
AvisoDAL.addAenderung(tmpid, "auf VORBEREITET gesetzt", "auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
|
|
|
|
Return (tmpid > 0)
|
|
End Function
|
|
|
|
Public Function setVorgeschreiben(AvisoID) As Boolean
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
|
MsgBox("Keine Berechtigung!")
|
|
Return False
|
|
End If
|
|
|
|
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
|
|
If AvisoID <= 0 Then
|
|
MsgBox("Kein Aviso ausgewählt!")
|
|
Return False
|
|
End If
|
|
|
|
'jetzt ausgewählten Datensatz einlesen
|
|
Dim Aviso As New cAviso
|
|
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
|
|
If Aviso Is Nothing Then Return False
|
|
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
|
|
|
|
Dim msg As String
|
|
Dim antwort As MsgBoxResult
|
|
|
|
|
|
' Taste VORGESCHRIEBEN
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then
|
|
MsgBox("Dieses LKW-Aviso ist bereits auf VORGESCHRIEBEN gesetzt.", vbInformation)
|
|
Return False
|
|
End If
|
|
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
|
|
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
|
|
"Soll es jetzt trotzdem auf VORGESCHRIEBEN (zurück)gesetzt werden?"
|
|
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
|
|
"Status-Änderung")
|
|
If antwort = vbNo Then Return False
|
|
End If
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
|
|
msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf &
|
|
"Soll der Status wieder auf VORGESCHRIEBEN geändert werden?"
|
|
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
|
|
"Status-Änderung")
|
|
If antwort = vbNo Then Return False
|
|
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben
|
|
Aviso.Freigabe = LeerDatum
|
|
Aviso.Ankunft = LeerDatum
|
|
Aviso.Dauer = 0
|
|
Else
|
|
Aviso.Vorgeschrieben = Now
|
|
' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle
|
|
End If
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
|
|
msg = "Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt." & vbCrLf & vbCrLf &
|
|
"Soll der Status wieder auf VORGESCHRIEBEN geändert werden?"
|
|
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
|
|
"Status-Änderung")
|
|
If antwort = vbNo Then Return False
|
|
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben
|
|
Aviso.Freigabe = LeerDatum
|
|
Aviso.Ankunft = LeerDatum
|
|
Aviso.Dauer = 0
|
|
Else
|
|
Aviso.Vorgeschrieben = Now
|
|
' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle
|
|
End If
|
|
|
|
'Status ist offen - jetzt auf VORGESCHRIEBEN setzen
|
|
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben
|
|
Aviso.Änderungen = "auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
|
|
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
|
|
AvisoDAL.addAenderung(tmpid, "auf VORGESCHRIEBEN gesetzt", "auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "VERAG", "ATILLA"
|
|
Dim frmInsertVermerkFach As New frmInsertVermerkFach(Aviso.AvisoID)
|
|
frmInsertVermerkFach.ShowDialog()
|
|
|
|
'Case "IMEX"
|
|
' Dim frmInsertVermerkFach As New frmInsertVermerkFachIMEX(Aviso.AvisoID)
|
|
' frmInsertVermerkFach.ShowDialog()
|
|
End Select
|
|
|
|
|
|
Return (tmpid > 0)
|
|
End Function
|
|
|
|
Public Function setErfasst(AvisoID) As Boolean
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
|
MsgBox("Keine Berechtigung!")
|
|
Return False
|
|
End If
|
|
|
|
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
|
|
If AvisoID <= 0 Then
|
|
MsgBox("Kein Aviso ausgewählt!")
|
|
Return False
|
|
End If
|
|
|
|
'jetzt ausgewählten Datensatz einlesen
|
|
Dim Aviso As New cAviso
|
|
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
|
|
If Aviso Is Nothing Then Return False
|
|
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
|
|
|
|
Dim msg As String
|
|
Dim antwort As MsgBoxResult
|
|
|
|
'Taste ERFASST
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
|
|
MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation)
|
|
Return False
|
|
End If
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
|
|
MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation)
|
|
Return False
|
|
End If
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then
|
|
MsgBox("Dieses LKW-Aviso ist bereits auf ERFASST gesetzt.", vbInformation)
|
|
Return False
|
|
End If
|
|
Dim tmpid = -1
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
|
|
msg = "Dieses LKW-Aviso ist bereits auf VORBEREITET gesetzt." & vbCrLf & vbCrLf &
|
|
"Soll der Status wieder auf ERFASST geändert werden?"
|
|
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
|
|
"Status-Änderung")
|
|
If antwort = vbNo Then Return False
|
|
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst
|
|
Aviso.Ankunft = LeerDatum
|
|
Aviso.Vorbereitet = LeerDatum
|
|
Aviso.Vorgeschrieben = LeerDatum
|
|
Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
|
|
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
tmpid = AvisoDAL.SpeichernAviso(Aviso)
|
|
AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
|
|
End If
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then
|
|
msg = "Dieses LKW-Aviso ist bereits auf VORGESCHRIEBEN gesetzt." & vbCrLf & vbCrLf &
|
|
"Soll der Status wieder auf ERFASST geändert werden?"
|
|
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
|
|
"Status-Änderung")
|
|
If antwort = vbNo Then Return False
|
|
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst
|
|
Aviso.Ankunft = LeerDatum
|
|
Aviso.Vorbereitet = LeerDatum
|
|
Aviso.Vorgeschrieben = LeerDatum
|
|
Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
|
|
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
tmpid = AvisoDAL.SpeichernAviso(Aviso)
|
|
AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
|
|
End If
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
|
|
msg = "Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt." & vbCrLf & vbCrLf &
|
|
"Soll der Status wieder auf ERFASST geändert werden?"
|
|
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
|
|
"Status-Änderung")
|
|
If antwort = vbNo Then Return False
|
|
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst
|
|
Aviso.Ankunft = LeerDatum
|
|
Aviso.Vorbereitet = LeerDatum
|
|
Aviso.Vorgeschrieben = LeerDatum
|
|
Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
|
|
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
tmpid = AvisoDAL.SpeichernAviso(Aviso)
|
|
AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
End If
|
|
Return (tmpid > 0)
|
|
End Function
|
|
|
|
Public Function setAbgeschlossen(AvisoID As Integer, value As Boolean) As Boolean
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
|
MsgBox("Keine Berechtigung!")
|
|
Return False
|
|
End If
|
|
|
|
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
|
|
If AvisoID <= 0 Then
|
|
MsgBox("Kein Aviso ausgewählt!")
|
|
Return False
|
|
End If
|
|
|
|
'jetzt ausgewählten Datensatz einlesen
|
|
Dim Aviso As New cAviso
|
|
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
|
|
If Aviso Is Nothing Then Return False
|
|
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then
|
|
'Prüfung
|
|
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
|
If value Then
|
|
Dim SQL As New SQL
|
|
If SQL.getValueTxtBySql("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") = 0 Then
|
|
If vbYes <> MsgBox("Keine Speditionbucheinträge vorhanden!" & vbNewLine & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then
|
|
Return False
|
|
End If
|
|
End If
|
|
|
|
Aviso.Abgeschlossen = value
|
|
AvisoDAL.SpeichernAviso(Aviso)
|
|
AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
Else
|
|
Aviso.Abgeschlossen = value
|
|
AvisoDAL.SpeichernAviso(Aviso)
|
|
AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
End If
|
|
Else
|
|
If value Then
|
|
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows
|
|
If Not CBool(r(0)) Then
|
|
MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!")
|
|
Return False
|
|
End If
|
|
Next
|
|
Aviso.Abgeschlossen = value
|
|
AvisoDAL.SpeichernAviso(Aviso)
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "IMEX" : createNLC(Aviso)
|
|
End Select
|
|
AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
|
|
Else
|
|
Aviso.Abgeschlossen = value
|
|
AvisoDAL.SpeichernAviso(Aviso)
|
|
AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
End If
|
|
End If
|
|
|
|
|
|
Return True
|
|
Else
|
|
MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation)
|
|
Return False
|
|
End If
|
|
|
|
Return True
|
|
End Function
|
|
|
|
|
|
|
|
Function createNLC(aviso As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean
|
|
|
|
Dim haserror = True
|
|
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
|
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, aviso.AvisoID)
|
|
|
|
For Each s In SENDUNG_LIST
|
|
If Not createNLCSimple(aviso, s) Then haserror = False
|
|
Next
|
|
Return haserror
|
|
|
|
End Function
|
|
|
|
Function createNLCSimple(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) As Boolean
|
|
|
|
Try
|
|
Dim resPath As String = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\")
|
|
|
|
Dim nlcString As String = My.Computer.FileSystem.ReadAllText(resPath & "\MUSTER.NLC", System.Text.Encoding.Default)
|
|
|
|
nlcString = nlcString.Replace("%Empfaenger%", SENDUNG.tblSnd_Empfaenger)
|
|
nlcString = nlcString.Replace("%Versender%", SENDUNG.tblSnd_Absender)
|
|
nlcString = nlcString.Replace("%Fraechter%", AVISO.Frächter)
|
|
nlcString = nlcString.Replace("%Auftraggeber%", SENDUNG.tblSnd_Auftraggeber)
|
|
nlcString = nlcString.Replace("%AvisNr%", AVISO.AvisoID)
|
|
nlcString = nlcString.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
|
If AVISO.Ankunft > CDate("01.01.2001") Then nlcString = nlcString.Replace("%Ankunft%", AVISO.Ankunft)
|
|
If AVISO.Freigabe > CDate("01.01.2001") Then nlcString = nlcString.Replace("%Datum%", AVISO.Freigabe.ToShortDateString)
|
|
nlcString = nlcString.Replace("%PosNr%", SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr)
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
|
My.Computer.FileSystem.WriteAllText("C:\Temp\" & SENDUNG.FilialenNr & "_" & SENDUNG.AbfertigungsNr & ".nlc", nlcString, False)
|
|
Else
|
|
My.Computer.FileSystem.WriteAllText("\\192.168.1.20\daten\PronobisApps\JobExtender\Jobs\UpdIdx_Abfertigung\" & SENDUNG.FilialenNr & "_" & SENDUNG.AbfertigungsNr & ".nlc", nlcString, False)
|
|
End If
|
|
|
|
Console.ReadLine()
|
|
|
|
Return True
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
|
|
Public Function setNichtEingeftroffen(AvisoID, Optional geloescht = False) As Boolean
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
|
MsgBox("Keine Berechtigung!")
|
|
Return False
|
|
End If
|
|
|
|
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
|
|
If AvisoID <= 0 Then
|
|
MsgBox("Kein Aviso ausgewählt!")
|
|
Return False
|
|
End If
|
|
|
|
'jetzt ausgewählten Datensatz einlesen
|
|
Dim Aviso As New cAviso
|
|
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
|
|
If Aviso Is Nothing Then Return False
|
|
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
|
|
|
|
|
|
Dim msg As String
|
|
Dim antwort As MsgBoxResult
|
|
|
|
'Taste NICHT EINGETROFFEN
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
|
|
MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation)
|
|
Return False
|
|
End If
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
|
|
MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation)
|
|
Return False
|
|
End If
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
|
|
MsgBox("Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt.", vbInformation)
|
|
Return False
|
|
End If
|
|
Dim tmpid = -1
|
|
' If Aviso.Status = VERAG_PROG_ALLGEMEIN.cglobal.Status_Erfasst Then
|
|
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen
|
|
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
tmpid = AvisoDAL.SpeichernAviso(Aviso)
|
|
|
|
If geloescht Then
|
|
Aviso.Änderungen = "auf 'Gelöscht' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
|
|
AvisoDAL.addAenderung(tmpid, "auf 'Gelöscht' gesetzt", "auf 'Gelöscht' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
Else
|
|
Aviso.Änderungen = "auf LKW nicht eingetroffen gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
|
|
AvisoDAL.addAenderung(tmpid, "auf LKW nicht eingetroffen gesetzt", "auf LKW nicht eingetroffen gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
End If
|
|
|
|
' End If
|
|
Return (tmpid > 0)
|
|
End Function
|
|
|
|
Public Function setFreigabe(AvisoID As Integer, CONTROL As Control, Optional allowEveryState As Boolean = False) As Boolean
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
|
MsgBox("Keine Berechtigung!")
|
|
Return False
|
|
End If
|
|
|
|
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
|
|
If AvisoID <= 0 Then
|
|
MsgBox("Kein Aviso ausgewählt!")
|
|
Return False
|
|
End If
|
|
|
|
'jetzt ausgewählten Datensatz einlesen
|
|
Dim Aviso As New cAviso
|
|
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
|
|
If Aviso Is Nothing Then Return False
|
|
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
|
|
|
|
|
|
'Prüfung kassieren:
|
|
Dim CURRENT_INDEX = -1
|
|
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
|
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoID)
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Dim zuKassieren As Double = 0
|
|
Dim belegVorhanden As Boolean = True
|
|
Dim found As Boolean = False
|
|
'Dim zuKassBelege As String = ""
|
|
For Each S In SENDUNG_LIST 'LÄDT alle SENDUNGSDATEN
|
|
If If(S.tblSnd_BARzuKassieren, 0) > 0 Then
|
|
zuKassieren += S.tblSnd_BARzuKassieren
|
|
If S.FilialenNr > 0 And S.AbfertigungsNr > 0 Then
|
|
Try
|
|
If SQL.getValueTxtBySql("SELECT Count(*) FROM [tblEABelegnummer] as b INNER JOIN [tblEABelegposition] as p ON (b.BelegNr = p.BelegNr AND b.BelegDat = p.BelegDat AND b.Benutzer = p.Benutzer AND b.Niederlassung = p.Niederlassung AND b.Mandant = p.Mandant) where ((b.AbfertigungsNr='" & S.AbfertigungsNr & "' and b.FilialenNr='" & S.FilialenNr & "') or (p.AbfertigungsNr='" & S.AbfertigungsNr & "' and p.FilialenNr='" & S.FilialenNr & "')) and storniert=0 and gebuchtstorno=0 ", "FMZOLL") > 0 Then
|
|
found = True
|
|
Else
|
|
belegVorhanden = False
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
End If
|
|
End If
|
|
Next
|
|
If zuKassieren > 0 Then
|
|
If Not found Or Not belegVorhanden Then
|
|
If vbYes <> MsgBox("BAR-Beleg fehlt!" & vbNewLine & "Wurde der Betrag '" & zuKassieren.ToString("C2") & "' (Summe) bereits kassiert?", vbYesNoCancel, "Bar kassieren") Then
|
|
Return False
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
|
|
'Taste FREIGABE
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
|
|
MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation)
|
|
Return False
|
|
End If
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
|
|
MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation)
|
|
Return False
|
|
End If
|
|
|
|
If allowEveryState = False And (Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben) Then
|
|
MsgBox("Dieses LKW-Aviso wurde noch nicht auf ANKUNFT gesetzt und kann deshalb nicht auf FREIGABE gesetzt werden.", vbInformation)
|
|
Return False
|
|
End If
|
|
Dim tmpid = -1
|
|
'Status ist Ankunft - jetzt auf Freigabe setzen und Dauer berechnen
|
|
If allowEveryState Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
|
|
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
|
|
Aviso.Freigabe = Now
|
|
Aviso.Dauer = CInt(DateDiff(DateInterval.Minute, Aviso.Ankunft, Now))
|
|
If Aviso.Dauer = 0 Then Aviso.Dauer = 1 'Sonderfall, wenn Ankunft und Freigabe hintereinander gedrückt wird (z.b. vergessen)
|
|
Aviso.Änderungen = "auf FREIGABE gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
|
|
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
If Not Aviso.LKW_fertig Then
|
|
Aviso.LKW_fertig = True
|
|
Aviso.Änderungen = "LKW ist fertig - nicht gesetzt, deshalb automatisch gesetzt mit FREIGABE" & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
|
|
End If
|
|
|
|
If Aviso.Grenzstelle.Replace("???", "") <> "" Then
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
|
End If
|
|
tmpid = AvisoDAL.SpeichernAviso(Aviso)
|
|
AvisoDAL.addAenderung(tmpid, "auf FREIGABE gesetzt", "auf FREIGABE gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
If Not Aviso.LKW_fertig Then
|
|
AvisoDAL.addAenderung(tmpid, "LKW ist fertig - nicht gesetzt", "LKW ist fertig - nicht gesetzt, deshalb automatisch gesetzt mit FREIGABE")
|
|
End If
|
|
|
|
End If
|
|
'Wenn DE oder AT Zoll eingereicht -> automatisch fertigstellen XXXXXXXXXX
|
|
' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17))
|
|
If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17) Then
|
|
' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18))
|
|
If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18) Then
|
|
Dim myVermerk As New cVermerk
|
|
myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now
|
|
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
|
|
myVermerk.Hinweis_Vermerk = "DE Zoll fertig" : myVermerk.VermerkCodeId = 18
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
End If
|
|
End If
|
|
If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 19) Then
|
|
If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 20) Then
|
|
Dim myVermerk As New cVermerk
|
|
myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now
|
|
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
|
|
myVermerk.Hinweis_Vermerk = "AT Zoll fertig" : myVermerk.VermerkCodeId = 20
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
|
|
'nach dem erfolgreichem Speichern wird jetzt noch ein automatisches Mail für den Frächter und Auftraggeber erstellt
|
|
|
|
SendFreigabeEmail(Aviso)
|
|
|
|
|
|
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
|
|
Case "VERAG", "IMEX"
|
|
Try
|
|
If IsNumeric(Aviso.Auftraggeber_KdNr) Then
|
|
Dim cADMIN As New cADMIN
|
|
Dim text = cADMIN.getValueTxtBySql("SELECT DokumenteLKWFreigabe FROM Kunden WHERE KundenNr=" & Aviso.Auftraggeber_KdNr, "FMZOLL")
|
|
If text <> "" Then
|
|
' MsgBox("Bitte folgende Dokumente an den Kunden schicken:" & vbNewLine & vbNewLine & text)
|
|
|
|
Dim f As New frmDokumenteSchicken
|
|
f.rtbDokumente.Text = text
|
|
f.ShowDialog()
|
|
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
End Select
|
|
|
|
If False Then
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", CONTROL.FindForm) Then
|
|
Dim doAutoNacherf = (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel))
|
|
If doAutoNacherf Then
|
|
AUTONACHERFASSUNG(CONTROL, AvisoID)
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
Return (tmpid > 0)
|
|
End Function
|
|
|
|
|
|
Public Sub AUTONACHERFASSUNG(CONTROL As Control, AvisoID As Integer)
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
|
MsgBox("Keine Berechtigung!")
|
|
Exit Sub
|
|
End If
|
|
|
|
Try
|
|
CONTROL.FindForm.Cursor = Cursors.WaitCursor
|
|
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
|
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID).Rows
|
|
SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
|
|
Next
|
|
|
|
For Each s In SENDUNG_LIST
|
|
Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT
|
|
If ZOLL_IMPORT.AUTO_IMPORT(s.tblSnd_SendungID) Then
|
|
s.tblSnd_SpeditionsbuchEingetragen = 1
|
|
s.SAVE()
|
|
End If
|
|
Next
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
CONTROL.FindForm.Cursor = Cursors.Default
|
|
End Sub
|
|
Public Function AktUebernehmen(AvisoID) As Boolean
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
|
MsgBox("Keine Berechtigung!")
|
|
Return False
|
|
End If
|
|
|
|
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
|
|
If AvisoID <= 0 Then
|
|
MsgBox("Kein Aviso ausgewählt!")
|
|
Return False
|
|
End If
|
|
|
|
'jetzt ausgewählten Datensatz einlesen
|
|
Dim Aviso As New cAviso
|
|
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
|
|
If Aviso Is Nothing Then Return False
|
|
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
|
|
|
|
|
|
Dim msg As String
|
|
Dim antwort As MsgBoxResult
|
|
|
|
|
|
'Taste Akt übernehmen
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
|
|
MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation)
|
|
Return False
|
|
End If
|
|
|
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
|
|
MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation)
|
|
Return False
|
|
End If
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
|
Aviso.Buero = VERAG_PROG_ALLGEMEIN.cAllgemein.BÜRO
|
|
End If
|
|
'Status ist Ankunft, Vorbereitet, Vorgeschrieben oder Erfasst - aktiver Mitarbeiter wird geändert
|
|
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
If Aviso.Grenzstelle.Replace("???", "") <> "" Then
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
|
End If
|
|
|
|
Aviso.Änderungen = "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
|
|
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
|
|
AvisoDAL.addAenderung(tmpid, "Akt übernommen", "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
|
|
Try
|
|
If frmHauptfenster.pnlDetailsRechts.Controls.Count > 0 Then
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "VERAG"
|
|
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
|
|
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
|
|
End If
|
|
Case "IMEX"
|
|
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
|
|
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
|
|
End If
|
|
Case "ATILLA"
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", "AVISO") Then
|
|
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID = AvisoID Then
|
|
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).showInfo("Akt übernommen", 2)
|
|
End If
|
|
Else
|
|
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).AvisoID = AvisoID Then
|
|
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).showInfo("Akt übernommen", 2)
|
|
End If
|
|
End If
|
|
|
|
End Select
|
|
End If
|
|
Catch ex As Exception
|
|
'MsgBox(ex.Message)
|
|
End Try
|
|
Return (tmpid > 0)
|
|
End Function
|
|
|
|
|
|
|
|
|
|
Public Function LKWFertig(AvisoID) As Boolean
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
|
MsgBox("Keine Berechtigung!")
|
|
Return False
|
|
End If
|
|
|
|
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
|
|
If AvisoID <= 0 Then
|
|
MsgBox("Kein Aviso ausgewählt!")
|
|
Return False
|
|
End If
|
|
|
|
'jetzt ausgewählten Datensatz einlesen
|
|
Dim Aviso As New cAviso
|
|
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
|
|
If Aviso Is Nothing Then Return False
|
|
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
|
|
|
|
|
|
Dim msg As String
|
|
Dim antwort As MsgBoxResult
|
|
|
|
|
|
'Taste LKW ist fertig
|
|
If Aviso.Status <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
|
|
MsgBox("Es kann nur ein LKW mit Status ANKUNFT auf 'FERTIG/nicht FERTIG' gesetzt werden.", vbInformation)
|
|
Return False
|
|
End If
|
|
Dim aendArt As String = ""
|
|
Dim aendText As String = ""
|
|
|
|
'Status ist Ankunft - LKW wird je nach Eintrag auf Fertig/nicht fertig gesetzt
|
|
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
Dim hVermerk As New cVermerk 'bei Fertig zusätzlich einen Vermerk setzen
|
|
hVermerk.AvisoID = Aviso.AvisoID
|
|
hVermerk.Datum = Now
|
|
hVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
hVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
|
|
If Not Aviso.LKW_fertig Then
|
|
Aviso.LKW_fertig = True
|
|
Aviso.Änderungen = "LKW ist fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
|
|
hVermerk.Hinweis_Vermerk = "LKW ist fertig!"
|
|
hVermerk.VermerkCodeId = 26
|
|
VermerkeDAL.SpeichernVermerk(hVermerk)
|
|
aendArt = "LKW ist fertig - gesetzt"
|
|
aendText = "LKW ist fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
|
|
Else
|
|
Aviso.LKW_fertig = False
|
|
Aviso.Änderungen = "LKW ist nicht fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
|
|
hVermerk.Hinweis_Vermerk = "LKW ist nicht fertig."
|
|
hVermerk.VermerkCodeId = 27
|
|
VermerkeDAL.SpeichernVermerk(hVermerk)
|
|
aendArt = "LKW ist nicht fertig - gesetzt"
|
|
aendText = "LKW ist nicht fertig - gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
|
|
End If
|
|
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
|
|
AvisoDAL.addAenderung(tmpid, aendArt, aendText)
|
|
|
|
Return (tmpid > 0)
|
|
End Function
|
|
|
|
'avisoAktualisierenAktiveIdBehalten(AvisoID)
|
|
|
|
|
|
' End Function
|
|
|
|
Shared Sub eMails_einlesen(Kdnr As String, art As Integer, ByRef Emails As String, ByRef Emails_CC As String, ByRef Emails_BCC As String, Emails_list_sent As SDL.cEmailBenachrichtigungList)
|
|
'ART:
|
|
'1=Ankunft
|
|
'2=Freigabe
|
|
'3=Ankunft Export
|
|
'4=Freigabe Export
|
|
Dim Firmen As New cFirmenDAL
|
|
Dim Firma As New cFirma
|
|
|
|
Emails = ""
|
|
Emails_CC = ""
|
|
Emails_BCC = ""
|
|
|
|
' Dim Avisierer As New cKunde(hAuftraggeber_kdnr)
|
|
' Dim Fraechter As New cKunde(hFrächter_kdnr)
|
|
Dim Kdnr_Mails As New SDL.cEmailBenachrichtigungList(Kdnr, art)
|
|
' Dim Fraechter_Mails As New SDL.cEmailBenachrichtigungList(hFrächter_kdnr, art)
|
|
' If hAuftraggeber_kdnr <> hFrächter_kdnr Then Fraechter_Mails = New SDL.cEmailBenachrichtigungList(hFrächter_kdnr, art)
|
|
|
|
Dim Emails_list As New SDL.cEmailBenachrichtigungList
|
|
Dim Emails_CC_list As New SDL.cEmailBenachrichtigungList
|
|
Dim Emails_BCC_list As New SDL.cEmailBenachrichtigungList
|
|
|
|
'Dim Emails As String
|
|
For Each i In Kdnr_Mails.LIST
|
|
If i.eb_bcc Then
|
|
If Not existing(Kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(Kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
|
ElseIf i.eb_cc Then
|
|
If Not existing(Kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(Kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
|
Else
|
|
If Not existing(Kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(Kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
|
End If
|
|
Next
|
|
'For Each i In Fraechter_Mails.LIST
|
|
' If i.eb_bcc Then
|
|
' If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
|
' ElseIf i.eb_cc Then
|
|
' If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
|
' Else
|
|
' If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
|
' End If
|
|
'Next
|
|
|
|
For Each i In Emails_list.LIST
|
|
Emails &= i.eb_EMail & ";"
|
|
Next
|
|
For Each i In Emails_CC_list.LIST
|
|
Emails_CC &= i.eb_EMail & ";"
|
|
Next
|
|
For Each i In Emails_BCC_list.LIST
|
|
Emails_BCC &= i.eb_EMail & ";"
|
|
Next
|
|
|
|
For Each i In Emails_list.LIST : Emails_list_sent.LIST.Add(i) : Next
|
|
For Each i In Emails_CC_list.LIST : Emails_list_sent.LIST.Add(i) : Next
|
|
For Each i In Emails_BCC_list.LIST : Emails_list_sent.LIST.Add(i) : Next
|
|
|
|
End Sub
|
|
|
|
Shared Sub eMails_einlesenOLD(hFrächter_kdnr As String, hAuftraggeber_kdnr As String, art As Integer, ByRef Emails As String, ByRef Emails_CC As String, ByRef Emails_BCC As String, Emails_list_sent As SDL.cEmailBenachrichtigungList)
|
|
'ART:
|
|
'1=Ankunft
|
|
'2=Freigabe
|
|
'3=Ankunft Export
|
|
'4=Freigabe Export
|
|
Dim Firmen As New cFirmenDAL
|
|
Dim Firma As New cFirma
|
|
|
|
Emails = ""
|
|
Emails_CC = ""
|
|
Emails_BCC = ""
|
|
|
|
' Dim Avisierer As New cKunde(hAuftraggeber_kdnr)
|
|
' Dim Fraechter As New cKunde(hFrächter_kdnr)
|
|
Dim Avisierer_Mails As New SDL.cEmailBenachrichtigungList(hAuftraggeber_kdnr, art)
|
|
Dim Fraechter_Mails As New SDL.cEmailBenachrichtigungList(hFrächter_kdnr, art)
|
|
If hAuftraggeber_kdnr <> hFrächter_kdnr Then Fraechter_Mails = New SDL.cEmailBenachrichtigungList(hFrächter_kdnr, art)
|
|
|
|
Dim Emails_list As New SDL.cEmailBenachrichtigungList
|
|
Dim Emails_CC_list As New SDL.cEmailBenachrichtigungList
|
|
Dim Emails_BCC_list As New SDL.cEmailBenachrichtigungList
|
|
|
|
'Dim Emails As String
|
|
For Each i In Avisierer_Mails.LIST
|
|
If i.eb_bcc Then
|
|
If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
|
ElseIf i.eb_cc Then
|
|
If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
|
Else
|
|
If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
|
End If
|
|
Next
|
|
For Each i In Fraechter_Mails.LIST
|
|
If i.eb_bcc Then
|
|
If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_BCC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
|
ElseIf i.eb_cc Then
|
|
If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_CC_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
|
Else
|
|
If Not existing(hFrächter_kdnr, i.eb_EMail, Emails_BCC_list.LIST, Emails_CC_list.LIST, Emails_list.LIST) And Not existing(hFrächter_kdnr, i.eb_EMail, Emails_list_sent.LIST) Then Emails_list.LIST.Add(i) ' &= i.eb_EMail & ";"
|
|
End If
|
|
Next
|
|
|
|
For Each i In Emails_list.LIST
|
|
Emails &= i.eb_EMail & ";"
|
|
Next
|
|
For Each i In Emails_CC_list.LIST
|
|
Emails_CC &= i.eb_EMail & ";"
|
|
Next
|
|
For Each i In Emails_BCC_list.LIST
|
|
Emails_BCC &= i.eb_EMail & ";"
|
|
Next
|
|
|
|
For Each i In Emails_list.LIST : Emails_list_sent.LIST.Add(i) : Next
|
|
|
|
End Sub
|
|
Shared Function existing(KundenNr As Integer, Email As String, Emails_list As List(Of SDL.cEmailBenachrichtigung), Optional ListEmails_CC_list As List(Of SDL.cEmailBenachrichtigung) = Nothing, Optional ListEmails_BCC_list As List(Of SDL.cEmailBenachrichtigung) = Nothing) As Boolean
|
|
If Emails_list IsNot Nothing Then
|
|
For Each i In Emails_list
|
|
If i.eb_EMail = Email And i.eb_KundenNr = KundenNr Then Return True
|
|
Next
|
|
End If
|
|
If ListEmails_CC_list IsNot Nothing Then
|
|
For Each i In ListEmails_CC_list
|
|
If i.eb_EMail = Email And i.eb_KundenNr = KundenNr Then Return True
|
|
Next
|
|
End If
|
|
If ListEmails_BCC_list IsNot Nothing Then
|
|
For Each i In ListEmails_BCC_list
|
|
If i.eb_EMail = Email And i.eb_KundenNr = KundenNr Then Return True
|
|
Next
|
|
End If
|
|
Return False
|
|
End Function
|
|
|
|
Shared Function getGrenzstelleZollstelle(hGrenzstelle As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As String
|
|
If hGrenzstelle <> "" Then
|
|
Dim Standorte As New cStandorteDAL
|
|
Dim Standort As New cStandort
|
|
Standort = Standorte.LesenStandort(0, hGrenzstelle, "")
|
|
If Not IsNothing(Standort) Then
|
|
Return Standort.Standort_Text.Trim
|
|
End If
|
|
End If
|
|
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle.ToString <> "" Then
|
|
hGrenzstelle = VERAGSQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
|
End If
|
|
Return hGrenzstelle
|
|
End Function
|
|
Shared Function Platzhalter_ersetzen(hText As String, hLKW As String, hGrenzstelle As String, abfertigungsNr As String, art As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, KundenNr As Integer, ByRef anhaenge As List(Of 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)
|
|
|
|
hText = hText.Replace("%Standort%", getGrenzstelleZollstelle(hGrenzstelle, AVISO))
|
|
hText = hText.Replace("%Uhrzeit%", Format(Now, "dd.MM.yyyy HH:mm"))
|
|
hText = hText.Replace("&", "und")
|
|
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "IMEX"
|
|
hText = hText.Replace("%Firma_simple%", "IMEX")
|
|
hText = hText.Replace("%Firma%", "IMEX Customs Service GmbH")
|
|
hText = hText.Replace("%Platzhalter2%", "<br><br><span style=""font-family: calibri;font-size:14px"">Freundliche Grüße / Saygilarimizla / Best Regards<br>
|
|
<b>IMEX Customs Service GmbH</b><br>
|
|
Abteilung: Zollabfertigung<br>
|
|
Tel.: +43 7711 31630<br>
|
|
Fax: +43 7711 31630 - 1<br>
|
|
Mail: <a href=""mailto:info@imex-group.at"">info@imex-group.at</a><br>
|
|
</span>")
|
|
Case "ATILLA"
|
|
hText = hText.Replace("%Firma_simple%", "ATILLA")
|
|
hText = hText.Replace("%Firma%", "ATILLA Spedition GmbH")
|
|
Case Else
|
|
hText = hText.Replace("%Platzhalter2%", "")
|
|
|
|
hText = hText.Replace("%Firma_simple%", "VERAG")
|
|
hText = hText.Replace("%Firma%", "VERAG Spedition AG")
|
|
End Select
|
|
|
|
hText = hText.Replace("%AbfertigungsNr%", abfertigungsNr)
|
|
|
|
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr)
|
|
|
|
If (art = 2 Or art = 4) And (KUNDE_ERW.EmailFreigabeSendungsListe Or KUNDE_ERW.EmailFreigabe_VBDPDF Or KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF) Then 'Freigabe
|
|
|
|
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
|
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AVISO.AvisoID) 'LÄDT alle SENDUNGSDATEN
|
|
If SENDUNG_LIST.Count > 0 Then
|
|
|
|
Dim SendungslistTXT = ""
|
|
SendungslistTXT &= "<span style=""font-family:calibri;font-size:14""><b>Sendungsliste:</b><br></span>"
|
|
SendungslistTXT &= "<table style=""font-family:calibri;font-size:18;background-color:#F2F8FE;padding:0;min-width:600px;"" border=""1"" bordercolor=""#003680"" cellspacing=""0"">"
|
|
SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
|
|
|
|
Dim cnt = 1
|
|
For Each s In SENDUNG_LIST
|
|
If s.tblSnd_Abfertigungsart_ID <> 9 And isKdInSendData(KUNDE_ERW, AVISO, s) Then
|
|
|
|
Dim AtcMrn = ""
|
|
Dim DsId = ""
|
|
Dim frist = ""
|
|
Dim found = False
|
|
Select Case s.tblSnd_Abfertigungsart_ID
|
|
Case 5, 6
|
|
getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr)
|
|
If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen
|
|
Try
|
|
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
|
|
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
|
|
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
|
|
If Not found Then
|
|
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
|
|
'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
|
|
MsgBox("ACHTUNG: Das Versandbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das VBD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
|
|
End If
|
|
End If
|
|
Case Else
|
|
getDataFronDY_EZA(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr)
|
|
If s.tblSnd_Abfertigungsart_ID = 23 Then
|
|
If If(s.tblSnd_ATCMRN_Fremd, "") <> "" Then AtcMrn = s.tblSnd_ATCMRN_Fremd
|
|
End If
|
|
If KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF And IsNumeric(DsId) Then 'Steuerbescheid anhängen
|
|
If checkSteuerbescheidbedingung(KundenNr, DsId) Then
|
|
Try
|
|
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
|
|
anhaenge.Add(PathTmp) : found = True
|
|
Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
|
|
If Not found Then
|
|
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
|
|
' AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
|
|
MsgBox("ACHTUNG: Der Steuerbescheid konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden den Steuerbescheid per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
|
|
End If
|
|
End If
|
|
End If
|
|
End Select
|
|
If IsDate(frist) Then frist = CDate(frist).ToShortDateString
|
|
|
|
SendungslistTXT &= "<tr style=""font-size:18;min-width:180;""><td>" & cnt & "</td><td>" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "</td><td>" & getAbfertBez(s) & "</td><td>" & If(s.tblSnd_Empfaenger, "") & "</td><td>" & AtcMrn & "</td><td>" & frist & "</td></tr> "
|
|
cnt += 1
|
|
End If
|
|
Next
|
|
|
|
SendungslistTXT &= "</table>"
|
|
SendungslistTXT &= "<br><br>"
|
|
If cnt = 1 Then ' wurde nicht erhöht -> keine Einträge
|
|
SendungslistTXT = ""
|
|
End If
|
|
If KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT)
|
|
End If
|
|
End If
|
|
|
|
hText = hText.Replace("%Platzhalter%", "")
|
|
|
|
Platzhalter_ersetzen = hText
|
|
End Function
|
|
Private Shared VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Shared Function getEZOLL_Steuerbescheid(KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) As List(Of String)
|
|
Dim LIST As New List(Of String)
|
|
|
|
Dim dt As DataTable = VERAGSQL.loadDgvBySql("", "EZOLL")
|
|
|
|
|
|
End Function
|
|
|
|
|
|
'Prüft, ob die KundenNr in den Daten vorkommt --> zB Empfänger, soll nur die Empfänger-Sendung gefunden werden, Frächter scheint immer auf.
|
|
Shared Function isKdInSendData(KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen)
|
|
If KUNDE_ERW.kde_KundenNr <= 0 Then Return False
|
|
Select Case KUNDE_ERW.kde_KundenNr.ToString
|
|
Case SENDUNG.tblSnd_AbsenderKdNr.ToString : Return True
|
|
Case SENDUNG.tblSnd_EmpfaengerKdNr.ToString : Return True
|
|
Case SENDUNG.tblSnd_AuftraggeberKdNr.ToString : Return True
|
|
Case AVISO.Auftraggeber_KdNr.ToString : Return True
|
|
Case AVISO.Frächter_KdNr.ToString : Return True
|
|
End Select
|
|
Return False
|
|
End Function
|
|
Shared Function checkSteuerbescheidbedingung(KdNr As Integer, DSId As Integer) As Boolean
|
|
Try
|
|
Dim KD_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNr)
|
|
'Alle KD-Aufschubdaten laden
|
|
Dim KD_AUFSCHUB = VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten.LOAD_ListAufschubKTOByKdNr(KdNr)
|
|
If KD_ERW IsNot Nothing AndAlso KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
|
|
Select Case KD_ERW.EmailFreigabe_SteuerbescheidPDF_Bedingung
|
|
Case 0 : Return True
|
|
Case 1
|
|
'EZA Laden
|
|
Dim eza_id = VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull(eza_id,'') FROM [tblDakosy_Zollanmeldungen] INNER JOIN tblDakosy_EZA ON eza_dyaAnmID=dy_Id where [dy_Steuerbescheid_dsId]='" & DSId & "'", "FMZOLL")
|
|
If IsNumeric(eza_id) Then
|
|
'Aufschub laden und vergleichen
|
|
Dim EZA As New DAKOSY_Worker.cDakosyEZA(eza_id)
|
|
If EZA IsNot Nothing AndAlso EZA.eza_AUFSCHUB IsNot Nothing Then
|
|
For Each eza_a In EZA.eza_AUFSCHUB
|
|
For Each a In KD_AUFSCHUB
|
|
If eza_a.ezaAfb_KontoNr = a.kdAkto_kontonummer Then
|
|
'Wenn Kontonummer gefunden --> reuten true
|
|
Return True
|
|
End If
|
|
Next
|
|
Next
|
|
End If
|
|
End If
|
|
End Select
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
|
|
Return False
|
|
End Function
|
|
|
|
|
|
Shared Function getAbfertBez(s As VERAG_PROG_ALLGEMEIN.cSendungen) As String
|
|
If s.tblSnd_Fremdspedition Then Return If(s.tblSnd_FremdspeditionText <> "", s.tblSnd_FremdspeditionText, "FREMD")
|
|
If s.tblSnd_Abfertigungsart_ID < 0 Then Return "-"
|
|
Return VERAGSQL.getValueTxtBySql("select isnull(Abfertigungsbezeichnung,'-') from Abfertigungsarten where Abfertigungsart='" & s.tblSnd_Abfertigungsart_ID & "'", "FMZOLL")
|
|
End Function
|
|
|
|
Shared Function getDataFronDY_NCTS(SendungsId, ByRef AtcMrn, ByRef frist, ByRef dsId, FilialenNr, AbfertigungsNr) As Boolean
|
|
If SendungsId Is Nothing Then Return False
|
|
If Not IsNumeric(AbfertigungsNr) Then Return False
|
|
If AbfertigungsNr <= 0 Then Return False
|
|
|
|
If FilialenNr <> 4805 And FilialenNr <> 4811 Then ' Kein Ü-T
|
|
|
|
Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_vbd_dsid,'') as DsId ,isnull(isnull(ncts_MRN,ncts_ANR),'') as MRN, isnull(ncts_Wiedergestellungsdatum ,'') as WG FROM tblDakosy_Zollanmeldungen inner join tblDakosy_nctsout on dy_id=ncts_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL")
|
|
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
|
AtcMrn = dt.Rows(0)("MRN")
|
|
dsId = dt.Rows(0)("DsId")
|
|
frist = dt.Rows(0)("WG")
|
|
Return True
|
|
Else
|
|
Try 'AT-Zollsystem
|
|
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
|
AtcMrn = sql.getValueTxtBySql("SELECT CRN FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ORDER BY GeaendertAm DESC", "EZOLL")
|
|
frist = sql.getValueTxtBySql("SELECT TOP 1 Gestellungsfrist FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme WHERE (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ", "EZOLL")
|
|
dsId = sql.getValueTxtBySql("SELECT TOP 1 [DokumentId_VBD] FROM [Speditionsbuch] where [DokumentId_VBD] is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")
|
|
Catch : End Try
|
|
End If
|
|
End If
|
|
Return False
|
|
End Function
|
|
|
|
Shared Function getDataFronDY_EZA(SendungsId, ByRef AtcMrn, ByRef dsId, FilialenNr, AbfertigungsNr) As Boolean
|
|
If SendungsId Is Nothing Then Return False
|
|
If Not IsNumeric(AbfertigungsNr) Then Return False
|
|
If AbfertigungsNr <= 0 Then Return False
|
|
|
|
Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_steuerbescheid_dsid,'') as DsId, isnull(eza_ANR,'') as ATC FROM tblDakosy_Zollanmeldungen inner join tblDakosy_eza on dy_id=eza_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL")
|
|
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
|
AtcMrn = dt.Rows(0)("ATC")
|
|
dsId = dt.Rows(0)("DsId")
|
|
Return True
|
|
Else
|
|
Try 'AT-Zollsystem
|
|
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
|
AtcMrn = sql.getValueTxtBySql("SELECT CRN FROM zsAnmRefs WHERE (VorgangID = 'EF') AND (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ORDER BY GeaendertAm DESC", "EZOLL")
|
|
dsId = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Steuerbeleg FROM [Speditionsbuch] where DokumentId_Steuerbeleg is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")
|
|
|
|
Catch : End Try
|
|
End If
|
|
Return False
|
|
End Function
|
|
|
|
|
|
Function SpeditionsbuchEintrag(AvisoID As Integer, SendungID As Integer) As posNr
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
|
MsgBox("Keine Berechtigung!")
|
|
Return Nothing
|
|
End If
|
|
|
|
Try
|
|
Dim posNr As New posNr
|
|
If SendungID < 0 Then MsgBox("Fehler: SendungID kleiner 0.") : Return Nothing
|
|
If AvisoID < 0 Then MsgBox("Fehler: AvisoID kleiner 0.") : Return Nothing
|
|
|
|
Dim frmNacherfassung As New SDL.frmNacherfassungNEU
|
|
' MsgBox("1")
|
|
Dim sendung As New VERAG_PROG_ALLGEMEIN.cSendungen(SendungID)
|
|
'Dim dr As DataRow = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr,AbfertigungsNr, UnterNr FROM tblSendungen WHERE tblSnd_SendungID=" & SendungID).Rows(0)
|
|
Dim dr As DataRow = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr,AbfertigungsNr, UnterNr FROM tblSendungen WHERE FilialenNr=" & sendung.FilialenNr & " AND AbfertigungsNr=" & sendung.AbfertigungsNr & " order by UnterNr ").Rows(0)
|
|
|
|
posNr.Filiale = VarToInt2(dr.Item("FilialenNr"))
|
|
posNr.Abfertigungsnummer = VarToInt2(dr.Item("AbfertigungsNr"))
|
|
posNr.UnterNr = VarToInt2(dr.Item("UnterNr"))
|
|
If posNr.UnterNr < 0 Then posNr.UnterNr = 0
|
|
|
|
If posNr.Filiale <= 0 And VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale > 0 Then 'Aus den Mitarbeiter-Stammdaten
|
|
posNr.Filiale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale
|
|
End If
|
|
|
|
If posNr.Abfertigungsnummer <= 0 Or posNr.Filiale <= 0 Or posNr.UnterNr < 0 Then
|
|
Dim frmPosNr As New SDL.frmPosNr(posNr.Filiale, posNr.Abfertigungsnummer, posNr.UnterNr)
|
|
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
|
|
|
If Not frmPosNr.ShowDialog(frmGrayOut) = DialogResult.OK Then frmGrayOut.Close() : Return Nothing
|
|
frmGrayOut.Close()
|
|
|
|
posNr.Abfertigungsnummer = frmPosNr.txtAbfertigungsnummer.Text
|
|
posNr.Filiale = frmPosNr.cboFiliale._value
|
|
posNr.UnterNr = frmPosNr.txtUnterNr.Text
|
|
' Dim cADMIN As New cADMIN
|
|
' cADMIN.doSQL(" UPDATE tblSendungen SET FilialenNr='" & posNr.Filiale & "',AbfertigungsNr='" & srchAbfertigungsnummer & "', UnterNr='" & srchUnterNr & "' FROM tblSendungen WHERE tblSnd_SendungID=" & SendungID)
|
|
|
|
End If
|
|
|
|
frmNacherfassung.avisoLinkId = AvisoID
|
|
frmNacherfassung.SendungID = SendungID
|
|
Dim SQL As New SQL
|
|
frmNacherfassung.srchAbfertigungsnummer = posNr.Abfertigungsnummer
|
|
frmNacherfassung.srchFiliale = posNr.Filiale
|
|
frmNacherfassung.srchUnterNr = posNr.UnterNr
|
|
' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID
|
|
' Dim qsMa_TMP = SQL.getValueTxtBySql("SELECT TOP 1 isnull([MitarbeiterId],-1) FROM [Aenderungen] WHERE Aenderung_Art = 'auf VORBEREITET gesetzt' AND [AvisoID]='" & AvisoID & "' ORDER BY Datum DESC", "AVISO")
|
|
|
|
' Dim qsMa = SQL.getValueTxtBySql("SELECT TOP 1 isnull([mit_FMZollPersID],-1) FROM [tblMitarbeiter] WHERE [mit_id]='" & qsMa_TMP & "' ", "ADMIN")
|
|
frmNacherfassung.newEntry = (0 = CInt(SQL.getValueTxtBySql("SELECT Count(*) FROM Speditionsbuch WHERE FilialenNr='" & posNr.Filiale & "' AND AbfertigungsNr='" & posNr.Abfertigungsnummer & "' AND UnterNr='" & posNr.UnterNr & "' ", "FMZOLL")))
|
|
'frmNacherfassung.FMZollPersIDQS = IIf(IsNumeric(qsMa_TMP), qsMa_TMP, -1)
|
|
|
|
|
|
frmNacherfassung.ShowDialog()
|
|
|
|
posNr.Abfertigungsnummer = frmNacherfassung.txtAbfertigungsnummer.Text
|
|
posNr.Filiale = frmNacherfassung.cboFiliale._value
|
|
posNr.UnterNr = frmNacherfassung.txtUnterNr.Text
|
|
|
|
|
|
Return posNr
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
|
|
Public Sub showKd(kdnr)
|
|
'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing
|
|
|
|
For Each openForm In Application.OpenForms()
|
|
If TypeOf (openForm) Is SDL.frmKundenUebersichtZOLL Then _
|
|
CType(openForm, SDL.frmKundenUebersichtZOLL).BringToFront()
|
|
Next
|
|
If False Then
|
|
|
|
If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then
|
|
Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront()
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
' Next
|
|
Dim zoll As New SDL.frmKundenUebersichtZOLL(kdnr)
|
|
zoll.Show()
|
|
End Sub
|
|
|
|
|
|
Shared Sub insertVermerkAllg(AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional BeschreibungMA As String = "")
|
|
'Daten zuweisen und speichern
|
|
Dim myVermerk As New cVermerk
|
|
myVermerk.VermerkID = 0
|
|
myVermerk.AvisoID = AvisoID
|
|
myVermerk.Datum = Now
|
|
myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter & " " & BeschreibungMA
|
|
myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
|
|
myVermerk.Hinweis_Vermerk = Text
|
|
myVermerk.VermerkCodeId = VermerkCodeId
|
|
Dim VermerkeDAL As New cVermerkeDAL
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
frmHauptfenster.Details_anzeigen(AvisoID)
|
|
|
|
End Sub
|
|
|
|
Shared Sub insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "")
|
|
'Daten zuweisen und speichern
|
|
Dim myVermerk As New cVermerk
|
|
myVermerk.VermerkID = 0
|
|
myVermerk.AvisoID = AvisoID
|
|
myVermerk.Datum = Now
|
|
myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
|
|
myVermerk.Hinweis_Vermerk = Text
|
|
myVermerk.VermerkCodeId = VermerkCodeId
|
|
myVermerk.SendungID = SendungID
|
|
myVermerk.VermerkArt = "S"
|
|
Dim VermerkeDAL As New cVermerkeDAL
|
|
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
|
|
If myVermerk.VermerkCodeId = 18 Then
|
|
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
|
|
End If
|
|
|
|
End Sub
|
|
End Class
|
|
Public Class posNr
|
|
Property Abfertigungsnummer As Integer = -1
|
|
Property Filiale As Integer = -1
|
|
Property UnterNr As Integer = -1
|
|
End Class
|
|
|