neu

Aviso/frmEintragAviso.vb

@@ -1034,6 +1034,8 @@ Public Class frmEintragAviso
                 AvisoStatusFunctions.insertVermerkAllg(tmpId, "ATB-Nr. folgt", 80)
             End If
 
+            '   Dim FIRMA_CBO = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP)
+
             Select Case FIRMA_TMP
                 Case "ATILLA"
                     Try
@@ -1067,6 +1069,7 @@ Public Class frmEintragAviso
                                     showSendungsdetails = True ' Damit der benutzer gleich die Sendungen sieht und ggf löschen kann.
                                 Else
                                     Dim filiale_tmp As Integer = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
+
                                     Dim gesAnzSnd = initSndAnzahl()
 
                                     For cnt As Integer = anzahlSendungen + 1 To gesAnzSnd
@@ -1074,8 +1077,13 @@ Public Class frmEintragAviso
                                         Dim abfnr_tmp As Object = DBNull.Value
 
                                         Dim abfArt As Object = DBNull.Value
-                                        getFilialeAndAbfertNrIMEX(cnt, filiale_tmp, abfnr_tmp, fremd, abfArt)
-                                        If FIRMA_TMP = "VERIMEX" Then filiale_tmp = 0
+                                        If FIRMA_TMP = "VERIMEX" Then
+                                            filiale_tmp = 0
+                                        Else
+                                            getFilialeAndAbfertNrIMEX(cnt, filiale_tmp, abfnr_tmp, fremd, abfArt)
+                                        End If
+
+
                                         'IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)
                                         'AvisoDAL.insertSendungEmpty(tmpId, scnt, filiale_tmp, abfnr_tmp, 0) ' INSERT 
                                         Dim tblSnd_AuftraggeberKdNr As Object = Nothing
@@ -1098,7 +1106,7 @@ Public Class frmEintragAviso
                         End If
                     End If
 
-                Case Else
+                Case Else 'VERAG
                     Dim anzahlSendungen = ADMIN.getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & tmpId, "AVISO") ' bei Neuanlage=0
 
                     'Die Sendungen eintragen: