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

Standort Atilla

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-01-17 21:29:41 +01:00
parent cbb1abc391
commit 51e7771e76
2 changed files with 39 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.5.0")> <Assembly: AssemblyVersion("3.8.5.2")>
<Assembly: AssemblyFileVersion("3.8.5.0")> <Assembly: AssemblyFileVersion("3.8.5.2")>

63
Aviso/frmEintragAviso.vb
View File

@@ -97,10 +97,21 @@ Public Class frmEintragAviso
kdAvisierer.initKdBox(Me) kdAvisierer.initKdBox(Me)
kdAuftraggeber.initKdBox(Me) kdAuftraggeber.initKdBox(Me)
cboGrenzstelle.Items.Clear()
cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & FIRMA_TMP & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE") Select Case FIRMA_TMP
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???")) Case "ATILLA"
cboGrenzstelle.changeItem("") cboGrenzstelle.Items.Clear()
cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Grenzstelle] IN ('SUB','NEU') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False)
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
'cboGrenzstelle.changeItem("")
Case Else
cboGrenzstelle.Items.Clear()
cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & FIRMA_TMP & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cboGrenzstelle.changeItem("")
End Select
cboTransportmittelart.Items.Clear() cboTransportmittelart.Items.Clear()
cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -270,29 +281,29 @@ Public Class frmEintragAviso
If FIRMA_TMP = "ATILLA" Then If FIRMA_TMP = "ATILLA" Then
cbxFrächterUnbekannt.Visible = True cbxFrächterUnbekannt.Visible = True
cboGrenzstelle.Visible = False grpAktVerzollung.Visible = False
lblGrenze.Visible = False cbxSendungsvorlagen.Visible = False
grpAktVerzollung.Visible = False Button3.Visible = False
cbxSendungsvorlagen.Visible = False 'lblGrenze.Visible = False
Button3.Visible = False ' cboGrenzstelle.Visible = False
cboGrenzstelle.changeItem("SUB") cboGrenzstelle.changeItem(If(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG, "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
@@ -315,7 +326,7 @@ 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 If FIRMA_TMP = "AMBAR" Then
cboGrenzstelle.changeItem("AMB") cboGrenzstelle.changeItem("AMB")
End If End If
Else Else