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
2021-10-20 23:37:42 +02:00
parent 2d7bb951d2
commit afaaa450e1
1 changed files with 15 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Aviso/frmEintragAviso.vb
View File

@@ -284,21 +284,23 @@ Public Class frmEintragAviso
Me.Text = "Neuanlage LKW-Aviso" Me.Text = "Neuanlage LKW-Aviso"
dtpDatum.Value = Now dtpDatum.Value = Now
datVoraussichtlichesEintreffen.Value = Now.AddDays(-1) datVoraussichtlichesEintreffen.Value = Now.AddDays(-1)
If cboFirma._value = "ATILLA" Then datVoraussichtlichesEintreffen.Value = Now 'Bei ATILLA gibt es meist kein voraussichtliches Eintreffdatum.
dtpAvisoEingangDatum.Value = Now.Date dtpAvisoEingangDatum.Value = Now.Date
dtpAvisoEingangZeit.Value = LeerDatum dtpAvisoEingangZeit.Value = LeerDatum
txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter
lblStatus.Text = "Neuanlage" lblStatus.Text = "Neuanlage"
optAvisoEingang.Checked = True optAvisoEingang.Checked = True
kdAvisierer.Text = "" kdAvisierer.Text = ""
kdAuftraggeber.Text = "" kdAuftraggeber.Text = ""
kdFrächter.Text = "" kdFrächter.Text = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then
cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG) cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
End If
End If End If
End If Else
Else Me.Text = "Änderung LKW-Aviso"
Me.Text = "Änderung LKW-Aviso"
'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False 'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False
txtInfo.Visible = False txtInfo.Visible = False