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

div, Änderungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-07-27 18:00:05 +02:00
parent 4e8ddb8afc
commit 1317f09cb7
6 changed files with 201 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
UID/frmMain.Designer.vb generated
View File

@@ -52,6 +52,7 @@ Partial Class frmMain
Me.btnMitarbeiter = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.Panel3.SuspendLayout()
Me.Panel2.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -112,6 +113,7 @@ Partial Class frmMain
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.White
Me.Panel3.Controls.Add(Me.Button2)
Me.Panel3.Controls.Add(Me.btnInterneBenachrichtigungen)
Me.Panel3.Controls.Add(Me.lblVersion)
Me.Panel3.Controls.Add(Me.btnAuditFlow)
@@ -139,7 +141,7 @@ Partial Class frmMain
'
Me.btnInterneBenachrichtigungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnInterneBenachrichtigungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnInterneBenachrichtigungen.Location = New System.Drawing.Point(12, 220)
Me.btnInterneBenachrichtigungen.Location = New System.Drawing.Point(12, 229)
Me.btnInterneBenachrichtigungen.Name = "btnInterneBenachrichtigungen"
Me.btnInterneBenachrichtigungen.Size = New System.Drawing.Size(94, 38)
Me.btnInterneBenachrichtigungen.TabIndex = 46
@@ -163,7 +165,7 @@ Partial Class frmMain
'
Me.btnAuditFlow.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAuditFlow.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAuditFlow.Location = New System.Drawing.Point(12, 287)
Me.btnAuditFlow.Location = New System.Drawing.Point(12, 296)
Me.btnAuditFlow.Name = "btnAuditFlow"
Me.btnAuditFlow.Size = New System.Drawing.Size(94, 33)
Me.btnAuditFlow.TabIndex = 44
@@ -175,7 +177,7 @@ Partial Class frmMain
'
Me.btnMailroutine.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMailroutine.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnMailroutine.Location = New System.Drawing.Point(12, 648)
Me.btnMailroutine.Location = New System.Drawing.Point(12, 657)
Me.btnMailroutine.Name = "btnMailroutine"
Me.btnMailroutine.Size = New System.Drawing.Size(94, 33)
Me.btnMailroutine.TabIndex = 43
@@ -187,7 +189,7 @@ Partial Class frmMain
'
Me.btnAPIZugang.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAPIZugang.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAPIZugang.Location = New System.Drawing.Point(12, 569)
Me.btnAPIZugang.Location = New System.Drawing.Point(12, 578)
Me.btnAPIZugang.Name = "btnAPIZugang"
Me.btnAPIZugang.Size = New System.Drawing.Size(94, 33)
Me.btnAPIZugang.TabIndex = 42
@@ -199,7 +201,7 @@ Partial Class frmMain
'
Me.btnDatenarchiv.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDatenarchiv.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDatenarchiv.Location = New System.Drawing.Point(12, 404)
Me.btnDatenarchiv.Location = New System.Drawing.Point(12, 413)
Me.btnDatenarchiv.Name = "btnDatenarchiv"
Me.btnDatenarchiv.Size = New System.Drawing.Size(94, 33)
Me.btnDatenarchiv.TabIndex = 41
@@ -211,7 +213,7 @@ Partial Class frmMain
'
Me.btnFehler.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFehler.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnFehler.Location = New System.Drawing.Point(12, 365)
Me.btnFehler.Location = New System.Drawing.Point(12, 374)
Me.btnFehler.Name = "btnFehler"
Me.btnFehler.Size = New System.Drawing.Size(94, 33)
Me.btnFehler.TabIndex = 40
@@ -223,7 +225,7 @@ Partial Class frmMain
'
Me.btnAPI.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAPI.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAPI.Location = New System.Drawing.Point(12, 326)
Me.btnAPI.Location = New System.Drawing.Point(12, 335)
Me.btnAPI.Name = "btnAPI"
Me.btnAPI.Size = New System.Drawing.Size(94, 33)
Me.btnAPI.TabIndex = 39
@@ -235,7 +237,7 @@ Partial Class frmMain
'
Me.btnHomepage.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnHomepage.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnHomepage.Location = New System.Drawing.Point(12, 490)
Me.btnHomepage.Location = New System.Drawing.Point(12, 499)
Me.btnHomepage.Name = "btnHomepage"
Me.btnHomepage.Size = New System.Drawing.Size(94, 33)
Me.btnHomepage.TabIndex = 38
@@ -247,7 +249,7 @@ Partial Class frmMain
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.Location = New System.Drawing.Point(12, 181)
Me.Button1.Location = New System.Drawing.Point(12, 190)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(94, 33)
Me.Button1.TabIndex = 38
@@ -258,7 +260,7 @@ Partial Class frmMain
'btnUpdate
'
Me.btnUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUpdate.Location = New System.Drawing.Point(12, 608)
Me.btnUpdate.Location = New System.Drawing.Point(12, 617)
Me.btnUpdate.Name = "btnUpdate"
Me.btnUpdate.Size = New System.Drawing.Size(94, 34)
Me.btnUpdate.TabIndex = 37
@@ -269,7 +271,7 @@ Partial Class frmMain
'
Me.btnSchulungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSchulungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSchulungen.Location = New System.Drawing.Point(12, 103)
Me.btnSchulungen.Location = New System.Drawing.Point(12, 112)
Me.btnSchulungen.Name = "btnSchulungen"
Me.btnSchulungen.Size = New System.Drawing.Size(94, 33)
Me.btnSchulungen.TabIndex = 36
@@ -281,7 +283,7 @@ Partial Class frmMain
'
Me.btnDienstplan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDienstplan.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDienstplan.Location = New System.Drawing.Point(12, 142)
Me.btnDienstplan.Location = New System.Drawing.Point(12, 151)
Me.btnDienstplan.Name = "btnDienstplan"
Me.btnDienstplan.Size = New System.Drawing.Size(94, 33)
Me.btnDienstplan.TabIndex = 35
@@ -303,7 +305,7 @@ Partial Class frmMain
'Button6
'
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button6.Location = New System.Drawing.Point(12, 529)
Me.Button6.Location = New System.Drawing.Point(12, 538)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(94, 34)
Me.Button6.TabIndex = 33
@@ -356,6 +358,18 @@ Partial Class frmMain
Me.PictureBox1.TabIndex = 31
Me.PictureBox1.TabStop = False
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.Location = New System.Drawing.Point(12, 76)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(94, 33)
Me.Button2.TabIndex = 47
Me.Button2.Text = "Firmen"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.UseVisualStyleBackColor = True
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -404,4 +418,5 @@ Partial Class frmMain
Friend WithEvents btnAuditFlow As Button
Friend WithEvents lblVersion As Label
Friend WithEvents btnInterneBenachrichtigungen As Button
Friend WithEvents Button2 As Button
End Class

