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")>

19
Aviso/frmEintragAviso.vb
View File

@@ -97,11 +97,22 @@ Public Class frmEintragAviso
kdAvisierer.initKdBox(Me) kdAvisierer.initKdBox(Me)
kdAuftraggeber.initKdBox(Me) kdAuftraggeber.initKdBox(Me)
Select Case FIRMA_TMP
Case "ATILLA"
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.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.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.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cboGrenzstelle.changeItem("") 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("", ""))
cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKW", "LKW")) cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKW", "LKW"))
@@ -271,12 +282,12 @@ Public Class frmEintragAviso
If FIRMA_TMP = "ATILLA" Then If FIRMA_TMP = "ATILLA" Then
cbxFrächterUnbekannt.Visible = True cbxFrächterUnbekannt.Visible = True
cboGrenzstelle.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") 'lblGrenze.Visible = False
' cboGrenzstelle.Visible = False
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
@@ -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