diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index b86efa01..b68cfe59 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/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 diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index f6d15587..cd07104d 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/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 diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb index c0093f3c..421a5c83 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb @@ -1,11 +1,5 @@ Imports System.Drawing -Imports System.IO -Imports System.Reflection -Imports System.Security.Policy -Imports System.Threading -Imports System.Web.UI.WebControls.WebParts Imports System.Windows.Forms -Imports VERAG_PROG_ALLGEMEIN.cMessenger Public Class frmMessenger Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb index e06a23e0..3fbaf5b5 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb @@ -1,11 +1,8 @@  Imports System.Drawing -Imports System.Globalization -Imports System.Reflection Imports System.Text Imports System.Threading Imports System.Windows.Forms -Imports DocumentFormat.OpenXml.Drawing.Diagrams Public Class frmUeberstundenauszahlen Dim refresh As Boolean = False diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb index b1f96ba0..415eb708 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb @@ -1,9 +1,6 @@ Imports System.Data.SqlClient -Imports System.EnterpriseServices -Imports System.IO Imports System.Net Imports System.Reflection -Imports DocumentFormat.OpenXml.InkML Public Class cMSEAPI @@ -1016,7 +1013,7 @@ Public Class cMSEAPI '\\datenarchiv\Datenarchiv\MDM_SCHNITTSTELLEN\ECHTSYSTEM\Nachrichtendaten_ZIEL\MSE If r("url") <> "" AndAlso r("name") <> "" AndAlso r("name").contains("VAT") Then 'only VAT-Invoices - Dim inv As New cMSEInvoices(r("name"), r("inv.invoice_id")) + Dim inv As New cMSEInvoices(r("name"), r("invoice_id")) If Not inv.imported Then 'verhindert unnötige Downloads Dim filepath = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURLStream(r("url"), r("name"), PDFRECHNUNGENPFAD, False) If filepath <> "" AndAlso uploadToDs Then