115 lines
5.3 KiB
VB.net
115 lines
5.3 KiB
VB.net
Public Class usrCntlATLAS_EZA_Adressen
|
|
' Dim OWNER As Control
|
|
Dim NCTS_OUT As DAKOSY_Worker.cDakosyEZA = Nothing
|
|
'Sub New(OWNER As Control, NCTS_OUT As DAKOSY_Worker.cDakosyEZA)
|
|
Sub New(NCTS_OUT As DAKOSY_Worker.cDakosyEZA)
|
|
InitializeComponent()
|
|
'Me.OWNER = OWNER
|
|
Me.NCTS_OUT = NCTS_OUT
|
|
End Sub
|
|
|
|
Public Sub usrCntlATLAS_NCTS_Adressen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
' usrCntlSumA_Befoerderer.initME()
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Public Sub getValues(ByRef EZA As DAKOSY_Worker.cDakosyEZA)
|
|
|
|
EZA.eza_ADRESSEN.Clear()
|
|
|
|
If usrCntl_Versender.txtName1.Text.Trim <> "" Or usrCntl_Versender.txtEORI.Text.Trim <> "" Then
|
|
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("CZ", usrCntl_Versender))
|
|
End If
|
|
|
|
If usrCntl_Empfaenger.txtName1.Text.Trim <> "" Or usrCntl_Empfaenger.txtEORI.Text.Trim <> "" Then
|
|
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("CN", usrCntl_Empfaenger))
|
|
End If
|
|
|
|
If usrCntl_Anmelder.txtName1.Text.Trim <> "" Or usrCntl_Anmelder.txtEORI.Text.Trim <> "" Then
|
|
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("DT", usrCntl_Anmelder))
|
|
End If
|
|
|
|
If usrCntl_VertreterAnmelder.txtName1.Text.Trim <> "" Or usrCntl_VertreterAnmelder.txtEORI.Text.Trim <> "" Then
|
|
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("AG", usrCntl_VertreterAnmelder))
|
|
End If
|
|
|
|
|
|
'If usrCntl_Bewilligungsinhaber.txtName1.Text.Trim <> "" Or usrCntl_Bewilligungsinhaber.txtEORI.Text.Trim <> "" Then
|
|
'EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl(" "))
|
|
'End If
|
|
|
|
If usrCntl_Erwerber.txtName1.Text.Trim <> "" Or usrCntl_Erwerber.txtEORI.Text.Trim <> "" Then
|
|
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("UC", usrCntl_Erwerber))
|
|
|
|
End If
|
|
|
|
|
|
If usrCntl_Vertretener.txtName1.Text.Trim <> "" Or usrCntl_Vertretener.txtEORI.Text.Trim <> "" Then
|
|
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("AA", usrCntl_Vertretener))
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Function getAdresseFromUsrcntl(typ As String, usrCntl As usrCntlAdresseEZA) As DAKOSY_Worker.cDakosy_EZA_Adressen
|
|
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
|
ADR.ezaAd_AdressTyp = typ
|
|
ADR.ezaAd_NameFirma1 = cProgramFunctions.isLeerNothing(usrCntl.txtName1.Text)
|
|
ADR.ezaAd_NameFirma2 = cProgramFunctions.isLeerNothing(usrCntl.txtName2.Text)
|
|
ADR.ezaAd_StrasseHausNr1 = cProgramFunctions.isLeerNothing(usrCntl.txtStrasse.Text)
|
|
ADR.ezaAd_PLZ = cProgramFunctions.isLeerNothing(usrCntl.txtPlz.Text)
|
|
ADR.ezaAd_Ort = cProgramFunctions.isLeerNothing(usrCntl.txtOrt.Text)
|
|
ADR.ezaAd_LandCode = cProgramFunctions.isLeerNothing(usrCntl.sbLand._value)
|
|
ADR.ezaAd_TeilnehmerEORI = cProgramFunctions.isLeerNothing(usrCntl.txtEORI.Text)
|
|
ADR.ezaAd_TeilnehmerNLNR = cProgramFunctions.isLeerNothing(usrCntl.txtEORINL.Text)
|
|
ADR.ezaAd_AdressCode = cProgramFunctions.isLeerNothing(usrCntl.kdFirma.KdNr)
|
|
' ADR.ezaAd_TeilnehmerNLNR = cProgramFunctions.isLeerNothing(usrCntl.txtEORINL.Text)
|
|
If typ = "UC" Then
|
|
ADR.ezaAd_FinanzamtIDAnmelder = cProgramFunctions.isLeerNothing(txtUstId.Text)
|
|
End If
|
|
' ADR. ezaAd_UStIDAnmelder As Object = Nothing ' VARCHAR (14) NULL,
|
|
' ADR. ezaAd_FinanzamtIDAnmelder As Object = Nothing ' VARCHAR (4) NULL,
|
|
' Property ezaAd_Bewilligungsnummer As Object = Nothing ' VARCHAR (35) NULL,
|
|
' Property ezaAd_BewilligungsFachVerfahren As Object = Nothing ' VARCHAR (35) NULL,
|
|
' Property ezaAd_BewilligungsnummerEndverwender As Object = Nothing ' VARCHAR (35) NULL,
|
|
Return ADR
|
|
End Function
|
|
|
|
Sub setAdresseFromUsrcntl(usrCntl As usrCntlAdresseEZA, ADR As DAKOSY_Worker.cDakosy_EZA_Adressen)
|
|
usrCntl.kdFirma.KdNr = If(ADR.ezaAd_AdressCode IsNot Nothing, ADR.ezaAd_AdressCode, -1)
|
|
usrCntl.txtName1.Text = If(ADR.ezaAd_NameFirma1, "")
|
|
usrCntl.txtName2.Text = If(ADR.ezaAd_NameFirma2, "")
|
|
usrCntl.txtStrasse.Text = If(ADR.ezaAd_StrasseHausNr1, "")
|
|
usrCntl.txtPlz.Text = If(ADR.ezaAd_PLZ, "")
|
|
usrCntl.txtOrt.Text = If(ADR.ezaAd_Ort, "")
|
|
usrCntl.txtEORI.Text = If(ADR.ezaAd_TeilnehmerEORI, "")
|
|
usrCntl.txtEORINL.Text = If(ADR.ezaAd_TeilnehmerNLNR, "")
|
|
usrCntl.sbLand.SET_VALUE(If(ADR.ezaAd_LandCode, ""))
|
|
|
|
If usrCntl Is usrCntl_Erwerber Then
|
|
txtUstId.Text = If(ADR.ezaAd_FinanzamtIDAnmelder, "")
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Public Sub setValues(EZA As DAKOSY_Worker.cDakosyEZA)
|
|
If EZA Is Nothing OrElse EZA.eza_ADRESSEN Is Nothing Then Exit Sub
|
|
|
|
For Each ADR In EZA.eza_ADRESSEN
|
|
Select Case ADR.ezaAd_AdressTyp
|
|
Case "CZ" : setAdresseFromUsrcntl(usrCntl_Versender, ADR)
|
|
Case "CN" : setAdresseFromUsrcntl(usrCntl_Empfaenger, ADR)
|
|
Case "DT" : setAdresseFromUsrcntl(usrCntl_Anmelder, ADR)
|
|
Case "AG" : setAdresseFromUsrcntl(usrCntl_VertreterAnmelder, ADR)
|
|
Case "UC" : setAdresseFromUsrcntl(usrCntl_Erwerber, ADR)
|
|
Case "AA" : setAdresseFromUsrcntl(usrCntl_Vertretener, ADR)
|
|
' Case "" : setAdresseFromUsrcntl(usrCntl_Versender, ADR)
|
|
End Select
|
|
|
|
Next
|
|
|
|
End Sub
|
|
|
|
End Class
|