7
UID/frmMain.vb
View File

@@ -269,4 +269,11 @@ Public Class frmMain
Dim f As New frminterneEmailBenachrichtigungen
f.Show(Me)
End Sub
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
Dim frm As New frmFirmenuebersicht
frm.Show(Me)
End Sub
End Class

14
UID/usrctlProcedures.Designer.vb generated
View File

@@ -181,6 +181,7 @@ Partial Class usrctlProcedures
Me.Button56 = New System.Windows.Forms.Button()
Me.Button57 = New System.Windows.Forms.Button()
Me.Button58 = New System.Windows.Forms.Button()
Me.Button59 = New System.Windows.Forms.Button()
Me.tbTRStat.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -1665,7 +1666,7 @@ Partial Class usrctlProcedures
'
'Button99
'
Me.Button99.Location = New System.Drawing.Point(741, 654)
Me.Button99.Location = New System.Drawing.Point(618, 660)
Me.Button99.Name = "Button99"
Me.Button99.Size = New System.Drawing.Size(75, 23)
Me.Button99.TabIndex = 66
@@ -1718,10 +1719,20 @@ Partial Class usrctlProcedures
Me.Button58.Text = "Allg"
Me.Button58.UseVisualStyleBackColor = True
'
'Button59
'
Me.Button59.Location = New System.Drawing.Point(789, 660)
Me.Button59.Name = "Button59"
Me.Button59.Size = New System.Drawing.Size(95, 23)
Me.Button59.TabIndex = 71
Me.Button59.Text = "Firmenlogo in DB"
Me.Button59.UseVisualStyleBackColor = True
'
'usrctlProcedures
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Button59)
Me.Controls.Add(Me.Button58)
Me.Controls.Add(Me.Button57)
Me.Controls.Add(Me.Button56)
@@ -1965,4 +1976,5 @@ Partial Class usrctlProcedures
Friend WithEvents Button56 As Button
Friend WithEvents Button57 As Button
Friend WithEvents Button58 As Button
Friend WithEvents Button59 As Button
End Class

