Verzollungsunterlagen

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb

@@ -199,7 +199,6 @@
             End If
         End If
 
-
     End Sub
 
     Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
@@ -436,5 +435,27 @@
             Case Else : txtFirma._UseFIRMA = "VERAG" : KdInAuftrag._UseFIRMA = "VERAG"
         End Select
 
+        setAnlagenText()
+
+    End Sub
+
+    Private Sub setAnlagenText()
+
+        Select Case cboFirma._value
+            Case "AMBAR"
+                txtAnlage1.Text = "Original Präferenz"
+                txtAnlage2.Text = "Lieferanten-Rechnung"
+                txtAnlage3.Text = "Zollbeleg"
+
+            Case Else
+
+                txtAnlage1.Text = "Zollbeleg"
+                txtAnlage2.Text = "Lieferanten-Rechnung"
+                txtAnlage3.Text = "Original Präferenz"
+
+        End Select
+
+
+
     End Sub
 End Class