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

creditsafe-bugfix, fiskalübersicht

Browse Source
This commit is contained in:
d.breimaier
2023-07-12 17:28:09 +02:00
parent 45303febd0
commit 69a52e6a24
4 changed files with 111 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

116
SDL/kunden/usrcntlFiskaluebersicht.vb
View File

@@ -1,5 +1,6 @@

Imports System.Globalization
Imports System.Linq.Expressions
Imports System.Net
Imports System.Text.RegularExpressions
Imports com.sun.tools.doclets.internal.toolkit.util
@@ -247,6 +248,7 @@ Public Class usrcntlFiskaluebersicht
Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click
Try
Me.Cursor = Cursors.WaitCursor
Dim listeUnterlagen As New List(Of String)
If dgvUnterlagen.Rows.Count > 0 Then
@@ -290,13 +292,13 @@ Public Class usrcntlFiskaluebersicht
End If
End If
End If
End If
Dim MailFileUVM
If UVM IsNot Nothing Then
If UVM.kdvm_datenarchivId > 0 Then files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(UVM.kdvm_datenarchivId))
If UVM.kdvm_emailId > 0 Then
MailFileUVM = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(UVM.kdvm_emailId)
Dim MailFileUVM
If UVM IsNot Nothing Then
If UVM.kdvm_datenarchivId > 0 Then files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(UVM.kdvm_datenarchivId))
If UVM.kdvm_emailId > 0 Then
MailFileUVM = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(UVM.kdvm_emailId)
If Not System.IO.File.Exists(MailFileUVM) Then
MsgBox("Die Datei Untervollmacht existiert nicht!")
@@ -312,21 +314,22 @@ Public Class usrcntlFiskaluebersicht
End If
End If
If BA IsNot Nothing Then
If BA.ba_datenarchivId > 0 Then files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(BA.ba_datenarchivId))
End If
For Each r As DataGridViewRow In dgvUnterlagen.Rows
files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("fka_docId").Value))
Next
VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile)
End If
If BA IsNot Nothing Then
If BA.ba_datenarchivId > 0 Then files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(BA.ba_datenarchivId))
End If
For Each r As DataGridViewRow In dgvUnterlagen.Rows
files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("fka_docId").Value))
Next
VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile)
Process.Start(outputFile)
Me.Cursor = Cursors.Default
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Me.Cursor = Cursors.Default
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
@@ -359,6 +362,9 @@ Public Class usrcntlFiskaluebersicht
Private Sub dgvFiskaluebersicht_SelectionChanged(sender As Object, e As EventArgs) Handles dgvFiskaluebersicht.SelectionChanged
If dgvFiskaluebersicht.SelectedRows.Count > 0 Then
fk = New cFiskalkunden(dgvFiskaluebersicht.SelectedRows(0).Cells("FK_Id").Value)
@@ -375,14 +381,17 @@ Public Class usrcntlFiskaluebersicht
Button4.Enabled = True
setAbschlusstxt(locked)
BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr)
setControlButtons()
Else
Button4.Enabled = False
clearTXT()
End If
BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr)
setControlButtons()
'BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr)
'setControlButtons()
End Sub
@@ -868,6 +877,7 @@ Public Class usrcntlFiskaluebersicht
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Cursor = Cursors.WaitCursor
Dim url As String = ""
lblWarning.Text = ""
txtHomepage.ForeColor = Color.Black
@@ -878,6 +888,7 @@ Public Class usrcntlFiskaluebersicht
If anh_list.Count > 0 Then
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(anh_list.ElementAt(0).fka_docId)
DS.OPEN_SINGLE()
Me.Cursor = Cursors.Default
Exit Sub
End If
@@ -885,26 +896,13 @@ Public Class usrcntlFiskaluebersicht
If txtHomepage.Text = "" Then
picOK.Visible = False
Me.Cursor = Cursors.Default
Exit Sub
End If
If Not IsValidURL(txtHomepage.Text) Then Exit Sub
Dim req As System.Net.WebRequest
Dim res As System.Net.WebResponse
Try
url = txtHomepage.Text
req = System.Net.WebRequest.Create(url)
res = req.GetResponse()
Catch ex As WebException
lblWarning.Text = ex.Message
txtHomepage.ForeColor = Color.Red
picOK.Visible = False
Exit Sub
End Try
If Not checkWebsite(url) Then Exit Sub
Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url) 'UU langsam....
@@ -931,6 +929,7 @@ Public Class usrcntlFiskaluebersicht
If Not cbxHomepage.Checked Then cbxHomepage.Checked = True
initDGVUnterlagen()
Me.Cursor = Cursors.Default
End Sub
@@ -1035,12 +1034,16 @@ Public Class usrcntlFiskaluebersicht
Private Sub setControlButtons()
If fk.FK_locked Then
btnSave.Enabled = False
btnOK.Enabled = False
Exit Sub
If fk IsNot Nothing Then
If fk.FK_locked Then
btnSave.Enabled = False
btnOK.Enabled = False
Exit Sub
End If
End If
For Each c As Control In MyPanel1.Controls
c.Enabled = dgvFiskaluebersicht.SelectedRows.Count > 0
@@ -1089,21 +1092,7 @@ Public Class usrcntlFiskaluebersicht
If Not IsValidURL(txtWebsiteSt.Text) Then Exit Sub
Dim req As System.Net.WebRequest
Dim res As System.Net.WebResponse
Try
url = txtWebsiteSt.Text
req = System.Net.WebRequest.Create(url)
res = req.GetResponse()
Catch ex As WebException
lblWarning.Text = ex.Message
txtWebsiteSt.ForeColor = Color.Red
picOKSt.Visible = False
Exit Sub
End Try
If Not checkWebsite(url) Then Exit Sub
Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url) 'UU langsam....
@@ -1127,4 +1116,27 @@ Public Class usrcntlFiskaluebersicht
initDGVUnterlagen()
End Sub
Private Function checkWebsite(url As String) As Boolean
Dim req As System.Net.HttpWebRequest
Dim res As System.Net.HttpWebResponse
Try
url = txtHomepage.Text
req = System.Net.HttpWebRequest.Create(url)
req.Timeout = 5000
req.UserAgent = "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/65.0.3325.181 Safari/537.36"
res = req.GetResponse()
Catch ex As WebException
lblWarning.Text = ex.Message
txtHomepage.ForeColor = Color.Red
picOK.Visible = False
Me.Cursor = Cursors.Default
Return False
End Try
Return True
End Function
End Class