Fakt, antragpos.

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1,4 +1,7 @@
 
+Imports System.Web.Configuration
+Imports System.Web.UI.WebControls.Expressions
+Imports com.sun.imageio.plugins
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrCntlFaktAbrechnung
@@ -406,10 +409,10 @@ Public Class usrCntlFaktAbrechnung
             End If
 
         End If
-            'initDGVOfferteDetailsUebersicht(RECHNUNG.kundenn,RECHNUNG.OffertenNr)
-            'Dann die Werte eintragen:
-            ' MsgBox("G: " & RECHNUNG.POSITIONEN.Count)
-            Dim vorzeichen = 1 'If(RECHNUNG.Vorzeichen = "-", -1, 1)
+        'initDGVOfferteDetailsUebersicht(RECHNUNG.kundenn,RECHNUNG.OffertenNr)
+        'Dann die Werte eintragen:
+        ' MsgBox("G: " & RECHNUNG.POSITIONEN.Count)
+        Dim vorzeichen = 1 'If(RECHNUNG.Vorzeichen = "-", -1, 1)
         For Each POS In RECHNUNG.POSITIONEN
             Dim found = False
             For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows
@@ -528,6 +531,15 @@ Public Class usrCntlFaktAbrechnung
         End If
 
 
+        Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
+            FirmaTmp = "VERAGIMEX"
+        End If
+
+        If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then
+            FirmaTmp = "VERAG360"
+        End If
+
         cboVorauskasse.Items.Clear()
         cboVorauskasse.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", 0))
         cboVorauskasse.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", 1))
@@ -539,7 +551,7 @@ Public Class usrCntlFaktAbrechnung
         cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 monatlich", 3))
         cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 Dekade", 4))
         cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 wöchentlich", 5))
-        '  cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6 Maut/Diesel", 6))
+        If FirmaTmp = "VERAG360" Then cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6 Maut/Diesel", 6))
         cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 pro  LKW", 7))
         cboSammelrechnung.changeItem(0)
 
@@ -554,15 +566,6 @@ Public Class usrCntlFaktAbrechnung
         Dim whereFirma = ""
         Dim firstEmpty = False
 
-        Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
-            FirmaTmp = "VERAGIMEX"
-        End If
-
-        If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then
-            FirmaTmp = "VERAG360"
-        End If
-
         'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
         'FirmaTmp = "AMBAR"
         'End If
@@ -596,11 +599,12 @@ Public Class usrCntlFaktAbrechnung
                 Else
                     whereFirma = " AND FIRMENGRUPPE IN ('VERAG360') " : pnlDocs.Visible = True
                 End If
+
         End Select
 
 
         cboFirma.fillWithSQL("SELECT  [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID NOT IN(3) " & whereFirma & " ORDER BY Firma_ID  ", True, "FMZOLL", firstEmpty)
-                cboFirma.SelectedIndex = 0
+        cboFirma.SelectedIndex = 0
 
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER And FirmaTmp <> "VERAGIMEX" Then
@@ -1828,6 +1832,8 @@ Public Class usrCntlFaktAbrechnung
                 pnlTop.BackColor = Color.Teal
             Case 20 : pic.BackgroundImage = My.Resources.IMEX_LOGO_simple
                 pnlTop.BackColor = Color.FromArgb(250, 120, 0) : errCOlor = Color.DarkRed
+            Case 19 : pic.BackgroundImage = My.Resources.VERAG_360
+                pnlTop.BackColor = Color.FromArgb(250, 120, 0) : errCOlor = Color.LightBlue
 
                 'UNISPED:
             Case 21 : pic.BackgroundImage = My.Resources.Unisped_logo
@@ -1883,6 +1889,33 @@ Public Class usrCntlFaktAbrechnung
         End If
 
         initRg_Anhaenhe_Default(RECHNUNG, SPEDBUCH)
+
+        If Not cboFirma._value = 19 Then
+
+            If cboSammelrechnung.Items.Count > 7 Then
+
+
+                For iIndex = 0 To cboSammelrechnung.Items.Count - 1
+                    If cboSammelrechnung.Items(iIndex).value = 6 Then
+                        cboSammelrechnung.Items.RemoveAt(iIndex)
+                        Exit For
+                    End If
+                Next
+
+
+            End If
+
+        Else
+
+            If cboSammelrechnung.Items.Count < 8 Then
+                cboSammelrechnung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6 Maut/Diesel", 6))
+            End If
+
+
+
+
+        End If
+
     End Sub