neu

2022-07-08 08:11:33 +02:00
parent a4ad6cc8c8
commit 505b2800c5
96 changed files with 4969 additions and 8465 deletions
--- a/Aviso/frmTv.vb
+++ b/Aviso/frmTv.vb
@@ -48,6 +48,12 @@ Public Class frmTv
    Private Sub frmTv_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim cADMIN As New cADMIN
        txt.Text = cADMIN.getValueTxtBySql("SELECT TOP 1 AvisoTVHinweis FROM Aviso WHERE AvisoID=" & avisoID, "AVISO")
+
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "AMBAR"
+                txt.MaxLength = 30
+                lblAndererText.Text = lblAndererText.Text.Replace("8", "30")
+        End Select
    End Sub

    Dim VermerkeDAL As New cVermerkeDAL