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

Kundenuebersicht UIDveranlagt

Browse Source
This commit is contained in:
d.breimaier
2026-03-30 11:02:17 +02:00
parent 94e162acd9
commit d3e19b34ef
5 changed files with 1377 additions and 1267 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
SDL/cProgramFunctions.vb
View File

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

2528
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

30
SDL/kunden/usrCntlKundenuebersicht.resx
View File

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

21
SDL/kunden/usrCntlKundenuebersicht.vb
View File

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

4
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

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