Fiskaluebersicht

SDL/kunden/frmKundenUebersichtZOLL.Designer.vb

@@ -95,6 +95,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.Label40 = New System.Windows.Forms.Label()
         Me.tbSpeditionsbuch = New System.Windows.Forms.TabPage()
         Me.tbFiskaluebersicht = New System.Windows.Forms.TabPage()
+        Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
         Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.MenuStripKunden = New System.Windows.Forms.MenuStrip()
@@ -168,6 +169,7 @@ Partial Class frmKundenUebersichtZOLL
         CType(Me.dgvRg, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.MyPanel1.SuspendLayout()
         Me.ctxtRg.SuspendLayout()
+        Me.tbFiskaluebersicht.SuspendLayout()
         Me.Panel1.SuspendLayout()
         Me.MenuStripKunden.SuspendLayout()
         Me.pnlTop.SuspendLayout()
@@ -963,6 +965,7 @@ Partial Class frmKundenUebersichtZOLL
         '
         'tbFiskaluebersicht
         '
+        Me.tbFiskaluebersicht.Controls.Add(Me.UsrcntlFiskaluebersicht1)
         Me.tbFiskaluebersicht.Location = New System.Drawing.Point(4, 25)
         Me.tbFiskaluebersicht.Name = "tbFiskaluebersicht"
         Me.tbFiskaluebersicht.Size = New System.Drawing.Size(1182, 697)
@@ -970,6 +973,15 @@ Partial Class frmKundenUebersichtZOLL
         Me.tbFiskaluebersicht.Text = "Fiskaluebersicht"
         Me.tbFiskaluebersicht.UseVisualStyleBackColor = True
         '
+        'UsrcntlFiskaluebersicht1
+        '
+        Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
+        Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
+        Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697)
+        Me.UsrcntlFiskaluebersicht1.TabIndex = 0
+        '
         'NotifyIcon1
         '
         Me.NotifyIcon1.Text = "NotifyIcon1"
@@ -1507,6 +1519,7 @@ Partial Class frmKundenUebersichtZOLL
         Me.MyPanel1.ResumeLayout(False)
         Me.MyPanel1.PerformLayout()
         Me.ctxtRg.ResumeLayout(False)
+        Me.tbFiskaluebersicht.ResumeLayout(False)
         Me.Panel1.ResumeLayout(False)
         Me.MenuStripKunden.ResumeLayout(False)
         Me.MenuStripKunden.PerformLayout()
@@ -1635,4 +1648,5 @@ Partial Class frmKundenUebersichtZOLL
     Friend WithEvents DateiHochladenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents mnueFiskaluebersicht As ToolStripMenuItem
     Friend WithEvents tbFiskaluebersicht As TabPage
+    Friend WithEvents UsrcntlFiskaluebersicht1 As usrcntlFiskaluebersicht
 End Class

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -279,6 +279,7 @@ Public Class frmKundenUebersichtZOLL
         'initDGVOffertenSperrliste()
         'initSperre()
         UsrCntlOfferte1.init(kdnr)
+        UsrcntlFiskaluebersicht1.init(kdnr)
 
         RG_MONAT = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
 

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -2405,7 +2405,7 @@ Public Class usrCntlKundenuebersicht
 
         If EORI_NR = "" Then Me.Cursor = Cursors.Default : Exit Sub
 
-        Dim url = SDL.cEORIWebService.genEORI_Formular(EORI_NR)
+        Dim url = SDL.cEORIWebService.genEORI_Formular(kdNr, EORI_NR)
 
         Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
         'If pdf <> "" Then Process.Start(pdf)
@@ -2565,6 +2565,20 @@ Public Class usrCntlKundenuebersicht
                     frmList.Show(Me)
                 End If
             Case "EORI"
+                Dim dt = SQL.loadDgvBySql("SELECT [eori_id],[eori_KdNr] KundenNr,[eori_Datum]Datum,[eori_valid]Gültig,[eori_sachbearbeiter]Sachbearbeiter FROM [tblEORIPruefung] where eori_KdNr='" & kdNr & "' ORDER BY eori_Datum desc", "FMZOLL")
+                If dt IsNot Nothing Then
+                    frmList.dgv.DataSource = dt
+                    frmList.dgv.Columns("eori_id").Visible = False
+                    'AddHandler frmList.dgv.CellDoubleClick, Sub()
+                    '                                            Dim PdfTmp = SDL.FormularManagerNEU.EORI_Antrag(frmList.dgv.SelectedRows(0).Cells("eori_id").Value)
+                    '                                            If PdfTmp <> "" Then
+                    '                                                Process.Start(PdfTmp)
+
+                    '                                            End If
+                    '                                        End Sub
+                    frmList.Show(Me)
+                End If
+
         End Select
 
 
