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

divers

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-30 22:17:55 +02:00
parent dc3b07e539
commit 120fa35a97
9 changed files with 185 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Aviso/frmAnkunftAendern.vb
View File

@@ -25,7 +25,8 @@
If AVISO Is Nothing Then Exit Sub
If AVISO.Grenzstelle.Replace("???", "") = "" Then
If AVISO.Zollstelle IsNot Nothing Then
btnAktGrenze.Text = SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
' btnAktGrenze.Text = SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
btnAktGrenze.Text = SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
Else
btnAktGrenze.Text = AVISO.Grenzstelle
End If