div. Änderungen, etc.

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlImportaviso.vb

@@ -81,12 +81,13 @@
             txtAnzVerp.Text = If(SENDUNG.tblSnd_Colli, "")
             txtGewicht.Text = If(SENDUNG.tblSnd_Gewicht, "")
             txtAbsender.Text = If(SENDUNG.tblSnd_Absender, "")
-           
+
         End If
         If AVISO IsNot Nothing Then
             txtLKWKennz.Text = If(AVISO.LKW_Nr, "")
             txtUnternehmer.Text = If(AVISO.Frächter, "")
             cbxLKWWartet.Checked = (AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft)
+
         End If
     End Sub
 
@@ -130,6 +131,7 @@
        
         cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "AG"))
         cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "CS"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-UNISPED Ltd", "VU"))
         cboFirma.changeItem("AG")
      
         initControlsHandler()

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb

@@ -19,6 +19,7 @@ Public Class usrcntlVorauskasse
     Dim VK_ID = -1
     Dim SQL As New SQL
     Dim serializedData_CBAM As String = ""
+    Dim brexitEnabled As Boolean = False
 
 
     Sub New()
@@ -134,6 +135,8 @@ Public Class usrcntlVorauskasse
                     lblRechnungsbetrag._value = CDbl(SENDUNG.tblSnd_Warenwert)
                 End If
 
+                preSelectFirmaFromAbfertigungsland(SENDUNG.tblSnd_Zollsystem_Land)
+
             End If
             If AVISO IsNot Nothing Then
                 txtLKWKennz.Text = If(AVISO.LKW_Nr, "")
@@ -143,6 +146,30 @@ Public Class usrcntlVorauskasse
         End If
     End Sub
 
+    Private Sub preSelectFirmaFromAbfertigungsland(land As String)
+
+        Select Case land
+            Case "DE"
+                If SENDUNG.tblSnd_Abfertigungsart_ID = 65 AndAlso brexitEnabled Then 'cbam
+                    cboFirma.changeItem("26")
+                Else
+                    cboFirma.changeItem("1")
+                End If
+
+            Case "AT"
+                cboFirma.changeItem("11")
+            Case "UK"
+                If brexitEnabled Then
+                    cboFirma.changeItem("26")
+                Else
+                    cboFirma.changeItem("1")
+                End If
+            Case Else
+                cboFirma.changeItem("1")
+        End Select
+
+    End Sub
+
     Public Sub initKdNR(KdNR)
         If KdNR > 0 Then
             Me.KdNR = KdNR
@@ -261,6 +288,7 @@ Public Class usrcntlVorauskasse
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
             cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-UNISPED LTD", "26"))
+            brexitEnabled = True
         End If