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

merge

Browse Source
This commit is contained in:
d.breimaier
2025-01-09 09:41:34 +01:00
parent cbfebc091e 330ffd108e
commit 1159fe4502
6 changed files with 37 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
View File

@@ -795,6 +795,13 @@ Public Class frmMDMNachrichtenVerarbeitung
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
End If
If currentRow.Length >= 16 Then
PLOSE_INV.plInv_Currency = SQL.isleernothing(currentRow(15))
End If
PLOSE_INV.plInv_Einlesedatum = Now.ToShortDateString
PLOSE_INV.plInv_Datensatztyp = "PDF"
PLOSE_INV.plInv_PLOSEKundennummer = SQL.isleernothing(currentRow(0))

23
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -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.btnTestATEZ = New System.Windows.Forms.Button()
Me.LinkLabel69 = New System.Windows.Forms.LinkLabel()
Me.Button26 = New System.Windows.Forms.Button()
Me.Button27 = New System.Windows.Forms.Button()
@@ -334,6 +335,7 @@ Partial Class frmStartOptions
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.btnTestATEZ)
Me.pnl.Controls.Add(Me.Button26)
Me.pnl.Controls.Add(Me.txtMRNPrefix)
Me.pnl.Controls.Add(Me.LinkLabel66)
@@ -417,17 +419,17 @@ Partial Class frmStartOptions
Me.pnl.Size = New System.Drawing.Size(1229, 1007)
Me.pnl.TabIndex = 0
'
'Button27
'btnTestATEZ
'
Me.Button27.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button27.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button27.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button27.Location = New System.Drawing.Point(1062, 459)
Me.Button27.Name = "Button27"
Me.Button27.Size = New System.Drawing.Size(123, 24)
Me.Button27.TabIndex = 140
Me.Button27.Text = "test ATEZ"
Me.Button27.UseVisualStyleBackColor = True
Me.btnTestATEZ.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTestATEZ.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnTestATEZ.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTestATEZ.Location = New System.Drawing.Point(1062, 459)
Me.btnTestATEZ.Name = "btnTestATEZ"
Me.btnTestATEZ.Size = New System.Drawing.Size(123, 24)
Me.btnTestATEZ.TabIndex = 140
Me.btnTestATEZ.Text = "test ATEZ"
Me.btnTestATEZ.UseVisualStyleBackColor = True
'
'Button26
'
@@ -4054,6 +4056,7 @@ Partial Class frmStartOptions
Friend WithEvents LinkLabel68 As LinkLabel
Friend WithEvents PictureBox26 As PictureBox
Friend WithEvents Button26 As Button
Friend WithEvents btnTestATEZ As Button
Friend WithEvents LinkLabel69 As LinkLabel
Friend WithEvents LinkLabel70 As LinkLabel
Friend WithEvents Button27 As Button

2
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -5430,7 +5430,7 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.query_declarations("01.12.2024", "31.12.2024")
End Sub
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles btnTestATEZ.Click
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.get_ie015_xml_by_mrn("24TR34340000000145")
End Sub