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

StartOpt - UIDPruefung (UM Ablösung)

Browse Source
This commit is contained in:
d.breimaier
2025-10-24 17:15:16 +02:00
parent 28f3c48f6c
commit 93e1f7bab2
2 changed files with 895 additions and 869 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1739
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

25
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -3325,7 +3325,7 @@ Public Class frmStartOptions
Private Function ValidateServerCertificate(sender As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) As Boolean Private Function ValidateServerCertificate(sender As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) As Boolean
Return True Return True
End Function 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 = "", Optional setKundenvermerk As Boolean = False, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1500) 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, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1500, Optional updateFIBU As Boolean = False) As Boolean
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Try Try
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = Mail_FIMRA VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = Mail_FIMRA
@@ -3349,7 +3349,6 @@ Public Class frmStartOptions
For Each r As DataRow In dt.Rows For Each r As DataRow In dt.Rows
If r("Ergebnis") = "UNGÜLTIG" Then If r("Ergebnis") = "UNGÜLTIG" Then
Dim kunde As cKunde = New cKunde(r("kdNr")) Dim kunde As cKunde = New cKunde(r("kdNr"))
Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(kunde.FilialenNr) Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(kunde.FilialenNr)
If KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then If KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
@@ -3369,14 +3368,26 @@ Public Class frmStartOptions
If kunde.Besonderheiten <> "" Then kunde.Besonderheiten &= vbNewLine If kunde.Besonderheiten <> "" Then kunde.Besonderheiten &= vbNewLine
kunde.Besonderheiten &= textUIDVermerk kunde.Besonderheiten &= textUIDVermerk
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : kunde.FiBuSchnittstelle = True 'IMEX-Kunden sollen neu in DVO exportiert werden!
End Select
kunde.SAVE() kunde.SAVE()
setUIDToNull(kunde) setUIDToNull(kunde)
End If End If
If updateFIBU Then
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim firma_id As String = ""
Dim vermerkNew As String = "UID Nr." & r("UstIdKz") & r("UstIdnr") & " ungültig"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG" : firma_id = "'1', '11'"
Case "ATILLA" : firma_id = "'7'"
End Select
If firma_id <> "" Then SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET [c_homepage]='" & vermerkNew & "',[c_text2] = isnull([c_ustidnr],''), [c_ustidnr] = '', c_manipulator = 'AUTO', dt_manipulation = Getdate() where i_konto='" & kunde.KundenNr & "' AND i_firm_refid in (" & firma_id & ")", "FIBU")
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : kunde.FiBuSchnittstelle = True : kunde.SAVE() 'IMEX-Kunden sollen neu in DVO exportiert werden!
End Select
changeSteuerschlüssel(kunde) changeSteuerschlüssel(kunde)
End If End If
@@ -3787,7 +3798,7 @@ Public Class frmStartOptions
Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked) Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked, , cbxUpdateFIBU.Checked)
'bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "d.breimaier@verag.ag",,, MyTextBox2._value, cbxVermerk.Checked) 'bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "d.breimaier@verag.ag",,, MyTextBox2._value, cbxVermerk.Checked)
'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text) 'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text)
showPic(bool, PictureBox12) showPic(bool, PictureBox12)