Imports System.IO Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO Imports VERAG_PROG_ALLGEMEIN.cGlobal 'Imports Gemeinsames.cDatenbank Imports System.Drawing 'Imports SDL Imports Hardcodet.Wpf.TaskbarNotification Imports com.esendex.sdk.messaging Imports Newtonsoft.Json Imports System.Reflection Imports System.Runtime.InteropServices Imports GrapeCity.Viewer.Common.Model 'Imports UID Public Class frmHauptfenster Public aktiv = False Private AvisoDAL As New cAvisoDAL Private VermerkeDAL As New cVermerkeDAL Private Standorte As New cStandorteDAL Private FUNC As New AvisoStatusFunctions Private locZeilen As Integer = -1 Private Anzahl As Integer Public Grid_aktiv As Boolean = False Private Details_aktiv As Boolean = False Private Zähler As Long = 0 Private hMerkZeit As Date Private hMerkZeit2 As Date Private hMerkZeit_MeineAviso As Date Dim cProgramFunctions As New cProgramFunctions Private Paketdienste_EXE As String Private SucheStandort As String = "" Private GridAnzeigen As Integer = 0 Private GridZeichnen As Integer = 0 Dim lkwbackcolor As Color = Color.FromArgb(220, 220, 220) Dim lkwbackcolorSel As Color = Color.FromArgb(200, 200, 200) Dim FIMRA_COLOR As Color = Color.FromArgb(0, 54, 128) Dim VermerkeAktuelleAvisoId As Integer = -1 Private infotxt As String = "" Public gridFont As New Font(Me.Font.FontFamily, 8) Dim cFormularManager As New VERAG_PROG_ALLGEMEIN.cFormularManager ' Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER Dim sd = 0 Dim closeOK = False Dim Fullscreen = False Dim rowHeight = 20 Dim chkFarben = True Private VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL Dim WithEvents hideErr As New Timer Dim WithEvents UpdateUpdater As New Timer Dim WithEvents UpdateSession As New Timer Public Sub New() InitializeComponent() Icon = cMeineFunktionenAVISO.GetProgrammIcon End Sub Private Sub frmMain_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed 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 TimerAkte.Enabled = True Grid_aktiv = False Dim OptionenDAL As New 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("??? - 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) Else cboMy_Grenzstelle.Items.Clear() 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,, "ALLE") cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???")) 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("???", "???")) cboMy_Grenzstelle.changeItem("") 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 If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Is Nothing Then cbx_My_LKW.Checked = True cboMy_QS.CheckState = CheckState.Indeterminate cboMy_VB.CheckState = CheckState.Indeterminate ElseIf IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) Then cboMyAvisoAnzeige.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) ' MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) End If End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT", "AVISO") Then DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = True ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = True End If 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 End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then Button12.Visible = True Label22.Visible = True initEAviso() End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MESSENGER", "AVISO") Then picAVISOMessenger.Visible = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG", "SDL") Then btnFakturierung.Visible = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("RECHNUNGSSUCHE", "SDL") Then btnRg.Visible = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MITARBEITER_VERZEICHNIS", "SDL") Then btnMAVerzeichnis.Visible = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then BREXITToolStripMenuItem.Visible = True End If 'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then ' btnSpedBuch.Visible = False 'End If If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Stammref_Verwalten", "AVISO") Then DAKOSYToolStripMenuItem.Visible = False End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") 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" Then i.Visible = False End If Next 'While MenuStrip1.Items.Count > 1 ' MenuStrip1.Items.RemoveAt(1) 'End While 'btnGenerelleGestellungen.Visible = False If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then btnSpedBuch.Visible = False btnDienstplan.Visible = True 'btnNeu.Enabled = False ' SplitContainer2.Visible = False btnDrucken.Visible = False 'SplitContainer2.Panel2Collapsed = True ' splitMain.Panel2Collapsed = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then MenuStrip1.Items.Remove(FunktionenToolStripMenuItem) MenuStrip1.Items.Remove(StatistikToolStripMenuItem) btnZollwebseiten.Visible = False lblErweitereSuche.Visible = False End If If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN", "AVISO") Then btnKunden.Visible = False End If MyComboBox1.Items.Clear() MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", UStatus_none)) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Aviso-Eingang", UStatus_AVEingang)) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erfasst", Status_Erfasst)) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorbereit.QS", Status_Vorgeschrieben)) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorgeschrieben", Status_Vorbereitet)) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ankunft", Status_Ankunft)) MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Freigabe", Status_Freigegeben)) MyComboBox1.changeItem(UStatus_AVEingang) 'Größe wird sicherheitshalber maximiert angezeigt, da es mit dem Größe-/Positionsspeichern teilweise Probleme in der virtuellen Umgebung gibt ' Me.WindowState = FormWindowState.Normal 'Position+Größe wird in ApplicationSettings vom Formular gespeichert 'Try 'Me.Size = My.Settings.frmMainSize 'Me.Location = My.Settings.frmMainPosition 'Me.Left = 100 'Me.Top = 100 'Catch ex As Exception 'bei Fehler nichts machen 'End Try 'Mitarbeiterinfos anzeigen If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("SHOW_AVISO_PCNAME") Then VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter += "/" & SystemInformation.UserName.ToString End If lblMitarbeiter.Text = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then ' lblMitarbeiter.Text += " (Verwaltung)Then" 'End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then lblMitarbeiter.Text += " (" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & ")" End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AvisoTV_verwalten", Me) Then AvisoTVToolStripMenuItem.Visible = True End If 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') " '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", "AVISO") Then Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "FRONTOFFICE", "VERAG", "IMEX" EssensbestellungenToolStripMenuItem.Visible = True End Select End If Panel1.Height -= pnlSearch.Height End Sub Sub initEAviso() 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 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("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 .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 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 " 'Bei ANKUNFT nicht nach Datum einschränken If tbcntrAviso.SelectedTab Is tabAnkunft Or tbcntrAviso.SelectedTab Is tabErfasst Or tbcntrAviso.SelectedTab Is tabVorbereitet Or tbcntrAviso.SelectedTab Is tabVorgeschrieben Then pnlTime.Visible = False Else pnlTime.Visible = True Select Case MyComboBox1._value Case UStatus_none top = " TOP 1000 " Case UStatus_AVEingang : datumseinschr &= " AND AvisoEingang >= " & SQLDatum(dtpVon.Value) & " AND AvisoEingang < " & SQLDatum(dtpBis.Value.AddDays(1)) Case Status_Erfasst : datumseinschr &= " AND Datum >= " & SQLDatum(dtpVon.Value) & " AND Datum < " & SQLDatum(dtpBis.Value.AddDays(1)) Case Status_Vorgeschrieben : datumseinschr &= " AND Vorgeschrieben >= " & SQLDatum(dtpVon.Value) & " AND Vorgeschrieben < " & SQLDatum(dtpBis.Value.AddDays(1)) Case Status_Vorbereitet : datumseinschr &= " AND Vorbereitet >= " & SQLDatum(dtpVon.Value) & " AND Vorbereitet < " & SQLDatum(dtpBis.Value.AddDays(1)) Case Status_Ankunft : datumseinschr &= " AND Ankunft >= " & SQLDatum(dtpVon.Value) & " AND Ankunft < " & SQLDatum(dtpBis.Value.AddDays(1)) Case Status_Freigegeben : datumseinschr &= " AND Freigabe >= " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1)) End Select End If If pnlSearch.Visible Then top = " TOP 1000 " End If Dim hSQL As String = "SELECT " & top & " AvisoID, Status, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' ELSE CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, " hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen,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 txtAuftraggeber.Text <> "" Then hSQLSnd &= " AND tblSnd_Auftraggeber LIKE '" & txtAuftraggeber.Text.Replace("*", "%") & "%' " : srchkrit = True If txtKdAuftragsnr.Text <> "" Then hSQLSnd &= " AND (tblSnd_KdAuftragsNr LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrAvisierer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrEmpfaenger LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrFrachtfuehrer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%') " : srchkrit = True If cboFiliale._value <> "" Then hSQLSnd &= " AND FilialenNr ='" & cboFiliale._value & "'" : srchkrit = True If txtAbfertigungsnummer.Text <> "" Then hSQLSnd &= " AND AbfertigungsNr LIKE '" & txtAbfertigungsnummer.Text.Replace("*", "%") & "' " : srchkrit = True If txtDyRef.Text <> "" Then hSQLSnd &= " AND tblSnd_DakosyRef LIKE '" & txtDyRef.Text.Replace("*", "%") & "' " : srchkrit = True hSQLSnd &= " ) > 0 " If srchkrit = True Then hSQL &= hSQLSnd If txtlkwId.Text <> "" Then hSQL &= " AND AvisoID LIKE '" & txtlkwId.Text.Replace("*", "%") & "' " If cbxAlle.Checked = False Then Dim statWhere = "" If cbxErfasst.Checked Then statWhere &= Status_Erfasst & "," If cbxVorb.Checked Then statWhere &= Status_Vorbereitet & "," If cbxVorg.Checked Then statWhere &= Status_Vorgeschrieben & "," If cbxAnkunft.Checked Then statWhere &= Status_Ankunft & "," If cbxFreigabe.Checked Then statWhere &= Status_Freigegeben & "," If cbxNE.Checked Then statWhere &= Status_NichtEingetroffen & "," If statWhere.EndsWith(",") Then statWhere = statWhere.Substring(0, statWhere.Length - 1) If statWhere <> "" Then hSQL &= " AND Status IN ( " & statWhere & " ) " Else hSQL &= " AND 1<>1 " End If End If hSQL &= datumseinschr ' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'" If cboGrenzstelle._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'" ' Bestimmungs.ZST If cboGrenzstelle._value = "???" And txtBestimmungszollstelle._value <> "" Then hSQL += " AND Zollstelle = '" & txtBestimmungszollstelle._value & "'" 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" ' MsgBox(hSQL) 'If hSort = "" Then 'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC" ' Else ' hSQL += " " & hSort ' End If gridAviso.DefaultCellStyle.Font = gridFont gridAviso.RowTemplate.Height = rowHeight 'muss vor Bindung sein 'gridAviso.DataSource = AvisoDAL.loadDataTableBySQL(hSQL) gridAviso.SET_SQL(hSQL, "AVISO") Dim errOcc = False gridAviso.LOAD(False, errOcc) If errOcc Then pic.Visible = True End If ' AVISOBinding.setARITHABORTOn() 'AVISOBinding.initBinding(hSQL, "Aviso") 'gridAviso.DataSource = AVISOBinding.bindingSource ' MsgBox(hSQL) 'Grid neu designen gridAviso_SpaltenFestlegen() 'Tabelle Kommt/Geht bereinigen If gridAviso.RowCount = 0 Then gridAviso.DataSource = Nothing VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = 0 ' Details_anzeigen(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID) End If 'Anzeige der Anzahl gewählter Datensätze VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl = gridAviso.RowCount 'If AnzahlAuswahl > AnzahlAlle Then AnzahlAlle = AnzahlAuswahl ' lblAnzahl.Text = "Einträge: " & Format(VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl, "#,##0") & " ausgewählt" ' / " & Format(AnzahlAlle, "#,##0") & " gesamt" hMerkZeit = Now lblZeit_aktuell.Text = "letzte Aktualisierung: " & Format(Now, "HH:mm") 'Focus auf 1. Zeile setzen, falls Auswahl vorhanden If showDetails Then If VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl > 0 Then gridAviso.CurrentCell = gridAviso.Rows(0).Cells(1) End If Dim hEnde As Integer = My.Computer.Clock.TickCount Dim hDifferenz As Integer = hEnde - hStart ' btnÜbernehmen.Visible = True Grid_aktiv = True meineAviso_anzeigen() If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID <= 0 Then If gridAviso.RowCount > 0 Then gridAviso.Rows(0).Selected = True End If gridAviso.SetOrder() Details_aktiv = True If showDetails Then If gridAviso.SelectedRows.Count > 0 Then VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = gridAviso.SelectedRows(0).Cells("AvisoID").Value End If Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) End If If chkFarben Then GridZeichnenAviso() Label8.Visible = False lblDauer.Text = "Dauer Anzeige aufbauen: " & hDifferenz.ToString & " ms" End Sub Function setAkive_AuswahlID() As Integer If gridAviso.SelectedRows.Count > 0 Then VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridAviso.Rows(gridAviso.SelectedRows(0).Index).Cells("AvisoID").Value) Else VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1 End If If gridMyAviso.SelectedRows.Count > 0 Then VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("AvisoID").Value) If Not cbx_My_LKW.Checked Then VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("tblSnd_SendungID").Value) Else VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 End If Else VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 End If Return VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID End Function Function formatdate(s) As String If s IsNot Nothing AndAlso IsDate(s) AndAlso CDate(s) > LeerDatum Then If CDate(s).ToShortDateString = Now.ToShortDateString Then Return "heute, " & CDate(s).ToShortTimeString & "" End If Return "" & CDate(s).ToString("dd.MM.") & ", " & CDate(s).ToShortTimeString & "" End If Return "" End Function Private Sub meineAviso_anzeigen() Try If Not Grid_aktiv Then Exit Sub ' Grid_aktiv = False hMerkZeit_MeineAviso = Now 'Dim hSQL As String = " EXECUTE spMyAviso @maId='" & (cGlobal.AktiverMitarbeiter.MitarbeiterID) & "' " If gridMyAviso Is Nothing Then Exit Sub gridMyAviso.DefaultCellStyle.Font = gridFont gridMyAviso.RowTemplate.Height = rowHeight 'muss vor Bindung sein 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], [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 <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" 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.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 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 sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], [Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " & " ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " & " FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " & " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & sqlStrFirma & " AND ( " & inBearbeitungSQL & ") " Select Case cboMy_VB.CheckState Case CheckState.Checked : sqlStr &= " AND tblSnd_Vorgeschrieben is not null " Case CheckState.Unchecked : sqlStr &= " AND tblSnd_Vorgeschrieben is null " ' Case CheckState.Indeterminate : sqlStr &= " AND tblSnd_Vorbereitet is not null " End Select Select Case cboMy_QS.CheckState Case CheckState.Checked : sqlStr &= " AND tblSnd_Vorbereitet is not null " Case CheckState.Unchecked : sqlStr &= " AND tblSnd_Vorbereitet is null " ' Case CheckState.Indeterminate : sqlStr &= " AND tblSnd_Vorbereitet is not null " End Select If cboMy_Grenzstelle._value <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'" '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 '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) gridMyAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list, False, errOcc) If errOcc Then pic.Visible = True End If ' gridMyAviso.DataSource = VermerkeDAL.loadTableMyAviso(VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID) ' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate("16.12.2013 11:02:08")), CDate(VarToDate("16.12.2013 12:02:08")))) ' MsgBox(gridMyAviso.RowCount) ' Dim bfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) Dim nfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Regular) 'MsgBox(sqlStr) With gridMyAviso If .Columns.Count = 0 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 '.Columns("LKW_fertig").DefaultCellStyle.Font = bfont If gridMyAviso.RowCount = 0 Then gridMyAviso.Columns.Clear() : Exit Sub Dim t As New DataGridViewTextBoxColumn t.Name = "DauerText" t.Width = 80 t.HeaderText = "Dauer" t.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter t.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns.Insert(7, t) If cbx_My_LKW.Checked Then .Columns("statVorb").Visible = False 'Mitarb. nicht anzeigen Else .Columns("tblSnd_Status").Visible = False .Columns("tblSnd_Abfertigungsart_ID").Visible = False .Columns("tblSnd_Vorgeschrieben").Visible = False .Columns("tblSnd_Vorbereitet").Visible = False .Columns("tblSnd_SendungID").Visible = False .Columns("tblSnd_Fremdspedition").Visible = False .Columns("tblSnd_FremdspeditionText").Visible = False .Columns("tblSnd_Empfaenger").MinimumWidth = 80 .Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger" .Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("VoraussichtlichesEintreffen").Width = 55 .Columns("VoraussichtlichesEintreffen").HeaderText = "Eintreffen" .Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM." ' .Columns("Vermerke_Anzahl").Width = 60 ' .Columns("Vermerke_Anzahl").HeaderText = "Vermerke" ' .Columns("Vermerke_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("AbfertigungsNr").Width = 110 .Columns("AbfertigungsNr").HeaderText = "Pos-Nr." .Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft .Columns("AbfertigungsNr").Visible = False Dim c As DataGridViewImageColumn c = New DataGridViewImageColumn c.Name = "StatusVorbereitetQS" c.Image = My.Resources.statusBtn_vorbereitet_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White c.ToolTipText = "Status 'Vorbereitet-QS' eintragen" c.HeaderText = "QS" .Columns.Add(c) c = New DataGridViewImageColumn c.Name = "StatusVorgeschrieben" c.Image = My.Resources.statusBtn_vorgeschrieben_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White c.ToolTipText = "Status 'Vorgeschrieben' eintragen" c.HeaderText = "VG" .Columns.Add(c) Dim t2 = New DataGridViewTextBoxColumn t2.Name = "Abfertigungsart" t2.HeaderText = "Abfertigungsart" t2.Width = 90 : t.DefaultCellStyle.Padding = New Padding(2) : t2.DefaultCellStyle.BackColor = Color.White 't.ToolTipText = "" .Columns.Insert(7, t2) End If 'Dauer berechnen: For Each r As DataGridViewRow In .Rows r.DefaultCellStyle.Font = nfont If Not cbx_My_LKW.Checked Then If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230) ' r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230) ' r.Cells("Abfertigungsart").Value = "FREMD" r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value Else 'Nomal r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL") If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".." End If If .Columns("StatusVorbereitetQS") IsNot Nothing Then If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" Else DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' eintragen" End If End If If .Columns("StatusVorgeschrieben") IsNot Nothing Then If r.Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorgeschrieben_Aktiv DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")" Else DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' eintragen" End If End If End If ' MsgBox(r.Cells(1).Value) ' MsgBox(r.Cells(6).Value) ' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells(6).Value)), Now)) If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then If CInt(r.Cells("Status").Value) > VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now) If IsNumeric(dauerTmp) Then r.Cells("Dauer").Value = dauerTmp r.Cells("DauerText").Value = cProgramFunctions.MinToTime2(dauerTmp) Else r.Cells("Dauer").Value = "0" r.Cells("DauerText").Value = "0" End If End If Else r.Cells("DauerText").Value = "0" r.Cells("Dauer").Value = "0" End If If r.Cells("LKW_fertig").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128) If r.Cells("LKW_fertig").Value = "DE" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green If r.Cells("Dauer").Value > 120 Then r.Cells("DauerText").Style.ForeColor = Color.Red ' MsgBox(r.Cells("Dauer").Value) ' If CBool(r.Cells("Vorbereitung").Value) = True Then 'r.Cells("Status").Value = 99 'End If '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, Button7.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnNeu.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter Try Dim cF As Color = DirectCast(sender, Button).ForeColor Dim cB As Color = DirectCast(sender, Button).BackColor If cF = Color.Black Then cF = Color.Gray DirectCast(sender, Button).ForeColor = cB DirectCast(sender, Button).BackColor = cF Catch ex As Exception End Try End Sub Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseLeave, Button7.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnNeu.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave Try Dim cF As Color = DirectCast(sender, Button).ForeColor Dim cB As Color = DirectCast(sender, Button).BackColor If cB = Color.Gray Then cB = Color.Black DirectCast(sender, Button).ForeColor = cB DirectCast(sender, Button).BackColor = cF Catch ex As Exception End Try End Sub Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridAviso.DoubleClick If 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 Dim zoll As New SDL.frmKundenUebersichtZOLL zoll.Show() Me.Cursor = Cursors.Default End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then For Each ft As Form In Application.OpenForms If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then ft.BringToFront() Exit Sub End If Next Me.Cursor = Cursors.WaitCursor Dim sped As New SDL.frmSpeditionsbuchSuche sped.Show() Me.Cursor = Cursors.Default End If End Sub Private Declare Function ShowWindow Lib "user32" _ (ByVal hWnd As System.IntPtr, ByVal nCmdShow As Long) As Long Private Const SW_RESTORE = 9 Private Function DoesProcessExists(ByVal PName As String) As Boolean If System.Diagnostics.Process.GetProcessesByName(PName).Count = 0 Then Return False Shell("UID.exe", AppWinStyle.NormalFocus) ' ShowWindow(System.Diagnostics.Process.GetProcessesByName(PName)(0).MainWindowHandle, SW_RESTORE) Return True For Each p As Process In System.Diagnostics.Process.GetProcessesByName(PName) If p.StartInfo.UserName = Environment.UserName Then ' ShowWindow(p.MainWindowHandle, SW_RESTORE) Return True End If Next Return False End Function Private Sub old_Click(sender As System.Object, e As System.EventArgs) If Paketdienste_EXE = "" Then MsgBox("Es ist kein Pfad für den Programm-Aufruf zugewiesen. Bitte den Administrator verständigen.", vbInformation) Exit Sub End If If Not File.Exists(Paketdienste_EXE) Then MsgBox("Die Zuweisung zum Programm-Aufruf ist falsch." & vbCrLf & vbCrLf & Paketdienste_EXE & vbCrLf & vbCrLf & "Bitte den Administrator verständigen.", vbInformation) Exit Sub End If 'Dim Program As ProcessStartInfo = New ProcessStartInfo 'Dim ProgramProcess As Process = New Process 'Program.Arguments = Paketdienste_EXE 'Program.UseShellExecute = True 'Program.CreateNoWindow = False 'Program.WindowStyle = ProcessWindowStyle.Normal 'Program.WorkingDirectory = "" Try Process.Start(Paketdienste_EXE) Catch ex As Exception Throw New ApplicationException("Startshell", ex) End Try End Sub Private Sub kexdown(sender As Object, e As KeyEventArgs) Handles gridAviso.KeyUp Try If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then If sender.selectedRows.count = 0 Then Exit Sub Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value) VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId avisoAktualisierenAktiveIdBehalten(tmpId, , False) End If Catch ex As Exception End Try End Sub Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs) Handles gridMyAviso.KeyUp Try If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then If sender.selectedRows.count = 0 Then Exit Sub Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value) Dim tmpSndId = CInt(sender.selectedRows(0).Cells("tblSnd_SendungID").Value) VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpSndId avisoAktualisierenAktiveIdBehalten(tmpId, False) End If Catch ex As Exception End Try End Sub Public Sub lblHinweiseVisible() If gridMyAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridMyAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "") If gridAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "") End Sub Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True) pic.Visible = False Try If Not Grid_aktiv Then Exit Sub Details_aktiv = False initEAviso() If Aviso_anzeigenBool Then Aviso_anzeigen("", False) ': meineAviso_anzeigen() gridAviso.ClearSelection() For Each r As DataGridViewRow In gridAviso.Rows If CInt(r.Cells("AvisoId").Value) = tmpid Then ' gridMyAviso.ClearSelection() gridAviso.CurrentCell = r.Cells("Status") r.Selected = True : Exit For End If Next gridMyAviso.ClearSelection() If cbx_My_LKW.Checked Then For Each r As DataGridViewRow In gridMyAviso.Rows If CInt(r.Cells("AvisoId").Value) = tmpid Then ' gridMyAviso.ClearSelection() gridMyAviso.CurrentCell = r.Cells("Status") r.Selected = True : Exit For End If Next Else If gridMyAviso.Rows.Count > 0 Then For Each r As DataGridViewRow In gridMyAviso.Rows If CInt(r.Cells("tblSnd_SendungID").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then gridMyAviso.CurrentCell = r.Cells("Status") r.Selected = True : Exit For End If Next End If End If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid Details_aktiv = True If pnlDetailsRechts.Controls.Count > 0 Then Dim usrcntlAvisoID = -1 Dim usrcntlAktiv As DateTime 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 '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 Label4.Visible = False cboGrenzstelle.Visible = False BürgschaftenExcelToolStripMenuItem.Visible = True ToolStripMenuItem4.Visible = True ToolStripMenuItem5.Visible = True ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then 'nix ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then 'btnGenerelleGestellungen.Visible = False ToolStripMenuItem4.Visible = True ToolStripMenuItem5.Visible = True ToolStripMenuItem6.Visible = True Else 'VERAG BürgschaftenExcelToolStripMenuItem.Visible = True ToolStripMenuItem4.Visible = True ToolStripMenuItem5.Visible = True ToolStripMenuItem6.Visible = True If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then Button5.Visible = True End If End If If 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 VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me) End Sub WithEvents timerStart As New Timer Private Sub timerStart_Tick(sender As Object, e As EventArgs) Handles timerStart.Tick Details_anzeigen(setAkive_AuswahlID()) Try VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath() Catch ex As Exception End Try timerStart.Enabled = False End Sub Private Sub frmMain_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged If Me.WindowState = FormWindowState.Minimized Then Exit Sub ' If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 760) > 0 Then ' SplitContainer1.SplitterDistance = SplitContainer1.Width - 760 ' End If If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 630) > 0 Then SplitContainer1.SplitterDistance = SplitContainer1.Width - 630 End If End Sub Private Sub KdNrZuordnenToolStripMenuItem_Click(sender As Object, e As EventArgs) If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then frmZuordnungKd.Show() Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.") End If End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnZollwebseiten.Click cntxt.Show(Cursor.Position) End Sub Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click Me.Close() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnMinimieren.Click Me.WindowState = FormWindowState.Minimized End Sub Private Sub TimerAkte_Tick(sender As Object, e As EventArgs) Handles TimerAkte.Tick ' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1) lblAkte.Visible = False End Sub Private Sub btnBar_Click(sender As Object, e As EventArgs) frmBarcodeGenerator.Show() End Sub Private Sub NacherfassungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NacherfassungToolStripMenuItem.Click If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then Dim frmNacherfassung As New SDL.frmNacherfassungNEU frmNacherfassung.Show() End If End Sub Private Sub StatistikADMINToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StatistikADMINToolStripMenuItem.Click 'MsgBox(cGlobal.AktiverMitarbeiter.Mitarbeiter) If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik", Me) Then frmAuswertung.Show() Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.") End If End Sub Private Sub LKWBerichtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LKWBerichtToolStripMenuItem.Click Dim frmLKWBericht As New frmLKWBericht frmLKWBericht.ShowDialog(Me) End Sub Private Sub GenerelleGestellungenDurchsuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GenerelleGestellungenDurchsuchenToolStripMenuItem.Click frmGenerelleGestellungen.ShowDialog() End Sub Private Sub KundenVonFremdenSpeditionenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KundenVonFremdenSpeditionenToolStripMenuItem.Click Dim frmKundenFremdeSpeditionen As New frmKundenFremdeSpeditionen frmKundenFremdeSpeditionen.ShowDialog() End Sub Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) End Sub Private Sub StandorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StandorteToolStripMenuItem.Click Dim f As New frmTabelleStandorte f.ShowDialog(Me) Exit Sub End Sub Private Sub KdNrZuordnenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles KdNrZuordnenToolStripMenuItem.Click If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then frmZuordnungKd.Show() Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.") End If End Sub Private Sub OptionenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles OptionenToolStripMenuItem1.Click gridAviso.ClearSelection() gridMyAviso.ClearSelection() VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 1 Dim f As New frmEintragOptionen f.ShowDialog(Me) End Sub Private Sub VorlagenUploadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlagenUploadToolStripMenuItem.Click Dim vu As New VERAG_PROG_ALLGEMEIN.frmVorlagen vu.ShowDialog() End Sub Private Sub gridAviso_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridAviso.CellContentClick End Sub Private Sub BarcodeTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BarcodeTestToolStripMenuItem.Click If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then frmBarcodeGenerator.Show() End If End Sub Private Sub btnAsd_Click(sender As Object, e As EventArgs) Handles btnAsd.Click newNotify(frmNotify.cNotify_ART.AVISO_2H, 1, gridMyAviso.Rows(0).Cells("LKW_Nr").Value, gridMyAviso.Rows(0).Cells("AvisoId").Value) End Sub Sub newNotify(art As frmNotify.cNotify_ART, title As Integer, text As String, id As Integer) ' Exit Sub 'NICHT AKTIV Dim formTmp = Me.ActiveForm Dim frmNotify As New frmNotify(art, title, text, id) frmNotify.TimerInterval = 1200000 ' 20min Dim tmpY As Integer = Me.Height If tmpY <= 0 Then tmpY = My.Computer.Screen.WorkingArea.Height For Each ft As Form In Application.OpenForms If ft.GetType.ToString = "AVISO.frmNotify" Then If ft.Location.Y < tmpY Then tmpY = ft.Location.Y End If Next frmNotify.Y = tmpY - frmNotify.Height - 10 frmNotify.Show() If formTmp IsNot Nothing Then formTmp.Focus() End Sub Public Function ConvertFileToBase64(ByVal fileName As String) As String Return Convert.ToBase64String(System.IO.File.ReadAllBytes(fileName)) End Function Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click 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 HTML " VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailTo, betreff, htmlBody, , False, False, ,,, 2) Exit Sub Exit Sub Dim ep As New SDL.cEORIWebService MsgBox(ep.ValidateEoriNumber("ATEOS1000000199").Result(0).Name) Exit Sub 'Dim cRKSV_DE As New VERAG_PROG_ALLGEMEIN.cRKSV_DE 'cRKSV_DE.SignRKSV_DE() 'Exit Sub 'Me.Cursor = Cursors.WaitCursor Dim firma = "" ' MsgBox("LOS" & vbNewLine & firma) Dim path = SDL.cFinanzOnlineWebService.genUID_Formular("ATU74813856") If path <> "" Then Process.Start(path) End If 'If SDL.cFinanzOnlineWebService.Call_Web_Service_MethodUID_Abfrage_NEU2020(firma, "ATU74813856") = 0 Then ' MsgBox("HURRA2" & vbNewLine & firma) 'End If Exit Sub MsgBox("1" & Environment.UserDomainName) MsgBox("1" & Environment.UserName) Exit Sub Dim file As System.IO.StreamWriter file = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\DEVELOPER1\Desktop\test.txt", True) file.WriteLine(ConvertFileToBase64("C:\Users\DEVELOPER1\Desktop\Example.pdf")) file.Close() MsgBox("2") Exit Sub Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAviso SH.POSITIONS.Add(New cVERAG_in_TRAviso_shipments) SH.DOCUMENTS.Add(New cVERAG_in_TRAviso_document) SH.POSITIONS(0).ADDRESS.Add(New cVERAG_in_TRAviso_Adressen) SH.POSITIONS(0).DOCUMENTS.Add(New cVERAG_in_TRAviso_document) Dim resultJson = FromClass(SH) MsgBox(resultJson) Exit Sub Dim jsonPost As New VERAG_PROG_ALLGEMEIN.cJsonPost("https://api.verag.ag/api/V001/CustomsDeclaration?value=test123") Dim dictData As New Dictionary(Of String, Object) Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position) EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document) 'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document) EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen) EZA.Company = "VERAG" dictData.Add("EZA", EZA) dictData.Add("TEST", "JA") MsgBox(jsonPost.postData(dictData)) '---------------------------------------------- 'Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_shippment 'Dim resultJson = FromClass(SH) 'MsgBox(resultJson) '---------------------------------------------- 'newNotify(frmNotify.cNotify_ART.AVISO_2H3, gridMyAviso.Rows(1).Cells("LKW_Nr").Value, gridMyAviso.Rows(1).Cells("AvisoId").Value) 'newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1) 'Dim TJ As New VERAG_PROG_ALLGEMEIN.TESTJSON.BeyannameBilgi 'Dim stringtst = "" 'Dim user = JsonConvert.DeserializeObject(Of List(Of VERAG_PROG_ALLGEMEIN.cVERAG_in_shippment))(SH) End Sub Public Function FromClass(Of T)(data As T, Optional isEmptyToNull As Boolean = False, Optional jsonSettings As JsonSerializerSettings = Nothing) As String Dim response As String = String.Empty If Not EqualityComparer(Of T).Default.Equals(data, Nothing) Then response = JsonConvert.SerializeObject(data, jsonSettings) End If Return If(isEmptyToNull, (If(response = "{}", "null", response)), response) End Function Public Function ToClass(Of T)(data As String, Optional jsonSettings As JsonSerializerSettings = Nothing) As T Dim response = Nothing If Not String.IsNullOrEmpty(data) Then response = If(jsonSettings Is Nothing, JsonConvert.DeserializeObject(Of T)(data), JsonConvert.DeserializeObject(Of T)(data, jsonSettings)) End If Return response End Function Private Sub timerStandzeit_Tick(sender As Object, e As EventArgs) Handles timerStandzeit.Tick Exit Sub Dim maId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID Dim dt As DataTable = AvisoDAL.getStandzeitInfo(maId, 1441, 9999999, 2) For Each r As DataRow In dt.Rows newNotify(frmNotify.cNotify_ART.AVISO_2H, 3, dt.Rows(0).Item("LKW_Nr").ToString, dt.Rows(0).Item("AvisoId").ToString) AvisoDAL.UpdateWarnstufe(dt.Rows(0).Item("AvisoId").ToString, 2) Next dt = Nothing dt = AvisoDAL.getStandzeitInfo(maId, 120, 1440, 1) For Each r As DataRow In dt.Rows newNotify(frmNotify.cNotify_ART.AVISO_2H, 1, dt.Rows(0).Item("LKW_Nr").ToString, dt.Rows(0).Item("AvisoId").ToString) AvisoDAL.UpdateWarnstufe(dt.Rows(0).Item("AvisoId").ToString, 1) Next End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) 'timerStandzeit_Tick(timerStandzeit, New EventArgs) ' Dim zt As New SDL.frmZolltarif ' zt.Show() Dim f As New Form f.WindowState = FormWindowState.Maximized Dim usr As New SDL.usrcntlKundeBearbeitenFull(401053) usr.Dock = DockStyle.Fill f.Controls.Add(usr) f.Show() 'Dim k As New cAdressen(401053) 'MsgBox(k.BLZ) End Sub Private Sub btnFertig_Click(sender As Object, e As EventArgs) Handles btnFertig.Click VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) End Sub Private Sub pnlDetailsLinks_Paint(sender As Object, e As PaintEventArgs) Handles pnlDetailsLinks.Paint End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) frmGenerelleGestellungen.ShowDialog() End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click MsgBox("Noch nicht verfügbar") Exit Sub Dim frmKundenFremdeSpeditionen As New frmKundenFremdeSpeditionen frmKundenFremdeSpeditionen.ShowDialog() End Sub Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Gestellungsgarantie) End Sub Private Sub ZollvollmachtDEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolStrVM_de.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Vollmacht) 'cFormularManager.fillVollmacht(-1, "ZVM_DE") End Sub Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK) End Sub Private Sub ZollFiskalVMCustomsServiceGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolStrVM_at.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht) ' cFormularManager.fillVollmacht(-1, "ZVM_CS") End Sub Private Sub ExportVMToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolStrVM_at4200.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Fiskal) ' cFormularManager.fillVollmacht(-1, "ZVM_CS_4200") End Sub Private Sub VeragCustomsServiceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VeragCustomsServiceToolStripMenuItem.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_CS) End Sub Private Sub ImportavisoVorauskasseToolStripMenuItem_Click(sender As Object, e As EventArgs) SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK) 'cFormularManager.fillImportaviso(-1, "Vorauskasse") End Sub Private Sub ToolStripMenuItem15_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem15.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe) End Sub Private Sub VUBVERAGSpeditionAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VUBVERAGSpeditionAGToolStripMenuItem.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_AG) End Sub Private Sub MANAGERToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MANAGERToolStripMenuItem.Click Dim f As New SDL.frmFormulare f.Show() End Sub Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungspreise) End Sub Private Sub toolVPCreditreformTRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolVPCreditreform.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Boniteatsauskunft) ' cFormularManager.fillCreditreform(-1) End Sub Private Sub hideErr_Tick(sender As Object, e As EventArgs) Handles hideErr.Tick lblErrVermerk.Visible = False hideErr.Enabled = False End Sub Private Sub UpdateUpdater_Tick(sender As Object, e As EventArgs) Handles UpdateUpdater.Tick UpdateUpdater.Enabled = False cProgramFunctions.updateUpdater() End Sub Private Sub UpdateSession_Tick(sender As Object, e As EventArgs) Handles UpdateSession.Tick VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.UPDATE_TIME() End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click Dim frmTV As New frmTv frmTV.avisoID = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID frmTV.ShowDialog() avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) If gridMyAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridMyAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "") If gridAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "") End Sub Public Sub showHideDetails() If sd <> SplitContainer1.SplitterDistance Or SplitContainer1.Panel2.Size.Width = 15 Then SplitContainer1.SplitterDistance = sd SplitContainer1.Panel2MinSize = 300 Fullscreen = False Else SplitContainer1.Panel2MinSize = 15 SplitContainer1.SplitterDistance = Me.Width - 15 'SHOW FREIGBAE, etc Fullscreen = True End If ' avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID) gridAviso_SpaltenFestlegen() tbcntrAviso.Width = Panel1.Width End Sub Private Sub btnSmall_Click(sender As Object, e As EventArgs) Handles btnSmall.Click Me.showHideDetails() btnSmall.Text = IIf(btnSmall.Text = "<", ">", "<") End Sub Private Sub ZeilenInFarbeEinausToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZeilenInFarbeEinausToolStripMenuItem.Click chkFarben = Not chkFarben End Sub Private Sub btnKassenbuch_Click(sender As Object, e As EventArgs) Handles btnKassenbuch.Click Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" pnlOptionen.Visible = Not pnlOptionen.Visible Case Else Dim s As New SDL.frmSecureLoginKassenbuch s.openKB = True s.disableCBO = False ' End If s.ShowDialog(Me) End Select ' Dim ADMIN As New cADMIN ' Dim PersID As Integer = ADMIN.getValueTxtBySql("Select isnull(mit_FMZollPersID,-1) FROM tblMitarbeiter WHERE [mit_id]=" & VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID, "ADMIN") ' Dim KBNr = ADMIN.getValueTxtBySql("Select isnull(KassenbuchNr,-1) FROM Personal WHERE [ID]=" & PersID, "FMZOLL") ' If KBNr > 0 Then ' s.KassenbuchNr_tmp = KBNr End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click 'Process.Start("http://www.zoll.de/DE/Fachthemen/Zoelle/Zollwert/Aktuelle-Umrechnungskurse/Datenbankanwendung/datenbankanwendung_node.html") 'Process.Start("http://www.zoll.de/SiteGlobals/Forms/KursSuche/KurseSuche_Formular_NotierteWaehrung.html?method=post&iso2code2=TR") Process.Start("https://www.zoll.de/SiteGlobals/Forms/KursSuche/KurseSuche_Formular_NotierteWaehrung.html") 'http://www.zoll.de/SiteGlobals/Functions/Kurse/KursExport.xml?nn=21174&date=20170127165538660&kursart=1&iso2code2=TR&view=xmlexportkurse !!!!!!!!!!!!!!!!!!!!!!!!!! End Sub Private Sub LogoutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LogoutToolStripMenuItem.Click frmLogin.Visible = True closeOK = True 'Me.Close() ' Me.Dispose() End Sub Private Sub gridAviso_MouseMove(sender As Object, e As DataGridViewCellMouseEventArgs) Handles gridAviso.CellMouseMove ', gridMyAviso.CellMouseMove Exit Sub ' Klappt nicht richtig If e.RowIndex >= 0 And e.ColumnIndex >= 0 Then sender.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.SteelBlue sender.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.White If sender Is gridAviso Then sender.Rows(e.RowIndex).Cells("Status").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.BackColor = Color.SteelBlue sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.ForeColor = Color.White End If End If End Sub Private Sub gridAviso_CellMouseLeave(sender As Object, e As DataGridViewCellEventArgs) Handles gridAviso.CellMouseLeave ', gridMyAviso.CellMouseLeave Exit Sub ' Klappt nicht richtig If e.RowIndex >= 0 And e.ColumnIndex >= 0 Then sender.Rows(e.RowIndex).DefaultCellStyle.BackColor = sender.Rows(e.RowIndex).DefaultCellStyle.SelectionForeColor sender.Rows(e.RowIndex).DefaultCellStyle.ForeColor = sender.Rows(e.RowIndex).DefaultCellStyle.SelectionBackColor If sender Is gridAviso Then sender.Rows(e.RowIndex).Cells("Status").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.BackColor = Color.LightGray End If End If End Sub Private Sub TabellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TabellenToolStripMenuItem.Click Dim f As New Form Dim c As New SDL.usrCntlAdministration c.Dock = DockStyle.Fill f.Controls.Add(c) f.Width = 850 f.Height = 800 f.Show() End Sub Private Sub HandbuchToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HandbuchToolStripMenuItem.Click Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "", "", "", "AVISO_Benutzerhandbuch 3.0.pdf") DS.OPEN_SINGLE() ' ' Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER 'cDATENSERVER.openDataTMP(cDATENSERVER.getTOP1Path("DOKUMENTE", "VORLAGEN", , "AVISO_Benutzerhandbuch 3.0.pdf")) End Sub Private Sub EinheitspapierToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EinheitspapierToolStripMenuItem.Click ' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then Me.Cursor = Cursors.WaitCursor Dim eh As New SDL.frmEinheitspapier eh.Show() Me.Cursor = Cursors.Default ' End If End Sub Private Sub Einheitspapier0735VersandverfahrenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Einheitspapier0735VersandverfahrenToolStripMenuItem.Click ' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then Me.Cursor = Cursors.WaitCursor Dim eh As New SDL.frmEinheitspapierVersandverfahren eh.Show() Me.Cursor = Cursors.Default ' End If End Sub Private Sub CMRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CMRToolStripMenuItem.Click 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then Me.Cursor = Cursors.WaitCursor Dim eh As New SDL.frmCMR eh.Show() Me.Cursor = Cursors.Default ' End If End Sub Private Sub btnRg_Click(sender As Object, e As EventArgs) Handles btnRg.Click For Each ft As Form In Application.OpenForms If ft.GetType.ToString = "SDL.frmRechnungenSuche" Then ft.BringToFront() Exit Sub End If Next Me.Cursor = Cursors.WaitCursor Dim sped As New SDL.frmRechnungenSuche sped.Show() Me.Cursor = Cursors.Default End Sub Private Sub TimerUPDATE_Tick(sender As Object, e As EventArgs) Handles TimerUPDATE.Tick Dim cADMIN As New cADMIN ' If CInt(cADMIN.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.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 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, 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:" Else lblMeineAviso.Text = "Meine Sendungen:" End If End Sub Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click Me.Cursor = Cursors.WaitCursor For Each openForm In Application.OpenForms() If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront() Me.Cursor = Cursors.Default : Exit Sub End If Next Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger f.Location = Cursor.Position f.Show(Me) Me.Cursor = Cursors.Default End Sub 'Private Sub TimerMessanger_NewMessages_Tick(sender As Object, e As EventArgs) Handles TimerMessanger_NewMessages.Tick ' Label20.Visible = (VERAG_PROG_ALLGEMEIN.cMessenger.UNREAD_MESAGES > 0) ' Label20.Text = (VERAG_PROG_ALLGEMEIN.cMessenger.UNREAD_MESAGES) 'End Sub Dim Timer_REFRESH_firstTime = True Private Sub Timer_REFRESH_Tick(sender As Object, e As EventArgs) Handles Timer_REFRESH.Tick If Timer_REFRESH_firstTime Then Timer_REFRESH_firstTime = False Exit Sub End If Try If 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 Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT() Label20.Text = newMsg Label20.Visible = (newMsg > 0) If newMsg Then Me.Icon = My.Resources.avisoNewMsg Dim isshown = False For Each openForm In Application.OpenForms() If TypeOf (openForm) Is frmNotify Then isshown = True End If Next Dim isInFront = False For Each openForm In Application.OpenForms() If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then ' If DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Focused Then If GetActiveWindow = DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Handle Then isInFront = True End If End If Next If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1) Else Me.Icon = My.Resources.Aviso End If If Label20.Visible Then Label20.BringToFront() End If 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 Button9.Click Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Telefonliste") 'MsgBox(DS.da_id) DS.OPEN_SINGLE() End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click SplitContainer3.Panel1Collapsed = Not SplitContainer3.Panel1Collapsed Button10.Text = If(Button10.Text = "<", ">", "<") End Sub Private Sub ToolStripMenuItem6_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "IMEX", "", "Gesamtsicherheit_IMEX") 'MsgBox(DS.da_id) DS.OPEN_SINGLE_ORIG() End Sub Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnMAVerzeichnis.Click Me.Cursor = Cursors.WaitCursor Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche f.Show() Me.Cursor = Cursors.Default End Sub Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click, Label22.Click Me.Cursor = Cursors.WaitCursor Dim f As New frm_eAVISO f.Show() Me.Cursor = Cursors.Default End Sub Private Sub FRONTOFFICEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FRONTOFFICEToolStripMenuItem.Click If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "FRONTOFFICE", "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 cHMRC.VATTEST(InputBox("Token")) End Sub Private Sub GVMSUKIMportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GVMSUKIMportToolStripMenuItem.Click Process.Start("https://www.tax.service.gov.uk/goods-movement-system/dashboard") End Sub Private Sub TicketIBFInlandBorderFacilitiesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TicketIBFInlandBorderFacilitiesToolStripMenuItem.Click Process.Start("https://attend-an-inland-border-facility.hmrc.gov.uk/login") End Sub Private Sub TicketIBFBeschreibungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TicketIBFBeschreibungToolStripMenuItem.Click Process.Start("https://inlandborderfacilities.uk") End Sub Private Sub IBFStatusToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IBFStatusToolStripMenuItem.Click Process.Start("https://inland-border-facility-site-availability.hmrc.gov.uk/dashboard") End Sub Private Sub FREnveloppeSmartBorderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FREnveloppeSmartBorderToolStripMenuItem.Click Process.Start("https://www.douane.gouv.fr/enveloppe/en/enveloppe/creer") End Sub Private Sub EORIUKGeneriertenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EORIUKGeneriertenToolStripMenuItem.Click Process.Start("https://www.gov.uk/eori") End Sub Private Sub KAPKentAccessPermitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KAPKentAccessPermitToolStripMenuItem.Click Process.Start("https://www.gov.uk/check-hgv-border") End Sub Private Sub ATFormularZa282ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATFormularZa282ToolStripMenuItem.Click Process.Start("https://formulare.bmf.gv.at/service/formulare/inter-Zoll/pdfs/9999/Za278.pdf") End Sub Private Sub ATInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATInfoToolStripMenuItem.Click Process.Start("https://service.bmf.gv.at/service/anwend/formulare/show_mast.asp?s=Za278") End Sub Private Sub DEFormular0442ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEFormular0442ToolStripMenuItem.Click Process.Start("https://www.formulare-bfinv.de/ffw/form/display.do?%24context=F11B5CC0E2F9CCCDE3E5") End Sub Private Sub DEInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEInfoToolStripMenuItem.Click Process.Start("https://www.zoll.de/DE/Fachthemen/Warenursprung-Praeferenzen/Praeferenzen/Praeferenznachweise/Ausfertigung-nicht-foermlicher-Praeferenznachweise/Registrierter-Ausfuehrer/Allgemeines-REX/allgemeines-rex_node.html") End Sub Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click Process.Start("https://formulare.bmf.gv.at/service/formulare/inter-Zoll/pdfs/9999/Za283.pdf?open=inline") End Sub Private Sub PBNIrelandFähreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PBNIrelandFähreToolStripMenuItem.Click Process.Start("https://www.ros.ie/customs-roro-control-web/ros/pbn/create") End Sub Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragAGToolStripMenuItem.Click Dim frm As New frmGesamtsicherheitenMenuNEU frm.Standort = "VERAG AG" frm.Show() End Sub Private Sub DEGesamtsicherheitVeragGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEGesamtsicherheitVeragGmbHToolStripMenuItem.Click Dim frm As New frmGesamtsicherheitenMenuNEU frm.Standort = "Verag GmbH" frm.Show() End Sub Private Sub ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Click Dim frm As New frmGesamtsicherheitenMenuNEU frm.Standort = "IMEX" frm.Show() End Sub Private Sub ATGesamtsicherheitVeragCSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATGesamtsicherheitVeragCSToolStripMenuItem.Click Dim frm As New frmGesamtsicherheitenMenuNEU frm.Standort = "Verag CS" 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 frmEssensbestellungen() f.ShowDialog(Me) 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 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 -1 'Abbrechen End If 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then ' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG ' End If 'End If ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then If Aviso.Grenzstelle <> VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Then Dim f As New frmAnkunftAendern(Aviso) If f.ShowDialog() Then Aviso.Grenzstelle = f.AVISO.Grenzstelle End If End If End If ' End If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Aviso.Änderungen = "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) AvisoDAL.addAenderung(tmpid, "auf ANKUNFT gesetzt", "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) If Not Rücksetzen Then 'nach dem erfolgreichem Speichern wird jetzt noch ein automatisches Mail für den Frächter und Auftraggeber erstellt 'Mail-Adressen aus Firmentabelle holen SendAnkunftEmail(Aviso) End If 'Ticket Drucken, wenn parameter If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("TICKET_ANKUNFT", "AVISO") Then Dim rpt As New rptQRAviso(Aviso) Dim printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True) If printer <> "" Then SDL.cProgramFunctions.printRpt(rpt, printer, True) Else SDL.cProgramFunctions.showRpt(rpt, "AVISO", False) End If End If 'Wenn Atilla, dann Eintrag anzeigen, um zu korrigieren und Aktendeckel auszudrucken If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then 'And VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Then Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim f As New frmEintragAviso f.AktenzetteldruckenVisible = True f.ShowDialog(frmGrayOut) frmGrayOut.Close() End If Return (tmpid > 0) End Function Shared Sub SendAnkunftEmail(AVISO As cAviso, 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) '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 '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 Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, KundenNr, Optional ForceMail = "") 'art = 1 : Ankunft 'art = 2 : Freigabe 'art = 3 : Ankunft Export 'art = 4 : Freigabe Export '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) ' art 0 damit nicht beim betreff auch die DY-Daten durchsuht werden und die Sendungsliste erstellt wird. hBody = Platzhalter_ersetzen(hBody, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, art, AVISO, KundenNr, anhaenge) hBody = hBody.Replace("%0", "
") 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 & "
" mailsTXT &= "CC: " & EMails_CC & "
" mailsTXT &= "BCC: " & EMails_BCC & "

