Kundenuebersicht UIDveranlagt

SDL/cProgramFunctions.vb

@@ -11,6 +11,7 @@ Imports itextsharp.text.pdf
 Imports SDL.eu.europa.ec
 Imports Microsoft.Office.Interop
 Imports GrapeCity.DataVisualization.TypeScript
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class cBerechtignungenFunctions
 
@@ -142,6 +143,58 @@ Public Class cProgramFunctions
         Return valid
     End Function
 
+
+    Public Shared Sub genUIDEORIList(kdNr, typeListe, Optional UIDVeranldgungskunden = False)
+        If kdNr <= 0 Then Exit Sub
+        Dim frmList As New frmKundenUIDEORI_List
+        Select Case typeListe
+            Case "UID"
+                Dim dt = (New SQL).loadDgvBySql("SELECT [uid_id],[uid_KundenNr] KundenNr,[uid_UstIdKz]UstIdKz,[uid_UstIdNr]UstIdNr,[uid_Datum]Datum,[uid_valid]Gültig,[uid_Sachbearbeiter]Sachbearbeiter,[uid_stufe]Stufe FROM [tblUIDPruefung] where uid_KundenNr='" & kdNr & "' AND ISNULL(uid_typ, 'UID') = '" & IIf(UIDVeranldgungskunden, "VAK", "UID") & "' ORDER BY uid_Datum desc", "FMZOLL")
+                If dt IsNot Nothing Then
+                    frmList.dgv.DataSource = dt
+                    frmList.dgv.Columns("uid_id").Visible = False
+                    AddHandler frmList.dgv.CellDoubleClick, Sub()
+                                                                Dim PdfTmp = SDL.FormularManagerNEU.UID_PRUEFUNG_PROTOKOLL(frmList.dgv.SelectedRows(0).Cells("uid_id").Value)
+                                                                If PdfTmp <> "" Then
+                                                                    Process.Start(PdfTmp)
+
+                                                                End If
+                                                            End Sub
+                    frmList.Show()
+                End If
+            Case "EORI"
+
+                Dim dt = (New 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
+
+                    Dim KUNDE As New cKunde(kdNr)
+                    '--------------------------
+                    AddHandler frmList.dgv.CellDoubleClick, Sub()
+                                                                Dim eoripruef As New cEORIPruefung(frmList.dgv.SelectedRows(0).Cells("eori_id").Value)
+                                                                Dim msgErgebnis
+                                                                If eoripruef.eori_valid Then
+                                                                    msgErgebnis = "EORI-Nr. GÜLTIG   -   OK"
+                                                                Else
+                                                                    msgErgebnis = "EORI-Nr. UNGÜLTIG"
+                                                                End If
+
+                                                                Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, eoripruef.eori_firma, eoripruef.eori_sessionID, KUNDE.EORITIN,, eoripruef.eori_sendungsid, eoripruef.eori_datum, eoripruef.eori_sachbearbeiter, eoripruef.eori_FirmaID)
+                                                                If PdfTmp <> "" Then
+                                                                    Process.Start(PdfTmp)
+
+                                                                End If
+                                                            End Sub
+                    '--------------------------
+
+                    frmList.Show()
+                End If
+
+        End Select
+
+
+    End Sub
     Shared Function getISO2Land(LandKz As String)
         If LandKz Is Nothing Then Return Nothing
         Dim sqlstr = "SELECT TOP 1 isnull([Länderverzeichnis für die Außenhandelsstatistik].LandKz,'') AS LandKzISO2 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel     WHERE Währungstabelle.LandKz='" & LandKz & "' "
@@ -468,7 +521,7 @@ Public Class cProgramFunctions
         'raus hier bei nicht-nummerischem Argument
         If Not IsNumeric(varNr) Then Exit Function
 
-        fctRound = Fix("" & varNr * (10 ^ varPl) + Math.Sign(varNr) * 0.5) / (10 ^ varPl)
+        fctRound = Fix("" & varNr * (10 ^ varPl) + Math.sign(varNr) * 0.5) / (10 ^ varPl)
 
     End Function
 
