ATR, Fakt (UNISPED Vorlage Zahlungsziel), Preise

2024-01-29 14:27:54 +01:00
parent a4609e853d
commit 6e023041f9
13 changed files with 276 additions and 69 deletions
--- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
+++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
@@ -1988,7 +1988,30 @@ Public Class cVermerkeDAL
    End Function


+    Shared Function insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing, Optional addAuto As Boolean = False) As Integer
+        'Daten zuweisen und speichern
+        Dim myVermerk As New cVermerk
+        myVermerk.VermerkID = 0
+        myVermerk.AvisoID = AvisoID
+        myVermerk.Datum = Now
+        myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter & If(addAuto, " (AUTO)", "")
+        myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
+        myVermerk.Hinweis_Vermerk = Text
+        myVermerk.VermerkCodeId = VermerkCodeId
+        'myVermerk.her = VermerkCodeId
+        myVermerk.SendungID = SendungID
+        If VorauskasseId IsNot Nothing AndAlso VorauskasseId IsNot DBNull.Value Then myVermerk.VorauskasseId = VorauskasseId
+        myVermerk.VermerkArt = "S"
+        Dim VermerkeDAL As New cVermerkeDAL

+        insertSendungsVermerk = VermerkeDAL.SpeichernVermerk(myVermerk)
+
+        If myVermerk.VermerkCodeId = 18 Then
+            VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
+
+        End If
+
+    End Function
    Public Function loadTableMyAviso(maId As Integer) As DataTable
        '  While True  'Endlosschleife; wird verlassen durch Return oder Application.Exit()
        Try
@@ -2263,7 +2286,7 @@ Public Class cVermerkeDAL
    End Sub


-    Public Sub toggleHervorheben(ByVal hID As Integer)
+    Public Shared Sub toggleHervorheben(ByVal hID As Integer)
        Dim sql = String.Format("UPDATE Vermerke SET Hervorheben=Hervorheben-1 WHERE VermerkID = {0}", hID)

        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
@@ -2276,6 +2299,21 @@ Public Class cVermerkeDAL
        End Using
        conn.Close()

+    End Sub
+
+    Public Shared Sub DeleteSNDVermerkCode(ByVal SendungID As Integer, VermerkeCode As Integer)
+        Dim sql = "DELETE Vermerke WHERE VermerkeCode = '" & VermerkeCode & "' and SendungID= '" & SendungID & "'"
+
+        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
+        Using cmd As New SqlCommand(sql, conn)
+            Try
+                cmd.ExecuteNonQuery()
+            Catch ex As SqlException
+                MsgBox("Hervorheben kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Hervorheben")
+            End Try
+        End Using
+        conn.Close()
+
    End Sub
    Public Function Vermerke_einlesen(hAvisoID As Integer) As String
        'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
--- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
@@ -76,6 +76,7 @@ Public Class cKundenErweitert
    Property kde_Abrechnung_SendungsdatenAusSTB As Boolean = False
    Property kde_EORIgeprueftAm As Object = Nothing
    Property kde_AdressZusatz As Object = Nothing
+    Property kde_abweichendesZZVL As Object = Nothing

    Dim SQL As New SQL

@@ -153,6 +154,7 @@ Public Class cKundenErweitert
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_UIDMehrfachverwendung", kde_UIDMehrfachverwendung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_EORIgeprueftAm", kde_EORIgeprueftAm))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AdressZusatz", kde_AdressZusatz))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_abweichendesZZVL", kde_abweichendesZZVL))

        Return list
    End Function
--- a/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb
@@ -14,8 +14,8 @@ Public Class cOrigianlATR
    Property atr_empfaengerkdnr As Integer = -1
    Property atr_absenderkdnr As Integer = -1
    Property atr_austellungsdatum As Object = Nothing
-    Property atr_AvisoId As Object = Nothing
-    Property atr_SendungsId As Object = Nothing
+    Property atr_AvisoId As Integer = -1
+    Property atr_SendungsId As Integer = -1
    Property atr_LKW As Object = Nothing
    Property atr_dsId As Object = Nothing
    Property atr_DHL_ReferenzNr As Object = Nothing
--- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
@@ -614,8 +614,9 @@ Class TrdInvoice_FUNCTIONS
                 Count(1) AS RK_Satzzähler
                FROM Rechnungsausgang INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
                WHERE (((Rechnungsausgang.RechnungsDatum) Is Not Null) AND ((Rechnungsausgang.RechnungsNr) Is Not Null) AND ((Rechnungsausgang.Trdin)=0)) " & If(Firma > 0, " and Firma_ID=" & Firma, "") & If(Buchungsjahr > 0, " and Buchungsjahr=" & Buchungsjahr, "") & "
-                GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr
+                                GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr
                ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum), min(Rechnungsausgang.FilialenNr), min(Rechnungsausgang.AbfertigungsNr), min(Rechnungsausgang.UnterNr);"
+        '" & If(Firma = 4, " and Rechnungsausgang.RechnungsNr='23800029'", "") & "
    End Function


--- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb
@@ -24,7 +24,6 @@ Partial Class frmMessenger
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -39,11 +38,11 @@ Partial Class frmMessenger
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
        Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
-        Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
        Me.Panel6 = New System.Windows.Forms.Panel()
        Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
        Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
-        Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
        Me.Panel5 = New System.Windows.Forms.Panel()
        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
@@ -64,7 +63,7 @@ Partial Class frmMessenger
        Me.btnNeu = New System.Windows.Forms.Button()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
-        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
        Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.btnTeilnehmer = New System.Windows.Forms.Button()
@@ -92,9 +91,9 @@ Partial Class frmMessenger
        Me.btnSendAtt = New System.Windows.Forms.Button()
        Me.btnSenden = New System.Windows.Forms.Button()
        Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
-        Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components)
-        Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
-        Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer()
+        Me.Timer_REFRESH = New System.Windows.Forms.Timer()
+        Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
        Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
--- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
+++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
@@ -493,19 +493,23 @@ Public Class cProgramFunctions
    End Sub

    Public Shared Function getFilePathTypeValid(filePath) As String
-        Dim fi As New FileInfo(filePath)
-        Dim filename = fi.Name
-
        Dim Typ = ""
-        Select Case fi.Extension.ToString.Replace(".", "").ToUpper
-            Case "PDF" : Typ = "PDF"
-            Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL"
-            Case "DOC", "DOCX" : Typ = "WORD"
-            Case "TXT" : Typ = "TEXT"
-            Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD"
-            Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False
-            Case Else : Typ = "SONSTIGES"
-        End Select
+        If filePath <> "" Then
+
+            Dim fi As New FileInfo(filePath)
+            Dim filename = fi.Name
+
+
+            Select Case fi.Extension.ToString.Replace(".", "").ToUpper
+                Case "PDF" : Typ = "PDF"
+                Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL"
+                Case "DOC", "DOCX" : Typ = "WORD"
+                Case "TXT" : Typ = "TEXT"
+                Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD"
+                Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False
+                Case Else : Typ = "SONSTIGES"
+            End Select
+        End If
        Return Typ
    End Function