Aviso_Trips; NewLayout HF
This commit is contained in:
@@ -11,7 +11,7 @@ Public Class frmEintragAviso
|
||||
Dim ATILLA_NEUERAKTENDECKEL = True
|
||||
Dim Firmen As New cFirmenDAL
|
||||
Dim AvisoDAL As New cAvisoDAL
|
||||
Dim myAviso As New cAviso
|
||||
Public myAviso As New cAviso
|
||||
Dim AVISOFUNC As New AvisoStatusFunctions
|
||||
Dim ADMIN As New cADMIN
|
||||
Dim hÄnderung As Boolean = False
|
||||
@@ -34,6 +34,7 @@ Public Class frmEintragAviso
|
||||
|
||||
Dim INFO As String = ""
|
||||
|
||||
Public getFromAVISO_Trip As cAviso = Nothing
|
||||
|
||||
Public FIRMA_TMP As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
|
||||
@@ -351,6 +352,60 @@ Public Class frmEintragAviso
|
||||
If FIRMA_TMP = "AMBAR" Then
|
||||
cboGrenzstelle.changeItem("AMB")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If getFromAVISO_Trip IsNot Nothing Then
|
||||
myAviso.AvisoTripId = getFromAVISO_Trip.AvisoTripId ' --> Trip gespeichert!
|
||||
|
||||
myAviso.Frächter = getFromAVISO_Trip.Frächter
|
||||
myAviso.Frächter_KdNr = getFromAVISO_Trip.Frächter_KdNr
|
||||
myAviso.Auftraggeber = getFromAVISO_Trip.Auftraggeber
|
||||
myAviso.Auftraggeber_KdNr = getFromAVISO_Trip.Auftraggeber_KdNr
|
||||
|
||||
myAviso.Zugmaschine = getFromAVISO_Trip.Zugmaschine
|
||||
myAviso.LKW_Nr = getFromAVISO_Trip.LKW_Nr
|
||||
myAviso.LKW_Nationalitaet = getFromAVISO_Trip.LKW_Nationalitaet
|
||||
myAviso.Transportmittelart = getFromAVISO_Trip.Transportmittelart
|
||||
|
||||
myAviso.AvisoEingang = getFromAVISO_Trip.AvisoEingang
|
||||
myAviso.FahrerHandy = getFromAVISO_Trip.FahrerHandy
|
||||
myAviso.KdAuftragsNr_Avisierer = getFromAVISO_Trip.KdAuftragsNr_Avisierer
|
||||
myAviso.Telefonisch = getFromAVISO_Trip.Telefonisch
|
||||
myAviso.Transportmittelart = getFromAVISO_Trip.Transportmittelart
|
||||
|
||||
'---------ANZEIGE----------------------------------
|
||||
If myAviso.Frächter_KdNr > 0 Then
|
||||
kdFrächter.KdNr = myAviso.Frächter_KdNr
|
||||
Else
|
||||
kdFrächter.Text = myAviso.Frächter
|
||||
End If
|
||||
|
||||
If myAviso.Auftraggeber_KdNr > 0 Then
|
||||
kdAvisierer.KdNr = myAviso.Auftraggeber_KdNr
|
||||
Else
|
||||
kdAvisierer.Text = myAviso.Auftraggeber
|
||||
End If
|
||||
|
||||
|
||||
txtLKW_Nr.Text = myAviso.LKW_Nr
|
||||
sbLkwNationalitaet.SET_VALUE(myAviso.LKW_Nationalitaet)
|
||||
txtFahrerHandy.Text = If(myAviso.FahrerHandy, "")
|
||||
txtAvisiererAuftragsNr.Text = If(myAviso.KdAuftragsNr_Avisierer, "")
|
||||
|
||||
|
||||
optAvisoEingang.Checked = True 'bei Änderung kann kein Eingang ohne Aviso erfolgen...
|
||||
|
||||
If myAviso.Telefonisch = "Telefon" Then
|
||||
optTelefonisch.Checked = True
|
||||
ElseIf myAviso.Telefonisch = "Schriftl." Then
|
||||
optSchriftlich.Checked = True
|
||||
Else
|
||||
optUnbekannt.Checked = True
|
||||
End If
|
||||
cboTransportmittelart.changeItem(myAviso.Transportmittelart)
|
||||
End If
|
||||
|
||||
Else
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
|
||||
Me.Close()
|
||||
@@ -376,9 +431,9 @@ Public Class frmEintragAviso
|
||||
kdFrächter.KdNr = myAviso.Frächter_KdNr
|
||||
Else
|
||||
kdFrächter.Text = myAviso.Frächter
|
||||
End If
|
||||
End If
|
||||
|
||||
If myAviso.Auftraggeber_KdNr > 0 Then
|
||||
If myAviso.Auftraggeber_KdNr > 0 Then
|
||||
kdAvisierer.KdNr = myAviso.Auftraggeber_KdNr
|
||||
Else
|
||||
kdAvisierer.Text = myAviso.Auftraggeber
|
||||
@@ -755,60 +810,63 @@ Public Class frmEintragAviso
|
||||
Dim ListOfLKWNr = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkLKWNr(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
|
||||
|
||||
|
||||
If getFromAVISO_Trip Is Nothing Then 'wenn Trip -> Prüfung überspringen
|
||||
|
||||
For Each LKWNr In ListOfLKWNr
|
||||
Dim temp_avisoID As Integer = -1
|
||||
Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(LKWNr, temp_avisoID)
|
||||
If hLKWCheck2 <> "" Then
|
||||
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?" & vbNewLine & "NEIN -> Springe zu existierendem Eintrag!", CType(MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, MsgBoxStyle),
|
||||
"Aviso-Eintrag")
|
||||
If antwort = vbNo Then
|
||||
If temp_avisoID > 0 Then
|
||||
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
||||
Dim FRM As New frmSendungsdetailsNEU(temp_avisoID, -1)
|
||||
FRM.ShowDialog(frmGrayOut)
|
||||
frmGrayOut.Close()
|
||||
|
||||
Exit Sub
|
||||
Else
|
||||
MsgBox("AVISO-ID konnte nicht ermittelt werden")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
ElseIf antwort = vbCancel Then
|
||||
Exit Sub
|
||||
Else
|
||||
EintragMehrfach = True
|
||||
End If
|
||||
End If
|
||||
|
||||
If hLKWCheck2 = "" Then
|
||||
'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
|
||||
Dim hLKWCheck As String = AvisoDAL.Suche_LKW(LKWNr, temp_avisoID)
|
||||
If hLKWCheck <> "" Then
|
||||
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?" & vbNewLine & "NEIN -> Springe zu existierendem Eintrag!", CType(MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, MsgBoxStyle),
|
||||
"Aviso-Eintrag")
|
||||
For Each LKWNr In ListOfLKWNr
|
||||
Dim temp_avisoID As Integer = -1
|
||||
Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(LKWNr, temp_avisoID)
|
||||
If hLKWCheck2 <> "" Then
|
||||
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?" & vbNewLine & "NEIN -> Springe zu existierendem Eintrag!", CType(MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, MsgBoxStyle),
|
||||
"Aviso-Eintrag")
|
||||
If antwort = vbNo Then
|
||||
If temp_avisoID > 0 Then
|
||||
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
||||
Dim FRM As New frmSendungsdetailsNEU(temp_avisoID, -1)
|
||||
FRM.ShowDialog(frmGrayOut)
|
||||
frmGrayOut.Close()
|
||||
|
||||
Exit Sub
|
||||
Else
|
||||
MsgBox("AVISO-ID konnte nicht ermittelt werden")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
ElseIf antwort = vbCancel Then
|
||||
Exit Sub
|
||||
Else
|
||||
|
||||
EintragMehrfach = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
If hLKWCheck2 = "" Then
|
||||
'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
|
||||
Dim hLKWCheck As String = AvisoDAL.Suche_LKW(LKWNr, temp_avisoID)
|
||||
If hLKWCheck <> "" Then
|
||||
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?" & vbNewLine & "NEIN -> Springe zu existierendem Eintrag!", CType(MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, MsgBoxStyle),
|
||||
"Aviso-Eintrag")
|
||||
If antwort = vbNo Then
|
||||
If temp_avisoID > 0 Then
|
||||
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
|
||||
Dim FRM As New frmSendungsdetailsNEU(temp_avisoID, -1)
|
||||
FRM.ShowDialog(frmGrayOut)
|
||||
frmGrayOut.Close()
|
||||
Exit Sub
|
||||
Else
|
||||
MsgBox("AVISO-ID konnte nicht ermittelt werden")
|
||||
Exit Sub
|
||||
End If
|
||||
ElseIf antwort = vbCancel Then
|
||||
Exit Sub
|
||||
Else
|
||||
|
||||
EintragMehrfach = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user