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

Merge branch 'ADMIN' of https://dev.azure.com/VeragAG/_git/ADMIN into ADMIN

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-19 10:49:39 +01:00
parent dfeb92035e d605cc8305
commit d23c40626c
2 changed files with 18 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
UID/frmMain.Designer.vb generated
View File

@@ -33,6 +33,7 @@ Partial Class frmMain
Me.TableAdapterManager1 = New ADMIN.DataSetBerechtigungenTableAdapters.TableAdapterManager()
Me.pnlMain = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.btnMailroutine = New System.Windows.Forms.Button()
Me.btnAPIZugang = New System.Windows.Forms.Button()
Me.btnDatenarchiv = New System.Windows.Forms.Button()
Me.btnFehler = New System.Windows.Forms.Button()
@@ -48,7 +49,6 @@ 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.btnMailroutine = New System.Windows.Forms.Button()
Me.Panel3.SuspendLayout()
Me.Panel2.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -99,10 +99,8 @@ Partial Class frmMain
'
'pnlMain
'
Me.pnlMain.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlMain.BackColor = System.Drawing.Color.White
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain.Location = New System.Drawing.Point(137, 70)
Me.pnlMain.Name = "pnlMain"
Me.pnlMain.Size = New System.Drawing.Size(1740, 801)
@@ -131,6 +129,18 @@ Partial Class frmMain
Me.Panel3.Size = New System.Drawing.Size(137, 801)
Me.Panel3.TabIndex = 32
'
'btnMailroutine
'
Me.btnMailroutine.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMailroutine.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnMailroutine.Location = New System.Drawing.Point(12, 516)
Me.btnMailroutine.Name = "btnMailroutine"
Me.btnMailroutine.Size = New System.Drawing.Size(94, 33)
Me.btnMailroutine.TabIndex = 43
Me.btnMailroutine.Text = "Mailsender"
Me.btnMailroutine.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnMailroutine.UseVisualStyleBackColor = True
'
'btnAPIZugang
'
Me.btnAPIZugang.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -304,18 +314,6 @@ Partial Class frmMain
Me.PictureBox1.TabIndex = 31
Me.PictureBox1.TabStop = False
'
'btnMailroutine
'
Me.btnMailroutine.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMailroutine.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnMailroutine.Location = New System.Drawing.Point(12, 516)
Me.btnMailroutine.Name = "btnMailroutine"
Me.btnMailroutine.Size = New System.Drawing.Size(94, 33)
Me.btnMailroutine.TabIndex = 43
Me.btnMailroutine.Text = "Mailsender"
Me.btnMailroutine.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnMailroutine.UseVisualStyleBackColor = True
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

5
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -5590,7 +5590,10 @@ Public Class frmStartOptions
If fehlendeRechnungen < 10 Then
hint &= (New SQL).getValueTxtBySql("select distinct(Rechnungsnummer_pro_Lieferland) from tblUTAImportNew where daId is null and cast(Rechnungsdatum as Date) = '" & txtUTADate.Text & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM'", "FMZOLL")
End If
MsgBox("Es fehlen " & fehlendeRechnungen & " PDF-Rechnungen in der Datenbank!" & vbNewLine & "Diese Dokumente (von Rechnung " & txtUTADate.Text & ") müssen nachgeladen werden (bitte an Administrator wenden)." & IIf(hint <> "", vbNewLine & hint, ""))
MsgBox("Es fehlen " & fehlendeRechnungen & " PDF-Rechnungen in der Datenbank!" & vbNewLine & "Diese Dokumente (von Rechnung " & txtUTADate.Text & ") müssen nachgeladen werden (bitte an Administrator wenden)." & IIf(hint <> "", vbNewLine & "Bsp. Rechnungsnummer: " & hint, ""))
Else
MsgBox("Rechnungen vom " & txtUTADate.Text & " sind vollständig")
End If
End Sub