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

Zollstelle

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-10-10 15:34:12 +02:00
parent bca4ac492c
commit 9944bfc50a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -770,7 +770,7 @@ Public Class cSendungen
If Bestimmungszollstelle And If(Me.NCTS_Bestimmungszollstelle, "") <> "" Then
'adresse &= SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & Me.NCTS_Bestimmungszollstelle & "' ", "ATLAS")
adresse &= SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM basncd WHERE Code='" & Me.NCTS_Bestimmungszollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())) order by left(Code,2), Description ", "FMZOLL")
adresse &= SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & Me.NCTS_Bestimmungszollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())) order by left(Code,2), Description ", "FMZOLL")
End If
If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "<br/>")