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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-03-19 22:52:06 +01:00
parent 9b001e5803
commit d9204781cf
139 changed files with 19394 additions and 3352 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -1723,8 +1723,16 @@ Public Class usrCntlSpeditionsBuchSuche
rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Absender").Value)
rpt.lblEmpfKdNr.Text = checkNull(rpt.Fields.Item("EmpfängerKundenNr").Value)
rpt.lblEmpf.Text = checkNull(rpt.Fields.Item("Empfänger").Value)
rpt.lblEndEmpfKdNr.Text = checkNull(rpt.Fields.Item("EndEmpfängerKundenNr").Value)
rpt.lblEndEmpf.Text = checkNull(rpt.Fields.Item("EndEmpfänger").Value)
'Wenn EndEmpf leer --> Empfänger eintragen:
Dim EndEmpf = checkNull(rpt.Fields.Item("EndEmpfänger").Value)
If EndEmpf <> "" Then
rpt.lblEndEmpfKdNr.Text = checkNull(rpt.Fields.Item("EndEmpfängerKundenNr").Value)
rpt.lblEndEmpf.Text = checkNull(rpt.Fields.Item("EndEmpfänger").Value)
Else
rpt.lblEndEmpfKdNr.Text = checkNull(rpt.Fields.Item("EmpfängerKundenNr").Value)
rpt.lblEndEmpf.Text = checkNull(rpt.Fields.Item("Empfänger").Value)
End If
rpt.lblAuftrKdNr.Text = checkNull(rpt.Fields.Item("VermittlerKundenNr").Value)
rpt.lblAuftr.Text = checkNull(rpt.Fields.Item("Vermittler").Value)
rpt.lblFrachtfKdNr.Text = checkNull(rpt.Fields.Item("FrachtführerKundenNr").Value)