diff --git a/SDL/Classes/cEORIPruefung.vb b/SDL/Classes/cEORIPruefung.vb new file mode 100644 index 00000000..1a4b37de --- /dev/null +++ b/SDL/Classes/cEORIPruefung.vb @@ -0,0 +1,158 @@ +Imports System.Data.SqlClient +Imports System.Reflection +Imports VERAG_PROG_ALLGEMEIN + +Public Class cEORIPruefung + + Property eori_id As Integer + Property eori_KdNr As Object = Nothing + Property eori_valid As Object = Nothing + Property eori_datum As Object = Nothing + Property eori_maid As Object = Nothing + Property eori_sendungsid As Object = Nothing + Property eori_firma As Object = Nothing + Property eori_sachbearbeiter As Object = Nothing + + Public hasEntry = False + + Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New(eori_id) + Me.eori_id = eori_id + LOAD() + End Sub + + Sub New() + End Sub + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_id", eori_id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_KdNr", eori_KdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_valid", eori_valid)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_datum", eori_datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_maid", eori_maid)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_sendungsid", eori_sendungsid)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_firma", eori_firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_sachbearbeiter", eori_sachbearbeiter)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblEORIPruefung WHERE eori_id=@eori_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblEORIPruefung WHERE eori_id=@eori_id ", conn) + cmd.Parameters.AddWithValue("@eori_id", eori_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + Public Shared Function LOADByKdNrDate(eori_KdNr As Integer) As cEORIPruefung + Try + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Dim EORI As New cEORIPruefung + Using cmd As New SqlCommand("SELECT Top 1 * FROM tblEORIPruefung WHERE [eori_KdNr]=@eori_KdNr AND eori_valid = 1 ORDER BY [eori_datum] DESC", conn) + cmd.Parameters.AddWithValue("@eori_KdNr", eori_KdNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In EORI.getParameterList() + Dim propInfo As PropertyInfo = EORI.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(EORI, Nothing) + Else + propInfo.SetValue(EORI, dr.Item(li.Text)) + End If + + Next + dr.Close() + Return EORI + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblEORIPruefung] SET " & str & " WHERE eori_id=@eori_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblEORIPruefung (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + +End Class diff --git a/SDL/Classes/cEORIWebService.vb b/SDL/Classes/cEORIWebService.vb index fb7c8e0c..4a6a4d04 100644 --- a/SDL/Classes/cEORIWebService.vb +++ b/SDL/Classes/cEORIWebService.vb @@ -9,6 +9,7 @@ Imports System.Net Imports System.Text Imports System.Xml Imports System.Xml.Serialization +Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class cEORIWebService @@ -115,13 +116,14 @@ Public Class cEORIWebService - Shared Function genEORI_Formular(ByVal txtEORI As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef EORI_ERGInt As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben + Shared Function genEORI_Formular(ByVal KdNr As Integer, ByVal txtEORI As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef EORI_ERGInt As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben Try Dim msgErgebnis = "" Dim tmp_SESSION_ID = "" Dim Firma = "" + Dim EORI_ERG = ValidateEoriNumber(txtEORI) @@ -140,6 +142,9 @@ Public Class cEORIWebService Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG" End Select + setEORIEntry(KdNr, SendungsId, EORI_ERG) + + Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId) If PdfTmp <> "" Then @@ -176,7 +181,7 @@ Public Class cEORIWebService End Function - Shared Function genEORI_FormularWithoutSaving(ByVal txtEORI As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef EORI_ERGInt As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben + Shared Function genEORI_FormularWithoutSaving(ByVal kdnr As Integer, ByVal txtEORI As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef EORI_ERGInt As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben Try Dim msgErgebnis = "" @@ -201,6 +206,9 @@ Public Class cEORIWebService Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG" End Select + setEORIEntry(kdnr, SendungsId, EORI_ERG) + + Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId) Return PdfTmp @@ -219,6 +227,25 @@ Public Class cEORIWebService End Function + Shared Sub setEORIEntry(kdnr As Integer, SendungsID As Integer, EORI_ERG As EoriResponseModel) + Dim EORIPruefung = New cEORIPruefung() + + Select Case EORI_ERG.Result(0).Status + Case 0 : EORIPruefung.eori_valid = 1 + Case 1 : EORIPruefung.eori_valid = 0 + End Select + + EORIPruefung.eori_datum = Now() + EORIPruefung.eori_KdNr = kdnr + EORIPruefung.eori_maid = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + EORIPruefung.eori_sendungsid = SendungsID + EORIPruefung.eori_firma = (EORI_ERG.Result(0).Name & EORI_ERG.Result(0).Street & EORI_ERG.Result(0).Country & EORI_ERG.Result(0).PostalCode & EORI_ERG.Result(0).City).Trim + EORIPruefung.eori_sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + EORIPruefung.SAVE() + + End Sub + + diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index 277b304b..d35ac32a 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -1084,6 +1084,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property locked() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("locked", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index 3b15cd3e..1977ba8e 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -148,6 +148,9 @@ ..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\verag_Card1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -157,8 +160,8 @@ ..\..\..\data\reloadFinance.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\plose_it.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\mse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -169,14 +172,11 @@ ..\Resources\liste-logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 ..\Resources\dakosy1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -232,6 +232,9 @@ ..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\exit.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -253,6 +256,9 @@ ..\Resources\rechnung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\beleg1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -265,9 +271,6 @@ ..\Resources\pfeil_oben.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\warenkorb1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -283,9 +286,6 @@ ..\Resources\person_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\entwurf.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -295,15 +295,18 @@ ..\Resources\email11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Route4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\flagge_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\creditsafe.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\telefon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -331,17 +334,17 @@ ..\Resources\Atilla_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Einheitspapier-0777_kurz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\lorry_motion.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -349,9 +352,6 @@ ..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - F:\Grafik\VERAG\AEO\aeo_CS.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -367,9 +367,6 @@ ..\Resources\sgs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\passpic.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -385,6 +382,9 @@ ..\Resources\Unisped_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -427,15 +427,15 @@ ..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -445,18 +445,18 @@ ..\Resources\cards1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Route4_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\VERAG_AEO_MailSig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -472,14 +472,11 @@ ..\Resources\data.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\unisped_aeo_ZS_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\pay_card.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -508,6 +505,9 @@ ..\Resources\belegEUR1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -529,15 +529,15 @@ ..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\pay_card_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -547,9 +547,6 @@ ..\Resources\android-note11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\email1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -559,15 +556,12 @@ ..\Resources\person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\aktiveVeredelung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\email_print1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\cards.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -607,8 +601,8 @@ ..\Resources\transp.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\LKW1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -616,6 +610,9 @@ ..\Resources\Unisped_DE_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\list_new_small1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -625,8 +622,8 @@ ..\Resources\plose_1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pay_card.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Route4_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\statistik1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -658,8 +655,8 @@ ..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -688,14 +685,17 @@ ..\Resources\passpic_sw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Verag-Customs-Service-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Route3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\transfer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -706,8 +706,8 @@ ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\FA_Graz_EV-Veranlagung_Muster.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -715,8 +715,8 @@ ..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -727,8 +727,8 @@ ..\Resources\Aviso1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -736,17 +736,20 @@ ..\Resources\SR_EVOLOG.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + ..\Resources\aeo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\android-note12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -754,8 +757,8 @@ ..\Resources\print_rg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\plose_it.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\road.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -763,17 +766,17 @@ ..\Resources\Unisped_ZS_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -781,8 +784,8 @@ ..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\email_print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -823,8 +826,8 @@ ..\Resources\report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\moneybag1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -835,8 +838,8 @@ ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\email_print1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\VERAG-UNISPED-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -853,8 +856,8 @@ ..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\rechnung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -862,8 +865,8 @@ ..\Resources\Einheitspapier-0777_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -877,7 +880,7 @@ ..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\creditsafe.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\locked.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/SDL/Resources/locked.jpg b/SDL/Resources/locked.jpg new file mode 100644 index 00000000..1024d0ec Binary files /dev/null and b/SDL/Resources/locked.jpg differ diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 59b17a91..5fa2a310 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -298,6 +298,10 @@ False ..\..\..\dll\RKAesIcm.dll + + False + ..\..\..\dll\Spire.PDF\2022\Spire.Pdf.dll + @@ -506,6 +510,7 @@ + @@ -4462,6 +4467,7 @@ + Always diff --git a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb index 5870c3bb..d9e9ec68 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb +++ b/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 diff --git a/SDL/kunden/frmKundenUebersichtZOLL.vb b/SDL/kunden/frmKundenUebersichtZOLL.vb index 078c234d..828ea8c8 100644 --- a/SDL/kunden/frmKundenUebersichtZOLL.vb +++ b/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) diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 68ba2c79..90939600 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/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 diff --git a/SDL/kunden/usrcntlFiskaluebersicht.Designer.vb b/SDL/kunden/usrcntlFiskaluebersicht.Designer.vb index 13e4bbfe..b168715a 100644 --- a/SDL/kunden/usrcntlFiskaluebersicht.Designer.vb +++ b/SDL/kunden/usrcntlFiskaluebersicht.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class usrcntlFiskaluebersicht Inherits System.Windows.Forms.UserControl 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,324 +20,78 @@ Partial Class usrcntlFiskaluebersicht 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlFiskaluebersicht)) - Me.dgvFiskaluebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.btn = New System.Windows.Forms.Button() - Me.cbxHomepage = New System.Windows.Forms.CheckBox() - Me.txtHomepage = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxBonitaet = New System.Windows.Forms.CheckBox() - Me.txtBon = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxVollmacht = New System.Windows.Forms.CheckBox() - Me.txtVM = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxUID = New System.Windows.Forms.CheckBox() - Me.txtUID = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxEORI = New System.Windows.Forms.CheckBox() - Me.txtEORI = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblFiskaluebersicht = New System.Windows.Forms.Label() + Me.lblCheckliste = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.lblWarning = New System.Windows.Forms.Label() + Me.Button4 = New System.Windows.Forms.Button() + Me.picLocked = New System.Windows.Forms.PictureBox() + Me.cbxFiskalart = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) - Me.btnCancel = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button() Me.btnSave = New System.Windows.Forms.Button() Me.btnPDFReport = New System.Windows.Forms.Button() - Me.lblFiskaluebersicht = New System.Windows.Forms.Label() - Me.lblCheckliste = New System.Windows.Forms.Label() - Me.lblUnterlagen = New System.Windows.Forms.Label() - Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvFiskaluebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) - Me.MyDatagridview2 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).BeginInit() + Me.lblAbschluss = New System.Windows.Forms.Label() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.dgvEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvLieferanten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.Button3 = New System.Windows.Forms.Button() + Me.lblBeurteilung = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.lblAnmerkungen = New System.Windows.Forms.Label() + Me.RichTextBox1 = New System.Windows.Forms.RichTextBox() + Me.Button2 = New System.Windows.Forms.Button() + Me.picEORIOK = New System.Windows.Forms.PictureBox() + Me.picOK = New System.Windows.Forms.PictureBox() + Me.scanHandelsreg = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanPass = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanFB = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanInfo = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.usrcntlUnterlagen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.Button1 = New System.Windows.Forms.Button() + Me.cbxVollmacht = New System.Windows.Forms.CheckBox() + Me.lblUnterlagen = New System.Windows.Forms.Label() + Me.txtVM = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxBonitaet = New System.Windows.Forms.CheckBox() + Me.txtBon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxEORI = New System.Windows.Forms.CheckBox() + Me.cbxHomepage = New System.Windows.Forms.CheckBox() + Me.txtEORI = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtHomepage = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dgvUnterlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.cbxUID = New System.Windows.Forms.CheckBox() + Me.txtUID = New VERAG_PROG_ALLGEMEIN.MyTextBox() + CType(Me.picLocked, System.ComponentModel.ISupportInitialize).BeginInit() Me.MyPanel1.SuspendLayout() - CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).BeginInit() Me.MyPanel2.SuspendLayout() - CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvLieferanten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picEORIOK, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picOK, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvUnterlagen, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'dgvFiskaluebersicht - ' - Me.dgvFiskaluebersicht.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvFiskaluebersicht.AllowUserToAddRows = False - Me.dgvFiskaluebersicht.AllowUserToDeleteRows = False - Me.dgvFiskaluebersicht.AllowUserToOrderColumns = True - Me.dgvFiskaluebersicht.AllowUserToResizeRows = False - Me.dgvFiskaluebersicht.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.dgvFiskaluebersicht.BackgroundColor = System.Drawing.Color.White - Me.dgvFiskaluebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvFiskaluebersicht.Location = New System.Drawing.Point(4, 35) - Me.dgvFiskaluebersicht.MultiSelect = False - Me.dgvFiskaluebersicht.Name = "dgvFiskaluebersicht" - Me.dgvFiskaluebersicht.ReadOnly = True - Me.dgvFiskaluebersicht.RowHeadersVisible = False - Me.dgvFiskaluebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvFiskaluebersicht.Size = New System.Drawing.Size(190, 462) - Me.dgvFiskaluebersicht.TabIndex = 32 - ' 'btn ' + Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn.Location = New System.Drawing.Point(163, 469) + Me.btn.Location = New System.Drawing.Point(163, 664) Me.btn.Name = "btn" Me.btn.Size = New System.Drawing.Size(31, 28) Me.btn.TabIndex = 96 Me.btn.UseVisualStyleBackColor = True ' - 'cbxHomepage - ' - Me.cbxHomepage.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.cbxHomepage.AutoSize = True - Me.cbxHomepage.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxHomepage.Location = New System.Drawing.Point(221, 46) - Me.cbxHomepage.Name = "cbxHomepage" - Me.cbxHomepage.Size = New System.Drawing.Size(86, 17) - Me.cbxHomepage.TabIndex = 98 - Me.cbxHomepage.Text = "Homepage" - Me.cbxHomepage.UseVisualStyleBackColor = True - ' - 'txtHomepage - ' - Me.txtHomepage._DateTimeOnly = False - Me.txtHomepage._numbersOnly = False - Me.txtHomepage._numbersOnlyKommastellen = "" - Me.txtHomepage._numbersOnlyTrennzeichen = True - Me.txtHomepage._Prozent = False - Me.txtHomepage._ShortDateNew = False - Me.txtHomepage._ShortDateOnly = False - Me.txtHomepage._TimeOnly = False - Me.txtHomepage._TimeOnly_Seconds = False - Me.txtHomepage._value = Nothing - Me.txtHomepage._Waehrung = False - Me.txtHomepage._WaehrungZeichen = True - Me.txtHomepage.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.txtHomepage.ForeColor = System.Drawing.Color.Black - Me.txtHomepage.Location = New System.Drawing.Point(361, 43) - Me.txtHomepage.MaxLineLength = -1 - Me.txtHomepage.MaxLines_Warning = "" - Me.txtHomepage.MaxLines_Warning_Label = Nothing - Me.txtHomepage.Name = "txtHomepage" - Me.txtHomepage.Size = New System.Drawing.Size(128, 20) - Me.txtHomepage.TabIndex = 100 - ' - 'cbxBonitaet - ' - Me.cbxBonitaet.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.cbxBonitaet.AutoSize = True - Me.cbxBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxBonitaet.Location = New System.Drawing.Point(221, 72) - Me.cbxBonitaet.Name = "cbxBonitaet" - Me.cbxBonitaet.Size = New System.Drawing.Size(115, 17) - Me.cbxBonitaet.TabIndex = 101 - Me.cbxBonitaet.Text = "aktuelle Bonität" - Me.cbxBonitaet.UseVisualStyleBackColor = True - ' - 'txtBon - ' - Me.txtBon._DateTimeOnly = False - Me.txtBon._numbersOnly = False - Me.txtBon._numbersOnlyKommastellen = "" - Me.txtBon._numbersOnlyTrennzeichen = True - Me.txtBon._Prozent = False - Me.txtBon._ShortDateNew = False - Me.txtBon._ShortDateOnly = False - Me.txtBon._TimeOnly = False - Me.txtBon._TimeOnly_Seconds = False - Me.txtBon._value = Nothing - Me.txtBon._Waehrung = False - Me.txtBon._WaehrungZeichen = True - Me.txtBon.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.txtBon.ForeColor = System.Drawing.Color.Black - Me.txtBon.Location = New System.Drawing.Point(361, 69) - Me.txtBon.MaxLineLength = -1 - Me.txtBon.MaxLines_Warning = "" - Me.txtBon.MaxLines_Warning_Label = Nothing - Me.txtBon.Name = "txtBon" - Me.txtBon.Size = New System.Drawing.Size(128, 20) - Me.txtBon.TabIndex = 102 - ' - 'cbxVollmacht - ' - Me.cbxVollmacht.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.cbxVollmacht.AutoSize = True - Me.cbxVollmacht.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxVollmacht.Location = New System.Drawing.Point(221, 98) - Me.cbxVollmacht.Name = "cbxVollmacht" - Me.cbxVollmacht.Size = New System.Drawing.Size(130, 17) - Me.cbxVollmacht.TabIndex = 103 - Me.cbxVollmacht.Text = "aktuelle Vollmacht" - Me.cbxVollmacht.UseVisualStyleBackColor = True - ' - 'txtVM - ' - Me.txtVM._DateTimeOnly = False - Me.txtVM._numbersOnly = False - Me.txtVM._numbersOnlyKommastellen = "" - Me.txtVM._numbersOnlyTrennzeichen = True - Me.txtVM._Prozent = False - Me.txtVM._ShortDateNew = False - Me.txtVM._ShortDateOnly = False - Me.txtVM._TimeOnly = False - Me.txtVM._TimeOnly_Seconds = False - Me.txtVM._value = Nothing - Me.txtVM._Waehrung = False - Me.txtVM._WaehrungZeichen = True - Me.txtVM.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.txtVM.ForeColor = System.Drawing.Color.Black - Me.txtVM.Location = New System.Drawing.Point(361, 95) - Me.txtVM.MaxLineLength = -1 - Me.txtVM.MaxLines_Warning = "" - Me.txtVM.MaxLines_Warning_Label = Nothing - Me.txtVM.Name = "txtVM" - Me.txtVM.Size = New System.Drawing.Size(128, 20) - Me.txtVM.TabIndex = 104 - ' - 'cbxUID - ' - Me.cbxUID.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.cbxUID.AutoSize = True - Me.cbxUID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxUID.Location = New System.Drawing.Point(589, 46) - Me.cbxUID.Name = "cbxUID" - Me.cbxUID.Size = New System.Drawing.Size(96, 17) - Me.cbxUID.TabIndex = 105 - Me.cbxUID.Text = "UID-Prüfung" - Me.cbxUID.UseVisualStyleBackColor = True - ' - 'txtUID - ' - Me.txtUID._DateTimeOnly = False - Me.txtUID._numbersOnly = False - Me.txtUID._numbersOnlyKommastellen = "" - Me.txtUID._numbersOnlyTrennzeichen = True - Me.txtUID._Prozent = False - Me.txtUID._ShortDateNew = False - Me.txtUID._ShortDateOnly = False - Me.txtUID._TimeOnly = False - Me.txtUID._TimeOnly_Seconds = False - Me.txtUID._value = Nothing - Me.txtUID._Waehrung = False - Me.txtUID._WaehrungZeichen = True - Me.txtUID.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.txtUID.ForeColor = System.Drawing.Color.Black - Me.txtUID.Location = New System.Drawing.Point(729, 43) - Me.txtUID.MaxLineLength = -1 - Me.txtUID.MaxLines_Warning = "" - Me.txtUID.MaxLines_Warning_Label = Nothing - Me.txtUID.Name = "txtUID" - Me.txtUID.Size = New System.Drawing.Size(128, 20) - Me.txtUID.TabIndex = 106 - ' - 'cbxEORI - ' - Me.cbxEORI.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.cbxEORI.AutoSize = True - Me.cbxEORI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxEORI.Location = New System.Drawing.Point(589, 72) - Me.cbxEORI.Name = "cbxEORI" - Me.cbxEORI.Size = New System.Drawing.Size(104, 17) - Me.cbxEORI.TabIndex = 107 - Me.cbxEORI.Text = "EORI-Prüfung" - Me.cbxEORI.UseVisualStyleBackColor = True - ' - 'txtEORI - ' - Me.txtEORI._DateTimeOnly = False - Me.txtEORI._numbersOnly = False - Me.txtEORI._numbersOnlyKommastellen = "" - Me.txtEORI._numbersOnlyTrennzeichen = True - Me.txtEORI._Prozent = False - Me.txtEORI._ShortDateNew = False - Me.txtEORI._ShortDateOnly = False - Me.txtEORI._TimeOnly = False - Me.txtEORI._TimeOnly_Seconds = False - Me.txtEORI._value = Nothing - Me.txtEORI._Waehrung = False - Me.txtEORI._WaehrungZeichen = True - Me.txtEORI.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.txtEORI.ForeColor = System.Drawing.Color.Black - Me.txtEORI.Location = New System.Drawing.Point(729, 69) - Me.txtEORI.MaxLineLength = -1 - Me.txtEORI.MaxLines_Warning = "" - Me.txtEORI.MaxLines_Warning_Label = Nothing - Me.txtEORI.Name = "txtEORI" - Me.txtEORI.Size = New System.Drawing.Size(128, 20) - Me.txtEORI.TabIndex = 108 - ' - 'MyPanel1 - ' - Me.MyPanel1.BackColor = System.Drawing.Color.White - Me.MyPanel1.Controls.Add(Me.btnCancel) - Me.MyPanel1.Controls.Add(Me.btnOK) - Me.MyPanel1.Controls.Add(Me.btnSave) - Me.MyPanel1.Controls.Add(Me.btnPDFReport) - Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Bottom - Me.MyPanel1.Location = New System.Drawing.Point(0, 503) - Me.MyPanel1.Name = "MyPanel1" - Me.MyPanel1.Size = New System.Drawing.Size(922, 60) - Me.MyPanel1.TabIndex = 109 - ' - 'btnCancel - ' - Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCancel.ForeColor = System.Drawing.Color.Black - Me.btnCancel.Image = Global.SDL.My.Resources.Resources.del - Me.btnCancel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCancel.Location = New System.Drawing.Point(4, 10) - Me.btnCancel.Name = "btnCancel" - Me.btnCancel.Size = New System.Drawing.Size(113, 39) - Me.btnCancel.TabIndex = 21 - Me.btnCancel.Text = "Abbrechen" - Me.btnCancel.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnCancel.UseVisualStyleBackColor = True - ' - 'btnOK - ' - Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnOK.ForeColor = System.Drawing.Color.Black - Me.btnOK.Image = Global.SDL.My.Resources.Resources.ok - Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnOK.Location = New System.Drawing.Point(801, 10) - Me.btnOK.Name = "btnOK" - Me.btnOK.Size = New System.Drawing.Size(112, 39) - Me.btnOK.TabIndex = 19 - Me.btnOK.Text = "Abschließen" - Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnOK.UseVisualStyleBackColor = True - ' - 'btnSave - ' - Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSave.ForeColor = System.Drawing.Color.Black - Me.btnSave.Image = CType(resources.GetObject("btnSave.Image"), System.Drawing.Image) - Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSave.Location = New System.Drawing.Point(689, 10) - Me.btnSave.Name = "btnSave" - Me.btnSave.Size = New System.Drawing.Size(97, 39) - Me.btnSave.TabIndex = 20 - Me.btnSave.Text = "Speichern" - Me.btnSave.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnSave.UseVisualStyleBackColor = True - ' - 'btnPDFReport - ' - Me.btnPDFReport.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnPDFReport.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnPDFReport.ForeColor = System.Drawing.Color.Black - Me.btnPDFReport.Image = Global.SDL.My.Resources.Resources.pdf1 - Me.btnPDFReport.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnPDFReport.Location = New System.Drawing.Point(360, 10) - Me.btnPDFReport.Name = "btnPDFReport" - Me.btnPDFReport.Size = New System.Drawing.Size(107, 47) - Me.btnPDFReport.TabIndex = 80 - Me.btnPDFReport.Text = "Bericht" - Me.btnPDFReport.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnPDFReport.UseVisualStyleBackColor = True - ' 'lblFiskaluebersicht ' Me.lblFiskaluebersicht.AutoSize = True @@ -358,97 +112,681 @@ Partial Class usrcntlFiskaluebersicht Me.lblCheckliste.TabIndex = 112 Me.lblCheckliste.Text = "Checkliste" ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(319, 12) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(94, 20) + Me.Label1.TabIndex = 118 + Me.Label1.Text = "Fiskalart - " + ' + 'lblWarning + ' + Me.lblWarning.AutoSize = True + Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblWarning.ForeColor = System.Drawing.Color.Red + Me.lblWarning.Location = New System.Drawing.Point(502, 17) + Me.lblWarning.Name = "lblWarning" + Me.lblWarning.Size = New System.Drawing.Size(0, 16) + Me.lblWarning.TabIndex = 113 + ' + 'Button4 + ' + Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button4.BackgroundImage = Global.SDL.My.Resources.Resources.del + Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Location = New System.Drawing.Point(131, 664) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(33, 28) + Me.Button4.TabIndex = 119 + Me.Button4.UseVisualStyleBackColor = True + ' + 'picLocked + ' + Me.picLocked.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.picLocked.BackgroundImage = Global.SDL.My.Resources.Resources.locked + Me.picLocked.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picLocked.Location = New System.Drawing.Point(865, 3) + Me.picLocked.Name = "picLocked" + Me.picLocked.Size = New System.Drawing.Size(56, 30) + Me.picLocked.TabIndex = 130 + Me.picLocked.TabStop = False + Me.picLocked.Visible = False + ' + 'cbxFiskalart + ' + Me.cbxFiskalart._allowedValuesFreiText = Nothing + Me.cbxFiskalart._allowFreiText = False + Me.cbxFiskalart._value = "" + Me.cbxFiskalart.FormattingEnabled = True + Me.cbxFiskalart.Location = New System.Drawing.Point(419, 12) + Me.cbxFiskalart.Name = "cbxFiskalart" + Me.cbxFiskalart.Size = New System.Drawing.Size(35, 21) + Me.cbxFiskalart.TabIndex = 117 + ' + 'MyPanel1 + ' + Me.MyPanel1.BackColor = System.Drawing.Color.White + Me.MyPanel1.Controls.Add(Me.btnOK) + Me.MyPanel1.Controls.Add(Me.btnSave) + Me.MyPanel1.Controls.Add(Me.btnPDFReport) + Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.MyPanel1.Location = New System.Drawing.Point(0, 705) + Me.MyPanel1.Name = "MyPanel1" + Me.MyPanel1.Size = New System.Drawing.Size(933, 60) + Me.MyPanel1.TabIndex = 109 + ' + 'btnOK + ' + Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnOK.ForeColor = System.Drawing.Color.Black + Me.btnOK.Image = Global.SDL.My.Resources.Resources.ok + Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnOK.Location = New System.Drawing.Point(812, 10) + Me.btnOK.Name = "btnOK" + Me.btnOK.Size = New System.Drawing.Size(112, 39) + Me.btnOK.TabIndex = 19 + Me.btnOK.Text = "Abschließen" + Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnOK.UseVisualStyleBackColor = True + ' + 'btnSave + ' + Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSave.ForeColor = System.Drawing.Color.Black + Me.btnSave.Image = CType(resources.GetObject("btnSave.Image"), System.Drawing.Image) + Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSave.Location = New System.Drawing.Point(700, 10) + Me.btnSave.Name = "btnSave" + Me.btnSave.Size = New System.Drawing.Size(97, 39) + Me.btnSave.TabIndex = 20 + Me.btnSave.Text = "Speichern" + Me.btnSave.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnSave.UseVisualStyleBackColor = True + ' + 'btnPDFReport + ' + Me.btnPDFReport.Anchor = System.Windows.Forms.AnchorStyles.Bottom + Me.btnPDFReport.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnPDFReport.ForeColor = System.Drawing.Color.Black + Me.btnPDFReport.Image = Global.SDL.My.Resources.Resources.pdf1 + Me.btnPDFReport.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnPDFReport.Location = New System.Drawing.Point(365, 10) + Me.btnPDFReport.Name = "btnPDFReport" + Me.btnPDFReport.Size = New System.Drawing.Size(107, 47) + Me.btnPDFReport.TabIndex = 80 + Me.btnPDFReport.Text = "Bericht" + Me.btnPDFReport.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnPDFReport.UseVisualStyleBackColor = True + ' + 'dgvFiskaluebersicht + ' + Me.dgvFiskaluebersicht.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvFiskaluebersicht.AllowUserToAddRows = False + Me.dgvFiskaluebersicht.AllowUserToDeleteRows = False + Me.dgvFiskaluebersicht.AllowUserToOrderColumns = True + Me.dgvFiskaluebersicht.AllowUserToResizeRows = False + Me.dgvFiskaluebersicht.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.dgvFiskaluebersicht.BackgroundColor = System.Drawing.Color.White + Me.dgvFiskaluebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvFiskaluebersicht.Location = New System.Drawing.Point(4, 35) + Me.dgvFiskaluebersicht.MultiSelect = False + Me.dgvFiskaluebersicht.Name = "dgvFiskaluebersicht" + Me.dgvFiskaluebersicht.ReadOnly = True + Me.dgvFiskaluebersicht.RowHeadersVisible = False + Me.dgvFiskaluebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvFiskaluebersicht.Size = New System.Drawing.Size(190, 657) + Me.dgvFiskaluebersicht.TabIndex = 32 + ' + 'MyPanel2 + ' + Me.MyPanel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.MyPanel2.AutoScroll = True + Me.MyPanel2.AutoScrollMargin = New System.Drawing.Size(0, 10) + Me.MyPanel2.AutoScrollMinSize = New System.Drawing.Size(0, 10) + Me.MyPanel2.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.MyPanel2.BackColor = System.Drawing.Color.White + Me.MyPanel2.Controls.Add(Me.lblAbschluss) + Me.MyPanel2.Controls.Add(Me.MyComboBox1) + Me.MyPanel2.Controls.Add(Me.dgvEmpfaenger) + Me.MyPanel2.Controls.Add(Me.dgvLieferanten) + Me.MyPanel2.Controls.Add(Me.Button3) + Me.MyPanel2.Controls.Add(Me.lblBeurteilung) + Me.MyPanel2.Controls.Add(Me.Label3) + Me.MyPanel2.Controls.Add(Me.Label2) + Me.MyPanel2.Controls.Add(Me.lblAnmerkungen) + Me.MyPanel2.Controls.Add(Me.RichTextBox1) + Me.MyPanel2.Controls.Add(Me.Button2) + Me.MyPanel2.Controls.Add(Me.picEORIOK) + Me.MyPanel2.Controls.Add(Me.picOK) + Me.MyPanel2.Controls.Add(Me.scanHandelsreg) + Me.MyPanel2.Controls.Add(Me.scanPass) + Me.MyPanel2.Controls.Add(Me.scanFB) + Me.MyPanel2.Controls.Add(Me.scanInfo) + Me.MyPanel2.Controls.Add(Me.usrcntlUnterlagen) + Me.MyPanel2.Controls.Add(Me.Button1) + Me.MyPanel2.Controls.Add(Me.cbxVollmacht) + Me.MyPanel2.Controls.Add(Me.lblUnterlagen) + Me.MyPanel2.Controls.Add(Me.txtVM) + Me.MyPanel2.Controls.Add(Me.cbxBonitaet) + Me.MyPanel2.Controls.Add(Me.txtBon) + Me.MyPanel2.Controls.Add(Me.cbxEORI) + Me.MyPanel2.Controls.Add(Me.cbxHomepage) + Me.MyPanel2.Controls.Add(Me.txtEORI) + Me.MyPanel2.Controls.Add(Me.txtHomepage) + Me.MyPanel2.Controls.Add(Me.dgvUnterlagen) + Me.MyPanel2.Controls.Add(Me.cbxUID) + Me.MyPanel2.Controls.Add(Me.txtUID) + Me.MyPanel2.Location = New System.Drawing.Point(200, 35) + Me.MyPanel2.Name = "MyPanel2" + Me.MyPanel2.Size = New System.Drawing.Size(721, 657) + Me.MyPanel2.TabIndex = 110 + ' + 'lblAbschluss + ' + Me.lblAbschluss.AutoSize = True + Me.lblAbschluss.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAbschluss.Location = New System.Drawing.Point(584, 739) + Me.lblAbschluss.Name = "lblAbschluss" + Me.lblAbschluss.Size = New System.Drawing.Size(0, 20) + Me.lblAbschluss.TabIndex = 138 + Me.lblAbschluss.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(271, 738) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(70, 21) + Me.MyComboBox1.TabIndex = 131 + ' + 'dgvEmpfaenger + ' + Me.dgvEmpfaenger.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvEmpfaenger.AllowUserToAddRows = False + Me.dgvEmpfaenger.AllowUserToDeleteRows = False + Me.dgvEmpfaenger.AllowUserToOrderColumns = True + Me.dgvEmpfaenger.AllowUserToResizeRows = False + Me.dgvEmpfaenger.BackgroundColor = System.Drawing.Color.White + Me.dgvEmpfaenger.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvEmpfaenger.Location = New System.Drawing.Point(389, 453) + Me.dgvEmpfaenger.MultiSelect = False + Me.dgvEmpfaenger.Name = "dgvEmpfaenger" + Me.dgvEmpfaenger.ReadOnly = True + Me.dgvEmpfaenger.RowHeadersVisible = False + Me.dgvEmpfaenger.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvEmpfaenger.Size = New System.Drawing.Size(255, 92) + Me.dgvEmpfaenger.TabIndex = 137 + Me.dgvEmpfaenger.Visible = False + ' + 'dgvLieferanten + ' + Me.dgvLieferanten.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvLieferanten.AllowUserToAddRows = False + Me.dgvLieferanten.AllowUserToDeleteRows = False + Me.dgvLieferanten.AllowUserToOrderColumns = True + Me.dgvLieferanten.AllowUserToResizeRows = False + Me.dgvLieferanten.BackgroundColor = System.Drawing.Color.White + Me.dgvLieferanten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvLieferanten.Location = New System.Drawing.Point(144, 453) + Me.dgvLieferanten.MultiSelect = False + Me.dgvLieferanten.Name = "dgvLieferanten" + Me.dgvLieferanten.ReadOnly = True + Me.dgvLieferanten.RowHeadersVisible = False + Me.dgvLieferanten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvLieferanten.Size = New System.Drawing.Size(239, 92) + Me.dgvLieferanten.TabIndex = 136 + Me.dgvLieferanten.Visible = False + ' + 'Button3 + ' + Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.spedbuch + Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.ForeColor = System.Drawing.Color.Black + Me.Button3.Location = New System.Drawing.Point(650, 453) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(35, 33) + Me.Button3.TabIndex = 135 + Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button3.UseVisualStyleBackColor = True + ' + 'lblBeurteilung + ' + Me.lblBeurteilung.AutoSize = True + Me.lblBeurteilung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBeurteilung.Location = New System.Drawing.Point(144, 739) + Me.lblBeurteilung.Name = "lblBeurteilung" + Me.lblBeurteilung.Size = New System.Drawing.Size(101, 20) + Me.lblBeurteilung.TabIndex = 134 + Me.lblBeurteilung.Text = "Beurteilung" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(385, 430) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(147, 20) + Me.Label3.TabIndex = 133 + Me.Label3.Text = "Top 5 Empfänger" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(143, 430) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(151, 20) + Me.Label2.TabIndex = 132 + Me.Label2.Text = "Top 5 Lieferanten" + ' + 'lblAnmerkungen + ' + Me.lblAnmerkungen.AutoSize = True + Me.lblAnmerkungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAnmerkungen.Location = New System.Drawing.Point(4, 281) + Me.lblAnmerkungen.Name = "lblAnmerkungen" + Me.lblAnmerkungen.Size = New System.Drawing.Size(120, 20) + Me.lblAnmerkungen.TabIndex = 131 + Me.lblAnmerkungen.Text = "Anmerkungen" + ' + 'RichTextBox1 + ' + Me.RichTextBox1.Location = New System.Drawing.Point(147, 308) + Me.RichTextBox1.Name = "RichTextBox1" + Me.RichTextBox1.Size = New System.Drawing.Size(497, 78) + Me.RichTextBox1.TabIndex = 130 + Me.RichTextBox1.Text = "" + ' + 'Button2 + ' + Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button2.FlatAppearance.BorderSize = 0 + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(251, 47) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(25, 20) + Me.Button2.TabIndex = 129 + Me.Button2.UseVisualStyleBackColor = True + ' + 'picEORIOK + ' + Me.picEORIOK.BackgroundImage = Global.SDL.My.Resources.Resources.ok + Me.picEORIOK.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picEORIOK.Location = New System.Drawing.Point(287, 52) + Me.picEORIOK.Name = "picEORIOK" + Me.picEORIOK.Size = New System.Drawing.Size(19, 17) + Me.picEORIOK.TabIndex = 128 + Me.picEORIOK.TabStop = False + Me.picEORIOK.Visible = False + ' + 'picOK + ' + Me.picOK.BackgroundImage = Global.SDL.My.Resources.Resources.ok + Me.picOK.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picOK.Location = New System.Drawing.Point(287, 23) + Me.picOK.Name = "picOK" + Me.picOK.Size = New System.Drawing.Size(19, 17) + Me.picOK.TabIndex = 127 + Me.picOK.TabStop = False + ' + 'scanHandelsreg + ' + Me.scanHandelsreg._ARCHIV = False + Me.scanHandelsreg._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanHandelsreg._DATENSERVER_ORDNER = "" + Me.scanHandelsreg._DATENSERVER_UOrdner1 = "" + Me.scanHandelsreg._DATENSERVER_UOrdner2 = "" + Me.scanHandelsreg._DATENSERVER_UOrdner3 = "" + Me.scanHandelsreg._MULTI_FILES = True + Me.scanHandelsreg._TEXT_PDF = "Handelsregister" + Me.scanHandelsreg.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanHandelsreg.BackColor = System.Drawing.Color.White + Me.scanHandelsreg.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanHandelsreg.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanHandelsreg.Location = New System.Drawing.Point(8, 227) + Me.scanHandelsreg.Name = "scanHandelsreg" + Me.scanHandelsreg.Size = New System.Drawing.Size(130, 24) + Me.scanHandelsreg.TabIndex = 126 + ' + 'scanPass + ' + Me.scanPass._ARCHIV = False + Me.scanPass._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanPass._DATENSERVER_ORDNER = "" + Me.scanPass._DATENSERVER_UOrdner1 = "" + Me.scanPass._DATENSERVER_UOrdner2 = "" + Me.scanPass._DATENSERVER_UOrdner3 = "" + Me.scanPass._MULTI_FILES = True + Me.scanPass._TEXT_PDF = "Pass" + Me.scanPass.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanPass.BackColor = System.Drawing.Color.White + Me.scanPass.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanPass.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanPass.Location = New System.Drawing.Point(8, 197) + Me.scanPass.Name = "scanPass" + Me.scanPass.Size = New System.Drawing.Size(130, 24) + Me.scanPass.TabIndex = 125 + ' + 'scanFB + ' + Me.scanFB._ARCHIV = False + Me.scanFB._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanFB._DATENSERVER_ORDNER = "" + Me.scanFB._DATENSERVER_UOrdner1 = "" + Me.scanFB._DATENSERVER_UOrdner2 = "" + Me.scanFB._DATENSERVER_UOrdner3 = "" + Me.scanFB._MULTI_FILES = True + Me.scanFB._TEXT_PDF = "Firmenbuch" + Me.scanFB.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanFB.BackColor = System.Drawing.Color.White + Me.scanFB.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanFB.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanFB.Location = New System.Drawing.Point(8, 163) + Me.scanFB.Name = "scanFB" + Me.scanFB.Size = New System.Drawing.Size(130, 24) + Me.scanFB.TabIndex = 124 + ' + 'scanInfo + ' + Me.scanInfo._ARCHIV = False + Me.scanInfo._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanInfo._DATENSERVER_ORDNER = "" + Me.scanInfo._DATENSERVER_UOrdner1 = "" + Me.scanInfo._DATENSERVER_UOrdner2 = "" + Me.scanInfo._DATENSERVER_UOrdner3 = "" + Me.scanInfo._MULTI_FILES = True + Me.scanInfo._TEXT_PDF = "Info" + Me.scanInfo.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanInfo.BackColor = System.Drawing.Color.White + Me.scanInfo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanInfo.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanInfo.Location = New System.Drawing.Point(8, 133) + Me.scanInfo.Name = "scanInfo" + Me.scanInfo.Size = New System.Drawing.Size(130, 24) + Me.scanInfo.TabIndex = 123 + ' + 'usrcntlUnterlagen + ' + Me.usrcntlUnterlagen._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.usrcntlUnterlagen._DATENSERVER_ORDNER = "" + Me.usrcntlUnterlagen._DATENSERVER_UOrdner1 = "" + Me.usrcntlUnterlagen._DATENSERVER_UOrdner2 = "" + Me.usrcntlUnterlagen._DATENSERVER_UOrdner3 = "" + Me.usrcntlUnterlagen._OPEN_ORIGINAL = False + Me.usrcntlUnterlagen._TYPE = "PDF" + Me.usrcntlUnterlagen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.usrcntlUnterlagen.BackColor = System.Drawing.Color.White + Me.usrcntlUnterlagen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrcntlUnterlagen.Cursor = System.Windows.Forms.Cursors.Default + Me.usrcntlUnterlagen.Location = New System.Drawing.Point(148, 128) + Me.usrcntlUnterlagen.Margin = New System.Windows.Forms.Padding(0) + Me.usrcntlUnterlagen.Name = "usrcntlUnterlagen" + Me.usrcntlUnterlagen.Size = New System.Drawing.Size(496, 123) + Me.usrcntlUnterlagen.TabIndex = 121 + ' + 'Button1 + ' + Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ForeColor = System.Drawing.Color.Black + Me.Button1.Location = New System.Drawing.Point(312, 20) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(29, 19) + Me.Button1.TabIndex = 81 + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True + ' + 'cbxVollmacht + ' + Me.cbxVollmacht.AutoSize = True + Me.cbxVollmacht.Enabled = False + Me.cbxVollmacht.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxVollmacht.Location = New System.Drawing.Point(384, 70) + Me.cbxVollmacht.Name = "cbxVollmacht" + Me.cbxVollmacht.Size = New System.Drawing.Size(130, 17) + Me.cbxVollmacht.TabIndex = 103 + Me.cbxVollmacht.Text = "aktuelle Vollmacht" + Me.cbxVollmacht.UseVisualStyleBackColor = True + ' 'lblUnterlagen ' Me.lblUnterlagen.AutoSize = True Me.lblUnterlagen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblUnterlagen.Location = New System.Drawing.Point(6, 94) + Me.lblUnterlagen.Location = New System.Drawing.Point(4, 110) Me.lblUnterlagen.Name = "lblUnterlagen" Me.lblUnterlagen.Size = New System.Drawing.Size(98, 20) Me.lblUnterlagen.TabIndex = 113 Me.lblUnterlagen.Text = "Unterlagen" ' - 'MyDatagridview1 + 'txtVM ' - Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 - Me.MyDatagridview1.AllowUserToAddRows = False - Me.MyDatagridview1.AllowUserToDeleteRows = False - Me.MyDatagridview1.AllowUserToOrderColumns = True - Me.MyDatagridview1.AllowUserToResizeRows = False - Me.MyDatagridview1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White - Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.MyDatagridview1.Location = New System.Drawing.Point(78, 267) - Me.MyDatagridview1.MultiSelect = False - Me.MyDatagridview1.Name = "MyDatagridview1" - Me.MyDatagridview1.ReadOnly = True - Me.MyDatagridview1.RowHeadersVisible = False - Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.MyDatagridview1.Size = New System.Drawing.Size(190, 126) - Me.MyDatagridview1.TabIndex = 115 + Me.txtVM._DateTimeOnly = False + Me.txtVM._numbersOnly = False + Me.txtVM._numbersOnlyKommastellen = "" + Me.txtVM._numbersOnlyTrennzeichen = False + Me.txtVM._Prozent = False + Me.txtVM._ShortDateNew = False + Me.txtVM._ShortDateOnly = True + Me.txtVM._TimeOnly = False + Me.txtVM._TimeOnly_Seconds = False + Me.txtVM._value = "" + Me.txtVM._Waehrung = False + Me.txtVM._WaehrungZeichen = False + Me.txtVM.ForeColor = System.Drawing.Color.Black + Me.txtVM.Location = New System.Drawing.Point(540, 68) + Me.txtVM.MaxLength = 10 + Me.txtVM.MaxLineLength = -1 + Me.txtVM.MaxLines_Warning = "" + Me.txtVM.MaxLines_Warning_Label = Nothing + Me.txtVM.Name = "txtVM" + Me.txtVM.ReadOnly = True + Me.txtVM.Size = New System.Drawing.Size(82, 20) + Me.txtVM.TabIndex = 104 ' - 'MyPanel2 + 'cbxBonitaet ' - Me.MyPanel2.AutoSize = True - Me.MyPanel2.BackColor = System.Drawing.Color.White - Me.MyPanel2.Controls.Add(Me.lblUnterlagen) - Me.MyPanel2.Controls.Add(Me.MyDatagridview2) - Me.MyPanel2.Controls.Add(Me.MyDatagridview1) - Me.MyPanel2.Location = New System.Drawing.Point(213, 35) - Me.MyPanel2.Name = "MyPanel2" - Me.MyPanel2.Size = New System.Drawing.Size(700, 442) - Me.MyPanel2.TabIndex = 110 + Me.cbxBonitaet.AutoSize = True + Me.cbxBonitaet.Enabled = False + Me.cbxBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxBonitaet.Location = New System.Drawing.Point(384, 47) + Me.cbxBonitaet.Name = "cbxBonitaet" + Me.cbxBonitaet.Size = New System.Drawing.Size(115, 17) + Me.cbxBonitaet.TabIndex = 101 + Me.cbxBonitaet.Text = "aktuelle Bonität" + Me.cbxBonitaet.UseVisualStyleBackColor = True ' - 'MyDatagridview2 + 'txtBon ' - Me.MyDatagridview2.AKTUALISIERUNGS_INTERVALL = -1 - Me.MyDatagridview2.AllowUserToAddRows = False - Me.MyDatagridview2.AllowUserToDeleteRows = False - Me.MyDatagridview2.AllowUserToOrderColumns = True - Me.MyDatagridview2.AllowUserToResizeRows = False - Me.MyDatagridview2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.MyDatagridview2.BackgroundColor = System.Drawing.Color.White - Me.MyDatagridview2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.MyDatagridview2.Location = New System.Drawing.Point(110, 94) - Me.MyDatagridview2.MultiSelect = False - Me.MyDatagridview2.Name = "MyDatagridview2" - Me.MyDatagridview2.ReadOnly = True - Me.MyDatagridview2.RowHeadersVisible = False - Me.MyDatagridview2.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.MyDatagridview2.Size = New System.Drawing.Size(190, 126) - Me.MyDatagridview2.TabIndex = 116 + Me.txtBon._DateTimeOnly = False + Me.txtBon._numbersOnly = False + Me.txtBon._numbersOnlyKommastellen = "" + Me.txtBon._numbersOnlyTrennzeichen = False + Me.txtBon._Prozent = False + Me.txtBon._ShortDateNew = False + Me.txtBon._ShortDateOnly = True + Me.txtBon._TimeOnly = False + Me.txtBon._TimeOnly_Seconds = False + Me.txtBon._value = "" + Me.txtBon._Waehrung = False + Me.txtBon._WaehrungZeichen = False + Me.txtBon.ForeColor = System.Drawing.Color.Black + Me.txtBon.Location = New System.Drawing.Point(541, 44) + Me.txtBon.MaxLength = 10 + Me.txtBon.MaxLineLength = -1 + Me.txtBon.MaxLines_Warning = "" + Me.txtBon.MaxLines_Warning_Label = Nothing + Me.txtBon.Name = "txtBon" + Me.txtBon.ReadOnly = True + Me.txtBon.Size = New System.Drawing.Size(82, 20) + Me.txtBon.TabIndex = 102 + ' + 'cbxEORI + ' + Me.cbxEORI.AutoSize = True + Me.cbxEORI.Enabled = False + Me.cbxEORI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxEORI.Location = New System.Drawing.Point(8, 50) + Me.cbxEORI.Name = "cbxEORI" + Me.cbxEORI.Size = New System.Drawing.Size(104, 17) + Me.cbxEORI.TabIndex = 107 + Me.cbxEORI.Text = "EORI-Prüfung" + Me.cbxEORI.UseVisualStyleBackColor = True + ' + 'cbxHomepage + ' + Me.cbxHomepage.AutoSize = True + Me.cbxHomepage.Enabled = False + Me.cbxHomepage.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxHomepage.Location = New System.Drawing.Point(8, 23) + Me.cbxHomepage.Name = "cbxHomepage" + Me.cbxHomepage.Size = New System.Drawing.Size(86, 17) + Me.cbxHomepage.TabIndex = 98 + Me.cbxHomepage.Text = "Homepage" + Me.cbxHomepage.UseVisualStyleBackColor = True + ' + 'txtEORI + ' + Me.txtEORI._DateTimeOnly = False + Me.txtEORI._numbersOnly = False + Me.txtEORI._numbersOnlyKommastellen = "" + Me.txtEORI._numbersOnlyTrennzeichen = True + Me.txtEORI._Prozent = False + Me.txtEORI._ShortDateNew = False + Me.txtEORI._ShortDateOnly = False + Me.txtEORI._TimeOnly = False + Me.txtEORI._TimeOnly_Seconds = False + Me.txtEORI._value = Nothing + Me.txtEORI._Waehrung = False + Me.txtEORI._WaehrungZeichen = True + Me.txtEORI.ForeColor = System.Drawing.Color.Black + Me.txtEORI.Location = New System.Drawing.Point(148, 47) + Me.txtEORI.MaxLineLength = -1 + Me.txtEORI.MaxLines_Warning = "" + Me.txtEORI.MaxLines_Warning_Label = Nothing + Me.txtEORI.Name = "txtEORI" + Me.txtEORI.ReadOnly = True + Me.txtEORI.Size = New System.Drawing.Size(93, 20) + Me.txtEORI.TabIndex = 108 + ' + 'txtHomepage + ' + Me.txtHomepage._DateTimeOnly = False + Me.txtHomepage._numbersOnly = False + Me.txtHomepage._numbersOnlyKommastellen = "" + Me.txtHomepage._numbersOnlyTrennzeichen = True + Me.txtHomepage._Prozent = False + Me.txtHomepage._ShortDateNew = False + Me.txtHomepage._ShortDateOnly = False + Me.txtHomepage._TimeOnly = False + Me.txtHomepage._TimeOnly_Seconds = False + Me.txtHomepage._value = Nothing + Me.txtHomepage._Waehrung = False + Me.txtHomepage._WaehrungZeichen = True + Me.txtHomepage.ForeColor = System.Drawing.Color.Black + Me.txtHomepage.Location = New System.Drawing.Point(148, 20) + Me.txtHomepage.MaxLineLength = -1 + Me.txtHomepage.MaxLines_Warning = "" + Me.txtHomepage.MaxLines_Warning_Label = Nothing + Me.txtHomepage.Name = "txtHomepage" + Me.txtHomepage.Size = New System.Drawing.Size(128, 20) + Me.txtHomepage.TabIndex = 100 + ' + 'dgvUnterlagen + ' + Me.dgvUnterlagen.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvUnterlagen.AllowUserToAddRows = False + Me.dgvUnterlagen.AllowUserToDeleteRows = False + Me.dgvUnterlagen.AllowUserToOrderColumns = True + Me.dgvUnterlagen.AllowUserToResizeRows = False + Me.dgvUnterlagen.BackgroundColor = System.Drawing.Color.White + Me.dgvUnterlagen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvUnterlagen.Location = New System.Drawing.Point(641, 163) + Me.dgvUnterlagen.MultiSelect = False + Me.dgvUnterlagen.Name = "dgvUnterlagen" + Me.dgvUnterlagen.ReadOnly = True + Me.dgvUnterlagen.RowHeadersVisible = False + Me.dgvUnterlagen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvUnterlagen.Size = New System.Drawing.Size(56, 51) + Me.dgvUnterlagen.TabIndex = 115 + Me.dgvUnterlagen.Visible = False + ' + 'cbxUID + ' + Me.cbxUID.AutoSize = True + Me.cbxUID.Enabled = False + Me.cbxUID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxUID.Location = New System.Drawing.Point(384, 23) + Me.cbxUID.Name = "cbxUID" + Me.cbxUID.Size = New System.Drawing.Size(141, 17) + Me.cbxUID.TabIndex = 105 + Me.cbxUID.Text = "UID-Prüfung Stufe 2" + Me.cbxUID.UseVisualStyleBackColor = True + ' + 'txtUID + ' + Me.txtUID._DateTimeOnly = False + Me.txtUID._numbersOnly = False + Me.txtUID._numbersOnlyKommastellen = "" + Me.txtUID._numbersOnlyTrennzeichen = True + Me.txtUID._Prozent = False + Me.txtUID._ShortDateNew = False + Me.txtUID._ShortDateOnly = False + Me.txtUID._TimeOnly = False + Me.txtUID._TimeOnly_Seconds = False + Me.txtUID._value = Nothing + Me.txtUID._Waehrung = False + Me.txtUID._WaehrungZeichen = True + Me.txtUID.ForeColor = System.Drawing.Color.Black + Me.txtUID.Location = New System.Drawing.Point(539, 23) + Me.txtUID.MaxLineLength = -1 + Me.txtUID.MaxLines_Warning = "" + Me.txtUID.MaxLines_Warning_Label = Nothing + Me.txtUID.Name = "txtUID" + Me.txtUID.ReadOnly = True + Me.txtUID.Size = New System.Drawing.Size(83, 20) + Me.txtUID.TabIndex = 106 ' 'usrcntlFiskaluebersicht ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.picLocked) + Me.Controls.Add(Me.Button4) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.cbxFiskalart) + Me.Controls.Add(Me.lblWarning) Me.Controls.Add(Me.lblCheckliste) Me.Controls.Add(Me.lblFiskaluebersicht) Me.Controls.Add(Me.MyPanel1) - Me.Controls.Add(Me.cbxEORI) - Me.Controls.Add(Me.txtEORI) - Me.Controls.Add(Me.cbxUID) - Me.Controls.Add(Me.txtUID) - Me.Controls.Add(Me.cbxVollmacht) - Me.Controls.Add(Me.txtVM) - Me.Controls.Add(Me.cbxBonitaet) - Me.Controls.Add(Me.txtBon) - Me.Controls.Add(Me.cbxHomepage) - Me.Controls.Add(Me.txtHomepage) Me.Controls.Add(Me.btn) Me.Controls.Add(Me.dgvFiskaluebersicht) Me.Controls.Add(Me.MyPanel2) Me.Name = "usrcntlFiskaluebersicht" - Me.Size = New System.Drawing.Size(922, 563) - CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).EndInit() + Me.Size = New System.Drawing.Size(933, 765) + CType(Me.picLocked, System.ComponentModel.ISupportInitialize).EndInit() Me.MyPanel1.ResumeLayout(False) - CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).EndInit() Me.MyPanel2.ResumeLayout(False) Me.MyPanel2.PerformLayout() - CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvLieferanten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picEORIOK, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picOK, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvUnterlagen, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -467,14 +805,36 @@ Partial Class usrcntlFiskaluebersicht Friend WithEvents cbxEORI As CheckBox Friend WithEvents txtEORI As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel - Friend WithEvents btnCancel As Button Friend WithEvents btnOK As Button Friend WithEvents btnSave As Button Friend WithEvents btnPDFReport As Button Friend WithEvents lblFiskaluebersicht As Label Friend WithEvents lblCheckliste As Label Friend WithEvents lblUnterlagen As Label - Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents dgvUnterlagen As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents MyPanel2 As VERAG_PROG_ALLGEMEIN.MyPanel - Friend WithEvents MyDatagridview2 As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents Button1 As Button + Friend WithEvents Label1 As Label + Friend WithEvents cbxFiskalart As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents lblWarning As Label + Friend WithEvents Button4 As Button + Friend WithEvents usrcntlUnterlagen As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList + Friend WithEvents scanHandelsreg As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents scanPass As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents scanFB As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents scanInfo As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents picOK As PictureBox + Friend WithEvents picEORIOK As PictureBox + Friend WithEvents Button2 As Button + Friend WithEvents picLocked As PictureBox + Friend WithEvents lblBeurteilung As Label + Friend WithEvents Label3 As Label + Friend WithEvents Label2 As Label + Friend WithEvents lblAnmerkungen As Label + Friend WithEvents RichTextBox1 As RichTextBox + Friend WithEvents Button3 As Button + Friend WithEvents dgvEmpfaenger As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents dgvLieferanten As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents lblAbschluss As Label End Class diff --git a/SDL/kunden/usrcntlFiskaluebersicht.resx b/SDL/kunden/usrcntlFiskaluebersicht.resx index 212c40f3..ca08742d 100644 --- a/SDL/kunden/usrcntlFiskaluebersicht.resx +++ b/SDL/kunden/usrcntlFiskaluebersicht.resx @@ -140,4 +140,7 @@ FEaPY4mTFJJ6co823Pd0fUp+pcLwB13/pHM2JK4ajYO8aVLg+wHNP9/gygoUfWs4AAAAAElFTkSuQmCC + + True + \ No newline at end of file diff --git a/SDL/kunden/usrcntlFiskaluebersicht.vb b/SDL/kunden/usrcntlFiskaluebersicht.vb index fe336d85..a7aa944e 100644 --- a/SDL/kunden/usrcntlFiskaluebersicht.vb +++ b/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 diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.Designer.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.Designer.vb index 5d2f405d..2bda848f 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.Designer.vb @@ -144,7 +144,7 @@ Partial Class usrcntlPDFScanList Friend WithEvents cntxtMulti As System.Windows.Forms.ContextMenuStrip Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents picAdd As System.Windows.Forms.PictureBox + Public WithEvents picAdd As System.Windows.Forms.PictureBox Public WithEvents MyListBox1 As MyListBox Friend WithEvents UmbenennenToolStripMenuItem As Windows.Forms.ToolStripMenuItem Friend WithEvents KopierenZwischenablageToolStripMenuItem As Windows.Forms.ToolStripMenuItem diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb b/VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb index 945b9a28..8966904e 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb @@ -7,8 +7,18 @@ Public Class cFiskalkunden Property FK_Kdnr As Object = Nothing Property FK_Datum As Object = Nothing Property FK_Art As Object = Nothing - Property FK_locked As Object = Nothing + Property FK_Homepage As Object = Nothing + Property FK_Bonitaet As Object = Nothing + Property FK_Vollmacht As Object = Nothing + Property FK_UID As Object = Nothing + Property FK_EORI As Object = Nothing + Property FK_Homepage_URL As Object = Nothing + Property FK_Homepage_PDF As Object = Nothing + Property FK_DatenarchivId As Object = Nothing + Property FK_MaId As Object = Nothing + Property FK_Abschlussdatum As Object = Nothing + Property FK_Anmerkung As Object = Nothing Public hasEntry = False @@ -29,6 +39,18 @@ Public Class cFiskalkunden list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Kdnr", FK_Kdnr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Datum", FK_Datum)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Art", FK_Art)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_locked", FK_locked)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Homepage", FK_Homepage)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Bonitaet", FK_Bonitaet)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Vollmacht", FK_Vollmacht)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_UID", FK_UID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_EORI", FK_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Homepage_URL", FK_Homepage_URL)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Homepage_PDF", FK_Homepage_PDF)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_DatenarchivId", FK_DatenarchivId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Anmerkung", FK_Anmerkung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Abschlussdatum", FK_Abschlussdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_MaId", FK_MaId)) Return list End Function @@ -51,7 +73,7 @@ Public Class cFiskalkunden Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM tblTABLE WHERE FK_Id=@FK_Id ", conn) + Using cmd As New SqlCommand("SELECT * FROM tblFiskalkunden WHERE FK_Id=@FK_Id ", conn) cmd.Parameters.AddWithValue("@FK_Id", FK_Id) Dim dr = cmd.ExecuteReader() If dr.Read Then @@ -117,6 +139,24 @@ Public Class cFiskalkunden Return "" End Function + Public Function deleteEntry(ByVal FK_Id As Integer) As Boolean + + Dim sql = "DELETE FROM tblFiskalkunden WHERE FK_Id=@FK_Id" + + Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand(sql, conn) + cmd.Parameters.AddWithValue("@FK_Id", FK_Id) + Try + cmd.ExecuteNonQuery() + Return True + Catch ex As SqlException + MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") + End Try + End Using + End Using + Return False + End Function + End Class