edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

AMBAR Grenzstelle änderbar

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-11-14 10:49:25 +01:00
parent 5ec4a96a63
commit fd38aacd33
1 changed files with 30 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
Aviso/frmEintragAviso.vb
View File

@@ -267,30 +267,32 @@ Public Class frmEintragAviso
btnOK.Enabled = True btnOK.Enabled = True
If FIRMA_TMP = "ATILLA" Then If FIRMA_TMP = "ATILLA" Then
cbxFrächterUnbekannt.Visible = True cbxFrächterUnbekannt.Visible = True
cboGrenzstelle.Visible = False cboGrenzstelle.Visible = False
lblGrenze.Visible = False lblGrenze.Visible = False
grpAktVerzollung.Visible = False grpAktVerzollung.Visible = False
cbxSendungsvorlagen.Visible = False cbxSendungsvorlagen.Visible = False
Button3.Visible = False Button3.Visible = False
cboGrenzstelle.changeItem("SUB") cboGrenzstelle.changeItem("SUB")
cbxAuftraggeberfurAlleSendungen.Visible = False cbxAuftraggeberfurAlleSendungen.Visible = False
If ATILLA_NEUERAKTENDECKEL Then If ATILLA_NEUERAKTENDECKEL Then
UsrCntlEintragAvisoAtilla.Visible = True UsrCntlEintragAvisoAtilla.Visible = True
lblAenderungen.Visible = False lblAenderungen.Visible = False
txtÄnderungen.Visible = False txtÄnderungen.Visible = False
cbxAktenzettelDrucken.Visible = True ': cbxAktenzettelDrucken.Checked = True --> checked, wenn ohne AVISO cbxAktenzettelDrucken.Visible = True ': cbxAktenzettelDrucken.Checked = True --> checked, wenn ohne AVISO
End If
lblAtr.Visible = True
kdAuftraggeber.Visible = True
btnAuftraggeber.Visible = True
lblAtrAvis.Visible = True
End If End If
Dim bearb As Boolean = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me.FindForm)
lblAtr.Visible = True
kdAuftraggeber.Visible = True
btnAuftraggeber.Visible = True
lblAtrAvis.Visible = True
End If
Dim bearb As Boolean = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me.FindForm)
If cGlobal.Aktive_ID = 0 Then If cGlobal.Aktive_ID = 0 Then
'es erfolgt eine Neuanlage 'es erfolgt eine Neuanlage
@@ -313,6 +315,9 @@ Public Class frmEintragAviso
cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG) cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
End If End If
End If End If
If FIRMA_TMP = "ATILLA" Then
cboGrenzstelle.changeItem("AMB")
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
@@ -871,9 +876,9 @@ Public Class frmEintragAviso
myAviso.Transportmittelart = cboTransportmittelart._value myAviso.Transportmittelart = cboTransportmittelart._value
If FIRMA_TMP = "AMBAR" Then 'If FIRMA_TMP = "AMBAR" Then
myAviso.Grenzstelle = "AMB" ' myAviso.Grenzstelle = "AMB"
End If 'End If
' myAviso.Buero = cboGrenzstelle.Text ' myAviso.Buero = cboGrenzstelle.Text