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

vers, Lagervertrag

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-06-02 11:18:46 +02:00
parent 916e9866c5
commit 549ab6bcf5
7 changed files with 887 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

615
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.Designer.vb generated Normal file
View File

@@ -0,0 +1,615 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntLagervertrag
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.lbl = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.cbxEinmaligeVollmacht = New System.Windows.Forms.CheckBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtAnsprechpartner = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtEinmalig_RgDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtEinmalig_RgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.lblVollmachtDE = New System.Windows.Forms.Label()
Me.btnDown = New System.Windows.Forms.Button()
Me.btnUp = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.Label12 = New System.Windows.Forms.Label()
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxEinmaligeVollmachtCarnetATA = New System.Windows.Forms.CheckBox()
Me.txtEinmalig_CarnetATA = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxVollmachtmitBefristung = New System.Windows.Forms.CheckBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(170, 37)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(78, 13)
Me.lbl.TabIndex = 6
Me.lbl.Text = "Firmenwortlaut:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(170, 56)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 13)
Me.Label1.TabIndex = 11
Me.Label1.Text = "Adresse:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(170, 101)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(43, 13)
Me.Label2.TabIndex = 14
Me.Label2.Text = "UID-Nr:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(587, 101)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(50, 13)
Me.Label3.TabIndex = 16
Me.Label3.Text = "EORI-Nr:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(587, 120)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(27, 13)
Me.Label4.TabIndex = 20
Me.Label4.Text = "Fax:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(170, 120)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(28, 13)
Me.Label5.TabIndex = 18
Me.Label5.Text = "Tel.:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(170, 139)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(39, 13)
Me.Label6.TabIndex = 22
Me.Label6.Text = "E-Mail:"
'
'cbxEinmaligeVollmacht
'
Me.cbxEinmaligeVollmacht.AutoSize = True
Me.cbxEinmaligeVollmacht.Location = New System.Drawing.Point(173, 164)
Me.cbxEinmaligeVollmacht.Name = "cbxEinmaligeVollmacht"
Me.cbxEinmaligeVollmacht.Size = New System.Drawing.Size(184, 17)
Me.cbxEinmaligeVollmacht.TabIndex = 24
Me.cbxEinmaligeVollmacht.Text = "Einmalige Vollmacht, für Rg-Nr.:"
Me.cbxEinmaligeVollmacht.UseVisualStyleBackColor = True
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(587, 165)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(56, 13)
Me.Label7.TabIndex = 26
Me.Label7.Text = "Rg-datum:"
'
'btn
'
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(937, 34)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(26, 20)
Me.btn.TabIndex = 8
Me.btn.UseVisualStyleBackColor = True
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(559, 12)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(88, 13)
Me.Label8.TabIndex = 2
Me.Label8.Text = "Ansprechpartner:"
'
'txtAnsprechpartner
'
Me.txtAnsprechpartner._DateTimeOnly = False
Me.txtAnsprechpartner._numbersOnly = False
Me.txtAnsprechpartner._numbersOnlyKommastellen = ""
Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True
Me.txtAnsprechpartner._Prozent = False
Me.txtAnsprechpartner._ShortDateNew = False
Me.txtAnsprechpartner._ShortDateOnly = False
Me.txtAnsprechpartner._TimeOnly = False
Me.txtAnsprechpartner._TimeOnly_Seconds = False
Me.txtAnsprechpartner._value = Nothing
Me.txtAnsprechpartner._Waehrung = False
Me.txtAnsprechpartner._WaehrungZeichen = True
Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black
Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 9)
Me.txtAnsprechpartner.MaxLineLength = -1
Me.txtAnsprechpartner.MaxLines_Warning = ""
Me.txtAnsprechpartner.MaxLines_Warning_Label = Nothing
Me.txtAnsprechpartner.Name = "txtAnsprechpartner"
Me.txtAnsprechpartner.Size = New System.Drawing.Size(310, 20)
Me.txtAnsprechpartner.TabIndex = 3
'
'txtEinmalig_RgDat
'
Me.txtEinmalig_RgDat._DateTimeOnly = False
Me.txtEinmalig_RgDat._numbersOnly = False
Me.txtEinmalig_RgDat._numbersOnlyKommastellen = ""
Me.txtEinmalig_RgDat._numbersOnlyTrennzeichen = True
Me.txtEinmalig_RgDat._Prozent = False
Me.txtEinmalig_RgDat._ShortDateNew = False
Me.txtEinmalig_RgDat._ShortDateOnly = False
Me.txtEinmalig_RgDat._TimeOnly = False
Me.txtEinmalig_RgDat._TimeOnly_Seconds = False
Me.txtEinmalig_RgDat._value = Nothing
Me.txtEinmalig_RgDat._Waehrung = False
Me.txtEinmalig_RgDat._WaehrungZeichen = True
Me.txtEinmalig_RgDat.Enabled = False
Me.txtEinmalig_RgDat.ForeColor = System.Drawing.Color.Black
Me.txtEinmalig_RgDat.Location = New System.Drawing.Point(653, 162)
Me.txtEinmalig_RgDat.MaxLineLength = -1
Me.txtEinmalig_RgDat.MaxLines_Warning = ""
Me.txtEinmalig_RgDat.MaxLines_Warning_Label = Nothing
Me.txtEinmalig_RgDat.Name = "txtEinmalig_RgDat"
Me.txtEinmalig_RgDat.Size = New System.Drawing.Size(310, 20)
Me.txtEinmalig_RgDat.TabIndex = 27
'
'txtEinmalig_RgNr
'
Me.txtEinmalig_RgNr._DateTimeOnly = False
Me.txtEinmalig_RgNr._numbersOnly = False
Me.txtEinmalig_RgNr._numbersOnlyKommastellen = ""
Me.txtEinmalig_RgNr._numbersOnlyTrennzeichen = True
Me.txtEinmalig_RgNr._Prozent = False
Me.txtEinmalig_RgNr._ShortDateNew = False
Me.txtEinmalig_RgNr._ShortDateOnly = False
Me.txtEinmalig_RgNr._TimeOnly = False
Me.txtEinmalig_RgNr._TimeOnly_Seconds = False
Me.txtEinmalig_RgNr._value = Nothing
Me.txtEinmalig_RgNr._Waehrung = False
Me.txtEinmalig_RgNr._WaehrungZeichen = True
Me.txtEinmalig_RgNr.Enabled = False
Me.txtEinmalig_RgNr.ForeColor = System.Drawing.Color.Black
Me.txtEinmalig_RgNr.Location = New System.Drawing.Point(363, 162)
Me.txtEinmalig_RgNr.MaxLineLength = -1
Me.txtEinmalig_RgNr.MaxLines_Warning = ""
Me.txtEinmalig_RgNr.MaxLines_Warning_Label = Nothing
Me.txtEinmalig_RgNr.Name = "txtEinmalig_RgNr"
Me.txtEinmalig_RgNr.Size = New System.Drawing.Size(201, 20)
Me.txtEinmalig_RgNr.TabIndex = 25
'
'txtEmail
'
Me.txtEmail._DateTimeOnly = False
Me.txtEmail._numbersOnly = False
Me.txtEmail._numbersOnlyKommastellen = ""
Me.txtEmail._numbersOnlyTrennzeichen = True
Me.txtEmail._Prozent = False
Me.txtEmail._ShortDateNew = False
Me.txtEmail._ShortDateOnly = False
Me.txtEmail._TimeOnly = False
Me.txtEmail._TimeOnly_Seconds = False
Me.txtEmail._value = Nothing
Me.txtEmail._Waehrung = False
Me.txtEmail._WaehrungZeichen = True
Me.txtEmail.ForeColor = System.Drawing.Color.Black
Me.txtEmail.Location = New System.Drawing.Point(254, 136)
Me.txtEmail.MaxLineLength = -1
Me.txtEmail.MaxLines_Warning = ""
Me.txtEmail.MaxLines_Warning_Label = Nothing
Me.txtEmail.Name = "txtEmail"
Me.txtEmail.Size = New System.Drawing.Size(310, 20)
Me.txtEmail.TabIndex = 23
'
'txtFax
'
Me.txtFax._DateTimeOnly = False
Me.txtFax._numbersOnly = False
Me.txtFax._numbersOnlyKommastellen = ""
Me.txtFax._numbersOnlyTrennzeichen = True
Me.txtFax._Prozent = False
Me.txtFax._ShortDateNew = False
Me.txtFax._ShortDateOnly = False
Me.txtFax._TimeOnly = False
Me.txtFax._TimeOnly_Seconds = False
Me.txtFax._value = Nothing
Me.txtFax._Waehrung = False
Me.txtFax._WaehrungZeichen = True
Me.txtFax.ForeColor = System.Drawing.Color.Black
Me.txtFax.Location = New System.Drawing.Point(653, 117)
Me.txtFax.MaxLineLength = -1
Me.txtFax.MaxLines_Warning = ""
Me.txtFax.MaxLines_Warning_Label = Nothing
Me.txtFax.Name = "txtFax"
Me.txtFax.Size = New System.Drawing.Size(310, 20)
Me.txtFax.TabIndex = 21
'
'txtTel
'
Me.txtTel._DateTimeOnly = False
Me.txtTel._numbersOnly = False
Me.txtTel._numbersOnlyKommastellen = ""
Me.txtTel._numbersOnlyTrennzeichen = True
Me.txtTel._Prozent = False
Me.txtTel._ShortDateNew = False
Me.txtTel._ShortDateOnly = False
Me.txtTel._TimeOnly = False
Me.txtTel._TimeOnly_Seconds = False
Me.txtTel._value = Nothing
Me.txtTel._Waehrung = False
Me.txtTel._WaehrungZeichen = True
Me.txtTel.ForeColor = System.Drawing.Color.Black
Me.txtTel.Location = New System.Drawing.Point(254, 117)
Me.txtTel.MaxLineLength = -1
Me.txtTel.MaxLines_Warning = ""
Me.txtTel.MaxLines_Warning_Label = Nothing
Me.txtTel.Name = "txtTel"
Me.txtTel.Size = New System.Drawing.Size(310, 20)
Me.txtTel.TabIndex = 19
'
'txtEori
'
Me.txtEori._DateTimeOnly = False
Me.txtEori._numbersOnly = False
Me.txtEori._numbersOnlyKommastellen = ""
Me.txtEori._numbersOnlyTrennzeichen = True
Me.txtEori._Prozent = False
Me.txtEori._ShortDateNew = False
Me.txtEori._ShortDateOnly = False
Me.txtEori._TimeOnly = False
Me.txtEori._TimeOnly_Seconds = False
Me.txtEori._value = Nothing
Me.txtEori._Waehrung = False
Me.txtEori._WaehrungZeichen = True
Me.txtEori.ForeColor = System.Drawing.Color.Black
Me.txtEori.Location = New System.Drawing.Point(653, 98)
Me.txtEori.MaxLineLength = -1
Me.txtEori.MaxLines_Warning = ""
Me.txtEori.MaxLines_Warning_Label = Nothing
Me.txtEori.Name = "txtEori"
Me.txtEori.Size = New System.Drawing.Size(310, 20)
Me.txtEori.TabIndex = 17
'
'txtUid
'
Me.txtUid._DateTimeOnly = False
Me.txtUid._numbersOnly = False
Me.txtUid._numbersOnlyKommastellen = ""
Me.txtUid._numbersOnlyTrennzeichen = True
Me.txtUid._Prozent = False
Me.txtUid._ShortDateNew = False
Me.txtUid._ShortDateOnly = False
Me.txtUid._TimeOnly = False
Me.txtUid._TimeOnly_Seconds = False
Me.txtUid._value = Nothing
Me.txtUid._Waehrung = False
Me.txtUid._WaehrungZeichen = True
Me.txtUid.ForeColor = System.Drawing.Color.Black
Me.txtUid.Location = New System.Drawing.Point(254, 98)
Me.txtUid.MaxLineLength = -1
Me.txtUid.MaxLines_Warning = ""
Me.txtUid.MaxLines_Warning_Label = Nothing
Me.txtUid.Name = "txtUid"
Me.txtUid.Size = New System.Drawing.Size(310, 20)
Me.txtUid.TabIndex = 15
'
'txtAdresse2
'
Me.txtAdresse2._DateTimeOnly = False
Me.txtAdresse2._numbersOnly = False
Me.txtAdresse2._numbersOnlyKommastellen = ""
Me.txtAdresse2._numbersOnlyTrennzeichen = True
Me.txtAdresse2._Prozent = False
Me.txtAdresse2._ShortDateNew = False
Me.txtAdresse2._ShortDateOnly = False
Me.txtAdresse2._TimeOnly = False
Me.txtAdresse2._TimeOnly_Seconds = False
Me.txtAdresse2._value = Nothing
Me.txtAdresse2._Waehrung = False
Me.txtAdresse2._WaehrungZeichen = True
Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
Me.txtAdresse2.Location = New System.Drawing.Point(254, 72)
Me.txtAdresse2.MaxLineLength = -1
Me.txtAdresse2.MaxLines_Warning = ""
Me.txtAdresse2.MaxLines_Warning_Label = Nothing
Me.txtAdresse2.Name = "txtAdresse2"
Me.txtAdresse2.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse2.TabIndex = 13
'
'txtAdresse1
'
Me.txtAdresse1._DateTimeOnly = False
Me.txtAdresse1._numbersOnly = False
Me.txtAdresse1._numbersOnlyKommastellen = ""
Me.txtAdresse1._numbersOnlyTrennzeichen = True
Me.txtAdresse1._Prozent = False
Me.txtAdresse1._ShortDateNew = False
Me.txtAdresse1._ShortDateOnly = False
Me.txtAdresse1._TimeOnly = False
Me.txtAdresse1._TimeOnly_Seconds = False
Me.txtAdresse1._value = Nothing
Me.txtAdresse1._Waehrung = False
Me.txtAdresse1._WaehrungZeichen = True
Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
Me.txtAdresse1.Location = New System.Drawing.Point(254, 53)
Me.txtAdresse1.MaxLineLength = -1
Me.txtAdresse1.MaxLines_Warning = ""
Me.txtAdresse1.MaxLines_Warning_Label = Nothing
Me.txtAdresse1.Name = "txtAdresse1"
Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse1.TabIndex = 12
'
'txtFirma
'
Me.txtFirma._DateTimeOnly = False
Me.txtFirma._numbersOnly = False
Me.txtFirma._numbersOnlyKommastellen = ""
Me.txtFirma._numbersOnlyTrennzeichen = True
Me.txtFirma._Prozent = False
Me.txtFirma._ShortDateNew = False
Me.txtFirma._ShortDateOnly = False
Me.txtFirma._TimeOnly = False
Me.txtFirma._TimeOnly_Seconds = False
Me.txtFirma._value = Nothing
Me.txtFirma._Waehrung = False
Me.txtFirma._WaehrungZeichen = True
Me.txtFirma.ForeColor = System.Drawing.Color.Black
Me.txtFirma.Location = New System.Drawing.Point(254, 34)
Me.txtFirma.MaxLineLength = -1
Me.txtFirma.MaxLines_Warning = ""
Me.txtFirma.MaxLines_Warning_Label = Nothing
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.Size = New System.Drawing.Size(684, 20)
Me.txtFirma.TabIndex = 7
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(5, 5)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(32, 32)
Me.pic.TabIndex = 32
Me.pic.TabStop = False
'
'lblVollmachtDE
'
Me.lblVollmachtDE.AutoSize = True
Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9)
Me.lblVollmachtDE.Name = "lblVollmachtDE"
Me.lblVollmachtDE.Size = New System.Drawing.Size(118, 20)
Me.lblVollmachtDE.TabIndex = 1
Me.lblVollmachtDE.Text = "Vollmacht DE"
'
'btnDown
'
Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDown.Location = New System.Drawing.Point(976, 42)
Me.btnDown.Name = "btnDown"
Me.btnDown.Size = New System.Drawing.Size(25, 21)
Me.btnDown.TabIndex = 9
Me.btnDown.UseVisualStyleBackColor = True
'
'btnUp
'
Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUp.Location = New System.Drawing.Point(976, 22)
Me.btnUp.Name = "btnUp"
Me.btnUp.Size = New System.Drawing.Size(25, 21)
Me.btnUp.TabIndex = 4
Me.btnUp.UseVisualStyleBackColor = True
'
'btnDel
'
Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Location = New System.Drawing.Point(976, -1)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(25, 21)
Me.btnDel.TabIndex = 0
Me.btnDel.UseVisualStyleBackColor = True
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(44, 37)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(50, 13)
Me.Label12.TabIndex = 5
Me.Label12.Text = "Sprache:"
'
'cboSprache
'
Me.cboSprache._allowedValuesFreiText = Nothing
Me.cboSprache._allowFreiText = False
Me.cboSprache._value = ""
Me.cboSprache.FormattingEnabled = True
Me.cboSprache.Location = New System.Drawing.Point(47, 53)
Me.cboSprache.Name = "cboSprache"
Me.cboSprache.Size = New System.Drawing.Size(89, 21)
Me.cboSprache.TabIndex = 10
'
'cbxEinmaligeVollmachtCarnetATA
'
Me.cbxEinmaligeVollmachtCarnetATA.AutoSize = True
Me.cbxEinmaligeVollmachtCarnetATA.Location = New System.Drawing.Point(173, 183)
Me.cbxEinmaligeVollmachtCarnetATA.Name = "cbxEinmaligeVollmachtCarnetATA"
Me.cbxEinmaligeVollmachtCarnetATA.Size = New System.Drawing.Size(211, 17)
Me.cbxEinmaligeVollmachtCarnetATA.TabIndex = 33
Me.cbxEinmaligeVollmachtCarnetATA.Text = "Einmalige Vollmacht, für Carnet-ATA.:"
Me.cbxEinmaligeVollmachtCarnetATA.UseVisualStyleBackColor = True
'
'txtEinmalig_CarnetATA
'
Me.txtEinmalig_CarnetATA._DateTimeOnly = False
Me.txtEinmalig_CarnetATA._numbersOnly = False
Me.txtEinmalig_CarnetATA._numbersOnlyKommastellen = ""
Me.txtEinmalig_CarnetATA._numbersOnlyTrennzeichen = True
Me.txtEinmalig_CarnetATA._Prozent = False
Me.txtEinmalig_CarnetATA._ShortDateNew = False
Me.txtEinmalig_CarnetATA._ShortDateOnly = False
Me.txtEinmalig_CarnetATA._TimeOnly = False
Me.txtEinmalig_CarnetATA._TimeOnly_Seconds = False
Me.txtEinmalig_CarnetATA._value = Nothing
Me.txtEinmalig_CarnetATA._Waehrung = False
Me.txtEinmalig_CarnetATA._WaehrungZeichen = True
Me.txtEinmalig_CarnetATA.Enabled = False
Me.txtEinmalig_CarnetATA.ForeColor = System.Drawing.Color.Black
Me.txtEinmalig_CarnetATA.Location = New System.Drawing.Point(390, 181)
Me.txtEinmalig_CarnetATA.MaxLineLength = -1
Me.txtEinmalig_CarnetATA.MaxLines_Warning = ""
Me.txtEinmalig_CarnetATA.MaxLines_Warning_Label = Nothing
Me.txtEinmalig_CarnetATA.Name = "txtEinmalig_CarnetATA"
Me.txtEinmalig_CarnetATA.Size = New System.Drawing.Size(174, 20)
Me.txtEinmalig_CarnetATA.TabIndex = 34
'
'cbxVollmachtmitBefristung
'
Me.cbxVollmachtmitBefristung.AutoSize = True
Me.cbxVollmachtmitBefristung.Location = New System.Drawing.Point(590, 183)
Me.cbxVollmachtmitBefristung.Name = "cbxVollmachtmitBefristung"
Me.cbxVollmachtmitBefristung.Size = New System.Drawing.Size(141, 17)
Me.cbxVollmachtmitBefristung.TabIndex = 38
Me.cbxVollmachtmitBefristung.Text = "Vollmacht mit Befristung:"
Me.cbxVollmachtmitBefristung.UseVisualStyleBackColor = True
'
'usrcntlVollmacht_DE
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.cbxVollmachtmitBefristung)
Me.Controls.Add(Me.txtEinmalig_CarnetATA)
Me.Controls.Add(Me.cbxEinmaligeVollmachtCarnetATA)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.cboSprache)
Me.Controls.Add(Me.btnDown)
Me.Controls.Add(Me.btnUp)
Me.Controls.Add(Me.btnDel)
Me.Controls.Add(Me.pic)
Me.Controls.Add(Me.lblVollmachtDE)
Me.Controls.Add(Me.txtAnsprechpartner)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.txtEinmalig_RgDat)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.txtEinmalig_RgNr)
Me.Controls.Add(Me.cbxEinmaligeVollmacht)
Me.Controls.Add(Me.txtEmail)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.txtFax)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtTel)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.txtEori)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtUid)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtAdresse2)
Me.Controls.Add(Me.txtAdresse1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.lbl)
Me.Name = "usrcntlVollmacht_DE"
Me.Size = New System.Drawing.Size(1000, 202)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lbl As System.Windows.Forms.Label
Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtEori As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents cbxEinmaligeVollmacht As System.Windows.Forms.CheckBox
Friend WithEvents txtEinmalig_RgDat As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents txtEinmalig_RgNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btn As System.Windows.Forms.Button
Friend WithEvents txtAnsprechpartner As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents pic As System.Windows.Forms.PictureBox
Friend WithEvents lblVollmachtDE As System.Windows.Forms.Label
Friend WithEvents btnDown As System.Windows.Forms.Button
Friend WithEvents btnUp As System.Windows.Forms.Button
Friend WithEvents btnDel As System.Windows.Forms.Button
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxEinmaligeVollmachtCarnetATA As System.Windows.Forms.CheckBox
Friend WithEvents txtEinmalig_CarnetATA As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxVollmachtmitBefristung As CheckBox
End Class

