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

Fiskaluebersicht

Browse Source
This commit is contained in:
d.breimaier
2023-05-19 14:42:30 +02:00
parent 9f39fed031
commit 0d9188afcf
14 changed files with 1572 additions and 477 deletions
Download Patch File Download Diff File Expand all files Collapse all files

158
SDL/Classes/cEORIPruefung.vb Normal file
View File

@@ -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

31
SDL/Classes/cEORIWebService.vb
View File

@@ -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

10
SDL/My Project/Resources.Designer.vb generated
View File

@@ -1084,6 +1084,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
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
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

191
SDL/My Project/Resources.resx
View File

@@ -148,6 +148,9 @@
<data name="person1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="verag_Card1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\verag_Card1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -157,8 +160,8 @@
<data name="reloadFinance" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\data\reloadFinance.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="plose_it" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_it.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -169,14 +172,11 @@
<data name="positionen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\liste-logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fax" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ambar_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="dakosy1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dakosy1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -232,6 +232,9 @@
<data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_exit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\exit.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -253,6 +256,9 @@
<data name="rechnung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\rechnung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asfinag" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -265,9 +271,6 @@
<data name="pfeil_oben" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_oben.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="warenkorb1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warenkorb1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -283,9 +286,6 @@
<data name="person_default" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einheitspapier_0735_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="entwurf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\entwurf.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -295,15 +295,18 @@
<data name="email11" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abc_obu" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einheitspapier_0735_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flagge_tr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flagge_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="creditsafe" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\creditsafe.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="telefon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\telefon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -331,17 +334,17 @@
<data name="Atilla_big_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="list_new_small2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einheitspapier_0777_kurz" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0777_kurz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lorry_motion" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lorry_motion.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxRotateLeft_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Route1_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uhr_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -349,9 +352,6 @@
<data name="statistik" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pfeil_rechts" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aeo_CS" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>F:\Grafik\VERAG\AEO\aeo_CS.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -367,9 +367,6 @@
<data name="sgs" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sgs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route1_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="passpic" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passpic.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -385,6 +382,9 @@
<data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sicherheit11" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spedbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -427,15 +427,15 @@
<data name="Excel_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="compose" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxNext_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="changeKd" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plose_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -445,18 +445,18 @@
<data name="cards1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cards1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxRotateRight_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spedbuch1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flagge_D" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_big_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route4_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route4_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="VERAG_AEO_MailSig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\VERAG_AEO_MailSig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -472,14 +472,11 @@
<data name="data" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\data.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einheitspapier_0735_bottom" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="unisped_aeo_ZS_AT" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unisped_aeo_ZS_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="house1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="pay_card" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pay_card.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ok_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -508,6 +505,9 @@
<data name="belegEUR1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\belegEUR1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="awor" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -529,15 +529,15 @@
<data name="arrow_right" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uta" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="del_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg_rot_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_Customs_Service_AEO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pay_card_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pay_card_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -547,9 +547,6 @@
<data name="list1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-note11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="axxes" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -559,15 +556,12 @@
<data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="email_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aktiveVeredelung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aktiveVeredelung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_print1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_print1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cards" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cards.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -607,8 +601,8 @@
<data name="transp" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\transp.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="changeKd" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="uta" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="LKW" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\LKW1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -616,6 +610,9 @@
<data name="Unisped_DE_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_DE_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="checklist1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="list_new_small1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\list_new_small1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -625,8 +622,8 @@
<data name="plose_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pay_card" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pay_card.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Route4_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route4_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statistik_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statistik1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -658,8 +655,8 @@
<data name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Atilla__sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="email_big_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -688,14 +685,17 @@
<data name="passpic_sw" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passpic_sw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="today" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_Customs_Service_GMBH_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-Customs-Service-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="awor" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="compose" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="transfer" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\transfer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -706,8 +706,8 @@
<data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="FA_Graz_EV_Veranlagung_Muster" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\FA_Graz_EV-Veranlagung_Muster.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
@@ -715,8 +715,8 @@
<data name="seal" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abc_obu" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="picboxRotateLeft_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -727,8 +727,8 @@
<data name="LKW_klein1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Aviso1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxRotateRight_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="fax" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -736,17 +736,20 @@
<data name="SR_EVOLOG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SR_EVOLOG.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="SR_TransFerry360" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="aeo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aeo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="SR_TransFerry360" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="Einheitspapier_0735_bottom" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="documents" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="today" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Einheitspapier_0735_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="android-note12" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-note12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -754,8 +757,8 @@
<data name="print_rg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\print_rg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plose_it" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_it.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="axxes" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="road" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\road.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -763,17 +766,17 @@
<data name="Unisped_ZS_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_ZS_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Einheitspapier_0735_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg_rot_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="list_new_small2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asfinag" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="pfeil_rechts" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="NDK" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -781,8 +784,8 @@
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Verag_Customs_Service_AEO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_print" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -823,8 +826,8 @@
<data name="report" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="moneybag1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\moneybag1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -835,8 +838,8 @@
<data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sicherheit11" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="email_print1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_print1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="VERAG_UNISPED_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\VERAG-UNISPED-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -853,8 +856,8 @@
<data name="scanner1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="del_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="house1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="rechnung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\rechnung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -862,8 +865,8 @@
<data name="Einheitspapier_0777_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0777_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="checklist1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Atilla__sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_AG_Logo_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -877,7 +880,7 @@
<data name="flagge_A" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="creditsafe" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\creditsafe.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="locked" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\locked.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
SDL/Resources/locked.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.1 KiB

6
SDL/SDL.vbproj
View File

@@ -298,6 +298,10 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\RKAesIcm.dll</HintPath>
</Reference>
<Reference Include="Spire.Pdf, Version=8.1.4.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\Spire.PDF\2022\Spire.Pdf.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.ComponentModel.Composition" />
<Reference Include="System.ComponentModel.Composition.Registration" />
@@ -506,6 +510,7 @@
<Compile Include="Classes\ATLAS_Zabis\cATLAS_zbPos.vb" />
<Compile Include="Classes\cCMR.vb" />
<Compile Include="Classes\cEABeleg.vb" />
<Compile Include="Classes\cEORIPruefung.vb" />
<Compile Include="Classes\cEORIWebService.vb" />
<Compile Include="Classes\cEP0735_Versand.vb" />
<Compile Include="Classes\cEPBes.vb" />
@@ -4462,6 +4467,7 @@
<None Include="Resources\pay_card_s.png" />
<None Include="Resources\pay_card_s1.png" />
<None Include="Resources\pay_cash_s.png" />
<None Include="Resources\locked.jpg" />
<Content Include="Resources\Verag_Customs_Service_AEO.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

14
SDL/kunden/frmKundenUebersichtZOLL.Designer.vb generated
View File

@@ -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

1
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -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)

20
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -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

1082
SDL/kunden/usrcntlFiskaluebersicht.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

3
SDL/kunden/usrcntlFiskaluebersicht.resx
View File

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

487
SDL/kunden/usrcntlFiskaluebersicht.vb
View File

@@ -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

2
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.Designer.vb generated
View File

@@ -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

44
VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb
View File

@@ -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