Imports System.IO Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO Imports VERAG_PROG_ALLGEMEIN.cGlobal Imports com.esendex.sdk.messaging Imports Newtonsoft.Json Imports System.Reflection Imports System.Drawing.Drawing2D Imports SDL Imports Microsoft.Office.Interop Imports Spire.Pdf.Texts Imports System.Net Imports System.Text Imports System.IO.Pipes Imports System.Security.AccessControl '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() Me.DoubleBuffered = True SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True) UpdateStyles() Icon = cMeineFunktionenAVISO.GetProgrammIcon End Sub Private Sub frmMain_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGOUT() If Not closeOK Then 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) tbcntrAvisoLKW.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 tbcntrAvisoLKW.SelectedIndex = 1 : txtSuche.Focus() If e.KeyCode = Keys.D2 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 2 : txtSuche.Focus() If (e.KeyCode) = Keys.D3 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 3 : txtSuche.Focus() If (e.KeyCode) = Keys.D4 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 4 : txtSuche.Focus() If (e.KeyCode) = Keys.D5 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 5 : txtSuche.Focus() If (e.KeyCode) = Keys.D0 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 6 : txtSuche.Focus() If (e.KeyCode) = Keys.Oem5 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 0 : txtSuche.Focus() End Sub '---------------------------------------------------------------------------------------------------------------------- '---------------------------------------------------------------------------------------------------------------------- '---------------------------------------------------------------------------------------------------------------------- Private listenerThread As System.Threading.Thread Private Sub StartPipeListener() listenerThread = New System.Threading.Thread(Sub() Try Dim pipeName As String = $"AVISO_{Process.GetCurrentProcess().Id}" Dim pipeSecurity As New PipeSecurity() pipeSecurity.AddAccessRule(New PipeAccessRule(Environment.UserName, PipeAccessRights.FullControl, AccessControlType.Allow)) Console.WriteLine($"Waiting for messages on pipe {pipeName}...") While True Using server = New NamedPipeServerStream(pipeName, PipeDirection.In, 1, PipeTransmissionMode.Byte, PipeOptions.None, 0, 0, pipeSecurity) Try server.WaitForConnection() Using reader = New StreamReader(server, Encoding.UTF8) Dim message = reader.ReadLine() ProcessMessage(message) End Using server.Disconnect() Catch ex As Exception Console.WriteLine("Fehler im Listener: " & ex.Message) End Try End Using End While Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub) listenerThread.IsBackground = True listenerThread.Start() End Sub Private Sub ProcessMessage(message As String) If message.StartsWith("OpenKd_") Then Invoke(Sub() Dim split = message.ToString.Split("_") FUNC.showKd(split(1), True) End Sub) ElseIf message.StartsWith("OpenAvisoSnd_") Then Invoke(Sub() Dim split = message.ToString.Split("_") If split.Count > 1 AndAlso IsNumeric(split(1)) AndAlso split(1) > 0 Then Dim frmSendungsdetails As New frmSendungsdetailsNEU(split(1), -1) frmSendungsdetails.ShowDialog(Me) End If End Sub) End If End Sub Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs) MyBase.OnFormClosed(e) Try If listenerThread IsNot Nothing Then listenerThread.Abort() End If Catch ex As Exception End Try End Sub '---------------------------------------------------------------------------------------------------------------------- '---------------------------------------------------------------------------------------------------------------------- '---------------------------------------------------------------------------------------------------------------------- Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then StartPipeListener() End If End If 'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) Me.AutoScaleMode = AutoScaleMode.Dpi hideErr.Interval = 3000 VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL 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 lblFimaAviso.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 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 " & Application.ProductVersion 'My.Resources.Version2 UpdateSession.Interval = 60000 UpdateSession.Enabled = True ' transparentpnl.Visible = True 'transparentpnl.BackColor = Color.FromArgb(25, Color.Red) ' transparentpnl.BackColor = Color.Transparent btnMitarbeiterKonto.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME setProfileImage() TimerAkte.Enabled = True Grid_aktiv = False Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then cboGrenzstelle.Items.Clear() cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "' AND grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False) Else cboGrenzstelle.Items.Clear() cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE") cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO")) cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???")) End If '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("AMBAR", "AMB")) 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: GE TRANSPORT", "WO_GE")) ''cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: KITA", "WO_KITA")) 'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???")) cboGrenzstelle.changeItem("") ' txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"}) txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) 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("") If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then cboMy_Grenzstelle.Items.Clear() cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "' AND grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False) cboMy_Grenzstelle.changeItem("") Else cboMy_Grenzstelle.Items.Clear() ''''If Not VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' Nicht, wenn Front-Office '''' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE (BACKOFFICE)", "ALLE_BACK")) ''''End If cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True, False, "ALLE") ' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG+AMB", "SBG+AMB")) cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO")) cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???")) cboMy_Grenzstelle.changeItem("") ''''cboMy_Grenzstelle.changeItem("ALLE_BACK") 'greift nur wenn verfügbar.. End If 'If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SBG" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then ' cboMy_Grenzstelle.changeItem("SBG+AMB") 'End If '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("AMBAR", "AMB")) 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: GE TRANSPORT", "WO_GE")) ''cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: KITA", "WO_KITA")) 'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???")) cboMyAvisoAnzeige.Items.Clear() cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE")) 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 = "VERIMEX" Then cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1-Sendungen", "T1")) cboMy_QS.CheckState = CheckState.Checked cboMy_VB.CheckState = CheckState.Unchecked cboMyAvisoAnzeige.changeItem("T1") Else If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then StandortWechselnToolStripMenuItem.Visible = True ElseIf VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then StandortWechselnToolStripMenuItem.Visible = True End If 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 Dim myLKW As Boolean = False If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Is Nothing Then myLKW = True End If If myLKW 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 End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT", "AVISO") Then GesamtsicherheitenToolStripMenuItem.Visible = True Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "ATILLA" ' Case "VERAG", "IMEX" ' lblErweitereSuche.Visible = False MDMParkplatzkartenToolStripMenuItem.Visible = False ' SplitContainer3.Panel1Collapsed = True Button10.Visible = False If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then Button10.Visible = True SplitContainer3.Panel1Collapsed = True End If 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 Button1.Visible = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then btnE_Aviso.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("MAILVORLAGEN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN_ALLE", "SDL") Then MailvorlagenToolStripMenuItem.Visible = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Leistungen_FIBU", "SDL") Then FIBUSachkontenToolStripMenuItem.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 cbx_My_Brexit.Checked = 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") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SRI_LANKA", "AVISO") Then 'MenuStrip1.Items.Clear() ' MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)'-->Siehe unten MenuStrip1.Items.Remove(ToolStripFormulare) StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem1) StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem) For Each i In FunktionenToolStripMenuItem.DropDownItems If i.name <> "tool_BRGXLS" And i.name <> "toolOriginalATR" Then i.Visible = False End If Next 'While MenuStrip1.Items.Count > 1 ' MenuStrip1.Items.RemoveAt(1) 'End While 'btnGenerelleGestellungen.Visible = False If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then btnSpedBuch.Visible = False btnDienstplan.Visible = True 'btnNeu.Enabled = False ' SplitContainer2.Visible = False btnDrucken.Visible = False 'SplitContainer2.Panel2Collapsed = True ' splitMain.Panel2Collapsed = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then MenuStrip1.Items.Remove(FunktionenToolStripMenuItem) MenuStrip1.Items.Remove(StatistikToolStripMenuItem) btnZollwebseiten.Visible = False lblErweitereSuche.Visible = False 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("", 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 If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("SHOW_AVISO_PCNAME") Then VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter += "/" & SystemInformation.UserName.ToString End If 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 If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then lblMitarbeiter.Text += " (" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & ")" End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AvisoTV_verwalten", Me) Then AvisoTVToolStripMenuItem.Visible = True End If lblUsrname.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME 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 & "' AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI') " Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI') and Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' and ((Transportmittelart = 'CONTAINER' and dateadd(DAY,20,VoraussichtlichesEintreffen) < GETDATE()) or (Transportmittelart <> 'CONTAINER' and dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE()))" '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 tbcntrAvisoLKW.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 If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ESSENSBESTELLUNGEN", "SDL") Then Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "FRONTOFFICE", "VERAG", "IMEX", "UNISPED" EssensbestellungenToolStripMenuItem.Visible = True End Select End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN_ESSENSBESTELLUNGEN", "AVISO") Then AdministrationEssensbestellungenToolStripMenuItem.Visible = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DATEV_EXPORT", "SDL") And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then DatevBuchungsexportToolStripMenuItem.Visible = True End If Panel1.Height -= pnlSearch.Height If Now.ToShortDateString >= DateTime.Parse("01/01/2023") Then ToolStripMenuItem4.Visible = False ToolStripMenuItem5.Visible = False ToolStripMenuItem6.Visible = False BürgschaftenExcelToolStripMenuItem.Visible = False End If Try If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then Dim timas As New cTimasAPI("timas") Dim infoMessage As New DataTable Dim timeEntryExisting As Boolean = False Dim isEndpointRunning As Boolean = True timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning) If Not timeEntryExisting AndAlso isEndpointRunning Then Dim frm As New frmTimasabfrage(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER) frm.TopMost = True frm.ShowDialog() If frm.DialogResult = DialogResult.OK Then If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen Then Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen) f.ShowDialog() f.TopMost = True Else Dim info timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", frm.typ) MsgBox(info) End If End If 'Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo) 'If a = vbYes Then ' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen Then ' Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen) ' f.ShowDialog() ' f.BringToFront() ' Else ' Dim info ' timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0)) ' MsgBox(info) ' End If 'Else 'End If End If End If End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Sub initEAviso() If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '?? 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 If 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("Transportmittelart").Visible = False .Columns("Status").Width = 25 .Columns("Status").HeaderText = "St." .Columns("AvisoID").Width = 60 .Columns("AvisoID").HeaderText = "LKW-Id" .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 = 55 .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 If cboGrenzstelle._value = "NEU" Then .Columns("VerwahrungStatus").Width = 55 .Columns("VerwahrungStatus").HeaderText = "Kontrolle" .Columns("VerwahrungStatus").DefaultCellStyle.ForeColor = Color.White .Columns("VerwahrungStatus").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("VerwahrungStatus").DefaultCellStyle.Font = bfont .Columns("VerwahrungStatus").Visible = True Else .Columns("VerwahrungStatus").Visible = False End If .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 Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN 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 If r.Cells("VerwahrungStatus").Value = "OK" Then r.Cells("VerwahrungStatus").Style.ForeColor = Color.White r.Cells("VerwahrungStatus").Style.BackColor = Color.Green 'Else 'r.Cells("LKW_fertig").Style.BackColor = Color.White End If Next End With Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) 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 showPnlRight(id, reloadIfSameId) Else pnlDetailsRechts.Visible = False End If lblEintraege.Text = gridAviso.RowCount & " Einträge" & If(gridAviso.RowCount = 2000, " (begrenzt)", "") Me.Cursor = Cursors.Default End Sub Sub showPnlRight(AvisoId, reloadIfSameId) ' MsgBox(VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId)) Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId) Case "ATILLA" If VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND Then GoTo ELSE_ATILLA Else 'If pnlDetailsRechts.Controls.Count > 0 Then ' MsgBox(pnlDetailsRechts.Controls(0).Name) 'End If If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetailsATILLANeu" Then pnlDetailsRechts.Controls.Clear() Dim usrCntl As New usrcntlAktDetailsATILLANeu(AvisoId) usrCntl.Dock = DockStyle.Fill pnlDetailsRechts.Controls.Add(usrCntl) Else DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).reload(AvisoId) End If End If Case Else ELSE_ATILLA: If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetails" Then pnlDetailsRechts.Controls.Clear() Dim usrCntl As New usrcntlAktDetails(AvisoId) usrCntl.Dock = DockStyle.Fill pnlDetailsRechts.Controls.Add(usrCntl) Else If reloadIfSameId Then DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId) Else If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> AvisoId Then DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId) End If End If End If End Select End Sub ' Dim AVISOBinding As New cBinding("AVISO") Public Sub Aviso_anzeigen(hSort As String, Optional showDetails As Boolean = True, Optional typ As String = "LKW") '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 " Dim hSQL As String = "" If typ = "LKW" Then '---------------------------------------------------------------------------------------------------------------------------------- '--- LKW --- '---------------------------------------------------------------------------------------------------------------------------------- 'Bei ANKUNFT nicht nach Datum einschränken If tbcntrAvisoLKW.SelectedTab Is tabAnkunft Or tbcntrAvisoLKW.SelectedTab Is tabErfasst Or tbcntrAvisoLKW.SelectedTab Is tabVorbereitet Or tbcntrAvisoLKW.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 hSQL = "SELECT " & top & " Status, AvisoID, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, " hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen,isnull(Transportmittelart,'')Transportmittelart" 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 txtAbsender.Text <> "" Then hSQLSnd &= " AND tblSnd_Absender LIKE '" & txtAbsender.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 cboGrenzstelle._value = "ALLE_WO" Then hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) " Else ' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'" If cboGrenzstelle._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'" ' Bestimmungs.ZST If cboGrenzstelle._value = "???" And txtBestimmungszollstelle._value <> "" Then hSQL += " AND Zollstelle = '" & txtBestimmungszollstelle._value & "'" End If End If 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 tbcntrAvisoLKW.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 tbcntrAvisoLKW.SelectedTab Is tabErfasst Then 'Erfasst hSQL += " AND Status = 0" ElseIf tbcntrAvisoLKW.SelectedTab Is tabVorbereitet Then 'Vorbereitet hSQL += " AND Status = 4" ElseIf tbcntrAvisoLKW.SelectedTab Is tabVorgeschrieben Then 'Vorgeschrieben hSQL += " AND Status = 5" ElseIf tbcntrAvisoLKW.SelectedTab Is tabAnkunft Then 'Ankunft hSQL += " AND Status = 3" ElseIf tbcntrAvisoLKW.SelectedTab Is tabFreigegeben Then 'Freigegeben hSQL += " AND Status = 1" ElseIf tbcntrAvisoLKW.SelectedTab Is tabVERIMEX Then 'Nicht Eingetroffen hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX ElseIf tbcntrAvisoLKW.SelectedTab Is tabINDONESIEN Then 'Nicht Eingetroffen hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN ElseIf tbcntrAvisoLKW.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 N'%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )" 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And search.Length = 8 Then 'AbfertigungsNr Suche für ATILLA, length, damit nicht unnötig der Verweis zu tblSendungen hergestellt wird --> performance ' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' OR (SELECT count(*) FROM tblSendungen WHERE AbfertigungsNr LIKE '%" & search & "%' AND FilialenNr=4801 AND tblSnd_AvisoID=AvisoId)>0 ) " 'Else ' 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 End If hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC" Else '---------------------------------------------------------------------------------------------------------------------------------- '--- Sendung --- '---------------------------------------------------------------------------------------------------------------------------------- Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer" If cboMyAvisoAnzeige._value <> "" Then If cboMyAvisoAnzeige._value = "ALLE" Then ' inBearbeitungSQL = " 1=1 " 'ALLE inBearbeitungSQL = " ( (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) OR (Aviso.[TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null)) OR [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR tblSendungen.LetzterMitarbeiterId=@maId) " ElseIf cboMyAvisoAnzeige._value = "T1" Then inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 " 'NUR VERAG/IMEX: inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) " ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then If cboMyAvisoAnzeige._value = "27" Then ' TEAM SALZBURG inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId OR Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) ) " Else inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) " End If End If End If hSQL = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[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 )) " & hSQLFirma & " AND ( " & inBearbeitungSQL & ") " Select Case cboMy_VB.CheckState Case CheckState.Checked : hSQL &= " AND tblSnd_Vorgeschrieben is not null " Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorgeschrieben is null " ' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null " End Select Select Case cboMy_QS.CheckState Case CheckState.Checked : hSQL &= " AND tblSnd_Vorbereitet is not null " Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorbereitet is null " ' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null " End Select If cboMy_Grenzstelle._value = "ALLE_WO" Then hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) " Else If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then hSQL &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" If cboMy_Grenzstelle._value = "ALLE_BACK" Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') " End If If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') " 'Farbe If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then Select Case btnColor.BackColor Case Color.Red hSQL &= " AND (Status = 3 ) " Case Color.Orange ' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) " hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, " & getDaysVorschreiben(1) & ",GETDATE()) AS DATE) ) ) " Case Color.Yellow hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY," & getDaysVorschreiben(2) & ",GETDATE()) AS DATE) AND cast(DATEADD(DAY," & getDaysVorschreiben(3) & ",GETDATE()) AS DATE) ) ) " End Select End If ''Farbe 'If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then ' Select Case btnColor.BackColor ' Case Color.Red ' hSQL &= " AND (Status = 3 OR (Status IN (0, 3, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE)<= cast(GETDATE() AS DATE) ) or VoraussichtlichesEintreffen is null) " ' Case Color.Orange ' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) = cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) " ' Case Color.Yellow ' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 2,GETDATE()) AS DATE) AND cast(DATEADD(DAY, 3,GETDATE()) AS DATE) ) ) " ' End Select 'End If 'hSQL &= " AND (Grenzstelle ='???' OR Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen! ' Funktioniert nciht, wg. WO hSQL &= " 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 ' 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(DirectCast(gridAviso.DataSource, DataTable).Rows.Count) 'Grid neu designen If CheckBox1.Checked Then gridAviso_SpaltenFestlegen() End If '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 = "" & hDifferenz.ToString & " ms" 'lblDauer.Text = "Dauer Anzeige aufbauen: " & hDifferenz.ToString & " ms" End Sub Public Sub setProfileImage() Try If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId IsNot Nothing Then 'Get the original image. 'Dim originalImage = Image.FromFile("\\share01\Datenarchiv\DOKUMENTE\MITARBEITER\PERSONAL_FOTOS\20200419_000451_Hofer_375.jpg") 'My.Resources.Koerfez61 'Dim originalImage = Image.FromFile("\\share01\Datenarchiv\DOKUMENTE\MITARBEITER\PERSONAL_FOTOS\20220620_091930_Luxbauer_4.jpg") 'My.Resources.Koerfez61 Dim originalImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId)) 'My.Resources.Koerfez61 'Dim originalImage = Image.FromFile("C:\Users\DEVELOPER1\Desktop\grund.png") 'My.Resources.Koerfez61 ' MsgBox(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId)) Dim picSize = 35 Dim space_X As Integer = 0 Dim space_Y As Integer = 0 Dim picWidth As Integer = 0 Dim picHheight As Integer = 0 Dim factor As Double = 1 If originalImage.Height < originalImage.Width Then factor = picSize / originalImage.Height picWidth = originalImage.Width * factor picHheight = originalImage.Height * factor ' space_X = (picWidth - picHheight) / 2 Else factor = picSize / originalImage.Width picWidth = originalImage.Width * factor picHheight = originalImage.Height * factor ' space_X = (picHheight - picWidth) / 2 End If ' MsgBox(picWidth & " - " & picHheight) 'Create a new, blank image with the same dimensions. Dim croppedImage As New Bitmap(picWidth, picHheight) 'Prepare to draw on the new image. Using g = Graphics.FromImage(croppedImage) Dim path As New GraphicsPath 'Create an ellipse that fills the image in both directions. 'path.AddEllipse(0, 0, croppedImage.Width, croppedImage.Height) path.AddEllipse(0, 0, picSize, picSize) Dim reg As New Region(path) 'Draw only within the specified ellipse. g.Clip = reg 'g.DrawImage(originalImage, 0, 0, picSize, picSize) g.DrawImage(originalImage, 0, 0, picWidth, picHheight) End Using 'Display the new image. btnMitarbeiterKonto.Image = croppedImage Exit Sub End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try btnMitarbeiterKonto.Image = My.Resources.mitarbeiter_s 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 Try If gridMyAviso.Columns IsNot Nothing AndAlso gridMyAviso.ColumnCount > 0 Then ' Sunst komischer Fehler DataAreaMouseLeave gridMyAviso.Columns.Clear() End If gridMyAviso.DataSource = Nothing 'gridMyAviso.Columns.Clear() 'Macht CellMouseLeave-Fehler????? Catch ex As Exception End Try '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 If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR FIRMA='ATILLA' ) " Else sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) " End If Else sqlStrFirma &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " End If 'Verimex soll keine Abgeschlossenen und keine Freigegebenen sehen: If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then sqlStrFirma &= " AND Abgeschlossen=0 AND Status <>1 " If cbx_My_LKW.Checked Then '---------------------------------------------------------------------------------------------------------------------------------- '--- LKW --- '---------------------------------------------------------------------------------------------------------------------------------- sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[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,6,7) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & sqlStrFirma & " AND (LetzterMitarbeiterId=@maId) " 'If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" If cboMy_Grenzstelle._value = "ALLE_WO" Then sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) " 'ElseIf cboMy_Grenzstelle._value = "SBG+AMB" Then ' sqlStr &= " AND (Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66) )) " ElseIf cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" End If sqlStr &= " ORDER BY case " & " when [Status] =3 then 0 " & " when [Status] =6 then 0.5 " & " when [Status] =7 then 0.5 " & " 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 '---------------------------------------------------------------------------------------------------------------------------------- '--- Sendung --- '---------------------------------------------------------------------------------------------------------------------------------- Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer" If cboMyAvisoAnzeige._value <> "" Then If cboMyAvisoAnzeige._value = "ALLE" Then ' inBearbeitungSQL = " 1=1 " 'ALLE inBearbeitungSQL = " ( (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) OR (Aviso.[TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null)) OR [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR tblSendungen.LetzterMitarbeiterId=@maId) " ElseIf cboMyAvisoAnzeige._value = "T1" Then inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 " 'NUR VERAG/IMEX: inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) " ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then If cboMyAvisoAnzeige._value = "27" Then ' TEAM SALZBURG inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId OR Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) ) " Else inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) " End If End If End If sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus], [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,isnull(tblSnd_Zollsystem_Land,'')tblSnd_Zollsystem_Land,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 = "ALLE_WO" Then sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) " Else If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" If cboMy_Grenzstelle._value = "ALLE_BACK" Then sqlStr &= " AND FilialenNr NOT IN ('7001','7002','7003') " End If If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then sqlStr &= " AND FilialenNr NOT IN ('7001','7002','7003') " 'Farbe If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then Select Case btnColor.BackColor Case Color.Red sqlStr &= " AND (Status = 3 ) " Case Color.Orange ' sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) " sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, " & getDaysVorschreiben(1) & ",GETDATE()) AS DATE) ) ) " Case Color.Yellow sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY," & getDaysVorschreiben(2) & ",GETDATE()) AS DATE) AND cast(DATEADD(DAY," & getDaysVorschreiben(3) & ",GETDATE()) AS DATE) ) ) " End Select End If ''Farbe 'If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then ' Select Case btnColor.BackColor ' Case Color.Red ' sqlStr &= " AND (Status = 3 OR (Status IN (0, 3, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE)<= cast(GETDATE() AS DATE) ) or VoraussichtlichesEintreffen is null) " ' Case Color.Orange ' sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) = cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) " ' Case Color.Yellow ' sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 2,GETDATE()) AS DATE) AND cast(DATEADD(DAY, 3,GETDATE()) AS DATE) ) ) " ' End Select 'End If 'sqlStr &= " AND (Grenzstelle ='???' OR Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen! ' Funktioniert nciht, wg. WO 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 ' MsgBox(sqlStr) '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 'MsgBox(sqlStr) Try gridMyAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list, False, errOcc) Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG) End Try 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) 'MsgBox(sqlStr) With gridMyAviso If .Columns.Count <= 0 Then pic.Visible = False : Exit Sub If .Columns("AvisoID") Is Nothing Then pic.Visible = False : Exit Sub .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 If cboGrenzstelle._value = "NEU" Then .Columns("VerwahrungStatus").Width = 55 .Columns("VerwahrungStatus").HeaderText = "Kontrolle" .Columns("VerwahrungStatus").DefaultCellStyle.ForeColor = Color.White .Columns("VerwahrungStatus").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("VerwahrungStatus").Visible = True Else .Columns("VerwahrungStatus").Visible = False End If 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_Zollsystem_Land").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 = 110 : 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 Dim Abfertigungsland As String = r.Cells("tblSnd_Zollsystem_Land").Value If Abfertigungsland <> "" Then Abfertigungsland = "[" & Abfertigungsland & "] " r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL") r.Cells("Abfertigungsart").Value = Abfertigungsland & r.Cells("Abfertigungsart").Value If r.Cells("Abfertigungsart").Value.ToString.Length > 20 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 20) & ".." 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("VerwahrungStatus").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green 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 'Farbkennung If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then If Not cbx_My_LKW.Checked Then Select Case r.Cells("Status").Value Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben '"1", "2" ' Freigabe, N.Eingetr. Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft '"3" ' Ankunft r.DefaultCellStyle.BackColor = Color.IndianRed r.Cells("DauerText").Style.ForeColor = Color.White Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX, VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN ' Ankunft r.DefaultCellStyle.BackColor = Color.SteelBlue r.Cells("DauerText").Style.ForeColor = Color.White Case Else 'Alle anderen Status: If r.Cells("VoraussichtlichesEintreffen").Value IsNot DBNull.Value AndAlso IsDate(r.Cells("VoraussichtlichesEintreffen").Value) Then Dim VoraussichtlichesEintreffen = CDate(r.Cells("VoraussichtlichesEintreffen").Value) 'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.ToShortDateString) Then 'heute ' r.DefaultCellStyle.BackColor = Color.IndianRed 'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'morgen ' r.DefaultCellStyle.BackColor = Color.Orange 'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'Ümorgen+ÜÜmorgen ' r.DefaultCellStyle.BackColor = Color.LightYellow 'End If 'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'heute ' r.DefaultCellStyle.BackColor = Color.Orange 'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'morgen ' r.DefaultCellStyle.BackColor = Color.LightYellow 'End If If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(1).ToShortDateString) Then 'heute r.DefaultCellStyle.BackColor = Color.Orange ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(3).ToShortDateString) Then 'morgen r.DefaultCellStyle.BackColor = Color.LightYellow End If Else End If End Select End If 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) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try ' Grid_aktiv = True End Sub Function getDateVorschreiben(addDays) As Date Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays)) addDays += 1 End While Return Now.AddDays(addDays) End Function Function getDaysVorschreiben(addDays) As Integer Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays)) addDays += 1 End While Return addDays End Function 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 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) 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 VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien" Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex" ' 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 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) 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 VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien" Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex" 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 tbcntrAvisoLKW.SelectedIndex = 0 Then cboGrenzstelle.SelectedIndex = 0 MyComboBox1.changeItem(UStatus_AVEingang) dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15) dtpBis.Value = Now.AddDays(1) ElseIf tbcntrAvisoLKW.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 tbcntrAvisoLKW.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 tbcntrAvisoLKW.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 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) 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 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG") 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 tbcntrAvisoLKW.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 'Suche Bestimmungs.ZST If cboGrenzstelle._value = "???" Then Label10.Visible = True txtBestimmungszollstelle.Visible = True Else Label10.Visible = False txtBestimmungszollstelle.Visible = False End If 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 If frmLogin.AnmeldungOK Then 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 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 btnZollwebseiten.MouseEnter, btnUmrechnungskurse.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 btnZollwebseiten.MouseLeave, btnUmrechnungskurse.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 VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub End If 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, ToolStripMenuItem17.Click Try Me.Cursor = Cursors.WaitCursor gridAviso.ClearSelection() gridMyAviso.ClearSelection() Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim f As New frmEintragAviso If sender Is ToolStripMenuItem17 Then f.FIRMA_TMP = "ATILLA" End If 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 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG") 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 Try Dim zoll As New SDL.frmKundenUebersichtZOLL zoll.Show() Me.Cursor = Cursors.Default Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Private Sub btnSpedBuch_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then Return End If For Each ft As Form In Application.OpenForms If TypeOf ft Is SDL.frmSpeditionsbuchSuche Then ft.BringToFront() Return End If Next Me.Cursor = Cursors.WaitCursor Dim spedForm As New SDL.frmSpeditionsbuchSuche() AddHandler spedForm.SendungsdetailsRequested, AddressOf OnSendungsdetailsRequested spedForm.Show() Me.Cursor = Cursors.Default 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 Dim usrcntlAvisoID = -1 Dim usrcntlAktiv As DateTime If Not pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then If pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv Else usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv End If If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) Else If DateDiff(DateInterval.Second, usrcntlAktiv, 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 'Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) ' 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 ' 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 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG") 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 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) 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 True 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, conAnVerimex.Click, conAnIndonesien.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 conAnVerimex Then FUNC.setAnVERIMEX(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) End If If sender Is conAnIndonesien Then FUNC.setAnINDONESIEN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 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) pnlDetailsRechts.MinimumSize = New Size(650, 0) 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 If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then 'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN" tbcntrAvisoLKW.TabPages.Remove(tabVorgeschrieben) tbcntrAvisoLKW.TabPages.Remove(tabVorbereitet) End If btnWichtigeStandort.Visible = False Panel2.Visible = False ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then 'nix ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then 'nix Else 'VERAG If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then Button5.Visible = True End If End If If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then 'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN" tbcntrAvisoLKW.TabPages.Remove(tabVorgeschrieben) tbcntrAvisoLKW.TabPages.Remove(tabVorbereitet) Else tbcntrAvisoLKW.TabPages.Remove(tabINDONESIEN) tbcntrAvisoLKW.TabPages.Remove(tabVERIMEX) conAnVerimex.Visible = False conAnIndonesien.Visible = False End If 'Wenn Teamzuweisung --> Backoffice --> Meine Senungen größer! If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, 0) > 0 Then splitMain.SplitterDistance = CInt(splitMain.Height / 2) Else 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 SplitContainer2.Width > 1300 Then SplitContainer2.SplitterDistance = 350 'SplitContainer2.Width - 750 SplitContainer3.SplitterDistance = 400 ElseIf SplitContainer2.Width > 1200 Then SplitContainer2.SplitterDistance = 180 'SplitContainer2.Width - 750 SplitContainer3.SplitterDistance = 300 Else SplitContainer2.SplitterDistance = 160 'SplitContainer2.Width - 750 SplitContainer3.SplitterDistance = 250 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 tbcntrAvisoLKW.Width = Panel1.Width 'tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X + getTbControlWidth(tbcntrAvisoLKW) + 80, tbcntrAvisoSND.Location.Y) tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X, tbcntrAvisoLKW.Location.Y) tbcntrAvisoSND.SelectedIndex = 1 tbcntrAvisoSND.Width = tbcntrAvisoLKW.Width tbcntrAvisoSND.Height = tbcntrAvisoLKW.Height VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me) BürgschaftenExcelToolStripMenuItem.Visible = False setGesamtsicherheitenBerechtigung() If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA IsNot "VERIMEX" And VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG = False Then If CInt(Application.ProductVersion.Replace(".", "")) = 4000 Then Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim f As New frmAvisoBirthday f.ShowDialog(frmGrayOut) frmGrayOut.Close() End If End If End Sub Private Function getTbControlWidth(tbcntr) As Integer Dim totalWidth As Integer = 0 ' Durchlaufe alle TabPages und summiere die Breite der Tabs For i As Integer = 0 To tbcntr.TabCount - 1 totalWidth += tbcntr.GetTabRect(i).Width Next Return totalWidth End Function 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 setGesamtsicherheitenBerechtigung() ATVeragCSToolStripMenuItem.Visible = False DEVeragGmbHToolStripMenuItem.Visible = False ATVeragAGToolStripMenuItem.Visible = False ATImexCSToolStripMenuItem.Visible = False DEAmbarToolStripMenuItem.Visible = False ATUnispedGmbHToolStripMenuItem.Visible = False ATAtillaToolStripMenuItem.Visible = False If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then ATVeragCSToolStripMenuItem.Visible = True DEVeragGmbHToolStripMenuItem.Visible = True ATVeragAGToolStripMenuItem.Visible = True ATUnispedGmbHToolStripMenuItem.Visible = True ATAtillaToolStripMenuItem.Visible = True ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then 'nix ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then DEVeragGmbHToolStripMenuItem.Visible = True ATVeragCSToolStripMenuItem.Visible = True ATVeragAGToolStripMenuItem.Visible = True ATImexCSToolStripMenuItem.Visible = True ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then DEAmbarToolStripMenuItem.Visible = True ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then ATUnispedGmbHToolStripMenuItem.Visible = True ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then ATVeragCSToolStripMenuItem.Visible = True ATVeragAGToolStripMenuItem.Visible = True ATImexCSToolStripMenuItem.Visible = True Else 'VERAG ATVeragCSToolStripMenuItem.Visible = True DEVeragGmbHToolStripMenuItem.Visible = True ATVeragAGToolStripMenuItem.Visible = True ATImexCSToolStripMenuItem.Visible = True End If 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 - 660) > 0 Then SplitContainer1.SplitterDistance = SplitContainer1.Width - 660 Else If SplitContainer1.Panel2.Width < 700 Then SplitContainer1.SplitterDistance = SplitContainer1.Width - 660 End If End If sd = SplitContainer1.SplitterDistance 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 btnZollwebseiten.Click cntxt.Show(Cursor.Position) End Sub Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click Try If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ausstempelnBeiBeenden Then If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then Dim timas As New cTimasAPI("timas") Dim infoMessage As New DataTable Dim timeEntryExisting As Boolean = False Dim isEndpointRunning As Boolean = True Dim isPresent = timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning) If timeEntryExisting AndAlso isEndpointRunning AndAlso isPresent Then Dim a As MsgBoxResult = MsgBox("Soll " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " ausgestempelt werden?" & vbNewLine & Now.ToString() & " als Endzeit erfassen?", vbYesNo) If a = vbYes Then Dim info timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "out", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0)) MsgBox(info) Else End If End If End If End If End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try 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 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) 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 Dim process As Process Dim ProgrammID As Integer Dim Programmname As String = "AVISO" For Each process In System.Diagnostics.Process.GetProcesses If (InStr(process.ProcessName, Programmname)) Then ProgrammID = process.Id End If Next AppActivate(ProgrammID) Exit Sub VERAG_PROG_ALLGEMEIN.cTranslateAuto_LIST.DoToAllControls(Me, "TR") 'VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle("What you deserve, is what you get World!!", "DE", "") Exit Sub Try Dim MIC = New VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment MIC.ImportShipmentMessage.ImportShipment.Shipment.company = "UK" MIC.SaveToFile("C:\VeragTMP\Test2.xml") 'Dim MIC = VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment.LoadFromFile("C:\VeragTMP\Test.xml") ''Dim MIC = VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment.LoadFromFile("C:\VeragTMP\MicCustImportShipment_Sample.xml") 'MsgBox(MIC.ImportShipmentMessage.ImportShipment.Shipment.company) Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Exit Sub Dim rpt As New rptTEST SDL.cProgramFunctions.printRpt(rpt, "") Exit Sub 'Dim sms As New VERAG_PROG_ALLGEMEIN.cSMS 'sms.sms_Handynummer = "00436644178557" 'sms.sms_Nachricht = "Das ist ein TEST" 'sms.sms_Firma = "FRONTOFFICE" 'sms.sms_Account = "EX0252513" 'sms.sendWhatsApp(sms.sms_Firma) 'Exit Sub cHMRC.hmrcTEST() Exit Sub Dim list = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(717858, CDate("01.10.2021"), CDate("31.10.2021")) '{5}) For Each d In list MsgBox(d.RechnungsDatum & " - " & d.RechnungsName_1) Next 'VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolderCat("C:\Users\test01\Desktop\TEST.pdf", "12345", "", "Import ab Jänner 2021", "Import ab Jänner 2021") Dim mailTo = "al@verag.ag" Dim betreff = "Betreff - TESTMAIL" Dim htmlBody = "E-Mail Body HTML " VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailTo, betreff, htmlBody, , False, False, ,,, 2) Exit Sub 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 = 660 '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() tbcntrAvisoLKW.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" ', "ATILLA" erst freischalten, wenn alles implementiert ist! 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 btnUmrechnungskurse.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 !!!!!!!!!!!!!!!!!!!!!!!!!! Process.Start("https://www.zoll.de/SiteGlobals/Forms/KursSuche/NotierteWaehrungen/KurseSuche_Formular_NotierteWaehrung.html") 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.Version2.Replace(".", "")) Then If CInt(cADMIN.getAktuelleVersion().Replace(".", "")) > CInt(Application.ProductVersion.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 += tbcntrAvisoLKW.Height tbcntrAvisoLKW.Visible = True Me.Refresh() Aviso_anzeigen("") Else pnlSearch.Visible = True Panel1.Height += pnlSearch.Height Panel1.Height -= tbcntrAvisoLKW.Height tbcntrAvisoLKW.Visible = False Me.Refresh() 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 tbcntrAvisoLKW.SelectedTab IsNot tabAlle Then Grid_aktiv = False tbcntrAvisoLKW.SelectedIndex = 0 End If Grid_aktiv = True End Sub Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click, CheckBox1.CheckedChanged If CheckBox1.Checked Then toggle_LKW_SND("LKW") Else toggle_LKW_SND("SND") End If End Sub Private Sub toggle_LKW_SND(typ) If typ = "LKW" Then tbcntrAvisoLKW.Visible = True tbcntrAvisoSND.Visible = False ElseIf typ = "SND" Then tbcntrAvisoLKW.Visible = False tbcntrAvisoSND.Visible = True End If Aviso_anzeigen("",, typ) 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, ,,, 2) 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", "SUB", True)) 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", "SUB", True)) Then showMeNew() Else MsgBox("Keine Berechtigung!") End If End Sub Sub closeAllWindows() ' Hole alle geöffneten Fenster in einer Liste Dim openForms = Application.OpenForms.Cast(Of Form).ToList() ' Iteriere über jedes Fenster in der Liste For Each frm As Form In openForms ' Prüfe, ob das Fenster nicht das aktuelle Fenster If frm.GetType.ToString <> "AVISO.frmHauptfenster" And frm.GetType.ToString <> "AVISO.frmLogin" Then ' Schließe das Fenster, unabhängig davon, ob es modal oder nicht ist frm.Close() End If Next 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", "SUB", True)) Then showMeNew() End If End Sub Sub showMeNew() 'VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA() 'VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER() closeOK = True 'For Each ft As Form In Application.OpenForms ' If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then ft.Close() ' If ft.GetType.ToString = "SDL.frmRechnungenSuche" Then ft.Close() 'Next closeAllWindows() 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 tool_BRGXLS.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 ' Process.Start("https://file.verag.ag:5001/oo/r/pkjsynkkXrTgPm85JLVFWAHem4NuF6IO") Process.Start("https://file.verag.ag:5001/d/s/pkjsynkkXrTgPm85JLVFWAHem4NuF6IO/i4_Ss9mG9jR7hB4wStoIbzhvYzlJJJPv-BbegLJoGuQk") 'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_GmbH") '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", "SUB", True)) 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", "AMB", True)) 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, cbx_My_Brexit.CheckedChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged If Grid_aktiv Then 'Wenn VERIMEX/T1 und cboMyAvisoAnzeige geändert --> Checkboxes richtig setzen If sender Is cboMyAvisoAnzeige Then If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then Grid_aktiv = False If cboMyAvisoAnzeige._value = "T1" Then cboMy_QS.CheckState = CheckState.Checked cboMy_VB.CheckState = CheckState.Unchecked Else cboMy_QS.CheckState = CheckState.Indeterminate cboMy_VB.CheckState = CheckState.Indeterminate End If Grid_aktiv = True End If End If 'DGV anzeigen: 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 lblMySND_Anzeige.Visible = Not cbx_My_LKW.Checked If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then btnColor.Visible = Not cbx_My_LKW.Checked Else btnColor.Visible = False End If If cbx_My_LKW.Checked Then lblMeineAviso.Text = "Meine Aviso:" cbx_My_Brexit.Visible = False Else lblMeineAviso.Text = "Meine Sendungen:" cbx_My_Brexit.Visible = True 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 frmLogin.AnmeldungOK Then ' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "XXX Chat-Nachricht!", -1) 'TEST If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = False 'NEUE NACHTICHTEN Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT() Label20.Text = newMsg.ToString Label20.Visible = (newMsg > 0) 'VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True 'NEUE NACHTICHTEN -> falsch gesetzt? If newMsg > 0 Then VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True 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 End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Private Sub 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 btnKontakt.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 btnE_Aviso.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", "SUB", True)) 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", "", True)) 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 EnglishToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EnglishToolStripMenuItem.Click If True Then VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "EN" showMeNew() Else MsgBox("Keine Berechtigung!") End If End Sub Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click Exit Sub setProfileImage() cHMRC.VATTEST(InputBox("Token")) End Sub Sub saveLukowaPDFsFromTherefore() ' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL ' Dim dt As DataTable = SQL.loadDgvBySql("", "EZOLL") Dim slist As New List(Of String) slist.Add("500324000877") slist.Add("480324003317") slist.Add("480324005617") slist.Add("480324037692") slist.Add("480324037668") slist.Add("500324009723") slist.Add("480324060847") For Each s In slist VERAG_PROG_ALLGEMEIN.cTherefore.getFileFromFolderCat("D:\Andreas\Dokumente\KUNDEN\Schletter\2024\", s, "", "Import ab Jänner 2024", "Import ab Jänner 2024") Next 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 ATVeragAGToolStripMenuItem.Click, DEVeragGmbHToolStripMenuItem.Click, ATImexCSToolStripMenuItem.Click, ATVeragCSToolStripMenuItem.Click, ATUnispedGmbHToolStripMenuItem.Click, DEAmbarToolStripMenuItem.Click, ATAtillaToolStripMenuItem.Click Dim frm As New frmGesamtsicherheitenMenuNEU() Select Case sender.name Case "ATVeragAGToolStripMenuItem" : frm.Standort = "VERAG AG" Case "DEVeragGmbHToolStripMenuItem" : frm.Standort = "Verag GmbH" Case "ATImexCSToolStripMenuItem" : frm.Standort = "IMEX" Case "ATVeragCSToolStripMenuItem" : frm.Standort = "Verag CS" Case "ATUnispedGmbHToolStripMenuItem" : frm.Standort = "Unisped GmbH" Case "DEAmbarToolStripMenuItem" : frm.Standort = "AMBAR GmbH" Case "ATAtillaToolStripMenuItem" : frm.Standort = "Atilla GmbH" End Select frm.Show() End Sub Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAviso.CellPainting If e.RowIndex <> -1 AndAlso gridAviso.Columns(e.ColumnIndex).Name = "Status" Then If gridAviso.Rows(e.RowIndex).Cells("Transportmittelart").Value = "SPRINTER" Then If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then e.Graphics.DrawImage(My.Resources.sprinter_white, e.CellBounds) 'e.CellStyle.BackColor = Color.White End If If Not e.Handled Then e.Handled = True e.PaintContent(e.CellBounds) End If End If End If End Sub Private Sub VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Click Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "VerfahrenshandbuchVERAGGmbHZollWO") DS.OPEN_SINGLE() End Sub Private Sub ChecklisteWOVERAGGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChecklisteWOCHECKLISTEZEallgemein.Click Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ChecklisteWOCHECKLISTEZEallgemein") DS.OPEN_SINGLE() End Sub Private Sub WOCECKLISTEZEWDHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WOCECKLISTEZEWDHToolStripMenuItem.Click Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "WOCECKLISTEZEWDH") DS.OPEN_SINGLE() End Sub Private Sub WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Click Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "WOCECKLISTEAbgangVerwahrungsortZV") DS.OPEN_SINGLE() End Sub Private Sub cntxtAtilla_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cntxtAtilla.Opening ToolStripMenuItem17.Visible = (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") End Sub Private Sub GVMSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GVMSToolStripMenuItem.Click If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then Dim f As New frmGVMS f.Show() Else MsgBox("Noch nicht verfügbar") End If End Sub Private Sub ZEVerfahrensanleitungGestellungSumAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZEVerfahrensanleitungGestellungSumAToolStripMenuItem.Click Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZE_Verfahrensanleitung") DS.OPEN_SINGLE() End Sub Private Sub ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem.Click Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZE_Verfahrensanleitung_Fremdpersonal") DS.OPEN_SINGLE() End Sub Private Sub WOCHECKLISTEZVAllgemeinToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WOCHECKLISTEZVAllgemeinToolStripMenuItem.Click Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZV_Checkliste") DS.OPEN_SINGLE() End Sub Private Sub ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1.Click Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZV_Verfahrensanleitung") DS.OPEN_SINGLE() End Sub Private Sub AlleStatusMailsSchickenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleStatusMailsSchickenToolStripMenuItem.Click Dim dt = VERAGSQL.loadDgvBySql("SELECT [AvisoID] FROM [AVISO].[dbo].[Aviso] where datum >= '05.03.2022' and Firma IN ('VERAG','IMEX') and (SELECT COUNT(*) FROM Vermerke where Vermerke.AvisoID=aviso.AvisoID and Hinweis_Vermerk LIKE 'Status E-Mail gesendet an:%') =0 and status NOT IN (1,2)", "AVISO") For Each r In dt.Rows 'MsgBox("SO: " & (r("AvisoID"))) Dim AVISO = AvisoDAL.LesenAviso(r("AvisoID"), "") AvisoStatusFunctions.SendStatusEmail(AVISO) Next End Sub Private Sub InfoTextÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoTextÄndernToolStripMenuItem.Click frmEintragTV.ShowDialog(Me) End Sub Private Sub txtBestimmungszollstelle_VALUE_CHANGED() Handles txtBestimmungszollstelle.VALUE_CHANGED If Grid_aktiv Then Aviso_anzeigen("") End If End Sub Private Sub AllgemeinToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllgemeinToolStripMenuItem.Click Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/ausfuhrkontrolle_node.html") End Sub Private Sub AllgemeineEinführungExportkontrolleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllgemeineEinführungExportkontrolleToolStripMenuItem.Click Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Allgemeine_Einfuehrung/allgemeine_einfuehrung_node.html") End Sub Private Sub BrexitToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BrexitToolStripMenuItem1.Click Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Brexit/brexit_node.html") End Sub Private Sub EmbargosLänderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EmbargosLänderToolStripMenuItem.Click Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Embargos/embargos_node.html") End Sub Private Sub GüterlisteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GüterlisteToolStripMenuItem.Click Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Gueterlisten/gueterlisten_node.html") End Sub Private Sub RoutenverwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RoutenverwaltungToolStripMenuItem.Click gridAviso.ClearSelection() gridMyAviso.ClearSelection() VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 1 Dim f As New frmNCTSRouten() f.ShowDialog(Me) End Sub Private Sub DTBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DTBToolStripMenuItem.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 Button13_Click(sender As Object, e As EventArgs) Handles btnColor.Click ctxtFarben.Show(Cursor.Position) End Sub Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click btnColor.BackColor = Color.Red meineAviso_anzeigen() End Sub Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click btnColor.BackColor = Color.Orange meineAviso_anzeigen() End Sub Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click btnColor.BackColor = Color.Yellow meineAviso_anzeigen() End Sub Private Sub ALLEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ALLEToolStripMenuItem.Click btnColor.BackColor = Color.White meineAviso_anzeigen() End Sub Private Sub StandarddruckerWechselnToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StandarddruckerWechselnToolStripMenuItem.Click Dim f As New frmWechselStandarddrucker() f.ShowDialog(Me) End Sub Private Sub EssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EssensbestellungenToolStripMenuItem.Click Dim f As New SDL.frmEssensbestellungen() f.ShowDialog(Me) End Sub Private Sub AdministrationEssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AdministrationEssensbestellungenToolStripMenuItem.Click Dim f As New SDL.frmEssensbestellungenAdministration() f.ShowDialog(Me) End Sub Private Sub WarenorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WarenorteToolStripMenuItem.Click Dim writepermissions As Boolean If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then writepermissions = True Dim f As New frmWarenorte(writepermissions) f.ShowDialog(Me) End Sub Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles btnMitarbeiterKonto.Click Me.Cursor = Cursors.WaitCursor Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) f.Show() Me.Cursor = Cursors.Default End Sub Private Sub CarnetTIRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CarnetTIRToolStripMenuItem.Click Me.Cursor = Cursors.WaitCursor Dim eh As New SDL.frmTIR eh.Show() Me.Cursor = Cursors.Default End Sub Private Sub CarnetTIRALTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CarnetTIRALTToolStripMenuItem.Click Me.Cursor = Cursors.WaitCursor Dim eh As New SDL.frmTIR_alt eh.Show() Me.Cursor = Cursors.Default End Sub Private Sub DatevBuchungsexportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMAILToolStripMenuItem.Click, FTPToolStripMenuItem.Click Try Dim Pathlist As New List(Of String) Select Case sender.name Case "EMAILToolStripMenuItem" If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True,, Pathlist, False) Then MsgBox("Buchungen wurden erfolgreich exportiert!") Else MsgBox("Es wurden keine Buchungen exportiert!") Exit Sub End If Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) Mail.To = "T.Wesolowski@hkt-tax.de" Mail.CC = "C.Tuendermann@hkt-tax.de;D.Horneber@hkt-tax.de;IO@ambarlog.de" Dim TextHTML = "" TextHTML &= "Sehr geehrte Damen und Herren,
im Anhang befinden sich die Exportdaten für die Buchhaltung!" TextHTML &= "
" TextHTML &= "
" TextHTML &= "Mit freundlichen Grüßen
" TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" TextHTML &= cFakturierung.getSignature("DE", 24, True, True) Mail.HTMLBody = "
" & TextHTML & "
" Mail.Subject = "DATEV-Buchungsdaten AMBAR " & Now.Date.ToShortDateString For Each path In Pathlist Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) Next Mail.Display() Case "FTPToolStripMenuItem" If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True,, Pathlist, False, "ftp") Then MsgBox("Buchungen wurden erfolgreich exportiert!") Else MsgBox("Es wurden keine Buchungen exportiert!") Exit Sub End If End Select Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub Private Sub APIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles APIToolStripMenuItem.Click Dim f As New frmNorsware() f.ShowDialog(Me) End Sub Private Sub FenstergrößeVariabelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FenstergrößeVariabelToolStripMenuItem.Click If Me.FormBorderStyle = FormBorderStyle.None Then Me.FormBorderStyle = FormBorderStyle.Sizable Panel4.Visible = False Else Me.FormBorderStyle = FormBorderStyle.None Panel4.Visible = True End If End Sub Private Sub btnZertifikate_Click(sender As Object, e As EventArgs) Handles btnZertifikate.Click Process.Start("https://verag.ag/de/about-us") End Sub Private Sub ToolStripMenuItem3_Click_1(sender As Object, e As EventArgs) Handles toolOriginalATR.Click If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ORIGINAL_ATR", "AVISO") Then Dim f As New frmOriginalArchiv_ATR f.Show() End If End Sub Private Sub AnhangsartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnhangsartenToolStripMenuItem.Click Dim f = New frmAvisoAnhangsarten("tblAvisoAnhangsArten", "AVISO") f.Show() End Sub Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork End Sub Private Sub MailvorlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MailvorlagenToolStripMenuItem.Click Dim f As New SDL.frmdynMailvorlagen(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN_ALLE", "SDL")) f.ShowDialog(Me) End Sub Private Sub FIBUSachkontenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FIBUSachkontenToolStripMenuItem.Click If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Leistungen_FIBU", "SDL") Then Dim f As New SDL.frmLeistundenFIBUKonten(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Leistungen_FIBU", "SDL")) f.ShowDialog(Me) End If End Sub Private Sub SpireLizenzPrüfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpireLizenzPrüfenToolStripMenuItem.Click If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz") Dim pdf As New Spire.Pdf.PdfDocument() Dim pdfNew As New Spire.Pdf.PdfDocument() pdf.PageSettings.Size = Spire.Pdf.PdfPageSize.A4 pdf.AppendPage() pdf.SaveToFile("test.pdf") pdfNew = New Spire.Pdf.PdfDocument("test.pdf") If pdfNew.Pages.Count = 0 Then MsgBox("FEhler beim erstellen der PDF-Datei") Exit Sub End If Dim finder As PdfTextFinder = New PdfTextFinder(pdfNew.Pages(0)) If finder.Find("Evaluation Warning").Count > 0 Then MsgBox("PDF License wurde nicht geladen!") Process.Start("test.pdf") Else MsgBox("PDF License wurde erfolgreich geladen!") Process.Start("test.pdf") End If End Sub Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.SendMessageToAviso("OpenAvisoSnd_1445868") 'VERAG_PROG_ALLGEMEIN.DHF_ArtikelBeispiel.Beispiel_TestSave() Exit Sub saveLukowaPDFsFromTherefore() Exit Sub VERAG_PROG_ALLGEMEIN.cBZST_UID_REST.CheckVat("DE", "147838463", "", "") 'geht ned - zugang Exit Sub saveLukowaPDFsFromTherefore() Exit Sub MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("AW: Kennzeichen: CB4178EB | Grenze SUB DE007701 Suben | Absender CEMOBSAN;TEKIRDAG | Gewicht: 7.200,0")) MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("*00*Fwd: Abgabenbescheid 5003/25001269 T31M492")) MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("AW: Warenbeschreibung in T1-Dokumenten - 5003/25000389")) MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("Kennzeichen: 06CLS811 | Grenze WAI DE008904 Waidhaus | Absender VAMET | Gewicht: 1.689,0")) MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("*00*RE: 16 ALF 807 AVIS/ GERMANY")) Exit Sub Dim resp = "" cHMRC.checkEORI_UK("GB078068385000", resp) MsgBox(resp) 'resp = "" 'cHMRC.checkVAT_UK("389356931", resp) 'MsgBox(resp) 'VERAG_PROG_ALLGEMEIN.cOpenAI.doFirstAI() 'saveLukowaPDFsFromTherefore() ' MsgBox(VERAG_PROG_ALLGEMEIN.cATEZ_Tariff.GetTariffInfo_SingleOrEmpty("6207220000")) ' 'Dim resp = GetDataFromSharePoint("https://dpdhl.sharepoint.com/sites/FRTTR-Verag", "TruckList", "al@verag.ag", "Muellerskuh1!") 'MsgBox(resp) 'saveLukowaPDFsFromTherefore() End Sub Public Function GetDataFromSharePoint(siteUrl As String, listName As String, username As String, password As String) As String '' SharePoint-URL und Liste konfigurieren 'Dim requestUrl As String = siteUrl & "/_api/web/lists/getbytitle('" & listName & "')/items" '' Authentifizierung: Benutzername und Passwort als Basis64 'Dim credentials As String = Convert.ToBase64String(Encoding.ASCII.GetBytes(username & ":" & password)) '' HTTP-Anfrage vorbereiten 'Dim request As HttpWebRequest = CType(WebRequest.Create(requestUrl), HttpWebRequest) 'request.Method = "GET" 'request.Accept = "application/json;odata=verbose" 'request.Headers("Authorization") = "Basic " & credentials 'Try ' ' Antwort von SharePoint erhalten ' Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse) ' Using reader As New StreamReader(response.GetResponseStream()) ' Dim jsonResponse As String = reader.ReadToEnd() ' Return jsonResponse ' End Using ' End Using 'Catch ex As WebException ' ' Fehlerbehandlung ' Return "Fehler: " & ex.Message 'End Try ' 1. Zugriffstoken abrufen '------------------------------------- ' Dim authority As String = $"https://login.microsoftonline.com/{tenantId}" ' Dim scopes As String() = {"https://graph.microsoft.com/.default"} ' ' Authentifizierung mit dem vertraulichen Client ' Dim app As IConfidentialClientApplication = ConfidentialClientApplicationBuilder.Create(clientId). ' WithClientSecret(clientSecret). ' WithAuthority(New Uri(authority)). ' Build() ' ' Token abrufen ' Dim authResult = Await app.AcquireTokenForClient(scopes).ExecuteAsync() '' 2. Zugriff auf SharePoint 'Dim requestUrl As String = $"{siteUrl}/_api/web/lists/getbytitle('{listName}')/items" ' Using client As New HttpClient() ' client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", authResult.AccessToken) ' client.DefaultRequestHeaders.Accept.Add(New MediaTypeWithQualityHeaderValue("application/json")) ' ' GET-Anfrage an SharePoint senden ' Dim response As HttpResponseMessage = Await client.GetAsync(requestUrl) ' ' Antwort prüfen und zurückgeben ' If response.IsSuccessStatusCode Then ' Dim jsonResponse As String = Await response.Content.ReadAsStringAsync() ' Return jsonResponse ' Else ' Return $"Fehler: {response.StatusCode} - {response.ReasonPhrase}" ' End If ' End Using End Function Private Sub Button7_Click_1(sender As Object, e As EventArgs) Handles Button7.Click Dim f As New frmSendungsdetailsNEU Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, f.SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen NEW_SND.SAVE(False) 'Insert neue Sendung f.SENDUNG_LIST.Add(NEW_SND) f.UNBOUND = True f.Show() End Sub Private Sub TVEditorNewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TVEditorNewToolStripMenuItem.Click frmEintragTvNew.ShowDialog(Me) End Sub Private Sub ATILLASENDUNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLASENDUNGToolStripMenuItem.Click 'VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND = True Dim f As New frmHauptfensterNew f.Show(Me.Owner) End Sub Private Sub OnSendungsdetailsRequested(ByVal AvisoId As Integer, ByVal SendungId As Integer) Dim detailForm As New frmSendungsdetailsNEU(AvisoId, SendungId) detailForm.Show() End Sub Private Sub WikiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WikiToolStripMenuItem.Click, MitarbeiterverzeichnisToolStripMenuItem.Click Select Case sender.Name Case "WikiToolStripMenuItem" : Process.Start("https://wiki.verag.ag/") Case "MitarbeiterverzeichnisToolStripMenuItem" : Process.Start("https://wiki.verag.ag/de/mitarbeiter/verzeichnis") End Select End Sub Private Sub VerträgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerträgeToolStripMenuItem.Click Dim f As New SDL.cKundenSearchVertrag f.Show(Me) End Sub End Class