46
UID/usrctlProcedures.vb
View File

@@ -4998,6 +4998,52 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
End Try
End Sub
Private Sub Button59_Click(sender As Object, e As EventArgs) Handles Button59.Click
Dim bild As Byte() = BildDateiLaden()
Dim eingabe As String = InputBox("Bitte FirmenID eingeben:", "FirmenID")
If String.IsNullOrWhiteSpace(eingabe) Then Exit Sub
Dim firmenID As Integer
If Not Integer.TryParse(eingabe, firmenID) Then
MessageBox.Show("Ungültige FirmenID!", "Fehler",
MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Using con As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
'con.Open()
Using cmd As New SqlCommand("UPDATE tblFirma SET Firma_Logo_Erweitert=@Firma_Logo_Erweitert WHERE Firma_ID=@Firma_ID", con)
cmd.Parameters.Add("@Firma_Logo_Erweitert", SqlDbType.VarBinary).Value = bild
cmd.Parameters.Add("@Firma_ID", SqlDbType.Int).Value = firmenID
cmd.ExecuteNonQuery()
End Using
End Using
End Sub
Public Function BildDateiLaden() As Byte()
Using ofd As New OpenFileDialog()
ofd.Title = "Bild auswählen"
ofd.Filter = "Bilddateien|*.jpg;*.jpeg;*.png;*.bmp;*.gif;*.webp|Alle Dateien|*.*"
ofd.Multiselect = False
If ofd.ShowDialog() = DialogResult.OK Then
Return File.ReadAllBytes(ofd.FileName)
End If
End Using
Return Nothing
End Function
'Private Sub Button26_Click(sender As Object, e As EventArgs)
' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
' Dim fi As New FileInfo(d)

117
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -338,6 +338,9 @@ Partial Class frmStartOptions
Me.Button28 = New System.Windows.Forms.Button()
Me.btnCreditsaveLauf = New System.Windows.Forms.Button()
Me.TabPage9 = New System.Windows.Forms.TabPage()
Me.Label66 = New System.Windows.Forms.Label()
Me.cbxNurAktiveKunen = New System.Windows.Forms.CheckBox()
Me.pbOfferten = New System.Windows.Forms.PictureBox()
Me.Button34 = New System.Windows.Forms.Button()
Me.Label57 = New System.Windows.Forms.Label()
Me.Label64 = New System.Windows.Forms.Label()
@@ -362,9 +365,6 @@ Partial Class frmStartOptions
Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.Button21 = New System.Windows.Forms.Button()
Me.pbOfferten = New System.Windows.Forms.PictureBox()
Me.cbxNurAktiveKunen = New System.Windows.Forms.CheckBox()
Me.Label66 = New System.Windows.Forms.Label()
Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -373,7 +373,6 @@ Partial Class frmStartOptions
Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -411,6 +410,8 @@ 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.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button35 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -457,11 +458,11 @@ Partial Class frmStartOptions
Me.TabPage6.SuspendLayout()
Me.TabPage7.SuspendLayout()
Me.TabPage9.SuspendLayout()
CType(Me.pbOfferten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pbOfferten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -470,6 +471,7 @@ Partial Class frmStartOptions
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Button35)
Me.pnl.Controls.Add(Me.Button33)
Me.pnl.Controls.Add(Me.LinkLabel54)
Me.pnl.Controls.Add(Me.Button32)
@@ -4265,13 +4267,13 @@ Partial Class frmStartOptions
Me.TabPage9.Controls.Add(Me.Label66)
Me.TabPage9.Controls.Add(Me.cbxNurAktiveKunen)
Me.TabPage9.Controls.Add(Me.pbOfferten)
Me.TabPage9.Controls.Add(Me.cbxLeistungNr)
Me.TabPage9.Controls.Add(Me.cbxOffertenNr)
Me.TabPage9.Controls.Add(Me.Button34)
Me.TabPage9.Controls.Add(Me.txtLeistungsNr)
Me.TabPage9.Controls.Add(Me.txtOfferenNr)
Me.TabPage9.Controls.Add(Me.Label57)
Me.TabPage9.Controls.Add(Me.Label64)
Me.TabPage9.Controls.Add(Me.cbxLeistungNr)
Me.TabPage9.Controls.Add(Me.cbxOffertenNr)
Me.TabPage9.Controls.Add(Me.txtLeistungsNr)
Me.TabPage9.Controls.Add(Me.txtOfferenNr)
Me.TabPage9.Location = New System.Drawing.Point(4, 22)
Me.TabPage9.Name = "TabPage9"
Me.TabPage9.Size = New System.Drawing.Size(1219, 513)
@@ -4279,6 +4281,40 @@ Partial Class frmStartOptions
Me.TabPage9.Text = "Offerten"
Me.TabPage9.UseVisualStyleBackColor = True
'
'Label66
'
Me.Label66.AutoSize = True
Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label66.Location = New System.Drawing.Point(77, 91)
Me.Label66.Name = "Label66"
Me.Label66.Size = New System.Drawing.Size(207, 13)
Me.Label66.TabIndex = 174
Me.Label66.Text = "Berechnungsart überschreiben (wenn leer)"
'
'cbxNurAktiveKunen
'
Me.cbxNurAktiveKunen.AutoSize = True
Me.cbxNurAktiveKunen.Checked = True
Me.cbxNurAktiveKunen.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxNurAktiveKunen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxNurAktiveKunen.Location = New System.Drawing.Point(22, 16)
Me.cbxNurAktiveKunen.Name = "cbxNurAktiveKunen"
Me.cbxNurAktiveKunen.Size = New System.Drawing.Size(188, 17)
Me.cbxNurAktiveKunen.TabIndex = 152
Me.cbxNurAktiveKunen.Text = "nur aktive/nicht gesperrte Kunden"
Me.cbxNurAktiveKunen.UseVisualStyleBackColor = True
'
'pbOfferten
'
Me.pbOfferten.BackgroundImage = CType(resources.GetObject("pbOfferten.BackgroundImage"), System.Drawing.Image)
Me.pbOfferten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pbOfferten.Location = New System.Drawing.Point(185, 126)
Me.pbOfferten.Name = "pbOfferten"
Me.pbOfferten.Size = New System.Drawing.Size(18, 18)
Me.pbOfferten.TabIndex = 152
Me.pbOfferten.TabStop = False
Me.pbOfferten.Visible = False
'
'Button34
'
Me.Button34.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -4548,40 +4584,6 @@ Partial Class frmStartOptions
Me.Button21.Text = "AAS Sendung 24h"
Me.Button21.UseVisualStyleBackColor = True
'
'pbOfferten
'
Me.pbOfferten.BackgroundImage = CType(resources.GetObject("pbOfferten.BackgroundImage"), System.Drawing.Image)
Me.pbOfferten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pbOfferten.Location = New System.Drawing.Point(185, 126)
Me.pbOfferten.Name = "pbOfferten"
Me.pbOfferten.Size = New System.Drawing.Size(18, 18)
Me.pbOfferten.TabIndex = 152
Me.pbOfferten.TabStop = False
Me.pbOfferten.Visible = False
'
'cbxNurAktiveKunen
'
Me.cbxNurAktiveKunen.AutoSize = True
Me.cbxNurAktiveKunen.Checked = True
Me.cbxNurAktiveKunen.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxNurAktiveKunen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxNurAktiveKunen.Location = New System.Drawing.Point(22, 16)
Me.cbxNurAktiveKunen.Name = "cbxNurAktiveKunen"
Me.cbxNurAktiveKunen.Size = New System.Drawing.Size(188, 17)
Me.cbxNurAktiveKunen.TabIndex = 152
Me.cbxNurAktiveKunen.Text = "nur aktive/nicht gesperrte Kunden"
Me.cbxNurAktiveKunen.UseVisualStyleBackColor = True
'
'Label66
'
Me.Label66.AutoSize = True
Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label66.Location = New System.Drawing.Point(77, 91)
Me.Label66.Name = "Label66"
Me.Label66.Size = New System.Drawing.Size(207, 13)
Me.Label66.TabIndex = 174
Me.Label66.Text = "Berechnungsart überschreiben (wenn leer)"
'
'MyTextBox3
'
Me.MyTextBox3._DateTimeOnly = False
@@ -4734,13 +4736,6 @@ Partial Class frmStartOptions
Me.dgvMRN.Size = New System.Drawing.Size(207, 134)
Me.dgvMRN.TabIndex = 75
'
'clmnMRN
'
Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnMRN.HeaderText = "MRN"
Me.clmnMRN.MinimumWidth = 8
Me.clmnMRN.Name = "clmnMRN"
'
'txtVRGOut_MRN
'
Me.txtVRGOut_MRN._DateTimeOnly = False
@@ -5539,6 +5534,25 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
'
'clmnMRN
'
Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnMRN.HeaderText = "MRN"
Me.clmnMRN.MinimumWidth = 8
Me.clmnMRN.Name = "clmnMRN"
'
'Button35
'
Me.Button35.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button35.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button35.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button35.Location = New System.Drawing.Point(996, 312)
Me.Button35.Name = "Button35"
Me.Button35.Size = New System.Drawing.Size(103, 40)
Me.Button35.TabIndex = 152
Me.Button35.Text = "check Sped-Einrtäge"
Me.Button35.UseVisualStyleBackColor = True
'
'frmStartOptions
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5615,11 +5629,11 @@ Partial Class frmStartOptions
Me.TabPage7.PerformLayout()
Me.TabPage9.ResumeLayout(False)
Me.TabPage9.PerformLayout()
CType(Me.pbOfferten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pbOfferten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
@@ -6012,4 +6026,5 @@ Partial Class frmStartOptions
Friend WithEvents cbxNurAktiveKunen As CheckBox
Friend WithEvents txtBerechnungsart As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label66 As Label
Friend WithEvents Button35 As Button
End Class

41
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -7,6 +7,7 @@ Imports System.Text
Imports System.Threading
Imports System.Xml
Imports com.sun.org.apache.xpath.internal.operations
Imports Confluent.Kafka
Imports iTextSharp.text
Imports javax
Imports MDM_Worker
@@ -8952,4 +8953,44 @@ repeatRequest:
txtLeistungsNr.Text = ""
End If
End Sub
Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim dt As DataTable = (New SQL).loadDgvBySql("select tblSnd_SendungID,AbfertigungsNr, FilialenNr, tblSnd_SpeditionsbuchEingetragen from tblSendungen where tblSnd_SpeditionsbuchEingetragen = 0 And Left(AbfertigungsNr, 2) = 26 And Year(tblSnd_Timestamp) = 2026 order by tblSnd_Timestamp desc ", "AVISO")
Dim counter As Integer = 0
If dt.Rows.Count > 0 Then
For Each r As DataRow In dt.Rows
Dim vorhanden As Integer = -1
Dim result As String = (New SQL).getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & r.Item("FilialenNr") & "' AND AbfertigungsNr='" & r.Item("AbfertigungsNr") & "'", "FMZOLL")
If result <> "" Then
vorhanden = CInt(result)
End If
If vorhanden > 0 Then
If Not IsDBNull(r("tblSnd_SendungID")) Then
Dim sendungId As Integer = CInt(r("tblSnd_SendungID"))
If sendungId > 0 Then
Dim sendung As New VERAG_PROG_ALLGEMEIN.cSendungen(sendungId)
sendung.tblSnd_SpeditionsbuchEingetragen = 1
sendung.SAVE()
counter += 1
End If
End If
End If
Next
MsgBox(counter & " von " & dt.Rows.Count & " Sendungen wurden gesetzt!")
End If
End Sub
End Class