5801 lines
279 KiB
VB.net
5801 lines
279 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 Newtonsoft.Json
|
|
Imports System.Reflection
|
|
|
|
|
|
'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
|
|
Public 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 FIMRA_COLOR As Color = Color.FromArgb(0, 54, 128)
|
|
Dim VermerkeAktuelleAvisoId As Integer = -1
|
|
Private infotxt As String = ""
|
|
Public 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
|
|
|
|
Public Shared Sub EnableDoubleBuffered(ByRef dgv As DataGridView)
|
|
Dim dgvType As Type = dgv.[GetType]()
|
|
Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
|
|
pi.SetValue(dgv, True, Nothing)
|
|
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._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
|
|
' End If
|
|
MyComboBox1.changeItem(UStatus_AVEingang)
|
|
|
|
tbcntrAviso.SelectedIndex = 0
|
|
txtSuche.Text = ""
|
|
txtSuche.Focus()
|
|
Grid_aktiv = True
|
|
initDat()
|
|
Aviso_anzeigen("")
|
|
End If
|
|
If (e.KeyCode) = Keys.Add AndAlso e.Control Then
|
|
btnNeu.PerformClick()
|
|
End If
|
|
|
|
If (e.KeyCode) = Keys.K AndAlso e.Control Then
|
|
If btnKunden.Visible Then btnKunden.PerformClick()
|
|
End If
|
|
If (e.KeyCode) = Keys.R AndAlso e.Control Then
|
|
If btnRg.Visible Then btnRg.PerformClick()
|
|
End If
|
|
If (e.KeyCode) = Keys.F AndAlso e.Control Then
|
|
If btnFakturierung.Visible Then btnFakturierung.PerformClick()
|
|
End If
|
|
If (e.KeyCode) = Keys.S AndAlso e.Control Then
|
|
If btnSpedBuch.Visible Then btnSpedBuch.PerformClick()
|
|
End If
|
|
If (e.KeyCode) = Keys.M AndAlso e.Control Then
|
|
If picAVISOMessenger.Visible Then PictureBox1_Click(picAVISOMessenger, New EventArgs)
|
|
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 = AutoScaleMode.Dpi
|
|
hideErr.Interval = 3000
|
|
|
|
EnableDoubleBuffered(gridAviso)
|
|
EnableDoubleBuffered(gridMyAviso)
|
|
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
' Case "IMEX"
|
|
' FIMRA_COLOR = Color.FromArgb(250, 200, 0)
|
|
' Case "ATILLA"
|
|
' FIMRA_COLOR = Color.FromArgb(0, 54, 128)
|
|
' ' FIMRA_COLOR = Color.Red
|
|
' Case Else
|
|
' FIMRA_COLOR = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
|
'End Select
|
|
|
|
Panel1.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
|
Panel6.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
|
pnlSearch.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
|
UsrCntlBenachrichtigungen1.Panel3.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
|
|
|
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.Items.Clear()
|
|
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
|
|
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
|
|
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
|
|
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
|
|
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
|
|
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
|
|
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
|
|
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMB", "AMB"))
|
|
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
|
|
cboGrenzstelle.changeItem("")
|
|
|
|
cboImEx.Items.Clear()
|
|
cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
|
cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMPORT", "IMPORT"))
|
|
cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXPORT", "EXPORT"))
|
|
cboImEx.changeItem("")
|
|
|
|
|
|
|
|
cboMy_Grenzstelle.Items.Clear()
|
|
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
|
|
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
|
|
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
|
|
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
|
|
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
|
|
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
|
|
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
|
|
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMB", "AMB"))
|
|
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
|
|
cboMy_Grenzstelle.changeItem("")
|
|
|
|
cboMyAvisoAnzeige.Items.Clear()
|
|
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer"))
|
|
cboMyAvisoAnzeige.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False)
|
|
cboMyAvisoAnzeige.changeItem("Benutzer")
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
|
|
StandortWechselnToolStripMenuItem.Visible = True
|
|
End If
|
|
|
|
'MyComboBox2.Items.Clear()
|
|
'MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer"))
|
|
'MyComboBox2.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False)
|
|
'MyComboBox2.changeItem("Benutzer")
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" Then
|
|
cboMy_QS.CheckState = CheckState.Unchecked
|
|
cboMy_VB.CheckState = CheckState.Indeterminate
|
|
Else
|
|
cboMy_QS.CheckState = CheckState.Checked
|
|
cboMy_VB.CheckState = CheckState.Unchecked
|
|
End If
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Is Nothing Then
|
|
cbx_My_LKW.Checked = True
|
|
cboMy_QS.CheckState = CheckState.Indeterminate
|
|
cboMy_VB.CheckState = CheckState.Indeterminate
|
|
ElseIf IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) Then
|
|
cboMyAvisoAnzeige.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
|
|
' MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
|
|
|
|
End If
|
|
|
|
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "ATILLA" ' Case "VERAG", "IMEX"
|
|
lblErweitereSuche.Visible = False
|
|
MDMParkplatzkartenToolStripMenuItem.Visible = False
|
|
|
|
Button10.Visible = False
|
|
SplitContainer3.Panel1Collapsed = True
|
|
|
|
Case Else
|
|
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
|
|
SplitContainer3.Panel1Collapsed = True
|
|
End If
|
|
|
|
'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 Not (VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then
|
|
' cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
|
|
cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
|
End If
|
|
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)"
|
|
Button3.Visible = True
|
|
|
|
End If
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then
|
|
Button12.Visible = True
|
|
Label22.Visible = True
|
|
initEAviso()
|
|
End If
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MESSENGER", "AVISO") Then
|
|
picAVISOMessenger.Visible = True
|
|
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 VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MITARBEITER_VERZEICHNIS", "SDL") Then
|
|
btnMAVerzeichnis.Visible = True
|
|
End If
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
|
|
BREXITToolStripMenuItem.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)
|
|
StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem1)
|
|
StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem)
|
|
|
|
|
|
'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 dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE() and Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
|
|
'dateadd(DAY,10,VoraussichtlichesEintreffen) --> Voraussichtliches Eintreffen muss zudem um 10 Tage überschritten sein --> Container/Hafen haben lange Vorlaufzeiten
|
|
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
|
|
|
|
|
|
cboTeams.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True)
|
|
If cboTeams.Items.Count = 0 Then cboTeams.Visible = False
|
|
'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.AddMonths(-1) '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")
|
|
|
|
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
|
|
' gridAviso_SpaltenFestlegen() 'Auskommentiert, do bei Aviso anzeigen schon ausgeführt wird
|
|
'gridVermerke_SpaltenFestlegen()
|
|
|
|
|
|
Timer1.Enabled = True
|
|
Timer_REFRESH_Tick(Timer_REFRESH, New EventArgs)
|
|
|
|
If gridAviso.RowCount > 0 Then
|
|
gridAviso.Rows(0).Selected = True
|
|
End If
|
|
' MsgBox(gridVermerke.Rows(0).Cells(5).Value)
|
|
|
|
If Me.Height * 0.4 < 220 Then
|
|
SplitContainer2.Height = 220
|
|
Else
|
|
SplitContainer2.Height = Me.Height * 0.4
|
|
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
|
|
|
|
Sub initEAviso()
|
|
Label22.Text = VERAGSQL.getValueTxtBySql("SELECT count(*) FROM [tblNCTS_TR] where ncts_AVISO_einarbeitet=0 AND ncts_Partnersystem='ATEZ'", "FMZOLL") '"XX"
|
|
If Label22.Text = "0" Then Label22.Text = ""
|
|
Label22.Visible = Label22.Text <> ""
|
|
Label22.BringToFront()
|
|
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("TageBisEintreffen").Visible = False
|
|
|
|
.Columns("Status").Width = 25
|
|
.Columns("Status").HeaderText = "St."
|
|
|
|
.Columns("LetzterMitarbeiter").Width = 135
|
|
.Columns("LetzterMitarbeiter").HeaderText = "akt. Mitarb"
|
|
|
|
|
|
.Columns("VoraussichtlichesEintreffen").Width = 95
|
|
.Columns("VoraussichtlichesEintreffen").HeaderText = "Vorauss.Eintreffen"
|
|
.Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM.yyyy"
|
|
'.Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
|
|
|
|
|
|
.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()
|
|
._TRANSLATE()
|
|
End With
|
|
End Sub
|
|
|
|
Sub initDauerLKWFertig()
|
|
Try
|
|
|
|
'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
|
|
Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now)
|
|
If IsNumeric(dauerTmp) AndAlso dauerTmp > 0 Then
|
|
r.Cells("Dauer").Value = dauerTmp
|
|
Else
|
|
r.Cells("Dauer").Value = "0"
|
|
End If
|
|
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
|
|
If r.Cells("LKW_fertig").Value = "DE" Then
|
|
r.Cells("LKW_fertig").Style.ForeColor = Color.White
|
|
r.Cells("LKW_fertig").Style.BackColor = Color.Green
|
|
'Else
|
|
'r.Cells("LKW_fertig").Style.BackColor = Color.White
|
|
End If
|
|
|
|
Next
|
|
End With
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
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 "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
|
|
Case Else
|
|
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
|
|
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,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' ELSE CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, "
|
|
hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen "
|
|
hSQL &= " FROM Aviso "
|
|
hSQL &= " WHERE 1=1 "
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then
|
|
hSQL &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
|
|
Else
|
|
hSQL &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
|
|
End If
|
|
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
|
|
If txtDyRef.Text <> "" Then hSQLSnd &= " AND tblSnd_DakosyRef LIKE '" & txtDyRef.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._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'"
|
|
If cboImEx._value <> "" Then
|
|
Select Case cboImEx._value
|
|
Case "IMPORT" : hSQL += " AND (ImEx = '" & cboImEx._value & "' OR ImEx = '' )"
|
|
Case "EXPORT" : hSQL += " AND ImEx = '" & cboImEx._value & "'"
|
|
End Select
|
|
|
|
End If 'Then hSQL += " AND ImEx = '" & cboImEx._value & "'"
|
|
If cboTeams.Text <> "" Then hSQL += " AND TeamId = '" & cboTeams._value & "'"
|
|
|
|
'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 & "%' OR DakosyRef LIKE '%" & search & "%' )"
|
|
End If
|
|
|
|
hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC"
|
|
' MsgBox(hSQL)
|
|
'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")
|
|
Dim errOcc = False
|
|
gridAviso.LOAD(False, errOcc)
|
|
If errOcc Then
|
|
pic.Visible = True
|
|
End If
|
|
' 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_SendungsID = 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 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
|
|
|
|
If gridMyAviso.SelectedRows.Count > 0 Then
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("AvisoID").Value)
|
|
If Not cbx_My_LKW.Checked Then
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("tblSnd_SendungID").Value)
|
|
Else
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
|
|
|
|
End If
|
|
Else
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -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 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 = ""
|
|
|
|
Dim sqlStrFirma As String = ""
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then
|
|
sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
|
|
Else
|
|
sqlStrFirma &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
|
|
End If
|
|
|
|
|
|
If cbx_My_LKW.Checked Then
|
|
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe,LetzterMitarbeiterId AS maId, LetzterMitarbeiterId ,/* CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,*/LetzterMitarbeiter,AvisoTVHinweis " &
|
|
" FROM Aviso " &
|
|
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
|
|
sqlStrFirma & " AND (LetzterMitarbeiterId=@maId) "
|
|
If cboMy_Grenzstelle._value <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
|
|
|
|
sqlStr &= " ORDER BY case " &
|
|
" when [Status] =3 then 0 " &
|
|
" when [Status] =0 then 1 " &
|
|
" when [Status] =99 then 2 " &
|
|
" when [Status] =4 then 3 " &
|
|
" when [Status] =1 then 4 " &
|
|
" when [Status] =5 then 4 " &
|
|
" when [Status] =0 then 5 " &
|
|
" END, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
|
|
Else
|
|
Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 "
|
|
If cboMyAvisoAnzeige._value <> "" And cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then
|
|
' inBearbeitungSQL = " Aviso.[TeamId]= " & If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, -1) & " "
|
|
inBearbeitungSQL = " (Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) "
|
|
End If
|
|
|
|
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], [Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " &
|
|
" ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " &
|
|
" FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
|
|
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
|
|
sqlStrFirma & " AND ( " & inBearbeitungSQL & ") "
|
|
|
|
Select Case cboMy_VB.CheckState
|
|
Case CheckState.Checked : sqlStr &= " AND tblSnd_Vorgeschrieben is not null "
|
|
Case CheckState.Unchecked : sqlStr &= " AND tblSnd_Vorgeschrieben is null "
|
|
' Case CheckState.Indeterminate : sqlStr &= " AND tblSnd_Vorbereitet is not null "
|
|
End Select
|
|
Select Case cboMy_QS.CheckState
|
|
Case CheckState.Checked : sqlStr &= " AND tblSnd_Vorbereitet is not null "
|
|
Case CheckState.Unchecked : sqlStr &= " AND tblSnd_Vorbereitet is null "
|
|
' Case CheckState.Indeterminate : sqlStr &= " AND tblSnd_Vorbereitet is not null "
|
|
End Select
|
|
If cboMy_Grenzstelle._value <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
|
|
|
|
sqlStr &= " ORDER BY case " &
|
|
" when [Status] =3 then 0 " &
|
|
" when [Status] =1 then 5 " &
|
|
" else 1 " &
|
|
" END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
|
|
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] =0 then 1 " &
|
|
' " when [Status] =99 then 2 " &
|
|
' " when [Status] =4 then 3 " &
|
|
' " when [Status] =1 then 4 " &
|
|
' " when [Status] =5 then 4 " &
|
|
' " when [Status] =0 then 5 " &
|
|
' " END, Ankunft"
|
|
|
|
|
|
'Public Const Status_Erfasst = 0
|
|
'Public Const Status_Vorbereitet = 4
|
|
'Public Const Status_Vorgeschrieben = 5
|
|
'Public Const Status_Freigegeben = 1
|
|
'Public Const Status_NichtEingetroffen = 2
|
|
'Public Const Status_Ankunft = 3
|
|
|
|
|
|
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...
|
|
|
|
Dim errOcc = False
|
|
gridMyAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list, False, errOcc)
|
|
If errOcc Then
|
|
pic.Visible = True
|
|
End If
|
|
' 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)
|
|
Dim nfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Regular)
|
|
|
|
With gridMyAviso
|
|
.DefaultCellStyle.Font = nfont
|
|
|
|
.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("LetzterMitarbeiterId").Visible = False 'Mitarb. nicht anzeigen
|
|
.Columns("LetzterMitarbeiter").Visible = False 'Mitarb. nicht anzeigen
|
|
|
|
.Columns("Status").Width = 90
|
|
.Columns("Status").HeaderText = "Status"
|
|
|
|
.Columns("LKW_Nr").MinimumWidth = 90
|
|
.Columns("LKW_Nr").HeaderText = "LKW-Kennzeichen"
|
|
.Columns("LKW_Nr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
.Columns("AvisoTVHinweis").Visible = False ' = 60
|
|
.Columns("Dauer").Visible = False ' = 60
|
|
|
|
|
|
.Columns("Datum").Visible = False 'Mitarb. nicht anzeigen
|
|
'.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").Visible = False
|
|
.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
|
|
|
|
If gridMyAviso.RowCount = 0 Then gridMyAviso.Columns.Clear() : Exit Sub
|
|
|
|
|
|
Dim t As New DataGridViewTextBoxColumn
|
|
t.Name = "DauerText"
|
|
t.Width = 80
|
|
t.HeaderText = "Dauer"
|
|
t.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
t.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns.Insert(7, t)
|
|
|
|
|
|
|
|
If cbx_My_LKW.Checked Then
|
|
.Columns("statVorb").Visible = False 'Mitarb. nicht anzeigen
|
|
Else
|
|
.Columns("tblSnd_Status").Visible = False
|
|
|
|
.Columns("tblSnd_Abfertigungsart_ID").Visible = False
|
|
.Columns("tblSnd_Vorgeschrieben").Visible = False
|
|
.Columns("tblSnd_Vorbereitet").Visible = False
|
|
.Columns("tblSnd_SendungID").Visible = False
|
|
.Columns("tblSnd_Fremdspedition").Visible = False
|
|
.Columns("tblSnd_FremdspeditionText").Visible = False
|
|
|
|
.Columns("tblSnd_Empfaenger").MinimumWidth = 80
|
|
.Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger"
|
|
.Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
.Columns("VoraussichtlichesEintreffen").Width = 55
|
|
.Columns("VoraussichtlichesEintreffen").HeaderText = "Eintreffen"
|
|
.Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM."
|
|
|
|
' .Columns("Vermerke_Anzahl").Width = 60
|
|
' .Columns("Vermerke_Anzahl").HeaderText = "Vermerke"
|
|
' .Columns("Vermerke_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns("AbfertigungsNr").Width = 110
|
|
.Columns("AbfertigungsNr").HeaderText = "Pos-Nr."
|
|
.Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
|
|
.Columns("AbfertigungsNr").Visible = False
|
|
|
|
|
|
|
|
|
|
|
|
Dim c As DataGridViewImageColumn
|
|
c = New DataGridViewImageColumn
|
|
c.Name = "StatusVorbereitetQS"
|
|
c.Image = My.Resources.statusBtn_vorbereitet_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
|
|
c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
|
|
c.ToolTipText = "Status 'Vorbereitet-QS' eintragen"
|
|
c.HeaderText = "QS"
|
|
.Columns.Add(c)
|
|
|
|
|
|
c = New DataGridViewImageColumn
|
|
c.Name = "StatusVorgeschrieben"
|
|
c.Image = My.Resources.statusBtn_vorgeschrieben_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
|
|
c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
|
|
c.ToolTipText = "Status 'Vorgeschrieben' eintragen"
|
|
c.HeaderText = "VG"
|
|
.Columns.Add(c)
|
|
|
|
|
|
Dim t2 = New DataGridViewTextBoxColumn
|
|
t2.Name = "Abfertigungsart"
|
|
t2.HeaderText = "Abfertigungsart"
|
|
t2.Width = 90 : t.DefaultCellStyle.Padding = New Padding(2) : t2.DefaultCellStyle.BackColor = Color.White
|
|
't.ToolTipText = ""
|
|
.Columns.Insert(7, t2)
|
|
|
|
End If
|
|
|
|
|
|
'Dauer berechnen:
|
|
For Each r As DataGridViewRow In .Rows
|
|
r.DefaultCellStyle.Font = nfont
|
|
If Not cbx_My_LKW.Checked Then
|
|
If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER
|
|
r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230)
|
|
' r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230)
|
|
' r.Cells("Abfertigungsart").Value = "FREMD"
|
|
r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value
|
|
Else 'Nomal
|
|
r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
|
|
If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".."
|
|
End If
|
|
|
|
If .Columns("StatusVorbereitetQS") IsNot Nothing Then
|
|
If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then
|
|
DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv
|
|
DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")"
|
|
Else
|
|
DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' eintragen"
|
|
End If
|
|
End If
|
|
If .Columns("StatusVorgeschrieben") IsNot Nothing Then
|
|
If r.Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then
|
|
DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorgeschrieben_Aktiv
|
|
DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")"
|
|
Else
|
|
DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' eintragen"
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
' 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
|
|
Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now)
|
|
If IsNumeric(dauerTmp) Then
|
|
r.Cells("Dauer").Value = dauerTmp
|
|
r.Cells("DauerText").Value = cProgramFunctions.MinToTime2(dauerTmp)
|
|
Else
|
|
r.Cells("Dauer").Value = "0"
|
|
r.Cells("DauerText").Value = "0"
|
|
End If
|
|
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("LKW_fertig").Value = "DE" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green
|
|
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()
|
|
._TRANSLATE()
|
|
End With
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
' Grid_aktiv = True
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub dgvSendungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridMyAviso.CellClick
|
|
Try
|
|
If e.RowIndex > 0 Then
|
|
|
|
' MsgBox(gridMyAviso.Columns(e.ColumnIndex).Name)
|
|
If Not cbx_My_LKW.Checked Then
|
|
If True Then 'gridMyAviso.SelectedRows.Count = 1 Then
|
|
Dim SendungsId = gridMyAviso.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value
|
|
Dim AvisoID = gridMyAviso.Rows(e.RowIndex).Cells("AvisoID").Value
|
|
If SendungsId > 0 And AvisoID > 0 Then
|
|
|
|
Select Case gridMyAviso.Columns(e.ColumnIndex).Name
|
|
|
|
Case "StatusVorgeschrieben"
|
|
Me.Cursor = Cursors.WaitCursor
|
|
If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then
|
|
avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'meineAviso_anzeigen()
|
|
End If
|
|
Me.Cursor = Cursors.Default
|
|
Case "StatusVorbereitetQS"
|
|
Me.Cursor = Cursors.WaitCursor
|
|
If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then
|
|
avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'meineAviso_anzeigen()
|
|
End If
|
|
|
|
Me.Cursor = Cursors.Default
|
|
End Select
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
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
|
|
|
|
Select Case VarToInt(e.Value)
|
|
Case 0 : e.Value = "Erfasst" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60)
|
|
Case 1 : e.Value = "Freigegeben"
|
|
Case 2 : e.Value = "LKW n.e."
|
|
Case 3 : e.Value = "Ankunft" : 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 4 : e.Value = "Vorbereitet"
|
|
Case 5 : e.Value = "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
|
|
Case "VoraussichtlichesEintreffen"
|
|
' "Der Operator = ist für Typ DBNull und Typ Date nicht definiert."
|
|
|
|
If (gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value Is DBNull.Value OrElse gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value = LeerDatum) AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value IsNot DBNull.Value AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value <= 1 Then
|
|
'gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.ForeColor = Color.Red
|
|
gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
|
|
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.AddMonths(-1) '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()
|
|
UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection()
|
|
Details_anzeigen(avisoidTmp, False)
|
|
selectRow(avisoidTmp)
|
|
Try
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "ATILLA"
|
|
Case Else ' "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()
|
|
UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.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.AddMonths(-1) ' 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._value = 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._value.Replace("ALLE", "")
|
|
Aviso_anzeigen("")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cbxClusterChanged(sender As System.Object, e As System.EventArgs) Handles cbxCluster.CheckedChanged
|
|
If Grid_aktiv Then
|
|
' SucheStandort = cboGrenzstelle._value.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
|
|
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
|
|
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
|
|
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
|
|
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)
|
|
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
|
|
|
|
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, 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, 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 gridAviso.DoubleClick
|
|
|
|
If gridAviso.SelectedRows.Count = 0 Then Exit Sub
|
|
|
|
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 gridMyAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridMyAviso.DoubleClick
|
|
|
|
If gridMyAviso.SelectedRows.Count = 0 Then Exit Sub
|
|
If gridMyAviso.SelectedRows(0).Cells("AvisoID").Value Is DBNull.Value Then Exit Sub
|
|
|
|
If cbx_My_LKW.Checked Then
|
|
|
|
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
|
Dim f As New frmEintragAviso
|
|
f.ShowDialog(frmGrayOut)
|
|
frmGrayOut.Close()
|
|
btnRefresh.PerformClick() 'Aviso_anzeigen("")
|
|
|
|
Else
|
|
|
|
If gridMyAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value Is DBNull.Value Then Exit Sub
|
|
|
|
Dim SendungsId = gridMyAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value
|
|
Dim AvisoID = gridMyAviso.SelectedRows(0).Cells("AvisoID").Value
|
|
|
|
Dim f = FUNC.openSnd(SendungsId, AvisoID)
|
|
If f IsNot Nothing Then
|
|
AddHandler f.FormClosed, Sub()
|
|
btnRefresh.PerformClick()
|
|
End Sub
|
|
End If
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub btnNeu_Click(sender As System.Object, e As System.EventArgs) Handles btnNeu.Click
|
|
Try
|
|
Me.Cursor = Cursors.WaitCursor
|
|
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
|
|
Me.Cursor = Cursors.Default
|
|
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
|
|
Me.Cursor = Cursors.WaitCursor
|
|
'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()
|
|
Me.Cursor = Cursors.Default : Exit Sub
|
|
End If
|
|
' Next
|
|
Dim zoll As New SDL.frmKundenUebersichtZOLL
|
|
zoll.Show()
|
|
Me.Cursor = Cursors.Default
|
|
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
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim sped As New SDL.frmSpeditionsbuchSuche
|
|
sped.Show()
|
|
Me.Cursor = Cursors.Default
|
|
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 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
|
|
|
|
|
|
Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs) Handles gridMyAviso.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)
|
|
Dim tmpSndId = CInt(sender.selectedRows(0).Cells("tblSnd_SendungID").Value)
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpSndId
|
|
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
|
|
|
|
initEAviso()
|
|
|
|
If Aviso_anzeigenBool Then Aviso_anzeigen("", False) ': meineAviso_anzeigen()
|
|
|
|
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
|
|
|
|
|
|
gridMyAviso.ClearSelection()
|
|
If cbx_My_LKW.Checked Then
|
|
For Each r As DataGridViewRow In gridMyAviso.Rows
|
|
If CInt(r.Cells("AvisoId").Value) = tmpid Then
|
|
' gridMyAviso.ClearSelection()
|
|
gridMyAviso.CurrentCell = r.Cells("Status")
|
|
r.Selected = True : Exit For
|
|
End If
|
|
Next
|
|
Else
|
|
If gridMyAviso.Rows.Count > 0 Then
|
|
For Each r As DataGridViewRow In gridMyAviso.Rows
|
|
If CInt(r.Cells("tblSnd_SendungID").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then
|
|
gridMyAviso.CurrentCell = r.Cells("Status")
|
|
r.Selected = True : Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid
|
|
Details_aktiv = True
|
|
|
|
If pnlDetailsRechts.Controls.Count > 0 Then
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
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
|
|
Case Else
|
|
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
|
|
usrcntl.changeCurrentSndId()
|
|
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 Select
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
' pic.Visible = True
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub dgvSendungen_CellContentClick() Handles UsrCntlBenachrichtigungen1.SelectionChanged, gridMyAviso.CellClick
|
|
Try
|
|
|
|
If UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then
|
|
|
|
gridMyAviso.ClearSelection()
|
|
gridAviso.ClearSelection()
|
|
' MsgBox(Grid_aktiv)
|
|
|
|
Dim tmpId = UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_AvisoID").Value
|
|
|
|
If UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_art").Value = "A" Then
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
|
|
Else 'Sendungsbenachrichtigung
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_SendungID").Value
|
|
End If
|
|
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
|
|
|
|
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
|
|
End If
|
|
|
|
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
|
|
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() : UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection()
|
|
If sender Is gridMyAviso Then gridAviso.ClearSelection() : UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection()
|
|
' MsgBox(Grid_aktiv)
|
|
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
|
|
|
|
Dim tmpId = CInt(sender.Rows(e.RowIndex).Cells("AvisoId").Value)
|
|
|
|
If sender Is gridAviso Then
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
|
|
Else
|
|
If sender Is gridMyAviso Then
|
|
If cbx_My_LKW.Checked Then
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
|
|
Else
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(sender.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value)
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
|
|
If e.Button = MouseButtons.Right Then
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
|
If sender Is gridAviso Then
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
|
|
sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex)
|
|
conMenuAviso.Show(Cursor.Position)
|
|
End If
|
|
Else
|
|
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(Cursor.Position)
|
|
' sv.ShowDialog()
|
|
sv.ShowDialog(frmGrayOut)
|
|
frmGrayOut.Close()
|
|
|
|
End If
|
|
ElseIf e.Button = MouseButtons.Left Then
|
|
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
|
|
Panel2.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
|
|
ToolStripMenuItem4.Visible = True
|
|
ToolStripMenuItem5.Visible = True
|
|
ToolStripMenuItem6.Visible = True
|
|
Else 'VERAG
|
|
BürgschaftenExcelToolStripMenuItem.Visible = True
|
|
ToolStripMenuItem4.Visible = True
|
|
ToolStripMenuItem5.Visible = True
|
|
ToolStripMenuItem6.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 = 130 'SplitContainer2.Width - 750
|
|
If SplitContainer2.Panel2.Width > 1200 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 1200 '__> DAS"!!!
|
|
' If SplitContainer2.Panel2.Width > 900 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 900
|
|
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
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
|
|
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
|
|
' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
|
|
|
|
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.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik", Me) 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
|
|
Dim frmLKWBericht As New frmLKWBericht
|
|
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(frmNotify.cNotify_ART.AVISO_2H, 1, gridMyAviso.Rows(0).Cells("LKW_Nr").Value, gridMyAviso.Rows(0).Cells("AvisoId").Value)
|
|
End Sub
|
|
|
|
Sub newNotify(art As frmNotify.cNotify_ART, title As Integer, text As String, id As Integer)
|
|
' Exit Sub 'NICHT AKTIV
|
|
Dim formTmp = Me.ActiveForm
|
|
Dim frmNotify As New frmNotify(art, title, text, id)
|
|
frmNotify.TimerInterval = 1200000 ' 20min
|
|
|
|
|
|
Dim tmpY As Integer = Me.Height
|
|
If tmpY <= 0 Then tmpY = My.Computer.Screen.WorkingArea.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()
|
|
|
|
If formTmp IsNot Nothing Then formTmp.Focus()
|
|
End Sub
|
|
|
|
Public Function ConvertFileToBase64(ByVal fileName As String) As String
|
|
Return Convert.ToBase64String(System.IO.File.ReadAllBytes(fileName))
|
|
|
|
End Function
|
|
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
|
|
'VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolderCat("C:\Users\test01\Desktop\TEST.pdf", "12345", "", "Import ab Jänner 2021", "Import ab Jänner 2021")
|
|
'Exit Sub
|
|
|
|
CHMRC.hmrcTEST()
|
|
|
|
Exit Sub
|
|
Dim ep As New SDL.cEORIWebService
|
|
MsgBox(ep.ValidateEoriNumber("ATEOS1000000199").Result(0).Name)
|
|
|
|
Exit Sub
|
|
'Dim cRKSV_DE As New VERAG_PROG_ALLGEMEIN.cRKSV_DE
|
|
|
|
'cRKSV_DE.SignRKSV_DE()
|
|
|
|
|
|
'Exit Sub
|
|
'Me.Cursor = Cursors.WaitCursor
|
|
|
|
Dim firma = ""
|
|
' MsgBox("LOS" & vbNewLine & firma)
|
|
|
|
Dim path = SDL.cFinanzOnlineWebService.genUID_Formular("ATU74813856")
|
|
If path <> "" Then
|
|
Process.Start(path)
|
|
End If
|
|
'If SDL.cFinanzOnlineWebService.Call_Web_Service_MethodUID_Abfrage_NEU2020(firma, "ATU74813856") = 0 Then
|
|
' MsgBox("HURRA2" & vbNewLine & firma)
|
|
|
|
|
|
'End If
|
|
|
|
|
|
Exit Sub
|
|
|
|
|
|
MsgBox("1" & Environment.UserDomainName)
|
|
MsgBox("1" & Environment.UserName)
|
|
Exit Sub
|
|
Dim file As System.IO.StreamWriter
|
|
file = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\DEVELOPER1\Desktop\test.txt", True)
|
|
file.WriteLine(ConvertFileToBase64("C:\Users\DEVELOPER1\Desktop\Example.pdf"))
|
|
file.Close()
|
|
|
|
MsgBox("2")
|
|
|
|
Exit Sub
|
|
|
|
Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAviso
|
|
SH.POSITIONS.Add(New cVERAG_in_TRAviso_shipments)
|
|
SH.DOCUMENTS.Add(New cVERAG_in_TRAviso_document)
|
|
SH.POSITIONS(0).ADDRESS.Add(New cVERAG_in_TRAviso_Adressen)
|
|
SH.POSITIONS(0).DOCUMENTS.Add(New cVERAG_in_TRAviso_document)
|
|
Dim resultJson = FromClass(SH)
|
|
|
|
MsgBox(resultJson)
|
|
Exit Sub
|
|
|
|
Dim jsonPost As New VERAG_PROG_ALLGEMEIN.cJsonPost("https://api.verag.ag/api/V001/CustomsDeclaration?value=test123")
|
|
Dim dictData As New Dictionary(Of String, Object)
|
|
Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
|
EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position)
|
|
EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document)
|
|
'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document)
|
|
EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen)
|
|
|
|
EZA.Company = "VERAG"
|
|
|
|
dictData.Add("EZA", EZA)
|
|
dictData.Add("TEST", "JA")
|
|
MsgBox(jsonPost.postData(dictData))
|
|
|
|
|
|
'----------------------------------------------
|
|
|
|
|
|
'Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_shippment
|
|
|
|
'Dim resultJson = FromClass(SH)
|
|
|
|
'MsgBox(resultJson)
|
|
'----------------------------------------------
|
|
|
|
|
|
'newNotify(frmNotify.cNotify_ART.AVISO_2H3, gridMyAviso.Rows(1).Cells("LKW_Nr").Value, gridMyAviso.Rows(1).Cells("AvisoId").Value)
|
|
'newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
|
|
|
|
'Dim TJ As New VERAG_PROG_ALLGEMEIN.TESTJSON.BeyannameBilgi
|
|
|
|
'Dim stringtst = ""
|
|
'Dim user = JsonConvert.DeserializeObject(Of List(Of VERAG_PROG_ALLGEMEIN.cVERAG_in_shippment))(SH)
|
|
End Sub
|
|
|
|
Public Function FromClass(Of T)(data As T,
|
|
Optional isEmptyToNull As Boolean = False,
|
|
Optional jsonSettings As JsonSerializerSettings = Nothing) As String
|
|
|
|
Dim response As String = String.Empty
|
|
|
|
If Not EqualityComparer(Of T).Default.Equals(data, Nothing) Then
|
|
response = JsonConvert.SerializeObject(data, jsonSettings)
|
|
End If
|
|
|
|
Return If(isEmptyToNull, (If(response = "{}", "null", response)), response)
|
|
|
|
End Function
|
|
|
|
Public Function ToClass(Of T)(data As String,
|
|
Optional jsonSettings As JsonSerializerSettings = Nothing) As T
|
|
|
|
Dim response = Nothing
|
|
|
|
If Not String.IsNullOrEmpty(data) Then
|
|
response = If(jsonSettings Is Nothing,
|
|
JsonConvert.DeserializeObject(Of T)(data),
|
|
JsonConvert.DeserializeObject(Of T)(data, jsonSettings))
|
|
End If
|
|
|
|
Return response
|
|
|
|
End Function
|
|
|
|
|
|
Private Sub timerStandzeit_Tick(sender As Object, e As EventArgs) Handles timerStandzeit.Tick
|
|
Exit Sub
|
|
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(frmNotify.cNotify_ART.AVISO_2H, 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(frmNotify.cNotify_ART.AVISO_2H, 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
|
|
VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.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)
|
|
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")
|
|
Process.Start("https://www.zoll.de/SiteGlobals/Forms/KursSuche/KurseSuche_Formular_NotierteWaehrung.html")
|
|
'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
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim sped As New SDL.frmRechnungenSuche
|
|
sped.Show()
|
|
Me.Cursor = Cursors.Default
|
|
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 lblErweitereSuche.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
|
|
showMeNew()
|
|
'VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER()
|
|
'cADMIN.checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
|
End Sub
|
|
|
|
Private Sub LeereRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LeereRechnungToolStripMenuItem.Click
|
|
Dim f As New SDL.frmAbrechnungsMaskeEinzeln(-1, -1)
|
|
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)
|
|
Else
|
|
MsgBox("Keine Berechtigung!")
|
|
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()
|
|
Else
|
|
MsgBox("Keine Berechtigung!")
|
|
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()
|
|
Else
|
|
MsgBox("Keine Berechtigung!")
|
|
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() = 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
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim f As New SDL.frmAbrechnungsMaske
|
|
f.Show(Me)
|
|
Me.Cursor = Cursors.Default
|
|
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
|
|
|
|
Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click
|
|
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VerzollungsunterlagenBAR)
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click
|
|
Dim f As New SDL.frmPostEinschreiben
|
|
f.Show(Me)
|
|
End Sub
|
|
|
|
Private Sub UNISPEDToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UNISPEDToolStripMenuItem.Click
|
|
If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "UNISPED")) Then
|
|
showMeNew()
|
|
Else
|
|
MsgBox("Keine Berechtigung!")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub AMBARToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AMBARToolStripMenuItem.Click
|
|
If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "AMBAR")) Then
|
|
showMeNew()
|
|
Else
|
|
MsgBox("Keine Berechtigung!")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub VollständigesUpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VollständigesUpdateToolStripMenuItem.Click
|
|
frmLogin.UpdateAVISO(True)
|
|
End Sub
|
|
|
|
Private Sub ZollvollmachtDEFiskalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtDEFiskalToolStripMenuItem.Click
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Fiskal)
|
|
|
|
End Sub
|
|
|
|
Private Sub ZollvollmachtATEVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtATEVToolStripMenuItem.Click
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht_EV)
|
|
End Sub
|
|
|
|
'Private Sub TESTToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TESTToolStripMenuItem.Click
|
|
' 'VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({"C:\Users\DEVELOPER1\Desktop\Reiter.pdf"})
|
|
' ' VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder("C:\Users\DEVELOPER1\Desktop\20191017092932604.pdf", 489919001, 1234)
|
|
|
|
' TryPDF()
|
|
'End Sub
|
|
|
|
'Shared Sub TryPDF()
|
|
' ' Spire.License.LicenseProvider.SetLicenseKey("0xMEMAEABRiC6jPC4G3HMNAremyuZ15w8z1KmLKr9LnNmK8HaKpB6Q2+qrwh1uG0h5ui52KoJSRMg1suH9cs+IW+GtPapLk/UMMWbBlil6FmO/3TvpVJeLs3UetAz3YYCThbpPViCAY/6vBZrGePq9jMpST0Ln3PgEAVK6Obm4NELOjk9GNUdQGXgdCQ7ry9QIXR5DPYOSi2gSkQ+WihEx9K1hS5bl6VYOmIeAg109mcPIzdlja8O8z8wvIrqBwdivQXCN88B0NzEoBr7EiKl3mQEIcm1W8B3ppWmYPeZt3xfkR9H+xdVVfRnK8AEEgfB+/YEA9K2hQZpTPhaz3cHq31hHqeS2/NgQxaTx0/QghmPaLnoxqR2v2dDRe2oOxfXqmeHTI5e9cl8nWcgYl2fRhaDSvYYOs7GeO8tmiOlgMCdg+JO3EMQByyQ+AACEKRuTB8TI7OIU9POPs6dWaEZyu3YuWSDk4rGnCmdpJ3gHCJ7Qy9qoBtv+psnJAe/ylQCbqdvejSAKKtUonSpolK2zhqFljWqsWclgxk4NdvOd4tphER9c7H5sr2cn/SZgCXRftpk+G6zT/JPcY7LH5OP4kgQR9pH3g7O67C0YPCE7+20gLsTNaPfv7/mGoIMzTbUoteJN5D9jTLipYtfh8eLaEsLWL1rJ+sqr+MQvoYDNeWq6oG8bjkTyFe2GQkOZlBZEmpmR7W2QliMC7uSfbuJe6XHpM3dgROIluQHJQDAKge+LlYOd+QU5QPsI754noJZttSNKthzPxI9rP/FN+otlvvG8nddbx8v+PZAJ6KovIvexH7lWITw/Xrak4wzzaXCoeC5wUM2M5Y/4PL8tbKM+qIrH0kMZPHAdGIM4wJ8PA1UoEqB9Hgml6ggzk69WA1zY88W0y03js/7a/tWgwa+sEK9YK+cJXy54FpsLRFqkpSA0mOcJa3ukST9wnCOzVdN+Z4K4mCUzR++VJPVNkAA+KxEHrOOWG5kaUwUAk0sVRB8j8pjB83InevzxZJGX0+F+agjZJHQpzPdF1blS9WQqrW9p80fco3YI63i9+K78Q5TIuSlHOlPTLvuC1dxglzD3WkLsxnBd9woA5zQLVMdfYTfGntOuAEiBYqyVIMo35J/ese8SxczTqKOCcxBdLYCtE4S23yik6gL1YifmvjboavpRl6BPEf9M8iLe2xLRiJ+63rXTnexITUUYsq2XqCOj2YDdDnQywjMfnQ74WRQfD1vrGu7xcCTDCDkfql8uF2f8w00kqCS9UgpnsEuw5FoElVrgPNLvOlDSgqLdHOG0yiL9wwzPxtUZBiq6vNxkEkc+w0ZaQr012bHQoDyR/uMKPoLgmANaCb7qnsWLeoo+IrhfjwpUW6dXnIo7ENAFS0U6kjwGMrWDJU2JaH3M+8Iz//HLDO3Yr3eWC+wtt/I3Ii48Ra6CgPYTOfeRL3L+NkEBYfCVdxpQ==")
|
|
|
|
' Dim tmpFile = "C:\Users\DEVELOPER1\Desktop\Base\" & "27 AVN 83.pdf"
|
|
' 'Test file: 16 AST 87 AVIS.PDF'
|
|
' Dim oldPdf As New Spire.Pdf.PdfDocument()
|
|
' oldPdf.LoadFromFile(tmpFile)
|
|
' For i As Integer = 0 To oldPdf.Pages.Count - 1
|
|
' extractFirstPage(tmpFile, i)
|
|
' Next i
|
|
'End Sub
|
|
|
|
'Shared Sub extractFirstPage(ByRef TmpFile, i)
|
|
' Dim oldPdf As New Spire.Pdf.PdfDocument()
|
|
' oldPdf.LoadFromFile(TmpFile)
|
|
|
|
' Dim SplitPdf As New Spire.Pdf.PdfDocument()
|
|
' Dim page1 As Spire.Pdf.PdfPageBase
|
|
' page1 = SplitPdf.Pages.Add(oldPdf.Pages(0).Size, New Spire.Pdf.Graphics.PdfMargins(0))
|
|
' oldPdf.Pages(0).CreateTemplate().Draw(page1, New PointF(0, 0))
|
|
' Dim result As String = String.Format("C:\Users\DEVELOPER1\Desktop\Base\" & "output2\SplitOutput{0}.pdf", i)
|
|
' SplitPdf.SaveToFile(result, Spire.Pdf.FileFormat.PDF)
|
|
|
|
|
|
' Dim pdfNew As New Spire.Pdf.PdfDocument()
|
|
' Dim page As Spire.Pdf.PdfPageBase
|
|
|
|
' For j As Integer = 1 To oldPdf.Pages.Count - 1
|
|
' Dim pageOLD As Spire.Pdf.PdfPageBase = oldPdf.Pages(j)
|
|
' If pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle90 Then
|
|
' page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0))
|
|
' ElseIf pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle270 Then
|
|
' page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0))
|
|
' Else
|
|
' page = pdfNew.Pages.Add(pageOLD.Size, New Spire.Pdf.Graphics.PdfMargins(0))
|
|
' End If
|
|
' oldPdf.Pages(j).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
|
|
|
|
' Next
|
|
|
|
' pdfNew.SaveToFile("C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf")
|
|
|
|
' pdfNew.Dispose()
|
|
' System.IO.File.Delete(TmpFile)
|
|
' TmpFile = "C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf"
|
|
|
|
'End Sub
|
|
|
|
Private Sub cboTeams_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTeams.SelectedIndexChanged
|
|
If Grid_aktiv Then
|
|
' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
|
|
Aviso_anzeigen("")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs)
|
|
|
|
End Sub
|
|
|
|
Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cbx_My_LKW.CheckedChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged
|
|
If Grid_aktiv Then
|
|
meineAviso_anzeigen()
|
|
End If
|
|
cboMy_QS.Visible = Not cbx_My_LKW.Checked
|
|
cboMy_VB.Visible = Not cbx_My_LKW.Checked
|
|
cboMyAvisoAnzeige.Visible = Not cbx_My_LKW.Checked
|
|
Label17.Visible = Not cbx_My_LKW.Checked
|
|
|
|
If cbx_My_LKW.Checked Then
|
|
lblMeineAviso.Text = "Meine Aviso:"
|
|
Else
|
|
lblMeineAviso.Text = "Meine Sendungen:"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
For Each openForm In Application.OpenForms()
|
|
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
|
|
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
|
|
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
|
|
Me.Cursor = Cursors.Default : Exit Sub
|
|
End If
|
|
Next
|
|
|
|
Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger
|
|
f.Location = Cursor.Position
|
|
f.Show(Me)
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
'Private Sub TimerMessanger_NewMessages_Tick(sender As Object, e As EventArgs) Handles TimerMessanger_NewMessages.Tick
|
|
' Label20.Visible = (VERAG_PROG_ALLGEMEIN.cMessenger.UNREAD_MESAGES > 0)
|
|
' Label20.Text = (VERAG_PROG_ALLGEMEIN.cMessenger.UNREAD_MESAGES)
|
|
'End Sub
|
|
Dim Timer_REFRESH_firstTime = True
|
|
Private Sub Timer_REFRESH_Tick(sender As Object, e As EventArgs) Handles Timer_REFRESH.Tick
|
|
If Timer_REFRESH_firstTime Then
|
|
Timer_REFRESH_firstTime = False
|
|
Exit Sub
|
|
End If
|
|
Try
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
|
|
Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
|
|
Label20.Text = newMsg
|
|
Label20.Visible = (newMsg > 0)
|
|
If newMsg Then
|
|
Me.Icon = My.Resources.avisoNewMsg
|
|
|
|
Dim isshown = False
|
|
For Each openForm In Application.OpenForms()
|
|
If TypeOf (openForm) Is frmNotify Then
|
|
isshown = True
|
|
End If
|
|
Next
|
|
|
|
Dim isInFront = False
|
|
For Each openForm In Application.OpenForms()
|
|
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
|
|
' If DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Focused Then
|
|
If GetActiveWindow = DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Handle Then
|
|
isInFront = True
|
|
End If
|
|
End If
|
|
Next
|
|
If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
|
|
Else
|
|
Me.Icon = My.Resources.Aviso
|
|
End If
|
|
If Label20.Visible Then Label20.BringToFront()
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub cboImEx_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboImEx.SelectedIndexChanged
|
|
If Grid_aktiv Then
|
|
Aviso_anzeigen("")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Telefonliste")
|
|
'MsgBox(DS.da_id)
|
|
DS.OPEN_SINGLE()
|
|
End Sub
|
|
|
|
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
|
SplitContainer3.Panel1Collapsed = Not SplitContainer3.Panel1Collapsed
|
|
Button10.Text = If(Button10.Text = "<", ">", "<")
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem6_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "IMEX", "", "Gesamtsicherheit_IMEX")
|
|
'MsgBox(DS.da_id)
|
|
DS.OPEN_SINGLE_ORIG()
|
|
End Sub
|
|
|
|
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnMAVerzeichnis.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche
|
|
f.Show()
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click, Label22.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim f As New frm_eAVISO
|
|
f.Show()
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub FRONTOFFICEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FRONTOFFICEToolStripMenuItem.Click
|
|
If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "FRONTOFFICE")) Then
|
|
showMeNew()
|
|
Else
|
|
MsgBox("Keine Berechtigung!")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub VERIMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERIMEXToolStripMenuItem.Click
|
|
If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "VERIMEX")) Then
|
|
showMeNew()
|
|
Else
|
|
MsgBox("Keine Berechtigung!")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SUBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SUBToolStripMenuItem.Click, SBGToolStripMenuItem.Click, WAIToolStripMenuItem.Click, NKDToolStripMenuItem.Click, NEUToolStripMenuItem.Click, AMBToolStripMenuItem.Click
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = sender.text
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = sender.text 'Nochmal, sonst wird es durch MA geändert
|
|
showMeNew()
|
|
Else
|
|
MsgBox("Keine Berechtigung!")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MRNBarcodedruckToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MRNBarcodedruckToolStripMenuItem.Click
|
|
|
|
Dim MRN = InputBox("Bitte geben Sie die MRN-Nummer ein:")
|
|
SDL.FormularManagerNEU.printMRN(MRN)
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub SecretAvisoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SecretAvisoToolStripMenuItem.Click
|
|
Dim frmSecretAviso As New frmSecretAviso
|
|
frmSecretAviso.Show(Me)
|
|
End Sub
|
|
|
|
Private Sub DeutschToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeutschToolStripMenuItem.Click
|
|
If True Then
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "DE"
|
|
showMeNew()
|
|
Else
|
|
MsgBox("Keine Berechtigung!")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TürkischToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TürkischToolStripMenuItem.Click
|
|
If True Then
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "TR"
|
|
showMeNew()
|
|
Else
|
|
MsgBox("Keine Berechtigung!")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click
|
|
CHMRC.VATTEST(InputBox("Token"))
|
|
End Sub
|
|
|
|
Private Sub GVMSUKIMportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GVMSUKIMportToolStripMenuItem.Click
|
|
Process.Start("https://www.tax.service.gov.uk/goods-movement-system/dashboard")
|
|
End Sub
|
|
|
|
Private Sub TicketIBFInlandBorderFacilitiesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TicketIBFInlandBorderFacilitiesToolStripMenuItem.Click
|
|
Process.Start("https://attend-an-inland-border-facility.hmrc.gov.uk/login")
|
|
End Sub
|
|
|
|
Private Sub TicketIBFBeschreibungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TicketIBFBeschreibungToolStripMenuItem.Click
|
|
Process.Start("https://inlandborderfacilities.uk")
|
|
End Sub
|
|
|
|
Private Sub IBFStatusToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IBFStatusToolStripMenuItem.Click
|
|
Process.Start("https://inland-border-facility-site-availability.hmrc.gov.uk/dashboard")
|
|
End Sub
|
|
|
|
Private Sub FREnveloppeSmartBorderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FREnveloppeSmartBorderToolStripMenuItem.Click
|
|
Process.Start("https://www.douane.gouv.fr/enveloppe/en/enveloppe/creer")
|
|
End Sub
|
|
|
|
Private Sub EORIUKGeneriertenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EORIUKGeneriertenToolStripMenuItem.Click
|
|
Process.Start("https://www.gov.uk/eori")
|
|
End Sub
|
|
|
|
Private Sub KAPKentAccessPermitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KAPKentAccessPermitToolStripMenuItem.Click
|
|
Process.Start("https://www.gov.uk/check-hgv-border")
|
|
End Sub
|
|
|
|
Private Sub ATFormularZa282ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATFormularZa282ToolStripMenuItem.Click
|
|
Process.Start("https://formulare.bmf.gv.at/service/formulare/inter-Zoll/pdfs/9999/Za278.pdf")
|
|
End Sub
|
|
|
|
Private Sub ATInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATInfoToolStripMenuItem.Click
|
|
Process.Start("https://service.bmf.gv.at/service/anwend/formulare/show_mast.asp?s=Za278")
|
|
End Sub
|
|
|
|
Private Sub DEFormular0442ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEFormular0442ToolStripMenuItem.Click
|
|
Process.Start("https://www.formulare-bfinv.de/ffw/form/display.do?%24context=F11B5CC0E2F9CCCDE3E5")
|
|
End Sub
|
|
|
|
Private Sub DEInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEInfoToolStripMenuItem.Click
|
|
Process.Start("https://www.zoll.de/DE/Fachthemen/Warenursprung-Praeferenzen/Praeferenzen/Praeferenznachweise/Ausfertigung-nicht-foermlicher-Praeferenznachweise/Registrierter-Ausfuehrer/Allgemeines-REX/allgemeines-rex_node.html")
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click
|
|
Process.Start("https://formulare.bmf.gv.at/service/formulare/inter-Zoll/pdfs/9999/Za283.pdf?open=inline")
|
|
End Sub
|
|
|
|
Private Sub PBNIrelandFähreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PBNIrelandFähreToolStripMenuItem.Click
|
|
Process.Start("https://www.ros.ie/customs-roro-control-web/ros/pbn/create")
|
|
End Sub
|
|
|
|
Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragAGToolStripMenuItem.Click
|
|
Dim frm As New frmGesSichMenu
|
|
frm.Standort = "VERAG AG"
|
|
frm.Show()
|
|
End Sub
|
|
|
|
Private Sub DEGesamtsicherheitVeragGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEGesamtsicherheitVeragGmbHToolStripMenuItem.Click
|
|
Dim frm As New frmGesSichMenu
|
|
frm.Standort = "Verag GmbH"
|
|
frm.Show()
|
|
End Sub
|
|
|
|
Private Sub ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Click
|
|
Dim frm As New frmGesSichMenu
|
|
frm.Standort = "IMEX"
|
|
frm.Show()
|
|
End Sub
|
|
|
|
Private Sub ATGesamtsicherheitVeragCSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragCSToolStripMenuItem.Click
|
|
Dim frm As New frmGesSichMenu
|
|
frm.Standort = "Verag CS"
|
|
frm.Show()
|
|
End Sub
|
|
End Class
|
|
|
|
Public Class AvisoStatusFunctions
|
|
Dim Standorte As New cStandorteDAL
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Dim AvisoDAL As New cAvisoDAL
|
|
Dim VermerkeDAL As New cVermerkeDAL
|
|
|
|
Public Function getAnkunftDateNow() As Date
|
|
Try
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then
|
|
If Now.DayOfWeek = DayOfWeek.Sunday Then
|
|
Return CDate(Now.AddDays(1).ToShortDateString & " 06:00:00")
|
|
End If
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Return Now
|
|
End Function
|
|
|
|
|
|
Public Sub sendAnkunftBenachrichtigung(AvisoId)
|
|
'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamID, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!")
|
|
Dim alreadySent As New List(Of Integer)
|
|
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
|
|
'Keine Fremdspedition / Handling + nicht vorgeschrieben
|
|
If Not s.tblSnd_Fremdspedition And s.tblSnd_Abfertigungsart_ID <> "23" And s.tblSnd_Vorgeschrieben = Nothing Then
|
|
'Avisierer vorhanden
|
|
Dim TeamId = ""
|
|
'Zugeordnetes Team anhand von Avisierer...
|
|
If s.tblSnd_AvisiererKdNr IsNot Nothing AndAlso s.tblSnd_AvisiererKdNr > 0 Then
|
|
TeamId = SQL.getValueTxtBySql("SELECT TOP 1 kde_TeamId FROM [tblKundenErweitert] where kde_KundenNr ='" & s.tblSnd_AvisiererKdNr & "'", "FMZOLL")
|
|
End If
|
|
'...wenn nicht --> Team aus Sendung
|
|
'If TeamId = "" And If(s.tblSnd_TeamId, "") <> "" Then TeamId = s.tblSnd_TeamId 'derzeit nicht..
|
|
|
|
If TeamId <> "" Then
|
|
Dim sent = False
|
|
For Each i In alreadySent
|
|
If i = TeamId Then sent = True
|
|
Next
|
|
If Not sent Then
|
|
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamId, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!")
|
|
alreadySent.Add(TeamId)
|
|
End If
|
|
End If
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
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
|
|
|
|
'Wenn Aviserer einem Team zugeordnet, aber noch nicht "vorgeschrieben", dann bekommt das Team eine Nachricht!
|
|
' If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then
|
|
'Sendungsbasis
|
|
' 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 = getAnkunftDateNow()
|
|
End If
|
|
|
|
'E-Mail
|
|
sendAnkunftBenachrichtigung(Aviso.AvisoID)
|
|
|
|
|
|
|
|
|
|
'Fahrer Handy-Nr.
|
|
Dim frmAnkunftSetzen As New frmAnkunftSetzen(Aviso)
|
|
If frmAnkunftSetzen.ShowDialog() = DialogResult.Cancel Then
|
|
Return -1 'Abbrechen
|
|
End If
|
|
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
|
|
' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
|
|
' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
|
' End If
|
|
'End If
|
|
' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then
|
|
If Aviso.Grenzstelle <> VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Then
|
|
Dim f As New frmAnkunftAendern(Aviso)
|
|
If f.ShowDialog() Then
|
|
Aviso.Grenzstelle = f.AVISO.Grenzstelle
|
|
End If
|
|
End If
|
|
End If
|
|
' 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
|
|
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
'Ticket Drucken, wenn parameter
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("TICKET_ANKUNFT", "AVISO") Then
|
|
Dim rpt As New rptQRAviso(Aviso)
|
|
Dim printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
|
|
If printer <> "" Then
|
|
SDL.cProgramFunctions.printRpt(rpt, printer, True)
|
|
Else
|
|
SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
|
|
End If
|
|
|
|
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 "ATILLA"
|
|
'Case "VERAG", "IMEX"
|
|
Case Else
|
|
|
|
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)
|
|
|
|
eMails_einlesen(s.tblSnd_FrachtfuehrerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
|
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_FrachtfuehrerKdNr)
|
|
eMails_einlesen(s.tblSnd_AvisiererKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
|
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AvisiererKdNr)
|
|
Next
|
|
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
'freigabe
|
|
Shared Sub SendFreigabeEmail(AVISO As cAviso, Optional ForceMail As String = "")
|
|
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 "ATILLA"
|
|
'Case "VERAG", "IMEX"
|
|
Case Else
|
|
|
|
'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, ForceMail)
|
|
|
|
'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, ForceMail)
|
|
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, ForceMail)
|
|
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, ForceMail)
|
|
|
|
eMails_einlesen(s.tblSnd_FrachtfuehrerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
|
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_FrachtfuehrerKdNr, ForceMail)
|
|
eMails_einlesen(s.tblSnd_AvisiererKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
|
|
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AvisiererKdNr, ForceMail)
|
|
Next
|
|
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
Shared Sub Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, KundenNr, Optional ForceMail = "")
|
|
'art = 1 : Ankunft
|
|
'art = 2 : Freigabe
|
|
'art = 3 : Ankunft Export
|
|
'art = 4 : Freigabe Export
|
|
If KundenNr Is Nothing OrElse Not IsNumeric(KundenNr) Then Exit Sub
|
|
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 VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then GrenzstelleMail = "FO"
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then GrenzstelleMail = "UNI"
|
|
|
|
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!
|
|
|
|
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA '= "IMEX"
|
|
' Case "VERAG"
|
|
' Case "UNISPED"
|
|
' hBody = hBody.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'hier der Ersatz
|
|
'End Select
|
|
|
|
If ForceMail <> "" Then
|
|
Dim mailsTXT = ""
|
|
mailsTXT &= "TO: " & EMails & "<br>"
|
|
mailsTXT &= "CC: " & EMails_CC & "<br>"
|
|
mailsTXT &= "BCC: " & EMails_BCC & "<br><br>"
|
|
|
|
|
|
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(ForceMail, hBetreff, mailsTXT & hBody, getAbsenderEmail(), False, False, "", "", anhaenge)
|
|
|
|
Else
|
|
|
|
|
|
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
|
|
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 "UNISPED" : Return "No-Reply@unisped.at"
|
|
Case "FRONTOFFICE" : Return "noreply@front-office.eu"
|
|
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_Vorgeschrieben Then
|
|
msg = "Dieses LKW-Aviso hat bereits den Status 'Vorgeschrieben'." & 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
|
|
'SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorgeschrieben=null WHERE tblSnd_Vorgeschrieben is not null AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO")
|
|
|
|
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
|
|
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
|
|
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"))
|
|
|
|
|
|
' SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorbereitet=getDate() WHERE tblSnd_Vorbereitet IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO")
|
|
|
|
If False Then
|
|
|
|
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 VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(s.FilialenNr, False) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
|
|
If s.tblSnd_Vorbereitet Is Nothing Then
|
|
s.tblSnd_Vorbereitet = Now
|
|
End If
|
|
|
|
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "" Then
|
|
'Else
|
|
' If s.tblSnd_VG_MA Is Nothing Then
|
|
' s.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
|
' s.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
|
' s.LetzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
|
' End If
|
|
'End If
|
|
s.SAVE()
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
|
|
|
|
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
|
|
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
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"))
|
|
|
|
|
|
'SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorgeschrieben=getDate() WHERE tblSnd_Vorgeschrieben IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO")
|
|
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "" Then
|
|
'Else
|
|
' SQL.doSQL("UPDATE tblSendungen SET tblSnd_VG_MA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "',LetzterMitarbeiterId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "',LetzterMitarbeiter='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "' WHERE tblSnd_VG_MA IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO")
|
|
'End If
|
|
|
|
If False Then
|
|
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 VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(s.FilialenNr, False) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
|
|
If s.tblSnd_Vorgeschrieben Is Nothing Then
|
|
s.tblSnd_Vorgeschrieben = Now
|
|
End If
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "" Then
|
|
Else
|
|
If s.tblSnd_VG_MA Is Nothing Then
|
|
s.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
|
s.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
|
s.LetzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
|
End If
|
|
End If
|
|
s.SAVE()
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
vermerkVorgeschreiben(AvisoID)
|
|
'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
|
|
|
|
|
|
Sub vermerkVorgeschreiben(AvisoID)
|
|
Dim VermerkeDAL As New cVermerkeDAL
|
|
Dim myVermerk As New cVermerk
|
|
myVermerk.AvisoID = AvisoID
|
|
myVermerk.Datum = Now
|
|
myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
|
|
myVermerk.Hinweis_Vermerk = "Akt vorgeschrieben" : myVermerk.VermerkCodeId = 35
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
|
|
End Sub
|
|
|
|
|
|
Public Function setErfasst(AvisoID) As Boolean
|
|
|
|
' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Erfasst", "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
|
|
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
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
|
|
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
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
|
|
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
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"))
|
|
|
|
'Benachrichtigungen erledigen
|
|
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False)
|
|
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
|
|
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
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
|
|
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
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 VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
|
|
' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
|
|
' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
|
' End If
|
|
'End If
|
|
Aviso.FreigabeFiliale = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE
|
|
|
|
'Speditionsbuch aktualisieren
|
|
SQL.doSQL("UPDATE Speditionsbuch SET FilialenNrHandling='" & VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE & "' WHERE AvisoId='" & Aviso.AvisoID & "'", "FMZOLL")
|
|
|
|
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)
|
|
|
|
showFreigabeMsg(Aviso)
|
|
|
|
|
|
|
|
If True Then
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", CONTROL.FindForm) Then
|
|
Dim doAutoNacherf = True ' (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel))
|
|
If doAutoNacherf Then
|
|
AUTONACHERFASSUNG(CONTROL, AvisoID)
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
Return (tmpid > 0)
|
|
End Function
|
|
|
|
Sub showFreigabeMsg(AVISO As VERAG_PROG_ALLGEMEIN.cAviso)
|
|
|
|
Dim text = ""
|
|
Dim text_Freigabe = ""
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "ATILLA"
|
|
'Case "VERAG", "IMEX", "IMEX", "IMEX"
|
|
Case Else
|
|
Try
|
|
If IsNumeric(AVISO.Auftraggeber_KdNr) Then
|
|
Dim cADMIN As New cADMIN
|
|
text = cADMIN.getValueTxtBySql("SELECT DokumenteLKWFreigabe FROM Kunden WHERE KundenNr=" & AVISO.Auftraggeber_KdNr, "FMZOLL")
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
End Select
|
|
|
|
If AVISO.Freigabe_Info <> "" Then
|
|
text_Freigabe &= AVISO.Freigabe_Info
|
|
End If
|
|
|
|
If text <> "" Or text_Freigabe <> "" Then
|
|
|
|
Dim f As New frmDokumenteSchicken
|
|
f.rtbDokumente.Text = text
|
|
f.rtbSonstigeInfo.Text = text_Freigabe
|
|
|
|
f.ShowDialog()
|
|
End If
|
|
End Sub
|
|
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
|
|
Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT
|
|
|
|
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
|
|
If s.tblSnd_Abfertigungsart_ID = 23 Then
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID Then
|
|
Dim Personalnummer = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID
|
|
|
|
Dim SPEDITIONSBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(s.FilialenNr, s.AbfertigungsNr)
|
|
If Not SPEDITIONSBUCH.hasEntry Then
|
|
|
|
Dim notFound As Boolean = True
|
|
|
|
SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, AvisoID, s.tblSnd_SendungID, "", "", "", "", "", notFound, True, Personalnummer)
|
|
|
|
If ZOLL_IMPORT.checkIfAutoOK Then
|
|
If SPEDITIONSBUCH.SAVE() Then
|
|
s.tblSnd_SpeditionsbuchEingetragen = 1
|
|
s.SAVE()
|
|
End If
|
|
End If
|
|
Else
|
|
Dim SPEDBUCH_LIST As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList(s.FilialenNr, s.AbfertigungsNr) 'Liste laden, falls merhrere Einträge
|
|
If SPEDBUCH_LIST IsNot Nothing AndAlso SPEDBUCH_LIST.LIST IsNot Nothing Then
|
|
For Each SB In SPEDBUCH_LIST.LIST
|
|
If Not SPEDITIONSBUCH.Bar Then
|
|
ZOLL_IMPORT.SetBarKassiert(SB) ' BAR-Häckchen setzen, wenn kassiert wurde! (durch auto-Nacherfassung of nicht gesetzt)
|
|
End If
|
|
Next
|
|
|
|
End If
|
|
|
|
End If
|
|
'If ZOLL_IMPORT.AUTO_IMPORT(s.tblSnd_SendungID) Then
|
|
' s.tblSnd_SpeditionsbuchEingetragen = 1
|
|
' s.SAVE()
|
|
'End If
|
|
End If
|
|
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, Optional askSendungenUebernehmen = False, Optional checkStatus = True, Optional nurLeereSendungenUebernehmen = 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
|
|
|
|
|
|
If checkStatus Then
|
|
|
|
'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
|
|
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
|
|
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
|
|
|
|
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
|
|
' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
|
|
' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
|
' End If
|
|
'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"))
|
|
|
|
'Benachrichtigungen erledigen 'nicht mehr, 16.07.2020
|
|
'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, True)
|
|
|
|
|
|
If askSendungenUebernehmen Or nurLeereSendungenUebernehmen Then
|
|
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
|
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
|
|
|
If nurLeereSendungenUebernehmen Then
|
|
For Each s In SENDUNG_LIST
|
|
If s.LetzterMitarbeiterId Is Nothing OrElse CInt(s.LetzterMitarbeiterId) <= 0 Then
|
|
SendungUebernehmen(s.tblSnd_SendungID, AvisoID)
|
|
End If
|
|
Next
|
|
Else
|
|
Dim alleAkten = False
|
|
If askSendungenUebernehmen Then
|
|
|
|
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
|
|
For Each s1 In SENDUNG_LIST
|
|
If s1.LetzterMitarbeiterId IsNot Nothing AndAlso s1.LetzterMitarbeiterId <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
|
|
Select Case MsgBox("Möchten Sie alle Sendungen übernehmen?", vbYesNoCancel)
|
|
Case vbYes : alleAkten = True
|
|
Case vbCancel : Return False
|
|
End Select
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
End If
|
|
|
|
If alleAkten Then
|
|
For Each s In SENDUNG_LIST
|
|
' If s.LetzterMitarbeiterId IsNot Nothing Then
|
|
SendungUebernehmen(s.tblSnd_SendungID, AvisoID)
|
|
' End If
|
|
Next
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
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 "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
|
|
Case Else
|
|
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
|
|
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
|
|
End If
|
|
|
|
End Select
|
|
End If
|
|
Catch ex As Exception
|
|
'MsgBox(ex.Message)
|
|
End Try
|
|
Return (tmpid > 0)
|
|
End Function
|
|
|
|
|
|
|
|
Public Function AktUebernehmen_Zuruecksetzen(AvisoID) As Boolean
|
|
Try
|
|
|
|
'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
|
|
|
|
|
|
|
|
Aviso.LetzterMitarbeiterId = -1
|
|
Aviso.letzterMitarbeiter = "Weiterleitung" ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
Aviso.TeamId = -1 'VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
|
|
|
|
'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"))
|
|
|
|
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
|
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
|
|
|
AvisoDAL.SpeichernAviso(Aviso, False)
|
|
|
|
|
|
'Nicht MEHR!
|
|
'For Each s In SENDUNG_LIST
|
|
' ' If s.LetzterMitarbeiterId IsNot Nothing Then
|
|
' SendungUebernehmen_Zuruecksetzen(s.tblSnd_SendungID, AvisoID)
|
|
' ' End If
|
|
'Next
|
|
|
|
|
|
|
|
Return True
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
Return False
|
|
End Try
|
|
|
|
|
|
End Function
|
|
|
|
Public Function SendungUebernehmen(SendungsId As Integer, AvisoID As Integer, Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False) As Boolean
|
|
|
|
'If SendungsId Is Nothing Then Return False
|
|
If Not IsNumeric(SendungsId) Then Return False
|
|
' If AvisoID Is Nothing Then Return False
|
|
If Not IsNumeric(AvisoID) Then Return False
|
|
|
|
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
|
|
|
|
Return SendungUebernehmen(SENDUNG_TMP, MaId, GesendetAn)
|
|
End Function
|
|
|
|
Public Function SendungUebernehmen(ByRef SENDUNG_TMP As VERAG_PROG_ALLGEMEIN.cSendungen, Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False) As Boolean
|
|
Dim MITARBEITER As cMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER
|
|
If MaId > 0 Then
|
|
MITARBEITER = New cMitarbeiter(MaId)
|
|
End If
|
|
|
|
If SENDUNG_TMP Is Nothing Then Return False
|
|
Dim saveSachbearbeiterTmp = SENDUNG_TMP.saveSachbearbeiter
|
|
SENDUNG_TMP.saveSachbearbeiter = True
|
|
SENDUNG_TMP.LetzterMitarbeiterId = MITARBEITER.mit_id
|
|
SENDUNG_TMP.LetzterMitarbeiter = MITARBEITER.Fullname
|
|
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then ' nur, wenn BO, dann darf das Team geändert werden... Damit das zuständige Team nachvollzeiehn kann, was mit dem LKW ist...
|
|
SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
End If
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
|
|
If (SENDUNG_TMP.tblSnd_QS_MA Is Nothing OrElse SENDUNG_TMP.tblSnd_QS_MA <= 0) Then SENDUNG_TMP.tblSnd_QS_MA = MITARBEITER.mit_id
|
|
Else
|
|
If (SENDUNG_TMP.tblSnd_VG_MA Is Nothing OrElse SENDUNG_TMP.tblSnd_VG_MA <= 0) Then SENDUNG_TMP.tblSnd_VG_MA = MITARBEITER.mit_id
|
|
End If
|
|
|
|
If SENDUNG_TMP.SAVE() Then
|
|
AvisoDAL.addAenderung(SENDUNG_TMP.tblSnd_AvisoID, "Sendung übernommen", "Sendung Nr. " & SENDUNG_TMP.tblSnd_PosUnterNr & If(GesendetAn, " gesendet an ", " übernommen von ") & MITARBEITER.Fullname & " am " & Format(Now, "dd.MM.yyyy HH:mm") & If(GesendetAn, " (von " & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname & ")", ""))
|
|
SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp
|
|
|
|
'Benachrichtigungen erledigen 'nicht mehr, 16.07.2020
|
|
' VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_SND(SENDUNG_TMP.tblSnd_SendungID, True)
|
|
|
|
Return True
|
|
End If
|
|
SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp
|
|
Return False
|
|
End Function
|
|
|
|
Public Function SendungUebernehmen_Zuruecksetzen(SendungsId As Integer, AvisoID As Integer) As Boolean
|
|
|
|
If Not IsNumeric(SendungsId) Then Return False
|
|
If Not IsNumeric(AvisoID) Then Return False
|
|
|
|
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
|
|
|
|
Return SendungUebernehmen_Zuruecksetzen(SENDUNG_TMP)
|
|
End Function
|
|
Public Function SendungUebernehmen_Zuruecksetzen(ByRef SENDUNG_TMP As VERAG_PROG_ALLGEMEIN.cSendungen) As Boolean
|
|
|
|
|
|
If SENDUNG_TMP Is Nothing Then Return False
|
|
Dim saveSachbearbeiterTmp = SENDUNG_TMP.saveSachbearbeiter
|
|
SENDUNG_TMP.saveSachbearbeiter = True
|
|
SENDUNG_TMP.LetzterMitarbeiterId = -1
|
|
SENDUNG_TMP.LetzterMitarbeiter = ""
|
|
SENDUNG_TMP.tblSnd_TeamId = -1
|
|
|
|
'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then ' nur, wenn BO, dann darf das Team geändert werden... Damit das zuständige Team nachvollzeiehn kann, was mit dem LKW ist...
|
|
' SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
'End If
|
|
|
|
If SENDUNG_TMP.SAVE() Then
|
|
'AvisoDAL.addAenderung(SENDUNG_TMP.tblSnd_AvisoID, "Sendung übernommen", "Sendung Nr. " & SENDUNG_TMP.tblSnd_PosUnterNr & If(GesendetAn, " gesendet an ", " übernommen von ") & MITARBEITER.Fullname & " am " & Format(Now, "dd.MM.yyyy HH:mm") & If(GesendetAn, " (von " & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname & ")", ""))
|
|
SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp
|
|
Return True
|
|
End If
|
|
SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp
|
|
Return False
|
|
End Function
|
|
|
|
|
|
Public Function setSendungVorgeschrieben(SendungsId, AvisoID) As Boolean
|
|
|
|
If SendungsId Is Nothing Then Return False
|
|
If Not IsNumeric(SendungsId) Then Return False
|
|
If AvisoID Is Nothing Then Return False
|
|
If Not IsNumeric(AvisoID) Then Return False
|
|
|
|
|
|
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
|
|
|
|
SENDUNG_TMP.saveSachbearbeiter = True
|
|
|
|
If SENDUNG_TMP.tblSnd_Vorgeschrieben Is Nothing Then
|
|
SENDUNG_TMP.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
SENDUNG_TMP.tblSnd_Vorgeschrieben = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
|
|
AvisoDAL.addAenderung(AvisoID, "Sendung auf VORGESCHRIEBEN gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
Else
|
|
SENDUNG_TMP.tblSnd_Vorgeschrieben = Nothing
|
|
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORGESCHRIEBEN gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
End If
|
|
Return SENDUNG_TMP.SAVE()
|
|
|
|
End Function
|
|
|
|
Public Function setSendungVorbereitetQS(SendungsId, AvisoID) As Boolean
|
|
|
|
If SendungsId Is Nothing Then Return False
|
|
If Not IsNumeric(SendungsId) Then Return False
|
|
If AvisoID Is Nothing Then Return False
|
|
If Not IsNumeric(AvisoID) Then Return False
|
|
|
|
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
|
|
|
|
SENDUNG_TMP.saveSachbearbeiter = True
|
|
|
|
If SENDUNG_TMP.tblSnd_Vorbereitet Is Nothing Then
|
|
SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
|
SENDUNG_TMP.tblSnd_FilialeAbklaerung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE
|
|
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
|
|
' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
|
'End If
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
|
|
SENDUNG_TMP.tblSnd_Vorbereitet = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
|
|
AvisoDAL.addAenderung(AvisoID, "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
Else
|
|
SENDUNG_TMP.tblSnd_Vorbereitet = Nothing
|
|
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
End If
|
|
Return SENDUNG_TMP.SAVE()
|
|
|
|
End Function
|
|
|
|
Public Function setSendungAbklaerungTR(SendungsId, AvisoID) As Boolean
|
|
|
|
If SendungsId Is Nothing Then Return False
|
|
If Not IsNumeric(SendungsId) Then Return False
|
|
If AvisoID Is Nothing Then Return False
|
|
If Not IsNumeric(AvisoID) Then Return False
|
|
|
|
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
|
|
|
|
SENDUNG_TMP.saveSachbearbeiter = True
|
|
|
|
If SENDUNG_TMP.tblSnd_AbklaerungTR Is Nothing Then
|
|
SENDUNG_TMP.tblSnd_AbklaerungTR_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
|
SENDUNG_TMP.tblSnd_FilialeAbklaerung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE
|
|
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
|
|
' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
|
'End If
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
|
|
|
SENDUNG_TMP.tblSnd_AbklaerungTR = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
|
|
AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
Else
|
|
SENDUNG_TMP.tblSnd_AbklaerungTR = Nothing
|
|
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
End If
|
|
Return SENDUNG_TMP.SAVE()
|
|
|
|
End Function
|
|
|
|
Public Function setSendungFakturiert(SendungsId, AvisoID) As Boolean
|
|
|
|
If SendungsId Is Nothing Then Return False
|
|
If Not IsNumeric(SendungsId) Then Return False
|
|
If AvisoID Is Nothing Then Return False
|
|
If Not IsNumeric(AvisoID) Then Return False
|
|
|
|
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
|
|
|
|
SENDUNG_TMP.saveSachbearbeiter = False
|
|
|
|
If SENDUNG_TMP.tblSnd_Fakturiert Is Nothing Then
|
|
|
|
SENDUNG_TMP.tblSnd_Fakturiert = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
|
|
AvisoDAL.addAenderung(AvisoID, "Sendung auf FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
Else
|
|
SENDUNG_TMP.tblSnd_Fakturiert = Nothing
|
|
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
|
|
End If
|
|
Return SENDUNG_TMP.SAVE()
|
|
|
|
End Function
|
|
|
|
|
|
Public Function openSnd(sendId, AvisoID) As Form
|
|
If sendId Is Nothing Then Return Nothing
|
|
If AvisoID Is Nothing Then Return Nothing
|
|
If sendId <= 0 Then Return Nothing
|
|
If AvisoID <= 0 Then Return Nothing
|
|
|
|
For Each openForm In Application.OpenForms()
|
|
If TypeOf (openForm) Is frmSendungsdetailsNEU Then
|
|
'MsgBox("Sendungsfenster bereits geöffnet!")
|
|
'CType(openForm, frmSendungsdetailsNEU).BringToFront()
|
|
'Return Nothing
|
|
CType(openForm, frmSendungsdetailsNEU).WindowState = FormWindowState.Minimized
|
|
CType(openForm, frmSendungsdetailsNEU).Close()
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
|
Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
|
|
frmSendungsdetails.Show() 'Dialog() ' frmSendungsdetails.ShowDialog(frmGrayOut)
|
|
' frmGrayOut.Close()
|
|
Return frmSendungsdetails
|
|
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 = ""
|
|
|
|
If Kdnr Is Nothing OrElse Not IsNumeric(Kdnr) Then Exit Sub
|
|
' 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 "UNISPED"
|
|
hText = hText.Replace("%Firma_simple%", "UNISPED")
|
|
hText = hText.Replace("%Firma%", "UNISPED Speditions GmbH")
|
|
hText = hText.Replace("%Platzhalter2%", "<br><br><span style=""font-family: calibri;font-size:14px"">Freundliche Grüße / Saygilarimizla / Best Regards<br>
|
|
<b>UNISPED Speditions GmbH</b><br>
|
|
Abteilung: Zollabfertigung<br>
|
|
Tel.: +43 7711 2677-0<br>
|
|
Mail: <a href=""mailto:office@unisped.at"">office@unisped.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"">"
|
|
|
|
'If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
|
|
' SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
|
|
'Else
|
|
' 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>"
|
|
'End If
|
|
Dim showNCTSAdress = False
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T1Adresse") Then showNCTSAdress = True
|
|
SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td>" & If(showNCTSAdress, "<td> Gestellungsadresse (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 DsId2 = ""
|
|
Dim frist = ""
|
|
Dim gestellungsadresse = "<td><td/>"
|
|
Dim found = False
|
|
Select Case s.tblSnd_Abfertigungsart_ID
|
|
Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand
|
|
gestellungsadresse = "<td>" & s.getNCTSAdress(True, True, False) & "</td>"
|
|
|
|
getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID, s.tblSnd_DakosyRef)
|
|
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, DsId2)
|
|
If s.tblSnd_Abfertigungsart_ID = 23 Then
|
|
s.LOAD_HANDLING()
|
|
For Each hd In s.HANDLING
|
|
AtcMrn &= hd.sndhdg_nr & ", "
|
|
Next
|
|
If AtcMrn.EndsWith(", ") Then AtcMrn = AtcMrn.Substring(0, AtcMrn.Length - 2)
|
|
|
|
'If If(s.tblSnd_ATCMRN_Fremd, "") <> "" Then AtcMrn = s.tblSnd_ATCMRN_Fremd
|
|
End If
|
|
If KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF And (IsNumeric(DsId) Or IsNumeric(DsId2)) Then 'Steuerbescheid anhängen
|
|
If checkSteuerbescheidbedingung(KundenNr, DsId) Or checkSteuerbescheidbedingung(KundenNr, DsId2) Then
|
|
Try
|
|
If IsNumeric(DsId) Then
|
|
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
|
|
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
|
|
End If
|
|
If IsNumeric(DsId) Then
|
|
Dim PathTmp2 = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId2)).GET_TOP1_PATH(False)
|
|
If PathTmp2 <> "" Then anhaenge.Add(PathTmp2) : found = True
|
|
End If
|
|
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
|
|
|
|
Dim txtCluster = ""
|
|
' If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then txtCluster = "<td>" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "</td>"
|
|
txtCluster = "<td>" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "</td>"
|
|
SendungslistTXT &= "<tr style=""font-size:18;min-width:180;""><td>" & cnt & "</td>" & txtCluster & "<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>" & If(showNCTSAdress, gestellungsadresse, "") & "</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 String) As Boolean
|
|
Try
|
|
If DSId = "" Then Return False
|
|
If Not IsNumeric(DSId) Then Return False
|
|
|
|
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, tblSnd_Abfertigungsart_ID, tblSnd_DakosyRef) 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
|
|
|
|
'Wenn nichts gefunden:
|
|
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
|
|
ZOLLANMELDUNG.getDataByBezugsnummer(FilialenNr & "/" & AbfertigungsNr, tblSnd_Abfertigungsart_ID.ToString, tblSnd_DakosyRef) ' Die weiteren Daten werden hier geladen
|
|
If ZOLLANMELDUNG IsNot Nothing Then
|
|
AtcMrn = ZOLLANMELDUNG.ATCMRN
|
|
'dsId = dt.Rows(0)("DsId")
|
|
'frist = ZOLLANMELDUNG.dat
|
|
End If
|
|
|
|
Return False
|
|
End Function
|
|
|
|
Shared Function getDataFronDY_EZA(SendungsId, ByRef AtcMrn, ByRef dsId, FilialenNr, AbfertigungsNr, ByRef dsId2) 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")
|
|
dsId2 = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Mitteilung FROM [Speditionsbuch] where DokumentId_Mitteilung 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()
|
|
CType(openForm, SDL.frmKundenUebersichtZOLL).KdSearchBox1.KdNr = kdnr
|
|
Exit Sub
|
|
End If
|
|
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 = "", Optional VorauskasseId As Object = Nothing)
|
|
'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
|
|
If VorauskasseId IsNot Nothing AndAlso VorauskasseId IsNot DBNull.Value Then myVermerk.VorauskasseId = VorauskasseId
|
|
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
|
|
|