neu

SDL/kunden/Vorauskasse/frmVorauskasse.vb

@@ -7,8 +7,29 @@
 
     Dim JAHR As Date = CDate("01.01." & Now.Year)
 
+    Sub New()
 
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
 
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Dim FilialenNr = Nothing
+    Dim AbfertigungsNr = Nothing
+    Dim DatumVon = Nothing
+
+    Sub New(FilialenNr, AbfertigungsNr, DatumVon)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.FilialenNr = FilialenNr
+        Me.AbfertigungsNr = AbfertigungsNr
+        Me.DatumVon = DatumVon
+
+    End Sub
     Private Sub frmVorauskasse_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
@@ -17,20 +38,28 @@
         btnMonat.Text = MONAT.ToString("MMMM")
         btnJahr.Text = JAHR.Year
 
+
+        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
+
         Dim QSwhere = ""
-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+
+        Select Case FirmaTmp
+            Case "UNISPED" : QSwhere = " AND mit_firma IN ('UNISPED') "
             Case "ATILLA" : QSwhere = ""
+            Case "VERAGIMEX" : QSwhere = " AND mit_firma IN ('IMEX','BEIDE','VERAG','ATILLA') "
             Case "IMEX" : QSwhere = " AND mit_firma IN ('IMEX','BEIDE') "
             Case Else
                 QSwhere = " AND mit_firma <> 'IMEX' "
-
         End Select
 
 
         '  cboSachbearbeiterQS.fillWithSQL("SELECT  ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & QSwhere & " ORDER BY Name ", False, "FMZOLL", True)
 
         Dim where = ""
-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        Select Case FirmaTmp
             Case "IMEX"
                 where = " AND FilialenNr IN (5501) "
             Case "ATILLA"
@@ -41,6 +70,8 @@
                 where = " AND FilialenNr IN (5701) "
             Case "FRONTOFFICE"
                 where = " AND FilialenNr IN (5801) "
+            Case "VERAGIMEX"
+                where = ""
             Case Else
                 where = " AND FilialenNr NOT IN (5501) "
         End Select
@@ -86,6 +117,17 @@
             btnVK_VERAG_VR.Visible = True
         End If
 
+        If Me.FilialenNr IsNot Nothing Then
+            cboFiliale.changeItem(FilialenNr)
+        End If
+
+        If Me.AbfertigungsNr IsNot Nothing Then
+            txtAbfertigungsnummer.Text = AbfertigungsNr
+        End If
+
+        If Me.DatumVon IsNot Nothing Then
+            DateTimePicker1.Value = CDate(DatumVon)
+        End If
 
     End Sub
 
@@ -519,6 +561,10 @@
                                                  End Sub
 
     End Sub
+
+    Private Sub frmVorauskasse_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        If FilialenNr IsNot Nothing Or AbfertigungsNr IsNot Nothing Or DatumVon IsNot Nothing Then btnSuche.PerformClick()
+    End Sub
 End Class