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

Änderungen Datenabfrage

Browse Source
This commit is contained in:
ja
2021-11-03 13:14:20 +01:00
parent 2a4d657856
commit be99a1e707
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Customers/Invoices.aspx.vb
View File

@@ -319,15 +319,15 @@ Partial Class Customers_Default3
End Try
Else
Try
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
datevon = CDate(pickdate1.Text)
datebis = CDate(pickdate2.Text)
Catch ex As Exception
VERAG_VARIABLES.seterrorcount(14)
lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error in date time conversions"
End Try
End If
If String.IsNullOrEmpty(Kdnrtext) = False And String.IsNullOrEmpty(datevon.ToShortDateString) = False AndAlso String.IsNullOrEmpty(datebis.ToShortDateString) = False Then
If String.IsNullOrEmpty(Kdnrtext) = False AndAlso String.IsNullOrEmpty(datevon.ToShortDateString) = False AndAlso String.IsNullOrEmpty(datebis.ToShortDateString) = False Then
dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
Else
valreq_pickdate1.Validate()
@@ -338,7 +338,7 @@ Partial Class Customers_Default3
End If
End If
If dt IsNot Nothing AndAlso Not dt.Count = 0 Then
If Not dt.Count = 0 Then
Dim i As Integer = 0
For Each d In dt
Dim tr As TableRow = New TableRow