NEU
This commit is contained in:
@@ -131,6 +131,9 @@ Public Class usrcntlAktDetails
|
||||
timerAktUebernommen.Interval = 1500
|
||||
timer.Interval = 100
|
||||
reload(AvisoID)
|
||||
pnl.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
||||
txtLKW_Nr.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
|
||||
txtLKW_Nr.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor
|
||||
|
||||
|
||||
If My.Computer.Screen.WorkingArea.Width < 1300 Or VERAG_PROG_ALLGEMEIN.cAllgemein.dpi > 96 Then
|
||||
@@ -141,7 +144,7 @@ Public Class usrcntlAktDetails
|
||||
' btnVorgeschrieben.AutoSize = False
|
||||
' btnFreigabe.AutoSize = False
|
||||
|
||||
btnAnkunft.Text = "ANKUNFT."
|
||||
btnAnkunft.Text = "ANKUNFT"
|
||||
btnErfasst.Text = "ERFASST"
|
||||
btnVorbereitet.Text = "VORB.QS"
|
||||
btnVorgeschrieben.Text = "VORGESCHR."
|
||||
@@ -176,9 +179,9 @@ Public Class usrcntlAktDetails
|
||||
btnVorbereitet.Visible = True
|
||||
End If
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then
|
||||
tbcntlVermerke.TabPages.Remove(tbAnhang)
|
||||
End If
|
||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then
|
||||
' tbcntlVermerke.TabPages.Remove(tbAnhang)
|
||||
'End If
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
|
||||
Button8.Text = "Gest.Liste"
|
||||
@@ -478,11 +481,11 @@ Public Class usrcntlAktDetails
|
||||
' If setAkive_AuswahlID() = -1 Then Exit Sub
|
||||
If AvisoID <= 0 Then Exit Sub
|
||||
|
||||
|
||||
Button18.Visible = False
|
||||
Select Case tbcntlVermerke.SelectedIndex
|
||||
Case 0, 1, 2 : Vermerke_anzeigen2(rowindex)
|
||||
Case 3
|
||||
|
||||
Button18.Visible = True
|
||||
Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
|
||||
WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0
|
||||
order by [anh_Reihenfolge],[anh_id]"
|
||||
@@ -626,36 +629,43 @@ Public Class usrcntlAktDetails
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)
|
||||
' initDgvSendungen()
|
||||
|
||||
Case "3"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 4
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "5"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 6
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "7"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 8
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "9"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 10
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "11"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 12
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "13"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 14
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "17"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
|
||||
myVermerk.VermerkCodeId = 18
|
||||
@@ -664,26 +674,31 @@ Public Class usrcntlAktDetails
|
||||
' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
|
||||
'Vermerke_aktualisieren()
|
||||
init = True ' Vermerke_anzeigen(e.RowIndex)
|
||||
|
||||
Case "19"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
|
||||
myVermerk.VermerkCodeId = 20
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "25"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 30
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "31"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschl.")
|
||||
myVermerk.VermerkCodeId = 32
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "33"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 34
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "36"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 37
|
||||
@@ -696,6 +711,12 @@ Public Class usrcntlAktDetails
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
||||
|
||||
Case "55"
|
||||
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
|
||||
myVermerk.VermerkCodeId = 56
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
|
||||
|
||||
|
||||
End Select
|
||||
loaded = False
|
||||
@@ -797,6 +818,11 @@ Public Class usrcntlAktDetails
|
||||
optionCell.Value = "Ü-Dok erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Ü-Dok erhalten' einzutragen."
|
||||
End If
|
||||
Case 55
|
||||
If Not existCodeInGridVermerke(56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
|
||||
optionCell.Value = "Rg-Best. erhalten"
|
||||
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rg-Best. erhalten' einzutragen."
|
||||
End If
|
||||
End Select
|
||||
End If
|
||||
Next
|
||||
@@ -951,11 +977,24 @@ Public Class usrcntlAktDetails
|
||||
If dgvSendungen.SelectedRows.Count > 0 Then
|
||||
sendId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
|
||||
End If
|
||||
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
||||
|
||||
'Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
||||
'Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
|
||||
'frmSendungsdetails.ShowDialog(frmGrayOut)
|
||||
'frmGrayOut.Close()
|
||||
|
||||
'If Not Application.OpenForms.Item("frmSendungsdetails") Is Nothing Then
|
||||
' Application.OpenForms.Item("frmSendungsdetails").BringToFront()
|
||||
' MsgBox("Sendugns-Fenster bereits geöffnet!")
|
||||
' Exit Sub
|
||||
'Else
|
||||
' Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
|
||||
' frmSendungsdetails.Show(Me)
|
||||
'End If
|
||||
|
||||
Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
|
||||
frmSendungsdetails.ShowDialog(frmGrayOut)
|
||||
frmGrayOut.Close()
|
||||
frmSendungsdetails.ShowDialog(Me)
|
||||
|
||||
initDgvSendungen()
|
||||
|
||||
|
||||
@@ -1509,7 +1548,6 @@ Public Class usrcntlAktDetails
|
||||
|
||||
|
||||
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)
|
||||
@@ -1902,23 +1940,32 @@ Public Class usrcntlAktDetails
|
||||
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 bim Öffnen des Mail-Programmes. PDF wird geladen!")
|
||||
If sender Is Button9 Then
|
||||
Process.Start(path)
|
||||
End Try
|
||||
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
|
||||
End If
|
||||
End Select
|
||||
End If
|
||||
Panel4.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
|
||||
Dim f As New frmSendungAnhangImport(AvisoID)
|
||||
f.Show(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user