SDL MDM

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -871,7 +871,6 @@ Public Class usrcntlKundeBearbeitenFull
                 cboFiliale.changeItem("5601")
             Case "AMBAR"
                 cboFiliale.changeItem("5701")
-                cboFiliale.changeItem("5701")
             Case "ATILLA"
                 cboFiliale.changeItem("4801")
             Case Else

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -1,12 +1,6 @@
 Imports System.Data.OleDb
 Imports System.DirectoryServices.ActiveDirectory
 Imports System.IO
-Imports Chilkat
-Imports com.sun.jdi
-Imports com.sun.net.httpserver.Authenticator
-Imports DAKOSY_Worker.NichtAbschliessendeFestsetzung
-Imports sun.nio.cs.ext
-Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmMDMDatenverarbetiung
 
@@ -15,7 +9,7 @@ Public Class frmMDMDatenverarbetiung
     ' Dim ProduktCode_NOT_IN = "SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE  [plp_einarbeiten]=0 "
     Dim ProduktCode_NOT_IN = "'9020'"
     Dim datum As Date = Nothing
-    Dim test As Boolean = True
+    Dim test As Boolean = False
 
     Private Sub frmPloseDatenverarbetiung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.Top = 0
@@ -23,6 +17,8 @@ Public Class frmMDMDatenverarbetiung
 
         VERAG_PROG_ALLGEMEIN.cProgramFunctions.SetDoubleBuffered(MyDatagridview1)
 
+        test = cbxTestdaten.Checked
+
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
@@ -89,6 +85,11 @@ Public Class frmMDMDatenverarbetiung
 
     Private Sub btnREerstellen_Click_1(sender As Object, e As EventArgs) Handles btnREerstellen.Click
         Dim errorTmp = False
+        If test Then
+
+            If Not vbYes = MsgBox("Aktuell ist der Testlauf aktiviert, wirklich fortfahren?", vbYesNoCancel) Then Exit Sub
+
+        End If
         Select Case LIEFERANT
             Case "PLOSE"
                 If genRGAtt_PLOSE() Then
@@ -102,7 +103,6 @@ Public Class frmMDMDatenverarbetiung
                         setFakturiert(LIEFERANT)
                     End If
                 End If
-
             Case "IDS"
                 MsgBox("Nicht verfügbar!")
             Case "MSE"
@@ -111,7 +111,6 @@ Public Class frmMDMDatenverarbetiung
                         setFakturiert(LIEFERANT)
                     End If
                 End If
-
             Case "ASFINAG"
                 Dim abrechnungsDatum As DateTime = Now()
                 If datum = Nothing Then
@@ -124,7 +123,6 @@ Public Class frmMDMDatenverarbetiung
                     MautD_Befuellen(inputKdNr)
                 End If
                 initDgv_ASFINAG(cbxASFINAGAbgerechnet.Checked, cbxBelegeerstellt.Checked)
-
         End Select
     End Sub
 
@@ -133,7 +131,6 @@ Public Class frmMDMDatenverarbetiung
     Sub genSummenbericht_PLOSE()
         Dim displayFilter = False
         Dim sqlstr As String = ""
-
         sqlstr &= " SELECT 	  count(*) Anzahl	,plose_ProduktCode"
         sqlstr &= ",max(plose_Produktbeschreibung) as plose_Produktbeschreibung"
         sqlstr &= ",sum(plose_Menge) as plose_Menge"
@@ -902,7 +899,7 @@ Public Class frmMDMDatenverarbetiung
 
         cbxASFINAGAbgerechnet.Visible = False
         cbxBelegeerstellt.Visible = False
-        cbxTestdaten.Visible = False
+        cbxTestdaten.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm)
         pnlAsfinag.Visible = False
         Panel4.Visible = False
         Panel5.Visible = False
@@ -922,7 +919,6 @@ Public Class frmMDMDatenverarbetiung
                 cbxASFINAGAbgerechnet.Visible = True
                 cbxBelegeerstellt.Visible = True
                 If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
-                    'cbxTestdaten.Visible = True
                 End If
                 pnlAsfinag.Visible = True
                 Exit Sub
@@ -2629,6 +2625,7 @@ Public Class frmMDMDatenverarbetiung
 
     Function gen_SPEDBUCH_ByKdNr(KdNr As String, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, Lieferant As String, Optional PLOSEKundenNr As String = "", Optional von As Date = Nothing, Optional bis As Date = Nothing)
         Try
+            If KdNr = "" Then Return False
 
             Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
             SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
@@ -2830,6 +2827,8 @@ Public Class frmMDMDatenverarbetiung
     Function gen_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, Lieferant As String, Optional PLOSEKundenNr As String = "", Optional von As Date = Nothing, Optional bis As Date = Nothing)
         Try
 
+            If KdNr = "" Then Return False
+
             Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SPEDBUCH.VermittlerKundenNr)
             Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SPEDBUCH.VermittlerKundenNr)
             Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang
@@ -3818,7 +3817,7 @@ Public Class frmMDMDatenverarbetiung
 
 
 
-                cbxASFINAGAbgerechnet.Checked = True
+            cbxASFINAGAbgerechnet.Checked = True
             'initDgv_ASFINAG(Not cbxASFINAGNichtAbgerechnet.Checked)
         End If