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

MIC, Fahrerdata, Formulare(VM),divers

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-30 22:19:33 +02:00
parent 89d8f5a9b2
commit 431201cdfc
32 changed files with 79314 additions and 12646 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -766,7 +766,8 @@ Public Class cSendungen
If ansprechpartner Then adresse &= If(Me.NCTS_Verzollungsadresse_Ansprechpartner, "") & vbNewLine
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 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")
End If
If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "<br/>")