From 7d12e603ad357fd04c091fdf089b08fd33732d74 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 28 Oct 2025 17:13:18 +0100 Subject: [PATCH] FIBU, cFakt, etc. --- .../frmStartOptions.Designer.vb | 22 +++++++++---------- initATLASAufschubkonten/frmStartOptions.vb | 8 +++++-- 2 files changed, 17 insertions(+), 13 deletions(-) diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 6186fd0..3055a80 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -25,6 +25,7 @@ Partial Class frmStartOptions Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Me.pnl = New System.Windows.Forms.Panel() + Me.cbxUpdateFIBU = New System.Windows.Forms.CheckBox() Me.cbxUseUIDFinanzOnline = New System.Windows.Forms.CheckBox() Me.txtMRNPrefix = New System.Windows.Forms.TextBox() Me.ATCNRinRE = New System.Windows.Forms.LinkLabel() @@ -357,7 +358,6 @@ Partial Class frmStartOptions Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.cbxUpdateFIBU = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit() @@ -495,6 +495,16 @@ Partial Class frmStartOptions Me.pnl.Size = New System.Drawing.Size(1229, 946) Me.pnl.TabIndex = 0 ' + 'cbxUpdateFIBU + ' + Me.cbxUpdateFIBU.AutoSize = True + Me.cbxUpdateFIBU.Location = New System.Drawing.Point(18, 139) + Me.cbxUpdateFIBU.Name = "cbxUpdateFIBU" + Me.cbxUpdateFIBU.Size = New System.Drawing.Size(121, 17) + Me.cbxUpdateFIBU.TabIndex = 140 + Me.cbxUpdateFIBU.Text = "UID-Update in FIBU" + Me.cbxUpdateFIBU.UseVisualStyleBackColor = True + ' 'cbxUseUIDFinanzOnline ' Me.cbxUseUIDFinanzOnline.AutoSize = True @@ -4781,16 +4791,6 @@ Partial Class frmStartOptions Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" ' - 'cbxUpdateFIBU - ' - Me.cbxUpdateFIBU.AutoSize = True - Me.cbxUpdateFIBU.Location = New System.Drawing.Point(18, 139) - Me.cbxUpdateFIBU.Name = "cbxUpdateFIBU" - Me.cbxUpdateFIBU.Size = New System.Drawing.Size(83, 17) - Me.cbxUpdateFIBU.TabIndex = 140 - Me.cbxUpdateFIBU.Text = "UID in FIBU" - Me.cbxUpdateFIBU.UseVisualStyleBackColor = True - ' 'frmStartOptions ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 85ad182..111d04b 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -3183,6 +3183,7 @@ Public Class frmStartOptions Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1000) As Boolean + getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag",,, True, finanzOnline, veroegerungMs) getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",,, True, finanzOnline, veroegerungMs) getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag",,, True, finanzOnline, veroegerungMs) @@ -3337,7 +3338,7 @@ 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.
Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. " - Body &= "
Ungültige UID-Nummern werden automatisch im Aviso vermerkt!" + Body &= "
Ungültige UID-Nummern werden automatisch im Aviso" & IIf(updateFIBU, " und in der Buchhaltung", "") & " vermerkt!" Body &= "

Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString Body &= "

Automatisch generiertes E-Mail." @@ -3798,6 +3799,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;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) 'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text) @@ -4281,12 +4283,13 @@ Public Class frmStartOptions Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - ' Dim bool = getUID_PruefungIMEX(MyTextBox1.Text) + Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked) showPic(bool, PictureBox12) End Sub Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", "io@ambarlog.de", , "al@verag.ag;as@verag.ag", MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked) showPic(bool, PictureBox12) End Sub @@ -4438,6 +4441,7 @@ Public Class frmStartOptions Private Sub LinkLabel36_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel36.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + Dim bool = getUID_Pruefung(MyTextBox1.Text, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked) showPic(bool, PictureBox12) End Sub