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

30
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -2105,7 +2105,7 @@ Public Class frmSendungsdetailsNEU
SAVE_ME()
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")
frmBeleg.AvisoID = AvisoId
@@ -2136,7 +2136,7 @@ Public Class frmSendungsdetailsNEU
End Sub
If frmBeleg.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
If frmBeleg.ShowDialog(Me) = DialogResult.OK Then
If frmBeleg.BELEG.gebucht Then
@@ -2263,7 +2263,7 @@ Public Class frmSendungsdetailsNEU
' 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)
@@ -2319,7 +2319,7 @@ Public Class frmSendungsdetailsNEU
'If sender Is Button13 Then frmNacherfassungLeihgeld.AddDusche(True)
End Sub
If frmNacherfassungLeihgeld.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
If frmNacherfassungLeihgeld.ShowDialog(Me) = DialogResult.OK Then
If frmNacherfassungLeihgeld.BELEG.FilialenNr > 0 And frmNacherfassungLeihgeld.BELEG.AbfertigungsNr > 0 Then
loadDataInLIST()
@@ -2398,7 +2398,7 @@ Public Class frmSendungsdetailsNEU
frmGB.KdSearchBox1.Text = SND_TMP.tblSnd_Absender
frmGB.KdSearchBox2.Text = SND_TMP.tblSnd_Empfaenger
If frmGB.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
If frmGB.ShowDialog(Me) = DialogResult.OK Then
SND_TMP.tblSnd_Absender = frmGB.KdSearchBox1.Text
SND_TMP.tblSnd_Empfaenger = frmGB.KdSearchBox2.Text
@@ -3097,7 +3097,7 @@ Public Class frmSendungsdetailsNEU
If dgvBelege.SelectedRows.Count <= 0 Then Exit Sub
Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch
If frmSecureLoginKassenbuch.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then
Dim PERSONAL As SDL.cPersonal = frmSecureLoginKassenbuch.PERSONAL
Dim sqlTMP As New SDL.FMZOLL_SQL
@@ -3143,7 +3143,7 @@ Public Class frmSendungsdetailsNEU
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles btnVorauszahlung.Click
FormularArt = SDL.FormularManagerArten.Importaviso_VK
cntxtVorauskasse.Show(Windows.Forms.Cursor.Position)
cntxtVorauskasse.Show(Cursor.Position)
End Sub
Private Sub FrächterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolAbsender.Click, toolAuftraggeber.Click, toolEmpfänger.Click, toolAvisierer.Click, toolFrächter.Click
@@ -3176,7 +3176,7 @@ Public Class frmSendungsdetailsNEU
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
cntxtOptions.Show(Windows.Forms.Cursor.Position)
cntxtOptions.Show(Cursor.Position)
End Sub
@@ -3185,10 +3185,10 @@ Public Class frmSendungsdetailsNEU
Dim f As New frmSendungsDetailsAbrechnungLeistungen(SENDUNG_LIST(CURRENT_INDEX), sender._beteiligter)
' Dim p As Point = Cursor.Position
' p.Offset(-f.Width \ 2, -f.Height \ 2)
' f.Location = Windows.Forms.Cursor.Position
' f.Location = Cursor.Position
' f.Left = Me.PointToScreen(System.Windows.Forms.Cursor.Position).X
' f.Top = Me.PointToScreen(System.Windows.Forms.Cursor.Position).Y
' f.Left = Me.PointToScreen(System.Cursor.Position).X
' f.Top = Me.PointToScreen(System.Cursor.Position).Y
f.ShowDialog()
SAVE_ABRECHUNG()
LOAD_ABRECHUNG()
@@ -3200,7 +3200,7 @@ Public Class frmSendungsdetailsNEU
Private Sub Button14_Click_2(sender As Object, e As EventArgs) Handles Button14.Click
Dim f As New frmWarenbezeichnungBegriffe
If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
If f.ShowDialog(Me) = DialogResult.OK Then
If f.WB IsNot Nothing Then
rtbWarenbezeichnung.Text = f.WB.wb_begriff
End If
@@ -3346,7 +3346,7 @@ Public Class frmSendungsdetailsNEU
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnImportaviso.Click
FormularArt = SDL.FormularManagerArten.Importaviso
cntxtVorauskasse.Show(Windows.Forms.Cursor.Position)
cntxtVorauskasse.Show(Cursor.Position)
End Sub
Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
@@ -3417,7 +3417,7 @@ Public Class frmSendungsdetailsNEU
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim sv As New frmAddSendungsvermerkShort(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) ', 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()
sv.Close()
@@ -3553,7 +3553,7 @@ Public Class frmSendungsdetailsNEU
Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
FormularArt = SDL.FormularManagerArten.Importaviso_VK
ctxtWeitereFormulare.Show(Windows.Forms.Cursor.Position)
ctxtWeitereFormulare.Show(Cursor.Position)
End Sub
Private Sub EmpfängerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EmpfängerToolStripMenuItem.Click