4318 lines
200 KiB
VB.net
4318 lines
200 KiB
VB.net
|
|
Imports System.Drawing.Drawing2D
|
|
Imports System.IO
|
|
Imports System.IO.Pipes
|
|
Imports System.Net
|
|
Imports System.Reflection
|
|
Imports System.Security.AccessControl
|
|
Imports System.Text
|
|
Imports com.esendex.sdk.messaging
|
|
Imports GrapeCity.Enterprise.Data.Expressions.Tools
|
|
Imports Microsoft.Office.Interop
|
|
Imports Newtonsoft.Json
|
|
Imports SDL
|
|
Imports Spire.Pdf.Texts
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
Imports VERAG_PROG_ALLGEMEIN.cGlobal
|
|
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
|
|
'Imports UID
|
|
Public Class frmHauptfensterNew
|
|
|
|
|
|
|
|
Public AVISO_TYP = "LKW"
|
|
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
|
|
|
|
|
|
|
|
Dim SEARCH_AVISO As New usrCntlHauptfenster_Suche_AVISO
|
|
Dim SEARCH_AVISO_AKTIV As String = "AVISO"
|
|
|
|
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)
|
|
If dgv IsNot Nothing Then
|
|
|
|
Dim dgvType As Type = dgv.[GetType]()
|
|
Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
|
|
pi.SetValue(dgv, True, Nothing)
|
|
|
|
End If
|
|
End Sub
|
|
Sub SWITCH_SEARCH(switchTO)
|
|
'Panel1.Controls.Clear()
|
|
SEARCH_AVISO_AKTIV = switchTO
|
|
|
|
Select Case SEARCH_AVISO_AKTIV
|
|
Case "AVISO"
|
|
Panel1.Controls.Add(SEARCH_AVISO)
|
|
SEARCH_AVISO.Dock = DockStyle.Fill
|
|
' SEARCH_AVISO.init(Me)
|
|
initsearch("", False) ': Aviso_anzeigen("")
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
Sub initsearch(hSort As String, Optional showDetails As Boolean = True)
|
|
|
|
Select Case SEARCH_AVISO_AKTIV
|
|
Case "AVISO" : SEARCH_AVISO.Aviso_anzeigen(hSort, showDetails) ': Aviso_anzeigen("")
|
|
End Select
|
|
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
|
|
SWITCH_SEARCH("AVISO")
|
|
|
|
SEARCH_AVISO.reset()
|
|
Grid_aktiv = True
|
|
|
|
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 SEARCH_AVISO_AKTIV = "AVISO" Then
|
|
If e.KeyCode = Keys.D1 AndAlso e.Control Then SEARCH_AVISO.tbcntrAvisoLKW.SelectedIndex = 1 : SEARCH_AVISO.txtSuche.Focus()
|
|
If e.KeyCode = Keys.D2 AndAlso e.Control Then SEARCH_AVISO.tbcntrAvisoLKW.SelectedIndex = 2 : SEARCH_AVISO.txtSuche.Focus()
|
|
If (e.KeyCode) = Keys.D3 AndAlso e.Control Then SEARCH_AVISO.tbcntrAvisoLKW.SelectedIndex = 3 : SEARCH_AVISO.txtSuche.Focus()
|
|
If (e.KeyCode) = Keys.D4 AndAlso e.Control Then SEARCH_AVISO.tbcntrAvisoLKW.SelectedIndex = 4 : SEARCH_AVISO.txtSuche.Focus()
|
|
If (e.KeyCode) = Keys.D5 AndAlso e.Control Then SEARCH_AVISO.tbcntrAvisoLKW.SelectedIndex = 5 : SEARCH_AVISO.txtSuche.Focus()
|
|
If (e.KeyCode) = Keys.D0 AndAlso e.Control Then SEARCH_AVISO.tbcntrAvisoLKW.SelectedIndex = 6 : SEARCH_AVISO.txtSuche.Focus()
|
|
If (e.KeyCode) = Keys.Oem5 AndAlso e.Control Then SEARCH_AVISO.tbcntrAvisoLKW.SelectedIndex = 0 : SEARCH_AVISO.txtSuche.Focus()
|
|
|
|
End If
|
|
|
|
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)
|
|
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
|
|
UsrCntlBenachrichtigungen2.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()
|
|
|
|
|
|
Grid_aktiv = False
|
|
|
|
Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL
|
|
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
|
|
|
|
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
|
|
|
|
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 : SEARCH_AVISO.lblAkte.Visible = False
|
|
Case 1 : SEARCH_AVISO.lblAkte.Text = zeilen & " Akt vom Arbeitsplatz übernommen"
|
|
Case Else : SEARCH_AVISO.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
|
|
SEARCH_AVISO.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
|
|
SEARCH_AVISO.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
|
|
|
|
|
|
|
|
|
|
'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
|
|
|
|
|
|
'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
|
|
Grid_aktiv = True
|
|
SucheStandort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
|
|
If SucheStandort <> "" Then btnWichtigeStandort.Text = "Wichtig " & SucheStandort.Trim.ToUpper
|
|
initsearch(" ORDER BY Ankunft")
|
|
|
|
UsrCntlBenachrichtigungen2.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
|
|
|
|
'to
|
|
|
|
Dim frm As New frmTimasabfrage(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER)
|
|
frm.BringToFront()
|
|
If frm.ShowDialog = 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.BringToFront()
|
|
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
|
|
|
|
|
|
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
|
|
|
|
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 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 Aviso_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
|
|
|
|
|
|
|
|
' '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
|
|
|
|
|
|
|
|
|
|
'Private Sub dgvSendungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
|
|
' 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) 'Aviso_anzeigen("")
|
|
' End If
|
|
' Me.Cursor = Cursors.Default
|
|
' Case "StatusVorbereitetQS"
|
|
' Me.Cursor = Cursors.WaitCursor
|
|
' If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then
|
|
' avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_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)
|
|
' 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(gridAviso.Font.FontFamily, gridAviso.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
|
|
|
|
If AVISO_TYP = "LKW" Then
|
|
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
|
|
|
|
Else
|
|
Try
|
|
|
|
|
|
If gridAviso Is Nothing Then Exit Sub
|
|
If gridAviso.Columns Is Nothing Then Exit Sub
|
|
If gridAviso.ColumnCount = 0 Then Exit Sub
|
|
|
|
|
|
'Anzahl Minuten als verständlichen Text anzeigen
|
|
Select Case gridAviso.Columns(e.ColumnIndex).Name
|
|
Case "Status" 'Status
|
|
|
|
'Dim vb As Boolean = gridAviso.Rows(e.RowIndex).Cells("statVorb").Value
|
|
'Select Case VarToInt(e.Value)
|
|
' Case 0 : e.Value = IIf(vb, "Erfasst (in VB)", "Erfasst") : gridAviso.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") : gridAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.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" : gridAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F)
|
|
' 'gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown
|
|
' ' gridAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F)
|
|
' Case Else : e.Value = "unbekannt"
|
|
'End Select
|
|
|
|
Select Case VarToInt(e.Value)
|
|
Case 0 : e.Value = "Erfasst" : gridAviso.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" : gridAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.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" : gridAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F)
|
|
'gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown
|
|
' gridAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold) 'New Font(gridAviso.DefaultCellStyle.Font, 8.0F)
|
|
Case Else : e.Value = "unbekannt"
|
|
End Select
|
|
|
|
' If gridAviso.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
|
|
' 'gridAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red
|
|
' gridAviso.Rows(e.RowIndex).Cells("Dauer").Style.ForeColor = Color.Red
|
|
' gridAviso.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 If
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Public 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
|
|
|
|
|
|
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
|
|
UsrCntlBenachrichtigungen2.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
|
|
' UsrCntlBenachrichtigungen2.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)
|
|
UsrCntlBenachrichtigungen2.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 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)
|
|
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 initsearch("", False)
|
|
|
|
|
|
If AVISO_TYP = "LKW" Then
|
|
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
|
|
Else
|
|
gridAviso.ClearSelection()
|
|
If gridAviso.Rows.Count > 0 Then
|
|
For Each r As DataGridViewRow In gridAviso.Rows
|
|
If CInt(r.Cells("tblSnd_SendungID").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then
|
|
gridAviso.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
|
|
|
|
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 UsrCntlBenachrichtigungen2.SelectionChanged
|
|
Try
|
|
|
|
If UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then
|
|
|
|
gridAviso.ClearSelection()
|
|
' MsgBox(Grid_aktiv)
|
|
|
|
Dim tmpId = UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_AvisoID").Value
|
|
|
|
If UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_art").Value = "A" Then
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
|
|
Else 'Sendungsbenachrichtigung
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = UsrCntlBenachrichtigungen2.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 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() : UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.ClearSelection()
|
|
' If sender Is gridMyAviso Then gridAviso.ClearSelection() : UsrCntlBenachrichtigungen2.gridAvisoBenachrichtigungen.ClearSelection()
|
|
' MsgBox(Grid_aktiv)
|
|
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
|
|
|
|
Dim tmpId = CInt(sender.Rows(e.RowIndex).Cells("AvisoId").Value)
|
|
|
|
If AVISO_TYP = "SND" Then
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(gridAviso.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value)
|
|
Else
|
|
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
|
|
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)
|
|
|
|
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
|
|
|
|
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 Not VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then
|
|
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
|
|
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
|
ATVeragCSToolStripMenuItem.Visible = True
|
|
DEVeragGmbHToolStripMenuItem.Visible = True
|
|
ATVeragAGToolStripMenuItem.Visible = True
|
|
ATUnispedGmbHToolStripMenuItem.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
|
|
' 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 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
|
|
Try
|
|
If e.RowIndex > 0 Then
|
|
|
|
' MsgBox(gridMyAviso.Columns(e.ColumnIndex).Name)
|
|
If AVISO_TYP = "SND" Then
|
|
If True Then 'gridMyAviso.SelectedRows.Count = 1 Then
|
|
Dim SendungsId = gridAviso.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value
|
|
Dim AvisoID = gridAviso.Rows(e.RowIndex).Cells("AvisoID").Value
|
|
If SendungsId > 0 And AvisoID > 0 Then
|
|
|
|
Select Case gridAviso.Columns(e.ColumnIndex).Name
|
|
|
|
Case "StatusVorgeschrieben"
|
|
Me.Cursor = Cursors.WaitCursor
|
|
If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then
|
|
avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_anzeigen("")
|
|
End If
|
|
Me.Cursor = Cursors.Default
|
|
Case "StatusVorbereitetQS"
|
|
Me.Cursor = Cursors.WaitCursor
|
|
If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then
|
|
avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'Aviso_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 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 <b> HTML </b>"
|
|
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 = 600 '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)
|
|
SEARCH_AVISO.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"
|
|
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 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 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 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)
|
|
' 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("510322010193")
|
|
slist.Add("510322011571")
|
|
slist.Add("480322050190")
|
|
slist.Add("480322050410")
|
|
slist.Add("510322013047")
|
|
slist.Add("480322052547")
|
|
slist.Add("510322014009")
|
|
slist.Add("480322056856")
|
|
slist.Add("510322014450")
|
|
slist.Add("510322015430")
|
|
slist.Add("480322064453")
|
|
slist.Add("510322010825")
|
|
slist.Add("510322010960")
|
|
slist.Add("510322011010")
|
|
slist.Add("510322011054")
|
|
slist.Add("510322011220")
|
|
slist.Add("510322011416")
|
|
slist.Add("510322011334")
|
|
slist.Add("510322015642")
|
|
slist.Add("510322015821")
|
|
slist.Add("510322015984")
|
|
slist.Add("510322015883")
|
|
slist.Add("510322016423")
|
|
slist.Add("510322016609")
|
|
slist.Add("510322017257")
|
|
slist.Add("510322017397")
|
|
slist.Add("510322011605")
|
|
slist.Add("510322011813")
|
|
slist.Add("510322012097")
|
|
slist.Add("510322012102")
|
|
slist.Add("510322012106")
|
|
slist.Add("510322011759")
|
|
slist.Add("510322012131")
|
|
slist.Add("510322012220")
|
|
slist.Add("510322012248")
|
|
slist.Add("510322011680")
|
|
slist.Add("510322012454")
|
|
slist.Add("510322012499")
|
|
slist.Add("510322012495")
|
|
slist.Add("510322012477")
|
|
slist.Add("510322012565")
|
|
slist.Add("510322012924")
|
|
slist.Add("510322013000")
|
|
slist.Add("510322009806")
|
|
slist.Add("510322009814")
|
|
slist.Add("510322009820")
|
|
slist.Add("510322010007")
|
|
slist.Add("510322010221")
|
|
slist.Add("510322010223")
|
|
slist.Add("510322010237")
|
|
slist.Add("510322010321")
|
|
slist.Add("510322010115")
|
|
slist.Add("510322010427")
|
|
slist.Add("510322010497")
|
|
slist.Add("510322010362")
|
|
slist.Add("510322010651")
|
|
slist.Add("510322010698")
|
|
slist.Add("510322013133")
|
|
slist.Add("510322013407")
|
|
slist.Add("510322013581")
|
|
slist.Add("510322013558")
|
|
slist.Add("510322013713")
|
|
slist.Add("510322013714")
|
|
slist.Add("510322013736")
|
|
slist.Add("510322016954")
|
|
slist.Add("510322017014")
|
|
slist.Add("510322016978")
|
|
slist.Add("510322017065")
|
|
slist.Add("510322017044")
|
|
slist.Add("510322017078")
|
|
slist.Add("510322017062")
|
|
slist.Add("510322017308")
|
|
slist.Add("510322017406")
|
|
slist.Add("510322017408")
|
|
slist.Add("510322017398")
|
|
slist.Add("510322015326")
|
|
slist.Add("510322015332")
|
|
slist.Add("510322015340")
|
|
slist.Add("510322015350")
|
|
slist.Add("510322015631")
|
|
slist.Add("510322015635")
|
|
slist.Add("510322015634")
|
|
slist.Add("510322015639")
|
|
slist.Add("510322015626")
|
|
slist.Add("510322015907")
|
|
slist.Add("510322016034")
|
|
slist.Add("510322017410")
|
|
slist.Add("510322017402")
|
|
slist.Add("510322017323")
|
|
slist.Add("510322017407")
|
|
slist.Add("510322017401")
|
|
slist.Add("510322017619")
|
|
slist.Add("510322017599")
|
|
slist.Add("510322013950")
|
|
slist.Add("510322013929")
|
|
slist.Add("510322013960")
|
|
slist.Add("510322014077")
|
|
slist.Add("510322014084")
|
|
slist.Add("510322014268")
|
|
slist.Add("510322014301")
|
|
slist.Add("510322014451")
|
|
slist.Add("510322016288")
|
|
slist.Add("510322016371")
|
|
slist.Add("510322016384")
|
|
slist.Add("510322016380")
|
|
slist.Add("510322016459")
|
|
slist.Add("510322016709")
|
|
slist.Add("510322016736")
|
|
slist.Add("510322016644")
|
|
slist.Add("510322016787")
|
|
slist.Add("510322016793")
|
|
slist.Add("510322014437")
|
|
slist.Add("510322014373")
|
|
slist.Add("510322014675")
|
|
slist.Add("510322014682")
|
|
slist.Add("510322014679")
|
|
slist.Add("510322014751")
|
|
slist.Add("510322014750")
|
|
slist.Add("510322014849")
|
|
slist.Add("510322014853")
|
|
slist.Add("510322014894")
|
|
slist.Add("510322014915")
|
|
slist.Add("510322014914")
|
|
slist.Add("510322014912")
|
|
slist.Add("510322014947")
|
|
slist.Add("510322015084")
|
|
slist.Add("510322015101")
|
|
slist.Add("510322015059")
|
|
slist.Add("510322014880")
|
|
slist.Add("510322015143")
|
|
slist.Add("510322015234")
|
|
slist.Add("510322015260")
|
|
slist.Add("510322015295")
|
|
slist.Add("510322015235")
|
|
|
|
|
|
|
|
|
|
|
|
For Each s In slist
|
|
VERAG_PROG_ALLGEMEIN.cTherefore.getFileFromFolderCat("C:\Users\DEVELOPER1\Desktop\LUKOWA\2022\", s, "", "Import ab Jänner 2022", "Import ab Jänner 2022")
|
|
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
|
|
|
|
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"
|
|
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 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 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, <br> im Anhang befinden sich die Exportdaten für die Buchhaltung!"
|
|
TextHTML &= "<br>"
|
|
TextHTML &= "<br>"
|
|
TextHTML &= "Mit freundlichen Grüßen<br>"
|
|
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
|
TextHTML &= "<br>"
|
|
TextHTML &= cFakturierung.getSignature("DE", 24, True, True)
|
|
|
|
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
|
|
|
|
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 VERAGWIKIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGWIKIToolStripMenuItem.Click
|
|
Process.Start("https://wiki.verag.ag/")
|
|
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
|
|
|
|
|
|
|
|
|
|
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
|
|
End Sub
|
|
|
|
Private Sub OnSendungsdetailsRequested(ByVal AvisoId As Integer, ByVal SendungId As Integer)
|
|
Dim detailForm As New frmSendungsdetailsNEU(AvisoId, SendungId)
|
|
detailForm.Show()
|
|
End Sub
|
|
|
|
End Class
|