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

plose

Browse Source
This commit is contained in:
d.breimaier
2025-02-25 08:37:27 +01:00
parent 0debf6f694
commit 55030fc729
6 changed files with 810 additions and 647 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
View File

@@ -815,16 +815,12 @@ Public Class frmMDMNachrichtenVerarbeitung
If currentRow(0) <> "PloseCode" Then ' Header
If currentRow.Length >= 15 Then
Dim PLOSE_INV As New MDM_Worker.cPLOSE_Inv_Data
' MsgBox(SQL.isleernothingDateFormatstring(currentRow(7)))
' MsgBox(currentRow(7))
PLOSE_INV.plInv_SupplierRechnungsDatum = SQL.isleernothingDateFormatstring(currentRow(7))
' MsgBox(PLOSE_INV.plInv_SupplierRechnungsDatum)
PLOSE_INV.plInv_SupplierRechnungsNr = SQL.isleernothing(currentRow(8))
PLOSE_INV.plInv_SupplierCountry = SQL.isleernothing(currentRow(6))
PLOSE_INV.plInv_Lieferant = SQL.isleernothing(currentRow(4))
PLOSE_INV.plInv_LieferantCode = SQL.isleernothing(currentRow(3))
PLOSE_INV.plInv_LieferantUID = SQL.isleernothing(currentRow(5))
'PLOSE_INV.plInv_RechnungsJahr = SQL.isleernothing(currentRow(7)) --> JAHR
PLOSE_INV.plInv_PdfFileName = SQL.isleernothing(currentRow(14))
If If(PLOSE_INV.plInv_PdfFileName, "") <> "" Then
If Not PLOSE_INV.plInv_PdfFileName.ToString.ToLower.EndsWith(".pdf") Then PLOSE_INV.plInv_PdfFileName += ".pdf" ' Falls Endung nciht .pdf --> anfügen
@@ -858,7 +854,7 @@ Public Class frmMDMNachrichtenVerarbeitung
PLOSE_INV.plInv_Dateiname = fi.Name
''''''''''''
If PLOSE_INV.SAVE() Then
If PLOSE_INV.SAVEUNQIUE() Then
' UPDATE tblPLOSE_Details:
SQL.doSQL("UPDATE [tblPLOSE_Details] SET [plose_plInvId] ='" & PLOSE_INV.plInv_Id & "' where plose_SupplierRechnungsNr='" & PLOSE_INV.plInv_SupplierRechnungsNr & "' AND plose_SupplierRechnungsDatum='" & PLOSE_INV.plInv_SupplierRechnungsDatum & "'", "FMZOLL")

