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

Vorkosten, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-12-16 09:54:59 +01:00
parent f168d0323e
commit d92eb90b64
2 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb
View File

@@ -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)

16
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
View File

@@ -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