Datev Anbindung
This commit is contained in:
@@ -177,7 +177,7 @@ Public Class usrcntlAktDetails
|
||||
'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
|
||||
Private Sub usrcntlAktDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
timerAktUebernommen.Interval = 1500
|
||||
timer.Interval = 100
|
||||
reload(AvisoID)
|
||||
@@ -1498,7 +1498,7 @@ Public Class usrcntlAktDetails
|
||||
|
||||
|
||||
|
||||
Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVermerkEntgLöschen.Click, conVermerkLöschenNew.Click
|
||||
Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVermerkLöschenNew.Click, conVermerkEntgLöschen.Click
|
||||
|
||||
If gridVermerke.SelectedRows.Count = 0 Then Exit Sub
|
||||
|
||||
@@ -1564,7 +1564,7 @@ Public Class usrcntlAktDetails
|
||||
|
||||
|
||||
|
||||
Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridVermerke.CellMouseClick
|
||||
Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridVermerke.CellMouseClick, dgvSendungen.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?
|
||||
@@ -1850,7 +1850,7 @@ Public Class usrcntlAktDetails
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub dgvSendungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSendungen.CellClick 'dgvSendungen.CellContentClick
|
||||
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
|
||||
@@ -2211,81 +2211,8 @@ Public Class usrcntlAktDetails
|
||||
|
||||
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
|
||||
Private Sub dgvSendungen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs)
|
||||
|
||||
'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)
|
||||
@@ -2763,7 +2690,7 @@ Public Class usrcntlAktDetails
|
||||
Label21.Text = initSndAnzahl
|
||||
End Function
|
||||
|
||||
Private Sub txtSndFiskalDE_TextChanged(sender As Object, e As EventArgs) Handles txtSndFiskalDE.TextChanged, txtSendungen.TextChanged, txtSndFiskalAT.TextChanged
|
||||
Private Sub txtSndFiskalDE_TextChanged(sender As Object, e As EventArgs) Handles txtSndFiskalDE.TextChanged, txtSndFiskalAT.TextChanged, txtSendungen.TextChanged
|
||||
initSndAnzahl()
|
||||
End Sub
|
||||
|
||||
@@ -2960,7 +2887,7 @@ Public Class usrcntlAktDetails
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles btnLZDruck.Click, btnLZDruckDIGITAL.Click
|
||||
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles btnLZDruckDIGITAL.Click, btnLZDruck.Click
|
||||
Dim f As New frmLaufzettel(AVISO, Nothing, (sender Is btnLZDruckDIGITAL), cbxLZT1.Checked, cbxLZRg.Checked, cbxVPSplit.Checked)
|
||||
f.ShowDialog()
|
||||
Panel4.Visible = False
|
||||
@@ -3516,7 +3443,7 @@ Public Class usrcntlAktDetails
|
||||
|
||||
|
||||
|
||||
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolUeberweisungsBeleg.Click, toolVkReminder.Click
|
||||
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles toolVkReminder.Click, ToolUeberweisungsBeleg.Click
|
||||
If gridVermerke.SelectedRows.Count = 0 Then Exit Sub
|
||||
Dim index As Integer = -1
|
||||
If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
|
||||
@@ -3539,7 +3466,7 @@ Public Class usrcntlAktDetails
|
||||
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, txtMAinfo_TRVorgeschrieben.Click
|
||||
Private Sub txtMAinfo_VorbereitetQs_TextChanged(sender As Object, e As EventArgs) Handles txtMAinfo_Vorgeschrieben.Click, txtMAinfo_VorbereitetQs.Click, txtMAinfo_TRVorgeschrieben.Click, txtMAinfo_AbklaerungTR.Click
|
||||
If sender.tag IsNot DBNull.Value AndAlso sender.tag IsNot Nothing Then
|
||||
If IsNumeric(sender.tag) Then
|
||||
Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche(sender.tag)
|
||||
|
||||
Reference in New Issue
Block a user