" 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 SQL If SQL.getValueTxtBySql("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") = 0 Then If vbYes <> MsgBox("Keine Speditionbucheinträge vorhanden!" & vbNewLine & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then Return False End If End If Aviso.Abgeschlossen = value AvisoDAL.SpeichernAviso(Aviso) AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) Else Aviso.Abgeschlossen = value AvisoDAL.SpeichernAviso(Aviso) AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) End If Else If value Then For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows If Not CBool(r(0)) Then MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!") Return False End If Next Aviso.Abgeschlossen = value AvisoDAL.SpeichernAviso(Aviso) Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" : createNLC(Aviso) End Select AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) 'Benachrichtigungen erledigen VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False) Else Aviso.Abgeschlossen = value AvisoDAL.SpeichernAviso(Aviso) AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) End If End If Return True Else MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation) Return False End If Return True End Function Function createNLC(aviso As VERAG_PROG_ALLGEMEIN.cAviso) As Boolean Dim haserror = True Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, aviso.AvisoID) For Each s In SENDUNG_LIST If Not createNLCSimple(aviso, s) Then haserror = False Next Return haserror End Function Function createNLCSimple(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen) As Boolean Try Dim resPath As String = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\") Dim nlcString As String = My.Computer.FileSystem.ReadAllText(resPath & "\MUSTER.NLC", System.Text.Encoding.Default) nlcString = nlcString.Replace("%Empfaenger%", SENDUNG.tblSnd_Empfaenger) nlcString = nlcString.Replace("%Versender%", SENDUNG.tblSnd_Absender) nlcString = nlcString.Replace("%Fraechter%", AVISO.Frächter) nlcString = nlcString.Replace("%Auftraggeber%", SENDUNG.tblSnd_Auftraggeber) nlcString = nlcString.Replace("%AvisNr%", AVISO.AvisoID) nlcString = nlcString.Replace("%LKWKennzeichen%", AVISO.LKW_Nr) If AVISO.Ankunft > CDate("01.01.2001") Then nlcString = nlcString.Replace("%Ankunft%", AVISO.Ankunft) If AVISO.Freigabe > CDate("01.01.2001") Then nlcString = nlcString.Replace("%Datum%", AVISO.Freigabe.ToShortDateString) nlcString = nlcString.Replace("%PosNr%", SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr) If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then My.Computer.FileSystem.WriteAllText("C:\Temp\" & SENDUNG.FilialenNr & "_" & SENDUNG.AbfertigungsNr & ".nlc", nlcString, False) Else My.Computer.FileSystem.WriteAllText("\\192.168.1.20\daten\PronobisApps\JobExtender\Jobs\UpdIdx_Abfertigung\" & SENDUNG.FilialenNr & "_" & SENDUNG.AbfertigungsNr & ".nlc", nlcString, False) End If Console.ReadLine() Return True Catch ex As Exception 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_anzahlHandling = anzahl SENDUNG_TMP.tblSnd_anzahlHandlingPos = 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")) 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 If sendId Is Nothing Then Return Nothing If AvisoID Is Nothing Then Return Nothing If sendId <= 0 Then Return Nothing If AvisoID <= 0 Then Return Nothing For Each openForm In Application.OpenForms() If TypeOf (openForm) Is frmSendungsdetailsNEU Then 'MsgBox("Sendungsfenster bereits geöffnet!") 'CType(openForm, frmSendungsdetailsNEU).BringToFront() 'Return Nothing CType(openForm, frmSendungsdetailsNEU).WindowState = FormWindowState.Minimized CType(openForm, frmSendungsdetailsNEU).Close() Exit For End If Next ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) frmSendungsdetails.Show() 'Dialog() ' frmSendungsdetails.ShowDialog(frmGrayOut) ' frmGrayOut.Close() Return frmSendungsdetails End Function 'avisoAktualisierenAktiveIdBehalten(AvisoID) ' End Function Shared 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)) 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%", "

 Tracking shipment status
