UTA Leistung, cFakt, MDM Datenverarbeitung, etc.

SDL/Fakturierung/cFakturierung.vb

@@ -2521,6 +2521,11 @@ Public Class cFakturierung
                         If displayFirmenmane Then getSignature &= "<br><b>Unisped Speditions GmbH</b><br>"
                         getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15  <br><b>T</b>  +43 7711 2677-0  |  <b>F</b>  +43 7711 2677-27  |  <b>@</b>  " & If(individuell, emailindividuell, "office@unisped.at") & "  |  www.unisped.at  |  FN 375838d</div>"
                         If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
+                    Case 19 'VERAG360
+                        getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG_360.jpg""/>"
+                        If displayFirmenmane Then getSignature &= "<br><b>VERAG 360 GmbH</b><br>"
+                        getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b>  +43 7711 2777-0  |  <b>F</b>  +43 7711 31 073  |  <b>@</b>  " & If(individuell, emailindividuell, "mmd@verag.ag") & "  |  www.verag.ag  |  FN 544732b</div>"
+                        If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
                     Case 26 'VERAG-UNISPED
                         getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG-UNISPED-Logo.jpg""/>"
                         If displayFirmenmane Then getSignature &= "<br><b>VERAG-UNISPED LTD</b><br>"

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.3.8.1")>
+<Assembly: AssemblyVersion("1.3.8.2")>
-<Assembly: AssemblyFileVersion("1.3.8.1")>
+<Assembly: AssemblyFileVersion("1.3.8.2")>

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenUTA.Designer.vb

@@ -53,6 +53,8 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
         Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
         Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtCVCNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
         Me.Panel2.SuspendLayout()
         Me.tbcntr.SuspendLayout()
         Me.TabPage1.SuspendLayout()
@@ -64,10 +66,12 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtClientNr._DateTimeOnly = False
         Me.txtClientNr._numbersOnly = True
         Me.txtClientNr._numbersOnlyKommastellen = ""
+        Me.txtClientNr._numbersOnlyTrennzeichen = True
         Me.txtClientNr._Prozent = False
         Me.txtClientNr._ShortDateNew = False
         Me.txtClientNr._ShortDateOnly = False
         Me.txtClientNr._TimeOnly = False
+        Me.txtClientNr._TimeOnly_Seconds = False
         Me.txtClientNr._value = ""
         Me.txtClientNr._Waehrung = False
         Me.txtClientNr._WaehrungZeichen = True
@@ -94,14 +98,16 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtCardNr._DateTimeOnly = False
         Me.txtCardNr._numbersOnly = False
         Me.txtCardNr._numbersOnlyKommastellen = ""
+        Me.txtCardNr._numbersOnlyTrennzeichen = True
         Me.txtCardNr._Prozent = False
         Me.txtCardNr._ShortDateNew = False
         Me.txtCardNr._ShortDateOnly = False
         Me.txtCardNr._TimeOnly = False
+        Me.txtCardNr._TimeOnly_Seconds = False
         Me.txtCardNr._value = Nothing
         Me.txtCardNr._Waehrung = False
         Me.txtCardNr._WaehrungZeichen = True
-        Me.txtCardNr.Location = New System.Drawing.Point(106, 122)
+        Me.txtCardNr.Location = New System.Drawing.Point(106, 113)
         Me.txtCardNr.MaxLength = 3
         Me.txtCardNr.MaxLineLength = -1
         Me.txtCardNr.MaxLines_Warning = ""
@@ -115,14 +121,16 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtKartenNr._DateTimeOnly = False
         Me.txtKartenNr._numbersOnly = False
         Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._numbersOnlyTrennzeichen = True
         Me.txtKartenNr._Prozent = False
         Me.txtKartenNr._ShortDateNew = False
         Me.txtKartenNr._ShortDateOnly = False
         Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._TimeOnly_Seconds = False
         Me.txtKartenNr._value = Nothing
         Me.txtKartenNr._Waehrung = False
         Me.txtKartenNr._WaehrungZeichen = True
-        Me.txtKartenNr.Location = New System.Drawing.Point(106, 97)
+        Me.txtKartenNr.Location = New System.Drawing.Point(106, 88)
         Me.txtKartenNr.MaxLength = 22
         Me.txtKartenNr.MaxLineLength = -1
         Me.txtKartenNr.MaxLines_Warning = ""
@@ -135,7 +143,7 @@ Partial Class usrCntlSDLLeistungenUTA
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(3, 125)
+        Me.Label1.Location = New System.Drawing.Point(3, 116)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(58, 13)
         Me.Label1.TabIndex = 12
@@ -145,7 +153,7 @@ Partial Class usrCntlSDLLeistungenUTA
         '
         Me.Label9.AutoSize = True
         Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label9.Location = New System.Drawing.Point(3, 100)
