edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
a4ad6cc8c83920c84085ee9c1eabc4e9edb27323
AVISO/Aviso/usrcntlAktDetails.vb
Andreas Luxbauer a4ad6cc8c8 neu
2022-03-21 09:19:52 +01:00

3384 lines
164 KiB
VB.net
Raw Blame History

Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
Imports System.IO
'Imports Gemeinsames.cDatenbank
Imports System.Drawing
Imports Microsoft.Office.Interop
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 = 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
'___________
If dgvSendungen.RowCount = 0 Then
pnlAlt.Visible = True
Else
pnlAlt.Visible = False
'timer.Enabled = True
' initDGVSendungenRows()
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 Me.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("ADMIN", Me.FindForm) Then
Button2.Visible = True
End If
'If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then
' tbcntlVermerke.TabPages.Remove(tbAnhang)
'End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
Button8.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)
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
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("Hervorheben").Visible = False 'tblSnd_Empfaengernicht anzeigen
.Columns("VorauskasseId").Visible = False 'tblSnd_Empfaengernicht anzeigen
.Columns("SMSId").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").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.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
Button18.Visible = True
Dim hSQL As String = " SELECT [anh_id],[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] = '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_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_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
End With
End Select
painted = False
ArrowDown_ShowHide()
End Sub
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_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
'---------------------------------------------------------
'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
'---------------------------------------------------------
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 As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben," &
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,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)
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()
gridVermerke_SpaltenFestlegen()
'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
If gridVermerke.RowCount = 0 Then Exit Sub
If gridVermerke.Columns(e.ColumnIndex).Name = "VermerkeOptions" Then
Dim tmpIndex = -1
If (dgvSendungen.SelectedRows.Count > 0) Then
tmpIndex = dgvSendungen.SelectedRows(0).Index
End If
Dim VermekId = gridVermerke.Rows(e.RowIndex).Cells("VermerkID").Value
Dim VermerkeDAL As New cVermerkeDAL
Dim myVermerk As cVermerk = VermerkeDAL.LesenVermerk(VermekId, "")
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
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
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
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
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
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
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
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
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
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
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
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "90"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 93
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.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(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 14
If gridVermerke.Rows(e.RowIndex).Cells("VorauskasseId").Value IsNot DBNull.Value Then
myVermerk.VorauskasseId = gridVermerke.Rows(e.RowIndex).Cells("VorauskasseId").Value
End If
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.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(e.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(e.RowIndex)
Case "19"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
myVermerk.VermerkCodeId = 20
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
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
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
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 abgeschl.")
myVermerk.VermerkCodeId = 32
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
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
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
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()
Case "36"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 37
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "53"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 54
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "55"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 56
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "57"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 58
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "74"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 75
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "76"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 77
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "80"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("folgt", "erhalten")
myVermerk.VermerkCodeId = 81
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
'Ankunft
If vbYes = MsgBox("Soll der LKW auf Status 'ANKUNFT' gesetzt werden?", vbYesNoCancel) Then
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 If
Case "82"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.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=" & AvisoID, "AVISO")
AvisoStatusFunctions.printFinish(AVISO)
' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
'Vermerke_aktualisieren()
init = True ' Vermerke_anzeigen(e.RowIndex)
End Select
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
End If
loaded = True
Vermerke_anzeigen(tmpIndex)
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
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 (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 90
If Not existCodeInGridVermerke(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(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(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(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
Case 53
If Not existCodeInGridVermerke(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(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(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(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(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 80
If Not existCodeInGridVermerke(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(83) Then
optionCell.Value = "DE-ZOLL fertig"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL (DIGITAL) fertig' einzutragen."
End If
End Select
End If
Next
painted = True
' 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
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 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
Next
Return False
End Function
Function existCodeInGridVermerke_VK(VorauskasseId 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("VorauskasseId"), DataGridViewTextBoxCell).Value.ToString = CStr(VorauskasseId) Then
Return True
End If
End Select
Next
Return False
End Function
Function existCodeInGridVermerke_VK_OLD(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ö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
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)
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()
initDgvSendungen()
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
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
Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(gridVermerke.SelectedRows(0).Cells("anh_docId").Value))
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 tbcntlVermerke.SelectedIndex <> 2 Then tbcntlVermerke.SelectedIndex = 2
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
If FUNC.setSendungAbfertigungTR(SendungsId, AvisoID) Then
initDgvSendungen()
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
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
Else
If r.Cells("tblSnd_VG_MA").Value IsNot DBNull.Value Then
DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_small
End If
DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung übernehmen"
End If
If r.Cells("LetzterMitarbeiter").Value IsNot DBNull.Value Then DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung von '" & r.Cells("LetzterMitarbeiter").Value & "' übernehmen"
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 = "Alle (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM Vermerke WHERE [AvisoID]=" & AvisoID & "", "AVISO") & ")"
tbcntlVermerke.TabPages(1).Text = "Aktenvermerke (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM Vermerke WHERE [AvisoID]=" & AvisoID & " AND [VermerkArt]='A' ", "AVISO") & ")"
If dgvSendungen.SelectedRows.Count > 0 Then
tbcntlVermerke.TabPages(2).Text = "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 = "Sendungsvermerke"
End If
tbcntlVermerke.TabPages(3).Text = "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 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 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..."
Else
btnAktUebernehmen.Image = My.Resources.personCheck_small
btnAktUebernehmen.Text = "Akt übernehmen"
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)
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 Button1.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, txtSendungen.TextChanged, txtSndFiskalAT.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 Button8.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 btnKasse_LG.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 Button9.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 &= "<br>"
TextHTML &= "Mit freundlichen Grüßen<br>"
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
TextHTML &= "<br>"
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
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,<br><br>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 btnKasse_User.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 btnLZDruck.Click, btnLZDruckDIGITAL.Click
Dim f As New frmLaufzettel(AVISO, Nothing, (sender Is btnLZDruckDIGITAL), cbxLZT1.Checked, cbxLZRg.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 "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 = "<div style=""font-family:Calibri, Arial"">" & MAIL_BODY & SDL.cFakturierung.getSignature("DE", tX.txt_firmaSig, True, True) & "</div>"
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 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 Button11.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
End Sub
Sub addVPList(ByRef MAIL_BODY As String, VP_Enum As List(Of String))
Dim Platzhalter = "<br><br><table style=""font-family:Calibri;"" border=""1"" bordercolor=""#000"" cellspacing=""0"">"
Platzhalter &= "<tr><th width=200>Vorpapier:</th><th width=200></th><th></th></tr>"
For Each VP In VP_Enum
Platzhalter &= "<tr><td>" & VP & "</td><td></t></tr>"
Next
Platzhalter &= "</table>"
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 Button12.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 ToolUeberweisungsBeleg.Click, toolVkReminder.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_VorbereitetQs.Click, txtMAinfo_Vorgeschrieben.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, 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
End Class
Reference in New Issue View Git Blame Copy Permalink