Grenzstelle, ATILLA NEUHAUS

Aviso/frmEintragAviso.vb

@@ -687,14 +687,14 @@ Public Class frmEintragAviso
             End If
 
 
-            If FIRMA_TMP <> "ATILLA" Then
-                If cboGrenzstelle._value.Trim = "" Then
+            '  If FIRMA_TMP <> "ATILLA" Then
+            If cboGrenzstelle._value.Trim = "" Then
                     ' MsgBox("Bitte die Grenzstelle eingegeben.", vbInformation)
                     lblErr_Grenzstelle.Visible = True
                     cboGrenzstelle.Focus()
                     Exit Sub
                 End If
-            End If
+            '   End If
 
 
 
@@ -882,12 +882,12 @@ Public Class frmEintragAviso
                 myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
                 myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
             End If
-            If FIRMA_TMP = "ATILLA" Then
-                myAviso.Grenzstelle = "SUB"
-            Else
-                myAviso.Grenzstelle = cboGrenzstelle._value
-                ' MsgBox(myAviso.Grenzstelle)
-            End If
+            'If FIRMA_TMP = "ATILLA" Then
+            '    myAviso.Grenzstelle = "SUB"
+            'Else
+            myAviso.Grenzstelle = cboGrenzstelle._value
+            ' MsgBox(myAviso.Grenzstelle)
+            '  End If
 
             myAviso.Transportmittelart = cboTransportmittelart._value
 
@@ -1075,9 +1075,11 @@ Public Class frmEintragAviso
                         If Neuanlage Then
                             If ATILLA_NEUERAKTENDECKEL Then
                                 Dim abfnr_tmp As Object = DBNull.Value
-                                getFilialeAndAbfertNrATILLA(1, abfnr_tmp) ' FilialeNr u AbfNr werden geladen
                                 Dim sndId = -1
-                                If AvisoDAL.insertSendungEmpty(tmpId, 1, 4801, abfnr_tmp, 0, Nothing, , , , sndId) Then ' INSERT 
+                                Dim filiale_tmp As Integer = 4801 'VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
+                                If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802
+                                getFilialeAndAbfertNrATILLA(1, abfnr_tmp, filiale_tmp) ' FilialeNr u AbfNr werden geladen
+                                If AvisoDAL.insertSendungEmpty(tmpId, 1, filiale_tmp, abfnr_tmp, 0, Nothing, , , , sndId) Then ' INSERT 
                                     TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
                                     loadInSND(TMP_SND_Atilla)
                                 End If
@@ -1299,8 +1301,8 @@ Public Class frmEintragAviso
         End If
         If cbxPosNr.Checked Then abfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(filialeNr, Now.Year)
     End Sub
-    Sub getFilialeAndAbfertNrATILLA(ByVal cnt, ByRef abfertigungsNr)
-        Dim filialeNr = 4801
+    Sub getFilialeAndAbfertNrATILLA(ByVal cnt, ByRef abfertigungsNr, filialeNr)
+
         If cbxPosNr.Checked Then abfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(filialeNr, Now.Year)
     End Sub