") 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%", "

Freundliche Grüße / Saygilarimizla / Best Regards
IMEX Customs Service GmbH
Abteilung: Zollabfertigung
Tel.: +43 7711 31630
Fax: +43 7711 31630 - 1
Mail: info@imex-group.at
") Case "UNISPED" hText = hText.Replace("%Firma_simple%", "UNISPED") hText = hText.Replace("%Firma%", "UNISPED Speditions GmbH") hText = hText.Replace("%Platzhalter2%", "

Freundliche Grüße / Saygilarimizla / Best Regards
UNISPED Speditions GmbH
Abteilung: Zollabfertigung
Tel.: +43 7711 2677-0
Mail: office@unisped.at
") 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%", "Ambar Logistic Bad Reichenhall") hText = hText.Replace("%Firma%", "Ambar Logistic in Bad Reichenhall") 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 &= "Sendungsliste:
" SendungslistTXT &= "" 'If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then ' SendungslistTXT &= "" 'Else ' SendungslistTXT &= "" 'End If Dim showNCTSAdress = False If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T1Adresse") Then showNCTSAdress = True SendungslistTXT &= "" & If(showNCTSAdress, "", "") & "" 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 = "" 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 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 If IsDate(frist) Then frist = CDate(frist).ToShortDateString Dim txtCluster = "" ' If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then txtCluster = "" txtCluster = "" SendungslistTXT &= "" & txtCluster & "" & If(showNCTSAdress, gestellungsadresse, "") & " " cnt += 1 End If Next SendungslistTXT &= "
Nr. Spedition PosNr Art Empfänger ATC/MRN Frist (T1/T2)
Nr. PosNr Art Empfänger ATC/MRN Frist (T1/T2)
Nr. Spedition PosNr Art Empfänger ATC/MRN Frist (T1/T2) Gestellungsadresse (T1/T2)
" Dim found = False Select Case s.tblSnd_Abfertigungsart_ID Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand gestellungsadresse = "" & s.getNCTSAdress(True, True, False) & "" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "
" & cnt & "" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "" & getAbfertBez(s) & "" & If(s.tblSnd_Empfaenger, "") & "" & AtcMrn & "" & frist & "
" SendungslistTXT &= "

" 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) ' 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 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