@@ -1451,9 +1504,9 @@ Public Class cProgramFunctions
 
 
             For Each dgvCol As DataGridViewColumn In dgv.Columns
-                    col = New DataColumn(dgvCol.Name)
+                col = New DataColumn(dgvCol.Name)
-                    dt.Columns.Add(col)
+                dt.Columns.Add(col)
-                Next
+            Next
 
             'Add Rows from the datagridview
             Dim row As DataRow

SDL/kunden/usrCntlKundenuebersicht.resx

@@ -209,6 +209,21 @@
         ZKu8wIj8cOK/xAMdlNTj9YkAAAAASUVORK5CYII=
 </value>
   </data>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>832, 17</value>
+  </metadata>
+  <metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>989, 17</value>
+  </metadata>
+  <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1146, 17</value>
+  </metadata>
+  <metadata name="ContextMenuStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1303, 17</value>
+  </metadata>
+  <metadata name="ContextMenuStrip5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>153, 56</value>
+  </metadata>
   <metadata name="KtoId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
@@ -230,21 +245,6 @@
   <metadata name="BIN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
-  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>832, 17</value>
-  </metadata>
-  <metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>989, 17</value>
-  </metadata>
-  <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1146, 17</value>
-  </metadata>
-  <metadata name="ContextMenuStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1303, 17</value>
-  </metadata>
-  <metadata name="ContextMenuStrip5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>153, 56</value>
-  </metadata>
   <metadata name="SessionService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 56</value>
   </metadata>

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -449,6 +449,19 @@ Public Class usrCntlKundenuebersicht
                 End If
             End If
 
+            txtUIDVeranlagt.Text = ""
+
+
+            Dim SQLUIDVeranlagt = "SELECT STUFF((
+                            SELECT ', ' + UstIdKz + '-' + UstIdNr +
+                                 CASE 
+                                     WHEN [UstIdGeprüft] IS NULL THEN ' (nicht geprüft)'
+                                     ELSE ' (' + CAST(CAST([UstIdGeprüft] AS DATE) AS NVARCHAR) + ')' 
+                                 END
+                            FROM [VERAG].[dbo].[tblKundenveranlagungUID]
+                            WHERE [KdNr] = " & KUNDE.KundenNr & "FOR XML PATH(''), TYPE).value('.', 'NVARCHAR(MAX)'), 1, 2, '') AS Result;"
+
+            txtUIDVeranlagt.Text = SQL.getValueTxtBySql(SQLUIDVeranlagt, "FMZOLL")
 
 
             lblEORI.Text = ""
@@ -2804,7 +2817,7 @@ Public Class usrCntlKundenuebersicht
     End Sub
 
     Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
-        genUIDEORIList(kdNr, "UID")
+        SDL.cProgramFunctions.genUIDEORIList(kdNr, "UID")
 
     End Sub
 
@@ -3310,7 +3323,7 @@ Public Class usrCntlKundenuebersicht
     End Sub
 
     Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
-        genUIDEORIList(kdNr, "EORI")
+        SDL.cProgramFunctions.genUIDEORIList(kdNr, "EORI")
     End Sub
 
     Private Sub setCreditsafereportEntry(cs As cCreditSafeAPI, company As cCreditSafeAPI.Company, Optional forecedReqest As Boolean = False)
@@ -3651,4 +3664,8 @@ Public Class usrCntlKundenuebersicht
 
 
     End Sub
+
+    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
+        SDL.cProgramFunctions.genUIDEORIList(KUNDE.KundenNr, "UID", True)
+    End Sub
 End Class

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -1530,13 +1530,13 @@ Public Class usrcntlKundeBearbeitenFull
 
     Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
 
-        genUIDEORIList(KUNDE.KundenNr, "UID")
+        SDL.cProgramFunctions.genUIDEORIList(KUNDE.KundenNr, "UID")
 
     End Sub
 
     Private Sub Button13_new_Click(sender As Object, e As EventArgs) Handles Button5.Click
 
-        genUIDEORIList(KUNDE.KundenNr, "UID", True)
+        SDL.cProgramFunctions.genUIDEORIList(KUNDE.KundenNr, "UID", True)
 
     End Sub