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

Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Browse Source
This commit is contained in:
d.breimaier
2023-01-18 17:11:10 +01:00
parent 40fbf9a51c cbd79cf2f7
commit f4f8ab91a4
1 changed files with 37 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
Aviso/frmEintragAviso.vb
View File

@@ -97,10 +97,21 @@ Public Class frmEintragAviso
kdAvisierer.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")
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cboGrenzstelle.changeItem("")
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.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.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -270,29 +281,29 @@ Public Class frmEintragAviso
If FIRMA_TMP = "ATILLA" Then
cbxFrächterUnbekannt.Visible = True
cboGrenzstelle.Visible = False
lblGrenze.Visible = False
grpAktVerzollung.Visible = False
cbxSendungsvorlagen.Visible = False
Button3.Visible = False
cboGrenzstelle.changeItem("SUB")
cbxAuftraggeberfurAlleSendungen.Visible = False
If ATILLA_NEUERAKTENDECKEL Then
UsrCntlEintragAvisoAtilla.Visible = True
lblAenderungen.Visible = False
txtÄnderungen.Visible = False
cbxAktenzettelDrucken.Visible = True ': cbxAktenzettelDrucken.Checked = True --> checked, wenn ohne AVISO
End If
lblAtr.Visible = True
kdAuftraggeber.Visible = True
btnAuftraggeber.Visible = True
lblAtrAvis.Visible = True
cbxFrächterUnbekannt.Visible = True
grpAktVerzollung.Visible = False
cbxSendungsvorlagen.Visible = False
Button3.Visible = False
'lblGrenze.Visible = False
' cboGrenzstelle.Visible = False
cboGrenzstelle.changeItem(If(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG, "SUB"))
cbxAuftraggeberfurAlleSendungen.Visible = False
If ATILLA_NEUERAKTENDECKEL Then
UsrCntlEintragAvisoAtilla.Visible = True
lblAenderungen.Visible = False
txtÄnderungen.Visible = False
cbxAktenzettelDrucken.Visible = True ': cbxAktenzettelDrucken.Checked = True --> checked, wenn ohne AVISO
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
'es erfolgt eine Neuanlage
@@ -315,7 +326,7 @@ Public Class frmEintragAviso
cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
End If
End If
If FIRMA_TMP = "ATILLA" Then
If FIRMA_TMP = "AMBAR" Then
cboGrenzstelle.changeItem("AMB")
End If
Else