Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO Imports System.IO 'Imports Gemeinsames.cDatenbank Imports System.Drawing Imports System.Drawing.Printing Public Class usrcntlAktDetailsATILLANeu 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 PROG As New cProgramFunctions Dim WithEvents timer As New Timer ' Dim WithEvents reloadTimer As New Timer ' Dim WithEvents timerDetails As New Timer Dim AVISO As cAviso = Nothing Dim SENDUNG_LIST As List(Of VERAG_PROG_ALLGEMEIN.cSendungen) = Nothing Dim WithEvents timerSendRows As New Timer Dim WithEvents timerAktUebernommen As New Timer Dim SQL As New SDL.SQL Dim ADMIN As New cADMIN Dim painted = False ' Damit gridVermerke Formattierung nicht dauernd anspringt.. 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) AvisoID = id VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) TextBox1.Text = "" If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then TextBox1.Text = SENDUNG_LIST(0).FilialenNr & "/" & SENDUNG_LIST(0).AbfertigungsNr End If Dim SENDUNG = Nothing If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then SENDUNG = SENDUNG_LIST(0) End If UsrCntlVermerkeATilla1.init(id, SENDUNG) ' reloadTimer.Enabled = True loaded = False pnlOptionen.Visible = False pnlDetailsRechts.Enabled = False pnlDetailsRechts.Cursor = Cursors.WaitCursor Dim v As Boolean = (AvisoID > 0) setVisible(btnAnkunft, v) setVisible(btnFreigabe, v) ' setVisible(btnNichtEingetroffen, v) setVisible(btnErfasst, v) ' setVisible(btnVorbereitet, v) setVisible(btnVorgeschrieben, v) setVisible(lblTimeAnkunft, v) setVisible(lblTimeErfasst, v) setVisible(Label7, v) setVisible(lblTimeFreigabe, v) ' setVisible(lblTimeVorbereitet, v) setVisible(lblTimeVorgeschreiben, v) Details_anzeigen() pnlDetailsRechts.Enabled = True pnlDetailsRechts.Cursor = Cursors.Default loaded = True initTbCntr() Vermerke_anzeigen() 'bei selchanged: 'Vermerke_anzeigen() 'initDgvSpeditionsbuch() 'initdgvZollAnmeldungen() 'initAnhaenge() If AVISO IsNot Nothing Then If AVISO.Abgeschlossen Then pnlAbgeschlossen.Visible = True ' FlowLayoutPanel.Visible = False Button3.Visible = False UsrCntlVermerkeATilla1.Enabled = False btnKassenbuchEintrag.Enabled = False btn.Enabled = False Else pnlAbgeschlossen.Visible = False ' FlowLayoutPanel.Visible = true Button3.Visible = True UsrCntlVermerkeATilla1.Enabled = True btnKassenbuchEintrag.Enabled = True btn.Enabled = True End If txtLKWID.Text = AVISO.AvisoID 'Kann nur bei Freigabe angezeigt werden If AVISO.Status <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then Button3.Visible = False End If End If 'If opensendungsDetails Then ' timerDetails.Interval = 500 ' timerDetails.Enabled = True ' End If 'Button7_Click(Button7, New EventArgs) End Sub Sub initdgvATEZ() With dgvATEZNCTS .Columns.Clear() .ReadOnly = False .DataSource = SQL.loadDgvBySql("select [Id],'ATEZ' as Art ,[VERAG_LRN] as BezugsNr,[erstellung] as Erstellung,[Status] as Status FROM [tblATEZ_NCTS] WHERE AvisoId='" & AvisoID & "'", "FMZOLL") If .Columns.Count <= 0 Then Exit Sub 'Ä.Columns("txtStatus").ReadOnly = False .Columns("Id").Visible = False .Columns("Art").HeaderText = "Art" .Columns("Art").Width = 80 .Columns("Status").HeaderText = "Art" .Columns("Status").Width = 80 .Columns("BezugsNr").HeaderText = "BezugsNr" .Columns("BezugsNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("Erstellung").HeaderText = "Erstellt" .Columns("Erstellung").Width = 100 .Columns("Erstellung").DefaultCellStyle.Format = "dd.MM.yy HH:mm" .Columns("Erstellung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .ReadOnly = False End With End Sub Sub initdgvZollAnmeldungen() With dgvZollAnmeldungen .Columns.Clear() .ReadOnly = False .DataSource = SQL.loadDgvBySql("SELECT [dy_Id],[dy_ART],[dy_BezugsNr],[dy_Erstellung],[dy_Status] FROM [tblDakosy_Zollanmeldungen] WHERE dy_AvisoId='" & AvisoID & "'", "FMZOLL") If .Columns.Count <= 0 Then Exit Sub 'Ä.Columns("txtStatus").ReadOnly = False .Columns("dy_Id").Visible = False .Columns("dy_Status").Visible = False .Columns("dy_ART").HeaderText = "Art" .Columns("dy_ART").Width = 80 .Columns("dy_BezugsNr").HeaderText = "BezugsNr" .Columns("dy_BezugsNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("dy_Erstellung").HeaderText = "Erstellt" .Columns("dy_Erstellung").Width = 100 .Columns("dy_Erstellung").DefaultCellStyle.Format = "dd.MM.yy HH:mm" .Columns("dy_Erstellung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter Dim c As New DataGridViewTextBoxColumn c.Name = "txtStatus" .Columns.Add(c) .Columns("txtStatus").HeaderText = "Status" .Columns("txtStatus").Width = 250 For Each r As DataGridViewRow In .Rows r.Cells("txtStatus").Value = DAKOSY_Worker.cDY_Statusliste.getTxtByCode2(r.Cells("dy_Status").Value, r.Cells("dy_ART").Value, r.Cells("txtStatus").Value, r.Cells("txtStatus").Style.BackColor) Next .ReadOnly = False End With End Sub Private Sub dgvZollAnmeldungen_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvZollAnmeldungen.CellFormatting Select Case dgvZollAnmeldungen.Columns(e.ColumnIndex).Name Case "txtStatus" 'Dauer ' dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Value = "A" DAKOSY_Worker.cDY_Statusliste.getTxtByCode2(dgvZollAnmeldungen.Rows(e.RowIndex).Cells("dy_Status").Value, dgvZollAnmeldungen.Rows(e.RowIndex).Cells("dy_art").Value, dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Value, dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Style.BackColor, , dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Style.ForeColor) End Select End Sub Private Sub dgvZollAnmeldungen_CellContentClick(sender As Object, e As EventArgs) Handles dgvZollAnmeldungen.DoubleClick ', dgvZollAnmeldungen.CellContentClick Try Me.Cursor = Cursors.WaitCursor Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADById(dgvZollAnmeldungen.SelectedRows(0).Cells("dy_Id").Value) If DY IsNot Nothing Then Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing If SENDUNG_LIST IsNot Nothing Then SND = SENDUNG_LIST(0) End If Dim SYSTEM = "DAKOSY" ' Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SENDUNG_LIST(0), Now.ToString("yy")) Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SND, Now.ToString("yy"), SYSTEM) AddHandler f.FormClosed, Sub() initdgvZollAnmeldungen() End Sub f.Show() End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try Me.Cursor = Cursors.Default ' frmNacherfassung.showAll() End Sub Private Sub usrcntlAktDetails_Load(sender As Object, e As EventArgs) Handles Me.Load If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then SGSNCTSToolStripMenuItem.Visible = True Button12.Visible = True End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATEZ_NCTS", Me.FindForm) Then NCTSATEZToolStripMenuItem.Visible = True tbATEZ.Visible = True Else tbATEZ.Visible = False End If timer.Interval = 100 reload(AvisoID) If My.Computer.Screen.WorkingArea.Width < 1300 Then 'btnAnkunft.Text = "ANKUNFT" 'btnErfasst.Text = "ERFASST" '' btnVorbereitet.Text = "VORB.QS" 'btnVorgeschrieben.Text = "VORGESCHR." 'btnFreigabe.Text = "FREIGABE" 'btnVorgeschrieben.Text = "VORGESCHR." 'btnVorgeschrieben.Text = "VORGESCHR." End If If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then Panel14.Visible = True Panel15.Visible = True Else Panel14.Visible = False Panel15.Visible = False End If If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then Panel6.Visible = True Else Panel6.Visible = False End If dgvZollAnmeldungen.ClearSelection() 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() ' If Not Details_aktiv Then Exit Sub ' pnlDetailsRechts.Visible = False ' pnlDetailsRechts.SuspendLayout() 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 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) Button3.Visible = False Select Case AVISO.Status Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft lblStatus.Text = "ANKUNFT" : pnlStatus.BackColor = btnAnkunft.BackColor Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst lblStatus.Text = "ERFASST" : pnlStatus.BackColor = btnErfasst.BackColor 'Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Vorbereitet ' lblStatus.Text = "VORBEREITET - QS" : pnlStatus.BackColor = btnVorbereitet.BackColor Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben lblStatus.Text = "VORGESCHRIEBEN" : pnlStatus.BackColor = btnVorgeschrieben.BackColor Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX lblStatus.Text = "AN VERIMEX" : pnlStatus.BackColor = btnAnVerimex.BackColor Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN lblStatus.Text = "AN INDONESIEN" : pnlStatus.BackColor = btnAnIndonesien.BackColor Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben lblStatus.Text = "FREIGABE" : pnlStatus.BackColor = btnFreigabe.BackColor Button3.Visible = True 'For Each s In sendun 'If alle spedbuchOK 'visible Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen lblStatus.Text = "NICHT EINGETR." : pnlStatus.BackColor = btnNichtEingetroffen.BackColor End Select txtFrächter.Text = AVISO.Frächter txtAuftraggeber.Text = AVISO.Auftraggeber txtAktMA.Text = AVISO.letzterMitarbeiter ' 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) Label7.Text = formatdate(AVISO.Vorbereitet) lblTimeVorgeschreiben.Text = formatdate(AVISO.Vorgeschrieben) intiAktUebernehmenBtn() Vermerke_anzeigen() 'Button6.Focus() ' pnlDetailsRechts.Visible = True ' pnlDetailsRechts.Cursor = Cursors.Default ' pnlDetailsRechts.PerformLayout() 'pnlDetailsRechts.la ' pnlDetailsRechts.Width = SplitContainer1.Width ' pnlDetailsRechts.Height = SplitContainer1.Height 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 Private Sub gridVermerke_SpaltenFestlegen() 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("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").Visible = False '.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("SMSId").Visible = False 'tblSnd_Empfaengernicht anzeigen ' .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 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 Vermerke_anzeigen(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 = "" ' If setAkive_AuswahlID() = -1 Then Exit Sub If AvisoID <= 0 Then Exit Sub 'Hier werden die passenden Vermerke zum Aviso angezeigt Dim sendwhere = "" Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr," & "/* CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],*/ Hinweis_Vermerk as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],SMSId" & " 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 " infotxt = AvisoDAL.getAvisoInfo(AvisoID) If infotxt <> "" Then lblInfoAviso.Visible = True End If gridVermerke.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL) Dim dgvlc As New DataGridViewLinkColumn dgvlc.Name = "VermerkeOptions" gridVermerke.Columns.Insert(gridVermerke.ColumnCount - 1, dgvlc) gridVermerke_SpaltenFestlegen() timer.Enabled = True painted = False End Sub Sub initDgvSpeditionsbuch() With dgvSpeditionsbuch .DataSource = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],[Bar],[LKW Kennzeichen] FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") End With End Sub Sub initAnhaenge() Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0 ORDER BY case when [anh_Art] = 'ATR-EUR1' then 0 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] = 'Sonstiges' then 99 when [anh_Art] ='' then 15 END, [anh_Reihenfolge], anh_Datum desc, [anh_id]" ' order by [anh_Reihenfolge],[anh_id] dgvanhaenge.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL) If dgvanhaenge.RowCount = 0 Then dgvanhaenge.Columns.Clear() : Exit Sub With dgvanhaenge .RowTemplate.MinimumHeight = 30 .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells .Columns("anh_id").Visible = False 'VermerkID nicht anzeigenconMenuVermerke .Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen .Columns("anh_Datum").MinimumWidth = 50 .Columns("anh_Datum").HeaderText = "Datum" .Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .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.MiddleCenter .Columns("anh_Typ").Width = 60 .Columns("anh_Typ").HeaderText = "Typ" .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter End With End Sub Private Sub dgvanhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvanhaenge.CellDoubleClick Try If dgvanhaenge.SelectedRows.Count > 0 Then Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvanhaenge.SelectedRows(0).Cells("anh_docId").Value) If Not IO.File.Exists(docPath) Then MsgBox("Die Datei existiert nicht!") Else If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler (bereits von Benutzer soUndSo geöffnet) Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG() File.Copy(docPath, docPathTMP) Process.Start(docPathTMP) Else Process.Start(docPath) End If End If End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End Sub Private Sub gridVermerkeMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles gridVermerke.CellContentClick If gridVermerke.RowCount = 0 Then Exit Sub If gridVermerke.Columns(e.ColumnIndex).Name = "VermerkeOptions" Then Dim VermerkeDAL As New cVermerkeDAL Dim myVermerk As cVermerk = VermerkeDAL.LesenVermerk(gridVermerke.Rows(e.RowIndex).Cells("VermerkID").Value, "") myVermerk.VermerkID = 0 'myVermerk.AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells(1).Value) myVermerk.Datum = Now myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID Dim init As Boolean = False Select Case CStr(gridVermerke.Rows(e.RowIndex).Cells("VermerkeCode").Value) Case "1" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 2 VermerkeDAL.SpeichernVermerk(myVermerk) init = True 'Vermerke_anzeigen(e.RowIndex) ' initDgvSendungen() Case "3" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 4 VermerkeDAL.SpeichernVermerk(myVermerk) init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() Case "5" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 6 VermerkeDAL.SpeichernVermerk(myVermerk) init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() Case "7" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 8 VermerkeDAL.SpeichernVermerk(myVermerk) init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() Case "9" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 10 VermerkeDAL.SpeichernVermerk(myVermerk) init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() Case "11" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 12 VermerkeDAL.SpeichernVermerk(myVermerk) init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() Case "13" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 14 VermerkeDAL.SpeichernVermerk(myVermerk) init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() Case "17" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig") myVermerk.VermerkCodeId = 18 VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False) ' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID) 'Vermerke_aktualisieren() init = True ' Vermerke_anzeigen(e.RowIndex) Case "19" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig") myVermerk.VermerkCodeId = 20 VermerkeDAL.SpeichernVermerk(myVermerk) init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() Case "25" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 30 VermerkeDAL.SpeichernVermerk(myVermerk) init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() Case "31" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschlossen") myVermerk.VermerkCodeId = 32 VermerkeDAL.SpeichernVermerk(myVermerk) init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() Case "33" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 34 VermerkeDAL.SpeichernVermerk(myVermerk) init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() Case "36" myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.VermerkCodeId = 37 VermerkeDAL.SpeichernVermerk(myVermerk) init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() Case "46" MsgBox("SMS " & gridVermerke.Rows(e.RowIndex).Cells("VermerkeOptions").ToolTipText) init = False 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() End Select loaded = False Dim tmpIndex = -1 loaded = True Vermerke_anzeigen(tmpIndex) End If End Sub Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint ' If dgvSendungen.RowCount = 0 Then Exit Sub If painted Then Exit Sub Try 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 (r.Cells("VermerkeCode").Value) IsNot DBNull.Value Then Select Case CInt(r.Cells("VermerkeCode").Value) Case 1 If Not existCodeInGridVermerke(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(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(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(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(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(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 13 If Not existCodeInGridVermerke(14, CStr(r.Cells("Hinweis_Vermerk").Value)) Then optionCell.Value = "Vorauskasse erhalten" optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen." End If Case 17 If Not existCodeInGridVermerke(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(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(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(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(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(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(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold) 'optionCell.LinkColor = Color.White 'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor End Select End If End Select End If Next painted = True Catch ex As Exception MsgBox(ex.Message) End Try End Sub Function existCodeInGridVermerke(code As Integer, Optional text As String = "") As Boolean For Each r As DataGridViewRow In gridVermerke.Rows If DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString = CStr(code) Then Select Case code Case 2, 4, 6, 8, 10, 12, 14, 30, 37, 34 If 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 Next Return False End Function Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVermerkLöschen.Click If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 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 VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value)) Vermerke_anzeigen(index) Exit Sub If sender Is conVermerkLö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() End If End Sub Private Sub grid_CellMouseClickAnh(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 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) End If End If End Sub Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvanhaenge.CellMouseClick If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True If e.Button = MouseButtons.Right Then If AVISO.Abgeschlossen Then Exit Sub If sender Is dgvanhaenge Then If dgvanhaenge.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt ' AvisoID = CInt(dgvanhaenge.Rows(e.RowIndex).Cells("AvisoId").Value) dgvanhaenge.CurrentCell = dgvanhaenge.Rows(e.RowIndex).Cells(e.ColumnIndex) cntxt.Show(Cursor.Position) End If 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 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() sv.Close() 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) 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) Handles btnNichtEingetroffen.Click If FUNC.setNichtEingeftroffen(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 btnÜbernehmen_Click(sender As Object, e As EventArgs) If FUNC.AktUebernehmen(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 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 gridVermerke.RowCount = 0 Then gridVermerke.Columns.Clear() 'gridVermerke.Visible = False If Not loaded Then Exit Sub timer.Enabled = False End Sub ' 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 timerSendRows.Enabled = False 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 path_src As String = "" If sender Is DispolisteTRToolStripMenuItem Then path_src = VERAG_PROG_ALLGEMEIN.cFormularManager.open("DOKUMENTE", "VORLAGEN", "", "", "", "Dispoliste TR.doc") If sender Is DispolisteENToolStripMenuItem Then path_src = VERAG_PROG_ALLGEMEIN.cFormularManager.open("DOKUMENTE", "VORLAGEN", "", "", "", "Dispoliste EN.docx") '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 Button1_Click_1(sender As Object, e As EventArgs) ' 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 Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 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) Handles btnKassenbuchEintrag.Click 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 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 'Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Auftraggeber frmBeleg.BELEG.LKW_Id = AVISO.AvisoID 'Bei ATILLA werden Filiale- u PosNr übergeben: If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 AndAlso SENDUNG_LIST(0).AbfertigungsNr > 0 Then frmBeleg.BELEG.AbfertigungsNr = SENDUNG_LIST(0).AbfertigungsNr frmBeleg.BELEG.FilialenNr = SENDUNG_LIST(0).FilialenNr End If frmBeleg.BELEG.FilialenNr = 4801 frmBeleg.init() ' Nach init: If AVISO.Frächter_KdNr >= 0 Then 'frmBeleg.kdFrachtf.KdNr = AVISO.Frächter_KdNr frmBeleg.kdkunde.KdNr = AVISO.Frächter_KdNr End If End Sub frmBeleg.ShowDialog(Me) reload(AvisoID) End If End Sub Private Sub btn_Click(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 Dim SQL As New SQL 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 SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then ' If SENDUNG_LIST(0).AbfertigungsNr > 0 Then posNr.Abfertigungsnummer = SENDUNG_LIST(0).AbfertigungsNr If SENDUNG_LIST(0).FilialenNr > 0 Then posNr.Filiale = SENDUNG_LIST(0).FilialenNr If posNr.Abfertigungsnummer > 0 And posNr.Filiale > 0 Then posNr.UnterNr = SQL.getValueTxtBySql("SELECT isnull(max([UnterNr]),-1)+1 FROM [Speditionsbuch] where FilialenNr='" & posNr.Filiale & "' and AbfertigungsNr='" & posNr.Abfertigungsnummer & "' ", "FMZOLL") End If 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 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.loadOnlyAvisoStart = True 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) MsgBox(ex.StackTrace) End Try End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnAktUebernehmen.Click 'If FUNC.AktUebernehmen(AvisoID) Then ' frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) ' frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'End If 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..." Else btnAktUebernehmen.Image = My.Resources.personCheck_small btnAktUebernehmen.Text = "Akt übernehmen" End If End Sub Private Sub UsrCntlVermerkeATilla1_VERMERKEingetragen() Handles UsrCntlVermerkeATilla1.VERMERKEingetragen reload(AvisoID) End Sub Private Sub DataGridView_CellContentClick(sender As Object, e As EventArgs) Handles dgvSpeditionsbuch.DoubleClick If dgvSpeditionsbuch.SelectedRows.Count = 0 Then Exit Sub Dim frmNacherfassung As New SDL.frmNacherfassungNEU frmNacherfassung.srchFiliale = dgvSpeditionsbuch.SelectedRows(0).Cells("FilialenNr").Value frmNacherfassung.srchAbfertigungsnummer = dgvSpeditionsbuch.SelectedRows(0).Cells("AbfertigungsNr").Value frmNacherfassung.srchUnterNr = dgvSpeditionsbuch.SelectedRows(0).Cells("UnterNr").Value ' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID ' frmNacherfassung.initDataBinding() frmNacherfassung.Show() ' frmNacherfassung.showAll() End Sub Public Sub showInfo(t As String, s As Double) lblAktUebernommen.Text = t lblAktUebernommen.Visible = True 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 Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click Dim PERSONAL As SDL.cPersonal = Nothing Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch ' frmSecureLoginKassenbuch.KassenbuchNr_tmp = PERSONAL.KassenbuchNr If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then PERSONAL = frmSecureLoginKassenbuch.PERSONAL Dim frmNacherfassungLeihgeld As New SDL.frmNacherfassungLeihgeld(PERSONAL, frmSecureLoginKassenbuch.PERSONAL_LG) frmNacherfassungLeihgeld.FMZollPersID = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_FMZollPersID 'frmNacherfassungLeihgeld.ShowDialog() frmNacherfassungLeihgeld.AvisoID = AvisoID AddHandler frmNacherfassungLeihgeld.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" frmNacherfassungLeihgeld.MyTextBoxLKWKz.Text = AVISO.LKW_Nr 'frmNacherfassungLeihgeld.BELEG.Ordnungsbegriff = AVISO.Frächter 'Keine Abf.-Nr, da neue Pos 'frmNacherfassungLeihgeld.cboFiliale.changeItem(Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr) ' frmNacherfassungLeihgeld.txtAbfertigungsnummer.Text = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr ' frmNacherfassungLeihgeld.init() If AVISO.Frächter_KdNr > 0 Then frmNacherfassungLeihgeld.txtAuftraggeber.KdNr = AVISO.Frächter_KdNr ' frmNacherfassungLeihgeld.kdkunde.KdNr = AVISO.Frächter_KdNr Else frmNacherfassungLeihgeld.txtAuftraggeber.Text = AVISO.Frächter End If 'If sender Is Button13 Then frmNacherfassungLeihgeld.AddDusche(True) End Sub frmNacherfassungLeihgeld.ShowDialog(Me) reload(AvisoID) End If End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click pnlOptionen.Height = 70 pnlOptionen.Visible = Not pnlOptionen.Visible 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) VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1 'frmHauptfenster.avisoAktualisierenAktiveIdBehalten(-1) frmHauptfenster.pnlDetailsRechts.Visible = False End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim SND = Nothing If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then SND = SENDUNG_LIST(0) SendungOptions.PrintSendungATILLA("PRINT", SND, AVISO, (New System.Drawing.Printing.PrinterSettings).PrinterName) End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click cntxtZollantrag.Show(Cursor.Position) End Sub Sub genZollantrag(ncts_Art, Optional ZOLL_SYSTEM = "DAKOSY") Try Me.Cursor = Cursors.WaitCursor If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0) Dim f As New SDL.frmZollanmeldung(ncts_Art, Nothing, AVISO, SND, Now.ToString("yy"), ZOLL_SYSTEM) AddHandler f.FormClosed, Sub() initdgvZollAnmeldungen() End Sub f.Show(Me) End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try Me.Cursor = Cursors.Default End Sub Private Sub NCTST2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NCTST2ToolStripMenuItem.Click genZollantrag("T2") End Sub Private Sub AESToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AESToolStripMenuItem.Click genZollantrag("AES") End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click If dgvZollAnmeldungen.SelectedRows.Count > 0 Then Dim log As New SDL.frmDY_LogBuch(dgvZollAnmeldungen.SelectedRows(0).Cells("dy_id").Value) ' log.Parent = Me.FindForm log.Show(Me) End If End Sub Private Sub dgvZollAnmeldungen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvZollAnmeldungen.SelectionChanged If dgvZollAnmeldungen.SelectedRows.Count > 0 AndAlso dgvZollAnmeldungen.Columns("txtStatus") IsNot Nothing Then dgvZollAnmeldungen.SelectedRows(0).Cells("txtStatus").Style.SelectionBackColor = dgvZollAnmeldungen.SelectedRows(0).Cells("txtStatus").Style.BackColor dgvZollAnmeldungen.SelectedRows(0).Cells("txtStatus").Style.SelectionForeColor = dgvZollAnmeldungen.SelectedRows(0).Cells("txtStatus").Style.ForeColor End If End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.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.UPDATE_FahrerHandy(FahrerHandy) End If Vermerke_anzeigen() End If End If End If End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VerpflichtungserklärungFahrer, FraechterKdNr, {AvisoID}, True) End Sub Private Sub SGSNCTSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SGSNCTSToolStripMenuItem.Click genZollantrag("T2", "SGS") 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 initAnhaenge() 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 tbcntr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntr.SelectedIndexChanged initTbCntr() End Sub Sub initTbCntr() If tbcntr.SelectedTab Is tbAnhaenge Then initAnhaenge() ElseIf tbcntr.SelectedTab Is tbSpedBuch Then initDgvSpeditionsbuch() ElseIf tbcntr.SelectedTab Is tbZollanmeldungen Then initdgvZollAnmeldungen() ElseIf tbcntr.SelectedTab Is tbVermerke Then If loaded Then Vermerke_anzeigen() ElseIf tbcntr.SelectedTab Is tbATEZ Then initdgvATEZ() End If End Sub Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click If dgvanhaenge.SelectedRows.Count = 0 Then Exit Sub If vbNo = MsgBox("Wollen Sie den ausgewählten Anhang wirklich löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Anhang löschen") Then Exit Sub End If For Each r As DataGridViewRow In dgvanhaenge.SelectedRows Dim anh_id = dgvanhaenge.SelectedRows(0).Cells("anh_id").Value Dim anh_docId = dgvanhaenge.SelectedRows(0).Cells("anh_docId").Value frmSendungAnhangImport.deleteElement(anh_docId, anh_id, False) Next initAnhaenge() End Sub Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click Try If dgvanhaenge.SelectedRows.Count = 0 Then Exit Sub Dim anh_id = dgvanhaenge.SelectedRows(0).Cells("anh_id").Value Dim FILE_NAME = dgvanhaenge.SelectedRows(0).Cells("anh_Name").Value Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(anh_id) Dim f As New frmSendungAnhangUmbenennenUmkateg(FILE_NAME, ANH.anh_Art) If f.ShowDialog = DialogResult.OK Then ANH.anh_Name = f.txtBezeichnung.Text ANH.anh_Art = f.cboArt._value ANH.SAVE() FILE_NAME = f.txtBezeichnung.Text initAnhaenge() End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click If frmSendungAnhangImport.addData_SendungAnhangFD(AvisoID) Then initAnhaenge() End If End Sub Private Sub MarkiertePDFsDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarkiertePDFsDruckenToolStripMenuItem.Click For Each r As DataGridViewRow In dgvanhaenge.SelectedRows Select Case r.Cells("anh_Typ").Value Case "PDF" : VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)}) Case "BILD" : VERAG_PROG_ALLGEMEIN.cFormularManager.Print_PICTURE({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)}) End Select Next End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click Dim data As IDataObject = Clipboard.GetDataObject If True Then 'data.GetDataPresent(DataFormats.FileDrop) Then For Each s As String In My.Computer.Clipboard.GetFileDropList() 'GetData(DataFormats.) 'data.GetData(DataFormats.FileDrop) 'DataFormats.FileDrop) ' Dim F_listItem As String = Path.Combine("c:\mynewpath", Path.GetFileName(s)) ' File.Copy(s, newFile) ' MsgBox(s) If IO.File.Exists(s) Then Dim fi As New FileInfo(s) Dim filename = fi.Name If filename = "" Then MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & s) Else Dim da_id = -1 Dim anhId = -1 Dim destPath = "" Dim Typ = "" If frmSendungAnhangImport.getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then frmSendungAnhangImport.saveToDS(AvisoID, filename, s, "", Typ, da_id, anhId, destPath) End If End If End If Next initAnhaenge() End If End Sub Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click Dim f As New SDL.frmCMR f.btnCMRtoAkt.Visible = True f.txtCMRName.Visible = True f.txtCMRName.Visible = True If f.ShowDialog(Me) Then Dim da_id = -1 Dim anhId = -1 Dim destPath = "" Dim Typ = "" If f.PDF_Path <> "" Then Dim CMRName = If(f.txtCMRName.Text <> "", f.txtCMRName.Text, "CMR") frmSendungAnhangImport.saveToDS(AvisoID, CMRName, f.PDF_Path, "CMR", "PDF", da_id, anhId, destPath) initAnhaenge() End If End If End Sub Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnVERIMEX.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 FlowLayoutPanel_Paint(sender As Object, e As PaintEventArgs) Handles FlowLayoutPanel.Paint End Sub Private Sub btnAnVerimex_Click(sender As Object, e As EventArgs) Handles btnAnVerimex.Click If FUNC.setAnVERIMEX(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 btnAnIndonesien_Click(sender As Object, e As EventArgs) Handles btnAnIndonesien.Click If FUNC.setAnINDONESIEN(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 NCTSATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NCTSATEZToolStripMenuItem.Click Try If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0) Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS) frmAttilaATEZNCTS.Show(Me) Me.Refresh() End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try Me.Cursor = Cursors.Default End Sub Private Sub Button12_Click_1(sender As Object, e As EventArgs) Handles Button12.Click FUNC.openSnd(SENDUNG_LIST(0).tblSnd_SendungID, AvisoID) End Sub Private Sub dgvATEZNCTS_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvATEZNCTS.CellDoubleClick Try Me.Cursor = Cursors.WaitCursor If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0) Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value, AVISO, SND, Now.ToString("yy")) frmAttilaATEZNCTS.Show(Me) Me.Refresh() End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try End Sub Private Sub dgvATEZNCTS_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvATEZNCTS.KeyUp If e.KeyCode = Keys.Delete Then If dgvATEZNCTS.SelectedRows.Count > 0 AndAlso dgvATEZNCTS.SelectedRows(0).Cells("Status").Value <> "Sent" Then If vbYes = MsgBox("Möchten Sie diesen Request wirklich löschen?", vbYesNoCancel) Then Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value) atez.delete() initdgvATEZ() End If End If End If End Sub End Class