Public Class usrCntlSND_ATBGestellung 'Public NCTS_GA As VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen Sub New(SendungsId) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub 'Public Sub setValues() ' txtATBT1.Text = If(NCTS_GA.nga_name, "") ' txtT1VerzollungsadresseStrasse.Text = If(NCTS_GA.nga_strasse, "") ' txtT1VerzollungsadressePlz.Text = If(NCTS_GA.nga_plz, "") ' txtT1VerzollungsadresseOrt.Text = If(NCTS_GA.nga_ort, "") ' sbT1VerzollungsadresseLand.SET_VALUE(If(NCTS_GA.nga_land, "")) ' txtT1VerzollungsadresseAnspr.Text = If(NCTS_GA.nga_Ansprechpartner, "") ' txtT1VerzollungsadresseEORI.Text = If(NCTS_GA.nga_EORI, "") ' txtT1VerzollungsadresseEORI_NL.Text = If(NCTS_GA.nga_EORI_NL, "") ' txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(If(NCTS_GA.nga_bestZollst, "")) ' lblNGAId.Text = If(NCTS_GA.nga_id > 0, NCTS_GA.nga_id, "-") ' picDel.Visible = (NCTS_GA.nga_id > 0) 'End Sub 'Public Sub getValues() ' NCTS_GA.nga_name = txtATBT1.Text ' NCTS_GA.nga_strasse = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseStrasse.Text) ' NCTS_GA.nga_plz = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadressePlz.Text) ' NCTS_GA.nga_ort = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseOrt.Text) ' NCTS_GA.nga_land = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(sbT1VerzollungsadresseLand._value) ' NCTS_GA.nga_Ansprechpartner = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseAnspr.Text) ' NCTS_GA.nga_EORI = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseEORI.Text) ' NCTS_GA.nga_EORI_NL = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseEORI_NL.Text) ' NCTS_GA.nga_bestZollst = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseBestimmungszollstelle._value) 'End Sub End Class