diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.Designer.vb new file mode 100644 index 00000000..2b0bc87a --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.Designer.vb @@ -0,0 +1,615 @@ + +Partial Class usrcntLagervertrag + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + 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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.vb new file mode 100644 index 00000000..d5f598b1 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntLagervertrag.vb @@ -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 diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index eeac369d..1d500b27 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 38b2adce..e58e91be 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -434,7 +434,7 @@ Public Class frmBU_Mahnlauf 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 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 Dim ZZTage = 10 diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb index 4be4142b..93aa0f02 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb @@ -1,9 +1,10 @@ Imports System Imports System.Collections.Generic - Imports Chilkat +Imports Chilkat Imports System.Web.Script.Serialization Imports System.IO Imports System.Text +Imports Renci.SshNet Public Class cTelotecAPI @@ -346,39 +347,59 @@ Public Class cTelotecAPI End Sub ' FTP-Zugangsdaten - Dim ftpServer As String = "ftp://example.com" ' Ersetze mit deinem FTP-Server - Dim ftpUsername As String = "deinBenutzername" - Dim ftpPassword As String = "deinPasswort" + Dim host As String = "91.93.197.91" ' Ersetze mit deinem FTP-Server + Dim port As Integer = 22 + 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) + + Try - ' Dateiname aus dem Pfad extrahieren - Dim fileName As String = System.IO.Path.GetFileName(filePath) + Dim remotePath As String = "/" & System.IO.Path.GetFileName(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) + Using sftp As New SftpClient(host, port, Username, Password) + sftp.Connect() + Using fileStream As New System.IO.FileStream(filePath, System.IO.FileMode.Open) + sftp.UploadFile(fileStream, remotePath) + End Using + sftp.Disconnect() 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 + + '' Dateiname aus dem Pfad extrahieren + 'Dim fileName As String = System.IO.Path.GetFileName(filePath) + '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 Console.WriteLine("Fehler beim Upload: " & ex.Message) @@ -392,7 +413,7 @@ Public Class cTelotecAPI 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) File.WriteAllText(filePath, jsonText, Encoding.UTF8) diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 2df980cc..6797bf66 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -1406,6 +1406,9 @@ 111.4.1 + + 2024.0.0 + 1.0.1