+        Me.Label9.Location = New System.Drawing.Point(3, 91)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(69, 13)
         Me.Label9.TabIndex = 9
@@ -155,7 +163,7 @@ Partial Class usrCntlSDLLeistungenUTA
         '
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(207, 126)
+        Me.Label3.Location = New System.Drawing.Point(207, 117)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(32, 13)
         Me.Label3.TabIndex = 16
@@ -166,14 +174,16 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtPIN._DateTimeOnly = False
         Me.txtPIN._numbersOnly = False
         Me.txtPIN._numbersOnlyKommastellen = ""
+        Me.txtPIN._numbersOnlyTrennzeichen = True
         Me.txtPIN._Prozent = False
         Me.txtPIN._ShortDateNew = False
         Me.txtPIN._ShortDateOnly = False
         Me.txtPIN._TimeOnly = False
+        Me.txtPIN._TimeOnly_Seconds = False
         Me.txtPIN._value = Nothing
         Me.txtPIN._Waehrung = False
         Me.txtPIN._WaehrungZeichen = True
-        Me.txtPIN.Location = New System.Drawing.Point(245, 123)
+        Me.txtPIN.Location = New System.Drawing.Point(245, 114)
         Me.txtPIN.MaxLength = 4
         Me.txtPIN.MaxLineLength = -1
         Me.txtPIN.MaxLines_Warning = ""
@@ -187,10 +197,12 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtVermerk._DateTimeOnly = False
         Me.txtVermerk._numbersOnly = False
         Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._numbersOnlyTrennzeichen = True
         Me.txtVermerk._Prozent = False
         Me.txtVermerk._ShortDateNew = False
         Me.txtVermerk._ShortDateOnly = False
         Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._TimeOnly_Seconds = False
         Me.txtVermerk._value = Nothing
         Me.txtVermerk._Waehrung = False
         Me.txtVermerk._WaehrungZeichen = True
@@ -306,10 +318,12 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtLieferung._DateTimeOnly = False
         Me.txtLieferung._numbersOnly = False
         Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._numbersOnlyTrennzeichen = True
         Me.txtLieferung._Prozent = False
         Me.txtLieferung._ShortDateNew = True
         Me.txtLieferung._ShortDateOnly = False
         Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._TimeOnly_Seconds = False
         Me.txtLieferung._value = ""
         Me.txtLieferung._Waehrung = False
         Me.txtLieferung._WaehrungZeichen = True
@@ -328,10 +342,12 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtBestellung._DateTimeOnly = False
         Me.txtBestellung._numbersOnly = False
         Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._numbersOnlyTrennzeichen = True
         Me.txtBestellung._Prozent = False
         Me.txtBestellung._ShortDateNew = True
         Me.txtBestellung._ShortDateOnly = False
         Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._TimeOnly_Seconds = False
         Me.txtBestellung._value = ""
         Me.txtBestellung._Waehrung = False
         Me.txtBestellung._WaehrungZeichen = True
@@ -350,10 +366,12 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.txtGueltigkeit2._DateTimeOnly = False
         Me.txtGueltigkeit2._numbersOnly = False
         Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
+        Me.txtGueltigkeit2._numbersOnlyTrennzeichen = True
         Me.txtGueltigkeit2._Prozent = False
         Me.txtGueltigkeit2._ShortDateNew = True
         Me.txtGueltigkeit2._ShortDateOnly = False
         Me.txtGueltigkeit2._TimeOnly = False
+        Me.txtGueltigkeit2._TimeOnly_Seconds = False
         Me.txtGueltigkeit2._value = ""
         Me.txtGueltigkeit2._Waehrung = False
         Me.txtGueltigkeit2._WaehrungZeichen = True
@@ -465,6 +483,9 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
         Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
         Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges._OPEN_ORIGINAL = False
+        Me.scanSonstiges._TYPE = "PDF"
+        Me.scanSonstiges.AllowDrop = True
         Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.scanSonstiges.BackColor = System.Drawing.Color.White
         Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -488,11 +509,46 @@ Partial Class usrCntlSDLLeistungenUTA
         Me.cbxArchiviert.Text = "ARCHIVIERT"
         Me.cbxArchiviert.UseVisualStyleBackColor = True
         '
