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

neu 3.5.5.5

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-10-21 07:40:55 +02:00
parent ff29a8d491
commit 4f81004835
8 changed files with 649 additions and 474 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/frmEintragAviso.vb
View File

@@ -1577,7 +1577,7 @@ Public Class frmEintragAviso
Label1.Visible = (cboGrenzstelle.Text = "WAI" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG", "FRONTOFFICE", "UNISPED", "IMEX"
Case "VERAG", "FRONTOFFICE", "UNISPED", "IMEX", "AMBAR"
If cboGrenzstelle.Text = "???" Then
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})