120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

96
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.vb Normal file
View File

@@ -0,0 +1,96 @@
Public Class usrcntLagervertrag
Implements FormualrInterface
Public Event CHANGED(name, value)
Public Event KDNR_CHANGED(kdnr)
Public Event DELETE(c As Control)
Public Event MOVE_UP(c As Control)
Public Event MOVE_DOWN(c As Control)
Public KdNR As Integer = -1
Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
initKdNR(kdnr)
End Sub
Sub initControlsHandler()
For Each c In Me.Controls
Select Case c.GetType.ToString
Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
RaiseEvent CHANGED(c.name, c._value)
End Sub
Case GetType(TextBox).ToString
AddHandler DirectCast(c, TextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
End Select
Next
End Sub
Private Sub cbxEinmaligeVollmacht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEinmaligeVollmacht.CheckedChanged
txtEinmalig_RgNr.Enabled = sender.checked
txtEinmalig_RgDat.Enabled = sender.checked
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Dim kdsrch As New SDL.frmKundenSuche
'Panel1.Enabled = False
If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
If IsNumeric(kdsrch.kundenNrSearch.Text) Then
initKdNR(kdsrch.kundenNrSearch.Text)
RaiseEvent KDNR_CHANGED(KdNR)
End If
End If
' Panel1.Enabled = True
End Sub
Public Sub initKdNR(KdNR)
Me.KdNR = KdNR
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
txtAdresse1.Text = If(ADRESSE.Straße, "")
txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "")
txtEori.Text = If(KUNDE.EORITIN, "")
txtTel.Text = If(ADRESSE.Telefon, "")
txtFax.Text = If(ADRESSE.Telefax, "")
txtEmail.Text = If(ADRESSE.E_Mail, "")
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
RaiseEvent DELETE(Me)
End Sub
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
RaiseEvent MOVE_UP(Me)
End Sub
Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
RaiseEvent MOVE_DOWN(Me)
End Sub
Private Sub usrcntlVollmacht_DE_Load(sender As Object, e As EventArgs) Handles Me.Load
initControlsHandler()
cboSprache.Items.Clear()
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
If KdNR > 0 Then initKdNR(KdNR)
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
FormularManagerNEU.genPDF(Me, True)
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEinmaligeVollmachtCarnetATA.CheckedChanged
txtEinmalig_CarnetATA.Enabled = sender.checked
End Sub
End Class

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.4.1.3")> <Assembly: AssemblyVersion("1.4.1.4")>
<Assembly: AssemblyFileVersion("1.4.1.3")> <Assembly: AssemblyFileVersion("1.4.1.4")>