+        'txtCVCNr
+        '
+        Me.txtCVCNr._DateTimeOnly = False
+        Me.txtCVCNr._numbersOnly = False
+        Me.txtCVCNr._numbersOnlyKommastellen = ""
+        Me.txtCVCNr._numbersOnlyTrennzeichen = True
+        Me.txtCVCNr._Prozent = False
+        Me.txtCVCNr._ShortDateNew = False
+        Me.txtCVCNr._ShortDateOnly = False
+        Me.txtCVCNr._TimeOnly = False
+        Me.txtCVCNr._TimeOnly_Seconds = False
+        Me.txtCVCNr._value = Nothing
+        Me.txtCVCNr._Waehrung = False
+        Me.txtCVCNr._WaehrungZeichen = True
+        Me.txtCVCNr.Location = New System.Drawing.Point(106, 138)
+        Me.txtCVCNr.MaxLength = 22
+        Me.txtCVCNr.MaxLineLength = -1
+        Me.txtCVCNr.MaxLines_Warning = ""
+        Me.txtCVCNr.MaxLines_Warning_Label = Nothing
+        Me.txtCVCNr.Name = "txtCVCNr"
+        Me.txtCVCNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtCVCNr.TabIndex = 102
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(3, 141)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(48, 13)
+        Me.Label5.TabIndex = 103
+        Me.Label5.Text = "CVC-Nr.:"
+        '
         'usrCntlSDLLeistungenUTA
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.txtCVCNr)
+        Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.cbxArchiviert)
         Me.Controls.Add(Me.tbcntr)
         Me.Controls.Add(Me.txtLieferung)
@@ -556,5 +612,6 @@ Partial Class usrCntlSDLLeistungenUTA
     Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
     Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
     Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
-
+    Friend WithEvents txtCVCNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label5 As Label
 End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenUTA.vb

@@ -109,6 +109,7 @@ Public Class usrCntlSDLLeistungenUTA
             txtKartenNr.Text = SDL.KartenNr
             txtClientNr.Text = SDL.CLIENT_Nr
             txtCardNr.Text = SDL.CARD_Nr
+            txtCVCNr.Text = If(SDL.CVCNr, "")
 
             'Me.Enabled = s.bindingSource.Count > 0
             'AddHandler s.bindingSource.PositionChanged, Sub()
@@ -168,6 +169,7 @@ Public Class usrCntlSDLLeistungenUTA
         SDL.KartenNr = txtKartenNr.Text
         SDL.CLIENT_Nr = txtClientNr.Text
         SDL.CARD_Nr = txtCardNr.Text
+        SDL.CVCNr = txtCVCNr.Text
 
         SDL.ErsatzkarteAm = cbxErsatzkarte._date
         SDL.VerlorenAm = cbxVerloren._date
@@ -185,7 +187,7 @@ Public Class usrCntlSDLLeistungenUTA
     End Function
 
 
-    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPIN.TextChanged, txtKartenNr.TextChanged, txtClientNr.TextChanged, txtCardNr.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPIN.TextChanged, txtKartenNr.TextChanged, txtClientNr.TextChanged, txtCardNr.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged, txtCVCNr.TextChanged
         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
 
         If boud And Me.FindForm IsNot Nothing Then

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -3905,7 +3905,7 @@ Public Class frmMDMDatenverarbetiung
         Try
 
             Dim dtUTAKundennummern As DataTable = SQL.loadDgvBySql("SELECT Distinct(tblUTAImportNew.Kundennummer)
-            FROM tblUTAImportNew LEFT JOIN Adressen ON tblUTAImportNew.Kundennummer = Adressen.UTAKundenNr
+            FROM tblUTAImportNew LEFT JOIN Adressen ON tblUTAImportNew.Kundennummer = Adressen.UTAKundenNr WHERE cast(tblUTAImportNew.Rechnungsdatum as Date) = '" & DateTimePicker2.Text & "' 
             GROUP BY tblUTAImportNew.Kundennummer, Adressen.UTAKundenNr
             HAVING (((Adressen.UTAKundenNr) Is Null))", "FMZOLL")
 

VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb

@@ -66,6 +66,7 @@ Public Class cSDL
     Property BelegNr As Object = Nothing
     Property Nationalitaet As Object = Nothing
     Property CO2Kategorie As Object = Nothing
+    Property CVCNr As Object = Nothing
 
     Public hasentry
     Dim SQL As New SQL
@@ -156,6 +157,7 @@ Public Class cSDL
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Nationalitaet", Nationalitaet))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CO2Kategorie", CO2Kategorie))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CVCNr", CVCNr))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -970,6 +970,8 @@ Public Class cUTA
         Dim curChecksumme As Double
 
         Dim lngRecordCount As Long
+        Try
+
 
             'Datei auf Fehler prüfen!
             Do While (objFileRead.Peek() > -1)
@@ -1061,6 +1063,11 @@ Public Class cUTA
                         End With
 
                     Case "20"
+
+                        lngÜbertragungsposition = 6616
+
+
+
                         lngRecordCount = lngRecordCount + 1
                         lngÜbertragungsposition = lngÜbertragungsposition + 1
                         Dim clfBody As New cUTA.UTABody(lngÜbertragungsnummer, lngÜbertragungsposition, dtmErstellDatumUhrzeit)
@@ -1306,6 +1313,10 @@ Public Class cUTA
                 End Select
 
             Loop
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
         cnt = CInt(lngRecordCount)
         objFileRead.Close()
         Return True