edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-06-04 22:19:07 +02:00
parent bf4f36a8f2
commit 8f6eaaaba8
37 changed files with 515 additions and 318 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -737,13 +737,13 @@ Public Class usrcntlAktDetailsATILLANeu
'gridMyAviso.ClearSelection() 'WARUM?
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
If e.Button = Windows.Forms.MouseButtons.Right Then
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(Windows.Forms.Cursor.Position)
conMenuVermerke.Show(Cursor.Position)
End If
End If
@@ -793,7 +793,7 @@ Public Class usrcntlAktDetailsATILLANeu
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(System.Windows.Forms.Cursor.Position)
sv.Location = Me.PointToClient(Cursor.Position)
sv.ShowDialog(frmGrayOut)
frmGrayOut.Close()
@@ -811,50 +811,50 @@ Public Class usrcntlAktDetailsATILLANeu
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)
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)
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)
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)
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)
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)
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)
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End Sub
@@ -950,10 +950,10 @@ Public Class usrcntlAktDetailsATILLANeu
Private Sub Button1_Click_1(sender As Object, e As EventArgs)
' pnlFormulare.Visible = Not pnlFormulare.Visible
cntxtFormulare.Show(Windows.Forms.Cursor.Position)
cntxtFormulare.Show(Cursor.Position)
' Dim ScreenPos As Point = Me.PointToScreen(New Point(0, 0))
'pnlFormulare.PointToClient = Windows.Forms.Cursor.Position
'pnlFormulare.PointToClient = Cursor.Position
End Sub
@@ -971,7 +971,7 @@ Public Class usrcntlAktDetailsATILLANeu
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) = Windows.Forms.DialogResult.OK Then
If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then
PERSONAL = frmSecureLoginKassenbuch.PERSONAL
Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, "E")
@@ -1021,8 +1021,8 @@ Public Class usrcntlAktDetailsATILLANeu
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
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
@@ -1081,8 +1081,8 @@ Public Class usrcntlAktDetailsATILLANeu
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If FUNC.AktUebernehmen(AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID)
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End Sub
@@ -1131,12 +1131,12 @@ Public Class usrcntlAktDetailsATILLANeu
Dim PERSONAL As SDL.cPersonal = Nothing
Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch
' frmSecureLoginKassenbuch.KassenbuchNr_tmp = PERSONAL.KassenbuchNr
If frmSecureLoginKassenbuch.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
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.FMZollPersID = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_FMZollPersID
'frmNacherfassungLeihgeld.ShowDialog()
frmNacherfassungLeihgeld.AvisoID = AvisoID
@@ -1184,7 +1184,7 @@ Public Class usrcntlAktDetailsATILLANeu
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
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = AvisoID 'zur Sicherheit
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim f As New frmEintragAviso
f.ShowDialog(frmGrayOut)
@@ -1210,7 +1210,7 @@ Public Class usrcntlAktDetailsATILLANeu
End If
pnlOptionen.Visible = False
AvisoDAL.LöschenAviso(AvisoID)
VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID = -1
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
'frmHauptfenster.avisoAktualisierenAktiveIdBehalten(-1)
frmHauptfenster.pnlDetailsRechts.Visible = False
End If
@@ -1224,7 +1224,7 @@ Public Class usrcntlAktDetailsATILLANeu
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
cntxtZollantrag.Show(Windows.Forms.Cursor.Position)
cntxtZollantrag.Show(Cursor.Position)
End Sub
Sub genZollantrag(ncts_Art)