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
2019-11-06 16:32:20 +01:00
parent 12f63bb4bc
commit bd77a8a525
20 changed files with 652 additions and 380 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
Aviso/usrcntlAktDetails.vb
View File

@@ -717,6 +717,12 @@ Public Class usrcntlAktDetails
VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "57"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 58
VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
End Select
loaded = False
@@ -823,6 +829,11 @@ Public Class usrcntlAktDetails
optionCell.Value = "Rg-Best. erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rg-Best. erhalten' einzutragen."
End If
Case 57
If Not existCodeInGridVermerke(58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Dispoliste erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dispoliste erhalten' einzutragen."
End If
End Select
End If
Next
@@ -1942,33 +1953,36 @@ Public Class usrcntlAktDetails
Private Sub btnKasse_LG_Click(sender As Object, e As EventArgs) Handles btnKasse_LG.Click
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe, FraechterKdNr, {AvisoID})
Panel4.Visible = False
DispolisteVermerk()
End Sub
Sub DispolisteVermerk()
If vbYes = MsgBox("Vermerk 'Dispoliste angefordert' eintragen?", vbYesNoCancel) Then
AvisoStatusFunctions.insertVermerkAllg(AvisoID, "Dispoliste angefordert", 57)
End If
End Sub
Private Sub btnKasse_User_Click(sender As Object, e As EventArgs) Handles Button9.Click
Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False)
If path <> "" Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
Process.Start(path)
Case Else
Try
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Subject = "Dispoliste LKW-Nr: " & AVISO.LKW_Nr
' Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & RECHNUNG.RechnungsNr & "."
Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Dispoliste.pdf")
Mail.Display()
Catch ex As Exception
MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!")
Process.Start(path)
End Try
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Subject = "Dispoliste LKW-Nr: " & AVISO.LKW_Nr
' Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & RECHNUNG.RechnungsNr & "."
Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Dispoliste.pdf")
Mail.Display()
Catch ex As Exception
MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!")
Process.Start(path)
End Try
End Select
DispolisteVermerk()
End If
Panel4.Visible = False
End Sub
@@ -1980,6 +1994,6 @@ Public Class usrcntlAktDetails
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnKasse_User.Click
Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False)
If path <> "" Then Process.Start(path)
If path <> "" Then Process.Start(path) : DispolisteVermerk()
End Sub
End Class