@@ -2943,4 +2957,8 @@ Public Class usrCntlKundenuebersicht
         lblHoechstkredit._value = If(IsNumeric(If(KUNDE.Höchstkredit, "")), KUNDE.Höchstkredit, "")
 
     End Sub
+
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
+        genUIDEORIList(kdNr, "EORI")
+    End Sub
 End Class

SDL/kunden/usrcntlFiskaluebersicht.resx

@@ -140,4 +140,7 @@
         FEaPY4mTFJJ6co823Pd0fUp+pcLwB13/pHM2JK4ajYO8aVLg+wHNP9/gygoUfWs4AAAAAElFTkSuQmCC
 </value>
   </data>
+  <metadata name="cbxHomepage.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
 </root>

SDL/kunden/usrcntlFiskaluebersicht.vb

@@ -1,26 +1,97 @@
 
+Imports System.Net
+Imports System.Text.RegularExpressions
+Imports com
+Imports java.rmi.dgc
+Imports VERAG_PROG_ALLGEMEIN
+Imports SDL.EORI
+Imports DocumentFormat.OpenXml.Vml.Spreadsheet
+
 Public Class usrcntlFiskaluebersicht
 
     Dim FUNC As New cProgramFunctions
     Public kdNr As Integer = -1
     Dim SQL As New SQL
-    Public KD_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert
+    Public KUNDE As VERAG_PROG_ALLGEMEIN.cKunde
+    Public ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen
     Public Event FiskalChanged()
     Dim fk As VERAG_PROG_ALLGEMEIN.cFiskalkunden
+    Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+    Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER
 
     Sub initDGVFiskaluebersicht()
         dgvFiskaluebersicht.Columns.Clear()
 
         With dgvFiskaluebersicht
-            .DataSource = SQL.loadDgvBySql("SELECT FK_Datum as Datum  FROM tblFiskalkunden  WHERE FK_Kdnr='" & kdNr & "' ORDER BY FK_Datum ", "FMZOLL")
+            .DataSource = SQL.loadDgvBySql("SELECT FK_Id , FK_Datum, FK_Art, FK_locked FROM tblFiskalkunden  WHERE FK_Kdnr='" & kdNr & "' ORDER BY FK_Datum ", "FMZOLL")
+
             .Columns("FK_Datum").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             .Columns("FK_Datum").HeaderText = "Datum"
+            .Columns("FK_Art").Visible = False
+            .Columns("FK_locked").Visible = False
+            .Columns("FK_Id").Visible = False
+
         End With
 
     End Sub
 
