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-12-16 09:31:14 +01:00
parent 56fe11bc97
commit f25ff457b2
16 changed files with 1112 additions and 1055 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -1780,7 +1780,7 @@ Public Class frmSendungsdetailsNEU
Return b
End Function
Private Sub btn_Click_1(sender As Object, e As EventArgs) Handles btn.Click
Private Sub btn_Click_1(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
'loadDataInLIST()
If Not SAVE_ME() Then
@@ -2659,7 +2659,7 @@ Public Class frmSendungsdetailsNEU
' TabControl1.Enabled = Not sperren
Panel6.Enabled = Not sperren
Panel16.Enabled = Not sperren
btn.Enabled = Not sperren
btnSpedBuch.Enabled = Not sperren
' Panel5.Enabled = Not sperren
' cboAbfertigungsart.Enabled = Not sperren
txtAnzahl.Enabled = Not sperren
@@ -3584,7 +3584,7 @@ Public Class frmSendungsdetailsNEU
End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles btnVermerk.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(Cursor.Position)
@@ -3608,7 +3608,7 @@ Public Class frmSendungsdetailsNEU
End Sub
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles btnImportAssi.Click
'loadDataInLIST()
SAVE_ME()
@@ -3630,7 +3630,7 @@ Public Class frmSendungsdetailsNEU
Next
End Sub
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
cntxtAnh.Show(Cursor.Position)
End Sub
@@ -3749,7 +3749,7 @@ Public Class frmSendungsdetailsNEU
Next
End Sub
Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
Private Sub Button22_Click(sender As Object, e As EventArgs) Handles btnMailVorlage.Click
ContextMenuStrip1.Show(Cursor.Position)
End Sub
@@ -3759,7 +3759,7 @@ Public Class frmSendungsdetailsNEU
initGesColliGewicht()
End Sub
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles btnPDFZusammenfueren.Click
' ContextMenuStrip2.Show(Cursor.Position)
If dgvAnhang.SelectedRows.Count >= 1 Then
Try