Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO Imports System.IO 'Imports Gemeinsames.cDatenbank Imports System.Drawing Imports Microsoft.Office.Interop Imports System.Security.Cryptography Public Class usrcntlAktDetails Dim VermerkeDAL As New cVermerkeDAL Public aktiv As DateTime = Now Dim sendAktiv = True Private AvisoDAL As New cAvisoDAL Private Standorte As New cStandorteDAL Private locZeilen As Integer = -1 Private Anzahl As Integer Private Grid_aktiv As Boolean = False 'Private Details_aktiv As Boolean = False Private Zähler As Long = 0 Private hMerkZeit As Date Private hMerkZeit_MeineAviso As Date Dim FUNC As New AvisoStatusFunctions Private Paketdienste_EXE As String Private hAdresse As String Private hCC 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 VermerkeAktuelleAvisoId As Integer = -1 Private infotxt As String = "" Public opensendungsDetails As Boolean = False Public AvisoID As Integer = -1 Dim loaded As Boolean = False Dim FraechterKdNr = -1 Dim AvisiererKdNr = -1 Dim WithEvents timer As New Timer Dim WithEvents timerAktUebernommen As New Timer ' Dim WithEvents reloadTimer As New Timer ' Dim WithEvents timerDetails As New Timer Dim AVISO As cAviso = Nothing Dim WithEvents timerSendRows As New Timer Dim painted As Boolean = False ' Damit gridVermerke Formattierung nicht dauernd anspringt.. Public Sub New() InitializeComponent() End Sub Public Event Shown As EventHandler Private wasShown As Boolean = False Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) MyBase.OnPaint(e) If Not wasShown Then wasShown = True RaiseEvent Shown(Me, EventArgs.Empty) End If End Sub Dim ADMIN As New cADMIN Sub New(AvisoID) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() Me.AvisoID = AvisoID ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub Public Sub reload(id) loaded = False pnlOptionen.Visible = False pnlDetailsRechts.Enabled = False Panel4.Visible = False pnlDetailsRechts.Cursor = Cursors.WaitCursor AvisoID = id Details_anzeigen() pnlDetailsRechts.Enabled = True pnlDetailsRechts.Cursor = Cursors.Default loaded = True Vermerke_anzeigen() '___________ If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG <> "QS" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG End If End If Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" : btnLkwBeleg.Visible = False End Select Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Case "WAI" lblFiskAT.Visible = False txtSndFiskalAT.Visible = False Case "NKD" lblFiskde.Visible = False txtSndFiskalDE.Visible = False Case "SUB", "NEU" txtSndFremd.Visible = True lblSndFremd.Visible = True End Select txtSendungen.Text = "1" txtSndFiskalAT.Text = "0" txtSndFiskalDE.Text = "0" lblSendungsanzahl.Visible = False '___________ initLKW_CHAT() If dgvSendungen.RowCount = 0 Then pnlAlt.Visible = True Else pnlAlt.Visible = False 'timer.Enabled = True ' initDGVSendungenRows() End If End Sub Sub initLKW_CHAT() If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("LKW_CHAT") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("LKW_CHAT", Me.FindForm) Then picAVISOMessenger.Visible = True lblLKWChat_MsgCnt.Visible = False Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_AVISOID(AvisoID) If newMsg > 0 Then lblLKWChat_MsgCnt.Text = newMsg lblLKWChat_MsgCnt.Visible = True lblLKWChat_MsgCnt.BringToFront() End If 'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_AVISOID(AvisoID) Then ' lblLKWChat_MsgCnt.Text = "!!" ' lblLKWChat_MsgCnt.Visible = True ' lblLKWChat_MsgCnt.BringToFront() 'End If End If End If End Sub Sub initSND_CHAT(SendungsID) If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("LKW_CHAT") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("LKW_CHAT", Me.FindForm) Then picAVISOMessengerSNDChat.Visible = True lblSNDChat_MsgCnt.Visible = False Dim newMsgSnd = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_SendungsID(SendungsID) If newMsgSnd > 0 Then lblSNDChat_MsgCnt.Text = newMsgSnd lblSNDChat_MsgCnt.Visible = True lblSNDChat_MsgCnt.BringToFront() End If 'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_SendungsID(SendungsID) Then ' lblSNDChat_MsgCnt.Text = "!!" ' lblSNDChat_MsgCnt.Visible = True ' lblSNDChat_MsgCnt.BringToFront() 'End If End If End If End Sub 'Private Sub Me_shown(sender As Object, e As EventArgs) Handles Me.Shown ' MsgBox("shown") ' End Sub Private Sub usrcntlAktDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load timerAktUebernommen.Interval = 1500 timer.Interval = 100 reload(AvisoID) pnl.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor txtLKW_Nr.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor txtLKW_Nr.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor cboFormulareRgAn.Items.Clear() cboFormulareRgAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Avisierer", "AVISIERER")) cboFormulareRgAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frächter", "FRACHTF")) cboFormulareRgAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", "AUFTR")) cboFormulareRgAn.changeItem("AVISIERER") Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "UNISPED" : btnSendungslisteUNISPED.Visible = True End Select If My.Computer.Screen.WorkingArea.Width < 1300 Or VERAG_PROG_ALLGEMEIN.cAllgemein.dpi > 96 Then '' btnAnkunft.AutoSize = False ' btnErfasst.AutoSize = False ' btnVorbereitet.AutoSize = False ' btnVorgeschrieben.AutoSize = False ' btnFreigabe.AutoSize = False btnAnkunft.Text = "ANKUNFT" btnErfasst.Text = "ERFASST" btnVorbereitet.Text = "VORB.QS" btnVorgeschrieben.Text = "VORGESCHR." btnFreigabe.Text = "FREIGABE" btnAnkunft.Height = 29 btnErfasst.Height = 29 btnVorbereitet.Height = 29 btnVorgeschrieben.Height = 29 btnFreigabe.Height = 29 btnAnkunft.Width = 100 btnErfasst.Width = 100 btnVorbereitet.Width = 100 btnVorgeschrieben.Width = 100 btnFreigabe.Width = 100 'btnVorgeschrieben.Text = "VORGESCHR." 'btnVorgeschrieben.Text = "VORGESCHR." End If If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Vorgeschrieben", Me.FindForm) Then lblTimeVorgeschreiben.Visible = False btnVorgeschrieben.Visible = False Else lblTimeVorgeschreiben.Visible = True btnVorgeschrieben.Visible = True End If If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_VorbQS", Me.FindForm) Then lblTimeVorbereitet.Visible = False btnVorbereitet.Visible = False Else lblTimeVorbereitet.Visible = True btnVorbereitet.Visible = True End If If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Erfasst", Me.FindForm) Then lblTimeErfasst.Visible = False btnErfasst.Visible = False Else lblTimeErfasst.Visible = True btnErfasst.Visible = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then btnOptionen.Enabled = False btnLkwBeleg.Visible = False 'tbcntlVermerke.TabPages.Remove(tbAnhang) Button18.Visible = False btnDipoListeEmail.Visible = False btnLZDruckDIGITAL.Visible = False btnAlleAkendeckel.Visible = False btnAlleSteuerbescheide.Visible = False btnDispohaft.Visible = False btnSA_Gestellung.Visible = False btnSndErstellen.Enabled = False End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then Button2.Visible = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Vermerke_löschen", "SDL") Then conVermerkEntgLöschen.Visible = True Else conVermerkEntgLöschen.Visible = False End If 'If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then ' tbcntlVermerke.TabPages.Remove(tbAnhang) 'End If If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then btnSA_Gestellung.Text = "Gest.Liste" End If VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me) End Sub Sub setVisible(b As Control, v As Boolean) ' damit die Anzeige nicht flackert If Not b.Visible = v Then b.Visible = v 'b.Enabled = v End If End Sub Private Sub Details_anzeigen() aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick) If AvisoID <= 0 Then Exit Sub 'Dim Aviso As New cAviso AVISO = AvisoDAL.LesenAviso(AvisoID, "") If AVISO Is Nothing Then Exit Sub lblIMEX.Text = AVISO.ImEx lblIMEX.Visible = (AVISO.ImEx <> "") FraechterKdNr = IIf(IsNumeric(AVISO.Frächter_KdNr), AVISO.Frächter_KdNr, -1) AvisiererKdNr = IIf(IsNumeric(AVISO.Auftraggeber_KdNr), AVISO.Auftraggeber_KdNr, -1) txtFrächter.Cursor = IIf(FraechterKdNr > 0, Cursors.Hand, Cursors.Default) txtAuftraggeber.Cursor = IIf(AvisiererKdNr > 0, Cursors.Hand, Cursors.Default) cbxLZDeFisk.Checked = False If AVISO.Grenzstelle = "DTB" Then cbxLZDeFisk.Checked = True txtFrächter.Text = AVISO.Frächter txtAuftraggeber.Text = AVISO.Auftraggeber txtAktMA.Text = AVISO.letzterMitarbeiter txtLKWID.Text = AVISO.AvisoID ' cbxHandling.Checked = Aviso.Handling cbxHandling.Visible = AVISO.Handling ' cbxSammelakt.Checked = Aviso.Sammelakt ' lblHinweis.Visible = (Aviso.AvisoTVHinweis <> "") txtLKW_Nr.Text = AVISO.LKW_Nr lblTimeErfasst.Text = formatdate(AVISO.Datum) lblTimeAnkunft.Text = formatdate(AVISO.Ankunft) lblTimeFreigabe.Text = formatdate(AVISO.Freigabe) lblTimeVorbereitet.Text = formatdate(AVISO.Vorbereitet) lblTimeVorgeschreiben.Text = formatdate(AVISO.Vorgeschrieben) Vermerke_anzeigen() initDgvSendungen() If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID <= 0 Then dgvSendungen.ClearSelection() 'Button6.Focus() ' pnlDetailsRechts.Visible = True ' pnlDetailsRechts.Cursor = Cursors.Default ' pnlDetailsRechts.PerformLayout() 'pnlDetailsRechts.la ' pnlDetailsRechts.Width = SplitContainer1.Width ' pnlDetailsRechts.Height = SplitContainer1.Height ' btnLkwBeleg.Visible = False btnAktAbschliessen.Visible = False btnAktAbschliessen.BackColor = Color.DarkGreen lblBarZuKassierenSumme.Visible = False Select Case AVISO.Status Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft lblStatus.Text = "ANKUNFT" : pnlStatus.BackColor = btnAnkunft.BackColor btnAktAbschliessen.Visible = False lblBarZuKassierenSumme.Visible = True Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst lblStatus.Text = "ERFASST" : pnlStatus.BackColor = btnErfasst.BackColor btnAktAbschliessen.Visible = True btnAktAbschliessen.BackColor = Color.Gray Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet lblStatus.Text = "VORBEREITET - QS" : pnlStatus.BackColor = btnVorbereitet.BackColor btnAktAbschliessen.Visible = True btnAktAbschliessen.BackColor = Color.Gray Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben lblStatus.Text = "VORGESCHRIEBEN" : pnlStatus.BackColor = btnVorgeschrieben.BackColor btnAktAbschliessen.Visible = True btnAktAbschliessen.BackColor = Color.Gray Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben lblStatus.Text = "FREIGABE" : pnlStatus.BackColor = btnFreigabe.BackColor btnAktAbschliessen.Visible = True ' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", Me.FindForm) Then 'btnLkwBeleg.Visible = True ' End If 'For Each s In sendun 'If alle spedbuchOK 'visible Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen lblStatus.Text = "NICHT EINGETR." : pnlStatus.BackColor = Color.Gray 'btnNichtEingetroffen.BackColor End Select 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then ' Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False) ' If path <> "" Then Process.Start(path) 'End If If AVISO.Abgeschlossen Then pnlAbgeschlossen.Visible = True btnAktAbschliessen.Visible = False ' btnLkwBeleg.Visible = False Else pnlAbgeschlossen.Visible = False ' btnAktAbschliessen.Visible = True End If intiAktUebernehmenBtn() 'Kann nur bei Freigabe angezeigt werden 'If AVISO.Status <> VERAG_PROG_ALLGEMEIN.cglobal.Status_Freigegeben Then ' btnAktAbschliessen.Visible = False 'End If End Sub 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 Shared Sub gridVermerke_SpaltenFestlegen(gridVermerke As DataGridView) If gridVermerke.RowCount = 0 Then gridVermerke.Columns.Clear() : Exit Sub With gridVermerke ' " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr," & ' " isnull(VermerkeCodes.Bezeichnung,[Hinweis_Vermerk])as [Hinweis_Vermerk], tblSendungen.tblSnd_Auftraggeber ,[Mitarbeiter]" & .RowTemplate.MinimumHeight = 20 .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells .Columns("VermerkID").Visible = False 'VermerkID nicht anzeigen .Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen .Columns("SendungID").Visible = False 'VermerkCode nicht anzeigen .Columns("VermerkeCode").Visible = False 'VermerkeCode nicht anzeigen .Columns("MitarbeiterId").Visible = False 'MitarbeiterId nicht anzeigen .Columns("Hinweis_Vermerk").Visible = False 'Hinweis_Vermerk nicht anzeigen .Columns("tblSnd_Empfaenger").Visible = False 'tblSnd_Empfaengernicht anzeigen .Columns("Hervorheben").Visible = False 'tblSnd_Empfaengernicht anzeigen .Columns("Geloescht").Visible = False 'tblSnd_Empfaengernicht anzeigen .Columns("VorauskasseId").Visible = False 'tblSnd_Empfaengernicht anzeigen .Columns("SMSId").Visible = False 'tblSnd_Empfaengernicht anzeigen .Columns("VermerkIDAufgehoben").Visible = False 'tblSnd_Empfaengernicht anzeigen .Columns("Datum").Width = 125 '110 .Columns("Datum").HeaderText = "Datum" .Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)" .Columns("Hinweis_Vermerk_Anzeige").MinimumWidth = 150 .Columns("Hinweis_Vermerk_Anzeige").HeaderText = "Hinweistext zu Vermerk" .Columns("Hinweis_Vermerk_Anzeige").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("tblSnd_PosUnterNr").Width = 50 .Columns("tblSnd_PosUnterNr").HeaderText = "Send.Nr" .Columns("tblSnd_PosUnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("Mitarbeiter").MinimumWidth = 50 .Columns("Mitarbeiter").HeaderText = "Mitarbeiter" .Columns("Hinweis_Vermerk_Anzeige").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill ' .Columns.Add(New DataGridViewButtonColumn) .Columns("VermerkeOptions").Width = 120 .Columns("VermerkeOptions").HeaderText = "Optionen" .Columns("VermerkeOptions").ReadOnly = True End With End Sub Sub dgvCellToCbo2(dgv As DataGridView, columnName As String, HeaderText As String, DataPropertyName As String, sqlstr As String, Optional conn_art As String = "SDL", Optional dropdownwidth As Integer = -1, Optional simpleStyle As Boolean = False) Dim comboBoxColumn As New DataGridViewComboBoxColumn Dim SQL As New SDL.SQL Dim columnIndex = dgv.Columns(columnName).Index With comboBoxColumn .HeaderText = HeaderText .DataPropertyName = DataPropertyName .Name = columnName .DataSource = SQL.loadDgvBySql(sqlstr, conn_art) .ValueMember = .DataSource.Columns(0).ColumnName .DisplayMember = .DataSource.Columns(1).ColumnName .FlatStyle = FlatStyle.Flat If simpleStyle Then .DisplayStyle = DataGridViewComboBoxDisplayStyle.Nothing If dropdownwidth > 0 Then .DropDownWidth = dropdownwidth End With dgv.Columns.RemoveAt(columnIndex) dgv.Columns.Insert(columnIndex, comboBoxColumn) End Sub Private Sub initDgvSendungen() 'Optional keepSelrow = False) With dgvSendungen ' Dim selRow = If(.SelectedRows.Count > 0, .SelectedRows(0).Index, -1) .Columns.Clear() .DataSource = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr ,/*rank() OVER (ORDER BY tblSnd_PosUnterNr) as */ tblSnd_PosUnterNr, [tblSnd_SendungID],[tblSnd_AvisoID],[tblSnd_Abfertigungsart_ID],[tblSnd_EmpfaengerKdNr],[tblSnd_Empfaenger],isnull(cast(FilialenNr as varchar (4)),'')+'/' + isnull(cast(AbfertigungsNr as varchar (8)),'') as AbfertigungsNr,(SELECT (CASE WHEN Count(*)>0 THEN cast(COUNT(*) as varchar(4)) ELSE '-' END) FROM Vermerke WHERE AvisoID=" & AvisoID & " AND SendungID=tblSnd_SendungID) as Vermerke, tblSnd_SpeditionsbuchEingetragen,tblSnd_Fremdspedition,tblSnd_FremdspeditionText,isnull(tblSnd_QS_MA,-1) as tblSnd_QS_MA,tblSnd_Vorbereitet,tblSnd_Vorgeschrieben,LetzterMitarbeiterId,tblSnd_VG_MA,LetzterMitarbeiter,tblSnd_BARzuKassieren,tblSnd_Fakturiert, AbfertigungsNr as AbfertigungsNr2, tblSnd_AbklaerungTR, tblSnd_AbklaerungTR_MA ,tblSnd_AbfertigungTR, tblSnd_AbfertigungTR_MA " & " FROM tblSendungen WHERE tblSnd_AvisoId=" & AvisoID & " ORDER BY tblSnd_PosUnterNr") 'LEFT JOIN tblQS_Abfertigungsarten ON [tblSnd_Abfertigungsart_ID]=QS_Abfertigungsart_ID ' If .RowCount = 0 Then .Columns.Clear() : Exit Sub .RowTemplate.MinimumHeight = 20 .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells .Columns("tblSnd_SendungID").Visible = False 'VermerkID nicht anzeigen .Columns("tblSnd_AvisoID").Visible = False 'AvisoID nicht anzeigen .Columns("tblSnd_EmpfaengerKdNr").Visible = False 'AvisoID nicht anzeigen .Columns("tblSnd_Abfertigungsart_ID").Visible = False .Columns("tblSnd_SpeditionsbuchEingetragen").Visible = False .Columns("tblSnd_QS_MA").Visible = False .Columns("tblSnd_Fremdspedition").Visible = False .Columns("tblSnd_FremdspeditionText").Visible = False .Columns("tblSnd_Vorgeschrieben").Visible = False .Columns("tblSnd_AbklaerungTR").Visible = False .Columns("tblSnd_AbklaerungTR_MA").Visible = False .Columns("tblSnd_AbfertigungTR").Visible = False .Columns("tblSnd_AbfertigungTR_MA").Visible = False .Columns("tblSnd_Vorbereitet").Visible = False .Columns("LetzterMitarbeiter").Visible = False .Columns("LetzterMitarbeiterId").Visible = False .Columns("tblSnd_VG_MA").Visible = False .Columns("tblSnd_BARzuKassieren").Visible = False .Columns("tblSnd_Fakturiert").Visible = False .Columns("AbfertigungsNr2").Visible = False .Columns("tblSnd_PosUnterNr").Width = 20 .Columns("tblSnd_PosUnterNr").HeaderText = "Nr." .Columns("tblSnd_PosUnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter ' .Columns("QS_Abfertigungsart_Bezeichnung").Width = 130 ' .Columns("QS_Abfertigungsart_Bezeichnung").HeaderText = "Art" .Columns("tblSnd_Empfaenger").MinimumWidth = 130 .Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger" .Columns("tblSnd_Empfaenger").HeaderText = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE_SUB(Me, dgvSendungen, .Columns("tblSnd_Empfaenger"), .Columns("tblSnd_Empfaenger").HeaderText) .Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill ' .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("Vermerke").Width = 45 .Columns("Vermerke").HeaderText = "Verm." .Columns("FilialenNr").Width = 20 .Columns("FilialenNr").HeaderText = "Firma" Dim c As DataGridViewImageColumn 'tblSnd_Empfaenger() 'c = New DataGridViewImageColumn 'c.Name = "SendungBearbeiten" 'c.Image = My.Resources.stift2 : c.ImageLayout = DataGridViewImageCellLayout.Zoom 'c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White 'c.ToolTipText = "Sendungsdetails bearbeiten" '.Columns.Add(c) c = New DataGridViewImageColumn c.Name = "KundeAnzeigen" c.Image = My.Resources.personInaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White c.DefaultCellStyle.Tag = "Empfänger: Kundendaten anzeigen" .Columns.Add(c) 'c = New DataGridViewImageColumn 'c.Name = "VermerkEintragen" 'c.Image = My.Resources.vermerkBtn : c.ImageLayout = DataGridViewImageCellLayout.Zoom 'c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White 'c.ToolTipText = "Vermerk eintragen" '.Columns.Add(c) If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SendungsStatusAbklaerungTR", "AVISO") Then c = New DataGridViewImageColumn c.Name = "StatusAbklaerungTR" c.Image = My.Resources.abklaerungTR_Inaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White c.ToolTipText = "Status 'AbklärungTR' eintragen" c.HeaderText = "TR" .Columns.Add(c) End If 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) If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SendungsStatusAbfertigungTR", "AVISO") Then c = New DataGridViewImageColumn c.Name = "StatusAbfertigungTR" c.Image = My.Resources.abfetigungTR_inaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White c.ToolTipText = "Status 'AbfertigungTR' eintragen" c.HeaderText = "TR" .Columns.Add(c) End If c = New DataGridViewImageColumn c.Name = "SpeditionsbuchEintragen" c.Image = My.Resources.speditionsbuchInaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White c.ToolTipText = "Speditionsbuch" .Columns.Add(c) 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then ' c = New DataGridViewImageColumn ' c.Name = "Abgeklaert" ' c.Image = My.Resources.abgeklaertInaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom ' c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White ' c.ToolTipText = "Durch mich abgeklärt" ' .Columns.Add(c) 'End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SendungsStatusFakturiert", "AVISO") Then c = New DataGridViewImageColumn c.Name = "SendungFakturiert" c.Image = My.Resources.fakturiertInaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White c.ToolTipText = "Fakturiert" .Columns.Add(c) End If ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then c = New DataGridViewImageColumn c.Name = "SenungUebernehmen" c.Image = My.Resources.personCheck_gray_small : c.ImageLayout = DataGridViewImageCellLayout.Zoom c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White c.ToolTipText = "Senung übernehmen" .Columns.Add(c) ' End If c = New DataGridViewImageColumn c.Name = "SenungWeiterleiten" c.Image = My.Resources.tranparent30Perc : c.ImageLayout = DataGridViewImageCellLayout.Zoom c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White c.ToolTipText = "Senung weiterleiten" .Columns.Add(c) ' End If Dim t = New DataGridViewTextBoxColumn t.Name = "Abfertigungsart" t.HeaderText = "Abfertigungsart" t.HeaderText = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE_SUB(Me, dgvSendungen, t, t.HeaderText) t.Width = 100 : t.DefaultCellStyle.Padding = New Padding(2) : t.DefaultCellStyle.BackColor = Color.White 't.ToolTipText = "" .Columns.Insert(3, t) Try Dim BarZuKassierenSumme As Double = 0 For Each r As DataGridViewRow In dgvSendungen.Rows 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 = ADMIN.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 r.Cells("FilialenNr").Style.ForeColor = Color.White Select Case r.Cells("FilialenNr").Value Case "4803", "4805", "5003", "5103", "5303", "4811", "7001" r.Cells("FilialenNr").Style.BackColor = Color.FromArgb(0, 54, 128) r.Cells("FilialenNr").Style.ForeColor = r.Cells("FilialenNr").Style.BackColor Case "5501" r.Cells("FilialenNr").Style.BackColor = Color.Yellow r.Cells("FilialenNr").Style.ForeColor = r.Cells("FilialenNr").Style.BackColor Case "5601" r.Cells("FilialenNr").Style.BackColor = Color.Red r.Cells("FilialenNr").Style.ForeColor = r.Cells("FilialenNr").Style.BackColor Case "5701" r.Cells("FilialenNr").Style.BackColor = Color.SkyBlue r.Cells("FilialenNr").Style.ForeColor = r.Cells("FilialenNr").Style.BackColor Case Else r.Cells("FilialenNr").Style.BackColor = Color.White End Select r.Cells("FilialenNr").Style.SelectionBackColor = r.Cells("FilialenNr").Style.BackColor r.Cells("FilialenNr").Style.SelectionForeColor = r.Cells("FilialenNr").Style.ForeColor If r.Cells("tblSnd_BARzuKassieren").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("tblSnd_BARzuKassieren").Value) Then ' BarZuKassierenSumme += CDbl(r.Cells("tblSnd_BARzuKassieren").Value) End If Next ' timerSendRows.Enabled = False If BarZuKassierenSumme <> 0 Then lblBarZuKassierenSumme.Text = "BAR: " & BarZuKassierenSumme.ToString("C2") Else lblBarZuKassierenSumme.Text = "" End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try 'If keepSelrow And .Rows.Count > selRow Then ' .Rows(selRow).Selected = True 'End If changeCurrentSndId() timerSendRows.Interval = 10 timerSendRows.Enabled = True End With End Sub Public Sub changeCurrentSndId() Try Dim sendAktivTmp = sendAktiv For Each r As DataGridViewRow In dgvSendungen.Rows If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID > 0 Then If r.Cells("tblSnd_SendungID").Value = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then sendAktiv = False dgvSendungen.ClearSelection() ' r.Cells("tblSnd_PosUnterNr").Selected = True r.Selected = True sendAktiv = sendAktivTmp 'MsgBox("sosso" & VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID) End If End If Next ' timerSendRows.Enabled = False Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End Sub Private Sub Vermerke_anzeigen(Optional rowindex As Integer = -1) If Not loaded Then Exit Sub picArrowDown.Visible = False aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick) gridVermerke.Columns.Clear() lblInfoAviso.Visible = False infotxt = "" ' If setAkive_AuswahlID() = -1 Then Exit Sub If AvisoID <= 0 Then Exit Sub pnlMAInfo.Visible = False Button18.Visible = False btnQuckScan.Visible = False Select Case tbcntlVermerke.SelectedIndex Case 0, 1, 2 : Vermerke_anzeigen2(rowindex) Case 3 If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_ANHAENGE_QuickScan", Me.FindForm) Then btnQuckScan.Visible = True End If Dim AktSndAnhaenge = " AND isnull(anh_SendungsId,0) <=0 " If dgvSendungen.SelectedRows.Count > 0 Then AktSndAnhaenge = " AND ( isnull(anh_SendungsId,0) <=0 OR isnull(anh_SendungsId,0)='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value & "' ) " End If Dim WhereWO = " " If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then WhereWO = " AND isnull(anh_SendungsId,0) <> 0 " End If Button18.Visible = True Dim hSQL As String = " Select [anh_id],[anh_Name],[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ], anh_markiert FROM [tblAvisoAnhaenge] WHERE [anh_AvisoId]='" & AvisoID & "' " & AktSndAnhaenge & " " & WhereWO & " ORDER BY anh_SendungsId desc, case when [anh_Art] = 'ATR' then 0 when [anh_Art] = 'ATR-EUR1' then 0 when [anh_Art] = 'EUR1' then 0.1 when [anh_Art] = 'Rechnung' then 1 when [anh_Art] = 'eFatura' then 1.1 when [anh_Art] = 'CMR' then 2 when [anh_Art] = 'Ausfuhr' then 3 when [anh_Art] = 'Vorpapier' then 4 when [anh_Art] = 'Packliste' then 5 when [anh_Art] = 'Auftrag' then 6 when [anh_Art] = 'Auftrag' then 7 when [anh_Art] = 'Dispoliste' then 8 when [anh_Art] = 'Vorkasse' then 9 when [anh_Art] = 'Überweisungsbeleg' then 10 when [anh_Art] = 'Vollmacht' then 11 when [anh_Art] = 'ATB' then 12 when [anh_Art] = 'ATA' then 13 when [anh_Art] = 'GGED_D' then 40 when [anh_Art] = 'GGED_PP' then 41 when [anh_Art] = 'GGED_P' then 42 when [anh_Art] = 'GGED_A' then 43 when [anh_Art] = 'PHYTO' then 44 when [anh_Art] = 'CONFORM' then 45 when [anh_Art] = 'Sonstiges' then 99 when [anh_Art] ='' then 15 END, [anh_Reihenfolge],[anh_id]" ' order by [anh_Reihenfolge],[anh_id] gridVermerke.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL) If gridVermerke.RowCount = 0 Then gridVermerke.Columns.Clear() : Exit Sub With gridVermerke .RowTemplate.MinimumHeight = 20 .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells .Columns("anh_id").Visible = False 'VermerkID nicht anzeigen .Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen .Columns("anh_markiert").Visible = False 'AvisoID nicht anzeigen .Columns("anh_Name").MinimumWidth = 150 .Columns("anh_Name").HeaderText = "Name" .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("anh_Art").MinimumWidth = 50 .Columns("anh_Art").HeaderText = "Art" .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("anh_Typ").Width = 60 .Columns("anh_Typ").HeaderText = "Typ" .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter For Each row As DataGridViewRow In gridVermerke.Rows If Not IsDBNull(row.Cells("anh_markiert").Value) Then If row.Cells("anh_markiert").Value Then row.DefaultCellStyle.BackColor = Color.Yellow End If Next End With End Select painted = False ArrowDown_ShowHide() End Sub Public Shared vermerkehSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," & " CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94,101,102) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben" & " FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " & " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " & " WHERE AvisoID = [[AvisoId]] [[sendwhere]] " & " order by /*VermerkArt ASC,tblSnd_PosUnterNr,*/Datum DESC " Private Sub Vermerke_anzeigen2(Optional rowindex As Integer = -1) If Not loaded Then Exit Sub aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick) gridVermerke.Columns.Clear() lblInfoAviso.Visible = False infotxt = "" ' MsgBox("SO") ' If setAkive_AuswahlID() = -1 Then Exit Sub If AvisoID <= 0 Then Exit Sub Select Case tbcntlVermerke.SelectedIndex Case 0, 1 Case 2 End Select 'Hier werden die passenden Vermerke zum Aviso angezeigt Dim sendwhere = "" If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then If gridVermerke.Columns("tblSnd_PosUnterNr") IsNot Nothing Then gridVermerke.Columns("tblSnd_PosUnterNr").Visible = False Select Case tbcntlVermerke.SelectedIndex Case 0 ' dgvSendungen.ClearSelection() Case 1 ' If dgvSendungen.SelectedRows.Count > 0 Then sendwhere = " AND VermerkArt='A' " ' End If Case 2 Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL picMAinfo_VorbereitetQs.BackgroundImage = My.Resources.statusBtn_vorbereitet_InAktiv txtMAinfo_VorbereitetQs.Text = "-" txtMAinfo_VorbereitetQs.Tag = "" picMAinfo_Vorgeschrieben.BackgroundImage = My.Resources.statusBtn_vorgeschrieben_InAktiv txtMAinfo_Vorgeschrieben.Text = "-" txtMAinfo_Vorgeschrieben.Tag = "" picMAinfo_AbklaerungTR.BackgroundImage = My.Resources.abklaerungTR_Inaktiv txtMAinfo_AbklaerungTR.Text = "-" txtMAinfo_AbklaerungTR.Tag = "" picMAinfo_TRVorgeschrieben.BackgroundImage = My.Resources.abfetigungTR_inaktiv txtMAinfo_TRVorgeschrieben.Text = "-" txtMAinfo_TRVorgeschrieben.Tag = "" txtMAinfo_TRVorgeschrieben.Visible = False picMAinfo_TRVorgeschrieben.Visible = False 'picMAinfo_AbfertigungTR.BackgroundImage = My.Resources.AbfertigungTR_Inaktiv 'txtMAinfo_AbfertigungTR.Text = "-" 'txtMAinfo_AbfertigungTR.Tag = "" If dgvSendungen.SelectedRows.Count > 0 Then sendwhere = " AND VermerkArt='S' AND SendungID=" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value initSND_CHAT(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) '--------------------------------------------------------- 'MA INFO '--------------------------------------------------------- 'AbklaerungTR pnlMAInfo.Visible = True If dgvSendungen.SelectedRows(0).Cells("tblSnd_AbklaerungTR").Value IsNot DBNull.Value Then picMAinfo_AbklaerungTR.BackgroundImage = My.Resources.abklaerungTR_Aktiv txtMAinfo_AbklaerungTR.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_AbklaerungTR_MA").Value & "'", "ADMIN", "-") txtMAinfo_AbklaerungTR.Tag = dgvSendungen.SelectedRows(0).Cells("tblSnd_AbklaerungTR_MA").Value End If 'AbfertigungTR 'pnlMAInfoXX.Visible = True 'If dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR").Value IsNot DBNull.Value Then ' picMAinfo_AbfertigungTR.BackgroundImage = My.Resources.AbfertigungTR_Aktiv ' txtMAinfo_AbfertigungTR.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR_MA").Value & "'", "ADMIN", "-") ' txtMAinfo_AbfertigungTR.Tag = dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR_MA").Value 'End If 'Vorbereitet pnlMAInfo.Visible = True If dgvSendungen.SelectedRows(0).Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then picMAinfo_VorbereitetQs.BackgroundImage = My.Resources.statusBtn_vorbereitet_Aktiv txtMAinfo_VorbereitetQs.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_QS_MA").Value & "'", "ADMIN", "-") txtMAinfo_VorbereitetQs.Tag = dgvSendungen.SelectedRows(0).Cells("tblSnd_QS_MA").Value End If '--------------------------------------------------------- 'Vorgeschrieben pnlMAInfo.Visible = True If dgvSendungen.SelectedRows(0).Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then picMAinfo_Vorgeschrieben.BackgroundImage = My.Resources.statusBtn_vorgeschrieben_Aktiv txtMAinfo_Vorgeschrieben.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_VG_MA").Value & "'", "ADMIN", "-") txtMAinfo_Vorgeschrieben.Tag = dgvSendungen.SelectedRows(0).Cells("tblSnd_VG_MA").Value End If '--------------------------------------------------------- 'AbfertigungTR If dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR").Value IsNot DBNull.Value Then picMAinfo_TRVorgeschrieben.BackgroundImage = My.Resources.abfetigungTR_aktiv txtMAinfo_TRVorgeschrieben.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR_MA").Value & "'", "ADMIN", "-") txtMAinfo_TRVorgeschrieben.Tag = dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR_MA").Value txtMAinfo_TRVorgeschrieben.Visible = True picMAinfo_TRVorgeschrieben.Visible = True End If '--------------------------------------------------------- Else sendwhere = " AND 1=0 " ' 1=0, damit keine Zeile angezeigt wird, wenn keine Sendung ausgewählt End If If gridVermerke.Columns("tblSnd_PosUnterNr") IsNot Nothing Then gridVermerke.Columns("tblSnd_PosUnterNr").Visible = True '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 '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 Select End If ' Dim hSQL As String = "SELECT [VermerkID],[AvisoID],[Datum],[Mitarbeiter],[Hinweis_Vermerk],[VermerkeCode],[MitarbeiterId] FROM Vermerke WHERE AvisoID = " & AvisoID & " " & sendwhere & " ORDER BY Datum DESC" Dim hSQL = usrcntlAktDetails.vermerkehSQL hSQL = hSQL.Replace("[[AvisoId]]", AvisoID) hSQL = hSQL.Replace("[[sendwhere]]", sendwhere) infotxt = AvisoDAL.getAvisoInfo(AvisoID) If infotxt <> "" Then lblInfoAviso.Visible = True End If gridVermerke.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL) If gridVermerke.Columns("VermerkeOptions") Is Nothing Then Dim dgvlc As New DataGridViewLinkColumn dgvlc.Name = "VermerkeOptions" gridVermerke.Columns.Insert(gridVermerke.ColumnCount - 1, dgvlc) End If 'Grid neu designen 'GridZeichnenBilanz() usrcntlAktDetails.gridVermerke_SpaltenFestlegen(gridVermerke) 'If tbcntlVermerke.SelectedIndex = 2 And rowindex > 0 Then If rowindex > 0 Then 'dgvSendungen.ClearSelection() 'dgvSendungen.Rows(rowindex).Selected = True Else gridVermerke.ClearSelection() End If ' timer.Enabled = True ' initDGVSendungenRows() End Sub Private Sub gridVermerkeMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles gridVermerke.CellContentClick Dim tmpIndex = -1 If (dgvSendungen.SelectedRows.Count > 0) Then tmpIndex = dgvSendungen.SelectedRows(0).Index End If Dim init As Boolean = False gridVermerkeMouseClick(gridVermerke, e.ColumnIndex, e.RowIndex, AVISO, tmpIndex, init) loaded = False ' Dim tmpIndex = -1 If init Then ' If (dgvSendungen.SelectedRows.Count > 0) Then ' tmpIndex = dgvSendungen.SelectedRows(0).Index 'End If sendAktiv = False initDgvSendungen() sendAktiv = True 'dgvSendungen.ClearSelection() 'If tmpIndex > 0 And dgvSendungen.RowCount > tmpIndex Then ' dgvSendungen.Rows(tmpIndex).Selected = True 'End If loaded = True Vermerke_anzeigen(tmpIndex) End If End Sub Shared Sub gridVermerkeMouseClick(gridVermerke, ColumnIndex, RowIndex, AVISO, sendungsId, ByRef init) If gridVermerke.RowCount = 0 Then Exit Sub Dim AvisoStatusFunctions As New AvisoStatusFunctions If gridVermerke.Columns(ColumnIndex).Name = "VermerkeOptions" Then Dim VermekId = gridVermerke.Rows(RowIndex).Cells("VermerkID").Value Dim VermerkeDAL As New cVermerkeDAL Dim myVermerk As cVermerk = VermerkeDAL.LesenVermerk(VermekId, "") myVermerk.VermerkID = 0 'myVermerk.AvisoID = CInt(gridVermerke.Rows(RowIndex).Cells(1).Value) myVermerk.Datum = Now myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID init = False Select Case CStr(gridVermerke.Rows(RowIndex).Cells("VermerkeCode").Value) Case "1" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 2 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex) ' initDgvSendungen() Case "3" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 4 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "5" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 6 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "7" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 8 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "9" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 10 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "11" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 12 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "90" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 93 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "13" If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" OrElse VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Vermerk_VKErhalten", "AVISO") Then myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 14 If gridVermerke.Rows(RowIndex).Cells("VorauskasseId").Value IsNot DBNull.Value Then myVermerk.VorauskasseId = gridVermerke.Rows(RowIndex).Cells("VorauskasseId").Value End If Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Else MsgBox("Keine Berechtigung. Bitte wenden Sie sich an die Buchhaltung oder Abteilungsleitung.") End If Case "17" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig") myVermerk.VermerkCodeId = 18 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False) ' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID) 'Vermerke_aktualisieren() init = True ' Vermerke_anzeigen(RowIndex) Case "19" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig") myVermerk.VermerkCodeId = 20 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "25" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 30 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "31" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschl.") myVermerk.VermerkCodeId = 32 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "33" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 34 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "46" MsgBox("SMS " & gridVermerke.Rows(RowIndex).Cells("VermerkeOptions").ToolTipText) init = False 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "36" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 37 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "53" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 54 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "55" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 56 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "57" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 58 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "74" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 75 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "76" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 77 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "80" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("folgt", "erhalten") myVermerk.VermerkCodeId = 81 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() 'Ankunft If vbYes = MsgBox("Soll der LKW auf Status 'ANKUNFT' gesetzt werden?", vbYesNoCancel) Then If AvisoStatusFunctions.setAnkunft(AVISO.AvisoID) Then frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) End If End If Case "82" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig") myVermerk.VermerkCodeId = 83 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False) Dim sql As New VERAG_PROG_ALLGEMEIN.SQL sql.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1 where avisoid=" & AVISO.AvisoID, "AVISO") AvisoStatusFunctions.printFinish(AVISO) ' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID) 'Vermerke_aktualisieren() init = True ' Vermerke_anzeigen(RowIndex) Case "96" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 97 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "101" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("offen", "erledigt") myVermerk.VermerkCodeId = 102 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "103" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 104 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "105" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 106 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() Case "107" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 108 Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp) init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen() End Select End If End Sub Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint If painted Then Exit Sub If dgvSendungen.RowCount = 0 Then Exit Sub gridVermerke_Paint(gridVermerke) painted = True End Sub Shared Sub gridVermerke_Paint(gridvermerke As DataGridView) Try If gridvermerke.Columns("VermerkeOptions") Is Nothing Then Exit Sub For Each r As DataGridViewRow In gridvermerke.Rows ' If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then Dim optionCell As DataGridViewLinkCell = DirectCast(r.Cells("VermerkeOptions"), DataGridViewLinkCell) If CBool(r.Cells("Hervorheben").Value) Then 'r.DefaultCellStyle.BackColor = Color.Firebrick 'r.DefaultCellStyle.ForeColor = Color.White r.DefaultCellStyle.BackColor = Color.Yellow End If If CBool(r.Cells("Geloescht").Value) Then r.DefaultCellStyle.Font = New Font(gridvermerke.Font.FontFamily, gridvermerke.Font.Size, FontStyle.Strikeout) End If If (r.Cells("VermerkeCode").Value) IsNot DBNull.Value Then Select Case CInt(r.Cells("VermerkeCode").Value) Case 1 If Not existCodeInGridVermerke(gridvermerke, 2, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Auftrag erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Auftrag erhalten' einzutragen." End If Case 3 If Not existCodeInGridVermerke(gridvermerke, 4, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Rechnung erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rechnung erhalten' einzutragen." End If Case 5 If Not existCodeInGridVermerke(gridvermerke, 6, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "LS erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'LS erhalten' einzutragen." End If Case 7 If Not existCodeInGridVermerke(gridvermerke, 8, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "ATR erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATR erhalten' einzutragen." End If Case 9 If Not existCodeInGridVermerke(gridvermerke, 10, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Vollmacht erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vollmacht erhalten' einzutragen." End If Case 11 If Not existCodeInGridVermerke(gridvermerke, 12, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "CMR erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'CMR erhalten' einzutragen." End If Case 90 If Not existCodeInGridVermerke(gridvermerke, 93, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Packliste erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Packliste erhalten' einzutragen." End If Case 13 If r.Cells("VorauskasseId").Value IsNot DBNull.Value Then If Not existCodeInGridVermerke_VK(gridvermerke, r.Cells("VorauskasseId").Value) Then optionCell.Value = "Vorauskasse erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen." End If Else If Not existCodeInGridVermerke_VK_OLD(gridvermerke, r.Cells("SendungID").Value) Then optionCell.Value = "Vorauskasse erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen." End If End If Case 17 If Not existCodeInGridVermerke(gridvermerke, 18) Then optionCell.Value = "DE-ZOLL fertig" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL fertig' einzutragen." End If Case 19 If Not existCodeInGridVermerke(gridvermerke, 20) Then optionCell.Value = "AT-ZOLL fertig" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'AT-ZOLL fertig' einzutragen." End If Case 25 If Not existCodeInGridVermerke(gridvermerke, 30, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Dokument erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dokument erhalten' einzutragen." End If Case 31 If Not existCodeInGridVermerke(gridvermerke, 32, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Vorbereitung abgeschlossen" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorbereitung abgeschlossen' einzutragen." End If Case 33 If Not existCodeInGridVermerke(gridvermerke, 34, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "ATA-Nr. erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATA-Nr. erhalten' einzutragen." End If Case 36 If Not existCodeInGridVermerke(gridvermerke, 37, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Kontaktdaten erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kontaktdaten erhalten' einzutragen." End If Case 46 If r.Cells("SMSId").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("SMSId").Value) Then Dim SMS As New VERAG_PROG_ALLGEMEIN.cSMS(r.Cells("SMSId").Value) optionCell.ToolTipText = "SMS Satus" optionCell.Style.BackColor = Color.White optionCell.LinkColor = Color.Black 'Select Case MSG.Status ' Case MessageStatus.Expired, MessageStatus.Failed, MessageStatus.FailedAuthorisation, MessageStatus.Cancelled, MessageStatus.Rejected Select Case SMS.sms_Status Case -1 : optionCell.Value = "" Case com.esendex.sdk.core.MessageStatus.Submitted, com.esendex.sdk.core.MessageStatus.Sent, com.esendex.sdk.core.MessageStatus.Connecting, com.esendex.sdk.core.MessageStatus.Acknowledged, com.esendex.sdk.core.MessageStatus.Scheduled optionCell.Value = "wartend..." optionCell.Style.BackColor = Color.PapayaWhip optionCell.Style.SelectionBackColor = optionCell.Style.BackColor Case com.esendex.sdk.core.MessageStatus.Delivered, com.esendex.sdk.core.MessageStatus.PartiallyDelivered optionCell.Value = "OK - Empfangen!" optionCell.LinkColor = Color.Green ' optionCell.Style.BackColor = Color.Green ' optionCell.LinkColor = Color.White 'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor Case Else : optionCell.Value = "SMS: Sendefehler!" optionCell.ToolTipText = "Sendefehler: " & SMS.sms_Failure optionCell.LinkColor = Color.Red optionCell.Style.BackColor = Color.PapayaWhip optionCell.Style.Font = New Font(gridvermerke.Font.FontFamily, gridvermerke.Font.Size, FontStyle.Bold) 'optionCell.LinkColor = Color.White 'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor End Select End If Case 53 If Not existCodeInGridVermerke(gridvermerke, 54, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Ü-Dok erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Ü-Dok erhalten' einzutragen." End If Case 55 If Not existCodeInGridVermerke(gridvermerke, 56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Rg-Best. erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rg-Best. erhalten' einzutragen." End If Case 57 If Not existCodeInGridVermerke(gridvermerke, 58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Dispoliste erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dispoliste erhalten' einzutragen." End If Case 74 If Not existCodeInGridVermerke(gridvermerke, 75, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Frachtkosten erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Frachtkosten erhalten' einzutragen." End If Case 76 If Not existCodeInGridVermerke(gridvermerke, 77, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Absend.best. erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Absenderbestätigung erhalten' einzutragen." End If Case 96 If Not existCodeInGridVermerke(gridvermerke, 97, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "T1 Bestätigung erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'T1 Bestätigung erhalten' einzutragen." End If Case 80 If Not existCodeInGridVermerke(gridvermerke, 81, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "ATB-Nr. erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATB-Nr. erhalten' einzutragen." End If Case 82 If Not existCodeInGridVermerke(gridvermerke, 83) Then optionCell.Value = "DE-ZOLL fertig" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL (DIGITAL) fertig' einzutragen." End If Case 101 If r.Cells("VermerkIDAufgehoben").Value Is DBNull.Value Then ' If Not existCodeInGridVermerke(gridvermerke ,102, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Erledigt" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Sonstiger Grund erledigt' einzutragen." End If Case 103 If Not existCodeInGridVermerke(gridvermerke, 104, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Gewicht/Packstücke erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Gewicht/Packstücke erhalten' einzutragen." End If Case 105 If Not existCodeInGridVermerke(gridvermerke, 106, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Zolltarifnummer erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Zolltarifnummer erhalten' einzutragen." End If Case 107 If Not existCodeInGridVermerke(gridvermerke, 108, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Kostenbestätigung erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kostenbestätigung erhalten' einzutragen." End If End Select End If Next ' ArrowDown_ShowHide() 'Anzeigeproblem, wenn Aviso minimiert wird! --> Jetzt bei Timer! Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End Sub Sub ArrowDown_ShowHide() picArrowDown.Visible = False If dgvSendungen.RowCount = 0 Then Exit Sub Select Case tbcntlVermerke.SelectedIndex Case 0, 1, 2 Try Dim showFirst = False For Each r As DataGridViewRow In gridVermerke.Rows If r.Displayed Then showFirst = True If showFirst Then If (r.Cells("Hervorheben").Value = "1" Or r.Cells("VermerkeOptions").Value <> "") AndAlso Not r.Displayed Then picArrowDown.Visible = True End If End If Next Catch ex As Exception MsgBox("ERR") End Try End Select End Sub Shared Function existCodeInGridVermerke(gridVermerke As DataGridView, code As Integer, Optional text As String = "") As Boolean For Each r As DataGridViewRow In gridVermerke.Rows If r.Cells("Geloescht").Value = False Then If DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString = CStr(code) Then Select Case code Case 59 Return True Case 2, 4, 6, 8, 10, 12, 14, 30, 37, 34 If text = "" Or DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("erhalten", "angefordert") = text Then Return True End If Case 32 If DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("Vorbereitung abgeschlossen", "in Vorbereitung") = text Then Return True End If Case Else Return True End Select End If End If Next Return False End Function Shared Function existCodeInGridVermerke_VK(gridVermerke As DataGridView, VorauskasseId As Object) As Boolean For Each r As DataGridViewRow In gridVermerke.Rows If r.Cells("Geloescht").Value = False Then Select Case If(DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString, "") Case 14, 59 If DirectCast(r.Cells("VorauskasseId"), DataGridViewTextBoxCell).Value.ToString = CStr(VorauskasseId) Then Return True End If End Select End If Next Return False End Function Shared Function existCodeInGridVermerke_VK_OLD(gridVermerke As DataGridView, SendungID As Object) As Boolean For Each r As DataGridViewRow In gridVermerke.Rows Select Case If(DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString, "") Case 14, 59 If DirectCast(r.Cells("SendungID"), DataGridViewTextBoxCell).Value.ToString = CStr(SendungID) Then Return True End If End Select Next Return False End Function Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVermerkLöschenNew.Click, conVermerkEntgLöschen.Click If gridVermerke.SelectedRows.Count = 0 Then Exit Sub If sender Is conVermerkEntgLöschen Then If vbNo = MsgBox("Wollen Sie den ausgewählten entgültig Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Vermerk löschen") Then Exit Sub End If If gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value.ToString.EndsWith("wurde gelöscht.") Then 'Vermerk, dass Sendung gelöscht wurde. Exit Sub End If Dim index As Integer = -1 If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value)) Vermerke_anzeigen(index) ElseIf sender Is conVermerkLöschenNew Then If vbNo = MsgBox("Wollen Sie den ausgewählten Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Vermerk löschen") Then Exit Sub End If Dim index As Integer = -1 If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index VermerkeDAL.togglegeloescht(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value)) Vermerke_anzeigen(index) End If If False Then 'sender Is conVermerkEntgLöschen Then If IsNothing(gridVermerke.CurrentRow) Then Exit Sub ' cGlobal.Aktive_ID = CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value) 'If Not cGlobal.Admin Then ' 'Status erfasst darf auch von Mitarbeiter gelöscht werden - Mail von Siener vom 13.12.2013 ' If gridAviso.Rows(gridAviso.CurrentRow.Index).Cells("Status").Value.ToString <> "0" Then ' MsgBox("Ein Aviso mit diesem Status kann nur vom Administrator gelöscht werden.", vbExclamation) ' Exit Sub ' End If 'End If Dim antwort As MsgBoxResult = MsgBox("Wollen Sie den ausgewählten Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Vermerk löschen") If antwort = vbNo Then Exit Sub End If VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value)) Vermerke_anzeigen() initDgvSendungen() End If End Sub Private Sub vermerkeLöschen() End Sub Private Sub dgvSendungen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvSendungen.CellMouseClick If e.Button = MouseButtons.Right Then If dgvSendungen.Columns.Count > 0 Then If dgvSendungen.Columns(e.ColumnIndex).Name = "SenungUebernehmen" Then Exit Sub 'Dim LIST_FIRMEN() As String = {"VERAG", "UNISPED", "IMEX", "FRONTOFFICE"} 'Dim C As New ContextMenuStrip 'For Each FirmaTMP In LIST_FIRMEN ' Dim item_Firma As New ToolStripMenuItem ' item_Firma.Text = FirmaTMP ' Dim sql As New VERAG_PROG_ALLGEMEIN.SQL ' Dim dt = sql.loadDgvBySql("SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname FROM [ADMIN].[dbo].[tblMitarbeiter] ' where mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL') and mit_gekuendigt=0 ' and mit_abteilung IN ('QS','ZOLL','DISPO') and [mit_TESTonly]=0 AND [mit_pseudoUser]=0 ' order by mit_nname,mit_vname ", "AVISO") ' For Each r In dt.Rows ' Dim item As New ToolStripMenuItem ' item.Tag = r("mit_id") ' item.Text = r("MAname") ' AddHandler item.Click, Sub() ' FUNC.SendungUebernehmen(dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value, AvisoID, item.Tag, True) ' reload(AvisoID) ' End Sub ' item_Firma.DropDownItems.Add(item) ' Next ' C.Items.Add(item_Firma) 'Next 'C.Show(System.Cursor.Position) Else If AVISO.Abgeschlossen Then Exit Sub loaded = False ' If dgvSendungen.SelectedRows.Count <= 0 Then Exit Sub ' dgvSendungen.ClearSelection() dgvSendungen.Rows(e.RowIndex).Selected = True VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value ' frmGrayOut.Opacity = 0.5 ' frmGrayOut.WindowState = FormWindowState.Maximized Dim tmpIndex = dgvSendungen.SelectedRows(0).Index Dim tmpscroll = dgvSendungen.FirstDisplayedScrollingRowIndex Dim frmGrayOut = grayoutForm() Dim sv As New frmAddSendungsvermerkShort(AvisoID, dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) sv.Location = Me.PointToClient(Cursor.Position) sv.ShowDialog(frmGrayOut) frmGrayOut.Close() If tbcntlVermerke.SelectedIndex <> 2 Then tbcntlVermerke.SelectedIndex = 2 initDgvSendungen() ' wg. Anzahl Vermerke sv.Close() If dgvSendungen.RowCount > tmpIndex Then 'dgvSendungen.ClearSelection() 'dgvSendungen.Rows(tmpIndex).Selected = True dgvSendungen.FirstDisplayedScrollingRowIndex = tmpscroll End If loaded = True Vermerke_anzeigen() End If End If End If End Sub Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridVermerke.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? DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True If e.Button = MouseButtons.Right Then If AVISO.Abgeschlossen Then Exit Sub Select Case tbcntlVermerke.SelectedIndex Case 0, 1, 2 If sender Is gridVermerke Then If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt ' AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells("AvisoId").Value) gridVermerke.CurrentCell = gridVermerke.Rows(e.RowIndex).Cells(e.ColumnIndex) conMenuVermerke.Show(Cursor.Position) ToolUeberweisungsBeleg.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13") toolVkReminder.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13") End If Case 3 End Select End If End Sub Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) 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 End Sub Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) 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 End Sub Private Sub lblInfoAviso_Click(sender As Object, e As EventArgs) Handles lblInfoAviso.Click showForm(infotxt, "Info") End Sub Sub showForm(t As String, Optional h As String = "") Dim f As New Form Dim p As New Panel Dim rtb As New RichTextBox f.StartPosition = FormStartPosition.CenterScreen f.Width = 700 f.Height = 400 f.Text = h f.Icon = My.Resources.Aviso rtb.Dock = DockStyle.Fill p.Dock = DockStyle.Fill f.Controls.Add(p) p.Controls.Add(rtb) rtb.Text = t f.ShowDialog() End Sub Private Sub SpeditionsbuchEintrag() If dgvSendungen.SelectedRows.Count = 0 Then Exit Sub Dim sndIdTmp = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value Dim posnr As posNr = FUNC.SpeditionsbuchEintrag(AvisoID, sndIdTmp) If posnr IsNot Nothing Then Dim sndEntry As New VERAG_PROG_ALLGEMEIN.cSendungen(sndIdTmp) sndEntry.FilialenNr = posnr.Filiale sndEntry.AbfertigungsNr = posnr.Abfertigungsnummer sndEntry.UnterNr = posnr.UnterNr 'sndEntry.tblSnd_SpeditionsbuchEingetragen = (posnr.Filiale > 0 And posnr.Abfertigungsnummer > 0 And posnr.UnterNr >= 0) ' Wenn Sped Eintrag gelöscht-> - 1, dann ist der Eintrag nicht mehr vorhanden Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & sndEntry.FilialenNr & "' AND AbfertigungsNr='" & sndEntry.AbfertigungsNr & "' AND UnterNr='" & sndEntry.UnterNr & "'", "FMZOLL") sndEntry.tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0) sndEntry.SAVE() reload(AvisoID) End If 'Vermerke_anzeigen() End Sub ' Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Private Sub dgvSendungen_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSendungen.CellDoubleClick If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub End If Dim sendId = -1 If dgvSendungen.SelectedRows.Count > 0 Then sendId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value End If 'Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() 'Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) 'frmSendungsdetails.ShowDialog(frmGrayOut) 'frmGrayOut.Close() 'If Not Application.OpenForms.Item("frmSendungsdetails") Is Nothing Then ' Application.OpenForms.Item("frmSendungsdetails").BringToFront() ' MsgBox("Sendugns-Fenster bereits geöffnet!") ' Exit Sub 'Else ' Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) ' frmSendungsdetails.Show(Me) 'End If openSnd(sendId) 'Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) 'frmSendungsdetails.ShowDialog() 'Me) 'initDgvSendungen() End Sub Sub openSnd(sndId) Dim f = FUNC.openSnd(sndId, AvisoID) If f IsNot Nothing Then AddHandler f.FormClosed, Sub() initDgvSendungen() End Sub End If End Sub Private Sub gridVermerke_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridVermerke.CellDoubleClick Try If tbcntlVermerke.SelectedTab Is tbAnhang Then If gridVermerke.SelectedRows.Count > 0 Then Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(gridVermerke.SelectedRows(0).Cells("anh_docId").Value) If path <> "" Then If File.Exists(path) Then Process.Start(path) Else MsgBox("ERROR ANHANG: Die Datei existiert nicht!") End If End If End If End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles lklAuswahlAufheben.Click VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1 dgvSendungen.ClearSelection() Vermerke_anzeigen() End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Dim frmTV As New frmTv frmTV.avisoID = AvisoID frmTV.ShowDialog() reload(AvisoID) 'MsgBox("laodButton8") End Sub Private Sub dgvSendungen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSendungen.SelectionChanged If sendAktiv Then If dgvSendungen.SelectedRows.Count > 0 Then If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then If tbcntlVermerke.SelectedIndex <> 2 And tbcntlVermerke.SelectedIndex <> 3 Then tbcntlVermerke.SelectedIndex = 2 Else If tbcntlVermerke.SelectedIndex <> 2 Then tbcntlVermerke.SelectedIndex = 2 ' Wennnnciht WO, soll immer zu den Sendungsvermerken gesprungen werdne. End If Else If tbcntlVermerke.SelectedIndex <> 0 Then tbcntlVermerke.SelectedIndex = 0 End If Vermerke_anzeigen() End If End Sub Private Sub tbcntlVermerke_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntlVermerke.SelectedIndexChanged If Not loaded Then Exit Sub Vermerke_anzeigen() End Sub Private Sub lklAuswahlAufheben_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklAuswahlAufheben.LinkClicked tbcntlVermerke.SelectedIndex = 0 End Sub Private Sub btnVermerke_Click(sender As Object, e As EventArgs) loaded = False ' If dgvSendungen.SelectedRows.Count <= 0 Then Exit Sub Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim sv As New frmAddSendungsvermerkShort(AvisoID, -1) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) sv.Location = Me.PointToClient(Cursor.Position) sv.ShowDialog(frmGrayOut) frmGrayOut.Close() initDgvSendungen() ' wg. Anzahl Vermerke sv.Close() loaded = True Vermerke_anzeigen() Exit Sub ' Dim p As Panel = loaded = False ' frmHauptfenster.transparentpnl.BackColor = Color.FromArgb(0, 200, 200, 200) ' Panel1.BackColor = Color.FromArgb(25, Color.Red) 'frmHauptfenster.Controls.Add(p) ' frmHauptfenster.transparentpnl.BackColor = Color.FromArgb(25, Color.Red) ' frmHauptfenster.transparentpnl.Width = frmHauptfenster.Width ' frmHauptfenster.transparentpnl.Height = frmHauptfenster.Height ' frmHauptfenster.transparentpnl.Location = New Point(0, 0) ' frmHauptfenster.transparentpnl.Visible = True If dgvSendungen.SelectedRows.Count = 0 Then Exit Sub ' frmGrayOut.Opacity = 0.5 ' frmGrayOut.WindowState = FormWindowState.Maximized Dim tmpIndex = dgvSendungen.SelectedRows(0).Index Dim tmpscroll = dgvSendungen.FirstDisplayedScrollingRowIndex 'Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() ' Dim sv As New frmAddSendungsvermerk(AvisoID, dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) sv.ShowDialog(frmGrayOut) If tbcntlVermerke.SelectedIndex <> 2 Then tbcntlVermerke.SelectedIndex = 2 initDgvSendungen() ' wg. Anzahl Vermerke sv.Close() 'If dgvSendungen.RowCount > tmpIndex Then ' dgvSendungen.ClearSelection() ' dgvSendungen.Rows(tmpIndex).Selected = True ' dgvSendungen.FirstDisplayedScrollingRowIndex = tmpscroll 'End If loaded = True Vermerke_anzeigen() End Sub Private Sub btnAnkunft_Click(sender As Object, e As EventArgs) Handles btnAnkunft.Click If FUNC.setAnkunft(AvisoID) Then frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) End If End Sub Private Sub btnErfasst_Click(sender As Object, e As EventArgs) Handles btnErfasst.Click If FUNC.setErfasst(AvisoID) Then frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) End If End Sub Private Sub btnVorbereitet_Click(sender As Object, e As EventArgs) Handles btnVorbereitet.Click If FUNC.setVorbereitet(AvisoID) Then frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) End If End Sub Private Sub btnVorgeschrieben_Click(sender As Object, e As EventArgs) Handles btnVorgeschrieben.Click If FUNC.setVorgeschreiben(AvisoID) Then frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) End If End Sub Private Sub btnFreigabe_Click(sender As Object, e As EventArgs) Handles btnFreigabe.Click If FUNC.setFreigabe(AvisoID, Me) Then frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) End If End Sub Private Sub btnNichtEingetroffen_Click(sender As Object, e As EventArgs) If FUNC.setNichtEingeftroffen(AvisoID) Then frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, -1) End If End Sub Private Sub kexdown(sender As Object, e As KeyEventArgs) Handles dgvSendungen.KeyUp Try If sender.selectedRows.count > 0 Then 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 Dim SendungsId = CInt(sender.selectedRows(0).Cells("AvisoId").Value) VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = SendungsId End If End If Catch ex As Exception End Try End Sub Private Sub dgvSendungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSendungen.CellClick 'dgvSendungen.CellContentClick If e.RowIndex < 0 Then Exit Sub Dim SendungsId = dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = SendungsId Select Case dgvSendungen.Columns(e.ColumnIndex).Name 'Case "SendungBearbeiten" ' sendAktiv = False ' Me.Cursor = Cursors.WaitCursor ' Dim sendId = -1 ' If dgvSendungen.SelectedRows.Count > 0 Then ' sendId = dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value ' End If ' 'Dim frmSendungsdetails As New frmSendungsdetails(AvisoID, sendId) ' 'frmSendungsdetails.ShowDialog(Me) ' ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() ' openSnd(sendId) ' 'Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) ' 'frmSendungsdetails.ShowDialog() '(frmGrayOut) ' 'frmGrayOut.Close() ' initDgvSendungen() ' Me.Cursor = Cursors.Default Case "KundeAnzeigen" sendAktiv = False Me.Cursor = Cursors.WaitCursor If dgvSendungen.SelectedRows.Count > 0 Then Dim kd = dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_EmpfaengerKdNr").Value If kd IsNot DBNull.Value AndAlso IsNumeric(kd) AndAlso kd > 0 Then FUNC.showKd(kd) End If Me.Cursor = Cursors.Default 'Case "VermerkEintragen" ' Me.Cursor = Cursors.WaitCursor ' dgvSendungen_CellMouseClick(dgvSendungen, New DataGridViewCellMouseEventArgs(0, e.RowIndex, 0, 0, New MouseEventArgs(Windows.Forms.MouseButtons.Right, 1, 0, 0, 0))) ' Me.Cursor = Cursors.Default Case "SpeditionsbuchEintragen" sendAktiv = False Me.Cursor = Cursors.WaitCursor If Not dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_Fremdspedition").Value Then SpeditionsbuchEintrag() End If Me.Cursor = Cursors.Default 'Case "Abgeklaert" ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then ' Me.Cursor = Cursors.WaitCursor ' ' Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value) ' If dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_QS_Ma").Value <= 0 Then ' ' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID ' 'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) ' ADMIN.doSQL("UPDATE tblSendungen SET tblSnd_QS_MA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "' WHERE tblSnd_SendungID='" & dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value & "'", "AVISO") ' Else ' ' SENDUNG_TMP.tblSnd_QS_MA = Nothing ' ADMIN.doSQL("UPDATE tblSendungen SET tblSnd_QS_MA=null WHERE tblSnd_SendungID='" & dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value & "'", "AVISO") ' End If ' ' SENDUNG_TMP.SAVE() ' initDgvSendungen() ' Me.Cursor = Cursors.Default ' End If Case "StatusAbklaerungTR" sendAktiv = False Me.Cursor = Cursors.WaitCursor If FUNC.setSendungAbklaerungTR(SendungsId, AvisoID) Then initDgvSendungen() End If Me.Cursor = Cursors.Default Case "StatusAbfertigungTR" sendAktiv = False Me.Cursor = Cursors.WaitCursor Dim anzahl As String = "0" Dim anzahlPos As String = "0" Dim doStatus = True If dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_AbfertigungTR").Value Is DBNull.Value Then Dim f As New frmAbfertigungTR_ExportAnz If f.ShowDialog = DialogResult.OK Then anzahl = f.txtAnz._value anzahlPos = f.txtAnzPos._value Else doStatus = False End If End If If doStatus Then If FUNC.setSendungAbfertigungTR(SendungsId, AvisoID, anzahl, anzahlPos) Then initDgvSendungen() End If End If Me.Cursor = Cursors.Default Case "StatusVorgeschrieben" sendAktiv = False Me.Cursor = Cursors.WaitCursor If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then initDgvSendungen() End If Me.Cursor = Cursors.Default Case "StatusVorbereitetQS" sendAktiv = False Me.Cursor = Cursors.WaitCursor If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then initDgvSendungen() End If Me.Cursor = Cursors.Default Case "SenungUebernehmen" sendAktiv = False Me.Cursor = Cursors.WaitCursor If FUNC.SendungUebernehmen(dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value, AvisoID) Then initDgvSendungen() End If 'sendAktiv = False Me.Cursor = Cursors.Default Case "SenungWeiterleiten" sendAktiv = False Me.Cursor = Cursors.WaitCursor If dgvSendungen.Rows(e.RowIndex).Cells("LetzterMitarbeiterId").Value IsNot DBNull.Value AndAlso dgvSendungen.Rows(e.RowIndex).Cells("LetzterMitarbeiterId").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then Dim f As New frmAvisoWeiterleiten("S", AvisoID, VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID) '--> Weitereliten If f.ShowDialog(Me) = DialogResult.OK Then initDgvSendungen() Vermerke_anzeigen() End If End If 'sendAktiv = False Me.Cursor = Cursors.Default Case "SendungFakturiert" sendAktiv = False Me.Cursor = Cursors.WaitCursor If FUNC.setSendungFakturiert(SendungsId, AvisoID) Then initDgvSendungen() End If 'If dgvSendungen.Rows(e.RowIndex).Cells("FilialenNr").Value IsNot DBNull.Value AndAlso dgvSendungen.Rows(e.RowIndex).Cells("AbfertigungsNr2").Value IsNot DBNull.Value Then ' If VERAG_PROG_ALLGEMEIN.cSpeditionsbuch.existsSpedBuch(dgvSendungen.Rows(e.RowIndex).Cells("FilialenNr").Value, dgvSendungen.Rows(e.RowIndex).Cells("AbfertigungsNr2").Value) Then ' Dim f As New SDL.frmAbrechnungsMaskeEinzeln(dgvSendungen.Rows(e.RowIndex).Cells("FilialenNr").Value, dgvSendungen.Rows(e.RowIndex).Cells("AbfertigungsNr2").Value) ' If f.ShowDialog(Me) = DialogResult.OK Then ' initDgvSendungen() ' Vermerke_anzeigen() ' End If ' Else ' MsgBox("Speditionsbucheintrag existiert nicht!") ' End If 'Else ' MsgBox("Filiale bzw. Abfertigungsnummer vergeben!") 'End If 'sendAktiv = False Me.Cursor = Cursors.Default End Select sendAktiv = True End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) reload(AvisoID) ' MsgBox("laodButton1") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click pnlOptionen.Height = 250 '220 '183 '157 '125 pnlOptionen.Visible = Not pnlOptionen.Visible If pnlOptionen.Visible Then pnlOptionen.Location = New Point(pnlOptionen.Location.X, btnOptionen.Height + pnl.Height + FlowLayoutPanel.Height) End Sub Private Sub txtFrächter_TextChanged(sender As Object, e As EventArgs) Handles txtFrächter.Click If FraechterKdNr > 0 Then FUNC.showKd(FraechterKdNr) End If End Sub Private Sub txtAuftraggeber_TextChanged(sender As Object, e As EventArgs) Handles txtAuftraggeber.Click If AvisiererKdNr > 0 Then FUNC.showKd(AvisiererKdNr) End If End Sub 'Private Sub timerTick(sender As Object, e As EventArgs) Handles timer.Tick ' eine halbe sekunde verzögert, damit DGV geladen ist (shown geht nicht ewg. usrcntl) ' If initDGVSendungenRows() Then ' timer.Enabled = False ' End If 'End Sub Function initDGVSendungenRows() As Boolean If gridVermerke.RowCount = 0 Then gridVermerke.Columns.Clear() 'gridVermerke.Visible = False If Not loaded Then Return False If dgvSendungen.DataSource Is Nothing Then Return False If dgvSendungen.Columns("tblSnd_Vorbereitet") Is Nothing Then Return False If dgvSendungen.Columns("tblSnd_AbklaerungTR") Is Nothing Then Return False If dgvSendungen.Columns("tblSnd_AbfertigungTR") Is Nothing Then Return False 'If dgvSendungen.Columns("StatusAbklaerungTR") Is Nothing Then Return False If dgvSendungen.Columns("StatusVorbereitetQS") Is Nothing Then Return False If dgvSendungen.Columns("SenungUebernehmen") Is Nothing Then Return False If dgvSendungen.Columns("SenungWeiterleiten") Is Nothing Then Return False ' If dgvSendungen.Columns("SendungFakturiert") Is Nothing Then Return False If dgvSendungen.Columns("SpeditionsbuchEintragen") Is Nothing Then Return False If dgvSendungen.Columns("KundeAnzeigen") Is Nothing Then Return False ' MsgBox("TEST1") For Each r As DataGridViewRow In dgvSendungen.Rows Try If r.Cells("tblSnd_EmpfaengerKdNr").Value IsNot DBNull.Value AndAlso CInt(r.Cells("tblSnd_EmpfaengerKdNr").Value) > 0 Then DirectCast(r.Cells("KundeAnzeigen"), DataGridViewImageCell).Value = My.Resources.person End If If CBool(r.Cells("tblSnd_SpeditionsbuchEingetragen").Value) Then DirectCast(r.Cells("SpeditionsbuchEintragen"), DataGridViewImageCell).Value = My.Resources.speditionsbuchAktiv End If If dgvSendungen.Columns("StatusAbklaerungTR") IsNot Nothing Then If r.Cells("tblSnd_AbklaerungTR").Value IsNot DBNull.Value Then DirectCast(r.Cells("StatusAbklaerungTR"), DataGridViewImageCell).Value = My.Resources.abklaerungTR_Aktiv DirectCast(r.Cells("StatusAbklaerungTR"), DataGridViewImageCell).ToolTipText = "Status 'Abklärung-TR' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_AbklaerungTR").Value & ")" Else DirectCast(r.Cells("StatusAbklaerungTR"), DataGridViewImageCell).ToolTipText = "Status 'Abklärung-TR' eintragen" End If End If If dgvSendungen.Columns("StatusAbfertigungTR") IsNot Nothing Then If r.Cells("tblSnd_AbfertigungTR").Value IsNot DBNull.Value Then DirectCast(r.Cells("StatusAbfertigungTR"), DataGridViewImageCell).Value = My.Resources.abfetigungTR_aktiv DirectCast(r.Cells("StatusAbfertigungTR"), DataGridViewImageCell).ToolTipText = "Status 'Abfertigung-TR' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_AbfertigungTR").Value & ")" Else DirectCast(r.Cells("StatusAbfertigungTR"), DataGridViewImageCell).ToolTipText = "Status 'Abfertigung-TR' eintragen" End If End If 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 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 DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_gray_small DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung übernehmen" If r.Cells("LetzterMitarbeiterId").Value IsNot DBNull.Value AndAlso r.Cells("LetzterMitarbeiterId").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_blue_small DirectCast(r.Cells("SenungWeiterleiten"), DataGridViewImageCell).Value = My.Resources.weiterleiten_small1 DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Bereits 'meine Sendung'" ElseIf r.Cells("LetzterMitarbeiterId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("LetzterMitarbeiterId").Value) > 0 Then If r.Cells("tblSnd_VG_MA").Value IsNot DBNull.Value Then DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_small End If If r.Cells("LetzterMitarbeiter").Value IsNot DBNull.Value AndAlso r.Cells("LetzterMitarbeiter").Value <> "" Then DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung von '" & r.Cells("LetzterMitarbeiter").Value & "' übernehmen" ' DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung übernehmen" End If ' sdfdsfsdfsdf If dgvSendungen.Columns("SendungFakturiert") IsNot Nothing Then If (r.Cells("tblSnd_Fakturiert").Value) IsNot DBNull.Value Then DirectCast(r.Cells("SendungFakturiert"), DataGridViewImageCell).Value = My.Resources.fakturiertAktiv End If DirectCast(r.Cells("SendungFakturiert"), DataGridViewImageCell).ToolTipText = "Sendung fakturiert" End If 'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then ' If r.Cells("tblSnd_QS_MA").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then ' DirectCast(r.Cells("Abgeklaert"), DataGridViewImageCell).Value = My.Resources.abgeklaertAktiv ' End If 'End If DirectCast(r.Cells("KundeAnzeigen"), DataGridViewImageCell).ToolTipText = "Kunde anzeigen" DirectCast(r.Cells("SpeditionsbuchEintragen"), DataGridViewImageCell).ToolTipText = "Speditionsbuch eintragen" ' DirectCast(r.Cells("VermerkEintragen"), DataGridViewImageCell).ToolTipText = "Vermerk eintragen" ' DirectCast(r.Cells("SendungBearbeiten"), DataGridViewImageCell).ToolTipText = "Sendung bearbeiten" Catch ex As Exception MsgBox("Fehler bei der Initialisierung der Sendungen Optionen." & vbNewLine & vbNewLine & ex.Message) End Try Next Try tbcntlVermerke.TabPages(0).Text = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE(Me, tbAlle, "Alle") & " (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM Vermerke WHERE [AvisoID]=" & AvisoID & "", "AVISO") & ")" tbcntlVermerke.TabPages(1).Text = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE(Me, tbAkenvermerk, "Aktenvermerke") & " (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM Vermerke WHERE [AvisoID]=" & AvisoID & " AND [VermerkArt]='A' ", "AVISO") & ")" If dgvSendungen.SelectedRows.Count > 0 Then tbcntlVermerke.TabPages(2).Text = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE(Me, tbSndvermerk, "Sendungsvermerke") & " (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM Vermerke WHERE [AvisoID]=" & AvisoID & " AND [VermerkArt]='S' AND [SendungID]='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value & "' ", "AVISO") & ")" Else tbcntlVermerke.TabPages(2).Text = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE(Me, tbSndvermerk, "Sendungsvermerke") & "" End If tbcntlVermerke.TabPages(3).Text = VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE(Me, tbAnhang, "Anhang") & " (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [tblAvisoAnhaenge] WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0 ", "AVISO") & ")" Catch ex As Exception End Try ' btnFormulare.Left = pnlVermerkeTop.Width - btnFormulare.Width - 4 Return True End Function ' Private Sub reloadtimerTick(sender As Object, e As EventArgs) Handles reloadTimer.Tick ' dgvSendungen.ClearSelection() ' If tbcntlVermerke.SelectedIndex <> 0 Then tbcntlVermerke.SelectedIndex = 0 ' reloadTimer.Enabled = False 'End Sub Private Sub timerSendRows_Tick(sender As Object, e As EventArgs) Handles timerSendRows.Tick If initDGVSendungenRows() Then timerSendRows.Enabled = False End If ArrowDown_ShowHide() End Sub 'Private Sub timerSendRows_Tick(sender As Object, e As EventArgs) Handles timerSendRows.Tick ' Try ' For Each r As DataGridViewRow In dgvSendungen.Rows ' 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 = ADMIN.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 ' Next ' timerSendRows.Enabled = False ' Catch ex As Exception ' MsgBox(ex.Message & ex.StackTrace) ' End Try 'End Sub Private Sub lblStatus_Click(sender As Object, e As EventArgs) Handles lblStatus.Click End Sub Private Sub lblHinweis_Click(sender As Object, e As EventArgs) End Sub ' Dim w As New SDL.cGenWord 'Dim ds As New VERAG_PROG_ALLGEMEIN.cDATENSERVER Private Sub Formulare(sender As Object, e As EventArgs) Handles DispolisteTRToolStripMenuItem.Click, DispolisteENToolStripMenuItem.Click Me.Cursor = Cursors.WaitCursor Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing Try Dim d As New VERAG_PROG_ALLGEMEIN.cFormularManager Dim path_src As String = "" If sender Is DispolisteTRToolStripMenuItem Then path_src = VERAG_PROG_ALLGEMEIN.cFormularManager.open("DOKUMENTE", "VORLAGEN", "", "", "", "Dispoliste TR.doc", False) If sender Is DispolisteENToolStripMenuItem Then path_src = VERAG_PROG_ALLGEMEIN.cFormularManager.open("DOKUMENTE", "VORLAGEN", "", "", "", "Dispoliste EN.docx", False) ' If path_src = "" Then Exit Sub ' Dim path As String = ds.openDataTMP(path_src, False) ' If path = "" Then Exit Sub ' Dim Aviso As New cAvisos ' Aviso = AvisoDAL.LesenAviso(AvisoID, "") Dim oWord As New Microsoft.Office.Interop.Word.Application ' Dim odoc As Microsoft.Office.Interop.Word.Document oWord.Visible = False 'Word sehen zum Test? ' MsgBox(pfadWord) odoc = oWord.Documents.Open(path_src) ' odoc.SaveAs(tmpPath) ' odoc.Save() 'odoc = w.openWord(path, False) odoc.FormFields("An").Range.Text = AVISO.Frächter odoc.FormFields("zH").Range.Text = "" odoc.FormFields("LKW").Range.Text = AVISO.LKW_Nr odoc.FormFields("SB").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME 'VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Mitarbeiter odoc.Save() odoc.Activate() oWord.Visible = True ' odoc.Save() ' odoc.Activate() Catch ex As Exception MessageBox.Show(ex.ToString) End Try Me.Cursor = Cursors.Default End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnAktAbschliessen.Click If AVISO.Status <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then If vbYes <> MsgBox("Der LKW wurde noch nicht freigegeben, Sind Sie sicher?", vbYesNoCancel) Then Exit Sub FUNC.setFreigabe(AvisoID, Me, True) End If If FUNC.setAbgeschlossen(AvisoID, True) Then frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AvisoID) reload(AvisoID) End If End Sub Private Sub btnKassenbuchEintrag_Click(sender As Object, e As EventArgs) Dim PERSONAL As SDL.cPersonal = Nothing Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then PERSONAL = frmSecureLoginKassenbuch.PERSONAL Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, "E") AddHandler frmBeleg.LOADED, Sub() Dim AVISO As cAviso = AvisoDAL.LesenAviso(AvisoID, "") 'Dim BELEG As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) ' Dim BELEG As EABeleg = frmBeleg.BELEG '' BELEG.LKW_Kennzeichen = "AAAAAA" frmBeleg.BELEG.LKW_Kennzeichen = AVISO.LKW_Nr frmBeleg.BELEG.Frachtführer = AVISO.Frächter frmBeleg.BELEG.Ordnungsbegriff = AVISO.Frächter 'Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Auftraggeber frmBeleg.BELEG.FilialenNr = 4801 'frmBeleg.BELEG.AbfertigungsNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr ' MsgBox(Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr) frmBeleg.init() ' Nach init: If AVISO.Frächter_KdNr >= 0 Then frmBeleg.kdFrachtf.KdNr = AVISO.Frächter_KdNr End If ' If Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_AuftraggeberKdNr > 0 Then ' frmBeleg.kdkunde.KdNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_AuftraggeberKdNr ' End If End Sub frmBeleg.ShowDialog(Me) End If End Sub Private Sub btn_Click(sender As Object, e As EventArgs) ' Dim frmNacherfassung As New frmNacherfassungNEU ' frmNacherfassung.newEntry = True ' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID ' frmNacherfassung.Show() Try Dim posNr As New posNr If AvisoID < 0 Then MsgBox("Fehler: AvisoID kleiner 0.") : Exit Sub Dim frmNacherfassung As New SDL.frmNacherfassungNEU 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() : Exit Sub frmGrayOut.Close() ' MsgBox("3") 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 ' MsgBox("4") 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), qsMa, -1) frmNacherfassung.ShowDialog() posNr.Abfertigungsnummer = frmNacherfassung.txtAbfertigungsnummer.Text posNr.Filiale = frmNacherfassung.cboFiliale._value posNr.UnterNr = frmNacherfassung.txtUnterNr.Text Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnAktUebernehmen.Click If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then Dim f As New frmAvisoWeiterleiten("A", AvisoID) '--> Weitereliten If f.ShowDialog(Me) = DialogResult.OK Then frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) Vermerke_anzeigen() End If Else If FUNC.AktUebernehmen(AvisoID, False) Then frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) End If End If End Sub Sub intiAktUebernehmenBtn() If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then btnAktUebernehmen.Image = My.Resources.weiterleiten_small1 btnAktUebernehmen.Text = "Akt weiterleiten..." 'VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE(Me, btnAktUebernehmen) Else btnAktUebernehmen.Image = My.Resources.personCheck_small btnAktUebernehmen.Text = "Akt übernehmen" VERAG_PROG_ALLGEMEIN.cAllgemein._getTRANSLATE(Me, btnAktUebernehmen) End If End Sub Public Sub showInfo(t As String, s As Double) lblAktUebernommen.Text = t lblAktUebernommen.Visible = True lblAktUebernommen.BringToFront() timer.Interval = CInt(s * 1000) timerAktUebernommen.Enabled = True End Sub Private Sub timerAktUebernommen_Tick(sender As Object, e As EventArgs) Handles timerAktUebernommen.Tick lblAktUebernommen.Visible = False timerAktUebernommen.Enabled = False End Sub Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click If vbYes = MsgBox("Möchten Sie den Akt wieder öffnen?", vbYesNoCancel) Then If FUNC.setAbgeschlossen(AvisoID, False) Then frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AvisoID) reload(AvisoID) End If End If End Sub Private Sub btn_Click_1(sender As Object, e As EventArgs) Handles btn.Click ' Dim frmNacherfassung As New frmNacherfassungNEU ' frmNacherfassung.newEntry = True ' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID ' frmNacherfassung.Show() Try Dim posNr As New posNr If AvisoID < 0 Then MsgBox("Fehler: AvisoID kleiner 0.") : Exit Sub Dim frmNacherfassung As New SDL.frmNacherfassungNEU 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() : Exit Sub frmGrayOut.Close() ' MsgBox("3") 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 ' MsgBox("4") 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), qsMa, -1) frmNacherfassung.ShowDialog() posNr.Abfertigungsnummer = frmNacherfassung.txtAbfertigungsnummer.Text posNr.Filiale = frmNacherfassung.cboFiliale._value posNr.UnterNr = frmNacherfassung.txtUnterNr.Text reload(AvisoID) Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) MsgBox(ex.StackTrace) End Try End Sub Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click loaded = False ' If dgvSendungen.SelectedRows.Count <= 0 Then Exit Sub Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim sv As New frmAddSendungsvermerkShort(AvisoID, -1) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) sv.Location = Me.PointToClient(Cursor.Position) sv.ShowDialog(frmGrayOut) frmGrayOut.Close() initDgvSendungen() ' wg. Anzahl Vermerke sv.Close() loaded = True Vermerke_anzeigen() End Sub Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click AvisoDAL.insertSendungEmpty(AvisoID, 1, 0, DBNull.Value, 0, DBNull.Value, Nothing, Nothing) ' INSERT reload(AvisoID) End Sub Private Sub btnFertig_Click(sender As Object, e As EventArgs) End Sub Private Sub btnFertig_Click_1(sender As Object, e As EventArgs) Handles btnFertig.Click 'VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'Select Case AVISO.Status ' ' Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben ' Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben 'End Select Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim sv As New frmAddAktenvermerkShort(AVISO.AvisoID) sv.Location = Me.PointToClient(Cursor.Position) sv.ShowDialog(frmGrayOut) frmGrayOut.Close() End Sub Private Sub btnÄndern_Click(sender As Object, e As EventArgs) Handles btnÄndern.Click VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = AvisoID 'zur Sicherheit Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim f As New frmEintragAviso f.ShowDialog(frmGrayOut) frmGrayOut.Close() reload(AvisoID) pnlOptionen.Visible = False End Sub Private Sub btnLöschen_Click(sender As Object, e As EventArgs) Handles btnLöschen.Click If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me.FindForm) Then If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then 'Status erfasst darf auch von Mitarbeiter gelöscht werden - Mail von Siener vom 13.12.2013 If AVISO.Status <> "0" Then MsgBox("Ein Akt mit diesem Status kann nur vom Administrator gelöscht werden.", vbExclamation) Exit Sub End If End If Dim antwort As MsgBoxResult = MsgBox("Wollen Sie den Akt für das Kennzeichen '" & AVISO.LKW_Nr & "' wirklich löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Eintrag löschen") If antwort = vbNo Then Exit Sub End If pnlOptionen.Visible = False 'AvisoDAL.LöschenAviso(AvisoID) If FUNC.setNichtEingeftroffen(AvisoID, True) Then VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1 frmHauptfenster.pnlDetailsRechts.Visible = False frmHauptfenster.avisoAktualisierenAktiveIdBehalten(-1) End If End If End Sub Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles btnTV.Click Dim frmTV As New frmTv frmTV.avisoID = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID frmTV.ShowDialog() frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.lblHinweiseVisible() End Sub Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnSndErstellen.Click 'Die Sendungen eintragen: If IsNumeric(txtSendungen.Text) And IsNumeric(txtSndFiskalAT.Text) And IsNumeric(txtSndFiskalDE.Text) And IsNumeric(txtSndFremd.Text) Then 'AndAlso txtSendungen.Text > 0 Then Dim filiale_tmp As Integer = 0 Dim gesAnzSnd = initSndAnzahl() Dim fremd = False Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE" For cnt As Integer = 1 To gesAnzSnd Dim abfnr_tmp As Object = DBNull.Value filiale_tmp = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE Dim abfArt As Object = DBNull.Value getFilialeAndAbfertNrIMEX(cnt, filiale_tmp, abfnr_tmp, fremd, abfArt) Dim tblSnd_AuftraggeberKdNr As Object = Nothing Dim tblSnd_Auftraggeber As Object = Nothing If cbxPosNr.Checked Then abfnr_tmp = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(filiale_tmp, Now.Year) AvisoDAL.insertSendungEmpty(AvisoID, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, fremd) ' INSERT Next Case Else For cnt As Integer = 1 To gesAnzSnd Dim abfnr_tmp As Object = DBNull.Value getFilialeAndAbfertNr(cnt, filiale_tmp, abfnr_tmp, fremd) ' FilialeNr u AbfNr werden geladen 'IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0) 'AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0) ' INSERT Dim tblSnd_AuftraggeberKdNr As Object = Nothing Dim tblSnd_Auftraggeber As Object = Nothing 'If cbxAuftraggeberfurAlleSendungen.Checked Then 'If cboAuftraggeber.KdNr_value > 0 Then tblSnd_AuftraggeberKdNr = cboAuftraggeber.KdNr_value ' tblSnd_Auftraggeber = cboAuftraggeber.Text ' End If Dim abfArt As Object = DBNull.Value Select Case filiale_tmp Case 4805 : abfArt = 26 ' Case 4806 : abfArt = 9 Case 4811 : abfArt = 28 End Select AvisoDAL.insertSendungEmpty(AvisoID, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, fremd) ' INSERT Next End Select reload(AvisoID) Else lblSendungsanzahl.Visible = True End If End Sub Sub getFilialeAndAbfertNr(ByVal cnt, ByRef filialeNr, ByRef abfertigungsNr, ByRef fremd) If cnt <= txtSendungen.Text Then Select Case cboGrenzstelle.Text Case "SUB" : filialeNr = 4803 Case "SBG" : filialeNr = 5003 Case "WAI" : filialeNr = 5103 Case "NKD" : filialeNr = 5303 Case "SFD" : filialeNr = 4839 Case "NEU" : filialeNr = 4819 End Select ElseIf (cnt - txtSendungen.Text) <= txtSndFiskalAT.Text Then filialeNr = 4805 ElseIf (cnt - txtSendungen.Text - txtSndFiskalAT.Text) <= txtSndFiskalDE.Text Then filialeNr = 4811 ElseIf (cnt - txtSendungen.Text - txtSndFiskalAT.Text - txtSndFiskalDE.Text) <= txtSndFremd.Text Then filialeNr = 0 : abfertigungsNr = DBNull.Value : fremd = True : Exit Sub End If If cbxPosNr.Checked Then abfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(filialeNr, Now.Year) End Sub Sub getFilialeAndAbfertNrIMEX(ByVal cnt, ByRef filialeNr, ByRef abfertigungsNr, ByRef fremd, ByRef abfart) abfart = DBNull.Value filialeNr = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE If cnt <= txtSendungen.Text Then ElseIf (cnt - txtSendungen.Text) <= txtSndFiskalAT.Text Then abfart = 26 ElseIf (cnt - txtSendungen.Text - txtSndFiskalAT.Text) <= txtSndFiskalDE.Text Then abfart = 28 ElseIf (cnt - txtSendungen.Text - txtSndFiskalAT.Text - txtSndFiskalDE.Text) <= txtSndFremd.Text Then abfertigungsNr = DBNull.Value : fremd = True : Exit Sub End If If cbxPosNr.Checked Then abfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(filialeNr, Now.Year) End Sub Function initSndAnzahl() As Integer initSndAnzahl = 0 If IsNumeric(txtSendungen.Text) Then initSndAnzahl += txtSendungen.Text If IsNumeric(txtSndFiskalAT.Text) Then initSndAnzahl += txtSndFiskalAT.Text If IsNumeric(txtSndFiskalDE.Text) Then initSndAnzahl += txtSndFiskalDE.Text If IsNumeric(txtSndFremd.Text) Then initSndAnzahl += txtSndFremd.Text Label21.Text = initSndAnzahl End Function Private Sub txtSndFiskalDE_TextChanged(sender As Object, e As EventArgs) Handles txtSndFiskalDE.TextChanged, txtSndFiskalAT.TextChanged, txtSendungen.TextChanged initSndAnzahl() End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles btnVerpflErkl.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VerpflichtungserklärungFahrer, FraechterKdNr, {AvisoID}, True) End Sub Private Sub btnFormulare_Click(sender As Object, e As EventArgs) Handles btnFormulare.Click Panel4.Visible = Not Panel4.Visible Exit Sub ' pnlFormulare.Visible = Not pnlFormulare.Visible cntxtFormulare.Show(Cursor.Position) ' Dim ScreenPos As Point = Me.PointToScreen(New Point(0, 0)) 'pnlFormulare.PointToClient = Cursor.Position End Sub Private Sub btnAutoNF_Click(sender As Object, e As EventArgs) Handles btnLkwBeleg.Click 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", Me.FindForm) Then ' Dim doAutoNacherf = (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel)) ' If doAutoNacherf Then ' FUNC.AUTONACHERFASSUNG(Me, AvisoID) ' frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) ' frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) ' End If 'End If Dim PERSONAL As SDL.cPersonal = Nothing Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then PERSONAL = frmSecureLoginKassenbuch.PERSONAL Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, "E") frmBeleg.AvisoID = AvisoID ' frmBeleg.SendungID = SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID AddHandler frmBeleg.LOADED, Sub() Dim AVISO As cAviso = AvisoDAL.LesenAviso(AvisoID, "") frmBeleg.BELEG.LKW_Kennzeichen = AVISO.LKW_Nr frmBeleg.BELEG.Frachtführer = AVISO.Frächter frmBeleg.BELEG.Ordnungsbegriff = AVISO.Frächter ' frmBeleg.BELEG.FilialenNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr ' frmBeleg.BELEG.AbfertigungsNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr frmBeleg.BELEG.LKW_Id = AVISO.AvisoID frmBeleg.BELEG.LKW_Beleg = True If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then frmBeleg.BELEG.LKW_Beleg = False End If frmBeleg.init() If AVISO.Frächter_KdNr > 0 Then frmBeleg.kdFrachtf.KdNr = AVISO.Frächter_KdNr frmBeleg.kdkunde.KdNr = AVISO.Frächter_KdNr End If ' If sender Is Button13 Then frmBeleg.AddDusche(True) End Sub If frmBeleg.ShowDialog(Me) = DialogResult.OK Then If frmBeleg.BELEG.gebucht Then 'initDataBinding() End If End If End If End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Dim f As New SDL.frmSendSMS(AVISO.FahrerHandy, "") If AVISO IsNot Nothing Then f.KundenNr = AVISO.Frächter_KdNr f.Kunde = AVISO.Frächter f.AvisoId = AVISO.AvisoID f.Kennzeichen = AVISO.LKW_Nr End If If f.ShowDialog(Me) = DialogResult.OK Then If f.SMS IsNot Nothing Then Dim FahrerHandy = If(f.SMS.sms_Vorwahl, "") & If(f.SMS.sms_Handynummer, "") If FahrerHandy <> "" Then SDL.cSMSOptions.insertVermerkSMS(AvisoID, FahrerHandy, f.SMS.sms_id, Now) If If(AVISO.FahrerHandy, "") = "" Then AVISO.FahrerHandy = FahrerHandy AVISO.UPDATE_FahrerHandy(FahrerHandy) End If Vermerke_anzeigen() End If End If End If End Sub Private Sub Button8_Click_2(sender As Object, e As EventArgs) Handles btnSA_Gestellung.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.SA_Gestellung, FraechterKdNr, {AvisoID}) Panel4.Visible = False End Sub Private Sub btnKasse_LG_Click(sender As Object, e As EventArgs) Handles btnDispohaft.Click If DispolisteVermerk() Then SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe, FraechterKdNr, {AvisoID}) Panel4.Visible = False End If End Sub Function DispolisteVermerk() As Boolean Dim answer = MsgBox("Vermerk 'Dispoliste angefordert' eintragen?", vbYesNoCancel) If vbYes = answer Then AvisoStatusFunctions.insertVermerkAllg(AvisoID, "Dispoliste angefordert", 57) ElseIf answer = vbCancel Then Return False End If Return True End Function Private Sub btnKasse_User_Click(sender As Object, e As EventArgs) Handles btnDipoListeEmail.Click If DispolisteVermerk() Then Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False,, cboFormulareRgAn._value) If path <> "" Then Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" Process.Start(path) Case Else Try Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) Dim lan = "DE" Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(AVISO.Auftraggeber_KdNr) Select Case AD.LandKz Case "TR" : lan = "TR" Case "GB" : lan = "EN" Case "RS" : lan = "SRB" Case "SRB" : lan = "SRB" End Select Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("FRM_MNGR_MailText", "Dispoliste", lan, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) If AD.hasEntry And tX.hasEntry Then Dim TextHTML = "" TextHTML &= tX.txt_text TextHTML &= SDL.cFakturierung.getSignature(lan, tX.txt_firmaSig, True, True) TextHTML &= "
" TextHTML &= "Mit freundlichen Grüßen
" TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" TextHTML &= "
" Mail.HTMLBody = "
" & TextHTML & "
" Mail.Subject = tX.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr) Else Mail.Subject = "Dispoliste LKW-Nr: " & AVISO.LKW_Nr End If ' Mail.HTMLBody = "Sehr geehrte Damen und Herren,

