neu

SDL/kunden/frmOffertenBearbeiten.vb

@@ -1,5 +1,6 @@
 Public Class frmOffertenBearbeiten
 
+    Dim FIRMA_TMP = ""
 
     Public kdnr As Integer = -1
     Dim SQL As New SQL
@@ -16,9 +17,15 @@
     Private Sub frmOffertenBearbeiten_Load(sender As Object, e As EventArgs) Handles Me.Load
         FlowLayoutPanel.Controls.Clear()
 
+        Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
+        If KUNDE Is Nothing Then Me.Close()
+        If Not KUNDE.hasEntry Then Me.Close()
+        FIRMA_TMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
+
+
         'Dim OFFERTE As New cOfferteList(kdnr, False)
         Dim where = ""
-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        Select Case FIRMA_TMP
             Case "IMEX"
                 where = " WHERE [Offertenstamm].[OffertenNr] IN (1,2,3,4,5,6,7,8,9,10,26,27,29)"
         End Select
@@ -50,7 +57,7 @@
                     o.SAVE() 'speichern
                     o.LOAD_POSITIONEN() 'positionen Laden
                     If o.POSITIONEN.Count = 0 Then 'wenn keine POS --> neues Offert
-                        o.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) '--> Standartofferten laden
+                        o.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP) '--> Standartofferten laden
                     End If
 
                     'SQL.doSQL("INSERT INTO Offertenpositionen WHERE KundenNr=" & kdnr & " AND  [OffertenNr]=" & kdnr & "")