89
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -26,7 +26,6 @@ Partial Class frmStartOptions
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
Me.pnl = New System.Windows.Forms.Panel()
Me.LinkLabel69 = New System.Windows.Forms.LinkLabel()
Me.Button27 = New System.Windows.Forms.Button()
Me.txtMRNPrefix = New System.Windows.Forms.TextBox()
Me.LinkLabel66 = New System.Windows.Forms.LinkLabel()
Me.PictureBox24 = New System.Windows.Forms.PictureBox()
@@ -163,6 +162,7 @@ Partial Class frmStartOptions
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.CheckBox9 = New System.Windows.Forms.CheckBox()
Me.Label49 = New System.Windows.Forms.Label()
Me.MyTextBox5 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button28 = New System.Windows.Forms.Button()
@@ -188,6 +188,8 @@ Partial Class frmStartOptions
Me.LinkLabel30 = New System.Windows.Forms.LinkLabel()
Me.Label11 = New System.Windows.Forms.Label()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.LinkLabel72 = New System.Windows.Forms.LinkLabel()
Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblUTAPDFvollst = New System.Windows.Forms.LinkLabel()
Me.txtUTADate = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.TextBox3 = New System.Windows.Forms.TextBox()
@@ -302,7 +304,6 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.CheckBox9 = New System.Windows.Forms.CheckBox()
Me.pnl.SuspendLayout()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -345,8 +346,6 @@ Partial Class frmStartOptions
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.LinkLabel69)
Me.pnl.Controls.Add(Me.Button27)
Me.pnl.Controls.Add(Me.txtMRNPrefix)
Me.pnl.Controls.Add(Me.LinkLabel66)
Me.pnl.Controls.Add(Me.PictureBox24)
@@ -431,17 +430,12 @@ Partial Class frmStartOptions
'
'LinkLabel69
'
Me.LinkLabel69.Location = New System.Drawing.Point(248, 0)
Me.LinkLabel69.Location = New System.Drawing.Point(722, 211)
Me.LinkLabel69.Name = "LinkLabel69"
Me.LinkLabel69.Size = New System.Drawing.Size(100, 23)
Me.LinkLabel69.Size = New System.Drawing.Size(132, 23)
Me.LinkLabel69.TabIndex = 0
'
'Button27
'
Me.Button27.Location = New System.Drawing.Point(391, 0)
Me.Button27.Name = "Button27"
Me.Button27.Size = New System.Drawing.Size(75, 23)
Me.Button27.TabIndex = 1
Me.LinkLabel69.TabStop = True
Me.LinkLabel69.Text = "Land in Steuernr setzen"
'
'txtMRNPrefix
'
@@ -2180,6 +2174,19 @@ Partial Class frmStartOptions
Me.TabPage3.Text = "Partner-Systeme"
Me.TabPage3.UseVisualStyleBackColor = True
'
'CheckBox9
'
Me.CheckBox9.AutoSize = True
Me.CheckBox9.Checked = True
Me.CheckBox9.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox9.Location = New System.Drawing.Point(419, 168)
Me.CheckBox9.Name = "CheckBox9"
Me.CheckBox9.Size = New System.Drawing.Size(111, 17)
Me.CheckBox9.TabIndex = 147
Me.CheckBox9.Text = "mit Positionsdaten"
Me.CheckBox9.UseVisualStyleBackColor = True
'
'Label49
'
Me.Label49.AutoSize = True
@@ -2477,6 +2484,9 @@ Partial Class frmStartOptions
'
'TabPage4
'
Me.TabPage4.Controls.Add(Me.LinkLabel69)
Me.TabPage4.Controls.Add(Me.LinkLabel72)
Me.TabPage4.Controls.Add(Me.txtPloseJahr)
Me.TabPage4.Controls.Add(Me.lblUTAPDFvollst)
Me.TabPage4.Controls.Add(Me.txtUTADate)
Me.TabPage4.Controls.Add(Me.TextBox3)
@@ -2572,6 +2582,43 @@ Partial Class frmStartOptions
Me.TabPage4.Text = "VERAG 360"
Me.TabPage4.UseVisualStyleBackColor = True
'
'LinkLabel72
'
Me.LinkLabel72.AutoSize = True
Me.LinkLabel72.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel72.Location = New System.Drawing.Point(797, 114)
Me.LinkLabel72.Name = "LinkLabel72"
Me.LinkLabel72.Size = New System.Drawing.Size(119, 13)
Me.LinkLabel72.TabIndex = 159
Me.LinkLabel72.TabStop = True
Me.LinkLabel72.Text = "PDF mit RE verknüpfen"
'
'txtPloseJahr
'
Me.txtPloseJahr._DateTimeOnly = False
Me.txtPloseJahr._numbersOnly = True
Me.txtPloseJahr._numbersOnlyKommastellen = ""
Me.txtPloseJahr._numbersOnlyTrennzeichen = False
Me.txtPloseJahr._Prozent = False
Me.txtPloseJahr._ShortDateNew = False
Me.txtPloseJahr._ShortDateOnly = False
Me.txtPloseJahr._TimeOnly = False
Me.txtPloseJahr._TimeOnly_Seconds = False
Me.txtPloseJahr._value = ""
Me.txtPloseJahr._Waehrung = False
Me.txtPloseJahr._WaehrungZeichen = False
Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window
Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red
Me.txtPloseJahr.Location = New System.Drawing.Point(725, 111)
Me.txtPloseJahr.MaxLength = 10
Me.txtPloseJahr.MaxLineLength = -1
Me.txtPloseJahr.MaxLines_Warning = ""
Me.txtPloseJahr.MaxLines_Warning_Label = Nothing
Me.txtPloseJahr.Name = "txtPloseJahr"
Me.txtPloseJahr.Size = New System.Drawing.Size(66, 20)
Me.txtPloseJahr.TabIndex = 158
Me.txtPloseJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'lblUTAPDFvollst
'
Me.lblUTAPDFvollst.AutoSize = True
@@ -3984,19 +4031,6 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
'
'CheckBox9
'
Me.CheckBox9.AutoSize = True
Me.CheckBox9.Checked = True
Me.CheckBox9.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox9.Location = New System.Drawing.Point(419, 168)
Me.CheckBox9.Name = "CheckBox9"
Me.CheckBox9.Size = New System.Drawing.Size(111, 17)
Me.CheckBox9.TabIndex = 147
Me.CheckBox9.Text = "mit Positionsdaten"
Me.CheckBox9.UseVisualStyleBackColor = True
'
'frmStartOptions
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4315,7 +4349,6 @@ Partial Class frmStartOptions
Friend WithEvents PictureBox26 As PictureBox
Friend WithEvents LinkLabel69 As LinkLabel
Friend WithEvents LinkLabel70 As LinkLabel
Friend WithEvents Button27 As Button
Friend WithEvents Label48 As Label
Friend WithEvents datTranscodeBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents datTranscodeVon As VERAG_PROG_ALLGEMEIN.MyTextBox
@@ -4333,4 +4366,6 @@ Partial Class frmStartOptions
Friend WithEvents Button28 As Button
Friend WithEvents Label49 As Label
Friend WithEvents CheckBox9 As CheckBox
Friend WithEvents LinkLabel72 As LinkLabel
Friend WithEvents txtPloseJahr As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

1227
initATLASAufschubkonten/frmStartOptions.resx
View File

File diff suppressed because it is too large Load Diff

10
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -4,7 +4,9 @@ Imports System.Net
Imports System.Net.Security
Imports System.Security.Cryptography.X509Certificates
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Xml
Imports MDM_Worker
Imports Renci.SshNet
Imports VERAG_PROG_ALLGEMEIN
@@ -5612,4 +5614,12 @@ Public Class frmStartOptions
Label49.Text = dt.Rows.Count & "fin"
End If
End Sub
Private Sub LinkLabel72_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel72.LinkClicked
If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub
cPLOSE_Inv_Data.setDatenarchivID(txtPloseJahr.Text, True)
End Sub
End Class