Fiskaltrist, fakt, Verzollungsunterlagen, etc.

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.vb

@@ -7,6 +7,11 @@
     Public Event MOVE_UP(c As Control)
     Public Event MOVE_DOWN(c As Control)
 
+
+    Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
+    Public RechnungAn As String
+
+
     Public KdNR As Integer = -1
     Public Sub ChangeKDNr(kdnr As Integer) _
        Implements FormualrInterface.ChangeKDNr
@@ -35,6 +40,25 @@
     End Sub
 
 
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+    End Sub
+
+    Sub New(param() As Object)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        If param.Length > 0 AndAlso param(0) IsNot Nothing Then KdNR = param(0)
+        If param.Length > 1 AndAlso param(1) IsNot Nothing Then SPEDBUCH = param(1)
+        If param.Length > 2 AndAlso param(2) IsNot Nothing Then AVISO = param(2)
+        If param.Length > 3 AndAlso param(3) IsNot Nothing Then RechnungAn = param(3)
+
+    End Sub
+
 
 
 
@@ -104,6 +128,28 @@
             End If
         End If
 
+        If AVISO IsNot Nothing Then
+            txtLKWContainer.Text = If(AVISO.LKW_Nr, "")
+        End If
+
+        If SPEDBUCH IsNot Nothing Then
+            cboFiliale.changeItem(SPEDBUCH.FilialenNr)
+            txtAbfertigungsnummer.Text = SPEDBUCH.AbfertigungsNr
+            cboSpedBuchUnterNr.changeItem(SPEDBUCH.UnterNr)
+        End If
+
+
+        If RechnungAn <> "" Then
+            cboRechnungAn.changeItem(RechnungAn)
+        End If
+
+
+        If cboFiliale._value <> "" AndAlso txtAbfertigungsnummer.Text <> "" AndAlso cboSpedBuchUnterNr._value <> "" Then
+            Button1.PerformClick()
+        End If
+
+
+
 
         loaded = True
     End Sub

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -823,8 +823,14 @@ Public Class frmFormulare
                     AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                     MyFlowLayoutPanel1.Controls.Add(c)
                 Case FormularManagerArten.VerzollungsunterlagenBAR
-                    ' If param Is Nothing Then Exit Sub
+
                     Dim c As New usrcntlVerzollungsunterlagen_BAR()
+                    If param Is Nothing Then
+                        c = New usrcntlVerzollungsunterlagen_BAR()
+                    Else
+                        c = New usrcntlVerzollungsunterlagen_BAR(param)
+                    End If
+
                     c.Width = MyFlowLayoutPanel1.Width - 6
                     c.KdNR = KdNr
                     AddHandler c.DELETE, AddressOf ControlDELETE