201020

Aviso/frmEintragAviso.vb

@@ -121,9 +121,17 @@ Public Class frmEintragAviso
             Case "UNISPED"
                 Label1.Visible = True
                 cboImEx.Visible = True
-                '    lblDy.Visible = True
-                '    txtDyRef.Visible = True
-                '    picDy.Visible = True
+            Case "AMBAR"
+                txtSndFiskalAT.Visible = False
+                lblFiskAT.Visible = False
+                txtSndFiskalDE.Visible = False
+                lblFiskDE.Visible = False
+                Label1.Visible = True
+                cboImEx.Visible = True
+
+                txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
+
+                pnl.Visible = True
             Case "VERAG"
                 Label1.Visible = True
                 cboImEx.Visible = True
@@ -777,6 +785,12 @@ Public Class frmEintragAviso
                 myAviso.Grenzstelle = cboGrenzstelle.Text
                 ' MsgBox(myAviso.Grenzstelle)
             End If
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+                myAviso.Grenzstelle = "AMB"
+            End If
+
+
             '  myAviso.Buero = cboGrenzstelle.Text
             myAviso.ImEx = IIf(cboImEx.Visible, cboImEx.Text, "")
 
@@ -1121,6 +1135,7 @@ Public Class frmEintragAviso
                 Case "NKD" : filialeNr = 5303
                 Case "SFD" : filialeNr = 4839
                 Case "NEU" : filialeNr = 4819
+                Case "AMB" : filialeNr = 5701
                 Case "???", "" : If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_standartFiliale > 0 Then filialeNr = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_standartFiliale
             End Select
         ElseIf (cnt - txtSendungen.Text) <= txtSndFiskalAT.Text Then