ncts gestellung

Aviso/usrCntlSND_NCTSGestellungsadresse.vb

@@ -23,7 +23,7 @@
     End Sub
 
 
-    Public Sub setValues()
+    Public Sub setValues(customsOfficeSet)
         txtT1Verzollungsadresse.Text = If(NCTS_GA.nga_name, "")
         txtT1VerzollungsadresseStrasse.Text = If(NCTS_GA.nga_strasse, "")
         txtT1VerzollungsadressePlz.Text = If(NCTS_GA.nga_plz, "")
@@ -34,8 +34,9 @@
         txtT1VerzollungsadresseEORI.Text = If(NCTS_GA.nga_EORI, "")
         txtT1VerzollungsadresseEORI_NL.Text = If(NCTS_GA.nga_EORI_NL, "")
         txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(If(NCTS_GA.nga_bestZollst, ""))
-        txtT1VerzollungsadresseATANr.Text = If(NCTS_GA.nga_ATANr, "")
-
+        'If Not customsOfficeSet Then
+        '    txtT1VerzollungsadresseATANr.Text = If(NCTS_GA.nga_ATANr, "")
+        ' End If
 
         lblNGAId.Text = If(NCTS_GA.nga_id > 0, NCTS_GA.nga_id, "-")
         picDel.Visible = (NCTS_GA.nga_id > 0)
@@ -53,7 +54,7 @@
         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)
-        NCTS_GA.nga_ATANr = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseATANr.Text)
+        ' NCTS_GA.nga_ATANr = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseATANr.Text)
     End Sub
 
     Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
@@ -84,7 +85,7 @@
 
     Private Sub usrCntlSND_NCTSGestellungsadresse_Load(sender As Object, e As EventArgs) Handles Me.Load
         If NCTS_GA Is Nothing Then : NCTS_GA = New VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
-        Else : setValues() : End If
+        Else : setValues(False) : End If
 
 
         '   txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
@@ -97,7 +98,7 @@
 
     Sub reset()
         NCTS_GA = New VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
-        setValues()
+        setValues(False)
     End Sub
 
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
@@ -116,7 +117,7 @@
     Private Sub txtT1Verzollungsadresse_VALUE_CHANGED() Handles txtT1Verzollungsadresse.VALUE_CHANGED
         If txtT1Verzollungsadresse._value <> "" Then
             NCTS_GA = New VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen(txtT1Verzollungsadresse._value)
-            setValues()
+            setValues(True)
         End If
 
     End Sub
@@ -129,7 +130,7 @@
         If vbYes = MsgBox("Möchten Sie die NCTS-Gestellungsadresse wirklich löschen?", vbYesNoCancel + MsgBoxStyle.DefaultButton2) Then
             NCTS_GA.DELETE()
             NCTS_GA = New VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
-            setValues()
+            setValues(False)
         End If
     End Sub