auotm. Vermerk (inkl löschen der UID-Nr und setzen des Steuerschlüssels) bei ungültiger UID-Nr.
This commit is contained in:
@@ -6,6 +6,8 @@ Imports System.Xml
|
||||
Imports DocumentFormat.OpenXml.Drawing.Diagrams
|
||||
Imports DocumentFormat.OpenXml.Wordprocessing
|
||||
Imports Renci.SshNet
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
|
||||
Public Class frmStartOptions
|
||||
Dim WithEvents timer As New Timer
|
||||
@@ -2360,7 +2362,7 @@ Public Class frmStartOptions
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Function getUID_Pruefung(maxAnz As Integer, Mail_FIMRA As String, Mail_betreff As String, Mail_To As String, Optional Mail_CC As String = "", Optional Mail_BCC As String = "", Optional TageZurueck As String = "") As Boolean
|
||||
Function getUID_Pruefung(maxAnz As Integer, Mail_FIMRA As String, Mail_betreff As String, Mail_To As String, Optional Mail_CC As String = "", Optional Mail_BCC As String = "", Optional TageZurueck As String = "", Optional setKundenvermerk As Boolean = False) As Boolean
|
||||
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = Mail_FIMRA
|
||||
@@ -2372,13 +2374,53 @@ Public Class frmStartOptions
|
||||
Dim list As New List(Of String)
|
||||
list.Add(PDF)
|
||||
Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
|
||||
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
|
||||
Body &= "<br><b>Ungültige UID-Nummern werden automatisch im Aviso vermerkt!</b>"
|
||||
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
Body &= "<br><br>Automatisch generiertes E-Mail."
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mail_To, Mail_betreff, Body,,, False, Mail_CC, Mail_BCC, list)
|
||||
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
|
||||
End If
|
||||
|
||||
If setKundenvermerk Then
|
||||
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("Ergebnis") = "UNGÜLTIG" Then
|
||||
|
||||
Dim kunde As cKunde = New cKunde(r("kdNr"))
|
||||
Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(kunde.FilialenNr)
|
||||
If KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
|
||||
Dim kundeErw As cKundenErweitert = New cKundenErweitert(kunde.KundenNr)
|
||||
Dim textUIDVermerk As String = "UID Nr." & r("UstIdKz") & r("UstIdnr") & " ungültig, zuletzt geprüft wo gültig am " & r("letzte Prüfung") & " lt. Aufstellung Andreas!"
|
||||
|
||||
If kundeErw.kde_BesonderheitenNeu Then
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
If SQL.doSQL("INSERT INTO tblKundenBesonderheiten (kdb_KundenNr,kdb_kategorie,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_visible,kdb_hervorheben,kdb_history) " &
|
||||
" VALUES(" & kunde.KundenNr & ",'ALLG' ,'" & textUIDVermerk & "'," & "4" & ",'" & "ADMIN" & "','" & Now() & "',1,1,0)", "FMZOLL") Then
|
||||
setUIDToNull(kunde)
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
If kunde.Besonderheiten <> "" Then kunde.Besonderheiten &= vbNewLine
|
||||
kunde.Besonderheiten &= textUIDVermerk
|
||||
kunde.SAVE()
|
||||
setUIDToNull(kunde)
|
||||
|
||||
End If
|
||||
changeSteuerschlüssel(kunde)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp
|
||||
Return True
|
||||
@@ -2389,6 +2431,39 @@ Public Class frmStartOptions
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Sub setUIDToNull(kunde)
|
||||
|
||||
Dim addressen As cAdressen = New cAdressen(kunde.KundenNr)
|
||||
addressen.UstIdKz = DBNull.Value
|
||||
addressen.UstIdNr = DBNull.Value
|
||||
addressen.UstIdGeprüft = DBNull.Value
|
||||
addressen.SAVE()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub changeSteuerschlüssel(kunde As cKunde)
|
||||
|
||||
If kunde.Steuerschlüssel IsNot Nothing Then
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim steuersatz = SQL.DLookup("[Steuersatz %]", "[Steuertabelle]", "[Steuerschlüssel]='" & kunde.Steuerschlüssel & "'", "FMZOLL", -1)
|
||||
|
||||
If steuersatz = 0 Then
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND
|
||||
Case "AT"
|
||||
kunde.Steuerschlüssel = 2
|
||||
Case "DE"
|
||||
kunde.Steuerschlüssel = 19
|
||||
End Select
|
||||
kunde.SAVE()
|
||||
Else
|
||||
Exit Sub 'Steuersatz ist hinterlegt, keiner Änderung!
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
'Function getUID_PruefungVERAG(maxAnz As Integer) As Boolean
|
||||
' Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
' Try
|
||||
@@ -2741,7 +2816,7 @@ Public Class frmStartOptions
|
||||
|
||||
Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag",, MyTextBox2._value)
|
||||
Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked)
|
||||
'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text)
|
||||
showPic(bool, PictureBox12)
|
||||
End Sub
|
||||
@@ -3047,20 +3122,19 @@ Public Class frmStartOptions
|
||||
End If
|
||||
SDL.Sachbearbeiter = "ASFINAG"
|
||||
|
||||
Dim Validto = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
|
||||
Dim Validto = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
|
||||
|
||||
SDL.KartenNr = SQl.checkNullStr(oRDR.GetValue("CardNumber"))
|
||||
SDL.KartenNr = SQL.checkNullStr(oRDR.GetValue("CardNumber"))
|
||||
If Validto <> "" Then
|
||||
SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(Validto, 1, 2), Mid(Validto, 3, 2), 1)))
|
||||
End If
|
||||
|
||||
SDL.OBUID = SQl.checkNullStr(oRDR.GetValue("OBUID"))
|
||||
SDL.Vertragsabschlussdatum = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
|
||||
SDL.Kategorie = SQl.checkNullStr(oRDR.GetValue("Kategorie"))
|
||||
SDL.Schadstoffklasse = SQl.checkNullStr(oRDR.GetValue("Schadstoffklasse"))
|
||||
SDL.Status = SQl.checkNullStr(oRDR.GetValue("Status"))
|
||||
SDL.OBUID = SQL.checkNullStr(oRDR.GetValue("OBUID"))
|
||||
SDL.Vertragsabschlussdatum = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
|
||||
SDL.Kategorie = SQL.checkNullStr(oRDR.GetValue("Kategorie"))
|
||||
SDL.Schadstoffklasse = SQL.checkNullStr(oRDR.GetValue("Schadstoffklasse"))
|
||||
SDL.Status = SQL.checkNullStr(oRDR.GetValue("Status"))
|
||||
SDL.SAVE()
|
||||
|
||||
End If
|
||||
|
||||
End While
|
||||
|
||||
Reference in New Issue
Block a user