+
+    Sub initDGVUnterlagen()
+
+        scanFB.INIT(kdNr, "FISKAL-" & fk.FK_Art, fk.FK_Kdnr, fk.FK_Datum)
+        scanInfo.INIT(kdNr, "FISKAL-" & fk.FK_Art, fk.FK_Kdnr, fk.FK_Datum)
+        scanPass.INIT(kdNr, "FISKAL-" & fk.FK_Art, fk.FK_Kdnr, fk.FK_Datum)
+        scanHandelsreg.INIT(kdNr, "FISKAL-" & fk.FK_Art, fk.FK_Kdnr, fk.FK_Datum)
+
+        usrcntlUnterlagen.INIT(kdNr, "FISKAL-" & fk.FK_Art, fk.FK_Kdnr, fk.FK_Datum)
+        'usrcntlUnterlagen.picAdd.Visible = False
+        If usrcntlUnterlagen.MyListBox1.Items.Count > 0 Then lblUnterlagen.Text &= " (" & usrcntlUnterlagen.MyListBox1.Items.Count & ")"
+        Exit Sub
+        With dgvUnterlagen
+            .DataSource = SQL.loadDgvBySql("SELECT [da_id],[da_pfad],[da_name]  FROM [tblDatenarchiv] " &
+                                            " WHERE [da_KundenNr]='" & kdNr & "' and [da_kategorie]='DOKUMENTE' AND da_ordner ='FISKAL-'" & fk.FK_Art & " AND da_uordner1 = '" & fk.FK_Kdnr & "' AND da_uordner2 ='" & fk.FK_Datum & "'", "FMZOLL")
+
+            .Columns("da_id").Visible = False
+            .Columns("da_pfad").Visible = False
+            .Columns("da_name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("da_name").HeaderText = "Datei"
+            .ClearSelection()
+            AddHandler .CellDoubleClick, Sub()
+                                             If dgvUnterlagen.SelectedRows.Count > 0 Then
+                                                 dgvUnterlagen.Cursor = Cursors.WaitCursor
+                                                 Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvUnterlagen.SelectedRows(0).Cells("da_id").Value)
+                                                 DS.OPEN_SINGLE(True)
+                                                 dgvUnterlagen.Cursor = Cursors.Default
+
+                                             End If
+                                         End Sub
+
+        End With
+    End Sub
+
+
+
+    Sub init(_kdnr As Integer)
+        cbxFiskalart.Items.Clear()
+        cbxFiskalart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT", "AT"))
+        cbxFiskalart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE", "DE"))
+
+        kdNr = _kdnr
+        KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
+        ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr)
+        lblUnterlagen.Text = "Unterlagen"
+        initDGVFiskaluebersicht()
+
+
+    End Sub
+
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
 
+        If cbxFiskalart._value = "" Then
+            lblWarning.Text = "Fiskalart auswählen!"
+            Exit Sub
+        End If
+
         Dim input = InputBox("Bitte geben Sie das Datum der neuen Fiskal-Übersicht ein:", "Fiskal-Übersicht anlegen")
         If input <> "" Then
             Dim hint As String
@@ -28,6 +99,7 @@ Public Class usrcntlFiskaluebersicht
                 fk = New VERAG_PROG_ALLGEMEIN.cFiskalkunden()
                 fk.FK_Datum = input
                 fk.FK_Kdnr = kdNr
+                fk.FK_Art = cbxFiskalart._value
                 fk.SAVE()
                 initDGVFiskaluebersicht()
             Else
@@ -48,15 +120,12 @@ Public Class usrcntlFiskaluebersicht
             Return False
         End If
 
-        If dgvFiskaluebersicht.Rows.Count = 0 Then Return True
-
-
         For Each row As DataGridViewRow In dgvFiskaluebersicht.Rows
             If Not IsDBNull(row.Cells("FK_Datum").Value) Then
-                If row.Cells("FK_Datum").Value.ToLower = Name.ToLower Then
-                    hint = "Es existiert bereits ein Eintrag mit " & checkDate
-                    Return False
-                End If
+                'If row.Cells("FK_Datum").Value = Name Then
+                '    hint = "Es existiert bereits ein Eintrag mit " & checkDate
+                '    Return False
+                'End If
             End If
 
         Next
@@ -65,23 +134,409 @@ Public Class usrcntlFiskaluebersicht
 
     End Function
 
-
-    Private Sub cbxBonitaet_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBonitaet.CheckedChanged
-
-    End Sub
-
     Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click
 
     End Sub
 
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
         If vbYes = MsgBox("Möchten Sie den Fiskalakt vom " & dgvFiskaluebersicht.SelectedRows(0).Cells("FK_Datum").Value & " abschließen?" & vbNewLine & "Er kann anschließend nicht mehr verändert werden", vbYesNo) Then
-            fk.FK_locked = True
-            fk.SAVE()
+            getFields()
+
+            If checkEntries() Then
+                fk.FK_locked = True
+                fk.FK_Abschlussdatum = Now()
+                fk.FK_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+                fk.SAVE()
+            End If
+            btnOK.Enabled = False
+            btnSave.Enabled = False
         End If
     End Sub
 
     Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+        getFields()
         fk.SAVE()
     End Sub
