neu

SDL/kunden/usrCntlKundeFiskaldaten.vb

@@ -5,6 +5,11 @@
 
     Dim KundenNr As Integer
 
+    Sub New()
+        InitializeComponent()
+    End Sub
+
+
     Sub New(KundenNr)
         InitializeComponent()
         Me.KundenNr = KundenNr
@@ -78,4 +83,13 @@
     Private Sub usrCntlKundeFiskaldaten_Load(sender As Object, e As EventArgs) Handles Me.Load
         initFiskal()
     End Sub
+
+    Sub initFiskal(FISKAL As cFiskal_Daten, KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert)
+        Me.KundenNr = KundenNr
+        Me.KUNDE_ERW = KUNDE_ERW
+        Me.FISKAL = FISKAL
+
+        initFiskal()
+    End Sub
+
 End Class