anbei erhalten Sie die Rechnung Nr. " & RECHNUNG.RechnungsNr & "." Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Dispoliste.pdf") Mail.Display() Catch ex As Exception MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!") Process.Start(path) End Try End Select ' DispolisteVermerk() End If Panel4.Visible = False End If End Sub Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click Dim f As New frmSendungAnhangImport(AvisoID) f.Show(Me) End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnDipoListe.Click If DispolisteVermerk() Then Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False,, cboFormulareRgAn._value) If path <> "" And IO.File.Exists(path) Then Process.Start(path) Panel4.Visible = False End If End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles btnLZDruckDIGITAL.Click, btnLZDruck.Click Dim f As New frmLaufzettel(AVISO, Nothing, (sender Is btnLZDruckDIGITAL), cbxLZT1.Checked, cbxLZRg.Checked, cbxLZDeFisk.Checked, cbxVPSplit.Checked) f.ShowDialog() Panel4.Visible = False Exit Sub pnlDetailsRechts.Cursor = Cursors.WaitCursor ' Fahrer zum Zoll! '------------------------------------------------ If sender Is btnLZDruck Then If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_zumZOLL") Then If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then Try Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO) If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, (New System.Drawing.Printing.PrinterSettings).PrinterName) Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try End If End If End If '------------------------------------------------ Dim loadAttachRg = True ' (sender Is Button15) Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoID) 'LÄDT alle Aviso-Anhänge For Each l In ANH_LIST If l.anh_LaufzettelDruck Then If vbYes = MsgBox("Es wurden Anhänge zum Drucken markiert! Sollen diese gedruckt werden?", vbYesNoCancel) Then For Each ll In ANH_LIST If ll.anh_LaufzettelDruck Then Select Case ll.anh_Typ Case "PDF" : VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)}) ' Case "BILD" : VERAG_PROG_ALLGEMEIN.cFormularManager.Print_PICTURE({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)}) Case Else : Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)) End Select End If Next End If Exit For End If Next 'DIGITALE ABFERTIGUNG: If (sender Is btnLZDruckDIGITAL) Or cbxVPSplit.Checked Then ' digital oder splittung --> per Vorpapier Try 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 Dim pruef = False For Each s In SENDUNG_LIST Select Case s.tblSnd_Abfertigungsart_ID.ToString Case "38", "26" 'AT - Keine Prüfung Case Else If If(s.tblSnd_Vorpapier, "") = "" And If(s.tblSnd_Vorpapier2, "") = "" And If(s.tblSnd_Vorpapier3, "") = "" Then pruef = True End If End Select Next If pruef Then ' VP fehlen If sender Is btnLZDruck Then 'Wenn LZ Druck If vbYes <> MsgBox("Nicht alle Sendungen haben ein Vorpapier eingetragen!" & vbNewLine & "Soll der Laufzettel trotzdem gedruckt werden?", vbYesNoCancel) Then pnlDetailsRechts.Cursor = Cursors.Default : Exit Sub End If Else ' Digitalabfertigungn MsgBox("Nicht alle Sendungen haben ein Vorpapier eingetragen!" & vbNewLine & "Laufzettelerstellung wird abgebrochen.") pnlDetailsRechts.Cursor = Cursors.Default : Exit Sub End If End If AVISO.LOAD_Vorpapiere() Dim VP_Enum = VERAG_PROG_ALLGEMEIN.cSendungen.VP_Enum(SENDUNG_LIST) 'Filtert nach eindeutigen Vorpapieren Dim paths As New List(Of String) If pruef Then paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, "XXXX")) For Each VP In VP_Enum paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, VP)) Next If (sender Is btnLZDruckDIGITAL) Then 'NUR BEI DIGITALANMELDUNG! Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) Dim tX As VERAG_PROG_ALLGEMEIN.cTextkonserve = Nothing Select Case AVISO.Grenzstelle Case "SUB" Mail.To = "abfertigung.za-suben@zoll.bund.de" tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) Case "WAI" Mail.To = "" tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_WAI", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) Case "DTB" Mail.To = "" tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_DTB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) Case "SBG" Mail.To = "" tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SBG", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) Case Else Mail.To = "" tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) End Select Dim MAIL_SUBJ = tX.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr) Dim MAIL_BODY = tX.txt_text.Replace("%LKWKennzeichen%", AVISO.LKW_Nr) addVPList(MAIL_BODY, VP_Enum) Mail.HTMLBody = "
" & MAIL_BODY & SDL.cFakturierung.getSignature("DE", tX.txt_firmaSig, True, True) & "
" Mail.Subject = MAIL_SUBJ If VP_Enum.Count > 1 Then Mail.Subject &= ", " & VP_Enum.Count & "x Vorpapier" ElseIf VP_Enum.Count = 1 Then Mail.Subject &= ", " & VP_Enum(0) End If For Each p In paths Mail.Attachments.Add(p, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Gestellungsliste.pdf") Next If loadAttachRg Then If cbxLZT1.Visible AndAlso cbxLZT1.Checked Then 'Falls CMR, Vorpapier in den Unterlagen vorhanden, werden diese beigefügt For Each l In ANH_LIST Select Case l.anh_Art.ToString.ToUpper Case "VORPAPIER" ', "CMR" Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End Select Next End If If cbxLZDeFisk.Visible AndAlso cbxLZDeFisk.Checked Then For Each s In SENDUNG_LIST Select Case s.tblSnd_Abfertigungsart_ID 'Falls RECHNUNGen in den Unterlagen vorhanden, werden diese beigefügt Case "28" 'T1, Ü-T1, DE-FISK Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge For Each l In ANH_LIST_SND Select Case l.anh_Art.ToString.ToUpper Case "RECHNUNG", "HANDELSRECHNUNG", "CMR" Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End Select Next End Select Next ElseIf cbxLZRg.Visible AndAlso cbxLZRg.Checked Then For Each s In SENDUNG_LIST Select Case s.tblSnd_Abfertigungsart_ID 'Falls RECHNUNGen in den Unterlagen vorhanden, werden diese beigefügt Case "5", "45", "28", "26", "38" 'T1, Ü-T1, DE-FISK Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge) VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge For Each l In ANH_LIST_SND Select Case l.anh_Art.ToString.ToUpper Case "RECHNUNG", "HANDELSRECHNUNG" Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End Select Next End Select Next End If End If 'Markierte Anhänge For Each l In ANH_LIST 'Markierte: If l.anh_GestellungslisteAnfuegen Then Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) End If Next Mail.Display() Else 'Keine Digitalabfertigung Try If paths.Count = 1 Then '1 Gestellungsliste Process.Start(paths(0)) ElseIf paths.Count > 0 Then 'Mehrere Gestellungslisten zusammenführen Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Gestellungsliste_Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf" VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(paths, outputFile) Process.Start(outputFile) End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End If Catch ex As Exception MsgBox("Fehler beim erstellen der E-Mail:" & vbNewLine & ex.Message & ex.StackTrace) End Try Else Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False) If path <> "" Then Process.Start(path) End If End If Panel4.Visible = False pnlDetailsRechts.Cursor = Cursors.Default End Sub Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnAlleAkendeckel.Click 'If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then ' Me.Cursor = Cursors.WaitCursor ' 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 ' For Each s In SENDUNG_LIST ' If checkcbxAlleFirmen(s.FilialenNr) Then ' If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub ' End If ' Next ' Dim Printername = "" ' Dim oPS As New System.Drawing.Printing.PrinterSettings ' Try ' Printername = oPS.PrinterName ' Catch ex As System.Exception ' End Try ' 'Dim trd = New Threading.Thread(Sub() ' For Each s In SENDUNG_LIST ' If checkcbxAlleFirmen(s.FilialenNr) Then ' If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count) ' End If ' Next ' ' End Sub) ' ' trd.IsBackground = True : trd.Start() ' Me.Cursor = Cursors.Default 'End If Dim Printername = "" Dim oPS As New System.Drawing.Printing.PrinterSettings Try Printername = oPS.PrinterName Catch ex As System.Exception End Try If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then tread_printAlleAktendeckel(AvisoID, Printername) End If End Sub Shared Sub tread_printAlleAktendeckel(AvisoID, Printername) Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL Dim t As New Threading.Thread(Sub(params) Dim AVISO_Tmp As VERAG_PROG_ALLGEMEIN.cAviso = AvisoDAL.LesenAviso(AvisoID, "") Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, CInt(params(0))) 'LÄDT alle SENDUNGSDATEN For Each s In SENDUNG_LIST If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then If MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!" & vbNewLine & "Druck trotzdem fortfahren?", MsgBoxStyle.YesNoCancel) <> vbYes Then Exit Sub End If End If Next 'Dim trd = New Threading.Thread(Sub() For Each s In SENDUNG_LIST If Not s.tblSnd_Fremdspedition AndAlso CInt(s.AbfertigungsNr) > 100000 Then SendungOptions.PrintSendung("PRINT", s, AVISO_Tmp, params(1),, SENDUNG_LIST.Count) Next End Sub) t.Start({AvisoID, Printername}) t.IsBackground = True End Sub Sub tread_printAlleAktendeckel_OLD() ' Me.Cursor = Cursors.WaitCursor 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 For Each s In SENDUNG_LIST If checkcbxAlleFirmen(s.FilialenNr) Then If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then If MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!" & vbNewLine & "Druck trotzdem fortfahren?", MsgBoxStyle.YesNoCancel) <> vbYes Then Exit Sub End If End If End If Next Dim Printername = "" Dim oPS As New System.Drawing.Printing.PrinterSettings Try Printername = oPS.PrinterName Catch ex As System.Exception End Try 'Dim trd = New Threading.Thread(Sub() For Each s In SENDUNG_LIST If checkcbxAlleFirmen(s.FilialenNr) Then If Not s.tblSnd_Fremdspedition AndAlso CInt(s.AbfertigungsNr) > 100000 Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count) End If Next ' End Sub) ' trd.IsBackground = True : trd.Start() ' Me.Cursor = Cursors.Default End Sub Sub addVPList(ByRef MAIL_BODY As String, VP_Enum As List(Of String)) Dim Platzhalter = "

