From d92eb90b6414349a09402b618d9dc182e580cb7b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 16 Dec 2025 09:54:59 +0100 Subject: [PATCH] Vorkosten, etc. --- .../Nacherfassung/frmNacherfassungVorkosten.vb | 2 +- .../DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb | 16 +++++++++------- 2 files changed, 10 insertions(+), 8 deletions(-) diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb index 4bf1c42f..774ae6e2 100644 --- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb +++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb @@ -129,7 +129,7 @@ If txtLeistungsbezeichnung.Text = "" Then Label24.Visible = True : txtLeistungsbezeichnung.Focus() : Exit Sub If txtPreis._value = "" Then Label1.Visible = True : txtPreis.Focus() : Exit Sub - If txtLeistungsbezeichnung.Text.Length > 30 Then MsgBox("Leistungbezeichnung zu lang (max 30 Zeichen)!") : Label24.Visible = True : txtLeistungsbezeichnung.Focus() : Exit Sub + If txtLeistungsbezeichnung.Text.Length > 265 Then MsgBox("Leistungbezeichnung zu lang (max 265 Zeichen)!") : Label24.Visible = True : txtLeistungsbezeichnung.Focus() : Exit Sub If VK_EDIT >= 0 Then dgvVorkosten.Rows.RemoveAt(VK_EDIT) diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb index 49814671..60089d8c 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb @@ -770,14 +770,16 @@ Public Class usrCntlATLAS_EZA End Sub Private Sub DateiimportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiimportToolStripMenuItem.Click - Dim f As New cATLAS_EZA_IMPORT(AVISO, SENDUNG, EZA) - f.ShowDialog(Me.FindForm) - EZA = f.EZA + '----- Kann ansonten keine Version freigeben!!! - Me.FindForm.SuspendLayout() - POSITIONEN.setValues(EZA, True) - btnPositionen.PerformClick() - Me.FindForm.ResumeLayout() + 'Dim f As New cATLAS_EZA_IMPORT(AVISO, SENDUNG, EZA) + 'f.ShowDialog(Me.FindForm) + 'EZA = f.EZA + + 'Me.FindForm.SuspendLayout() + 'POSITIONEN.setValues(EZA, True) + 'btnPositionen.PerformClick() + 'Me.FindForm.ResumeLayout() End Sub