neu
This commit is contained in:
@@ -318,7 +318,7 @@ Public Class cADMIN
|
||||
|
||||
'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
|
||||
'Dim sql As String = "SELECT mit_vname,mit_nname,mit_berechtigung FROM tblUser where mit_username=@mit_username COLLATE Latin1_General_CS_AS and mit_pwd=@mit_pwd COLLATE Latin1_General_CS_AS "
|
||||
Dim sql As String = "SELECT mit_id,mit_vname,mit_nname,mit_niederlassung,mit_username,mit_pwd,mit_info,mit_abteilung,mit_standartFiliale,mit_FMZollPersID,mit_firmaFMZoll,mit_TESTonly FROM " &
|
||||
Dim sql As String = "SELECT mit_id,mit_vname,mit_nname,mit_niederlassung,mit_username,mit_pwd,mit_info,mit_abteilung,mit_standartFiliale,mit_FMZollPersID,mit_firmaFMZoll,mit_TESTonly,mit_abweichenderAnzeigename FROM " &
|
||||
" tblMitarbeiter,tblBerProg where mit_username=@mit_username and mit_pwd=@mit_pwd COLLATE Latin1_General_CS_AS AND (mit_firma=@mit_firma OR mit_firma='ALL' ) AND bepr_programm=@bepr_programm AND bepr_userId=mit_id "
|
||||
|
||||
|
||||
@@ -345,7 +345,7 @@ Public Class cADMIN
|
||||
' If cMitarbeiterAVISO.Grenzstelle = "Nickelsdorf" Then cMitarbeiterAVISO.Grenzstelle = "NKD"
|
||||
' If cMitarbeiterAVISO.Grenzstelle = "Salzburg" Then cMitarbeiterAVISO.Grenzstelle = "SBG"
|
||||
' If cMitarbeiterAVISO.Grenzstelle = "" Then cMitarbeiterAVISO.Grenzstelle = "???"
|
||||
cMitarbeiterAVISO.Mitarbeiter = CStr(dr.Item("mit_username"))
|
||||
cMitarbeiterAVISO.Mitarbeiter = If(CStr(dr.Item("mit_abweichenderAnzeigename")) <> "", CStr(dr.Item("mit_abweichenderAnzeigename")), CStr(dr.Item("mit_username")))
|
||||
cMitarbeiterAVISO.Mitarbeitername = CStr(dr.Item("mit_vname")) & " " & CStr(dr.Item("mit_nname"))
|
||||
cMitarbeiterAVISO.KW = CStr(dr.Item("mit_pwd"))
|
||||
' cMitarbeiterAVISO.Sicherheitsstufe = CInt(dr.Item("ber_sicherheitsstufe"))
|
||||
|
||||
@@ -159,100 +159,116 @@ Public Class KdSearchBox
|
||||
End Sub
|
||||
|
||||
Sub doKeyDown(srchdate As DateTime)
|
||||
If Eingabe_verarbeitet Then Exit Sub ' Bereits abgearbetiet -> Timer
|
||||
Try
|
||||
If usrcntl Is Nothing Then Exit Sub
|
||||
If Eingabe_verarbeitet Then Exit Sub ' Bereits abgearbetiet -> Timer
|
||||
|
||||
Dim span_last_search = CInt(DirectCast((srchdate - last_search), TimeSpan).TotalMilliseconds)
|
||||
Dim span_last_eingabe = CInt(DirectCast((srchdate - last_eingabe), TimeSpan).TotalMilliseconds)
|
||||
Dim span_last_search = CInt(DirectCast((srchdate - last_search), TimeSpan).TotalMilliseconds)
|
||||
Dim span_last_eingabe = CInt(DirectCast((srchdate - last_eingabe), TimeSpan).TotalMilliseconds)
|
||||
|
||||
'TIMER_SEARCH
|
||||
If TIMER_SEARCH Then
|
||||
If span_last_search < 500 And span_last_eingabe < 500 Then
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If usrcntl.Visible = False Then
|
||||
usrcntl.Width = usrcntlWIDTH
|
||||
usrcntl.Height = usrcntlHEIGHT
|
||||
|
||||
Dim locationOnForm As Point = Nothing
|
||||
If Me.FindForm IsNot Nothing Then
|
||||
If dgvpos = "LEFT" Or dgvpos = "" Then
|
||||
locationOnForm = Me.FindForm().PointToClient(Me.Parent.PointToScreen(Me.Location))
|
||||
ElseIf dgvpos = "RIGHT" Then
|
||||
locationOnForm = Me.FindForm().PointToClient(Me.Parent.PointToScreen(Me.Location))
|
||||
locationOnForm.X = locationOnForm.X - (usrcntl.Width - Me.Width)
|
||||
'TIMER_SEARCH
|
||||
If TIMER_SEARCH Then
|
||||
If span_last_search < 500 And span_last_eingabe < 500 Then
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If locationOnForm.Y + usrcntl.Height + Me.Height > form.ClientRectangle.Height Then
|
||||
usrcntl.Height = form.ClientRectangle.Height - locationOnForm.Y - Me.Height
|
||||
End If
|
||||
|
||||
usrcntl.Location = locationOnForm
|
||||
usrcntl.Top += Me.Height
|
||||
End If
|
||||
|
||||
With usrcntl.dgvKundenAktiv
|
||||
|
||||
If usrcntl.Visible = False Then
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = False
|
||||
.AllowUserToResizeRows = False
|
||||
.ReadOnly = True
|
||||
.MultiSelect = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.BackgroundColor = Color.White
|
||||
.ForeColor = Color.Black
|
||||
.GridColor = Color.White
|
||||
usrcntl.Width = usrcntlWIDTH
|
||||
usrcntl.Height = usrcntlHEIGHT
|
||||
|
||||
Dim locationOnForm As Point = Nothing
|
||||
If Me.FindForm IsNot Nothing Then
|
||||
If dgvpos = "LEFT" Or dgvpos = "" Then
|
||||
locationOnForm = Me.FindForm().PointToClient(Me.Parent.PointToScreen(Me.Location))
|
||||
ElseIf dgvpos = "RIGHT" Then
|
||||
locationOnForm = Me.FindForm().PointToClient(Me.Parent.PointToScreen(Me.Location))
|
||||
locationOnForm.X = locationOnForm.X - (usrcntl.Width - Me.Width)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If locationOnForm.Y + usrcntl.Height + Me.Height > form.ClientRectangle.Height Then
|
||||
usrcntl.Height = form.ClientRectangle.Height - locationOnForm.Y - Me.Height
|
||||
End If
|
||||
|
||||
usrcntl.Location = locationOnForm
|
||||
usrcntl.Top += Me.Height
|
||||
End If
|
||||
|
||||
'THREADING AKTIV
|
||||
Me.ThreadInitAKTIV()
|
||||
' Dim ThreadInitAKTIV = New System.Threading.Thread(AddressOf Me.ThreadInitAKTIV)
|
||||
' ThreadInitAKTIV.IsBackground = True
|
||||
' ThreadInitAKTIV.Start()
|
||||
If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenAktiv IsNot Nothing Then
|
||||
|
||||
End With
|
||||
With usrcntl.dgvKundenAktiv
|
||||
|
||||
If usrcntl.Visible = False Then
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = False
|
||||
.AllowUserToResizeRows = False
|
||||
.ReadOnly = True
|
||||
.MultiSelect = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.BackgroundColor = Color.White
|
||||
.ForeColor = Color.Black
|
||||
Try
|
||||
.GridColor = Color.White
|
||||
Catch ex As Exception
|
||||
'Keine Ahnung warum hier ein Fehler kommt
|
||||
End Try
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If nurAktive Then
|
||||
'THREADING AKTIV
|
||||
Me.ThreadInitAKTIV()
|
||||
' Dim ThreadInitAKTIV = New System.Threading.Thread(AddressOf Me.ThreadInitAKTIV)
|
||||
' ThreadInitAKTIV.IsBackground = True
|
||||
' ThreadInitAKTIV.Start()
|
||||
|
||||
End With
|
||||
End If
|
||||
|
||||
If nurAktive Then
|
||||
usrcntl.dgvKundenInAktiv.Visible = False
|
||||
usrcntl.Panel1.Visible = False
|
||||
Else
|
||||
With usrcntl.dgvKundenInAktiv
|
||||
If usrcntl.Visible = False Then
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = False
|
||||
.AllowUserToResizeRows = False
|
||||
.ReadOnly = True
|
||||
.MultiSelect = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.BackgroundColor = Color.White
|
||||
.ForeColor = Color.Black
|
||||
.GridColor = Color.White
|
||||
.DefaultCellStyle.ForeColor = Color.Gray
|
||||
If usrcntl IsNot Nothing AndAlso usrcntl.dgvKundenInAktiv IsNot Nothing Then
|
||||
|
||||
With usrcntl.dgvKundenInAktiv
|
||||
If usrcntl.Visible = False Then
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = False
|
||||
.AllowUserToResizeRows = False
|
||||
.ReadOnly = True
|
||||
.MultiSelect = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.BackgroundColor = Color.White
|
||||
.ForeColor = Color.Black
|
||||
Try
|
||||
.GridColor = Color.White
|
||||
Catch ex As Exception
|
||||
'Keine Ahnung warum hier ein Fehler kommt
|
||||
End Try
|
||||
.DefaultCellStyle.ForeColor = Color.Gray
|
||||
End If
|
||||
|
||||
|
||||
Me.ThreadInitINAKTIV()
|
||||
'THREADING INAKTIV
|
||||
'Dim ThreadInitINAKTIV = New System.Threading.Thread(AddressOf Me.ThreadInitINAKTIV)
|
||||
'ThreadInitINAKTIV.IsBackground = True
|
||||
'ThreadInitINAKTIV.Start()
|
||||
|
||||
End With
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Me.ThreadInitINAKTIV()
|
||||
'THREADING INAKTIV
|
||||
'Dim ThreadInitINAKTIV = New System.Threading.Thread(AddressOf Me.ThreadInitINAKTIV)
|
||||
'ThreadInitINAKTIV.IsBackground = True
|
||||
'ThreadInitINAKTIV.Start()
|
||||
|
||||
End With
|
||||
|
||||
End If
|
||||
|
||||
If _hideIfListEmpty Then
|
||||
If _hideIfListEmpty Then
|
||||
|
||||
If usrcntl.dgvKundenAktiv.RowCount = 0 And usrcntl.dgvKundenInAktiv.RowCount = 0 Then
|
||||
setObjectVisible(usrcntl, False)
|
||||
@@ -281,6 +297,9 @@ Public Class KdSearchBox
|
||||
Eingabe_verarbeitet = True
|
||||
last_search = Now
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub hideDgv(o) '(sender As Object, e As EventArgs)
|
||||
@@ -345,6 +364,9 @@ Public Class KdSearchBox
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
|
||||
SQLstr &= " OR Filialen.Firma IN ('IMEX','VERAG') " ' Wenn die OFFERTE_FREMD_VERAGIMEX --> Beide
|
||||
End If
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_UNISPED_BREXIT", "SDL") Then
|
||||
SQLstr &= " OR (Filialen.Firma IN ('UNISPED') AND Kunden.[FilialenNr]=7002) " ' Wenn die OFFERTE_FREMD_VERAGIMEX --> Beide
|
||||
End If
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_FRONTOFFICE", "SDL") Then
|
||||
SQLstr &= " OR Filialen.Firma IN ('FRONTOFFICE') " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
|
||||
End If
|
||||
@@ -432,6 +454,9 @@ Public Class KdSearchBox
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
|
||||
SQLstr &= " OR Filialen.Firma IN ('IMEX','VERAG') " ' Wenn die OFFERTE_FREMD_VERAGIMEX --> Beide
|
||||
End If
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_UNISPED_BREXIT", "SDL") Then
|
||||
SQLstr &= " OR (Filialen.Firma IN ('UNISPED') AND Kunden.[FilialenNr]=7002) " ' Wenn die OFFERTE_FREMD_VERAGIMEX --> Beide
|
||||
End If
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_FRONTOFFICE", "SDL") Then
|
||||
SQLstr &= " OR Filialen.Firma IN ('FRONTOFFICE') " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
|
||||
End If
|
||||
|
||||
@@ -8,6 +8,7 @@ Public Class MyTextBox
|
||||
Implements INotifyPropertyChanged
|
||||
Property _numbersOnly As Boolean = False
|
||||
Property _numbersOnlyKommastellen As String = ""
|
||||
Property _numbersOnlyTrennzeichen As Boolean = True
|
||||
Property _ShortDateOnly As Boolean = False ' nicht mehr public , da fehler
|
||||
Property _ShortDateNew As Boolean = False
|
||||
Property _DateTimeOnly As Boolean = False
|
||||
@@ -294,7 +295,9 @@ Public Class MyTextBox
|
||||
sender.text = sender.text.ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
|
||||
pruefungHandled = True
|
||||
Try
|
||||
If IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then
|
||||
If Not _numbersOnlyTrennzeichen And IsNumeric(sender.text) Then
|
||||
Me._value = CInt(sender.text)
|
||||
ElseIf IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then
|
||||
sender.text = CDbl(sender.text).ToString("N" & _numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
|
||||
Me._value = CDbl(sender.text)
|
||||
' Else
|
||||
@@ -582,7 +585,10 @@ Public Class MyTextBox
|
||||
End If
|
||||
ElseIf _numbersOnly Then
|
||||
|
||||
If IsNumeric(Me._numbersOnlyKommastellen) And IsNumeric(v) Then
|
||||
If Not _numbersOnlyTrennzeichen And IsNumeric(v) Then
|
||||
Propvalue = CInt(v)
|
||||
Me.Text = v
|
||||
ElseIf IsNumeric(Me._numbersOnlyKommastellen) And IsNumeric(v) Then
|
||||
Propvalue = CDbl(v)
|
||||
Me.Text = CDbl(v).ToString("N" & Me._numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
|
||||
ElseIf IsNumeric(v) Then
|
||||
@@ -623,7 +629,9 @@ Public Class MyTextBox
|
||||
If _numbersOnly Then
|
||||
Try
|
||||
'String.Format("{0:N2}", CDbl(sender.text))
|
||||
If IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then
|
||||
If Not _numbersOnlyTrennzeichen And IsNumeric(sender.text) Then
|
||||
sender.text = CInt(sender.text)
|
||||
ElseIf IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then
|
||||
sender.text = CDbl(sender.text).ToString("N" & _numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
|
||||
Else
|
||||
sender.text = CDbl(sender.text)
|
||||
|
||||
@@ -593,7 +593,9 @@ Public Class SQL
|
||||
|
||||
Return defaultReturn
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & conn.ConnectionString, System.Reflection.MethodInfo.GetCurrentMethod.Name & sql)
|
||||
Dim connstr = ""
|
||||
If conn IsNot Nothing Then connstr = conn.ConnectionString
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & connstr, System.Reflection.MethodInfo.GetCurrentMethod.Name & sql)
|
||||
End Try
|
||||
'MsgBox("3")
|
||||
Return defaultReturn
|
||||
|
||||
@@ -227,6 +227,9 @@ Public Class cAdressen
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function doesOrdnungsbegriffExist() As Boolean
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False)
|
||||
|
||||
@@ -197,6 +197,17 @@ Public Class cEmailBenachrichtigung
|
||||
End Select
|
||||
End Function
|
||||
|
||||
Public Shared Function getBCCEmail() As String
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX" : Return "noreply@imex-group.at"
|
||||
Case "ATILLA" : Return "noreply@verag.ag"
|
||||
Case "UNISPED" : Return "No-Reply@unisped.at"
|
||||
Case "FRONTOFFICE" : Return "noreply@front-office.eu"
|
||||
Case "AMBAR" : Return "" '"noreply@verag.ag"
|
||||
Case Else : Return "noreply@verag.ag"
|
||||
End Select
|
||||
End Function
|
||||
|
||||
Shared Sub eMails_einlesenOLD(hFrächter_kdnr As String, hAuftraggeber_kdnr As String, art As Integer, ByRef Emails As String, ByRef Emails_CC As String, ByRef Emails_BCC As String, ByRef Emails_list_sent As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList)
|
||||
'ART:
|
||||
'1=Ankunft
|
||||
|
||||
@@ -4,6 +4,7 @@
|
||||
Public Class cMitarbeiter
|
||||
Property mit_id As Integer
|
||||
Property mit_username As String = ""
|
||||
Property mit_abweichenderAnzeigename As String = ""
|
||||
Property mit_pwd As String = ""
|
||||
Property mit_geschlecht As String = ""
|
||||
Property mit_affix As String = ""
|
||||
@@ -110,6 +111,7 @@ Public Class cMitarbeiter
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_id", mit_id,, True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_username", mit_username))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_abweichenderAnzeigename", mit_abweichenderAnzeigename))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_pwd", mit_pwd))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_geschlecht", mit_geschlecht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_affix", mit_affix))
|
||||
@@ -298,6 +300,7 @@ Public Class cMitarbeiter
|
||||
Try
|
||||
Me.mit_id = dr.Item("mit_id")
|
||||
Me.mit_username = dr.Item("mit_username")
|
||||
Me.mit_abweichenderAnzeigename = dr.Item("mit_abweichenderAnzeigename")
|
||||
Me.mit_pwd = dr.Item("mit_pwd")
|
||||
Me.mit_affix = dr.Item("mit_affix")
|
||||
If Not dr.Item("mit_geschlecht") Is DBNull.Value Then Me.mit_geschlecht = dr.Item("mit_geschlecht")
|
||||
|
||||
@@ -792,7 +792,10 @@ Public Class cSMS
|
||||
'Keine Übermittlung.
|
||||
Dim MaId As Integer = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & Me.sms_AvisoId & "' ", "AVISO", -1)
|
||||
If MaId > 0 Then
|
||||
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(Me.sms_AvisoId, Nothing, 3, "B", MaId, "*WhatsApp Fehler*", 0, "", "Fehler bei der WhatsApp Übermittlung: " & If(Me.sms_Failure, ""))
|
||||
Dim absenderFirma = ""
|
||||
VERAG_PROG_ALLGEMEIN.cSMS.GET_AccountInfo(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, Me.sms_Account, absenderFirma)
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(Me.sms_AvisoId, Nothing, 3, "B", MaId, "*WhatsApp Fehler*", 0, "", "Fehler bei der WhatsApp Übermittlung: " & If(Me.sms_Failure, ""),,, absenderFirma)
|
||||
End If
|
||||
End Select
|
||||
|
||||
|
||||
@@ -149,14 +149,15 @@ Public Class cVorauskasse
|
||||
|
||||
|
||||
|
||||
Public Shared Function LOADByFilialeAbfNr(FilialeNr As Integer, AbfertigungsNr As Integer, Optional vk_Rolle As String = "") As cVorauskasse
|
||||
Public Shared Function LOADByFilialeAbfNr(FilialeNr As Integer, AbfertigungsNr As Integer, Optional vk_Rolle As String = "", Optional vk_KdNr As String = "") As cVorauskasse
|
||||
Try
|
||||
Dim VK As New cVorauskasse
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblVorauskassen WHERE vk_AbfertigungsNr=@vk_AbfertigungsNr AND vk_FilialeNr=@vk_FilialeNr " & If(If(vk_Rolle, "") <> "", "AND vk_Rolle=@vk_Rolle ", ""), conn)
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblVorauskassen WHERE vk_AbfertigungsNr=@vk_AbfertigungsNr AND vk_FilialeNr=@vk_FilialeNr " & If(If(vk_Rolle, "") <> "", "AND vk_Rolle=@vk_Rolle ", "") & If(If(vk_KdNr, "") <> "", "AND vk_KdNr=@vk_KdNr ", ""), conn)
|
||||
cmd.Parameters.AddWithValue("@vk_FilialeNr", FilialeNr)
|
||||
cmd.Parameters.AddWithValue("@vk_AbfertigungsNr", AbfertigungsNr)
|
||||
cmd.Parameters.AddWithValue("@vk_Rolle", vk_Rolle)
|
||||
cmd.Parameters.AddWithValue("@vk_KdNr", vk_KdNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In VK.getParameterList()
|
||||
|
||||
@@ -1082,6 +1082,8 @@ Public Class cFormularManager
|
||||
|
||||
|
||||
Public Shared Sub mergePDFs(files As List(Of String), ByRef outputFile As String)
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
|
||||
files.RemoveAll(Function(v) v.Equals("")) 'Alle leeren Stings löschen
|
||||
If files.Count > 0 Then
|
||||
Dim doc As Spire.Pdf.PdfDocumentBase = Spire.Pdf.PdfDocument.MergeFiles(files.ToArray)
|
||||
@@ -1095,10 +1097,9 @@ Public Class cFormularManager
|
||||
Public Shared Sub PrintViaSpirePDF(PDFFile As String(), Optional printerName As String = "")
|
||||
Try
|
||||
If printerName = "" Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD <> String.Empty Then
|
||||
Dim sPrinters As ArrayList
|
||||
Dim sPrinters As ArrayList
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST IsNot Nothing Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST IsNot Nothing Then
|
||||
sPrinters = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_LIST
|
||||
Else
|
||||
sPrinters = New ArrayList
|
||||
@@ -1106,13 +1107,17 @@ Public Class cFormularManager
|
||||
sPrinters.Add(sPrinter)
|
||||
Next
|
||||
End If
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD <> String.Empty Then
|
||||
|
||||
For i As Integer = 0 To sPrinters.Count - 1
|
||||
If i.ToString.ToUpper.Contains(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD.ToUpper) Then
|
||||
If i.ToString.ToLower.Contains(VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD.ToLower) Then
|
||||
printerName = i
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Else
|
||||
If printerName = "" Then
|
||||
Dim oPS As New System.Drawing.Printing.PrinterSettings
|
||||
printerName = oPS.PrinterName
|
||||
End If
|
||||
@@ -1120,6 +1125,10 @@ Public Class cFormularManager
|
||||
End If
|
||||
'Dim docs As Spire.Pdf.PdfDocument() = {New Spire.Pdf.PdfDocument("C:\Users\DEVELOPER1\Desktop\Agrotel.pdf")}
|
||||
|
||||
If printerName = "" Then
|
||||
MsgBox("Drucker konnte nicht ermittelt werden!")
|
||||
End If
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
|
||||
For Each pdfPath In PDFFile
|
||||
Dim doc As New Spire.Pdf.PdfDocument(pdfPath)
|
||||
|
||||
@@ -1202,6 +1211,8 @@ Public Class cFormularManager
|
||||
|
||||
Public Shared Sub PrintViaSpirePDF_FromURL(URLs As String(), Optional printerName As String = "")
|
||||
Try
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
|
||||
If printerName = "" Then
|
||||
Dim oPS As New System.Drawing.Printing.PrinterSettings
|
||||
printerName = oPS.PrinterName
|
||||
@@ -1239,10 +1250,13 @@ Public Class cFormularManager
|
||||
Return System.IO.Path.GetTempPath() & Guid.NewGuid().ToString() & ".pdf"
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function getPDFViaSpirePDF_FromURL(URL As String, Optional targetPath As String = "") As String
|
||||
Try
|
||||
If targetPath = "" Then targetPath = getTMPPath_PDF()
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
|
||||
Dim doc As New Spire.Pdf.PdfDocument '= New Spire.Pdf.PdfDocument(URL)
|
||||
doc.LoadFromHTML(URL, True, True, True)
|
||||
If doc IsNot Nothing Then
|
||||
|
||||
@@ -1,24 +1,32 @@
|
||||
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
|
||||
<License Key="dwnrAQD6L5lhoO/wj5lrUwKMO33j2gTPZ1lhuN2VFgLUXnDb8AcEWtTxaNuu4w1t8fL0DTwoP9h+VLEleF1Guf+yZ6rkI+kC+jnRp7T6GE5fsm7ux01HpyEL7a3MITHLYyNC2k+k0bfe5a3tSO1TK8KY0rDtMEBqi7AcETnYXs/ZdGbvg8325stZu4wLyrcJ/nGlh/2ZutYTyZuFbySTnEr7l4E8bP/0Du0Nplk6sKhEoccc6inKb5bLs0gJenV4vQ2cXKzWuTg3hdbfVaJahRIHiJThJHrklsJQE7WbMYAvuFXCGq/1cVr3WeqNspgqMPNVsupDxdF+skTgnTVHrxIohS6tkO+PCbtRWST92AhHpDXJdTxPcqk9pvz1RjPgu2wSgBkkU8x7g9v5M5IZDJ0hlDPYg7DnZGMfftWeeRRffnPD5wRG3snFznEfFfHv1CpXjHYjYvQdMoZVQTQKlIMy1lJQVug8AGj15FcHWFQ3JSeITQGsPMPCwbPtb5mpmpuLVRAFUYEgNx6wPgA+7T/6D3BBTzeE5izFW+vSL/87EZXzw0SSiQaYRzuOF5OJeusu6n4B6cDt1r8r9Hn31Kt7xyfelv76dXVwJGXBv4wHoW4IlzKHZue6lnNC8jLzD8j0kDONv3IaNR5F5zyPglc6wW2PfLOTAfMbfkZlmSk9UTvdum4nW+WI+aJzdu4PF+2ZyVP/FOhlAa39RaJuCIPxlHHRaIhF5cxf4u4J7ScWFJMkwxlGKf+/tyDq9P9+XrrUm41cdP4SQXNsQQz7G9pivq9c7LRU5k3Wj24CxaiKNl0JxHO1epq2XlAnQLbx4xJXEzSN7jFWyA1E99bRfteEXEDle+fgi9iK4gogIdLe4StbNjSQScVlPwJhmytvrS+kBIJZPPQ37PCpXHwghv7HbZ3IDQdHVMNjoZY52RWV/2ZR0CKXlmMmscsyaOtgfu/yHNYinIRNzKq65lrImTC+3sKWobR/TLt6jjFJ7245Sgt5QiCMEJD2/WGmsKKhCwq35pth6PqSBHLGyC3oQItwqoGoVWjP6SdPxiLf1UUeJbULg3gD/4Utlg7LYOHB2WIr2vxwHl8ASrzESuF4ollJqDDxknLiG3fUN0jO+AoFEgRo8FFqtQBJHAGPwJ6F5atrcmoK+magoQ/TiOOv/nRl2R2Zzn9oalLTC7qU2c/M76J3V7l2pU6Gpa31O05r9sn9kHMFdLTqq/cBo0joFw3czGLxHWsUOw07PoZZznYPACwl7m3sVNPCs0HBAileDcI3iROONLetxPBsHl/o6xDirK0uo+wCRI/o4kWS7v2KzBRS2Q2sypumeHUdyyipaWunfW/QlamGN6h8sKB9Wmglah/z/BG0pleMVJfS3JpjIu+HpPgSNoEumzlOtNRZwXWzTiLlhCtYjq9Ip/QeC32YH02EHv6g4IE+J+bKVRshSBvXkc06PZK/WEuYBgYkgbFR8h1KmSCq/42fuKyebvuBGrOQ4Ht0" Version="1.3">
|
||||
<Type>Runtime</Type>
|
||||
<Username>VERAG Spedition AG</Username>
|
||||
<Email>al@verag.ag</Email>
|
||||
<Organization>VERAG Spedition AG</Organization>
|
||||
<LicensedDate>2021-08-11T12:00:00Z</LicensedDate>
|
||||
<ExpiredDate>2022-08-11T12:00:00Z</ExpiredDate>
|
||||
<Products>
|
||||
<Product>
|
||||
<Name>Spire.PDF Platinum</Name>
|
||||
<Version>7.5</Version>
|
||||
<Subscription>
|
||||
<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
|
||||
<NumberOfPermittedSite>1</NumberOfPermittedSite>
|
||||
</Subscription>
|
||||
</Product>
|
||||
</Products>
|
||||
<Issuer>
|
||||
<Name>e-iceblue</Name>
|
||||
<Email>sales@e-iceblue.com</Email>
|
||||
<Url>http://www.e-iceblue.com</Url>
|
||||
</Issuer>
|
||||
</License>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<License xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" Key="VnC5RCG4D4FSAQDEbg3Kdj15nhXcvWOrTv8UeDCLZCzJSH+iHRyhOBROr34M8sjY37YZn2WOkOlU7rHuVTImvolW+DrGwG+ozoBGhMVv1gemeCXPlLGbPL6cdC+cgfueF6VzuZ/mdE2bgS/6iAlMyT9PGl0l9fkzNAGkAbQWkfgc3oTWlxzk6mS37yfDkl5qjEHiyj8rcrtXnJYoZkQQvUaNdyegN3HhoZkFI3Wn5fmrwKKWaEvU39fRMF3bRShV4ghjUlnqMwjw0MHjQRQ1Q4q2g5j4FWzThumXAHLviPQja5E0YU6PEBMGTkrmFnjt1WeZbThVp5K47OHXtaoUzvZKsupVIrxGyO5zIghuwghmz9s2doE8wb5FhB3jgYr8cDgwG92u/vXIDXSkcWBpXjrYjLmC6R2bA3KsPW34ilUfad74RrLkt03dW9tnSaDI/5PEodfcqdgq2uULKsotC7iq7vIskCyyB7ZvpugwKtkrlM7Zr+b0Nw+r6L3CQMuUI3LwbYUc7S6mjPsDshBbRmmQ84okHjhBAkdxH5AwXCFSxCAQUMgnEtxwyT8NyoaDuktZQUBiZvfJnEj1Jk0y2raQf0nNP1xIkODCmnedmOqBNYMmN3intWHWhwd3bWq0bhofq3bF8cSSSqr4IKkMaITnv1VwWFc6NAHX/kAtrw/ax6TlziwYgDsv4nSKWpT5Hij23Inmf/6TZ1xw6Fxgc2afOqdxkmdCFEzjT4iDctnmFEUhyuRAOezJmNkmBRqalBMO4RNxntUO61e/rhg/rUcOg3PcT4UHX1AFuBEnVAk5P24MtURYWN4p3DaPbJ+KKY/WhPZeLJwOR9eF7LRrZBH4U9Ur1mke2aD9q0z3uA8hZcTiWVjwJLovshUgIlOf3nPK6+EEpIu9xgy5EXZRBdRzPp2ZDZdAd4/r81YilJs0CXyOC9iCouoC5zrluu3gl9yX2bmAO0rvscYkVpkoO2/Byb5BFzqvs4KO+iSgstQ7vbKtbFvkYiT5Yytf7Ucz4L8Y7a2Y8JP4qL5pDji/+0Q/TbDH03B36MgBFk2xgfgH72DQScvt8OqaA6lx+OPbOOLh/5spYMNTJvElRoAvF7jlBgwYJF+Baz86A8ijMhb8DeFqVvQkqbrHDl6G0JFQuU2YNK6v0bGMa45POCHKF2MLElYFEgecgck/9LrEmeEJ7+kBTwkuTQpzF6pFDy/i5pdjP1Q5+uxzsZVwi/4brVfMdFdsdHFiTB44V/0x4hOHRVK2/TQSWltroZKH2I4Awy4PLLxnL7mpqME3cl1hX+xfCmqSxs+VcuN0YaEaN28UR8LyFd2Xt8ZcQVZDuoxW19uCTZKPr22Ow28JXN9UfQkOTZo9dGIFS3Uc+Bkif9xCfarSARaDDtzvG4CgqMiPHc5OH4wGsop4eCTU1Hqcia5/xxTL5KSPCLm5d/VZhn+4a7D47f4EQ+ur1zssJABKIIn0O+LWIY/OY3y8mPub+DrRr2932Fi1t6vJIClie1HWmOeNzJJdH9E2lJML4OOmqnQC2gesCGe++eOZJs5ObZmRYnmcpU18OAwOjVGlQAsgExMI0LFpSuc1OLBYA6lCf1Gp07rfTvpyZ90ZzwmTFZTjDULKx42kgpno2QlCGkLEtEq6xKjnqLGaWzbd5Mpc1j1B034fjcU5pRlvN9dBEjJGleE9tpoHFDmHj8nPKgEok68uSOX6qHoy/Xnxu/xPvkLTNppjzAPDVAKG2RmSgNNErouNdHd1n1jqy5YZTU8u6Ayqli6KYVYN6CMk9kllJTAIHe7OKqGYZgHDA5vTgbxThfJgCy24" Version="1.3">
|
||||
<Type>Runtime</Type>
|
||||
<Username>VERAG Spedition AG</Username>
|
||||
<Email>al@verag.ag</Email>
|
||||
<Organization>VERAG Spedition AG</Organization>
|
||||
<LicensedDate>2022-07-12T00:00:00Z</LicensedDate>
|
||||
<ExpiredDate>2023-07-12T00:00:00Z</ExpiredDate>
|
||||
<Products>
|
||||
<Product>
|
||||
<Name>Spire.PDFViewer for Forms</Name>
|
||||
<Version>7.1</Version>
|
||||
<Subscription>
|
||||
<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
|
||||
<NumberOfPermittedSite>1</NumberOfPermittedSite>
|
||||
</Subscription>
|
||||
</Product>
|
||||
<Product>
|
||||
<Name>Spire.PDF Pro Edition</Name>
|
||||
<Version>8.7</Version>
|
||||
<Subscription>
|
||||
<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
|
||||
<NumberOfPermittedSite>1</NumberOfPermittedSite>
|
||||
</Subscription>
|
||||
</Product>
|
||||
</Products>
|
||||
<Issuer>
|
||||
<Name>e-iceblue</Name>
|
||||
<Email>sales@e-iceblue.com</Email>
|
||||
<Url>http://www.e-iceblue.com</Url>
|
||||
</Issuer>
|
||||
</License>
|
||||
@@ -13,6 +13,7 @@
|
||||
Case "IMEX" : where = " and ncts_firma = 'IMEX' "
|
||||
Case "UNISPED" : where = " and ncts_firma = 'UNISPED' "
|
||||
Case "VERAG/ATILLA" : where = " and (ncts_firma is null OR ncts_firma IN ('VERAG','ATILLA','DURMAZ','FRONTOFFICE')) "
|
||||
Case "VERIMEX" : where = " and ncts_firma = 'VERIMEX' "
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
@@ -116,17 +116,17 @@
|
||||
<Reference Include="RichTextBoxEx">
|
||||
<HintPath>..\..\..\dll\RichTextBoxEx.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Spire.License, Version=1.4.0.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
|
||||
<Reference Include="Spire.License, Version=1.3.15.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\dll\Spire.PDF\2021\Spire.License.dll</HintPath>
|
||||
<HintPath>..\..\..\dll\Spire.PDF\2022\Spire.License.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Spire.Pdf, Version=7.8.2.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
|
||||
<Reference Include="Spire.Pdf, Version=7.6.0.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\dll\Spire.PDF\2021\Spire.Pdf.dll</HintPath>
|
||||
<HintPath>..\..\..\dll\Spire.PDF\2022\Spire.Pdf.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Spire.PdfViewer.Forms, Version=6.6.0.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\dll\Spire.PDF\2021\Spire.PdfViewer.Forms.dll</HintPath>
|
||||
<HintPath>..\..\..\dll\Spire.PDF\2022\Spire.PdfViewer.Forms.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.ComponentModel.DataAnnotations" />
|
||||
|
||||
@@ -7,6 +7,8 @@ Public Class cAllgemein
|
||||
Public Shared NIEDERLASSUNG As String 'SUB, WAI, ...
|
||||
Public Shared ABTEILUNG As String 'QS ZOLL ...
|
||||
Public Shared STAMMFILIALE As String 'IMEX,UNISPED;ATILLA...
|
||||
Public Shared WARENORT_ZUGANG As Boolean = False
|
||||
Public Shared WARENORT As String
|
||||
|
||||
Public Shared CLUSTER As String = "" 'Firmenverbund
|
||||
' Public Shared SPECIFIC As cSPECIFIC = New cSPECIFIC
|
||||
@@ -36,6 +38,7 @@ Public Class cAllgemein
|
||||
Public Shared PROGVERSION As String = ""
|
||||
|
||||
Public Shared USRNAME As String
|
||||
Public Shared ABW_USRNAME As String
|
||||
'Public Shared USRBER As Integer
|
||||
Public Shared USRID As Integer
|
||||
Public Shared USR_VNAME As String
|
||||
@@ -106,6 +109,7 @@ Public Class cAllgemein
|
||||
End Select
|
||||
|
||||
USRNAME = (MITARBEITER.mit_vname & " " & MITARBEITER.mit_nname)
|
||||
ABW_USRNAME = MITARBEITER.mit_abweichenderAnzeigename
|
||||
If NIEDERLASSUNG = "" Then NIEDERLASSUNG = MITARBEITER.mit_niederlassung
|
||||
If ABTEILUNG = "" Then ABTEILUNG = MITARBEITER.mit_abteilung
|
||||
Else
|
||||
@@ -394,9 +398,9 @@ Public Class cNCTS_GUARANTEES
|
||||
|
||||
Public Shared TOBB() As String = {"17TR0004000032349", "20TR0004000069756", "13TR0004000009323", "21TR0004000097157", "12TR0004000004665", "15TR0004000020917",
|
||||
"17TR0004000029518", "20DE0000000078205", "19IT01TR000003323", "21TR0004000079552", "21TR0004000078157", "21TR0004000090364", "21TR0004000092350", "20TR0004000069557",
|
||||
"21TR0004000097564", "21TR0004000084967", "19TR0004000056358", "19TR0004000053175"}
|
||||
"21TR0004000097564", "21TR0004000084967", "19TR0004000056358", "19TR0004000053175", "19TR0004000053356"}
|
||||
'old: {"15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364", "21TR0004000097157"}
|
||||
Public Shared OREGON() As String = {"18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500", "ITTR0000000000153", "21DE0000000079716"}
|
||||
Public Shared OREGON() As String = {"18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500", "ITTR0000000000153", "21DE0000000079716", "21DE0000000081910"}
|
||||
Public Shared VERAG() As String = {"17DE0000000071678", "05AT510000G000FP7"}
|
||||
Public Shared IMEX() As String = {"16AT520000G000VA6"}
|
||||
Public Shared ATILLA() As String = {"20AT520000G000092"}
|
||||
|
||||
@@ -123,6 +123,14 @@ Public Class cProgramFunctions
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Sub spireLoadLicense()
|
||||
''Nicht notwendig --> license.elic hat beide drinnen.
|
||||
'Spire.License.LicenseProvider.SetLicenseKey("MkctkXG06cMhlK6LAQCVDXFpzaLd8k9flTIXzX2vqnaj15/RjBiXqzJFPI5Ay0WJO+ng6Fwgb1s0Owoicm6acvP5dL8R/rHMlEAIQmWgY231zrrzVcbfujmJLyeYq1bwdbZY8vAtegSo3uhg8MruQ0NwF8OwrmrRTQzW8VkBRePb6jhCAWqMyr4Ho/d06JN3ngF3ulN/aNkFIWTHBvPG+M0CWuhudGhNtyDcnWPHDHm1+qigpwwnh69s8A4romdnSDQpFa2/LG5KAzwVmcjKSfVZs6e497ydRBFpggoe8d4J0FnRW//ROJOraTklVBMcGNZm9plWQvA23wxAhaVQHPINx/ecdTb9NIAeQajYyghx/tA+XVQ5uessceZW4LWZ4cnq6nhsBS4Y6oZ76/pHw1cUSfOHFCVi++X+2JYatsUJcAn2QXM6qpul7MpKCdDtT+yE94umhllKK7oBA8TMVFntgRfSZU+fftgMB+Nrs91UqM52OQsM4f0Q/dQvLGL/gr7NYE7QBQRV8ersUHls2s/7NHJ1VSoXKO9bghFaqzWoMGJ1UM/DvgdMg+URo6F9yanH4dEv8XDpTgx82f4pwncquCZJoPTdlXVhF4mK6/euo5Od3pmO9ZTqY+DxNwpgBIvkWTTvZiqkq4aDhNR5fhoihtAIWDiaHxMhlXxKTeK8z6n3puusWs0ZcXXaXb1jfUi7L9v8tWavr7Kag89coCXv7q5ejJ+mxTH9N6wIA029crL1+xyWSMOIaU6Iav8nrro5Xhdt14abW+458iqjVQRL1l6ZUkZjXaJHjoqy1aKg1OafFAGjULuOp8ozBJwQbRD0y5czx60NFjKlxR01SrfMrHV8uCjJXWm4BquAQPlHq6gfqSdXjmv/ZgKiKnXu+2FelPHK96IRK+y+pSv0hUx9JJ+9zL0JdAdwKmm2rRGk2KTKKfJ8jB+FdTpp61ecYsM2XB+GqZvLgJx6DUFklevpLG8XuKxcJFJGyAEhUzeUYhjUv60gSRKKAs8XlOmP35fBP2Gd2X6H1cUJFEdam62dDnE9ZBRyBlwA2n7iFav3s7+PzSuEACBG8R1nky52Ye9qE6zM8Plw0boPIoOueKYQIO+9wDLZyhHYjwc/6h3snP76tjsra7IS1c0Yx/P2lMx8C9LogL4c7Hyo7DH/bmn7Kx1C3eYH7IMY2uXoRfJ2tEtJ8MxvD1Xm4ZU1rL/BWpiwTi2rHNl/ikBteyZ7D4YlfoiEpB7P4UksR/SLYS1gpmeh3py7dQytQg8tfq7Ylyn+4umppvhi2ZBhJKElo7DdRegYofwM4XZW5eyWV0Qq7WoBs7YGwq0SHcuUEsgq9mW3j4a7g5/kuTkZSXxVXFKmYEHo+CLJvcbyeWrYeSfgdWd914iiNOzCo/mufmYsOxndMUCUEv9DeKS/zIu7OKM0OIE1O62kt7rBfRyJ5tLcoPKhCaU2y2sa4bsw59YAXq09Maj136qUjLiOfyROIvxlQ30zaydZnn/pqoseHtklySmgCnbO2uQ2vl5RHnv0AbOT7UgLFmQv4x3HL2M5ezEW+3POA1OuEW/TlAvMiaE=")
|
||||
'Spire.License.LicenseProvider.LoadLicense()
|
||||
'Spire.License.LicenseProvider.SetLicenseKey("DqgBAA7OVWqLrl0/vKFRQ3B4fULEZEi+uN7wMgS475TeA6kOemBFjzZEG9fkW/Bgn5JDj2f9fGF9/QZ3jnik3iDgvDkaWO3yrb0V+5OaXxviTkoSVmCxzBNhsfNre2Q9BkETcd3DCYew7psFTdQvVKTtugehhx5bhxitSH6q16Vvdma8/EvVg7dsYajEq+Bjxi5Ibe5Q3po5SnZBnvrbegroXy34zuauqFiKnuaIdSFlmqjuf59veZvss6mIqSZSW9IsyfyKRjLupvFZcsH5yKPOuzmoL00KQ2OqxToVvD45IEUEvjNqdWeUKLPx/JVgaV3RmsxqPWd9Bm6zb7h04OBOKNVRtSSmjX2KnBRXdQgXfSGF1uIDlvLNtpD5AOYxKPOIfJ/AFxi9m8pYKnzqSMbpaxxlOqy9Y03EXkrko3SOzhyg+k6ZyebbqMrzeOzJ7f5cl9TfttlADwnoLa42No35+xkYI3tF/kALsrWWGcVsUWK78cg2w2s79y4ERBbgZlbYqVpdsOyKBO7k1ujA83J2MUYfoSydNivNYM05Ll1UJzbMY0sxb6HGWwVHl3t7aVwioZbmonI90fmrZpfjrpkzlL0MvjY5LxL1JXcv5xJ/oXaLN/q1GxCuFvSDroV3uKRbGhonGmTroQpp7AMFoah8Bg+glLFL2ibSoJ16dlvmxwBuZM0uDMCMfJhsFRSEzUEHbX0gv8MTNC3ROmM81Rrm7klfKrsJD3FrBlf13q6yIpxo+qp0/AgkovpjsBv8y8dxEJs37C0PHcvkCr/kA0HDDTH+Rstx8EelQzOv5dcr6CgW1VWW3+dyPjHjADlRPXd+bo+gquT6NMezbQOUdm3wMNbpCQ/qwcZ5bzEXGmdhWcEs/Z+QmXRJvhBbEf3WQrlLSuzVIooL/nXo5MG8XooWPZHURz1g92vvqA2H6FU+DLJkiNp/OI5Xzp0NNqhOubcSX70noHx7SdgQrnAIGZtE90/MzLBPFZMIv1yjaDyoZsTA3nSatae4w7PvN6cXtacLZl5GnAJIRxlmjR+OvwbfXhAcbVeNYtRYXhExR9B4fxKp8/eXZorvzW7yFH8cSopnqSjmw6ywqx0u2upOuuNeGp5/kMP4QC+SMRruXWQM46Ed168OaU1GJ0PpHr+W2EWZLbqqNhrYct1FpOnVxJjA90DOKsbXFzbLGC83YgZdVo9AAIzMYu8RIhbn6ACJQlC+d9nn0S/wZPtX+PUZK1ACCCDdfm/0jwvUEb8Us2pWn6qA/ZHtkk4a/iII8F9hrDMVOQYJBJQ/IPnyJneHfqjtfB/Hw/1/KdHJYnyWg5KXaZWz+Ut4Vc48ZJCt3B6Izaf2wD68iYaDeemnJAFI3OcsjAzNx54kxs5VBJ4VtsFYPMN3SnovtfEVis3mLlKqzy0EdTOOIm0ZkgxCDHS3KogjOp2SI0kvAxxD1jE1IOKpgLkRo6mfjCzjS6RmZ/vBoBbx1OGqqxUlkD+2TyfQUGggoEX8XtYykiVoMuVUdikUQtHP12gq2aYzS9rKpaIINaEpcqU+vQlIumrlsL2MFIdvcdTEBhfoPtq4j9GZkOY=")
|
||||
'Spire.License.LicenseProvider.LoadLicense()
|
||||
End Sub
|
||||
|
||||
Public Shared Function genCSVFromDT(dt As DataTable, Optional openCSV As Boolean = False, Optional showColumnName As Boolean = True, Optional optFileName As String = "") As String
|
||||
Try
|
||||
|
||||
@@ -296,17 +304,23 @@ Public Class cProgramFunctions
|
||||
Msg.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
|
||||
Msg.From = New MailAddress(eMailfrom)
|
||||
|
||||
For Each s In eMailTo.ToString.Split(";")
|
||||
If s <> "" Then Msg.To.Add(convertToIso(s).ToString.Trim())
|
||||
Next
|
||||
If eMailTo IsNot Nothing Then
|
||||
For Each s In eMailTo.ToString.Split(";")
|
||||
If s <> "" Then Msg.To.Add(convertToIso(s).ToString.Trim())
|
||||
Next
|
||||
End If
|
||||
|
||||
For Each s In cc.ToString.Split(";")
|
||||
If s <> "" Then Msg.CC.Add(convertToIso(s).ToString.Trim())
|
||||
Next
|
||||
If cc IsNot Nothing Then
|
||||
For Each s In cc.ToString.Split(";")
|
||||
If s <> "" Then Msg.CC.Add(convertToIso(s).ToString.Trim())
|
||||
Next
|
||||
End If
|
||||
|
||||
For Each s In bcc.ToString.Split(";")
|
||||
If s <> "" Then Msg.Bcc.Add(convertToIso(s).ToString.Trim())
|
||||
Next
|
||||
If bcc IsNot Nothing Then
|
||||
For Each s In bcc.ToString.Split(";")
|
||||
If s <> "" Then Msg.Bcc.Add(convertToIso(s).ToString.Trim())
|
||||
Next
|
||||
End If
|
||||
|
||||
Msg.Subject = betreff '"ERROR - DAKOSY Einarbeitung"
|
||||
If uhrzeitAngeben Then
|
||||
@@ -322,11 +336,20 @@ Public Class cProgramFunctions
|
||||
If aa IsNot Nothing AndAlso aa <> "" Then Msg.Attachments.Add(New System.Net.Mail.Attachment(aa))
|
||||
Next
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("MAIL ERROR - VOR SENDEN" & ex.Message, "TO: " & eMailTo & vbNewLine & "SUBJ: " & betreff & vbNewLine & "TXT: " & text, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
Try
|
||||
'SENDEN::::::::::::::::::::::
|
||||
mySmtpsvr.Send(Msg)
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
Try 'Falls Fehler nicht beim Senden, sonder was anderes.
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "TO: " & eMailTo & vbNewLine & "SUBJ: " & betreff & vbNewLine & "TXT: " & text, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
Catch ex3 As Exception
|
||||
End Try
|
||||
|
||||
Reference in New Issue
Block a user