+
+
+    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)
+            Dim locked As Boolean = IIf(fk.FK_locked Is Nothing, False, fk.FK_locked)
+            setFields()
+            initDGVUnterlagen()
+            picLocked.Visible = locked
+            btnOK.Enabled = Not locked
+            btnSave.Enabled = Not locked
+            setUIenabled(locked)
+            Button4.Enabled = True
+            If locked Then
+                lblAbschluss.Text = fk.FK_MaId & " " & fk.FK_Abschlussdatum
+            Else
+                lblAbschluss.Text = ""
+            End If
+        Else
+            Button4.Enabled = False
+            clearTXT()
+        End If
+
+
+    End Sub
+
+    Private Sub setFields()
+
+        cbxFiskalart._value = checkNullStr(fk.FK_Art)
+        txtBon.Text = checkNullStr(fk.FK_Bonitaet)
+        txtHomepage.Text = checkNullStr(fk.FK_Homepage_URL)
+        txtVM.Text = checkNullStr(fk.FK_Vollmacht)
+        txtEORI.Text = checkNullStr(fk.FK_EORI)
+        txtUID.Text = checkNullStr(fk.FK_UID)
+        RichTextBox1.Text = checkNullStr(fk.FK_Anmerkung)
+
+        If txtBon.Text = "" And KUNDE.Bonitätsdatum IsNot Nothing AndAlso IsDate(KUNDE.Bonitätsdatum) Then
+            txtBon.Text = CDate(KUNDE.Bonitätsdatum).ToShortDateString
+        End If
+
+        If txtUID.Text = "" Then
+            txtUID.Text = CDate(SQL.getValueTxtBySql("SELECT TOP(1) [uid_Datum] FROM [tblUIDPruefung] where uid_KundenNr='" & kdNr & "' AND UID_valid = 1 AND uid_stufe = 2 ORDER BY uid_Datum desc", "FMZOLL")).ToShortDateString
+        End If
+
+        If txtVM.Text = "" And cbxFiskalart._value <> "" Then
+
+            Dim vmId As Integer = -1
+
+            Select Case FirmaTmp
+                Case "VERAG"
+                    If cbxFiskalart._value = "DE" Then
+                        vmId = 2
+                    ElseIf cbxFiskalart._value = "AT" Then
+                        vmId = 4
+                    End If
+
+                Case "IMEX"
+                    If cbxFiskalart._value = "DE" Then
+                        vmId = 8
+                    ElseIf cbxFiskalart._value = "AT" Then
+                        vmId = 9
+                    End If
+
+                Case "UNISPED"
+                    If cbxFiskalart._value = "DE" Then
+                        vmId = 22
+                    ElseIf cbxFiskalart._value = "AT" Then
+                        vmId = 23
+                    End If
+
+            End Select
+
+            If vmId = -1 Then
+                lblWarning.Text = "Vollmachtart für " & FirmaTmp & " kann nicht ermittelt werden"
+            Else
+                Dim vmDate = SQL.getValueTxtBySql("SELECT Top(1) abf.[kdvm_erhalten_Datum] FROM [tblKundenVollmachtenArt] as art INNER  Join(select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible = 1 And abf.kdvm_erhalten = 1 And ISNULL(abf.[kdvm_geloescht], 0)!= 1 And [kdvm_KundenNr] ='" & kdNr & "' AND [kdvm_kdvmaId]='" & vmId & "' Order BY abf.kdvm_erhalten_Datum desc", "FMZOLL")
+
+                If IsDate(vmDate) Then
+                    txtVM.Text = CDate(vmDate).ToShortDateString
+                End If
+
+            End If
+        End If
+
+        If txtHomepage.Text <> "" Then
+            cbxHomepage.Checked = IsValidURL(txtHomepage.Text)
+        Else
+            cbxHomepage.Checked = False
+            picOK.Visible = False
+        End If
+
+        If checkNullStr(KUNDE.EORITIN) <> "" Then
+
+            Dim EORI = cEORIPruefung.LOADByKdNrDate(kdNr)
+            If EORI IsNot Nothing Then
+                txtEORI.Text = CDate(EORI.eori_datum).ToShortDateString
+                lblWarning.Text = ""
+            End If
+
+        Else
+            txtEORI.Text = ""
+            lblWarning.Text = "EORI-NR im Kunden fehlt!"
+        End If
+
+
+
+
+    End Sub
+
+    Private Sub getFields()
+        fk.FK_Art = cbxFiskalart._value
+        fk.FK_Bonitaet = txtBon.Text
+        fk.FK_Homepage_URL = txtHomepage.Text
+        fk.FK_Vollmacht = txtVM.Text
+        fk.FK_UID = txtUID.Text
+        fk.FK_EORI = txtEORI.Text
+        fk.FK_Anmerkung = RichTextBox1.Text
+    End Sub
+
+    Private Sub txtBon_TextChanged(sender As Object, e As EventArgs) Handles txtBon.TextChanged
+        If txtBon._value <> "" Then
+            Dim a As Date = Date.ParseExact(txtBon._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+            If a > fk.FK_Datum.AddDays(-30) Then
+                cbxBonitaet.Checked = True
+                txtBon.ForeColor = Color.Black
+            Else
+                cbxBonitaet.Checked = False
+                txtBon.ForeColor = Color.Red
+            End If
+        Else
+            cbxBonitaet.Checked = False
+        End If
+
+    End Sub
+
+    Private Sub txtVM_TextChanged(sender As Object, e As EventArgs) Handles txtVM.TextChanged
+        If txtVM._value <> "" Then
+            Dim a As Date = Date.ParseExact(txtVM._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+            If a > fk.FK_Datum.AddDays(-30) Then
+                cbxVollmacht.Checked = True
+                txtVM.ForeColor = Color.Black
+            Else
+                cbxVollmacht.Checked = False
+                txtVM.ForeColor = Color.Red
+            End If
+        Else
+            cbxVollmacht.Checked = False
+        End If
+    End Sub
+
+    Private Sub txtUID_TextChanged(sender As Object, e As EventArgs) Handles txtUID.TextChanged
+        If txtUID._value <> "" Then
+            Dim a As Date = Date.ParseExact(txtUID._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+            If a > fk.FK_Datum.AddDays(-30) Then
+                cbxUID.Checked = True
+                txtUID.ForeColor = Color.Black
+            Else
+                cbxUID.Checked = False
+                txtUID.ForeColor = Color.Red
+            End If
+        Else
+            cbxUID.Checked = False
+        End If
+    End Sub
+
+    Private Sub txtEORI_TextChanged(sender As Object, e As EventArgs) Handles txtEORI.TextChanged
+        If txtEORI._value <> "" Then
+            Dim a As Date = Date.ParseExact(txtEORI._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+            If a > fk.FK_Datum.AddDays(-30) Then
+                cbxEORI.Checked = True
+                txtEORI.ForeColor = Color.Black
+            Else
+                cbxEORI.Checked = False
+                txtEORI.ForeColor = Color.Black
+            End If
+        Else
+            cbxEORI.Checked = False
+        End If
+    End Sub
+
+    Private Sub txtHomepage_TextChanged(sender As Object, e As EventArgs) Handles txtHomepage.TextChanged
+        If txtHomepage.Text <> "" Then
+            If fk Is Nothing Then
+                cbxHomepage.Checked = picOK.Visible = IsValidURL(txtHomepage.Text)
+            Else
+                If fk.FK_Homepage_URL <> txtHomepage.Text Then
+                    cbxHomepage.Checked = picOK.Visible = IsValidURL(txtHomepage.Text)
+                End If
+
+            End If
+
+        Else
+            cbxHomepage.Checked = picOK.Visible = False
+
+        End If
+    End Sub
+
+
+    Function checkNullStr(o As Object) As String
+        If Not IsDBNull(o) Then
+            Return o
+        End If
+        Return ""
+    End Function
+
+    Private Function checkEntries() As Boolean
+
+        If Not cbxBonitaet.Checked Then
+            lblWarning.Text = "Bonität prüfen!"
+            Return False
+        End If
+
+        If Not cbxHomepage.Checked Then
+            lblWarning.Text = "Homepage prüfen!"
+            Return False
+        End If
+
+        If Not cbxVollmacht.Checked Then
+            lblWarning.Text = "Vollmacht prüfen!"
+            Return False
+        End If
+
+        If Not cbxUID.Checked Then
+            lblWarning.Text = "UID prüfen!"
+            Return False
+        End If
+
+        If Not cbxEORI.Checked Then
+            lblWarning.Text = "EORI-Nr prüfen!"
+            Return False
+        End If
+
+
+        lblWarning.Text = ""
+        Return True
+
+
+
+    End Function
+
+    Private Sub usrcntlFiskaluebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        setUIenabled(Not dgvFiskaluebersicht.SelectedRows.Count > 0)
+
+        For Each c As Control In MyPanel1.Controls
+
+            c.Enabled = dgvFiskaluebersicht.SelectedRows.Count > 0
+
+        Next
+
+    End Sub
+
+    Private Sub setUIenabled(locked As Boolean)
+
+        btnSave.Enabled = Not locked
+        btnOK.Enabled = Not locked
+
+
+        For Each c As Control In MyPanel2.Controls
+            If Not c.GetType.FullName = "System.Windows.Forms.CheckBox" Or c.GetType.FullName = "VERAG_PROG_ALLGEMEIN.usrcntlPDFScan" Then c.Enabled = Not locked
+        Next
+
+
+
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        If dgvFiskaluebersicht.SelectedRows.Count > 0 Then
+            If fk.FK_locked Then
+                MsgBox("Fiskalübersicht ist bereits abgeschlossen und kann nicht gelöscht werden!")
+            End If
+            If vbYes = MsgBox("Möchten Sie die Fiskalübersicht vom  " & dgvFiskaluebersicht.SelectedRows(0).Cells("fk_datum").Value & " wirklich löschen?", vbYesNo) Then
+                fk.deleteEntry(fk.FK_Id)
+                initDGVFiskaluebersicht()
+            End If
+        End If
+    End Sub
+
+    Public Sub clearTXT()
+        Dim a As New List(Of Windows.Forms.Control)
+        For Each c As Control In MyPanel2.Controls
+            If (c.GetType.FullName = "System.Windows.Forms.TextBox" Or c.GetType.FullName = "VERAG_PROG_ALLGEMEIN.MyTextBox") Then c.Text = ""
+        Next
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+        Dim url As String = ""
+        lblWarning.Text = ""
+        txtHomepage.ForeColor = Color.Black
+
+        If fk.FK_Homepage_PDF > 0 And fk.FK_Homepage_URL = txtHomepage.Text Then
+            DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(fk.FK_Homepage_PDF)
+            DS.OPEN_SINGLE()
+        End If
+
+        'If cbxHomepage.Checked Then Exit Sub
+
+        If txtHomepage.Text = "" Then
+            picOK.Visible = False
+            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
+
+
+        Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
+        DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "", "FISKAL-" & fk.FK_Art, fk.FK_Kdnr, fk.FK_Datum, "Homepage.PDF")
+        Dim fi As New System.IO.FileInfo(pdf)
+        Dim path = DS.uploadDataToDATENSERVER(pdf, "Screenshot_Webseite", fi.Extension)
+
+        If path Then
+            fk.FK_Homepage_PDF = DS.da_id
+        End If
+
+        fk.FK_Homepage_URL = url
+        fk.SAVE()
+
+        If Not cbxHomepage.Checked Then cbxHomepage.Checked = True
+
+    End Sub
+
+    Private Function IsValidURL(ByVal URL As String) As Boolean
+        Dim Pattern As String = "^(?:http(s)?:\/\/)?[\w.-]+(?:\.[\w\.-]+)+[\w\-\._~:/?#[\]@!\$&'\(\)\*\+,;=.]+$"
+        Dim Rgx As Regex = New Regex(Pattern, RegexOptions.Compiled Or RegexOptions.IgnoreCase)
+
+        Dim isValid = Rgx.IsMatch(URL)
+
+        If Not isValid Then
+            lblWarning.Text = "URL hat falsches Format"
+            txtHomepage.ForeColor = Color.Red
+            picOK.Visible = False
+
+        Else
+            lblWarning.Text = ""
+            txtHomepage.ForeColor = Color.Black
+            picOK.Visible = True
+        End If
+
+
+        Return isValid
+
+    End Function
+
+
+    Private Sub dgvAnhaenge_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvUnterlagen.KeyUp
+        If e.KeyCode = Keys.Delete Then
+            If dgvUnterlagen.SelectedRows.Count > 0 Then
+                If vbYes = MsgBox("Möchten Sie die Datei wirklich löschen?", vbYesNoCancel) Then
+                    Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvUnterlagen.SelectedRows(0).Cells("da_id").Value)
+                    DS.DELETE_COMPLETE()
+
+
+                    initDGVUnterlagen()
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+
+    End Sub
 End Class