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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-09-23 07:23:26 +02:00
parent 81905f2f44
commit bead6bad6d
34 changed files with 1873 additions and 878 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/Classes/cSendungsoptions.vb
View File

@@ -276,11 +276,11 @@ Public Class SendungOptions
End If
If dt.Rows.Count > 1 Then
VALUES.Frachtfuehrer_Bar_BelegNr2 = getBenutzerShort(dt.Rows(0)("Benutzer").ToString) & " / " & dt.Rows(1)("rksv_BelegId").ToString
VALUES.Frachtfuehrer_Bar_BelegNr2 = getBenutzerShort(dt.Rows(1)("Benutzer").ToString) & " / " & dt.Rows(1)("rksv_BelegId").ToString
VALUES.Frachtfuehrer_Bar_Betrag2 = CDbl(dt.Rows(1)("rksv_umsatz")).ToString("C2")
End If
If dt.Rows.Count > 2 Then
VALUES.Frachtfuehrer_Bar_BelegNr3 = getBenutzerShort(dt.Rows(0)("Benutzer").ToString) & " / " & dt.Rows(2)("rksv_BelegId").ToString
VALUES.Frachtfuehrer_Bar_BelegNr3 = getBenutzerShort(dt.Rows(2)("Benutzer").ToString) & " / " & dt.Rows(2)("rksv_BelegId").ToString
VALUES.Frachtfuehrer_Bar_Betrag3 = CDbl(dt.Rows(2)("rksv_umsatz")).ToString("C2")
End If
Catch ex As Exception