1722 lines
78 KiB
VB.net
1722 lines
78 KiB
VB.net
Imports VERAG_PROG_ALLGEMEIN
|
|
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
|
|
|
|
Imports System.IO
|
|
'Imports Gemeinsames.cDatenbank
|
|
Imports System.Drawing
|
|
|
|
Imports System.Drawing.Printing
|
|
|
|
Public Class usrcntlAktDetailsATILLANeu
|
|
|
|
Dim VermerkeDAL As New cVermerkeDAL
|
|
Public aktiv As DateTime = Now
|
|
Dim sendAktiv = True
|
|
Private AvisoDAL As New cAvisoDAL
|
|
Private Standorte As New cStandorteDAL
|
|
Private locZeilen As Integer = -1
|
|
Private Anzahl As Integer
|
|
Private Grid_aktiv As Boolean = False
|
|
'Private Details_aktiv As Boolean = False
|
|
Private Zähler As Long = 0
|
|
Private hMerkZeit As Date
|
|
Private hMerkZeit_MeineAviso As Date
|
|
Dim FUNC As New AvisoStatusFunctions
|
|
Private Paketdienste_EXE As String
|
|
Private hAdresse As String
|
|
Private hCC As String
|
|
Private SucheStandort As String = ""
|
|
Private GridAnzeigen As Integer = 0
|
|
Private GridZeichnen As Integer = 0
|
|
Dim lkwbackcolor As Color = Color.FromArgb(220, 220, 220)
|
|
Dim lkwbackcolorSel As Color = Color.FromArgb(200, 200, 200)
|
|
Dim VermerkeAktuelleAvisoId As Integer = -1
|
|
Private infotxt As String = ""
|
|
Public opensendungsDetails As Boolean = False
|
|
Public AvisoID As Integer = -1
|
|
Dim loaded As Boolean = False
|
|
Dim FraechterKdNr = -1
|
|
Dim AvisiererKdNr = -1
|
|
'Dim PROG As New cProgramFunctions
|
|
Dim WithEvents timer As New Timer
|
|
' Dim WithEvents reloadTimer As New Timer
|
|
' Dim WithEvents timerDetails As New Timer
|
|
Dim AVISO As cAviso = Nothing
|
|
Dim SENDUNG_LIST As List(Of VERAG_PROG_ALLGEMEIN.cSendungen) = Nothing
|
|
Dim WithEvents timerSendRows As New Timer
|
|
Dim WithEvents timerAktUebernommen As New Timer
|
|
Dim SQL As New SDL.SQL
|
|
Dim ADMIN As New cADMIN
|
|
Dim painted = False ' Damit gridVermerke Formattierung nicht dauernd anspringt..
|
|
|
|
Sub New(AvisoID)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.AvisoID = AvisoID
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
Public Sub reload(id)
|
|
AvisoID = id
|
|
|
|
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID)
|
|
|
|
TextBox1.Text = ""
|
|
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
|
|
TextBox1.Text = SENDUNG_LIST(0).FilialenNr & "/" & SENDUNG_LIST(0).AbfertigungsNr
|
|
End If
|
|
Dim SENDUNG = Nothing
|
|
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
|
|
SENDUNG = SENDUNG_LIST(0)
|
|
End If
|
|
UsrCntlVermerkeATilla1.init(id, SENDUNG)
|
|
' reloadTimer.Enabled = True
|
|
loaded = False
|
|
pnlOptionen.Visible = False
|
|
pnlDetailsRechts.Enabled = False
|
|
pnlDetailsRechts.Cursor = Cursors.WaitCursor
|
|
|
|
Dim v As Boolean = (AvisoID > 0)
|
|
setVisible(btnAnkunft, v)
|
|
setVisible(btnFreigabe, v)
|
|
' setVisible(btnNichtEingetroffen, v)
|
|
setVisible(btnErfasst, v)
|
|
' setVisible(btnVorbereitet, v)
|
|
setVisible(btnVorgeschrieben, v)
|
|
setVisible(lblTimeAnkunft, v)
|
|
setVisible(lblTimeErfasst, v)
|
|
setVisible(Label7, v)
|
|
setVisible(lblTimeFreigabe, v)
|
|
' setVisible(lblTimeVorbereitet, v)
|
|
setVisible(lblTimeVorgeschreiben, v)
|
|
|
|
Details_anzeigen()
|
|
|
|
|
|
|
|
pnlDetailsRechts.Enabled = True
|
|
pnlDetailsRechts.Cursor = Cursors.Default
|
|
|
|
loaded = True
|
|
initTbCntr()
|
|
Vermerke_anzeigen()
|
|
|
|
'bei selchanged:
|
|
'Vermerke_anzeigen()
|
|
'initDgvSpeditionsbuch()
|
|
'initdgvZollAnmeldungen()
|
|
'initAnhaenge()
|
|
|
|
If AVISO IsNot Nothing Then
|
|
|
|
If AVISO.Abgeschlossen Then
|
|
pnlAbgeschlossen.Visible = True
|
|
' FlowLayoutPanel.Visible = False
|
|
Button3.Visible = False
|
|
UsrCntlVermerkeATilla1.Enabled = False
|
|
btnKassenbuchEintrag.Enabled = False
|
|
btn.Enabled = False
|
|
Else
|
|
pnlAbgeschlossen.Visible = False
|
|
' FlowLayoutPanel.Visible = true
|
|
Button3.Visible = True
|
|
UsrCntlVermerkeATilla1.Enabled = True
|
|
btnKassenbuchEintrag.Enabled = True
|
|
btn.Enabled = True
|
|
End If
|
|
|
|
txtLKWID.Text = AVISO.AvisoID
|
|
|
|
|
|
'Kann nur bei Freigabe angezeigt werden
|
|
If AVISO.Status <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
|
|
Button3.Visible = False
|
|
End If
|
|
|
|
End If
|
|
'If opensendungsDetails Then
|
|
|
|
' timerDetails.Interval = 500
|
|
' timerDetails.Enabled = True
|
|
' End If
|
|
'Button7_Click(Button7, New EventArgs)
|
|
|
|
End Sub
|
|
|
|
Sub initdgvATEZ()
|
|
With dgvATEZNCTS
|
|
.Columns.Clear()
|
|
.ReadOnly = False
|
|
.DataSource = SQL.loadDgvBySql("select [Id],'ATEZ' as Art ,[VERAG_LRN] as BezugsNr,[erstellung] as Erstellung,[Status] as Status FROM [tblATEZ_NCTS] WHERE AvisoId='" & AvisoID & "'", "FMZOLL")
|
|
If .Columns.Count <= 0 Then Exit Sub
|
|
'Ä.Columns("txtStatus").ReadOnly = False
|
|
.Columns("Id").Visible = False
|
|
|
|
.Columns("Art").HeaderText = "Art"
|
|
.Columns("Art").Width = 80
|
|
|
|
.Columns("Status").HeaderText = "Art"
|
|
.Columns("Status").Width = 80
|
|
|
|
.Columns("BezugsNr").HeaderText = "BezugsNr"
|
|
.Columns("BezugsNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
.Columns("Erstellung").HeaderText = "Erstellt"
|
|
.Columns("Erstellung").Width = 100
|
|
.Columns("Erstellung").DefaultCellStyle.Format = "dd.MM.yy HH:mm"
|
|
.Columns("Erstellung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
.ReadOnly = False
|
|
End With
|
|
|
|
End Sub
|
|
|
|
Sub initdgvZollAnmeldungen()
|
|
With dgvZollAnmeldungen
|
|
.Columns.Clear()
|
|
.ReadOnly = False
|
|
.DataSource = SQL.loadDgvBySql("SELECT [dy_Id],[dy_ART],[dy_BezugsNr],[dy_Erstellung],[dy_Status] FROM [tblDakosy_Zollanmeldungen] WHERE dy_AvisoId='" & AvisoID & "'", "FMZOLL")
|
|
If .Columns.Count <= 0 Then Exit Sub
|
|
'Ä.Columns("txtStatus").ReadOnly = False
|
|
.Columns("dy_Id").Visible = False
|
|
.Columns("dy_Status").Visible = False
|
|
.Columns("dy_ART").HeaderText = "Art"
|
|
.Columns("dy_ART").Width = 80
|
|
.Columns("dy_BezugsNr").HeaderText = "BezugsNr"
|
|
.Columns("dy_BezugsNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
.Columns("dy_Erstellung").HeaderText = "Erstellt"
|
|
.Columns("dy_Erstellung").Width = 100
|
|
.Columns("dy_Erstellung").DefaultCellStyle.Format = "dd.MM.yy HH:mm"
|
|
.Columns("dy_Erstellung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
Dim c As New DataGridViewTextBoxColumn
|
|
c.Name = "txtStatus"
|
|
.Columns.Add(c)
|
|
|
|
.Columns("txtStatus").HeaderText = "Status"
|
|
.Columns("txtStatus").Width = 250
|
|
For Each r As DataGridViewRow In .Rows
|
|
r.Cells("txtStatus").Value = DAKOSY_Worker.cDY_Statusliste.getTxtByCode2(r.Cells("dy_Status").Value, r.Cells("dy_ART").Value, r.Cells("txtStatus").Value, r.Cells("txtStatus").Style.BackColor)
|
|
Next
|
|
.ReadOnly = False
|
|
End With
|
|
|
|
End Sub
|
|
|
|
Private Sub dgvZollAnmeldungen_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvZollAnmeldungen.CellFormatting
|
|
Select Case dgvZollAnmeldungen.Columns(e.ColumnIndex).Name
|
|
Case "txtStatus" 'Dauer
|
|
' dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Value = "A"
|
|
DAKOSY_Worker.cDY_Statusliste.getTxtByCode2(dgvZollAnmeldungen.Rows(e.RowIndex).Cells("dy_Status").Value, dgvZollAnmeldungen.Rows(e.RowIndex).Cells("dy_art").Value, dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Value, dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Style.BackColor, , dgvZollAnmeldungen.Rows(e.RowIndex).Cells("txtStatus").Style.ForeColor)
|
|
End Select
|
|
End Sub
|
|
|
|
|
|
Private Sub dgvZollAnmeldungen_CellContentClick(sender As Object, e As EventArgs) Handles dgvZollAnmeldungen.DoubleClick ', dgvZollAnmeldungen.CellContentClick
|
|
|
|
Try
|
|
Me.Cursor = Cursors.WaitCursor
|
|
|
|
Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADById(dgvZollAnmeldungen.SelectedRows(0).Cells("dy_Id").Value)
|
|
|
|
If DY IsNot Nothing Then
|
|
|
|
|
|
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
|
If SENDUNG_LIST IsNot Nothing Then
|
|
SND = SENDUNG_LIST(0)
|
|
End If
|
|
|
|
|
|
Dim SYSTEM = "DAKOSY"
|
|
|
|
' Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SENDUNG_LIST(0), Now.ToString("yy"))
|
|
Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SND, Now.ToString("yy"), SYSTEM)
|
|
AddHandler f.FormClosed, Sub()
|
|
initdgvZollAnmeldungen()
|
|
End Sub
|
|
f.Show()
|
|
End If
|
|
|
|
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
Me.Cursor = Cursors.Default
|
|
' frmNacherfassung.showAll()
|
|
End Sub
|
|
|
|
|
|
Private Sub usrcntlAktDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
|
|
SGSNCTSToolStripMenuItem.Visible = True
|
|
Button12.Visible = True
|
|
End If
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATEZ_NCTS", Me.FindForm) Then
|
|
NCTSATEZToolStripMenuItem.Visible = True
|
|
tbATEZ.Visible = True
|
|
Else
|
|
tbATEZ.Visible = False
|
|
End If
|
|
|
|
|
|
timer.Interval = 100
|
|
reload(AvisoID)
|
|
If My.Computer.Screen.WorkingArea.Width < 1300 Then
|
|
'btnAnkunft.Text = "ANKUNFT"
|
|
'btnErfasst.Text = "ERFASST"
|
|
'' btnVorbereitet.Text = "VORB.QS"
|
|
'btnVorgeschrieben.Text = "VORGESCHR."
|
|
'btnFreigabe.Text = "FREIGABE"
|
|
'btnVorgeschrieben.Text = "VORGESCHR."
|
|
'btnVorgeschrieben.Text = "VORGESCHR."
|
|
End If
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then
|
|
Panel14.Visible = True
|
|
Panel15.Visible = True
|
|
Else
|
|
Panel14.Visible = False
|
|
Panel15.Visible = False
|
|
End If
|
|
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
|
|
Panel6.Visible = True
|
|
Else
|
|
Panel6.Visible = False
|
|
End If
|
|
|
|
|
|
dgvZollAnmeldungen.ClearSelection()
|
|
End Sub
|
|
|
|
Sub setVisible(b As Control, v As Boolean) ' damit die Anzeige nicht flackert
|
|
If Not b.Visible = v Then
|
|
b.Visible = v
|
|
'b.Enabled = v
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub Details_anzeigen()
|
|
' If Not Details_aktiv Then Exit Sub
|
|
' pnlDetailsRechts.Visible = False
|
|
' pnlDetailsRechts.SuspendLayout()
|
|
aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick)
|
|
|
|
If AvisoID <= 0 Then Exit Sub
|
|
'Dim Aviso As New cAviso
|
|
AVISO = AvisoDAL.LesenAviso(AvisoID, "")
|
|
If AVISO Is Nothing Then Exit Sub
|
|
|
|
|
|
FraechterKdNr = IIf(IsNumeric(AVISO.Frächter_KdNr), AVISO.Frächter_KdNr, -1)
|
|
AvisiererKdNr = IIf(IsNumeric(AVISO.Auftraggeber_KdNr), AVISO.Auftraggeber_KdNr, -1)
|
|
|
|
txtFrächter.Cursor = IIf(FraechterKdNr > 0, Cursors.Hand, Cursors.Default)
|
|
txtAuftraggeber.Cursor = IIf(AvisiererKdNr > 0, Cursors.Hand, Cursors.Default)
|
|
|
|
Button3.Visible = False
|
|
Select Case AVISO.Status
|
|
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft
|
|
lblStatus.Text = "ANKUNFT" : pnlStatus.BackColor = btnAnkunft.BackColor
|
|
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst
|
|
lblStatus.Text = "ERFASST" : pnlStatus.BackColor = btnErfasst.BackColor
|
|
'Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Vorbereitet
|
|
' lblStatus.Text = "VORBEREITET - QS" : pnlStatus.BackColor = btnVorbereitet.BackColor
|
|
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben
|
|
lblStatus.Text = "VORGESCHRIEBEN" : pnlStatus.BackColor = btnVorgeschrieben.BackColor
|
|
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX
|
|
lblStatus.Text = "AN VERIMEX" : pnlStatus.BackColor = btnAnVerimex.BackColor
|
|
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
|
|
lblStatus.Text = "AN INDONESIEN" : pnlStatus.BackColor = btnAnIndonesien.BackColor
|
|
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
|
|
lblStatus.Text = "FREIGABE" : pnlStatus.BackColor = btnFreigabe.BackColor
|
|
Button3.Visible = True
|
|
'For Each s In sendun
|
|
'If alle spedbuchOK
|
|
'visible
|
|
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen
|
|
lblStatus.Text = "NICHT EINGETR." : pnlStatus.BackColor = btnNichtEingetroffen.BackColor
|
|
|
|
End Select
|
|
|
|
|
|
txtFrächter.Text = AVISO.Frächter
|
|
txtAuftraggeber.Text = AVISO.Auftraggeber
|
|
txtAktMA.Text = AVISO.letzterMitarbeiter
|
|
' cbxHandling.Checked = Aviso.Handling
|
|
cbxHandling.Visible = AVISO.Handling
|
|
' cbxSammelakt.Checked = Aviso.Sammelakt
|
|
' lblHinweis.Visible = (Aviso.AvisoTVHinweis <> "")
|
|
txtLKW_Nr.Text = AVISO.LKW_Nr
|
|
lblTimeErfasst.Text = formatdate(AVISO.Datum)
|
|
lblTimeAnkunft.Text = formatdate(AVISO.Ankunft)
|
|
lblTimeFreigabe.Text = formatdate(AVISO.Freigabe)
|
|
Label7.Text = formatdate(AVISO.Vorbereitet)
|
|
lblTimeVorgeschreiben.Text = formatdate(AVISO.Vorgeschrieben)
|
|
|
|
intiAktUebernehmenBtn()
|
|
Vermerke_anzeigen()
|
|
'Button6.Focus()
|
|
' pnlDetailsRechts.Visible = True
|
|
' pnlDetailsRechts.Cursor = Cursors.Default
|
|
|
|
' pnlDetailsRechts.PerformLayout()
|
|
'pnlDetailsRechts.la
|
|
' pnlDetailsRechts.Width = SplitContainer1.Width
|
|
' pnlDetailsRechts.Height = SplitContainer1.Height
|
|
End Sub
|
|
Function formatdate(s) As String
|
|
If s IsNot Nothing AndAlso IsDate(s) AndAlso CDate(s) > LeerDatum Then
|
|
If CDate(s).ToShortDateString = Now.ToShortDateString Then
|
|
Return "heute, " & CDate(s).ToShortTimeString & ""
|
|
End If
|
|
Return "" & CDate(s).ToString("dd.MM.") & ", " & CDate(s).ToShortTimeString & ""
|
|
End If
|
|
Return ""
|
|
End Function
|
|
|
|
Private Sub gridVermerke_SpaltenFestlegen()
|
|
If gridVermerke.RowCount = 0 Then gridVermerke.Columns.Clear() : Exit Sub
|
|
|
|
With gridVermerke
|
|
|
|
|
|
' " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr," &
|
|
' " isnull(VermerkeCodes.Bezeichnung,[Hinweis_Vermerk])as [Hinweis_Vermerk], tblSendungen.tblSnd_Auftraggeber ,[Mitarbeiter]" &
|
|
|
|
|
|
|
|
.RowTemplate.MinimumHeight = 20
|
|
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
|
|
.Columns("VermerkID").Visible = False 'VermerkID nicht anzeigen
|
|
.Columns("AvisoID").Visible = False 'AvisoID nicht anzeigen
|
|
.Columns("SendungID").Visible = False 'VermerkCode nicht anzeigen
|
|
.Columns("VermerkeCode").Visible = False 'VermerkeCode nicht anzeigen
|
|
.Columns("MitarbeiterId").Visible = False 'MitarbeiterId nicht anzeigen
|
|
.Columns("Hinweis_Vermerk").Visible = False 'Hinweis_Vermerk nicht anzeigen
|
|
.Columns("tblSnd_Empfaenger").Visible = False 'tblSnd_Empfaengernicht anzeigen
|
|
|
|
.Columns("Datum").Width = 125 '110
|
|
.Columns("Datum").HeaderText = "Datum"
|
|
.Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"
|
|
|
|
|
|
.Columns("Hinweis_Vermerk_Anzeige").MinimumWidth = 150
|
|
.Columns("Hinweis_Vermerk_Anzeige").HeaderText = "Hinweistext zu Vermerk"
|
|
.Columns("Hinweis_Vermerk_Anzeige").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
.Columns("tblSnd_PosUnterNr").Visible = False
|
|
'.Columns("tblSnd_PosUnterNr").HeaderText = "Send.Nr"
|
|
' .Columns("tblSnd_PosUnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
|
|
.Columns("Mitarbeiter").MinimumWidth = 50
|
|
.Columns("Mitarbeiter").HeaderText = "Mitarbeiter"
|
|
.Columns("Hinweis_Vermerk_Anzeige").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("SMSId").Visible = False 'tblSnd_Empfaengernicht anzeigen
|
|
|
|
|
|
' .Columns.Add(New DataGridViewButtonColumn)
|
|
|
|
|
|
.Columns("VermerkeOptions").Width = 120
|
|
.Columns("VermerkeOptions").HeaderText = "Optionen"
|
|
.Columns("VermerkeOptions").ReadOnly = True
|
|
|
|
End With
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Sub dgvCellToCbo2(dgv As DataGridView, columnName As String, HeaderText As String, DataPropertyName As String, sqlstr As String, Optional conn_art As String = "SDL", Optional dropdownwidth As Integer = -1, Optional simpleStyle As Boolean = False)
|
|
Dim comboBoxColumn As New DataGridViewComboBoxColumn
|
|
|
|
Dim columnIndex = dgv.Columns(columnName).Index
|
|
With comboBoxColumn
|
|
.HeaderText = HeaderText
|
|
.DataPropertyName = DataPropertyName
|
|
.Name = columnName
|
|
.DataSource = SQL.loadDgvBySql(sqlstr, conn_art)
|
|
.ValueMember = .DataSource.Columns(0).ColumnName
|
|
.DisplayMember = .DataSource.Columns(1).ColumnName
|
|
.FlatStyle = FlatStyle.Flat
|
|
If simpleStyle Then .DisplayStyle = DataGridViewComboBoxDisplayStyle.Nothing
|
|
If dropdownwidth > 0 Then .DropDownWidth = dropdownwidth
|
|
End With
|
|
dgv.Columns.RemoveAt(columnIndex)
|
|
dgv.Columns.Insert(columnIndex, comboBoxColumn)
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub Vermerke_anzeigen(Optional rowindex As Integer = -1)
|
|
If Not loaded Then Exit Sub
|
|
aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick)
|
|
gridVermerke.Columns.Clear()
|
|
lblInfoAviso.Visible = False
|
|
infotxt = ""
|
|
' If setAkive_AuswahlID() = -1 Then Exit Sub
|
|
If AvisoID <= 0 Then Exit Sub
|
|
|
|
'Hier werden die passenden Vermerke zum Aviso angezeigt
|
|
Dim sendwhere = ""
|
|
|
|
Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr," &
|
|
"/* CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],*/ Hinweis_Vermerk as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],SMSId" &
|
|
" FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
|
|
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
|
|
" WHERE AvisoID = " & AvisoID & " " & sendwhere & " " &
|
|
" order by /*VermerkArt ASC,tblSnd_PosUnterNr,*/Datum DESC "
|
|
|
|
|
|
infotxt = AvisoDAL.getAvisoInfo(AvisoID)
|
|
If infotxt <> "" Then
|
|
lblInfoAviso.Visible = True
|
|
End If
|
|
|
|
gridVermerke.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL)
|
|
Dim dgvlc As New DataGridViewLinkColumn
|
|
dgvlc.Name = "VermerkeOptions"
|
|
gridVermerke.Columns.Insert(gridVermerke.ColumnCount - 1, dgvlc)
|
|
|
|
gridVermerke_SpaltenFestlegen()
|
|
|
|
timer.Enabled = True
|
|
painted = False
|
|
|
|
End Sub
|
|
|
|
|
|
Sub initDgvSpeditionsbuch()
|
|
With dgvSpeditionsbuch
|
|
.DataSource = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],[Bar],[LKW Kennzeichen] FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL")
|
|
End With
|
|
|
|
End Sub
|
|
|
|
Sub initAnhaenge()
|
|
Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
|
|
WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0
|
|
ORDER BY
|
|
case
|
|
when [anh_Art] = 'ATR-EUR1' then 0
|
|
when [anh_Art] = 'Rechnung' then 1
|
|
when [anh_Art] = 'eFatura' then 1.1
|
|
when [anh_Art] = 'CMR' then 2
|
|
when [anh_Art] = 'Ausfuhr' then 3
|
|
when [anh_Art] = 'Vorpapier' then 4
|
|
when [anh_Art] = 'Packliste' then 5
|
|
when [anh_Art] = 'Auftrag' then 6
|
|
when [anh_Art] = 'Auftrag' then 7
|
|
when [anh_Art] = 'Dispoliste' then 8
|
|
when [anh_Art] = 'Vorkasse' then 9
|
|
when [anh_Art] = 'Überweisungsbeleg' then 10
|
|
when [anh_Art] = 'Vollmacht' then 11
|
|
when [anh_Art] = 'ATB' then 12
|
|
when [anh_Art] = 'ATA' then 13
|
|
when [anh_Art] = 'Sonstiges' then 99
|
|
when [anh_Art] ='' then 15
|
|
|
|
END, [anh_Reihenfolge], anh_Datum desc, [anh_id]"
|
|
|
|
' order by [anh_Reihenfolge],[anh_id]
|
|
dgvanhaenge.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL)
|
|
|
|
|
|
If dgvanhaenge.RowCount = 0 Then dgvanhaenge.Columns.Clear() : Exit Sub
|
|
|
|
With dgvanhaenge
|
|
|
|
.RowTemplate.MinimumHeight = 30
|
|
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
|
|
.Columns("anh_id").Visible = False 'VermerkID nicht anzeigenconMenuVermerke
|
|
.Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen
|
|
|
|
.Columns("anh_Datum").MinimumWidth = 50
|
|
.Columns("anh_Datum").HeaderText = "Datum"
|
|
.Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
|
|
.Columns("anh_Name").MinimumWidth = 150
|
|
.Columns("anh_Name").HeaderText = "Name"
|
|
.Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
|
|
.Columns("anh_Art").MinimumWidth = 50
|
|
.Columns("anh_Art").HeaderText = "Art"
|
|
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
.Columns("anh_Typ").Width = 60
|
|
.Columns("anh_Typ").HeaderText = "Typ"
|
|
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
End With
|
|
|
|
End Sub
|
|
Private Sub dgvanhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvanhaenge.CellDoubleClick
|
|
Try
|
|
|
|
If dgvanhaenge.SelectedRows.Count > 0 Then
|
|
Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvanhaenge.SelectedRows(0).Cells("anh_docId").Value)
|
|
If Not IO.File.Exists(docPath) Then
|
|
MsgBox("Die Datei existiert nicht!")
|
|
Else
|
|
If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler (bereits von Benutzer soUndSo geöffnet)
|
|
Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
|
|
File.Copy(docPath, docPathTMP)
|
|
Process.Start(docPathTMP)
|
|
Else
|
|
Process.Start(docPath)
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub gridVermerkeMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles gridVermerke.CellContentClick
|
|
If gridVermerke.RowCount = 0 Then Exit Sub
|
|
|
|
If gridVermerke.Columns(e.ColumnIndex).Name = "VermerkeOptions" Then
|
|
Dim VermerkeDAL As New cVermerkeDAL
|
|
Dim myVermerk As cVermerk = VermerkeDAL.LesenVermerk(gridVermerke.Rows(e.RowIndex).Cells("VermerkID").Value, "")
|
|
myVermerk.VermerkID = 0
|
|
'myVermerk.AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells(1).Value)
|
|
myVermerk.Datum = Now
|
|
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
|
|
Dim init As Boolean = False
|
|
Select Case CStr(gridVermerke.Rows(e.RowIndex).Cells("VermerkeCode").Value)
|
|
Case "1"
|
|
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
|
myVermerk.VermerkCodeId = 2
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
init = True 'Vermerke_anzeigen(e.RowIndex)
|
|
' initDgvSendungen()
|
|
Case "3"
|
|
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
|
myVermerk.VermerkCodeId = 4
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
|
Case "5"
|
|
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
|
myVermerk.VermerkCodeId = 6
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
|
Case "7"
|
|
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
|
myVermerk.VermerkCodeId = 8
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
|
Case "9"
|
|
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
|
myVermerk.VermerkCodeId = 10
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
|
Case "11"
|
|
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
|
myVermerk.VermerkCodeId = 12
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
|
Case "13"
|
|
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
|
myVermerk.VermerkCodeId = 14
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
|
Case "17"
|
|
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
|
|
myVermerk.VermerkCodeId = 18
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
|
|
' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
|
|
'Vermerke_aktualisieren()
|
|
init = True ' Vermerke_anzeigen(e.RowIndex)
|
|
Case "19"
|
|
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
|
|
myVermerk.VermerkCodeId = 20
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
|
Case "25"
|
|
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
|
myVermerk.VermerkCodeId = 30
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
|
Case "31"
|
|
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschlossen")
|
|
myVermerk.VermerkCodeId = 32
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
|
Case "33"
|
|
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
|
myVermerk.VermerkCodeId = 34
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
|
Case "36"
|
|
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
|
myVermerk.VermerkCodeId = 37
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
|
Case "46"
|
|
MsgBox("SMS " & gridVermerke.Rows(e.RowIndex).Cells("VermerkeOptions").ToolTipText)
|
|
init = False 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
|
End Select
|
|
loaded = False
|
|
Dim tmpIndex = -1
|
|
|
|
loaded = True
|
|
Vermerke_anzeigen(tmpIndex)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
|
|
' If dgvSendungen.RowCount = 0 Then Exit Sub
|
|
If painted Then Exit Sub
|
|
Try
|
|
For Each r As DataGridViewRow In gridVermerke.Rows
|
|
' If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then
|
|
Dim optionCell As DataGridViewLinkCell = DirectCast(r.Cells("VermerkeOptions"), DataGridViewLinkCell)
|
|
If (r.Cells("VermerkeCode").Value) IsNot DBNull.Value Then
|
|
|
|
Select Case CInt(r.Cells("VermerkeCode").Value)
|
|
Case 1
|
|
If Not existCodeInGridVermerke(2, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
|
optionCell.Value = "Auftrag erhalten"
|
|
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Auftrag erhalten' einzutragen."
|
|
End If
|
|
Case 3
|
|
If Not existCodeInGridVermerke(4, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
|
optionCell.Value = "Rechnung erhalten"
|
|
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rechnung erhalten' einzutragen."
|
|
End If
|
|
Case 5
|
|
If Not existCodeInGridVermerke(6, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
|
optionCell.Value = "LS erhalten"
|
|
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'LS erhalten' einzutragen."
|
|
End If
|
|
Case 7
|
|
If Not existCodeInGridVermerke(8, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
|
optionCell.Value = "ATR erhalten"
|
|
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATR erhalten' einzutragen."
|
|
End If
|
|
Case 9
|
|
If Not existCodeInGridVermerke(10, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
|
optionCell.Value = "Vollmacht erhalten"
|
|
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vollmacht erhalten' einzutragen."
|
|
End If
|
|
Case 11
|
|
If Not existCodeInGridVermerke(12, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
|
optionCell.Value = "CMR erhalten"
|
|
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'CMR erhalten' einzutragen."
|
|
End If
|
|
Case 13
|
|
If Not existCodeInGridVermerke(14, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
|
optionCell.Value = "Vorauskasse erhalten"
|
|
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen."
|
|
End If
|
|
Case 17
|
|
If Not existCodeInGridVermerke(18) Then
|
|
optionCell.Value = "DE-ZOLL fertig"
|
|
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL fertig' einzutragen."
|
|
End If
|
|
Case 19
|
|
If Not existCodeInGridVermerke(20) Then
|
|
optionCell.Value = "AT-ZOLL fertig"
|
|
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'AT-ZOLL fertig' einzutragen."
|
|
End If
|
|
Case 25
|
|
If Not existCodeInGridVermerke(30, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
|
optionCell.Value = "Dokument erhalten"
|
|
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dokument erhalten' einzutragen."
|
|
End If
|
|
Case 31
|
|
If Not existCodeInGridVermerke(32, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
|
optionCell.Value = "Vorbereitung abgeschlossen"
|
|
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorbereitung abgeschlossen' einzutragen."
|
|
End If
|
|
Case 33
|
|
If Not existCodeInGridVermerke(34, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
|
optionCell.Value = "ATA-Nr. erhalten"
|
|
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATA-Nr. erhalten' einzutragen."
|
|
End If
|
|
Case 36
|
|
If Not existCodeInGridVermerke(37, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
|
optionCell.Value = "Kontaktdaten erhalten"
|
|
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kontaktdaten erhalten' einzutragen."
|
|
End If
|
|
|
|
Case 46
|
|
|
|
If r.Cells("SMSId").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("SMSId").Value) Then
|
|
Dim SMS As New VERAG_PROG_ALLGEMEIN.cSMS(r.Cells("SMSId").Value)
|
|
optionCell.ToolTipText = "SMS Satus"
|
|
optionCell.Style.BackColor = Color.White
|
|
optionCell.LinkColor = Color.Black
|
|
|
|
'Select Case MSG.Status
|
|
' Case MessageStatus.Expired, MessageStatus.Failed, MessageStatus.FailedAuthorisation, MessageStatus.Cancelled, MessageStatus.Rejected
|
|
|
|
|
|
Select Case SMS.sms_Status
|
|
Case -1 : optionCell.Value = ""
|
|
Case com.esendex.sdk.core.MessageStatus.Submitted, com.esendex.sdk.core.MessageStatus.Sent, com.esendex.sdk.core.MessageStatus.Connecting, com.esendex.sdk.core.MessageStatus.Acknowledged, com.esendex.sdk.core.MessageStatus.Scheduled
|
|
optionCell.Value = "wartend..."
|
|
optionCell.Style.BackColor = Color.PapayaWhip
|
|
optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
|
|
Case com.esendex.sdk.core.MessageStatus.Delivered, com.esendex.sdk.core.MessageStatus.PartiallyDelivered
|
|
optionCell.Value = "OK - Empfangen!"
|
|
optionCell.LinkColor = Color.Green
|
|
' optionCell.Style.BackColor = Color.Green
|
|
' optionCell.LinkColor = Color.White
|
|
'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
|
|
Case Else : optionCell.Value = "SMS: Sendefehler!"
|
|
optionCell.ToolTipText = "Sendefehler: " & SMS.sms_Failure
|
|
optionCell.LinkColor = Color.Red
|
|
optionCell.Style.BackColor = Color.PapayaWhip
|
|
optionCell.Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
|
|
'optionCell.LinkColor = Color.White
|
|
'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
|
|
End Select
|
|
End If
|
|
End Select
|
|
End If
|
|
Next
|
|
painted = True
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Function existCodeInGridVermerke(code As Integer, Optional text As String = "") As Boolean
|
|
|
|
For Each r As DataGridViewRow In gridVermerke.Rows
|
|
If DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString = CStr(code) Then
|
|
Select Case code
|
|
Case 2, 4, 6, 8, 10, 12, 14, 30, 37, 34
|
|
If DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("erhalten", "angefordert") = text Then
|
|
Return True
|
|
End If
|
|
Case 32
|
|
If DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("Vorbereitung abgeschlossen", "in Vorbereitung") = text Then
|
|
Return True
|
|
End If
|
|
Case Else
|
|
Return True
|
|
End Select
|
|
End If
|
|
Next
|
|
Return False
|
|
End Function
|
|
|
|
|
|
|
|
|
|
Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVermerkLöschen.Click
|
|
If gridVermerke.SelectedRows.Count = 0 Then Exit Sub
|
|
If vbNo = MsgBox("Wollen Sie den ausgewählten Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Vermerk löschen") Then
|
|
Exit Sub
|
|
End If
|
|
Dim index As Integer = -1
|
|
|
|
VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
|
|
Vermerke_anzeigen(index)
|
|
|
|
Exit Sub
|
|
|
|
|
|
If sender Is conVermerkLöschen Then
|
|
If IsNothing(gridVermerke.CurrentRow) Then Exit Sub
|
|
' cGlobal.Aktive_ID = CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value)
|
|
|
|
'If Not cGlobal.Admin Then
|
|
' 'Status erfasst darf auch von Mitarbeiter gelöscht werden - Mail von Siener vom 13.12.2013
|
|
' If gridAviso.Rows(gridAviso.CurrentRow.Index).Cells("Status").Value.ToString <> "0" Then
|
|
' MsgBox("Ein Aviso mit diesem Status kann nur vom Administrator gelöscht werden.", vbExclamation)
|
|
' Exit Sub
|
|
' End If
|
|
'End If
|
|
|
|
Dim antwort As MsgBoxResult = MsgBox("Wollen Sie den ausgewählten Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
|
|
"Vermerk löschen")
|
|
If antwort = vbNo Then
|
|
Exit Sub
|
|
End If
|
|
|
|
VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value))
|
|
|
|
Vermerke_anzeigen()
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub grid_CellMouseClickAnh(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridVermerke.CellMouseClick
|
|
If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
|
|
'If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
|
|
'gridMyAviso.ClearSelection() 'WARUM?
|
|
|
|
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
|
|
If e.Button = MouseButtons.Right Then
|
|
If AVISO.Abgeschlossen Then Exit Sub
|
|
If sender Is gridVermerke Then
|
|
If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
|
|
' AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells("AvisoId").Value)
|
|
gridVermerke.CurrentCell = gridVermerke.Rows(e.RowIndex).Cells(e.ColumnIndex)
|
|
conMenuVermerke.Show(Cursor.Position)
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvanhaenge.CellMouseClick
|
|
If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
|
|
|
|
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
|
|
If e.Button = MouseButtons.Right Then
|
|
If AVISO.Abgeschlossen Then Exit Sub
|
|
If sender Is dgvanhaenge Then
|
|
If dgvanhaenge.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
|
|
' AvisoID = CInt(dgvanhaenge.Rows(e.RowIndex).Cells("AvisoId").Value)
|
|
dgvanhaenge.CurrentCell = dgvanhaenge.Rows(e.RowIndex).Cells(e.ColumnIndex)
|
|
cntxt.Show(Cursor.Position)
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs)
|
|
Dim cF As Color = DirectCast(sender, Button).ForeColor
|
|
Dim cB As Color = DirectCast(sender, Button).BackColor
|
|
If cF = Color.Black Then cF = Color.Gray
|
|
DirectCast(sender, Button).ForeColor = cB
|
|
DirectCast(sender, Button).BackColor = cF
|
|
End Sub
|
|
Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs)
|
|
Dim cF As Color = DirectCast(sender, Button).ForeColor
|
|
Dim cB As Color = DirectCast(sender, Button).BackColor
|
|
If cB = Color.Gray Then cB = Color.Black
|
|
DirectCast(sender, Button).ForeColor = cB
|
|
DirectCast(sender, Button).BackColor = cF
|
|
End Sub
|
|
Private Sub lblInfoAviso_Click(sender As Object, e As EventArgs) Handles lblInfoAviso.Click
|
|
showForm(infotxt, "Info")
|
|
End Sub
|
|
|
|
Sub showForm(t As String, Optional h As String = "")
|
|
Dim f As New Form
|
|
Dim p As New Panel
|
|
Dim rtb As New RichTextBox
|
|
f.StartPosition = FormStartPosition.CenterScreen
|
|
f.Width = 700
|
|
f.Height = 400
|
|
f.Text = h
|
|
f.Icon = My.Resources.Aviso
|
|
rtb.Dock = DockStyle.Fill
|
|
p.Dock = DockStyle.Fill
|
|
f.Controls.Add(p)
|
|
p.Controls.Add(rtb)
|
|
rtb.Text = t
|
|
f.ShowDialog()
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub btnVermerke_Click(sender As Object, e As EventArgs)
|
|
|
|
loaded = False
|
|
' If dgvSendungen.SelectedRows.Count <= 0 Then Exit Sub
|
|
|
|
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
|
Dim sv As New frmAddSendungsvermerkShort(AvisoID, -1) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
|
|
sv.Location = Me.PointToClient(Cursor.Position)
|
|
sv.ShowDialog(frmGrayOut)
|
|
frmGrayOut.Close()
|
|
|
|
sv.Close()
|
|
|
|
loaded = True
|
|
Vermerke_anzeigen()
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub btnAnkunft_Click(sender As Object, e As EventArgs) Handles btnAnkunft.Click
|
|
If FUNC.setAnkunft(AvisoID) Then
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnErfasst_Click(sender As Object, e As EventArgs) Handles btnErfasst.Click
|
|
If FUNC.setErfasst(AvisoID) Then
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnVorbereitet_Click(sender As Object, e As EventArgs)
|
|
If FUNC.setVorbereitet(AvisoID) Then
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnVorgeschrieben_Click(sender As Object, e As EventArgs) Handles btnVorgeschrieben.Click
|
|
If FUNC.setVorgeschreiben(AvisoID) Then
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnFreigabe_Click(sender As Object, e As EventArgs) Handles btnFreigabe.Click
|
|
If FUNC.setFreigabe(AvisoID, Me) Then
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnNichtEingetroffen_Click(sender As Object, e As EventArgs) Handles btnNichtEingetroffen.Click
|
|
If FUNC.setNichtEingeftroffen(AvisoID) Then
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnÜbernehmen_Click(sender As Object, e As EventArgs)
|
|
If FUNC.AktUebernehmen(AvisoID) Then
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub txtFrächter_TextChanged(sender As Object, e As EventArgs) Handles txtFrächter.Click
|
|
If FraechterKdNr > 0 Then
|
|
FUNC.showKd(FraechterKdNr)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtAuftraggeber_TextChanged(sender As Object, e As EventArgs) Handles txtAuftraggeber.Click
|
|
If AvisiererKdNr > 0 Then
|
|
FUNC.showKd(AvisiererKdNr)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub timerTick(sender As Object, e As EventArgs) Handles timer.Tick ' eine halbe sekunde verzögert, damit DGV geladen ist (shown geht nicht ewg. usrcntl)
|
|
If gridVermerke.RowCount = 0 Then gridVermerke.Columns.Clear() 'gridVermerke.Visible = False
|
|
If Not loaded Then Exit Sub
|
|
|
|
timer.Enabled = False
|
|
End Sub
|
|
|
|
' Private Sub reloadtimerTick(sender As Object, e As EventArgs) Handles reloadTimer.Tick
|
|
' dgvSendungen.ClearSelection()
|
|
' If tbcntlVermerke.SelectedIndex <> 0 Then tbcntlVermerke.SelectedIndex = 0
|
|
' reloadTimer.Enabled = False
|
|
'End Sub
|
|
|
|
Private Sub timerSendRows_Tick(sender As Object, e As EventArgs) Handles timerSendRows.Tick
|
|
timerSendRows.Enabled = False
|
|
End Sub
|
|
|
|
|
|
|
|
' Dim w As New SDL.cGenWord
|
|
'Dim ds As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
|
|
Private Sub Formulare(sender As Object, e As EventArgs) Handles DispolisteTRToolStripMenuItem.Click, DispolisteENToolStripMenuItem.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
|
Try
|
|
Dim path_src As String = ""
|
|
If sender Is DispolisteTRToolStripMenuItem Then path_src = VERAG_PROG_ALLGEMEIN.cFormularManager.open("DOKUMENTE", "VORLAGEN", "", "", "", "Dispoliste TR.doc")
|
|
If sender Is DispolisteENToolStripMenuItem Then path_src = VERAG_PROG_ALLGEMEIN.cFormularManager.open("DOKUMENTE", "VORLAGEN", "", "", "", "Dispoliste EN.docx")
|
|
|
|
'If path_src = "" Then Exit Sub
|
|
'Dim path As String = ds.openDataTMP(path_src, False)
|
|
' If path = "" Then Exit Sub
|
|
|
|
|
|
' Dim Aviso As New cAvisos
|
|
' Aviso = AvisoDAL.LesenAviso(AvisoID, "")
|
|
|
|
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
|
' Dim odoc As Microsoft.Office.Interop.Word.Document
|
|
|
|
oWord.Visible = False 'Word sehen zum Test?
|
|
' MsgBox(pfadWord)
|
|
odoc = oWord.Documents.Open(path_src)
|
|
' odoc.SaveAs(tmpPath)
|
|
|
|
' odoc.Save()
|
|
|
|
|
|
'odoc = w.openWord(path, False)
|
|
|
|
odoc.FormFields("An").Range.Text = AVISO.Frächter
|
|
odoc.FormFields("zH").Range.Text = ""
|
|
odoc.FormFields("LKW").Range.Text = AVISO.LKW_Nr
|
|
odoc.FormFields("SB").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME 'VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Mitarbeiter
|
|
|
|
odoc.Save()
|
|
odoc.Activate()
|
|
|
|
oWord.Visible = True
|
|
|
|
|
|
' odoc.Save()
|
|
' odoc.Activate()
|
|
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.ToString)
|
|
End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub Button1_Click_1(sender As Object, e As EventArgs)
|
|
' pnlFormulare.Visible = Not pnlFormulare.Visible
|
|
cntxtFormulare.Show(Cursor.Position)
|
|
|
|
' Dim ScreenPos As Point = Me.PointToScreen(New Point(0, 0))
|
|
'pnlFormulare.PointToClient = Cursor.Position
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
If FUNC.setAbgeschlossen(AvisoID, True) Then
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AvisoID)
|
|
reload(AvisoID)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub btnKassenbuchEintrag_Click(sender As Object, e As EventArgs) Handles btnKassenbuchEintrag.Click
|
|
Dim PERSONAL As SDL.cPersonal = Nothing
|
|
Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch
|
|
If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then
|
|
|
|
PERSONAL = frmSecureLoginKassenbuch.PERSONAL
|
|
Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, "E")
|
|
frmBeleg.AvisoID = AvisoID
|
|
AddHandler frmBeleg.LOADED, Sub()
|
|
|
|
Dim AVISO As cAviso = AvisoDAL.LesenAviso(AvisoID, "")
|
|
frmBeleg.BELEG.LKW_Kennzeichen = AVISO.LKW_Nr
|
|
' frmBeleg.BELEG.Frachtführer = AVISO.Frächter
|
|
frmBeleg.BELEG.Ordnungsbegriff = AVISO.Frächter 'Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Auftraggeber
|
|
frmBeleg.BELEG.LKW_Id = AVISO.AvisoID
|
|
|
|
'Bei ATILLA werden Filiale- u PosNr übergeben:
|
|
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 AndAlso SENDUNG_LIST(0).AbfertigungsNr > 0 Then
|
|
frmBeleg.BELEG.AbfertigungsNr = SENDUNG_LIST(0).AbfertigungsNr
|
|
frmBeleg.BELEG.FilialenNr = SENDUNG_LIST(0).FilialenNr
|
|
End If
|
|
|
|
frmBeleg.BELEG.FilialenNr = 4801
|
|
|
|
frmBeleg.init()
|
|
|
|
' Nach init:
|
|
If AVISO.Frächter_KdNr >= 0 Then
|
|
'frmBeleg.kdFrachtf.KdNr = AVISO.Frächter_KdNr
|
|
frmBeleg.kdkunde.KdNr = AVISO.Frächter_KdNr
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
frmBeleg.ShowDialog(Me)
|
|
|
|
reload(AvisoID)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
|
' Dim frmNacherfassung As New frmNacherfassungNEU
|
|
' frmNacherfassung.newEntry = True
|
|
' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID
|
|
' frmNacherfassung.Show()
|
|
Try
|
|
Dim posNr As New posNr
|
|
Dim SQL As New SQL
|
|
If AvisoID < 0 Then MsgBox("Fehler: AvisoID kleiner 0.") : Exit Sub
|
|
|
|
Dim frmNacherfassung As New SDL.frmNacherfassungNEU
|
|
If posNr.Filiale <= 0 And VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale > 0 Then 'Aus den Mitarbeiter-Stammdaten
|
|
posNr.Filiale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale
|
|
End If
|
|
|
|
|
|
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then '
|
|
If SENDUNG_LIST(0).AbfertigungsNr > 0 Then posNr.Abfertigungsnummer = SENDUNG_LIST(0).AbfertigungsNr
|
|
If SENDUNG_LIST(0).FilialenNr > 0 Then posNr.Filiale = SENDUNG_LIST(0).FilialenNr
|
|
If posNr.Abfertigungsnummer > 0 And posNr.Filiale > 0 Then
|
|
posNr.UnterNr = SQL.getValueTxtBySql("SELECT isnull(max([UnterNr]),-1)+1 FROM [Speditionsbuch] where FilialenNr='" & posNr.Filiale & "' and AbfertigungsNr='" & posNr.Abfertigungsnummer & "' ", "FMZOLL")
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
If posNr.Abfertigungsnummer < 0 Or posNr.Filiale < 0 Or posNr.UnterNr < 0 Then
|
|
Dim frmPosNr As New SDL.frmPosNr(posNr.Filiale, posNr.Abfertigungsnummer, posNr.UnterNr)
|
|
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
|
|
|
If Not frmPosNr.ShowDialog(frmGrayOut) = DialogResult.OK Then frmGrayOut.Close() : Exit Sub
|
|
frmGrayOut.Close()
|
|
' MsgBox("3")
|
|
posNr.Abfertigungsnummer = frmPosNr.txtAbfertigungsnummer.Text
|
|
posNr.Filiale = frmPosNr.cboFiliale._value
|
|
posNr.UnterNr = frmPosNr.txtUnterNr.Text
|
|
' Dim cADMIN As New cADMIN
|
|
' cADMIN.doSQL(" UPDATE tblSendungen SET FilialenNr='" & posNr.Filiale & "',AbfertigungsNr='" & srchAbfertigungsnummer & "', UnterNr='" & srchUnterNr & "' FROM tblSendungen WHERE tblSnd_SendungID=" & SendungID)
|
|
|
|
End If
|
|
' MsgBox("4")
|
|
|
|
frmNacherfassung.avisoLinkId = AvisoID
|
|
' frmNacherfassung.SendungID = SendungID
|
|
frmNacherfassung.srchAbfertigungsnummer = posNr.Abfertigungsnummer
|
|
frmNacherfassung.srchFiliale = posNr.Filiale
|
|
frmNacherfassung.srchUnterNr = posNr.UnterNr
|
|
' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID
|
|
Dim qsMa_TMP = SQL.getValueTxtBySql("SELECT TOP 1 isnull([MitarbeiterId],-1) FROM [Aenderungen] WHERE Aenderung_Art = 'auf VORBEREITET gesetzt' AND [AvisoID]='" & AvisoID & "' ORDER BY Datum DESC", "AVISO")
|
|
Dim qsMa = SQL.getValueTxtBySql("SELECT TOP 1 isnull([mit_FMZollPersID],-1) FROM [tblMitarbeiter] WHERE [mit_id]='" & qsMa_TMP & "' ", "ADMIN")
|
|
frmNacherfassung.newEntry = (0 = CInt(SQL.getValueTxtBySql("SELECT Count(*) FROM Speditionsbuch WHERE FilialenNr='" & posNr.Filiale & "' AND AbfertigungsNr='" & posNr.Abfertigungsnummer & "' AND UnterNr='" & posNr.UnterNr & "' ", "FMZOLL")))
|
|
'frmNacherfassung.FMZollPersIDQS = IIf(IsNumeric(qsMa), qsMa, -1)
|
|
frmNacherfassung.loadOnlyAvisoStart = True
|
|
|
|
frmNacherfassung.ShowDialog()
|
|
|
|
posNr.Abfertigungsnummer = frmNacherfassung.txtAbfertigungsnummer.Text
|
|
posNr.Filiale = frmNacherfassung.cboFiliale._value
|
|
posNr.UnterNr = frmNacherfassung.txtUnterNr.Text
|
|
|
|
reload(AvisoID)
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
MsgBox(ex.StackTrace)
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnAktUebernehmen.Click
|
|
'If FUNC.AktUebernehmen(AvisoID) Then
|
|
' frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
' frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
'End If
|
|
|
|
If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
|
|
Dim f As New frmAvisoWeiterleiten("A", AvisoID) '--> Weitereliten
|
|
If f.ShowDialog(Me) = DialogResult.OK Then
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
Vermerke_anzeigen()
|
|
End If
|
|
Else
|
|
If FUNC.AktUebernehmen(AvisoID, False) Then
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Sub intiAktUebernehmenBtn()
|
|
If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
|
|
btnAktUebernehmen.Image = My.Resources.weiterleiten_small1
|
|
btnAktUebernehmen.Text = "Akt weiterleiten..."
|
|
Else
|
|
btnAktUebernehmen.Image = My.Resources.personCheck_small
|
|
btnAktUebernehmen.Text = "Akt übernehmen"
|
|
End If
|
|
|
|
End Sub
|
|
Private Sub UsrCntlVermerkeATilla1_VERMERKEingetragen() Handles UsrCntlVermerkeATilla1.VERMERKEingetragen
|
|
reload(AvisoID)
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub DataGridView_CellContentClick(sender As Object, e As EventArgs) Handles dgvSpeditionsbuch.DoubleClick
|
|
If dgvSpeditionsbuch.SelectedRows.Count = 0 Then Exit Sub
|
|
|
|
Dim frmNacherfassung As New SDL.frmNacherfassungNEU
|
|
frmNacherfassung.srchFiliale = dgvSpeditionsbuch.SelectedRows(0).Cells("FilialenNr").Value
|
|
frmNacherfassung.srchAbfertigungsnummer = dgvSpeditionsbuch.SelectedRows(0).Cells("AbfertigungsNr").Value
|
|
frmNacherfassung.srchUnterNr = dgvSpeditionsbuch.SelectedRows(0).Cells("UnterNr").Value
|
|
' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID
|
|
|
|
' frmNacherfassung.initDataBinding()
|
|
frmNacherfassung.Show()
|
|
' frmNacherfassung.showAll()
|
|
End Sub
|
|
Public Sub showInfo(t As String, s As Double)
|
|
lblAktUebernommen.Text = t
|
|
lblAktUebernommen.Visible = True
|
|
timer.Interval = CInt(s * 1000)
|
|
timerAktUebernommen.Enabled = True
|
|
End Sub
|
|
Private Sub timerAktUebernommen_Tick(sender As Object, e As EventArgs) Handles timerAktUebernommen.Tick
|
|
lblAktUebernommen.Visible = False
|
|
timerAktUebernommen.Enabled = False
|
|
End Sub
|
|
|
|
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
|
|
If vbYes = MsgBox("Möchten Sie den Akt wieder öffnen?", vbYesNoCancel) Then
|
|
If FUNC.setAbgeschlossen(AvisoID, False) Then
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AvisoID)
|
|
reload(AvisoID)
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Dim PERSONAL As SDL.cPersonal = Nothing
|
|
Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch
|
|
' frmSecureLoginKassenbuch.KassenbuchNr_tmp = PERSONAL.KassenbuchNr
|
|
If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then
|
|
PERSONAL = frmSecureLoginKassenbuch.PERSONAL
|
|
|
|
|
|
Dim frmNacherfassungLeihgeld As New SDL.frmNacherfassungLeihgeld(PERSONAL, frmSecureLoginKassenbuch.PERSONAL_LG)
|
|
frmNacherfassungLeihgeld.FMZollPersID = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_FMZollPersID
|
|
'frmNacherfassungLeihgeld.ShowDialog()
|
|
frmNacherfassungLeihgeld.AvisoID = AvisoID
|
|
|
|
AddHandler frmNacherfassungLeihgeld.LOADED, Sub()
|
|
|
|
Dim AVISO As cAviso = AvisoDAL.LesenAviso(AvisoID, "")
|
|
'Dim BELEG As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID)
|
|
' Dim BELEG As EABeleg = frmBeleg.BELEG
|
|
'' BELEG.LKW_Kennzeichen = "AAAAAA"
|
|
|
|
|
|
|
|
|
|
frmNacherfassungLeihgeld.MyTextBoxLKWKz.Text = AVISO.LKW_Nr
|
|
|
|
'frmNacherfassungLeihgeld.BELEG.Ordnungsbegriff = AVISO.Frächter
|
|
'Keine Abf.-Nr, da neue Pos
|
|
'frmNacherfassungLeihgeld.cboFiliale.changeItem(Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr)
|
|
' frmNacherfassungLeihgeld.txtAbfertigungsnummer.Text = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr
|
|
|
|
' frmNacherfassungLeihgeld.init()
|
|
|
|
If AVISO.Frächter_KdNr > 0 Then
|
|
frmNacherfassungLeihgeld.txtAuftraggeber.KdNr = AVISO.Frächter_KdNr
|
|
' frmNacherfassungLeihgeld.kdkunde.KdNr = AVISO.Frächter_KdNr
|
|
Else
|
|
frmNacherfassungLeihgeld.txtAuftraggeber.Text = AVISO.Frächter
|
|
|
|
End If
|
|
|
|
'If sender Is Button13 Then frmNacherfassungLeihgeld.AddDusche(True)
|
|
End Sub
|
|
|
|
frmNacherfassungLeihgeld.ShowDialog(Me)
|
|
reload(AvisoID)
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
|
pnlOptionen.Height = 70
|
|
pnlOptionen.Visible = Not pnlOptionen.Visible
|
|
End Sub
|
|
|
|
Private Sub btnÄndern_Click(sender As Object, e As EventArgs) Handles btnÄndern.Click
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = AvisoID 'zur Sicherheit
|
|
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
|
Dim f As New frmEintragAviso
|
|
f.ShowDialog(frmGrayOut)
|
|
frmGrayOut.Close()
|
|
reload(AvisoID)
|
|
pnlOptionen.Visible = False
|
|
End Sub
|
|
|
|
Private Sub btnLöschen_Click(sender As Object, e As EventArgs) Handles btnLöschen.Click
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me.FindForm) Then
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
|
|
'Status erfasst darf auch von Mitarbeiter gelöscht werden - Mail von Siener vom 13.12.2013
|
|
If AVISO.Status <> "0" Then
|
|
MsgBox("Ein Akt mit diesem Status kann nur vom Administrator gelöscht werden.", vbExclamation)
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
|
|
Dim antwort As MsgBoxResult = MsgBox("Wollen Sie den Akt für das Kennzeichen '" & AVISO.LKW_Nr & "' wirklich löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
|
|
"Eintrag löschen")
|
|
If antwort = vbNo Then
|
|
Exit Sub
|
|
End If
|
|
pnlOptionen.Visible = False
|
|
AvisoDAL.LöschenAviso(AvisoID)
|
|
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
|
|
'frmHauptfenster.avisoAktualisierenAktiveIdBehalten(-1)
|
|
frmHauptfenster.pnlDetailsRechts.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Dim SND = Nothing
|
|
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then SND = SENDUNG_LIST(0)
|
|
SendungOptions.PrintSendungATILLA("PRINT", SND, AVISO, (New System.Drawing.Printing.PrinterSettings).PrinterName)
|
|
End Sub
|
|
|
|
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
|
cntxtZollantrag.Show(Cursor.Position)
|
|
End Sub
|
|
|
|
Sub genZollantrag(ncts_Art, Optional ZOLL_SYSTEM = "DAKOSY")
|
|
Try
|
|
Me.Cursor = Cursors.WaitCursor
|
|
|
|
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
|
|
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0)
|
|
|
|
Dim f As New SDL.frmZollanmeldung(ncts_Art, Nothing, AVISO, SND, Now.ToString("yy"), ZOLL_SYSTEM)
|
|
|
|
AddHandler f.FormClosed, Sub()
|
|
initdgvZollAnmeldungen()
|
|
End Sub
|
|
|
|
f.Show(Me)
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
|
|
Private Sub NCTST2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NCTST2ToolStripMenuItem.Click
|
|
genZollantrag("T2")
|
|
End Sub
|
|
|
|
Private Sub AESToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AESToolStripMenuItem.Click
|
|
genZollantrag("AES")
|
|
End Sub
|
|
|
|
|
|
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
|
If dgvZollAnmeldungen.SelectedRows.Count > 0 Then
|
|
Dim log As New SDL.frmDY_LogBuch(dgvZollAnmeldungen.SelectedRows(0).Cells("dy_id").Value)
|
|
' log.Parent = Me.FindForm
|
|
log.Show(Me)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub dgvZollAnmeldungen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvZollAnmeldungen.SelectionChanged
|
|
If dgvZollAnmeldungen.SelectedRows.Count > 0 AndAlso dgvZollAnmeldungen.Columns("txtStatus") IsNot Nothing Then
|
|
dgvZollAnmeldungen.SelectedRows(0).Cells("txtStatus").Style.SelectionBackColor = dgvZollAnmeldungen.SelectedRows(0).Cells("txtStatus").Style.BackColor
|
|
dgvZollAnmeldungen.SelectedRows(0).Cells("txtStatus").Style.SelectionForeColor = dgvZollAnmeldungen.SelectedRows(0).Cells("txtStatus").Style.ForeColor
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
|
Dim f As New SDL.frmSendSMS(AVISO.FahrerHandy, "")
|
|
If AVISO IsNot Nothing Then
|
|
f.KundenNr = AVISO.Frächter_KdNr
|
|
f.Kunde = AVISO.Frächter
|
|
f.AvisoId = AVISO.AvisoID
|
|
f.Kennzeichen = AVISO.LKW_Nr
|
|
End If
|
|
If f.ShowDialog(Me) = DialogResult.OK Then
|
|
If f.SMS IsNot Nothing Then
|
|
Dim FahrerHandy = If(f.SMS.sms_Vorwahl, "") & If(f.SMS.sms_Handynummer, "")
|
|
If FahrerHandy <> "" Then
|
|
SDL.cSMSOptions.insertVermerkSMS(AvisoID, FahrerHandy, f.SMS.sms_id, Now)
|
|
If If(AVISO.FahrerHandy, "") = "" Then
|
|
AVISO.UPDATE_FahrerHandy(FahrerHandy)
|
|
End If
|
|
Vermerke_anzeigen()
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
|
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VerpflichtungserklärungFahrer, FraechterKdNr, {AvisoID}, True)
|
|
End Sub
|
|
|
|
Private Sub SGSNCTSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SGSNCTSToolStripMenuItem.Click
|
|
genZollantrag("T2", "SGS")
|
|
End Sub
|
|
|
|
Private Sub btnQuckScan_Click(sender As Object, e As EventArgs) Handles btnQuckScan.Click
|
|
|
|
Try
|
|
Me.Cursor = Cursors.WaitCursor
|
|
If frmSendungAnhangImport.quickScan(AvisoID) Then
|
|
initAnhaenge()
|
|
End If
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
|
|
End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub tbcntr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntr.SelectedIndexChanged
|
|
initTbCntr()
|
|
End Sub
|
|
|
|
Sub initTbCntr()
|
|
If tbcntr.SelectedTab Is tbAnhaenge Then
|
|
initAnhaenge()
|
|
ElseIf tbcntr.SelectedTab Is tbSpedBuch Then
|
|
initDgvSpeditionsbuch()
|
|
ElseIf tbcntr.SelectedTab Is tbZollanmeldungen Then
|
|
initdgvZollAnmeldungen()
|
|
ElseIf tbcntr.SelectedTab Is tbVermerke Then
|
|
If loaded Then Vermerke_anzeigen()
|
|
ElseIf tbcntr.SelectedTab Is tbATEZ Then
|
|
initdgvATEZ()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
|
|
If dgvanhaenge.SelectedRows.Count = 0 Then Exit Sub
|
|
If vbNo = MsgBox("Wollen Sie den ausgewählten Anhang wirklich löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Anhang löschen") Then
|
|
Exit Sub
|
|
End If
|
|
|
|
For Each r As DataGridViewRow In dgvanhaenge.SelectedRows
|
|
Dim anh_id = dgvanhaenge.SelectedRows(0).Cells("anh_id").Value
|
|
Dim anh_docId = dgvanhaenge.SelectedRows(0).Cells("anh_docId").Value
|
|
frmSendungAnhangImport.deleteElement(anh_docId, anh_id, False)
|
|
Next
|
|
initAnhaenge()
|
|
End Sub
|
|
|
|
Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click
|
|
Try
|
|
If dgvanhaenge.SelectedRows.Count = 0 Then Exit Sub
|
|
|
|
Dim anh_id = dgvanhaenge.SelectedRows(0).Cells("anh_id").Value
|
|
Dim FILE_NAME = dgvanhaenge.SelectedRows(0).Cells("anh_Name").Value
|
|
|
|
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(anh_id)
|
|
Dim f As New frmSendungAnhangUmbenennenUmkateg(FILE_NAME, ANH.anh_Art)
|
|
If f.ShowDialog = DialogResult.OK Then
|
|
|
|
ANH.anh_Name = f.txtBezeichnung.Text
|
|
ANH.anh_Art = f.cboArt._value
|
|
ANH.SAVE()
|
|
FILE_NAME = f.txtBezeichnung.Text
|
|
|
|
initAnhaenge()
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
|
|
If frmSendungAnhangImport.addData_SendungAnhangFD(AvisoID) Then
|
|
initAnhaenge()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MarkiertePDFsDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarkiertePDFsDruckenToolStripMenuItem.Click
|
|
For Each r As DataGridViewRow In dgvanhaenge.SelectedRows
|
|
Select Case r.Cells("anh_Typ").Value
|
|
Case "PDF" : VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)})
|
|
Case "BILD" : VERAG_PROG_ALLGEMEIN.cFormularManager.Print_PICTURE({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)})
|
|
End Select
|
|
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
|
Dim data As IDataObject = Clipboard.GetDataObject
|
|
If True Then 'data.GetDataPresent(DataFormats.FileDrop) Then
|
|
For Each s As String In My.Computer.Clipboard.GetFileDropList() 'GetData(DataFormats.) 'data.GetData(DataFormats.FileDrop) 'DataFormats.FileDrop)
|
|
' Dim F_listItem As String = Path.Combine("c:\mynewpath", Path.GetFileName(s))
|
|
' File.Copy(s, newFile)
|
|
' MsgBox(s)
|
|
If IO.File.Exists(s) Then
|
|
|
|
Dim fi As New FileInfo(s)
|
|
Dim filename = fi.Name
|
|
If filename = "" Then
|
|
MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & s)
|
|
Else
|
|
|
|
Dim da_id = -1
|
|
Dim anhId = -1
|
|
Dim destPath = ""
|
|
|
|
Dim Typ = ""
|
|
If frmSendungAnhangImport.getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then
|
|
frmSendungAnhangImport.saveToDS(AvisoID, filename, s, "", Typ, da_id, anhId, destPath)
|
|
End If
|
|
End If
|
|
End If
|
|
Next
|
|
initAnhaenge()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
|
|
Dim f As New SDL.frmCMR
|
|
|
|
f.btnCMRtoAkt.Visible = True
|
|
f.txtCMRName.Visible = True
|
|
f.txtCMRName.Visible = True
|
|
|
|
If f.ShowDialog(Me) Then
|
|
|
|
Dim da_id = -1
|
|
Dim anhId = -1
|
|
Dim destPath = ""
|
|
|
|
Dim Typ = ""
|
|
|
|
If f.PDF_Path <> "" Then
|
|
Dim CMRName = If(f.txtCMRName.Text <> "", f.txtCMRName.Text, "CMR")
|
|
frmSendungAnhangImport.saveToDS(AvisoID, CMRName, f.PDF_Path, "CMR", "PDF", da_id, anhId, destPath)
|
|
initAnhaenge()
|
|
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnVERIMEX.Click
|
|
If FUNC.setVorbereitet(AvisoID) Then
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub FlowLayoutPanel_Paint(sender As Object, e As PaintEventArgs) Handles FlowLayoutPanel.Paint
|
|
|
|
End Sub
|
|
|
|
Private Sub btnAnVerimex_Click(sender As Object, e As EventArgs) Handles btnAnVerimex.Click
|
|
If FUNC.setAnVERIMEX(AvisoID) Then
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnAnIndonesien_Click(sender As Object, e As EventArgs) Handles btnAnIndonesien.Click
|
|
If FUNC.setAnINDONESIEN(AvisoID) Then
|
|
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub NCTSATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NCTSATEZToolStripMenuItem.Click
|
|
|
|
Try
|
|
|
|
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
|
|
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0)
|
|
|
|
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS)
|
|
frmAttilaATEZNCTS.Show(Me)
|
|
Me.Refresh()
|
|
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub Button12_Click_1(sender As Object, e As EventArgs) Handles Button12.Click
|
|
FUNC.openSnd(SENDUNG_LIST(0).tblSnd_SendungID, AvisoID)
|
|
End Sub
|
|
|
|
Private Sub dgvATEZNCTS_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvATEZNCTS.CellDoubleClick
|
|
|
|
Try
|
|
Me.Cursor = Cursors.WaitCursor
|
|
|
|
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
|
|
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0)
|
|
|
|
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value, AVISO, SND, Now.ToString("yy"))
|
|
frmAttilaATEZNCTS.Show(Me)
|
|
Me.Refresh()
|
|
initdgvATEZ()
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub dgvATEZNCTS_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvATEZNCTS.KeyUp
|
|
If e.KeyCode = Keys.Delete Then
|
|
If dgvATEZNCTS.SelectedRows.Count > 0 Then
|
|
If Not IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) Then
|
|
If dgvATEZNCTS.SelectedRows(0).Cells("Status").Value = "Sent" Then
|
|
MsgBox("Bereits gesendete Request können nicht gelöscht werden!")
|
|
Exit Sub
|
|
End If
|
|
If vbYes = MsgBox("Möchten Sie diesen Request wirklich löschen?", vbYesNoCancel) Then
|
|
Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value)
|
|
atez.delete()
|
|
initdgvATEZ()
|
|
End If
|
|
End If
|
|
|
|
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnImportAssi_Click(sender As Object, e As EventArgs) Handles btnImportAssi.Click
|
|
'loadDataInLIST()
|
|
'SAVE_ME()
|
|
|
|
Dim f As New frmSendungAnhangImport(AvisoID, SENDUNG_LIST(0).tblSnd_SendungID)
|
|
f.ShowDialog(Me)
|
|
'VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
|
reload(AvisoID)
|
|
'initDataBinding()
|
|
End Sub
|
|
End Class
|