neu
This commit is contained in:
@@ -6,7 +6,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
|
||||
Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
|
||||
Dim FISKAL As cFiskal_Daten = Nothing
|
||||
Dim USRCNTL_FISK As usrCntlKundeFiskaldaten
|
||||
' Dim USRCNTL_FISK As usrCntlKundeFiskaldaten
|
||||
Dim EMAIL_ANKUNFT As cEmailBenachrichtigungList = Nothing
|
||||
Dim EMAIL_FREIGABE As cEmailBenachrichtigungList = Nothing
|
||||
Dim sql As New SQL
|
||||
@@ -111,10 +111,10 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
tbFiskal.Controls.Clear()
|
||||
USRCNTL_FISK = New usrCntlKundeFiskaldaten(FISKAL, KUNDE_ERW)
|
||||
USRCNTL_FISK.Dock = DockStyle.Fill
|
||||
tbFiskal.Controls.Add(USRCNTL_FISK)
|
||||
' tbFiskal.Controls.Clear()
|
||||
UsrCntlKundeFiskaldaten1.initFiskal(FISKAL, KUNDE_ERW)
|
||||
'USRCNTL_FISK.Dock = DockStyle.Fill
|
||||
'tbFiskal.Controls.Add(USRCNTL_FISK)
|
||||
|
||||
checkEORI_Aufschub()
|
||||
|
||||
@@ -565,7 +565,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
|
||||
|
||||
USRCNTL_FISK.loadinClass(FISKAL, KUNDE_ERW)
|
||||
UsrCntlKundeFiskaldaten1.loadinClass(FISKAL, KUNDE_ERW)
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Reference in New Issue
Block a user