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-03-12 14:48:24 +01:00
parent e879fb6881
commit afaac3c2a4
107 changed files with 16055 additions and 3324 deletions
Download Patch File Download Diff File Expand all files Collapse all files

405
Aviso/frmEintragAviso.vb
View File

@@ -72,7 +72,7 @@ Public Class frmEintragAviso
Dim sp = a.Split("\")
display = sp(sp.Count - 1)
End If
dgvAnhaenge.Rows.Add({display})
dgvAnhaenge.Rows.Add({display, a})
Next
End If
dgvAnhaenge.ClearSelection()
@@ -123,12 +123,14 @@ Public Class frmEintragAviso
' lblDy.Visible = True
' txtDyRef.Visible = True
' picDy.Visible = True
Case "VERAG"
Label1.Visible = True
cboImEx.Visible = True
cboImEx.Text = "IMPORT"
End Select
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Case "WAI"
cboImEx.Visible = True
@@ -143,6 +145,11 @@ Public Class frmEintragAviso
Case "SUB"
txtSndFremd.Visible = True
lblSndFremd.Visible = True
Case "NEU"
txtSndFremd.Visible = True
lblSndFremd.Visible = True
cboImEx.Visible = True
Label1.Visible = True
End Select
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "FRONTOFFICE"
@@ -221,6 +228,7 @@ Public Class frmEintragAviso
Neuanlage = True
Me.Text = "Neuanlage LKW-Aviso"
dtpDatum.Value = Now
datVoraussichtlichesEintreffen.Value = Now.AddDays(-1)
dtpAvisoEingangDatum.Value = Now.Date
dtpAvisoEingangZeit.Value = LeerDatum
txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter
@@ -236,193 +244,202 @@ Public Class frmEintragAviso
End If
Else
Me.Text = "Änderung LKW-Aviso"
'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False
txtInfo.Visible = False
Label3.Visible = False
'ausgewählter Datensatz wird geladen
grpAktVerzollung.Visible = False
cbxSendungsvorlagen.Visible = False
Button3.Visible = False
Label3.Visible = False
'ausgewählter Datensatz wird geladen
grpAktVerzollung.Visible = False
cbxSendungsvorlagen.Visible = False
Button3.Visible = False
myAviso = AvisoDAL.LesenAviso(cGlobal.Aktive_ID, "")
myAviso = AvisoDAL.LesenAviso(cGlobal.Aktive_ID, "")
'Werte(zuweisen)
dtpDatum.Value = myAviso.Datum
If myAviso.Frächter_KdNr > 0 Then
kdFrächter.KdNr = myAviso.Frächter_KdNr
Else
kdFrächter.Text = myAviso.Frächter
End If
'Werte(zuweisen)
dtpDatum.Value = myAviso.Datum
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
If myAviso.Auftraggeber_KdNr > 0 Then
kdAvisierer.KdNr = myAviso.Auftraggeber_KdNr
Else
kdAvisierer.Text = myAviso.Auftraggeber
End If
txtInfo.Text = myAviso.Info.Trim
txtLKW_Nr.Text = myAviso.LKW_Nr
sbLkwNationalitaet.SET_VALUE(myAviso.LKW_Nationalitaet)
txtFahrerHandy.Text = If(myAviso.FahrerHandy, "")
txtÄnderungen.Text = myAviso.Änderungen.Trim
optOhneAviso.Visible = False 'bei Änderung kann kein Eingang ohne Aviso erfolgen, da Datum bereits bei Anlage gesetzt
optAvisoEingang.Checked = True 'bei Änderung kann kein Eingang ohne Aviso erfolgen...
dtpAvisoEingangDatum.Visible = True
dtpAvisoEingangZeit.Visible = True
If myAviso.Telefonisch = "Telefon" Then
optTelefonisch.Checked = True
ElseIf myAviso.Telefonisch = "Schriftl." Then
optSchriftlich.Checked = True
Else
optUnbekannt.Checked = True
End If
cboGrenzstelle.Text = myAviso.Grenzstelle
cboImEx.Text = If(myAviso.ImEx, "")
hStatus = myAviso.Status
If myAviso.Ankunft = LeerDatum Then
dtpAnkunft.Value = Now.Date
dtpAnkunftZeit.Value = Now
Else
dtpAnkunft.Value = myAviso.Ankunft
dtpAnkunftZeit.Value = myAviso.Ankunft
End If
If myAviso.AvisoEingang = LeerDatum Then
dtpAvisoEingangDatum.Value = dtpDatum.Value.Date
dtpAvisoEingangZeit.Value = dtpDatum.Value
Else
dtpAvisoEingangDatum.Value = myAviso.AvisoEingang
dtpAvisoEingangZeit.Value = myAviso.AvisoEingang
End If
If myAviso.Freigabe = LeerDatum Then
dtpFreigabe.Value = Now.Date
dtpFreigabeZeit.Value = Now
Else
dtpFreigabe.Value = myAviso.Freigabe
dtpFreigabeZeit.Value = myAviso.Freigabe
End If
If myAviso.Vorbereitet = LeerDatum Then
dtpVorbereitet.Value = Now.Date
dtpVorbereitetZeit.Value = Now
Else
dtpVorbereitet.Value = myAviso.Vorbereitet
dtpVorbereitetZeit.Value = myAviso.Vorbereitet
End If
If myAviso.Vorgeschrieben = LeerDatum Then
dtpVorgeschrieben.Value = Now.Date
dtpVorgeschriebenZeit.Value = Now
Else
dtpVorgeschrieben.Value = myAviso.Vorgeschrieben
dtpVorgeschriebenZeit.Value = myAviso.Vorgeschrieben
End If
txtDauer.Text = Minuten_auf_Text(myAviso.Dauer)
cbxHandling.Checked = myAviso.Handling
cbxSammelakt.Checked = myAviso.Sammelakt
txtSendungen.Text = myAviso.Sendungen_Gesamtanzahl
If myAviso.Status <> cGlobal.Status_Erfasst Then txtInfo.Enabled = False
'optOhneAviso.Checked = txtÄnderungen.Text.Contains("Neuanlage Ankunft ohne Aviso")
'Status anzeigen
Select Case hStatus
Case cGlobal.Status_Ankunft
lblStatus.Text = "Ankunft"
If myAviso.Ankunft <> LeerDatum Then lblStatus.Text += " " & Format(myAviso.Ankunft, "dd.MM. HH:mm")
lblStatus.ForeColor = Color.Blue
optAnkunft.Checked = True
Case cGlobal.Status_Erfasst
lblStatus.Text = "erfasst"
lblStatus.ForeColor = Color.Red
optErfasst.Checked = True
Case cGlobal.Status_Freigegeben
lblStatus.Text = "Freigabe " & Format(myAviso.Freigabe, "dd.MM. HH:mm")
lblStatus.ForeColor = Color.Green
btnOK.Enabled = bearb
optFreigegeben.Checked = True
Case cGlobal.Status_NichtEingetroffen
lblStatus.Text = "LKW nicht eingetroffen"
lblStatus.ForeColor = Color.DarkGray
btnOK.Enabled = bearb
optNichtEingetroffen.Checked = True
Case cGlobal.Status_Vorbereitet
lblStatus.Text = "Vorbereitet"
lblStatus.ForeColor = Color.Brown
btnOK.Enabled = bearb
optVorbereitet.Checked = True
Case cGlobal.Status_Vorgeschrieben
lblStatus.Text = "Vorgeschrieben"
lblStatus.ForeColor = Color.Purple
btnOK.Enabled = bearb
optVorgeschrieben.Checked = True
Case Else
lblStatus.Text = ""
End Select
lblStatus.Text = " " & lblStatus.Text & " " 'für bessere farbliche Hervorhebung
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_ZeitenBearbeiten", "SDL") Then
panAdmin.Visible = bearb 'Administrator bekommt mehr Edit-Möglichkeiten
End If
' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
txtBestimmungszollstelle.SET_VALUE(If(myAviso.Zollstelle, ""))
' End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
cbxAktenzettelDrucken.Checked = AktenzetteldruckenVisible
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle1.SET_VALUE(If(myAviso.Durchgangszollstelle1, ""))
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle2.SET_VALUE(If(myAviso.Durchgangszollstelle2, ""))
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle3.SET_VALUE(If(myAviso.Durchgangszollstelle3, ""))
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle4.SET_VALUE(If(myAviso.Durchgangszollstelle4, ""))
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle5.SET_VALUE(If(myAviso.Durchgangszollstelle5, ""))
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle6.SET_VALUE(If(myAviso.Durchgangszollstelle6, ""))
UsrCntlEintragAvisoAtilla.txtAusgangszstAndere.Text = ""
If myAviso.Ausgangszollstelle IsNot Nothing Then
For Each s In myAviso.Ausgangszollstelle.split(";")
Select Case s
Case "KA" : UsrCntlEintragAvisoAtilla.rbtnKaptainAndreevo.Checked = True
Case "L" : UsrCntlEintragAvisoAtilla.rbtnLesovo.Checked = True
Case "BB" : UsrCntlEintragAvisoAtilla.rbtnBatrovici.Checked = True
Case "HR" : UsrCntlEintragAvisoAtilla.rbtnHorgos.Checked = True
Case "TK" : UsrCntlEintragAvisoAtilla.rbtnTompa.Checked = True
Case "T" : UsrCntlEintragAvisoAtilla.rbtnTrieste.Checked = True
Case "KI" : UsrCntlEintragAvisoAtilla.rbtnKipi.Checked = True
Case "TS" : UsrCntlEintragAvisoAtilla.rbtnTovarnik.Checked = True
Case Else : If s <> "" Then UsrCntlEintragAvisoAtilla.rbtnAndere.Checked = True : UsrCntlEintragAvisoAtilla.txtAusgangszstAndere.Text = s
End Select
Next
txtInfo.Text = myAviso.Info.Trim
txtLKW_Nr.Text = myAviso.LKW_Nr
sbLkwNationalitaet.SET_VALUE(myAviso.LKW_Nationalitaet)
txtFahrerHandy.Text = If(myAviso.FahrerHandy, "")
txtAvisiererAuftragsNr.Text = If(myAviso.KdAuftragsNr_Avisierer, "")
If myAviso.VoraussichtlichesEintreffen IsNot Nothing Then
datVoraussichtlichesEintreffen.Value = myAviso.VoraussichtlichesEintreffen
Else
datVoraussichtlichesEintreffen.Value = myAviso.Datum.AddDays(-1)
End If
UsrCntlEintragAvisoAtilla.txtTransporttemp.Text = If(myAviso.TransportTemperatur, "")
UsrCntlEintragAvisoAtilla.txtZugmaschine.Text = If(myAviso.Zugmaschine, "")
Dim sndId = ADMIN.getValueTxtBySql("SELECT TOP 1 isnull(tblSnd_SendungID,-1) FROM [tblSendungen] WHERE [tblSnd_AvisoID]=" & myAviso.AvisoID, "AVISO")
If IsNumeric(sndId) AndAlso sndId > 0 Then
TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
txtÄnderungen.Text = myAviso.Änderungen.Trim
optOhneAviso.Visible = False 'bei Änderung kann kein Eingang ohne Aviso erfolgen, da Datum bereits bei Anlage gesetzt
optAvisoEingang.Checked = True 'bei Änderung kann kein Eingang ohne Aviso erfolgen...
dtpAvisoEingangDatum.Visible = True
dtpAvisoEingangZeit.Visible = True
If myAviso.Telefonisch = "Telefon" Then
optTelefonisch.Checked = True
ElseIf myAviso.Telefonisch = "Schriftl." Then
optSchriftlich.Checked = True
Else
optUnbekannt.Checked = True
End If
cboGrenzstelle.Text = myAviso.Grenzstelle
cboImEx.Text = If(myAviso.ImEx, "")
hStatus = myAviso.Status
If myAviso.Ankunft = LeerDatum Then
dtpAnkunft.Value = Now.Date
dtpAnkunftZeit.Value = Now
Else
dtpAnkunft.Value = myAviso.Ankunft
dtpAnkunftZeit.Value = myAviso.Ankunft
End If
If myAviso.AvisoEingang = LeerDatum Then
dtpAvisoEingangDatum.Value = dtpDatum.Value.Date
dtpAvisoEingangZeit.Value = dtpDatum.Value
Else
dtpAvisoEingangDatum.Value = myAviso.AvisoEingang
dtpAvisoEingangZeit.Value = myAviso.AvisoEingang
End If
If myAviso.Freigabe = LeerDatum Then
dtpFreigabe.Value = Now.Date
dtpFreigabeZeit.Value = Now
Else
dtpFreigabe.Value = myAviso.Freigabe
dtpFreigabeZeit.Value = myAviso.Freigabe
End If
If myAviso.Vorbereitet = LeerDatum Then
dtpVorbereitet.Value = Now.Date
dtpVorbereitetZeit.Value = Now
Else
dtpVorbereitet.Value = myAviso.Vorbereitet
dtpVorbereitetZeit.Value = myAviso.Vorbereitet
End If
If myAviso.Vorgeschrieben = LeerDatum Then
dtpVorgeschrieben.Value = Now.Date
dtpVorgeschriebenZeit.Value = Now
Else
dtpVorgeschrieben.Value = myAviso.Vorgeschrieben
dtpVorgeschriebenZeit.Value = myAviso.Vorgeschrieben
End If
txtDauer.Text = Minuten_auf_Text(myAviso.Dauer)
cbxHandling.Checked = myAviso.Handling
cbxSammelakt.Checked = myAviso.Sammelakt
txtSendungen.Text = myAviso.Sendungen_Gesamtanzahl
If myAviso.Status <> cGlobal.Status_Erfasst Then txtInfo.Enabled = False
'optOhneAviso.Checked = txtÄnderungen.Text.Contains("Neuanlage Ankunft ohne Aviso")
'Status anzeigen
Select Case hStatus
Case cGlobal.Status_Ankunft
lblStatus.Text = "Ankunft"
If myAviso.Ankunft <> LeerDatum Then lblStatus.Text += " " & Format(myAviso.Ankunft, "dd.MM. HH:mm")
lblStatus.ForeColor = Color.Blue
optAnkunft.Checked = True
Case cGlobal.Status_Erfasst
lblStatus.Text = "erfasst"
lblStatus.ForeColor = Color.Red
optErfasst.Checked = True
Case cGlobal.Status_Freigegeben
lblStatus.Text = "Freigabe " & Format(myAviso.Freigabe, "dd.MM. HH:mm")
lblStatus.ForeColor = Color.Green
btnOK.Enabled = bearb
optFreigegeben.Checked = True
Case cGlobal.Status_NichtEingetroffen
lblStatus.Text = "LKW nicht eingetroffen"
lblStatus.ForeColor = Color.DarkGray
btnOK.Enabled = bearb
optNichtEingetroffen.Checked = True
Case cGlobal.Status_Vorbereitet
lblStatus.Text = "Vorbereitet"
lblStatus.ForeColor = Color.Brown
btnOK.Enabled = bearb
optVorbereitet.Checked = True
Case cGlobal.Status_Vorgeschrieben
lblStatus.Text = "Vorgeschrieben"
lblStatus.ForeColor = Color.Purple
btnOK.Enabled = bearb
optVorgeschrieben.Checked = True
Case Else
lblStatus.Text = ""
End Select
lblStatus.Text = " " & lblStatus.Text & " " 'für bessere farbliche Hervorhebung
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_ZeitenBearbeiten", "SDL") Then
panAdmin.Visible = bearb 'Administrator bekommt mehr Edit-Möglichkeiten
End If
If TMP_SND_Atilla IsNot Nothing Then
UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text = If(TMP_SND_Atilla.tblSnd_Warenbezeichnung, "")
UsrCntlEintragAvisoAtilla.txtColli.Text = If(TMP_SND_Atilla.tblSnd_Colli, "")
UsrCntlEintragAvisoAtilla.txtGewicht.Text = If(TMP_SND_Atilla.tblSnd_Gewicht, "")
UsrCntlEintragAvisoAtilla.txtAnmerkung.Text = If(TMP_SND_Atilla.tblSnd_Anmerkung, "")
If TMP_SND_Atilla.tblSnd_AuftraggeberKdNr > 0 Then
kdAuftraggeber.KdNr = TMP_SND_Atilla.tblSnd_AuftraggeberKdNr
Else
kdAuftraggeber.Text = TMP_SND_Atilla.tblSnd_Auftraggeber
' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
txtBestimmungszollstelle.SET_VALUE(If(myAviso.Zollstelle, ""))
' End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
cbxAktenzettelDrucken.Checked = AktenzetteldruckenVisible
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle1.SET_VALUE(If(myAviso.Durchgangszollstelle1, ""))
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle2.SET_VALUE(If(myAviso.Durchgangszollstelle2, ""))
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle3.SET_VALUE(If(myAviso.Durchgangszollstelle3, ""))
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle4.SET_VALUE(If(myAviso.Durchgangszollstelle4, ""))
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle5.SET_VALUE(If(myAviso.Durchgangszollstelle5, ""))
UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle6.SET_VALUE(If(myAviso.Durchgangszollstelle6, ""))
UsrCntlEintragAvisoAtilla.txtAusgangszstAndere.Text = ""
If myAviso.Ausgangszollstelle IsNot Nothing Then
For Each s In myAviso.Ausgangszollstelle.split(";")
Select Case s
Case "KA" : UsrCntlEintragAvisoAtilla.rbtnKaptainAndreevo.Checked = True
Case "L" : UsrCntlEintragAvisoAtilla.rbtnLesovo.Checked = True
Case "BB" : UsrCntlEintragAvisoAtilla.rbtnBatrovici.Checked = True
Case "HR" : UsrCntlEintragAvisoAtilla.rbtnHorgos.Checked = True
Case "TK" : UsrCntlEintragAvisoAtilla.rbtnTompa.Checked = True
Case "T" : UsrCntlEintragAvisoAtilla.rbtnTrieste.Checked = True
Case "KI" : UsrCntlEintragAvisoAtilla.rbtnKipi.Checked = True
Case "TS" : UsrCntlEintragAvisoAtilla.rbtnTovarnik.Checked = True
Case Else : If s <> "" Then UsrCntlEintragAvisoAtilla.rbtnAndere.Checked = True : UsrCntlEintragAvisoAtilla.txtAusgangszstAndere.Text = s
End Select
Next
End If
UsrCntlEintragAvisoAtilla.txtTransporttemp.Text = If(myAviso.TransportTemperatur, "")
UsrCntlEintragAvisoAtilla.txtZugmaschine.Text = If(myAviso.Zugmaschine, "")
Dim sndId = ADMIN.getValueTxtBySql("SELECT TOP 1 isnull(tblSnd_SendungID,-1) FROM [tblSendungen] WHERE [tblSnd_AvisoID]=" & myAviso.AvisoID, "AVISO")
If IsNumeric(sndId) AndAlso sndId > 0 Then
TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
End If
If TMP_SND_Atilla IsNot Nothing Then
UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text = If(TMP_SND_Atilla.tblSnd_Warenbezeichnung, "")
UsrCntlEintragAvisoAtilla.txtColli.Text = If(TMP_SND_Atilla.tblSnd_Colli, "")
UsrCntlEintragAvisoAtilla.txtGewicht.Text = If(TMP_SND_Atilla.tblSnd_Gewicht, "")
UsrCntlEintragAvisoAtilla.txtAnmerkung.Text = If(TMP_SND_Atilla.tblSnd_Anmerkung, "")
If TMP_SND_Atilla.tblSnd_AuftraggeberKdNr > 0 Then
kdAuftraggeber.KdNr = TMP_SND_Atilla.tblSnd_AuftraggeberKdNr
Else
kdAuftraggeber.Text = TMP_SND_Atilla.tblSnd_Auftraggeber
End If
End If
End If
End If
End If
If bearb Then Me.Text += " (Verwaltung)"
If bearb Then Me.Text += " (Verwaltung)"
hÄnderung = False
@@ -502,7 +519,7 @@ Public Class frmEintragAviso
lblErr_Uhrzeit.Visible = False
lblErr_LKW.Visible = False
lblSendungsanzahl.Visible = False
lblErrVorraussuchtlEintreffen.Visible = False
If CDate(dtpAvisoEingangDatum.Value) > Now Then
MsgBox("Aviso-Datum darf nicht in der Zukunft liegen!", vbInformation)
@@ -552,7 +569,14 @@ Public Class frmEintragAviso
End If
If cGlobal.Aktive_ID = 0 Then ' nur wenn Neuanlage!
If datVoraussichtlichesEintreffen.Visible AndAlso CDate(datVoraussichtlichesEintreffen.Value.ToShortDateString) < CDate(dtpDatum.Value.ToShortDateString) Then 'ohne Uhrzeit
lblErrVorraussuchtlEintreffen.Visible = True
datVoraussichtlichesEintreffen.Focus()
Exit Sub
End If
End If
If cboImEx.Visible Then 'cGlobal.AktiverMitarbeiter.Abteilung = "QS" Or cGlobal.AktiverMitarbeiter.Grenzstelle = "WAI" Then
@@ -669,8 +693,15 @@ Public Class frmEintragAviso
myAviso.LKW_Nr = txtLKW_Nr.Text.Trim.Replace(" ", "")
myAviso.LKW_Nationalitaet = sbLkwNationalitaet._value
myAviso.DakosyRef = SQL.isNullNothing(txtDyRef.Text.Trim)
If datVoraussichtlichesEintreffen.Visible Then
myAviso.VoraussichtlichesEintreffen = datVoraussichtlichesEintreffen.Value
Else
myAviso.VoraussichtlichesEintreffen = Nothing
End If
myAviso.FahrerHandy = If(txtFahrerHandy.Text.Trim <> "", txtFahrerHandy.Text.Trim, Nothing)
myAviso.KdAuftragsNr_Avisierer = If(txtAvisiererAuftragsNr.Text.Trim <> "", txtAvisiererAuftragsNr.Text.Trim, Nothing)
If cbxFrächterUnbekannt.Checked Then
@@ -746,11 +777,13 @@ Public Class frmEintragAviso
aendText = "Änderung per Eingabefenster von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
End If
Dim DatAnkunftNow = AVISOFUNC.getAnkunftDateNow()
If optAvisoEingang.Checked Then
myAviso.AvisoEingang = dtpAvisoEingangDatum.Value.Date + dtpAvisoEingangZeit.Value.TimeOfDay
Else 'ohne AVISO
myAviso.AvisoEingang = Now
myAviso.Ankunft = Now
myAviso.Ankunft = DatAnkunftNow
myAviso.Status = cGlobal.Status_Ankunft
End If
@@ -1029,7 +1062,7 @@ Public Class frmEintragAviso
Catch ex As Exception
Me.Cursor = Cursors.Default
MsgBox(ex.Message)
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
@@ -1061,6 +1094,7 @@ Public Class frmEintragAviso
Case "WAI" : filialeNr = 5103
Case "NKD" : filialeNr = 5303
Case "SFD" : filialeNr = 4839
Case "NEU" : filialeNr = 4819
Case "???", "" : If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_standartFiliale > 0 Then filialeNr = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_standartFiliale
End Select
ElseIf (cnt - txtSendungen.Text) <= txtSndFiskalAT.Text Then
@@ -1497,7 +1531,7 @@ Public Class frmEintragAviso
Private Sub cboGrenzstelle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboGrenzstelle.SelectedIndexChanged
cboImEx.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED")
' cboImEx.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED")
Label1.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED")
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
@@ -1562,6 +1596,9 @@ Public Class frmEintragAviso
End Sub
Private Sub optAvisoEingang_CheckedChanged(sender As Object, e As EventArgs) Handles optAvisoEingang.CheckedChanged
datVoraussichtlichesEintreffen.Visible = optAvisoEingang.Checked
' Button5.Visible = optAvisoEingang.Checked
Label24.Visible = optAvisoEingang.Checked
If optOhneAviso.Checked Then cbxAktenzettelDrucken.Checked = False
End Sub
@@ -1603,4 +1640,16 @@ Public Class frmEintragAviso
kdFrächter.Text = kdAvisierer.Text
End If
End Sub
Private Sub dgvAnhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick, dgvAnhaenge.CellContentDoubleClick
Try
If dgvAnhaenge.SelectedRows.Count > 0 Then
If dgvAnhaenge.SelectedRows(0).Cells(1).Value <> "" Then
Process.Start(dgvAnhaenge.SelectedRows(0).Cells(1).Value)
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
End Class