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"
dtpDatum.Value = Now
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
dtpAvisoEingangZeit.Value = LeerDatum
txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter
lblStatus.Text = "Neuanlage"
optAvisoEingang.Checked = True
kdAvisierer.Text = ""
kdAuftraggeber.Text = ""
kdFrächter.Text = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then
cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
dtpAvisoEingangZeit.Value = LeerDatum
txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter
lblStatus.Text = "Neuanlage"
optAvisoEingang.Checked = True
kdAvisierer.Text = ""
kdAuftraggeber.Text = ""
kdFrächter.Text = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then
cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
End If
End If
End If
Else
Me.Text = "Änderung LKW-Aviso"
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