2
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -434,7 +434,7 @@ Public Class frmBU_Mahnlauf
Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing
Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT
Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing
Case 19 : rpt.picVERAG.Image = My.Resources.VERAG_360 : rpt.Picture1.Visible = False : rpt.lblFirmaFax.Visible = False : rpt.lblEmail.Visible = False : rpt.lblFaxNr.Visible = False Case 19 : rpt.picVERAG.Image = My.Resources.VERAG_360 : rpt.Picture1.Image = Nothing : rpt.lblFirmaFax.Visible = False : rpt.lblEmail.Visible = False : rpt.lblFaxNr.Visible = False
End Select End Select
Dim ZZTage = 10 Dim ZZTage = 10

79
VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb
View File

@@ -1,9 +1,10 @@
Imports System Imports System
Imports System.Collections.Generic Imports System.Collections.Generic
Imports Chilkat Imports Chilkat
Imports System.Web.Script.Serialization Imports System.Web.Script.Serialization
Imports System.IO Imports System.IO
Imports System.Text Imports System.Text
Imports Renci.SshNet
Public Class cTelotecAPI Public Class cTelotecAPI
@@ -346,39 +347,59 @@ Public Class cTelotecAPI
End Sub End Sub
' FTP-Zugangsdaten ' FTP-Zugangsdaten
Dim ftpServer As String = "ftp://example.com" ' Ersetze mit deinem FTP-Server Dim host As String = "91.93.197.91" ' Ersetze mit deinem FTP-Server
Dim ftpUsername As String = "deinBenutzername" Dim port As Integer = 22
Dim ftpPassword As String = "deinPasswort" Dim Username As String = "TELOTEC-PROD"
Dim Password As String = "T18Y45O1W"
'Username: TELOTEC-TEST
'Password: V15GKM48
'Username: TELOTEC-PROD
'Password: T18Y45O1W
Public Sub SaveJsonResponseTo_ATEZFTP(filePath As String) Public Sub SaveJsonResponseTo_ATEZFTP(filePath As String)
Try Try
' Dateiname aus dem Pfad extrahieren Dim remotePath As String = "/" & System.IO.Path.GetFileName(filePath)
Dim fileName As String = System.IO.Path.GetFileName(filePath)
' FTP-Ziel-URL zusammenbauen Using sftp As New SftpClient(host, port, Username, Password)
Dim ftpFullPath As String = $"{ftpServer}/{fileName}" sftp.Connect()
Using fileStream As New System.IO.FileStream(filePath, System.IO.FileMode.Open)
' FtpWebRequest erstellen sftp.UploadFile(fileStream, remotePath)
Dim request As System.Net.FtpWebRequest = CType(System.Net.WebRequest.Create(ftpFullPath), System.Net.FtpWebRequest) End Using
request.Method = System.Net.WebRequestMethods.Ftp.UploadFile sftp.Disconnect()
request.Credentials = New System.Net.NetworkCredential(ftpUsername, ftpPassword)
request.UseBinary = True
request.UsePassive = True
request.KeepAlive = False
' Datei lesen und in Byte-Array umwandeln
Dim fileContents() As Byte = System.IO.File.ReadAllBytes(filePath)
request.ContentLength = fileContents.Length
' Stream öffnen und Datei senden
Using requestStream As System.IO.Stream = request.GetRequestStream()
requestStream.Write(fileContents, 0, fileContents.Length)
End Using End Using
' Antwort vom Server holen
Using response As System.Net.FtpWebResponse = CType(request.GetResponse(), System.Net.FtpWebResponse) '' Dateiname aus dem Pfad extrahieren
Console.WriteLine("Upload abgeschlossen, Status: " & response.StatusDescription) 'Dim fileName As String = System.IO.Path.GetFileName(filePath)
End Using 'Console.WriteLine("filePath: " & filePath)
'' FTP-Ziel-URL zusammenbauen
'Dim ftpFullPath As String = $"{ftpServer}/{fileName}"
'' FtpWebRequest erstellen
'Dim request As System.Net.FtpWebRequest = CType(System.Net.WebRequest.Create(ftpFullPath), System.Net.FtpWebRequest)
'request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
'request.Credentials = New System.Net.NetworkCredential(ftpUsername, ftpPassword)
'request.UseBinary = True
'request.UsePassive = True
'request.KeepAlive = False
'' Datei lesen und in Byte-Array umwandeln
'Dim fileContents() As Byte = System.IO.File.ReadAllBytes(filePath)
'request.ContentLength = fileContents.Length
'' Stream öffnen und Datei senden
'Using requestStream As System.IO.Stream = request.GetRequestStream()
' requestStream.Write(fileContents, 0, fileContents.Length)
'End Using
'' Antwort vom Server holen
'Using response As System.Net.FtpWebResponse = CType(request.GetResponse(), System.Net.FtpWebResponse)
' Console.WriteLine("Upload abgeschlossen, Status: " & response.StatusDescription)
'End Using
Catch ex As Exception Catch ex As Exception
Console.WriteLine("Fehler beim Upload: " & ex.Message) Console.WriteLine("Fehler beim Upload: " & ex.Message)
@@ -392,7 +413,7 @@ Public Class cTelotecAPI
Directory.CreateDirectory(dayDir) Directory.CreateDirectory(dayDir)
Dim fileName As String = "GetTAMessages_" & Date.Now.ToString("HHmmss") & ".json" Dim fileName As String = "GetTAMessages_" & Date.Now.ToString("ddMMyyyy_HHmmss_fff") & ".json"
filePath = Path.Combine(dayDir, fileName) filePath = Path.Combine(dayDir, fileName)
File.WriteAllText(filePath, jsonText, Encoding.UTF8) File.WriteAllText(filePath, jsonText, Encoding.UTF8)

3
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -1406,6 +1406,9 @@
<PackageReference Include="RestSharp"> <PackageReference Include="RestSharp">
<Version>111.4.1</Version> <Version>111.4.1</Version>
</PackageReference> </PackageReference>
<PackageReference Include="SSH.NET">
<Version>2024.0.0</Version>
</PackageReference>
<PackageReference Include="ZUGFeRD.NET"> <PackageReference Include="ZUGFeRD.NET">
<Version>1.0.1</Version> <Version>1.0.1</Version>
</PackageReference> </PackageReference>