ustva-Antraege, Email Fakturierung, FIskaluebersicht, Benachrichtigungen, Essensbestellungen für Unisped

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb

@@ -0,0 +1,122 @@
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+
+Public Class cUStVLeistender
+    Property UStV_Leistender As String
+    Property UstV_Leistender_PLZ As Object = Nothing
+    Property UstV_Leistender_Strasse As Object = Nothing
+    Property UstV_Leistender_Stadt As Object = Nothing
+    Property UstV_Leistender_StrasseNr As Object = Nothing
+    Property UstV_Leistender_Land As Object = Nothing
+    Property UstV_Leistender_UstNr As Object = Nothing
+    Property UstV_Leistender_Adresse As Boolean
+
+
+    Public hasEntry = False
+
+        Dim SQL As New SQL
+
+    Sub New(UStV_Leistender)
+        Me.UStV_Leistender = UStV_Leistender
+        LOAD()
+    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("UStV_Leistender", UStV_Leistender,, True))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_PLZ", UstV_Leistender_PLZ))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Strasse", UstV_Leistender_Strasse))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Stadt", UstV_Leistender_Stadt))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_StrasseNr", UstV_Leistender_StrasseNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Land", UstV_Leistender_Land))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_UstNr", UstV_Leistender_UstNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Adresse", UstV_Leistender_Adresse))
+        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 tblUStVLeistender  WHERE UStV_Leistender=@UStV_Leistender) " &
+                       " BEGIN " & getUpdateCmd() & " END " & " commit tran "
+        '" 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 tblUStVLeistender WHERE UStV_Leistender=@UStV_Leistender  ", conn)
+                    cmd.Parameters.AddWithValue("@UStV_Leistender", UStV_Leistender)
+                    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
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End Sub
+
+
+
+        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 [tblUStVLeistender] SET " & str & " WHERE UStV_Leistender=@UStV_Leistender ")
+
+        Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            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 tblUStVLeistender  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+            Return ""
+        End Function
+
+    End Class
+

VERAG_PROG_ALLGEMEIN/Classes/cNCTSGestellungsadressen.vb

@@ -14,6 +14,7 @@ Public Class cNCTSGestellungsadressen
     Property nga_Ansprechpartner As Object = Nothing
     Property nga_bestZollst As Object = Nothing
     Property nga_SB As Object = Nothing
+    Property nga_ATANr As Object = Nothing
     Property nga_firma As Object = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
     Property nga_Aenderungsdatum As Date = Now
 
@@ -45,6 +46,7 @@ Public Class cNCTSGestellungsadressen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_EORI", nga_EORI))
 
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_EORI_NL", nga_EORI_NL))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_ATANr", nga_ATANr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_Ansprechpartner", nga_Ansprechpartner))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_bestZollst", nga_bestZollst))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_SB", nga_SB))

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -809,6 +809,14 @@ Public Class cSendungen
         Return adresse.Trim
     End Function
 
+    Public Function getNCTSATANr(Optional htmlOptimized As Boolean = False) As String
+        Dim ataNr = ""
+        ataNr &= If(Me.tblSnd_ATANr, "") & vbNewLine
+
+        If htmlOptimized Then ataNr = ataNr.Trim.Replace(vbNewLine, "<br/>")
+        Return ataNr.Trim
+    End Function
+
 
     Public Function getEmpfaengerAdress(Optional htmlOptimized As Boolean = False, Optional ansprechpartner As Boolean = False) As String
         If tblSnd_EmpfaengerKdNr > 0 Then