edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
151b912afb167375ed8741634072758c4eaacbdb
AVISO/Aviso/frmHauptfenster.vb
Andreas Luxbauer 151b912afb QR fix, Vers
2024-11-18 08:32:38 +01:00

7521 lines
372 KiB
VB.net
Raw Blame History

Imports System.IO
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
Imports VERAG_PROG_ALLGEMEIN.cGlobal
Imports com.esendex.sdk.messaging
Imports Newtonsoft.Json
Imports System.Reflection
Imports System.Drawing.Drawing2D
Imports SDL
Imports Microsoft.Office.Interop
Imports Spire.Pdf.Texts
Imports System.Net
Imports System.Text
'Imports UID
Public Class frmHauptfenster
Public aktiv = False
Private AvisoDAL As New cAvisoDAL
Private VermerkeDAL As New cVermerkeDAL
Private Standorte As New cStandorteDAL
Private FUNC As New AvisoStatusFunctions
Private locZeilen As Integer = -1
Private Anzahl As Integer
Public Grid_aktiv As Boolean = False
Private Details_aktiv As Boolean = False
Private Zähler As Long = 0
Private hMerkZeit As Date
Private hMerkZeit2 As Date
Private hMerkZeit_MeineAviso As Date
Dim cProgramFunctions As New cProgramFunctions
Private Paketdienste_EXE As String
Private SucheStandort As String = ""
Private GridAnzeigen As Integer = 0
Private GridZeichnen As Integer = 0
Dim lkwbackcolor As Color = Color.FromArgb(220, 220, 220)
Dim lkwbackcolorSel As Color = Color.FromArgb(200, 200, 200)
Dim FIMRA_COLOR As Color = Color.FromArgb(0, 54, 128)
Dim VermerkeAktuelleAvisoId As Integer = -1
Private infotxt As String = ""
Public gridFont As New Font(Me.Font.FontFamily, 8)
Dim cFormularManager As New VERAG_PROG_ALLGEMEIN.cFormularManager
' Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
Dim sd = 0
Dim closeOK = False
Dim Fullscreen = False
Dim rowHeight = 20
Dim chkFarben = True
Private VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim WithEvents hideErr As New Timer
Dim WithEvents UpdateUpdater As New Timer
Dim WithEvents UpdateSession As New Timer
Public Sub New()
InitializeComponent()
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
Icon = cMeineFunktionenAVISO.GetProgrammIcon
End Sub
Private Sub frmMain_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGOUT()
If Not closeOK Then
My.Settings.frmMainSize = Me.Size
My.Settings.frmMainPosition = Me.Location
My.Settings.Save()
Application.Exit()
End If
End Sub
Private Sub frmHauptfenster_GotFocus(sender As Object, e As EventArgs) Handles MyBase.GotFocus
Timer1_Tick(Timer1, New EventArgs)
End Sub
Public Shared Sub EnableDoubleBuffered(ByRef dgv As DataGridView)
Dim dgvType As Type = dgv.[GetType]()
Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
pi.SetValue(dgv, True, Nothing)
End Sub
Private Sub frmMain_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.F2 Or e.KeyCode = Keys.F5 Then
btnRefresh_Click(sender, e) 'F2 löst Aktualisierung aus
End If
'If e.KeyCode = Keys.F5 Then
' FUNC.setAnkunft(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
'End If
'If e.KeyCode = Keys.F9 Then
' FUNC.setFreigabe(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, Me)
' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
'End If
If e.KeyCode = Keys.F11 Then
FUNC.AktUebernehmen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
If e.KeyCode = Keys.Escape Then
Grid_aktiv = False
cboGrenzstelle.SelectedIndex = 0
' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
'cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
' End If
MyComboBox1.changeItem(UStatus_AVEingang)
tbcntrAviso.SelectedIndex = 0
txtSuche.Text = ""
txtSuche.Focus()
Grid_aktiv = True
initDat()
Aviso_anzeigen("")
End If
If (e.KeyCode) = Keys.Add AndAlso e.Control Then
btnNeu.PerformClick()
End If
If (e.KeyCode) = Keys.K AndAlso e.Control Then
If btnKunden.Visible Then btnKunden.PerformClick()
End If
If (e.KeyCode) = Keys.R AndAlso e.Control Then
If btnRg.Visible Then btnRg.PerformClick()
End If
If (e.KeyCode) = Keys.F AndAlso e.Control Then
If btnFakturierung.Visible Then btnFakturierung.PerformClick()
End If
If (e.KeyCode) = Keys.S AndAlso e.Control Then
If btnSpedBuch.Visible Then btnSpedBuch.PerformClick()
End If
If (e.KeyCode) = Keys.M AndAlso e.Control Then
If picAVISOMessenger.Visible Then PictureBox1_Click(picAVISOMessenger, New EventArgs)
End If
If e.KeyCode = Keys.D1 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 1 : txtSuche.Focus()
If e.KeyCode = Keys.D2 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 2 : txtSuche.Focus()
If (e.KeyCode) = Keys.D3 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 3 : txtSuche.Focus()
If (e.KeyCode) = Keys.D4 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 4 : txtSuche.Focus()
If (e.KeyCode) = Keys.D5 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 5 : txtSuche.Focus()
If (e.KeyCode) = Keys.D0 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 6 : txtSuche.Focus()
If (e.KeyCode) = Keys.Oem5 AndAlso e.Control Then tbcntrAviso.SelectedIndex = 0 : txtSuche.Focus()
End Sub
Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
Me.AutoScaleMode = AutoScaleMode.Dpi
hideErr.Interval = 3000
VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
EnableDoubleBuffered(gridAviso)
EnableDoubleBuffered(gridMyAviso)
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "IMEX"
' FIMRA_COLOR = Color.FromArgb(250, 200, 0)
' Case "ATILLA"
' FIMRA_COLOR = Color.FromArgb(0, 54, 128)
' ' FIMRA_COLOR = Color.Red
' Case Else
' FIMRA_COLOR = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
'End Select
lblFimaAviso.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Panel1.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
Panel6.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
pnlSearch.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
UsrCntlBenachrichtigungen1.Panel3.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
UpdateUpdater.Interval = 5000
UpdateUpdater.Enabled = True
lblVersion.Text = "V " & Application.ProductVersion 'My.Resources.Version2
UpdateSession.Interval = 60000
UpdateSession.Enabled = True
' transparentpnl.Visible = True
'transparentpnl.BackColor = Color.FromArgb(25, Color.Red)
' transparentpnl.BackColor = Color.Transparent
btnMitarbeiterKonto.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
setProfileImage()
TimerAkte.Enabled = True
Grid_aktiv = False
Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL
If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
cboGrenzstelle.Items.Clear()
cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "' AND grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False)
Else
cboGrenzstelle.Items.Clear()
cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO"))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???"))
End If
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMB"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: GE TRANSPORT", "WO_GE"))
''cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: KITA", "WO_KITA"))
'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cboGrenzstelle.changeItem("")
' txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
cboImEx.Items.Clear()
cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMPORT", "IMPORT"))
cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXPORT", "EXPORT"))
cboImEx.changeItem("")
If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
cboMy_Grenzstelle.Items.Clear()
cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "' AND grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False)
cboMy_Grenzstelle.changeItem("")
Else
cboMy_Grenzstelle.Items.Clear()
''''If Not VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' Nicht, wenn Front-Office
'''' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE (BACKOFFICE)", "ALLE_BACK"))
''''End If
cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True, False, "ALLE")
' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG+AMB", "SBG+AMB"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???"))
cboMy_Grenzstelle.changeItem("")
''''cboMy_Grenzstelle.changeItem("ALLE_BACK") 'greift nur wenn verfügbar..
End If
'If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SBG" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then
' cboMy_Grenzstelle.changeItem("SBG+AMB")
'End If
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMB"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: GE TRANSPORT", "WO_GE"))
''cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: KITA", "WO_KITA"))
'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cboMyAvisoAnzeige.Items.Clear()
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE"))
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer"))
cboMyAvisoAnzeige.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False)
cboMyAvisoAnzeige.changeItem("Benutzer")
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1-Sendungen", "T1"))
cboMy_QS.CheckState = CheckState.Checked
cboMy_VB.CheckState = CheckState.Unchecked
cboMyAvisoAnzeige.changeItem("T1")
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
StandortWechselnToolStripMenuItem.Visible = True
ElseIf VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then
StandortWechselnToolStripMenuItem.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" Then
cboMy_QS.CheckState = CheckState.Unchecked
cboMy_VB.CheckState = CheckState.Indeterminate
Else
cboMy_QS.CheckState = CheckState.Checked
cboMy_VB.CheckState = CheckState.Unchecked
End If
Dim myLKW As Boolean = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Is Nothing Then
myLKW = True
End If
If myLKW Then
cbx_My_LKW.Checked = True
cboMy_QS.CheckState = CheckState.Indeterminate
cboMy_VB.CheckState = CheckState.Indeterminate
ElseIf IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) Then
cboMyAvisoAnzeige.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
' MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
End If
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT", "AVISO") Then GesamtsicherheitenToolStripMenuItem.Visible = True
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA" ' Case "VERAG", "IMEX"
lblErweitereSuche.Visible = False
MDMParkplatzkartenToolStripMenuItem.Visible = False
' SplitContainer3.Panel1Collapsed = True
Button10.Visible = False
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
Button10.Visible = True
SplitContainer3.Panel1Collapsed = True
End If
Case Else
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
SplitContainer3.Panel1Collapsed = True
End If
'AVISO vom PC übernehmen
Dim zeilen As Integer = OptionenDAL.setAVISOFromPcName()
Select Case zeilen
Case 0 : lblAkte.Visible = False
Case 1 : lblAkte.Text = zeilen & " Akt vom Arbeitsplatz übernommen"
Case Else : lblAkte.Text = zeilen & " Akte vom Arbeitsplatz übernommen"
End Select
If Not (VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then
' cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
End If
End Select
'Einlesen der Standardoptionen (ist normalerweise immer ID 1)
Try
VERAG_PROG_ALLGEMEIN.cGlobal.Optionen = OptionenDAL.LesenOptionen(1, "")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Betreff = ""
VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Text = ""
VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Betreff = ""
VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Text = ""
End Try
' VERAG_PROG_ALLGEMEIN.cglobal.Admin = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Sicherheitsstufe = 0
'Menü je nach Berechtigungsebene anzeigen
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
AdministrationToolStripMenuItem.Visible = True
lblMitarbeiter.Text += " (Admin)"
Button3.Visible = True
Button1.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then
btnE_Aviso.Visible = True
Label22.Visible = True
initEAviso()
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MESSENGER", "AVISO") Then
picAVISOMessenger.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG", "SDL") Then
btnFakturierung.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("RECHNUNGSSUCHE", "SDL") Then
btnRg.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN_ALLE", "SDL") Then
MailvorlagenToolStripMenuItem.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MITARBEITER_VERZEICHNIS", "SDL") Then
btnMAVerzeichnis.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
BREXITToolStripMenuItem.Visible = True
cbx_My_Brexit.Checked = True
End If
'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
' btnSpedBuch.Visible = False
'End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Stammref_Verwalten", "AVISO") Then
DAKOSYToolStripMenuItem.Visible = False
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SRI_LANKA", "AVISO") Then
'MenuStrip1.Items.Clear()
' MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)'-->Siehe unten
MenuStrip1.Items.Remove(ToolStripFormulare)
StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem1)
StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem)
For Each i In FunktionenToolStripMenuItem.DropDownItems
If i.name <> "tool_BRGXLS" And i.name <> "toolOriginalATR" Then
i.Visible = False
End If
Next
'While MenuStrip1.Items.Count > 1
' MenuStrip1.Items.RemoveAt(1)
'End While
'btnGenerelleGestellungen.Visible = False
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then btnSpedBuch.Visible = False
btnDienstplan.Visible = True
'btnNeu.Enabled = False
' SplitContainer2.Visible = False
btnDrucken.Visible = False
'SplitContainer2.Panel2Collapsed = True
' splitMain.Panel2Collapsed = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)
MenuStrip1.Items.Remove(StatistikToolStripMenuItem)
btnZollwebseiten.Visible = False
lblErweitereSuche.Visible = False
End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN", "AVISO") Then
btnKunden.Visible = False
End If
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("<keine Einschr.>", UStatus_none))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Aviso-Eingang", UStatus_AVEingang))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erfasst", Status_Erfasst))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorbereit.QS", Status_Vorgeschrieben))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorgeschrieben", Status_Vorbereitet))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ankunft", Status_Ankunft))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Freigabe", Status_Freigegeben))
MyComboBox1.changeItem(UStatus_AVEingang)
'Größe wird sicherheitshalber maximiert angezeigt, da es mit dem Größe-/Positionsspeichern teilweise Probleme in der virtuellen Umgebung gibt
' Me.WindowState = FormWindowState.Normal
'Position+Größe wird in ApplicationSettings vom Formular gespeichert
'Try
'Me.Size = My.Settings.frmMainSize
'Me.Location = My.Settings.frmMainPosition
'Me.Left = 100
'Me.Top = 100
'Catch ex As Exception
'bei Fehler nichts machen
'End Try
'Mitarbeiterinfos anzeigen
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("SHOW_AVISO_PCNAME") Then
VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter += "/" & SystemInformation.UserName.ToString
End If
lblMitarbeiter.Text = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
' lblMitarbeiter.Text += " (Verwaltung)Then"
'End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
lblMitarbeiter.Text += " (" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & ")"
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AvisoTV_verwalten", Me) Then
AvisoTVToolStripMenuItem.Visible = True
End If
lblUsrname.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
lblGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
chkFarben = True
' btnAlleAnzeigen.Visible = cGlobal.Admin
'zuerst noch prüfen, ob unerledigte Aviso auf nicht eingetroffen gesetzt werden können
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
'Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " And dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE() and Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI') "
Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI') and Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' and ((Transportmittelart = 'CONTAINER' and dateadd(DAY,20,VoraussichtlichesEintreffen) < GETDATE()) or (Transportmittelart <> 'CONTAINER' and dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE()))"
'dateadd(DAY,10,VoraussichtlichesEintreffen) --> Voraussichtliches Eintreffen muss zudem um 10 Tage überschritten sein --> Container/Hafen haben lange Vorlaufzeiten
Dim anz As Integer = AvisoDAL.Check_Nicht_eingetroffen(hSQL)
If anz > 0 Then
' MsgBox("HINWEIS: " & vbCrLf & anz & " LKW-Aviso wurden auf 'LKW nicht eingetroffen' gesetzt, da bereits seit mehr als 21 Tagen offen.", vbInformation)
End If
End If
cboTeams.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True)
If cboTeams.Items.Count = 0 Then cboTeams.Visible = False
'jetzt noch den Pfad zum Programm Paketdienste einlesen und zuweisen
Try
Dim pfadPaketdienste As String = Application.StartupPath & "\Paketdienste.txt"
If Not File.Exists(pfadPaketdienste) Then
'MsgBox("nicht gefunden: " & pfadDatei)
'Sonderfall zum Debuggen
pfadPaketdienste = "c:\projekte.net\verag\aviso\Paketdienste.txt"
End If
If Not File.Exists(Paketdienste_EXE) Then
Paketdienste_EXE = "C:\Projekte.NET\Verag\Paketdienste\Paketdienste\bin\Debug\Paketdienste.exe"
'Paketdienste_EXE = "C:\Program Files\Calibre2\calibre.exe"
End If
If File.Exists(pfadPaketdienste) Then
Dim fs As New FileStream(pfadPaketdienste, FileMode.Open, FileAccess.Read)
Dim strmReader As New StreamReader(fs)
Paketdienste_EXE = strmReader.ReadLine
End If
Catch ex As Exception
Paketdienste_EXE = ""
End Try
'Vorschlagswerte werden gesetzt
' tbcntrAviso.SelectedIndex = 0
'Grid jetzt aktivieren und befüllen - Standardanzeige ident mit Button Wichtig
dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15)
dtpBis.Value = Now.AddDays(1)
'optAnkunft.Checked = True
tbcntrAviso.SelectedTab = tabAnkunft
Grid_aktiv = True
SucheStandort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
If SucheStandort <> "" Then btnWichtigeStandort.Text = "Wichtig " & SucheStandort.Trim.ToUpper
Aviso_anzeigen(" ORDER BY Ankunft")
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
' gridAviso_SpaltenFestlegen() 'Auskommentiert, do bei Aviso anzeigen schon ausgeführt wird
'gridVermerke_SpaltenFestlegen()
Timer1.Enabled = True
Timer_REFRESH_Tick(Timer_REFRESH, New EventArgs)
If gridAviso.RowCount > 0 Then
gridAviso.Rows(0).Selected = True
End If
' MsgBox(gridVermerke.Rows(0).Cells(5).Value)
If Me.Height * 0.4 < 220 Then
SplitContainer2.Height = 220
Else
SplitContainer2.Height = Me.Height * 0.4
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE", "SDL") Or
VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE_BH_Login", "SDL") Or
VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE_Saldo_Anzeige", "SDL") Then
btnKassenbuch.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ESSENSBESTELLUNGEN", "SDL") Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "FRONTOFFICE", "VERAG", "IMEX", "UNISPED"
EssensbestellungenToolStripMenuItem.Visible = True
End Select
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN_ESSENSBESTELLUNGEN", "AVISO") Then
AdministrationEssensbestellungenToolStripMenuItem.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DATEV_EXPORT", "SDL") And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
DatevBuchungsexportToolStripMenuItem.Visible = True
End If
Panel1.Height -= pnlSearch.Height
If Now.ToShortDateString >= DateTime.Parse("01/01/2023") Then
ToolStripMenuItem4.Visible = False
ToolStripMenuItem5.Visible = False
ToolStripMenuItem6.Visible = False
BürgschaftenExcelToolStripMenuItem.Visible = False
End If
Try
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
Dim timas As New cTimasAPI("timas")
Dim infoMessage As New DataTable
Dim timeEntryExisting As Boolean = False
Dim isEndpointRunning As Boolean = True
timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
If Not timeEntryExisting AndAlso isEndpointRunning Then
Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
If a = vbYes Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen Then
Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen)
f.ShowDialog()
f.BringToFront()
Else
Dim info
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
MsgBox(info)
End If
Else
End If
End If
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Sub initEAviso()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then
If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '??
Label22.Text = VERAGSQL.getValueTxtBySql("SELECT count(*) FROM [tblNCTS_TR] where ncts_AVISO_einarbeitet=0 AND ncts_Partnersystem='ATEZ'", "FMZOLL") '"XX"
If Label22.Text = "0" Then Label22.Text = ""
Label22.Visible = Label22.Text <> ""
Label22.BringToFront()
End If
End Sub
Public Sub setAktDetails(id, showSendungsdetails)
Details_anzeigen(id) ', showSendungsdetails)
End Sub
Private Sub gridAviso_SpaltenFestlegen()
If gridAviso.RowCount = 0 Then Exit Sub
Dim bfont = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold)
With gridAviso
' .Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen
If Fullscreen Then
.Columns("Datum").Visible = True 'Mitarb. nicht anzeigen
.Columns("Freigabe").Visible = True 'Mitarb. nicht anzeigen
.Columns("Handling").Visible = True 'Mitarb. nicht anzeigen
.Columns("Vorbereitet").Visible = True
.Columns("Vorgeschrieben").Visible = True
Else
.Columns("Datum").Visible = False 'Mitarb. nicht anzeigen
.Columns("Freigabe").Visible = False 'Mitarb. nicht anzeigen
.Columns("Handling").Visible = False 'Mitarb. nicht anzeigen
.Columns("Vorbereitet").Visible = False
.Columns("Vorgeschrieben").Visible = False
End If
.Columns("TageBisEintreffen").Visible = False
.Columns("Transportmittelart").Visible = False
.Columns("Status").Width = 25
.Columns("Status").HeaderText = "St."
.Columns("AvisoID").Width = 60
.Columns("AvisoID").HeaderText = "LKW-Id"
.Columns("LetzterMitarbeiter").Width = 135
.Columns("LetzterMitarbeiter").HeaderText = "akt. Mitarb"
.Columns("VoraussichtlichesEintreffen").Width = 95
.Columns("VoraussichtlichesEintreffen").HeaderText = "Vorauss.Eintreffen"
.Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM.yyyy"
'.Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
.Columns("AvisoEingang").Width = 95
.Columns("AvisoEingang").HeaderText = "Av.Eingang"
.Columns("AvisoEingang").DefaultCellStyle.Format = "dd.MM. HH:mm"
.Columns("Datum").Width = 95
.Columns("Datum").HeaderText = "Erfasst"
.Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm"
.Columns("Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("Vorbereitet").Width = 100
.Columns("Vorbereitet").HeaderText = "Vorbereitet"
.Columns("Vorbereitet").DefaultCellStyle.Format = "dd.MM. HH:mm"
.Columns("Vorgeschrieben").Width = 100
.Columns("Vorgeschrieben").HeaderText = "Vorgeschrieben"
.Columns("Vorgeschrieben").DefaultCellStyle.Format = "dd.MM. HH:mm"
.Columns("Ankunft").Width = 100
.Columns("Ankunft").HeaderText = "Ankunft"
.Columns("Ankunft").DefaultCellStyle.Format = "dd.MM. HH:mm"
.Columns("Freigabe").Width = 100
.Columns("Freigabe").HeaderText = "Freigabe"
.Columns("Freigabe").DefaultCellStyle.Format = "dd.MM. HH:mm"
.Columns("Dauer").Width = 60
.Columns("Dauer").HeaderText = "Dauer"
.Columns("Dauer").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("Dauer").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
' If cGlobal.AktiverMitarbeiter.Abteilung = "quick-stop" Then
'.Columns(10).Visible = True
' Else
' .Columns(10).Visible = False
' End If
.Columns("Grenzstelle").Width = 55
.Columns("Grenzstelle").HeaderText = "Grenz."
.Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("LKW_Nr").Width = 150
'.Columns("LKW_Nr").MinimumWidth = 90
.Columns("LKW_Nr").HeaderText = "LKW-Nr"
' .Columns("LKW_Nr").DefaultCellStyle.Font = New Font(.DefaultCellStyle.Font.FontFamily, .DefaultCellStyle.Font.Size, FontStyle.Bold)
'.Columns("LKW_Nr").DefaultCellStyle.BackColor = lkwbackcolor
'.Columns("LKW_Nr").DefaultCellStyle.SelectionBackColor = lkwbackcolor
.Columns("Auftraggeber").MinimumWidth = 150
.Columns("Auftraggeber").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("Auftraggeber").HeaderText = "Avisierer"
.Columns("Frächter").MinimumWidth = 150
.Columns("Frächter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("Frächter").HeaderText = "Frächter"
.Columns("Telefonisch").Visible = False 'Status Telefon nicht anzeigen
.Columns("AvisoTVHinweis").Visible = False 'Status Telefon nicht anzeigen
.Columns("LKW_fertig").Width = 35
.Columns("LKW_fertig").HeaderText = "OK"
.Columns("LKW_fertig").DefaultCellStyle.ForeColor = Color.White
.Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("LKW_fertig").DefaultCellStyle.Font = bfont
If cboGrenzstelle._value = "NEU" Then
.Columns("VerwahrungStatus").Width = 55
.Columns("VerwahrungStatus").HeaderText = "Kontrolle"
.Columns("VerwahrungStatus").DefaultCellStyle.ForeColor = Color.White
.Columns("VerwahrungStatus").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("VerwahrungStatus").DefaultCellStyle.Font = bfont
.Columns("VerwahrungStatus").Visible = True
Else
.Columns("VerwahrungStatus").Visible = False
End If
.Columns("Info").Visible = False
.Columns("Info").MinimumWidth = 200
.Columns("Info").HeaderText = "Info (Einträge bis zum Status ERFASST)"
.Columns("Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("Handling").Width = 50
.Columns("Handling").HeaderText = "Handling"
'.Columns(12).Width = 700
'.Columns(12).HeaderText = "Änderungen"
initDauerLKWFertig()
._TRANSLATE()
End With
End Sub
Sub initDauerLKWFertig()
Try
'Dauer berechnen:
With gridAviso
For Each r As DataGridViewRow In .Rows
If r.Cells("Dauer").Value Is DBNull.Value Or r.Cells("Dauer").Value = 0 Then
If CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then
If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then
Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now)
If IsNumeric(dauerTmp) AndAlso dauerTmp > 0 Then
r.Cells("Dauer").Value = dauerTmp
Else
r.Cells("Dauer").Value = "0"
End If
Else
r.Cells("Dauer").Value = "0"
End If
End If
End If
If r.Cells("LKW_fertig").Value = "OK" Then
r.Cells("LKW_fertig").Style.ForeColor = Color.White
r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128)
'Else
'r.Cells("LKW_fertig").Style.BackColor = Color.White
End If
If r.Cells("LKW_fertig").Value = "DE" Then
r.Cells("LKW_fertig").Style.ForeColor = Color.White
r.Cells("LKW_fertig").Style.BackColor = Color.Green
'Else
'r.Cells("LKW_fertig").Style.BackColor = Color.White
End If
If r.Cells("VerwahrungStatus").Value = "OK" Then
r.Cells("VerwahrungStatus").Style.ForeColor = Color.White
r.Cells("VerwahrungStatus").Style.BackColor = Color.Green
'Else
'r.Cells("LKW_fertig").Style.BackColor = Color.White
End If
Next
End With
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Sub Details_anzeigen(ByVal id As Integer, Optional reloadIfSameId As Boolean = True) ', Optional opensendungsDetails As Boolean = False)
Me.Cursor = Cursors.AppStarting
If Not Details_aktiv Then Exit Sub
If id > 0 Then
pnlDetailsRechts.Visible = True
showPnlRight(id, reloadIfSameId)
Else
pnlDetailsRechts.Visible = False
End If
lblEintraege.Text = gridAviso.RowCount & " Einträge" & If(gridAviso.RowCount = 2000, " (begrenzt)", "")
Me.Cursor = Cursors.Default
End Sub
Sub showPnlRight(AvisoId, reloadIfSameId)
' MsgBox(VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId))
Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId)
Case "ATILLA"
'If 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
Case Else
If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetails" Then
pnlDetailsRechts.Controls.Clear()
Dim usrCntl As New usrcntlAktDetails(AvisoId)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
Else
If reloadIfSameId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId)
Else
If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> AvisoId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId)
End If
End If
End If
End Select
End Sub
' Dim AVISOBinding As New cBinding("AVISO")
Public Sub Aviso_anzeigen(hSort As String, Optional showDetails As Boolean = True)
'Paint wieder reaktivieren
locZeilen = -1
If Not Grid_aktiv Then Exit Sub
' Grid_aktiv = False
Dim hStart As Integer = My.Computer.Clock.TickCount
Details_aktiv = False
gridAviso.GetOrder()
Dim datumseinschr = ""
Dim top = "TOP 1000 "
Dim hSQL As String = ""
If CheckBox1.Checked Then
'----------------------------------------------------------------------------------------------------------------------------------
'--- LKW ---
'----------------------------------------------------------------------------------------------------------------------------------
'Bei ANKUNFT nicht nach Datum einschränken
If tbcntrAviso.SelectedTab Is tabAnkunft Or tbcntrAviso.SelectedTab Is tabErfasst Or tbcntrAviso.SelectedTab Is tabVorbereitet Or tbcntrAviso.SelectedTab Is tabVorgeschrieben Then
pnlTime.Visible = False
Else
pnlTime.Visible = True
Select Case MyComboBox1._value
Case UStatus_none
top = " TOP 1000 "
Case UStatus_AVEingang : datumseinschr &= " AND AvisoEingang >= " & SQLDatum(dtpVon.Value) & " AND AvisoEingang < " & SQLDatum(dtpBis.Value.AddDays(1))
Case Status_Erfasst : datumseinschr &= " AND Datum >= " & SQLDatum(dtpVon.Value) & " AND Datum < " & SQLDatum(dtpBis.Value.AddDays(1))
Case Status_Vorgeschrieben : datumseinschr &= " AND Vorgeschrieben >= " & SQLDatum(dtpVon.Value) & " AND Vorgeschrieben < " & SQLDatum(dtpBis.Value.AddDays(1))
Case Status_Vorbereitet : datumseinschr &= " AND Vorbereitet >= " & SQLDatum(dtpVon.Value) & " AND Vorbereitet < " & SQLDatum(dtpBis.Value.AddDays(1))
Case Status_Ankunft : datumseinschr &= " AND Ankunft >= " & SQLDatum(dtpVon.Value) & " AND Ankunft < " & SQLDatum(dtpBis.Value.AddDays(1))
Case Status_Freigegeben : datumseinschr &= " AND Freigabe >= " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1))
End Select
End If
If pnlSearch.Visible Then
top = " TOP 1000 "
End If
hSQL = "SELECT " & top & " Status, AvisoID, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, "
hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen,isnull(Transportmittelart,'')Transportmittelart"
hSQL &= " FROM Aviso "
hSQL &= " WHERE 1=1 "
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then
hSQL &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
Else
hSQL &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
End If
If pnlSearch.Visible Then
Dim srchkrit = False
Dim hSQLSnd = ""
hSQLSnd &= " AND ( SELECT COUNT(*) FROM tblSendungen where tblSnd_AvisoId=AvisoId "
If txtEmpfänger.Text <> "" Then hSQLSnd &= " AND tblSnd_Empfaenger LIKE '" & txtEmpfänger.Text.Replace("*", "%") & "%' " : srchkrit = True
If txtAbsender.Text <> "" Then hSQLSnd &= " AND tblSnd_Absender LIKE '" & txtAbsender.Text.Replace("*", "%") & "%' " : srchkrit = True
If txtAuftraggeber.Text <> "" Then hSQLSnd &= " AND tblSnd_Auftraggeber LIKE '" & txtAuftraggeber.Text.Replace("*", "%") & "%' " : srchkrit = True
If txtKdAuftragsnr.Text <> "" Then hSQLSnd &= " AND (tblSnd_KdAuftragsNr LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrAvisierer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrEmpfaenger LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrFrachtfuehrer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%') " : srchkrit = True
If cboFiliale._value <> "" Then hSQLSnd &= " AND FilialenNr ='" & cboFiliale._value & "'" : srchkrit = True
If txtAbfertigungsnummer.Text <> "" Then hSQLSnd &= " AND AbfertigungsNr LIKE '" & txtAbfertigungsnummer.Text.Replace("*", "%") & "' " : srchkrit = True
If txtDyRef.Text <> "" Then hSQLSnd &= " AND tblSnd_DakosyRef LIKE '" & txtDyRef.Text.Replace("*", "%") & "' " : srchkrit = True
hSQLSnd &= " ) > 0 "
If srchkrit = True Then hSQL &= hSQLSnd
If txtlkwId.Text <> "" Then hSQL &= " AND AvisoID LIKE '" & txtlkwId.Text.Replace("*", "%") & "' "
If cbxAlle.Checked = False Then
Dim statWhere = ""
If cbxErfasst.Checked Then statWhere &= Status_Erfasst & ","
If cbxVorb.Checked Then statWhere &= Status_Vorbereitet & ","
If cbxVorg.Checked Then statWhere &= Status_Vorgeschrieben & ","
If cbxAnkunft.Checked Then statWhere &= Status_Ankunft & ","
If cbxFreigabe.Checked Then statWhere &= Status_Freigegeben & ","
If cbxNE.Checked Then statWhere &= Status_NichtEingetroffen & ","
If statWhere.EndsWith(",") Then statWhere = statWhere.Substring(0, statWhere.Length - 1)
If statWhere <> "" Then hSQL &= " AND Status IN ( " & statWhere & " ) " Else hSQL &= " AND 1<>1 "
End If
End If
hSQL &= datumseinschr
If cboGrenzstelle._value = "ALLE_WO" Then
hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "
Else
' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'"
If cboGrenzstelle._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'"
' Bestimmungs.ZST
If cboGrenzstelle._value = "???" And txtBestimmungszollstelle._value <> "" Then
hSQL += " AND Zollstelle = '" & txtBestimmungszollstelle._value & "'"
End If
End If
If cboImEx._value <> "" Then
Select Case cboImEx._value
Case "IMPORT" : hSQL += " AND (ImEx = '" & cboImEx._value & "' OR ImEx = '' )"
Case "EXPORT" : hSQL += " AND ImEx = '" & cboImEx._value & "'"
End Select
End If 'Then hSQL += " AND ImEx = '" & cboImEx._value & "'"
If cboTeams.Text <> "" Then hSQL += " AND TeamId = '" & cboTeams._value & "'"
'je nach Auswahl SQL anpassen
If tbcntrAviso.SelectedTab Is tabAlle Then
'alle
'Falls Freigabe/NE bei "ALLE" eingeschränkt werden sollte::: 'hSQL += " AND (Status NOT IN (1,2) OR (Status=1 AND Freigabe >= " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1)) & ") OR (Status=2 AND [Datum] >= " & SQLDatum(dtpVon.Value) & " AND [Datum] < " & SQLDatum(dtpBis.Value.AddDays(1)) & "))"
ElseIf tbcntrAviso.SelectedTab Is tabErfasst Then 'Erfasst
hSQL += " AND Status = 0"
ElseIf tbcntrAviso.SelectedTab Is tabVorbereitet Then 'Vorbereitet
hSQL += " AND Status = 4"
ElseIf tbcntrAviso.SelectedTab Is tabVorgeschrieben Then 'Vorgeschrieben
hSQL += " AND Status = 5"
ElseIf tbcntrAviso.SelectedTab Is tabAnkunft Then 'Ankunft
hSQL += " AND Status = 3"
ElseIf tbcntrAviso.SelectedTab Is tabFreigegeben Then 'Freigegeben
hSQL += " AND Status = 1"
ElseIf tbcntrAviso.SelectedTab Is tabVERIMEX Then 'Nicht Eingetroffen
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX
ElseIf tbcntrAviso.SelectedTab Is tabINDONESIEN Then 'Nicht Eingetroffen
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
ElseIf tbcntrAviso.SelectedTab Is tabNichtEingetroffen Then 'Nicht Eingetroffen
hSQL += " AND Status = 2"
End If
Dim search = txtSuche.Text.Trim
If search <> "" Then
hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )"
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And search.Length = 8 Then 'AbfertigungsNr Suche für ATILLA, length, damit nicht unnötig der Verweis zu tblSendungen hergestellt wird --> performance
' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' OR (SELECT count(*) FROM tblSendungen WHERE AbfertigungsNr LIKE '%" & search & "%' AND FilialenNr=4801 AND tblSnd_AvisoID=AvisoId)>0 ) "
'Else
' hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )"
'End If
End If
hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC"
Else
'----------------------------------------------------------------------------------------------------------------------------------
'--- Sendung ---
'----------------------------------------------------------------------------------------------------------------------------------
Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer"
If cboMyAvisoAnzeige._value <> "" Then
If cboMyAvisoAnzeige._value = "ALLE" Then
' inBearbeitungSQL = " 1=1 " 'ALLE
inBearbeitungSQL = " ( (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) OR (Aviso.[TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null)) OR [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR tblSendungen.LetzterMitarbeiterId=@maId) "
ElseIf cboMyAvisoAnzeige._value = "T1" Then
inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 "
'NUR VERAG/IMEX:
inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) "
ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then
If cboMyAvisoAnzeige._value = "27" Then ' TEAM SALZBURG
inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId
OR Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) ) "
Else
inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) "
End If
End If
End If
hSQL = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " &
" ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " &
" FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
hSQLFirma & " AND ( " & inBearbeitungSQL & ") "
Select Case cboMy_VB.CheckState
Case CheckState.Checked : hSQL &= " AND tblSnd_Vorgeschrieben is not null "
Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorgeschrieben is null "
' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null "
End Select
Select Case cboMy_QS.CheckState
Case CheckState.Checked : hSQL &= " AND tblSnd_Vorbereitet is not null "
Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorbereitet is null "
' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null "
End Select
If cboMy_Grenzstelle._value = "ALLE_WO" Then
hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "
Else
If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then hSQL &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
If cboMy_Grenzstelle._value = "ALLE_BACK" Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "
End If
If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "
'Farbe
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
Select Case btnColor.BackColor
Case Color.Red
hSQL &= " AND (Status = 3 ) "
Case Color.Orange
' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) "
hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, " & getDaysVorschreiben(1) & ",GETDATE()) AS DATE) ) ) "
Case Color.Yellow
hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY," & getDaysVorschreiben(2) & ",GETDATE()) AS DATE) AND cast(DATEADD(DAY," & getDaysVorschreiben(3) & ",GETDATE()) AS DATE) ) ) "
End Select
End If
''Farbe
'If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
' Select Case btnColor.BackColor
' Case Color.Red
' hSQL &= " AND (Status = 3 OR (Status IN (0, 3, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE)<= cast(GETDATE() AS DATE) ) or VoraussichtlichesEintreffen is null) "
' Case Color.Orange
' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) = cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) "
' Case Color.Yellow
' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 2,GETDATE()) AS DATE) AND cast(DATEADD(DAY, 3,GETDATE()) AS DATE) ) ) "
' End Select
'End If
'hSQL &= " AND (Grenzstelle ='???' OR Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen!
' Funktioniert nciht, wg. WO
hSQL &= " ORDER BY case " & " when [Status] =3 then 0 " & " when [Status] =1 then 5 " & " else 1 " & " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
End If
' MsgBox(hSQL)
'If hSort = "" Then
'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC"
' Else
' hSQL += " " & hSort
' End If
gridAviso.DefaultCellStyle.Font = gridFont
gridAviso.RowTemplate.Height = rowHeight 'muss vor Bindung sein
'gridAviso.DataSource = AvisoDAL.loadDataTableBySQL(hSQL)
gridAviso.SET_SQL(hSQL, "AVISO")
Dim errOcc = False
gridAviso.LOAD(False, errOcc)
If errOcc Then
pic.Visible = True
End If
' AVISOBinding.setARITHABORTOn()
'AVISOBinding.initBinding(hSQL, "Aviso")
'gridAviso.DataSource = AVISOBinding.bindingSource
'MsgBox(DirectCast(gridAviso.DataSource, DataTable).Rows.Count)
'Grid neu designen
If CheckBox1.Checked Then
gridAviso_SpaltenFestlegen()
End If
'Tabelle Kommt/Geht bereinigen
If gridAviso.RowCount = 0 Then
gridAviso.DataSource = Nothing
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = 0
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID)
End If
'Anzeige der Anzahl gewählter Datensätze
VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl = gridAviso.RowCount
'If AnzahlAuswahl > AnzahlAlle Then AnzahlAlle = AnzahlAuswahl
' lblAnzahl.Text = "Einträge: " & Format(VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl, "#,##0") & " ausgewählt" ' / " & Format(AnzahlAlle, "#,##0") & " gesamt"
hMerkZeit = Now
lblZeit_aktuell.Text = "letzte Aktualisierung: " & Format(Now, "HH:mm")
'Focus auf 1. Zeile setzen, falls Auswahl vorhanden
If showDetails Then
If VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl > 0 Then gridAviso.CurrentCell = gridAviso.Rows(0).Cells(1)
End If
Dim hEnde As Integer = My.Computer.Clock.TickCount
Dim hDifferenz As Integer = hEnde - hStart
' btnÜbernehmen.Visible = True
Grid_aktiv = True
meineAviso_anzeigen()
If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID <= 0 Then
If gridAviso.RowCount > 0 Then gridAviso.Rows(0).Selected = True
End If
gridAviso.SetOrder()
Details_aktiv = True
If showDetails Then
If gridAviso.SelectedRows.Count > 0 Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = gridAviso.SelectedRows(0).Cells("AvisoID").Value
End If
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
If chkFarben Then GridZeichnenAviso()
Label8.Visible = False
lblDauer.Text = "" & hDifferenz.ToString & " ms"
'lblDauer.Text = "Dauer Anzeige aufbauen: " & hDifferenz.ToString & " ms"
End Sub
Public Sub setProfileImage()
Try
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId IsNot Nothing Then
'Get the original image.
'Dim originalImage = Image.FromFile("\\share01\Datenarchiv\DOKUMENTE\MITARBEITER\PERSONAL_FOTOS\20200419_000451_Hofer_375.jpg") 'My.Resources.Koerfez61
'Dim originalImage = Image.FromFile("\\share01\Datenarchiv\DOKUMENTE\MITARBEITER\PERSONAL_FOTOS\20220620_091930_Luxbauer_4.jpg") 'My.Resources.Koerfez61
Dim originalImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId)) 'My.Resources.Koerfez61
'Dim originalImage = Image.FromFile("C:\Users\DEVELOPER1\Desktop\grund.png") 'My.Resources.Koerfez61
' MsgBox(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId))
Dim picSize = 35
Dim space_X As Integer = 0
Dim space_Y As Integer = 0
Dim picWidth As Integer = 0
Dim picHheight As Integer = 0
Dim factor As Double = 1
If originalImage.Height < originalImage.Width Then
factor = picSize / originalImage.Height
picWidth = originalImage.Width * factor
picHheight = originalImage.Height * factor
' space_X = (picWidth - picHheight) / 2
Else
factor = picSize / originalImage.Width
picWidth = originalImage.Width * factor
picHheight = originalImage.Height * factor
' space_X = (picHheight - picWidth) / 2
End If
' MsgBox(picWidth & " - " & picHheight)
'Create a new, blank image with the same dimensions.
Dim croppedImage As New Bitmap(picWidth, picHheight)
'Prepare to draw on the new image.
Using g = Graphics.FromImage(croppedImage)
Dim path As New GraphicsPath
'Create an ellipse that fills the image in both directions.
'path.AddEllipse(0, 0, croppedImage.Width, croppedImage.Height)
path.AddEllipse(0, 0, picSize, picSize)
Dim reg As New Region(path)
'Draw only within the specified ellipse.
g.Clip = reg
'g.DrawImage(originalImage, 0, 0, picSize, picSize)
g.DrawImage(originalImage, 0, 0, picWidth, picHheight)
End Using
'Display the new image.
btnMitarbeiterKonto.Image = croppedImage
Exit Sub
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
btnMitarbeiterKonto.Image = My.Resources.mitarbeiter_s
End Sub
Function setAkive_AuswahlID() As Integer
If gridAviso.SelectedRows.Count > 0 Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridAviso.Rows(gridAviso.SelectedRows(0).Index).Cells("AvisoID").Value)
Else
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
End If
If gridMyAviso.SelectedRows.Count > 0 Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("AvisoID").Value)
If Not cbx_My_LKW.Checked Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("tblSnd_SendungID").Value)
Else
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
End If
Else
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
End If
Return VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
End Function
Function formatdate(s) As String
If s IsNot Nothing AndAlso IsDate(s) AndAlso CDate(s) > LeerDatum Then
If CDate(s).ToShortDateString = Now.ToShortDateString Then
Return "heute, " & CDate(s).ToShortTimeString & ""
End If
Return "" & CDate(s).ToString("dd.MM.") & ", " & CDate(s).ToShortTimeString & ""
End If
Return ""
End Function
Private Sub meineAviso_anzeigen()
Try
If Not Grid_aktiv Then Exit Sub
' Grid_aktiv = False
hMerkZeit_MeineAviso = Now
'Dim hSQL As String = " EXECUTE spMyAviso @maId='" & (cGlobal.AktiverMitarbeiter.MitarbeiterID) & "' "
If gridMyAviso Is Nothing Then Exit Sub
gridMyAviso.DefaultCellStyle.Font = gridFont
gridMyAviso.RowTemplate.Height = rowHeight 'muss vor Bindung sein
Try
If gridMyAviso.Columns IsNot Nothing AndAlso gridMyAviso.ColumnCount > 0 Then ' Sunst komischer Fehler DataAreaMouseLeave
gridMyAviso.Columns.Clear()
End If
gridMyAviso.DataSource = Nothing
'gridMyAviso.Columns.Clear() 'Macht CellMouseLeave-Fehler?????
Catch ex As Exception
End Try
'If gridMyAviso.ColumnCount = 0 Then Exit Sub
' Dim sqlStr As String = " SELECT top 5 AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " &
'" FROM Aviso " &
'" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
'" AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND (LetzterMitarbeiterId=@maId OR " &
'" AVISOid IN ( SELECT distinct(tblSnd_AvisoID) FROM [tblSendungen] WHERE tblSnd_inbearbeitung=1 AND tblSnd_Bearbeitung_MaId=@maId) ) " &
'"ORDER BY case " &
'" when [Status] =3 then 0 " &
'" when [Status] =1 then 1 " &
'" when [Status] =99 then 2 " &
'" when [Status] =4 then 3 " &
'" when [Status] =5 then 4 " &
'" when [Status] =0 then 5 " &
'" END, Ankunft"
'Dim dt As DataTable = VERAGSQL.loadDgvBySql(" SELECT distinct(tblSnd_AvisoID) FROM [tblSendungen] WHERE tblSnd_inbearbeitung=1 AND tblSnd_Bearbeitung_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "", "AVISO")
'If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
' inBearbeitungSQL = " AVISOid IN ("
' For Each r In dt.Rows
' inBearbeitungSQL &= r(0) & ","
' Next
' inBearbeitungSQL = inBearbeitungSQL.Substring(0, inBearbeitungSQL.Length - 1)
' inBearbeitungSQL &= " ) "
'End If
Dim sqlStr As String = ""
Dim sqlStrFirma As String = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR FIRMA='ATILLA' ) "
Else
sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
End If
Else
sqlStrFirma &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
End If
'Verimex soll keine Abgeschlossenen und keine Freigegebenen sehen:
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then sqlStrFirma &= " AND Abgeschlossen=0 AND Status <>1 "
If cbx_My_LKW.Checked Then
'----------------------------------------------------------------------------------------------------------------------------------
'--- LKW ---
'----------------------------------------------------------------------------------------------------------------------------------
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe,LetzterMitarbeiterId AS maId, LetzterMitarbeiterId ,/* CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,*/LetzterMitarbeiter,AvisoTVHinweis " &
" FROM Aviso " &
" WHERE ( Status IN (0, 3, 4, 5,6,7) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
sqlStrFirma & " AND (LetzterMitarbeiterId=@maId) "
'If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
If cboMy_Grenzstelle._value = "ALLE_WO" Then
sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "
'ElseIf cboMy_Grenzstelle._value = "SBG+AMB" Then
' sqlStr &= " AND (Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66) )) "
ElseIf cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then
sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
End If
sqlStr &= " ORDER BY case " &
" when [Status] =3 then 0 " &
" when [Status] =6 then 0.5 " &
" when [Status] =7 then 0.5 " &
" when [Status] =0 then 1 " &
" when [Status] =99 then 2 " &
" when [Status] =4 then 3 " &
" when [Status] =1 then 4 " &
" when [Status] =5 then 4 " &
" when [Status] =0 then 5 " &
" END, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
Else
'----------------------------------------------------------------------------------------------------------------------------------
'--- Sendung ---
'----------------------------------------------------------------------------------------------------------------------------------
Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer"
If cboMyAvisoAnzeige._value <> "" Then
If cboMyAvisoAnzeige._value = "ALLE" Then
' inBearbeitungSQL = " 1=1 " 'ALLE
inBearbeitungSQL = " ( (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) OR (Aviso.[TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null)) OR [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR tblSendungen.LetzterMitarbeiterId=@maId) "
ElseIf cboMyAvisoAnzeige._value = "T1" Then
inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 "
'NUR VERAG/IMEX:
inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) "
ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then
If cboMyAvisoAnzeige._value = "27" Then ' TEAM SALZBURG
inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId
OR Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) ) "
Else
inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) "
End If
End If
End If
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus], [Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " &
" ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,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_Vorgeschrieben").Visible = False
.Columns("tblSnd_Vorbereitet").Visible = False
.Columns("tblSnd_SendungID").Visible = False
.Columns("tblSnd_Fremdspedition").Visible = False
.Columns("tblSnd_FremdspeditionText").Visible = False
.Columns("tblSnd_Empfaenger").MinimumWidth = 80
.Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger"
.Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("VoraussichtlichesEintreffen").Width = 55
.Columns("VoraussichtlichesEintreffen").HeaderText = "Eintreffen"
.Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM."
' .Columns("Vermerke_Anzahl").Width = 60
' .Columns("Vermerke_Anzahl").HeaderText = "Vermerke"
' .Columns("Vermerke_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("AbfertigungsNr").Width = 110
.Columns("AbfertigungsNr").HeaderText = "Pos-Nr."
.Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
.Columns("AbfertigungsNr").Visible = False
Dim c As DataGridViewImageColumn
c = New DataGridViewImageColumn
c.Name = "StatusVorbereitetQS"
c.Image = My.Resources.statusBtn_vorbereitet_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.ToolTipText = "Status 'Vorbereitet-QS' eintragen"
c.HeaderText = "QS"
.Columns.Add(c)
c = New DataGridViewImageColumn
c.Name = "StatusVorgeschrieben"
c.Image = My.Resources.statusBtn_vorgeschrieben_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.ToolTipText = "Status 'Vorgeschrieben' eintragen"
c.HeaderText = "VG"
.Columns.Add(c)
Dim t2 = New DataGridViewTextBoxColumn
t2.Name = "Abfertigungsart"
t2.HeaderText = "Abfertigungsart"
t2.Width = 90 : t.DefaultCellStyle.Padding = New Padding(2) : t2.DefaultCellStyle.BackColor = Color.White
't.ToolTipText = ""
.Columns.Insert(7, t2)
End If
'Dauer berechnen:
For Each r As DataGridViewRow In .Rows
r.DefaultCellStyle.Font = nfont
If Not cbx_My_LKW.Checked Then
If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER
r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230)
' r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230)
' r.Cells("Abfertigungsart").Value = "FREMD"
r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value
Else 'Nomal
r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".."
End If
If .Columns("StatusVorbereitetQS") IsNot Nothing Then
If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then
DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv
DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")"
Else
DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' eintragen"
End If
End If
If .Columns("StatusVorgeschrieben") IsNot Nothing Then
If r.Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then
DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorgeschrieben_Aktiv
DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")"
Else
DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' eintragen"
End If
End If
End If
' MsgBox(r.Cells(1).Value)
' MsgBox(r.Cells(6).Value)
' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells(6).Value)), Now))
If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then
If CInt(r.Cells("Status").Value) > VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then
Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now)
If IsNumeric(dauerTmp) Then
r.Cells("Dauer").Value = dauerTmp
r.Cells("DauerText").Value = cProgramFunctions.MinToTime2(dauerTmp)
Else
r.Cells("Dauer").Value = "0"
r.Cells("DauerText").Value = "0"
End If
End If
Else
r.Cells("DauerText").Value = "0"
r.Cells("Dauer").Value = "0"
End If
If r.Cells("VerwahrungStatus").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green
If r.Cells("LKW_fertig").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128)
If r.Cells("LKW_fertig").Value = "DE" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green
If r.Cells("Dauer").Value > 120 Then r.Cells("DauerText").Style.ForeColor = Color.Red
' MsgBox(r.Cells("Dauer").Value)
' If CBool(r.Cells("Vorbereitung").Value) = True Then
'r.Cells("Status").Value = 99
'End If
'Farbkennung
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
If Not cbx_My_LKW.Checked Then
Select Case r.Cells("Status").Value
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben '"1", "2"
' Freigabe, N.Eingetr.
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft '"3"
' Ankunft
r.DefaultCellStyle.BackColor = Color.IndianRed
r.Cells("DauerText").Style.ForeColor = Color.White
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX, VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
' Ankunft
r.DefaultCellStyle.BackColor = Color.SteelBlue
r.Cells("DauerText").Style.ForeColor = Color.White
Case Else
'Alle anderen Status:
If r.Cells("VoraussichtlichesEintreffen").Value IsNot DBNull.Value AndAlso IsDate(r.Cells("VoraussichtlichesEintreffen").Value) Then
Dim VoraussichtlichesEintreffen = CDate(r.Cells("VoraussichtlichesEintreffen").Value)
'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.ToShortDateString) Then 'heute
' r.DefaultCellStyle.BackColor = Color.IndianRed
'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'morgen
' r.DefaultCellStyle.BackColor = Color.Orange
'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'Ümorgen+ÜÜmorgen
' r.DefaultCellStyle.BackColor = Color.LightYellow
'End If
'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'heute
' r.DefaultCellStyle.BackColor = Color.Orange
'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'morgen
' r.DefaultCellStyle.BackColor = Color.LightYellow
'End If
If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(1).ToShortDateString) Then 'heute
r.DefaultCellStyle.BackColor = Color.Orange
ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(3).ToShortDateString) Then 'morgen
r.DefaultCellStyle.BackColor = Color.LightYellow
End If
Else
End If
End Select
End If
End If
Next
'.Width = gridAviso.Width - gridVermerke.Width
'.Sort(.Columns(3), System.ComponentModel.ListSortDirection.Descending)
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.ClearSelection()
._TRANSLATE()
End With
Catch ex As Exception
' MsgBox(ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
' Grid_aktiv = True
End Sub
Function getDateVorschreiben(addDays) As Date
Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren
While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays))
addDays += 1
End While
Return Now.AddDays(addDays)
End Function
Function getDaysVorschreiben(addDays) As Integer
Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren
While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays))
addDays += 1
End While
Return addDays
End Function
Private Sub dgvSendungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridMyAviso.CellClick
Try
If e.RowIndex > 0 Then
' MsgBox(gridMyAviso.Columns(e.ColumnIndex).Name)
If Not cbx_My_LKW.Checked Then
If True Then 'gridMyAviso.SelectedRows.Count = 1 Then
Dim SendungsId = gridMyAviso.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value
Dim AvisoID = gridMyAviso.Rows(e.RowIndex).Cells("AvisoID").Value
If SendungsId > 0 And AvisoID > 0 Then
Select Case gridMyAviso.Columns(e.ColumnIndex).Name
Case "StatusVorgeschrieben"
Me.Cursor = Cursors.WaitCursor
If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then
avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'meineAviso_anzeigen()
End If
Me.Cursor = Cursors.Default
Case "StatusVorbereitetQS"
Me.Cursor = Cursors.WaitCursor
If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then
avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'meineAviso_anzeigen()
End If
Me.Cursor = Cursors.Default
End Select
End If
End If
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub gridMyAviso_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles gridMyAviso.CellFormatting
Try
If gridMyAviso Is Nothing Then Exit Sub
If gridMyAviso.Columns Is Nothing Then Exit Sub
If gridMyAviso.ColumnCount = 0 Then Exit Sub
'Anzahl Minuten als verständlichen Text anzeigen
Select Case gridMyAviso.Columns(e.ColumnIndex).Name
Case "Status" 'Status
'Dim vb As Boolean = gridMyAviso.Rows(e.RowIndex).Cells("statVorb").Value
'Select Case VarToInt(e.Value)
' Case 0 : e.Value = IIf(vb, "Erfasst (in VB)", "Erfasst") : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60)
' Case 1 : e.Value = IIf(vb, "Freigegeben (in VB)", "Freigegeben")
' Case 2 : e.Value = IIf(vb, "LKW n.e. (in VB)", "LKW n.e.")
' Case 3 : e.Value = IIf(vb, "Ankunft (in VB)", "Ankunft") : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
' Case 4 : e.Value = IIf(vb, "Vorber. (in VB)", "Vorbereitet")
' Case 5 : e.Value = IIf(vb, "Vorg. (in VB)", "Vorgeschrieben")
' ' Case 99 : e.Value = "in Vorbereitung" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
' 'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown
' ' gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
' Case Else : e.Value = "unbekannt"
'End Select
Select Case VarToInt(e.Value)
Case 0 : e.Value = "Erfasst" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60)
Case 1 : e.Value = "Freigegeben"
Case 2 : e.Value = "LKW n.e."
Case 3 : e.Value = "Ankunft" : gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
Case 4 : e.Value = "Vorbereitet"
Case 5 : e.Value = "Vorgeschrieben"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex"
' Case 99 : e.Value = "in Vorbereitung" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown
' gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
Case Else : e.Value = "unbekannt"
End Select
' If gridMyAviso.Rows(e.RowIndex).Cells("statVorb").Value = "1" Then
'e.Value &= " (VB)"
' End If
Case "AvisoEingang" 'Aviso-Eingang
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Ankunft" 'Ankunft
If VarToDate(e.Value) = LeerDatum Then
e.Value = ""
Else
' If DateDiff(DateInterval.Minute, CDate(VarToDate(e.Value)), Now) > 120 Then
' 'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red
' gridMyAviso.Rows(e.RowIndex).Cells("Dauer").Style.ForeColor = Color.Red
' gridMyAviso.Rows(e.RowIndex).Cells("Ankunft").Style.ForeColor = Color.Red
' End If
End If
End Select
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub gridAviso_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles gridAviso.CellFormatting
'Anzahl Minuten als verständlichen Text anzeigen
Select Case gridAviso.Columns(e.ColumnIndex).Name
Case "Status" 'Status
Select Case VarToInt(e.Value)
Case 0 : e.Value = "Erfasst"
Case 1 : e.Value = "Freigegeben"
Case 2 : e.Value = "LKW n.e."
Case 3 : e.Value = "Ankunft"
Case 4 : e.Value = "Vorbereitet"
Case 5 : e.Value = "Vorgeschrieben"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex"
Case Else : e.Value = "unbekannt"
End Select
Case "AvisoEingang" 'Aviso-Eingang
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Datum" 'Aviso-Eingang
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Erfasst" 'Aviso-Eingang
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Vorbereitet" 'Vorbereitet
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Vorgeschrieben" 'Vorgeschrieben
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Ankunft" 'Ankunft
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Freigabe" 'Abfahrt
If VarToDate(e.Value) = LeerDatum Then e.Value = ""
Case "Dauer" 'Dauer
If VarToInt(e.Value) > 120 Then
gridAviso.Rows(e.RowIndex).Cells("Dauer").Style.ForeColor = Color.Red
End If
If VarToInt(e.Value) = 0 Then
e.Value = ""
Else
e.Value = Minuten_auf_Text(VarToLng(e.Value))
End If
Case "VoraussichtlichesEintreffen"
' "Der Operator = ist für Typ DBNull und Typ Date nicht definiert."
If (gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value Is DBNull.Value OrElse gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value = LeerDatum) AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value IsNot DBNull.Value AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value <= 1 Then
'gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.ForeColor = Color.Red
gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
End If
End Select
End Sub
Private Sub GridZeichnenAviso()
'hier wird der Grid speziell designed
If gridAviso.RowCount = 0 Then Exit Sub
'Falls Kunde auf inaktiv steht, dann wird Zeile ausgegraut angezeigt
For Each dr As DataGridViewRow In gridAviso.Rows
Select Case VarToInt(dr.Cells("Status").Value)
Case 0 'erfasst
dr.DefaultCellStyle.SelectionBackColor = Color.FromArgb(230, 0, 0)
dr.DefaultCellStyle.ForeColor = Color.FromArgb(230, 0, 0)
dr.DefaultCellStyle.SelectionForeColor = Color.White
Case 1 'freigegeben
dr.DefaultCellStyle.SelectionBackColor = Color.Green
dr.DefaultCellStyle.ForeColor = Color.Green
dr.DefaultCellStyle.SelectionForeColor = Color.White
Case 2 'LKW nicht eingetroffen
dr.DefaultCellStyle.SelectionBackColor = Color.Gray
dr.DefaultCellStyle.ForeColor = Color.Gray
dr.DefaultCellStyle.SelectionForeColor = Color.White
Case 3 'Ankunft
dr.DefaultCellStyle.SelectionBackColor = Color.Blue
dr.DefaultCellStyle.ForeColor = Color.Blue
dr.DefaultCellStyle.SelectionForeColor = Color.White
Case 4 'Vorbereitet
dr.DefaultCellStyle.SelectionBackColor = Color.Brown
dr.DefaultCellStyle.ForeColor = Color.Brown
dr.DefaultCellStyle.SelectionForeColor = Color.White
Case 5 'Vorbereitet
dr.DefaultCellStyle.SelectionBackColor = Color.Purple
dr.DefaultCellStyle.ForeColor = Color.Purple
dr.DefaultCellStyle.SelectionForeColor = Color.White
End Select
dr.Cells("Status").Style.BackColor = dr.DefaultCellStyle.ForeColor
dr.Cells("Status").Style.SelectionForeColor = dr.DefaultCellStyle.ForeColor
dr.Cells("LKW_Nr").Style.BackColor = lkwbackcolor
'dr.Cells("LKW_Nr").Style.SelectionBackColor = lkwbackcolorSel
' dr.Cells("LKW_Nr").Style.SelectionForeColor = Color.Black
Next
End Sub
Private Sub mnuPunkt_Click(sender As Object, e As System.EventArgs) Handles mnuInfo.Click, mnuFirmen.Click
'Hier werden alle Menüpunkte abgearbeitet
If sender Is mnuInfo Then
Dim f As New frmInfo
f.ShowDialog(Me)
Exit Sub
End If
End Sub
Sub initDat()
Dim tmpGrid_aktiv = Grid_aktiv
Grid_aktiv = False
If tbcntrAviso.SelectedIndex = 0 Then
cboGrenzstelle.SelectedIndex = 0
MyComboBox1.changeItem(UStatus_AVEingang)
dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15)
dtpBis.Value = Now.AddDays(1)
ElseIf tbcntrAviso.SelectedTab Is tabFreigegeben Then
MyComboBox1.changeItem(Status_Freigegeben)
dtpVon.Value = Now
dtpBis.Value = Now
End If
Grid_aktiv = tmpGrid_aktiv
End Sub
Private Sub tbcntrAviso_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntrAviso.SelectedIndexChanged
If Not Grid_aktiv Then Exit Sub
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
SucheStandort = ""
initDat()
Aviso_anzeigen("")
setAkive_AuswahlID() 'Lädt die aktuelle ID
If gridAviso.SelectedRows.Count > 0 Or gridMyAviso.SelectedRows.Count > 0 Then
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, False)
Else
pnlDetailsRechts.Visible = False
End If
End Sub
Private Sub btnAlleAnzeigen_Click(sender As System.Object, e As System.EventArgs) Handles btnAlleAnzeigen.Click
If sender Is btnAlleAnzeigen Then
'Auswahl wird zurückgesetzt, alle Einträge werden angezeigt
Grid_aktiv = False
dtpVon.Value = #1/1/2013#
dtpBis.Value = #12/31/2099#
txtSuche.Text = ""
'optAlle.Checked = True
tbcntrAviso.SelectedIndex = 0
Grid_aktiv = True
SucheStandort = ""
Aviso_anzeigen("")
End If
End Sub
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Private Sub txtSuche_GotFocus(sender As Object, e As EventArgs) Handles txtSuche.Enter
Try
If My.Computer.Keyboard.CapsLock Then
Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 1, 0)
Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 3, 0)
End If
Catch ex As Exception
End Try
End Sub
Private Sub txtSuche_KeyDown1(sender As Object, e As PreviewKeyDownEventArgs) Handles txtSuche.PreviewKeyDown
If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Tab Then
Aviso_anzeigen("")
End If
End Sub
Private Sub txtSuche_KeyDown(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
Label8.Visible = True
' Exit Sub
'If e.KeyCode = Keys.Return Then
If Not Grid_aktiv Then Exit Sub
' If txtSuche.Text.Length = 1 Then Exit Sub
If txtSuche.Text.StartsWith("/") Then
If txtSuche.Text.Length > 3 And txtSuche.Text.EndsWith("/") Then 'AVISO ID
If txtSuche.Text.Count(Function(c As Char) c = "/") > 2 Then
Exit Sub
End If
If txtSuche.Text.Contains("-") Then
Dim t As String = txtSuche.Text
' t = t.Replace("/V003/", "")
t = t.Replace("/", "")
Dim v() = t.Split("-")
'Dim o As New cOptionenDAL
If v.Length > 1 Then
Dim dt As DataTable = AvisoDAL.loadDataTableBySQL("SELECT TOP 1 tblSnd_AvisoID,tblSnd_SendungID FROM [tblSendungen] WHERE [FilialenNr]='" & v(0) & "' AND [AbfertigungsNr]='" & v(1) & "' AND [UnterNr]='" & v(2) & "' ")
If dt.Rows.Count > 0 Then
Dim avisoidTmp = dt.Rows(0)("tblSnd_AvisoID")
Dim sndidTmp = dt.Rows(0)("tblSnd_SendungID")
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = avisoidTmp
FUNC.AktUebernehmen(avisoidTmp) 'Übernahme des Aktes
gridAviso.ClearSelection()
gridMyAviso.ClearSelection()
UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection()
Details_anzeigen(avisoidTmp, False)
selectRow(avisoidTmp)
Try
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
Case Else ' "VERAG", "IMEX"
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).openSnd(sndidTmp)
End Select
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
txtSuche.Text = ""
End If
End If
Else
Dim avisoidTmp = txtSuche.Text.Replace("/", "")
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = avisoidTmp
FUNC.AktUebernehmen(avisoidTmp) 'Übernahme des Aktes
gridAviso.ClearSelection()
gridMyAviso.ClearSelection()
UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection()
Details_anzeigen(avisoidTmp)
selectRow(avisoidTmp)
txtSuche.Text = ""
End If
End If
Else
' SucheStandort = ""
' Aviso_anzeigen("")
' JETZT NU BEI ENTER
'gridAviso.Refresh() 'für Variante mit Treffer gelb anzeigen
End If
End Sub
Sub selectRow(AvisoId)
Try
For Each r As DataGridViewRow In gridAviso.Rows
If r.Cells("AvisoId").Value = AvisoId Then
r.Selected = True
Exit For
End If
Next
For Each r As DataGridViewRow In gridMyAviso.Rows
If r.Cells("AvisoId").Value = AvisoId Then
r.Selected = True
Exit For
End If
Next
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
End Sub
Private Sub dtp_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpVon.ValueChanged, dtpBis.ValueChanged
If Not pnlSearch.Visible Then
If Not Grid_aktiv Then Exit Sub
Aviso_anzeigen("")
End If
End Sub
Private Sub WichtigChanged(sender As System.Object, e As System.EventArgs) Handles btnWichtigeStandort.Click, btnWichtige.Click
Grid_aktiv = False
Dim hSort As String = ""
' SucheStandort = ""
dtpVon.Value = Now.AddMonths(-1) ' Now.AddDays(-15)
dtpBis.Value = Now.AddDays(1)
'optAnkunft.Checked = True
tbcntrAviso.SelectedTab = tabAnkunft
txtSuche.Text = ""
hSort = " ORDER BY Ankunft"
' If sender Is btnWichtigeStandort Then SucheStandort = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Grenzstelle.Trim
If sender Is btnWichtigeStandort Then
cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
End If
If sender Is btnWichtige Then
cboGrenzstelle.SelectedIndex = 0
End If
Grid_aktiv = True
Aviso_anzeigen(hSort)
End Sub
Private Sub GrenzstelleChanged(sender As System.Object, e As System.EventArgs) Handles cboGrenzstelle.SelectedIndexChanged
'Suche Bestimmungs.ZST
If cboGrenzstelle._value = "???" Then
Label10.Visible = True
txtBestimmungszollstelle.Visible = True
Else
Label10.Visible = False
txtBestimmungszollstelle.Visible = False
End If
If Grid_aktiv Then
' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
Aviso_anzeigen("")
End If
End Sub
Private Sub cbxClusterChanged(sender As System.Object, e As System.EventArgs) Handles cbxCluster.CheckedChanged
If Grid_aktiv Then
' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
Aviso_anzeigen("")
End If
End Sub
Private Sub btnHeute_Click(sender As System.Object, e As System.EventArgs) Handles MyComboBox1.SelectedIndexChanged, btnWoche.Click, btnHeute.Click, btnGestern.Click
If Not Grid_aktiv Then Exit Sub
Grid_aktiv = False
Dim hSort As String = ""
' SucheStandort = ""
If sender Is btnHeute Then
dtpVon.Value = Now.Date
dtpBis.Value = Now.Date
ElseIf sender Is btnGestern Then
dtpVon.Value = Now.Date.AddDays(-1)
dtpBis.Value = Now.Date.AddDays(-1)
ElseIf sender Is btnWoche Then
dtpVon.Value = Now.Date.AddDays(-7)
dtpBis.Value = Now.Date
End If
Grid_aktiv = True
Aviso_anzeigen(hSort)
End Sub
Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
If frmLogin.AnmeldungOK Then
Try
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End If
Catch ex As Exception
End Try
If False Then 'NUR AKTUALISIEREN; WENN FENSTER AKTIV --> bei 2. Monitor PROBLEM
Try
If GetActiveWindow = Me.Handle Then
If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
' System.Threading.Thread.Sleep(1000) '? warum??
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End If
Else
hMerkZeit = hMerkZeit.AddSeconds(-60) 'Somit wird beid er nächste Aktiveierung aktualisiert
If DateDiff(DateInterval.Second, hMerkZeit2, Now) > 10 Then
gridAviso.RELOAD()
GridZeichnenAviso()
initDauerLKWFertig()
hMerkZeit2 = Now
End If
End If
Catch ex As Exception
End Try
End If
End If
End Sub
Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click
avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End Sub
Private Sub gridAviso_ColumnHeaderMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridAviso.ColumnHeaderMouseClick
GridZeichnenAviso()
End Sub
Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseEnter, btnUmrechnungskurse.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnNeu.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter
Try
Dim cF As Color = DirectCast(sender, Button).ForeColor
Dim cB As Color = DirectCast(sender, Button).BackColor
If cF = Color.Black Then cF = Color.Gray
DirectCast(sender, Button).ForeColor = cB
DirectCast(sender, Button).BackColor = cF
Catch ex As Exception
End Try
End Sub
Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseLeave, btnUmrechnungskurse.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnNeu.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave
Try
Dim cF As Color = DirectCast(sender, Button).ForeColor
Dim cB As Color = DirectCast(sender, Button).BackColor
If cB = Color.Gray Then cB = Color.Black
DirectCast(sender, Button).ForeColor = cB
DirectCast(sender, Button).BackColor = cF
Catch ex As Exception
End Try
End Sub
Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridAviso.DoubleClick
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
Exit Sub
End If
If gridAviso.SelectedRows.Count = 0 Then Exit Sub
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim f As New frmEintragAviso
f.ShowDialog(frmGrayOut)
frmGrayOut.Close()
btnRefresh.PerformClick() 'Aviso_anzeigen("")
End Sub
Private Sub gridMyAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridMyAviso.DoubleClick
If gridMyAviso.SelectedRows.Count = 0 Then Exit Sub
If gridMyAviso.SelectedRows(0).Cells("AvisoID").Value Is DBNull.Value Then Exit Sub
If cbx_My_LKW.Checked Then
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim f As New frmEintragAviso
f.ShowDialog(frmGrayOut)
frmGrayOut.Close()
btnRefresh.PerformClick() 'Aviso_anzeigen("")
Else
If gridMyAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value Is DBNull.Value Then Exit Sub
Dim SendungsId = gridMyAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value
Dim AvisoID = gridMyAviso.SelectedRows(0).Cells("AvisoID").Value
Dim f = FUNC.openSnd(SendungsId, AvisoID)
If f IsNot Nothing Then
AddHandler f.FormClosed, Sub()
btnRefresh.PerformClick()
End Sub
End If
End If
End Sub
Private Sub btnNeu_Click(sender As System.Object, e As System.EventArgs) Handles btnNeu.Click, ToolStripMenuItem17.Click
Try
Me.Cursor = Cursors.WaitCursor
gridAviso.ClearSelection()
gridMyAviso.ClearSelection()
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim f As New frmEintragAviso
If sender Is ToolStripMenuItem17 Then
f.FIRMA_TMP = "ATILLA"
End If
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0
' f.frmHilf = Me
If Not f.IsDisposed And f IsNot Nothing And Not frmGrayOut.IsDisposed And frmGrayOut IsNot Nothing Then
f.ShowDialog(frmGrayOut)
End If
frmGrayOut.Close()
btnRefresh.PerformClick() 'Aviso_anzeigen("")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub btnLöschen_Click(sender As System.Object, e As System.EventArgs)
End Sub
Private Sub btnDrucken_Click(sender As System.Object, e As System.EventArgs) Handles btnDrucken.Click
'MsgBox("Druck steht derzeit noch nicht zur Verfügung.", vbInformation)
Dim f As New frmAuswahl_Aviso
f.Show()
End Sub
Private Sub btnPaketdienst_Click(sender As System.Object, e As System.EventArgs) Handles btnKunden.Click
Me.Cursor = Cursors.WaitCursor
'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing
If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then
Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront()
Me.Cursor = Cursors.Default : Exit Sub
End If
' Next
Try
Dim zoll As New SDL.frmKundenUebersichtZOLL
zoll.Show()
Me.Cursor = Cursors.Default
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
For Each ft As Form In Application.OpenForms
If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then
ft.BringToFront()
Exit Sub
End If
Next
Me.Cursor = Cursors.WaitCursor
Dim sped As New SDL.frmSpeditionsbuchSuche
sped.Show()
Me.Cursor = Cursors.Default
End If
End Sub
Private Declare Function ShowWindow Lib "user32" _
(ByVal hWnd As System.IntPtr, ByVal nCmdShow As Long) As Long
Private Const SW_RESTORE = 9
Private Function DoesProcessExists(ByVal PName As String) As Boolean
If System.Diagnostics.Process.GetProcessesByName(PName).Count = 0 Then Return False
Shell("UID.exe", AppWinStyle.NormalFocus)
' ShowWindow(System.Diagnostics.Process.GetProcessesByName(PName)(0).MainWindowHandle, SW_RESTORE)
Return True
For Each p As Process In System.Diagnostics.Process.GetProcessesByName(PName)
If p.StartInfo.UserName = Environment.UserName Then
' ShowWindow(p.MainWindowHandle, SW_RESTORE)
Return True
End If
Next
Return False
End Function
Private Sub old_Click(sender As System.Object, e As System.EventArgs)
If Paketdienste_EXE = "" Then
MsgBox("Es ist kein Pfad für den Programm-Aufruf zugewiesen. Bitte den Administrator verständigen.", vbInformation)
Exit Sub
End If
If Not File.Exists(Paketdienste_EXE) Then
MsgBox("Die Zuweisung zum Programm-Aufruf ist falsch." & vbCrLf & vbCrLf & Paketdienste_EXE & vbCrLf & vbCrLf &
"Bitte den Administrator verständigen.", vbInformation)
Exit Sub
End If
'Dim Program As ProcessStartInfo = New ProcessStartInfo
'Dim ProgramProcess As Process = New Process
'Program.Arguments = Paketdienste_EXE
'Program.UseShellExecute = True
'Program.CreateNoWindow = False
'Program.WindowStyle = ProcessWindowStyle.Normal
'Program.WorkingDirectory = ""
Try
Process.Start(Paketdienste_EXE)
Catch ex As Exception
Throw New ApplicationException("Startshell", ex)
End Try
End Sub
Private Sub kexdown(sender As Object, e As KeyEventArgs) Handles gridAviso.KeyUp
Try
If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
If sender.selectedRows.count = 0 Then Exit Sub
Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
End If
Catch ex As Exception
End Try
End Sub
Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs) Handles gridMyAviso.KeyUp
Try
If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
If sender.selectedRows.count = 0 Then Exit Sub
Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
Dim tmpSndId = CInt(sender.selectedRows(0).Cells("tblSnd_SendungID").Value)
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpSndId
avisoAktualisierenAktiveIdBehalten(tmpId, False)
End If
Catch ex As Exception
End Try
End Sub
Public Sub lblHinweiseVisible()
If gridMyAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridMyAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "")
If gridAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "")
End Sub
Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True)
pic.Visible = False
Try
If Not Grid_aktiv Then Exit Sub
Details_aktiv = False
initEAviso()
If Aviso_anzeigenBool Then Aviso_anzeigen("", False) ': meineAviso_anzeigen()
gridAviso.ClearSelection()
For Each r As DataGridViewRow In gridAviso.Rows
If CInt(r.Cells("AvisoId").Value) = tmpid Then
' gridMyAviso.ClearSelection()
gridAviso.CurrentCell = r.Cells("Status")
r.Selected = True : Exit For
End If
Next
gridMyAviso.ClearSelection()
If cbx_My_LKW.Checked Then
For Each r As DataGridViewRow In gridMyAviso.Rows
If CInt(r.Cells("AvisoId").Value) = tmpid Then
' gridMyAviso.ClearSelection()
gridMyAviso.CurrentCell = r.Cells("Status")
r.Selected = True : Exit For
End If
Next
Else
If gridMyAviso.Rows.Count > 0 Then
For Each r As DataGridViewRow In gridMyAviso.Rows
If CInt(r.Cells("tblSnd_SendungID").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then
gridMyAviso.CurrentCell = r.Cells("Status")
r.Selected = True : Exit For
End If
Next
End If
End If
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid
Details_aktiv = True
If pnlDetailsRechts.Controls.Count > 0 Then
Dim usrcntlAvisoID = -1
Dim usrcntlAktiv As DateTime
If Not pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
If pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
Else
usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
End If
If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End If
'Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Case "ATILLA"
' If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then
' Dim usrcntl As usrcntlAktDetailsATILLANeu = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu)
' If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Else
' If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' End If
' End If
' End If
' Case Else
' Dim usrcntl As usrcntlAktDetails = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails)
' If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' Else
' usrcntl.changeCurrentSndId()
' If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
' End If
' End If
'End Select
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
End Sub
Private Sub dgvSendungen_CellContentClick() Handles UsrCntlBenachrichtigungen1.SelectionChanged, gridMyAviso.CellClick
Try
If UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then
gridMyAviso.ClearSelection()
gridAviso.ClearSelection()
' MsgBox(Grid_aktiv)
Dim tmpId = UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_AvisoID").Value
If UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_art").Value = "A" Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
Else 'Sendungsbenachrichtigung
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_SendungID").Value
End If
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
avisoAktualisierenAktiveIdBehalten(tmpId, , False)
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridMyAviso.CellMouseClick, gridAviso.CellMouseClick
If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
'If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
'gridMyAviso.ClearSelection() 'WARUM?
If sender Is gridAviso Then gridMyAviso.ClearSelection() : UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection()
If sender Is gridMyAviso Then gridAviso.ClearSelection() : UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection()
' MsgBox(Grid_aktiv)
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
Dim tmpId = CInt(sender.Rows(e.RowIndex).Cells("AvisoId").Value)
If sender Is gridAviso Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
Else
If sender Is gridMyAviso Then
If cbx_My_LKW.Checked Then
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
Else
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(sender.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value)
End If
End If
End If
If e.Button = MouseButtons.Right Then
If 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
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN"
tbcntrAviso.TabPages.Remove(tabVorgeschrieben)
tbcntrAviso.TabPages.Remove(tabVorbereitet)
End If
btnWichtigeStandort.Visible = False
Panel2.Visible = False
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
'nix
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
'nix
Else 'VERAG
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
Button5.Visible = True
End If
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then
'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN"
tbcntrAviso.TabPages.Remove(tabVorgeschrieben)
tbcntrAviso.TabPages.Remove(tabVorbereitet)
Else
tbcntrAviso.TabPages.Remove(tabINDONESIEN)
tbcntrAviso.TabPages.Remove(tabVERIMEX)
conAnVerimex.Visible = False
conAnIndonesien.Visible = False
End If
'Wenn Teamzuweisung --> Backoffice --> Meine Senungen größer!
If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, 0) > 0 Then
splitMain.SplitterDistance = CInt(splitMain.Height / 2)
Else
End If
'If SplitContainer2.Width > 800 Then
' 'SplitContainer2.Panel2MinSize = 600
' SplitContainer2.SplitterDistance = 130 'SplitContainer2.Width - 750
' If SplitContainer2.Panel2.Width > 1200 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 1200 '__> DAS"!!!
' ' If SplitContainer2.Panel2.Width > 900 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 900
'End If
If SplitContainer2.Width > 1300 Then
SplitContainer2.SplitterDistance = 350 'SplitContainer2.Width - 750
SplitContainer3.SplitterDistance = 400
ElseIf SplitContainer2.Width > 1200 Then
SplitContainer2.SplitterDistance = 180 'SplitContainer2.Width - 750
SplitContainer3.SplitterDistance = 300
Else
SplitContainer2.SplitterDistance = 160 'SplitContainer2.Width - 750
SplitContainer3.SplitterDistance = 250
End If
If My.Computer.Screen.WorkingArea.Width < 1300 Then
'tabAnkunft.Text = "ANKUNFT."
'tabErfasst.Text = "ERFASST"
tabVorbereitet.Text = "2.Vorb.QS"
tabVorgeschrieben.Text = "3.Vorgeschr."
'tabFreigegeben.Text = "FREIGABE"
tabNichtEingetroffen.Text = "N.E."
' tabVorgeschrieben.Text = "VORGESCHR."
End If
tbcntrAviso.Width = Panel1.Width
TabControl1.Location = New Point(tbcntrAviso.Location.X + getTbControlWidth(tbcntrAviso) + 80, TabControl1.Location.Y)
TabControl1.SelectedIndex = -1
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 KdNrZuordnenToolStripMenuItem_Click(sender As Object, e As EventArgs)
If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
frmZuordnungKd.Show()
Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.")
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnZollwebseiten.Click
cntxt.Show(Cursor.Position)
End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Try
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ausstempelnBeiBeenden Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
Dim timas As New cTimasAPI("timas")
Dim infoMessage As New DataTable
Dim timeEntryExisting As Boolean = False
Dim isEndpointRunning As Boolean = True
Dim isPresent = timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
If timeEntryExisting AndAlso isEndpointRunning AndAlso isPresent Then
Dim a As MsgBoxResult = MsgBox("Soll " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " ausgestempelt werden?" & vbNewLine & Now.ToString() & " als Endzeit erfassen?", vbYesNo)
If a = vbYes Then
Dim info
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "out", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
MsgBox(info)
Else
End If
End If
End If
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Close()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnMinimieren.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub TimerAkte_Tick(sender As Object, e As EventArgs) Handles TimerAkte.Tick
' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
lblAkte.Visible = False
End Sub
Private Sub btnBar_Click(sender As Object, e As EventArgs)
frmBarcodeGenerator.Show()
End Sub
Private Sub NacherfassungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NacherfassungToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
Dim frmNacherfassung As New SDL.frmNacherfassungNEU
frmNacherfassung.Show()
End If
End Sub
Private Sub StatistikADMINToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StatistikADMINToolStripMenuItem.Click
'MsgBox(cGlobal.AktiverMitarbeiter.Mitarbeiter)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik", Me) Then
frmAuswertung.Show()
Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.")
End If
End Sub
Private Sub LKWBerichtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LKWBerichtToolStripMenuItem.Click
Dim frmLKWBericht As New frmLKWBericht
frmLKWBericht.ShowDialog(Me)
End Sub
Private Sub GenerelleGestellungenDurchsuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GenerelleGestellungenDurchsuchenToolStripMenuItem.Click
frmGenerelleGestellungen.ShowDialog()
End Sub
Private Sub KundenVonFremdenSpeditionenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KundenVonFremdenSpeditionenToolStripMenuItem.Click
Dim frmKundenFremdeSpeditionen As New frmKundenFremdeSpeditionen
frmKundenFremdeSpeditionen.ShowDialog()
End Sub
Private Sub StandorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StandorteToolStripMenuItem.Click
Dim f As New frmTabelleStandorte
f.ShowDialog(Me)
Exit Sub
End Sub
Private Sub KdNrZuordnenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles KdNrZuordnenToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
frmZuordnungKd.Show()
Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.")
End If
End Sub
Private Sub OptionenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles OptionenToolStripMenuItem1.Click
gridAviso.ClearSelection()
gridMyAviso.ClearSelection()
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 1
Dim f As New frmEintragOptionen
f.ShowDialog(Me)
End Sub
Private Sub VorlagenUploadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlagenUploadToolStripMenuItem.Click
Dim vu As New VERAG_PROG_ALLGEMEIN.frmVorlagen
vu.ShowDialog()
End Sub
Private Sub gridAviso_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridAviso.CellContentClick
End Sub
Private Sub BarcodeTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BarcodeTestToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
frmBarcodeGenerator.Show()
End If
End Sub
Private Sub btnAsd_Click(sender As Object, e As EventArgs)
newNotify(frmNotify.cNotify_ART.AVISO_2H, 1, gridMyAviso.Rows(0).Cells("LKW_Nr").Value, gridMyAviso.Rows(0).Cells("AvisoId").Value)
End Sub
Sub newNotify(art As frmNotify.cNotify_ART, title As Integer, text As String, id As Integer)
' Exit Sub 'NICHT AKTIV
Dim formTmp = Me.ActiveForm
Dim frmNotify As New frmNotify(art, title, text, id)
frmNotify.TimerInterval = 1200000 ' 20min
Dim tmpY As Integer = Me.Height
If tmpY <= 0 Then tmpY = My.Computer.Screen.WorkingArea.Height
For Each ft As Form In Application.OpenForms
If ft.GetType.ToString = "AVISO.frmNotify" Then
If ft.Location.Y < tmpY Then tmpY = ft.Location.Y
End If
Next
frmNotify.Y = tmpY - frmNotify.Height - 10
frmNotify.Show()
If formTmp IsNot Nothing Then formTmp.Focus()
End Sub
Public Function ConvertFileToBase64(ByVal fileName As String) As String
Return Convert.ToBase64String(System.IO.File.ReadAllBytes(fileName))
End Function
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
Dim process As Process
Dim ProgrammID As Integer
Dim Programmname As String = "AVISO"
For Each process In System.Diagnostics.Process.GetProcesses
If (InStr(process.ProcessName, Programmname)) Then
ProgrammID = process.Id
End If
Next
AppActivate(ProgrammID)
Exit Sub
VERAG_PROG_ALLGEMEIN.cTranslateAuto_LIST.DoToAllControls(Me, "TR")
'VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle("What you deserve, is what you get World!!", "DE", "")
Exit Sub
Try
Dim MIC = New VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment
MIC.ImportShipmentMessage.ImportShipment.Shipment.company = "UK"
MIC.SaveToFile("C:\VeragTMP\Test2.xml")
'Dim MIC = VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment.LoadFromFile("C:\VeragTMP\Test.xml")
''Dim MIC = VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment.LoadFromFile("C:\VeragTMP\MicCustImportShipment_Sample.xml")
'MsgBox(MIC.ImportShipmentMessage.ImportShipment.Shipment.company)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
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)
gridAviso_SpaltenFestlegen()
tbcntrAviso.Width = Panel1.Width
End Sub
Private Sub btnSmall_Click(sender As Object, e As EventArgs) Handles btnSmall.Click
Me.showHideDetails()
btnSmall.Text = IIf(btnSmall.Text = "<", ">", "<")
End Sub
Private Sub ZeilenInFarbeEinausToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZeilenInFarbeEinausToolStripMenuItem.Click
chkFarben = Not chkFarben
End Sub
Private Sub btnKassenbuch_Click(sender As Object, e As EventArgs) Handles btnKassenbuch.Click
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
pnlOptionen.Visible = Not pnlOptionen.Visible
Case Else
Dim s As New SDL.frmSecureLoginKassenbuch
s.openKB = True
s.disableCBO = False
' End If
s.ShowDialog(Me)
End Select
' Dim ADMIN As New cADMIN
' Dim PersID As Integer = ADMIN.getValueTxtBySql("Select isnull(mit_FMZollPersID,-1) FROM tblMitarbeiter WHERE [mit_id]=" & VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID, "ADMIN")
' Dim KBNr = ADMIN.getValueTxtBySql("Select isnull(KassenbuchNr,-1) FROM Personal WHERE [ID]=" & PersID, "FMZOLL")
' If KBNr > 0 Then
' s.KassenbuchNr_tmp = KBNr
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 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 !!!!!!!!!!!!!!!!!!!!!!!!!!
End Sub
Private Sub LogoutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LogoutToolStripMenuItem.Click
frmLogin.Visible = True
closeOK = True
'Me.Close()
' Me.Dispose()
End Sub
Private Sub gridAviso_MouseMove(sender As Object, e As DataGridViewCellMouseEventArgs) Handles gridAviso.CellMouseMove ', gridMyAviso.CellMouseMove
Exit Sub ' Klappt nicht richtig
If e.RowIndex >= 0 And e.ColumnIndex >= 0 Then
sender.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.SteelBlue
sender.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.White
If sender Is gridAviso Then
sender.Rows(e.RowIndex).Cells("Status").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor
sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.BackColor = Color.SteelBlue
sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.ForeColor = Color.White
End If
End If
End Sub
Private Sub gridAviso_CellMouseLeave(sender As Object, e As DataGridViewCellEventArgs) Handles gridAviso.CellMouseLeave ', gridMyAviso.CellMouseLeave
Exit Sub ' Klappt nicht richtig
If e.RowIndex >= 0 And e.ColumnIndex >= 0 Then
sender.Rows(e.RowIndex).DefaultCellStyle.BackColor = sender.Rows(e.RowIndex).DefaultCellStyle.SelectionForeColor
sender.Rows(e.RowIndex).DefaultCellStyle.ForeColor = sender.Rows(e.RowIndex).DefaultCellStyle.SelectionBackColor
If sender Is gridAviso Then
sender.Rows(e.RowIndex).Cells("Status").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor
sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor
sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.BackColor = Color.LightGray
End If
End If
End Sub
Private Sub TabellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TabellenToolStripMenuItem.Click
Dim f As New Form
Dim c As New SDL.usrCntlAdministration
c.Dock = DockStyle.Fill
f.Controls.Add(c)
f.Width = 850
f.Height = 800
f.Show()
End Sub
Private Sub HandbuchToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HandbuchToolStripMenuItem.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "", "", "", "AVISO_Benutzerhandbuch 3.0.pdf")
DS.OPEN_SINGLE()
'
' Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
'cDATENSERVER.openDataTMP(cDATENSERVER.getTOP1Path("DOKUMENTE", "VORLAGEN", , "AVISO_Benutzerhandbuch 3.0.pdf"))
End Sub
Private Sub EinheitspapierToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EinheitspapierToolStripMenuItem.Click
' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
Me.Cursor = Cursors.WaitCursor
Dim eh As New SDL.frmEinheitspapier
eh.Show()
Me.Cursor = Cursors.Default
' End If
End Sub
Private Sub Einheitspapier0735VersandverfahrenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Einheitspapier0735VersandverfahrenToolStripMenuItem.Click
' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
Me.Cursor = Cursors.WaitCursor
Dim eh As New SDL.frmEinheitspapierVersandverfahren
eh.Show()
Me.Cursor = Cursors.Default
' End If
End Sub
Private Sub CMRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CMRToolStripMenuItem.Click
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
Me.Cursor = Cursors.WaitCursor
Dim eh As New SDL.frmCMR
eh.Show()
Me.Cursor = Cursors.Default
' End If
End Sub
Private Sub btnRg_Click(sender As Object, e As EventArgs) Handles btnRg.Click
For Each ft As Form In Application.OpenForms
If ft.GetType.ToString = "SDL.frmRechnungenSuche" Then
ft.BringToFront()
Exit Sub
End If
Next
Me.Cursor = Cursors.WaitCursor
Dim sped As New SDL.frmRechnungenSuche
sped.Show()
Me.Cursor = Cursors.Default
End Sub
Private Sub TimerUPDATE_Tick(sender As Object, e As EventArgs) Handles TimerUPDATE.Tick
Dim cADMIN As New cADMIN
' If CInt(cADMIN.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.Version2.Replace(".", "")) Then
If CInt(cADMIN.getAktuelleVersion().Replace(".", "")) > CInt(Application.ProductVersion.Replace(".", "")) Then
Label9.Visible = True
End If
End Sub
Private Sub lklErweitereSuche_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblErweitereSuche.LinkClicked
initPnlSearch()
End Sub
Sub initPnlSearch()
If pnlSearch.Visible Then
pnlSearch.Visible = False
Panel1.Height -= pnlSearch.Height
Panel1.Height += tbcntrAviso.Height
tbcntrAviso.Visible = True
Me.Refresh()
Aviso_anzeigen("")
Else
pnlSearch.Visible = True
Panel1.Height += pnlSearch.Height
Panel1.Height -= tbcntrAviso.Height
tbcntrAviso.Visible = False
Me.Refresh()
initDat()
gridAviso.Columns.Clear()
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
cbxAlle.Checked = True
cboGrenzstelle.SelectedIndex = 0
End If
If tbcntrAviso.SelectedTab IsNot tabAlle Then
Grid_aktiv = False
tbcntrAviso.SelectedIndex = 0
End If
Grid_aktiv = True
End Sub
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click, CheckBox1.CheckedChanged
Aviso_anzeigen("")
End Sub
Private Sub cbxAlle_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlle.CheckedChanged
'If cbxAlle.Checked Then
cbxErfasst.Checked = cbxAlle.Checked
cbxVorg.Checked = cbxAlle.Checked
cbxVorb.Checked = cbxAlle.Checked
cbxAnkunft.Checked = cbxAlle.Checked
cbxFreigabe.Checked = cbxAlle.Checked
cbxNE.Checked = cbxAlle.Checked
' End If
End Sub
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles btnDienstplan.Click
Dim f As New SDL.frmDienstplan
f.Show()
End Sub
Private Sub MDMParkplatzkartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MDMParkplatzkartenToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_VERAG_CARD", Me) Then
'Dim f As New SDL.frmKundenblatt()
Dim f As New Form
Dim u As New SDL.usrCntlVERAGCard
u.Dock = DockStyle.Fill
f.Controls.Add(u)
f.WindowState = FormWindowState.Maximized
f.Text = "MDM VERAG Card"
f.StartPosition = FormStartPosition.CenterScreen
f.Show()
Else
MsgBox("Sie sind für diese Funktion nicht freigeschaltet.")
End If
End Sub
Private Sub BürgschafrtsbuchungenFremdToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BürgschafrtsbuchungenFremdToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", Me) Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("IMEX_VERWALTUNG", Me) Or
VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Auswertung_Fremdbürgschaften", Me) Then
Dim f As New Form
Dim u As New SDL.usrCntlBrgBuchungenFremd
f.Size = New Size(720, 185)
f.Icon = Me.Icon
u.Dock = DockStyle.Fill
f.Controls.Add(u)
f.StartPosition = FormStartPosition.CenterScreen
f.Show(Me)
End If
End Sub
Private Sub SDLAuswertungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SDLAuswertungenToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("BH_Hauptmenü", "SDL") = 0 Then
Dim f As New Form
Dim u As New SDL.usrCntlBH
f.Size = New Size(1200, 900)
f.Icon = Me.Icon
u.Dock = DockStyle.Fill
f.Controls.Add(u)
f.StartPosition = FormStartPosition.CenterScreen
f.WindowState = FormWindowState.Normal
f.Show(Me)
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub VorauskassenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauskassenToolStripMenuItem.Click
Dim f As New SDL.frmVorauskasse
f.Show(Me)
End Sub
Private Sub VerzollungsunterlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerzollungsunterlagenToolStripMenuItem.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen)
End Sub
Private Sub ZollprogrammeNachEORIDurchsuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Click
Dim f As New SDL.frmZollprogrammeDurchsuchen
f.Show(Me)
End Sub
Private Sub SDLAbholaufträgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SDLAbholaufträgeToolStripMenuItem.Click
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") btnFakturierung
Dim f As New SDL.frmSDLAbholung(True)
f.Show(Me)
'Else
' MsgBox("Noch nicht verfügbar!")
' End If
End Sub
Private Sub SMSTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SMSTestToolStripMenuItem.Click
Dim f As New SDL.frmSendSMS("", "")
f.ShowDialog()
Exit Sub
Dim messagingService As New MessagingService("al@verag.ag", "Developer#2")
messagingService.SendMessage(New SmsMessage("00436644178557", "Hello!", "EX0252513"))
End Sub
Private Sub NeueSMSSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueSMSSendenToolStripMenuItem.Click
Dim f As New SDL.frmSendSMS("", "")
f.ShowDialog()
End Sub
Private Sub GesendeteSMSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GesendeteSMSToolStripMenuItem.Click
Dim f As New SDL.frmSMS
f.Show(Me)
End Sub
Private Sub StammreferenzenVerwaltenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StammreferenzenVerwaltenToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Stammref_Verwalten", "AVISO") Then
Dim f As New SDL.frmDakosyStammreferenzVerwalten
f.Show(Me)
End If
End Sub
Private Sub AuftragÜberwachungsdokumentToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragÜberwachungsdokumentToolStripMenuItem.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.QS_UeDok)
End Sub
Private Sub QSTeamsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QSTeamsToolStripMenuItem.Click
Dim f As New SDL.frmTeamsZuordnung()
f.Show(Me)
End Sub
Private Sub BerechtigungenNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BerechtigungenNeuLadenToolStripMenuItem.Click
showMeNew()
'VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER()
'cADMIN.checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
End Sub
Private Sub LeereRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LeereRechnungToolStripMenuItem.Click
Dim f As New SDL.frmAbrechnungsMaskeEinzeln(-1, -1)
f.Show(Me)
End Sub
Private Sub EMAILTESTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMAILTESTToolStripMenuItem.Click
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("luxbauer@gmail.com", "TESTMAIL", "TESTMAIL",, False, True, ,,, 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
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
Dim f As New frmHauptfenster
f.Show()
f.Visible = True
f.WindowState = FormWindowState.Maximized
Me.Close()
End Sub
Private Sub NeuesPasswortToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesPasswortToolStripMenuItem.Click
Dim f As New frmChangePWD(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER)
If f.ShowDialog() = DialogResult.OK Then
MsgBox("Passwort geändert!", vbInformation)
'Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch()
'frmSecureLoginKassenbuch.openKB = True
'frmSecureLoginKassenbuch.ShowDialog(Me.Parent)
'Me.Close()
End If
End Sub
Private Sub Button2_Click_2(sender As Object, e As EventArgs) Handles btnFakturierung.Click
Me.Cursor = Cursors.WaitCursor
Dim f As New SDL.frmAbrechnungsMaske
f.Show(Me)
Me.Cursor = Cursors.Default
End Sub
Private Sub ToolStripMenuItem1_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
End Sub
Private Sub SDLAuswertungenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SDLAuswertungenToolStripMenuItem1.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ZOLL_Auswertungen", "SDL") = 0 Then
Dim f As New Form
Dim u As New SDL.usrCntlZOLLAuswertungen
f.Size = New Size(1200, 900)
f.Icon = Me.Icon
u.Dock = DockStyle.Fill
f.Controls.Add(u)
f.StartPosition = FormStartPosition.CenterScreen
f.WindowState = FormWindowState.Normal
f.Show(Me)
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub btnÄndern_Click(sender As Object, e As EventArgs) Handles btnKasse_LG.Click
pnlOptionen.Visible = False
Dim s As New SDL.frmSecureLoginKassenbuch
s.openKB = True
s.KassenbuchNr_tmp = 5030
s.disableCBO = False
s.ShowDialog(Me)
End Sub
Private Sub btnLöschen_Click_1(sender As Object, e As EventArgs) Handles btnKasse_User.Click
pnlOptionen.Visible = False
Dim s As New SDL.frmSecureLoginKassenbuch
s.openKB = True
s.disableCBO = False
s.ShowDialog(Me)
End Sub
Dim secondmonitorSelected = False
Private Sub Button2_Click_3(sender As Object, e As EventArgs) Handles Button2.Click
Dim secondaryMonitor = Screen.AllScreens.FirstOrDefault(Function(x) Not x.Primary)
If secondmonitorSelected Then
secondaryMonitor = Screen.AllScreens.FirstOrDefault(Function(x) x.Primary) 'Hauptbildschirm
End If
If secondaryMonitor IsNot Nothing Then
Me.WindowState = FormWindowState.Normal
Dim newLocation = secondaryMonitor.Bounds.Location
newLocation.Offset(0, 0) ' adjust as needed
Me.Location = newLocation
Me.Refresh()
Me.WindowState = FormWindowState.Maximized
' Also see Me.Size and Me.Bounds
End If
secondmonitorSelected = Not secondmonitorSelected
End Sub
Private Sub SDLProgrammStartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SDLProgrammStartenToolStripMenuItem.Click
Dim main As New SDL.frmMain
main.Show()
End Sub
Private Sub BundesanzeigerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BundesanzeigerToolStripMenuItem.Click
Dim frmBundesanzeigerZollTarif As New frmBundesanzeigerZollTarif
If Not frmBundesanzeigerZollTarif.Visible Then
frmBundesanzeigerZollTarif.Show()
End If
frmBundesanzeigerZollTarif.BringToFront()
End Sub
Private Sub EUTaricToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EUTaricToolStripMenuItem.Click
Dim frmBundesanzeigerZollTarif As New frmBundesanzeigerZollTarif("EU")
If Not frmBundesanzeigerZollTarif.Visible Then
frmBundesanzeigerZollTarif.Show()
End If
frmBundesanzeigerZollTarif.BringToFront()
End Sub
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles tool_BRGXLS.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "ATILLA", "", "ATILLA_Bürgschaften")
DS.OPEN_SINGLE()
End Sub
Private Sub BürgschaftenExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BürgschaftenExcelToolStripMenuItem.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_CS")
'MsgBox(DS.da_id)
DS.OPEN_SINGLE_ORIG()
End Sub
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
' Process.Start("https://file.verag.ag:5001/oo/r/pkjsynkkXrTgPm85JLVFWAHem4NuF6IO")
Process.Start("https://file.verag.ag:5001/d/s/pkjsynkkXrTgPm85JLVFWAHem4NuF6IO/i4_Ss9mG9jR7hB4wStoIbzhvYzlJJJPv-BbegLJoGuQk")
'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_GmbH")
'DS.OPEN_SINGLE_ORIG()
End Sub
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_AG")
'MsgBox(DS.da_id)
DS.OPEN_SINGLE_ORIG()
End Sub
Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_IMPORT_TR")
DS.OPEN_SINGLE_ORIG()
End Sub
Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_EXPORT_TR")
DS.OPEN_SINGLE_ORIG()
End Sub
Private Sub AnnahmeblattIMPORTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnnahmeblattIMPORTToolStripMenuItem.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_IMPORT_SRB")
DS.OPEN_SINGLE_ORIG()
End Sub
Private Sub AnnahmeblattEXPORTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnnahmeblattEXPORTToolStripMenuItem.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_EXPORT_SRB")
DS.OPEN_SINGLE_ORIG()
End Sub
Private Sub ChecklisteVerwahrlagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChecklisteVerwahrlagerToolStripMenuItem.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Checkliste_Verwahrlager_WAI")
DS.OPEN_SINGLE_ORIG()
End Sub
Private Sub LKWEingetroffenNachToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LKWEingetroffenNachToolStripMenuItem.Click
Dim f As New SDL.frmLKWEingetroffen_nach
f.Show(Me)
End Sub
Private Sub TICKETWaidhausToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TICKETWaidhausToolStripMenuItem.Click
Dim frmLKWTicket As New frmLKWTicketInfo(cGlobal.Aktive_ID)
frmLKWTicket.ShowDialog()
End Sub
Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
Dim frmLKWTicket As New frmLKWTicket(cGlobal.Aktive_ID)
frmLKWTicket.ShowDialog()
End Sub
Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
Dim frmLKWTicket As New frmLKWTicket(cGlobal.Aktive_ID)
frmLKWTicket.ShowDialog()
End Sub
Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VerzollungsunterlagenBAR)
End Sub
Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click
Dim f As New SDL.frmPostEinschreiben
f.Show(Me)
End Sub
Private Sub UNISPEDToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UNISPEDToolStripMenuItem.Click
If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "UNISPED", "SUB", True)) Then
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub AMBARToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AMBARToolStripMenuItem.Click
If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "AMBAR", "AMB", True)) Then
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub VollständigesUpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VollständigesUpdateToolStripMenuItem.Click
frmLogin.UpdateAVISO(True)
End Sub
Private Sub ZollvollmachtDEFiskalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtDEFiskalToolStripMenuItem.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Fiskal)
End Sub
Private Sub ZollvollmachtATEVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtATEVToolStripMenuItem.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht_EV)
End Sub
'Private Sub TESTToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TESTToolStripMenuItem.Click
' 'VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({"C:\Users\DEVELOPER1\Desktop\Reiter.pdf"})
' ' VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder("C:\Users\DEVELOPER1\Desktop\20191017092932604.pdf", 489919001, 1234)
' TryPDF()
'End Sub
'Shared Sub TryPDF()
' ' Spire.License.LicenseProvider.SetLicenseKey("0xMEMAEABRiC6jPC4G3HMNAremyuZ15w8z1KmLKr9LnNmK8HaKpB6Q2+qrwh1uG0h5ui52KoJSRMg1suH9cs+IW+GtPapLk/UMMWbBlil6FmO/3TvpVJeLs3UetAz3YYCThbpPViCAY/6vBZrGePq9jMpST0Ln3PgEAVK6Obm4NELOjk9GNUdQGXgdCQ7ry9QIXR5DPYOSi2gSkQ+WihEx9K1hS5bl6VYOmIeAg109mcPIzdlja8O8z8wvIrqBwdivQXCN88B0NzEoBr7EiKl3mQEIcm1W8B3ppWmYPeZt3xfkR9H+xdVVfRnK8AEEgfB+/YEA9K2hQZpTPhaz3cHq31hHqeS2/NgQxaTx0/QghmPaLnoxqR2v2dDRe2oOxfXqmeHTI5e9cl8nWcgYl2fRhaDSvYYOs7GeO8tmiOlgMCdg+JO3EMQByyQ+AACEKRuTB8TI7OIU9POPs6dWaEZyu3YuWSDk4rGnCmdpJ3gHCJ7Qy9qoBtv+psnJAe/ylQCbqdvejSAKKtUonSpolK2zhqFljWqsWclgxk4NdvOd4tphER9c7H5sr2cn/SZgCXRftpk+G6zT/JPcY7LH5OP4kgQR9pH3g7O67C0YPCE7+20gLsTNaPfv7/mGoIMzTbUoteJN5D9jTLipYtfh8eLaEsLWL1rJ+sqr+MQvoYDNeWq6oG8bjkTyFe2GQkOZlBZEmpmR7W2QliMC7uSfbuJe6XHpM3dgROIluQHJQDAKge+LlYOd+QU5QPsI754noJZttSNKthzPxI9rP/FN+otlvvG8nddbx8v+PZAJ6KovIvexH7lWITw/Xrak4wzzaXCoeC5wUM2M5Y/4PL8tbKM+qIrH0kMZPHAdGIM4wJ8PA1UoEqB9Hgml6ggzk69WA1zY88W0y03js/7a/tWgwa+sEK9YK+cJXy54FpsLRFqkpSA0mOcJa3ukST9wnCOzVdN+Z4K4mCUzR++VJPVNkAA+KxEHrOOWG5kaUwUAk0sVRB8j8pjB83InevzxZJGX0+F+agjZJHQpzPdF1blS9WQqrW9p80fco3YI63i9+K78Q5TIuSlHOlPTLvuC1dxglzD3WkLsxnBd9woA5zQLVMdfYTfGntOuAEiBYqyVIMo35J/ese8SxczTqKOCcxBdLYCtE4S23yik6gL1YifmvjboavpRl6BPEf9M8iLe2xLRiJ+63rXTnexITUUYsq2XqCOj2YDdDnQywjMfnQ74WRQfD1vrGu7xcCTDCDkfql8uF2f8w00kqCS9UgpnsEuw5FoElVrgPNLvOlDSgqLdHOG0yiL9wwzPxtUZBiq6vNxkEkc+w0ZaQr012bHQoDyR/uMKPoLgmANaCb7qnsWLeoo+IrhfjwpUW6dXnIo7ENAFS0U6kjwGMrWDJU2JaH3M+8Iz//HLDO3Yr3eWC+wtt/I3Ii48Ra6CgPYTOfeRL3L+NkEBYfCVdxpQ==")
' Dim tmpFile = "C:\Users\DEVELOPER1\Desktop\Base\" & "27 AVN 83.pdf"
' 'Test file: 16 AST 87 AVIS.PDF'
' Dim oldPdf As New Spire.Pdf.PdfDocument()
' oldPdf.LoadFromFile(tmpFile)
' For i As Integer = 0 To oldPdf.Pages.Count - 1
' extractFirstPage(tmpFile, i)
' Next i
'End Sub
'Shared Sub extractFirstPage(ByRef TmpFile, i)
' Dim oldPdf As New Spire.Pdf.PdfDocument()
' oldPdf.LoadFromFile(TmpFile)
' Dim SplitPdf As New Spire.Pdf.PdfDocument()
' Dim page1 As Spire.Pdf.PdfPageBase
' page1 = SplitPdf.Pages.Add(oldPdf.Pages(0).Size, New Spire.Pdf.Graphics.PdfMargins(0))
' oldPdf.Pages(0).CreateTemplate().Draw(page1, New PointF(0, 0))
' Dim result As String = String.Format("C:\Users\DEVELOPER1\Desktop\Base\" & "output2\SplitOutput{0}.pdf", i)
' SplitPdf.SaveToFile(result, Spire.Pdf.FileFormat.PDF)
' Dim pdfNew As New Spire.Pdf.PdfDocument()
' Dim page As Spire.Pdf.PdfPageBase
' For j As Integer = 1 To oldPdf.Pages.Count - 1
' Dim pageOLD As Spire.Pdf.PdfPageBase = oldPdf.Pages(j)
' If pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle90 Then
' page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0))
' ElseIf pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle270 Then
' page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0))
' Else
' page = pdfNew.Pages.Add(pageOLD.Size, New Spire.Pdf.Graphics.PdfMargins(0))
' End If
' oldPdf.Pages(j).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
' Next
' pdfNew.SaveToFile("C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf")
' pdfNew.Dispose()
' System.IO.File.Delete(TmpFile)
' TmpFile = "C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf"
'End Sub
Private Sub cboTeams_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTeams.SelectedIndexChanged
If Grid_aktiv Then
' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
Aviso_anzeigen("")
End If
End Sub
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs)
End Sub
Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cbx_My_LKW.CheckedChanged, cbx_My_Brexit.CheckedChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged
If Grid_aktiv Then
'Wenn VERIMEX/T1 und cboMyAvisoAnzeige geändert --> Checkboxes richtig setzen
If sender Is cboMyAvisoAnzeige Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
Grid_aktiv = False
If cboMyAvisoAnzeige._value = "T1" Then
cboMy_QS.CheckState = CheckState.Checked
cboMy_VB.CheckState = CheckState.Unchecked
Else
cboMy_QS.CheckState = CheckState.Indeterminate
cboMy_VB.CheckState = CheckState.Indeterminate
End If
Grid_aktiv = True
End If
End If
'DGV anzeigen:
meineAviso_anzeigen()
End If
cboMy_QS.Visible = Not cbx_My_LKW.Checked
cboMy_VB.Visible = Not cbx_My_LKW.Checked
cboMyAvisoAnzeige.Visible = Not cbx_My_LKW.Checked
lblMySND_Anzeige.Visible = Not cbx_My_LKW.Checked
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
btnColor.Visible = Not cbx_My_LKW.Checked
Else
btnColor.Visible = False
End If
If cbx_My_LKW.Checked Then
lblMeineAviso.Text = "Meine Aviso:"
cbx_My_Brexit.Visible = False
Else
lblMeineAviso.Text = "Meine Sendungen:"
cbx_My_Brexit.Visible = True
End If
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click
Me.Cursor = Cursors.WaitCursor
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
Me.Cursor = Cursors.Default : Exit Sub
End If
Next
Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger
f.Location = Cursor.Position
f.Show(Me)
Me.Cursor = Cursors.Default
End Sub
'Private Sub TimerMessanger_NewMessages_Tick(sender As Object, e As EventArgs) Handles TimerMessanger_NewMessages.Tick
' Label20.Visible = (VERAG_PROG_ALLGEMEIN.cMessenger.UNREAD_MESAGES > 0)
' Label20.Text = (VERAG_PROG_ALLGEMEIN.cMessenger.UNREAD_MESAGES)
'End Sub
Dim Timer_REFRESH_firstTime = True
Private Sub Timer_REFRESH_Tick(sender As Object, e As EventArgs) Handles Timer_REFRESH.Tick
If Timer_REFRESH_firstTime Then
Timer_REFRESH_firstTime = False
Exit Sub
End If
Try
If frmLogin.AnmeldungOK Then
' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "XXX Chat-Nachricht!", -1) 'TEST
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = False 'NEUE NACHTICHTEN
Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
Label20.Text = newMsg.ToString
Label20.Visible = (newMsg > 0)
'VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True 'NEUE NACHTICHTEN -> falsch gesetzt?
If newMsg > 0 Then
VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True
Me.Icon = My.Resources.avisoNewMsg
Dim isshown = False
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is frmNotify Then
isshown = True
End If
Next
Dim isInFront = False
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
' If DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Focused Then
If GetActiveWindow = DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Handle Then
isInFront = True
End If
End If
Next
If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
Else
Me.Icon = My.Resources.Aviso
End If
If Label20.Visible Then Label20.BringToFront()
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub cboImEx_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboImEx.SelectedIndexChanged
If Grid_aktiv Then
Aviso_anzeigen("")
End If
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnKontakt.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Telefonliste")
'MsgBox(DS.da_id)
DS.OPEN_SINGLE()
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
SplitContainer3.Panel1Collapsed = Not SplitContainer3.Panel1Collapsed
Button10.Text = If(Button10.Text = "<", ">", "<")
End Sub
Private Sub ToolStripMenuItem6_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "IMEX", "", "Gesamtsicherheit_IMEX")
'MsgBox(DS.da_id)
DS.OPEN_SINGLE_ORIG()
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnMAVerzeichnis.Click
Me.Cursor = Cursors.WaitCursor
Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche
f.Show()
Me.Cursor = Cursors.Default
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnE_Aviso.Click, Label22.Click
Me.Cursor = Cursors.WaitCursor
Dim f As New frm_eAVISO
f.Show()
Me.Cursor = Cursors.Default
End Sub
Private Sub FRONTOFFICEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FRONTOFFICEToolStripMenuItem.Click
If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "FRONTOFFICE", "SUB", True)) Then
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub VERIMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERIMEXToolStripMenuItem.Click
If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "VERIMEX", "", True)) Then
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub SUBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SUBToolStripMenuItem.Click, SBGToolStripMenuItem.Click, WAIToolStripMenuItem.Click, NKDToolStripMenuItem.Click, NEUToolStripMenuItem.Click, AMBToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then
VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = sender.text
VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = sender.text 'Nochmal, sonst wird es durch MA geändert
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub MRNBarcodedruckToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MRNBarcodedruckToolStripMenuItem.Click
Dim MRN = InputBox("Bitte geben Sie die MRN-Nummer ein:")
SDL.FormularManagerNEU.printMRN(MRN)
End Sub
Private Sub SecretAvisoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SecretAvisoToolStripMenuItem.Click
Dim frmSecretAviso As New frmSecretAviso
frmSecretAviso.Show(Me)
End Sub
Private Sub DeutschToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeutschToolStripMenuItem.Click
If True Then
VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "DE"
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub TürkischToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TürkischToolStripMenuItem.Click
If True Then
VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "TR"
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub EnglishToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EnglishToolStripMenuItem.Click
If True Then
VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "EN"
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click
Exit Sub
setProfileImage()
cHMRC.VATTEST(InputBox("Token"))
End Sub
Sub saveLukowaPDFsFromTherefore()
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
' Dim dt As DataTable = SQL.loadDgvBySql("", "EZOLL")
Dim slist As New List(Of String)
slist.Add("510323010932")
slist.Add("510323011636")
slist.Add("510323011857")
slist.Add("510323011898")
slist.Add("510323011973")
slist.Add("510323012315")
slist.Add("510323012316")
slist.Add("510323012197")
slist.Add("510323012479")
slist.Add("510323012728")
slist.Add("510323012818")
slist.Add("510323012844")
slist.Add("510323012848")
slist.Add("510323012877")
slist.Add("510323012910")
slist.Add("510323012914")
slist.Add("510323012931")
slist.Add("510323012879")
slist.Add("510323012884")
slist.Add("510323013223")
slist.Add("510323013268")
slist.Add("510323013373")
slist.Add("510323013335")
slist.Add("510323013370")
slist.Add("510323013394")
slist.Add("510323013432")
slist.Add("510323013606")
slist.Add("510323013607")
slist.Add("510323013625")
slist.Add("510323013847")
slist.Add("510323013899")
slist.Add("510323013952")
slist.Add("510323013959")
slist.Add("510323013955")
slist.Add("510323013974")
slist.Add("510323014015")
slist.Add("510323014109")
slist.Add("510323014215")
slist.Add("510323014252")
slist.Add("510323014395")
slist.Add("510323014396")
slist.Add("510323014394")
slist.Add("510323014491")
slist.Add("510323014619")
slist.Add("510323014825")
slist.Add("510323015366")
slist.Add("510323015959")
For Each s In slist
VERAG_PROG_ALLGEMEIN.cTherefore.getFileFromFolderCat("C:\Users\DEVELOPER1\Desktop\LUKOWA\", s, "", "Import ab Jänner 2023", "Import ab Jänner 2023")
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 txtBestimmungszollstelle_VALUE_CHANGED() Handles txtBestimmungszollstelle.VALUE_CHANGED
If Grid_aktiv Then
Aviso_anzeigen("")
End If
End Sub
Private Sub AllgemeinToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllgemeinToolStripMenuItem.Click
Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/ausfuhrkontrolle_node.html")
End Sub
Private Sub AllgemeineEinführungExportkontrolleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllgemeineEinführungExportkontrolleToolStripMenuItem.Click
Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Allgemeine_Einfuehrung/allgemeine_einfuehrung_node.html")
End Sub
Private Sub BrexitToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BrexitToolStripMenuItem1.Click
Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Brexit/brexit_node.html")
End Sub
Private Sub EmbargosLänderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EmbargosLänderToolStripMenuItem.Click
Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Embargos/embargos_node.html")
End Sub
Private Sub GüterlisteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GüterlisteToolStripMenuItem.Click
Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Gueterlisten/gueterlisten_node.html")
End Sub
Private Sub RoutenverwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RoutenverwaltungToolStripMenuItem.Click
gridAviso.ClearSelection()
gridMyAviso.ClearSelection()
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 1
Dim f As New frmNCTSRouten()
f.ShowDialog(Me)
End Sub
Private Sub DTBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DTBToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then
VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = sender.text
VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = sender.text 'Nochmal, sonst wird es durch MA geändert
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnColor.Click
ctxtFarben.Show(Cursor.Position)
End Sub
Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click
btnColor.BackColor = Color.Red
meineAviso_anzeigen()
End Sub
Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
btnColor.BackColor = Color.Orange
meineAviso_anzeigen()
End Sub
Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click
btnColor.BackColor = Color.Yellow
meineAviso_anzeigen()
End Sub
Private Sub ALLEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ALLEToolStripMenuItem.Click
btnColor.BackColor = Color.White
meineAviso_anzeigen()
End Sub
Private Sub StandarddruckerWechselnToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StandarddruckerWechselnToolStripMenuItem.Click
Dim f As New frmWechselStandarddrucker()
f.ShowDialog(Me)
End Sub
Private Sub EssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EssensbestellungenToolStripMenuItem.Click
Dim f As New SDL.frmEssensbestellungen()
f.ShowDialog(Me)
End Sub
Private Sub AdministrationEssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AdministrationEssensbestellungenToolStripMenuItem.Click
Dim f As New SDL.frmEssensbestellungenAdministration()
f.ShowDialog(Me)
End Sub
Private Sub WarenorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WarenorteToolStripMenuItem.Click
Dim writepermissions As Boolean
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then writepermissions = True
Dim f As New frmWarenorte(writepermissions)
f.ShowDialog(Me)
End Sub
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles btnMitarbeiterKonto.Click
Me.Cursor = Cursors.WaitCursor
Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
f.Show()
Me.Cursor = Cursors.Default
End Sub
Private Sub CarnetTIRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CarnetTIRToolStripMenuItem.Click
Me.Cursor = Cursors.WaitCursor
Dim eh As New SDL.frmTIR
eh.Show()
Me.Cursor = Cursors.Default
End Sub
Private Sub CarnetTIRALTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CarnetTIRALTToolStripMenuItem.Click
Me.Cursor = Cursors.WaitCursor
Dim eh As New SDL.frmTIR_alt
eh.Show()
Me.Cursor = Cursors.Default
End Sub
Private Sub DatevBuchungsexportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMAILToolStripMenuItem.Click, FTPToolStripMenuItem.Click
Try
Dim Pathlist As New List(Of String)
Select Case sender.name
Case "EMAILToolStripMenuItem"
If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True,, Pathlist, False) Then
MsgBox("Buchungen wurden erfolgreich exportiert!")
Else
MsgBox("Es wurden keine Buchungen exportiert!")
Exit Sub
End If
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.To = "T.Wesolowski@hkt-tax.de"
Mail.CC = "C.Tuendermann@hkt-tax.de;D.Horneber@hkt-tax.de;IO@ambarlog.de"
Dim TextHTML = ""
TextHTML &= "Sehr geehrte Damen und Herren, <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
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 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
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
End Class
Public Class AvisoStatusFunctions
Dim Standorte As New cStandorteDAL
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim AvisoDAL As New cAvisoDAL
Dim VermerkeDAL As New cVermerkeDAL
Public Function getAnkunftDateNow() As Date
Try
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then
If Now.DayOfWeek = DayOfWeek.Sunday Then
Return CDate(Now.AddDays(1).ToShortDateString & " 06:00:00")
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG",,,,, "ERR_HFST_SETDATE")
End Try
Return Now
End Function
Public Shared Sub ummeldenAVISO(Aviso As VERAG_PROG_ALLGEMEIN.cAviso, Grenzstelle As String)
If Aviso IsNot Nothing Then
Select Case Aviso.Status
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft
'Nur wenn Ankunft --> Status auf den letzten vor Ankunft ändern
If Aviso.Vorgeschrieben <> cMeineFunktionenAVISO.LeerDatum Then
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben
ElseIf Aviso.Vorbereitet <> cMeineFunktionenAVISO.LeerDatum Then
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet
Else
Aviso.Status = Status_Erfasst
End If
End Select
End If
If Grenzstelle = "???" Then
AvisoStatusFunctions.insertVermerkAllg(Aviso.AvisoID, "LKW nach umgemeldet", 94)
Else
AvisoStatusFunctions.insertVermerkAllg(Aviso.AvisoID, "LKW nach '" & Grenzstelle & "' umgemeldet", 94)
End If
Aviso.Grenzstelle = Grenzstelle
Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
AvisoDAL.SpeichernAviso(Aviso)
End Sub
Public Sub sendAnkunftBenachrichtigung(AvisoId)
'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamID, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!")
Dim alreadySent As New List(Of Integer)
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId).Rows
SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
Next
For Each s In SENDUNG_LIST
'Keine Fremdspedition / Handling + nicht vorgeschrieben
If Not s.tblSnd_Fremdspedition And s.tblSnd_Abfertigungsart_ID <> "23" And s.tblSnd_Vorgeschrieben = Nothing Then
'Avisierer vorhanden
Dim TeamId = ""
'Zugeordnetes Team anhand von Avisierer...
If s.tblSnd_AvisiererKdNr IsNot Nothing AndAlso s.tblSnd_AvisiererKdNr > 0 Then
TeamId = SQL.getValueTxtBySql("SELECT TOP 1 kde_TeamId FROM [tblKundenErweitert] where kde_KundenNr ='" & s.tblSnd_AvisiererKdNr & "'", "FMZOLL")
End If
'...wenn nicht --> Team aus Sendung
'If TeamId = "" And If(s.tblSnd_TeamId, "") <> "" Then TeamId = s.tblSnd_TeamId 'derzeit nicht..
If TeamId <> "" Then
Dim sent = False
For Each i In alreadySent
If i = TeamId Then sent = True
Next
If Not sent Then
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamId, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!")
alreadySent.Add(TeamId)
End If
End If
End If
Next
End Sub
Public Function printQR_CODE(aviso As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean
If aviso Is Nothing Then Return False
Select Case aviso.Grenzstelle
Case "NEU", "DTB", "NKN"
Dim rpt As New rptQRSendung_VerwahrungApp(aviso, Nothing)
Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True)
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
'If printer = "" Then
SDL.cProgramFunctions.printRpt(rpt, printer, True)
Return True
' End If
End Select
Return False
End Function
Public Function setAnkunft(AvisoID) As Boolean
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
MsgBox("Keine Berechtigung!")
Return False
End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
' Taste ANKUNFT
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
MsgBox("Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt.", vbInformation)
Return False
End If
'Wenn Aviserer einem Team zugeordnet, aber noch nicht "vorgeschrieben", dann bekommt das Team eine Nachricht!
' If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then
'Sendungsbasis
' End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
"Soll es jetzt trotzdem auf ANKUNFT (zurück)gesetzt werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), "Status-Änderung")
If antwort = vbNo Then Return False
End If
Dim Rücksetzen As Boolean = False
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf &
"Soll der Status wieder auf ANKUNFT geändert werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), "Status-Änderung")
If antwort = vbNo Then Return False
'Status ist offen - jetzt auf Ankunft setzen
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then
Aviso.Vorbereitet = LeerDatum
Aviso.Vorgeschrieben = LeerDatum
End If
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft
Aviso.Freigabe = LeerDatum
Aviso.Dauer = 0
Rücksetzen = True
Else
Aviso.Ankunft = getAnkunftDateNow()
End If
'E-Mail
sendAnkunftBenachrichtigung(Aviso.AvisoID)
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then
Rücksetzen = True
End If
'Fahrer Handy-Nr.
Dim frmAnkunftSetzen As New frmAnkunftSetzen(Aviso)
If frmAnkunftSetzen.ShowDialog() = DialogResult.Cancel Then
Return False 'Abbrechen
End If
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
' End If
'End If
' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then
If Aviso.Grenzstelle <> VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Then
Dim f As New frmAnkunftAendern(Aviso)
If f.ShowDialog() Then
Aviso.Grenzstelle = f.AVISO.Grenzstelle
End If
End If
End If
' End If
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft
Aviso.Änderungen = "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf ANKUNFT gesetzt", "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
If Not Rücksetzen Then
'nach dem erfolgreichem Speichern wird jetzt noch ein automatisches Mail für den Frächter und Auftraggeber erstellt
'Mail-Adressen aus Firmentabelle holen
SendAnkunftEmail(Aviso)
End If
'Verwahrungs-Ticket Drucken, wenn parameter
printQR_CODE(Aviso)
'Ticket Drucken, wenn parameter
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("TICKET_ANKUNFT", "AVISO") Then
Dim rpt As New rptQRAviso(Aviso)
Dim printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
If printer <> "" Then
SDL.cProgramFunctions.printRpt(rpt, printer, True)
Else
SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
End If
End If
'Wenn Atilla, dann Eintrag anzeigen, um zu korrigieren und Aktendeckel auszudrucken
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then 'And VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Then
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim f As New frmEintragAviso
f.AktenzetteldruckenVisible = True
f.ShowDialog(frmGrayOut)
frmGrayOut.Close()
End If
Return (tmpid > 0)
End Function
Shared Sub SendAnkunftEmail(AVISO As cAviso, Optional ForceMail As String = "")
Dim AvisoDAL As New cAvisoDAL
Dim art = 1
If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 3
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "ATILLA"
'Case "VERAG", "IMEX"
Case Else
Dim EMails As String = ""
Dim EMails_CC As String = ""
Dim EMails_BCC As String = ""
Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Auftraggeber_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Auftraggeber_KdNr, ForceMail, "AVISIERER")
'Frächter und Avisierer werden getrennt voneinander eingelesen, damit es kein Problem mit gesendeten VBD/Steuerbescheiden gibt!
If AVISO.Frächter_KdNr <> AVISO.Auftraggeber_KdNr Then
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Frächter_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr, ForceMail, "FRÄCHTER")
End If
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AVISO.AvisoID).Rows
SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
Next
For Each s In SENDUNG_LIST
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_EmpfaengerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_EmpfaengerKdNr, ForceMail, "EMPFÄNGER")
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AuftraggeberKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr, ForceMail, "AUFTRAGGEBER")
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_FrachtfuehrerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_FrachtfuehrerKdNr, ForceMail, "FRÄCHTER")
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AvisiererKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AvisiererKdNr, ForceMail, "AVISIERER")
Next
End Select
End Sub
'freigabe
Shared Sub SendFreigabeEmail(AVISO As cAviso, Optional ForceMail As String = "")
Dim AvisoDAL As New cAvisoDAL
Dim art = 2
If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 4
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "ATILLA"
'Case "VERAG", "IMEX"
Case Else
'Mail-Adressen aus Firmentabelle holen
Dim EMails As String = ""
Dim EMails_CC As String = ""
Dim EMails_BCC As String = ""
Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Auftraggeber_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Auftraggeber_KdNr, ForceMail)
'Frächter und Avisierer werden getrennt voneinander eingelesen, damit es kein Problem mit gesendeten VBD/Steuerbescheiden gibt!
If AVISO.Frächter_KdNr <> AVISO.Auftraggeber_KdNr Then
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Frächter_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr, ForceMail)
End If
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AVISO.AvisoID).Rows
SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
Next
For Each s In SENDUNG_LIST
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_EmpfaengerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_EmpfaengerKdNr, ForceMail)
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AuftraggeberKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr, ForceMail)
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_FrachtfuehrerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_FrachtfuehrerKdNr, ForceMail)
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AvisiererKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AvisiererKdNr, ForceMail)
Next
End Select
End Sub
Shared Sub SendStatusEmail(AVISO As cAviso, Optional ForceMail As String = "")
Dim AvisoDAL As New cAvisoDAL
Dim art = 5
' If AVISO.ImEx = "EXPORT" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then art = 4
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
'NED!
'Case "VERAG", "IMEX"
Case "VERAG", "IMEX"
'Mail-Adressen aus Firmentabelle holen
Dim EMails As String = ""
Dim EMails_CC As String = ""
Dim EMails_BCC As String = ""
Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Auftraggeber_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Auftraggeber_KdNr, ForceMail)
'Frächter und Avisierer werden getrennt voneinander eingelesen, damit es kein Problem mit gesendeten VBD/Steuerbescheiden gibt!
If AVISO.Frächter_KdNr <> AVISO.Auftraggeber_KdNr Then
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(AVISO.Frächter_KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, AVISO.Frächter_KdNr, ForceMail)
End If
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AVISO.AvisoID).Rows
SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
Next
For Each s In SENDUNG_LIST
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_EmpfaengerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_EmpfaengerKdNr, ForceMail)
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AuftraggeberKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AuftraggeberKdNr, ForceMail)
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_FrachtfuehrerKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_FrachtfuehrerKdNr, ForceMail)
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(s.tblSnd_AvisiererKdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, s.tblSnd_AvisiererKdNr, ForceMail)
Next
End Select
End Sub
Shared Sub SendStatusEmailByKdNr(AVISO As cAviso, KdNr As Integer)
Dim AvisoDAL As New cAvisoDAL
Dim art = 5
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
'NED!
Case "VERAG", "IMEX"
'Mail-Adressen aus Firmentabelle holen
Dim EMails As String = ""
Dim EMails_CC As String = ""
Dim EMails_BCC As String = ""
Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
If Emails_list_sent.LIST.Count > 0 Then
Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, KdNr, "")
' VERAG_PROG_ALLGEMEIN.cAvisoStatusMails.INSERT_INTO(AVISO.AvisoID, KdNr, art)
End If
End Select
End Sub
Shared Sub Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, KundenNr, Optional ForceMail = "", Optional artKunde = "")
'art = 1 : Ankunft
'art = 2 : Freigabe
'art = 3 : Ankunft Export
'art = 4 : Freigabe Export
'art = 5 : Status
If KundenNr Is Nothing OrElse Not IsNumeric(KundenNr) Then Exit Sub
If KundenNr <= 0 Then Exit Sub
If art = 2 Then ' Freigabe
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr)
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr)
If KUNDE.EmailFreigabe And KUNDE_ERW.EmailFreigabe_Art = "BLG" Then
Exit Sub ' Keine Freigabe-Mail, wenn "BELEG" bei Freigabe gewählt wurde --> Der STB wird indem Fall pro Beleg geschickt.
End If
End If
If art = 4 Then ' Freigabe Export
'Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr)
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr)
If KUNDE_ERW.EmailFreigabe_Export And KUNDE_ERW.EmailFreigabe_Export_Art = "BLG" Then
Exit Sub ' Keine Freigabe-Mail, wenn "BELEG" bei Freigabe gewählt wurde --> Der STB wird indem Fall pro Beleg geschickt.
End If
End If
Dim Standorte As New cStandorteDAL
'nur Mail erstellen, falls mindestens ein Empfänger vorhanden
If EMails <> "" Or EMails_CC <> "" Or EMails_BCC <> "" Then
Dim hBetreff As String = If(art = 1 Or art = 3, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Betreff, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Betreff)
Dim hBody As String = If(art = 1 Or art = 3, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Text, VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Text)
Select Case art 'DEFAULT!!
Case 1, 3
hBetreff = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Betreff
hBody = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Text
Case 2, 4
hBetreff = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Betreff
hBody = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Text
Case 5
hBetreff = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Status_Betreff
hBody = VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Status_Text
End Select
'jetzt nachsehen, ob indiv. eMail-Text für Standort vorhanden
Dim GrenzstelleMail = AVISO.Grenzstelle.replace("?", "")
GrenzstelleMail = GrenzstelleMail.replace("WO_GE", "") 'KEINE MAIL
GrenzstelleMail = GrenzstelleMail.replace("WO_KITA", "") 'KEINE MAIL
'Prüfen ob WO oder ZA, in dem Fall keine Mail senden
Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(GrenzstelleMail)
If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
If GRZ.grz_Zollamt Then GrenzstelleMail = "" 'KEINE MAIL
If GRZ.grz_Warenort Then GrenzstelleMail = "" 'KEINE MAIL
End If
If GrenzstelleMail = "" And art <> 5 Then
'----------------------------------------
Exit Sub ' Wenn Grenzstelle leer / ??? --> Keine MAIL!
'If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then GrenzstelleMail = "FO"
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then GrenzstelleMail = "UNI"
If GrenzstelleMail <> "" Then
Dim Standort As New cStandort
Standort = Standorte.LesenStandort(0, GrenzstelleMail, "")
If Not IsNothing(Standort) Then
Select Case art
Case 1, 3
If Standort.eMail_Ankunft_Betreff <> "" Then
hBetreff = Standort.eMail_Ankunft_Betreff
hBody = Standort.eMail_Ankunft_Text
End If
Case 2, 4
If Standort.eMail_Freigabe_Betreff <> "" Then
hBetreff = Standort.eMail_Freigabe_Betreff
hBody = Standort.eMail_Freigabe_Text
End If
Case 5
If Standort.eMail_Status_Betreff <> "" Then
hBetreff = Standort.eMail_Status_Betreff
hBody = Standort.eMail_Status_Text
End If
End Select
End If
End If
Dim anhaenge As New List(Of String)
hBetreff = Platzhalter_ersetzen(hBetreff, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, 0, AVISO, KundenNr, anhaenge, artKunde) ' art 0 damit nicht beim betreff auch die DY-Daten durchsuht werden und die Sendungsliste erstellt wird.
hBody = Platzhalter_ersetzen(hBody, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, art, AVISO, KundenNr, anhaenge, artKunde)
hBody = hBody.Replace("%0", "<br>")
hBody = hBody.Replace("%Firma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' gibts noch nicht!
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA '= "IMEX"
' Case "VERAG"
' Case "UNISPED"
' hBody = hBody.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'hier der Ersatz
'End Select
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL, art,,, KundenNr, AVISO.AvisoId)
API.api_EMail = EMails
API.api_EMailCC = EMails_CC
API.api_EMailBCC = EMails_BCC
API.api_EMailSubject = hBetreff
API.api_EMailText = hBody
API.api_EMailAttCnt = anhaenge.Count
If ForceMail <> "" Then
Dim mailsTXT = ""
mailsTXT &= "TO: " & EMails & "<br>"
mailsTXT &= "CC: " & EMails_CC & "<br>"
mailsTXT &= "BCC: " & EMails_BCC & "<br><br>"
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(ForceMail, hBetreff, mailsTXT & hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, "", "", anhaenge, art) Then
API.UPDTAE_OK()
Else
API.UPDTAE_ERR()
End If
Else
EMails_BCC &= If(EMails_BCC <> "", ";", "") & VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getBCCEmail() 'Damit Mails gespeichert werden.
Dim MailArt = ""
Select Case art
Case 1, 3 : MailArt = "Ankunft"
Case 2, 4 : MailArt = "Freigabe"
Case 5 : MailArt = "Status"
End Select
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, hBetreff, hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, EMails_CC, EMails_BCC, anhaenge, art) Then
API.UPDTAE_OK()
Dim txt = " E-Mail gesendet an: " & EMails
If EMails_CC.ToString.Trim <> "" Then txt &= " CC: " & EMails_CC
If EMails_BCC.ToString.Trim <> "" Then txt &= " BCC: " & EMails_BCC
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, MailArt & txt, 46, , "(AUTO)")
Else
API.UPDTAE_ERR()
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & MailArt & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)")
End If
End If
'OLD ----------------------------------
If False Then
Dim hMail As String = "mailto:" & EMails & "?subject=" & hBetreff
If EMails_CC.ToString.Trim <> "" Then hMail += "&CC=" & EMails_CC
If EMails_BCC.ToString.Trim <> "" Then hMail += "&BCC=" & EMails_BCC
If hBody <> "" Then hMail += "&Body=" & hBody
Try
System.Diagnostics.Process.Start(hMail)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW, "Beim Mail-Versenden ist ein Fehler aufgetreten")
End Try
End If
' ----------------------------------
End If
End Sub
Public Function setVorbereitet(AvisoID) As Boolean
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
' MsgBox("Keine Berechtigung!")
' Return False
'End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
' Taste VORBEREITET
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
MsgBox("Dieses LKW-Aviso ist bereits auf VORBEREITET gesetzt.", vbInformation)
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then
msg = "Dieses LKW-Aviso hat bereits den Status 'Vorgeschrieben'." & vbCrLf & vbCrLf &
"Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
'SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorgeschrieben=null WHERE tblSnd_Vorgeschrieben is not null AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO")
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
"Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf &
"Soll der Status wieder auf VORBEREITET geändert werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet
Aviso.Freigabe = LeerDatum
Aviso.Ankunft = LeerDatum
Aviso.Vorgeschrieben = LeerDatum
Aviso.Vorbereitet = Now
Aviso.Dauer = 0
Else
Aviso.Vorbereitet = Now
' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
msg = "Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt." & vbCrLf & vbCrLf &
"Soll der Status wieder auf VORBEREITET geändert werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet
Aviso.Freigabe = LeerDatum
Aviso.Ankunft = LeerDatum
Aviso.Vorgeschrieben = LeerDatum
Aviso.Vorbereitet = Now
Aviso.Dauer = 0
Else
Aviso.Vorbereitet = Now
' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle
End If
'Status ist offen - jetzt auf VORBEREITET setzen
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet
Aviso.Änderungen = "auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf VORBEREITET gesetzt", "auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
' SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorbereitet=getDate() WHERE tblSnd_Vorbereitet IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO")
If False Then
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, Aviso.AvisoID)
For Each s In SENDUNG_LIST
If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(s.FilialenNr, False) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
If s.tblSnd_Vorbereitet Is Nothing Then
s.tblSnd_Vorbereitet = Now
End If
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "" Then
'Else
' If s.tblSnd_VG_MA Is Nothing Then
' s.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
' s.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
' s.LetzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
' End If
'End If
s.SAVE()
End If
Next
End If
Return (tmpid > 0)
End Function
Public Function setAnINDONESIEN(AvisoID) As Boolean
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
' MsgBox("Keine Berechtigung!")
' Return False
'End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then
MsgBox("Dieses LKW-Aviso ist bereits auf 'AN INDONESIEN' gesetzt.", vbInformation)
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
MsgBox("Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt.")
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
"Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
End If
'Status ist offen - jetzt auf 'AN INDONESIEN' setzen
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
Aviso.Änderungen = "auf 'AN INDONESIEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf 'AN INDONESIEN' gesetzt", "auf 'AN INDONESIEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Return (tmpid > 0)
End Function
Public Function setAnVERIMEX(AvisoID) As Boolean
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
' MsgBox("Keine Berechtigung!")
' Return False
'End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Then
MsgBox("Dieses LKW-Aviso ist bereits auf 'AN VERIMEX' gesetzt.", vbInformation)
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
MsgBox("Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt.")
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
"Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
End If
'Status ist offen - jetzt auf 'AN VERIMEX' setzen
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX
Aviso.Änderungen = "auf 'AN VERIMEX' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf 'AN VERIMEX' gesetzt", "auf 'AN VERIMEX' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Return (tmpid > 0)
End Function
Public Function setVorgeschreiben(AvisoID) As Boolean
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
MsgBox("Keine Berechtigung!")
Return False
End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
' Taste VORGESCHRIEBEN
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then
MsgBox("Dieses LKW-Aviso ist bereits auf VORGESCHRIEBEN gesetzt.", vbInformation)
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
"Soll es jetzt trotzdem auf VORGESCHRIEBEN (zurück)gesetzt werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf &
"Soll der Status wieder auf VORGESCHRIEBEN geändert werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben
Aviso.Freigabe = LeerDatum
Aviso.Ankunft = LeerDatum
Aviso.Dauer = 0
Else
Aviso.Vorgeschrieben = Now
' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
msg = "Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt." & vbCrLf & vbCrLf &
"Soll der Status wieder auf VORGESCHRIEBEN geändert werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben
Aviso.Freigabe = LeerDatum
Aviso.Ankunft = LeerDatum
Aviso.Dauer = 0
Else
Aviso.Vorgeschrieben = Now
' Aviso.Grenzstelle = cGlobal.AktiverMitarbeiter.Grenzstelle
End If
'Status ist offen - jetzt auf VORGESCHRIEBEN setzen
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben
Aviso.Änderungen = "auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf VORGESCHRIEBEN gesetzt", "auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
'SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorgeschrieben=getDate() WHERE tblSnd_Vorgeschrieben IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO")
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "" Then
'Else
' SQL.doSQL("UPDATE tblSendungen SET tblSnd_VG_MA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "',LetzterMitarbeiterId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "',LetzterMitarbeiter='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "' WHERE tblSnd_VG_MA IS NULL AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO")
'End If
If False Then
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, Aviso.AvisoID)
For Each s In SENDUNG_LIST
If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(s.FilialenNr, False) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
If s.tblSnd_Vorgeschrieben Is Nothing Then
s.tblSnd_Vorgeschrieben = Now
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "" Then
Else
If s.tblSnd_VG_MA Is Nothing Then
s.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
s.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
s.LetzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
End If
End If
s.SAVE()
End If
Next
End If
vermerkVorgeschreiben(AvisoID)
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "VERAG", "ATILLA"
' Dim frmInsertVermerkFach As New frmInsertVermerkFach(Aviso.AvisoID)
' frmInsertVermerkFach.ShowDialog()
' 'Case "IMEX"
' ' Dim frmInsertVermerkFach As New frmInsertVermerkFachIMEX(Aviso.AvisoID)
' ' frmInsertVermerkFach.ShowDialog()
'End Select
Return (tmpid > 0)
End Function
Sub vermerkVorgeschreiben(AvisoID)
Dim VermerkeDAL As New cVermerkeDAL
Dim myVermerk As New cVermerk
myVermerk.AvisoID = AvisoID
myVermerk.Datum = Now
myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = "Akt vorgeschrieben" : myVermerk.VermerkCodeId = 35
VermerkeDAL.SpeichernVermerk(myVermerk)
End Sub
Public Function setErfasst(AvisoID) As Boolean
' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Erfasst", "AVISO") Then
MsgBox("Keine Berechtigung!")
Return False
End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
'Taste ERFASST
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation)
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation)
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then
MsgBox("Dieses LKW-Aviso ist bereits auf ERFASST gesetzt.", vbInformation)
Return False
End If
Dim tmpid = -1
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
msg = "Dieses LKW-Aviso ist bereits auf VORBEREITET gesetzt." & vbCrLf & vbCrLf &
"Soll der Status wieder auf ERFASST geändert werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst
Aviso.Ankunft = LeerDatum
Aviso.Vorbereitet = LeerDatum
Aviso.Vorgeschrieben = LeerDatum
Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then
msg = "Dieses LKW-Aviso ist bereits auf VORGESCHRIEBEN gesetzt." & vbCrLf & vbCrLf &
"Soll der Status wieder auf ERFASST geändert werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst
Aviso.Ankunft = LeerDatum
Aviso.Vorbereitet = LeerDatum
Aviso.Vorgeschrieben = LeerDatum
Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
msg = "Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt." & vbCrLf & vbCrLf &
"Soll der Status wieder auf ERFASST geändert werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst
Aviso.Ankunft = LeerDatum
Aviso.Vorbereitet = LeerDatum
Aviso.Vorgeschrieben = LeerDatum
Aviso.Änderungen = "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf ERFASST gesetzt", "auf ERFASST gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
Return (tmpid > 0)
End Function
Public Function setAbgeschlossen(AvisoID As Integer, value As Boolean) As Boolean
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
MsgBox("Keine Berechtigung!")
Return False
End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then
'Prüfung
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
If value Then
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If SQL.getValueTxtBySql("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") = 0 Then
If vbYes <> MsgBox("Keine Speditionbucheinträge vorhanden!" & vbNewLine & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then
Return False
End If
End If
Aviso.Abgeschlossen = value
AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Else
Aviso.Abgeschlossen = value
AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
Else
If value Then
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows
If Not CBool(r(0)) Then
MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!")
Return False
End If
Next
Aviso.Abgeschlossen = value
AvisoDAL.SpeichernAviso(Aviso)
'--> Nicht mehr benötigt, alte Archiv Software IMEX
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "IMEX" : createNLC(Aviso)
'End Select
AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
'Benachrichtigungen erledigen
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False)
Else
Aviso.Abgeschlossen = value
AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
End If
Return True
Else
MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation)
Return False
End If
Return True
End Function
Function createNLC(aviso As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean
Dim haserror = True
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, aviso.AvisoID)
For Each s In SENDUNG_LIST
If Not createNLCSimple(aviso, s) Then haserror = False
Next
Return haserror
End Function
Function createNLCSimple(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) As Boolean
Try
Dim resPath As String = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\")
Dim nlcString As String = My.Computer.FileSystem.ReadAllText(resPath & "\MUSTER.NLC", System.Text.Encoding.Default)
nlcString = nlcString.Replace("%Empfaenger%", SENDUNG.tblSnd_Empfaenger)
nlcString = nlcString.Replace("%Versender%", SENDUNG.tblSnd_Absender)
nlcString = nlcString.Replace("%Fraechter%", AVISO.Frächter)
nlcString = nlcString.Replace("%Auftraggeber%", SENDUNG.tblSnd_Auftraggeber)
nlcString = nlcString.Replace("%AvisNr%", AVISO.AvisoID)
nlcString = nlcString.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
If AVISO.Ankunft > CDate("01.01.2001") Then nlcString = nlcString.Replace("%Ankunft%", AVISO.Ankunft)
If AVISO.Freigabe > CDate("01.01.2001") Then nlcString = nlcString.Replace("%Datum%", AVISO.Freigabe.ToShortDateString)
nlcString = nlcString.Replace("%PosNr%", SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr)
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
My.Computer.FileSystem.WriteAllText("C:\Temp\" & SENDUNG.FilialenNr & "_" & SENDUNG.AbfertigungsNr & ".nlc", nlcString, False)
Else
My.Computer.FileSystem.WriteAllText("\\192.168.1.20\daten\PronobisApps\JobExtender\Jobs\UpdIdx_Abfertigung\" & SENDUNG.FilialenNr & "_" & SENDUNG.AbfertigungsNr & ".nlc", nlcString, False)
End If
Console.ReadLine()
Return True
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
End Function
Public Function setNichtEingeftroffen(AvisoID, Optional geloescht = False) As Boolean
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
MsgBox("Keine Berechtigung!")
Return False
End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
'Taste NICHT EINGETROFFEN
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation)
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation)
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
MsgBox("Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt.", vbInformation)
Return False
End If
Dim tmpid = -1
' If Aviso.Status = VERAG_PROG_ALLGEMEIN.cglobal.Status_Erfasst Then
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
tmpid = AvisoDAL.SpeichernAviso(Aviso)
If geloescht Then
Aviso.Änderungen = "auf 'Gelöscht' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
AvisoDAL.addAenderung(tmpid, "auf 'Gelöscht' gesetzt", "auf 'Gelöscht' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Else
Aviso.Änderungen = "auf LKW nicht eingetroffen gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
AvisoDAL.addAenderung(tmpid, "auf LKW nicht eingetroffen gesetzt", "auf LKW nicht eingetroffen gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
' End If
Return (tmpid > 0)
End Function
Public Function setFreigabe(AvisoID As Integer, CONTROL As Control, Optional allowEveryState As Boolean = False) As Boolean
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
MsgBox("Keine Berechtigung!")
Return False
End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
'Prüfung kassieren:
Dim CURRENT_INDEX = -1
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoID)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim zuKassieren As Double = 0
Dim belegVorhanden As Boolean = True
Dim found As Boolean = False
'Dim zuKassBelege As String = ""
For Each S In SENDUNG_LIST 'LÄDT alle SENDUNGSDATEN
If If(S.tblSnd_BARzuKassieren, 0) > 0 Then
zuKassieren += S.tblSnd_BARzuKassieren
If S.FilialenNr > 0 And S.AbfertigungsNr > 0 Then
Try
If SQL.getValueTxtBySql("SELECT Count(*) FROM [tblEABelegnummer] as b INNER JOIN [tblEABelegposition] as p ON (b.BelegNr = p.BelegNr AND b.BelegDat = p.BelegDat AND b.Benutzer = p.Benutzer AND b.Niederlassung = p.Niederlassung AND b.Mandant = p.Mandant) where ((b.AbfertigungsNr='" & S.AbfertigungsNr & "' and b.FilialenNr='" & S.FilialenNr & "') or (p.AbfertigungsNr='" & S.AbfertigungsNr & "' and p.FilialenNr='" & S.FilialenNr & "')) and storniert=0 and gebuchtstorno=0 ", "FMZOLL") > 0 Then
found = True
Else
belegVorhanden = False
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
End If
Next
If zuKassieren > 0 Then
If Not found Or Not belegVorhanden Then
If vbYes <> MsgBox("BAR-Beleg fehlt!" & vbNewLine & "Wurde der Betrag '" & zuKassieren.ToString("C2") & "' (Summe) bereits kassiert?", vbYesNoCancel, "Bar kassieren") Then
Return False
End If
End If
End If
'Taste FREIGABE
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation)
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation)
Return False
End If
If allowEveryState = False And (Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben) Then
MsgBox("Dieses LKW-Aviso wurde noch nicht auf ANKUNFT gesetzt und kann deshalb nicht auf FREIGABE gesetzt werden.", vbInformation)
Return False
End If
Dim tmpid = -1
'Status ist Ankunft - jetzt auf Freigabe setzen und Dauer berechnen
If allowEveryState Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
If Not setFreigabeMsg(Aviso) Then
Return False
End If
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
Aviso.Freigabe = Now
Aviso.Dauer = CInt(DateDiff(DateInterval.Minute, Aviso.Ankunft, Now))
If Aviso.Dauer = 0 Then Aviso.Dauer = 1 'Sonderfall, wenn Ankunft und Freigabe hintereinander gedrückt wird (z.b. vergessen)
Aviso.Änderungen = "auf FREIGABE gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
If Not Aviso.LKW_fertig Then
Aviso.LKW_fertig = True
Aviso.Änderungen = "LKW ist fertig - nicht gesetzt, deshalb automatisch gesetzt mit FREIGABE" & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
End If
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
' End If
'End If
Aviso.FreigabeFiliale = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE
'Speditionsbuch aktualisieren
SQL.doSQL("UPDATE Speditionsbuch SET FilialenNrHandling='" & VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE & "' WHERE AvisoId='" & Aviso.AvisoID & "'", "FMZOLL")
tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf FREIGABE gesetzt", "auf FREIGABE gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
If Not Aviso.LKW_fertig Then
AvisoDAL.addAenderung(tmpid, "LKW ist fertig - nicht gesetzt", "LKW ist fertig - nicht gesetzt, deshalb automatisch gesetzt mit FREIGABE")
End If
'Wenn DE oder AT Zoll eingereicht -> automatisch fertigstellen XXXXXXXXXX
' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17))
If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 17) Then
' MsgBox(AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18))
If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 18) Then
Dim myVermerk As New cVermerk
myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = "DE Zoll fertig" : myVermerk.VermerkCodeId = 18
VermerkeDAL.SpeichernVermerk(myVermerk)
End If
End If
If AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 19) Then
If Not AvisoDAL.VermerkExistsInAvisoByID(Aviso.AvisoID, 20) Then
Dim myVermerk As New cVermerk
myVermerk.AvisoID = Aviso.AvisoID : myVermerk.Datum = Now
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = "AT Zoll fertig" : myVermerk.VermerkCodeId = 20
VermerkeDAL.SpeichernVermerk(myVermerk)
End If
End If
'nach dem erfolgreichem Speichern wird jetzt noch ein automatisches Mail für den Frächter und Auftraggeber erstellt
SendFreigabeEmail(Aviso)
VERAG_PROG_ALLGEMEIN.cMessenger.SET_LKWCHAT_INAKTIV(Aviso.AvisoID)
If True Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", CONTROL.FindForm) Then
Dim doAutoNacherf = True ' (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel))
If doAutoNacherf Then
AUTONACHERFASSUNG(CONTROL, AvisoID)
End If
End If
End If
End If
Return (tmpid > 0)
End Function
Function setFreigabeMsg(AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean
Dim text = ""
Dim text_Freigabe = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA"
'Case "VERAG", "IMEX", "IMEX", "IMEX"
Case Else
Try
If IsNumeric(AVISO.Auftraggeber_KdNr) Then
Dim cADMIN As New cADMIN
text = cADMIN.getValueTxtBySql("SELECT DokumenteLKWFreigabe FROM Kunden WHERE KundenNr=" & AVISO.Auftraggeber_KdNr, "FMZOLL")
End If
Catch ex As Exception
End Try
End Select
If AVISO.Freigabe_Info <> "" Then
text_Freigabe &= AVISO.Freigabe_Info
End If
If True Then ' If text <> "" Or text_Freigabe <> "" Then
Dim f As New frmFreigabeSetzen(AVISO)
f.rtbDokumente.Text = text
f.rtbSonstigeInfo.Text = text_Freigabe
If AVISO.Grenzstelle = "SUB" Then ' Nur in Suben!
f.cbxInfoblattFurDigitalabfertigungDrucken.Checked = (SQL.DLookup("COUNT(*)", "Vermerke", " AvisoID=" & AVISO.AvisoID & " and VermerkeCode=82", "AVISO", 0) > 0)
End If
If f.ShowDialog() = DialogResult.Cancel Then
Return False
End If
End If
Return True
End Function
Shared Sub printFinish(myAviso As VERAG_PROG_ALLGEMEIN.cAviso)
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_Freigabe_FinishDigital") Then
If myAviso.Grenzstelle = "SUB" Then ' Nur in Suben!
If (SQL.DLookup("COUNT(*)", "Vermerke", " AvisoID=" & myAviso.AvisoID & " and VermerkeCode=82", "AVISO", 0) > 0) Then
Dim path = SDL.FormularManagerNEU.Finish_AVISO(myAviso)
Dim oPS As New System.Drawing.Printing.PrinterSettings
If path <> "" Then
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, oPS.PrinterName)
MsgBox("Finish-Zettel wird gedruckt!")
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
Public Sub AUTONACHERFASSUNG(CONTROL As Control, AvisoID As Integer)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
MsgBox("Keine Berechtigung!")
Exit Sub
End If
Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT
Try
CONTROL.FindForm.Cursor = Cursors.WaitCursor
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID).Rows
SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
Next
For Each s In SENDUNG_LIST
If s.tblSnd_Abfertigungsart_ID = 23 Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID Then
Dim Personalnummer = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID
Dim SPEDITIONSBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(s.FilialenNr, s.AbfertigungsNr)
If Not SPEDITIONSBUCH.hasEntry Then
Dim notFound As Boolean = True
SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, AvisoID, s.tblSnd_SendungID, "", "", "", "", "", notFound, True, Personalnummer)
If ZOLL_IMPORT.checkIfAutoOK Then
If SPEDITIONSBUCH.SAVE() Then
s.tblSnd_SpeditionsbuchEingetragen = 1
s.SAVE()
End If
End If
Else
Dim SPEDBUCH_LIST As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList(s.FilialenNr, s.AbfertigungsNr) 'Liste laden, falls merhrere Einträge
If SPEDBUCH_LIST IsNot Nothing AndAlso SPEDBUCH_LIST.LIST IsNot Nothing Then
For Each SB In SPEDBUCH_LIST.LIST
If Not SPEDITIONSBUCH.Bar Then
ZOLL_IMPORT.SetBarKassiert(SB) ' BAR-Häckchen setzen, wenn kassiert wurde! (durch auto-Nacherfassung of nicht gesetzt)
End If
Next
End If
End If
'If ZOLL_IMPORT.AUTO_IMPORT(s.tblSnd_SendungID) Then
' s.tblSnd_SpeditionsbuchEingetragen = 1
' s.SAVE()
'End If
End If
End If
Next
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
CONTROL.FindForm.Cursor = Cursors.Default
End Sub
Public Function AktUebernehmen(AvisoID, Optional askSendungenUebernehmen = False, Optional checkStatus = True, Optional nurLeereSendungenUebernehmen = False) As Boolean
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
' MsgBox("Keine Berechtigung!")
' Return False
'End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
If checkStatus Then
'Taste Akt übernehmen
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
MsgBox("Dieses LKW-Aviso ist bereits freigegeben.", vbInformation)
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
MsgBox("Dieses LKW-Aviso ist bereits auf 'LKW nicht eingetroffen' gesetzt.", vbInformation)
Return False
End If
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
Aviso.Buero = VERAG_PROG_ALLGEMEIN.cAllgemein.BÜRO
End If
'Status ist Ankunft, Vorbereitet, Vorgeschrieben oder Erfasst - aktiver Mitarbeiter wird geändert
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
' End If
'End If
Aviso.Änderungen = "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "Akt übernommen", "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
'Benachrichtigungen erledigen 'nicht mehr, 16.07.2020
'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, True)
If askSendungenUebernehmen Or nurLeereSendungenUebernehmen Then
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
If nurLeereSendungenUebernehmen Then
For Each s In SENDUNG_LIST
If s.LetzterMitarbeiterId Is Nothing OrElse CInt(s.LetzterMitarbeiterId) <= 0 Then
SendungUebernehmen(s.tblSnd_SendungID, AvisoID)
End If
Next
Else
Dim alleAkten = False
If askSendungenUebernehmen Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
For Each s1 In SENDUNG_LIST
If s1.LetzterMitarbeiterId IsNot Nothing AndAlso s1.LetzterMitarbeiterId <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
Select Case MsgBox("Möchten Sie alle Sendungen übernehmen?", vbYesNoCancel)
Case vbYes : alleAkten = True
Case vbCancel : Return False
End Select
Exit For
End If
Next
End If
End If
If alleAkten Then
For Each s In SENDUNG_LIST
' If s.LetzterMitarbeiterId IsNot Nothing Then
SendungUebernehmen(s.tblSnd_SendungID, AvisoID)
' End If
Next
End If
End If
End If
Try
If frmHauptfenster.pnlDetailsRechts.Controls.Count > 0 Then
Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoID)
'Case "VERAG"
' If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
' DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
' End If
Case "ATILLA"
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", "AVISO") Then
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID = AvisoID Then
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).showInfo("Akt übernommen", 2)
End If
End If
Case Else
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
End If
End Select
End If
Catch ex As Exception
'MsgBox(ex.Message)
End Try
Return (tmpid > 0)
End Function
Public Function AktUebernehmen_Zuruecksetzen(AvisoID As Integer, Optional WeiterleitungTextTV As String = "", Optional letzterMitarbeiter As String = "Weiterleitung") As Boolean
Try
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
' MsgBox("Keine Berechtigung!")
' Return False
'End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Aviso.LetzterMitarbeiterId = -1
Aviso.letzterMitarbeiter = letzterMitarbeiter ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.WeiterleitungTextTV = WeiterleitungTextTV ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = -1 'VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
'Aviso.Änderungen = "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
'Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
'AvisoDAL.addAenderung(tmpid, "Akt übernommen", "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
AvisoDAL.SpeichernAviso(Aviso, False)
'Nicht MEHR!
'For Each s In SENDUNG_LIST
' ' If s.LetzterMitarbeiterId IsNot Nothing Then
' SendungUebernehmen_Zuruecksetzen(s.tblSnd_SendungID, AvisoID)
' ' End If
'Next
Return True
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
End Function
Public Function SendungUebernehmen(SendungsId As Integer, AvisoID As Integer, Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False) As Boolean
'If SendungsId Is Nothing Then Return False
If Not IsNumeric(SendungsId) Then Return False
' If AvisoID Is Nothing Then Return False
If Not IsNumeric(AvisoID) Then Return False
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
Return SendungUebernehmen(SENDUNG_TMP, MaId, GesendetAn)
End Function
Public Function SendungUebernehmen(ByRef SENDUNG_TMP As VERAG_PROG_ALLGEMEIN.cSendungen, Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False) As Boolean
Dim MITARBEITER As cMitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER
If MaId > 0 Then
MITARBEITER = New cMitarbeiter(MaId)
End If
If SENDUNG_TMP Is Nothing Then Return False
Dim saveSachbearbeiterTmp = SENDUNG_TMP.saveSachbearbeiter
SENDUNG_TMP.saveSachbearbeiter = True
SENDUNG_TMP.LetzterMitarbeiterId = MITARBEITER.mit_id
SENDUNG_TMP.LetzterMitarbeiter = MITARBEITER.Fullname
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then ' nur, wenn BO, dann darf das Team geändert werden... Damit das zuständige Team nachvollzeiehn kann, was mit dem LKW ist...
SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
If (SENDUNG_TMP.tblSnd_QS_MA Is Nothing OrElse SENDUNG_TMP.tblSnd_QS_MA <= 0) Then SENDUNG_TMP.tblSnd_QS_MA = MITARBEITER.mit_id
Else
If (SENDUNG_TMP.tblSnd_VG_MA Is Nothing OrElse SENDUNG_TMP.tblSnd_VG_MA <= 0) Then SENDUNG_TMP.tblSnd_VG_MA = MITARBEITER.mit_id
End If
If SENDUNG_TMP.SAVE() Then
AvisoDAL.addAenderung(SENDUNG_TMP.tblSnd_AvisoID, "Sendung übernommen", "Sendung Nr. " & SENDUNG_TMP.tblSnd_PosUnterNr & If(GesendetAn, " gesendet an ", " übernommen von ") & MITARBEITER.Fullname & " am " & Format(Now, "dd.MM.yyyy HH:mm") & If(GesendetAn, " (von " & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname & ")", ""))
SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp
'Benachrichtigungen erledigen 'nicht mehr, 16.07.2020
' VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_SND(SENDUNG_TMP.tblSnd_SendungID, True)
Return True
End If
SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp
Return False
End Function
Public Function SendungUebernehmen_Zuruecksetzen(SendungsId As Integer, AvisoID As Integer) As Boolean
If Not IsNumeric(SendungsId) Then Return False
If Not IsNumeric(AvisoID) Then Return False
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
Return SendungUebernehmen_Zuruecksetzen(SENDUNG_TMP)
End Function
Public Function SendungUebernehmen_Zuruecksetzen(ByRef SENDUNG_TMP As VERAG_PROG_ALLGEMEIN.cSendungen) As Boolean
If SENDUNG_TMP Is Nothing Then Return False
Dim saveSachbearbeiterTmp = SENDUNG_TMP.saveSachbearbeiter
SENDUNG_TMP.saveSachbearbeiter = True
SENDUNG_TMP.LetzterMitarbeiterId = -1
SENDUNG_TMP.LetzterMitarbeiter = ""
SENDUNG_TMP.tblSnd_TeamId = -1
'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then ' nur, wenn BO, dann darf das Team geändert werden... Damit das zuständige Team nachvollzeiehn kann, was mit dem LKW ist...
' SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
'End If
If SENDUNG_TMP.SAVE() Then
'AvisoDAL.addAenderung(SENDUNG_TMP.tblSnd_AvisoID, "Sendung übernommen", "Sendung Nr. " & SENDUNG_TMP.tblSnd_PosUnterNr & If(GesendetAn, " gesendet an ", " übernommen von ") & MITARBEITER.Fullname & " am " & Format(Now, "dd.MM.yyyy HH:mm") & If(GesendetAn, " (von " & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname & ")", ""))
SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp
Return True
End If
SENDUNG_TMP.saveSachbearbeiter = saveSachbearbeiterTmp
Return False
End Function
Public Function setSendungVorgeschrieben(SendungsId, AvisoID) As Boolean
If SendungsId Is Nothing Then Return False
If Not IsNumeric(SendungsId) Then Return False
If AvisoID Is Nothing Then Return False
If Not IsNumeric(AvisoID) Then Return False
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
SENDUNG_TMP.saveSachbearbeiter = True
If SENDUNG_TMP.tblSnd_Vorgeschrieben Is Nothing Then
SENDUNG_TMP.tblSnd_VG_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERIMEX" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
End If
SENDUNG_TMP.tblSnd_Vorgeschrieben = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
AvisoDAL.addAenderung(AvisoID, "Sendung auf VORGESCHRIEBEN gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kreditlimit_Check_SND_Vorgeschrieben", "AVISO") Then
frmSendungsdetailsNEU.checkKreditlimit_ID(frmHauptfenster, AvisoID, SendungsId, True, False) 'NOCH NICHT..
End If
Else
SENDUNG_TMP.tblSnd_Vorgeschrieben = Nothing
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORGESCHRIEBEN gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORGESCHRIEBEN gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
Return SENDUNG_TMP.SAVE()
End Function
Public Function setSendungVorbereitetQS(SendungsId, AvisoID) As Boolean
If SendungsId Is Nothing Then Return False
If Not IsNumeric(SendungsId) Then Return False
If AvisoID Is Nothing Then Return False
If Not IsNumeric(AvisoID) Then Return False
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
SENDUNG_TMP.saveSachbearbeiter = True
If SENDUNG_TMP.tblSnd_Vorbereitet Is Nothing Then ' VB gesetzt!
SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
SENDUNG_TMP.tblSnd_FilialeAbklaerung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
'End If
'Lt. Bespr. ML und TW (6.10.22) --> wenn VBQS gesetzt, soll MA leer sein:
SENDUNG_TMP.LetzterMitarbeiter = ""
SENDUNG_TMP.LetzterMitarbeiterId = -1
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERIMEX" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
End If
SENDUNG_TMP.tblSnd_Vorbereitet = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
AvisoDAL.addAenderung(AvisoID, "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Else
SENDUNG_TMP.tblSnd_Vorbereitet = Nothing
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
Return SENDUNG_TMP.SAVE()
End Function
Public Function setSendungAbklaerungTR(SendungsId, AvisoID) As Boolean
If SendungsId Is Nothing Then Return False
If Not IsNumeric(SendungsId) Then Return False
If AvisoID Is Nothing Then Return False
If Not IsNumeric(AvisoID) Then Return False
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
SENDUNG_TMP.saveSachbearbeiter = True
'If SENDUNG_TMP.tblSnd_Vorgeschrieben IsNot Nothing Then
' MsgBox("Sendung wurde bereits auf 'Vorgeschrieben' gesetzt - Status nicht mehr möglich!")
' Return False
'End If
'If SENDUNG_TMP.tblSnd_Vorbereitet IsNot Nothing Then
' MsgBox("Sendung wurde bereits auf 'QS Vorbereitet' gesetzt - Status nicht mehr möglich!")
' Return False
'End If
If SENDUNG_TMP.tblSnd_AbklaerungTR Is Nothing Then
SENDUNG_TMP.tblSnd_AbklaerungTR_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
SENDUNG_TMP.tblSnd_FilialeAbklaerung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
'End If
'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
SENDUNG_TMP.tblSnd_AbklaerungTR = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Else
SENDUNG_TMP.tblSnd_AbklaerungTR = Nothing
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
Return SENDUNG_TMP.SAVE()
End Function
Public Function setSendungAbfertigungTR(SendungsId, AvisoID, Optional anzahl = 1, Optional anzahlPos = 1) As Boolean
If SendungsId Is Nothing Then Return False
If Not IsNumeric(SendungsId) Then Return False
If AvisoID Is Nothing Then Return False
If Not IsNumeric(AvisoID) Then Return False
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
SENDUNG_TMP.saveSachbearbeiter = True
'If SENDUNG_TMP.tblSnd_Vorgeschrieben IsNot Nothing Then
' MsgBox("Sendung wurde bereits auf 'Vorgeschrieben' gesetzt - Status nicht mehr möglich!")
' Return False
'End If
'If SENDUNG_TMP.tblSnd_Vorbereitet IsNot Nothing Then
' MsgBox("Sendung wurde bereits auf 'QS Vorbereitet' gesetzt - Status nicht mehr möglich!")
' Return False
'End If
SENDUNG_TMP.tblSnd_AbfertigungTRAnzahl = anzahl
SENDUNG_TMP.tblSnd_AbfertigungTRAnzahlPos = anzahlPos
If SENDUNG_TMP.tblSnd_AbfertigungTR Is Nothing Then
SENDUNG_TMP.tblSnd_AbfertigungTR_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
'SENDUNG_TMP.tblSnd_FilialeAbfertigung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE
'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
'End If
' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
SENDUNG_TMP.tblSnd_AbfertigungTR = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & "(Anz:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahl & ", Pos:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahlPos & ")")
Else
SENDUNG_TMP.tblSnd_AbfertigungTR = Nothing
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
Return SENDUNG_TMP.SAVE()
End Function
Public Function setSendungFakturiert(SendungsId, AvisoID) As Boolean
If SendungsId Is Nothing Then Return False
If Not IsNumeric(SendungsId) Then Return False
If AvisoID Is Nothing Then Return False
If Not IsNumeric(AvisoID) Then Return False
Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
SENDUNG_TMP.saveSachbearbeiter = False
If SENDUNG_TMP.tblSnd_Fakturiert Is Nothing Then
SENDUNG_TMP.tblSnd_Fakturiert = Now 'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
AvisoDAL.addAenderung(AvisoID, "Sendung auf FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Else
SENDUNG_TMP.tblSnd_Fakturiert = Nothing
AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
End If
Return SENDUNG_TMP.SAVE()
End Function
Public Function openSnd(sendId, AvisoID) As Form
Try
If sendId Is Nothing Then Return Nothing
If AvisoID Is Nothing Then Return Nothing
If sendId <= 0 Then Return Nothing
If AvisoID <= 0 Then Return Nothing
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is frmSendungsdetailsNEU Then
'MsgBox("Sendungsfenster bereits geöffnet!")
'CType(openForm, frmSendungsdetailsNEU).BringToFront()
'Return Nothing
CType(openForm, frmSendungsdetailsNEU).WindowState = FormWindowState.Minimized
CType(openForm, frmSendungsdetailsNEU).Close()
Exit For
End If
Next
' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
frmSendungsdetails.Show() 'Dialog() ' frmSendungsdetails.ShowDialog(frmGrayOut)
' frmGrayOut.Close()
Return frmSendungsdetails
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Function
'avisoAktualisierenAktiveIdBehalten(AvisoID)
' End Function
Shared Function getGrenzstelleZollstelle(hGrenzstelle As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As String
If hGrenzstelle.Replace("???", "") <> "" Then
Dim Standorte As New cStandorteDAL
Dim Standort As New cStandort
Standort = Standorte.LesenStandort(0, hGrenzstelle, "")
If Not IsNothing(Standort) Then
Return Standort.Standort_Text.Trim
End If
Else
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle.ToString <> "" Then
' hGrenzstelle = VERAGSQL.getValueTxtBySql("SELECT [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
hGrenzstelle = VERAGSQL.getValueTxtBySql("SELECT [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())) order by left(Code,2), Description ", "FMZOLL")
End If
End If
Return hGrenzstelle.Replace("???", "")
End Function
Shared Function Platzhalter_ersetzen(hText As String, hLKW As String, hGrenzstelle As String, abfertigungsNr As String, art As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, KundenNr As Integer, ByRef anhaenge As List(Of String), artKunde As String) As String
If hText = "" Then
Platzhalter_ersetzen = hText
Exit Function
End If
hText = hText.Replace("%LKW%", hLKW)
Select Case art
Case "5"
Dim linkAviso = "https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID)
hText = hText.Replace("%Link%", "<div style=""border: 1px solid #333;width:300px;height:50px;background-color:#eee;color:#003680""><br>&emsp;<a href=""" & linkAviso & """><b>Tracking shipment status<br></b></a></div>")
Case Else
'hier werden alle möglichen Platzhalter ersetzt
hText = hText.Replace("%Standort%", getGrenzstelleZollstelle(hGrenzstelle, AVISO))
hText = hText.Replace("%Uhrzeit%", Format(Now, "dd.MM.yyyy HH:mm"))
hText = hText.Replace("&", "und")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
hText = hText.Replace("%Firma_simple%", "IMEX")
hText = hText.Replace("%Firma%", "IMEX Customs Service GmbH")
hText = hText.Replace("%Platzhalter2%", "<br><br><span style=""font-family: calibri;font-size:14px"">Freundliche Grüße / Saygilarimizla / Best Regards<br>
<b>IMEX Customs Service GmbH</b><br>
Abteilung: Zollabfertigung<br>
Tel.: +43 7711 31630<br>
Fax: +43 7711 31630 - 1<br>
Mail: <a href=""mailto:info@imex-group.at"">info@imex-group.at</a><br>
</span>")
Case "UNISPED"
hText = hText.Replace("%Firma_simple%", "UNISPED")
hText = hText.Replace("%Firma%", "UNISPED Speditions GmbH")
hText = hText.Replace("%Platzhalter2%", "<br><br><span style=""font-family: calibri;font-size:14px"">Freundliche Grüße / Saygilarimizla / Best Regards<br>
<b>UNISPED Speditions GmbH</b><br>
Abteilung: Zollabfertigung<br>
Tel.: +43 7711 2677-0<br>
Mail: <a href=""mailto:office@unisped.at"">office@unisped.at</a><br>
</span>")
Case "ATILLA"
hText = hText.Replace("%Firma_simple%", "ATILLA")
hText = hText.Replace("%Firma%", "ATILLA Spedition GmbH")
Case "AMBAR"
hText = hText.Replace("%Firma_simple%", "AMBAR")
hText = hText.Replace("%FirmaTR%", "<b>Ambar Logistic Bad Reichenhall</b>")
hText = hText.Replace("%Firma%", "<b>Ambar Logistic in Bad Reichenhall</b>")
Case Else
hText = hText.Replace("%Platzhalter2%", "")
hText = hText.Replace("%Firma_simple%", "VERAG")
hText = hText.Replace("%Firma%", "VERAG Spedition AG")
End Select
hText = hText.Replace("%AbfertigungsNr%", abfertigungsNr)
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr)
If (art = 2 Or art = 4) And (KUNDE_ERW.EmailFreigabeSendungsListe Or KUNDE_ERW.EmailFreigabe_VBDPDF Or KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF) Then 'Freigabe
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AVISO.AvisoID) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST.Count > 0 Then
Dim SendungslistTXT = ""
SendungslistTXT &= "<span style=""font-family:calibri;font-size:14""><b>Sendungsliste:</b><br></span>"
SendungslistTXT &= "<table style=""font-family:calibri;font-size:18;background-color:#F2F8FE;padding:0;min-width:600px;"" border=""1"" bordercolor=""#003680"" cellspacing=""0"">"
'If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
' SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
'Else
' SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
'End If
Dim showNCTSAdress = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T1Adresse") Then showNCTSAdress = True
SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td>" & If(showNCTSAdress, "<td> Gestellungsadresse (T1/T2) </td>", "") & "</tr>"
Dim cnt = 1
For Each s In SENDUNG_LIST
If s.tblSnd_Abfertigungsart_ID <> 9 And isKdInSendData(KUNDE_ERW, AVISO, s) Then
Dim AtcMrn = ""
Dim DsId = ""
Dim DsId2 = ""
Dim frist = ""
Dim gestellungsadresse = "<td><td/>"
Dim found = False
Select Case s.tblSnd_Abfertigungsart_ID
Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand
gestellungsadresse = "<td>" & s.getNCTSAdress(True, True, False) & "</td>"
getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID, s.tblSnd_DakosyRef)
If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen
Try
Dim anhaengeVersand As New List(Of String)
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaengeVersand.Add(PathTmp) : found = True
'---------------------------------------------------------
'AMBAR: BEI T2 auch EXPORT_DOCS mitschicken! ' ------------------------'''Rechnung, CMR; Ausfuhr
'---------------------------------------------------------
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T2_ANHAENGER") Then '--> nur bei AMBAR gesetzt
Select Case s.tblSnd_Abfertigungsart_ID
Case 6, 18, 24, 32, 33, 34, 37, 40 'nur T2!!
Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
For Each l In ANH_LIST
Select Case l.anh_Art.ToString.ToUpper
' Case "RECHNUNG", "CMR", "AUSFUHR", "COO", "PACKLISTE"
Case "EXPORT_DOCS"
Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False)
If PathTmpANH <> "" Then anhaengeVersand.Add(PathTmpANH) : found = True
End Select
Next
End Select
End If
'---------------------------------------------------------
If anhaengeVersand.Count = 1 Then
anhaenge.Add(anhaengeVersand(0)) 'Falls nur 1 Anhang
ElseIf anhaengeVersand.Count > 1 Then
'AMBAR: Zusammenfassen des T2 und der T2 Anhänge
Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("T2_" & s.FilialenNr & "-" & s.AbfertigungsNr & ".pdf", ".pdf",, False, "Zusammenfassung_T2_AMB")
If SDL.FormularManagerNEU.MergePdfFiles(anhaengeVersand, zielPfadZusammenfassung) Then
anhaenge.Add(zielPfadZusammenfassung)
End If
End If
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
MsgBox("ACHTUNG: Das Versandbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das VBD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
End If
End If
Case 7 'Ausfuhr
getDataFronDY_AES(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
' MsgBox(DsId)
If KUNDE_ERW.EmailFreigabe_ABDPDF And IsNumeric(DsId) Then 'VBD anhängen
Try
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: ABD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
MsgBox("ACHTUNG: Das Ausfuhrbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das ABD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
End If
End If
Case Else
getDataFronDY_EZA(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
If s.tblSnd_Abfertigungsart_ID = 23 Then
s.LOAD_HANDLING()
For Each hd In s.HANDLING
AtcMrn &= hd.sndhdg_nr & ", "
Next
If AtcMrn.EndsWith(", ") Then AtcMrn = AtcMrn.Substring(0, AtcMrn.Length - 2)
'If If(s.tblSnd_ATCMRN_Fremd, "") <> "" Then AtcMrn = s.tblSnd_ATCMRN_Fremd
End If
Select Case artKunde
Case "FRÄCHTER", "AVISIERER" 'Die bekommen keine Steuerbescheide..
Case Else
If KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF And (IsNumeric(DsId) Or IsNumeric(DsId2)) Then 'Steuerbescheid anhängen
If checkSteuerbescheidbedingung(KundenNr, DsId) Or checkSteuerbescheidbedingung(KundenNr, DsId2) Then
Try
If IsNumeric(DsId) Then
Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
End If
If IsNumeric(DsId) Then
Dim PathTmp2 = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId2)).GET_TOP1_PATH(False)
If PathTmp2 <> "" Then anhaenge.Add(PathTmp2) : found = True
End If
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
If Not found Then
AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
' AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: Steuerbescheid nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
MsgBox("ACHTUNG: Der Steuerbescheid konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden den Steuerbescheid per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
End If
End If
End If
End Select
End Select
If IsDate(frist) Then frist = CDate(frist).ToShortDateString
Dim txtCluster = ""
' If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then txtCluster = "<td>" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "</td>"
txtCluster = "<td>" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "</td>"
SendungslistTXT &= "<tr style=""font-size:18;min-width:180;""><td>" & cnt & "</td>" & txtCluster & "<td>" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "</td><td>" & getAbfertBez(s) & "</td><td>" & If(s.tblSnd_Empfaenger, "") & "</td><td>" & AtcMrn & "</td><td>" & frist & "</td>" & If(showNCTSAdress, gestellungsadresse, "") & "</tr> "
cnt += 1
End If
Next
SendungslistTXT &= "</table>"
SendungslistTXT &= "<br><br>"
If cnt = 1 Then ' wurde nicht erhöht -> keine Einträge
SendungslistTXT = ""
End If
If KUNDE_ERW.EmailFreigabeSendungsListe Then hText = hText.Replace("%Platzhalter%", SendungslistTXT)
End If
End If
End Select
hText = hText.Replace("%Platzhalter%", "")
Platzhalter_ersetzen = hText
End Function
Private Shared VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
Shared Function getEZOLL_Steuerbescheid(KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) As List(Of String)
Dim LIST As New List(Of String)
Dim dt As DataTable = VERAGSQL.loadDgvBySql("", "EZOLL")
End Function
'Prüft, ob die KundenNr in den Daten vorkommt --> zB Empfänger, soll nur die Empfänger-Sendung gefunden werden, Frächter scheint immer auf.
Shared Function isKdInSendData(KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen)
If KUNDE_ERW.kde_KundenNr <= 0 Then Return False
Select Case KUNDE_ERW.kde_KundenNr.ToString
Case SENDUNG.tblSnd_AbsenderKdNr.ToString : Return True
Case SENDUNG.tblSnd_EmpfaengerKdNr.ToString : Return True
Case SENDUNG.tblSnd_AuftraggeberKdNr.ToString : Return True
Case AVISO.Auftraggeber_KdNr.ToString : Return True
Case AVISO.Frächter_KdNr.ToString : Return True
End Select
Return False
End Function
Shared Function checkSteuerbescheidbedingung(KdNr As Integer, DSId As String) As Boolean
Try
If DSId = "" Then Return False
If Not IsNumeric(DSId) Then Return False
Dim KD_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNr)
'Alle KD-Aufschubdaten laden
Dim KD_AUFSCHUB = VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten.LOAD_ListAufschubKTOByKdNr(KdNr)
If KD_ERW IsNot Nothing AndAlso KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
Select Case KD_ERW.EmailFreigabe_SteuerbescheidPDF_Bedingung
Case 0 : Return True
Case 1
'EZA Laden
Dim eza_id = VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull(eza_id,'') FROM [tblDakosy_Zollanmeldungen] INNER JOIN tblDakosy_EZA ON eza_dyaAnmID=dy_Id where [dy_Steuerbescheid_dsId]='" & DSId & "'", "FMZOLL")
If IsNumeric(eza_id) Then
'Aufschub laden und vergleichen
Dim EZA As New DAKOSY_Worker.cDakosyEZA(eza_id)
If EZA IsNot Nothing AndAlso EZA.eza_AUFSCHUB IsNot Nothing Then
For Each eza_a In EZA.eza_AUFSCHUB
For Each a In KD_AUFSCHUB
If eza_a.ezaAfb_KontoNr = a.kdAkto_kontonummer Then
'Wenn Kontonummer gefunden --> reuten true
Return True
End If
Next
Next
End If
End If
End Select
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Function
Shared Function getAbfertBez(s As VERAG_PROG_ALLGEMEIN.cSendungen) As String
If s.tblSnd_Fremdspedition Then Return If(s.tblSnd_FremdspeditionText <> "", s.tblSnd_FremdspeditionText, "FREMD")
If s.tblSnd_Abfertigungsart_ID < 0 Then Return "-"
Return VERAGSQL.getValueTxtBySql("select isnull(Abfertigungsbezeichnung,'-') from Abfertigungsarten where Abfertigungsart='" & s.tblSnd_Abfertigungsart_ID & "'", "FMZOLL")
End Function
Shared Function getDataFronDY_NCTS(SendungsId, ByRef AtcMrn, ByRef frist, ByRef dsId, FilialenNr, AbfertigungsNr, tblSnd_Abfertigungsart_ID, tblSnd_DakosyRef) As Boolean
If SendungsId Is Nothing Then Return False
If Not IsNumeric(AbfertigungsNr) Then Return False
If AbfertigungsNr <= 0 Then Return False
If FilialenNr <> 4805 And FilialenNr <> 4811 Then ' Kein Ü-T
Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_vbd_dsid,'') as DsId ,isnull(isnull(ncts_MRN,ncts_ANR),'') as MRN, isnull(ncts_Wiedergestellungsdatum ,'') as WG FROM tblDakosy_Zollanmeldungen inner join tblDakosy_nctsout on dy_id=ncts_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL")
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
AtcMrn = dt.Rows(0)("MRN")
dsId = dt.Rows(0)("DsId")
frist = dt.Rows(0)("WG")
Return True
Else
Try 'AT-Zollsystem
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
AtcMrn = sql.getValueTxtBySql("SELECT CRN FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ORDER BY GeaendertAm DESC", "EZOLL")
frist = sql.getValueTxtBySql("SELECT TOP 1 Gestellungsfrist FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme WHERE (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ", "EZOLL")
dsId = sql.getValueTxtBySql("SELECT TOP 1 [DokumentId_VBD] FROM [Speditionsbuch] where [DokumentId_VBD] is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")
Catch : End Try
End If
End If
'Wenn nichts gefunden:
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
ZOLLANMELDUNG.getDataByBezugsnummer(FilialenNr & "/" & AbfertigungsNr, tblSnd_Abfertigungsart_ID.ToString, tblSnd_DakosyRef, False) ' Die weiteren Daten werden hier geladen
If ZOLLANMELDUNG IsNot Nothing Then
AtcMrn = ZOLLANMELDUNG.ATCMRN
'dsId = dt.Rows(0)("DsId")
'frist = ZOLLANMELDUNG.dat
End If
Return False
End Function
Shared Function getDataFronDY_EZA(SendungsId, ByRef AtcMrn, ByRef dsId, FilialenNr, AbfertigungsNr, ByRef dsId2) As Boolean
If SendungsId Is Nothing Then Return False
If Not IsNumeric(AbfertigungsNr) Then Return False
If AbfertigungsNr <= 0 Then Return False
Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_steuerbescheid_dsid,'') as DsId, isnull(eza_ANR,'') as ATC FROM tblDakosy_Zollanmeldungen inner join tblDakosy_eza on dy_id=eza_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL")
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
AtcMrn = dt.Rows(0)("ATC")
dsId = dt.Rows(0)("DsId")
Return True
Else
Try 'AT-Zollsystem
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
AtcMrn = sql.getValueTxtBySql("SELECT CRN FROM zsAnmRefs WHERE (VorgangID = 'EF') AND (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ORDER BY GeaendertAm DESC", "EZOLL")
dsId = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Steuerbeleg FROM [Speditionsbuch] where DokumentId_Steuerbeleg is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")
dsId2 = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Mitteilung FROM [Speditionsbuch] where DokumentId_Mitteilung is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")
Catch : End Try
End If
Return False
End Function
Shared Function getDataFronDY_AES(SendungsId, ByRef AtcMrn, ByRef dsId, FilialenNr, AbfertigungsNr, ByRef dsId2) As Boolean
If SendungsId Is Nothing Then Return False
If Not IsNumeric(AbfertigungsNr) Then Return False
If AbfertigungsNr <= 0 Then Return False
Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_ABD_dsId,'') as DsId, isnull(aes_MRN,'') as ATC FROM tblDakosy_Zollanmeldungen inner join tblDakosy_AES on dy_id=aes_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL")
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
AtcMrn = dt.Rows(0)("ATC")
dsId = dt.Rows(0)("DsId")
Return True
Else
Try 'AT-Zollsystem
'Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
'AtcMrn = sql.getValueTxtBySql("SELECT CRN FROM zsAnmRefs WHERE (VorgangID = 'EF') AND (LRN LIKE '" & FilialenNr & "/" & AbfertigungsNr & "%' OR LRN LIKE '" & FilialenNr & "-" & AbfertigungsNr & "%') ORDER BY GeaendertAm DESC", "EZOLL")
'dsId = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Steuerbeleg FROM [Speditionsbuch] where DokumentId_Steuerbeleg is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")
'dsId2 = sql.getValueTxtBySql("SELECT TOP 1 DokumentId_Mitteilung FROM [Speditionsbuch] where DokumentId_Mitteilung is not null AND FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")
'....... FEHLT NOCH !!!!
Catch : End Try
End If
Return False
End Function
Function SpeditionsbuchEintrag(AvisoID As Integer, SendungID As Integer) As posNr
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
MsgBox("Keine Berechtigung!")
Return Nothing
End If
Try
Dim posNr As New posNr
If SendungID < 0 Then MsgBox("Fehler: SendungID kleiner 0.") : Return Nothing
If AvisoID < 0 Then MsgBox("Fehler: AvisoID kleiner 0.") : Return Nothing
Dim frmNacherfassung As New SDL.frmNacherfassungNEU
' MsgBox("1")
Dim sendung As New VERAG_PROG_ALLGEMEIN.cSendungen(SendungID)
'Dim dr As DataRow = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr,AbfertigungsNr, UnterNr FROM tblSendungen WHERE tblSnd_SendungID=" & SendungID).Rows(0)
Dim dr As DataRow = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr,AbfertigungsNr, UnterNr FROM tblSendungen WHERE FilialenNr=" & sendung.FilialenNr & " AND AbfertigungsNr=" & sendung.AbfertigungsNr & " order by UnterNr ").Rows(0)
posNr.Filiale = VarToInt2(dr.Item("FilialenNr"))
posNr.Abfertigungsnummer = VarToInt2(dr.Item("AbfertigungsNr"))
posNr.UnterNr = VarToInt2(dr.Item("UnterNr"))
If posNr.UnterNr < 0 Then posNr.UnterNr = 0
If posNr.Filiale <= 0 And VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale > 0 Then 'Aus den Mitarbeiter-Stammdaten
posNr.Filiale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale
End If
If posNr.Abfertigungsnummer <= 0 Or posNr.Filiale <= 0 Or posNr.UnterNr < 0 Then
Dim frmPosNr As New SDL.frmPosNr(posNr.Filiale, posNr.Abfertigungsnummer, posNr.UnterNr)
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
If Not frmPosNr.ShowDialog(frmGrayOut) = DialogResult.OK Then frmGrayOut.Close() : Return Nothing
frmGrayOut.Close()
posNr.Abfertigungsnummer = frmPosNr.txtAbfertigungsnummer.Text
posNr.Filiale = frmPosNr.cboFiliale._value
posNr.UnterNr = frmPosNr.txtUnterNr.Text
' Dim cADMIN As New cADMIN
' cADMIN.doSQL(" UPDATE tblSendungen SET FilialenNr='" & posNr.Filiale & "',AbfertigungsNr='" & srchAbfertigungsnummer & "', UnterNr='" & srchUnterNr & "' FROM tblSendungen WHERE tblSnd_SendungID=" & SendungID)
End If
frmNacherfassung.avisoLinkId = AvisoID
frmNacherfassung.SendungID = SendungID
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
frmNacherfassung.srchAbfertigungsnummer = posNr.Abfertigungsnummer
frmNacherfassung.srchFiliale = posNr.Filiale
frmNacherfassung.srchUnterNr = posNr.UnterNr
' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID
' Dim qsMa_TMP = SQL.getValueTxtBySql("SELECT TOP 1 isnull([MitarbeiterId],-1) FROM [Aenderungen] WHERE Aenderung_Art = 'auf VORBEREITET gesetzt' AND [AvisoID]='" & AvisoID & "' ORDER BY Datum DESC", "AVISO")
' Dim qsMa = SQL.getValueTxtBySql("SELECT TOP 1 isnull([mit_FMZollPersID],-1) FROM [tblMitarbeiter] WHERE [mit_id]='" & qsMa_TMP & "' ", "ADMIN")
frmNacherfassung.newEntry = (0 = CInt(SQL.getValueTxtBySql("SELECT Count(*) FROM Speditionsbuch WHERE FilialenNr='" & posNr.Filiale & "' AND AbfertigungsNr='" & posNr.Abfertigungsnummer & "' AND UnterNr='" & posNr.UnterNr & "' ", "FMZOLL")))
'frmNacherfassung.FMZollPersIDQS = IIf(IsNumeric(qsMa_TMP), qsMa_TMP, -1)
frmNacherfassung.ShowDialog()
posNr.Abfertigungsnummer = frmNacherfassung.txtAbfertigungsnummer.Text
posNr.Filiale = frmNacherfassung.cboFiliale._value
posNr.UnterNr = frmNacherfassung.txtUnterNr.Text
Return posNr
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return Nothing
End Try
End Function
Public Sub showKd(kdnr)
'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is SDL.frmKundenUebersichtZOLL Then
CType(openForm, SDL.frmKundenUebersichtZOLL).BringToFront()
CType(openForm, SDL.frmKundenUebersichtZOLL).KdSearchBox1.KdNr = kdnr
Exit Sub
End If
Next
'If False Then
' If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then
' Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront()
' Exit Sub
' End If
'End If
'' Next
Dim zoll As New SDL.frmKundenUebersichtZOLL(kdnr)
If zoll IsNot Nothing Then zoll.Show()
End Sub
Shared Sub insertVermerkAllg(AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional BeschreibungMA As String = "")
'Daten zuweisen und speichern
Dim myVermerk As New cVermerk
myVermerk.VermerkID = 0
myVermerk.AvisoID = AvisoID
myVermerk.Datum = Now
myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter & " " & BeschreibungMA
myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = Text
myVermerk.VermerkCodeId = VermerkCodeId
Dim VermerkeDAL As New cVermerkeDAL
VermerkeDAL.SpeichernVermerk(myVermerk)
If frmHauptfenster IsNot Nothing Then frmHauptfenster.Details_anzeigen(AvisoID)
End Sub
Shared Sub insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing, Optional addAuto As Boolean = False)
'Daten zuweisen und speichern
Dim myVermerk As New cVermerk
myVermerk.VermerkID = 0
myVermerk.AvisoID = AvisoID
myVermerk.Datum = Now
myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter & If(addAuto, " (AUTO)", "")
myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = Text
myVermerk.VermerkCodeId = VermerkCodeId
myVermerk.SendungID = SendungID
If VorauskasseId IsNot Nothing AndAlso VorauskasseId IsNot DBNull.Value Then myVermerk.VorauskasseId = VorauskasseId
myVermerk.VermerkArt = "S"
Dim VermerkeDAL As New cVermerkeDAL
VermerkeDAL.SpeichernVermerk(myVermerk)
If myVermerk.VermerkCodeId = 18 Then
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
End If
End Sub
End Class
Public Class posNr
Property Abfertigungsnummer As Integer = -1
Property Filiale As Integer = -1
Property UnterNr As Integer = -1
End Class
Reference in New Issue View Git Blame Copy Permalink