" Platzhalter &= "" For Each VP In VP_Enum Platzhalter &= "" Next Platzhalter &= "
Vorpapier:
" & VP & "
" MAIL_BODY = MAIL_BODY.Replace("%Platzhalter%", Platzhalter) End Sub Private Sub HervorhebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HervorhebenToolStripMenuItem.Click If gridVermerke.SelectedRows.Count = 0 Then Exit Sub Dim index As Integer = -1 If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index VermerkeDAL.toggleHervorheben(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value)) Vermerke_anzeigen(index) End Sub Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnAlleSteuerbescheide.Click Try If vbYes = MsgBox("Möchten Sie alle Steuerbescheide drucken?", vbYesNoCancel) Then Me.Cursor = Cursors.WaitCursor Dim SPEDBUCHLIST As New List(Of VERAG_PROG_ALLGEMEIN.cSpeditionsbuch) 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 Dim allEntry = True For Each s In SENDUNG_LIST If checkcbxAlleFirmen(s.FilialenNr) Then If Not s.tblSnd_Fremdspedition Then If s.tblSnd_SpeditionsbuchEingetragen Then If (s.FilialenNr > 0 And s.AbfertigungsNr > 0) Then Dim SP_LIST As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList(s.FilialenNr, s.AbfertigungsNr) For Each i In SP_LIST.LIST SPEDBUCHLIST.Add(i) Next End If Else allEntry = False End If End If End If Next If allEntry = False Then If vbNo = MsgBox("Es wurden nicht alle Sendungen ins Speditionsbuch eingetragen. Der Ausdruck der Steuerbescheide ist möglicherweise unvollständig." & vbNewLine & vbNewLine & "Soll der Vorgang fortgesetzt werden?", vbYesNo) Then Exit Sub End If End If 'Dim Printername = "" 'Dim oPS As New System.Drawing.Printing.PrinterSettings 'Try ' Printername = oPS.PrinterName 'Catch ex As System.Exception 'End Try For Each s In SPEDBUCHLIST If s.DokumentId_Steuerbeleg IsNot Nothing AndAlso s.DokumentId_Steuerbeleg > 0 Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(s.DokumentId_Steuerbeleg)}) End If If s.DokumentId_Mitteilung IsNot Nothing AndAlso s.DokumentId_Mitteilung > 0 Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(s.DokumentId_Mitteilung)}) End If Next End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try Me.Cursor = Cursors.Default End Sub Function checkcbxAlleFirmen(FilialenNr) As Boolean If cbxAlleFirmen.Checked Then Return True Else Select Case FilialenNr Case "5501" : If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then Return True Case "5601" : If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then Return True Case Else If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG " Then Return True End Select Return False End If End Function Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnSendungslisteUNISPED.Click genUNISPED_Excel(AvisoID) End Sub Shared Function genUNISPED_Excel(AvisoID As Integer, Optional printReportElsePDF As Boolean = False) As String Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) ' Dim odoc As Microsoft.Office.Interop.Excel.Sheets = Nothing Dim oExc As New Microsoft.Office.Interop.Excel.Application Dim excelBook As Excel.Workbook Try Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "UNISPED", "", "Sendungsliste_UNISPED") Dim pfadWord = DS.GET_TOP1_PATH(False) ' Dim cGenWord As New cGenWord ' oExc = cGenWord.openWord(pfadWord, False, oWord) excelBook = oExc.Workbooks.Open(pfadWord) 'Dim vname = "" 'If VERAG_PROG_ALLGEMEIN.cAllgemein.USR_VNAME.Length > 0 Then vname = VERAG_PROG_ALLGEMEIN.cAllgemein.USR_VNAME.Substring(0, 1) & "." Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoID) oExc.Range("C4").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname ' oExc.Range("C5").Value = usrCntl.txtFilialeLKWId.Text oExc.Range("I7").Value = AVISO.LKW_Nr oExc.Range("I5").Value = Now.ToShortDateString ' oExc.Range("C7").Value = usrCntl.txtT1Gestellung.Text ' oExc.Range("F7").Value = usrCntl.txtBezugsNrSumA.Text oExc.Range("F4").Value = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl <> "", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl, "+43 7711 / 2777 - 0") 'Wenn die Excel-Vorlage nciht reicht, werden neue Zeilen eingefügt Dim i = 0 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 For cnt = 13 To SENDUNG_LIST.Count oExc.Range("A11").EntireRow.Copy() oExc.Range("A11").EntireRow.Insert(Excel.XlDirection.xlDown) Next Dim colli As Double = 0 Dim gewicht As Double = 0 For Each s In SENDUNG_LIST oExc.Range("A" & (i + 11)).Value = (i + 1) oExc.Range("B" & (i + 11)).Value = s.tblSnd_Warenbezeichnung oExc.Range("C" & (i + 11)).Value = s.tblSnd_Colli.Replace(".", "") ' Damit nicht falsche kommastelle erzuegt wird oExc.Range("D" & (i + 11)).Value = s.tblSnd_Gewicht oExc.Range("E" & (i + 11)).Value = s.tblSnd_Absender oExc.Range("F" & (i + 11)).Value = s.tblSnd_Empfaenger oExc.Range("G" & (i + 11)).Value = s.tblSnd_Abfertigungsart_ID Dim HandlingTxt = "" s.LOAD_HANDLING() For Each ata In s.HANDLING HandlingTxt &= ata.sndhdg_nr & ", " Next If HandlingTxt.EndsWith(", ") Then HandlingTxt = HandlingTxt.Substring(0, HandlingTxt.Length - 2) oExc.Range("H" & (i + 11)).Value = HandlingTxt.Trim oExc.Range("I" & (i + 11)).Value = s.tblSnd_Anmerkung If IsNumeric(s.tblSnd_Colli) Then colli += CInt(s.tblSnd_Colli) If IsNumeric(s.tblSnd_Gewicht) Then gewicht += CInt(s.tblSnd_Gewicht) ' oExc.Range("H" & (i + 11)).Value = s.txtAtaMrn.Text ' oExc.Range("I" & (i + 11)).Value = s.rtbBemerkung.Text i += 1 Next oExc.Range("C8").Value = colli.ToString.Replace(".", "") ' Damit nicht falsche kommastelle erzuegt wird oExc.Range("D8").Value = gewicht.ToString.Replace(".", "") 'For Each c In usrCntl.MyFlowLayoutPanel1.Controls ' Dim tmp = DirectCast(c, usrCntlSA_GestellungElemente) 'For i = 1 To i = 3 ' oExc.Range("A" & (i + 11)).Value = tmp.lbl1.Text ' (i + 1) ' oExc.Range("B" & (i + 11)).Value = tmp.txtWarenbezeichnung.Text ' oExc.Range("C" & (i + 11)).Value = tmp.txtColli.Text.Replace(".", "") ' Damit nicht falsche kommastelle erzuegt wird ' oExc.Range("D" & (i + 11)).Value = tmp.txtGewicht.Text ' oExc.Range("E" & (i + 11)).Value = tmp.txtAbsender.Text ' oExc.Range("F" & (i + 11)).Value = tmp.txtEmpfaenger.Text ' oExc.Range("G" & (i + 11)).Value = tmp.cboAbfertigungsart.Text ' oExc.Range("H" & (i + 11)).Value = tmp.txtAtaMrn.Text ' oExc.Range("I" & (i + 11)).Value = tmp.rtbBemerkung.Text ' i += 1 'Next Dim p = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Sendungsliste_UNISPED" & ".xlsx", ".xlsx", True, False) excelBook.SaveAs(p) ': oExc.Activate() If printReportElsePDF Then 'NUR DRUCK!! oExc.Visible = False 'Print oExc.Workbooks(1).PrintOutEx() '1, 1, 1, True) Try oExc.Workbooks.Close() oExc.Quit() Catch ex As Exception MsgBox(ex.Message) End Try Else oExc.Visible = True End If ' Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(nameDispo & ".pdf", ".pdf", True, False) ' odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF) Return "" ' Return pfadWord Catch ex As Exception MessageBox.Show(ex.ToString & ex.StackTrace) End Try Return "" End Function Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click 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 Sub Private Sub Button13_Click_1(sender As Object, e As EventArgs) Handles Button13.Click Dim mailTo = InputBox("Freigabe-Mail senden an:") 'If vbYes = MsgBox("Freigabe-Mail wirklich senden?", vbYesNoCancel) Then If mailTo <> "" Then AvisoStatusFunctions.SendFreigabeEmail(AVISO, mailTo) End If End Sub Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles toolVkReminder.Click, ToolUeberweisungsBeleg.Click If gridVermerke.SelectedRows.Count = 0 Then Exit Sub Dim index As Integer = -1 If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index Dim AvisoId_Tmp = gridVermerke.SelectedRows(0).Cells("AvisoId").Value Dim SendungID_Tmp = gridVermerke.SelectedRows(0).Cells("SendungID").Value If sender Is toolVkReminder Then AvisoStatusFunctions.insertSendungsVermerk(SendungID_Tmp, AvisoId_Tmp, "VK: Reminder geschickt", 78,, gridVermerke.SelectedRows(0).Cells("VorauskasseId").Value) ElseIf sender Is ToolUeberweisungsBeleg Then AvisoStatusFunctions.insertSendungsVermerk(SendungID_Tmp, AvisoId_Tmp, "VK: Überweisungsbeleg erhalten.", 79,, gridVermerke.SelectedRows(0).Cells("VorauskasseId").Value) End If Vermerke_anzeigen(index) End Sub Private Sub gridVermerke_Scroll(sender As Object, e As ScrollEventArgs) Handles gridVermerke.Scroll ArrowDown_ShowHide() End Sub Private Sub txtMAinfo_VorbereitetQs_TextChanged(sender As Object, e As EventArgs) Handles txtMAinfo_Vorgeschrieben.Click, txtMAinfo_VorbereitetQs.Click, txtMAinfo_TRVorgeschrieben.Click, txtMAinfo_AbklaerungTR.Click If sender.tag IsNot DBNull.Value AndAlso sender.tag IsNot Nothing Then If IsNumeric(sender.tag) Then Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche(sender.tag) f.Show() End If End If End Sub Private Sub MitarbeiterAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MitarbeiterAnzeigenToolStripMenuItem.Click If gridVermerke.SelectedRows.Count = 0 Then Exit Sub If gridVermerke.SelectedRows(0).Cells("MitarbeiterId").Value Is DBNull.Value Then Exit Sub If Not IsNumeric(gridVermerke.SelectedRows(0).Cells("MitarbeiterId").Value) Then Exit Sub Dim MA As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche(gridVermerke.SelectedRows(0).Cells("MitarbeiterId").Value) MA.Show() End Sub Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click Dim f As New frmLaufzettel(AVISO, Nothing, True, True, True, True, cbxVPSplit.Checked) f.ShowDialog() End Sub Private Sub btnQuckScan_Click(sender As Object, e As EventArgs) Handles btnQuckScan.Click Try Me.Cursor = Cursors.WaitCursor If frmSendungAnhangImport.quickScan(AvisoID) Then Vermerke_anzeigen() End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan") End Try Me.Cursor = Cursors.Default 'Try ' Me.Cursor = Cursors.WaitCursor ' 'If KdNr < 0 Then Exit Sub ' Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("QuickScan") ' frmScan.DefaultFileName = "Scan" ' Me._TEXT_PDF ' If frmScan.ShowDialog(Me) = DialogResult.OK Then ' If frmScan.ReturnValue IsNot Nothing Then ' Dim Filename = frmScan.fileName ' Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(Filename, ".pdf",, False, "SendungsAnhaenge") ' File.WriteAllBytes(TMP_Path, frmScan.ReturnValue) ' Dim da_id = -1 ' Dim anhId = -1 ' Dim destPath = "" ' If frmSendungAnhangImport.saveToDS(AvisoID, Filename, TMP_Path, "", "PDF", da_id, anhId, destPath) Then ' ' frmSendungAnhangImport. addUsrcnlToPnl(destPath, da_id, anhId, Filename, "PDF") ' Vermerke_anzeigen() ' End If ' 'addUsrcnlToPnl(TMP_Path) ' End If ' End If 'Catch ex As Exception ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan") 'End Try 'Me.Cursor = Cursors.Default End Sub Private Sub btnWlanTicket_Click(sender As Object, e As EventArgs) Handles btnWlanTicket.Click If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then sWLANTicket.printTicket(AVISO) Else MsgBox("Nur für Front-Office Benutzer!") End If End Sub Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click If VERAG_PROG_ALLGEMEIN.cSMS.SEND_StatusSMS(AVISO) Then MsgBox("Nur TEST!") End If End Sub Private Sub Button6_Click_1(sender As Object, e As EventArgs) Handles Button6.Click AvisoStatusFunctions.SendStatusEmail(AVISO) End Sub Private Sub Button10_Click_1(sender As Object, e As EventArgs) Handles Button10.Click Dim mailTo = InputBox("Freigabe-Mail senden an:") 'If vbYes = MsgBox("Freigabe-Mail wirklich senden?", vbYesNoCancel) Then If mailTo <> "" Then AvisoStatusFunctions.SendAnkunftEmail(AVISO, mailTo) End If End Sub Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click Dim mailTo = InputBox("Freigabe-Mail senden an:") 'If vbYes = MsgBox("Freigabe-Mail wirklich senden?", vbYesNoCancel) Then If mailTo <> "" Then AvisoStatusFunctions.SendStatusEmail(AVISO, mailTo) End If End Sub Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click Process.Start("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID)) End Sub Private Sub picAVISOMessenger_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click Me.Cursor = Cursors.WaitCursor If VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat.openLKW_Chat(AVISO) Then initLKW_CHAT() End If Me.Cursor = Cursors.Default End Sub Private Sub picAVISOMessengerSNDChat_Click(sender As Object, e As EventArgs) Handles picAVISOMessengerSNDChat.Click, lblSNDChat_MsgCnt.Click If dgvSendungen.SelectedRows.Count > 0 Then If dgvSendungen.SelectedRows(0).Cells("AbfertigungsNr").Value = "0/0" Then MsgBox("Bitte zuerst AbfertigungsNr/FilialenNr vergeben!") : Exit Sub Me.Cursor = Cursors.WaitCursor Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value) If VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat.openSND_Chat(AVISO, SND) Then initSND_CHAT(SND.tblSnd_SendungID) End If Me.Cursor = Cursors.Default End If End Sub End Class